diff --git a/doc/ChangeLog b/doc/ChangeLog index 744579261a..c8cf0b5092 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,5 +1,140 @@ =============================================================== +Tag name: cam_cesm2_2_rel_06 +Originator(s): fvitt +Date: 6 Jan 2023 +One-line Summary: Transport CL and BR in WACCM-MA chemistry mechanisms +Github PR URL: https://github.com/ESCOMP/CAM/pull/434 + +Purpose of changes (include the issue number and title text for each relevant GitHub issue): + + Need to transport CL and BR #314 + +Describe any changes made to build system: NA + +Describe any changes made to the namelist: NA + +List any changes to the defaults for the boundary datasets: NA + +Describe any substantial timing or memory changes: NA + +Code reviewed by: cacraig + +List all files eliminated: NA + +List all files added and what they do: NA + +List all existing files that have been modified, and describe the changes: + +M src/chemistry/pp_waccm_ma/chem_mech.doc +M src/chemistry/pp_waccm_ma/chem_mech.in +M src/chemistry/pp_waccm_ma/chem_mods.F90 +M src/chemistry/pp_waccm_ma/m_spc_id.F90 +M src/chemistry/pp_waccm_ma/mo_adjrxt.F90 +M src/chemistry/pp_waccm_ma/mo_indprd.F90 +M src/chemistry/pp_waccm_ma/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_ma/mo_lu_factor.F90 +M src/chemistry/pp_waccm_ma/mo_lu_solve.F90 +M src/chemistry/pp_waccm_ma/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_ma/mo_prod_loss.F90 +M src/chemistry/pp_waccm_ma/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_ma/mo_sim_dat.F90 + - remove CL and BR from the not-transported list + - add HO2 to the not-transported list + +M src/chemistry/pp_waccm_ma_mam4/chem_mech.doc +M src/chemistry/pp_waccm_ma_mam4/chem_mech.in +M src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 +M src/chemistry/pp_waccm_ma_mam4/m_rxt_id.F90 +M src/chemistry/pp_waccm_ma_mam4/m_spc_id.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_indprd.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_lu_factor.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_lu_solve.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_prod_loss.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_setrxt.F90 +M src/chemistry/pp_waccm_ma_mam4/mo_sim_dat.F90 + - remove CL and BR from the not-transported list + +M src/chemistry/pp_waccm_mad/chem_mech.doc +M src/chemistry/pp_waccm_mad/chem_mech.in +M src/chemistry/pp_waccm_mad/chem_mods.F90 +M src/chemistry/pp_waccm_mad/m_spc_id.F90 +M src/chemistry/pp_waccm_mad/mo_adjrxt.F90 +M src/chemistry/pp_waccm_mad/mo_exp_sol.F90 +M src/chemistry/pp_waccm_mad/mo_imp_sol.F90 +M src/chemistry/pp_waccm_mad/mo_indprd.F90 +M src/chemistry/pp_waccm_mad/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_mad/mo_lu_factor.F90 +M src/chemistry/pp_waccm_mad/mo_lu_solve.F90 +M src/chemistry/pp_waccm_mad/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_mad/mo_prod_loss.F90 +M src/chemistry/pp_waccm_mad/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_mad/mo_setrxt.F90 +M src/chemistry/pp_waccm_mad/mo_sim_dat.F90 + - remove CL and BR from the not-transported list + - add HO2 to the not-transported list + - explicitly solve CO2 to be consistent with other waccm mechanisms + - use scalar solver for d-region ion chemistry mechanisms (mad) + +M src/chemistry/pp_waccm_mad_mam4/chem_mech.doc +M src/chemistry/pp_waccm_mad_mam4/chem_mech.in +M src/chemistry/pp_waccm_mad_mam4/chem_mods.F90 +M src/chemistry/pp_waccm_mad_mam4/m_rxt_id.F90 +M src/chemistry/pp_waccm_mad_mam4/m_spc_id.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_exp_sol.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_imp_sol.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_indprd.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_lin_matrix.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_lu_factor.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_lu_solve.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_nln_matrix.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_prod_loss.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_rxt_rates_conv.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_setrxt.F90 +M src/chemistry/pp_waccm_mad_mam4/mo_sim_dat.F90 + - remove CL and BR from the not-transported list + - use scalar solver for d-region ion chemistry mechanisms (mad) + +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. + +cheyenne/intel/aux_cam: +fvitt@cheyenne6:/glade/scratch/fvitt/aux_cam_20230105154916> cs.status.aux_cam_20230105154916 | grep -v PASS | grep Overall + ERP_Ln9.ne30pg3_ne30pg3_mg17.FW2000climo.cheyenne_intel.cam-outfrq9s_wcm_ne30 (Overall: FAIL) details: + - pre-existing failure + + ERC_D_Ln9.f19_f19_mg17.QPX2000.cheyenne_intel.cam-outfrq3s_waccm_ma (Overall: DIFF) details: + ERC_D_Ln9.f19_f19_mg17.QPX2000.cheyenne_intel.cam-outfrq3s_WX81 (Overall: DIFF) details: + ERP_Lh12.f19_f19_mg17.FW4madSD.cheyenne_intel.cam-outfrq3h (Overall: DIFF) details: + ERS_Ln9.f09_f09_mg17.FX2000.cheyenne_intel.cam-outfrq9s (Overall: DIFF) details: + ERS_Ln9.f19_f19_mg17.FXSD.cheyenne_intel.cam-outfrq9s (Overall: DIFF) details: + SMS_D_Ln9.f19_f19_mg17.FWma2000climo.cheyenne_intel.cam-outfrq9s (Overall: DIFF) details: + SMS_D_Ln9.f19_f19_mg17.FXHIST.cheyenne_intel.cam-outfrq9s_amie (Overall: DIFF) details: + - expected baseline failures due to change in WACCM-MA chemistry mechanisms + +izumi/nag/aux_cam: + DAE.f45_f45_mg37.FHS94.izumi_nag.cam-dae (Overall: FAIL) details: + - pre-existing failure + + ERC_D_Ln9.f10_f10_mg37.QPC4X.izumi_nag.cam-outfrq3s_newyear (Overall: DIFF) details: + ERC_D_Ln9.f10_f10_mg37.QPWmaC6.izumi_nag.cam-outfrq3s (Overall: DIFF) details: + SMS_P48x1_D_Ln9.f19_f19_mg17.FW4madSD.izumi_nag.cam-outfrq9s (Overall: DIFF) details: + - expected baseline failures due to change in WACCM-MA chemistry mechanisms + +izumi/pgi/aux_cam: All PASS + +Summarize any changes to answers: Larger than roundoff for WACCM-MA configurations + +=============================================================== +=============================================================== + Tag name: cam_cesm2_2_rel_05 Originator(s): peverwhee, lauritzen Date: January 4, 2023 @@ -183,7 +318,7 @@ 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. -Standard regression testing was not made as it would not uncover any errors in this modification. +Standard regression testing was not made as it would not uncover any errors in this modification. Instead, ran: ./create_newcase --case test_FSCAM --compset FSCAM --res T42_T42 cd test_FSCAM diff --git a/src/chemistry/pp_waccm_ma/chem_mech.doc b/src/chemistry/pp_waccm_ma/chem_mech.doc index 82d9b2e0dc..cd2cc38532 100644 --- a/src/chemistry/pp_waccm_ma/chem_mech.doc +++ b/src/chemistry/pp_waccm_ma/chem_mech.doc @@ -1,66 +1,66 @@ Solution species - ( 1) BRCL (BrCl) - ( 2) BRO (BrO) - ( 3) BRONO2 (BrONO2) - ( 4) BRY - ( 5) CCL4 (CCl4) - ( 6) CF2CLBR (CF2ClBr) - ( 7) CF3BR (CF3Br) - ( 8) CFC11 (CFCl3) - ( 9) CFC113 (CCl2FCClF2) - ( 10) CFC114 (CClF2CClF2) - ( 11) CFC115 (CClF2CF3) - ( 12) CFC12 (CF2Cl2) - ( 13) CH2BR2 (CH2Br2) - ( 14) CH2O - ( 15) CH3BR (CH3Br) - ( 16) CH3CCL3 (CH3CCl3) - ( 17) CH3CL (CH3Cl) - ( 18) CH3O2 - ( 19) CH3OOH - ( 20) CH4 - ( 21) CHBR3 (CHBr3) - ( 22) CL2 (Cl2) - ( 23) CL2O2 (Cl2O2) - ( 24) CLO (ClO) - ( 25) CLONO2 (ClONO2) - ( 26) CLY - ( 27) CO - ( 28) CO2 - ( 29) COF2 - ( 30) COFCL (COFCl) - ( 31) F - ( 32) H - ( 33) H2 - ( 34) H2402 (CBrF2CBrF2) - ( 35) H2O2 - ( 36) HBR (HBr) - ( 37) HCFC141B (CH3CCl2F) - ( 38) HCFC142B (CH3CClF2) - ( 39) HCFC22 (CHF2Cl) - ( 40) HCL (HCl) - ( 41) HF - ( 42) HNO3 - ( 43) HO2 - ( 44) HO2NO2 - ( 45) HOBR (HOBr) - ( 46) HOCL (HOCl) - ( 47) N - ( 48) N2O - ( 49) N2O5 - ( 50) NO - ( 51) NO2 - ( 52) NO3 - ( 53) O - ( 54) O2 - ( 55) O3 - ( 56) OCLO (OClO) - ( 57) SF6 - ( 58) BR (Br) - ( 59) CL (Cl) - ( 60) e (E) + ( 1) BR (Br) + ( 2) BRCL (BrCl) + ( 3) BRO (BrO) + ( 4) BRONO2 (BrONO2) + ( 5) BRY + ( 6) CCL4 (CCl4) + ( 7) CF2CLBR (CF2ClBr) + ( 8) CF3BR (CF3Br) + ( 9) CFC11 (CFCl3) + ( 10) CFC113 (CCl2FCClF2) + ( 11) CFC114 (CClF2CClF2) + ( 12) CFC115 (CClF2CF3) + ( 13) CFC12 (CF2Cl2) + ( 14) CH2BR2 (CH2Br2) + ( 15) CH2O + ( 16) CH3BR (CH3Br) + ( 17) CH3CCL3 (CH3CCl3) + ( 18) CH3CL (CH3Cl) + ( 19) CH3O2 + ( 20) CH3OOH + ( 21) CH4 + ( 22) CHBR3 (CHBr3) + ( 23) CL (Cl) + ( 24) CL2 (Cl2) + ( 25) CL2O2 (Cl2O2) + ( 26) CLO (ClO) + ( 27) CLONO2 (ClONO2) + ( 28) CLY + ( 29) CO + ( 30) CO2 + ( 31) COF2 + ( 32) COFCL (COFCl) + ( 33) F + ( 34) H + ( 35) H2 + ( 36) H2402 (CBrF2CBrF2) + ( 37) H2O2 + ( 38) HBR (HBr) + ( 39) HCFC141B (CH3CCl2F) + ( 40) HCFC142B (CH3CClF2) + ( 41) HCFC22 (CHF2Cl) + ( 42) HCL (HCl) + ( 43) HF + ( 44) HNO3 + ( 45) HO2NO2 + ( 46) HOBR (HOBr) + ( 47) HOCL (HOCl) + ( 48) N + ( 49) N2O + ( 50) N2O5 + ( 51) NO + ( 52) NO2 + ( 53) NO3 + ( 54) O + ( 55) O2 + ( 56) O3 + ( 57) OCLO (OClO) + ( 58) SF6 + ( 59) e (E) + ( 60) HO2 ( 61) N2D (N) ( 62) N2p (N2) ( 63) NOp (NO) @@ -115,43 +115,43 @@ Class List Implicit -------- - ( 1) BRCL - ( 2) BRO - ( 3) BRONO2 - ( 4) CH2O - ( 5) CH3O2 - ( 6) CH3OOH - ( 7) CL2 - ( 8) CL2O2 - ( 9) CLO - ( 10) CLONO2 - ( 11) CO - ( 12) COF2 - ( 13) COFCL - ( 14) F - ( 15) H - ( 16) H2 - ( 17) H2O2 - ( 18) HBR - ( 19) HCL - ( 20) HF - ( 21) HNO3 - ( 22) HO2 - ( 23) HO2NO2 - ( 24) HOBR - ( 25) HOCL - ( 26) N - ( 27) N2O5 - ( 28) NO - ( 29) NO2 - ( 30) NO3 - ( 31) O - ( 32) O2 - ( 33) O3 - ( 34) OCLO - ( 35) BR - ( 36) CL - ( 37) e + ( 1) BR + ( 2) BRCL + ( 3) BRO + ( 4) BRONO2 + ( 5) CH2O + ( 6) CH3O2 + ( 7) CH3OOH + ( 8) CL + ( 9) CL2 + ( 10) CL2O2 + ( 11) CLO + ( 12) CLONO2 + ( 13) CO + ( 14) COF2 + ( 15) COFCL + ( 16) F + ( 17) H + ( 18) H2 + ( 19) H2O2 + ( 20) HBR + ( 21) HCL + ( 22) HF + ( 23) HNO3 + ( 24) HO2NO2 + ( 25) HOBR + ( 26) HOCL + ( 27) N + ( 28) N2O5 + ( 29) NO + ( 30) NO2 + ( 31) NO3 + ( 32) O + ( 33) O2 + ( 34) O3 + ( 35) OCLO + ( 36) e + ( 37) HO2 ( 38) N2D ( 39) N2p ( 40) NOp @@ -499,6 +499,13 @@ Extraneous prod/loss species Equation Report + 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 + - r100*CH2O*BR - r101*HO2*BR - r102*O3*BR d(BRCL)/dt = r106*BRO*CLO + r168*HOBR*HCL + r173*HOBR*HCL - j26*BRCL d(BRO)/dt = j28*BRONO2 + r102*BR*O3 + r110*BRONO2*O + r115*HOBR*O + r120*O1D*HBR @@ -531,6 +538,16 @@ Extraneous prod/loss species d(CH4)/dt = - j23*CH4 - j24*CH4 - r65*CL*CH4 - r121*F*CH4 - r150*OH*CH4 - r152*O1D*CH4 - r153*O1D*CH4 - r154*O1D*CH4 d(CHBR3)/dt = - j42*CHBR3 - r117*O1D*CHBR3 - r134*CL*CHBR3 - r135*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 + - 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 + r161*HOCL*HCL + r166*CLONO2*HCL + r167*HOCL*HCL + r171*CLONO2*HCL + r172*HOCL*HCL + r176*CLONO2*HCL - j43*CL2 @@ -586,13 +603,6 @@ Extraneous prod/loss species + r165*BRONO2 + r169*CLONO2 + r170*BRONO2 + 2*r174*N2O5 + r175*CLONO2 + r60*M*NO2*OH + r144*CH2O*NO3 + r166*CLONO2*HCL + r171*CLONO2*HCL + r176*CLONO2*HCL - j9*HNO3 - r61*OH*HNO3 - r124*F*HNO3 - 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 + r151*M*CO*OH + r153*O1D*CH4 - - r156*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(HO2NO2)/dt = r58*M*NO2*HO2 - j10*HO2NO2 - j11*HO2NO2 - r62*M*HO2NO2 - r37*OH*HO2NO2 d(HOBR)/dt = r162*BRONO2 + r165*BRONO2 + r170*BRONO2 + r107*BRO*HO2 @@ -646,27 +656,17 @@ Extraneous prod/loss species d(OCLO)/dt = r74*CLO*CLO + r104*BRO*CLO - j59*OCLO d(SF6)/dt = - j60*SF6 - 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 - - r100*CH2O*BR - r101*HO2*BR - r102*O3*BR - 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 - - 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(e)/dt = j63*N2 + j65*N2 + j66*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 - r180*NOp*e - r181*O2p*e - r182*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 + r151*M*CO*OH + r153*O1D*CH4 + - r156*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 = j63*N2 + 1.2*j64*N2 + 1.2*j68*N2 + j69*N2 + .8*r180*NOp*e + .9*r182*N2p*e + r184*N2p*O - r38*O*N2D - r39*O2*N2D - r194*Op*N2D d(N2p)/dt = j65*N2 + j67*N2 + r197*N2*Op2D + r202*N2*Op2P diff --git a/src/chemistry/pp_waccm_ma/chem_mech.in b/src/chemistry/pp_waccm_ma/chem_mech.in index a219f1d2de..6564d151d4 100644 --- a/src/chemistry/pp_waccm_ma/chem_mech.in +++ b/src/chemistry/pp_waccm_ma/chem_mech.in @@ -1,15 +1,16 @@ * Comments -* User-given Tag Description: MA_1 -* Tag database identifier : MZ255_MA_20190128 -* Tag created by : ajc +* User-given Tag Description: WACCM_MA +* Tag database identifier : MZ282_MA_20210122 +* Tag created by : lke * Tag created from branch : MA -* Tag created on : 2019-01-28 15:31:03.753615-07 +* Tag created on : 2021-01-22 15:26:54.35253-07 * Comments for this tag follow: -* ajc : 2019-01-28 : add ion_Op_N2D +* lke : 2021-01-22 : Middle Atmosphere mechanism for WACCM, no aerosols, with BR, CL transported SPECIES Solution + BR -> Br, BRCL -> BrCl, BRO -> BrO, BRONO2 -> BrONO2, @@ -31,6 +32,7 @@ CH3OOH, CH4, CHBR3 -> CHBr3, + CL -> Cl, CL2 -> Cl2, CL2O2 -> Cl2O2, CLO -> ClO, @@ -52,7 +54,6 @@ HCL -> HCl, HF, HNO3, - HO2, HO2NO2, HOBR -> HOBr, HOCL -> HOCl, @@ -67,9 +68,8 @@ O3, OCLO -> OClO, SF6, - BR -> Br, - CL -> Cl, e -> E, + HO2, N2D -> N, N2p -> N2, NOp -> NO, @@ -97,9 +97,8 @@ End Col-int Not-Transported - BR, - CL, e, + HO2, N2D, N2p, NOp, @@ -145,12 +144,14 @@ End Explicit Implicit + BR BRCL BRO BRONO2 CH2O CH3O2 CH3OOH + CL CL2 CL2O2 CLO @@ -166,7 +167,6 @@ HCL HF HNO3 - HO2 HO2NO2 HOBR HOCL @@ -179,9 +179,8 @@ O2 O3 OCLO - BR - CL e + HO2 N2D N2p NOp diff --git a/src/chemistry/pp_waccm_ma/chem_mods.F90 b/src/chemistry/pp_waccm_ma/chem_mods.F90 index a4de6f541a..4daa9f36ee 100644 --- a/src/chemistry/pp_waccm_ma/chem_mods.F90 +++ b/src/chemistry/pp_waccm_ma/chem_mods.F90 @@ -25,7 +25,7 @@ module chem_mods clsze = 1, & ! loop length for implicit chemistry rxt_tag_cnt = 290, & enthalpy_cnt = 54, & - nslvd = 15 + nslvd = 14 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 integer :: clsmap(gas_pcnst,5) = 0 diff --git a/src/chemistry/pp_waccm_ma/m_spc_id.F90 b/src/chemistry/pp_waccm_ma/m_spc_id.F90 index f00c8eff7d..f4dcd3ff5b 100644 --- a/src/chemistry/pp_waccm_ma/m_spc_id.F90 +++ b/src/chemistry/pp_waccm_ma/m_spc_id.F90 @@ -1,65 +1,65 @@ module m_spc_id implicit none - integer, parameter :: id_BRCL = 1 - integer, parameter :: id_BRO = 2 - integer, parameter :: id_BRONO2 = 3 - integer, parameter :: id_BRY = 4 - integer, parameter :: id_CCL4 = 5 - integer, parameter :: id_CF2CLBR = 6 - integer, parameter :: id_CF3BR = 7 - integer, parameter :: id_CFC11 = 8 - integer, parameter :: id_CFC113 = 9 - integer, parameter :: id_CFC114 = 10 - integer, parameter :: id_CFC115 = 11 - integer, parameter :: id_CFC12 = 12 - integer, parameter :: id_CH2BR2 = 13 - integer, parameter :: id_CH2O = 14 - integer, parameter :: id_CH3BR = 15 - integer, parameter :: id_CH3CCL3 = 16 - integer, parameter :: id_CH3CL = 17 - integer, parameter :: id_CH3O2 = 18 - integer, parameter :: id_CH3OOH = 19 - integer, parameter :: id_CH4 = 20 - integer, parameter :: id_CHBR3 = 21 - integer, parameter :: id_CL2 = 22 - integer, parameter :: id_CL2O2 = 23 - integer, parameter :: id_CLO = 24 - integer, parameter :: id_CLONO2 = 25 - integer, parameter :: id_CLY = 26 - integer, parameter :: id_CO = 27 - integer, parameter :: id_CO2 = 28 - integer, parameter :: id_COF2 = 29 - integer, parameter :: id_COFCL = 30 - integer, parameter :: id_F = 31 - integer, parameter :: id_H = 32 - integer, parameter :: id_H2 = 33 - integer, parameter :: id_H2402 = 34 - integer, parameter :: id_H2O2 = 35 - integer, parameter :: id_HBR = 36 - integer, parameter :: id_HCFC141B = 37 - integer, parameter :: id_HCFC142B = 38 - integer, parameter :: id_HCFC22 = 39 - integer, parameter :: id_HCL = 40 - integer, parameter :: id_HF = 41 - integer, parameter :: id_HNO3 = 42 - integer, parameter :: id_HO2 = 43 - integer, parameter :: id_HO2NO2 = 44 - integer, parameter :: id_HOBR = 45 - integer, parameter :: id_HOCL = 46 - integer, parameter :: id_N = 47 - integer, parameter :: id_N2O = 48 - integer, parameter :: id_N2O5 = 49 - integer, parameter :: id_NO = 50 - integer, parameter :: id_NO2 = 51 - integer, parameter :: id_NO3 = 52 - integer, parameter :: id_O = 53 - integer, parameter :: id_O2 = 54 - integer, parameter :: id_O3 = 55 - integer, parameter :: id_OCLO = 56 - integer, parameter :: id_SF6 = 57 - integer, parameter :: id_BR = 58 - integer, parameter :: id_CL = 59 - integer, parameter :: id_e = 60 + integer, parameter :: id_BR = 1 + integer, parameter :: id_BRCL = 2 + integer, parameter :: id_BRO = 3 + integer, parameter :: id_BRONO2 = 4 + integer, parameter :: id_BRY = 5 + integer, parameter :: id_CCL4 = 6 + integer, parameter :: id_CF2CLBR = 7 + integer, parameter :: id_CF3BR = 8 + integer, parameter :: id_CFC11 = 9 + integer, parameter :: id_CFC113 = 10 + integer, parameter :: id_CFC114 = 11 + integer, parameter :: id_CFC115 = 12 + integer, parameter :: id_CFC12 = 13 + integer, parameter :: id_CH2BR2 = 14 + integer, parameter :: id_CH2O = 15 + integer, parameter :: id_CH3BR = 16 + integer, parameter :: id_CH3CCL3 = 17 + integer, parameter :: id_CH3CL = 18 + integer, parameter :: id_CH3O2 = 19 + integer, parameter :: id_CH3OOH = 20 + integer, parameter :: id_CH4 = 21 + integer, parameter :: id_CHBR3 = 22 + integer, parameter :: id_CL = 23 + integer, parameter :: id_CL2 = 24 + integer, parameter :: id_CL2O2 = 25 + integer, parameter :: id_CLO = 26 + integer, parameter :: id_CLONO2 = 27 + integer, parameter :: id_CLY = 28 + integer, parameter :: id_CO = 29 + integer, parameter :: id_CO2 = 30 + integer, parameter :: id_COF2 = 31 + integer, parameter :: id_COFCL = 32 + integer, parameter :: id_F = 33 + integer, parameter :: id_H = 34 + integer, parameter :: id_H2 = 35 + integer, parameter :: id_H2402 = 36 + integer, parameter :: id_H2O2 = 37 + integer, parameter :: id_HBR = 38 + integer, parameter :: id_HCFC141B = 39 + integer, parameter :: id_HCFC142B = 40 + integer, parameter :: id_HCFC22 = 41 + integer, parameter :: id_HCL = 42 + integer, parameter :: id_HF = 43 + integer, parameter :: id_HNO3 = 44 + integer, parameter :: id_HO2NO2 = 45 + integer, parameter :: id_HOBR = 46 + integer, parameter :: id_HOCL = 47 + integer, parameter :: id_N = 48 + integer, parameter :: id_N2O = 49 + integer, parameter :: id_N2O5 = 50 + integer, parameter :: id_NO = 51 + integer, parameter :: id_NO2 = 52 + integer, parameter :: id_NO3 = 53 + integer, parameter :: id_O = 54 + integer, parameter :: id_O2 = 55 + integer, parameter :: id_O3 = 56 + integer, parameter :: id_OCLO = 57 + integer, parameter :: id_SF6 = 58 + integer, parameter :: id_e = 59 + integer, parameter :: id_HO2 = 60 integer, parameter :: id_N2D = 61 integer, parameter :: id_N2p = 62 integer, parameter :: id_NOp = 63 diff --git a/src/chemistry/pp_waccm_ma/mo_adjrxt.F90 b/src/chemistry/pp_waccm_ma/mo_adjrxt.F90 index f7c7af4176..5fced11465 100644 --- a/src/chemistry/pp_waccm_ma/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_ma/mo_adjrxt.F90 @@ -16,27 +16,27 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 91) = rate(:,:, 91) * inv(:,:, 2) rate(:,:, 95) = rate(:,:, 95) * inv(:,:, 2) rate(:,:, 99) = rate(:,:, 99) * inv(:,:, 2) - rate(:,:,104) = rate(:,:,104) * inv(:,:, 1) - rate(:,:,105) = rate(:,:,105) * inv(:,:, 1) - rate(:,:,111) = rate(:,:,111) * inv(:,:, 1) - rate(:,:,121) = rate(:,:,121) * inv(:,:, 1) - rate(:,:,133) = rate(:,:,133) * inv(:,:, 1) - rate(:,:,141) = rate(:,:,141) * inv(:,:, 1) - rate(:,:,144) = rate(:,:,144) * inv(:,:, 1) - rate(:,:,145) = rate(:,:,145) * inv(:,:, 1) - rate(:,:,146) = rate(:,:,146) * inv(:,:, 1) - rate(:,:,148) = rate(:,:,148) * inv(:,:, 1) - rate(:,:,149) = rate(:,:,149) * inv(:,:, 1) - rate(:,:,164) = rate(:,:,164) * inv(:,:, 1) - rate(:,:,184) = rate(:,:,184) * inv(:,:, 1) - rate(:,:,185) = rate(:,:,185) * inv(:,:, 1) - rate(:,:,195) = rate(:,:,195) * inv(:,:, 1) - rate(:,:,237) = rate(:,:,237) * inv(:,:, 1) - rate(:,:,276) = rate(:,:,276) * inv(:,:, 2) - rate(:,:,279) = rate(:,:,279) * inv(:,:, 2) - rate(:,:,283) = rate(:,:,283) * inv(:,:, 2) - rate(:,:,288) = rate(:,:,288) * inv(:,:, 2) - rate(:,:,289) = rate(:,:,289) * inv(:,:, 2) + rate(:,:, 104) = rate(:,:, 104) * inv(:,:, 1) + rate(:,:, 105) = rate(:,:, 105) * inv(:,:, 1) + rate(:,:, 111) = rate(:,:, 111) * inv(:,:, 1) + rate(:,:, 121) = rate(:,:, 121) * inv(:,:, 1) + rate(:,:, 133) = rate(:,:, 133) * inv(:,:, 1) + rate(:,:, 141) = rate(:,:, 141) * inv(:,:, 1) + rate(:,:, 144) = rate(:,:, 144) * inv(:,:, 1) + rate(:,:, 145) = rate(:,:, 145) * inv(:,:, 1) + rate(:,:, 146) = rate(:,:, 146) * inv(:,:, 1) + rate(:,:, 148) = rate(:,:, 148) * inv(:,:, 1) + rate(:,:, 149) = rate(:,:, 149) * inv(:,:, 1) + rate(:,:, 164) = rate(:,:, 164) * inv(:,:, 1) + rate(:,:, 184) = rate(:,:, 184) * inv(:,:, 1) + rate(:,:, 185) = rate(:,:, 185) * inv(:,:, 1) + rate(:,:, 195) = rate(:,:, 195) * inv(:,:, 1) + rate(:,:, 237) = rate(:,:, 237) * inv(:,:, 1) + rate(:,:, 276) = rate(:,:, 276) * inv(:,:, 2) + rate(:,:, 279) = rate(:,:, 279) * inv(:,:, 2) + rate(:,:, 283) = rate(:,:, 283) * inv(:,:, 2) + rate(:,:, 288) = rate(:,:, 288) * inv(:,:, 2) + rate(:,:, 289) = rate(:,:, 289) * inv(:,:, 2) rate(:,:, 89) = rate(:,:, 89) * m(:,:) rate(:,:, 90) = rate(:,:, 90) * m(:,:) rate(:,:, 92) = rate(:,:, 92) * m(:,:) @@ -45,172 +45,172 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) rate(:,:, 96) = rate(:,:, 96) * m(:,:) rate(:,:, 97) = rate(:,:, 97) * m(:,:) rate(:,:, 98) = rate(:,:, 98) * m(:,:) - rate(:,:,100) = rate(:,:,100) * m(:,:) - rate(:,:,101) = rate(:,:,101) * m(:,:) - rate(:,:,102) = rate(:,:,102) * m(:,:) - rate(:,:,103) = rate(:,:,103) * m(:,:) - rate(:,:,104) = rate(:,:,104) * m(:,:) - rate(:,:,105) = rate(:,:,105) * m(:,:) - rate(:,:,106) = rate(:,:,106) * m(:,:) - rate(:,:,107) = rate(:,:,107) * m(:,:) - rate(:,:,108) = rate(:,:,108) * m(:,:) - rate(:,:,109) = rate(:,:,109) * m(:,:) - rate(:,:,110) = rate(:,:,110) * m(:,:) - rate(:,:,111) = rate(:,:,111) * m(:,:) - rate(:,:,112) = rate(:,:,112) * m(:,:) - rate(:,:,113) = rate(:,:,113) * m(:,:) - rate(:,:,114) = rate(:,:,114) * m(:,:) - rate(:,:,115) = rate(:,:,115) * m(:,:) - rate(:,:,116) = rate(:,:,116) * m(:,:) - rate(:,:,117) = rate(:,:,117) * m(:,:) - rate(:,:,118) = rate(:,:,118) * m(:,:) - rate(:,:,119) = rate(:,:,119) * m(:,:) - rate(:,:,120) = rate(:,:,120) * m(:,:) - rate(:,:,121) = rate(:,:,121) * m(:,:) - rate(:,:,122) = rate(:,:,122) * m(:,:) - rate(:,:,123) = rate(:,:,123) * m(:,:) - rate(:,:,124) = rate(:,:,124) * m(:,:) - 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(:,:) - rate(:,:,132) = rate(:,:,132) * m(:,:) - rate(:,:,133) = rate(:,:,133) * m(:,:) - rate(:,:,134) = rate(:,:,134) * m(:,:) - rate(:,:,135) = rate(:,:,135) * m(:,:) - rate(:,:,136) = rate(:,:,136) * m(:,:) - rate(:,:,137) = rate(:,:,137) * m(:,:) - rate(:,:,138) = rate(:,:,138) * m(:,:) - rate(:,:,139) = rate(:,:,139) * m(:,:) - rate(:,:,140) = rate(:,:,140) * m(:,:) - rate(:,:,141) = rate(:,:,141) * m(:,:) - rate(:,:,142) = rate(:,:,142) * m(:,:) - rate(:,:,143) = rate(:,:,143) * m(:,:) - rate(:,:,144) = rate(:,:,144) * m(:,:) - rate(:,:,145) = rate(:,:,145) * m(:,:) - rate(:,:,146) = rate(:,:,146) * m(:,:) - rate(:,:,147) = rate(:,:,147) * 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(:,:) - rate(:,:,156) = rate(:,:,156) * m(:,:) - rate(:,:,157) = rate(:,:,157) * m(:,:) - rate(:,:,158) = rate(:,:,158) * m(:,:) - rate(:,:,159) = rate(:,:,159) * m(:,:) - rate(:,:,160) = rate(:,:,160) * m(:,:) - rate(:,:,161) = rate(:,:,161) * m(:,:) - rate(:,:,162) = rate(:,:,162) * m(:,:) - rate(:,:,163) = rate(:,:,163) * m(:,:) - rate(:,:,164) = rate(:,:,164) * m(:,:) - rate(:,:,165) = rate(:,:,165) * m(:,:) - rate(:,:,166) = rate(:,:,166) * m(:,:) - rate(:,:,167) = rate(:,:,167) * m(:,:) - rate(:,:,168) = rate(:,:,168) * m(:,:) - rate(:,:,169) = rate(:,:,169) * m(:,:) - rate(:,:,170) = rate(:,:,170) * m(:,:) - rate(:,:,171) = rate(:,:,171) * m(:,:) - rate(:,:,172) = rate(:,:,172) * m(:,:) - rate(:,:,173) = rate(:,:,173) * m(:,:) - rate(:,:,174) = rate(:,:,174) * m(:,:) - rate(:,:,175) = rate(:,:,175) * m(:,:) - rate(:,:,176) = rate(:,:,176) * m(:,:) - rate(:,:,177) = rate(:,:,177) * 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(:,:) - rate(:,:,184) = rate(:,:,184) * 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(:,:) - 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(:,:) - rate(:,:,197) = rate(:,:,197) * m(:,:) - rate(:,:,198) = rate(:,:,198) * m(:,:) - rate(:,:,199) = rate(:,:,199) * m(:,:) - rate(:,:,200) = rate(:,:,200) * m(:,:) - rate(:,:,201) = rate(:,:,201) * m(:,:) - rate(:,:,202) = rate(:,:,202) * m(:,:) - rate(:,:,203) = rate(:,:,203) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,221) = rate(:,:,221) * m(:,:) - rate(:,:,222) = rate(:,:,222) * m(:,:) - rate(:,:,223) = rate(:,:,223) * m(:,:) - rate(:,:,224) = rate(:,:,224) * m(:,:) - rate(:,:,225) = rate(:,:,225) * m(:,:) - rate(:,:,226) = rate(:,:,226) * m(:,:) - rate(:,:,227) = rate(:,:,227) * m(:,:) - rate(:,:,228) = rate(:,:,228) * m(:,:) - rate(:,:,229) = rate(:,:,229) * m(:,:) - rate(:,:,230) = rate(:,:,230) * m(:,:) - rate(:,:,231) = rate(:,:,231) * m(:,:) - rate(:,:,232) = rate(:,:,232) * 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(:,:) - rate(:,:,239) = rate(:,:,239) * m(:,:) - rate(:,:,240) = rate(:,:,240) * m(:,:) - rate(:,:,241) = rate(:,:,241) * m(:,:) - rate(:,:,247) = rate(:,:,247) * m(:,:) - rate(:,:,252) = rate(:,:,252) * m(:,:) - rate(:,:,253) = rate(:,:,253) * m(:,:) - rate(:,:,254) = rate(:,:,254) * m(:,:) - rate(:,:,257) = rate(:,:,257) * m(:,:) - rate(:,:,258) = rate(:,:,258) * m(:,:) - rate(:,:,259) = rate(:,:,259) * m(:,:) - rate(:,:,262) = rate(:,:,262) * m(:,:) - 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(:,:) - rate(:,:,277) = rate(:,:,277) * m(:,:) - rate(:,:,278) = rate(:,:,278) * m(:,:) - rate(:,:,280) = rate(:,:,280) * m(:,:) - rate(:,:,281) = rate(:,:,281) * m(:,:) - rate(:,:,282) = rate(:,:,282) * m(:,:) - rate(:,:,284) = rate(:,:,284) * m(:,:) - rate(:,:,285) = rate(:,:,285) * m(:,:) - rate(:,:,286) = rate(:,:,286) * m(:,:) - rate(:,:,287) = rate(:,:,287) * m(:,:) - rate(:,:,290) = rate(:,:,290) * m(:,:) + rate(:,:, 100) = rate(:,:, 100) * m(:,:) + rate(:,:, 101) = rate(:,:, 101) * m(:,:) + rate(:,:, 102) = rate(:,:, 102) * m(:,:) + rate(:,:, 103) = rate(:,:, 103) * m(:,:) + rate(:,:, 104) = rate(:,:, 104) * m(:,:) + rate(:,:, 105) = rate(:,:, 105) * m(:,:) + rate(:,:, 106) = rate(:,:, 106) * m(:,:) + rate(:,:, 107) = rate(:,:, 107) * m(:,:) + rate(:,:, 108) = rate(:,:, 108) * m(:,:) + rate(:,:, 109) = rate(:,:, 109) * m(:,:) + rate(:,:, 110) = rate(:,:, 110) * m(:,:) + rate(:,:, 111) = rate(:,:, 111) * m(:,:) + rate(:,:, 112) = rate(:,:, 112) * m(:,:) + rate(:,:, 113) = rate(:,:, 113) * m(:,:) + rate(:,:, 114) = rate(:,:, 114) * m(:,:) + rate(:,:, 115) = rate(:,:, 115) * m(:,:) + rate(:,:, 116) = rate(:,:, 116) * m(:,:) + rate(:,:, 117) = rate(:,:, 117) * m(:,:) + rate(:,:, 118) = rate(:,:, 118) * m(:,:) + rate(:,:, 119) = rate(:,:, 119) * m(:,:) + rate(:,:, 120) = rate(:,:, 120) * m(:,:) + rate(:,:, 121) = rate(:,:, 121) * m(:,:) + rate(:,:, 122) = rate(:,:, 122) * m(:,:) + rate(:,:, 123) = rate(:,:, 123) * m(:,:) + rate(:,:, 124) = rate(:,:, 124) * m(:,:) + 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(:,:) + rate(:,:, 132) = rate(:,:, 132) * m(:,:) + rate(:,:, 133) = rate(:,:, 133) * m(:,:) + rate(:,:, 134) = rate(:,:, 134) * m(:,:) + rate(:,:, 135) = rate(:,:, 135) * m(:,:) + rate(:,:, 136) = rate(:,:, 136) * m(:,:) + rate(:,:, 137) = rate(:,:, 137) * m(:,:) + rate(:,:, 138) = rate(:,:, 138) * m(:,:) + rate(:,:, 139) = rate(:,:, 139) * m(:,:) + rate(:,:, 140) = rate(:,:, 140) * m(:,:) + rate(:,:, 141) = rate(:,:, 141) * m(:,:) + rate(:,:, 142) = rate(:,:, 142) * m(:,:) + rate(:,:, 143) = rate(:,:, 143) * m(:,:) + rate(:,:, 144) = rate(:,:, 144) * m(:,:) + rate(:,:, 145) = rate(:,:, 145) * m(:,:) + rate(:,:, 146) = rate(:,:, 146) * m(:,:) + rate(:,:, 147) = rate(:,:, 147) * 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(:,:) + rate(:,:, 156) = rate(:,:, 156) * m(:,:) + rate(:,:, 157) = rate(:,:, 157) * m(:,:) + rate(:,:, 158) = rate(:,:, 158) * m(:,:) + rate(:,:, 159) = rate(:,:, 159) * m(:,:) + rate(:,:, 160) = rate(:,:, 160) * m(:,:) + rate(:,:, 161) = rate(:,:, 161) * m(:,:) + rate(:,:, 162) = rate(:,:, 162) * m(:,:) + rate(:,:, 163) = rate(:,:, 163) * m(:,:) + rate(:,:, 164) = rate(:,:, 164) * m(:,:) + rate(:,:, 165) = rate(:,:, 165) * m(:,:) + rate(:,:, 166) = rate(:,:, 166) * m(:,:) + rate(:,:, 167) = rate(:,:, 167) * m(:,:) + rate(:,:, 168) = rate(:,:, 168) * m(:,:) + rate(:,:, 169) = rate(:,:, 169) * m(:,:) + rate(:,:, 170) = rate(:,:, 170) * m(:,:) + rate(:,:, 171) = rate(:,:, 171) * m(:,:) + rate(:,:, 172) = rate(:,:, 172) * m(:,:) + rate(:,:, 173) = rate(:,:, 173) * m(:,:) + rate(:,:, 174) = rate(:,:, 174) * m(:,:) + rate(:,:, 175) = rate(:,:, 175) * m(:,:) + rate(:,:, 176) = rate(:,:, 176) * m(:,:) + rate(:,:, 177) = rate(:,:, 177) * 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(:,:) + rate(:,:, 184) = rate(:,:, 184) * 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(:,:) + 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(:,:) + rate(:,:, 197) = rate(:,:, 197) * m(:,:) + rate(:,:, 198) = rate(:,:, 198) * m(:,:) + rate(:,:, 199) = rate(:,:, 199) * m(:,:) + rate(:,:, 200) = rate(:,:, 200) * m(:,:) + rate(:,:, 201) = rate(:,:, 201) * m(:,:) + rate(:,:, 202) = rate(:,:, 202) * m(:,:) + rate(:,:, 203) = rate(:,:, 203) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 221) = rate(:,:, 221) * m(:,:) + rate(:,:, 222) = rate(:,:, 222) * m(:,:) + rate(:,:, 223) = rate(:,:, 223) * m(:,:) + rate(:,:, 224) = rate(:,:, 224) * m(:,:) + rate(:,:, 225) = rate(:,:, 225) * m(:,:) + rate(:,:, 226) = rate(:,:, 226) * m(:,:) + rate(:,:, 227) = rate(:,:, 227) * m(:,:) + rate(:,:, 228) = rate(:,:, 228) * m(:,:) + rate(:,:, 229) = rate(:,:, 229) * m(:,:) + rate(:,:, 230) = rate(:,:, 230) * m(:,:) + rate(:,:, 231) = rate(:,:, 231) * m(:,:) + rate(:,:, 232) = rate(:,:, 232) * 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(:,:) + rate(:,:, 239) = rate(:,:, 239) * m(:,:) + rate(:,:, 240) = rate(:,:, 240) * m(:,:) + rate(:,:, 241) = rate(:,:, 241) * m(:,:) + rate(:,:, 247) = rate(:,:, 247) * m(:,:) + rate(:,:, 252) = rate(:,:, 252) * m(:,:) + rate(:,:, 253) = rate(:,:, 253) * m(:,:) + rate(:,:, 254) = rate(:,:, 254) * m(:,:) + rate(:,:, 257) = rate(:,:, 257) * m(:,:) + rate(:,:, 258) = rate(:,:, 258) * m(:,:) + rate(:,:, 259) = rate(:,:, 259) * m(:,:) + rate(:,:, 262) = rate(:,:, 262) * m(:,:) + 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(:,:) + rate(:,:, 277) = rate(:,:, 277) * m(:,:) + rate(:,:, 278) = rate(:,:, 278) * m(:,:) + rate(:,:, 280) = rate(:,:, 280) * m(:,:) + rate(:,:, 281) = rate(:,:, 281) * m(:,:) + rate(:,:, 282) = rate(:,:, 282) * m(:,:) + rate(:,:, 284) = rate(:,:, 284) * m(:,:) + rate(:,:, 285) = rate(:,:, 285) * m(:,:) + rate(:,:, 286) = rate(:,:, 286) * m(:,:) + rate(:,:, 287) = rate(:,:, 287) * m(:,:) + rate(:,:, 290) = rate(:,:, 290) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_ma/mo_indprd.F90 b/src/chemistry/pp_waccm_ma/mo_indprd.F90 index bec3676844..862a913c43 100644 --- a/src/chemistry/pp_waccm_ma/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_ma/mo_indprd.F90 @@ -36,80 +36,80 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,14) = 0._r8 prod(:,15) = 0._r8 prod(:,16) = 0._r8 - prod(:,17) = (rxt(:,237)*y(:,69) +rxt(:,241)*y(:,69))*y(:,27) + prod(:,17) = (rxt(:,237)*y(:,69) +rxt(:,241)*y(:,69))*y(:,29) prod(:,18) = 0._r8 prod(:,19) = 0._r8 prod(:,20) = 0._r8 prod(:,21) = 0._r8 - prod(:,22) =rxt(:,127)*y(:,51)*y(:,47) + prod(:,22) =rxt(:,127)*y(:,52)*y(:,48) prod(:,23) = 0._r8 !-------------------------------------------------------------------- ! ... "independent" production for Implicit species !-------------------------------------------------------------------- else if( class == 4 ) then + prod(:,38) =rxt(:,31)*y(:,7) +rxt(:,32)*y(:,8) +2.000_r8*rxt(:,38)*y(:,14) & + +rxt(:,39)*y(:,16) +3.000_r8*rxt(:,42)*y(:,22) +2.000_r8*rxt(:,50) & + *y(:,36) prod(:,8) = 0._r8 - prod(:,39) = 0._r8 + prod(:,44) = 0._r8 prod(:,15) = 0._r8 - prod(:,35) =.180_r8*rxt(:,24)*y(:,20) - prod(:,44) =rxt(:,39)*y(:,15) +rxt(:,41)*y(:,17) +rxt(:,23)*y(:,20) + prod(:,35) =.180_r8*rxt(:,24)*y(:,21) + prod(:,47) =rxt(:,39)*y(:,16) +rxt(:,41)*y(:,18) +rxt(:,23)*y(:,21) prod(:,11) = 0._r8 + prod(:,48) =4.000_r8*rxt(:,30)*y(:,6) +rxt(:,31)*y(:,7) +2.000_r8*rxt(:,33) & + *y(:,9) +2.000_r8*rxt(:,34)*y(:,10) +2.000_r8*rxt(:,35)*y(:,11) & + +rxt(:,36)*y(:,12) +2.000_r8*rxt(:,37)*y(:,13) +3.000_r8*rxt(:,40) & + *y(:,17) +rxt(:,41)*y(:,18) +rxt(:,52)*y(:,39) +rxt(:,53)*y(:,40) & + +rxt(:,54)*y(:,41) prod(:,6) = 0._r8 prod(:,1) = 0._r8 - prod(:,41) = 0._r8 + prod(:,43) = 0._r8 prod(:,30) = 0._r8 - prod(:,16) = (rxt(:,25) +rxt(:,61))*y(:,28) +.380_r8*rxt(:,24)*y(:,20) & + prod(:,16) = (rxt(:,25) +rxt(:,61))*y(:,30) +.380_r8*rxt(:,24)*y(:,21) & + extfrc(:,2) - prod(:,2) =rxt(:,31)*y(:,6) +rxt(:,32)*y(:,7) +rxt(:,34)*y(:,9) & - +2.000_r8*rxt(:,35)*y(:,10) +2.000_r8*rxt(:,36)*y(:,11) +rxt(:,37) & - *y(:,12) +2.000_r8*rxt(:,50)*y(:,34) +rxt(:,53)*y(:,38) +rxt(:,54) & - *y(:,39) - prod(:,7) =rxt(:,33)*y(:,8) +rxt(:,34)*y(:,9) +rxt(:,52)*y(:,37) - prod(:,21) =rxt(:,32)*y(:,7) +rxt(:,36)*y(:,11) - prod(:,36) = (rxt(:,23) +.330_r8*rxt(:,24))*y(:,20) - prod(:,49) =1.440_r8*rxt(:,24)*y(:,20) + prod(:,2) =rxt(:,31)*y(:,7) +rxt(:,32)*y(:,8) +rxt(:,34)*y(:,10) & + +2.000_r8*rxt(:,35)*y(:,11) +2.000_r8*rxt(:,36)*y(:,12) +rxt(:,37) & + *y(:,13) +2.000_r8*rxt(:,50)*y(:,36) +rxt(:,53)*y(:,40) +rxt(:,54) & + *y(:,41) + prod(:,7) =rxt(:,33)*y(:,9) +rxt(:,34)*y(:,10) +rxt(:,52)*y(:,39) + prod(:,21) =rxt(:,32)*y(:,8) +rxt(:,36)*y(:,12) + prod(:,36) = (rxt(:,23) +.330_r8*rxt(:,24))*y(:,21) + prod(:,39) =1.440_r8*rxt(:,24)*y(:,21) prod(:,17) = 0._r8 - prod(:,23) = 0._r8 + prod(:,22) = 0._r8 prod(:,34) = 0._r8 prod(:,9) = 0._r8 prod(:,31) = 0._r8 - prod(:,47) = 0._r8 prod(:,12) = 0._r8 prod(:,20) = 0._r8 - prod(:,22) = 0._r8 + prod(:,23) = 0._r8 prod(:,29) = (.800_r8*rxt(:,64) +rxt(:,66) +.800_r8*rxt(:,68) +rxt(:,70)) & + extfrc(:,7) prod(:,10) = 0._r8 - prod(:,38) = + extfrc(:,3) - prod(:,45) = + extfrc(:,1) - prod(:,37) = 0._r8 - prod(:,48) = (rxt(:,25) +rxt(:,61))*y(:,28) +.180_r8*rxt(:,24)*y(:,20) + prod(:,40) = + extfrc(:,3) + prod(:,41) = + extfrc(:,1) + prod(:,45) = 0._r8 + prod(:,50) = (rxt(:,25) +rxt(:,61))*y(:,30) +.180_r8*rxt(:,24)*y(:,21) prod(:,32) = 0._r8 - prod(:,50) = 0._r8 + prod(:,49) = 0._r8 prod(:,3) = 0._r8 - prod(:,43) =rxt(:,31)*y(:,6) +rxt(:,32)*y(:,7) +2.000_r8*rxt(:,38)*y(:,13) & - +rxt(:,39)*y(:,15) +3.000_r8*rxt(:,42)*y(:,21) +2.000_r8*rxt(:,50) & - *y(:,34) - prod(:,40) =4.000_r8*rxt(:,30)*y(:,5) +rxt(:,31)*y(:,6) +2.000_r8*rxt(:,33) & - *y(:,8) +2.000_r8*rxt(:,34)*y(:,9) +2.000_r8*rxt(:,35)*y(:,10) & - +rxt(:,36)*y(:,11) +2.000_r8*rxt(:,37)*y(:,12) +3.000_r8*rxt(:,40) & - *y(:,16) +rxt(:,41)*y(:,17) +rxt(:,52)*y(:,37) +rxt(:,53)*y(:,38) & - +rxt(:,54)*y(:,39) prod(:,27) = (rxt(:,63) +rxt(:,65) +rxt(:,66) +rxt(:,67) +rxt(:,69) + & rxt(:,70)) + extfrc(:,9) + prod(:,37) = 0._r8 prod(:,28) = (rxt(:,63) +1.200_r8*rxt(:,64) +1.200_r8*rxt(:,68) +rxt(:,69)) & + extfrc(:,11) prod(:,18) = (rxt(:,65) +rxt(:,67)) + extfrc(:,6) prod(:,19) = 0._r8 prod(:,24) = (rxt(:,63) +rxt(:,66) +rxt(:,69) +rxt(:,70)) + extfrc(:,10) - prod(:,42) =rxt(:,12)*y(:,48) + prod(:,42) =rxt(:,12)*y(:,49) prod(:,4) = 0._r8 prod(:,5) = 0._r8 prod(:,26) = + extfrc(:,4) - prod(:,46) =.330_r8*rxt(:,24)*y(:,20) + extfrc(:,8) + prod(:,46) =.330_r8*rxt(:,24)*y(:,21) + extfrc(:,8) prod(:,25) = + extfrc(:,5) prod(:,14) = 0._r8 prod(:,13) = 0._r8 - prod(:,33) =.050_r8*rxt(:,24)*y(:,20) + prod(:,33) =.050_r8*rxt(:,24)*y(:,21) end if end subroutine indprd end module mo_indprd diff --git a/src/chemistry/pp_waccm_ma/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_ma/mo_lin_matrix.F90 index 464e66e6fc..3ac9760926 100644 --- a/src/chemistry/pp_waccm_ma/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_ma/mo_lin_matrix.F90 @@ -23,213 +23,213 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,21) = -( rxt(k,26) + het_rates(k,1) ) - mat(k,363) = -( rxt(k,27) + het_rates(k,2) ) - mat(k,63) = rxt(k,28) + mat(k,341) = -( het_rates(k,1) ) + mat(k,22) = rxt(k,26) + mat(k,482) = rxt(k,27) + mat(k,62) = rxt(k,29) + mat(k,113) = rxt(k,51) + mat(k,96) = rxt(k,57) + mat(k,433) = rxt(k,176)*y(k,7) + rxt(k,202)*y(k,8) + 3.000_r8*rxt(k,203)*y(k,22) & + + 2.000_r8*rxt(k,204)*y(k,36) + 2.000_r8*rxt(k,225)*y(k,14) & + + rxt(k,226)*y(k,16) + mat(k,578) = 2.000_r8*rxt(k,213)*y(k,14) + rxt(k,215)*y(k,16) & + + 3.000_r8*rxt(k,220)*y(k,22) + mat(k,534) = 2.000_r8*rxt(k,214)*y(k,14) + rxt(k,216)*y(k,16) & + + 3.000_r8*rxt(k,221)*y(k,22) + mat(k,21) = -( rxt(k,26) + het_rates(k,2) ) + mat(k,488) = -( rxt(k,27) + het_rates(k,3) ) + mat(k,64) = rxt(k,28) mat(k,59) = -( rxt(k,28) + rxt(k,29) + rxt(k,248) + rxt(k,251) + rxt(k,256) & - + het_rates(k,3) ) - mat(k,282) = -( rxt(k,20) + rxt(k,21) + het_rates(k,14) ) + + het_rates(k,4) ) + mat(k,282) = -( rxt(k,20) + rxt(k,21) + het_rates(k,15) ) mat(k,35) = rxt(k,22) - mat(k,435) = rxt(k,239)*y(k,20) + rxt(k,240)*y(k,20) - mat(k,483) = -( het_rates(k,18) ) - mat(k,393) = rxt(k,151)*y(k,20) - mat(k,107) = rxt(k,207)*y(k,20) - mat(k,539) = rxt(k,236)*y(k,20) - mat(k,444) = rxt(k,238)*y(k,20) - mat(k,33) = -( rxt(k,22) + het_rates(k,19) ) - mat(k,15) = -( rxt(k,43) + het_rates(k,22) ) - mat(k,1) = -( rxt(k,44) + rxt(k,185) + het_rates(k,23) ) - mat(k,416) = -( rxt(k,45) + het_rates(k,24) ) - mat(k,210) = rxt(k,47) + mat(k,430) = rxt(k,239)*y(k,21) + rxt(k,240)*y(k,21) + mat(k,562) = -( het_rates(k,19) ) + mat(k,587) = rxt(k,151)*y(k,21) + mat(k,109) = rxt(k,207)*y(k,21) + mat(k,543) = rxt(k,236)*y(k,21) + mat(k,442) = rxt(k,238)*y(k,21) + mat(k,33) = -( rxt(k,22) + het_rates(k,20) ) + mat(k,588) = -( rxt(k,151)*y(k,21) + rxt(k,213)*y(k,14) + rxt(k,215)*y(k,16) & + + rxt(k,218)*y(k,18) + rxt(k,220)*y(k,22) + het_rates(k,23) ) + mat(k,23) = rxt(k,26) + mat(k,16) = 2.000_r8*rxt(k,43) + mat(k,3) = 2.000_r8*rxt(k,44) + mat(k,469) = rxt(k,45) + mat(k,212) = rxt(k,46) + mat(k,20) = rxt(k,49) + mat(k,275) = rxt(k,55) + mat(k,124) = rxt(k,58) + mat(k,443) = 4.000_r8*rxt(k,175)*y(k,6) + rxt(k,176)*y(k,7) & + + 2.000_r8*rxt(k,177)*y(k,9) + 2.000_r8*rxt(k,178)*y(k,10) & + + 2.000_r8*rxt(k,179)*y(k,11) + rxt(k,180)*y(k,12) & + + 2.000_r8*rxt(k,181)*y(k,13) + rxt(k,227)*y(k,39) & + + rxt(k,228)*y(k,40) + rxt(k,229)*y(k,41) + mat(k,544) = 3.000_r8*rxt(k,217)*y(k,17) + rxt(k,219)*y(k,18) & + + rxt(k,222)*y(k,39) + rxt(k,223)*y(k,40) + rxt(k,224)*y(k,41) + mat(k,15) = -( rxt(k,43) + het_rates(k,24) ) + mat(k,1) = -( rxt(k,44) + rxt(k,185) + het_rates(k,25) ) + mat(k,464) = -( rxt(k,45) + het_rates(k,26) ) + mat(k,209) = rxt(k,47) mat(k,8) = rxt(k,59) - mat(k,3) = 2.000_r8*rxt(k,185) + mat(k,2) = 2.000_r8*rxt(k,185) mat(k,204) = -( rxt(k,46) + rxt(k,47) + rxt(k,250) + rxt(k,255) + rxt(k,261) & - + het_rates(k,25) ) - mat(k,67) = -( het_rates(k,27) ) + + het_rates(k,27) ) + mat(k,67) = -( het_rates(k,29) ) mat(k,277) = rxt(k,20) + rxt(k,21) - mat(k,376) = rxt(k,218)*y(k,17) - mat(k,135) = rxt(k,278)*y(k,28) - mat(k,4) = -( rxt(k,48) + het_rates(k,29) ) - mat(k,426) = rxt(k,176)*y(k,6) + rxt(k,178)*y(k,9) + 2.000_r8*rxt(k,179)*y(k,10) & - + 2.000_r8*rxt(k,180)*y(k,11) + rxt(k,181)*y(k,12) & - + rxt(k,202)*y(k,7) + 2.000_r8*rxt(k,204)*y(k,34) & - + rxt(k,228)*y(k,38) + rxt(k,229)*y(k,39) - mat(k,515) = rxt(k,223)*y(k,38) + rxt(k,224)*y(k,39) - mat(k,17) = -( rxt(k,49) + het_rates(k,30) ) - mat(k,428) = rxt(k,177)*y(k,8) + rxt(k,178)*y(k,9) + rxt(k,227)*y(k,37) - mat(k,516) = rxt(k,222)*y(k,37) - mat(k,102) = -( rxt(k,207)*y(k,20) + het_rates(k,31) ) + mat(k,567) = rxt(k,218)*y(k,18) + mat(k,135) = rxt(k,278)*y(k,30) + mat(k,4) = -( rxt(k,48) + het_rates(k,31) ) + mat(k,421) = rxt(k,176)*y(k,7) + rxt(k,178)*y(k,10) + 2.000_r8*rxt(k,179)*y(k,11) & + + 2.000_r8*rxt(k,180)*y(k,12) + rxt(k,181)*y(k,13) & + + rxt(k,202)*y(k,8) + 2.000_r8*rxt(k,204)*y(k,36) & + + rxt(k,228)*y(k,40) + rxt(k,229)*y(k,41) + mat(k,516) = rxt(k,223)*y(k,40) + rxt(k,224)*y(k,41) + mat(k,17) = -( rxt(k,49) + het_rates(k,32) ) + mat(k,423) = rxt(k,177)*y(k,9) + rxt(k,178)*y(k,10) + rxt(k,227)*y(k,39) + mat(k,517) = rxt(k,222)*y(k,39) + mat(k,102) = -( rxt(k,207)*y(k,21) + het_rates(k,33) ) mat(k,5) = 2.000_r8*rxt(k,48) mat(k,18) = rxt(k,49) mat(k,25) = rxt(k,56) - mat(k,429) = rxt(k,180)*y(k,11) + rxt(k,202)*y(k,7) - mat(k,298) = -( het_rates(k,32) ) + mat(k,424) = rxt(k,180)*y(k,12) + rxt(k,202)*y(k,8) + mat(k,298) = -( het_rates(k,34) ) mat(k,249) = 2.000_r8*rxt(k,2) + rxt(k,3) mat(k,283) = 2.000_r8*rxt(k,20) mat(k,36) = rxt(k,22) - mat(k,120) = rxt(k,51) + mat(k,112) = rxt(k,51) mat(k,265) = rxt(k,55) mat(k,26) = rxt(k,56) - mat(k,436) = rxt(k,239)*y(k,20) - mat(k,628) = -( het_rates(k,33) ) - mat(k,256) = rxt(k,1) - mat(k,295) = rxt(k,21) - mat(k,449) = rxt(k,240)*y(k,20) - mat(k,71) = -( rxt(k,4) + het_rates(k,35) ) - mat(k,548) = .500_r8*rxt(k,242) - mat(k,118) = -( rxt(k,51) + het_rates(k,36) ) - mat(k,264) = -( rxt(k,55) + het_rates(k,40) ) - mat(k,383) = rxt(k,151)*y(k,20) + rxt(k,213)*y(k,13) + rxt(k,215)*y(k,15) & - + 2.000_r8*rxt(k,218)*y(k,17) + rxt(k,220)*y(k,21) - mat(k,24) = -( rxt(k,56) + het_rates(k,41) ) - mat(k,101) = rxt(k,207)*y(k,20) - mat(k,216) = -( rxt(k,9) + het_rates(k,42) ) + mat(k,431) = rxt(k,239)*y(k,21) + mat(k,362) = -( het_rates(k,35) ) + mat(k,250) = rxt(k,1) + mat(k,286) = rxt(k,21) + mat(k,434) = rxt(k,240)*y(k,21) + mat(k,71) = -( rxt(k,4) + het_rates(k,37) ) + mat(k,311) = .500_r8*rxt(k,242) + mat(k,110) = -( rxt(k,51) + het_rates(k,38) ) + mat(k,264) = -( rxt(k,55) + het_rates(k,42) ) + mat(k,574) = rxt(k,151)*y(k,21) + rxt(k,213)*y(k,14) + rxt(k,215)*y(k,16) & + + 2.000_r8*rxt(k,218)*y(k,18) + rxt(k,220)*y(k,22) + mat(k,24) = -( rxt(k,56) + het_rates(k,43) ) + mat(k,101) = rxt(k,207)*y(k,21) + mat(k,216) = -( rxt(k,9) + het_rates(k,44) ) mat(k,28) = 2.000_r8*rxt(k,243) + 2.000_r8*rxt(k,246) + 2.000_r8*rxt(k,249) & + 2.000_r8*rxt(k,260) - mat(k,496) = .500_r8*rxt(k,244) - mat(k,311) = rxt(k,245) + mat(k,402) = .500_r8*rxt(k,244) + mat(k,497) = rxt(k,245) mat(k,61) = rxt(k,248) + rxt(k,251) + rxt(k,256) mat(k,205) = rxt(k,250) + rxt(k,255) + rxt(k,261) - mat(k,567) = -( rxt(k,242) + het_rates(k,43) ) - mat(k,45) = rxt(k,11) + rxt(k,148) - mat(k,396) = rxt(k,215)*y(k,15) + rxt(k,218)*y(k,17) - mat(k,542) = rxt(k,216)*y(k,15) + rxt(k,219)*y(k,17) - mat(k,447) = rxt(k,239)*y(k,20) - mat(k,39) = -( rxt(k,10) + rxt(k,11) + rxt(k,148) + het_rates(k,44) ) - mat(k,93) = -( rxt(k,57) + het_rates(k,45) ) + mat(k,39) = -( rxt(k,10) + rxt(k,11) + rxt(k,148) + het_rates(k,45) ) + mat(k,93) = -( rxt(k,57) + het_rates(k,46) ) mat(k,60) = rxt(k,248) + rxt(k,251) + rxt(k,256) - mat(k,111) = -( rxt(k,58) + het_rates(k,46) ) + mat(k,119) = -( rxt(k,58) + het_rates(k,47) ) mat(k,203) = rxt(k,250) + rxt(k,255) + rxt(k,261) - mat(k,193) = -( rxt(k,62) + het_rates(k,47) ) - mat(k,334) = rxt(k,15) + mat(k,193) = -( rxt(k,62) + het_rates(k,48) ) + mat(k,378) = rxt(k,15) mat(k,142) = rxt(k,279) mat(k,27) = -( rxt(k,13) + rxt(k,14) + rxt(k,149) + rxt(k,243) + rxt(k,246) & - + rxt(k,249) + rxt(k,260) + het_rates(k,49) ) - mat(k,339) = -( rxt(k,15) + rxt(k,16) + het_rates(k,50) ) - mat(k,30) = rxt(k,14) - mat(k,502) = rxt(k,17) + .500_r8*rxt(k,244) - mat(k,317) = rxt(k,19) + + rxt(k,249) + rxt(k,260) + het_rates(k,50) ) + mat(k,385) = -( rxt(k,15) + rxt(k,16) + het_rates(k,51) ) + mat(k,29) = rxt(k,14) + mat(k,410) = rxt(k,17) + .500_r8*rxt(k,244) + mat(k,505) = rxt(k,19) mat(k,154) = rxt(k,276) mat(k,51) = rxt(k,289) - mat(k,438) = 2.000_r8*rxt(k,142)*y(k,48) - mat(k,509) = -( rxt(k,17) + rxt(k,244) + het_rates(k,51) ) - mat(k,221) = rxt(k,9) + mat(k,435) = 2.000_r8*rxt(k,142)*y(k,49) + mat(k,411) = -( rxt(k,17) + rxt(k,244) + het_rates(k,52) ) + mat(k,220) = rxt(k,9) mat(k,43) = rxt(k,11) + rxt(k,148) - mat(k,31) = rxt(k,13) + rxt(k,149) - mat(k,324) = rxt(k,18) - mat(k,65) = rxt(k,28) - mat(k,211) = rxt(k,47) - mat(k,316) = -( rxt(k,18) + rxt(k,19) + rxt(k,245) + het_rates(k,52) ) - mat(k,42) = rxt(k,10) - mat(k,29) = rxt(k,13) + rxt(k,14) + rxt(k,149) - mat(k,62) = rxt(k,29) - mat(k,208) = rxt(k,46) - mat(k,607) = -( rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & - + rxt(k,76) + het_rates(k,53) ) - mat(k,255) = rxt(k,2) - mat(k,243) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,77) + rxt(k,79) + rxt(k,81) & + mat(k,30) = rxt(k,13) + rxt(k,149) + mat(k,506) = rxt(k,18) + mat(k,63) = rxt(k,28) + mat(k,208) = rxt(k,47) + mat(k,510) = -( rxt(k,18) + rxt(k,19) + rxt(k,245) + het_rates(k,53) ) + mat(k,44) = rxt(k,10) + mat(k,31) = rxt(k,13) + rxt(k,14) + rxt(k,149) + mat(k,65) = rxt(k,29) + mat(k,210) = rxt(k,46) + mat(k,647) = -( rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & + + rxt(k,76) + het_rates(k,54) ) + mat(k,256) = rxt(k,2) + mat(k,244) = 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) - mat(k,645) = rxt(k,8) + mat(k,608) = rxt(k,8) mat(k,32) = rxt(k,14) - mat(k,349) = rxt(k,15) - mat(k,512) = rxt(k,17) - mat(k,327) = rxt(k,18) - mat(k,372) = rxt(k,27) - mat(k,423) = rxt(k,45) + mat(k,395) = rxt(k,15) + mat(k,420) = rxt(k,17) + mat(k,515) = rxt(k,18) + mat(k,494) = rxt(k,27) + mat(k,471) = rxt(k,45) mat(k,9) = rxt(k,59) - mat(k,448) = rxt(k,91) + mat(k,445) = rxt(k,91) mat(k,58) = rxt(k,283) mat(k,52) = rxt(k,288) mat(k,236) = -( 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,54) ) - mat(k,632) = rxt(k,8) - mat(k,312) = rxt(k,19) + + rxt(k,85) + rxt(k,86) + het_rates(k,55) ) + mat(k,593) = rxt(k,8) + mat(k,498) = rxt(k,19) mat(k,11) = rxt(k,87) + rxt(k,95) mat(k,14) = rxt(k,88) - mat(k,432) = rxt(k,143)*y(k,48) - mat(k,647) = -( rxt(k,7) + rxt(k,8) + het_rates(k,55) ) - mat(k,7) = -( rxt(k,59) + het_rates(k,56) ) - mat(k,463) = -( het_rates(k,58) ) - mat(k,23) = rxt(k,26) - mat(k,367) = rxt(k,27) - mat(k,64) = rxt(k,29) - mat(k,123) = rxt(k,51) - mat(k,98) = rxt(k,57) - mat(k,443) = rxt(k,176)*y(k,6) + rxt(k,202)*y(k,7) + 3.000_r8*rxt(k,203)*y(k,21) & - + 2.000_r8*rxt(k,204)*y(k,34) + 2.000_r8*rxt(k,225)*y(k,13) & - + rxt(k,226)*y(k,15) - mat(k,392) = 2.000_r8*rxt(k,213)*y(k,13) + rxt(k,215)*y(k,15) & - + 3.000_r8*rxt(k,220)*y(k,21) - mat(k,538) = 2.000_r8*rxt(k,214)*y(k,13) + rxt(k,216)*y(k,15) & - + 3.000_r8*rxt(k,221)*y(k,21) - mat(k,389) = -( rxt(k,151)*y(k,20) + rxt(k,213)*y(k,13) + rxt(k,215)*y(k,15) & - + rxt(k,218)*y(k,17) + rxt(k,220)*y(k,21) + het_rates(k,59) ) - mat(k,22) = rxt(k,26) - mat(k,16) = 2.000_r8*rxt(k,43) - mat(k,2) = 2.000_r8*rxt(k,44) - mat(k,415) = rxt(k,45) - mat(k,209) = rxt(k,46) - mat(k,19) = rxt(k,49) - mat(k,268) = rxt(k,55) - mat(k,114) = rxt(k,58) - mat(k,440) = 4.000_r8*rxt(k,175)*y(k,5) + rxt(k,176)*y(k,6) & - + 2.000_r8*rxt(k,177)*y(k,8) + 2.000_r8*rxt(k,178)*y(k,9) & - + 2.000_r8*rxt(k,179)*y(k,10) + rxt(k,180)*y(k,11) & - + 2.000_r8*rxt(k,181)*y(k,12) + rxt(k,227)*y(k,37) & - + rxt(k,228)*y(k,38) + rxt(k,229)*y(k,39) - mat(k,535) = 3.000_r8*rxt(k,217)*y(k,16) + rxt(k,219)*y(k,17) & - + rxt(k,222)*y(k,37) + rxt(k,223)*y(k,38) + rxt(k,224)*y(k,39) - mat(k,164) = -( het_rates(k,60) ) - mat(k,332) = rxt(k,16) + mat(k,427) = rxt(k,143)*y(k,49) + mat(k,607) = -( rxt(k,7) + rxt(k,8) + het_rates(k,56) ) + mat(k,7) = -( rxt(k,59) + het_rates(k,57) ) + mat(k,164) = -( het_rates(k,59) ) + mat(k,376) = rxt(k,16) mat(k,191) = rxt(k,62) - mat(k,586) = rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & + mat(k,624) = rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & + rxt(k,76) mat(k,233) = 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,320) = -( rxt(k,242) + het_rates(k,60) ) + mat(k,42) = rxt(k,11) + rxt(k,148) + mat(k,577) = rxt(k,215)*y(k,16) + rxt(k,218)*y(k,18) + mat(k,533) = rxt(k,216)*y(k,16) + rxt(k,219)*y(k,18) + mat(k,432) = rxt(k,239)*y(k,21) mat(k,178) = -( het_rates(k,61) ) mat(k,78) = -( het_rates(k,62) ) mat(k,54) = rxt(k,283) mat(k,48) = rxt(k,288) mat(k,87) = -( het_rates(k,63) ) - mat(k,330) = rxt(k,16) + mat(k,374) = rxt(k,16) mat(k,148) = rxt(k,276) mat(k,136) = rxt(k,279) mat(k,127) = -( het_rates(k,64) ) mat(k,188) = rxt(k,62) mat(k,49) = rxt(k,289) - mat(k,442) = -( rxt(k,91) + rxt(k,142)*y(k,48) + rxt(k,143)*y(k,48) & - + rxt(k,175)*y(k,5) + rxt(k,176)*y(k,6) + rxt(k,177)*y(k,8) & - + rxt(k,178)*y(k,9) + rxt(k,179)*y(k,10) + rxt(k,180)*y(k,11) & - + rxt(k,181)*y(k,12) + rxt(k,202)*y(k,7) + rxt(k,203)*y(k,21) & - + rxt(k,204)*y(k,34) + rxt(k,225)*y(k,13) + rxt(k,226)*y(k,15) & - + rxt(k,227)*y(k,37) + rxt(k,228)*y(k,38) + rxt(k,229)*y(k,39) & - + rxt(k,238)*y(k,20) + rxt(k,239)*y(k,20) + rxt(k,240)*y(k,20) & + mat(k,437) = -( rxt(k,91) + rxt(k,142)*y(k,49) + rxt(k,143)*y(k,49) & + + rxt(k,175)*y(k,6) + rxt(k,176)*y(k,7) + rxt(k,177)*y(k,9) & + + rxt(k,178)*y(k,10) + rxt(k,179)*y(k,11) + rxt(k,180)*y(k,12) & + + rxt(k,181)*y(k,13) + rxt(k,202)*y(k,8) + rxt(k,203)*y(k,22) & + + rxt(k,204)*y(k,36) + rxt(k,225)*y(k,14) + rxt(k,226)*y(k,16) & + + rxt(k,227)*y(k,39) + rxt(k,228)*y(k,40) + rxt(k,229)*y(k,41) & + + rxt(k,238)*y(k,21) + rxt(k,239)*y(k,21) + rxt(k,240)*y(k,21) & + het_rates(k,65) ) - mat(k,251) = rxt(k,1) - mat(k,239) = rxt(k,6) - mat(k,639) = rxt(k,7) + mat(k,252) = rxt(k,1) + mat(k,241) = rxt(k,6) + mat(k,600) = rxt(k,7) mat(k,10) = -( rxt(k,87) + rxt(k,95) + het_rates(k,66) ) - mat(k,630) = rxt(k,7) - mat(k,12) = rxt(k,99) + rxt(k,98)*y(k,28) - mat(k,13) = -( rxt(k,88) + rxt(k,99) + rxt(k,98)*y(k,28) + het_rates(k,67) ) + mat(k,591) = rxt(k,7) + mat(k,12) = rxt(k,99) + rxt(k,98)*y(k,30) + mat(k,13) = -( rxt(k,88) + rxt(k,99) + rxt(k,98)*y(k,30) + het_rates(k,67) ) mat(k,149) = -( rxt(k,276) + het_rates(k,68) ) mat(k,232) = rxt(k,78) + rxt(k,80) - mat(k,139) = rxt(k,278)*y(k,28) - mat(k,541) = -( rxt(k,214)*y(k,13) + rxt(k,216)*y(k,15) + rxt(k,217)*y(k,16) & - + rxt(k,219)*y(k,17) + rxt(k,221)*y(k,21) + rxt(k,222)*y(k,37) & - + rxt(k,223)*y(k,38) + rxt(k,224)*y(k,39) + rxt(k,236)*y(k,20) & + mat(k,139) = rxt(k,278)*y(k,30) + mat(k,542) = -( rxt(k,214)*y(k,14) + rxt(k,216)*y(k,16) + rxt(k,217)*y(k,17) & + + rxt(k,219)*y(k,18) + rxt(k,221)*y(k,22) + rxt(k,222)*y(k,39) & + + rxt(k,223)*y(k,40) + rxt(k,224)*y(k,41) + rxt(k,236)*y(k,21) & + het_rates(k,69) ) mat(k,254) = rxt(k,3) mat(k,75) = 2.000_r8*rxt(k,4) mat(k,222) = rxt(k,9) - mat(k,44) = rxt(k,10) - mat(k,38) = rxt(k,22) - mat(k,99) = rxt(k,57) - mat(k,116) = rxt(k,58) - mat(k,510) = .500_r8*rxt(k,244) - mat(k,446) = rxt(k,238)*y(k,20) + mat(k,45) = rxt(k,10) + mat(k,37) = rxt(k,22) + mat(k,98) = rxt(k,57) + mat(k,123) = rxt(k,58) + mat(k,416) = .500_r8*rxt(k,244) + mat(k,441) = rxt(k,238)*y(k,21) end do end subroutine linmat01 subroutine linmat02( avec_len, mat, y, rxt, het_rates ) @@ -252,22 +252,22 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- integer :: k do k = 1,avec_len - mat(k,138) = -( rxt(k,279) + rxt(k,278)*y(k,28) + het_rates(k,70) ) - mat(k,584) = rxt(k,71) + rxt(k,72) + mat(k,138) = -( rxt(k,279) + rxt(k,278)*y(k,30) + het_rates(k,70) ) + mat(k,622) = rxt(k,71) + rxt(k,72) mat(k,231) = rxt(k,79) + rxt(k,81) mat(k,50) = rxt(k,263) mat(k,55) = rxt(k,264) mat(k,53) = -( rxt(k,264) + rxt(k,283) + het_rates(k,71) ) - mat(k,574) = rxt(k,73) + rxt(k,75) + mat(k,612) = rxt(k,73) + rxt(k,75) mat(k,227) = rxt(k,84) + rxt(k,86) mat(k,47) = rxt(k,265) mat(k,46) = -( rxt(k,263) + rxt(k,265) + rxt(k,288) + rxt(k,289) & + het_rates(k,72) ) - mat(k,573) = rxt(k,74) + rxt(k,76) + mat(k,611) = rxt(k,74) + rxt(k,76) mat(k,226) = rxt(k,77) + rxt(k,85) mat(k,248) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,73) ) - mat(k,528) = rxt(k,214)*y(k,13) + rxt(k,216)*y(k,15) + rxt(k,217)*y(k,16) & - + rxt(k,219)*y(k,17) + rxt(k,224)*y(k,39) + rxt(k,236)*y(k,20) + mat(k,529) = rxt(k,214)*y(k,14) + rxt(k,216)*y(k,16) + rxt(k,217)*y(k,17) & + + rxt(k,219)*y(k,18) + rxt(k,224)*y(k,41) + rxt(k,236)*y(k,21) end do end subroutine linmat02 subroutine linmat( avec_len, mat, y, rxt, het_rates ) diff --git a/src/chemistry/pp_waccm_ma/mo_lu_factor.F90 b/src/chemistry/pp_waccm_ma/mo_lu_factor.F90 index 2298214e11..bc31b60706 100644 --- a/src/chemistry/pp_waccm_ma/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_ma/mo_lu_factor.F90 @@ -20,62 +20,62 @@ subroutine lu_fac01( avec_len, lu ) lu(k,1) = 1._r8 / lu(k,1) lu(k,2) = lu(k,2) * lu(k,1) lu(k,3) = lu(k,3) * lu(k,1) - lu(k,415) = lu(k,415) - lu(k,2) * lu(k,400) - lu(k,416) = lu(k,416) - lu(k,3) * lu(k,400) + lu(k,464) = lu(k,464) - lu(k,2) * lu(k,446) + lu(k,469) = lu(k,469) - lu(k,3) * lu(k,446) lu(k,4) = 1._r8 / lu(k,4) lu(k,5) = lu(k,5) * lu(k,4) lu(k,6) = lu(k,6) * lu(k,4) - lu(k,429) = lu(k,429) - lu(k,5) * lu(k,426) - lu(k,442) = lu(k,442) - lu(k,6) * lu(k,426) - lu(k,521) = - lu(k,5) * lu(k,515) - lu(k,537) = - lu(k,6) * lu(k,515) + lu(k,424) = lu(k,424) - lu(k,5) * lu(k,421) + lu(k,437) = lu(k,437) - lu(k,6) * lu(k,421) + lu(k,522) = - lu(k,5) * lu(k,516) + lu(k,538) = - lu(k,6) * lu(k,516) lu(k,7) = 1._r8 / lu(k,7) lu(k,8) = lu(k,8) * lu(k,7) lu(k,9) = lu(k,9) * lu(k,7) - lu(k,365) = lu(k,365) - lu(k,8) * lu(k,352) - lu(k,372) = lu(k,372) - lu(k,9) * lu(k,352) - lu(k,416) = lu(k,416) - lu(k,8) * lu(k,401) - lu(k,423) = lu(k,423) - lu(k,9) * lu(k,401) + lu(k,464) = lu(k,464) - lu(k,8) * lu(k,447) + lu(k,471) = lu(k,471) - lu(k,9) * lu(k,447) + lu(k,487) = lu(k,487) - lu(k,8) * lu(k,472) + lu(k,494) = lu(k,494) - lu(k,9) * lu(k,472) lu(k,10) = 1._r8 / lu(k,10) lu(k,11) = lu(k,11) * lu(k,10) lu(k,14) = lu(k,14) - lu(k,11) * lu(k,12) lu(k,236) = lu(k,236) - lu(k,11) * lu(k,224) - lu(k,591) = lu(k,591) - lu(k,11) * lu(k,571) - lu(k,632) = lu(k,632) - lu(k,11) * lu(k,630) + lu(k,593) = lu(k,593) - lu(k,11) * lu(k,591) + lu(k,629) = lu(k,629) - lu(k,11) * lu(k,609) lu(k,13) = 1._r8 / lu(k,13) lu(k,14) = lu(k,14) * lu(k,13) lu(k,236) = lu(k,236) - lu(k,14) * lu(k,225) - lu(k,432) = lu(k,432) - lu(k,14) * lu(k,427) - lu(k,591) = lu(k,591) - lu(k,14) * lu(k,572) - lu(k,632) = lu(k,632) - lu(k,14) * lu(k,631) + lu(k,427) = lu(k,427) - lu(k,14) * lu(k,422) + lu(k,593) = lu(k,593) - lu(k,14) * lu(k,592) + lu(k,629) = lu(k,629) - lu(k,14) * lu(k,610) lu(k,15) = 1._r8 / lu(k,15) lu(k,16) = lu(k,16) * lu(k,15) - lu(k,114) = lu(k,114) - lu(k,16) * lu(k,110) - lu(k,209) = lu(k,209) - lu(k,16) * lu(k,202) - lu(k,268) = lu(k,268) - lu(k,16) * lu(k,257) - lu(k,389) = lu(k,389) - lu(k,16) * lu(k,375) - lu(k,415) = lu(k,415) - lu(k,16) * lu(k,402) + lu(k,124) = lu(k,124) - lu(k,16) * lu(k,118) + lu(k,212) = lu(k,212) - lu(k,16) * lu(k,202) + lu(k,275) = lu(k,275) - lu(k,16) * lu(k,257) + lu(k,469) = lu(k,469) - lu(k,16) * lu(k,448) + lu(k,588) = lu(k,588) - lu(k,16) * lu(k,566) lu(k,17) = 1._r8 / lu(k,17) lu(k,18) = lu(k,18) * lu(k,17) lu(k,19) = lu(k,19) * lu(k,17) lu(k,20) = lu(k,20) * lu(k,17) - lu(k,429) = lu(k,429) - lu(k,18) * lu(k,428) - lu(k,440) = lu(k,440) - lu(k,19) * lu(k,428) - lu(k,442) = lu(k,442) - lu(k,20) * lu(k,428) - lu(k,521) = lu(k,521) - lu(k,18) * lu(k,516) - lu(k,535) = lu(k,535) - lu(k,19) * lu(k,516) - lu(k,537) = lu(k,537) - lu(k,20) * lu(k,516) + lu(k,424) = lu(k,424) - lu(k,18) * lu(k,423) + lu(k,437) = lu(k,437) - lu(k,19) * lu(k,423) + lu(k,443) = lu(k,443) - lu(k,20) * lu(k,423) + lu(k,522) = lu(k,522) - lu(k,18) * lu(k,517) + lu(k,538) = lu(k,538) - lu(k,19) * lu(k,517) + lu(k,544) = lu(k,544) - lu(k,20) * lu(k,517) lu(k,21) = 1._r8 / lu(k,21) lu(k,22) = lu(k,22) * lu(k,21) lu(k,23) = lu(k,23) * lu(k,21) - lu(k,97) = - lu(k,22) * lu(k,92) - lu(k,98) = lu(k,98) - lu(k,23) * lu(k,92) - lu(k,268) = lu(k,268) - lu(k,22) * lu(k,258) - lu(k,271) = - lu(k,23) * lu(k,258) - lu(k,364) = lu(k,364) - lu(k,22) * lu(k,353) - lu(k,367) = lu(k,367) - lu(k,23) * lu(k,353) - lu(k,415) = lu(k,415) - lu(k,22) * lu(k,403) - lu(k,418) = lu(k,418) - lu(k,23) * lu(k,403) + lu(k,96) = lu(k,96) - lu(k,22) * lu(k,92) + lu(k,99) = - lu(k,23) * lu(k,92) + lu(k,266) = - lu(k,22) * lu(k,258) + lu(k,275) = lu(k,275) - lu(k,23) * lu(k,258) + lu(k,459) = lu(k,459) - lu(k,22) * lu(k,449) + lu(k,469) = lu(k,469) - lu(k,23) * lu(k,449) + lu(k,482) = lu(k,482) - lu(k,22) * lu(k,473) + lu(k,492) = lu(k,492) - lu(k,23) * lu(k,473) lu(k,24) = 1._r8 / lu(k,24) lu(k,25) = lu(k,25) * lu(k,24) lu(k,26) = lu(k,26) * lu(k,24) @@ -85,45 +85,45 @@ subroutine lu_fac01( avec_len, lu ) lu(k,218) = - lu(k,26) * lu(k,214) lu(k,246) = lu(k,246) - lu(k,25) * lu(k,245) lu(k,249) = lu(k,249) - lu(k,26) * lu(k,245) - lu(k,611) = lu(k,611) - lu(k,25) * lu(k,610) - lu(k,615) = lu(k,615) - lu(k,26) * lu(k,610) + lu(k,355) = lu(k,355) - lu(k,25) * lu(k,354) + lu(k,359) = lu(k,359) - lu(k,26) * lu(k,354) lu(k,27) = 1._r8 / lu(k,27) lu(k,28) = lu(k,28) * lu(k,27) lu(k,29) = lu(k,29) * lu(k,27) lu(k,30) = lu(k,30) * lu(k,27) lu(k,31) = lu(k,31) * lu(k,27) lu(k,32) = lu(k,32) * lu(k,27) - lu(k,311) = lu(k,311) - lu(k,28) * lu(k,309) - lu(k,316) = lu(k,316) - lu(k,29) * lu(k,309) - lu(k,317) = lu(k,317) - lu(k,30) * lu(k,309) - lu(k,324) = lu(k,324) - lu(k,31) * lu(k,309) - lu(k,327) = lu(k,327) - lu(k,32) * lu(k,309) - lu(k,496) = lu(k,496) - lu(k,28) * lu(k,490) - lu(k,501) = lu(k,501) - lu(k,29) * lu(k,490) - lu(k,502) = lu(k,502) - lu(k,30) * lu(k,490) - lu(k,509) = lu(k,509) - lu(k,31) * lu(k,490) - lu(k,512) = lu(k,512) - lu(k,32) * lu(k,490) + lu(k,402) = lu(k,402) - lu(k,28) * lu(k,396) + lu(k,410) = lu(k,410) - lu(k,29) * lu(k,396) + lu(k,411) = lu(k,411) - lu(k,30) * lu(k,396) + lu(k,415) = lu(k,415) - lu(k,31) * lu(k,396) + lu(k,420) = lu(k,420) - lu(k,32) * lu(k,396) + lu(k,497) = lu(k,497) - lu(k,28) * lu(k,495) + lu(k,505) = lu(k,505) - lu(k,29) * lu(k,495) + lu(k,506) = lu(k,506) - lu(k,30) * lu(k,495) + lu(k,510) = lu(k,510) - lu(k,31) * lu(k,495) + lu(k,515) = lu(k,515) - lu(k,32) * lu(k,495) lu(k,33) = 1._r8 / lu(k,33) lu(k,34) = lu(k,34) * lu(k,33) lu(k,35) = lu(k,35) * lu(k,33) lu(k,36) = lu(k,36) * lu(k,33) lu(k,37) = lu(k,37) * lu(k,33) lu(k,38) = lu(k,38) * lu(k,33) - lu(k,473) = - lu(k,34) * lu(k,471) - lu(k,474) = lu(k,474) - lu(k,35) * lu(k,471) - lu(k,475) = - lu(k,36) * lu(k,471) - lu(k,483) = lu(k,483) - lu(k,37) * lu(k,471) - lu(k,485) = - lu(k,38) * lu(k,471) - lu(k,528) = lu(k,528) - lu(k,34) * lu(k,517) - lu(k,530) = lu(k,530) - lu(k,35) * lu(k,517) - lu(k,531) = lu(k,531) - lu(k,36) * lu(k,517) - lu(k,539) = lu(k,539) - lu(k,37) * lu(k,517) - lu(k,541) = lu(k,541) - lu(k,38) * lu(k,517) - lu(k,553) = lu(k,553) - lu(k,34) * lu(k,546) - lu(k,555) = - lu(k,35) * lu(k,546) - lu(k,556) = lu(k,556) - lu(k,36) * lu(k,546) - lu(k,564) = lu(k,564) - lu(k,37) * lu(k,546) - lu(k,566) = lu(k,566) - lu(k,38) * lu(k,546) + lu(k,316) = lu(k,316) - lu(k,34) * lu(k,309) + lu(k,318) = - lu(k,35) * lu(k,309) + lu(k,319) = lu(k,319) - lu(k,36) * lu(k,309) + lu(k,329) = lu(k,329) - lu(k,37) * lu(k,309) + lu(k,330) = lu(k,330) - lu(k,38) * lu(k,309) + lu(k,529) = lu(k,529) - lu(k,34) * lu(k,518) + lu(k,531) = lu(k,531) - lu(k,35) * lu(k,518) + lu(k,532) = lu(k,532) - lu(k,36) * lu(k,518) + lu(k,542) = lu(k,542) - lu(k,37) * lu(k,518) + lu(k,543) = lu(k,543) - lu(k,38) * lu(k,518) + lu(k,549) = - lu(k,34) * lu(k,547) + lu(k,550) = lu(k,550) - lu(k,35) * lu(k,547) + lu(k,551) = - lu(k,36) * lu(k,547) + lu(k,561) = - lu(k,37) * lu(k,547) + lu(k,562) = lu(k,562) - lu(k,38) * lu(k,547) lu(k,39) = 1._r8 / lu(k,39) lu(k,40) = lu(k,40) * lu(k,39) lu(k,41) = lu(k,41) * lu(k,39) @@ -131,24 +131,24 @@ subroutine lu_fac01( avec_len, lu ) lu(k,43) = lu(k,43) * lu(k,39) lu(k,44) = lu(k,44) * lu(k,39) lu(k,45) = lu(k,45) * lu(k,39) - lu(k,497) = lu(k,497) - lu(k,40) * lu(k,491) - lu(k,498) = - lu(k,41) * lu(k,491) - lu(k,501) = lu(k,501) - lu(k,42) * lu(k,491) - lu(k,509) = lu(k,509) - lu(k,43) * lu(k,491) - lu(k,510) = lu(k,510) - lu(k,44) * lu(k,491) - lu(k,511) = lu(k,511) - lu(k,45) * lu(k,491) - lu(k,527) = lu(k,527) - lu(k,40) * lu(k,518) - lu(k,528) = lu(k,528) - lu(k,41) * lu(k,518) - lu(k,532) = lu(k,532) - lu(k,42) * lu(k,518) - lu(k,540) = lu(k,540) - lu(k,43) * lu(k,518) - lu(k,541) = lu(k,541) - lu(k,44) * lu(k,518) - lu(k,542) = lu(k,542) - lu(k,45) * lu(k,518) - lu(k,552) = lu(k,552) - lu(k,40) * lu(k,547) - lu(k,553) = lu(k,553) - lu(k,41) * lu(k,547) - lu(k,557) = lu(k,557) - lu(k,42) * lu(k,547) - lu(k,565) = lu(k,565) - lu(k,43) * lu(k,547) - lu(k,566) = lu(k,566) - lu(k,44) * lu(k,547) - lu(k,567) = lu(k,567) - lu(k,45) * lu(k,547) + lu(k,315) = lu(k,315) - lu(k,40) * lu(k,310) + lu(k,316) = lu(k,316) - lu(k,41) * lu(k,310) + lu(k,320) = lu(k,320) - lu(k,42) * lu(k,310) + lu(k,324) = lu(k,324) - lu(k,43) * lu(k,310) + lu(k,328) = lu(k,328) - lu(k,44) * lu(k,310) + lu(k,329) = lu(k,329) - lu(k,45) * lu(k,310) + lu(k,403) = lu(k,403) - lu(k,40) * lu(k,397) + lu(k,404) = - lu(k,41) * lu(k,397) + lu(k,407) = lu(k,407) - lu(k,42) * lu(k,397) + lu(k,411) = lu(k,411) - lu(k,43) * lu(k,397) + lu(k,415) = lu(k,415) - lu(k,44) * lu(k,397) + lu(k,416) = lu(k,416) - lu(k,45) * lu(k,397) + lu(k,528) = lu(k,528) - lu(k,40) * lu(k,519) + lu(k,529) = lu(k,529) - lu(k,41) * lu(k,519) + lu(k,533) = lu(k,533) - lu(k,42) * lu(k,519) + lu(k,537) = lu(k,537) - lu(k,43) * lu(k,519) + lu(k,541) = lu(k,541) - lu(k,44) * lu(k,519) + lu(k,542) = lu(k,542) - lu(k,45) * lu(k,519) end do end subroutine lu_fac01 subroutine lu_fac02( avec_len, lu ) @@ -176,20 +176,20 @@ subroutine lu_fac02( avec_len, lu ) lu(k,159) = lu(k,159) - lu(k,48) * lu(k,157) lu(k,161) = - lu(k,49) * lu(k,157) lu(k,162) = lu(k,162) - lu(k,50) * lu(k,157) - lu(k,169) = - lu(k,51) * lu(k,157) + lu(k,170) = - lu(k,51) * lu(k,157) lu(k,173) = lu(k,173) - lu(k,52) * lu(k,157) lu(k,227) = lu(k,227) - lu(k,47) * lu(k,226) lu(k,228) = lu(k,228) - lu(k,48) * lu(k,226) lu(k,230) = lu(k,230) - lu(k,49) * lu(k,226) lu(k,231) = lu(k,231) - lu(k,50) * lu(k,226) - lu(k,238) = lu(k,238) - lu(k,51) * lu(k,226) - lu(k,243) = lu(k,243) - lu(k,52) * lu(k,226) - lu(k,574) = lu(k,574) - lu(k,47) * lu(k,573) - lu(k,578) = lu(k,578) - lu(k,48) * lu(k,573) - lu(k,583) = lu(k,583) - lu(k,49) * lu(k,573) - lu(k,584) = lu(k,584) - lu(k,50) * lu(k,573) - lu(k,597) = lu(k,597) - lu(k,51) * lu(k,573) - lu(k,607) = lu(k,607) - lu(k,52) * lu(k,573) + lu(k,239) = lu(k,239) - lu(k,51) * lu(k,226) + lu(k,244) = lu(k,244) - lu(k,52) * lu(k,226) + lu(k,612) = lu(k,612) - lu(k,47) * lu(k,611) + lu(k,616) = lu(k,616) - lu(k,48) * lu(k,611) + lu(k,621) = lu(k,621) - lu(k,49) * lu(k,611) + lu(k,622) = lu(k,622) - lu(k,50) * lu(k,611) + lu(k,637) = lu(k,637) - lu(k,51) * lu(k,611) + lu(k,647) = lu(k,647) - lu(k,52) * lu(k,611) lu(k,53) = 1._r8 / lu(k,53) lu(k,54) = lu(k,54) * lu(k,53) lu(k,55) = lu(k,55) * lu(k,53) @@ -205,12 +205,12 @@ subroutine lu_fac02( avec_len, lu ) lu(k,231) = lu(k,231) - lu(k,55) * lu(k,227) lu(k,232) = lu(k,232) - lu(k,56) * lu(k,227) lu(k,236) = lu(k,236) - lu(k,57) * lu(k,227) - lu(k,243) = lu(k,243) - lu(k,58) * lu(k,227) - lu(k,578) = lu(k,578) - lu(k,54) * lu(k,574) - lu(k,584) = lu(k,584) - lu(k,55) * lu(k,574) - lu(k,585) = - lu(k,56) * lu(k,574) - lu(k,591) = lu(k,591) - lu(k,57) * lu(k,574) - lu(k,607) = lu(k,607) - lu(k,58) * lu(k,574) + lu(k,244) = lu(k,244) - lu(k,58) * lu(k,227) + lu(k,616) = lu(k,616) - lu(k,54) * lu(k,612) + lu(k,622) = lu(k,622) - lu(k,55) * lu(k,612) + lu(k,623) = - lu(k,56) * lu(k,612) + lu(k,629) = lu(k,629) - lu(k,57) * lu(k,612) + lu(k,647) = lu(k,647) - lu(k,58) * lu(k,612) lu(k,59) = 1._r8 / lu(k,59) lu(k,60) = lu(k,60) * lu(k,59) lu(k,61) = lu(k,61) * lu(k,59) @@ -219,27 +219,27 @@ subroutine lu_fac02( avec_len, lu ) lu(k,64) = lu(k,64) * lu(k,59) lu(k,65) = lu(k,65) * lu(k,59) lu(k,66) = lu(k,66) * lu(k,59) - lu(k,355) = lu(k,355) - lu(k,60) * lu(k,354) - lu(k,356) = - lu(k,61) * lu(k,354) - lu(k,361) = - lu(k,62) * lu(k,354) - lu(k,363) = lu(k,363) - lu(k,63) * lu(k,354) - lu(k,367) = lu(k,367) - lu(k,64) * lu(k,354) - lu(k,369) = lu(k,369) - lu(k,65) * lu(k,354) - lu(k,372) = lu(k,372) - lu(k,66) * lu(k,354) - lu(k,493) = - lu(k,60) * lu(k,492) - lu(k,496) = lu(k,496) - lu(k,61) * lu(k,492) - lu(k,501) = lu(k,501) - lu(k,62) * lu(k,492) - lu(k,503) = lu(k,503) - lu(k,63) * lu(k,492) - lu(k,507) = - lu(k,64) * lu(k,492) - lu(k,509) = lu(k,509) - lu(k,65) * lu(k,492) - lu(k,512) = lu(k,512) - lu(k,66) * lu(k,492) - lu(k,580) = lu(k,580) - lu(k,60) * lu(k,575) - lu(k,590) = - lu(k,61) * lu(k,575) - lu(k,596) = lu(k,596) - lu(k,62) * lu(k,575) - lu(k,598) = lu(k,598) - lu(k,63) * lu(k,575) - lu(k,602) = lu(k,602) - lu(k,64) * lu(k,575) - lu(k,604) = lu(k,604) - lu(k,65) * lu(k,575) - lu(k,607) = lu(k,607) - lu(k,66) * lu(k,575) + lu(k,399) = - lu(k,60) * lu(k,398) + lu(k,402) = lu(k,402) - lu(k,61) * lu(k,398) + lu(k,408) = - lu(k,62) * lu(k,398) + lu(k,411) = lu(k,411) - lu(k,63) * lu(k,398) + lu(k,414) = lu(k,414) - lu(k,64) * lu(k,398) + lu(k,415) = lu(k,415) - lu(k,65) * lu(k,398) + lu(k,420) = lu(k,420) - lu(k,66) * lu(k,398) + lu(k,475) = lu(k,475) - lu(k,60) * lu(k,474) + lu(k,476) = - lu(k,61) * lu(k,474) + lu(k,482) = lu(k,482) - lu(k,62) * lu(k,474) + lu(k,485) = lu(k,485) - lu(k,63) * lu(k,474) + lu(k,488) = lu(k,488) - lu(k,64) * lu(k,474) + lu(k,489) = - lu(k,65) * lu(k,474) + lu(k,494) = lu(k,494) - lu(k,66) * lu(k,474) + lu(k,618) = lu(k,618) - lu(k,60) * lu(k,613) + lu(k,628) = - lu(k,61) * lu(k,613) + lu(k,635) = lu(k,635) - lu(k,62) * lu(k,613) + lu(k,638) = lu(k,638) - lu(k,63) * lu(k,613) + lu(k,641) = lu(k,641) - lu(k,64) * lu(k,613) + lu(k,642) = lu(k,642) - lu(k,65) * lu(k,613) + lu(k,647) = lu(k,647) - lu(k,66) * lu(k,613) lu(k,67) = 1._r8 / lu(k,67) lu(k,68) = lu(k,68) * lu(k,67) lu(k,69) = lu(k,69) * lu(k,67) @@ -248,23 +248,23 @@ subroutine lu_fac02( avec_len, lu ) lu(k,145) = - lu(k,69) * lu(k,135) lu(k,146) = - lu(k,70) * lu(k,135) lu(k,283) = lu(k,283) - lu(k,68) * lu(k,277) - lu(k,292) = lu(k,292) - lu(k,69) * lu(k,277) - lu(k,293) = lu(k,293) - lu(k,70) * lu(k,277) - lu(k,315) = - lu(k,68) * lu(k,310) - lu(k,325) = lu(k,325) - lu(k,69) * lu(k,310) - lu(k,326) = lu(k,326) - lu(k,70) * lu(k,310) - lu(k,385) = lu(k,385) - lu(k,68) * lu(k,376) - lu(k,395) = lu(k,395) - lu(k,69) * lu(k,376) - lu(k,396) = lu(k,396) - lu(k,70) * lu(k,376) - lu(k,456) = - lu(k,68) * lu(k,451) - lu(k,466) = - lu(k,69) * lu(k,451) - lu(k,467) = lu(k,467) - lu(k,70) * lu(k,451) - lu(k,531) = lu(k,531) - lu(k,68) * lu(k,519) - lu(k,541) = lu(k,541) - lu(k,69) * lu(k,519) - lu(k,542) = lu(k,542) - lu(k,70) * lu(k,519) - lu(k,595) = lu(k,595) - lu(k,68) * lu(k,576) - lu(k,605) = lu(k,605) - lu(k,69) * lu(k,576) - lu(k,606) = lu(k,606) - lu(k,70) * lu(k,576) + lu(k,284) = lu(k,284) - lu(k,69) * lu(k,277) + lu(k,292) = lu(k,292) - lu(k,70) * lu(k,277) + lu(k,339) = - lu(k,68) * lu(k,334) + lu(k,340) = lu(k,340) - lu(k,69) * lu(k,334) + lu(k,349) = - lu(k,70) * lu(k,334) + lu(k,501) = - lu(k,68) * lu(k,496) + lu(k,502) = lu(k,502) - lu(k,69) * lu(k,496) + lu(k,511) = lu(k,511) - lu(k,70) * lu(k,496) + lu(k,532) = lu(k,532) - lu(k,68) * lu(k,520) + lu(k,533) = lu(k,533) - lu(k,69) * lu(k,520) + lu(k,542) = lu(k,542) - lu(k,70) * lu(k,520) + lu(k,576) = lu(k,576) - lu(k,68) * lu(k,567) + lu(k,577) = lu(k,577) - lu(k,69) * lu(k,567) + lu(k,586) = lu(k,586) - lu(k,70) * lu(k,567) + lu(k,633) = lu(k,633) - lu(k,68) * lu(k,614) + lu(k,634) = lu(k,634) - lu(k,69) * lu(k,614) + lu(k,643) = lu(k,643) - lu(k,70) * lu(k,614) lu(k,71) = 1._r8 / lu(k,71) lu(k,72) = lu(k,72) * lu(k,71) lu(k,73) = lu(k,73) * lu(k,71) @@ -272,30 +272,30 @@ subroutine lu_fac02( avec_len, lu ) lu(k,75) = lu(k,75) * lu(k,71) lu(k,76) = lu(k,76) * lu(k,71) lu(k,77) = lu(k,77) * lu(k,71) - lu(k,382) = - lu(k,72) * lu(k,377) - lu(k,383) = lu(k,383) - lu(k,73) * lu(k,377) - lu(k,389) = lu(k,389) - lu(k,74) * lu(k,377) - lu(k,395) = lu(k,395) - lu(k,75) * lu(k,377) - lu(k,396) = lu(k,396) - lu(k,76) * lu(k,377) - lu(k,397) = - lu(k,77) * lu(k,377) - lu(k,528) = lu(k,528) - lu(k,72) * lu(k,520) - lu(k,529) = lu(k,529) - lu(k,73) * lu(k,520) - lu(k,535) = lu(k,535) - lu(k,74) * lu(k,520) - lu(k,541) = lu(k,541) - lu(k,75) * lu(k,520) - lu(k,542) = lu(k,542) - lu(k,76) * lu(k,520) - lu(k,543) = lu(k,543) - lu(k,77) * lu(k,520) - lu(k,553) = lu(k,553) - lu(k,72) * lu(k,548) - lu(k,554) = lu(k,554) - lu(k,73) * lu(k,548) - lu(k,560) = lu(k,560) - lu(k,74) * lu(k,548) - lu(k,566) = lu(k,566) - lu(k,75) * lu(k,548) - lu(k,567) = lu(k,567) - lu(k,76) * lu(k,548) - lu(k,568) = lu(k,568) - lu(k,77) * lu(k,548) - lu(k,592) = - lu(k,72) * lu(k,577) - lu(k,593) = lu(k,593) - lu(k,73) * lu(k,577) - lu(k,599) = lu(k,599) - lu(k,74) * lu(k,577) - lu(k,605) = lu(k,605) - lu(k,75) * lu(k,577) - lu(k,606) = lu(k,606) - lu(k,76) * lu(k,577) - lu(k,607) = lu(k,607) - lu(k,77) * lu(k,577) + lu(k,316) = lu(k,316) - lu(k,72) * lu(k,311) + lu(k,317) = lu(k,317) - lu(k,73) * lu(k,311) + lu(k,320) = lu(k,320) - lu(k,74) * lu(k,311) + lu(k,329) = lu(k,329) - lu(k,75) * lu(k,311) + lu(k,331) = lu(k,331) - lu(k,76) * lu(k,311) + lu(k,333) = lu(k,333) - lu(k,77) * lu(k,311) + lu(k,529) = lu(k,529) - lu(k,72) * lu(k,521) + lu(k,530) = lu(k,530) - lu(k,73) * lu(k,521) + lu(k,533) = lu(k,533) - lu(k,74) * lu(k,521) + lu(k,542) = lu(k,542) - lu(k,75) * lu(k,521) + lu(k,544) = lu(k,544) - lu(k,76) * lu(k,521) + lu(k,546) = lu(k,546) - lu(k,77) * lu(k,521) + lu(k,573) = - lu(k,72) * lu(k,568) + lu(k,574) = lu(k,574) - lu(k,73) * lu(k,568) + lu(k,577) = lu(k,577) - lu(k,74) * lu(k,568) + lu(k,586) = lu(k,586) - lu(k,75) * lu(k,568) + lu(k,588) = lu(k,588) - lu(k,76) * lu(k,568) + lu(k,590) = - lu(k,77) * lu(k,568) + lu(k,630) = - lu(k,72) * lu(k,615) + lu(k,631) = lu(k,631) - lu(k,73) * lu(k,615) + lu(k,634) = lu(k,634) - lu(k,74) * lu(k,615) + lu(k,643) = lu(k,643) - lu(k,75) * lu(k,615) + lu(k,645) = lu(k,645) - lu(k,76) * lu(k,615) + lu(k,647) = lu(k,647) - lu(k,77) * lu(k,615) lu(k,78) = 1._r8 / lu(k,78) lu(k,79) = lu(k,79) * lu(k,78) lu(k,80) = lu(k,80) * lu(k,78) @@ -320,15 +320,15 @@ subroutine lu_fac02( avec_len, lu ) lu(k,234) = lu(k,234) - lu(k,83) * lu(k,228) lu(k,235) = lu(k,235) - lu(k,84) * lu(k,228) lu(k,236) = lu(k,236) - lu(k,85) * lu(k,228) - lu(k,243) = lu(k,243) - lu(k,86) * lu(k,228) - lu(k,579) = lu(k,579) - lu(k,79) * lu(k,578) - lu(k,584) = lu(k,584) - lu(k,80) * lu(k,578) - lu(k,585) = lu(k,585) - lu(k,81) * lu(k,578) - lu(k,586) = lu(k,586) - lu(k,82) * lu(k,578) - lu(k,587) = lu(k,587) - lu(k,83) * lu(k,578) - lu(k,588) = lu(k,588) - lu(k,84) * lu(k,578) - lu(k,591) = lu(k,591) - lu(k,85) * lu(k,578) - lu(k,607) = lu(k,607) - lu(k,86) * lu(k,578) + lu(k,244) = lu(k,244) - lu(k,86) * lu(k,228) + lu(k,617) = lu(k,617) - lu(k,79) * lu(k,616) + lu(k,622) = lu(k,622) - lu(k,80) * lu(k,616) + lu(k,623) = lu(k,623) - lu(k,81) * lu(k,616) + lu(k,624) = lu(k,624) - lu(k,82) * lu(k,616) + lu(k,625) = lu(k,625) - lu(k,83) * lu(k,616) + lu(k,626) = lu(k,626) - lu(k,84) * lu(k,616) + lu(k,629) = lu(k,629) - lu(k,85) * lu(k,616) + lu(k,647) = lu(k,647) - lu(k,86) * lu(k,616) end do end subroutine lu_fac02 subroutine lu_fac03( avec_len, lu ) @@ -373,15 +373,15 @@ subroutine lu_fac03( avec_len, lu ) lu(k,233) = lu(k,233) - lu(k,88) * lu(k,229) lu(k,234) = lu(k,234) - lu(k,89) * lu(k,229) lu(k,235) = lu(k,235) - lu(k,90) * lu(k,229) - lu(k,243) = lu(k,243) - lu(k,91) * lu(k,229) - lu(k,332) = lu(k,332) - lu(k,88) * lu(k,330) - lu(k,333) = - lu(k,89) * lu(k,330) - lu(k,334) = lu(k,334) - lu(k,90) * lu(k,330) - lu(k,349) = lu(k,349) - lu(k,91) * lu(k,330) - lu(k,586) = lu(k,586) - lu(k,88) * lu(k,579) - lu(k,587) = lu(k,587) - lu(k,89) * lu(k,579) - lu(k,588) = lu(k,588) - lu(k,90) * lu(k,579) - lu(k,607) = lu(k,607) - lu(k,91) * lu(k,579) + lu(k,244) = lu(k,244) - lu(k,91) * lu(k,229) + lu(k,376) = lu(k,376) - lu(k,88) * lu(k,374) + lu(k,377) = - lu(k,89) * lu(k,374) + lu(k,378) = lu(k,378) - lu(k,90) * lu(k,374) + lu(k,395) = lu(k,395) - lu(k,91) * lu(k,374) + lu(k,624) = lu(k,624) - lu(k,88) * lu(k,617) + lu(k,625) = lu(k,625) - lu(k,89) * lu(k,617) + lu(k,626) = lu(k,626) - lu(k,90) * lu(k,617) + lu(k,647) = lu(k,647) - lu(k,91) * lu(k,617) lu(k,93) = 1._r8 / lu(k,93) lu(k,94) = lu(k,94) * lu(k,93) lu(k,95) = lu(k,95) * lu(k,93) @@ -392,39 +392,39 @@ subroutine lu_fac03( avec_len, lu ) lu(k,100) = lu(k,100) * lu(k,93) lu(k,263) = lu(k,263) - lu(k,94) * lu(k,259) lu(k,264) = lu(k,264) - lu(k,95) * lu(k,259) - lu(k,267) = - lu(k,96) * lu(k,259) - lu(k,268) = lu(k,268) - lu(k,97) * lu(k,259) - lu(k,271) = lu(k,271) - lu(k,98) * lu(k,259) - lu(k,274) = lu(k,274) - lu(k,99) * lu(k,259) - lu(k,275) = lu(k,275) - lu(k,100) * lu(k,259) - lu(k,358) = - lu(k,94) * lu(k,355) - lu(k,359) = - lu(k,95) * lu(k,355) - lu(k,363) = lu(k,363) - lu(k,96) * lu(k,355) - lu(k,364) = lu(k,364) - lu(k,97) * lu(k,355) - lu(k,367) = lu(k,367) - lu(k,98) * lu(k,355) - lu(k,370) = lu(k,370) - lu(k,99) * lu(k,355) - lu(k,372) = lu(k,372) - lu(k,100) * lu(k,355) - lu(k,498) = lu(k,498) - lu(k,94) * lu(k,493) - lu(k,499) = - lu(k,95) * lu(k,493) - lu(k,503) = lu(k,503) - lu(k,96) * lu(k,493) - lu(k,504) = - lu(k,97) * lu(k,493) - lu(k,507) = lu(k,507) - lu(k,98) * lu(k,493) - lu(k,510) = lu(k,510) - lu(k,99) * lu(k,493) - lu(k,512) = lu(k,512) - lu(k,100) * lu(k,493) - lu(k,553) = lu(k,553) - lu(k,94) * lu(k,549) - lu(k,554) = lu(k,554) - lu(k,95) * lu(k,549) - lu(k,559) = lu(k,559) - lu(k,96) * lu(k,549) - lu(k,560) = lu(k,560) - lu(k,97) * lu(k,549) - lu(k,563) = lu(k,563) - lu(k,98) * lu(k,549) - lu(k,566) = lu(k,566) - lu(k,99) * lu(k,549) - lu(k,568) = lu(k,568) - lu(k,100) * lu(k,549) - lu(k,592) = lu(k,592) - lu(k,94) * lu(k,580) - lu(k,593) = lu(k,593) - lu(k,95) * lu(k,580) - lu(k,598) = lu(k,598) - lu(k,96) * lu(k,580) - lu(k,599) = lu(k,599) - lu(k,97) * lu(k,580) - lu(k,602) = lu(k,602) - lu(k,98) * lu(k,580) - lu(k,605) = lu(k,605) - lu(k,99) * lu(k,580) - lu(k,607) = lu(k,607) - lu(k,100) * lu(k,580) + lu(k,266) = lu(k,266) - lu(k,96) * lu(k,259) + lu(k,271) = - lu(k,97) * lu(k,259) + lu(k,273) = lu(k,273) - lu(k,98) * lu(k,259) + lu(k,275) = lu(k,275) - lu(k,99) * lu(k,259) + lu(k,276) = lu(k,276) - lu(k,100) * lu(k,259) + lu(k,316) = lu(k,316) - lu(k,94) * lu(k,312) + lu(k,317) = lu(k,317) - lu(k,95) * lu(k,312) + lu(k,321) = lu(k,321) - lu(k,96) * lu(k,312) + lu(k,327) = lu(k,327) - lu(k,97) * lu(k,312) + lu(k,329) = lu(k,329) - lu(k,98) * lu(k,312) + lu(k,331) = lu(k,331) - lu(k,99) * lu(k,312) + lu(k,333) = lu(k,333) - lu(k,100) * lu(k,312) + lu(k,404) = lu(k,404) - lu(k,94) * lu(k,399) + lu(k,405) = - lu(k,95) * lu(k,399) + lu(k,408) = lu(k,408) - lu(k,96) * lu(k,399) + lu(k,414) = lu(k,414) - lu(k,97) * lu(k,399) + lu(k,416) = lu(k,416) - lu(k,98) * lu(k,399) + lu(k,418) = - lu(k,99) * lu(k,399) + lu(k,420) = lu(k,420) - lu(k,100) * lu(k,399) + lu(k,478) = - lu(k,94) * lu(k,475) + lu(k,479) = - lu(k,95) * lu(k,475) + lu(k,482) = lu(k,482) - lu(k,96) * lu(k,475) + lu(k,488) = lu(k,488) - lu(k,97) * lu(k,475) + lu(k,490) = lu(k,490) - lu(k,98) * lu(k,475) + lu(k,492) = lu(k,492) - lu(k,99) * lu(k,475) + lu(k,494) = lu(k,494) - lu(k,100) * lu(k,475) + lu(k,630) = lu(k,630) - lu(k,94) * lu(k,618) + lu(k,631) = lu(k,631) - lu(k,95) * lu(k,618) + lu(k,635) = lu(k,635) - lu(k,96) * lu(k,618) + lu(k,641) = lu(k,641) - lu(k,97) * lu(k,618) + lu(k,643) = lu(k,643) - lu(k,98) * lu(k,618) + lu(k,645) = lu(k,645) - lu(k,99) * lu(k,618) + lu(k,647) = lu(k,647) - lu(k,100) * lu(k,618) lu(k,102) = 1._r8 / lu(k,102) lu(k,103) = lu(k,103) * lu(k,102) lu(k,104) = lu(k,104) * lu(k,102) @@ -436,87 +436,88 @@ subroutine lu_fac03( avec_len, lu ) lu(k,216) = lu(k,216) - lu(k,103) * lu(k,215) lu(k,217) = lu(k,217) - lu(k,104) * lu(k,215) lu(k,218) = lu(k,218) - lu(k,105) * lu(k,215) - lu(k,219) = lu(k,219) - lu(k,106) * lu(k,215) - lu(k,220) = - lu(k,107) * lu(k,215) + lu(k,219) = - lu(k,106) * lu(k,215) + lu(k,221) = lu(k,221) - lu(k,107) * lu(k,215) lu(k,222) = lu(k,222) - lu(k,108) * lu(k,215) lu(k,223) = - lu(k,109) * lu(k,215) lu(k,247) = - lu(k,103) * lu(k,246) lu(k,248) = lu(k,248) - lu(k,104) * lu(k,246) lu(k,249) = lu(k,249) - lu(k,105) * lu(k,246) - lu(k,250) = - lu(k,106) * lu(k,246) - lu(k,252) = - lu(k,107) * lu(k,246) + lu(k,250) = lu(k,250) - lu(k,106) * lu(k,246) + lu(k,253) = - lu(k,107) * lu(k,246) lu(k,254) = lu(k,254) - lu(k,108) * lu(k,246) - lu(k,256) = lu(k,256) - lu(k,109) * lu(k,246) - lu(k,431) = - lu(k,103) * lu(k,429) - lu(k,433) = lu(k,433) - lu(k,104) * lu(k,429) - lu(k,436) = lu(k,436) - lu(k,105) * lu(k,429) - lu(k,437) = - lu(k,106) * lu(k,429) - lu(k,444) = lu(k,444) - lu(k,107) * lu(k,429) - lu(k,446) = lu(k,446) - lu(k,108) * lu(k,429) - lu(k,449) = lu(k,449) - lu(k,109) * lu(k,429) - lu(k,526) = lu(k,526) - lu(k,103) * lu(k,521) - lu(k,528) = lu(k,528) - lu(k,104) * lu(k,521) - lu(k,531) = lu(k,531) - lu(k,105) * lu(k,521) - lu(k,532) = lu(k,532) - lu(k,106) * lu(k,521) - lu(k,539) = lu(k,539) - lu(k,107) * lu(k,521) - lu(k,541) = lu(k,541) - lu(k,108) * lu(k,521) - lu(k,544) = lu(k,544) - lu(k,109) * lu(k,521) - lu(k,612) = - lu(k,103) * lu(k,611) - lu(k,613) = lu(k,613) - lu(k,104) * lu(k,611) - lu(k,615) = lu(k,615) - lu(k,105) * lu(k,611) - lu(k,616) = - lu(k,106) * lu(k,611) - lu(k,623) = - lu(k,107) * lu(k,611) - lu(k,625) = lu(k,625) - lu(k,108) * lu(k,611) - lu(k,628) = lu(k,628) - lu(k,109) * lu(k,611) - 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,115) = lu(k,115) * lu(k,111) - lu(k,116) = lu(k,116) * lu(k,111) - lu(k,117) = lu(k,117) * lu(k,111) - lu(k,206) = - lu(k,112) * lu(k,203) - lu(k,207) = lu(k,207) - lu(k,113) * lu(k,203) - lu(k,209) = lu(k,209) - lu(k,114) * lu(k,203) - lu(k,210) = lu(k,210) - lu(k,115) * lu(k,203) - lu(k,212) = lu(k,212) - lu(k,116) * lu(k,203) - lu(k,213) = lu(k,213) - lu(k,117) * lu(k,203) - lu(k,263) = lu(k,263) - lu(k,112) * lu(k,260) - lu(k,264) = lu(k,264) - lu(k,113) * lu(k,260) - lu(k,268) = lu(k,268) - lu(k,114) * lu(k,260) - lu(k,269) = lu(k,269) - lu(k,115) * lu(k,260) - lu(k,274) = lu(k,274) - lu(k,116) * lu(k,260) - lu(k,275) = lu(k,275) - lu(k,117) * lu(k,260) - lu(k,382) = lu(k,382) - lu(k,112) * lu(k,378) - lu(k,383) = lu(k,383) - lu(k,113) * lu(k,378) - lu(k,389) = lu(k,389) - lu(k,114) * lu(k,378) - lu(k,390) = lu(k,390) - lu(k,115) * lu(k,378) - lu(k,395) = lu(k,395) - lu(k,116) * lu(k,378) - lu(k,397) = lu(k,397) - lu(k,117) * lu(k,378) - lu(k,408) = - lu(k,112) * lu(k,404) - lu(k,409) = lu(k,409) - lu(k,113) * lu(k,404) - lu(k,415) = lu(k,415) - lu(k,114) * lu(k,404) - lu(k,416) = lu(k,416) - lu(k,115) * lu(k,404) - lu(k,421) = lu(k,421) - lu(k,116) * lu(k,404) - lu(k,423) = lu(k,423) - lu(k,117) * lu(k,404) - lu(k,528) = lu(k,528) - lu(k,112) * lu(k,522) - lu(k,529) = lu(k,529) - lu(k,113) * lu(k,522) - lu(k,535) = lu(k,535) - lu(k,114) * lu(k,522) - lu(k,536) = lu(k,536) - lu(k,115) * lu(k,522) - lu(k,541) = lu(k,541) - lu(k,116) * lu(k,522) - lu(k,543) = lu(k,543) - lu(k,117) * lu(k,522) - lu(k,553) = lu(k,553) - lu(k,112) * lu(k,550) - lu(k,554) = lu(k,554) - lu(k,113) * lu(k,550) - lu(k,560) = lu(k,560) - lu(k,114) * lu(k,550) - lu(k,561) = lu(k,561) - lu(k,115) * lu(k,550) - lu(k,566) = lu(k,566) - lu(k,116) * lu(k,550) - lu(k,568) = lu(k,568) - lu(k,117) * lu(k,550) - lu(k,592) = lu(k,592) - lu(k,112) * lu(k,581) - lu(k,593) = lu(k,593) - lu(k,113) * lu(k,581) - lu(k,599) = lu(k,599) - lu(k,114) * lu(k,581) - lu(k,600) = lu(k,600) - lu(k,115) * lu(k,581) - lu(k,605) = lu(k,605) - lu(k,116) * lu(k,581) - lu(k,607) = lu(k,607) - lu(k,117) * lu(k,581) + lu(k,255) = - lu(k,109) * lu(k,246) + lu(k,356) = - lu(k,103) * lu(k,355) + lu(k,357) = lu(k,357) - lu(k,104) * lu(k,355) + lu(k,359) = lu(k,359) - lu(k,105) * lu(k,355) + lu(k,362) = lu(k,362) - lu(k,106) * lu(k,355) + lu(k,368) = - lu(k,107) * lu(k,355) + lu(k,369) = lu(k,369) - lu(k,108) * lu(k,355) + lu(k,370) = - lu(k,109) * lu(k,355) + lu(k,426) = - lu(k,103) * lu(k,424) + lu(k,428) = lu(k,428) - lu(k,104) * lu(k,424) + lu(k,431) = lu(k,431) - lu(k,105) * lu(k,424) + lu(k,434) = lu(k,434) - lu(k,106) * lu(k,424) + lu(k,440) = - lu(k,107) * lu(k,424) + lu(k,441) = lu(k,441) - lu(k,108) * lu(k,424) + lu(k,442) = lu(k,442) - lu(k,109) * lu(k,424) + lu(k,527) = lu(k,527) - lu(k,103) * lu(k,522) + lu(k,529) = lu(k,529) - lu(k,104) * lu(k,522) + lu(k,532) = lu(k,532) - lu(k,105) * lu(k,522) + lu(k,535) = lu(k,535) - lu(k,106) * lu(k,522) + lu(k,541) = lu(k,541) - lu(k,107) * lu(k,522) + lu(k,542) = lu(k,542) - lu(k,108) * lu(k,522) + lu(k,543) = lu(k,543) - lu(k,109) * lu(k,522) + lu(k,110) = 1._r8 / lu(k,110) + lu(k,111) = lu(k,111) * lu(k,110) + lu(k,112) = lu(k,112) * lu(k,110) + lu(k,113) = lu(k,113) * lu(k,110) + lu(k,114) = lu(k,114) * lu(k,110) + lu(k,115) = lu(k,115) * lu(k,110) + lu(k,116) = lu(k,116) * lu(k,110) + lu(k,117) = lu(k,117) * lu(k,110) + lu(k,280) = lu(k,280) - lu(k,111) * lu(k,278) + lu(k,283) = lu(k,283) - lu(k,112) * lu(k,278) + lu(k,285) = lu(k,285) - lu(k,113) * lu(k,278) + lu(k,288) = - lu(k,114) * lu(k,278) + lu(k,290) = - lu(k,115) * lu(k,278) + lu(k,292) = lu(k,292) - lu(k,116) * lu(k,278) + lu(k,295) = lu(k,295) - lu(k,117) * lu(k,278) + lu(k,316) = lu(k,316) - lu(k,111) * lu(k,313) + lu(k,319) = lu(k,319) - lu(k,112) * lu(k,313) + lu(k,321) = lu(k,321) - lu(k,113) * lu(k,313) + lu(k,325) = - lu(k,114) * lu(k,313) + lu(k,327) = lu(k,327) - lu(k,115) * lu(k,313) + lu(k,329) = lu(k,329) - lu(k,116) * lu(k,313) + lu(k,333) = lu(k,333) - lu(k,117) * lu(k,313) + lu(k,337) = - lu(k,111) * lu(k,335) + lu(k,339) = lu(k,339) - lu(k,112) * lu(k,335) + lu(k,341) = lu(k,341) - lu(k,113) * lu(k,335) + lu(k,345) = - lu(k,114) * lu(k,335) + lu(k,347) = lu(k,347) - lu(k,115) * lu(k,335) + lu(k,349) = lu(k,349) - lu(k,116) * lu(k,335) + lu(k,353) = - lu(k,117) * lu(k,335) + lu(k,428) = lu(k,428) - lu(k,111) * lu(k,425) + lu(k,431) = lu(k,431) - lu(k,112) * lu(k,425) + lu(k,433) = lu(k,433) - lu(k,113) * lu(k,425) + lu(k,437) = lu(k,437) - lu(k,114) * lu(k,425) + lu(k,439) = lu(k,439) - lu(k,115) * lu(k,425) + lu(k,441) = lu(k,441) - lu(k,116) * lu(k,425) + lu(k,445) = lu(k,445) - lu(k,117) * lu(k,425) + lu(k,529) = lu(k,529) - lu(k,111) * lu(k,523) + lu(k,532) = lu(k,532) - lu(k,112) * lu(k,523) + lu(k,534) = lu(k,534) - lu(k,113) * lu(k,523) + lu(k,538) = lu(k,538) - lu(k,114) * lu(k,523) + lu(k,540) = lu(k,540) - lu(k,115) * lu(k,523) + lu(k,542) = lu(k,542) - lu(k,116) * lu(k,523) + lu(k,546) = lu(k,546) - lu(k,117) * lu(k,523) + lu(k,630) = lu(k,630) - lu(k,111) * lu(k,619) + lu(k,633) = lu(k,633) - lu(k,112) * lu(k,619) + lu(k,635) = lu(k,635) - lu(k,113) * lu(k,619) + lu(k,639) = - lu(k,114) * lu(k,619) + lu(k,641) = lu(k,641) - lu(k,115) * lu(k,619) + lu(k,643) = lu(k,643) - lu(k,116) * lu(k,619) + lu(k,647) = lu(k,647) - lu(k,117) * lu(k,619) end do end subroutine lu_fac03 subroutine lu_fac04( avec_len, lu ) @@ -533,56 +534,55 @@ subroutine lu_fac04( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,118) = 1._r8 / lu(k,118) - lu(k,119) = lu(k,119) * lu(k,118) - lu(k,120) = lu(k,120) * lu(k,118) - lu(k,121) = lu(k,121) * lu(k,118) - lu(k,122) = lu(k,122) * lu(k,118) - lu(k,123) = lu(k,123) * lu(k,118) - lu(k,124) = lu(k,124) * lu(k,118) - lu(k,125) = lu(k,125) * lu(k,118) - lu(k,280) = lu(k,280) - lu(k,119) * lu(k,278) - lu(k,283) = lu(k,283) - lu(k,120) * lu(k,278) - lu(k,285) = - lu(k,121) * lu(k,278) - lu(k,288) = - lu(k,122) * lu(k,278) - lu(k,289) = lu(k,289) - lu(k,123) * lu(k,278) - lu(k,292) = lu(k,292) - lu(k,124) * lu(k,278) - lu(k,294) = lu(k,294) - lu(k,125) * lu(k,278) - lu(k,433) = lu(k,433) - lu(k,119) * lu(k,430) - lu(k,436) = lu(k,436) - lu(k,120) * lu(k,430) - lu(k,439) = lu(k,439) - lu(k,121) * lu(k,430) - lu(k,442) = lu(k,442) - lu(k,122) * lu(k,430) - lu(k,443) = lu(k,443) - lu(k,123) * lu(k,430) - lu(k,446) = lu(k,446) - lu(k,124) * lu(k,430) - lu(k,448) = lu(k,448) - lu(k,125) * lu(k,430) - lu(k,454) = - lu(k,119) * lu(k,452) - lu(k,456) = lu(k,456) - lu(k,120) * lu(k,452) - lu(k,459) = lu(k,459) - lu(k,121) * lu(k,452) - lu(k,462) = - lu(k,122) * lu(k,452) - lu(k,463) = lu(k,463) - lu(k,123) * lu(k,452) - lu(k,466) = lu(k,466) - lu(k,124) * lu(k,452) - lu(k,468) = - lu(k,125) * lu(k,452) - lu(k,528) = lu(k,528) - lu(k,119) * lu(k,523) - lu(k,531) = lu(k,531) - lu(k,120) * lu(k,523) - lu(k,534) = lu(k,534) - lu(k,121) * lu(k,523) - lu(k,537) = lu(k,537) - lu(k,122) * lu(k,523) - lu(k,538) = lu(k,538) - lu(k,123) * lu(k,523) - lu(k,541) = lu(k,541) - lu(k,124) * lu(k,523) - lu(k,543) = lu(k,543) - lu(k,125) * lu(k,523) - lu(k,553) = lu(k,553) - lu(k,119) * lu(k,551) - lu(k,556) = lu(k,556) - lu(k,120) * lu(k,551) - lu(k,559) = lu(k,559) - lu(k,121) * lu(k,551) - lu(k,562) = - lu(k,122) * lu(k,551) - lu(k,563) = lu(k,563) - lu(k,123) * lu(k,551) - lu(k,566) = lu(k,566) - lu(k,124) * lu(k,551) - lu(k,568) = lu(k,568) - lu(k,125) * lu(k,551) - lu(k,592) = lu(k,592) - lu(k,119) * lu(k,582) - lu(k,595) = lu(k,595) - lu(k,120) * lu(k,582) - lu(k,598) = lu(k,598) - lu(k,121) * lu(k,582) - lu(k,601) = - lu(k,122) * lu(k,582) - lu(k,602) = lu(k,602) - lu(k,123) * lu(k,582) - lu(k,605) = lu(k,605) - lu(k,124) * lu(k,582) - lu(k,607) = lu(k,607) - lu(k,125) * lu(k,582) + 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,123) = lu(k,123) * lu(k,119) + lu(k,124) = lu(k,124) * lu(k,119) + lu(k,125) = lu(k,125) * lu(k,119) + lu(k,206) = - lu(k,120) * lu(k,203) + lu(k,207) = lu(k,207) - lu(k,121) * lu(k,203) + lu(k,209) = lu(k,209) - lu(k,122) * lu(k,203) + lu(k,211) = lu(k,211) - lu(k,123) * lu(k,203) + lu(k,212) = lu(k,212) - lu(k,124) * lu(k,203) + lu(k,213) = lu(k,213) - lu(k,125) * lu(k,203) + lu(k,263) = lu(k,263) - lu(k,120) * lu(k,260) + lu(k,264) = lu(k,264) - lu(k,121) * lu(k,260) + lu(k,270) = lu(k,270) - lu(k,122) * lu(k,260) + lu(k,273) = lu(k,273) - lu(k,123) * lu(k,260) + lu(k,275) = lu(k,275) - lu(k,124) * lu(k,260) + lu(k,276) = lu(k,276) - lu(k,125) * lu(k,260) + lu(k,316) = lu(k,316) - lu(k,120) * lu(k,314) + lu(k,317) = lu(k,317) - lu(k,121) * lu(k,314) + lu(k,326) = lu(k,326) - lu(k,122) * lu(k,314) + lu(k,329) = lu(k,329) - lu(k,123) * lu(k,314) + lu(k,331) = lu(k,331) - lu(k,124) * lu(k,314) + lu(k,333) = lu(k,333) - lu(k,125) * lu(k,314) + lu(k,454) = - lu(k,120) * lu(k,450) + lu(k,455) = lu(k,455) - lu(k,121) * lu(k,450) + lu(k,464) = lu(k,464) - lu(k,122) * lu(k,450) + lu(k,467) = lu(k,467) - lu(k,123) * lu(k,450) + lu(k,469) = lu(k,469) - lu(k,124) * lu(k,450) + lu(k,471) = lu(k,471) - lu(k,125) * lu(k,450) + lu(k,529) = lu(k,529) - lu(k,120) * lu(k,524) + lu(k,530) = lu(k,530) - lu(k,121) * lu(k,524) + lu(k,539) = lu(k,539) - lu(k,122) * lu(k,524) + lu(k,542) = lu(k,542) - lu(k,123) * lu(k,524) + lu(k,544) = lu(k,544) - lu(k,124) * lu(k,524) + lu(k,546) = lu(k,546) - lu(k,125) * lu(k,524) + lu(k,573) = lu(k,573) - lu(k,120) * lu(k,569) + lu(k,574) = lu(k,574) - lu(k,121) * lu(k,569) + lu(k,583) = lu(k,583) - lu(k,122) * lu(k,569) + lu(k,586) = lu(k,586) - lu(k,123) * lu(k,569) + lu(k,588) = lu(k,588) - lu(k,124) * lu(k,569) + lu(k,590) = lu(k,590) - lu(k,125) * lu(k,569) + lu(k,630) = lu(k,630) - lu(k,120) * lu(k,620) + lu(k,631) = lu(k,631) - lu(k,121) * lu(k,620) + lu(k,640) = lu(k,640) - lu(k,122) * lu(k,620) + lu(k,643) = lu(k,643) - lu(k,123) * lu(k,620) + lu(k,645) = lu(k,645) - lu(k,124) * lu(k,620) + lu(k,647) = lu(k,647) - lu(k,125) * lu(k,620) 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) @@ -625,14 +625,14 @@ subroutine lu_fac04( avec_len, lu ) lu(k,234) = lu(k,234) - lu(k,131) * lu(k,230) lu(k,235) = lu(k,235) - lu(k,132) * lu(k,230) lu(k,236) = lu(k,236) - lu(k,133) * lu(k,230) - lu(k,243) = lu(k,243) - lu(k,134) * lu(k,230) - lu(k,584) = lu(k,584) - lu(k,128) * lu(k,583) - lu(k,585) = lu(k,585) - lu(k,129) * lu(k,583) - lu(k,586) = lu(k,586) - lu(k,130) * lu(k,583) - lu(k,587) = lu(k,587) - lu(k,131) * lu(k,583) - lu(k,588) = lu(k,588) - lu(k,132) * lu(k,583) - lu(k,591) = lu(k,591) - lu(k,133) * lu(k,583) - lu(k,607) = lu(k,607) - lu(k,134) * lu(k,583) + lu(k,244) = lu(k,244) - lu(k,134) * lu(k,230) + lu(k,622) = lu(k,622) - lu(k,128) * lu(k,621) + lu(k,623) = lu(k,623) - lu(k,129) * lu(k,621) + lu(k,624) = lu(k,624) - lu(k,130) * lu(k,621) + lu(k,625) = lu(k,625) - lu(k,131) * lu(k,621) + lu(k,626) = lu(k,626) - lu(k,132) * lu(k,621) + lu(k,629) = lu(k,629) - lu(k,133) * lu(k,621) + lu(k,647) = lu(k,647) - lu(k,134) * lu(k,621) lu(k,138) = 1._r8 / lu(k,138) lu(k,139) = lu(k,139) * lu(k,138) lu(k,140) = lu(k,140) * lu(k,138) @@ -649,7 +649,7 @@ subroutine lu_fac04( avec_len, lu ) lu(k,166) = lu(k,166) - lu(k,142) * lu(k,162) lu(k,167) = lu(k,167) - lu(k,143) * lu(k,162) lu(k,168) = - lu(k,144) * lu(k,162) - lu(k,171) = - lu(k,145) * lu(k,162) + lu(k,169) = - lu(k,145) * lu(k,162) lu(k,172) = - lu(k,146) * lu(k,162) lu(k,173) = lu(k,173) - lu(k,147) * lu(k,162) lu(k,176) = lu(k,176) - lu(k,139) * lu(k,175) @@ -658,7 +658,7 @@ subroutine lu_fac04( avec_len, lu ) lu(k,179) = lu(k,179) - lu(k,142) * lu(k,175) lu(k,180) = lu(k,180) - lu(k,143) * lu(k,175) lu(k,181) = - lu(k,144) * lu(k,175) - lu(k,184) = - lu(k,145) * lu(k,175) + lu(k,182) = - lu(k,145) * lu(k,175) lu(k,185) = - lu(k,146) * lu(k,175) lu(k,186) = lu(k,186) - lu(k,147) * lu(k,175) lu(k,190) = lu(k,190) - lu(k,139) * lu(k,189) @@ -667,8 +667,8 @@ subroutine lu_fac04( avec_len, lu ) lu(k,193) = lu(k,193) - lu(k,142) * lu(k,189) lu(k,194) = lu(k,194) - lu(k,143) * lu(k,189) lu(k,195) = lu(k,195) - lu(k,144) * lu(k,189) - lu(k,199) = lu(k,199) - lu(k,145) * lu(k,189) - lu(k,200) = - lu(k,146) * lu(k,189) + lu(k,196) = - lu(k,145) * lu(k,189) + lu(k,200) = lu(k,200) - lu(k,146) * lu(k,189) lu(k,201) = lu(k,201) - lu(k,147) * lu(k,189) lu(k,232) = lu(k,232) - lu(k,139) * lu(k,231) lu(k,233) = lu(k,233) - lu(k,140) * lu(k,231) @@ -676,18 +676,18 @@ subroutine lu_fac04( avec_len, lu ) lu(k,235) = lu(k,235) - lu(k,142) * lu(k,231) lu(k,236) = lu(k,236) - lu(k,143) * lu(k,231) lu(k,237) = lu(k,237) - lu(k,144) * lu(k,231) - lu(k,241) = - lu(k,145) * lu(k,231) - lu(k,242) = lu(k,242) - lu(k,146) * lu(k,231) - lu(k,243) = lu(k,243) - lu(k,147) * lu(k,231) - lu(k,585) = lu(k,585) - lu(k,139) * lu(k,584) - lu(k,586) = lu(k,586) - lu(k,140) * lu(k,584) - lu(k,587) = lu(k,587) - lu(k,141) * lu(k,584) - lu(k,588) = lu(k,588) - lu(k,142) * lu(k,584) - lu(k,591) = lu(k,591) - lu(k,143) * lu(k,584) - lu(k,595) = lu(k,595) - lu(k,144) * lu(k,584) - lu(k,605) = lu(k,605) - lu(k,145) * lu(k,584) - lu(k,606) = lu(k,606) - lu(k,146) * lu(k,584) - lu(k,607) = lu(k,607) - lu(k,147) * lu(k,584) + lu(k,238) = lu(k,238) - lu(k,145) * lu(k,231) + lu(k,242) = - lu(k,146) * lu(k,231) + lu(k,244) = lu(k,244) - lu(k,147) * lu(k,231) + lu(k,623) = lu(k,623) - lu(k,139) * lu(k,622) + lu(k,624) = lu(k,624) - lu(k,140) * lu(k,622) + lu(k,625) = lu(k,625) - lu(k,141) * lu(k,622) + lu(k,626) = lu(k,626) - lu(k,142) * lu(k,622) + lu(k,629) = lu(k,629) - lu(k,143) * lu(k,622) + lu(k,633) = lu(k,633) - lu(k,144) * lu(k,622) + lu(k,634) = lu(k,634) - lu(k,145) * lu(k,622) + lu(k,643) = lu(k,643) - lu(k,146) * lu(k,622) + lu(k,647) = lu(k,647) - lu(k,147) * lu(k,622) 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) @@ -700,60 +700,44 @@ subroutine lu_fac04( avec_len, lu ) lu(k,165) = lu(k,165) - lu(k,151) * lu(k,163) lu(k,166) = lu(k,166) - lu(k,152) * lu(k,163) lu(k,167) = lu(k,167) - lu(k,153) * lu(k,163) - lu(k,169) = lu(k,169) - lu(k,154) * lu(k,163) - lu(k,170) = lu(k,170) - lu(k,155) * lu(k,163) + lu(k,170) = lu(k,170) - lu(k,154) * lu(k,163) + lu(k,171) = lu(k,171) - lu(k,155) * lu(k,163) lu(k,173) = lu(k,173) - lu(k,156) * lu(k,163) lu(k,177) = lu(k,177) - lu(k,150) * lu(k,176) lu(k,178) = lu(k,178) - lu(k,151) * lu(k,176) lu(k,179) = lu(k,179) - lu(k,152) * lu(k,176) lu(k,180) = lu(k,180) - lu(k,153) * lu(k,176) - lu(k,182) = lu(k,182) - lu(k,154) * lu(k,176) - lu(k,183) = lu(k,183) - lu(k,155) * lu(k,176) + lu(k,183) = lu(k,183) - lu(k,154) * lu(k,176) + lu(k,184) = lu(k,184) - lu(k,155) * lu(k,176) lu(k,186) = lu(k,186) - lu(k,156) * lu(k,176) lu(k,191) = lu(k,191) - lu(k,150) * lu(k,190) lu(k,192) = lu(k,192) - lu(k,151) * lu(k,190) lu(k,193) = lu(k,193) - lu(k,152) * lu(k,190) lu(k,194) = lu(k,194) - lu(k,153) * lu(k,190) - lu(k,196) = lu(k,196) - lu(k,154) * lu(k,190) - lu(k,197) = - lu(k,155) * lu(k,190) + lu(k,197) = lu(k,197) - lu(k,154) * lu(k,190) + lu(k,199) = - lu(k,155) * lu(k,190) lu(k,201) = lu(k,201) - lu(k,156) * lu(k,190) lu(k,233) = lu(k,233) - lu(k,150) * lu(k,232) lu(k,234) = lu(k,234) - lu(k,151) * lu(k,232) lu(k,235) = lu(k,235) - lu(k,152) * lu(k,232) lu(k,236) = lu(k,236) - lu(k,153) * lu(k,232) - lu(k,238) = lu(k,238) - lu(k,154) * lu(k,232) - lu(k,239) = lu(k,239) - lu(k,155) * lu(k,232) - lu(k,243) = lu(k,243) - lu(k,156) * lu(k,232) - lu(k,332) = lu(k,332) - lu(k,150) * lu(k,331) - lu(k,333) = lu(k,333) - lu(k,151) * lu(k,331) - lu(k,334) = lu(k,334) - lu(k,152) * lu(k,331) - lu(k,335) = lu(k,335) - lu(k,153) * lu(k,331) - lu(k,339) = lu(k,339) - lu(k,154) * lu(k,331) - lu(k,343) = - lu(k,155) * lu(k,331) - lu(k,349) = lu(k,349) - lu(k,156) * lu(k,331) - lu(k,586) = lu(k,586) - lu(k,150) * lu(k,585) - lu(k,587) = lu(k,587) - lu(k,151) * lu(k,585) - lu(k,588) = lu(k,588) - lu(k,152) * lu(k,585) - lu(k,591) = lu(k,591) - lu(k,153) * lu(k,585) - lu(k,597) = lu(k,597) - lu(k,154) * lu(k,585) - lu(k,601) = lu(k,601) - lu(k,155) * lu(k,585) - lu(k,607) = lu(k,607) - lu(k,156) * lu(k,585) - end do - end subroutine lu_fac04 - subroutine lu_fac05( 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,239) = lu(k,239) - lu(k,154) * lu(k,232) + lu(k,241) = lu(k,241) - lu(k,155) * lu(k,232) + lu(k,244) = lu(k,244) - lu(k,156) * lu(k,232) + lu(k,376) = lu(k,376) - lu(k,150) * lu(k,375) + lu(k,377) = lu(k,377) - lu(k,151) * lu(k,375) + lu(k,378) = lu(k,378) - lu(k,152) * lu(k,375) + lu(k,379) = lu(k,379) - lu(k,153) * lu(k,375) + lu(k,385) = lu(k,385) - lu(k,154) * lu(k,375) + lu(k,387) = - lu(k,155) * lu(k,375) + lu(k,395) = lu(k,395) - lu(k,156) * lu(k,375) + lu(k,624) = lu(k,624) - lu(k,150) * lu(k,623) + lu(k,625) = lu(k,625) - lu(k,151) * lu(k,623) + lu(k,626) = lu(k,626) - lu(k,152) * lu(k,623) + lu(k,629) = lu(k,629) - lu(k,153) * lu(k,623) + lu(k,637) = lu(k,637) - lu(k,154) * lu(k,623) + lu(k,639) = lu(k,639) - lu(k,155) * lu(k,623) + lu(k,647) = lu(k,647) - lu(k,156) * lu(k,623) lu(k,164) = 1._r8 / lu(k,164) lu(k,165) = lu(k,165) * lu(k,164) lu(k,166) = lu(k,166) * lu(k,164) @@ -790,25 +774,41 @@ subroutine lu_fac05( avec_len, lu ) lu(k,239) = lu(k,239) - lu(k,170) * lu(k,233) lu(k,241) = lu(k,241) - lu(k,171) * lu(k,233) lu(k,242) = lu(k,242) - lu(k,172) * lu(k,233) - lu(k,243) = lu(k,243) - lu(k,173) * lu(k,233) - lu(k,333) = lu(k,333) - lu(k,165) * lu(k,332) - lu(k,334) = lu(k,334) - lu(k,166) * lu(k,332) - lu(k,335) = lu(k,335) - lu(k,167) * lu(k,332) - lu(k,337) = - lu(k,168) * lu(k,332) - lu(k,339) = lu(k,339) - lu(k,169) * lu(k,332) - lu(k,343) = lu(k,343) - lu(k,170) * lu(k,332) - lu(k,347) = lu(k,347) - lu(k,171) * lu(k,332) - lu(k,348) = lu(k,348) - lu(k,172) * lu(k,332) - lu(k,349) = lu(k,349) - lu(k,173) * lu(k,332) - lu(k,587) = lu(k,587) - lu(k,165) * lu(k,586) - lu(k,588) = lu(k,588) - lu(k,166) * lu(k,586) - lu(k,591) = lu(k,591) - lu(k,167) * lu(k,586) - lu(k,595) = lu(k,595) - lu(k,168) * lu(k,586) - lu(k,597) = lu(k,597) - lu(k,169) * lu(k,586) - lu(k,601) = lu(k,601) - lu(k,170) * lu(k,586) - lu(k,605) = lu(k,605) - lu(k,171) * lu(k,586) - lu(k,606) = lu(k,606) - lu(k,172) * lu(k,586) - lu(k,607) = lu(k,607) - lu(k,173) * lu(k,586) + lu(k,244) = lu(k,244) - lu(k,173) * lu(k,233) + lu(k,377) = lu(k,377) - lu(k,165) * lu(k,376) + lu(k,378) = lu(k,378) - lu(k,166) * lu(k,376) + lu(k,379) = lu(k,379) - lu(k,167) * lu(k,376) + lu(k,381) = - lu(k,168) * lu(k,376) + lu(k,382) = lu(k,382) - lu(k,169) * lu(k,376) + lu(k,385) = lu(k,385) - lu(k,170) * lu(k,376) + lu(k,387) = lu(k,387) - lu(k,171) * lu(k,376) + lu(k,391) = lu(k,391) - lu(k,172) * lu(k,376) + lu(k,395) = lu(k,395) - lu(k,173) * lu(k,376) + lu(k,625) = lu(k,625) - lu(k,165) * lu(k,624) + lu(k,626) = lu(k,626) - lu(k,166) * lu(k,624) + lu(k,629) = lu(k,629) - lu(k,167) * lu(k,624) + lu(k,633) = lu(k,633) - lu(k,168) * lu(k,624) + lu(k,634) = lu(k,634) - lu(k,169) * lu(k,624) + lu(k,637) = lu(k,637) - lu(k,170) * lu(k,624) + lu(k,639) = lu(k,639) - lu(k,171) * lu(k,624) + lu(k,643) = lu(k,643) - lu(k,172) * lu(k,624) + lu(k,647) = lu(k,647) - lu(k,173) * lu(k,624) + end do + end subroutine lu_fac04 + subroutine lu_fac05( 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,178) = 1._r8 / lu(k,178) lu(k,179) = lu(k,179) * lu(k,178) lu(k,180) = lu(k,180) * lu(k,178) @@ -833,23 +833,23 @@ subroutine lu_fac05( avec_len, lu ) lu(k,239) = lu(k,239) - lu(k,183) * lu(k,234) lu(k,241) = lu(k,241) - lu(k,184) * lu(k,234) lu(k,242) = lu(k,242) - lu(k,185) * lu(k,234) - lu(k,243) = lu(k,243) - lu(k,186) * lu(k,234) - lu(k,334) = lu(k,334) - lu(k,179) * lu(k,333) - lu(k,335) = lu(k,335) - lu(k,180) * lu(k,333) - lu(k,337) = lu(k,337) - lu(k,181) * lu(k,333) - lu(k,339) = lu(k,339) - lu(k,182) * lu(k,333) - lu(k,343) = lu(k,343) - lu(k,183) * lu(k,333) - lu(k,347) = lu(k,347) - lu(k,184) * lu(k,333) - lu(k,348) = lu(k,348) - lu(k,185) * lu(k,333) - lu(k,349) = lu(k,349) - lu(k,186) * lu(k,333) - lu(k,588) = lu(k,588) - lu(k,179) * lu(k,587) - lu(k,591) = lu(k,591) - lu(k,180) * lu(k,587) - lu(k,595) = lu(k,595) - lu(k,181) * lu(k,587) - lu(k,597) = lu(k,597) - lu(k,182) * lu(k,587) - lu(k,601) = lu(k,601) - lu(k,183) * lu(k,587) - lu(k,605) = lu(k,605) - lu(k,184) * lu(k,587) - lu(k,606) = lu(k,606) - lu(k,185) * lu(k,587) - lu(k,607) = lu(k,607) - lu(k,186) * lu(k,587) + lu(k,244) = lu(k,244) - lu(k,186) * lu(k,234) + lu(k,378) = lu(k,378) - lu(k,179) * lu(k,377) + lu(k,379) = lu(k,379) - lu(k,180) * lu(k,377) + lu(k,381) = lu(k,381) - lu(k,181) * lu(k,377) + lu(k,382) = lu(k,382) - lu(k,182) * lu(k,377) + lu(k,385) = lu(k,385) - lu(k,183) * lu(k,377) + lu(k,387) = lu(k,387) - lu(k,184) * lu(k,377) + lu(k,391) = lu(k,391) - lu(k,185) * lu(k,377) + lu(k,395) = lu(k,395) - lu(k,186) * lu(k,377) + lu(k,626) = lu(k,626) - lu(k,179) * lu(k,625) + lu(k,629) = lu(k,629) - lu(k,180) * lu(k,625) + lu(k,633) = lu(k,633) - lu(k,181) * lu(k,625) + lu(k,634) = lu(k,634) - lu(k,182) * lu(k,625) + lu(k,637) = lu(k,637) - lu(k,183) * lu(k,625) + lu(k,639) = lu(k,639) - lu(k,184) * lu(k,625) + lu(k,643) = lu(k,643) - lu(k,185) * lu(k,625) + lu(k,647) = lu(k,647) - lu(k,186) * lu(k,625) 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) @@ -866,39 +866,39 @@ subroutine lu_fac05( avec_len, lu ) lu(k,240) = - lu(k,198) * lu(k,235) lu(k,241) = lu(k,241) - lu(k,199) * lu(k,235) lu(k,242) = lu(k,242) - lu(k,200) * lu(k,235) - lu(k,243) = lu(k,243) - lu(k,201) * lu(k,235) - lu(k,335) = lu(k,335) - lu(k,194) * lu(k,334) - lu(k,337) = lu(k,337) - lu(k,195) * lu(k,334) - lu(k,339) = lu(k,339) - lu(k,196) * lu(k,334) - lu(k,343) = lu(k,343) - lu(k,197) * lu(k,334) - lu(k,346) = lu(k,346) - lu(k,198) * lu(k,334) - lu(k,347) = lu(k,347) - lu(k,199) * lu(k,334) - lu(k,348) = lu(k,348) - lu(k,200) * lu(k,334) - lu(k,349) = lu(k,349) - lu(k,201) * lu(k,334) - lu(k,497) = lu(k,497) - lu(k,194) * lu(k,494) - lu(k,500) = - lu(k,195) * lu(k,494) - lu(k,502) = lu(k,502) - lu(k,196) * lu(k,494) - lu(k,506) = - lu(k,197) * lu(k,494) - lu(k,509) = lu(k,509) - lu(k,198) * lu(k,494) - lu(k,510) = lu(k,510) - lu(k,199) * lu(k,494) - lu(k,511) = lu(k,511) - lu(k,200) * lu(k,494) - lu(k,512) = lu(k,512) - lu(k,201) * lu(k,494) - lu(k,527) = lu(k,527) - lu(k,194) * lu(k,524) - lu(k,531) = lu(k,531) - lu(k,195) * lu(k,524) - lu(k,533) = lu(k,533) - lu(k,196) * lu(k,524) - lu(k,537) = lu(k,537) - lu(k,197) * lu(k,524) - lu(k,540) = lu(k,540) - lu(k,198) * lu(k,524) - lu(k,541) = lu(k,541) - lu(k,199) * lu(k,524) - lu(k,542) = lu(k,542) - lu(k,200) * lu(k,524) - lu(k,543) = lu(k,543) - lu(k,201) * lu(k,524) - lu(k,591) = lu(k,591) - lu(k,194) * lu(k,588) - lu(k,595) = lu(k,595) - lu(k,195) * lu(k,588) - lu(k,597) = lu(k,597) - lu(k,196) * lu(k,588) - lu(k,601) = lu(k,601) - lu(k,197) * lu(k,588) - lu(k,604) = lu(k,604) - lu(k,198) * lu(k,588) - lu(k,605) = lu(k,605) - lu(k,199) * lu(k,588) - lu(k,606) = lu(k,606) - lu(k,200) * lu(k,588) - lu(k,607) = lu(k,607) - lu(k,201) * lu(k,588) + lu(k,244) = lu(k,244) - lu(k,201) * lu(k,235) + lu(k,379) = lu(k,379) - lu(k,194) * lu(k,378) + lu(k,381) = lu(k,381) - lu(k,195) * lu(k,378) + lu(k,382) = lu(k,382) - lu(k,196) * lu(k,378) + lu(k,385) = lu(k,385) - lu(k,197) * lu(k,378) + lu(k,386) = lu(k,386) - lu(k,198) * lu(k,378) + lu(k,387) = lu(k,387) - lu(k,199) * lu(k,378) + lu(k,391) = lu(k,391) - lu(k,200) * lu(k,378) + lu(k,395) = lu(k,395) - lu(k,201) * lu(k,378) + lu(k,403) = lu(k,403) - lu(k,194) * lu(k,400) + lu(k,406) = - lu(k,195) * lu(k,400) + lu(k,407) = lu(k,407) - lu(k,196) * lu(k,400) + lu(k,410) = lu(k,410) - lu(k,197) * lu(k,400) + lu(k,411) = lu(k,411) - lu(k,198) * lu(k,400) + lu(k,412) = - lu(k,199) * lu(k,400) + lu(k,416) = lu(k,416) - lu(k,200) * lu(k,400) + lu(k,420) = lu(k,420) - lu(k,201) * lu(k,400) + lu(k,528) = lu(k,528) - lu(k,194) * lu(k,525) + lu(k,532) = lu(k,532) - lu(k,195) * lu(k,525) + lu(k,533) = lu(k,533) - lu(k,196) * lu(k,525) + lu(k,536) = lu(k,536) - lu(k,197) * lu(k,525) + lu(k,537) = lu(k,537) - lu(k,198) * lu(k,525) + lu(k,538) = lu(k,538) - lu(k,199) * lu(k,525) + lu(k,542) = lu(k,542) - lu(k,200) * lu(k,525) + lu(k,546) = lu(k,546) - lu(k,201) * lu(k,525) + lu(k,629) = lu(k,629) - lu(k,194) * lu(k,626) + lu(k,633) = lu(k,633) - lu(k,195) * lu(k,626) + lu(k,634) = lu(k,634) - lu(k,196) * lu(k,626) + lu(k,637) = lu(k,637) - lu(k,197) * lu(k,626) + lu(k,638) = lu(k,638) - lu(k,198) * lu(k,626) + lu(k,639) = lu(k,639) - lu(k,199) * lu(k,626) + lu(k,643) = lu(k,643) - lu(k,200) * lu(k,626) + lu(k,647) = lu(k,647) - lu(k,201) * lu(k,626) 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) @@ -912,57 +912,57 @@ subroutine lu_fac05( avec_len, lu ) lu(k,262) = lu(k,262) - lu(k,205) * lu(k,261) lu(k,263) = lu(k,263) - lu(k,206) * lu(k,261) lu(k,264) = lu(k,264) - lu(k,207) * lu(k,261) - lu(k,266) = - lu(k,208) * lu(k,261) - lu(k,268) = lu(k,268) - lu(k,209) * lu(k,261) - lu(k,269) = lu(k,269) - lu(k,210) * lu(k,261) - lu(k,273) = - lu(k,211) * lu(k,261) - lu(k,274) = lu(k,274) - lu(k,212) * lu(k,261) - lu(k,275) = lu(k,275) - lu(k,213) * lu(k,261) - lu(k,380) = - lu(k,205) * lu(k,379) - lu(k,382) = lu(k,382) - lu(k,206) * lu(k,379) - lu(k,383) = lu(k,383) - lu(k,207) * lu(k,379) - lu(k,386) = lu(k,386) - lu(k,208) * lu(k,379) - lu(k,389) = lu(k,389) - lu(k,209) * lu(k,379) - lu(k,390) = lu(k,390) - lu(k,210) * lu(k,379) - lu(k,394) = - lu(k,211) * lu(k,379) - lu(k,395) = lu(k,395) - lu(k,212) * lu(k,379) - lu(k,397) = lu(k,397) - lu(k,213) * lu(k,379) - lu(k,406) = - lu(k,205) * lu(k,405) - lu(k,408) = lu(k,408) - lu(k,206) * lu(k,405) - lu(k,409) = lu(k,409) - lu(k,207) * lu(k,405) - lu(k,412) = - lu(k,208) * lu(k,405) - lu(k,415) = lu(k,415) - lu(k,209) * lu(k,405) - lu(k,416) = lu(k,416) - lu(k,210) * lu(k,405) - lu(k,420) = lu(k,420) - lu(k,211) * lu(k,405) - lu(k,421) = lu(k,421) - lu(k,212) * lu(k,405) - lu(k,423) = lu(k,423) - lu(k,213) * lu(k,405) - lu(k,496) = lu(k,496) - lu(k,205) * lu(k,495) - lu(k,498) = lu(k,498) - lu(k,206) * lu(k,495) - lu(k,499) = lu(k,499) - lu(k,207) * lu(k,495) - lu(k,501) = lu(k,501) - lu(k,208) * lu(k,495) - lu(k,504) = lu(k,504) - lu(k,209) * lu(k,495) - lu(k,505) = lu(k,505) - lu(k,210) * lu(k,495) - lu(k,509) = lu(k,509) - lu(k,211) * lu(k,495) - lu(k,510) = lu(k,510) - lu(k,212) * lu(k,495) - lu(k,512) = lu(k,512) - lu(k,213) * lu(k,495) - lu(k,526) = lu(k,526) - lu(k,205) * lu(k,525) - lu(k,528) = lu(k,528) - lu(k,206) * lu(k,525) - lu(k,529) = lu(k,529) - lu(k,207) * lu(k,525) - lu(k,532) = lu(k,532) - lu(k,208) * lu(k,525) - lu(k,535) = lu(k,535) - lu(k,209) * lu(k,525) - lu(k,536) = lu(k,536) - lu(k,210) * lu(k,525) - lu(k,540) = lu(k,540) - lu(k,211) * lu(k,525) - lu(k,541) = lu(k,541) - lu(k,212) * lu(k,525) - lu(k,543) = lu(k,543) - lu(k,213) * lu(k,525) - lu(k,590) = lu(k,590) - lu(k,205) * lu(k,589) - lu(k,592) = lu(k,592) - lu(k,206) * lu(k,589) - lu(k,593) = lu(k,593) - lu(k,207) * lu(k,589) - lu(k,596) = lu(k,596) - lu(k,208) * lu(k,589) - lu(k,599) = lu(k,599) - lu(k,209) * lu(k,589) - lu(k,600) = lu(k,600) - lu(k,210) * lu(k,589) - lu(k,604) = lu(k,604) - lu(k,211) * lu(k,589) - lu(k,605) = lu(k,605) - lu(k,212) * lu(k,589) - lu(k,607) = lu(k,607) - lu(k,213) * lu(k,589) + lu(k,268) = - lu(k,208) * lu(k,261) + lu(k,270) = lu(k,270) - lu(k,209) * lu(k,261) + lu(k,272) = - lu(k,210) * lu(k,261) + lu(k,273) = lu(k,273) - lu(k,211) * lu(k,261) + lu(k,275) = lu(k,275) - lu(k,212) * lu(k,261) + lu(k,276) = lu(k,276) - lu(k,213) * lu(k,261) + lu(k,402) = lu(k,402) - lu(k,205) * lu(k,401) + lu(k,404) = lu(k,404) - lu(k,206) * lu(k,401) + lu(k,405) = lu(k,405) - lu(k,207) * lu(k,401) + lu(k,411) = lu(k,411) - lu(k,208) * lu(k,401) + lu(k,413) = lu(k,413) - lu(k,209) * lu(k,401) + lu(k,415) = lu(k,415) - lu(k,210) * lu(k,401) + lu(k,416) = lu(k,416) - lu(k,211) * lu(k,401) + lu(k,418) = lu(k,418) - lu(k,212) * lu(k,401) + lu(k,420) = lu(k,420) - lu(k,213) * lu(k,401) + lu(k,452) = - lu(k,205) * lu(k,451) + lu(k,454) = lu(k,454) - lu(k,206) * lu(k,451) + lu(k,455) = lu(k,455) - lu(k,207) * lu(k,451) + lu(k,462) = lu(k,462) - lu(k,208) * lu(k,451) + lu(k,464) = lu(k,464) - lu(k,209) * lu(k,451) + lu(k,466) = - lu(k,210) * lu(k,451) + lu(k,467) = lu(k,467) - lu(k,211) * lu(k,451) + lu(k,469) = lu(k,469) - lu(k,212) * lu(k,451) + lu(k,471) = lu(k,471) - lu(k,213) * lu(k,451) + lu(k,527) = lu(k,527) - lu(k,205) * lu(k,526) + lu(k,529) = lu(k,529) - lu(k,206) * lu(k,526) + lu(k,530) = lu(k,530) - lu(k,207) * lu(k,526) + lu(k,537) = lu(k,537) - lu(k,208) * lu(k,526) + lu(k,539) = lu(k,539) - lu(k,209) * lu(k,526) + lu(k,541) = lu(k,541) - lu(k,210) * lu(k,526) + lu(k,542) = lu(k,542) - lu(k,211) * lu(k,526) + lu(k,544) = lu(k,544) - lu(k,212) * lu(k,526) + lu(k,546) = lu(k,546) - lu(k,213) * lu(k,526) + lu(k,571) = - lu(k,205) * lu(k,570) + lu(k,573) = lu(k,573) - lu(k,206) * lu(k,570) + lu(k,574) = lu(k,574) - lu(k,207) * lu(k,570) + lu(k,581) = - lu(k,208) * lu(k,570) + lu(k,583) = lu(k,583) - lu(k,209) * lu(k,570) + lu(k,585) = lu(k,585) - lu(k,210) * lu(k,570) + lu(k,586) = lu(k,586) - lu(k,211) * lu(k,570) + lu(k,588) = lu(k,588) - lu(k,212) * lu(k,570) + lu(k,590) = lu(k,590) - lu(k,213) * lu(k,570) + lu(k,628) = lu(k,628) - lu(k,205) * lu(k,627) + lu(k,630) = lu(k,630) - lu(k,206) * lu(k,627) + lu(k,631) = lu(k,631) - lu(k,207) * lu(k,627) + lu(k,638) = lu(k,638) - lu(k,208) * lu(k,627) + lu(k,640) = lu(k,640) - lu(k,209) * lu(k,627) + lu(k,642) = lu(k,642) - lu(k,210) * lu(k,627) + lu(k,643) = lu(k,643) - lu(k,211) * lu(k,627) + lu(k,645) = lu(k,645) - lu(k,212) * lu(k,627) + lu(k,647) = lu(k,647) - lu(k,213) * lu(k,627) 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) @@ -974,87 +974,87 @@ subroutine lu_fac05( avec_len, lu ) lu(k,248) = lu(k,248) - lu(k,217) * lu(k,247) lu(k,249) = lu(k,249) - lu(k,218) * lu(k,247) lu(k,250) = lu(k,250) - lu(k,219) * lu(k,247) - lu(k,252) = lu(k,252) - lu(k,220) * lu(k,247) - lu(k,253) = - lu(k,221) * lu(k,247) + lu(k,251) = - lu(k,220) * lu(k,247) + lu(k,253) = lu(k,253) - lu(k,221) * lu(k,247) lu(k,254) = lu(k,254) - lu(k,222) * lu(k,247) - lu(k,256) = lu(k,256) - lu(k,223) * lu(k,247) + lu(k,255) = lu(k,255) - lu(k,223) * lu(k,247) lu(k,263) = lu(k,263) - lu(k,217) * lu(k,262) lu(k,265) = lu(k,265) - lu(k,218) * lu(k,262) - lu(k,266) = lu(k,266) - lu(k,219) * lu(k,262) - lu(k,272) = - lu(k,220) * lu(k,262) - lu(k,273) = lu(k,273) - lu(k,221) * lu(k,262) - lu(k,274) = lu(k,274) - lu(k,222) * lu(k,262) - lu(k,276) = - lu(k,223) * lu(k,262) + lu(k,267) = - lu(k,219) * lu(k,262) + lu(k,268) = lu(k,268) - lu(k,220) * lu(k,262) + lu(k,272) = lu(k,272) - lu(k,221) * lu(k,262) + lu(k,273) = lu(k,273) - lu(k,222) * lu(k,262) + lu(k,274) = - lu(k,223) * lu(k,262) lu(k,280) = lu(k,280) - lu(k,217) * lu(k,279) lu(k,283) = lu(k,283) - lu(k,218) * lu(k,279) - lu(k,284) = lu(k,284) - lu(k,219) * lu(k,279) - lu(k,290) = - lu(k,220) * lu(k,279) - lu(k,291) = - lu(k,221) * lu(k,279) + lu(k,286) = lu(k,286) - lu(k,219) * lu(k,279) + lu(k,287) = - lu(k,220) * lu(k,279) + lu(k,291) = lu(k,291) - lu(k,221) * lu(k,279) lu(k,292) = lu(k,292) - lu(k,222) * lu(k,279) - lu(k,295) = lu(k,295) - lu(k,223) * lu(k,279) - lu(k,313) = - lu(k,217) * lu(k,311) - lu(k,315) = lu(k,315) - lu(k,218) * lu(k,311) - lu(k,316) = lu(k,316) - lu(k,219) * lu(k,311) - lu(k,323) = - lu(k,220) * lu(k,311) - lu(k,324) = lu(k,324) - lu(k,221) * lu(k,311) - lu(k,325) = lu(k,325) - lu(k,222) * lu(k,311) - lu(k,328) = - lu(k,223) * lu(k,311) - lu(k,358) = lu(k,358) - lu(k,217) * lu(k,356) - lu(k,360) = - lu(k,218) * lu(k,356) - lu(k,361) = lu(k,361) - lu(k,219) * lu(k,356) - lu(k,368) = - lu(k,220) * lu(k,356) - lu(k,369) = lu(k,369) - lu(k,221) * lu(k,356) - lu(k,370) = lu(k,370) - lu(k,222) * lu(k,356) - lu(k,373) = - lu(k,223) * lu(k,356) - lu(k,382) = lu(k,382) - lu(k,217) * lu(k,380) - lu(k,385) = lu(k,385) - lu(k,218) * lu(k,380) - lu(k,386) = lu(k,386) - lu(k,219) * lu(k,380) - lu(k,393) = lu(k,393) - lu(k,220) * lu(k,380) - lu(k,394) = lu(k,394) - lu(k,221) * lu(k,380) - lu(k,395) = lu(k,395) - lu(k,222) * lu(k,380) - lu(k,398) = lu(k,398) - lu(k,223) * lu(k,380) - lu(k,408) = lu(k,408) - lu(k,217) * lu(k,406) - lu(k,411) = - lu(k,218) * lu(k,406) - lu(k,412) = lu(k,412) - lu(k,219) * lu(k,406) - lu(k,419) = lu(k,419) - lu(k,220) * lu(k,406) - lu(k,420) = lu(k,420) - lu(k,221) * lu(k,406) - lu(k,421) = lu(k,421) - lu(k,222) * lu(k,406) - lu(k,424) = - lu(k,223) * lu(k,406) - lu(k,433) = lu(k,433) - lu(k,217) * lu(k,431) - lu(k,436) = lu(k,436) - lu(k,218) * lu(k,431) - lu(k,437) = lu(k,437) - lu(k,219) * lu(k,431) - lu(k,444) = lu(k,444) - lu(k,220) * lu(k,431) - lu(k,445) = - lu(k,221) * lu(k,431) - lu(k,446) = lu(k,446) - lu(k,222) * lu(k,431) - lu(k,449) = lu(k,449) - lu(k,223) * lu(k,431) - lu(k,498) = lu(k,498) - lu(k,217) * lu(k,496) - lu(k,500) = lu(k,500) - lu(k,218) * lu(k,496) - lu(k,501) = lu(k,501) - lu(k,219) * lu(k,496) - lu(k,508) = - lu(k,220) * lu(k,496) - lu(k,509) = lu(k,509) - lu(k,221) * lu(k,496) - lu(k,510) = lu(k,510) - lu(k,222) * lu(k,496) - lu(k,513) = - lu(k,223) * lu(k,496) - lu(k,528) = lu(k,528) - lu(k,217) * lu(k,526) - lu(k,531) = lu(k,531) - lu(k,218) * lu(k,526) - lu(k,532) = lu(k,532) - lu(k,219) * lu(k,526) - lu(k,539) = lu(k,539) - lu(k,220) * lu(k,526) - lu(k,540) = lu(k,540) - lu(k,221) * lu(k,526) - lu(k,541) = lu(k,541) - lu(k,222) * lu(k,526) - lu(k,544) = lu(k,544) - lu(k,223) * lu(k,526) - lu(k,592) = lu(k,592) - lu(k,217) * lu(k,590) - lu(k,595) = lu(k,595) - lu(k,218) * lu(k,590) - lu(k,596) = lu(k,596) - lu(k,219) * lu(k,590) - lu(k,603) = - lu(k,220) * lu(k,590) - lu(k,604) = lu(k,604) - lu(k,221) * lu(k,590) - lu(k,605) = lu(k,605) - lu(k,222) * lu(k,590) - lu(k,608) = lu(k,608) - lu(k,223) * lu(k,590) - lu(k,613) = lu(k,613) - lu(k,217) * lu(k,612) - lu(k,615) = lu(k,615) - lu(k,218) * lu(k,612) - lu(k,616) = lu(k,616) - lu(k,219) * lu(k,612) - lu(k,623) = lu(k,623) - lu(k,220) * lu(k,612) - lu(k,624) = - lu(k,221) * lu(k,612) - lu(k,625) = lu(k,625) - lu(k,222) * lu(k,612) - lu(k,628) = lu(k,628) - lu(k,223) * lu(k,612) + lu(k,293) = - lu(k,223) * lu(k,279) + lu(k,357) = lu(k,357) - lu(k,217) * lu(k,356) + lu(k,359) = lu(k,359) - lu(k,218) * lu(k,356) + lu(k,362) = lu(k,362) - lu(k,219) * lu(k,356) + lu(k,364) = - lu(k,220) * lu(k,356) + lu(k,368) = lu(k,368) - lu(k,221) * lu(k,356) + lu(k,369) = lu(k,369) - lu(k,222) * lu(k,356) + lu(k,370) = lu(k,370) - lu(k,223) * lu(k,356) + lu(k,404) = lu(k,404) - lu(k,217) * lu(k,402) + lu(k,406) = lu(k,406) - lu(k,218) * lu(k,402) + lu(k,409) = - lu(k,219) * lu(k,402) + lu(k,411) = lu(k,411) - lu(k,220) * lu(k,402) + lu(k,415) = lu(k,415) - lu(k,221) * lu(k,402) + lu(k,416) = lu(k,416) - lu(k,222) * lu(k,402) + lu(k,417) = - lu(k,223) * lu(k,402) + lu(k,428) = lu(k,428) - lu(k,217) * lu(k,426) + lu(k,431) = lu(k,431) - lu(k,218) * lu(k,426) + lu(k,434) = lu(k,434) - lu(k,219) * lu(k,426) + lu(k,436) = - lu(k,220) * lu(k,426) + lu(k,440) = lu(k,440) - lu(k,221) * lu(k,426) + lu(k,441) = lu(k,441) - lu(k,222) * lu(k,426) + lu(k,442) = lu(k,442) - lu(k,223) * lu(k,426) + lu(k,454) = lu(k,454) - lu(k,217) * lu(k,452) + lu(k,457) = - lu(k,218) * lu(k,452) + lu(k,460) = - lu(k,219) * lu(k,452) + lu(k,462) = lu(k,462) - lu(k,220) * lu(k,452) + lu(k,466) = lu(k,466) - lu(k,221) * lu(k,452) + lu(k,467) = lu(k,467) - lu(k,222) * lu(k,452) + lu(k,468) = lu(k,468) - lu(k,223) * lu(k,452) + lu(k,478) = lu(k,478) - lu(k,217) * lu(k,476) + lu(k,480) = - lu(k,218) * lu(k,476) + lu(k,483) = - lu(k,219) * lu(k,476) + lu(k,485) = lu(k,485) - lu(k,220) * lu(k,476) + lu(k,489) = lu(k,489) - lu(k,221) * lu(k,476) + lu(k,490) = lu(k,490) - lu(k,222) * lu(k,476) + lu(k,491) = - lu(k,223) * lu(k,476) + lu(k,499) = - lu(k,217) * lu(k,497) + lu(k,501) = lu(k,501) - lu(k,218) * lu(k,497) + lu(k,504) = - lu(k,219) * lu(k,497) + lu(k,506) = lu(k,506) - lu(k,220) * lu(k,497) + lu(k,510) = lu(k,510) - lu(k,221) * lu(k,497) + lu(k,511) = lu(k,511) - lu(k,222) * lu(k,497) + lu(k,512) = - lu(k,223) * lu(k,497) + lu(k,529) = lu(k,529) - lu(k,217) * lu(k,527) + lu(k,532) = lu(k,532) - lu(k,218) * lu(k,527) + lu(k,535) = lu(k,535) - lu(k,219) * lu(k,527) + lu(k,537) = lu(k,537) - lu(k,220) * lu(k,527) + lu(k,541) = lu(k,541) - lu(k,221) * lu(k,527) + lu(k,542) = lu(k,542) - lu(k,222) * lu(k,527) + lu(k,543) = lu(k,543) - lu(k,223) * lu(k,527) + lu(k,573) = lu(k,573) - lu(k,217) * lu(k,571) + lu(k,576) = lu(k,576) - lu(k,218) * lu(k,571) + lu(k,579) = lu(k,579) - lu(k,219) * lu(k,571) + lu(k,581) = lu(k,581) - lu(k,220) * lu(k,571) + lu(k,585) = lu(k,585) - lu(k,221) * lu(k,571) + lu(k,586) = lu(k,586) - lu(k,222) * lu(k,571) + lu(k,587) = lu(k,587) - lu(k,223) * lu(k,571) + lu(k,630) = lu(k,630) - lu(k,217) * lu(k,628) + lu(k,633) = lu(k,633) - lu(k,218) * lu(k,628) + lu(k,636) = lu(k,636) - lu(k,219) * lu(k,628) + lu(k,638) = lu(k,638) - lu(k,220) * lu(k,628) + lu(k,642) = lu(k,642) - lu(k,221) * lu(k,628) + lu(k,643) = lu(k,643) - lu(k,222) * lu(k,628) + lu(k,644) = - lu(k,223) * lu(k,628) end do end subroutine lu_fac05 subroutine lu_fac06( avec_len, lu ) @@ -1081,117 +1081,117 @@ subroutine lu_fac06( avec_len, lu ) lu(k,243) = lu(k,243) * lu(k,236) lu(k,244) = lu(k,244) * lu(k,236) lu(k,298) = lu(k,298) - lu(k,237) * lu(k,296) - lu(k,300) = - lu(k,238) * lu(k,296) + lu(k,299) = lu(k,299) - lu(k,238) * lu(k,296) lu(k,301) = - lu(k,239) * lu(k,296) - lu(k,303) = - lu(k,240) * lu(k,296) - lu(k,304) = lu(k,304) - lu(k,241) * lu(k,296) + lu(k,302) = - lu(k,240) * lu(k,296) + lu(k,303) = - lu(k,241) * lu(k,296) lu(k,305) = lu(k,305) - lu(k,242) * lu(k,296) - lu(k,306) = lu(k,306) - lu(k,243) * lu(k,296) + lu(k,307) = lu(k,307) - lu(k,243) * lu(k,296) lu(k,308) = lu(k,308) - lu(k,244) * lu(k,296) - lu(k,315) = lu(k,315) - lu(k,237) * lu(k,312) - lu(k,317) = lu(k,317) - lu(k,238) * lu(k,312) - lu(k,321) = - lu(k,239) * lu(k,312) - lu(k,324) = lu(k,324) - lu(k,240) * lu(k,312) - lu(k,325) = lu(k,325) - lu(k,241) * lu(k,312) - lu(k,326) = lu(k,326) - lu(k,242) * lu(k,312) - lu(k,327) = lu(k,327) - lu(k,243) * lu(k,312) - lu(k,329) = - lu(k,244) * lu(k,312) - lu(k,337) = lu(k,337) - lu(k,237) * lu(k,335) - lu(k,339) = lu(k,339) - lu(k,238) * lu(k,335) - lu(k,343) = lu(k,343) - lu(k,239) * lu(k,335) - lu(k,346) = lu(k,346) - lu(k,240) * lu(k,335) - lu(k,347) = lu(k,347) - lu(k,241) * lu(k,335) - lu(k,348) = lu(k,348) - lu(k,242) * lu(k,335) - lu(k,349) = lu(k,349) - lu(k,243) * lu(k,335) - lu(k,351) = lu(k,351) - lu(k,244) * lu(k,335) - lu(k,360) = lu(k,360) - lu(k,237) * lu(k,357) - lu(k,362) = lu(k,362) - lu(k,238) * lu(k,357) - lu(k,366) = - lu(k,239) * lu(k,357) - lu(k,369) = lu(k,369) - lu(k,240) * lu(k,357) - lu(k,370) = lu(k,370) - lu(k,241) * lu(k,357) - lu(k,371) = lu(k,371) - lu(k,242) * lu(k,357) - lu(k,372) = lu(k,372) - lu(k,243) * lu(k,357) - lu(k,374) = - lu(k,244) * lu(k,357) - lu(k,385) = lu(k,385) - lu(k,237) * lu(k,381) - lu(k,387) = - lu(k,238) * lu(k,381) - lu(k,391) = - lu(k,239) * lu(k,381) - lu(k,394) = lu(k,394) - lu(k,240) * lu(k,381) - lu(k,395) = lu(k,395) - lu(k,241) * lu(k,381) - lu(k,396) = lu(k,396) - lu(k,242) * lu(k,381) - lu(k,397) = lu(k,397) - lu(k,243) * lu(k,381) - lu(k,399) = lu(k,399) - lu(k,244) * lu(k,381) - lu(k,411) = lu(k,411) - lu(k,237) * lu(k,407) - lu(k,413) = lu(k,413) - lu(k,238) * lu(k,407) - lu(k,417) = - lu(k,239) * lu(k,407) - lu(k,420) = lu(k,420) - lu(k,240) * lu(k,407) - lu(k,421) = lu(k,421) - lu(k,241) * lu(k,407) - lu(k,422) = lu(k,422) - lu(k,242) * lu(k,407) - lu(k,423) = lu(k,423) - lu(k,243) * lu(k,407) - lu(k,425) = - lu(k,244) * lu(k,407) - lu(k,436) = lu(k,436) - lu(k,237) * lu(k,432) - lu(k,438) = lu(k,438) - lu(k,238) * lu(k,432) - lu(k,442) = lu(k,442) - lu(k,239) * lu(k,432) - lu(k,445) = lu(k,445) - lu(k,240) * lu(k,432) - lu(k,446) = lu(k,446) - lu(k,241) * lu(k,432) - lu(k,447) = lu(k,447) - lu(k,242) * lu(k,432) - lu(k,448) = lu(k,448) - lu(k,243) * lu(k,432) - lu(k,450) = lu(k,450) - lu(k,244) * lu(k,432) - lu(k,456) = lu(k,456) - lu(k,237) * lu(k,453) - lu(k,458) = - lu(k,238) * lu(k,453) - lu(k,462) = lu(k,462) - lu(k,239) * lu(k,453) - lu(k,465) = - lu(k,240) * lu(k,453) - lu(k,466) = lu(k,466) - lu(k,241) * lu(k,453) + lu(k,319) = lu(k,319) - lu(k,237) * lu(k,315) + lu(k,320) = lu(k,320) - lu(k,238) * lu(k,315) + lu(k,323) = lu(k,323) - lu(k,239) * lu(k,315) + lu(k,324) = lu(k,324) - lu(k,240) * lu(k,315) + lu(k,325) = lu(k,325) - lu(k,241) * lu(k,315) + lu(k,329) = lu(k,329) - lu(k,242) * lu(k,315) + lu(k,332) = lu(k,332) - lu(k,243) * lu(k,315) + lu(k,333) = lu(k,333) - lu(k,244) * lu(k,315) + lu(k,339) = lu(k,339) - lu(k,237) * lu(k,336) + lu(k,340) = lu(k,340) - lu(k,238) * lu(k,336) + lu(k,343) = - lu(k,239) * lu(k,336) + lu(k,344) = - lu(k,240) * lu(k,336) + lu(k,345) = lu(k,345) - lu(k,241) * lu(k,336) + lu(k,349) = lu(k,349) - lu(k,242) * lu(k,336) + lu(k,352) = lu(k,352) - lu(k,243) * lu(k,336) + lu(k,353) = lu(k,353) - lu(k,244) * lu(k,336) + lu(k,381) = lu(k,381) - lu(k,237) * lu(k,379) + lu(k,382) = lu(k,382) - lu(k,238) * lu(k,379) + lu(k,385) = lu(k,385) - lu(k,239) * lu(k,379) + lu(k,386) = lu(k,386) - lu(k,240) * lu(k,379) + lu(k,387) = lu(k,387) - lu(k,241) * lu(k,379) + lu(k,391) = lu(k,391) - lu(k,242) * lu(k,379) + lu(k,394) = lu(k,394) - lu(k,243) * lu(k,379) + lu(k,395) = lu(k,395) - lu(k,244) * lu(k,379) + lu(k,406) = lu(k,406) - lu(k,237) * lu(k,403) + lu(k,407) = lu(k,407) - lu(k,238) * lu(k,403) + lu(k,410) = lu(k,410) - lu(k,239) * lu(k,403) + lu(k,411) = lu(k,411) - lu(k,240) * lu(k,403) + lu(k,412) = lu(k,412) - lu(k,241) * lu(k,403) + lu(k,416) = lu(k,416) - lu(k,242) * lu(k,403) + lu(k,419) = lu(k,419) - lu(k,243) * lu(k,403) + lu(k,420) = lu(k,420) - lu(k,244) * lu(k,403) + lu(k,431) = lu(k,431) - lu(k,237) * lu(k,427) + lu(k,432) = lu(k,432) - lu(k,238) * lu(k,427) + lu(k,435) = lu(k,435) - lu(k,239) * lu(k,427) + lu(k,436) = lu(k,436) - lu(k,240) * lu(k,427) + lu(k,437) = lu(k,437) - lu(k,241) * lu(k,427) + lu(k,441) = lu(k,441) - lu(k,242) * lu(k,427) + lu(k,444) = lu(k,444) - lu(k,243) * lu(k,427) + lu(k,445) = lu(k,445) - lu(k,244) * lu(k,427) + lu(k,457) = lu(k,457) - lu(k,237) * lu(k,453) + lu(k,458) = lu(k,458) - lu(k,238) * lu(k,453) + lu(k,461) = lu(k,461) - lu(k,239) * lu(k,453) + lu(k,462) = lu(k,462) - lu(k,240) * lu(k,453) + lu(k,463) = - lu(k,241) * lu(k,453) lu(k,467) = lu(k,467) - lu(k,242) * lu(k,453) - lu(k,468) = lu(k,468) - lu(k,243) * lu(k,453) - lu(k,470) = lu(k,470) - lu(k,244) * lu(k,453) - lu(k,475) = lu(k,475) - lu(k,237) * lu(k,472) - lu(k,477) = lu(k,477) - lu(k,238) * lu(k,472) - lu(k,481) = - lu(k,239) * lu(k,472) - lu(k,484) = lu(k,484) - lu(k,240) * lu(k,472) - lu(k,485) = lu(k,485) - lu(k,241) * lu(k,472) - lu(k,486) = lu(k,486) - lu(k,242) * lu(k,472) - lu(k,487) = - lu(k,243) * lu(k,472) - lu(k,489) = - lu(k,244) * lu(k,472) - lu(k,500) = lu(k,500) - lu(k,237) * lu(k,497) - lu(k,502) = lu(k,502) - lu(k,238) * lu(k,497) - lu(k,506) = lu(k,506) - lu(k,239) * lu(k,497) - lu(k,509) = lu(k,509) - lu(k,240) * lu(k,497) - lu(k,510) = lu(k,510) - lu(k,241) * lu(k,497) - lu(k,511) = lu(k,511) - lu(k,242) * lu(k,497) - lu(k,512) = lu(k,512) - lu(k,243) * lu(k,497) - lu(k,514) = lu(k,514) - lu(k,244) * lu(k,497) - lu(k,531) = lu(k,531) - lu(k,237) * lu(k,527) - lu(k,533) = lu(k,533) - lu(k,238) * lu(k,527) - lu(k,537) = lu(k,537) - lu(k,239) * lu(k,527) - lu(k,540) = lu(k,540) - lu(k,240) * lu(k,527) - lu(k,541) = lu(k,541) - lu(k,241) * lu(k,527) - lu(k,542) = lu(k,542) - lu(k,242) * lu(k,527) - lu(k,543) = lu(k,543) - lu(k,243) * lu(k,527) - lu(k,545) = lu(k,545) - lu(k,244) * lu(k,527) - lu(k,556) = lu(k,556) - lu(k,237) * lu(k,552) - lu(k,558) = lu(k,558) - lu(k,238) * lu(k,552) - lu(k,562) = lu(k,562) - lu(k,239) * lu(k,552) - lu(k,565) = lu(k,565) - lu(k,240) * lu(k,552) - lu(k,566) = lu(k,566) - lu(k,241) * lu(k,552) - lu(k,567) = lu(k,567) - lu(k,242) * lu(k,552) - lu(k,568) = lu(k,568) - lu(k,243) * lu(k,552) - lu(k,570) = lu(k,570) - lu(k,244) * lu(k,552) - lu(k,595) = lu(k,595) - lu(k,237) * lu(k,591) - lu(k,597) = lu(k,597) - lu(k,238) * lu(k,591) - lu(k,601) = lu(k,601) - lu(k,239) * lu(k,591) - lu(k,604) = lu(k,604) - lu(k,240) * lu(k,591) - lu(k,605) = lu(k,605) - lu(k,241) * lu(k,591) - lu(k,606) = lu(k,606) - lu(k,242) * lu(k,591) - lu(k,607) = lu(k,607) - lu(k,243) * lu(k,591) - lu(k,609) = lu(k,609) - lu(k,244) * lu(k,591) - lu(k,633) = lu(k,633) - lu(k,237) * lu(k,632) - lu(k,635) = lu(k,635) - lu(k,238) * lu(k,632) - lu(k,639) = lu(k,639) - lu(k,239) * lu(k,632) - lu(k,642) = lu(k,642) - lu(k,240) * lu(k,632) - lu(k,643) = lu(k,643) - lu(k,241) * lu(k,632) - lu(k,644) = lu(k,644) - lu(k,242) * lu(k,632) - lu(k,645) = lu(k,645) - lu(k,243) * lu(k,632) - lu(k,647) = lu(k,647) - lu(k,244) * lu(k,632) + lu(k,470) = - lu(k,243) * lu(k,453) + lu(k,471) = lu(k,471) - lu(k,244) * lu(k,453) + lu(k,480) = lu(k,480) - lu(k,237) * lu(k,477) + lu(k,481) = lu(k,481) - lu(k,238) * lu(k,477) + lu(k,484) = lu(k,484) - lu(k,239) * lu(k,477) + lu(k,485) = lu(k,485) - lu(k,240) * lu(k,477) + lu(k,486) = - lu(k,241) * lu(k,477) + lu(k,490) = lu(k,490) - lu(k,242) * lu(k,477) + lu(k,493) = - lu(k,243) * lu(k,477) + lu(k,494) = lu(k,494) - lu(k,244) * lu(k,477) + lu(k,501) = lu(k,501) - lu(k,237) * lu(k,498) + lu(k,502) = lu(k,502) - lu(k,238) * lu(k,498) + lu(k,505) = lu(k,505) - lu(k,239) * lu(k,498) + lu(k,506) = lu(k,506) - lu(k,240) * lu(k,498) + lu(k,507) = - lu(k,241) * lu(k,498) + lu(k,511) = lu(k,511) - lu(k,242) * lu(k,498) + lu(k,514) = - lu(k,243) * lu(k,498) + lu(k,515) = lu(k,515) - lu(k,244) * lu(k,498) + lu(k,532) = lu(k,532) - lu(k,237) * lu(k,528) + lu(k,533) = lu(k,533) - lu(k,238) * lu(k,528) + lu(k,536) = lu(k,536) - lu(k,239) * lu(k,528) + lu(k,537) = lu(k,537) - lu(k,240) * lu(k,528) + lu(k,538) = lu(k,538) - lu(k,241) * lu(k,528) + lu(k,542) = lu(k,542) - lu(k,242) * lu(k,528) + lu(k,545) = lu(k,545) - lu(k,243) * lu(k,528) + lu(k,546) = lu(k,546) - lu(k,244) * lu(k,528) + lu(k,551) = lu(k,551) - lu(k,237) * lu(k,548) + lu(k,552) = lu(k,552) - lu(k,238) * lu(k,548) + lu(k,555) = lu(k,555) - lu(k,239) * lu(k,548) + lu(k,556) = lu(k,556) - lu(k,240) * lu(k,548) + lu(k,557) = - lu(k,241) * lu(k,548) + lu(k,561) = lu(k,561) - lu(k,242) * lu(k,548) + lu(k,564) = - lu(k,243) * lu(k,548) + lu(k,565) = - lu(k,244) * lu(k,548) + lu(k,576) = lu(k,576) - lu(k,237) * lu(k,572) + lu(k,577) = lu(k,577) - lu(k,238) * lu(k,572) + lu(k,580) = - lu(k,239) * lu(k,572) + lu(k,581) = lu(k,581) - lu(k,240) * lu(k,572) + lu(k,582) = - lu(k,241) * lu(k,572) + lu(k,586) = lu(k,586) - lu(k,242) * lu(k,572) + lu(k,589) = lu(k,589) - lu(k,243) * lu(k,572) + lu(k,590) = lu(k,590) - lu(k,244) * lu(k,572) + lu(k,594) = lu(k,594) - lu(k,237) * lu(k,593) + lu(k,595) = lu(k,595) - lu(k,238) * lu(k,593) + lu(k,598) = lu(k,598) - lu(k,239) * lu(k,593) + lu(k,599) = lu(k,599) - lu(k,240) * lu(k,593) + lu(k,600) = lu(k,600) - lu(k,241) * lu(k,593) + lu(k,604) = lu(k,604) - lu(k,242) * lu(k,593) + lu(k,607) = lu(k,607) - lu(k,243) * lu(k,593) + lu(k,608) = lu(k,608) - lu(k,244) * lu(k,593) + lu(k,633) = lu(k,633) - lu(k,237) * lu(k,629) + lu(k,634) = lu(k,634) - lu(k,238) * lu(k,629) + lu(k,637) = lu(k,637) - lu(k,239) * lu(k,629) + lu(k,638) = lu(k,638) - lu(k,240) * lu(k,629) + lu(k,639) = lu(k,639) - lu(k,241) * lu(k,629) + lu(k,643) = lu(k,643) - lu(k,242) * lu(k,629) + lu(k,646) = lu(k,646) - lu(k,243) * lu(k,629) + lu(k,647) = lu(k,647) - lu(k,244) * lu(k,629) 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) @@ -1202,125 +1202,125 @@ subroutine lu_fac06( avec_len, lu ) lu(k,255) = lu(k,255) * lu(k,248) lu(k,256) = lu(k,256) * lu(k,248) lu(k,265) = lu(k,265) - lu(k,249) * lu(k,263) - lu(k,266) = lu(k,266) - lu(k,250) * lu(k,263) - lu(k,270) = lu(k,270) - lu(k,251) * lu(k,263) - lu(k,272) = lu(k,272) - lu(k,252) * lu(k,263) - lu(k,273) = lu(k,273) - lu(k,253) * lu(k,263) - lu(k,274) = lu(k,274) - lu(k,254) * lu(k,263) - lu(k,275) = lu(k,275) - lu(k,255) * lu(k,263) + lu(k,267) = lu(k,267) - lu(k,250) * lu(k,263) + lu(k,268) = lu(k,268) - lu(k,251) * lu(k,263) + lu(k,269) = lu(k,269) - lu(k,252) * lu(k,263) + lu(k,272) = lu(k,272) - lu(k,253) * lu(k,263) + lu(k,273) = lu(k,273) - lu(k,254) * lu(k,263) + lu(k,274) = lu(k,274) - lu(k,255) * lu(k,263) lu(k,276) = lu(k,276) - lu(k,256) * lu(k,263) lu(k,283) = lu(k,283) - lu(k,249) * lu(k,280) - lu(k,284) = lu(k,284) - lu(k,250) * lu(k,280) - lu(k,288) = lu(k,288) - lu(k,251) * lu(k,280) - lu(k,290) = lu(k,290) - lu(k,252) * lu(k,280) + lu(k,286) = lu(k,286) - lu(k,250) * lu(k,280) + lu(k,287) = lu(k,287) - lu(k,251) * lu(k,280) + lu(k,288) = lu(k,288) - lu(k,252) * lu(k,280) lu(k,291) = lu(k,291) - lu(k,253) * lu(k,280) lu(k,292) = lu(k,292) - lu(k,254) * lu(k,280) - lu(k,294) = lu(k,294) - lu(k,255) * lu(k,280) + lu(k,293) = lu(k,293) - lu(k,255) * lu(k,280) lu(k,295) = lu(k,295) - lu(k,256) * lu(k,280) lu(k,298) = lu(k,298) - lu(k,249) * lu(k,297) - lu(k,299) = - lu(k,250) * lu(k,297) - lu(k,301) = lu(k,301) - lu(k,251) * lu(k,297) - lu(k,302) = - lu(k,252) * lu(k,297) - lu(k,303) = lu(k,303) - lu(k,253) * lu(k,297) - lu(k,304) = lu(k,304) - lu(k,254) * lu(k,297) - lu(k,306) = lu(k,306) - lu(k,255) * lu(k,297) - lu(k,307) = lu(k,307) - lu(k,256) * lu(k,297) - lu(k,315) = lu(k,315) - lu(k,249) * lu(k,313) - lu(k,316) = lu(k,316) - lu(k,250) * lu(k,313) - lu(k,321) = lu(k,321) - lu(k,251) * lu(k,313) - lu(k,323) = lu(k,323) - lu(k,252) * lu(k,313) - lu(k,324) = lu(k,324) - lu(k,253) * lu(k,313) - lu(k,325) = lu(k,325) - lu(k,254) * lu(k,313) - lu(k,327) = lu(k,327) - lu(k,255) * lu(k,313) - lu(k,328) = lu(k,328) - lu(k,256) * lu(k,313) - lu(k,360) = lu(k,360) - lu(k,249) * lu(k,358) - lu(k,361) = lu(k,361) - lu(k,250) * lu(k,358) - lu(k,366) = lu(k,366) - lu(k,251) * lu(k,358) - lu(k,368) = lu(k,368) - lu(k,252) * lu(k,358) - lu(k,369) = lu(k,369) - lu(k,253) * lu(k,358) - lu(k,370) = lu(k,370) - lu(k,254) * lu(k,358) - lu(k,372) = lu(k,372) - lu(k,255) * lu(k,358) - lu(k,373) = lu(k,373) - lu(k,256) * lu(k,358) - lu(k,385) = lu(k,385) - lu(k,249) * lu(k,382) - lu(k,386) = lu(k,386) - lu(k,250) * lu(k,382) - lu(k,391) = lu(k,391) - lu(k,251) * lu(k,382) - lu(k,393) = lu(k,393) - lu(k,252) * lu(k,382) - lu(k,394) = lu(k,394) - lu(k,253) * lu(k,382) - lu(k,395) = lu(k,395) - lu(k,254) * lu(k,382) - lu(k,397) = lu(k,397) - lu(k,255) * lu(k,382) - lu(k,398) = lu(k,398) - lu(k,256) * lu(k,382) - lu(k,411) = lu(k,411) - lu(k,249) * lu(k,408) - lu(k,412) = lu(k,412) - lu(k,250) * lu(k,408) - lu(k,417) = lu(k,417) - lu(k,251) * lu(k,408) - lu(k,419) = lu(k,419) - lu(k,252) * lu(k,408) - lu(k,420) = lu(k,420) - lu(k,253) * lu(k,408) - lu(k,421) = lu(k,421) - lu(k,254) * lu(k,408) - lu(k,423) = lu(k,423) - lu(k,255) * lu(k,408) - lu(k,424) = lu(k,424) - lu(k,256) * lu(k,408) - lu(k,436) = lu(k,436) - lu(k,249) * lu(k,433) - lu(k,437) = lu(k,437) - lu(k,250) * lu(k,433) - lu(k,442) = lu(k,442) - lu(k,251) * lu(k,433) - lu(k,444) = lu(k,444) - lu(k,252) * lu(k,433) - lu(k,445) = lu(k,445) - lu(k,253) * lu(k,433) - lu(k,446) = lu(k,446) - lu(k,254) * lu(k,433) - lu(k,448) = lu(k,448) - lu(k,255) * lu(k,433) - lu(k,449) = lu(k,449) - lu(k,256) * lu(k,433) - lu(k,456) = lu(k,456) - lu(k,249) * lu(k,454) - lu(k,457) = - lu(k,250) * lu(k,454) + lu(k,300) = lu(k,300) - lu(k,250) * lu(k,297) + lu(k,302) = lu(k,302) - lu(k,251) * lu(k,297) + lu(k,303) = lu(k,303) - lu(k,252) * lu(k,297) + lu(k,304) = - lu(k,253) * lu(k,297) + lu(k,305) = lu(k,305) - lu(k,254) * lu(k,297) + lu(k,306) = - lu(k,255) * lu(k,297) + lu(k,308) = lu(k,308) - lu(k,256) * lu(k,297) + lu(k,319) = lu(k,319) - lu(k,249) * lu(k,316) + lu(k,322) = lu(k,322) - lu(k,250) * lu(k,316) + lu(k,324) = lu(k,324) - lu(k,251) * lu(k,316) + lu(k,325) = lu(k,325) - lu(k,252) * lu(k,316) + lu(k,328) = lu(k,328) - lu(k,253) * lu(k,316) + lu(k,329) = lu(k,329) - lu(k,254) * lu(k,316) + lu(k,330) = lu(k,330) - lu(k,255) * lu(k,316) + lu(k,333) = lu(k,333) - lu(k,256) * lu(k,316) + lu(k,339) = lu(k,339) - lu(k,249) * lu(k,337) + lu(k,342) = - lu(k,250) * lu(k,337) + lu(k,344) = lu(k,344) - lu(k,251) * lu(k,337) + lu(k,345) = lu(k,345) - lu(k,252) * lu(k,337) + lu(k,348) = - lu(k,253) * lu(k,337) + lu(k,349) = lu(k,349) - lu(k,254) * lu(k,337) + lu(k,350) = - lu(k,255) * lu(k,337) + lu(k,353) = lu(k,353) - lu(k,256) * lu(k,337) + lu(k,359) = lu(k,359) - lu(k,249) * lu(k,357) + lu(k,362) = lu(k,362) - lu(k,250) * lu(k,357) + lu(k,364) = lu(k,364) - lu(k,251) * lu(k,357) + lu(k,365) = lu(k,365) - lu(k,252) * lu(k,357) + lu(k,368) = lu(k,368) - lu(k,253) * lu(k,357) + lu(k,369) = lu(k,369) - lu(k,254) * lu(k,357) + lu(k,370) = lu(k,370) - lu(k,255) * lu(k,357) + lu(k,373) = lu(k,373) - lu(k,256) * lu(k,357) + lu(k,406) = lu(k,406) - lu(k,249) * lu(k,404) + lu(k,409) = lu(k,409) - lu(k,250) * lu(k,404) + lu(k,411) = lu(k,411) - lu(k,251) * lu(k,404) + lu(k,412) = lu(k,412) - lu(k,252) * lu(k,404) + lu(k,415) = lu(k,415) - lu(k,253) * lu(k,404) + lu(k,416) = lu(k,416) - lu(k,254) * lu(k,404) + lu(k,417) = lu(k,417) - lu(k,255) * lu(k,404) + lu(k,420) = lu(k,420) - lu(k,256) * lu(k,404) + lu(k,431) = lu(k,431) - lu(k,249) * lu(k,428) + lu(k,434) = lu(k,434) - lu(k,250) * lu(k,428) + lu(k,436) = lu(k,436) - lu(k,251) * lu(k,428) + lu(k,437) = lu(k,437) - lu(k,252) * lu(k,428) + lu(k,440) = lu(k,440) - lu(k,253) * lu(k,428) + lu(k,441) = lu(k,441) - lu(k,254) * lu(k,428) + lu(k,442) = lu(k,442) - lu(k,255) * lu(k,428) + lu(k,445) = lu(k,445) - lu(k,256) * lu(k,428) + lu(k,457) = lu(k,457) - lu(k,249) * lu(k,454) + lu(k,460) = lu(k,460) - lu(k,250) * lu(k,454) lu(k,462) = lu(k,462) - lu(k,251) * lu(k,454) - lu(k,464) = - lu(k,252) * lu(k,454) - lu(k,465) = lu(k,465) - lu(k,253) * lu(k,454) - lu(k,466) = lu(k,466) - lu(k,254) * lu(k,454) + lu(k,463) = lu(k,463) - lu(k,252) * lu(k,454) + lu(k,466) = lu(k,466) - lu(k,253) * lu(k,454) + lu(k,467) = lu(k,467) - lu(k,254) * lu(k,454) lu(k,468) = lu(k,468) - lu(k,255) * lu(k,454) - lu(k,469) = - lu(k,256) * lu(k,454) - lu(k,475) = lu(k,475) - lu(k,249) * lu(k,473) - lu(k,476) = - lu(k,250) * lu(k,473) - lu(k,481) = lu(k,481) - lu(k,251) * lu(k,473) - lu(k,483) = lu(k,483) - lu(k,252) * lu(k,473) - lu(k,484) = lu(k,484) - lu(k,253) * lu(k,473) - lu(k,485) = lu(k,485) - lu(k,254) * lu(k,473) - lu(k,487) = lu(k,487) - lu(k,255) * lu(k,473) - lu(k,488) = - lu(k,256) * lu(k,473) - lu(k,500) = lu(k,500) - lu(k,249) * lu(k,498) - lu(k,501) = lu(k,501) - lu(k,250) * lu(k,498) - lu(k,506) = lu(k,506) - lu(k,251) * lu(k,498) - lu(k,508) = lu(k,508) - lu(k,252) * lu(k,498) - lu(k,509) = lu(k,509) - lu(k,253) * lu(k,498) - lu(k,510) = lu(k,510) - lu(k,254) * lu(k,498) - lu(k,512) = lu(k,512) - lu(k,255) * lu(k,498) - lu(k,513) = lu(k,513) - lu(k,256) * lu(k,498) - lu(k,531) = lu(k,531) - lu(k,249) * lu(k,528) - lu(k,532) = lu(k,532) - lu(k,250) * lu(k,528) - lu(k,537) = lu(k,537) - lu(k,251) * lu(k,528) - lu(k,539) = lu(k,539) - lu(k,252) * lu(k,528) - lu(k,540) = lu(k,540) - lu(k,253) * lu(k,528) - lu(k,541) = lu(k,541) - lu(k,254) * lu(k,528) - lu(k,543) = lu(k,543) - lu(k,255) * lu(k,528) - lu(k,544) = lu(k,544) - lu(k,256) * lu(k,528) - lu(k,556) = lu(k,556) - lu(k,249) * lu(k,553) - lu(k,557) = lu(k,557) - lu(k,250) * lu(k,553) - lu(k,562) = lu(k,562) - lu(k,251) * lu(k,553) - lu(k,564) = lu(k,564) - lu(k,252) * lu(k,553) - lu(k,565) = lu(k,565) - lu(k,253) * lu(k,553) - lu(k,566) = lu(k,566) - lu(k,254) * lu(k,553) - lu(k,568) = lu(k,568) - lu(k,255) * lu(k,553) - lu(k,569) = lu(k,569) - lu(k,256) * lu(k,553) - lu(k,595) = lu(k,595) - lu(k,249) * lu(k,592) - lu(k,596) = lu(k,596) - lu(k,250) * lu(k,592) - lu(k,601) = lu(k,601) - lu(k,251) * lu(k,592) - lu(k,603) = lu(k,603) - lu(k,252) * lu(k,592) - lu(k,604) = lu(k,604) - lu(k,253) * lu(k,592) - lu(k,605) = lu(k,605) - lu(k,254) * lu(k,592) - lu(k,607) = lu(k,607) - lu(k,255) * lu(k,592) - lu(k,608) = lu(k,608) - lu(k,256) * lu(k,592) - lu(k,615) = lu(k,615) - lu(k,249) * lu(k,613) - lu(k,616) = lu(k,616) - lu(k,250) * lu(k,613) - lu(k,621) = lu(k,621) - lu(k,251) * lu(k,613) - lu(k,623) = lu(k,623) - lu(k,252) * lu(k,613) - lu(k,624) = lu(k,624) - lu(k,253) * lu(k,613) - lu(k,625) = lu(k,625) - lu(k,254) * lu(k,613) - lu(k,627) = lu(k,627) - lu(k,255) * lu(k,613) - lu(k,628) = lu(k,628) - lu(k,256) * lu(k,613) + lu(k,471) = lu(k,471) - lu(k,256) * lu(k,454) + lu(k,480) = lu(k,480) - lu(k,249) * lu(k,478) + lu(k,483) = lu(k,483) - lu(k,250) * lu(k,478) + lu(k,485) = lu(k,485) - lu(k,251) * lu(k,478) + lu(k,486) = lu(k,486) - lu(k,252) * lu(k,478) + lu(k,489) = lu(k,489) - lu(k,253) * lu(k,478) + lu(k,490) = lu(k,490) - lu(k,254) * lu(k,478) + lu(k,491) = lu(k,491) - lu(k,255) * lu(k,478) + lu(k,494) = lu(k,494) - lu(k,256) * lu(k,478) + lu(k,501) = lu(k,501) - lu(k,249) * lu(k,499) + lu(k,504) = lu(k,504) - lu(k,250) * lu(k,499) + lu(k,506) = lu(k,506) - lu(k,251) * lu(k,499) + lu(k,507) = lu(k,507) - lu(k,252) * lu(k,499) + lu(k,510) = lu(k,510) - lu(k,253) * lu(k,499) + lu(k,511) = lu(k,511) - lu(k,254) * lu(k,499) + lu(k,512) = lu(k,512) - lu(k,255) * lu(k,499) + lu(k,515) = lu(k,515) - lu(k,256) * lu(k,499) + lu(k,532) = lu(k,532) - lu(k,249) * lu(k,529) + lu(k,535) = lu(k,535) - lu(k,250) * lu(k,529) + lu(k,537) = lu(k,537) - lu(k,251) * lu(k,529) + lu(k,538) = lu(k,538) - lu(k,252) * lu(k,529) + lu(k,541) = lu(k,541) - lu(k,253) * lu(k,529) + lu(k,542) = lu(k,542) - lu(k,254) * lu(k,529) + lu(k,543) = lu(k,543) - lu(k,255) * lu(k,529) + lu(k,546) = lu(k,546) - lu(k,256) * lu(k,529) + lu(k,551) = lu(k,551) - lu(k,249) * lu(k,549) + lu(k,554) = - lu(k,250) * lu(k,549) + lu(k,556) = lu(k,556) - lu(k,251) * lu(k,549) + lu(k,557) = lu(k,557) - lu(k,252) * lu(k,549) + lu(k,560) = - lu(k,253) * lu(k,549) + lu(k,561) = lu(k,561) - lu(k,254) * lu(k,549) + lu(k,562) = lu(k,562) - lu(k,255) * lu(k,549) + lu(k,565) = lu(k,565) - lu(k,256) * lu(k,549) + lu(k,576) = lu(k,576) - lu(k,249) * lu(k,573) + lu(k,579) = lu(k,579) - lu(k,250) * lu(k,573) + lu(k,581) = lu(k,581) - lu(k,251) * lu(k,573) + lu(k,582) = lu(k,582) - lu(k,252) * lu(k,573) + lu(k,585) = lu(k,585) - lu(k,253) * lu(k,573) + lu(k,586) = lu(k,586) - lu(k,254) * lu(k,573) + lu(k,587) = lu(k,587) - lu(k,255) * lu(k,573) + lu(k,590) = lu(k,590) - lu(k,256) * lu(k,573) + lu(k,633) = lu(k,633) - lu(k,249) * lu(k,630) + lu(k,636) = lu(k,636) - lu(k,250) * lu(k,630) + lu(k,638) = lu(k,638) - lu(k,251) * lu(k,630) + lu(k,639) = lu(k,639) - lu(k,252) * lu(k,630) + lu(k,642) = lu(k,642) - lu(k,253) * lu(k,630) + lu(k,643) = lu(k,643) - lu(k,254) * lu(k,630) + lu(k,644) = lu(k,644) - lu(k,255) * lu(k,630) + lu(k,647) = lu(k,647) - lu(k,256) * lu(k,630) 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) @@ -1335,125 +1335,125 @@ subroutine lu_fac06( avec_len, lu ) lu(k,275) = lu(k,275) * lu(k,264) lu(k,276) = lu(k,276) * lu(k,264) lu(k,283) = lu(k,283) - lu(k,265) * lu(k,281) - lu(k,284) = lu(k,284) - lu(k,266) * lu(k,281) - lu(k,285) = lu(k,285) - lu(k,267) * lu(k,281) - lu(k,286) = lu(k,286) - lu(k,268) * lu(k,281) - lu(k,287) = - lu(k,269) * lu(k,281) - lu(k,288) = lu(k,288) - lu(k,270) * lu(k,281) - lu(k,289) = lu(k,289) - lu(k,271) * lu(k,281) - lu(k,290) = lu(k,290) - lu(k,272) * lu(k,281) - lu(k,291) = lu(k,291) - lu(k,273) * lu(k,281) - lu(k,292) = lu(k,292) - lu(k,274) * lu(k,281) + lu(k,285) = lu(k,285) - lu(k,266) * lu(k,281) + lu(k,286) = lu(k,286) - lu(k,267) * lu(k,281) + lu(k,287) = lu(k,287) - lu(k,268) * lu(k,281) + lu(k,288) = lu(k,288) - lu(k,269) * lu(k,281) + lu(k,289) = - lu(k,270) * lu(k,281) + lu(k,290) = lu(k,290) - lu(k,271) * lu(k,281) + lu(k,291) = lu(k,291) - lu(k,272) * lu(k,281) + lu(k,292) = lu(k,292) - lu(k,273) * lu(k,281) + lu(k,293) = lu(k,293) - lu(k,274) * lu(k,281) lu(k,294) = lu(k,294) - lu(k,275) * lu(k,281) lu(k,295) = lu(k,295) - lu(k,276) * lu(k,281) - lu(k,360) = lu(k,360) - lu(k,265) * lu(k,359) - lu(k,361) = lu(k,361) - lu(k,266) * lu(k,359) - lu(k,363) = lu(k,363) - lu(k,267) * lu(k,359) - lu(k,364) = lu(k,364) - lu(k,268) * lu(k,359) - lu(k,365) = lu(k,365) - lu(k,269) * lu(k,359) - lu(k,366) = lu(k,366) - lu(k,270) * lu(k,359) - lu(k,367) = lu(k,367) - lu(k,271) * lu(k,359) - lu(k,368) = lu(k,368) - lu(k,272) * lu(k,359) - lu(k,369) = lu(k,369) - lu(k,273) * lu(k,359) - lu(k,370) = lu(k,370) - lu(k,274) * lu(k,359) - lu(k,372) = lu(k,372) - lu(k,275) * lu(k,359) - lu(k,373) = lu(k,373) - lu(k,276) * lu(k,359) - lu(k,385) = lu(k,385) - lu(k,265) * lu(k,383) - lu(k,386) = lu(k,386) - lu(k,266) * lu(k,383) - lu(k,388) = - lu(k,267) * lu(k,383) - lu(k,389) = lu(k,389) - lu(k,268) * lu(k,383) - lu(k,390) = lu(k,390) - lu(k,269) * lu(k,383) - lu(k,391) = lu(k,391) - lu(k,270) * lu(k,383) - lu(k,392) = lu(k,392) - lu(k,271) * lu(k,383) - lu(k,393) = lu(k,393) - lu(k,272) * lu(k,383) - lu(k,394) = lu(k,394) - lu(k,273) * lu(k,383) - lu(k,395) = lu(k,395) - lu(k,274) * lu(k,383) - lu(k,397) = lu(k,397) - lu(k,275) * lu(k,383) - lu(k,398) = lu(k,398) - lu(k,276) * lu(k,383) - lu(k,411) = lu(k,411) - lu(k,265) * lu(k,409) - lu(k,412) = lu(k,412) - lu(k,266) * lu(k,409) - lu(k,414) = lu(k,414) - lu(k,267) * lu(k,409) - lu(k,415) = lu(k,415) - lu(k,268) * lu(k,409) - lu(k,416) = lu(k,416) - lu(k,269) * lu(k,409) - lu(k,417) = lu(k,417) - lu(k,270) * lu(k,409) - lu(k,418) = lu(k,418) - lu(k,271) * lu(k,409) - lu(k,419) = lu(k,419) - lu(k,272) * lu(k,409) - lu(k,420) = lu(k,420) - lu(k,273) * lu(k,409) - lu(k,421) = lu(k,421) - lu(k,274) * lu(k,409) - lu(k,423) = lu(k,423) - lu(k,275) * lu(k,409) - lu(k,424) = lu(k,424) - lu(k,276) * lu(k,409) - lu(k,436) = lu(k,436) - lu(k,265) * lu(k,434) - lu(k,437) = lu(k,437) - lu(k,266) * lu(k,434) - lu(k,439) = lu(k,439) - lu(k,267) * lu(k,434) - lu(k,440) = lu(k,440) - lu(k,268) * lu(k,434) - lu(k,441) = lu(k,441) - lu(k,269) * lu(k,434) - lu(k,442) = lu(k,442) - lu(k,270) * lu(k,434) - lu(k,443) = lu(k,443) - lu(k,271) * lu(k,434) - lu(k,444) = lu(k,444) - lu(k,272) * lu(k,434) - lu(k,445) = lu(k,445) - lu(k,273) * lu(k,434) - lu(k,446) = lu(k,446) - lu(k,274) * lu(k,434) - lu(k,448) = lu(k,448) - lu(k,275) * lu(k,434) - lu(k,449) = lu(k,449) - lu(k,276) * lu(k,434) - lu(k,500) = lu(k,500) - lu(k,265) * lu(k,499) - lu(k,501) = lu(k,501) - lu(k,266) * lu(k,499) - lu(k,503) = lu(k,503) - lu(k,267) * lu(k,499) - lu(k,504) = lu(k,504) - lu(k,268) * lu(k,499) - lu(k,505) = lu(k,505) - lu(k,269) * lu(k,499) - lu(k,506) = lu(k,506) - lu(k,270) * lu(k,499) - lu(k,507) = lu(k,507) - lu(k,271) * lu(k,499) - lu(k,508) = lu(k,508) - lu(k,272) * lu(k,499) - lu(k,509) = lu(k,509) - lu(k,273) * lu(k,499) - lu(k,510) = lu(k,510) - lu(k,274) * lu(k,499) - lu(k,512) = lu(k,512) - lu(k,275) * lu(k,499) - lu(k,513) = lu(k,513) - lu(k,276) * lu(k,499) - lu(k,531) = lu(k,531) - lu(k,265) * lu(k,529) - lu(k,532) = lu(k,532) - lu(k,266) * lu(k,529) - lu(k,534) = lu(k,534) - lu(k,267) * lu(k,529) - lu(k,535) = lu(k,535) - lu(k,268) * lu(k,529) - lu(k,536) = lu(k,536) - lu(k,269) * lu(k,529) - lu(k,537) = lu(k,537) - lu(k,270) * lu(k,529) - lu(k,538) = lu(k,538) - lu(k,271) * lu(k,529) - lu(k,539) = lu(k,539) - lu(k,272) * lu(k,529) - lu(k,540) = lu(k,540) - lu(k,273) * lu(k,529) - lu(k,541) = lu(k,541) - lu(k,274) * lu(k,529) - lu(k,543) = lu(k,543) - lu(k,275) * lu(k,529) - lu(k,544) = lu(k,544) - lu(k,276) * lu(k,529) - lu(k,556) = lu(k,556) - lu(k,265) * lu(k,554) - lu(k,557) = lu(k,557) - lu(k,266) * lu(k,554) - lu(k,559) = lu(k,559) - lu(k,267) * lu(k,554) - lu(k,560) = lu(k,560) - lu(k,268) * lu(k,554) - lu(k,561) = lu(k,561) - lu(k,269) * lu(k,554) - lu(k,562) = lu(k,562) - lu(k,270) * lu(k,554) - lu(k,563) = lu(k,563) - lu(k,271) * lu(k,554) - lu(k,564) = lu(k,564) - lu(k,272) * lu(k,554) - lu(k,565) = lu(k,565) - lu(k,273) * lu(k,554) - lu(k,566) = lu(k,566) - lu(k,274) * lu(k,554) - lu(k,568) = lu(k,568) - lu(k,275) * lu(k,554) - lu(k,569) = lu(k,569) - lu(k,276) * lu(k,554) - lu(k,595) = lu(k,595) - lu(k,265) * lu(k,593) - lu(k,596) = lu(k,596) - lu(k,266) * lu(k,593) - lu(k,598) = lu(k,598) - lu(k,267) * lu(k,593) - lu(k,599) = lu(k,599) - lu(k,268) * lu(k,593) - lu(k,600) = lu(k,600) - lu(k,269) * lu(k,593) - lu(k,601) = lu(k,601) - lu(k,270) * lu(k,593) - lu(k,602) = lu(k,602) - lu(k,271) * lu(k,593) - lu(k,603) = lu(k,603) - lu(k,272) * lu(k,593) - lu(k,604) = lu(k,604) - lu(k,273) * lu(k,593) - lu(k,605) = lu(k,605) - lu(k,274) * lu(k,593) - lu(k,607) = lu(k,607) - lu(k,275) * lu(k,593) - lu(k,608) = lu(k,608) - lu(k,276) * lu(k,593) - lu(k,615) = lu(k,615) - lu(k,265) * lu(k,614) - lu(k,616) = lu(k,616) - lu(k,266) * lu(k,614) - lu(k,618) = - lu(k,267) * lu(k,614) - lu(k,619) = lu(k,619) - lu(k,268) * lu(k,614) - lu(k,620) = - lu(k,269) * lu(k,614) - lu(k,621) = lu(k,621) - lu(k,270) * lu(k,614) - lu(k,622) = - lu(k,271) * lu(k,614) - lu(k,623) = lu(k,623) - lu(k,272) * lu(k,614) - lu(k,624) = lu(k,624) - lu(k,273) * lu(k,614) - lu(k,625) = lu(k,625) - lu(k,274) * lu(k,614) - lu(k,627) = lu(k,627) - lu(k,275) * lu(k,614) - lu(k,628) = lu(k,628) - lu(k,276) * lu(k,614) + lu(k,319) = lu(k,319) - lu(k,265) * lu(k,317) + lu(k,321) = lu(k,321) - lu(k,266) * lu(k,317) + lu(k,322) = lu(k,322) - lu(k,267) * lu(k,317) + lu(k,324) = lu(k,324) - lu(k,268) * lu(k,317) + lu(k,325) = lu(k,325) - lu(k,269) * lu(k,317) + lu(k,326) = lu(k,326) - lu(k,270) * lu(k,317) + lu(k,327) = lu(k,327) - lu(k,271) * lu(k,317) + lu(k,328) = lu(k,328) - lu(k,272) * lu(k,317) + lu(k,329) = lu(k,329) - lu(k,273) * lu(k,317) + lu(k,330) = lu(k,330) - lu(k,274) * lu(k,317) + lu(k,331) = lu(k,331) - lu(k,275) * lu(k,317) + lu(k,333) = lu(k,333) - lu(k,276) * lu(k,317) + lu(k,359) = lu(k,359) - lu(k,265) * lu(k,358) + lu(k,361) = - lu(k,266) * lu(k,358) + lu(k,362) = lu(k,362) - lu(k,267) * lu(k,358) + lu(k,364) = lu(k,364) - lu(k,268) * lu(k,358) + lu(k,365) = lu(k,365) - lu(k,269) * lu(k,358) + lu(k,366) = - lu(k,270) * lu(k,358) + lu(k,367) = - lu(k,271) * lu(k,358) + lu(k,368) = lu(k,368) - lu(k,272) * lu(k,358) + lu(k,369) = lu(k,369) - lu(k,273) * lu(k,358) + lu(k,370) = lu(k,370) - lu(k,274) * lu(k,358) + lu(k,371) = lu(k,371) - lu(k,275) * lu(k,358) + lu(k,373) = lu(k,373) - lu(k,276) * lu(k,358) + lu(k,406) = lu(k,406) - lu(k,265) * lu(k,405) + lu(k,408) = lu(k,408) - lu(k,266) * lu(k,405) + lu(k,409) = lu(k,409) - lu(k,267) * lu(k,405) + lu(k,411) = lu(k,411) - lu(k,268) * lu(k,405) + lu(k,412) = lu(k,412) - lu(k,269) * lu(k,405) + lu(k,413) = lu(k,413) - lu(k,270) * lu(k,405) + lu(k,414) = lu(k,414) - lu(k,271) * lu(k,405) + lu(k,415) = lu(k,415) - lu(k,272) * lu(k,405) + lu(k,416) = lu(k,416) - lu(k,273) * lu(k,405) + lu(k,417) = lu(k,417) - lu(k,274) * lu(k,405) + lu(k,418) = lu(k,418) - lu(k,275) * lu(k,405) + lu(k,420) = lu(k,420) - lu(k,276) * lu(k,405) + lu(k,431) = lu(k,431) - lu(k,265) * lu(k,429) + lu(k,433) = lu(k,433) - lu(k,266) * lu(k,429) + lu(k,434) = lu(k,434) - lu(k,267) * lu(k,429) + lu(k,436) = lu(k,436) - lu(k,268) * lu(k,429) + lu(k,437) = lu(k,437) - lu(k,269) * lu(k,429) + lu(k,438) = lu(k,438) - lu(k,270) * lu(k,429) + lu(k,439) = lu(k,439) - lu(k,271) * lu(k,429) + lu(k,440) = lu(k,440) - lu(k,272) * lu(k,429) + lu(k,441) = lu(k,441) - lu(k,273) * lu(k,429) + lu(k,442) = lu(k,442) - lu(k,274) * lu(k,429) + lu(k,443) = lu(k,443) - lu(k,275) * lu(k,429) + lu(k,445) = lu(k,445) - lu(k,276) * lu(k,429) + lu(k,457) = lu(k,457) - lu(k,265) * lu(k,455) + lu(k,459) = lu(k,459) - lu(k,266) * lu(k,455) + lu(k,460) = lu(k,460) - lu(k,267) * lu(k,455) + lu(k,462) = lu(k,462) - lu(k,268) * lu(k,455) + lu(k,463) = lu(k,463) - lu(k,269) * lu(k,455) + lu(k,464) = lu(k,464) - lu(k,270) * lu(k,455) + lu(k,465) = lu(k,465) - lu(k,271) * lu(k,455) + lu(k,466) = lu(k,466) - lu(k,272) * lu(k,455) + lu(k,467) = lu(k,467) - lu(k,273) * lu(k,455) + lu(k,468) = lu(k,468) - lu(k,274) * lu(k,455) + lu(k,469) = lu(k,469) - lu(k,275) * lu(k,455) + lu(k,471) = lu(k,471) - lu(k,276) * lu(k,455) + lu(k,480) = lu(k,480) - lu(k,265) * lu(k,479) + lu(k,482) = lu(k,482) - lu(k,266) * lu(k,479) + lu(k,483) = lu(k,483) - lu(k,267) * lu(k,479) + lu(k,485) = lu(k,485) - lu(k,268) * lu(k,479) + lu(k,486) = lu(k,486) - lu(k,269) * lu(k,479) + lu(k,487) = lu(k,487) - lu(k,270) * lu(k,479) + lu(k,488) = lu(k,488) - lu(k,271) * lu(k,479) + lu(k,489) = lu(k,489) - lu(k,272) * lu(k,479) + lu(k,490) = lu(k,490) - lu(k,273) * lu(k,479) + lu(k,491) = lu(k,491) - lu(k,274) * lu(k,479) + lu(k,492) = lu(k,492) - lu(k,275) * lu(k,479) + lu(k,494) = lu(k,494) - lu(k,276) * lu(k,479) + lu(k,532) = lu(k,532) - lu(k,265) * lu(k,530) + lu(k,534) = lu(k,534) - lu(k,266) * lu(k,530) + lu(k,535) = lu(k,535) - lu(k,267) * lu(k,530) + lu(k,537) = lu(k,537) - lu(k,268) * lu(k,530) + lu(k,538) = lu(k,538) - lu(k,269) * lu(k,530) + lu(k,539) = lu(k,539) - lu(k,270) * lu(k,530) + lu(k,540) = lu(k,540) - lu(k,271) * lu(k,530) + lu(k,541) = lu(k,541) - lu(k,272) * lu(k,530) + lu(k,542) = lu(k,542) - lu(k,273) * lu(k,530) + lu(k,543) = lu(k,543) - lu(k,274) * lu(k,530) + lu(k,544) = lu(k,544) - lu(k,275) * lu(k,530) + lu(k,546) = lu(k,546) - lu(k,276) * lu(k,530) + lu(k,576) = lu(k,576) - lu(k,265) * lu(k,574) + lu(k,578) = lu(k,578) - lu(k,266) * lu(k,574) + lu(k,579) = lu(k,579) - lu(k,267) * lu(k,574) + lu(k,581) = lu(k,581) - lu(k,268) * lu(k,574) + lu(k,582) = lu(k,582) - lu(k,269) * lu(k,574) + lu(k,583) = lu(k,583) - lu(k,270) * lu(k,574) + lu(k,584) = - lu(k,271) * lu(k,574) + lu(k,585) = lu(k,585) - lu(k,272) * lu(k,574) + lu(k,586) = lu(k,586) - lu(k,273) * lu(k,574) + lu(k,587) = lu(k,587) - lu(k,274) * lu(k,574) + lu(k,588) = lu(k,588) - lu(k,275) * lu(k,574) + lu(k,590) = lu(k,590) - lu(k,276) * lu(k,574) + lu(k,633) = lu(k,633) - lu(k,265) * lu(k,631) + lu(k,635) = lu(k,635) - lu(k,266) * lu(k,631) + lu(k,636) = lu(k,636) - lu(k,267) * lu(k,631) + lu(k,638) = lu(k,638) - lu(k,268) * lu(k,631) + lu(k,639) = lu(k,639) - lu(k,269) * lu(k,631) + lu(k,640) = lu(k,640) - lu(k,270) * lu(k,631) + lu(k,641) = lu(k,641) - lu(k,271) * lu(k,631) + lu(k,642) = lu(k,642) - lu(k,272) * lu(k,631) + lu(k,643) = lu(k,643) - lu(k,273) * lu(k,631) + lu(k,644) = lu(k,644) - lu(k,274) * lu(k,631) + lu(k,645) = lu(k,645) - lu(k,275) * lu(k,631) + lu(k,647) = lu(k,647) - lu(k,276) * lu(k,631) end do end subroutine lu_fac06 subroutine lu_fac07( avec_len, lu ) @@ -1484,136 +1484,136 @@ subroutine lu_fac07( avec_len, lu ) lu(k,293) = lu(k,293) * lu(k,282) lu(k,294) = lu(k,294) * lu(k,282) lu(k,295) = lu(k,295) * lu(k,282) - lu(k,315) = lu(k,315) - lu(k,283) * lu(k,314) - lu(k,316) = lu(k,316) - lu(k,284) * lu(k,314) - lu(k,318) = - lu(k,285) * lu(k,314) - lu(k,319) = - lu(k,286) * lu(k,314) - lu(k,320) = - lu(k,287) * lu(k,314) - lu(k,321) = lu(k,321) - lu(k,288) * lu(k,314) - lu(k,322) = - lu(k,289) * lu(k,314) - lu(k,323) = lu(k,323) - lu(k,290) * lu(k,314) - lu(k,324) = lu(k,324) - lu(k,291) * lu(k,314) - lu(k,325) = lu(k,325) - lu(k,292) * lu(k,314) - lu(k,326) = lu(k,326) - lu(k,293) * lu(k,314) - lu(k,327) = lu(k,327) - lu(k,294) * lu(k,314) - lu(k,328) = lu(k,328) - lu(k,295) * lu(k,314) - lu(k,337) = lu(k,337) - lu(k,283) * lu(k,336) - lu(k,338) = lu(k,338) - lu(k,284) * lu(k,336) - lu(k,340) = lu(k,340) - lu(k,285) * lu(k,336) - lu(k,341) = lu(k,341) - lu(k,286) * lu(k,336) - lu(k,342) = lu(k,342) - lu(k,287) * lu(k,336) - lu(k,343) = lu(k,343) - lu(k,288) * lu(k,336) - lu(k,344) = lu(k,344) - lu(k,289) * lu(k,336) - lu(k,345) = lu(k,345) - lu(k,290) * lu(k,336) - lu(k,346) = lu(k,346) - lu(k,291) * lu(k,336) - lu(k,347) = lu(k,347) - lu(k,292) * lu(k,336) - lu(k,348) = lu(k,348) - lu(k,293) * lu(k,336) - lu(k,349) = lu(k,349) - lu(k,294) * lu(k,336) - lu(k,350) = - lu(k,295) * lu(k,336) - lu(k,385) = lu(k,385) - lu(k,283) * lu(k,384) - lu(k,386) = lu(k,386) - lu(k,284) * lu(k,384) - lu(k,388) = lu(k,388) - lu(k,285) * lu(k,384) - lu(k,389) = lu(k,389) - lu(k,286) * lu(k,384) - lu(k,390) = lu(k,390) - lu(k,287) * lu(k,384) - lu(k,391) = lu(k,391) - lu(k,288) * lu(k,384) - lu(k,392) = lu(k,392) - lu(k,289) * lu(k,384) - lu(k,393) = lu(k,393) - lu(k,290) * lu(k,384) - lu(k,394) = lu(k,394) - lu(k,291) * lu(k,384) - lu(k,395) = lu(k,395) - lu(k,292) * lu(k,384) - lu(k,396) = lu(k,396) - lu(k,293) * lu(k,384) - lu(k,397) = lu(k,397) - lu(k,294) * lu(k,384) - lu(k,398) = lu(k,398) - lu(k,295) * lu(k,384) - lu(k,411) = lu(k,411) - lu(k,283) * lu(k,410) - lu(k,412) = lu(k,412) - lu(k,284) * lu(k,410) - lu(k,414) = lu(k,414) - lu(k,285) * lu(k,410) - lu(k,415) = lu(k,415) - lu(k,286) * lu(k,410) - lu(k,416) = lu(k,416) - lu(k,287) * lu(k,410) - lu(k,417) = lu(k,417) - lu(k,288) * lu(k,410) - lu(k,418) = lu(k,418) - lu(k,289) * lu(k,410) - lu(k,419) = lu(k,419) - lu(k,290) * lu(k,410) - lu(k,420) = lu(k,420) - lu(k,291) * lu(k,410) - lu(k,421) = lu(k,421) - lu(k,292) * lu(k,410) - lu(k,422) = lu(k,422) - lu(k,293) * lu(k,410) - lu(k,423) = lu(k,423) - lu(k,294) * lu(k,410) - lu(k,424) = lu(k,424) - lu(k,295) * lu(k,410) - lu(k,436) = lu(k,436) - lu(k,283) * lu(k,435) - lu(k,437) = lu(k,437) - lu(k,284) * lu(k,435) - lu(k,439) = lu(k,439) - lu(k,285) * lu(k,435) - lu(k,440) = lu(k,440) - lu(k,286) * lu(k,435) - lu(k,441) = lu(k,441) - lu(k,287) * lu(k,435) - lu(k,442) = lu(k,442) - lu(k,288) * lu(k,435) - lu(k,443) = lu(k,443) - lu(k,289) * lu(k,435) - lu(k,444) = lu(k,444) - lu(k,290) * lu(k,435) - lu(k,445) = lu(k,445) - lu(k,291) * lu(k,435) - lu(k,446) = lu(k,446) - lu(k,292) * lu(k,435) - lu(k,447) = lu(k,447) - lu(k,293) * lu(k,435) - lu(k,448) = lu(k,448) - lu(k,294) * lu(k,435) - lu(k,449) = lu(k,449) - lu(k,295) * lu(k,435) - lu(k,456) = lu(k,456) - lu(k,283) * lu(k,455) - lu(k,457) = lu(k,457) - lu(k,284) * lu(k,455) - lu(k,459) = lu(k,459) - lu(k,285) * lu(k,455) - lu(k,460) = - lu(k,286) * lu(k,455) - lu(k,461) = - lu(k,287) * lu(k,455) - lu(k,462) = lu(k,462) - lu(k,288) * lu(k,455) - lu(k,463) = lu(k,463) - lu(k,289) * lu(k,455) - lu(k,464) = lu(k,464) - lu(k,290) * lu(k,455) - lu(k,465) = lu(k,465) - lu(k,291) * lu(k,455) - lu(k,466) = lu(k,466) - lu(k,292) * lu(k,455) - lu(k,467) = lu(k,467) - lu(k,293) * lu(k,455) - lu(k,468) = lu(k,468) - lu(k,294) * lu(k,455) - lu(k,469) = lu(k,469) - lu(k,295) * lu(k,455) - lu(k,475) = lu(k,475) - lu(k,283) * lu(k,474) - lu(k,476) = lu(k,476) - lu(k,284) * lu(k,474) - lu(k,478) = - lu(k,285) * lu(k,474) - lu(k,479) = lu(k,479) - lu(k,286) * lu(k,474) - lu(k,480) = lu(k,480) - lu(k,287) * lu(k,474) - lu(k,481) = lu(k,481) - lu(k,288) * lu(k,474) - lu(k,482) = - lu(k,289) * lu(k,474) - lu(k,483) = lu(k,483) - lu(k,290) * lu(k,474) - lu(k,484) = lu(k,484) - lu(k,291) * lu(k,474) - lu(k,485) = lu(k,485) - lu(k,292) * lu(k,474) - lu(k,486) = lu(k,486) - lu(k,293) * lu(k,474) - lu(k,487) = lu(k,487) - lu(k,294) * lu(k,474) - lu(k,488) = lu(k,488) - lu(k,295) * lu(k,474) - lu(k,531) = lu(k,531) - lu(k,283) * lu(k,530) - lu(k,532) = lu(k,532) - lu(k,284) * lu(k,530) - lu(k,534) = lu(k,534) - lu(k,285) * lu(k,530) - lu(k,535) = lu(k,535) - lu(k,286) * lu(k,530) - lu(k,536) = lu(k,536) - lu(k,287) * lu(k,530) - lu(k,537) = lu(k,537) - lu(k,288) * lu(k,530) - lu(k,538) = lu(k,538) - lu(k,289) * lu(k,530) - lu(k,539) = lu(k,539) - lu(k,290) * lu(k,530) - lu(k,540) = lu(k,540) - lu(k,291) * lu(k,530) - lu(k,541) = lu(k,541) - lu(k,292) * lu(k,530) - lu(k,542) = lu(k,542) - lu(k,293) * lu(k,530) - lu(k,543) = lu(k,543) - lu(k,294) * lu(k,530) - lu(k,544) = lu(k,544) - lu(k,295) * lu(k,530) - lu(k,556) = lu(k,556) - lu(k,283) * lu(k,555) - lu(k,557) = lu(k,557) - lu(k,284) * lu(k,555) - lu(k,559) = lu(k,559) - lu(k,285) * lu(k,555) - lu(k,560) = lu(k,560) - lu(k,286) * lu(k,555) - lu(k,561) = lu(k,561) - lu(k,287) * lu(k,555) - lu(k,562) = lu(k,562) - lu(k,288) * lu(k,555) - lu(k,563) = lu(k,563) - lu(k,289) * lu(k,555) - lu(k,564) = lu(k,564) - lu(k,290) * lu(k,555) - lu(k,565) = lu(k,565) - lu(k,291) * lu(k,555) - lu(k,566) = lu(k,566) - lu(k,292) * lu(k,555) - lu(k,567) = lu(k,567) - lu(k,293) * lu(k,555) - lu(k,568) = lu(k,568) - lu(k,294) * lu(k,555) - lu(k,569) = lu(k,569) - lu(k,295) * lu(k,555) - lu(k,595) = lu(k,595) - lu(k,283) * lu(k,594) - lu(k,596) = lu(k,596) - lu(k,284) * lu(k,594) - lu(k,598) = lu(k,598) - lu(k,285) * lu(k,594) - lu(k,599) = lu(k,599) - lu(k,286) * lu(k,594) - lu(k,600) = lu(k,600) - lu(k,287) * lu(k,594) - lu(k,601) = lu(k,601) - lu(k,288) * lu(k,594) - lu(k,602) = lu(k,602) - lu(k,289) * lu(k,594) - lu(k,603) = lu(k,603) - lu(k,290) * lu(k,594) - lu(k,604) = lu(k,604) - lu(k,291) * lu(k,594) - lu(k,605) = lu(k,605) - lu(k,292) * lu(k,594) - lu(k,606) = lu(k,606) - lu(k,293) * lu(k,594) - lu(k,607) = lu(k,607) - lu(k,294) * lu(k,594) - lu(k,608) = lu(k,608) - lu(k,295) * lu(k,594) + lu(k,319) = lu(k,319) - lu(k,283) * lu(k,318) + lu(k,320) = lu(k,320) - lu(k,284) * lu(k,318) + lu(k,321) = lu(k,321) - lu(k,285) * lu(k,318) + lu(k,322) = lu(k,322) - lu(k,286) * lu(k,318) + lu(k,324) = lu(k,324) - lu(k,287) * lu(k,318) + lu(k,325) = lu(k,325) - lu(k,288) * lu(k,318) + lu(k,326) = lu(k,326) - lu(k,289) * lu(k,318) + lu(k,327) = lu(k,327) - lu(k,290) * lu(k,318) + lu(k,328) = lu(k,328) - lu(k,291) * lu(k,318) + lu(k,329) = lu(k,329) - lu(k,292) * lu(k,318) + lu(k,330) = lu(k,330) - lu(k,293) * lu(k,318) + lu(k,331) = lu(k,331) - lu(k,294) * lu(k,318) + lu(k,333) = lu(k,333) - lu(k,295) * lu(k,318) + lu(k,339) = lu(k,339) - lu(k,283) * lu(k,338) + lu(k,340) = lu(k,340) - lu(k,284) * lu(k,338) + lu(k,341) = lu(k,341) - lu(k,285) * lu(k,338) + lu(k,342) = lu(k,342) - lu(k,286) * lu(k,338) + lu(k,344) = lu(k,344) - lu(k,287) * lu(k,338) + lu(k,345) = lu(k,345) - lu(k,288) * lu(k,338) + lu(k,346) = - lu(k,289) * lu(k,338) + lu(k,347) = lu(k,347) - lu(k,290) * lu(k,338) + lu(k,348) = lu(k,348) - lu(k,291) * lu(k,338) + lu(k,349) = lu(k,349) - lu(k,292) * lu(k,338) + lu(k,350) = lu(k,350) - lu(k,293) * lu(k,338) + lu(k,351) = - lu(k,294) * lu(k,338) + lu(k,353) = lu(k,353) - lu(k,295) * lu(k,338) + lu(k,381) = lu(k,381) - lu(k,283) * lu(k,380) + lu(k,382) = lu(k,382) - lu(k,284) * lu(k,380) + lu(k,383) = lu(k,383) - lu(k,285) * lu(k,380) + lu(k,384) = - lu(k,286) * lu(k,380) + lu(k,386) = lu(k,386) - lu(k,287) * lu(k,380) + lu(k,387) = lu(k,387) - lu(k,288) * lu(k,380) + lu(k,388) = lu(k,388) - lu(k,289) * lu(k,380) + lu(k,389) = lu(k,389) - lu(k,290) * lu(k,380) + lu(k,390) = lu(k,390) - lu(k,291) * lu(k,380) + lu(k,391) = lu(k,391) - lu(k,292) * lu(k,380) + lu(k,392) = lu(k,392) - lu(k,293) * lu(k,380) + lu(k,393) = lu(k,393) - lu(k,294) * lu(k,380) + lu(k,395) = lu(k,395) - lu(k,295) * lu(k,380) + lu(k,431) = lu(k,431) - lu(k,283) * lu(k,430) + lu(k,432) = lu(k,432) - lu(k,284) * lu(k,430) + lu(k,433) = lu(k,433) - lu(k,285) * lu(k,430) + lu(k,434) = lu(k,434) - lu(k,286) * lu(k,430) + lu(k,436) = lu(k,436) - lu(k,287) * lu(k,430) + lu(k,437) = lu(k,437) - lu(k,288) * lu(k,430) + lu(k,438) = lu(k,438) - lu(k,289) * lu(k,430) + lu(k,439) = lu(k,439) - lu(k,290) * lu(k,430) + lu(k,440) = lu(k,440) - lu(k,291) * lu(k,430) + lu(k,441) = lu(k,441) - lu(k,292) * lu(k,430) + lu(k,442) = lu(k,442) - lu(k,293) * lu(k,430) + lu(k,443) = lu(k,443) - lu(k,294) * lu(k,430) + lu(k,445) = lu(k,445) - lu(k,295) * lu(k,430) + lu(k,457) = lu(k,457) - lu(k,283) * lu(k,456) + lu(k,458) = lu(k,458) - lu(k,284) * lu(k,456) + lu(k,459) = lu(k,459) - lu(k,285) * lu(k,456) + lu(k,460) = lu(k,460) - lu(k,286) * lu(k,456) + lu(k,462) = lu(k,462) - lu(k,287) * lu(k,456) + lu(k,463) = lu(k,463) - lu(k,288) * lu(k,456) + lu(k,464) = lu(k,464) - lu(k,289) * lu(k,456) + lu(k,465) = lu(k,465) - lu(k,290) * lu(k,456) + lu(k,466) = lu(k,466) - lu(k,291) * lu(k,456) + lu(k,467) = lu(k,467) - lu(k,292) * lu(k,456) + lu(k,468) = lu(k,468) - lu(k,293) * lu(k,456) + lu(k,469) = lu(k,469) - lu(k,294) * lu(k,456) + lu(k,471) = lu(k,471) - lu(k,295) * lu(k,456) + lu(k,501) = lu(k,501) - lu(k,283) * lu(k,500) + lu(k,502) = lu(k,502) - lu(k,284) * lu(k,500) + lu(k,503) = - lu(k,285) * lu(k,500) + lu(k,504) = lu(k,504) - lu(k,286) * lu(k,500) + lu(k,506) = lu(k,506) - lu(k,287) * lu(k,500) + lu(k,507) = lu(k,507) - lu(k,288) * lu(k,500) + lu(k,508) = - lu(k,289) * lu(k,500) + lu(k,509) = - lu(k,290) * lu(k,500) + lu(k,510) = lu(k,510) - lu(k,291) * lu(k,500) + lu(k,511) = lu(k,511) - lu(k,292) * lu(k,500) + lu(k,512) = lu(k,512) - lu(k,293) * lu(k,500) + lu(k,513) = - lu(k,294) * lu(k,500) + lu(k,515) = lu(k,515) - lu(k,295) * lu(k,500) + lu(k,532) = lu(k,532) - lu(k,283) * lu(k,531) + lu(k,533) = lu(k,533) - lu(k,284) * lu(k,531) + lu(k,534) = lu(k,534) - lu(k,285) * lu(k,531) + lu(k,535) = lu(k,535) - lu(k,286) * lu(k,531) + lu(k,537) = lu(k,537) - lu(k,287) * lu(k,531) + lu(k,538) = lu(k,538) - lu(k,288) * lu(k,531) + lu(k,539) = lu(k,539) - lu(k,289) * lu(k,531) + lu(k,540) = lu(k,540) - lu(k,290) * lu(k,531) + lu(k,541) = lu(k,541) - lu(k,291) * lu(k,531) + lu(k,542) = lu(k,542) - lu(k,292) * lu(k,531) + lu(k,543) = lu(k,543) - lu(k,293) * lu(k,531) + lu(k,544) = lu(k,544) - lu(k,294) * lu(k,531) + lu(k,546) = lu(k,546) - lu(k,295) * lu(k,531) + lu(k,551) = lu(k,551) - lu(k,283) * lu(k,550) + lu(k,552) = lu(k,552) - lu(k,284) * lu(k,550) + lu(k,553) = - lu(k,285) * lu(k,550) + lu(k,554) = lu(k,554) - lu(k,286) * lu(k,550) + lu(k,556) = lu(k,556) - lu(k,287) * lu(k,550) + lu(k,557) = lu(k,557) - lu(k,288) * lu(k,550) + lu(k,558) = lu(k,558) - lu(k,289) * lu(k,550) + lu(k,559) = - lu(k,290) * lu(k,550) + lu(k,560) = lu(k,560) - lu(k,291) * lu(k,550) + lu(k,561) = lu(k,561) - lu(k,292) * lu(k,550) + lu(k,562) = lu(k,562) - lu(k,293) * lu(k,550) + lu(k,563) = lu(k,563) - lu(k,294) * lu(k,550) + lu(k,565) = lu(k,565) - lu(k,295) * lu(k,550) + lu(k,576) = lu(k,576) - lu(k,283) * lu(k,575) + lu(k,577) = lu(k,577) - lu(k,284) * lu(k,575) + lu(k,578) = lu(k,578) - lu(k,285) * lu(k,575) + lu(k,579) = lu(k,579) - lu(k,286) * lu(k,575) + lu(k,581) = lu(k,581) - lu(k,287) * lu(k,575) + lu(k,582) = lu(k,582) - lu(k,288) * lu(k,575) + lu(k,583) = lu(k,583) - lu(k,289) * lu(k,575) + lu(k,584) = lu(k,584) - lu(k,290) * lu(k,575) + lu(k,585) = lu(k,585) - lu(k,291) * lu(k,575) + lu(k,586) = lu(k,586) - lu(k,292) * lu(k,575) + lu(k,587) = lu(k,587) - lu(k,293) * lu(k,575) + lu(k,588) = lu(k,588) - lu(k,294) * lu(k,575) + lu(k,590) = lu(k,590) - lu(k,295) * lu(k,575) + lu(k,633) = lu(k,633) - lu(k,283) * lu(k,632) + lu(k,634) = lu(k,634) - lu(k,284) * lu(k,632) + lu(k,635) = lu(k,635) - lu(k,285) * lu(k,632) + lu(k,636) = lu(k,636) - lu(k,286) * lu(k,632) + lu(k,638) = lu(k,638) - lu(k,287) * lu(k,632) + lu(k,639) = lu(k,639) - lu(k,288) * lu(k,632) + lu(k,640) = lu(k,640) - lu(k,289) * lu(k,632) + lu(k,641) = lu(k,641) - lu(k,290) * lu(k,632) + lu(k,642) = lu(k,642) - lu(k,291) * lu(k,632) + lu(k,643) = lu(k,643) - lu(k,292) * lu(k,632) + lu(k,644) = lu(k,644) - lu(k,293) * lu(k,632) + lu(k,645) = lu(k,645) - lu(k,294) * lu(k,632) + lu(k,647) = lu(k,647) - lu(k,295) * lu(k,632) 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) @@ -1625,329 +1625,329 @@ subroutine lu_fac07( avec_len, lu ) lu(k,306) = lu(k,306) * lu(k,298) lu(k,307) = lu(k,307) * lu(k,298) lu(k,308) = lu(k,308) * lu(k,298) - lu(k,316) = lu(k,316) - lu(k,299) * lu(k,315) - lu(k,317) = lu(k,317) - lu(k,300) * lu(k,315) - lu(k,321) = lu(k,321) - lu(k,301) * lu(k,315) - lu(k,323) = lu(k,323) - lu(k,302) * lu(k,315) - lu(k,324) = lu(k,324) - lu(k,303) * lu(k,315) - lu(k,325) = lu(k,325) - lu(k,304) * lu(k,315) - lu(k,326) = lu(k,326) - lu(k,305) * lu(k,315) - lu(k,327) = lu(k,327) - lu(k,306) * lu(k,315) - lu(k,328) = lu(k,328) - lu(k,307) * lu(k,315) - lu(k,329) = lu(k,329) - lu(k,308) * lu(k,315) - lu(k,338) = lu(k,338) - lu(k,299) * lu(k,337) - lu(k,339) = lu(k,339) - lu(k,300) * lu(k,337) - lu(k,343) = lu(k,343) - lu(k,301) * lu(k,337) - lu(k,345) = lu(k,345) - lu(k,302) * lu(k,337) - lu(k,346) = lu(k,346) - lu(k,303) * lu(k,337) - lu(k,347) = lu(k,347) - lu(k,304) * lu(k,337) - lu(k,348) = lu(k,348) - lu(k,305) * lu(k,337) - lu(k,349) = lu(k,349) - lu(k,306) * lu(k,337) - lu(k,350) = lu(k,350) - lu(k,307) * lu(k,337) - lu(k,351) = lu(k,351) - lu(k,308) * lu(k,337) - lu(k,361) = lu(k,361) - lu(k,299) * lu(k,360) - lu(k,362) = lu(k,362) - lu(k,300) * lu(k,360) - lu(k,366) = lu(k,366) - lu(k,301) * lu(k,360) - lu(k,368) = lu(k,368) - lu(k,302) * lu(k,360) - lu(k,369) = lu(k,369) - lu(k,303) * lu(k,360) - lu(k,370) = lu(k,370) - lu(k,304) * lu(k,360) - lu(k,371) = lu(k,371) - lu(k,305) * lu(k,360) - lu(k,372) = lu(k,372) - lu(k,306) * lu(k,360) - lu(k,373) = lu(k,373) - lu(k,307) * lu(k,360) - lu(k,374) = lu(k,374) - lu(k,308) * lu(k,360) - lu(k,386) = lu(k,386) - lu(k,299) * lu(k,385) - lu(k,387) = lu(k,387) - lu(k,300) * lu(k,385) - lu(k,391) = lu(k,391) - lu(k,301) * lu(k,385) - lu(k,393) = lu(k,393) - lu(k,302) * lu(k,385) - lu(k,394) = lu(k,394) - lu(k,303) * lu(k,385) - lu(k,395) = lu(k,395) - lu(k,304) * lu(k,385) - lu(k,396) = lu(k,396) - lu(k,305) * lu(k,385) - lu(k,397) = lu(k,397) - lu(k,306) * lu(k,385) - lu(k,398) = lu(k,398) - lu(k,307) * lu(k,385) - lu(k,399) = lu(k,399) - lu(k,308) * lu(k,385) - lu(k,412) = lu(k,412) - lu(k,299) * lu(k,411) - lu(k,413) = lu(k,413) - lu(k,300) * lu(k,411) - lu(k,417) = lu(k,417) - lu(k,301) * lu(k,411) - lu(k,419) = lu(k,419) - lu(k,302) * lu(k,411) - lu(k,420) = lu(k,420) - lu(k,303) * lu(k,411) - lu(k,421) = lu(k,421) - lu(k,304) * lu(k,411) - lu(k,422) = lu(k,422) - lu(k,305) * lu(k,411) - lu(k,423) = lu(k,423) - lu(k,306) * lu(k,411) - lu(k,424) = lu(k,424) - lu(k,307) * lu(k,411) - lu(k,425) = lu(k,425) - lu(k,308) * lu(k,411) - lu(k,437) = lu(k,437) - lu(k,299) * lu(k,436) - lu(k,438) = lu(k,438) - lu(k,300) * lu(k,436) - lu(k,442) = lu(k,442) - lu(k,301) * lu(k,436) - lu(k,444) = lu(k,444) - lu(k,302) * lu(k,436) - lu(k,445) = lu(k,445) - lu(k,303) * lu(k,436) - lu(k,446) = lu(k,446) - lu(k,304) * lu(k,436) - lu(k,447) = lu(k,447) - lu(k,305) * lu(k,436) - lu(k,448) = lu(k,448) - lu(k,306) * lu(k,436) - lu(k,449) = lu(k,449) - lu(k,307) * lu(k,436) - lu(k,450) = lu(k,450) - lu(k,308) * lu(k,436) - lu(k,457) = lu(k,457) - lu(k,299) * lu(k,456) - lu(k,458) = lu(k,458) - lu(k,300) * lu(k,456) - lu(k,462) = lu(k,462) - lu(k,301) * lu(k,456) - lu(k,464) = lu(k,464) - lu(k,302) * lu(k,456) - lu(k,465) = lu(k,465) - lu(k,303) * lu(k,456) - lu(k,466) = lu(k,466) - lu(k,304) * lu(k,456) - lu(k,467) = lu(k,467) - lu(k,305) * lu(k,456) - lu(k,468) = lu(k,468) - lu(k,306) * lu(k,456) - lu(k,469) = lu(k,469) - lu(k,307) * lu(k,456) - lu(k,470) = lu(k,470) - lu(k,308) * lu(k,456) - lu(k,476) = lu(k,476) - lu(k,299) * lu(k,475) - lu(k,477) = lu(k,477) - lu(k,300) * lu(k,475) - lu(k,481) = lu(k,481) - lu(k,301) * lu(k,475) - lu(k,483) = lu(k,483) - lu(k,302) * lu(k,475) - lu(k,484) = lu(k,484) - lu(k,303) * lu(k,475) - lu(k,485) = lu(k,485) - lu(k,304) * lu(k,475) - lu(k,486) = lu(k,486) - lu(k,305) * lu(k,475) - lu(k,487) = lu(k,487) - lu(k,306) * lu(k,475) - lu(k,488) = lu(k,488) - lu(k,307) * lu(k,475) - lu(k,489) = lu(k,489) - lu(k,308) * lu(k,475) - lu(k,501) = lu(k,501) - lu(k,299) * lu(k,500) - lu(k,502) = lu(k,502) - lu(k,300) * lu(k,500) - lu(k,506) = lu(k,506) - lu(k,301) * lu(k,500) - lu(k,508) = lu(k,508) - lu(k,302) * lu(k,500) - lu(k,509) = lu(k,509) - lu(k,303) * lu(k,500) - lu(k,510) = lu(k,510) - lu(k,304) * lu(k,500) - lu(k,511) = lu(k,511) - lu(k,305) * lu(k,500) - lu(k,512) = lu(k,512) - lu(k,306) * lu(k,500) - lu(k,513) = lu(k,513) - lu(k,307) * lu(k,500) - lu(k,514) = lu(k,514) - lu(k,308) * lu(k,500) - lu(k,532) = lu(k,532) - lu(k,299) * lu(k,531) - lu(k,533) = lu(k,533) - lu(k,300) * lu(k,531) - lu(k,537) = lu(k,537) - lu(k,301) * lu(k,531) - lu(k,539) = lu(k,539) - lu(k,302) * lu(k,531) - lu(k,540) = lu(k,540) - lu(k,303) * lu(k,531) - lu(k,541) = lu(k,541) - lu(k,304) * lu(k,531) - lu(k,542) = lu(k,542) - lu(k,305) * lu(k,531) - lu(k,543) = lu(k,543) - lu(k,306) * lu(k,531) - lu(k,544) = lu(k,544) - lu(k,307) * lu(k,531) - lu(k,545) = lu(k,545) - lu(k,308) * lu(k,531) - lu(k,557) = lu(k,557) - lu(k,299) * lu(k,556) - lu(k,558) = lu(k,558) - lu(k,300) * lu(k,556) - lu(k,562) = lu(k,562) - lu(k,301) * lu(k,556) - lu(k,564) = lu(k,564) - lu(k,302) * lu(k,556) - lu(k,565) = lu(k,565) - lu(k,303) * lu(k,556) - lu(k,566) = lu(k,566) - lu(k,304) * lu(k,556) - lu(k,567) = lu(k,567) - lu(k,305) * lu(k,556) - lu(k,568) = lu(k,568) - lu(k,306) * lu(k,556) - lu(k,569) = lu(k,569) - lu(k,307) * lu(k,556) - lu(k,570) = lu(k,570) - lu(k,308) * lu(k,556) - lu(k,596) = lu(k,596) - lu(k,299) * lu(k,595) - lu(k,597) = lu(k,597) - lu(k,300) * lu(k,595) - lu(k,601) = lu(k,601) - lu(k,301) * lu(k,595) - lu(k,603) = lu(k,603) - lu(k,302) * lu(k,595) - lu(k,604) = lu(k,604) - lu(k,303) * lu(k,595) - lu(k,605) = lu(k,605) - lu(k,304) * lu(k,595) - lu(k,606) = lu(k,606) - lu(k,305) * lu(k,595) - lu(k,607) = lu(k,607) - lu(k,306) * lu(k,595) - lu(k,608) = lu(k,608) - lu(k,307) * lu(k,595) - lu(k,609) = lu(k,609) - lu(k,308) * lu(k,595) - lu(k,616) = lu(k,616) - lu(k,299) * lu(k,615) - lu(k,617) = - lu(k,300) * lu(k,615) - lu(k,621) = lu(k,621) - lu(k,301) * lu(k,615) - lu(k,623) = lu(k,623) - lu(k,302) * lu(k,615) - lu(k,624) = lu(k,624) - lu(k,303) * lu(k,615) - lu(k,625) = lu(k,625) - lu(k,304) * lu(k,615) - lu(k,626) = - lu(k,305) * lu(k,615) - lu(k,627) = lu(k,627) - lu(k,306) * lu(k,615) - lu(k,628) = lu(k,628) - lu(k,307) * lu(k,615) - lu(k,629) = - lu(k,308) * lu(k,615) + lu(k,320) = lu(k,320) - lu(k,299) * lu(k,319) + lu(k,322) = lu(k,322) - lu(k,300) * lu(k,319) + lu(k,323) = lu(k,323) - lu(k,301) * lu(k,319) + lu(k,324) = lu(k,324) - lu(k,302) * lu(k,319) + lu(k,325) = lu(k,325) - lu(k,303) * lu(k,319) + lu(k,328) = lu(k,328) - lu(k,304) * lu(k,319) + lu(k,329) = lu(k,329) - lu(k,305) * lu(k,319) + lu(k,330) = lu(k,330) - lu(k,306) * lu(k,319) + lu(k,332) = lu(k,332) - lu(k,307) * lu(k,319) + lu(k,333) = lu(k,333) - lu(k,308) * lu(k,319) + lu(k,340) = lu(k,340) - lu(k,299) * lu(k,339) + lu(k,342) = lu(k,342) - lu(k,300) * lu(k,339) + lu(k,343) = lu(k,343) - lu(k,301) * lu(k,339) + lu(k,344) = lu(k,344) - lu(k,302) * lu(k,339) + lu(k,345) = lu(k,345) - lu(k,303) * lu(k,339) + lu(k,348) = lu(k,348) - lu(k,304) * lu(k,339) + lu(k,349) = lu(k,349) - lu(k,305) * lu(k,339) + lu(k,350) = lu(k,350) - lu(k,306) * lu(k,339) + lu(k,352) = lu(k,352) - lu(k,307) * lu(k,339) + lu(k,353) = lu(k,353) - lu(k,308) * lu(k,339) + lu(k,360) = - lu(k,299) * lu(k,359) + lu(k,362) = lu(k,362) - lu(k,300) * lu(k,359) + lu(k,363) = - lu(k,301) * lu(k,359) + lu(k,364) = lu(k,364) - lu(k,302) * lu(k,359) + lu(k,365) = lu(k,365) - lu(k,303) * lu(k,359) + lu(k,368) = lu(k,368) - lu(k,304) * lu(k,359) + lu(k,369) = lu(k,369) - lu(k,305) * lu(k,359) + lu(k,370) = lu(k,370) - lu(k,306) * lu(k,359) + lu(k,372) = - lu(k,307) * lu(k,359) + lu(k,373) = lu(k,373) - lu(k,308) * lu(k,359) + lu(k,382) = lu(k,382) - lu(k,299) * lu(k,381) + lu(k,384) = lu(k,384) - lu(k,300) * lu(k,381) + lu(k,385) = lu(k,385) - lu(k,301) * lu(k,381) + lu(k,386) = lu(k,386) - lu(k,302) * lu(k,381) + lu(k,387) = lu(k,387) - lu(k,303) * lu(k,381) + lu(k,390) = lu(k,390) - lu(k,304) * lu(k,381) + lu(k,391) = lu(k,391) - lu(k,305) * lu(k,381) + lu(k,392) = lu(k,392) - lu(k,306) * lu(k,381) + lu(k,394) = lu(k,394) - lu(k,307) * lu(k,381) + lu(k,395) = lu(k,395) - lu(k,308) * lu(k,381) + lu(k,407) = lu(k,407) - lu(k,299) * lu(k,406) + lu(k,409) = lu(k,409) - lu(k,300) * lu(k,406) + lu(k,410) = lu(k,410) - lu(k,301) * lu(k,406) + lu(k,411) = lu(k,411) - lu(k,302) * lu(k,406) + lu(k,412) = lu(k,412) - lu(k,303) * lu(k,406) + lu(k,415) = lu(k,415) - lu(k,304) * lu(k,406) + lu(k,416) = lu(k,416) - lu(k,305) * lu(k,406) + lu(k,417) = lu(k,417) - lu(k,306) * lu(k,406) + lu(k,419) = lu(k,419) - lu(k,307) * lu(k,406) + lu(k,420) = lu(k,420) - lu(k,308) * lu(k,406) + lu(k,432) = lu(k,432) - lu(k,299) * lu(k,431) + lu(k,434) = lu(k,434) - lu(k,300) * lu(k,431) + lu(k,435) = lu(k,435) - lu(k,301) * lu(k,431) + lu(k,436) = lu(k,436) - lu(k,302) * lu(k,431) + lu(k,437) = lu(k,437) - lu(k,303) * lu(k,431) + lu(k,440) = lu(k,440) - lu(k,304) * lu(k,431) + lu(k,441) = lu(k,441) - lu(k,305) * lu(k,431) + lu(k,442) = lu(k,442) - lu(k,306) * lu(k,431) + lu(k,444) = lu(k,444) - lu(k,307) * lu(k,431) + lu(k,445) = lu(k,445) - lu(k,308) * lu(k,431) + lu(k,458) = lu(k,458) - lu(k,299) * lu(k,457) + lu(k,460) = lu(k,460) - lu(k,300) * lu(k,457) + lu(k,461) = lu(k,461) - lu(k,301) * lu(k,457) + lu(k,462) = lu(k,462) - lu(k,302) * lu(k,457) + lu(k,463) = lu(k,463) - lu(k,303) * lu(k,457) + lu(k,466) = lu(k,466) - lu(k,304) * lu(k,457) + lu(k,467) = lu(k,467) - lu(k,305) * lu(k,457) + lu(k,468) = lu(k,468) - lu(k,306) * lu(k,457) + lu(k,470) = lu(k,470) - lu(k,307) * lu(k,457) + lu(k,471) = lu(k,471) - lu(k,308) * lu(k,457) + lu(k,481) = lu(k,481) - lu(k,299) * lu(k,480) + lu(k,483) = lu(k,483) - lu(k,300) * lu(k,480) + lu(k,484) = lu(k,484) - lu(k,301) * lu(k,480) + lu(k,485) = lu(k,485) - lu(k,302) * lu(k,480) + lu(k,486) = lu(k,486) - lu(k,303) * lu(k,480) + lu(k,489) = lu(k,489) - lu(k,304) * lu(k,480) + lu(k,490) = lu(k,490) - lu(k,305) * lu(k,480) + lu(k,491) = lu(k,491) - lu(k,306) * lu(k,480) + lu(k,493) = lu(k,493) - lu(k,307) * lu(k,480) + lu(k,494) = lu(k,494) - lu(k,308) * lu(k,480) + lu(k,502) = lu(k,502) - lu(k,299) * lu(k,501) + lu(k,504) = lu(k,504) - lu(k,300) * lu(k,501) + lu(k,505) = lu(k,505) - lu(k,301) * lu(k,501) + lu(k,506) = lu(k,506) - lu(k,302) * lu(k,501) + lu(k,507) = lu(k,507) - lu(k,303) * lu(k,501) + lu(k,510) = lu(k,510) - lu(k,304) * lu(k,501) + lu(k,511) = lu(k,511) - lu(k,305) * lu(k,501) + lu(k,512) = lu(k,512) - lu(k,306) * lu(k,501) + lu(k,514) = lu(k,514) - lu(k,307) * lu(k,501) + lu(k,515) = lu(k,515) - lu(k,308) * lu(k,501) + lu(k,533) = lu(k,533) - lu(k,299) * lu(k,532) + lu(k,535) = lu(k,535) - lu(k,300) * lu(k,532) + lu(k,536) = lu(k,536) - lu(k,301) * lu(k,532) + lu(k,537) = lu(k,537) - lu(k,302) * lu(k,532) + lu(k,538) = lu(k,538) - lu(k,303) * lu(k,532) + lu(k,541) = lu(k,541) - lu(k,304) * lu(k,532) + lu(k,542) = lu(k,542) - lu(k,305) * lu(k,532) + lu(k,543) = lu(k,543) - lu(k,306) * lu(k,532) + lu(k,545) = lu(k,545) - lu(k,307) * lu(k,532) + lu(k,546) = lu(k,546) - lu(k,308) * lu(k,532) + lu(k,552) = lu(k,552) - lu(k,299) * lu(k,551) + lu(k,554) = lu(k,554) - lu(k,300) * lu(k,551) + lu(k,555) = lu(k,555) - lu(k,301) * lu(k,551) + lu(k,556) = lu(k,556) - lu(k,302) * lu(k,551) + lu(k,557) = lu(k,557) - lu(k,303) * lu(k,551) + lu(k,560) = lu(k,560) - lu(k,304) * lu(k,551) + lu(k,561) = lu(k,561) - lu(k,305) * lu(k,551) + lu(k,562) = lu(k,562) - lu(k,306) * lu(k,551) + lu(k,564) = lu(k,564) - lu(k,307) * lu(k,551) + lu(k,565) = lu(k,565) - lu(k,308) * lu(k,551) + lu(k,577) = lu(k,577) - lu(k,299) * lu(k,576) + lu(k,579) = lu(k,579) - lu(k,300) * lu(k,576) + lu(k,580) = lu(k,580) - lu(k,301) * lu(k,576) + lu(k,581) = lu(k,581) - lu(k,302) * lu(k,576) + lu(k,582) = lu(k,582) - lu(k,303) * lu(k,576) + lu(k,585) = lu(k,585) - lu(k,304) * lu(k,576) + lu(k,586) = lu(k,586) - lu(k,305) * lu(k,576) + lu(k,587) = lu(k,587) - lu(k,306) * lu(k,576) + lu(k,589) = lu(k,589) - lu(k,307) * lu(k,576) + lu(k,590) = lu(k,590) - lu(k,308) * lu(k,576) + lu(k,595) = lu(k,595) - lu(k,299) * lu(k,594) + lu(k,597) = - lu(k,300) * lu(k,594) + lu(k,598) = lu(k,598) - lu(k,301) * lu(k,594) + lu(k,599) = lu(k,599) - lu(k,302) * lu(k,594) + lu(k,600) = lu(k,600) - lu(k,303) * lu(k,594) + lu(k,603) = lu(k,603) - lu(k,304) * lu(k,594) + lu(k,604) = lu(k,604) - lu(k,305) * lu(k,594) + lu(k,605) = - lu(k,306) * lu(k,594) + lu(k,607) = lu(k,607) - lu(k,307) * lu(k,594) + lu(k,608) = lu(k,608) - lu(k,308) * lu(k,594) lu(k,634) = lu(k,634) - lu(k,299) * lu(k,633) - lu(k,635) = lu(k,635) - lu(k,300) * lu(k,633) - lu(k,639) = lu(k,639) - lu(k,301) * lu(k,633) - lu(k,641) = - lu(k,302) * lu(k,633) - lu(k,642) = lu(k,642) - lu(k,303) * lu(k,633) - lu(k,643) = lu(k,643) - lu(k,304) * lu(k,633) - lu(k,644) = lu(k,644) - lu(k,305) * lu(k,633) - lu(k,645) = lu(k,645) - lu(k,306) * lu(k,633) - lu(k,646) = - lu(k,307) * lu(k,633) + lu(k,636) = lu(k,636) - lu(k,300) * lu(k,633) + lu(k,637) = lu(k,637) - lu(k,301) * lu(k,633) + lu(k,638) = lu(k,638) - lu(k,302) * lu(k,633) + lu(k,639) = lu(k,639) - lu(k,303) * lu(k,633) + lu(k,642) = lu(k,642) - lu(k,304) * lu(k,633) + lu(k,643) = lu(k,643) - lu(k,305) * lu(k,633) + lu(k,644) = lu(k,644) - lu(k,306) * lu(k,633) + lu(k,646) = lu(k,646) - lu(k,307) * lu(k,633) lu(k,647) = lu(k,647) - lu(k,308) * lu(k,633) - 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,324) = lu(k,324) * lu(k,316) - lu(k,325) = lu(k,325) * lu(k,316) - lu(k,326) = lu(k,326) * lu(k,316) - lu(k,327) = lu(k,327) * lu(k,316) - lu(k,328) = lu(k,328) * lu(k,316) - lu(k,329) = lu(k,329) * lu(k,316) - lu(k,339) = lu(k,339) - lu(k,317) * lu(k,338) - lu(k,340) = lu(k,340) - lu(k,318) * lu(k,338) - lu(k,341) = lu(k,341) - lu(k,319) * lu(k,338) - lu(k,342) = lu(k,342) - lu(k,320) * lu(k,338) - lu(k,343) = lu(k,343) - lu(k,321) * lu(k,338) - lu(k,344) = lu(k,344) - lu(k,322) * lu(k,338) - lu(k,345) = lu(k,345) - lu(k,323) * lu(k,338) - lu(k,346) = lu(k,346) - lu(k,324) * lu(k,338) - lu(k,347) = lu(k,347) - lu(k,325) * lu(k,338) - lu(k,348) = lu(k,348) - lu(k,326) * lu(k,338) - lu(k,349) = lu(k,349) - lu(k,327) * lu(k,338) - lu(k,350) = lu(k,350) - lu(k,328) * lu(k,338) - lu(k,351) = lu(k,351) - lu(k,329) * lu(k,338) - lu(k,362) = lu(k,362) - lu(k,317) * lu(k,361) - lu(k,363) = lu(k,363) - lu(k,318) * lu(k,361) - lu(k,364) = lu(k,364) - lu(k,319) * lu(k,361) - lu(k,365) = lu(k,365) - lu(k,320) * lu(k,361) - lu(k,366) = lu(k,366) - lu(k,321) * lu(k,361) - lu(k,367) = lu(k,367) - lu(k,322) * lu(k,361) - lu(k,368) = lu(k,368) - lu(k,323) * lu(k,361) - lu(k,369) = lu(k,369) - lu(k,324) * lu(k,361) - lu(k,370) = lu(k,370) - lu(k,325) * lu(k,361) - lu(k,371) = lu(k,371) - lu(k,326) * lu(k,361) - lu(k,372) = lu(k,372) - lu(k,327) * lu(k,361) - lu(k,373) = lu(k,373) - lu(k,328) * lu(k,361) - lu(k,374) = lu(k,374) - lu(k,329) * lu(k,361) - lu(k,387) = lu(k,387) - lu(k,317) * lu(k,386) - lu(k,388) = lu(k,388) - lu(k,318) * lu(k,386) - lu(k,389) = lu(k,389) - lu(k,319) * lu(k,386) - lu(k,390) = lu(k,390) - lu(k,320) * lu(k,386) - lu(k,391) = lu(k,391) - lu(k,321) * lu(k,386) - lu(k,392) = lu(k,392) - lu(k,322) * lu(k,386) - lu(k,393) = lu(k,393) - lu(k,323) * lu(k,386) - lu(k,394) = lu(k,394) - lu(k,324) * lu(k,386) - lu(k,395) = lu(k,395) - lu(k,325) * lu(k,386) - lu(k,396) = lu(k,396) - lu(k,326) * lu(k,386) - lu(k,397) = lu(k,397) - lu(k,327) * lu(k,386) - lu(k,398) = lu(k,398) - lu(k,328) * lu(k,386) - lu(k,399) = lu(k,399) - lu(k,329) * lu(k,386) - lu(k,413) = lu(k,413) - lu(k,317) * lu(k,412) - lu(k,414) = lu(k,414) - lu(k,318) * lu(k,412) - lu(k,415) = lu(k,415) - lu(k,319) * lu(k,412) - lu(k,416) = lu(k,416) - lu(k,320) * lu(k,412) - lu(k,417) = lu(k,417) - lu(k,321) * lu(k,412) - lu(k,418) = lu(k,418) - lu(k,322) * lu(k,412) - lu(k,419) = lu(k,419) - lu(k,323) * lu(k,412) - lu(k,420) = lu(k,420) - lu(k,324) * lu(k,412) - lu(k,421) = lu(k,421) - lu(k,325) * lu(k,412) - lu(k,422) = lu(k,422) - lu(k,326) * lu(k,412) - lu(k,423) = lu(k,423) - lu(k,327) * lu(k,412) - lu(k,424) = lu(k,424) - lu(k,328) * lu(k,412) - lu(k,425) = lu(k,425) - lu(k,329) * lu(k,412) - lu(k,438) = lu(k,438) - lu(k,317) * lu(k,437) - lu(k,439) = lu(k,439) - lu(k,318) * lu(k,437) - lu(k,440) = lu(k,440) - lu(k,319) * lu(k,437) - lu(k,441) = lu(k,441) - lu(k,320) * lu(k,437) - lu(k,442) = lu(k,442) - lu(k,321) * lu(k,437) - lu(k,443) = lu(k,443) - lu(k,322) * lu(k,437) - lu(k,444) = lu(k,444) - lu(k,323) * lu(k,437) - lu(k,445) = lu(k,445) - lu(k,324) * lu(k,437) - lu(k,446) = lu(k,446) - lu(k,325) * lu(k,437) - lu(k,447) = lu(k,447) - lu(k,326) * lu(k,437) - lu(k,448) = lu(k,448) - lu(k,327) * lu(k,437) - lu(k,449) = lu(k,449) - lu(k,328) * lu(k,437) - lu(k,450) = lu(k,450) - lu(k,329) * lu(k,437) - lu(k,458) = lu(k,458) - lu(k,317) * lu(k,457) - lu(k,459) = lu(k,459) - lu(k,318) * lu(k,457) - lu(k,460) = lu(k,460) - lu(k,319) * lu(k,457) - lu(k,461) = lu(k,461) - lu(k,320) * lu(k,457) - lu(k,462) = lu(k,462) - lu(k,321) * lu(k,457) - lu(k,463) = lu(k,463) - lu(k,322) * lu(k,457) - lu(k,464) = lu(k,464) - lu(k,323) * lu(k,457) - lu(k,465) = lu(k,465) - lu(k,324) * lu(k,457) - lu(k,466) = lu(k,466) - lu(k,325) * lu(k,457) - lu(k,467) = lu(k,467) - lu(k,326) * lu(k,457) - lu(k,468) = lu(k,468) - lu(k,327) * lu(k,457) - lu(k,469) = lu(k,469) - lu(k,328) * lu(k,457) - lu(k,470) = lu(k,470) - lu(k,329) * lu(k,457) - lu(k,477) = lu(k,477) - lu(k,317) * lu(k,476) - lu(k,478) = lu(k,478) - lu(k,318) * lu(k,476) - lu(k,479) = lu(k,479) - lu(k,319) * lu(k,476) - lu(k,480) = lu(k,480) - lu(k,320) * lu(k,476) - lu(k,481) = lu(k,481) - lu(k,321) * lu(k,476) - lu(k,482) = lu(k,482) - lu(k,322) * lu(k,476) - lu(k,483) = lu(k,483) - lu(k,323) * lu(k,476) - lu(k,484) = lu(k,484) - lu(k,324) * lu(k,476) - lu(k,485) = lu(k,485) - lu(k,325) * lu(k,476) - lu(k,486) = lu(k,486) - lu(k,326) * lu(k,476) - lu(k,487) = lu(k,487) - lu(k,327) * lu(k,476) - lu(k,488) = lu(k,488) - lu(k,328) * lu(k,476) - lu(k,489) = lu(k,489) - lu(k,329) * lu(k,476) - lu(k,502) = lu(k,502) - lu(k,317) * lu(k,501) - lu(k,503) = lu(k,503) - lu(k,318) * lu(k,501) - lu(k,504) = lu(k,504) - lu(k,319) * lu(k,501) - lu(k,505) = lu(k,505) - lu(k,320) * lu(k,501) - lu(k,506) = lu(k,506) - lu(k,321) * lu(k,501) - lu(k,507) = lu(k,507) - lu(k,322) * lu(k,501) - lu(k,508) = lu(k,508) - lu(k,323) * lu(k,501) - lu(k,509) = lu(k,509) - lu(k,324) * lu(k,501) - lu(k,510) = lu(k,510) - lu(k,325) * lu(k,501) - lu(k,511) = lu(k,511) - lu(k,326) * lu(k,501) - lu(k,512) = lu(k,512) - lu(k,327) * lu(k,501) - lu(k,513) = lu(k,513) - lu(k,328) * lu(k,501) - lu(k,514) = lu(k,514) - lu(k,329) * lu(k,501) - lu(k,533) = lu(k,533) - lu(k,317) * lu(k,532) - lu(k,534) = lu(k,534) - lu(k,318) * lu(k,532) - lu(k,535) = lu(k,535) - lu(k,319) * lu(k,532) - lu(k,536) = lu(k,536) - lu(k,320) * lu(k,532) - lu(k,537) = lu(k,537) - lu(k,321) * lu(k,532) - lu(k,538) = lu(k,538) - lu(k,322) * lu(k,532) - lu(k,539) = lu(k,539) - lu(k,323) * lu(k,532) - lu(k,540) = lu(k,540) - lu(k,324) * lu(k,532) - lu(k,541) = lu(k,541) - lu(k,325) * lu(k,532) - lu(k,542) = lu(k,542) - lu(k,326) * lu(k,532) - lu(k,543) = lu(k,543) - lu(k,327) * lu(k,532) - lu(k,544) = lu(k,544) - lu(k,328) * lu(k,532) - lu(k,545) = lu(k,545) - lu(k,329) * lu(k,532) - lu(k,558) = lu(k,558) - lu(k,317) * lu(k,557) - lu(k,559) = lu(k,559) - lu(k,318) * lu(k,557) - lu(k,560) = lu(k,560) - lu(k,319) * lu(k,557) - lu(k,561) = lu(k,561) - lu(k,320) * lu(k,557) - lu(k,562) = lu(k,562) - lu(k,321) * lu(k,557) - lu(k,563) = lu(k,563) - lu(k,322) * lu(k,557) - lu(k,564) = lu(k,564) - lu(k,323) * lu(k,557) - lu(k,565) = lu(k,565) - lu(k,324) * lu(k,557) - lu(k,566) = lu(k,566) - lu(k,325) * lu(k,557) - lu(k,567) = lu(k,567) - lu(k,326) * lu(k,557) - lu(k,568) = lu(k,568) - lu(k,327) * lu(k,557) - lu(k,569) = lu(k,569) - lu(k,328) * lu(k,557) - lu(k,570) = lu(k,570) - lu(k,329) * lu(k,557) - lu(k,597) = lu(k,597) - lu(k,317) * lu(k,596) - lu(k,598) = lu(k,598) - lu(k,318) * lu(k,596) - lu(k,599) = lu(k,599) - lu(k,319) * lu(k,596) - lu(k,600) = lu(k,600) - lu(k,320) * lu(k,596) - lu(k,601) = lu(k,601) - lu(k,321) * lu(k,596) - lu(k,602) = lu(k,602) - lu(k,322) * lu(k,596) - lu(k,603) = lu(k,603) - lu(k,323) * lu(k,596) - lu(k,604) = lu(k,604) - lu(k,324) * lu(k,596) - lu(k,605) = lu(k,605) - lu(k,325) * lu(k,596) - lu(k,606) = lu(k,606) - lu(k,326) * lu(k,596) - lu(k,607) = lu(k,607) - lu(k,327) * lu(k,596) - lu(k,608) = lu(k,608) - lu(k,328) * lu(k,596) - lu(k,609) = lu(k,609) - lu(k,329) * lu(k,596) - lu(k,617) = lu(k,617) - lu(k,317) * lu(k,616) - lu(k,618) = lu(k,618) - lu(k,318) * lu(k,616) - lu(k,619) = lu(k,619) - lu(k,319) * lu(k,616) - lu(k,620) = lu(k,620) - lu(k,320) * lu(k,616) - lu(k,621) = lu(k,621) - lu(k,321) * lu(k,616) - lu(k,622) = lu(k,622) - lu(k,322) * lu(k,616) - lu(k,623) = lu(k,623) - lu(k,323) * lu(k,616) - lu(k,624) = lu(k,624) - lu(k,324) * lu(k,616) - lu(k,625) = lu(k,625) - lu(k,325) * lu(k,616) - lu(k,626) = lu(k,626) - lu(k,326) * lu(k,616) - lu(k,627) = lu(k,627) - lu(k,327) * lu(k,616) - lu(k,628) = lu(k,628) - lu(k,328) * lu(k,616) - lu(k,629) = lu(k,629) - lu(k,329) * lu(k,616) - lu(k,635) = lu(k,635) - lu(k,317) * lu(k,634) - lu(k,636) = lu(k,636) - lu(k,318) * lu(k,634) - lu(k,637) = lu(k,637) - lu(k,319) * lu(k,634) - lu(k,638) = lu(k,638) - lu(k,320) * lu(k,634) - lu(k,639) = lu(k,639) - lu(k,321) * lu(k,634) - lu(k,640) = lu(k,640) - lu(k,322) * lu(k,634) - lu(k,641) = lu(k,641) - lu(k,323) * lu(k,634) - lu(k,642) = lu(k,642) - lu(k,324) * lu(k,634) - lu(k,643) = lu(k,643) - lu(k,325) * lu(k,634) - lu(k,644) = lu(k,644) - lu(k,326) * lu(k,634) - lu(k,645) = lu(k,645) - lu(k,327) * lu(k,634) - lu(k,646) = lu(k,646) - lu(k,328) * lu(k,634) - lu(k,647) = lu(k,647) - lu(k,329) * lu(k,634) + lu(k,320) = 1._r8 / lu(k,320) + lu(k,321) = lu(k,321) * lu(k,320) + lu(k,322) = lu(k,322) * lu(k,320) + lu(k,323) = lu(k,323) * lu(k,320) + lu(k,324) = lu(k,324) * lu(k,320) + lu(k,325) = lu(k,325) * lu(k,320) + lu(k,326) = lu(k,326) * lu(k,320) + lu(k,327) = lu(k,327) * lu(k,320) + lu(k,328) = lu(k,328) * lu(k,320) + lu(k,329) = lu(k,329) * lu(k,320) + lu(k,330) = lu(k,330) * lu(k,320) + lu(k,331) = lu(k,331) * lu(k,320) + lu(k,332) = lu(k,332) * lu(k,320) + lu(k,333) = lu(k,333) * lu(k,320) + lu(k,341) = lu(k,341) - lu(k,321) * lu(k,340) + lu(k,342) = lu(k,342) - lu(k,322) * lu(k,340) + lu(k,343) = lu(k,343) - lu(k,323) * lu(k,340) + lu(k,344) = lu(k,344) - lu(k,324) * lu(k,340) + lu(k,345) = lu(k,345) - lu(k,325) * lu(k,340) + lu(k,346) = lu(k,346) - lu(k,326) * lu(k,340) + lu(k,347) = lu(k,347) - lu(k,327) * lu(k,340) + lu(k,348) = lu(k,348) - lu(k,328) * lu(k,340) + lu(k,349) = lu(k,349) - lu(k,329) * lu(k,340) + lu(k,350) = lu(k,350) - lu(k,330) * lu(k,340) + lu(k,351) = lu(k,351) - lu(k,331) * lu(k,340) + lu(k,352) = lu(k,352) - lu(k,332) * lu(k,340) + lu(k,353) = lu(k,353) - lu(k,333) * lu(k,340) + lu(k,361) = lu(k,361) - lu(k,321) * lu(k,360) + lu(k,362) = lu(k,362) - lu(k,322) * lu(k,360) + lu(k,363) = lu(k,363) - lu(k,323) * lu(k,360) + lu(k,364) = lu(k,364) - lu(k,324) * lu(k,360) + lu(k,365) = lu(k,365) - lu(k,325) * lu(k,360) + lu(k,366) = lu(k,366) - lu(k,326) * lu(k,360) + lu(k,367) = lu(k,367) - lu(k,327) * lu(k,360) + lu(k,368) = lu(k,368) - lu(k,328) * lu(k,360) + lu(k,369) = lu(k,369) - lu(k,329) * lu(k,360) + lu(k,370) = lu(k,370) - lu(k,330) * lu(k,360) + lu(k,371) = lu(k,371) - lu(k,331) * lu(k,360) + lu(k,372) = lu(k,372) - lu(k,332) * lu(k,360) + lu(k,373) = lu(k,373) - lu(k,333) * lu(k,360) + lu(k,383) = lu(k,383) - lu(k,321) * lu(k,382) + lu(k,384) = lu(k,384) - lu(k,322) * lu(k,382) + lu(k,385) = lu(k,385) - lu(k,323) * lu(k,382) + lu(k,386) = lu(k,386) - lu(k,324) * lu(k,382) + lu(k,387) = lu(k,387) - lu(k,325) * lu(k,382) + lu(k,388) = lu(k,388) - lu(k,326) * lu(k,382) + lu(k,389) = lu(k,389) - lu(k,327) * lu(k,382) + lu(k,390) = lu(k,390) - lu(k,328) * lu(k,382) + lu(k,391) = lu(k,391) - lu(k,329) * lu(k,382) + lu(k,392) = lu(k,392) - lu(k,330) * lu(k,382) + lu(k,393) = lu(k,393) - lu(k,331) * lu(k,382) + lu(k,394) = lu(k,394) - lu(k,332) * lu(k,382) + lu(k,395) = lu(k,395) - lu(k,333) * lu(k,382) + lu(k,408) = lu(k,408) - lu(k,321) * lu(k,407) + lu(k,409) = lu(k,409) - lu(k,322) * lu(k,407) + lu(k,410) = lu(k,410) - lu(k,323) * lu(k,407) + lu(k,411) = lu(k,411) - lu(k,324) * lu(k,407) + lu(k,412) = lu(k,412) - lu(k,325) * lu(k,407) + lu(k,413) = lu(k,413) - lu(k,326) * lu(k,407) + lu(k,414) = lu(k,414) - lu(k,327) * lu(k,407) + lu(k,415) = lu(k,415) - lu(k,328) * lu(k,407) + lu(k,416) = lu(k,416) - lu(k,329) * lu(k,407) + lu(k,417) = lu(k,417) - lu(k,330) * lu(k,407) + lu(k,418) = lu(k,418) - lu(k,331) * lu(k,407) + lu(k,419) = lu(k,419) - lu(k,332) * lu(k,407) + lu(k,420) = lu(k,420) - lu(k,333) * lu(k,407) + lu(k,433) = lu(k,433) - lu(k,321) * lu(k,432) + lu(k,434) = lu(k,434) - lu(k,322) * lu(k,432) + lu(k,435) = lu(k,435) - lu(k,323) * lu(k,432) + lu(k,436) = lu(k,436) - lu(k,324) * lu(k,432) + lu(k,437) = lu(k,437) - lu(k,325) * lu(k,432) + lu(k,438) = lu(k,438) - lu(k,326) * lu(k,432) + lu(k,439) = lu(k,439) - lu(k,327) * lu(k,432) + lu(k,440) = lu(k,440) - lu(k,328) * lu(k,432) + lu(k,441) = lu(k,441) - lu(k,329) * lu(k,432) + lu(k,442) = lu(k,442) - lu(k,330) * lu(k,432) + lu(k,443) = lu(k,443) - lu(k,331) * lu(k,432) + lu(k,444) = lu(k,444) - lu(k,332) * lu(k,432) + lu(k,445) = lu(k,445) - lu(k,333) * lu(k,432) + lu(k,459) = lu(k,459) - lu(k,321) * lu(k,458) + lu(k,460) = lu(k,460) - lu(k,322) * lu(k,458) + lu(k,461) = lu(k,461) - lu(k,323) * lu(k,458) + lu(k,462) = lu(k,462) - lu(k,324) * lu(k,458) + lu(k,463) = lu(k,463) - lu(k,325) * lu(k,458) + lu(k,464) = lu(k,464) - lu(k,326) * lu(k,458) + lu(k,465) = lu(k,465) - lu(k,327) * lu(k,458) + lu(k,466) = lu(k,466) - lu(k,328) * lu(k,458) + lu(k,467) = lu(k,467) - lu(k,329) * lu(k,458) + lu(k,468) = lu(k,468) - lu(k,330) * lu(k,458) + lu(k,469) = lu(k,469) - lu(k,331) * lu(k,458) + lu(k,470) = lu(k,470) - lu(k,332) * lu(k,458) + lu(k,471) = lu(k,471) - lu(k,333) * lu(k,458) + lu(k,482) = lu(k,482) - lu(k,321) * lu(k,481) + lu(k,483) = lu(k,483) - lu(k,322) * lu(k,481) + lu(k,484) = lu(k,484) - lu(k,323) * lu(k,481) + lu(k,485) = lu(k,485) - lu(k,324) * lu(k,481) + lu(k,486) = lu(k,486) - lu(k,325) * lu(k,481) + lu(k,487) = lu(k,487) - lu(k,326) * lu(k,481) + lu(k,488) = lu(k,488) - lu(k,327) * lu(k,481) + lu(k,489) = lu(k,489) - lu(k,328) * lu(k,481) + lu(k,490) = lu(k,490) - lu(k,329) * lu(k,481) + lu(k,491) = lu(k,491) - lu(k,330) * lu(k,481) + lu(k,492) = lu(k,492) - lu(k,331) * lu(k,481) + lu(k,493) = lu(k,493) - lu(k,332) * lu(k,481) + lu(k,494) = lu(k,494) - lu(k,333) * lu(k,481) + lu(k,503) = lu(k,503) - lu(k,321) * lu(k,502) + lu(k,504) = lu(k,504) - lu(k,322) * lu(k,502) + lu(k,505) = lu(k,505) - lu(k,323) * lu(k,502) + lu(k,506) = lu(k,506) - lu(k,324) * lu(k,502) + lu(k,507) = lu(k,507) - lu(k,325) * lu(k,502) + lu(k,508) = lu(k,508) - lu(k,326) * lu(k,502) + lu(k,509) = lu(k,509) - lu(k,327) * lu(k,502) + lu(k,510) = lu(k,510) - lu(k,328) * lu(k,502) + lu(k,511) = lu(k,511) - lu(k,329) * lu(k,502) + lu(k,512) = lu(k,512) - lu(k,330) * lu(k,502) + lu(k,513) = lu(k,513) - lu(k,331) * lu(k,502) + lu(k,514) = lu(k,514) - lu(k,332) * lu(k,502) + lu(k,515) = lu(k,515) - lu(k,333) * lu(k,502) + lu(k,534) = lu(k,534) - lu(k,321) * lu(k,533) + lu(k,535) = lu(k,535) - lu(k,322) * lu(k,533) + lu(k,536) = lu(k,536) - lu(k,323) * lu(k,533) + lu(k,537) = lu(k,537) - lu(k,324) * lu(k,533) + lu(k,538) = lu(k,538) - lu(k,325) * lu(k,533) + lu(k,539) = lu(k,539) - lu(k,326) * lu(k,533) + lu(k,540) = lu(k,540) - lu(k,327) * lu(k,533) + lu(k,541) = lu(k,541) - lu(k,328) * lu(k,533) + lu(k,542) = lu(k,542) - lu(k,329) * lu(k,533) + lu(k,543) = lu(k,543) - lu(k,330) * lu(k,533) + lu(k,544) = lu(k,544) - lu(k,331) * lu(k,533) + lu(k,545) = lu(k,545) - lu(k,332) * lu(k,533) + lu(k,546) = lu(k,546) - lu(k,333) * lu(k,533) + lu(k,553) = lu(k,553) - lu(k,321) * lu(k,552) + lu(k,554) = lu(k,554) - lu(k,322) * lu(k,552) + lu(k,555) = lu(k,555) - lu(k,323) * lu(k,552) + lu(k,556) = lu(k,556) - lu(k,324) * lu(k,552) + lu(k,557) = lu(k,557) - lu(k,325) * lu(k,552) + lu(k,558) = lu(k,558) - lu(k,326) * lu(k,552) + lu(k,559) = lu(k,559) - lu(k,327) * lu(k,552) + lu(k,560) = lu(k,560) - lu(k,328) * lu(k,552) + lu(k,561) = lu(k,561) - lu(k,329) * lu(k,552) + lu(k,562) = lu(k,562) - lu(k,330) * lu(k,552) + lu(k,563) = lu(k,563) - lu(k,331) * lu(k,552) + lu(k,564) = lu(k,564) - lu(k,332) * lu(k,552) + lu(k,565) = lu(k,565) - lu(k,333) * lu(k,552) + lu(k,578) = lu(k,578) - lu(k,321) * lu(k,577) + lu(k,579) = lu(k,579) - lu(k,322) * lu(k,577) + lu(k,580) = lu(k,580) - lu(k,323) * lu(k,577) + lu(k,581) = lu(k,581) - lu(k,324) * lu(k,577) + lu(k,582) = lu(k,582) - lu(k,325) * lu(k,577) + lu(k,583) = lu(k,583) - lu(k,326) * lu(k,577) + lu(k,584) = lu(k,584) - lu(k,327) * lu(k,577) + lu(k,585) = lu(k,585) - lu(k,328) * lu(k,577) + lu(k,586) = lu(k,586) - lu(k,329) * lu(k,577) + lu(k,587) = lu(k,587) - lu(k,330) * lu(k,577) + lu(k,588) = lu(k,588) - lu(k,331) * lu(k,577) + lu(k,589) = lu(k,589) - lu(k,332) * lu(k,577) + lu(k,590) = lu(k,590) - lu(k,333) * lu(k,577) + lu(k,596) = lu(k,596) - lu(k,321) * lu(k,595) + lu(k,597) = lu(k,597) - lu(k,322) * lu(k,595) + lu(k,598) = lu(k,598) - lu(k,323) * lu(k,595) + lu(k,599) = lu(k,599) - lu(k,324) * lu(k,595) + lu(k,600) = lu(k,600) - lu(k,325) * lu(k,595) + lu(k,601) = lu(k,601) - lu(k,326) * lu(k,595) + lu(k,602) = lu(k,602) - lu(k,327) * lu(k,595) + lu(k,603) = lu(k,603) - lu(k,328) * lu(k,595) + lu(k,604) = lu(k,604) - lu(k,329) * lu(k,595) + lu(k,605) = lu(k,605) - lu(k,330) * lu(k,595) + lu(k,606) = lu(k,606) - lu(k,331) * lu(k,595) + lu(k,607) = lu(k,607) - lu(k,332) * lu(k,595) + lu(k,608) = lu(k,608) - lu(k,333) * lu(k,595) + lu(k,635) = lu(k,635) - lu(k,321) * lu(k,634) + lu(k,636) = lu(k,636) - lu(k,322) * lu(k,634) + lu(k,637) = lu(k,637) - lu(k,323) * lu(k,634) + lu(k,638) = lu(k,638) - lu(k,324) * lu(k,634) + lu(k,639) = lu(k,639) - lu(k,325) * lu(k,634) + lu(k,640) = lu(k,640) - lu(k,326) * lu(k,634) + lu(k,641) = lu(k,641) - lu(k,327) * lu(k,634) + lu(k,642) = lu(k,642) - lu(k,328) * lu(k,634) + lu(k,643) = lu(k,643) - lu(k,329) * lu(k,634) + lu(k,644) = lu(k,644) - lu(k,330) * lu(k,634) + lu(k,645) = lu(k,645) - lu(k,331) * lu(k,634) + lu(k,646) = lu(k,646) - lu(k,332) * lu(k,634) + lu(k,647) = lu(k,647) - lu(k,333) * lu(k,634) end do end subroutine lu_fac07 subroutine lu_fac08( avec_len, lu ) @@ -1964,571 +1964,571 @@ subroutine lu_fac08( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - 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,345) = lu(k,345) * lu(k,339) - lu(k,346) = lu(k,346) * lu(k,339) - lu(k,347) = lu(k,347) * lu(k,339) - lu(k,348) = lu(k,348) * lu(k,339) - lu(k,349) = lu(k,349) * lu(k,339) - lu(k,350) = lu(k,350) * lu(k,339) - lu(k,351) = lu(k,351) * lu(k,339) - lu(k,363) = lu(k,363) - lu(k,340) * lu(k,362) - lu(k,364) = lu(k,364) - lu(k,341) * lu(k,362) - lu(k,365) = lu(k,365) - lu(k,342) * lu(k,362) - lu(k,366) = lu(k,366) - lu(k,343) * lu(k,362) - lu(k,367) = lu(k,367) - lu(k,344) * lu(k,362) - lu(k,368) = lu(k,368) - lu(k,345) * lu(k,362) - lu(k,369) = lu(k,369) - lu(k,346) * lu(k,362) - lu(k,370) = lu(k,370) - lu(k,347) * lu(k,362) - lu(k,371) = lu(k,371) - lu(k,348) * lu(k,362) - lu(k,372) = lu(k,372) - lu(k,349) * lu(k,362) - lu(k,373) = lu(k,373) - lu(k,350) * lu(k,362) - lu(k,374) = lu(k,374) - lu(k,351) * lu(k,362) - lu(k,388) = lu(k,388) - lu(k,340) * lu(k,387) - lu(k,389) = lu(k,389) - lu(k,341) * lu(k,387) - lu(k,390) = lu(k,390) - lu(k,342) * lu(k,387) - lu(k,391) = lu(k,391) - lu(k,343) * lu(k,387) - lu(k,392) = lu(k,392) - lu(k,344) * lu(k,387) - lu(k,393) = lu(k,393) - lu(k,345) * lu(k,387) - lu(k,394) = lu(k,394) - lu(k,346) * lu(k,387) - lu(k,395) = lu(k,395) - lu(k,347) * lu(k,387) - lu(k,396) = lu(k,396) - lu(k,348) * lu(k,387) - lu(k,397) = lu(k,397) - lu(k,349) * lu(k,387) - lu(k,398) = lu(k,398) - lu(k,350) * lu(k,387) - lu(k,399) = lu(k,399) - lu(k,351) * lu(k,387) - lu(k,414) = lu(k,414) - lu(k,340) * lu(k,413) - lu(k,415) = lu(k,415) - lu(k,341) * lu(k,413) - lu(k,416) = lu(k,416) - lu(k,342) * lu(k,413) - lu(k,417) = lu(k,417) - lu(k,343) * lu(k,413) - lu(k,418) = lu(k,418) - lu(k,344) * lu(k,413) - lu(k,419) = lu(k,419) - lu(k,345) * lu(k,413) - lu(k,420) = lu(k,420) - lu(k,346) * lu(k,413) - lu(k,421) = lu(k,421) - lu(k,347) * lu(k,413) - lu(k,422) = lu(k,422) - lu(k,348) * lu(k,413) - lu(k,423) = lu(k,423) - lu(k,349) * lu(k,413) - lu(k,424) = lu(k,424) - lu(k,350) * lu(k,413) - lu(k,425) = lu(k,425) - lu(k,351) * lu(k,413) - lu(k,439) = lu(k,439) - lu(k,340) * lu(k,438) - lu(k,440) = lu(k,440) - lu(k,341) * lu(k,438) - lu(k,441) = lu(k,441) - lu(k,342) * lu(k,438) - lu(k,442) = lu(k,442) - lu(k,343) * lu(k,438) - lu(k,443) = lu(k,443) - lu(k,344) * lu(k,438) - lu(k,444) = lu(k,444) - lu(k,345) * lu(k,438) - lu(k,445) = lu(k,445) - lu(k,346) * lu(k,438) - lu(k,446) = lu(k,446) - lu(k,347) * lu(k,438) - lu(k,447) = lu(k,447) - lu(k,348) * lu(k,438) - lu(k,448) = lu(k,448) - lu(k,349) * lu(k,438) - lu(k,449) = lu(k,449) - lu(k,350) * lu(k,438) - lu(k,450) = lu(k,450) - lu(k,351) * lu(k,438) - lu(k,459) = lu(k,459) - lu(k,340) * lu(k,458) - lu(k,460) = lu(k,460) - lu(k,341) * lu(k,458) - lu(k,461) = lu(k,461) - lu(k,342) * lu(k,458) - lu(k,462) = lu(k,462) - lu(k,343) * lu(k,458) - lu(k,463) = lu(k,463) - lu(k,344) * lu(k,458) - lu(k,464) = lu(k,464) - lu(k,345) * lu(k,458) - lu(k,465) = lu(k,465) - lu(k,346) * lu(k,458) - lu(k,466) = lu(k,466) - lu(k,347) * lu(k,458) - lu(k,467) = lu(k,467) - lu(k,348) * lu(k,458) - lu(k,468) = lu(k,468) - lu(k,349) * lu(k,458) - lu(k,469) = lu(k,469) - lu(k,350) * lu(k,458) - lu(k,470) = lu(k,470) - lu(k,351) * lu(k,458) - lu(k,478) = lu(k,478) - lu(k,340) * lu(k,477) - lu(k,479) = lu(k,479) - lu(k,341) * lu(k,477) - lu(k,480) = lu(k,480) - lu(k,342) * lu(k,477) - lu(k,481) = lu(k,481) - lu(k,343) * lu(k,477) - lu(k,482) = lu(k,482) - lu(k,344) * lu(k,477) - lu(k,483) = lu(k,483) - lu(k,345) * lu(k,477) - lu(k,484) = lu(k,484) - lu(k,346) * lu(k,477) - lu(k,485) = lu(k,485) - lu(k,347) * lu(k,477) - lu(k,486) = lu(k,486) - lu(k,348) * lu(k,477) - lu(k,487) = lu(k,487) - lu(k,349) * lu(k,477) - lu(k,488) = lu(k,488) - lu(k,350) * lu(k,477) - lu(k,489) = lu(k,489) - lu(k,351) * lu(k,477) - lu(k,503) = lu(k,503) - lu(k,340) * lu(k,502) - lu(k,504) = lu(k,504) - lu(k,341) * lu(k,502) - lu(k,505) = lu(k,505) - lu(k,342) * lu(k,502) - lu(k,506) = lu(k,506) - lu(k,343) * lu(k,502) - lu(k,507) = lu(k,507) - lu(k,344) * lu(k,502) - lu(k,508) = lu(k,508) - lu(k,345) * lu(k,502) - lu(k,509) = lu(k,509) - lu(k,346) * lu(k,502) - lu(k,510) = lu(k,510) - lu(k,347) * lu(k,502) - lu(k,511) = lu(k,511) - lu(k,348) * lu(k,502) - lu(k,512) = lu(k,512) - lu(k,349) * lu(k,502) - lu(k,513) = lu(k,513) - lu(k,350) * lu(k,502) - lu(k,514) = lu(k,514) - lu(k,351) * lu(k,502) - lu(k,534) = lu(k,534) - lu(k,340) * lu(k,533) - lu(k,535) = lu(k,535) - lu(k,341) * lu(k,533) - lu(k,536) = lu(k,536) - lu(k,342) * lu(k,533) - lu(k,537) = lu(k,537) - lu(k,343) * lu(k,533) - lu(k,538) = lu(k,538) - lu(k,344) * lu(k,533) - lu(k,539) = lu(k,539) - lu(k,345) * lu(k,533) - lu(k,540) = lu(k,540) - lu(k,346) * lu(k,533) - lu(k,541) = lu(k,541) - lu(k,347) * lu(k,533) - lu(k,542) = lu(k,542) - lu(k,348) * lu(k,533) - lu(k,543) = lu(k,543) - lu(k,349) * lu(k,533) - lu(k,544) = lu(k,544) - lu(k,350) * lu(k,533) - lu(k,545) = lu(k,545) - lu(k,351) * lu(k,533) - lu(k,559) = lu(k,559) - lu(k,340) * lu(k,558) - lu(k,560) = lu(k,560) - lu(k,341) * lu(k,558) - lu(k,561) = lu(k,561) - lu(k,342) * lu(k,558) - lu(k,562) = lu(k,562) - lu(k,343) * lu(k,558) - lu(k,563) = lu(k,563) - lu(k,344) * lu(k,558) - lu(k,564) = lu(k,564) - lu(k,345) * lu(k,558) - lu(k,565) = lu(k,565) - lu(k,346) * lu(k,558) - lu(k,566) = lu(k,566) - lu(k,347) * lu(k,558) - lu(k,567) = lu(k,567) - lu(k,348) * lu(k,558) - lu(k,568) = lu(k,568) - lu(k,349) * lu(k,558) - lu(k,569) = lu(k,569) - lu(k,350) * lu(k,558) - lu(k,570) = lu(k,570) - lu(k,351) * lu(k,558) - lu(k,598) = lu(k,598) - lu(k,340) * lu(k,597) - lu(k,599) = lu(k,599) - lu(k,341) * lu(k,597) - lu(k,600) = lu(k,600) - lu(k,342) * lu(k,597) - lu(k,601) = lu(k,601) - lu(k,343) * lu(k,597) - lu(k,602) = lu(k,602) - lu(k,344) * lu(k,597) - lu(k,603) = lu(k,603) - lu(k,345) * lu(k,597) - lu(k,604) = lu(k,604) - lu(k,346) * lu(k,597) - lu(k,605) = lu(k,605) - lu(k,347) * lu(k,597) - lu(k,606) = lu(k,606) - lu(k,348) * lu(k,597) - lu(k,607) = lu(k,607) - lu(k,349) * lu(k,597) - lu(k,608) = lu(k,608) - lu(k,350) * lu(k,597) - lu(k,609) = lu(k,609) - lu(k,351) * lu(k,597) - lu(k,618) = lu(k,618) - lu(k,340) * lu(k,617) - lu(k,619) = lu(k,619) - lu(k,341) * lu(k,617) - lu(k,620) = lu(k,620) - lu(k,342) * lu(k,617) - lu(k,621) = lu(k,621) - lu(k,343) * lu(k,617) - lu(k,622) = lu(k,622) - lu(k,344) * lu(k,617) - lu(k,623) = lu(k,623) - lu(k,345) * lu(k,617) - lu(k,624) = lu(k,624) - lu(k,346) * lu(k,617) - lu(k,625) = lu(k,625) - lu(k,347) * lu(k,617) - lu(k,626) = lu(k,626) - lu(k,348) * lu(k,617) - lu(k,627) = lu(k,627) - lu(k,349) * lu(k,617) - lu(k,628) = lu(k,628) - lu(k,350) * lu(k,617) - lu(k,629) = lu(k,629) - lu(k,351) * lu(k,617) - lu(k,636) = lu(k,636) - lu(k,340) * lu(k,635) - lu(k,637) = lu(k,637) - lu(k,341) * lu(k,635) - lu(k,638) = lu(k,638) - lu(k,342) * lu(k,635) - lu(k,639) = lu(k,639) - lu(k,343) * lu(k,635) - lu(k,640) = lu(k,640) - lu(k,344) * lu(k,635) - lu(k,641) = lu(k,641) - lu(k,345) * lu(k,635) - lu(k,642) = lu(k,642) - lu(k,346) * lu(k,635) - lu(k,643) = lu(k,643) - lu(k,347) * lu(k,635) - lu(k,644) = lu(k,644) - lu(k,348) * lu(k,635) - lu(k,645) = lu(k,645) - lu(k,349) * lu(k,635) - lu(k,646) = lu(k,646) - lu(k,350) * lu(k,635) - lu(k,647) = lu(k,647) - lu(k,351) * lu(k,635) - 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) - lu(k,366) = lu(k,366) * lu(k,363) - lu(k,367) = lu(k,367) * lu(k,363) - 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,371) = lu(k,371) * lu(k,363) - lu(k,372) = lu(k,372) * lu(k,363) - lu(k,373) = lu(k,373) * lu(k,363) - lu(k,374) = lu(k,374) * lu(k,363) - lu(k,389) = lu(k,389) - lu(k,364) * lu(k,388) - lu(k,390) = lu(k,390) - lu(k,365) * lu(k,388) - lu(k,391) = lu(k,391) - lu(k,366) * lu(k,388) - lu(k,392) = lu(k,392) - lu(k,367) * lu(k,388) - lu(k,393) = lu(k,393) - lu(k,368) * lu(k,388) - lu(k,394) = lu(k,394) - lu(k,369) * lu(k,388) - lu(k,395) = lu(k,395) - lu(k,370) * lu(k,388) - lu(k,396) = lu(k,396) - lu(k,371) * lu(k,388) - lu(k,397) = lu(k,397) - lu(k,372) * lu(k,388) - lu(k,398) = lu(k,398) - lu(k,373) * lu(k,388) - lu(k,399) = lu(k,399) - lu(k,374) * lu(k,388) - lu(k,415) = lu(k,415) - lu(k,364) * lu(k,414) - lu(k,416) = lu(k,416) - lu(k,365) * lu(k,414) - lu(k,417) = lu(k,417) - lu(k,366) * lu(k,414) - lu(k,418) = lu(k,418) - lu(k,367) * lu(k,414) - lu(k,419) = lu(k,419) - lu(k,368) * lu(k,414) - lu(k,420) = lu(k,420) - lu(k,369) * lu(k,414) - lu(k,421) = lu(k,421) - lu(k,370) * lu(k,414) - lu(k,422) = lu(k,422) - lu(k,371) * lu(k,414) - lu(k,423) = lu(k,423) - lu(k,372) * lu(k,414) - lu(k,424) = lu(k,424) - lu(k,373) * lu(k,414) - lu(k,425) = lu(k,425) - lu(k,374) * lu(k,414) - lu(k,440) = lu(k,440) - lu(k,364) * lu(k,439) - lu(k,441) = lu(k,441) - lu(k,365) * lu(k,439) - lu(k,442) = lu(k,442) - lu(k,366) * lu(k,439) - lu(k,443) = lu(k,443) - lu(k,367) * lu(k,439) - lu(k,444) = lu(k,444) - lu(k,368) * lu(k,439) - lu(k,445) = lu(k,445) - lu(k,369) * lu(k,439) - lu(k,446) = lu(k,446) - lu(k,370) * lu(k,439) - lu(k,447) = lu(k,447) - lu(k,371) * lu(k,439) - lu(k,448) = lu(k,448) - lu(k,372) * lu(k,439) - lu(k,449) = lu(k,449) - lu(k,373) * lu(k,439) - lu(k,450) = lu(k,450) - lu(k,374) * lu(k,439) - lu(k,460) = lu(k,460) - lu(k,364) * lu(k,459) - lu(k,461) = lu(k,461) - lu(k,365) * lu(k,459) - lu(k,462) = lu(k,462) - lu(k,366) * lu(k,459) - lu(k,463) = lu(k,463) - lu(k,367) * lu(k,459) - lu(k,464) = lu(k,464) - lu(k,368) * lu(k,459) - lu(k,465) = lu(k,465) - lu(k,369) * lu(k,459) - lu(k,466) = lu(k,466) - lu(k,370) * lu(k,459) - lu(k,467) = lu(k,467) - lu(k,371) * lu(k,459) - lu(k,468) = lu(k,468) - lu(k,372) * lu(k,459) - lu(k,469) = lu(k,469) - lu(k,373) * lu(k,459) - lu(k,470) = lu(k,470) - lu(k,374) * lu(k,459) - lu(k,479) = lu(k,479) - lu(k,364) * lu(k,478) - lu(k,480) = lu(k,480) - lu(k,365) * lu(k,478) - lu(k,481) = lu(k,481) - lu(k,366) * lu(k,478) - lu(k,482) = lu(k,482) - lu(k,367) * lu(k,478) - lu(k,483) = lu(k,483) - lu(k,368) * lu(k,478) - lu(k,484) = lu(k,484) - lu(k,369) * lu(k,478) - lu(k,485) = lu(k,485) - lu(k,370) * lu(k,478) - lu(k,486) = lu(k,486) - lu(k,371) * lu(k,478) - lu(k,487) = lu(k,487) - lu(k,372) * lu(k,478) - lu(k,488) = lu(k,488) - lu(k,373) * lu(k,478) - lu(k,489) = lu(k,489) - lu(k,374) * lu(k,478) - lu(k,504) = lu(k,504) - lu(k,364) * lu(k,503) - lu(k,505) = lu(k,505) - lu(k,365) * lu(k,503) - lu(k,506) = lu(k,506) - lu(k,366) * lu(k,503) - lu(k,507) = lu(k,507) - lu(k,367) * lu(k,503) - lu(k,508) = lu(k,508) - lu(k,368) * lu(k,503) - lu(k,509) = lu(k,509) - lu(k,369) * lu(k,503) - lu(k,510) = lu(k,510) - lu(k,370) * lu(k,503) - lu(k,511) = lu(k,511) - lu(k,371) * lu(k,503) - lu(k,512) = lu(k,512) - lu(k,372) * lu(k,503) - lu(k,513) = lu(k,513) - lu(k,373) * lu(k,503) - lu(k,514) = lu(k,514) - lu(k,374) * lu(k,503) - lu(k,535) = lu(k,535) - lu(k,364) * lu(k,534) - lu(k,536) = lu(k,536) - lu(k,365) * lu(k,534) - lu(k,537) = lu(k,537) - lu(k,366) * lu(k,534) - lu(k,538) = lu(k,538) - lu(k,367) * lu(k,534) - lu(k,539) = lu(k,539) - lu(k,368) * lu(k,534) - lu(k,540) = lu(k,540) - lu(k,369) * lu(k,534) - lu(k,541) = lu(k,541) - lu(k,370) * lu(k,534) - lu(k,542) = lu(k,542) - lu(k,371) * lu(k,534) - lu(k,543) = lu(k,543) - lu(k,372) * lu(k,534) - lu(k,544) = lu(k,544) - lu(k,373) * lu(k,534) - lu(k,545) = lu(k,545) - lu(k,374) * lu(k,534) - lu(k,560) = lu(k,560) - lu(k,364) * lu(k,559) - lu(k,561) = lu(k,561) - lu(k,365) * lu(k,559) - lu(k,562) = lu(k,562) - lu(k,366) * lu(k,559) - lu(k,563) = lu(k,563) - lu(k,367) * lu(k,559) - lu(k,564) = lu(k,564) - lu(k,368) * lu(k,559) - lu(k,565) = lu(k,565) - lu(k,369) * lu(k,559) - lu(k,566) = lu(k,566) - lu(k,370) * lu(k,559) - lu(k,567) = lu(k,567) - lu(k,371) * lu(k,559) - lu(k,568) = lu(k,568) - lu(k,372) * lu(k,559) - lu(k,569) = lu(k,569) - lu(k,373) * lu(k,559) - lu(k,570) = lu(k,570) - lu(k,374) * lu(k,559) - lu(k,599) = lu(k,599) - lu(k,364) * lu(k,598) - lu(k,600) = lu(k,600) - lu(k,365) * lu(k,598) - lu(k,601) = lu(k,601) - lu(k,366) * lu(k,598) - lu(k,602) = lu(k,602) - lu(k,367) * lu(k,598) - lu(k,603) = lu(k,603) - lu(k,368) * lu(k,598) - lu(k,604) = lu(k,604) - lu(k,369) * lu(k,598) - lu(k,605) = lu(k,605) - lu(k,370) * lu(k,598) - lu(k,606) = lu(k,606) - lu(k,371) * lu(k,598) - lu(k,607) = lu(k,607) - lu(k,372) * lu(k,598) - lu(k,608) = lu(k,608) - lu(k,373) * lu(k,598) - lu(k,609) = lu(k,609) - lu(k,374) * lu(k,598) - lu(k,619) = lu(k,619) - lu(k,364) * lu(k,618) - lu(k,620) = lu(k,620) - lu(k,365) * lu(k,618) - lu(k,621) = lu(k,621) - lu(k,366) * lu(k,618) - lu(k,622) = lu(k,622) - lu(k,367) * lu(k,618) - lu(k,623) = lu(k,623) - lu(k,368) * lu(k,618) - lu(k,624) = lu(k,624) - lu(k,369) * lu(k,618) - lu(k,625) = lu(k,625) - lu(k,370) * lu(k,618) - lu(k,626) = lu(k,626) - lu(k,371) * lu(k,618) - lu(k,627) = lu(k,627) - lu(k,372) * lu(k,618) - lu(k,628) = lu(k,628) - lu(k,373) * lu(k,618) - lu(k,629) = lu(k,629) - lu(k,374) * lu(k,618) - lu(k,637) = lu(k,637) - lu(k,364) * lu(k,636) - lu(k,638) = lu(k,638) - lu(k,365) * lu(k,636) - lu(k,639) = lu(k,639) - lu(k,366) * lu(k,636) - lu(k,640) = lu(k,640) - lu(k,367) * lu(k,636) - lu(k,641) = lu(k,641) - lu(k,368) * lu(k,636) - lu(k,642) = lu(k,642) - lu(k,369) * lu(k,636) - lu(k,643) = lu(k,643) - lu(k,370) * lu(k,636) - lu(k,644) = lu(k,644) - lu(k,371) * lu(k,636) - lu(k,645) = lu(k,645) - lu(k,372) * lu(k,636) - lu(k,646) = lu(k,646) - lu(k,373) * lu(k,636) - lu(k,647) = lu(k,647) - lu(k,374) * lu(k,636) - 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,416) = lu(k,416) - lu(k,390) * lu(k,415) - lu(k,417) = lu(k,417) - lu(k,391) * lu(k,415) - lu(k,418) = lu(k,418) - lu(k,392) * lu(k,415) - lu(k,419) = lu(k,419) - lu(k,393) * lu(k,415) - lu(k,420) = lu(k,420) - lu(k,394) * lu(k,415) - lu(k,421) = lu(k,421) - lu(k,395) * lu(k,415) - lu(k,422) = lu(k,422) - lu(k,396) * lu(k,415) - lu(k,423) = lu(k,423) - lu(k,397) * lu(k,415) - lu(k,424) = lu(k,424) - lu(k,398) * lu(k,415) - lu(k,425) = lu(k,425) - lu(k,399) * lu(k,415) - lu(k,441) = lu(k,441) - lu(k,390) * lu(k,440) - lu(k,442) = lu(k,442) - lu(k,391) * lu(k,440) - lu(k,443) = lu(k,443) - lu(k,392) * lu(k,440) - lu(k,444) = lu(k,444) - lu(k,393) * lu(k,440) - lu(k,445) = lu(k,445) - lu(k,394) * lu(k,440) - lu(k,446) = lu(k,446) - lu(k,395) * lu(k,440) - lu(k,447) = lu(k,447) - lu(k,396) * lu(k,440) - lu(k,448) = lu(k,448) - lu(k,397) * lu(k,440) - lu(k,449) = lu(k,449) - lu(k,398) * lu(k,440) - lu(k,450) = lu(k,450) - lu(k,399) * lu(k,440) - lu(k,461) = lu(k,461) - lu(k,390) * lu(k,460) - lu(k,462) = lu(k,462) - lu(k,391) * lu(k,460) - lu(k,463) = lu(k,463) - lu(k,392) * lu(k,460) - lu(k,464) = lu(k,464) - lu(k,393) * lu(k,460) - lu(k,465) = lu(k,465) - lu(k,394) * lu(k,460) - lu(k,466) = lu(k,466) - lu(k,395) * lu(k,460) - lu(k,467) = lu(k,467) - lu(k,396) * lu(k,460) - lu(k,468) = lu(k,468) - lu(k,397) * lu(k,460) - lu(k,469) = lu(k,469) - lu(k,398) * lu(k,460) - lu(k,470) = lu(k,470) - lu(k,399) * lu(k,460) - lu(k,480) = lu(k,480) - lu(k,390) * lu(k,479) - lu(k,481) = lu(k,481) - lu(k,391) * lu(k,479) - lu(k,482) = lu(k,482) - lu(k,392) * lu(k,479) - lu(k,483) = lu(k,483) - lu(k,393) * lu(k,479) - lu(k,484) = lu(k,484) - lu(k,394) * lu(k,479) - lu(k,485) = lu(k,485) - lu(k,395) * lu(k,479) - lu(k,486) = lu(k,486) - lu(k,396) * lu(k,479) - lu(k,487) = lu(k,487) - lu(k,397) * lu(k,479) - lu(k,488) = lu(k,488) - lu(k,398) * lu(k,479) - lu(k,489) = lu(k,489) - lu(k,399) * lu(k,479) - lu(k,505) = lu(k,505) - lu(k,390) * lu(k,504) - lu(k,506) = lu(k,506) - lu(k,391) * lu(k,504) - lu(k,507) = lu(k,507) - lu(k,392) * lu(k,504) - lu(k,508) = lu(k,508) - lu(k,393) * lu(k,504) - lu(k,509) = lu(k,509) - lu(k,394) * lu(k,504) - lu(k,510) = lu(k,510) - lu(k,395) * lu(k,504) - lu(k,511) = lu(k,511) - lu(k,396) * lu(k,504) - lu(k,512) = lu(k,512) - lu(k,397) * lu(k,504) - lu(k,513) = lu(k,513) - lu(k,398) * lu(k,504) - lu(k,514) = lu(k,514) - lu(k,399) * lu(k,504) - lu(k,536) = lu(k,536) - lu(k,390) * lu(k,535) - lu(k,537) = lu(k,537) - lu(k,391) * lu(k,535) - lu(k,538) = lu(k,538) - lu(k,392) * lu(k,535) - lu(k,539) = lu(k,539) - lu(k,393) * lu(k,535) - lu(k,540) = lu(k,540) - lu(k,394) * lu(k,535) - lu(k,541) = lu(k,541) - lu(k,395) * lu(k,535) - lu(k,542) = lu(k,542) - lu(k,396) * lu(k,535) - lu(k,543) = lu(k,543) - lu(k,397) * lu(k,535) - lu(k,544) = lu(k,544) - lu(k,398) * lu(k,535) - lu(k,545) = lu(k,545) - lu(k,399) * lu(k,535) - lu(k,561) = lu(k,561) - lu(k,390) * lu(k,560) - lu(k,562) = lu(k,562) - lu(k,391) * lu(k,560) - lu(k,563) = lu(k,563) - lu(k,392) * lu(k,560) - lu(k,564) = lu(k,564) - lu(k,393) * lu(k,560) - lu(k,565) = lu(k,565) - lu(k,394) * lu(k,560) - lu(k,566) = lu(k,566) - lu(k,395) * lu(k,560) - lu(k,567) = lu(k,567) - lu(k,396) * lu(k,560) - lu(k,568) = lu(k,568) - lu(k,397) * lu(k,560) - lu(k,569) = lu(k,569) - lu(k,398) * lu(k,560) - lu(k,570) = lu(k,570) - lu(k,399) * lu(k,560) - lu(k,600) = lu(k,600) - lu(k,390) * lu(k,599) - lu(k,601) = lu(k,601) - lu(k,391) * lu(k,599) - lu(k,602) = lu(k,602) - lu(k,392) * lu(k,599) - lu(k,603) = lu(k,603) - lu(k,393) * lu(k,599) - lu(k,604) = lu(k,604) - lu(k,394) * lu(k,599) - lu(k,605) = lu(k,605) - lu(k,395) * lu(k,599) - lu(k,606) = lu(k,606) - lu(k,396) * lu(k,599) - lu(k,607) = lu(k,607) - lu(k,397) * lu(k,599) - lu(k,608) = lu(k,608) - lu(k,398) * lu(k,599) - lu(k,609) = lu(k,609) - lu(k,399) * lu(k,599) - lu(k,620) = lu(k,620) - lu(k,390) * lu(k,619) - lu(k,621) = lu(k,621) - lu(k,391) * lu(k,619) - lu(k,622) = lu(k,622) - lu(k,392) * lu(k,619) - lu(k,623) = lu(k,623) - lu(k,393) * lu(k,619) - lu(k,624) = lu(k,624) - lu(k,394) * lu(k,619) - lu(k,625) = lu(k,625) - lu(k,395) * lu(k,619) - lu(k,626) = lu(k,626) - lu(k,396) * lu(k,619) - lu(k,627) = lu(k,627) - lu(k,397) * lu(k,619) - lu(k,628) = lu(k,628) - lu(k,398) * lu(k,619) - lu(k,629) = lu(k,629) - lu(k,399) * lu(k,619) - lu(k,638) = lu(k,638) - lu(k,390) * lu(k,637) - lu(k,639) = lu(k,639) - lu(k,391) * lu(k,637) - lu(k,640) = lu(k,640) - lu(k,392) * lu(k,637) - lu(k,641) = lu(k,641) - lu(k,393) * lu(k,637) - lu(k,642) = lu(k,642) - lu(k,394) * lu(k,637) - lu(k,643) = lu(k,643) - lu(k,395) * lu(k,637) - lu(k,644) = lu(k,644) - lu(k,396) * lu(k,637) - lu(k,645) = lu(k,645) - lu(k,397) * lu(k,637) - lu(k,646) = lu(k,646) - lu(k,398) * lu(k,637) - lu(k,647) = lu(k,647) - lu(k,399) * lu(k,637) - 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,442) = lu(k,442) - lu(k,417) * lu(k,441) - lu(k,443) = lu(k,443) - lu(k,418) * lu(k,441) - lu(k,444) = lu(k,444) - lu(k,419) * lu(k,441) - lu(k,445) = lu(k,445) - lu(k,420) * lu(k,441) - lu(k,446) = lu(k,446) - lu(k,421) * lu(k,441) - lu(k,447) = lu(k,447) - lu(k,422) * lu(k,441) - lu(k,448) = lu(k,448) - lu(k,423) * lu(k,441) - lu(k,449) = lu(k,449) - lu(k,424) * lu(k,441) - lu(k,450) = lu(k,450) - lu(k,425) * lu(k,441) - lu(k,462) = lu(k,462) - lu(k,417) * lu(k,461) - lu(k,463) = lu(k,463) - lu(k,418) * lu(k,461) - lu(k,464) = lu(k,464) - lu(k,419) * lu(k,461) - lu(k,465) = lu(k,465) - lu(k,420) * lu(k,461) - lu(k,466) = lu(k,466) - lu(k,421) * lu(k,461) - lu(k,467) = lu(k,467) - lu(k,422) * lu(k,461) - lu(k,468) = lu(k,468) - lu(k,423) * lu(k,461) - lu(k,469) = lu(k,469) - lu(k,424) * lu(k,461) - lu(k,470) = lu(k,470) - lu(k,425) * lu(k,461) - lu(k,481) = lu(k,481) - lu(k,417) * lu(k,480) - lu(k,482) = lu(k,482) - lu(k,418) * lu(k,480) - lu(k,483) = lu(k,483) - lu(k,419) * lu(k,480) - lu(k,484) = lu(k,484) - lu(k,420) * lu(k,480) - lu(k,485) = lu(k,485) - lu(k,421) * lu(k,480) - lu(k,486) = lu(k,486) - lu(k,422) * lu(k,480) - lu(k,487) = lu(k,487) - lu(k,423) * lu(k,480) - lu(k,488) = lu(k,488) - lu(k,424) * lu(k,480) - lu(k,489) = lu(k,489) - lu(k,425) * lu(k,480) - lu(k,506) = lu(k,506) - lu(k,417) * lu(k,505) - lu(k,507) = lu(k,507) - lu(k,418) * lu(k,505) - lu(k,508) = lu(k,508) - lu(k,419) * lu(k,505) - lu(k,509) = lu(k,509) - lu(k,420) * lu(k,505) - lu(k,510) = lu(k,510) - lu(k,421) * lu(k,505) - lu(k,511) = lu(k,511) - lu(k,422) * lu(k,505) - lu(k,512) = lu(k,512) - lu(k,423) * lu(k,505) - lu(k,513) = lu(k,513) - lu(k,424) * lu(k,505) - lu(k,514) = lu(k,514) - lu(k,425) * lu(k,505) - lu(k,537) = lu(k,537) - lu(k,417) * lu(k,536) - lu(k,538) = lu(k,538) - lu(k,418) * lu(k,536) - lu(k,539) = lu(k,539) - lu(k,419) * lu(k,536) - lu(k,540) = lu(k,540) - lu(k,420) * lu(k,536) - lu(k,541) = lu(k,541) - lu(k,421) * lu(k,536) - lu(k,542) = lu(k,542) - lu(k,422) * lu(k,536) - lu(k,543) = lu(k,543) - lu(k,423) * lu(k,536) - lu(k,544) = lu(k,544) - lu(k,424) * lu(k,536) - lu(k,545) = lu(k,545) - lu(k,425) * lu(k,536) - lu(k,562) = lu(k,562) - lu(k,417) * lu(k,561) - lu(k,563) = lu(k,563) - lu(k,418) * lu(k,561) - lu(k,564) = lu(k,564) - lu(k,419) * lu(k,561) - lu(k,565) = lu(k,565) - lu(k,420) * lu(k,561) - lu(k,566) = lu(k,566) - lu(k,421) * lu(k,561) - lu(k,567) = lu(k,567) - lu(k,422) * lu(k,561) - lu(k,568) = lu(k,568) - lu(k,423) * lu(k,561) - lu(k,569) = lu(k,569) - lu(k,424) * lu(k,561) - lu(k,570) = lu(k,570) - lu(k,425) * lu(k,561) - lu(k,601) = lu(k,601) - lu(k,417) * lu(k,600) - lu(k,602) = lu(k,602) - lu(k,418) * lu(k,600) - lu(k,603) = lu(k,603) - lu(k,419) * lu(k,600) - lu(k,604) = lu(k,604) - lu(k,420) * lu(k,600) - lu(k,605) = lu(k,605) - lu(k,421) * lu(k,600) - lu(k,606) = lu(k,606) - lu(k,422) * lu(k,600) - lu(k,607) = lu(k,607) - lu(k,423) * lu(k,600) - lu(k,608) = lu(k,608) - lu(k,424) * lu(k,600) - lu(k,609) = lu(k,609) - lu(k,425) * lu(k,600) - lu(k,621) = lu(k,621) - lu(k,417) * lu(k,620) - lu(k,622) = lu(k,622) - lu(k,418) * lu(k,620) - lu(k,623) = lu(k,623) - lu(k,419) * lu(k,620) - lu(k,624) = lu(k,624) - lu(k,420) * lu(k,620) - lu(k,625) = lu(k,625) - lu(k,421) * lu(k,620) - lu(k,626) = lu(k,626) - lu(k,422) * lu(k,620) - lu(k,627) = lu(k,627) - lu(k,423) * lu(k,620) - lu(k,628) = lu(k,628) - lu(k,424) * lu(k,620) - lu(k,629) = lu(k,629) - lu(k,425) * lu(k,620) - lu(k,639) = lu(k,639) - lu(k,417) * lu(k,638) - lu(k,640) = lu(k,640) - lu(k,418) * lu(k,638) - lu(k,641) = lu(k,641) - lu(k,419) * lu(k,638) - lu(k,642) = lu(k,642) - lu(k,420) * lu(k,638) - lu(k,643) = lu(k,643) - lu(k,421) * lu(k,638) - lu(k,644) = lu(k,644) - lu(k,422) * lu(k,638) - lu(k,645) = lu(k,645) - lu(k,423) * lu(k,638) - lu(k,646) = lu(k,646) - lu(k,424) * lu(k,638) - lu(k,647) = lu(k,647) - lu(k,425) * lu(k,638) - lu(k,442) = 1._r8 / lu(k,442) - lu(k,443) = lu(k,443) * lu(k,442) - lu(k,444) = lu(k,444) * lu(k,442) - lu(k,445) = lu(k,445) * lu(k,442) - lu(k,446) = lu(k,446) * lu(k,442) - lu(k,447) = lu(k,447) * lu(k,442) - lu(k,448) = lu(k,448) * lu(k,442) - lu(k,449) = lu(k,449) * lu(k,442) - lu(k,450) = lu(k,450) * lu(k,442) - lu(k,463) = lu(k,463) - lu(k,443) * lu(k,462) - lu(k,464) = lu(k,464) - lu(k,444) * lu(k,462) - lu(k,465) = lu(k,465) - lu(k,445) * lu(k,462) - lu(k,466) = lu(k,466) - lu(k,446) * lu(k,462) - lu(k,467) = lu(k,467) - lu(k,447) * lu(k,462) - lu(k,468) = lu(k,468) - lu(k,448) * lu(k,462) - lu(k,469) = lu(k,469) - lu(k,449) * lu(k,462) - lu(k,470) = lu(k,470) - lu(k,450) * lu(k,462) - lu(k,482) = lu(k,482) - lu(k,443) * lu(k,481) - lu(k,483) = lu(k,483) - lu(k,444) * lu(k,481) - lu(k,484) = lu(k,484) - lu(k,445) * lu(k,481) - lu(k,485) = lu(k,485) - lu(k,446) * lu(k,481) - lu(k,486) = lu(k,486) - lu(k,447) * lu(k,481) - lu(k,487) = lu(k,487) - lu(k,448) * lu(k,481) - lu(k,488) = lu(k,488) - lu(k,449) * lu(k,481) - lu(k,489) = lu(k,489) - lu(k,450) * lu(k,481) - lu(k,507) = lu(k,507) - lu(k,443) * lu(k,506) - lu(k,508) = lu(k,508) - lu(k,444) * lu(k,506) - lu(k,509) = lu(k,509) - lu(k,445) * lu(k,506) - lu(k,510) = lu(k,510) - lu(k,446) * lu(k,506) - lu(k,511) = lu(k,511) - lu(k,447) * lu(k,506) - lu(k,512) = lu(k,512) - lu(k,448) * lu(k,506) - lu(k,513) = lu(k,513) - lu(k,449) * lu(k,506) - lu(k,514) = lu(k,514) - lu(k,450) * lu(k,506) - lu(k,538) = lu(k,538) - lu(k,443) * lu(k,537) - lu(k,539) = lu(k,539) - lu(k,444) * lu(k,537) - lu(k,540) = lu(k,540) - lu(k,445) * lu(k,537) - lu(k,541) = lu(k,541) - lu(k,446) * lu(k,537) - lu(k,542) = lu(k,542) - lu(k,447) * lu(k,537) - lu(k,543) = lu(k,543) - lu(k,448) * lu(k,537) - lu(k,544) = lu(k,544) - lu(k,449) * lu(k,537) - lu(k,545) = lu(k,545) - lu(k,450) * lu(k,537) - lu(k,563) = lu(k,563) - lu(k,443) * lu(k,562) - lu(k,564) = lu(k,564) - lu(k,444) * lu(k,562) - lu(k,565) = lu(k,565) - lu(k,445) * lu(k,562) - lu(k,566) = lu(k,566) - lu(k,446) * lu(k,562) - lu(k,567) = lu(k,567) - lu(k,447) * lu(k,562) - lu(k,568) = lu(k,568) - lu(k,448) * lu(k,562) - lu(k,569) = lu(k,569) - lu(k,449) * lu(k,562) - lu(k,570) = lu(k,570) - lu(k,450) * lu(k,562) - lu(k,602) = lu(k,602) - lu(k,443) * lu(k,601) - lu(k,603) = lu(k,603) - lu(k,444) * lu(k,601) - lu(k,604) = lu(k,604) - lu(k,445) * lu(k,601) - lu(k,605) = lu(k,605) - lu(k,446) * lu(k,601) - lu(k,606) = lu(k,606) - lu(k,447) * lu(k,601) - lu(k,607) = lu(k,607) - lu(k,448) * lu(k,601) - lu(k,608) = lu(k,608) - lu(k,449) * lu(k,601) - lu(k,609) = lu(k,609) - lu(k,450) * lu(k,601) - lu(k,622) = lu(k,622) - lu(k,443) * lu(k,621) - lu(k,623) = lu(k,623) - lu(k,444) * lu(k,621) - lu(k,624) = lu(k,624) - lu(k,445) * lu(k,621) - lu(k,625) = lu(k,625) - lu(k,446) * lu(k,621) - lu(k,626) = lu(k,626) - lu(k,447) * lu(k,621) - lu(k,627) = lu(k,627) - lu(k,448) * lu(k,621) - lu(k,628) = lu(k,628) - lu(k,449) * lu(k,621) - lu(k,629) = lu(k,629) - lu(k,450) * lu(k,621) - lu(k,640) = lu(k,640) - lu(k,443) * lu(k,639) - lu(k,641) = lu(k,641) - lu(k,444) * lu(k,639) - lu(k,642) = lu(k,642) - lu(k,445) * lu(k,639) - lu(k,643) = lu(k,643) - lu(k,446) * lu(k,639) - lu(k,644) = lu(k,644) - lu(k,447) * lu(k,639) - lu(k,645) = lu(k,645) - lu(k,448) * lu(k,639) - lu(k,646) = lu(k,646) - lu(k,449) * lu(k,639) - lu(k,647) = lu(k,647) - lu(k,450) * lu(k,639) + 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,350) = lu(k,350) * lu(k,341) + lu(k,351) = lu(k,351) * lu(k,341) + lu(k,352) = lu(k,352) * lu(k,341) + lu(k,353) = lu(k,353) * lu(k,341) + lu(k,362) = lu(k,362) - lu(k,342) * lu(k,361) + lu(k,363) = lu(k,363) - lu(k,343) * lu(k,361) + lu(k,364) = lu(k,364) - lu(k,344) * lu(k,361) + lu(k,365) = lu(k,365) - lu(k,345) * lu(k,361) + lu(k,366) = lu(k,366) - lu(k,346) * lu(k,361) + lu(k,367) = lu(k,367) - lu(k,347) * lu(k,361) + lu(k,368) = lu(k,368) - lu(k,348) * lu(k,361) + lu(k,369) = lu(k,369) - lu(k,349) * lu(k,361) + lu(k,370) = lu(k,370) - lu(k,350) * lu(k,361) + lu(k,371) = lu(k,371) - lu(k,351) * lu(k,361) + lu(k,372) = lu(k,372) - lu(k,352) * lu(k,361) + lu(k,373) = lu(k,373) - lu(k,353) * lu(k,361) + lu(k,384) = lu(k,384) - lu(k,342) * lu(k,383) + lu(k,385) = lu(k,385) - lu(k,343) * lu(k,383) + lu(k,386) = lu(k,386) - lu(k,344) * lu(k,383) + lu(k,387) = lu(k,387) - lu(k,345) * lu(k,383) + lu(k,388) = lu(k,388) - lu(k,346) * lu(k,383) + lu(k,389) = lu(k,389) - lu(k,347) * lu(k,383) + lu(k,390) = lu(k,390) - lu(k,348) * lu(k,383) + lu(k,391) = lu(k,391) - lu(k,349) * lu(k,383) + lu(k,392) = lu(k,392) - lu(k,350) * lu(k,383) + lu(k,393) = lu(k,393) - lu(k,351) * lu(k,383) + lu(k,394) = lu(k,394) - lu(k,352) * lu(k,383) + lu(k,395) = lu(k,395) - lu(k,353) * lu(k,383) + lu(k,409) = lu(k,409) - lu(k,342) * lu(k,408) + lu(k,410) = lu(k,410) - lu(k,343) * lu(k,408) + lu(k,411) = lu(k,411) - lu(k,344) * lu(k,408) + lu(k,412) = lu(k,412) - lu(k,345) * lu(k,408) + lu(k,413) = lu(k,413) - lu(k,346) * lu(k,408) + lu(k,414) = lu(k,414) - lu(k,347) * lu(k,408) + lu(k,415) = lu(k,415) - lu(k,348) * lu(k,408) + lu(k,416) = lu(k,416) - lu(k,349) * lu(k,408) + lu(k,417) = lu(k,417) - lu(k,350) * lu(k,408) + lu(k,418) = lu(k,418) - lu(k,351) * lu(k,408) + lu(k,419) = lu(k,419) - lu(k,352) * lu(k,408) + lu(k,420) = lu(k,420) - lu(k,353) * lu(k,408) + lu(k,434) = lu(k,434) - lu(k,342) * lu(k,433) + lu(k,435) = lu(k,435) - lu(k,343) * lu(k,433) + lu(k,436) = lu(k,436) - lu(k,344) * lu(k,433) + lu(k,437) = lu(k,437) - lu(k,345) * lu(k,433) + lu(k,438) = lu(k,438) - lu(k,346) * lu(k,433) + lu(k,439) = lu(k,439) - lu(k,347) * lu(k,433) + lu(k,440) = lu(k,440) - lu(k,348) * lu(k,433) + lu(k,441) = lu(k,441) - lu(k,349) * lu(k,433) + lu(k,442) = lu(k,442) - lu(k,350) * lu(k,433) + lu(k,443) = lu(k,443) - lu(k,351) * lu(k,433) + lu(k,444) = lu(k,444) - lu(k,352) * lu(k,433) + lu(k,445) = lu(k,445) - lu(k,353) * lu(k,433) + lu(k,460) = lu(k,460) - lu(k,342) * lu(k,459) + lu(k,461) = lu(k,461) - lu(k,343) * lu(k,459) + lu(k,462) = lu(k,462) - lu(k,344) * lu(k,459) + lu(k,463) = lu(k,463) - lu(k,345) * lu(k,459) + lu(k,464) = lu(k,464) - lu(k,346) * lu(k,459) + lu(k,465) = lu(k,465) - lu(k,347) * lu(k,459) + lu(k,466) = lu(k,466) - lu(k,348) * lu(k,459) + lu(k,467) = lu(k,467) - lu(k,349) * lu(k,459) + lu(k,468) = lu(k,468) - lu(k,350) * lu(k,459) + lu(k,469) = lu(k,469) - lu(k,351) * lu(k,459) + lu(k,470) = lu(k,470) - lu(k,352) * lu(k,459) + lu(k,471) = lu(k,471) - lu(k,353) * lu(k,459) + lu(k,483) = lu(k,483) - lu(k,342) * lu(k,482) + lu(k,484) = lu(k,484) - lu(k,343) * lu(k,482) + lu(k,485) = lu(k,485) - lu(k,344) * lu(k,482) + lu(k,486) = lu(k,486) - lu(k,345) * lu(k,482) + lu(k,487) = lu(k,487) - lu(k,346) * lu(k,482) + lu(k,488) = lu(k,488) - lu(k,347) * lu(k,482) + lu(k,489) = lu(k,489) - lu(k,348) * lu(k,482) + lu(k,490) = lu(k,490) - lu(k,349) * lu(k,482) + lu(k,491) = lu(k,491) - lu(k,350) * lu(k,482) + lu(k,492) = lu(k,492) - lu(k,351) * lu(k,482) + lu(k,493) = lu(k,493) - lu(k,352) * lu(k,482) + lu(k,494) = lu(k,494) - lu(k,353) * lu(k,482) + lu(k,504) = lu(k,504) - lu(k,342) * lu(k,503) + lu(k,505) = lu(k,505) - lu(k,343) * lu(k,503) + lu(k,506) = lu(k,506) - lu(k,344) * lu(k,503) + lu(k,507) = lu(k,507) - lu(k,345) * lu(k,503) + lu(k,508) = lu(k,508) - lu(k,346) * lu(k,503) + lu(k,509) = lu(k,509) - lu(k,347) * lu(k,503) + lu(k,510) = lu(k,510) - lu(k,348) * lu(k,503) + lu(k,511) = lu(k,511) - lu(k,349) * lu(k,503) + lu(k,512) = lu(k,512) - lu(k,350) * lu(k,503) + lu(k,513) = lu(k,513) - lu(k,351) * lu(k,503) + lu(k,514) = lu(k,514) - lu(k,352) * lu(k,503) + lu(k,515) = lu(k,515) - lu(k,353) * lu(k,503) + lu(k,535) = lu(k,535) - lu(k,342) * lu(k,534) + lu(k,536) = lu(k,536) - lu(k,343) * lu(k,534) + lu(k,537) = lu(k,537) - lu(k,344) * lu(k,534) + lu(k,538) = lu(k,538) - lu(k,345) * lu(k,534) + lu(k,539) = lu(k,539) - lu(k,346) * lu(k,534) + lu(k,540) = lu(k,540) - lu(k,347) * lu(k,534) + lu(k,541) = lu(k,541) - lu(k,348) * lu(k,534) + lu(k,542) = lu(k,542) - lu(k,349) * lu(k,534) + lu(k,543) = lu(k,543) - lu(k,350) * lu(k,534) + lu(k,544) = lu(k,544) - lu(k,351) * lu(k,534) + lu(k,545) = lu(k,545) - lu(k,352) * lu(k,534) + lu(k,546) = lu(k,546) - lu(k,353) * lu(k,534) + lu(k,554) = lu(k,554) - lu(k,342) * lu(k,553) + lu(k,555) = lu(k,555) - lu(k,343) * lu(k,553) + lu(k,556) = lu(k,556) - lu(k,344) * lu(k,553) + lu(k,557) = lu(k,557) - lu(k,345) * lu(k,553) + lu(k,558) = lu(k,558) - lu(k,346) * lu(k,553) + lu(k,559) = lu(k,559) - lu(k,347) * lu(k,553) + lu(k,560) = lu(k,560) - lu(k,348) * lu(k,553) + lu(k,561) = lu(k,561) - lu(k,349) * lu(k,553) + lu(k,562) = lu(k,562) - lu(k,350) * lu(k,553) + lu(k,563) = lu(k,563) - lu(k,351) * lu(k,553) + lu(k,564) = lu(k,564) - lu(k,352) * lu(k,553) + lu(k,565) = lu(k,565) - lu(k,353) * lu(k,553) + lu(k,579) = lu(k,579) - lu(k,342) * lu(k,578) + lu(k,580) = lu(k,580) - lu(k,343) * lu(k,578) + lu(k,581) = lu(k,581) - lu(k,344) * lu(k,578) + lu(k,582) = lu(k,582) - lu(k,345) * lu(k,578) + lu(k,583) = lu(k,583) - lu(k,346) * lu(k,578) + lu(k,584) = lu(k,584) - lu(k,347) * lu(k,578) + lu(k,585) = lu(k,585) - lu(k,348) * lu(k,578) + lu(k,586) = lu(k,586) - lu(k,349) * lu(k,578) + lu(k,587) = lu(k,587) - lu(k,350) * lu(k,578) + lu(k,588) = lu(k,588) - lu(k,351) * lu(k,578) + lu(k,589) = lu(k,589) - lu(k,352) * lu(k,578) + lu(k,590) = lu(k,590) - lu(k,353) * lu(k,578) + lu(k,597) = lu(k,597) - lu(k,342) * lu(k,596) + lu(k,598) = lu(k,598) - lu(k,343) * lu(k,596) + lu(k,599) = lu(k,599) - lu(k,344) * lu(k,596) + lu(k,600) = lu(k,600) - lu(k,345) * lu(k,596) + lu(k,601) = lu(k,601) - lu(k,346) * lu(k,596) + lu(k,602) = lu(k,602) - lu(k,347) * lu(k,596) + lu(k,603) = lu(k,603) - lu(k,348) * lu(k,596) + lu(k,604) = lu(k,604) - lu(k,349) * lu(k,596) + lu(k,605) = lu(k,605) - lu(k,350) * lu(k,596) + lu(k,606) = lu(k,606) - lu(k,351) * lu(k,596) + lu(k,607) = lu(k,607) - lu(k,352) * lu(k,596) + lu(k,608) = lu(k,608) - lu(k,353) * lu(k,596) + lu(k,636) = lu(k,636) - lu(k,342) * lu(k,635) + lu(k,637) = lu(k,637) - lu(k,343) * lu(k,635) + lu(k,638) = lu(k,638) - lu(k,344) * lu(k,635) + lu(k,639) = lu(k,639) - lu(k,345) * lu(k,635) + lu(k,640) = lu(k,640) - lu(k,346) * lu(k,635) + lu(k,641) = lu(k,641) - lu(k,347) * lu(k,635) + lu(k,642) = lu(k,642) - lu(k,348) * lu(k,635) + lu(k,643) = lu(k,643) - lu(k,349) * lu(k,635) + lu(k,644) = lu(k,644) - lu(k,350) * lu(k,635) + lu(k,645) = lu(k,645) - lu(k,351) * lu(k,635) + lu(k,646) = lu(k,646) - lu(k,352) * lu(k,635) + lu(k,647) = lu(k,647) - lu(k,353) * lu(k,635) + 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,367) = lu(k,367) * lu(k,362) + lu(k,368) = lu(k,368) * lu(k,362) + lu(k,369) = lu(k,369) * lu(k,362) + lu(k,370) = lu(k,370) * lu(k,362) + lu(k,371) = lu(k,371) * lu(k,362) + lu(k,372) = lu(k,372) * lu(k,362) + lu(k,373) = lu(k,373) * lu(k,362) + lu(k,385) = lu(k,385) - lu(k,363) * lu(k,384) + lu(k,386) = lu(k,386) - lu(k,364) * lu(k,384) + lu(k,387) = lu(k,387) - lu(k,365) * lu(k,384) + lu(k,388) = lu(k,388) - lu(k,366) * lu(k,384) + lu(k,389) = lu(k,389) - lu(k,367) * lu(k,384) + lu(k,390) = lu(k,390) - lu(k,368) * lu(k,384) + lu(k,391) = lu(k,391) - lu(k,369) * lu(k,384) + lu(k,392) = lu(k,392) - lu(k,370) * lu(k,384) + lu(k,393) = lu(k,393) - lu(k,371) * lu(k,384) + lu(k,394) = lu(k,394) - lu(k,372) * lu(k,384) + lu(k,395) = lu(k,395) - lu(k,373) * lu(k,384) + lu(k,410) = lu(k,410) - lu(k,363) * lu(k,409) + lu(k,411) = lu(k,411) - lu(k,364) * lu(k,409) + lu(k,412) = lu(k,412) - lu(k,365) * lu(k,409) + lu(k,413) = lu(k,413) - lu(k,366) * lu(k,409) + lu(k,414) = lu(k,414) - lu(k,367) * lu(k,409) + lu(k,415) = lu(k,415) - lu(k,368) * lu(k,409) + lu(k,416) = lu(k,416) - lu(k,369) * lu(k,409) + lu(k,417) = lu(k,417) - lu(k,370) * lu(k,409) + lu(k,418) = lu(k,418) - lu(k,371) * lu(k,409) + lu(k,419) = lu(k,419) - lu(k,372) * lu(k,409) + lu(k,420) = lu(k,420) - lu(k,373) * lu(k,409) + lu(k,435) = lu(k,435) - lu(k,363) * lu(k,434) + lu(k,436) = lu(k,436) - lu(k,364) * lu(k,434) + lu(k,437) = lu(k,437) - lu(k,365) * lu(k,434) + lu(k,438) = lu(k,438) - lu(k,366) * lu(k,434) + lu(k,439) = lu(k,439) - lu(k,367) * lu(k,434) + lu(k,440) = lu(k,440) - lu(k,368) * lu(k,434) + lu(k,441) = lu(k,441) - lu(k,369) * lu(k,434) + lu(k,442) = lu(k,442) - lu(k,370) * lu(k,434) + lu(k,443) = lu(k,443) - lu(k,371) * lu(k,434) + lu(k,444) = lu(k,444) - lu(k,372) * lu(k,434) + lu(k,445) = lu(k,445) - lu(k,373) * lu(k,434) + lu(k,461) = lu(k,461) - lu(k,363) * lu(k,460) + lu(k,462) = lu(k,462) - lu(k,364) * lu(k,460) + lu(k,463) = lu(k,463) - lu(k,365) * lu(k,460) + lu(k,464) = lu(k,464) - lu(k,366) * lu(k,460) + lu(k,465) = lu(k,465) - lu(k,367) * lu(k,460) + lu(k,466) = lu(k,466) - lu(k,368) * lu(k,460) + lu(k,467) = lu(k,467) - lu(k,369) * lu(k,460) + lu(k,468) = lu(k,468) - lu(k,370) * lu(k,460) + lu(k,469) = lu(k,469) - lu(k,371) * lu(k,460) + lu(k,470) = lu(k,470) - lu(k,372) * lu(k,460) + lu(k,471) = lu(k,471) - lu(k,373) * lu(k,460) + lu(k,484) = lu(k,484) - lu(k,363) * lu(k,483) + lu(k,485) = lu(k,485) - lu(k,364) * lu(k,483) + lu(k,486) = lu(k,486) - lu(k,365) * lu(k,483) + lu(k,487) = lu(k,487) - lu(k,366) * lu(k,483) + lu(k,488) = lu(k,488) - lu(k,367) * lu(k,483) + lu(k,489) = lu(k,489) - lu(k,368) * lu(k,483) + lu(k,490) = lu(k,490) - lu(k,369) * lu(k,483) + lu(k,491) = lu(k,491) - lu(k,370) * lu(k,483) + lu(k,492) = lu(k,492) - lu(k,371) * lu(k,483) + lu(k,493) = lu(k,493) - lu(k,372) * lu(k,483) + lu(k,494) = lu(k,494) - lu(k,373) * lu(k,483) + lu(k,505) = lu(k,505) - lu(k,363) * lu(k,504) + lu(k,506) = lu(k,506) - lu(k,364) * lu(k,504) + lu(k,507) = lu(k,507) - lu(k,365) * lu(k,504) + lu(k,508) = lu(k,508) - lu(k,366) * lu(k,504) + lu(k,509) = lu(k,509) - lu(k,367) * lu(k,504) + lu(k,510) = lu(k,510) - lu(k,368) * lu(k,504) + lu(k,511) = lu(k,511) - lu(k,369) * lu(k,504) + lu(k,512) = lu(k,512) - lu(k,370) * lu(k,504) + lu(k,513) = lu(k,513) - lu(k,371) * lu(k,504) + lu(k,514) = lu(k,514) - lu(k,372) * lu(k,504) + lu(k,515) = lu(k,515) - lu(k,373) * lu(k,504) + lu(k,536) = lu(k,536) - lu(k,363) * lu(k,535) + lu(k,537) = lu(k,537) - lu(k,364) * lu(k,535) + lu(k,538) = lu(k,538) - lu(k,365) * lu(k,535) + lu(k,539) = lu(k,539) - lu(k,366) * lu(k,535) + lu(k,540) = lu(k,540) - lu(k,367) * lu(k,535) + lu(k,541) = lu(k,541) - lu(k,368) * lu(k,535) + lu(k,542) = lu(k,542) - lu(k,369) * lu(k,535) + lu(k,543) = lu(k,543) - lu(k,370) * lu(k,535) + lu(k,544) = lu(k,544) - lu(k,371) * lu(k,535) + lu(k,545) = lu(k,545) - lu(k,372) * lu(k,535) + lu(k,546) = lu(k,546) - lu(k,373) * lu(k,535) + lu(k,555) = lu(k,555) - lu(k,363) * lu(k,554) + lu(k,556) = lu(k,556) - lu(k,364) * lu(k,554) + lu(k,557) = lu(k,557) - lu(k,365) * lu(k,554) + lu(k,558) = lu(k,558) - lu(k,366) * lu(k,554) + lu(k,559) = lu(k,559) - lu(k,367) * lu(k,554) + lu(k,560) = lu(k,560) - lu(k,368) * lu(k,554) + lu(k,561) = lu(k,561) - lu(k,369) * lu(k,554) + lu(k,562) = lu(k,562) - lu(k,370) * lu(k,554) + lu(k,563) = lu(k,563) - lu(k,371) * lu(k,554) + lu(k,564) = lu(k,564) - lu(k,372) * lu(k,554) + lu(k,565) = lu(k,565) - lu(k,373) * lu(k,554) + lu(k,580) = lu(k,580) - lu(k,363) * lu(k,579) + lu(k,581) = lu(k,581) - lu(k,364) * lu(k,579) + lu(k,582) = lu(k,582) - lu(k,365) * lu(k,579) + lu(k,583) = lu(k,583) - lu(k,366) * lu(k,579) + lu(k,584) = lu(k,584) - lu(k,367) * lu(k,579) + lu(k,585) = lu(k,585) - lu(k,368) * lu(k,579) + lu(k,586) = lu(k,586) - lu(k,369) * lu(k,579) + lu(k,587) = lu(k,587) - lu(k,370) * lu(k,579) + lu(k,588) = lu(k,588) - lu(k,371) * lu(k,579) + lu(k,589) = lu(k,589) - lu(k,372) * lu(k,579) + lu(k,590) = lu(k,590) - lu(k,373) * lu(k,579) + lu(k,598) = lu(k,598) - lu(k,363) * lu(k,597) + lu(k,599) = lu(k,599) - lu(k,364) * lu(k,597) + lu(k,600) = lu(k,600) - lu(k,365) * lu(k,597) + lu(k,601) = lu(k,601) - lu(k,366) * lu(k,597) + lu(k,602) = lu(k,602) - lu(k,367) * lu(k,597) + lu(k,603) = lu(k,603) - lu(k,368) * lu(k,597) + lu(k,604) = lu(k,604) - lu(k,369) * lu(k,597) + lu(k,605) = lu(k,605) - lu(k,370) * lu(k,597) + lu(k,606) = lu(k,606) - lu(k,371) * lu(k,597) + lu(k,607) = lu(k,607) - lu(k,372) * lu(k,597) + lu(k,608) = lu(k,608) - lu(k,373) * lu(k,597) + lu(k,637) = lu(k,637) - lu(k,363) * lu(k,636) + lu(k,638) = lu(k,638) - lu(k,364) * lu(k,636) + lu(k,639) = lu(k,639) - lu(k,365) * lu(k,636) + lu(k,640) = lu(k,640) - lu(k,366) * lu(k,636) + lu(k,641) = lu(k,641) - lu(k,367) * lu(k,636) + lu(k,642) = lu(k,642) - lu(k,368) * lu(k,636) + lu(k,643) = lu(k,643) - lu(k,369) * lu(k,636) + lu(k,644) = lu(k,644) - lu(k,370) * lu(k,636) + lu(k,645) = lu(k,645) - lu(k,371) * lu(k,636) + lu(k,646) = lu(k,646) - lu(k,372) * lu(k,636) + lu(k,647) = lu(k,647) - lu(k,373) * lu(k,636) + 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,391) = lu(k,391) * lu(k,385) + lu(k,392) = lu(k,392) * lu(k,385) + lu(k,393) = lu(k,393) * lu(k,385) + lu(k,394) = lu(k,394) * lu(k,385) + lu(k,395) = lu(k,395) * lu(k,385) + lu(k,411) = lu(k,411) - lu(k,386) * lu(k,410) + lu(k,412) = lu(k,412) - lu(k,387) * lu(k,410) + lu(k,413) = lu(k,413) - lu(k,388) * lu(k,410) + lu(k,414) = lu(k,414) - lu(k,389) * lu(k,410) + lu(k,415) = lu(k,415) - lu(k,390) * lu(k,410) + lu(k,416) = lu(k,416) - lu(k,391) * lu(k,410) + lu(k,417) = lu(k,417) - lu(k,392) * lu(k,410) + lu(k,418) = lu(k,418) - lu(k,393) * lu(k,410) + lu(k,419) = lu(k,419) - lu(k,394) * lu(k,410) + lu(k,420) = lu(k,420) - lu(k,395) * lu(k,410) + lu(k,436) = lu(k,436) - lu(k,386) * lu(k,435) + lu(k,437) = lu(k,437) - lu(k,387) * lu(k,435) + lu(k,438) = lu(k,438) - lu(k,388) * lu(k,435) + lu(k,439) = lu(k,439) - lu(k,389) * lu(k,435) + lu(k,440) = lu(k,440) - lu(k,390) * lu(k,435) + lu(k,441) = lu(k,441) - lu(k,391) * lu(k,435) + lu(k,442) = lu(k,442) - lu(k,392) * lu(k,435) + lu(k,443) = lu(k,443) - lu(k,393) * lu(k,435) + lu(k,444) = lu(k,444) - lu(k,394) * lu(k,435) + lu(k,445) = lu(k,445) - lu(k,395) * lu(k,435) + lu(k,462) = lu(k,462) - lu(k,386) * lu(k,461) + lu(k,463) = lu(k,463) - lu(k,387) * lu(k,461) + lu(k,464) = lu(k,464) - lu(k,388) * lu(k,461) + lu(k,465) = lu(k,465) - lu(k,389) * lu(k,461) + lu(k,466) = lu(k,466) - lu(k,390) * lu(k,461) + lu(k,467) = lu(k,467) - lu(k,391) * lu(k,461) + lu(k,468) = lu(k,468) - lu(k,392) * lu(k,461) + lu(k,469) = lu(k,469) - lu(k,393) * lu(k,461) + lu(k,470) = lu(k,470) - lu(k,394) * lu(k,461) + lu(k,471) = lu(k,471) - lu(k,395) * lu(k,461) + lu(k,485) = lu(k,485) - lu(k,386) * lu(k,484) + lu(k,486) = lu(k,486) - lu(k,387) * lu(k,484) + lu(k,487) = lu(k,487) - lu(k,388) * lu(k,484) + lu(k,488) = lu(k,488) - lu(k,389) * lu(k,484) + lu(k,489) = lu(k,489) - lu(k,390) * lu(k,484) + lu(k,490) = lu(k,490) - lu(k,391) * lu(k,484) + lu(k,491) = lu(k,491) - lu(k,392) * lu(k,484) + lu(k,492) = lu(k,492) - lu(k,393) * lu(k,484) + lu(k,493) = lu(k,493) - lu(k,394) * lu(k,484) + lu(k,494) = lu(k,494) - lu(k,395) * lu(k,484) + lu(k,506) = lu(k,506) - lu(k,386) * lu(k,505) + lu(k,507) = lu(k,507) - lu(k,387) * lu(k,505) + lu(k,508) = lu(k,508) - lu(k,388) * lu(k,505) + lu(k,509) = lu(k,509) - lu(k,389) * lu(k,505) + lu(k,510) = lu(k,510) - lu(k,390) * lu(k,505) + lu(k,511) = lu(k,511) - lu(k,391) * lu(k,505) + lu(k,512) = lu(k,512) - lu(k,392) * lu(k,505) + lu(k,513) = lu(k,513) - lu(k,393) * lu(k,505) + lu(k,514) = lu(k,514) - lu(k,394) * lu(k,505) + lu(k,515) = lu(k,515) - lu(k,395) * lu(k,505) + lu(k,537) = lu(k,537) - lu(k,386) * lu(k,536) + lu(k,538) = lu(k,538) - lu(k,387) * lu(k,536) + lu(k,539) = lu(k,539) - lu(k,388) * lu(k,536) + lu(k,540) = lu(k,540) - lu(k,389) * lu(k,536) + lu(k,541) = lu(k,541) - lu(k,390) * lu(k,536) + lu(k,542) = lu(k,542) - lu(k,391) * lu(k,536) + lu(k,543) = lu(k,543) - lu(k,392) * lu(k,536) + lu(k,544) = lu(k,544) - lu(k,393) * lu(k,536) + lu(k,545) = lu(k,545) - lu(k,394) * lu(k,536) + lu(k,546) = lu(k,546) - lu(k,395) * lu(k,536) + lu(k,556) = lu(k,556) - lu(k,386) * lu(k,555) + lu(k,557) = lu(k,557) - lu(k,387) * lu(k,555) + lu(k,558) = lu(k,558) - lu(k,388) * lu(k,555) + lu(k,559) = lu(k,559) - lu(k,389) * lu(k,555) + lu(k,560) = lu(k,560) - lu(k,390) * lu(k,555) + lu(k,561) = lu(k,561) - lu(k,391) * lu(k,555) + lu(k,562) = lu(k,562) - lu(k,392) * lu(k,555) + lu(k,563) = lu(k,563) - lu(k,393) * lu(k,555) + lu(k,564) = lu(k,564) - lu(k,394) * lu(k,555) + lu(k,565) = lu(k,565) - lu(k,395) * lu(k,555) + lu(k,581) = lu(k,581) - lu(k,386) * lu(k,580) + lu(k,582) = lu(k,582) - lu(k,387) * lu(k,580) + lu(k,583) = lu(k,583) - lu(k,388) * lu(k,580) + lu(k,584) = lu(k,584) - lu(k,389) * lu(k,580) + lu(k,585) = lu(k,585) - lu(k,390) * lu(k,580) + lu(k,586) = lu(k,586) - lu(k,391) * lu(k,580) + lu(k,587) = lu(k,587) - lu(k,392) * lu(k,580) + lu(k,588) = lu(k,588) - lu(k,393) * lu(k,580) + lu(k,589) = lu(k,589) - lu(k,394) * lu(k,580) + lu(k,590) = lu(k,590) - lu(k,395) * lu(k,580) + lu(k,599) = lu(k,599) - lu(k,386) * lu(k,598) + lu(k,600) = lu(k,600) - lu(k,387) * lu(k,598) + lu(k,601) = lu(k,601) - lu(k,388) * lu(k,598) + lu(k,602) = lu(k,602) - lu(k,389) * lu(k,598) + lu(k,603) = lu(k,603) - lu(k,390) * lu(k,598) + lu(k,604) = lu(k,604) - lu(k,391) * lu(k,598) + lu(k,605) = lu(k,605) - lu(k,392) * lu(k,598) + lu(k,606) = lu(k,606) - lu(k,393) * lu(k,598) + lu(k,607) = lu(k,607) - lu(k,394) * lu(k,598) + lu(k,608) = lu(k,608) - lu(k,395) * lu(k,598) + lu(k,638) = lu(k,638) - lu(k,386) * lu(k,637) + lu(k,639) = lu(k,639) - lu(k,387) * lu(k,637) + lu(k,640) = lu(k,640) - lu(k,388) * lu(k,637) + lu(k,641) = lu(k,641) - lu(k,389) * lu(k,637) + lu(k,642) = lu(k,642) - lu(k,390) * lu(k,637) + lu(k,643) = lu(k,643) - lu(k,391) * lu(k,637) + lu(k,644) = lu(k,644) - lu(k,392) * lu(k,637) + lu(k,645) = lu(k,645) - lu(k,393) * lu(k,637) + lu(k,646) = lu(k,646) - lu(k,394) * lu(k,637) + lu(k,647) = lu(k,647) - lu(k,395) * lu(k,637) + 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,419) = lu(k,419) * lu(k,411) + lu(k,420) = lu(k,420) * lu(k,411) + lu(k,437) = lu(k,437) - lu(k,412) * lu(k,436) + lu(k,438) = lu(k,438) - lu(k,413) * lu(k,436) + lu(k,439) = lu(k,439) - lu(k,414) * lu(k,436) + lu(k,440) = lu(k,440) - lu(k,415) * lu(k,436) + lu(k,441) = lu(k,441) - lu(k,416) * lu(k,436) + lu(k,442) = lu(k,442) - lu(k,417) * lu(k,436) + lu(k,443) = lu(k,443) - lu(k,418) * lu(k,436) + lu(k,444) = lu(k,444) - lu(k,419) * lu(k,436) + lu(k,445) = lu(k,445) - lu(k,420) * lu(k,436) + lu(k,463) = lu(k,463) - lu(k,412) * lu(k,462) + lu(k,464) = lu(k,464) - lu(k,413) * lu(k,462) + lu(k,465) = lu(k,465) - lu(k,414) * lu(k,462) + lu(k,466) = lu(k,466) - lu(k,415) * lu(k,462) + lu(k,467) = lu(k,467) - lu(k,416) * lu(k,462) + lu(k,468) = lu(k,468) - lu(k,417) * lu(k,462) + lu(k,469) = lu(k,469) - lu(k,418) * lu(k,462) + lu(k,470) = lu(k,470) - lu(k,419) * lu(k,462) + lu(k,471) = lu(k,471) - lu(k,420) * lu(k,462) + lu(k,486) = lu(k,486) - lu(k,412) * lu(k,485) + lu(k,487) = lu(k,487) - lu(k,413) * lu(k,485) + lu(k,488) = lu(k,488) - lu(k,414) * lu(k,485) + lu(k,489) = lu(k,489) - lu(k,415) * lu(k,485) + lu(k,490) = lu(k,490) - lu(k,416) * lu(k,485) + lu(k,491) = lu(k,491) - lu(k,417) * lu(k,485) + lu(k,492) = lu(k,492) - lu(k,418) * lu(k,485) + lu(k,493) = lu(k,493) - lu(k,419) * lu(k,485) + lu(k,494) = lu(k,494) - lu(k,420) * lu(k,485) + lu(k,507) = lu(k,507) - lu(k,412) * lu(k,506) + lu(k,508) = lu(k,508) - lu(k,413) * lu(k,506) + lu(k,509) = lu(k,509) - lu(k,414) * lu(k,506) + lu(k,510) = lu(k,510) - lu(k,415) * lu(k,506) + lu(k,511) = lu(k,511) - lu(k,416) * lu(k,506) + lu(k,512) = lu(k,512) - lu(k,417) * lu(k,506) + lu(k,513) = lu(k,513) - lu(k,418) * lu(k,506) + lu(k,514) = lu(k,514) - lu(k,419) * lu(k,506) + lu(k,515) = lu(k,515) - lu(k,420) * lu(k,506) + lu(k,538) = lu(k,538) - lu(k,412) * lu(k,537) + lu(k,539) = lu(k,539) - lu(k,413) * lu(k,537) + lu(k,540) = lu(k,540) - lu(k,414) * lu(k,537) + lu(k,541) = lu(k,541) - lu(k,415) * lu(k,537) + lu(k,542) = lu(k,542) - lu(k,416) * lu(k,537) + lu(k,543) = lu(k,543) - lu(k,417) * lu(k,537) + lu(k,544) = lu(k,544) - lu(k,418) * lu(k,537) + lu(k,545) = lu(k,545) - lu(k,419) * lu(k,537) + lu(k,546) = lu(k,546) - lu(k,420) * lu(k,537) + lu(k,557) = lu(k,557) - lu(k,412) * lu(k,556) + lu(k,558) = lu(k,558) - lu(k,413) * lu(k,556) + lu(k,559) = lu(k,559) - lu(k,414) * lu(k,556) + lu(k,560) = lu(k,560) - lu(k,415) * lu(k,556) + lu(k,561) = lu(k,561) - lu(k,416) * lu(k,556) + lu(k,562) = lu(k,562) - lu(k,417) * lu(k,556) + lu(k,563) = lu(k,563) - lu(k,418) * lu(k,556) + lu(k,564) = lu(k,564) - lu(k,419) * lu(k,556) + lu(k,565) = lu(k,565) - lu(k,420) * lu(k,556) + lu(k,582) = lu(k,582) - lu(k,412) * lu(k,581) + lu(k,583) = lu(k,583) - lu(k,413) * lu(k,581) + lu(k,584) = lu(k,584) - lu(k,414) * lu(k,581) + lu(k,585) = lu(k,585) - lu(k,415) * lu(k,581) + lu(k,586) = lu(k,586) - lu(k,416) * lu(k,581) + lu(k,587) = lu(k,587) - lu(k,417) * lu(k,581) + lu(k,588) = lu(k,588) - lu(k,418) * lu(k,581) + lu(k,589) = lu(k,589) - lu(k,419) * lu(k,581) + lu(k,590) = lu(k,590) - lu(k,420) * lu(k,581) + lu(k,600) = lu(k,600) - lu(k,412) * lu(k,599) + lu(k,601) = lu(k,601) - lu(k,413) * lu(k,599) + lu(k,602) = lu(k,602) - lu(k,414) * lu(k,599) + lu(k,603) = lu(k,603) - lu(k,415) * lu(k,599) + lu(k,604) = lu(k,604) - lu(k,416) * lu(k,599) + lu(k,605) = lu(k,605) - lu(k,417) * lu(k,599) + lu(k,606) = lu(k,606) - lu(k,418) * lu(k,599) + lu(k,607) = lu(k,607) - lu(k,419) * lu(k,599) + lu(k,608) = lu(k,608) - lu(k,420) * lu(k,599) + lu(k,639) = lu(k,639) - lu(k,412) * lu(k,638) + lu(k,640) = lu(k,640) - lu(k,413) * lu(k,638) + lu(k,641) = lu(k,641) - lu(k,414) * lu(k,638) + lu(k,642) = lu(k,642) - lu(k,415) * lu(k,638) + lu(k,643) = lu(k,643) - lu(k,416) * lu(k,638) + lu(k,644) = lu(k,644) - lu(k,417) * lu(k,638) + lu(k,645) = lu(k,645) - lu(k,418) * lu(k,638) + lu(k,646) = lu(k,646) - lu(k,419) * lu(k,638) + lu(k,647) = lu(k,647) - lu(k,420) * lu(k,638) + 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,443) = lu(k,443) * lu(k,437) + lu(k,444) = lu(k,444) * lu(k,437) + lu(k,445) = lu(k,445) * lu(k,437) + lu(k,464) = lu(k,464) - lu(k,438) * lu(k,463) + lu(k,465) = lu(k,465) - lu(k,439) * lu(k,463) + lu(k,466) = lu(k,466) - lu(k,440) * lu(k,463) + lu(k,467) = lu(k,467) - lu(k,441) * lu(k,463) + lu(k,468) = lu(k,468) - lu(k,442) * lu(k,463) + lu(k,469) = lu(k,469) - lu(k,443) * lu(k,463) + lu(k,470) = lu(k,470) - lu(k,444) * lu(k,463) + lu(k,471) = lu(k,471) - lu(k,445) * lu(k,463) + lu(k,487) = lu(k,487) - lu(k,438) * lu(k,486) + lu(k,488) = lu(k,488) - lu(k,439) * lu(k,486) + lu(k,489) = lu(k,489) - lu(k,440) * lu(k,486) + lu(k,490) = lu(k,490) - lu(k,441) * lu(k,486) + lu(k,491) = lu(k,491) - lu(k,442) * lu(k,486) + lu(k,492) = lu(k,492) - lu(k,443) * lu(k,486) + lu(k,493) = lu(k,493) - lu(k,444) * lu(k,486) + lu(k,494) = lu(k,494) - lu(k,445) * lu(k,486) + lu(k,508) = lu(k,508) - lu(k,438) * lu(k,507) + lu(k,509) = lu(k,509) - lu(k,439) * lu(k,507) + lu(k,510) = lu(k,510) - lu(k,440) * lu(k,507) + lu(k,511) = lu(k,511) - lu(k,441) * lu(k,507) + lu(k,512) = lu(k,512) - lu(k,442) * lu(k,507) + lu(k,513) = lu(k,513) - lu(k,443) * lu(k,507) + lu(k,514) = lu(k,514) - lu(k,444) * lu(k,507) + lu(k,515) = lu(k,515) - lu(k,445) * lu(k,507) + lu(k,539) = lu(k,539) - lu(k,438) * lu(k,538) + lu(k,540) = lu(k,540) - lu(k,439) * lu(k,538) + lu(k,541) = lu(k,541) - lu(k,440) * lu(k,538) + lu(k,542) = lu(k,542) - lu(k,441) * lu(k,538) + lu(k,543) = lu(k,543) - lu(k,442) * lu(k,538) + lu(k,544) = lu(k,544) - lu(k,443) * lu(k,538) + lu(k,545) = lu(k,545) - lu(k,444) * lu(k,538) + lu(k,546) = lu(k,546) - lu(k,445) * lu(k,538) + lu(k,558) = lu(k,558) - lu(k,438) * lu(k,557) + lu(k,559) = lu(k,559) - lu(k,439) * lu(k,557) + lu(k,560) = lu(k,560) - lu(k,440) * lu(k,557) + lu(k,561) = lu(k,561) - lu(k,441) * lu(k,557) + lu(k,562) = lu(k,562) - lu(k,442) * lu(k,557) + lu(k,563) = lu(k,563) - lu(k,443) * lu(k,557) + lu(k,564) = lu(k,564) - lu(k,444) * lu(k,557) + lu(k,565) = lu(k,565) - lu(k,445) * lu(k,557) + lu(k,583) = lu(k,583) - lu(k,438) * lu(k,582) + lu(k,584) = lu(k,584) - lu(k,439) * lu(k,582) + lu(k,585) = lu(k,585) - lu(k,440) * lu(k,582) + lu(k,586) = lu(k,586) - lu(k,441) * lu(k,582) + lu(k,587) = lu(k,587) - lu(k,442) * lu(k,582) + lu(k,588) = lu(k,588) - lu(k,443) * lu(k,582) + lu(k,589) = lu(k,589) - lu(k,444) * lu(k,582) + lu(k,590) = lu(k,590) - lu(k,445) * lu(k,582) + lu(k,601) = lu(k,601) - lu(k,438) * lu(k,600) + lu(k,602) = lu(k,602) - lu(k,439) * lu(k,600) + lu(k,603) = lu(k,603) - lu(k,440) * lu(k,600) + lu(k,604) = lu(k,604) - lu(k,441) * lu(k,600) + lu(k,605) = lu(k,605) - lu(k,442) * lu(k,600) + lu(k,606) = lu(k,606) - lu(k,443) * lu(k,600) + lu(k,607) = lu(k,607) - lu(k,444) * lu(k,600) + lu(k,608) = lu(k,608) - lu(k,445) * lu(k,600) + lu(k,640) = lu(k,640) - lu(k,438) * lu(k,639) + lu(k,641) = lu(k,641) - lu(k,439) * lu(k,639) + lu(k,642) = lu(k,642) - lu(k,440) * lu(k,639) + lu(k,643) = lu(k,643) - lu(k,441) * lu(k,639) + lu(k,644) = lu(k,644) - lu(k,442) * lu(k,639) + lu(k,645) = lu(k,645) - lu(k,443) * lu(k,639) + lu(k,646) = lu(k,646) - lu(k,444) * lu(k,639) + lu(k,647) = lu(k,647) - lu(k,445) * lu(k,639) end do end subroutine lu_fac08 subroutine lu_fac09( avec_len, lu ) @@ -2545,181 +2545,181 @@ subroutine lu_fac09( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - 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,483) = lu(k,483) - lu(k,464) * lu(k,482) - lu(k,484) = lu(k,484) - lu(k,465) * lu(k,482) - lu(k,485) = lu(k,485) - lu(k,466) * lu(k,482) - lu(k,486) = lu(k,486) - lu(k,467) * lu(k,482) - lu(k,487) = lu(k,487) - lu(k,468) * lu(k,482) - lu(k,488) = lu(k,488) - lu(k,469) * lu(k,482) - lu(k,489) = lu(k,489) - lu(k,470) * lu(k,482) - lu(k,508) = lu(k,508) - lu(k,464) * lu(k,507) - lu(k,509) = lu(k,509) - lu(k,465) * lu(k,507) - lu(k,510) = lu(k,510) - lu(k,466) * lu(k,507) - lu(k,511) = lu(k,511) - lu(k,467) * lu(k,507) - lu(k,512) = lu(k,512) - lu(k,468) * lu(k,507) - lu(k,513) = lu(k,513) - lu(k,469) * lu(k,507) - lu(k,514) = lu(k,514) - lu(k,470) * lu(k,507) - lu(k,539) = lu(k,539) - lu(k,464) * lu(k,538) - lu(k,540) = lu(k,540) - lu(k,465) * lu(k,538) - lu(k,541) = lu(k,541) - lu(k,466) * lu(k,538) - lu(k,542) = lu(k,542) - lu(k,467) * lu(k,538) - lu(k,543) = lu(k,543) - lu(k,468) * lu(k,538) - lu(k,544) = lu(k,544) - lu(k,469) * lu(k,538) - lu(k,545) = lu(k,545) - lu(k,470) * lu(k,538) - lu(k,564) = lu(k,564) - lu(k,464) * lu(k,563) - lu(k,565) = lu(k,565) - lu(k,465) * lu(k,563) - lu(k,566) = lu(k,566) - lu(k,466) * lu(k,563) - lu(k,567) = lu(k,567) - lu(k,467) * lu(k,563) - lu(k,568) = lu(k,568) - lu(k,468) * lu(k,563) - lu(k,569) = lu(k,569) - lu(k,469) * lu(k,563) - lu(k,570) = lu(k,570) - lu(k,470) * lu(k,563) - lu(k,603) = lu(k,603) - lu(k,464) * lu(k,602) - lu(k,604) = lu(k,604) - lu(k,465) * lu(k,602) - lu(k,605) = lu(k,605) - lu(k,466) * lu(k,602) - lu(k,606) = lu(k,606) - lu(k,467) * lu(k,602) - lu(k,607) = lu(k,607) - lu(k,468) * lu(k,602) - lu(k,608) = lu(k,608) - lu(k,469) * lu(k,602) - lu(k,609) = lu(k,609) - lu(k,470) * lu(k,602) - lu(k,623) = lu(k,623) - lu(k,464) * lu(k,622) - lu(k,624) = lu(k,624) - lu(k,465) * lu(k,622) - lu(k,625) = lu(k,625) - lu(k,466) * lu(k,622) - lu(k,626) = lu(k,626) - lu(k,467) * lu(k,622) - lu(k,627) = lu(k,627) - lu(k,468) * lu(k,622) - lu(k,628) = lu(k,628) - lu(k,469) * lu(k,622) - lu(k,629) = lu(k,629) - lu(k,470) * lu(k,622) - lu(k,641) = lu(k,641) - lu(k,464) * lu(k,640) - lu(k,642) = lu(k,642) - lu(k,465) * lu(k,640) - lu(k,643) = lu(k,643) - lu(k,466) * lu(k,640) - lu(k,644) = lu(k,644) - lu(k,467) * lu(k,640) - lu(k,645) = lu(k,645) - lu(k,468) * lu(k,640) - lu(k,646) = lu(k,646) - lu(k,469) * lu(k,640) - lu(k,647) = lu(k,647) - lu(k,470) * lu(k,640) - 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,489) = lu(k,489) * lu(k,483) - lu(k,509) = lu(k,509) - lu(k,484) * lu(k,508) - lu(k,510) = lu(k,510) - lu(k,485) * lu(k,508) - lu(k,511) = lu(k,511) - lu(k,486) * lu(k,508) - lu(k,512) = lu(k,512) - lu(k,487) * lu(k,508) - lu(k,513) = lu(k,513) - lu(k,488) * lu(k,508) - lu(k,514) = lu(k,514) - lu(k,489) * lu(k,508) - lu(k,540) = lu(k,540) - lu(k,484) * lu(k,539) - lu(k,541) = lu(k,541) - lu(k,485) * lu(k,539) - lu(k,542) = lu(k,542) - lu(k,486) * lu(k,539) - lu(k,543) = lu(k,543) - lu(k,487) * lu(k,539) - lu(k,544) = lu(k,544) - lu(k,488) * lu(k,539) - lu(k,545) = lu(k,545) - lu(k,489) * lu(k,539) - lu(k,565) = lu(k,565) - lu(k,484) * lu(k,564) - lu(k,566) = lu(k,566) - lu(k,485) * lu(k,564) - lu(k,567) = lu(k,567) - lu(k,486) * lu(k,564) - lu(k,568) = lu(k,568) - lu(k,487) * lu(k,564) - lu(k,569) = lu(k,569) - lu(k,488) * lu(k,564) - lu(k,570) = lu(k,570) - lu(k,489) * lu(k,564) - lu(k,604) = lu(k,604) - lu(k,484) * lu(k,603) - lu(k,605) = lu(k,605) - lu(k,485) * lu(k,603) - lu(k,606) = lu(k,606) - lu(k,486) * lu(k,603) - lu(k,607) = lu(k,607) - lu(k,487) * lu(k,603) - lu(k,608) = lu(k,608) - lu(k,488) * lu(k,603) - lu(k,609) = lu(k,609) - lu(k,489) * lu(k,603) - lu(k,624) = lu(k,624) - lu(k,484) * lu(k,623) - lu(k,625) = lu(k,625) - lu(k,485) * lu(k,623) - lu(k,626) = lu(k,626) - lu(k,486) * lu(k,623) - lu(k,627) = lu(k,627) - lu(k,487) * lu(k,623) - lu(k,628) = lu(k,628) - lu(k,488) * lu(k,623) - lu(k,629) = lu(k,629) - lu(k,489) * lu(k,623) - lu(k,642) = lu(k,642) - lu(k,484) * lu(k,641) - lu(k,643) = lu(k,643) - lu(k,485) * lu(k,641) - lu(k,644) = lu(k,644) - lu(k,486) * lu(k,641) - lu(k,645) = lu(k,645) - lu(k,487) * lu(k,641) - lu(k,646) = lu(k,646) - lu(k,488) * lu(k,641) - lu(k,647) = lu(k,647) - lu(k,489) * lu(k,641) - 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,514) = lu(k,514) * lu(k,509) - lu(k,541) = lu(k,541) - lu(k,510) * lu(k,540) - lu(k,542) = lu(k,542) - lu(k,511) * lu(k,540) - lu(k,543) = lu(k,543) - lu(k,512) * lu(k,540) - lu(k,544) = lu(k,544) - lu(k,513) * lu(k,540) - lu(k,545) = lu(k,545) - lu(k,514) * lu(k,540) - lu(k,566) = lu(k,566) - lu(k,510) * lu(k,565) - lu(k,567) = lu(k,567) - lu(k,511) * lu(k,565) - lu(k,568) = lu(k,568) - lu(k,512) * lu(k,565) - lu(k,569) = lu(k,569) - lu(k,513) * lu(k,565) - lu(k,570) = lu(k,570) - lu(k,514) * lu(k,565) - lu(k,605) = lu(k,605) - lu(k,510) * lu(k,604) - lu(k,606) = lu(k,606) - lu(k,511) * lu(k,604) - lu(k,607) = lu(k,607) - lu(k,512) * lu(k,604) - lu(k,608) = lu(k,608) - lu(k,513) * lu(k,604) - lu(k,609) = lu(k,609) - lu(k,514) * lu(k,604) - lu(k,625) = lu(k,625) - lu(k,510) * lu(k,624) - lu(k,626) = lu(k,626) - lu(k,511) * lu(k,624) - lu(k,627) = lu(k,627) - lu(k,512) * lu(k,624) - lu(k,628) = lu(k,628) - lu(k,513) * lu(k,624) - lu(k,629) = lu(k,629) - lu(k,514) * lu(k,624) - lu(k,643) = lu(k,643) - lu(k,510) * lu(k,642) - lu(k,644) = lu(k,644) - lu(k,511) * lu(k,642) - lu(k,645) = lu(k,645) - lu(k,512) * lu(k,642) - lu(k,646) = lu(k,646) - lu(k,513) * lu(k,642) - lu(k,647) = lu(k,647) - lu(k,514) * lu(k,642) - 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,567) = lu(k,567) - lu(k,542) * lu(k,566) - lu(k,568) = lu(k,568) - lu(k,543) * lu(k,566) - lu(k,569) = lu(k,569) - lu(k,544) * lu(k,566) - lu(k,570) = lu(k,570) - lu(k,545) * lu(k,566) - lu(k,606) = lu(k,606) - lu(k,542) * lu(k,605) - lu(k,607) = lu(k,607) - lu(k,543) * lu(k,605) - lu(k,608) = lu(k,608) - lu(k,544) * lu(k,605) - lu(k,609) = lu(k,609) - lu(k,545) * lu(k,605) - lu(k,626) = lu(k,626) - lu(k,542) * lu(k,625) - lu(k,627) = lu(k,627) - lu(k,543) * lu(k,625) - lu(k,628) = lu(k,628) - lu(k,544) * lu(k,625) - lu(k,629) = lu(k,629) - lu(k,545) * lu(k,625) - lu(k,644) = lu(k,644) - lu(k,542) * lu(k,643) - lu(k,645) = lu(k,645) - lu(k,543) * lu(k,643) - lu(k,646) = lu(k,646) - lu(k,544) * lu(k,643) - lu(k,647) = lu(k,647) - lu(k,545) * lu(k,643) - lu(k,567) = 1._r8 / lu(k,567) - lu(k,568) = lu(k,568) * lu(k,567) - lu(k,569) = lu(k,569) * lu(k,567) - lu(k,570) = lu(k,570) * lu(k,567) - lu(k,607) = lu(k,607) - lu(k,568) * lu(k,606) - lu(k,608) = lu(k,608) - lu(k,569) * lu(k,606) - lu(k,609) = lu(k,609) - lu(k,570) * lu(k,606) - lu(k,627) = lu(k,627) - lu(k,568) * lu(k,626) - lu(k,628) = lu(k,628) - lu(k,569) * lu(k,626) - lu(k,629) = lu(k,629) - lu(k,570) * lu(k,626) - lu(k,645) = lu(k,645) - lu(k,568) * lu(k,644) - lu(k,646) = lu(k,646) - lu(k,569) * lu(k,644) - lu(k,647) = lu(k,647) - lu(k,570) * lu(k,644) + lu(k,464) = 1._r8 / lu(k,464) + lu(k,465) = lu(k,465) * lu(k,464) + lu(k,466) = lu(k,466) * lu(k,464) + lu(k,467) = lu(k,467) * lu(k,464) + lu(k,468) = lu(k,468) * lu(k,464) + lu(k,469) = lu(k,469) * lu(k,464) + lu(k,470) = lu(k,470) * lu(k,464) + lu(k,471) = lu(k,471) * lu(k,464) + lu(k,488) = lu(k,488) - lu(k,465) * lu(k,487) + lu(k,489) = lu(k,489) - lu(k,466) * lu(k,487) + lu(k,490) = lu(k,490) - lu(k,467) * lu(k,487) + lu(k,491) = lu(k,491) - lu(k,468) * lu(k,487) + lu(k,492) = lu(k,492) - lu(k,469) * lu(k,487) + lu(k,493) = lu(k,493) - lu(k,470) * lu(k,487) + lu(k,494) = lu(k,494) - lu(k,471) * lu(k,487) + lu(k,509) = lu(k,509) - lu(k,465) * lu(k,508) + lu(k,510) = lu(k,510) - lu(k,466) * lu(k,508) + lu(k,511) = lu(k,511) - lu(k,467) * lu(k,508) + lu(k,512) = lu(k,512) - lu(k,468) * lu(k,508) + lu(k,513) = lu(k,513) - lu(k,469) * lu(k,508) + lu(k,514) = lu(k,514) - lu(k,470) * lu(k,508) + lu(k,515) = lu(k,515) - lu(k,471) * lu(k,508) + lu(k,540) = lu(k,540) - lu(k,465) * lu(k,539) + lu(k,541) = lu(k,541) - lu(k,466) * lu(k,539) + lu(k,542) = lu(k,542) - lu(k,467) * lu(k,539) + lu(k,543) = lu(k,543) - lu(k,468) * lu(k,539) + lu(k,544) = lu(k,544) - lu(k,469) * lu(k,539) + lu(k,545) = lu(k,545) - lu(k,470) * lu(k,539) + lu(k,546) = lu(k,546) - lu(k,471) * lu(k,539) + lu(k,559) = lu(k,559) - lu(k,465) * lu(k,558) + lu(k,560) = lu(k,560) - lu(k,466) * lu(k,558) + lu(k,561) = lu(k,561) - lu(k,467) * lu(k,558) + lu(k,562) = lu(k,562) - lu(k,468) * lu(k,558) + lu(k,563) = lu(k,563) - lu(k,469) * lu(k,558) + lu(k,564) = lu(k,564) - lu(k,470) * lu(k,558) + lu(k,565) = lu(k,565) - lu(k,471) * lu(k,558) + lu(k,584) = lu(k,584) - lu(k,465) * lu(k,583) + lu(k,585) = lu(k,585) - lu(k,466) * lu(k,583) + lu(k,586) = lu(k,586) - lu(k,467) * lu(k,583) + lu(k,587) = lu(k,587) - lu(k,468) * lu(k,583) + lu(k,588) = lu(k,588) - lu(k,469) * lu(k,583) + lu(k,589) = lu(k,589) - lu(k,470) * lu(k,583) + lu(k,590) = lu(k,590) - lu(k,471) * lu(k,583) + lu(k,602) = lu(k,602) - lu(k,465) * lu(k,601) + lu(k,603) = lu(k,603) - lu(k,466) * lu(k,601) + lu(k,604) = lu(k,604) - lu(k,467) * lu(k,601) + lu(k,605) = lu(k,605) - lu(k,468) * lu(k,601) + lu(k,606) = lu(k,606) - lu(k,469) * lu(k,601) + lu(k,607) = lu(k,607) - lu(k,470) * lu(k,601) + lu(k,608) = lu(k,608) - lu(k,471) * lu(k,601) + lu(k,641) = lu(k,641) - lu(k,465) * lu(k,640) + lu(k,642) = lu(k,642) - lu(k,466) * lu(k,640) + lu(k,643) = lu(k,643) - lu(k,467) * lu(k,640) + lu(k,644) = lu(k,644) - lu(k,468) * lu(k,640) + lu(k,645) = lu(k,645) - lu(k,469) * lu(k,640) + lu(k,646) = lu(k,646) - lu(k,470) * lu(k,640) + lu(k,647) = lu(k,647) - lu(k,471) * lu(k,640) + lu(k,488) = 1._r8 / lu(k,488) + lu(k,489) = lu(k,489) * lu(k,488) + lu(k,490) = lu(k,490) * lu(k,488) + lu(k,491) = lu(k,491) * lu(k,488) + lu(k,492) = lu(k,492) * lu(k,488) + lu(k,493) = lu(k,493) * lu(k,488) + lu(k,494) = lu(k,494) * lu(k,488) + lu(k,510) = lu(k,510) - lu(k,489) * lu(k,509) + lu(k,511) = lu(k,511) - lu(k,490) * lu(k,509) + lu(k,512) = lu(k,512) - lu(k,491) * lu(k,509) + lu(k,513) = lu(k,513) - lu(k,492) * lu(k,509) + lu(k,514) = lu(k,514) - lu(k,493) * lu(k,509) + lu(k,515) = lu(k,515) - lu(k,494) * lu(k,509) + lu(k,541) = lu(k,541) - lu(k,489) * lu(k,540) + lu(k,542) = lu(k,542) - lu(k,490) * lu(k,540) + lu(k,543) = lu(k,543) - lu(k,491) * lu(k,540) + lu(k,544) = lu(k,544) - lu(k,492) * lu(k,540) + lu(k,545) = lu(k,545) - lu(k,493) * lu(k,540) + lu(k,546) = lu(k,546) - lu(k,494) * lu(k,540) + lu(k,560) = lu(k,560) - lu(k,489) * lu(k,559) + lu(k,561) = lu(k,561) - lu(k,490) * lu(k,559) + lu(k,562) = lu(k,562) - lu(k,491) * lu(k,559) + lu(k,563) = lu(k,563) - lu(k,492) * lu(k,559) + lu(k,564) = lu(k,564) - lu(k,493) * lu(k,559) + lu(k,565) = lu(k,565) - lu(k,494) * lu(k,559) + lu(k,585) = lu(k,585) - lu(k,489) * lu(k,584) + lu(k,586) = lu(k,586) - lu(k,490) * lu(k,584) + lu(k,587) = lu(k,587) - lu(k,491) * lu(k,584) + lu(k,588) = lu(k,588) - lu(k,492) * lu(k,584) + lu(k,589) = lu(k,589) - lu(k,493) * lu(k,584) + lu(k,590) = lu(k,590) - lu(k,494) * lu(k,584) + lu(k,603) = lu(k,603) - lu(k,489) * lu(k,602) + lu(k,604) = lu(k,604) - lu(k,490) * lu(k,602) + lu(k,605) = lu(k,605) - lu(k,491) * lu(k,602) + lu(k,606) = lu(k,606) - lu(k,492) * lu(k,602) + lu(k,607) = lu(k,607) - lu(k,493) * lu(k,602) + lu(k,608) = lu(k,608) - lu(k,494) * lu(k,602) + lu(k,642) = lu(k,642) - lu(k,489) * lu(k,641) + lu(k,643) = lu(k,643) - lu(k,490) * lu(k,641) + lu(k,644) = lu(k,644) - lu(k,491) * lu(k,641) + lu(k,645) = lu(k,645) - lu(k,492) * lu(k,641) + lu(k,646) = lu(k,646) - lu(k,493) * lu(k,641) + lu(k,647) = lu(k,647) - lu(k,494) * lu(k,641) + 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) + lu(k,513) = lu(k,513) * lu(k,510) + lu(k,514) = lu(k,514) * lu(k,510) + lu(k,515) = lu(k,515) * lu(k,510) + lu(k,542) = lu(k,542) - lu(k,511) * lu(k,541) + lu(k,543) = lu(k,543) - lu(k,512) * lu(k,541) + lu(k,544) = lu(k,544) - lu(k,513) * lu(k,541) + lu(k,545) = lu(k,545) - lu(k,514) * lu(k,541) + lu(k,546) = lu(k,546) - lu(k,515) * lu(k,541) + lu(k,561) = lu(k,561) - lu(k,511) * lu(k,560) + lu(k,562) = lu(k,562) - lu(k,512) * lu(k,560) + lu(k,563) = lu(k,563) - lu(k,513) * lu(k,560) + lu(k,564) = lu(k,564) - lu(k,514) * lu(k,560) + lu(k,565) = lu(k,565) - lu(k,515) * lu(k,560) + lu(k,586) = lu(k,586) - lu(k,511) * lu(k,585) + lu(k,587) = lu(k,587) - lu(k,512) * lu(k,585) + lu(k,588) = lu(k,588) - lu(k,513) * lu(k,585) + lu(k,589) = lu(k,589) - lu(k,514) * lu(k,585) + lu(k,590) = lu(k,590) - lu(k,515) * lu(k,585) + lu(k,604) = lu(k,604) - lu(k,511) * lu(k,603) + lu(k,605) = lu(k,605) - lu(k,512) * lu(k,603) + lu(k,606) = lu(k,606) - lu(k,513) * lu(k,603) + lu(k,607) = lu(k,607) - lu(k,514) * lu(k,603) + lu(k,608) = lu(k,608) - lu(k,515) * lu(k,603) + lu(k,643) = lu(k,643) - lu(k,511) * lu(k,642) + lu(k,644) = lu(k,644) - lu(k,512) * lu(k,642) + lu(k,645) = lu(k,645) - lu(k,513) * lu(k,642) + lu(k,646) = lu(k,646) - lu(k,514) * lu(k,642) + lu(k,647) = lu(k,647) - lu(k,515) * lu(k,642) + 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,562) = lu(k,562) - lu(k,543) * lu(k,561) + lu(k,563) = lu(k,563) - lu(k,544) * lu(k,561) + lu(k,564) = lu(k,564) - lu(k,545) * lu(k,561) + lu(k,565) = lu(k,565) - lu(k,546) * lu(k,561) + lu(k,587) = lu(k,587) - lu(k,543) * lu(k,586) + lu(k,588) = lu(k,588) - lu(k,544) * lu(k,586) + lu(k,589) = lu(k,589) - lu(k,545) * lu(k,586) + lu(k,590) = lu(k,590) - lu(k,546) * lu(k,586) + lu(k,605) = lu(k,605) - lu(k,543) * lu(k,604) + lu(k,606) = lu(k,606) - lu(k,544) * lu(k,604) + lu(k,607) = lu(k,607) - lu(k,545) * lu(k,604) + lu(k,608) = lu(k,608) - lu(k,546) * lu(k,604) + lu(k,644) = lu(k,644) - lu(k,543) * lu(k,643) + lu(k,645) = lu(k,645) - lu(k,544) * lu(k,643) + lu(k,646) = lu(k,646) - lu(k,545) * lu(k,643) + lu(k,647) = lu(k,647) - lu(k,546) * lu(k,643) + lu(k,562) = 1._r8 / lu(k,562) + lu(k,563) = lu(k,563) * lu(k,562) + lu(k,564) = lu(k,564) * lu(k,562) + lu(k,565) = lu(k,565) * lu(k,562) + lu(k,588) = lu(k,588) - lu(k,563) * lu(k,587) + lu(k,589) = lu(k,589) - lu(k,564) * lu(k,587) + lu(k,590) = lu(k,590) - lu(k,565) * lu(k,587) + lu(k,606) = lu(k,606) - lu(k,563) * lu(k,605) + lu(k,607) = lu(k,607) - lu(k,564) * lu(k,605) + lu(k,608) = lu(k,608) - lu(k,565) * lu(k,605) + lu(k,645) = lu(k,645) - lu(k,563) * lu(k,644) + lu(k,646) = lu(k,646) - lu(k,564) * lu(k,644) + lu(k,647) = lu(k,647) - lu(k,565) * lu(k,644) + 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,607) = lu(k,607) - lu(k,589) * lu(k,606) + lu(k,608) = lu(k,608) - lu(k,590) * lu(k,606) + lu(k,646) = lu(k,646) - lu(k,589) * lu(k,645) + lu(k,647) = lu(k,647) - lu(k,590) * lu(k,645) lu(k,607) = 1._r8 / lu(k,607) lu(k,608) = lu(k,608) * lu(k,607) - lu(k,609) = lu(k,609) * lu(k,607) - lu(k,628) = lu(k,628) - lu(k,608) * lu(k,627) - lu(k,629) = lu(k,629) - lu(k,609) * lu(k,627) - lu(k,646) = lu(k,646) - lu(k,608) * lu(k,645) - lu(k,647) = lu(k,647) - lu(k,609) * lu(k,645) - lu(k,628) = 1._r8 / lu(k,628) - lu(k,629) = lu(k,629) * lu(k,628) - lu(k,647) = lu(k,647) - lu(k,629) * lu(k,646) + lu(k,647) = lu(k,647) - lu(k,608) * lu(k,646) lu(k,647) = 1._r8 / lu(k,647) end do end subroutine lu_fac09 diff --git a/src/chemistry/pp_waccm_ma/mo_lu_solve.F90 b/src/chemistry/pp_waccm_ma/mo_lu_solve.F90 index 9122181a69..8eb1800255 100644 --- a/src/chemistry/pp_waccm_ma/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_ma/mo_lu_solve.F90 @@ -21,65 +21,65 @@ subroutine lu_slv01( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,40) = b(k,40) - lu(k,2) * b(k,1) - b(k,41) = b(k,41) - lu(k,3) * b(k,1) + b(k,43) = b(k,43) - lu(k,2) * b(k,1) + b(k,48) = b(k,48) - lu(k,3) * b(k,1) b(k,21) = b(k,21) - lu(k,5) * b(k,2) b(k,42) = b(k,42) - lu(k,6) * b(k,2) - b(k,41) = b(k,41) - lu(k,8) * b(k,3) - b(k,48) = b(k,48) - lu(k,9) * b(k,3) + b(k,43) = b(k,43) - lu(k,8) * b(k,3) + b(k,50) = b(k,50) - lu(k,9) * b(k,3) b(k,32) = b(k,32) - lu(k,11) * b(k,4) b(k,32) = b(k,32) - lu(k,14) * b(k,5) - b(k,40) = b(k,40) - lu(k,16) * b(k,6) + b(k,48) = b(k,48) - lu(k,16) * b(k,6) b(k,21) = b(k,21) - lu(k,18) * b(k,7) - b(k,40) = b(k,40) - lu(k,19) * b(k,7) - b(k,42) = b(k,42) - lu(k,20) * b(k,7) - b(k,40) = b(k,40) - lu(k,22) * b(k,8) - b(k,43) = b(k,43) - lu(k,23) * b(k,8) + b(k,42) = b(k,42) - lu(k,19) * b(k,7) + b(k,48) = b(k,48) - lu(k,20) * b(k,7) + b(k,38) = b(k,38) - lu(k,22) * b(k,8) + b(k,48) = b(k,48) - lu(k,23) * b(k,8) b(k,21) = b(k,21) - lu(k,25) * b(k,9) b(k,36) = b(k,36) - lu(k,26) * b(k,9) b(k,31) = b(k,31) - lu(k,28) * b(k,10) - b(k,37) = b(k,37) - lu(k,29) * b(k,10) - b(k,38) = b(k,38) - lu(k,30) * b(k,10) + b(k,40) = b(k,40) - lu(k,29) * b(k,10) + b(k,41) = b(k,41) - lu(k,30) * b(k,10) b(k,45) = b(k,45) - lu(k,31) * b(k,10) - b(k,48) = b(k,48) - lu(k,32) * b(k,10) + b(k,50) = b(k,50) - lu(k,32) * b(k,10) b(k,33) = b(k,33) - lu(k,34) * b(k,11) b(k,35) = b(k,35) - lu(k,35) * b(k,11) b(k,36) = b(k,36) - lu(k,36) * b(k,11) - b(k,44) = b(k,44) - lu(k,37) * b(k,11) - b(k,46) = b(k,46) - lu(k,38) * b(k,11) + b(k,46) = b(k,46) - lu(k,37) * b(k,11) + b(k,47) = b(k,47) - lu(k,38) * b(k,11) b(k,32) = b(k,32) - lu(k,40) * b(k,12) b(k,33) = b(k,33) - lu(k,41) * b(k,12) b(k,37) = b(k,37) - lu(k,42) * b(k,12) - b(k,45) = b(k,45) - lu(k,43) * b(k,12) - b(k,46) = b(k,46) - lu(k,44) * b(k,12) - b(k,47) = b(k,47) - lu(k,45) * b(k,12) + b(k,41) = b(k,41) - lu(k,43) * b(k,12) + b(k,45) = b(k,45) - lu(k,44) * b(k,12) + b(k,46) = b(k,46) - lu(k,45) * b(k,12) b(k,14) = b(k,14) - lu(k,47) * b(k,13) b(k,18) = b(k,18) - lu(k,48) * b(k,13) b(k,24) = b(k,24) - lu(k,49) * b(k,13) b(k,25) = b(k,25) - lu(k,50) * b(k,13) - b(k,38) = b(k,38) - lu(k,51) * b(k,13) - b(k,48) = b(k,48) - lu(k,52) * b(k,13) + b(k,40) = b(k,40) - lu(k,51) * b(k,13) + b(k,50) = b(k,50) - lu(k,52) * b(k,13) b(k,18) = b(k,18) - lu(k,54) * b(k,14) b(k,25) = b(k,25) - lu(k,55) * b(k,14) b(k,26) = b(k,26) - lu(k,56) * b(k,14) b(k,32) = b(k,32) - lu(k,57) * b(k,14) - b(k,48) = b(k,48) - lu(k,58) * b(k,14) + b(k,50) = b(k,50) - lu(k,58) * b(k,14) b(k,20) = b(k,20) - lu(k,60) * b(k,15) b(k,31) = b(k,31) - lu(k,61) * b(k,15) - b(k,37) = b(k,37) - lu(k,62) * b(k,15) - b(k,39) = b(k,39) - lu(k,63) * b(k,15) - b(k,43) = b(k,43) - lu(k,64) * b(k,15) + b(k,38) = b(k,38) - lu(k,62) * b(k,15) + b(k,41) = b(k,41) - lu(k,63) * b(k,15) + b(k,44) = b(k,44) - lu(k,64) * b(k,15) b(k,45) = b(k,45) - lu(k,65) * b(k,15) - b(k,48) = b(k,48) - lu(k,66) * b(k,15) + b(k,50) = b(k,50) - lu(k,66) * b(k,15) b(k,36) = b(k,36) - lu(k,68) * b(k,16) - b(k,46) = b(k,46) - lu(k,69) * b(k,16) - b(k,47) = b(k,47) - lu(k,70) * b(k,16) + b(k,37) = b(k,37) - lu(k,69) * b(k,16) + b(k,46) = b(k,46) - lu(k,70) * b(k,16) b(k,33) = b(k,33) - lu(k,72) * b(k,17) b(k,34) = b(k,34) - lu(k,73) * b(k,17) - b(k,40) = b(k,40) - lu(k,74) * b(k,17) + b(k,37) = b(k,37) - lu(k,74) * b(k,17) b(k,46) = b(k,46) - lu(k,75) * b(k,17) - b(k,47) = b(k,47) - lu(k,76) * b(k,17) - b(k,48) = b(k,48) - lu(k,77) * b(k,17) + b(k,48) = b(k,48) - lu(k,76) * b(k,17) + b(k,50) = b(k,50) - lu(k,77) * b(k,17) b(k,19) = b(k,19) - lu(k,79) * b(k,18) b(k,25) = b(k,25) - lu(k,80) * b(k,18) b(k,26) = b(k,26) - lu(k,81) * b(k,18) @@ -87,134 +87,134 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,28) = b(k,28) - lu(k,83) * b(k,18) b(k,29) = b(k,29) - lu(k,84) * b(k,18) b(k,32) = b(k,32) - lu(k,85) * b(k,18) - b(k,48) = b(k,48) - lu(k,86) * b(k,18) + b(k,50) = b(k,50) - lu(k,86) * b(k,18) b(k,27) = b(k,27) - lu(k,88) * b(k,19) b(k,28) = b(k,28) - lu(k,89) * b(k,19) b(k,29) = b(k,29) - lu(k,90) * b(k,19) - b(k,48) = b(k,48) - lu(k,91) * b(k,19) + b(k,50) = b(k,50) - lu(k,91) * b(k,19) b(k,33) = b(k,33) - lu(k,94) * b(k,20) b(k,34) = b(k,34) - lu(k,95) * b(k,20) - b(k,39) = b(k,39) - lu(k,96) * b(k,20) - b(k,40) = b(k,40) - lu(k,97) * b(k,20) - b(k,43) = b(k,43) - lu(k,98) * b(k,20) - b(k,46) = b(k,46) - lu(k,99) * b(k,20) - b(k,48) = b(k,48) - lu(k,100) * b(k,20) + b(k,38) = b(k,38) - lu(k,96) * b(k,20) + b(k,44) = b(k,44) - lu(k,97) * b(k,20) + b(k,46) = b(k,46) - lu(k,98) * b(k,20) + b(k,48) = b(k,48) - lu(k,99) * b(k,20) + b(k,50) = b(k,50) - lu(k,100) * b(k,20) b(k,31) = b(k,31) - lu(k,103) * b(k,21) b(k,33) = b(k,33) - lu(k,104) * b(k,21) b(k,36) = b(k,36) - lu(k,105) * b(k,21) - b(k,37) = b(k,37) - lu(k,106) * b(k,21) - b(k,44) = b(k,44) - lu(k,107) * b(k,21) + b(k,39) = b(k,39) - lu(k,106) * b(k,21) + b(k,45) = b(k,45) - lu(k,107) * b(k,21) b(k,46) = b(k,46) - lu(k,108) * b(k,21) - b(k,49) = b(k,49) - lu(k,109) * b(k,21) - b(k,33) = b(k,33) - lu(k,112) * b(k,22) - b(k,34) = b(k,34) - lu(k,113) * b(k,22) - b(k,40) = b(k,40) - lu(k,114) * b(k,22) - b(k,41) = b(k,41) - lu(k,115) * b(k,22) + b(k,47) = b(k,47) - lu(k,109) * b(k,21) + b(k,33) = b(k,33) - lu(k,111) * b(k,22) + b(k,36) = b(k,36) - lu(k,112) * b(k,22) + b(k,38) = b(k,38) - lu(k,113) * b(k,22) + b(k,42) = b(k,42) - lu(k,114) * b(k,22) + b(k,44) = b(k,44) - lu(k,115) * b(k,22) b(k,46) = b(k,46) - lu(k,116) * b(k,22) - b(k,48) = b(k,48) - lu(k,117) * b(k,22) - b(k,33) = b(k,33) - lu(k,119) * b(k,23) - b(k,36) = b(k,36) - lu(k,120) * b(k,23) - b(k,39) = b(k,39) - lu(k,121) * b(k,23) - b(k,42) = b(k,42) - lu(k,122) * b(k,23) - b(k,43) = b(k,43) - lu(k,123) * b(k,23) - b(k,46) = b(k,46) - lu(k,124) * b(k,23) - b(k,48) = b(k,48) - lu(k,125) * b(k,23) + b(k,50) = b(k,50) - lu(k,117) * b(k,22) + b(k,33) = b(k,33) - lu(k,120) * b(k,23) + b(k,34) = b(k,34) - lu(k,121) * b(k,23) + b(k,43) = b(k,43) - lu(k,122) * b(k,23) + b(k,46) = b(k,46) - lu(k,123) * b(k,23) + b(k,48) = b(k,48) - lu(k,124) * b(k,23) + b(k,50) = b(k,50) - lu(k,125) * b(k,23) b(k,25) = b(k,25) - lu(k,128) * b(k,24) b(k,26) = b(k,26) - lu(k,129) * b(k,24) b(k,27) = b(k,27) - lu(k,130) * b(k,24) b(k,28) = b(k,28) - lu(k,131) * b(k,24) b(k,29) = b(k,29) - lu(k,132) * b(k,24) b(k,32) = b(k,32) - lu(k,133) * b(k,24) - b(k,48) = b(k,48) - lu(k,134) * b(k,24) + b(k,50) = b(k,50) - lu(k,134) * b(k,24) b(k,26) = b(k,26) - lu(k,139) * b(k,25) b(k,27) = b(k,27) - lu(k,140) * b(k,25) b(k,28) = b(k,28) - lu(k,141) * b(k,25) b(k,29) = b(k,29) - lu(k,142) * b(k,25) b(k,32) = b(k,32) - lu(k,143) * b(k,25) b(k,36) = b(k,36) - lu(k,144) * b(k,25) - b(k,46) = b(k,46) - lu(k,145) * b(k,25) - b(k,47) = b(k,47) - lu(k,146) * b(k,25) - b(k,48) = b(k,48) - lu(k,147) * b(k,25) + b(k,37) = b(k,37) - lu(k,145) * b(k,25) + b(k,46) = b(k,46) - lu(k,146) * b(k,25) + b(k,50) = b(k,50) - lu(k,147) * b(k,25) b(k,27) = b(k,27) - lu(k,150) * b(k,26) b(k,28) = b(k,28) - lu(k,151) * b(k,26) b(k,29) = b(k,29) - lu(k,152) * b(k,26) b(k,32) = b(k,32) - lu(k,153) * b(k,26) - b(k,38) = b(k,38) - lu(k,154) * b(k,26) + b(k,40) = b(k,40) - lu(k,154) * b(k,26) b(k,42) = b(k,42) - lu(k,155) * b(k,26) - b(k,48) = b(k,48) - lu(k,156) * b(k,26) + b(k,50) = b(k,50) - lu(k,156) * b(k,26) b(k,28) = b(k,28) - lu(k,165) * b(k,27) b(k,29) = b(k,29) - lu(k,166) * b(k,27) b(k,32) = b(k,32) - lu(k,167) * b(k,27) b(k,36) = b(k,36) - lu(k,168) * b(k,27) - b(k,38) = b(k,38) - lu(k,169) * b(k,27) - b(k,42) = b(k,42) - lu(k,170) * b(k,27) - b(k,46) = b(k,46) - lu(k,171) * b(k,27) - b(k,47) = b(k,47) - lu(k,172) * b(k,27) - b(k,48) = b(k,48) - lu(k,173) * b(k,27) + b(k,37) = b(k,37) - lu(k,169) * b(k,27) + b(k,40) = b(k,40) - lu(k,170) * b(k,27) + b(k,42) = b(k,42) - lu(k,171) * b(k,27) + b(k,46) = b(k,46) - lu(k,172) * b(k,27) + b(k,50) = b(k,50) - lu(k,173) * b(k,27) b(k,29) = b(k,29) - lu(k,179) * b(k,28) b(k,32) = b(k,32) - lu(k,180) * b(k,28) b(k,36) = b(k,36) - lu(k,181) * b(k,28) - b(k,38) = b(k,38) - lu(k,182) * b(k,28) - b(k,42) = b(k,42) - lu(k,183) * b(k,28) - b(k,46) = b(k,46) - lu(k,184) * b(k,28) - b(k,47) = b(k,47) - lu(k,185) * b(k,28) - b(k,48) = b(k,48) - lu(k,186) * b(k,28) + b(k,37) = b(k,37) - lu(k,182) * b(k,28) + b(k,40) = b(k,40) - lu(k,183) * b(k,28) + b(k,42) = b(k,42) - lu(k,184) * b(k,28) + b(k,46) = b(k,46) - lu(k,185) * b(k,28) + b(k,50) = b(k,50) - lu(k,186) * b(k,28) b(k,32) = b(k,32) - lu(k,194) * b(k,29) b(k,36) = b(k,36) - lu(k,195) * b(k,29) - b(k,38) = b(k,38) - lu(k,196) * b(k,29) - b(k,42) = b(k,42) - lu(k,197) * b(k,29) - b(k,45) = b(k,45) - lu(k,198) * b(k,29) - b(k,46) = b(k,46) - lu(k,199) * b(k,29) - b(k,47) = b(k,47) - lu(k,200) * b(k,29) - b(k,48) = b(k,48) - lu(k,201) * b(k,29) + b(k,37) = b(k,37) - lu(k,196) * b(k,29) + b(k,40) = b(k,40) - lu(k,197) * b(k,29) + b(k,41) = b(k,41) - lu(k,198) * b(k,29) + b(k,42) = b(k,42) - lu(k,199) * b(k,29) + b(k,46) = b(k,46) - lu(k,200) * b(k,29) + b(k,50) = b(k,50) - lu(k,201) * b(k,29) b(k,31) = b(k,31) - lu(k,205) * b(k,30) b(k,33) = b(k,33) - lu(k,206) * b(k,30) b(k,34) = b(k,34) - lu(k,207) * b(k,30) - b(k,37) = b(k,37) - lu(k,208) * b(k,30) - b(k,40) = b(k,40) - lu(k,209) * b(k,30) - b(k,41) = b(k,41) - lu(k,210) * b(k,30) - b(k,45) = b(k,45) - lu(k,211) * b(k,30) - b(k,46) = b(k,46) - lu(k,212) * b(k,30) - b(k,48) = b(k,48) - lu(k,213) * b(k,30) + b(k,41) = b(k,41) - lu(k,208) * b(k,30) + b(k,43) = b(k,43) - lu(k,209) * b(k,30) + b(k,45) = b(k,45) - lu(k,210) * b(k,30) + b(k,46) = b(k,46) - lu(k,211) * b(k,30) + b(k,48) = b(k,48) - lu(k,212) * b(k,30) + b(k,50) = b(k,50) - lu(k,213) * b(k,30) b(k,33) = b(k,33) - lu(k,217) * b(k,31) b(k,36) = b(k,36) - lu(k,218) * b(k,31) - b(k,37) = b(k,37) - lu(k,219) * b(k,31) - b(k,44) = b(k,44) - lu(k,220) * b(k,31) + b(k,39) = b(k,39) - lu(k,219) * b(k,31) + b(k,41) = b(k,41) - lu(k,220) * b(k,31) b(k,45) = b(k,45) - lu(k,221) * b(k,31) b(k,46) = b(k,46) - lu(k,222) * b(k,31) - b(k,49) = b(k,49) - lu(k,223) * b(k,31) + b(k,47) = b(k,47) - lu(k,223) * b(k,31) b(k,36) = b(k,36) - lu(k,237) * b(k,32) - b(k,38) = b(k,38) - lu(k,238) * b(k,32) - b(k,42) = b(k,42) - lu(k,239) * b(k,32) - b(k,45) = b(k,45) - lu(k,240) * b(k,32) - b(k,46) = b(k,46) - lu(k,241) * b(k,32) - b(k,47) = b(k,47) - lu(k,242) * b(k,32) - b(k,48) = b(k,48) - lu(k,243) * b(k,32) + b(k,37) = b(k,37) - lu(k,238) * b(k,32) + b(k,40) = b(k,40) - lu(k,239) * b(k,32) + b(k,41) = b(k,41) - lu(k,240) * b(k,32) + b(k,42) = b(k,42) - lu(k,241) * b(k,32) + b(k,46) = b(k,46) - lu(k,242) * b(k,32) + b(k,49) = b(k,49) - lu(k,243) * b(k,32) b(k,50) = b(k,50) - lu(k,244) * b(k,32) b(k,36) = b(k,36) - lu(k,249) * b(k,33) - b(k,37) = b(k,37) - lu(k,250) * b(k,33) - b(k,42) = b(k,42) - lu(k,251) * b(k,33) - b(k,44) = b(k,44) - lu(k,252) * b(k,33) + b(k,39) = b(k,39) - lu(k,250) * b(k,33) + b(k,41) = b(k,41) - lu(k,251) * b(k,33) + b(k,42) = b(k,42) - lu(k,252) * b(k,33) b(k,45) = b(k,45) - lu(k,253) * b(k,33) b(k,46) = b(k,46) - lu(k,254) * b(k,33) - b(k,48) = b(k,48) - lu(k,255) * b(k,33) - b(k,49) = b(k,49) - lu(k,256) * b(k,33) + b(k,47) = b(k,47) - lu(k,255) * b(k,33) + b(k,50) = b(k,50) - lu(k,256) * b(k,33) b(k,36) = b(k,36) - lu(k,265) * b(k,34) - b(k,37) = b(k,37) - lu(k,266) * b(k,34) + b(k,38) = b(k,38) - lu(k,266) * b(k,34) b(k,39) = b(k,39) - lu(k,267) * b(k,34) - b(k,40) = b(k,40) - lu(k,268) * b(k,34) - b(k,41) = b(k,41) - lu(k,269) * b(k,34) - b(k,42) = b(k,42) - lu(k,270) * b(k,34) - b(k,43) = b(k,43) - lu(k,271) * b(k,34) - b(k,44) = b(k,44) - lu(k,272) * b(k,34) - b(k,45) = b(k,45) - lu(k,273) * b(k,34) - b(k,46) = b(k,46) - lu(k,274) * b(k,34) + b(k,41) = b(k,41) - lu(k,268) * b(k,34) + b(k,42) = b(k,42) - lu(k,269) * b(k,34) + b(k,43) = b(k,43) - lu(k,270) * b(k,34) + b(k,44) = b(k,44) - lu(k,271) * b(k,34) + b(k,45) = b(k,45) - lu(k,272) * b(k,34) + b(k,46) = b(k,46) - lu(k,273) * b(k,34) + b(k,47) = b(k,47) - lu(k,274) * b(k,34) b(k,48) = b(k,48) - lu(k,275) * b(k,34) - b(k,49) = b(k,49) - lu(k,276) * b(k,34) + b(k,50) = b(k,50) - lu(k,276) * b(k,34) b(k,36) = b(k,36) - lu(k,283) * b(k,35) b(k,37) = b(k,37) - lu(k,284) * b(k,35) - b(k,39) = b(k,39) - lu(k,285) * b(k,35) - b(k,40) = b(k,40) - lu(k,286) * b(k,35) + b(k,38) = b(k,38) - lu(k,285) * b(k,35) + b(k,39) = b(k,39) - lu(k,286) * b(k,35) b(k,41) = b(k,41) - lu(k,287) * b(k,35) b(k,42) = b(k,42) - lu(k,288) * b(k,35) b(k,43) = b(k,43) - lu(k,289) * b(k,35) @@ -223,7 +223,7 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,46) = b(k,46) - lu(k,292) * b(k,35) b(k,47) = b(k,47) - lu(k,293) * b(k,35) b(k,48) = b(k,48) - lu(k,294) * b(k,35) - b(k,49) = b(k,49) - lu(k,295) * b(k,35) + b(k,50) = b(k,50) - lu(k,295) * b(k,35) end do end subroutine lu_slv01 subroutine lu_slv02( avec_len, lu, b ) @@ -245,106 +245,106 @@ subroutine lu_slv02( avec_len, lu, b ) !----------------------------------------------------------------------- do k = 1,avec_len b(k,37) = b(k,37) - lu(k,299) * b(k,36) - b(k,38) = b(k,38) - lu(k,300) * b(k,36) - b(k,42) = b(k,42) - lu(k,301) * b(k,36) - b(k,44) = b(k,44) - lu(k,302) * b(k,36) - b(k,45) = b(k,45) - lu(k,303) * b(k,36) - b(k,46) = b(k,46) - lu(k,304) * b(k,36) - b(k,47) = b(k,47) - lu(k,305) * b(k,36) - b(k,48) = b(k,48) - lu(k,306) * b(k,36) + b(k,39) = b(k,39) - lu(k,300) * b(k,36) + b(k,40) = b(k,40) - lu(k,301) * b(k,36) + b(k,41) = b(k,41) - lu(k,302) * b(k,36) + b(k,42) = b(k,42) - lu(k,303) * b(k,36) + b(k,45) = b(k,45) - lu(k,304) * b(k,36) + b(k,46) = b(k,46) - lu(k,305) * b(k,36) + b(k,47) = b(k,47) - lu(k,306) * b(k,36) b(k,49) = b(k,49) - lu(k,307) * b(k,36) b(k,50) = b(k,50) - lu(k,308) * b(k,36) - b(k,38) = b(k,38) - lu(k,317) * b(k,37) - b(k,39) = b(k,39) - lu(k,318) * b(k,37) - b(k,40) = b(k,40) - lu(k,319) * b(k,37) - b(k,41) = b(k,41) - lu(k,320) * b(k,37) - b(k,42) = b(k,42) - lu(k,321) * b(k,37) - b(k,43) = b(k,43) - lu(k,322) * b(k,37) - b(k,44) = b(k,44) - lu(k,323) * b(k,37) - b(k,45) = b(k,45) - lu(k,324) * b(k,37) - b(k,46) = b(k,46) - lu(k,325) * b(k,37) - b(k,47) = b(k,47) - lu(k,326) * b(k,37) - b(k,48) = b(k,48) - lu(k,327) * b(k,37) - b(k,49) = b(k,49) - lu(k,328) * b(k,37) - b(k,50) = b(k,50) - lu(k,329) * b(k,37) - b(k,39) = b(k,39) - lu(k,340) * b(k,38) - b(k,40) = b(k,40) - lu(k,341) * b(k,38) - b(k,41) = b(k,41) - lu(k,342) * b(k,38) - b(k,42) = b(k,42) - lu(k,343) * b(k,38) - b(k,43) = b(k,43) - lu(k,344) * b(k,38) - b(k,44) = b(k,44) - lu(k,345) * b(k,38) - b(k,45) = b(k,45) - lu(k,346) * b(k,38) - b(k,46) = b(k,46) - lu(k,347) * b(k,38) - b(k,47) = b(k,47) - lu(k,348) * b(k,38) - b(k,48) = b(k,48) - lu(k,349) * b(k,38) - b(k,49) = b(k,49) - lu(k,350) * b(k,38) - b(k,50) = b(k,50) - lu(k,351) * b(k,38) - b(k,40) = b(k,40) - lu(k,364) * b(k,39) - b(k,41) = b(k,41) - lu(k,365) * b(k,39) - b(k,42) = b(k,42) - lu(k,366) * b(k,39) - b(k,43) = b(k,43) - lu(k,367) * b(k,39) - b(k,44) = b(k,44) - lu(k,368) * b(k,39) - b(k,45) = b(k,45) - lu(k,369) * b(k,39) - b(k,46) = b(k,46) - lu(k,370) * b(k,39) - b(k,47) = b(k,47) - lu(k,371) * b(k,39) - b(k,48) = b(k,48) - lu(k,372) * b(k,39) - b(k,49) = b(k,49) - lu(k,373) * b(k,39) - b(k,50) = b(k,50) - lu(k,374) * b(k,39) - b(k,41) = b(k,41) - lu(k,390) * b(k,40) - b(k,42) = b(k,42) - lu(k,391) * b(k,40) - b(k,43) = b(k,43) - lu(k,392) * b(k,40) - b(k,44) = b(k,44) - lu(k,393) * b(k,40) - b(k,45) = b(k,45) - lu(k,394) * b(k,40) - b(k,46) = b(k,46) - lu(k,395) * b(k,40) - b(k,47) = b(k,47) - lu(k,396) * b(k,40) - b(k,48) = b(k,48) - lu(k,397) * b(k,40) - b(k,49) = b(k,49) - lu(k,398) * b(k,40) - b(k,50) = b(k,50) - lu(k,399) * b(k,40) - b(k,42) = b(k,42) - lu(k,417) * b(k,41) - b(k,43) = b(k,43) - lu(k,418) * b(k,41) - b(k,44) = b(k,44) - lu(k,419) * b(k,41) - b(k,45) = b(k,45) - lu(k,420) * b(k,41) - b(k,46) = b(k,46) - lu(k,421) * b(k,41) - b(k,47) = b(k,47) - lu(k,422) * b(k,41) - b(k,48) = b(k,48) - lu(k,423) * b(k,41) - b(k,49) = b(k,49) - lu(k,424) * b(k,41) - b(k,50) = b(k,50) - lu(k,425) * b(k,41) - b(k,43) = b(k,43) - lu(k,443) * b(k,42) - b(k,44) = b(k,44) - lu(k,444) * b(k,42) - b(k,45) = b(k,45) - lu(k,445) * b(k,42) - b(k,46) = b(k,46) - lu(k,446) * b(k,42) - b(k,47) = b(k,47) - lu(k,447) * b(k,42) - b(k,48) = b(k,48) - lu(k,448) * b(k,42) - b(k,49) = b(k,49) - lu(k,449) * b(k,42) - b(k,50) = b(k,50) - lu(k,450) * b(k,42) - b(k,44) = b(k,44) - lu(k,464) * b(k,43) - b(k,45) = b(k,45) - lu(k,465) * b(k,43) - b(k,46) = b(k,46) - lu(k,466) * b(k,43) - b(k,47) = b(k,47) - lu(k,467) * b(k,43) - b(k,48) = b(k,48) - lu(k,468) * b(k,43) - b(k,49) = b(k,49) - lu(k,469) * b(k,43) - b(k,50) = b(k,50) - lu(k,470) * b(k,43) - b(k,45) = b(k,45) - lu(k,484) * b(k,44) - b(k,46) = b(k,46) - lu(k,485) * b(k,44) - b(k,47) = b(k,47) - lu(k,486) * b(k,44) - b(k,48) = b(k,48) - lu(k,487) * b(k,44) - b(k,49) = b(k,49) - lu(k,488) * b(k,44) - b(k,50) = b(k,50) - lu(k,489) * b(k,44) - b(k,46) = b(k,46) - lu(k,510) * b(k,45) - b(k,47) = b(k,47) - lu(k,511) * b(k,45) - b(k,48) = b(k,48) - lu(k,512) * b(k,45) - b(k,49) = b(k,49) - lu(k,513) * b(k,45) - b(k,50) = b(k,50) - lu(k,514) * b(k,45) - b(k,47) = b(k,47) - lu(k,542) * b(k,46) - b(k,48) = b(k,48) - lu(k,543) * b(k,46) - b(k,49) = b(k,49) - lu(k,544) * b(k,46) - b(k,50) = b(k,50) - lu(k,545) * b(k,46) - b(k,48) = b(k,48) - lu(k,568) * b(k,47) - b(k,49) = b(k,49) - lu(k,569) * b(k,47) - b(k,50) = b(k,50) - lu(k,570) * b(k,47) - b(k,49) = b(k,49) - lu(k,608) * b(k,48) - b(k,50) = b(k,50) - lu(k,609) * b(k,48) - b(k,50) = b(k,50) - lu(k,629) * b(k,49) + b(k,38) = b(k,38) - lu(k,321) * b(k,37) + b(k,39) = b(k,39) - lu(k,322) * b(k,37) + b(k,40) = b(k,40) - lu(k,323) * b(k,37) + b(k,41) = b(k,41) - lu(k,324) * b(k,37) + b(k,42) = b(k,42) - lu(k,325) * b(k,37) + b(k,43) = b(k,43) - lu(k,326) * b(k,37) + b(k,44) = b(k,44) - lu(k,327) * b(k,37) + b(k,45) = b(k,45) - lu(k,328) * b(k,37) + b(k,46) = b(k,46) - lu(k,329) * b(k,37) + b(k,47) = b(k,47) - lu(k,330) * b(k,37) + b(k,48) = b(k,48) - lu(k,331) * b(k,37) + b(k,49) = b(k,49) - lu(k,332) * b(k,37) + b(k,50) = b(k,50) - lu(k,333) * b(k,37) + b(k,39) = b(k,39) - lu(k,342) * b(k,38) + b(k,40) = b(k,40) - lu(k,343) * b(k,38) + b(k,41) = b(k,41) - lu(k,344) * b(k,38) + b(k,42) = b(k,42) - lu(k,345) * b(k,38) + b(k,43) = b(k,43) - lu(k,346) * b(k,38) + b(k,44) = b(k,44) - lu(k,347) * b(k,38) + b(k,45) = b(k,45) - lu(k,348) * b(k,38) + b(k,46) = b(k,46) - lu(k,349) * b(k,38) + b(k,47) = b(k,47) - lu(k,350) * b(k,38) + b(k,48) = b(k,48) - lu(k,351) * b(k,38) + b(k,49) = b(k,49) - lu(k,352) * b(k,38) + b(k,50) = b(k,50) - lu(k,353) * b(k,38) + b(k,40) = b(k,40) - lu(k,363) * b(k,39) + b(k,41) = b(k,41) - lu(k,364) * b(k,39) + b(k,42) = b(k,42) - lu(k,365) * b(k,39) + b(k,43) = b(k,43) - lu(k,366) * b(k,39) + b(k,44) = b(k,44) - lu(k,367) * b(k,39) + b(k,45) = b(k,45) - lu(k,368) * b(k,39) + b(k,46) = b(k,46) - lu(k,369) * b(k,39) + b(k,47) = b(k,47) - lu(k,370) * b(k,39) + b(k,48) = b(k,48) - lu(k,371) * b(k,39) + b(k,49) = b(k,49) - lu(k,372) * b(k,39) + b(k,50) = b(k,50) - lu(k,373) * b(k,39) + b(k,41) = b(k,41) - lu(k,386) * b(k,40) + b(k,42) = b(k,42) - lu(k,387) * b(k,40) + b(k,43) = b(k,43) - lu(k,388) * b(k,40) + b(k,44) = b(k,44) - lu(k,389) * b(k,40) + b(k,45) = b(k,45) - lu(k,390) * b(k,40) + b(k,46) = b(k,46) - lu(k,391) * b(k,40) + b(k,47) = b(k,47) - lu(k,392) * b(k,40) + b(k,48) = b(k,48) - lu(k,393) * b(k,40) + b(k,49) = b(k,49) - lu(k,394) * b(k,40) + b(k,50) = b(k,50) - lu(k,395) * b(k,40) + b(k,42) = b(k,42) - lu(k,412) * b(k,41) + b(k,43) = b(k,43) - lu(k,413) * b(k,41) + b(k,44) = b(k,44) - lu(k,414) * b(k,41) + b(k,45) = b(k,45) - lu(k,415) * b(k,41) + b(k,46) = b(k,46) - lu(k,416) * b(k,41) + b(k,47) = b(k,47) - lu(k,417) * b(k,41) + b(k,48) = b(k,48) - lu(k,418) * b(k,41) + b(k,49) = b(k,49) - lu(k,419) * b(k,41) + b(k,50) = b(k,50) - lu(k,420) * b(k,41) + b(k,43) = b(k,43) - lu(k,438) * b(k,42) + b(k,44) = b(k,44) - lu(k,439) * b(k,42) + b(k,45) = b(k,45) - lu(k,440) * b(k,42) + b(k,46) = b(k,46) - lu(k,441) * b(k,42) + b(k,47) = b(k,47) - lu(k,442) * b(k,42) + b(k,48) = b(k,48) - lu(k,443) * b(k,42) + b(k,49) = b(k,49) - lu(k,444) * b(k,42) + b(k,50) = b(k,50) - lu(k,445) * b(k,42) + b(k,44) = b(k,44) - lu(k,465) * b(k,43) + b(k,45) = b(k,45) - lu(k,466) * b(k,43) + b(k,46) = b(k,46) - lu(k,467) * b(k,43) + b(k,47) = b(k,47) - lu(k,468) * b(k,43) + b(k,48) = b(k,48) - lu(k,469) * b(k,43) + b(k,49) = b(k,49) - lu(k,470) * b(k,43) + b(k,50) = b(k,50) - lu(k,471) * b(k,43) + b(k,45) = b(k,45) - lu(k,489) * b(k,44) + b(k,46) = b(k,46) - lu(k,490) * b(k,44) + b(k,47) = b(k,47) - lu(k,491) * b(k,44) + b(k,48) = b(k,48) - lu(k,492) * b(k,44) + b(k,49) = b(k,49) - lu(k,493) * b(k,44) + b(k,50) = b(k,50) - lu(k,494) * b(k,44) + b(k,46) = b(k,46) - lu(k,511) * b(k,45) + b(k,47) = b(k,47) - lu(k,512) * b(k,45) + b(k,48) = b(k,48) - lu(k,513) * b(k,45) + b(k,49) = b(k,49) - lu(k,514) * b(k,45) + b(k,50) = b(k,50) - lu(k,515) * b(k,45) + b(k,47) = b(k,47) - lu(k,543) * b(k,46) + b(k,48) = b(k,48) - lu(k,544) * b(k,46) + b(k,49) = b(k,49) - lu(k,545) * b(k,46) + b(k,50) = b(k,50) - lu(k,546) * b(k,46) + b(k,48) = b(k,48) - lu(k,563) * b(k,47) + b(k,49) = b(k,49) - lu(k,564) * b(k,47) + b(k,50) = b(k,50) - lu(k,565) * b(k,47) + b(k,49) = b(k,49) - lu(k,589) * b(k,48) + b(k,50) = b(k,50) - lu(k,590) * b(k,48) + b(k,50) = b(k,50) - lu(k,608) * b(k,49) end do end subroutine lu_slv02 subroutine lu_slv03( avec_len, lu, b ) @@ -383,194 +383,198 @@ subroutine lu_slv03( avec_len, lu, b ) b(k,38) = b(k,38) - lu(k,635) * b(k,50) b(k,37) = b(k,37) - lu(k,634) * b(k,50) b(k,36) = b(k,36) - lu(k,633) * b(k,50) - b(k,32) = b(k,32) - lu(k,632) * b(k,50) - b(k,5) = b(k,5) - lu(k,631) * b(k,50) - b(k,4) = b(k,4) - lu(k,630) * b(k,50) - b(k,49) = b(k,49) * lu(k,628) - b(k,48) = b(k,48) - lu(k,627) * b(k,49) - b(k,47) = b(k,47) - lu(k,626) * b(k,49) - b(k,46) = b(k,46) - lu(k,625) * b(k,49) - b(k,45) = b(k,45) - lu(k,624) * b(k,49) - b(k,44) = b(k,44) - lu(k,623) * b(k,49) - b(k,43) = b(k,43) - lu(k,622) * b(k,49) - b(k,42) = b(k,42) - lu(k,621) * b(k,49) - b(k,41) = b(k,41) - lu(k,620) * b(k,49) - b(k,40) = b(k,40) - lu(k,619) * b(k,49) - b(k,39) = b(k,39) - lu(k,618) * b(k,49) - b(k,38) = b(k,38) - lu(k,617) * b(k,49) - b(k,37) = b(k,37) - lu(k,616) * b(k,49) - b(k,36) = b(k,36) - lu(k,615) * b(k,49) - b(k,34) = b(k,34) - lu(k,614) * b(k,49) - b(k,33) = b(k,33) - lu(k,613) * b(k,49) - b(k,31) = b(k,31) - lu(k,612) * b(k,49) - b(k,21) = b(k,21) - lu(k,611) * b(k,49) - b(k,9) = b(k,9) - lu(k,610) * b(k,49) - b(k,48) = b(k,48) * lu(k,607) - b(k,47) = b(k,47) - lu(k,606) * b(k,48) - b(k,46) = b(k,46) - lu(k,605) * b(k,48) - b(k,45) = b(k,45) - lu(k,604) * b(k,48) - b(k,44) = b(k,44) - lu(k,603) * b(k,48) - b(k,43) = b(k,43) - lu(k,602) * b(k,48) - b(k,42) = b(k,42) - lu(k,601) * b(k,48) - b(k,41) = b(k,41) - lu(k,600) * b(k,48) - b(k,40) = b(k,40) - lu(k,599) * b(k,48) - b(k,39) = b(k,39) - lu(k,598) * b(k,48) - b(k,38) = b(k,38) - lu(k,597) * b(k,48) - b(k,37) = b(k,37) - lu(k,596) * b(k,48) - b(k,36) = b(k,36) - lu(k,595) * b(k,48) - b(k,35) = b(k,35) - lu(k,594) * b(k,48) - b(k,34) = b(k,34) - lu(k,593) * b(k,48) - b(k,33) = b(k,33) - lu(k,592) * b(k,48) - b(k,32) = b(k,32) - lu(k,591) * b(k,48) - b(k,31) = b(k,31) - lu(k,590) * b(k,48) - b(k,30) = b(k,30) - lu(k,589) * b(k,48) - b(k,29) = b(k,29) - lu(k,588) * b(k,48) - b(k,28) = b(k,28) - lu(k,587) * b(k,48) - b(k,27) = b(k,27) - lu(k,586) * b(k,48) - b(k,26) = b(k,26) - lu(k,585) * b(k,48) - b(k,25) = b(k,25) - lu(k,584) * b(k,48) - b(k,24) = b(k,24) - lu(k,583) * b(k,48) - b(k,23) = b(k,23) - lu(k,582) * b(k,48) - b(k,22) = b(k,22) - lu(k,581) * b(k,48) - b(k,20) = b(k,20) - lu(k,580) * b(k,48) - b(k,19) = b(k,19) - lu(k,579) * b(k,48) - b(k,18) = b(k,18) - lu(k,578) * b(k,48) - b(k,17) = b(k,17) - lu(k,577) * b(k,48) - b(k,16) = b(k,16) - lu(k,576) * b(k,48) - b(k,15) = b(k,15) - lu(k,575) * b(k,48) - b(k,14) = b(k,14) - lu(k,574) * b(k,48) - b(k,13) = b(k,13) - lu(k,573) * b(k,48) - b(k,5) = b(k,5) - lu(k,572) * b(k,48) - b(k,4) = b(k,4) - lu(k,571) * b(k,48) - b(k,47) = b(k,47) * lu(k,567) - b(k,46) = b(k,46) - lu(k,566) * b(k,47) - b(k,45) = b(k,45) - lu(k,565) * b(k,47) - b(k,44) = b(k,44) - lu(k,564) * b(k,47) - b(k,43) = b(k,43) - lu(k,563) * b(k,47) - b(k,42) = b(k,42) - lu(k,562) * b(k,47) - b(k,41) = b(k,41) - lu(k,561) * b(k,47) - b(k,40) = b(k,40) - lu(k,560) * b(k,47) - b(k,39) = b(k,39) - lu(k,559) * b(k,47) - b(k,38) = b(k,38) - lu(k,558) * b(k,47) - b(k,37) = b(k,37) - lu(k,557) * b(k,47) - b(k,36) = b(k,36) - lu(k,556) * b(k,47) - b(k,35) = b(k,35) - lu(k,555) * b(k,47) - b(k,34) = b(k,34) - lu(k,554) * b(k,47) - b(k,33) = b(k,33) - lu(k,553) * b(k,47) - b(k,32) = b(k,32) - lu(k,552) * b(k,47) - b(k,23) = b(k,23) - lu(k,551) * b(k,47) - b(k,22) = b(k,22) - lu(k,550) * b(k,47) - b(k,20) = b(k,20) - lu(k,549) * b(k,47) - b(k,17) = b(k,17) - lu(k,548) * b(k,47) - b(k,12) = b(k,12) - lu(k,547) * b(k,47) - b(k,11) = b(k,11) - lu(k,546) * b(k,47) - b(k,46) = b(k,46) * lu(k,541) - b(k,45) = b(k,45) - lu(k,540) * b(k,46) - b(k,44) = b(k,44) - lu(k,539) * b(k,46) - b(k,43) = b(k,43) - lu(k,538) * b(k,46) - b(k,42) = b(k,42) - lu(k,537) * b(k,46) - b(k,41) = b(k,41) - lu(k,536) * b(k,46) - b(k,40) = b(k,40) - lu(k,535) * b(k,46) - b(k,39) = b(k,39) - lu(k,534) * b(k,46) - b(k,38) = b(k,38) - lu(k,533) * b(k,46) - b(k,37) = b(k,37) - lu(k,532) * b(k,46) - b(k,36) = b(k,36) - lu(k,531) * b(k,46) - b(k,35) = b(k,35) - lu(k,530) * b(k,46) - b(k,34) = b(k,34) - lu(k,529) * b(k,46) - b(k,33) = b(k,33) - lu(k,528) * b(k,46) - b(k,32) = b(k,32) - lu(k,527) * b(k,46) - b(k,31) = b(k,31) - lu(k,526) * b(k,46) - b(k,30) = b(k,30) - lu(k,525) * b(k,46) - b(k,29) = b(k,29) - lu(k,524) * b(k,46) - b(k,23) = b(k,23) - lu(k,523) * b(k,46) - b(k,22) = b(k,22) - lu(k,522) * b(k,46) - b(k,21) = b(k,21) - lu(k,521) * b(k,46) - b(k,17) = b(k,17) - lu(k,520) * b(k,46) - b(k,16) = b(k,16) - lu(k,519) * b(k,46) - b(k,12) = b(k,12) - lu(k,518) * b(k,46) - b(k,11) = b(k,11) - lu(k,517) * b(k,46) - b(k,7) = b(k,7) - lu(k,516) * b(k,46) - b(k,2) = b(k,2) - lu(k,515) * b(k,46) - b(k,45) = b(k,45) * lu(k,509) - b(k,44) = b(k,44) - lu(k,508) * b(k,45) - b(k,43) = b(k,43) - lu(k,507) * b(k,45) - b(k,42) = b(k,42) - lu(k,506) * b(k,45) - b(k,41) = b(k,41) - lu(k,505) * b(k,45) - b(k,40) = b(k,40) - lu(k,504) * b(k,45) - b(k,39) = b(k,39) - lu(k,503) * b(k,45) - b(k,38) = b(k,38) - lu(k,502) * b(k,45) - b(k,37) = b(k,37) - lu(k,501) * b(k,45) - b(k,36) = b(k,36) - lu(k,500) * b(k,45) - b(k,34) = b(k,34) - lu(k,499) * b(k,45) - b(k,33) = b(k,33) - lu(k,498) * b(k,45) - b(k,32) = b(k,32) - lu(k,497) * b(k,45) - b(k,31) = b(k,31) - lu(k,496) * b(k,45) - b(k,30) = b(k,30) - lu(k,495) * b(k,45) - b(k,29) = b(k,29) - lu(k,494) * b(k,45) - b(k,20) = b(k,20) - lu(k,493) * b(k,45) - b(k,15) = b(k,15) - lu(k,492) * b(k,45) - b(k,12) = b(k,12) - lu(k,491) * b(k,45) - b(k,10) = b(k,10) - lu(k,490) * b(k,45) - b(k,44) = b(k,44) * lu(k,483) - b(k,43) = b(k,43) - lu(k,482) * b(k,44) - b(k,42) = b(k,42) - lu(k,481) * b(k,44) - b(k,41) = b(k,41) - lu(k,480) * b(k,44) - b(k,40) = b(k,40) - lu(k,479) * b(k,44) - b(k,39) = b(k,39) - lu(k,478) * b(k,44) - b(k,38) = b(k,38) - lu(k,477) * b(k,44) - b(k,37) = b(k,37) - lu(k,476) * b(k,44) - b(k,36) = b(k,36) - lu(k,475) * b(k,44) - b(k,35) = b(k,35) - lu(k,474) * b(k,44) - b(k,33) = b(k,33) - lu(k,473) * b(k,44) - b(k,32) = b(k,32) - lu(k,472) * b(k,44) - b(k,11) = b(k,11) - lu(k,471) * b(k,44) - b(k,43) = b(k,43) * lu(k,463) - b(k,42) = b(k,42) - lu(k,462) * b(k,43) - b(k,41) = b(k,41) - lu(k,461) * b(k,43) - b(k,40) = b(k,40) - lu(k,460) * b(k,43) - b(k,39) = b(k,39) - lu(k,459) * b(k,43) - b(k,38) = b(k,38) - lu(k,458) * b(k,43) - b(k,37) = b(k,37) - lu(k,457) * b(k,43) - b(k,36) = b(k,36) - lu(k,456) * b(k,43) - b(k,35) = b(k,35) - lu(k,455) * b(k,43) + b(k,35) = b(k,35) - lu(k,632) * b(k,50) + b(k,34) = b(k,34) - lu(k,631) * b(k,50) + b(k,33) = b(k,33) - lu(k,630) * b(k,50) + b(k,32) = b(k,32) - lu(k,629) * b(k,50) + b(k,31) = b(k,31) - lu(k,628) * b(k,50) + b(k,30) = b(k,30) - lu(k,627) * b(k,50) + b(k,29) = b(k,29) - lu(k,626) * b(k,50) + b(k,28) = b(k,28) - lu(k,625) * b(k,50) + b(k,27) = b(k,27) - lu(k,624) * b(k,50) + b(k,26) = b(k,26) - lu(k,623) * b(k,50) + b(k,25) = b(k,25) - lu(k,622) * b(k,50) + b(k,24) = b(k,24) - lu(k,621) * b(k,50) + b(k,23) = b(k,23) - lu(k,620) * b(k,50) + b(k,22) = b(k,22) - lu(k,619) * b(k,50) + b(k,20) = b(k,20) - lu(k,618) * b(k,50) + b(k,19) = b(k,19) - lu(k,617) * b(k,50) + b(k,18) = b(k,18) - lu(k,616) * b(k,50) + b(k,17) = b(k,17) - lu(k,615) * b(k,50) + b(k,16) = b(k,16) - lu(k,614) * b(k,50) + b(k,15) = b(k,15) - lu(k,613) * b(k,50) + b(k,14) = b(k,14) - lu(k,612) * b(k,50) + b(k,13) = b(k,13) - lu(k,611) * b(k,50) + b(k,5) = b(k,5) - lu(k,610) * b(k,50) + b(k,4) = b(k,4) - lu(k,609) * b(k,50) + b(k,49) = b(k,49) * lu(k,607) + b(k,48) = b(k,48) - lu(k,606) * b(k,49) + b(k,47) = b(k,47) - lu(k,605) * b(k,49) + b(k,46) = b(k,46) - lu(k,604) * b(k,49) + b(k,45) = b(k,45) - lu(k,603) * b(k,49) + b(k,44) = b(k,44) - lu(k,602) * b(k,49) + b(k,43) = b(k,43) - lu(k,601) * b(k,49) + b(k,42) = b(k,42) - lu(k,600) * b(k,49) + b(k,41) = b(k,41) - lu(k,599) * b(k,49) + b(k,40) = b(k,40) - lu(k,598) * b(k,49) + b(k,39) = b(k,39) - lu(k,597) * b(k,49) + b(k,38) = b(k,38) - lu(k,596) * b(k,49) + b(k,37) = b(k,37) - lu(k,595) * b(k,49) + b(k,36) = b(k,36) - lu(k,594) * b(k,49) + b(k,32) = b(k,32) - lu(k,593) * b(k,49) + b(k,5) = b(k,5) - lu(k,592) * b(k,49) + b(k,4) = b(k,4) - lu(k,591) * b(k,49) + b(k,48) = b(k,48) * lu(k,588) + b(k,47) = b(k,47) - lu(k,587) * b(k,48) + b(k,46) = b(k,46) - lu(k,586) * b(k,48) + b(k,45) = b(k,45) - lu(k,585) * b(k,48) + b(k,44) = b(k,44) - lu(k,584) * b(k,48) + b(k,43) = b(k,43) - lu(k,583) * b(k,48) + b(k,42) = b(k,42) - lu(k,582) * b(k,48) + b(k,41) = b(k,41) - lu(k,581) * b(k,48) + b(k,40) = b(k,40) - lu(k,580) * b(k,48) + b(k,39) = b(k,39) - lu(k,579) * b(k,48) + b(k,38) = b(k,38) - lu(k,578) * b(k,48) + b(k,37) = b(k,37) - lu(k,577) * b(k,48) + b(k,36) = b(k,36) - lu(k,576) * b(k,48) + b(k,35) = b(k,35) - lu(k,575) * b(k,48) + b(k,34) = b(k,34) - lu(k,574) * b(k,48) + b(k,33) = b(k,33) - lu(k,573) * b(k,48) + b(k,32) = b(k,32) - lu(k,572) * b(k,48) + b(k,31) = b(k,31) - lu(k,571) * b(k,48) + b(k,30) = b(k,30) - lu(k,570) * b(k,48) + b(k,23) = b(k,23) - lu(k,569) * b(k,48) + b(k,17) = b(k,17) - lu(k,568) * b(k,48) + b(k,16) = b(k,16) - lu(k,567) * b(k,48) + b(k,6) = b(k,6) - lu(k,566) * b(k,48) + b(k,47) = b(k,47) * lu(k,562) + b(k,46) = b(k,46) - lu(k,561) * b(k,47) + b(k,45) = b(k,45) - lu(k,560) * b(k,47) + b(k,44) = b(k,44) - lu(k,559) * b(k,47) + b(k,43) = b(k,43) - lu(k,558) * b(k,47) + b(k,42) = b(k,42) - lu(k,557) * b(k,47) + b(k,41) = b(k,41) - lu(k,556) * b(k,47) + b(k,40) = b(k,40) - lu(k,555) * b(k,47) + b(k,39) = b(k,39) - lu(k,554) * b(k,47) + b(k,38) = b(k,38) - lu(k,553) * b(k,47) + b(k,37) = b(k,37) - lu(k,552) * b(k,47) + b(k,36) = b(k,36) - lu(k,551) * b(k,47) + b(k,35) = b(k,35) - lu(k,550) * b(k,47) + b(k,33) = b(k,33) - lu(k,549) * b(k,47) + b(k,32) = b(k,32) - lu(k,548) * b(k,47) + b(k,11) = b(k,11) - lu(k,547) * b(k,47) + b(k,46) = b(k,46) * lu(k,542) + b(k,45) = b(k,45) - lu(k,541) * b(k,46) + b(k,44) = b(k,44) - lu(k,540) * b(k,46) + b(k,43) = b(k,43) - lu(k,539) * b(k,46) + b(k,42) = b(k,42) - lu(k,538) * b(k,46) + b(k,41) = b(k,41) - lu(k,537) * b(k,46) + b(k,40) = b(k,40) - lu(k,536) * b(k,46) + b(k,39) = b(k,39) - lu(k,535) * b(k,46) + b(k,38) = b(k,38) - lu(k,534) * b(k,46) + b(k,37) = b(k,37) - lu(k,533) * b(k,46) + b(k,36) = b(k,36) - lu(k,532) * b(k,46) + b(k,35) = b(k,35) - lu(k,531) * b(k,46) + b(k,34) = b(k,34) - lu(k,530) * b(k,46) + b(k,33) = b(k,33) - lu(k,529) * b(k,46) + b(k,32) = b(k,32) - lu(k,528) * b(k,46) + b(k,31) = b(k,31) - lu(k,527) * b(k,46) + b(k,30) = b(k,30) - lu(k,526) * b(k,46) + b(k,29) = b(k,29) - lu(k,525) * b(k,46) + b(k,23) = b(k,23) - lu(k,524) * b(k,46) + b(k,22) = b(k,22) - lu(k,523) * b(k,46) + b(k,21) = b(k,21) - lu(k,522) * b(k,46) + b(k,17) = b(k,17) - lu(k,521) * b(k,46) + b(k,16) = b(k,16) - lu(k,520) * b(k,46) + b(k,12) = b(k,12) - lu(k,519) * b(k,46) + b(k,11) = b(k,11) - lu(k,518) * b(k,46) + b(k,7) = b(k,7) - lu(k,517) * b(k,46) + b(k,2) = b(k,2) - lu(k,516) * b(k,46) + b(k,45) = b(k,45) * lu(k,510) + b(k,44) = b(k,44) - lu(k,509) * b(k,45) + b(k,43) = b(k,43) - lu(k,508) * b(k,45) + b(k,42) = b(k,42) - lu(k,507) * b(k,45) + b(k,41) = b(k,41) - lu(k,506) * b(k,45) + b(k,40) = b(k,40) - lu(k,505) * b(k,45) + b(k,39) = b(k,39) - lu(k,504) * b(k,45) + b(k,38) = b(k,38) - lu(k,503) * b(k,45) + b(k,37) = b(k,37) - lu(k,502) * b(k,45) + b(k,36) = b(k,36) - lu(k,501) * b(k,45) + b(k,35) = b(k,35) - lu(k,500) * b(k,45) + b(k,33) = b(k,33) - lu(k,499) * b(k,45) + b(k,32) = b(k,32) - lu(k,498) * b(k,45) + b(k,31) = b(k,31) - lu(k,497) * b(k,45) + b(k,16) = b(k,16) - lu(k,496) * b(k,45) + b(k,10) = b(k,10) - lu(k,495) * b(k,45) + b(k,44) = b(k,44) * lu(k,488) + b(k,43) = b(k,43) - lu(k,487) * b(k,44) + b(k,42) = b(k,42) - lu(k,486) * b(k,44) + b(k,41) = b(k,41) - lu(k,485) * b(k,44) + b(k,40) = b(k,40) - lu(k,484) * b(k,44) + b(k,39) = b(k,39) - lu(k,483) * b(k,44) + b(k,38) = b(k,38) - lu(k,482) * b(k,44) + b(k,37) = b(k,37) - lu(k,481) * b(k,44) + b(k,36) = b(k,36) - lu(k,480) * b(k,44) + b(k,34) = b(k,34) - lu(k,479) * b(k,44) + b(k,33) = b(k,33) - lu(k,478) * b(k,44) + b(k,32) = b(k,32) - lu(k,477) * b(k,44) + b(k,31) = b(k,31) - lu(k,476) * b(k,44) + b(k,20) = b(k,20) - lu(k,475) * b(k,44) + b(k,15) = b(k,15) - lu(k,474) * b(k,44) + b(k,8) = b(k,8) - lu(k,473) * b(k,44) + b(k,3) = b(k,3) - lu(k,472) * b(k,44) + b(k,43) = b(k,43) * lu(k,464) + b(k,42) = b(k,42) - lu(k,463) * b(k,43) + b(k,41) = b(k,41) - lu(k,462) * b(k,43) + b(k,40) = b(k,40) - lu(k,461) * b(k,43) + b(k,39) = b(k,39) - lu(k,460) * b(k,43) + b(k,38) = b(k,38) - lu(k,459) * b(k,43) + b(k,37) = b(k,37) - lu(k,458) * b(k,43) + b(k,36) = b(k,36) - lu(k,457) * b(k,43) + b(k,35) = b(k,35) - lu(k,456) * b(k,43) + b(k,34) = b(k,34) - lu(k,455) * b(k,43) b(k,33) = b(k,33) - lu(k,454) * b(k,43) b(k,32) = b(k,32) - lu(k,453) * b(k,43) - b(k,23) = b(k,23) - lu(k,452) * b(k,43) - b(k,16) = b(k,16) - lu(k,451) * b(k,43) - b(k,42) = b(k,42) * lu(k,442) - b(k,41) = b(k,41) - lu(k,441) * b(k,42) - b(k,40) = b(k,40) - lu(k,440) * b(k,42) - b(k,39) = b(k,39) - lu(k,439) * b(k,42) - b(k,38) = b(k,38) - lu(k,438) * b(k,42) - b(k,37) = b(k,37) - lu(k,437) * b(k,42) - b(k,36) = b(k,36) - lu(k,436) * b(k,42) - b(k,35) = b(k,35) - lu(k,435) * b(k,42) - b(k,34) = b(k,34) - lu(k,434) * b(k,42) - b(k,33) = b(k,33) - lu(k,433) * b(k,42) - b(k,32) = b(k,32) - lu(k,432) * b(k,42) - b(k,31) = b(k,31) - lu(k,431) * b(k,42) - b(k,23) = b(k,23) - lu(k,430) * b(k,42) - b(k,21) = b(k,21) - lu(k,429) * b(k,42) - b(k,7) = b(k,7) - lu(k,428) * b(k,42) - b(k,5) = b(k,5) - lu(k,427) * b(k,42) - b(k,2) = b(k,2) - lu(k,426) * b(k,42) - b(k,41) = b(k,41) * lu(k,416) - b(k,40) = b(k,40) - lu(k,415) * b(k,41) - b(k,39) = b(k,39) - lu(k,414) * b(k,41) - b(k,38) = b(k,38) - lu(k,413) * b(k,41) - b(k,37) = b(k,37) - lu(k,412) * b(k,41) - b(k,36) = b(k,36) - lu(k,411) * b(k,41) - b(k,35) = b(k,35) - lu(k,410) * b(k,41) - b(k,34) = b(k,34) - lu(k,409) * b(k,41) - b(k,33) = b(k,33) - lu(k,408) * b(k,41) - b(k,32) = b(k,32) - lu(k,407) * b(k,41) - b(k,31) = b(k,31) - lu(k,406) * b(k,41) - b(k,30) = b(k,30) - lu(k,405) * b(k,41) - b(k,22) = b(k,22) - lu(k,404) * b(k,41) - b(k,8) = b(k,8) - lu(k,403) * b(k,41) - b(k,6) = b(k,6) - lu(k,402) * b(k,41) - b(k,3) = b(k,3) - lu(k,401) * b(k,41) - b(k,1) = b(k,1) - lu(k,400) * b(k,41) + b(k,31) = b(k,31) - lu(k,452) * b(k,43) + b(k,30) = b(k,30) - lu(k,451) * b(k,43) + b(k,23) = b(k,23) - lu(k,450) * b(k,43) + b(k,8) = b(k,8) - lu(k,449) * b(k,43) + b(k,6) = b(k,6) - lu(k,448) * b(k,43) + b(k,3) = b(k,3) - lu(k,447) * b(k,43) + b(k,1) = b(k,1) - lu(k,446) * b(k,43) + b(k,42) = b(k,42) * lu(k,437) + b(k,41) = b(k,41) - lu(k,436) * b(k,42) + b(k,40) = b(k,40) - lu(k,435) * b(k,42) + b(k,39) = b(k,39) - lu(k,434) * b(k,42) + b(k,38) = b(k,38) - lu(k,433) * b(k,42) + b(k,37) = b(k,37) - lu(k,432) * b(k,42) + b(k,36) = b(k,36) - lu(k,431) * b(k,42) + b(k,35) = b(k,35) - lu(k,430) * b(k,42) + b(k,34) = b(k,34) - lu(k,429) * b(k,42) + b(k,33) = b(k,33) - lu(k,428) * b(k,42) + b(k,32) = b(k,32) - lu(k,427) * b(k,42) + b(k,31) = b(k,31) - lu(k,426) * b(k,42) + b(k,22) = b(k,22) - lu(k,425) * b(k,42) + b(k,21) = b(k,21) - lu(k,424) * b(k,42) + b(k,7) = b(k,7) - lu(k,423) * b(k,42) + b(k,5) = b(k,5) - lu(k,422) * b(k,42) + b(k,2) = b(k,2) - lu(k,421) * b(k,42) + b(k,41) = b(k,41) * lu(k,411) + b(k,40) = b(k,40) - lu(k,410) * b(k,41) + b(k,39) = b(k,39) - lu(k,409) * b(k,41) + b(k,38) = b(k,38) - lu(k,408) * b(k,41) + b(k,37) = b(k,37) - lu(k,407) * b(k,41) + b(k,36) = b(k,36) - lu(k,406) * b(k,41) + b(k,34) = b(k,34) - lu(k,405) * b(k,41) + b(k,33) = b(k,33) - lu(k,404) * b(k,41) + b(k,32) = b(k,32) - lu(k,403) * b(k,41) + b(k,31) = b(k,31) - lu(k,402) * b(k,41) + b(k,30) = b(k,30) - lu(k,401) * b(k,41) + b(k,29) = b(k,29) - lu(k,400) * b(k,41) + b(k,20) = b(k,20) - lu(k,399) * b(k,41) + b(k,15) = b(k,15) - lu(k,398) * b(k,41) + b(k,12) = b(k,12) - lu(k,397) * b(k,41) + b(k,10) = b(k,10) - lu(k,396) * b(k,41) end do end subroutine lu_slv03 subroutine lu_slv04( avec_len, lu, b ) @@ -591,51 +595,47 @@ subroutine lu_slv04( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,40) = b(k,40) * lu(k,389) - b(k,39) = b(k,39) - lu(k,388) * b(k,40) - b(k,38) = b(k,38) - lu(k,387) * b(k,40) - b(k,37) = b(k,37) - lu(k,386) * b(k,40) - b(k,36) = b(k,36) - lu(k,385) * b(k,40) - b(k,35) = b(k,35) - lu(k,384) * b(k,40) - b(k,34) = b(k,34) - lu(k,383) * b(k,40) - b(k,33) = b(k,33) - lu(k,382) * b(k,40) - b(k,32) = b(k,32) - lu(k,381) * b(k,40) - b(k,31) = b(k,31) - lu(k,380) * b(k,40) - b(k,30) = b(k,30) - lu(k,379) * b(k,40) - b(k,22) = b(k,22) - lu(k,378) * b(k,40) - b(k,17) = b(k,17) - lu(k,377) * b(k,40) - b(k,16) = b(k,16) - lu(k,376) * b(k,40) - b(k,6) = b(k,6) - lu(k,375) * b(k,40) - b(k,39) = b(k,39) * lu(k,363) - b(k,38) = b(k,38) - lu(k,362) * b(k,39) - b(k,37) = b(k,37) - lu(k,361) * b(k,39) - b(k,36) = b(k,36) - lu(k,360) * b(k,39) - b(k,34) = b(k,34) - lu(k,359) * b(k,39) - b(k,33) = b(k,33) - lu(k,358) * b(k,39) - b(k,32) = b(k,32) - lu(k,357) * b(k,39) + b(k,40) = b(k,40) * lu(k,385) + b(k,39) = b(k,39) - lu(k,384) * b(k,40) + b(k,38) = b(k,38) - lu(k,383) * b(k,40) + b(k,37) = b(k,37) - lu(k,382) * b(k,40) + b(k,36) = b(k,36) - lu(k,381) * b(k,40) + b(k,35) = b(k,35) - lu(k,380) * b(k,40) + b(k,32) = b(k,32) - lu(k,379) * b(k,40) + b(k,29) = b(k,29) - lu(k,378) * b(k,40) + b(k,28) = b(k,28) - lu(k,377) * b(k,40) + b(k,27) = b(k,27) - lu(k,376) * b(k,40) + b(k,26) = b(k,26) - lu(k,375) * b(k,40) + b(k,19) = b(k,19) - lu(k,374) * b(k,40) + b(k,39) = b(k,39) * lu(k,362) + b(k,38) = b(k,38) - lu(k,361) * b(k,39) + b(k,37) = b(k,37) - lu(k,360) * b(k,39) + b(k,36) = b(k,36) - lu(k,359) * b(k,39) + b(k,34) = b(k,34) - lu(k,358) * b(k,39) + b(k,33) = b(k,33) - lu(k,357) * b(k,39) b(k,31) = b(k,31) - lu(k,356) * b(k,39) - b(k,20) = b(k,20) - lu(k,355) * b(k,39) - b(k,15) = b(k,15) - lu(k,354) * b(k,39) - b(k,8) = b(k,8) - lu(k,353) * b(k,39) - b(k,3) = b(k,3) - lu(k,352) * b(k,39) - b(k,38) = b(k,38) * lu(k,339) - b(k,37) = b(k,37) - lu(k,338) * b(k,38) - b(k,36) = b(k,36) - lu(k,337) * b(k,38) - b(k,35) = b(k,35) - lu(k,336) * b(k,38) - b(k,32) = b(k,32) - lu(k,335) * b(k,38) - b(k,29) = b(k,29) - lu(k,334) * b(k,38) - b(k,28) = b(k,28) - lu(k,333) * b(k,38) - b(k,27) = b(k,27) - lu(k,332) * b(k,38) - b(k,26) = b(k,26) - lu(k,331) * b(k,38) - b(k,19) = b(k,19) - lu(k,330) * b(k,38) - b(k,37) = b(k,37) * lu(k,316) - b(k,36) = b(k,36) - lu(k,315) * b(k,37) - b(k,35) = b(k,35) - lu(k,314) * b(k,37) - b(k,33) = b(k,33) - lu(k,313) * b(k,37) - b(k,32) = b(k,32) - lu(k,312) * b(k,37) - b(k,31) = b(k,31) - lu(k,311) * b(k,37) - b(k,16) = b(k,16) - lu(k,310) * b(k,37) - b(k,10) = b(k,10) - lu(k,309) * b(k,37) + b(k,21) = b(k,21) - lu(k,355) * b(k,39) + b(k,9) = b(k,9) - lu(k,354) * b(k,39) + b(k,38) = b(k,38) * lu(k,341) + b(k,37) = b(k,37) - lu(k,340) * b(k,38) + b(k,36) = b(k,36) - lu(k,339) * b(k,38) + b(k,35) = b(k,35) - lu(k,338) * b(k,38) + b(k,33) = b(k,33) - lu(k,337) * b(k,38) + b(k,32) = b(k,32) - lu(k,336) * b(k,38) + b(k,22) = b(k,22) - lu(k,335) * b(k,38) + b(k,16) = b(k,16) - lu(k,334) * b(k,38) + b(k,37) = b(k,37) * lu(k,320) + b(k,36) = b(k,36) - lu(k,319) * b(k,37) + b(k,35) = b(k,35) - lu(k,318) * b(k,37) + b(k,34) = b(k,34) - lu(k,317) * b(k,37) + b(k,33) = b(k,33) - lu(k,316) * b(k,37) + b(k,32) = b(k,32) - lu(k,315) * b(k,37) + b(k,23) = b(k,23) - lu(k,314) * b(k,37) + b(k,22) = b(k,22) - lu(k,313) * b(k,37) + b(k,20) = b(k,20) - lu(k,312) * b(k,37) + b(k,17) = b(k,17) - lu(k,311) * b(k,37) + b(k,12) = b(k,12) - lu(k,310) * b(k,37) + b(k,11) = b(k,11) - lu(k,309) * b(k,37) b(k,36) = b(k,36) * lu(k,298) b(k,33) = b(k,33) - lu(k,297) * b(k,36) b(k,32) = b(k,32) - lu(k,296) * b(k,36) @@ -643,13 +643,13 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,34) = b(k,34) - lu(k,281) * b(k,35) b(k,33) = b(k,33) - lu(k,280) * b(k,35) b(k,31) = b(k,31) - lu(k,279) * b(k,35) - b(k,23) = b(k,23) - lu(k,278) * b(k,35) + b(k,22) = b(k,22) - lu(k,278) * b(k,35) b(k,16) = b(k,16) - lu(k,277) * b(k,35) b(k,34) = b(k,34) * lu(k,264) b(k,33) = b(k,33) - lu(k,263) * b(k,34) b(k,31) = b(k,31) - lu(k,262) * b(k,34) b(k,30) = b(k,30) - lu(k,261) * b(k,34) - b(k,22) = b(k,22) - lu(k,260) * b(k,34) + b(k,23) = b(k,23) - lu(k,260) * b(k,34) b(k,20) = b(k,20) - lu(k,259) * b(k,34) b(k,8) = b(k,8) - lu(k,258) * b(k,34) b(k,6) = b(k,6) - lu(k,257) * b(k,34) @@ -674,7 +674,7 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,21) = b(k,21) - lu(k,215) * b(k,31) b(k,9) = b(k,9) - lu(k,214) * b(k,31) b(k,30) = b(k,30) * lu(k,204) - b(k,22) = b(k,22) - lu(k,203) * b(k,30) + b(k,23) = b(k,23) - lu(k,203) * b(k,30) b(k,6) = b(k,6) - lu(k,202) * b(k,30) b(k,29) = b(k,29) * lu(k,193) b(k,28) = b(k,28) - lu(k,192) * b(k,29) @@ -704,9 +704,9 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,16) = b(k,16) - lu(k,135) * b(k,25) b(k,24) = b(k,24) * lu(k,127) b(k,19) = b(k,19) - lu(k,126) * b(k,24) - b(k,23) = b(k,23) * lu(k,118) - b(k,22) = b(k,22) * lu(k,111) - b(k,6) = b(k,6) - lu(k,110) * b(k,22) + b(k,23) = b(k,23) * lu(k,119) + b(k,6) = b(k,6) - lu(k,118) * b(k,23) + b(k,22) = b(k,22) * lu(k,110) b(k,21) = b(k,21) * lu(k,102) b(k,9) = b(k,9) - lu(k,101) * b(k,21) b(k,20) = b(k,20) * lu(k,93) diff --git a/src/chemistry/pp_waccm_ma/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_ma/mo_nln_matrix.F90 index fd393fb657..6704f24962 100644 --- a/src/chemistry/pp_waccm_ma/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_ma/mo_nln_matrix.F90 @@ -22,217 +22,214 @@ subroutine nlnmat01( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,353) = rxt(k,192)*y(k,24) - mat(k,403) = rxt(k,192)*y(k,2) - mat(k,258) = (rxt(k,254)+rxt(k,259))*y(k,45) - mat(k,92) = (rxt(k,254)+rxt(k,259))*y(k,40) - mat(k,363) = -(4._r8*rxt(k,189)*y(k,2) + (rxt(k,190) + rxt(k,191) + rxt(k,192) & - ) * y(k,24) + rxt(k,193)*y(k,43) + rxt(k,194)*y(k,50) + rxt(k,195) & - *y(k,51) + rxt(k,197)*y(k,53) + rxt(k,198)*y(k,69)) - mat(k,414) = -(rxt(k,190) + rxt(k,191) + rxt(k,192)) * y(k,2) - mat(k,559) = -rxt(k,193)*y(k,2) - mat(k,340) = -rxt(k,194)*y(k,2) - mat(k,503) = -rxt(k,195)*y(k,2) - mat(k,598) = -rxt(k,197)*y(k,2) - mat(k,534) = -rxt(k,198)*y(k,2) - mat(k,63) = rxt(k,196)*y(k,53) - mat(k,121) = rxt(k,206)*y(k,65) - mat(k,96) = rxt(k,201)*y(k,53) - mat(k,598) = mat(k,598) + rxt(k,196)*y(k,3) + rxt(k,201)*y(k,45) - mat(k,636) = rxt(k,188)*y(k,58) - mat(k,459) = rxt(k,188)*y(k,55) - mat(k,439) = rxt(k,206)*y(k,36) - mat(k,59) = -(rxt(k,196)*y(k,53)) - mat(k,575) = -rxt(k,196)*y(k,3) - mat(k,354) = rxt(k,195)*y(k,51) - mat(k,492) = rxt(k,195)*y(k,2) - mat(k,282) = -(rxt(k,150)*y(k,59) + rxt(k,186)*y(k,58) + rxt(k,230)*y(k,52) & - + rxt(k,231)*y(k,53) + rxt(k,232)*y(k,69)) - mat(k,384) = -rxt(k,150)*y(k,14) - mat(k,455) = -rxt(k,186)*y(k,14) - mat(k,314) = -rxt(k,230)*y(k,14) - mat(k,594) = -rxt(k,231)*y(k,14) - mat(k,530) = -rxt(k,232)*y(k,14) - mat(k,474) = rxt(k,157)*y(k,24) + rxt(k,234)*y(k,50) + mat(k,341) = -(rxt(k,186)*y(k,15) + rxt(k,187)*y(k,60) + rxt(k,188)*y(k,56)) + mat(k,285) = -rxt(k,186)*y(k,1) + mat(k,321) = -rxt(k,187)*y(k,1) + mat(k,596) = -rxt(k,188)*y(k,1) + mat(k,482) = 4.000_r8*rxt(k,189)*y(k,3) + (rxt(k,190)+rxt(k,191))*y(k,26) & + + rxt(k,194)*y(k,51) + rxt(k,197)*y(k,54) + rxt(k,198)*y(k,69) + mat(k,459) = (rxt(k,190)+rxt(k,191))*y(k,3) + mat(k,113) = rxt(k,199)*y(k,54) + rxt(k,205)*y(k,65) + rxt(k,200)*y(k,69) + mat(k,383) = rxt(k,194)*y(k,3) + mat(k,635) = rxt(k,197)*y(k,3) + rxt(k,199)*y(k,38) + mat(k,433) = rxt(k,205)*y(k,38) + mat(k,534) = rxt(k,198)*y(k,3) + rxt(k,200)*y(k,38) + mat(k,473) = rxt(k,192)*y(k,26) + mat(k,449) = rxt(k,192)*y(k,3) + mat(k,258) = (rxt(k,254)+rxt(k,259))*y(k,46) + mat(k,92) = (rxt(k,254)+rxt(k,259))*y(k,42) + mat(k,488) = -(4._r8*rxt(k,189)*y(k,3) + (rxt(k,190) + rxt(k,191) + rxt(k,192) & + ) * y(k,26) + rxt(k,193)*y(k,60) + rxt(k,194)*y(k,51) + rxt(k,195) & + *y(k,52) + rxt(k,197)*y(k,54) + rxt(k,198)*y(k,69)) + mat(k,465) = -(rxt(k,190) + rxt(k,191) + rxt(k,192)) * y(k,3) + mat(k,327) = -rxt(k,193)*y(k,3) + mat(k,389) = -rxt(k,194)*y(k,3) + mat(k,414) = -rxt(k,195)*y(k,3) + mat(k,641) = -rxt(k,197)*y(k,3) + mat(k,540) = -rxt(k,198)*y(k,3) + mat(k,347) = rxt(k,188)*y(k,56) + mat(k,64) = rxt(k,196)*y(k,54) + mat(k,115) = rxt(k,206)*y(k,65) + mat(k,97) = rxt(k,201)*y(k,54) + mat(k,641) = mat(k,641) + rxt(k,196)*y(k,4) + rxt(k,201)*y(k,46) + mat(k,602) = rxt(k,188)*y(k,1) + mat(k,439) = rxt(k,206)*y(k,38) + mat(k,59) = -(rxt(k,196)*y(k,54)) + mat(k,613) = -rxt(k,196)*y(k,4) + mat(k,474) = rxt(k,195)*y(k,52) + mat(k,398) = rxt(k,195)*y(k,3) + mat(k,282) = -(rxt(k,150)*y(k,23) + rxt(k,186)*y(k,1) + rxt(k,230)*y(k,53) & + + rxt(k,231)*y(k,54) + rxt(k,232)*y(k,69)) + mat(k,575) = -rxt(k,150)*y(k,15) + mat(k,338) = -rxt(k,186)*y(k,15) + mat(k,500) = -rxt(k,230)*y(k,15) + mat(k,632) = -rxt(k,231)*y(k,15) + mat(k,531) = -rxt(k,232)*y(k,15) + mat(k,550) = rxt(k,157)*y(k,26) + rxt(k,234)*y(k,51) mat(k,35) = .300_r8*rxt(k,235)*y(k,69) - mat(k,410) = rxt(k,157)*y(k,18) - mat(k,336) = rxt(k,234)*y(k,18) - mat(k,530) = mat(k,530) + .300_r8*rxt(k,235)*y(k,19) - mat(k,483) = -(rxt(k,157)*y(k,24) + rxt(k,233)*y(k,43) + rxt(k,234)*y(k,50)) - mat(k,419) = -rxt(k,157)*y(k,18) - mat(k,564) = -rxt(k,233)*y(k,18) - mat(k,345) = -rxt(k,234)*y(k,18) - mat(k,37) = .700_r8*rxt(k,235)*y(k,69) - mat(k,539) = .700_r8*rxt(k,235)*y(k,19) + mat(k,456) = rxt(k,157)*y(k,19) + mat(k,380) = rxt(k,234)*y(k,19) + mat(k,531) = mat(k,531) + .300_r8*rxt(k,235)*y(k,20) + mat(k,562) = -(rxt(k,157)*y(k,26) + rxt(k,233)*y(k,60) + rxt(k,234)*y(k,51)) + mat(k,468) = -rxt(k,157)*y(k,19) + mat(k,330) = -rxt(k,233)*y(k,19) + mat(k,392) = -rxt(k,234)*y(k,19) + mat(k,38) = .700_r8*rxt(k,235)*y(k,69) + mat(k,543) = .700_r8*rxt(k,235)*y(k,20) mat(k,33) = -(rxt(k,235)*y(k,69)) - mat(k,517) = -rxt(k,235)*y(k,19) - mat(k,471) = rxt(k,233)*y(k,43) - mat(k,546) = rxt(k,233)*y(k,18) - mat(k,402) = 2.000_r8*rxt(k,159)*y(k,24) - mat(k,202) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,40) + rxt(k,163)*y(k,59) - mat(k,257) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,25) + (rxt(k,247) & - +rxt(k,253)+rxt(k,258))*y(k,46) - mat(k,110) = (rxt(k,247)+rxt(k,253)+rxt(k,258))*y(k,40) - mat(k,375) = rxt(k,163)*y(k,25) - mat(k,400) = 2.000_r8*rxt(k,184)*y(k,24) - mat(k,416) = -(rxt(k,157)*y(k,18) + (4._r8*rxt(k,158) + 4._r8*rxt(k,159) & - + 4._r8*rxt(k,160) + 4._r8*rxt(k,184)) * y(k,24) + rxt(k,161) & - *y(k,43) + rxt(k,162)*y(k,50) + rxt(k,164)*y(k,51) + rxt(k,167) & - *y(k,53) + (rxt(k,168) + rxt(k,169)) * y(k,69) + (rxt(k,190) & - + rxt(k,191) + rxt(k,192)) * y(k,2)) - mat(k,480) = -rxt(k,157)*y(k,24) - mat(k,561) = -rxt(k,161)*y(k,24) - mat(k,342) = -rxt(k,162)*y(k,24) - mat(k,505) = -rxt(k,164)*y(k,24) - mat(k,600) = -rxt(k,167)*y(k,24) - mat(k,536) = -(rxt(k,168) + rxt(k,169)) * y(k,24) - mat(k,365) = -(rxt(k,190) + rxt(k,191) + rxt(k,192)) * y(k,24) - mat(k,210) = rxt(k,165)*y(k,53) - mat(k,269) = rxt(k,183)*y(k,65) - mat(k,561) = mat(k,561) + rxt(k,155)*y(k,59) - mat(k,115) = rxt(k,173)*y(k,53) + rxt(k,172)*y(k,59) + rxt(k,174)*y(k,69) - mat(k,600) = mat(k,600) + rxt(k,165)*y(k,25) + rxt(k,173)*y(k,46) - mat(k,638) = rxt(k,156)*y(k,59) - mat(k,390) = rxt(k,155)*y(k,43) + rxt(k,172)*y(k,46) + rxt(k,156)*y(k,55) - mat(k,441) = rxt(k,183)*y(k,40) - mat(k,536) = mat(k,536) + rxt(k,174)*y(k,46) - mat(k,204) = -(rxt(k,163)*y(k,59) + rxt(k,165)*y(k,53) + rxt(k,166)*y(k,69) & - + (rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,40)) - mat(k,379) = -rxt(k,163)*y(k,25) - mat(k,589) = -rxt(k,165)*y(k,25) - mat(k,525) = -rxt(k,166)*y(k,25) - mat(k,261) = -(rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,25) - mat(k,405) = rxt(k,164)*y(k,51) - mat(k,495) = rxt(k,164)*y(k,24) + mat(k,518) = -rxt(k,235)*y(k,20) + mat(k,547) = rxt(k,233)*y(k,60) + mat(k,309) = rxt(k,233)*y(k,19) + mat(k,588) = -(rxt(k,150)*y(k,15) + rxt(k,152)*y(k,35) + rxt(k,153)*y(k,37) & + + (rxt(k,154) + rxt(k,155)) * y(k,60) + rxt(k,156)*y(k,56) & + + rxt(k,163)*y(k,27) + rxt(k,172)*y(k,47)) + mat(k,294) = -rxt(k,150)*y(k,23) + mat(k,371) = -rxt(k,152)*y(k,23) + mat(k,76) = -rxt(k,153)*y(k,23) + mat(k,331) = -(rxt(k,154) + rxt(k,155)) * y(k,23) + mat(k,606) = -rxt(k,156)*y(k,23) + mat(k,212) = -rxt(k,163)*y(k,23) + mat(k,124) = -rxt(k,172)*y(k,23) + mat(k,492) = rxt(k,191)*y(k,26) + mat(k,563) = rxt(k,157)*y(k,26) + mat(k,469) = rxt(k,191)*y(k,3) + rxt(k,157)*y(k,19) + (4.000_r8*rxt(k,158) & + +2.000_r8*rxt(k,160))*y(k,26) + rxt(k,162)*y(k,51) + rxt(k,167) & + *y(k,54) + rxt(k,168)*y(k,69) + mat(k,20) = rxt(k,212)*y(k,65) + mat(k,275) = rxt(k,170)*y(k,54) + rxt(k,182)*y(k,65) + rxt(k,171)*y(k,69) + mat(k,393) = rxt(k,162)*y(k,26) + mat(k,645) = rxt(k,167)*y(k,26) + rxt(k,170)*y(k,42) + mat(k,443) = rxt(k,212)*y(k,32) + rxt(k,182)*y(k,42) + mat(k,544) = rxt(k,168)*y(k,26) + rxt(k,171)*y(k,42) + mat(k,566) = rxt(k,163)*y(k,27) + mat(k,448) = 2.000_r8*rxt(k,159)*y(k,26) + mat(k,202) = rxt(k,163)*y(k,23) + (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,42) + mat(k,257) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,27) + (rxt(k,247) & + +rxt(k,253)+rxt(k,258))*y(k,47) + mat(k,118) = (rxt(k,247)+rxt(k,253)+rxt(k,258))*y(k,42) + mat(k,446) = 2.000_r8*rxt(k,184)*y(k,26) + mat(k,464) = -(rxt(k,157)*y(k,19) + (4._r8*rxt(k,158) + 4._r8*rxt(k,159) & + + 4._r8*rxt(k,160) + 4._r8*rxt(k,184)) * y(k,26) + rxt(k,161) & + *y(k,60) + rxt(k,162)*y(k,51) + rxt(k,164)*y(k,52) + rxt(k,167) & + *y(k,54) + (rxt(k,168) + rxt(k,169)) * y(k,69) + (rxt(k,190) & + + rxt(k,191) + rxt(k,192)) * y(k,3)) + mat(k,558) = -rxt(k,157)*y(k,26) + mat(k,326) = -rxt(k,161)*y(k,26) + mat(k,388) = -rxt(k,162)*y(k,26) + mat(k,413) = -rxt(k,164)*y(k,26) + mat(k,640) = -rxt(k,167)*y(k,26) + mat(k,539) = -(rxt(k,168) + rxt(k,169)) * y(k,26) + mat(k,487) = -(rxt(k,190) + rxt(k,191) + rxt(k,192)) * y(k,26) + mat(k,583) = rxt(k,172)*y(k,47) + rxt(k,156)*y(k,56) + rxt(k,155)*y(k,60) + mat(k,209) = rxt(k,165)*y(k,54) + mat(k,270) = rxt(k,183)*y(k,65) + mat(k,122) = rxt(k,172)*y(k,23) + rxt(k,173)*y(k,54) + rxt(k,174)*y(k,69) + mat(k,640) = mat(k,640) + rxt(k,165)*y(k,27) + rxt(k,173)*y(k,47) + mat(k,601) = rxt(k,156)*y(k,23) + mat(k,326) = mat(k,326) + rxt(k,155)*y(k,23) + mat(k,438) = rxt(k,183)*y(k,42) + mat(k,539) = mat(k,539) + rxt(k,174)*y(k,47) + mat(k,204) = -(rxt(k,163)*y(k,23) + rxt(k,165)*y(k,54) + rxt(k,166)*y(k,69) & + + (rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,42)) + mat(k,570) = -rxt(k,163)*y(k,27) + mat(k,627) = -rxt(k,165)*y(k,27) + mat(k,526) = -rxt(k,166)*y(k,27) + mat(k,261) = -(rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,27) + mat(k,451) = rxt(k,164)*y(k,52) + mat(k,401) = rxt(k,164)*y(k,26) mat(k,67) = -((rxt(k,237) + rxt(k,241)) * y(k,69)) - mat(k,519) = -(rxt(k,237) + rxt(k,241)) * y(k,27) - mat(k,277) = rxt(k,230)*y(k,52) + rxt(k,231)*y(k,53) + rxt(k,186)*y(k,58) & - + rxt(k,150)*y(k,59) + rxt(k,232)*y(k,69) - mat(k,310) = rxt(k,230)*y(k,14) - mat(k,576) = rxt(k,231)*y(k,14) - mat(k,451) = rxt(k,186)*y(k,14) - mat(k,376) = rxt(k,150)*y(k,14) - mat(k,519) = mat(k,519) + rxt(k,232)*y(k,14) + mat(k,520) = -(rxt(k,237) + rxt(k,241)) * y(k,29) + mat(k,334) = rxt(k,186)*y(k,15) + mat(k,277) = rxt(k,186)*y(k,1) + rxt(k,150)*y(k,23) + rxt(k,230)*y(k,53) & + + rxt(k,231)*y(k,54) + rxt(k,232)*y(k,69) + mat(k,567) = rxt(k,150)*y(k,15) + mat(k,496) = rxt(k,230)*y(k,15) + mat(k,614) = rxt(k,231)*y(k,15) + mat(k,520) = mat(k,520) + rxt(k,232)*y(k,15) mat(k,4) = -(rxt(k,211)*y(k,65)) - mat(k,426) = -rxt(k,211)*y(k,29) + mat(k,421) = -rxt(k,211)*y(k,31) mat(k,17) = -(rxt(k,212)*y(k,65)) - mat(k,428) = -rxt(k,212)*y(k,30) - mat(k,102) = -(rxt(k,208)*y(k,33) + rxt(k,209)*y(k,73) + rxt(k,210)*y(k,42)) - mat(k,611) = -rxt(k,208)*y(k,31) - mat(k,246) = -rxt(k,209)*y(k,31) - mat(k,215) = -rxt(k,210)*y(k,31) + mat(k,423) = -rxt(k,212)*y(k,32) + mat(k,102) = -(rxt(k,208)*y(k,35) + rxt(k,209)*y(k,73) + rxt(k,210)*y(k,44)) + mat(k,355) = -rxt(k,208)*y(k,33) + mat(k,246) = -rxt(k,209)*y(k,33) + mat(k,215) = -rxt(k,210)*y(k,33) mat(k,5) = 2.000_r8*rxt(k,211)*y(k,65) mat(k,18) = rxt(k,212)*y(k,65) - mat(k,429) = 2.000_r8*rxt(k,211)*y(k,29) + rxt(k,212)*y(k,30) - mat(k,298) = -((rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,43) + rxt(k,111) & - *y(k,54) + rxt(k,114)*y(k,55)) - mat(k,556) = -(rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,32) - mat(k,237) = -rxt(k,111)*y(k,32) - mat(k,633) = -rxt(k,114)*y(k,32) + mat(k,424) = 2.000_r8*rxt(k,211)*y(k,31) + rxt(k,212)*y(k,32) + mat(k,298) = -((rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,60) + rxt(k,111) & + *y(k,55) + rxt(k,114)*y(k,56)) + mat(k,319) = -(rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,34) + mat(k,237) = -rxt(k,111)*y(k,34) + mat(k,594) = -rxt(k,114)*y(k,34) mat(k,283) = rxt(k,232)*y(k,69) + mat(k,576) = rxt(k,152)*y(k,35) mat(k,68) = rxt(k,241)*y(k,69) - mat(k,105) = rxt(k,208)*y(k,33) - mat(k,615) = rxt(k,208)*y(k,31) + rxt(k,106)*y(k,53) + rxt(k,152)*y(k,59) & + mat(k,105) = rxt(k,208)*y(k,35) + mat(k,359) = rxt(k,152)*y(k,23) + rxt(k,208)*y(k,33) + rxt(k,106)*y(k,54) & + rxt(k,89)*y(k,65) + rxt(k,115)*y(k,69) - mat(k,120) = rxt(k,206)*y(k,65) + mat(k,112) = rxt(k,206)*y(k,65) mat(k,265) = rxt(k,183)*y(k,65) mat(k,195) = rxt(k,138)*y(k,69) - mat(k,595) = rxt(k,106)*y(k,33) + rxt(k,118)*y(k,69) - mat(k,385) = rxt(k,152)*y(k,33) - mat(k,436) = rxt(k,89)*y(k,33) + rxt(k,206)*y(k,36) + rxt(k,183)*y(k,40) - mat(k,531) = rxt(k,232)*y(k,14) + rxt(k,241)*y(k,27) + rxt(k,115)*y(k,33) & - + rxt(k,138)*y(k,47) + rxt(k,118)*y(k,53) - mat(k,628) = -(rxt(k,89)*y(k,65) + rxt(k,106)*y(k,53) + rxt(k,115)*y(k,69) & - + rxt(k,152)*y(k,59) + rxt(k,208)*y(k,31)) - mat(k,449) = -rxt(k,89)*y(k,33) - mat(k,608) = -rxt(k,106)*y(k,33) - mat(k,544) = -rxt(k,115)*y(k,33) - mat(k,398) = -rxt(k,152)*y(k,33) - mat(k,109) = -rxt(k,208)*y(k,33) - mat(k,307) = rxt(k,108)*y(k,43) - mat(k,569) = rxt(k,108)*y(k,32) - mat(k,71) = -(rxt(k,107)*y(k,53) + rxt(k,116)*y(k,69) + rxt(k,153)*y(k,59)) - mat(k,577) = -rxt(k,107)*y(k,35) - mat(k,520) = -rxt(k,116)*y(k,35) - mat(k,377) = -rxt(k,153)*y(k,35) - mat(k,548) = 2.000_r8*rxt(k,122)*y(k,43) - mat(k,520) = mat(k,520) + 2.000_r8*rxt(k,121)*y(k,69) - mat(k,118) = -(rxt(k,199)*y(k,53) + rxt(k,200)*y(k,69) + (rxt(k,205) & + mat(k,633) = rxt(k,106)*y(k,35) + rxt(k,118)*y(k,69) + mat(k,431) = rxt(k,89)*y(k,35) + rxt(k,206)*y(k,38) + rxt(k,183)*y(k,42) + mat(k,532) = rxt(k,232)*y(k,15) + rxt(k,241)*y(k,29) + rxt(k,115)*y(k,35) & + + rxt(k,138)*y(k,48) + rxt(k,118)*y(k,54) + mat(k,362) = -(rxt(k,89)*y(k,65) + rxt(k,106)*y(k,54) + rxt(k,115)*y(k,69) & + + rxt(k,152)*y(k,23) + rxt(k,208)*y(k,33)) + mat(k,434) = -rxt(k,89)*y(k,35) + mat(k,636) = -rxt(k,106)*y(k,35) + mat(k,535) = -rxt(k,115)*y(k,35) + mat(k,579) = -rxt(k,152)*y(k,35) + mat(k,106) = -rxt(k,208)*y(k,35) + mat(k,300) = rxt(k,108)*y(k,60) + mat(k,322) = rxt(k,108)*y(k,34) + mat(k,71) = -(rxt(k,107)*y(k,54) + rxt(k,116)*y(k,69) + rxt(k,153)*y(k,23)) + mat(k,615) = -rxt(k,107)*y(k,37) + mat(k,521) = -rxt(k,116)*y(k,37) + mat(k,568) = -rxt(k,153)*y(k,37) + mat(k,311) = 2.000_r8*rxt(k,122)*y(k,60) + mat(k,521) = mat(k,521) + 2.000_r8*rxt(k,121)*y(k,69) + mat(k,110) = -(rxt(k,199)*y(k,54) + rxt(k,200)*y(k,69) + (rxt(k,205) & + rxt(k,206)) * y(k,65)) - mat(k,582) = -rxt(k,199)*y(k,36) - mat(k,523) = -rxt(k,200)*y(k,36) - mat(k,430) = -(rxt(k,205) + rxt(k,206)) * y(k,36) - mat(k,278) = rxt(k,186)*y(k,58) - mat(k,551) = rxt(k,187)*y(k,58) - mat(k,452) = rxt(k,186)*y(k,14) + rxt(k,187)*y(k,43) - mat(k,264) = -(rxt(k,170)*y(k,53) + rxt(k,171)*y(k,69) + (rxt(k,182) & + mat(k,619) = -rxt(k,199)*y(k,38) + mat(k,523) = -rxt(k,200)*y(k,38) + mat(k,425) = -(rxt(k,205) + rxt(k,206)) * y(k,38) + mat(k,335) = rxt(k,186)*y(k,15) + rxt(k,187)*y(k,60) + mat(k,278) = rxt(k,186)*y(k,1) + mat(k,313) = rxt(k,187)*y(k,1) + mat(k,264) = -(rxt(k,170)*y(k,54) + rxt(k,171)*y(k,69) + (rxt(k,182) & + rxt(k,183)) * y(k,65) + (rxt(k,247) + rxt(k,253) + rxt(k,258) & - ) * y(k,46) + (rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,25) & - + (rxt(k,254) + rxt(k,259)) * y(k,45)) - mat(k,593) = -rxt(k,170)*y(k,40) - mat(k,529) = -rxt(k,171)*y(k,40) - mat(k,434) = -(rxt(k,182) + rxt(k,183)) * y(k,40) - mat(k,113) = -(rxt(k,247) + rxt(k,253) + rxt(k,258)) * y(k,40) - mat(k,207) = -(rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,40) - mat(k,95) = -(rxt(k,254) + rxt(k,259)) * y(k,40) - mat(k,281) = rxt(k,150)*y(k,59) - mat(k,409) = rxt(k,169)*y(k,69) - mat(k,614) = rxt(k,152)*y(k,59) - mat(k,73) = rxt(k,153)*y(k,59) - mat(k,554) = rxt(k,154)*y(k,59) - mat(k,113) = mat(k,113) + rxt(k,172)*y(k,59) - mat(k,383) = rxt(k,150)*y(k,14) + rxt(k,152)*y(k,33) + rxt(k,153)*y(k,35) & - + rxt(k,154)*y(k,43) + rxt(k,172)*y(k,46) - mat(k,529) = mat(k,529) + rxt(k,169)*y(k,24) - mat(k,101) = rxt(k,208)*y(k,33) + rxt(k,210)*y(k,42) + rxt(k,209)*y(k,73) - mat(k,610) = rxt(k,208)*y(k,31) - mat(k,214) = rxt(k,210)*y(k,31) - mat(k,245) = rxt(k,209)*y(k,31) - mat(k,216) = -(rxt(k,147)*y(k,69) + rxt(k,210)*y(k,31)) - mat(k,526) = -rxt(k,147)*y(k,42) - mat(k,103) = -rxt(k,210)*y(k,42) - mat(k,279) = rxt(k,230)*y(k,52) - mat(k,205) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,40) - mat(k,262) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,25) - mat(k,496) = rxt(k,146)*y(k,69) - mat(k,311) = rxt(k,230)*y(k,14) - mat(k,526) = mat(k,526) + rxt(k,146)*y(k,51) - mat(k,567) = -((rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,32) + rxt(k,112) & - *y(k,53) + rxt(k,113)*y(k,55) + rxt(k,117)*y(k,69) & - + 4._r8*rxt(k,122)*y(k,43) + rxt(k,134)*y(k,52) + rxt(k,139) & - *y(k,50) + rxt(k,144)*y(k,51) + (rxt(k,154) + rxt(k,155) & - ) * y(k,59) + rxt(k,161)*y(k,24) + rxt(k,187)*y(k,58) + rxt(k,193) & - *y(k,2) + rxt(k,233)*y(k,18)) - mat(k,305) = -(rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,43) - mat(k,606) = -rxt(k,112)*y(k,43) - mat(k,644) = -rxt(k,113)*y(k,43) - mat(k,542) = -rxt(k,117)*y(k,43) - mat(k,326) = -rxt(k,134)*y(k,43) - mat(k,348) = -rxt(k,139)*y(k,43) - mat(k,511) = -rxt(k,144)*y(k,43) - mat(k,396) = -(rxt(k,154) + rxt(k,155)) * y(k,43) - mat(k,422) = -rxt(k,161)*y(k,43) - mat(k,467) = -rxt(k,187)*y(k,43) - mat(k,371) = -rxt(k,193)*y(k,43) - mat(k,486) = -rxt(k,233)*y(k,43) - mat(k,371) = mat(k,371) + rxt(k,198)*y(k,69) - mat(k,293) = rxt(k,230)*y(k,52) + rxt(k,231)*y(k,53) + rxt(k,186)*y(k,58) & - + rxt(k,150)*y(k,59) - mat(k,486) = mat(k,486) + rxt(k,157)*y(k,24) + rxt(k,234)*y(k,50) - mat(k,422) = mat(k,422) + rxt(k,157)*y(k,18) + rxt(k,168)*y(k,69) - mat(k,70) = rxt(k,237)*y(k,69) - mat(k,305) = mat(k,305) + rxt(k,111)*y(k,54) - mat(k,76) = rxt(k,107)*y(k,53) + rxt(k,153)*y(k,59) + rxt(k,116)*y(k,69) - mat(k,348) = mat(k,348) + rxt(k,234)*y(k,18) - mat(k,326) = mat(k,326) + rxt(k,230)*y(k,14) + rxt(k,137)*y(k,69) - mat(k,606) = mat(k,606) + rxt(k,231)*y(k,14) + rxt(k,107)*y(k,35) - mat(k,242) = rxt(k,111)*y(k,32) - mat(k,644) = mat(k,644) + rxt(k,119)*y(k,69) - mat(k,467) = mat(k,467) + rxt(k,186)*y(k,14) - mat(k,396) = mat(k,396) + rxt(k,150)*y(k,14) + rxt(k,153)*y(k,35) - mat(k,542) = mat(k,542) + rxt(k,198)*y(k,2) + rxt(k,168)*y(k,24) + rxt(k,237) & - *y(k,27) + rxt(k,116)*y(k,35) + rxt(k,137)*y(k,52) + rxt(k,119) & - *y(k,55) + ) * y(k,47) + (rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,27) & + + (rxt(k,254) + rxt(k,259)) * y(k,46)) + mat(k,631) = -rxt(k,170)*y(k,42) + mat(k,530) = -rxt(k,171)*y(k,42) + mat(k,429) = -(rxt(k,182) + rxt(k,183)) * y(k,42) + mat(k,121) = -(rxt(k,247) + rxt(k,253) + rxt(k,258)) * y(k,42) + mat(k,207) = -(rxt(k,252) + rxt(k,257) + rxt(k,262)) * y(k,42) + mat(k,95) = -(rxt(k,254) + rxt(k,259)) * y(k,42) + mat(k,281) = rxt(k,150)*y(k,23) + mat(k,574) = rxt(k,150)*y(k,15) + rxt(k,152)*y(k,35) + rxt(k,153)*y(k,37) & + + rxt(k,172)*y(k,47) + rxt(k,154)*y(k,60) + mat(k,455) = rxt(k,169)*y(k,69) + mat(k,358) = rxt(k,152)*y(k,23) + mat(k,73) = rxt(k,153)*y(k,23) + mat(k,121) = mat(k,121) + rxt(k,172)*y(k,23) + mat(k,317) = rxt(k,154)*y(k,23) + mat(k,530) = mat(k,530) + rxt(k,169)*y(k,26) + mat(k,101) = rxt(k,208)*y(k,35) + rxt(k,210)*y(k,44) + rxt(k,209)*y(k,73) + mat(k,354) = rxt(k,208)*y(k,33) + mat(k,214) = rxt(k,210)*y(k,33) + mat(k,245) = rxt(k,209)*y(k,33) + mat(k,216) = -(rxt(k,147)*y(k,69) + rxt(k,210)*y(k,33)) + mat(k,527) = -rxt(k,147)*y(k,44) + mat(k,103) = -rxt(k,210)*y(k,44) + mat(k,279) = rxt(k,230)*y(k,53) + mat(k,205) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,42) + mat(k,262) = (rxt(k,252)+rxt(k,257)+rxt(k,262))*y(k,27) + mat(k,402) = rxt(k,146)*y(k,69) + mat(k,497) = rxt(k,230)*y(k,15) + mat(k,527) = mat(k,527) + rxt(k,146)*y(k,52) end do end subroutine nlnmat01 subroutine nlnmat02( avec_len, mat, y, rxt ) @@ -254,209 +251,209 @@ subroutine nlnmat02( avec_len, mat, y, rxt ) !---------------------------------------------- do k = 1,avec_len mat(k,39) = -(rxt(k,123)*y(k,69)) - mat(k,518) = -rxt(k,123)*y(k,44) - mat(k,547) = rxt(k,144)*y(k,51) - mat(k,491) = rxt(k,144)*y(k,43) - mat(k,93) = -(rxt(k,201)*y(k,53) + (rxt(k,254) + rxt(k,259)) * y(k,40)) - mat(k,580) = -rxt(k,201)*y(k,45) - mat(k,259) = -(rxt(k,254) + rxt(k,259)) * y(k,45) - mat(k,355) = rxt(k,193)*y(k,43) - mat(k,549) = rxt(k,193)*y(k,2) - mat(k,111) = -(rxt(k,172)*y(k,59) + rxt(k,173)*y(k,53) + rxt(k,174)*y(k,69) & - + (rxt(k,247) + rxt(k,253) + rxt(k,258)) * y(k,40)) - mat(k,378) = -rxt(k,172)*y(k,46) - mat(k,581) = -rxt(k,173)*y(k,46) - mat(k,522) = -rxt(k,174)*y(k,46) - mat(k,260) = -(rxt(k,247) + rxt(k,253) + rxt(k,258)) * y(k,46) - mat(k,404) = rxt(k,161)*y(k,43) + mat(k,519) = -rxt(k,123)*y(k,45) + mat(k,397) = rxt(k,144)*y(k,60) + mat(k,310) = rxt(k,144)*y(k,52) + mat(k,93) = -(rxt(k,201)*y(k,54) + (rxt(k,254) + rxt(k,259)) * y(k,42)) + mat(k,618) = -rxt(k,201)*y(k,46) + mat(k,259) = -(rxt(k,254) + rxt(k,259)) * y(k,46) + mat(k,475) = rxt(k,193)*y(k,60) + mat(k,312) = rxt(k,193)*y(k,3) + mat(k,119) = -(rxt(k,172)*y(k,23) + rxt(k,173)*y(k,54) + rxt(k,174)*y(k,69) & + + (rxt(k,247) + rxt(k,253) + rxt(k,258)) * y(k,42)) + mat(k,569) = -rxt(k,172)*y(k,47) + mat(k,620) = -rxt(k,173)*y(k,47) + mat(k,524) = -rxt(k,174)*y(k,47) + mat(k,260) = -(rxt(k,247) + rxt(k,253) + rxt(k,258)) * y(k,47) + mat(k,450) = rxt(k,161)*y(k,60) mat(k,203) = rxt(k,166)*y(k,69) - mat(k,550) = rxt(k,161)*y(k,24) - mat(k,522) = mat(k,522) + rxt(k,166)*y(k,25) - mat(k,193) = -(rxt(k,126)*y(k,50) + (rxt(k,127) + rxt(k,128) + rxt(k,129) & - ) * y(k,51) + rxt(k,130)*y(k,54) + rxt(k,138)*y(k,69) + rxt(k,275) & + mat(k,314) = rxt(k,161)*y(k,26) + mat(k,524) = mat(k,524) + rxt(k,166)*y(k,27) + mat(k,193) = -(rxt(k,126)*y(k,51) + (rxt(k,127) + rxt(k,128) + rxt(k,129) & + ) * y(k,52) + rxt(k,130)*y(k,55) + rxt(k,138)*y(k,69) + rxt(k,275) & *y(k,68)) - mat(k,334) = -rxt(k,126)*y(k,47) - mat(k,494) = -(rxt(k,127) + rxt(k,128) + rxt(k,129)) * y(k,47) - mat(k,235) = -rxt(k,130)*y(k,47) - mat(k,524) = -rxt(k,138)*y(k,47) - mat(k,152) = -rxt(k,275)*y(k,47) - mat(k,588) = rxt(k,124)*y(k,61) + rxt(k,272)*y(k,64) + mat(k,378) = -rxt(k,126)*y(k,48) + mat(k,400) = -(rxt(k,127) + rxt(k,128) + rxt(k,129)) * y(k,48) + mat(k,235) = -rxt(k,130)*y(k,48) + mat(k,525) = -rxt(k,138)*y(k,48) + mat(k,152) = -rxt(k,275)*y(k,48) + mat(k,626) = rxt(k,124)*y(k,61) + rxt(k,272)*y(k,64) mat(k,235) = mat(k,235) + rxt(k,273)*y(k,64) mat(k,166) = 1.100_r8*rxt(k,268)*y(k,62) + .200_r8*rxt(k,266)*y(k,63) - mat(k,179) = rxt(k,124)*y(k,53) - mat(k,84) = 1.100_r8*rxt(k,268)*y(k,60) - mat(k,90) = .200_r8*rxt(k,266)*y(k,60) - mat(k,132) = rxt(k,272)*y(k,53) + rxt(k,273)*y(k,54) - mat(k,490) = rxt(k,145)*y(k,52) - mat(k,309) = rxt(k,145)*y(k,51) - mat(k,339) = -(rxt(k,126)*y(k,47) + rxt(k,135)*y(k,52) + rxt(k,139)*y(k,43) & - + rxt(k,140)*y(k,55) + rxt(k,141)*y(k,53) + rxt(k,162)*y(k,24) & - + rxt(k,194)*y(k,2) + rxt(k,234)*y(k,18) + rxt(k,277)*y(k,68)) - mat(k,196) = -rxt(k,126)*y(k,50) - mat(k,317) = -rxt(k,135)*y(k,50) - mat(k,558) = -rxt(k,139)*y(k,50) - mat(k,635) = -rxt(k,140)*y(k,50) - mat(k,597) = -rxt(k,141)*y(k,50) - mat(k,413) = -rxt(k,162)*y(k,50) - mat(k,362) = -rxt(k,194)*y(k,50) - mat(k,477) = -rxt(k,234)*y(k,50) - mat(k,154) = -rxt(k,277)*y(k,50) - mat(k,196) = mat(k,196) + 2.000_r8*rxt(k,128)*y(k,51) + rxt(k,130)*y(k,54) & + mat(k,179) = rxt(k,124)*y(k,54) + mat(k,84) = 1.100_r8*rxt(k,268)*y(k,59) + mat(k,90) = .200_r8*rxt(k,266)*y(k,59) + mat(k,132) = rxt(k,272)*y(k,54) + rxt(k,273)*y(k,55) + mat(k,396) = rxt(k,145)*y(k,53) + mat(k,495) = rxt(k,145)*y(k,52) + mat(k,385) = -(rxt(k,126)*y(k,48) + rxt(k,135)*y(k,53) + rxt(k,139)*y(k,60) & + + rxt(k,140)*y(k,56) + rxt(k,141)*y(k,54) + rxt(k,162)*y(k,26) & + + rxt(k,194)*y(k,3) + rxt(k,234)*y(k,19) + rxt(k,277)*y(k,68)) + mat(k,197) = -rxt(k,126)*y(k,51) + mat(k,505) = -rxt(k,135)*y(k,51) + mat(k,323) = -rxt(k,139)*y(k,51) + mat(k,598) = -rxt(k,140)*y(k,51) + mat(k,637) = -rxt(k,141)*y(k,51) + mat(k,461) = -rxt(k,162)*y(k,51) + mat(k,484) = -rxt(k,194)*y(k,51) + mat(k,555) = -rxt(k,234)*y(k,51) + mat(k,154) = -rxt(k,277)*y(k,51) + mat(k,197) = mat(k,197) + 2.000_r8*rxt(k,128)*y(k,52) + rxt(k,130)*y(k,55) & + rxt(k,138)*y(k,69) - mat(k,502) = 2.000_r8*rxt(k,128)*y(k,47) + rxt(k,131)*y(k,53) - mat(k,597) = mat(k,597) + rxt(k,131)*y(k,51) - mat(k,238) = rxt(k,130)*y(k,47) + rxt(k,125)*y(k,61) - mat(k,182) = rxt(k,125)*y(k,54) - mat(k,533) = rxt(k,138)*y(k,47) - mat(k,509) = -((rxt(k,127) + rxt(k,128) + rxt(k,129)) * y(k,47) + (rxt(k,131) & - + rxt(k,133)) * y(k,53) + rxt(k,132)*y(k,55) + rxt(k,144) & - *y(k,43) + rxt(k,145)*y(k,52) + rxt(k,146)*y(k,69) + rxt(k,164) & - *y(k,24) + rxt(k,195)*y(k,2)) - mat(k,198) = -(rxt(k,127) + rxt(k,128) + rxt(k,129)) * y(k,51) - mat(k,604) = -(rxt(k,131) + rxt(k,133)) * y(k,51) - mat(k,642) = -rxt(k,132)*y(k,51) - mat(k,565) = -rxt(k,144)*y(k,51) - mat(k,324) = -rxt(k,145)*y(k,51) - mat(k,540) = -rxt(k,146)*y(k,51) - mat(k,420) = -rxt(k,164)*y(k,51) - mat(k,369) = -rxt(k,195)*y(k,51) - mat(k,369) = mat(k,369) + rxt(k,194)*y(k,50) - mat(k,484) = rxt(k,234)*y(k,50) - mat(k,420) = mat(k,420) + rxt(k,162)*y(k,50) - mat(k,565) = mat(k,565) + rxt(k,139)*y(k,50) + rxt(k,134)*y(k,52) + mat(k,410) = 2.000_r8*rxt(k,128)*y(k,48) + rxt(k,131)*y(k,54) + mat(k,637) = mat(k,637) + rxt(k,131)*y(k,52) + mat(k,239) = rxt(k,130)*y(k,48) + rxt(k,125)*y(k,61) + mat(k,183) = rxt(k,125)*y(k,55) + mat(k,536) = rxt(k,138)*y(k,48) + mat(k,411) = -((rxt(k,127) + rxt(k,128) + rxt(k,129)) * y(k,48) + (rxt(k,131) & + + rxt(k,133)) * y(k,54) + rxt(k,132)*y(k,56) + rxt(k,144) & + *y(k,60) + rxt(k,145)*y(k,53) + rxt(k,146)*y(k,69) + rxt(k,164) & + *y(k,26) + rxt(k,195)*y(k,3)) + mat(k,198) = -(rxt(k,127) + rxt(k,128) + rxt(k,129)) * y(k,52) + mat(k,638) = -(rxt(k,131) + rxt(k,133)) * y(k,52) + mat(k,599) = -rxt(k,132)*y(k,52) + mat(k,324) = -rxt(k,144)*y(k,52) + mat(k,506) = -rxt(k,145)*y(k,52) + mat(k,537) = -rxt(k,146)*y(k,52) + mat(k,462) = -rxt(k,164)*y(k,52) + mat(k,485) = -rxt(k,195)*y(k,52) + mat(k,485) = mat(k,485) + rxt(k,194)*y(k,51) + mat(k,556) = rxt(k,234)*y(k,51) + mat(k,462) = mat(k,462) + rxt(k,162)*y(k,51) mat(k,43) = rxt(k,123)*y(k,69) - mat(k,346) = rxt(k,194)*y(k,2) + rxt(k,234)*y(k,18) + rxt(k,162)*y(k,24) & - + rxt(k,139)*y(k,43) + 2.000_r8*rxt(k,135)*y(k,52) + rxt(k,141) & - *y(k,53) + rxt(k,140)*y(k,55) - mat(k,324) = mat(k,324) + rxt(k,134)*y(k,43) + 2.000_r8*rxt(k,135)*y(k,50) & - + rxt(k,136)*y(k,53) + rxt(k,137)*y(k,69) - mat(k,604) = mat(k,604) + rxt(k,141)*y(k,50) + rxt(k,136)*y(k,52) - mat(k,642) = mat(k,642) + rxt(k,140)*y(k,50) - mat(k,540) = mat(k,540) + rxt(k,123)*y(k,44) + rxt(k,137)*y(k,52) - mat(k,316) = -(rxt(k,134)*y(k,43) + rxt(k,135)*y(k,50) + rxt(k,136)*y(k,53) & - + rxt(k,137)*y(k,69) + rxt(k,145)*y(k,51) + rxt(k,230)*y(k,14)) - mat(k,557) = -rxt(k,134)*y(k,52) - mat(k,338) = -rxt(k,135)*y(k,52) - mat(k,596) = -rxt(k,136)*y(k,52) - mat(k,532) = -rxt(k,137)*y(k,52) - mat(k,501) = -rxt(k,145)*y(k,52) - mat(k,284) = -rxt(k,230)*y(k,52) - mat(k,62) = rxt(k,196)*y(k,53) - mat(k,208) = rxt(k,165)*y(k,53) + rxt(k,163)*y(k,59) + rxt(k,166)*y(k,69) - mat(k,106) = rxt(k,210)*y(k,42) - mat(k,219) = rxt(k,210)*y(k,31) + rxt(k,147)*y(k,69) - mat(k,501) = mat(k,501) + rxt(k,133)*y(k,53) + rxt(k,132)*y(k,55) - mat(k,596) = mat(k,596) + rxt(k,196)*y(k,3) + rxt(k,165)*y(k,25) + rxt(k,133) & - *y(k,51) - mat(k,634) = rxt(k,132)*y(k,51) - mat(k,386) = rxt(k,163)*y(k,25) - mat(k,532) = mat(k,532) + rxt(k,166)*y(k,25) + rxt(k,147)*y(k,42) - mat(k,607) = -(rxt(k,103)*y(k,55) + 4._r8*rxt(k,104)*y(k,53) + rxt(k,105) & - *y(k,54) + rxt(k,106)*y(k,33) + rxt(k,107)*y(k,35) + rxt(k,112) & - *y(k,43) + rxt(k,118)*y(k,69) + (rxt(k,131) + rxt(k,133) & - ) * y(k,51) + rxt(k,136)*y(k,52) + rxt(k,141)*y(k,50) + rxt(k,165) & - *y(k,25) + rxt(k,167)*y(k,24) + rxt(k,170)*y(k,40) + rxt(k,173) & - *y(k,46) + rxt(k,196)*y(k,3) + rxt(k,197)*y(k,2) + rxt(k,199) & - *y(k,36) + rxt(k,201)*y(k,45) + rxt(k,231)*y(k,14) + (rxt(k,270) & + mat(k,386) = rxt(k,194)*y(k,3) + rxt(k,234)*y(k,19) + rxt(k,162)*y(k,26) & + + 2.000_r8*rxt(k,135)*y(k,53) + rxt(k,141)*y(k,54) + rxt(k,140) & + *y(k,56) + rxt(k,139)*y(k,60) + mat(k,506) = mat(k,506) + 2.000_r8*rxt(k,135)*y(k,51) + rxt(k,136)*y(k,54) & + + rxt(k,134)*y(k,60) + rxt(k,137)*y(k,69) + mat(k,638) = mat(k,638) + rxt(k,141)*y(k,51) + rxt(k,136)*y(k,53) + mat(k,599) = mat(k,599) + rxt(k,140)*y(k,51) + mat(k,324) = mat(k,324) + rxt(k,139)*y(k,51) + rxt(k,134)*y(k,53) + mat(k,537) = mat(k,537) + rxt(k,123)*y(k,45) + rxt(k,137)*y(k,53) + mat(k,510) = -(rxt(k,134)*y(k,60) + rxt(k,135)*y(k,51) + rxt(k,136)*y(k,54) & + + rxt(k,137)*y(k,69) + rxt(k,145)*y(k,52) + rxt(k,230)*y(k,15)) + mat(k,328) = -rxt(k,134)*y(k,53) + mat(k,390) = -rxt(k,135)*y(k,53) + mat(k,642) = -rxt(k,136)*y(k,53) + mat(k,541) = -rxt(k,137)*y(k,53) + mat(k,415) = -rxt(k,145)*y(k,53) + mat(k,291) = -rxt(k,230)*y(k,53) + mat(k,65) = rxt(k,196)*y(k,54) + mat(k,585) = rxt(k,163)*y(k,27) + mat(k,210) = rxt(k,163)*y(k,23) + rxt(k,165)*y(k,54) + rxt(k,166)*y(k,69) + mat(k,107) = rxt(k,210)*y(k,44) + mat(k,221) = rxt(k,210)*y(k,33) + rxt(k,147)*y(k,69) + mat(k,415) = mat(k,415) + rxt(k,133)*y(k,54) + rxt(k,132)*y(k,56) + mat(k,642) = mat(k,642) + rxt(k,196)*y(k,4) + rxt(k,165)*y(k,27) + rxt(k,133) & + *y(k,52) + mat(k,603) = rxt(k,132)*y(k,52) + mat(k,541) = mat(k,541) + rxt(k,166)*y(k,27) + rxt(k,147)*y(k,44) + mat(k,647) = -(rxt(k,103)*y(k,56) + 4._r8*rxt(k,104)*y(k,54) + rxt(k,105) & + *y(k,55) + rxt(k,106)*y(k,35) + rxt(k,107)*y(k,37) + rxt(k,112) & + *y(k,60) + rxt(k,118)*y(k,69) + (rxt(k,131) + rxt(k,133) & + ) * y(k,52) + rxt(k,136)*y(k,53) + rxt(k,141)*y(k,51) + rxt(k,165) & + *y(k,27) + rxt(k,167)*y(k,26) + rxt(k,170)*y(k,42) + rxt(k,173) & + *y(k,47) + rxt(k,196)*y(k,4) + rxt(k,197)*y(k,3) + rxt(k,199) & + *y(k,38) + rxt(k,201)*y(k,46) + rxt(k,231)*y(k,15) + (rxt(k,270) & + rxt(k,271)) * y(k,62) + rxt(k,272)*y(k,64)) - mat(k,645) = -rxt(k,103)*y(k,53) - mat(k,243) = -rxt(k,105)*y(k,53) - mat(k,627) = -rxt(k,106)*y(k,53) - mat(k,77) = -rxt(k,107)*y(k,53) - mat(k,568) = -rxt(k,112)*y(k,53) - mat(k,543) = -rxt(k,118)*y(k,53) - mat(k,512) = -(rxt(k,131) + rxt(k,133)) * y(k,53) - mat(k,327) = -rxt(k,136)*y(k,53) - mat(k,349) = -rxt(k,141)*y(k,53) - mat(k,213) = -rxt(k,165)*y(k,53) - mat(k,423) = -rxt(k,167)*y(k,53) - mat(k,275) = -rxt(k,170)*y(k,53) - mat(k,117) = -rxt(k,173)*y(k,53) - mat(k,66) = -rxt(k,196)*y(k,53) - mat(k,372) = -rxt(k,197)*y(k,53) - mat(k,125) = -rxt(k,199)*y(k,53) - mat(k,100) = -rxt(k,201)*y(k,53) - mat(k,294) = -rxt(k,231)*y(k,53) - mat(k,86) = -(rxt(k,270) + rxt(k,271)) * y(k,53) - mat(k,134) = -rxt(k,272)*y(k,53) - mat(k,306) = rxt(k,110)*y(k,43) - mat(k,568) = mat(k,568) + rxt(k,110)*y(k,32) - mat(k,201) = rxt(k,126)*y(k,50) + rxt(k,127)*y(k,51) + rxt(k,130)*y(k,54) & + mat(k,608) = -rxt(k,103)*y(k,54) + mat(k,244) = -rxt(k,105)*y(k,54) + mat(k,373) = -rxt(k,106)*y(k,54) + mat(k,77) = -rxt(k,107)*y(k,54) + mat(k,333) = -rxt(k,112)*y(k,54) + mat(k,546) = -rxt(k,118)*y(k,54) + mat(k,420) = -(rxt(k,131) + rxt(k,133)) * y(k,54) + mat(k,515) = -rxt(k,136)*y(k,54) + mat(k,395) = -rxt(k,141)*y(k,54) + mat(k,213) = -rxt(k,165)*y(k,54) + mat(k,471) = -rxt(k,167)*y(k,54) + mat(k,276) = -rxt(k,170)*y(k,54) + mat(k,125) = -rxt(k,173)*y(k,54) + mat(k,66) = -rxt(k,196)*y(k,54) + mat(k,494) = -rxt(k,197)*y(k,54) + mat(k,117) = -rxt(k,199)*y(k,54) + mat(k,100) = -rxt(k,201)*y(k,54) + mat(k,295) = -rxt(k,231)*y(k,54) + mat(k,86) = -(rxt(k,270) + rxt(k,271)) * y(k,54) + mat(k,134) = -rxt(k,272)*y(k,54) + mat(k,308) = rxt(k,110)*y(k,60) + mat(k,201) = rxt(k,126)*y(k,51) + rxt(k,127)*y(k,52) + rxt(k,130)*y(k,55) & + rxt(k,275)*y(k,68) - mat(k,349) = mat(k,349) + rxt(k,126)*y(k,47) - mat(k,512) = mat(k,512) + rxt(k,127)*y(k,47) - mat(k,243) = mat(k,243) + rxt(k,130)*y(k,47) + rxt(k,274)*y(k,64) + ( & + mat(k,395) = mat(k,395) + rxt(k,126)*y(k,48) + mat(k,420) = mat(k,420) + rxt(k,127)*y(k,48) + mat(k,244) = mat(k,244) + rxt(k,130)*y(k,48) + rxt(k,274)*y(k,64) + ( & + rxt(k,92)+rxt(k,93))*y(k,65) + rxt(k,281)*y(k,70) + rxt(k,285) & *y(k,71) mat(k,173) = rxt(k,266)*y(k,63) + 1.150_r8*rxt(k,267)*y(k,68) + mat(k,333) = mat(k,333) + rxt(k,110)*y(k,34) mat(k,186) = rxt(k,280)*y(k,70) - mat(k,91) = rxt(k,266)*y(k,60) - mat(k,134) = mat(k,134) + rxt(k,274)*y(k,54) - mat(k,448) = (rxt(k,92)+rxt(k,93))*y(k,54) - mat(k,156) = rxt(k,275)*y(k,47) + 1.150_r8*rxt(k,267)*y(k,60) - mat(k,543) = mat(k,543) + 2.000_r8*rxt(k,120)*y(k,69) - mat(k,147) = rxt(k,281)*y(k,54) + rxt(k,280)*y(k,61) - mat(k,58) = rxt(k,285)*y(k,54) - mat(k,236) = -(rxt(k,92)*y(k,65) + rxt(k,97)*y(k,66) + rxt(k,105)*y(k,53) & - + rxt(k,111)*y(k,32) + rxt(k,125)*y(k,61) + rxt(k,130)*y(k,47) & + mat(k,91) = rxt(k,266)*y(k,59) + mat(k,134) = mat(k,134) + rxt(k,274)*y(k,55) + mat(k,445) = (rxt(k,92)+rxt(k,93))*y(k,55) + mat(k,156) = rxt(k,275)*y(k,48) + 1.150_r8*rxt(k,267)*y(k,59) + mat(k,546) = mat(k,546) + 2.000_r8*rxt(k,120)*y(k,69) + mat(k,147) = rxt(k,281)*y(k,55) + rxt(k,280)*y(k,61) + mat(k,58) = rxt(k,285)*y(k,55) + mat(k,236) = -(rxt(k,92)*y(k,65) + rxt(k,97)*y(k,66) + rxt(k,105)*y(k,54) & + + rxt(k,111)*y(k,34) + rxt(k,125)*y(k,61) + rxt(k,130)*y(k,48) & + rxt(k,269)*y(k,62) + (rxt(k,273) + rxt(k,274)) * y(k,64) & + rxt(k,281)*y(k,70) + rxt(k,285)*y(k,71)) - mat(k,432) = -rxt(k,92)*y(k,54) - mat(k,11) = -rxt(k,97)*y(k,54) - mat(k,591) = -rxt(k,105)*y(k,54) - mat(k,296) = -rxt(k,111)*y(k,54) - mat(k,180) = -rxt(k,125)*y(k,54) - mat(k,194) = -rxt(k,130)*y(k,54) - mat(k,85) = -rxt(k,269)*y(k,54) - mat(k,133) = -(rxt(k,273) + rxt(k,274)) * y(k,54) - mat(k,143) = -rxt(k,281)*y(k,54) - mat(k,57) = -rxt(k,285)*y(k,54) - mat(k,357) = 2.000_r8*rxt(k,189)*y(k,2) + (rxt(k,191)+rxt(k,192))*y(k,24) & - + rxt(k,193)*y(k,43) + rxt(k,197)*y(k,53) - mat(k,472) = rxt(k,233)*y(k,43) - mat(k,407) = (rxt(k,191)+rxt(k,192))*y(k,2) + (2.000_r8*rxt(k,158) & - +2.000_r8*rxt(k,159))*y(k,24) + rxt(k,161)*y(k,43) + rxt(k,167) & - *y(k,53) + rxt(k,169)*y(k,69) - mat(k,296) = mat(k,296) + rxt(k,108)*y(k,43) + rxt(k,114)*y(k,55) - mat(k,552) = rxt(k,193)*y(k,2) + rxt(k,233)*y(k,18) + rxt(k,161)*y(k,24) & - + rxt(k,108)*y(k,32) + 2.000_r8*rxt(k,122)*y(k,43) + rxt(k,134) & - *y(k,52) + rxt(k,112)*y(k,53) + 2.000_r8*rxt(k,113)*y(k,55) & - + rxt(k,187)*y(k,58) + rxt(k,154)*y(k,59) + rxt(k,117)*y(k,69) + mat(k,427) = -rxt(k,92)*y(k,55) + mat(k,11) = -rxt(k,97)*y(k,55) + mat(k,629) = -rxt(k,105)*y(k,55) + mat(k,296) = -rxt(k,111)*y(k,55) + mat(k,180) = -rxt(k,125)*y(k,55) + mat(k,194) = -rxt(k,130)*y(k,55) + mat(k,85) = -rxt(k,269)*y(k,55) + mat(k,133) = -(rxt(k,273) + rxt(k,274)) * y(k,55) + mat(k,143) = -rxt(k,281)*y(k,55) + mat(k,57) = -rxt(k,285)*y(k,55) + mat(k,336) = rxt(k,188)*y(k,56) + rxt(k,187)*y(k,60) + mat(k,477) = 2.000_r8*rxt(k,189)*y(k,3) + (rxt(k,191)+rxt(k,192))*y(k,26) & + + rxt(k,197)*y(k,54) + rxt(k,193)*y(k,60) + mat(k,548) = rxt(k,233)*y(k,60) + mat(k,572) = rxt(k,156)*y(k,56) + rxt(k,154)*y(k,60) + mat(k,453) = (rxt(k,191)+rxt(k,192))*y(k,3) + (2.000_r8*rxt(k,158) & + +2.000_r8*rxt(k,159))*y(k,26) + rxt(k,167)*y(k,54) + rxt(k,161) & + *y(k,60) + rxt(k,169)*y(k,69) + mat(k,296) = mat(k,296) + rxt(k,114)*y(k,56) + rxt(k,108)*y(k,60) mat(k,40) = rxt(k,123)*y(k,69) - mat(k,194) = mat(k,194) + rxt(k,129)*y(k,51) - mat(k,335) = rxt(k,140)*y(k,55) + rxt(k,277)*y(k,68) - mat(k,497) = rxt(k,129)*y(k,47) + rxt(k,131)*y(k,53) + rxt(k,132)*y(k,55) - mat(k,312) = rxt(k,134)*y(k,43) + rxt(k,136)*y(k,53) - mat(k,591) = mat(k,591) + rxt(k,197)*y(k,2) + rxt(k,167)*y(k,24) + rxt(k,112) & - *y(k,43) + rxt(k,131)*y(k,51) + rxt(k,136)*y(k,52) & - + 2.000_r8*rxt(k,104)*y(k,53) + 2.000_r8*rxt(k,103)*y(k,55) & - + rxt(k,96)*y(k,66) + rxt(k,118)*y(k,69) + mat(k,194) = mat(k,194) + rxt(k,129)*y(k,52) + mat(k,379) = rxt(k,140)*y(k,56) + rxt(k,277)*y(k,68) + mat(k,403) = rxt(k,129)*y(k,48) + rxt(k,131)*y(k,54) + rxt(k,132)*y(k,56) + mat(k,498) = rxt(k,136)*y(k,54) + rxt(k,134)*y(k,60) + mat(k,629) = mat(k,629) + rxt(k,197)*y(k,3) + rxt(k,167)*y(k,26) + rxt(k,131) & + *y(k,52) + rxt(k,136)*y(k,53) + 2.000_r8*rxt(k,104)*y(k,54) & + + 2.000_r8*rxt(k,103)*y(k,56) + rxt(k,112)*y(k,60) + rxt(k,96) & + *y(k,66) + rxt(k,118)*y(k,69) mat(k,236) = mat(k,236) + 2.000_r8*rxt(k,97)*y(k,66) - mat(k,632) = rxt(k,114)*y(k,32) + 2.000_r8*rxt(k,113)*y(k,43) + rxt(k,140) & - *y(k,50) + rxt(k,132)*y(k,51) + 2.000_r8*rxt(k,103)*y(k,53) & - + rxt(k,188)*y(k,58) + rxt(k,156)*y(k,59) + 2.000_r8*rxt(k,94) & + mat(k,593) = rxt(k,188)*y(k,1) + rxt(k,156)*y(k,23) + rxt(k,114)*y(k,34) & + + rxt(k,140)*y(k,51) + rxt(k,132)*y(k,52) + 2.000_r8*rxt(k,103) & + *y(k,54) + 2.000_r8*rxt(k,113)*y(k,60) + 2.000_r8*rxt(k,94) & *y(k,65) + rxt(k,119)*y(k,69) - mat(k,453) = rxt(k,187)*y(k,43) + rxt(k,188)*y(k,55) - mat(k,381) = rxt(k,154)*y(k,43) + rxt(k,156)*y(k,55) - mat(k,432) = mat(k,432) + 2.000_r8*rxt(k,94)*y(k,55) - mat(k,11) = mat(k,11) + rxt(k,96)*y(k,53) + 2.000_r8*rxt(k,97)*y(k,54) - mat(k,153) = rxt(k,277)*y(k,50) - mat(k,527) = rxt(k,169)*y(k,24) + rxt(k,117)*y(k,43) + rxt(k,123)*y(k,44) & - + rxt(k,118)*y(k,53) + rxt(k,119)*y(k,55) - mat(k,647) = -(rxt(k,94)*y(k,65) + rxt(k,103)*y(k,53) + rxt(k,113)*y(k,43) & - + rxt(k,114)*y(k,32) + rxt(k,119)*y(k,69) + rxt(k,132)*y(k,51) & - + rxt(k,140)*y(k,50) + rxt(k,156)*y(k,59) + rxt(k,188)*y(k,58)) - mat(k,450) = -rxt(k,94)*y(k,55) - mat(k,609) = -rxt(k,103)*y(k,55) - mat(k,570) = -rxt(k,113)*y(k,55) - mat(k,308) = -rxt(k,114)*y(k,55) - mat(k,545) = -rxt(k,119)*y(k,55) - mat(k,514) = -rxt(k,132)*y(k,55) - mat(k,351) = -rxt(k,140)*y(k,55) - mat(k,399) = -rxt(k,156)*y(k,55) - mat(k,470) = -rxt(k,188)*y(k,55) - mat(k,609) = mat(k,609) + rxt(k,105)*y(k,54) - mat(k,244) = rxt(k,105)*y(k,53) + mat(k,315) = rxt(k,187)*y(k,1) + rxt(k,193)*y(k,3) + rxt(k,233)*y(k,19) & + + rxt(k,154)*y(k,23) + rxt(k,161)*y(k,26) + rxt(k,108)*y(k,34) & + + rxt(k,134)*y(k,53) + rxt(k,112)*y(k,54) + 2.000_r8*rxt(k,113) & + *y(k,56) + 2.000_r8*rxt(k,122)*y(k,60) + rxt(k,117)*y(k,69) + mat(k,427) = mat(k,427) + 2.000_r8*rxt(k,94)*y(k,56) + mat(k,11) = mat(k,11) + rxt(k,96)*y(k,54) + 2.000_r8*rxt(k,97)*y(k,55) + mat(k,153) = rxt(k,277)*y(k,51) + mat(k,528) = rxt(k,169)*y(k,26) + rxt(k,123)*y(k,45) + rxt(k,118)*y(k,54) & + + rxt(k,119)*y(k,56) + rxt(k,117)*y(k,60) + mat(k,607) = -(rxt(k,94)*y(k,65) + rxt(k,103)*y(k,54) + rxt(k,113)*y(k,60) & + + rxt(k,114)*y(k,34) + rxt(k,119)*y(k,69) + rxt(k,132)*y(k,52) & + + rxt(k,140)*y(k,51) + rxt(k,156)*y(k,23) + rxt(k,188)*y(k,1)) + mat(k,444) = -rxt(k,94)*y(k,56) + mat(k,646) = -rxt(k,103)*y(k,56) + mat(k,332) = -rxt(k,113)*y(k,56) + mat(k,307) = -rxt(k,114)*y(k,56) + mat(k,545) = -rxt(k,119)*y(k,56) + mat(k,419) = -rxt(k,132)*y(k,56) + mat(k,394) = -rxt(k,140)*y(k,56) + mat(k,589) = -rxt(k,156)*y(k,56) + mat(k,352) = -rxt(k,188)*y(k,56) + mat(k,646) = mat(k,646) + rxt(k,105)*y(k,55) + mat(k,243) = rxt(k,105)*y(k,54) end do end subroutine nlnmat02 subroutine nlnmat03( avec_len, mat, y, rxt ) @@ -477,201 +474,204 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,352) = rxt(k,190)*y(k,24) - mat(k,401) = rxt(k,190)*y(k,2) + 2.000_r8*rxt(k,160)*y(k,24) - mat(k,463) = -(rxt(k,186)*y(k,14) + rxt(k,187)*y(k,43) + rxt(k,188)*y(k,55)) - mat(k,289) = -rxt(k,186)*y(k,58) - mat(k,563) = -rxt(k,187)*y(k,58) - mat(k,640) = -rxt(k,188)*y(k,58) - mat(k,367) = 4.000_r8*rxt(k,189)*y(k,2) + (rxt(k,190)+rxt(k,191))*y(k,24) & - + rxt(k,194)*y(k,50) + rxt(k,197)*y(k,53) + rxt(k,198)*y(k,69) - mat(k,418) = (rxt(k,190)+rxt(k,191))*y(k,2) - mat(k,123) = rxt(k,199)*y(k,53) + rxt(k,205)*y(k,65) + rxt(k,200)*y(k,69) - mat(k,344) = rxt(k,194)*y(k,2) - mat(k,602) = rxt(k,197)*y(k,2) + rxt(k,199)*y(k,36) - mat(k,443) = rxt(k,205)*y(k,36) - mat(k,538) = rxt(k,198)*y(k,2) + rxt(k,200)*y(k,36) - mat(k,389) = -(rxt(k,150)*y(k,14) + rxt(k,152)*y(k,33) + rxt(k,153)*y(k,35) & - + (rxt(k,154) + rxt(k,155)) * y(k,43) + rxt(k,156)*y(k,55) & - + rxt(k,163)*y(k,25) + rxt(k,172)*y(k,46)) - mat(k,286) = -rxt(k,150)*y(k,59) - mat(k,619) = -rxt(k,152)*y(k,59) - mat(k,74) = -rxt(k,153)*y(k,59) - mat(k,560) = -(rxt(k,154) + rxt(k,155)) * y(k,59) - mat(k,637) = -rxt(k,156)*y(k,59) - mat(k,209) = -rxt(k,163)*y(k,59) - mat(k,114) = -rxt(k,172)*y(k,59) - mat(k,364) = rxt(k,191)*y(k,24) - mat(k,479) = rxt(k,157)*y(k,24) - mat(k,415) = rxt(k,191)*y(k,2) + rxt(k,157)*y(k,18) + (4.000_r8*rxt(k,158) & - +2.000_r8*rxt(k,160))*y(k,24) + rxt(k,162)*y(k,50) + rxt(k,167) & - *y(k,53) + rxt(k,168)*y(k,69) - mat(k,19) = rxt(k,212)*y(k,65) - mat(k,268) = rxt(k,170)*y(k,53) + rxt(k,182)*y(k,65) + rxt(k,171)*y(k,69) - mat(k,341) = rxt(k,162)*y(k,24) - mat(k,599) = rxt(k,167)*y(k,24) + rxt(k,170)*y(k,40) - mat(k,440) = rxt(k,212)*y(k,30) + rxt(k,182)*y(k,40) - mat(k,535) = rxt(k,168)*y(k,24) + rxt(k,171)*y(k,40) + mat(k,472) = rxt(k,190)*y(k,26) + mat(k,447) = rxt(k,190)*y(k,3) + 2.000_r8*rxt(k,160)*y(k,26) mat(k,164) = -(rxt(k,266)*y(k,63) + rxt(k,267)*y(k,68) + rxt(k,268)*y(k,62)) - mat(k,88) = -rxt(k,266)*y(k,60) - mat(k,150) = -rxt(k,267)*y(k,60) - mat(k,82) = -rxt(k,268)*y(k,60) - mat(k,178) = -(rxt(k,124)*y(k,53) + rxt(k,125)*y(k,54) + rxt(k,280)*y(k,70)) - mat(k,587) = -rxt(k,124)*y(k,61) + mat(k,88) = -rxt(k,266)*y(k,59) + mat(k,150) = -rxt(k,267)*y(k,59) + mat(k,82) = -rxt(k,268)*y(k,59) + mat(k,320) = -((rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,34) + rxt(k,112) & + *y(k,54) + rxt(k,113)*y(k,56) + rxt(k,117)*y(k,69) & + + 4._r8*rxt(k,122)*y(k,60) + rxt(k,134)*y(k,53) + rxt(k,139) & + *y(k,51) + rxt(k,144)*y(k,52) + (rxt(k,154) + rxt(k,155) & + ) * y(k,23) + rxt(k,161)*y(k,26) + rxt(k,187)*y(k,1) + rxt(k,193) & + *y(k,3) + rxt(k,233)*y(k,19)) + mat(k,299) = -(rxt(k,108) + rxt(k,109) + rxt(k,110)) * y(k,60) + mat(k,634) = -rxt(k,112)*y(k,60) + mat(k,595) = -rxt(k,113)*y(k,60) + mat(k,533) = -rxt(k,117)*y(k,60) + mat(k,502) = -rxt(k,134)*y(k,60) + mat(k,382) = -rxt(k,139)*y(k,60) + mat(k,407) = -rxt(k,144)*y(k,60) + mat(k,577) = -(rxt(k,154) + rxt(k,155)) * y(k,60) + mat(k,458) = -rxt(k,161)*y(k,60) + mat(k,340) = -rxt(k,187)*y(k,60) + mat(k,481) = -rxt(k,193)*y(k,60) + mat(k,552) = -rxt(k,233)*y(k,60) + mat(k,340) = mat(k,340) + rxt(k,186)*y(k,15) + mat(k,481) = mat(k,481) + rxt(k,198)*y(k,69) + mat(k,284) = rxt(k,186)*y(k,1) + rxt(k,150)*y(k,23) + rxt(k,230)*y(k,53) & + + rxt(k,231)*y(k,54) + mat(k,552) = mat(k,552) + rxt(k,157)*y(k,26) + rxt(k,234)*y(k,51) + mat(k,577) = mat(k,577) + rxt(k,150)*y(k,15) + rxt(k,153)*y(k,37) + mat(k,458) = mat(k,458) + rxt(k,157)*y(k,19) + rxt(k,168)*y(k,69) + mat(k,69) = rxt(k,237)*y(k,69) + mat(k,299) = mat(k,299) + rxt(k,111)*y(k,55) + mat(k,74) = rxt(k,153)*y(k,23) + rxt(k,107)*y(k,54) + rxt(k,116)*y(k,69) + mat(k,382) = mat(k,382) + rxt(k,234)*y(k,19) + mat(k,502) = mat(k,502) + rxt(k,230)*y(k,15) + rxt(k,137)*y(k,69) + mat(k,634) = mat(k,634) + rxt(k,231)*y(k,15) + rxt(k,107)*y(k,37) + mat(k,238) = rxt(k,111)*y(k,34) + mat(k,595) = mat(k,595) + rxt(k,119)*y(k,69) + mat(k,533) = mat(k,533) + rxt(k,198)*y(k,3) + rxt(k,168)*y(k,26) + rxt(k,237) & + *y(k,29) + rxt(k,116)*y(k,37) + rxt(k,137)*y(k,53) + rxt(k,119) & + *y(k,56) + mat(k,178) = -(rxt(k,124)*y(k,54) + rxt(k,125)*y(k,55) + rxt(k,280)*y(k,70)) + mat(k,625) = -rxt(k,124)*y(k,61) mat(k,234) = -rxt(k,125)*y(k,61) mat(k,141) = -rxt(k,280)*y(k,61) - mat(k,587) = mat(k,587) + rxt(k,270)*y(k,62) + mat(k,625) = mat(k,625) + rxt(k,270)*y(k,62) mat(k,165) = .900_r8*rxt(k,268)*y(k,62) + .800_r8*rxt(k,266)*y(k,63) - mat(k,83) = rxt(k,270)*y(k,53) + .900_r8*rxt(k,268)*y(k,60) - mat(k,89) = .800_r8*rxt(k,266)*y(k,60) - mat(k,78) = -(rxt(k,268)*y(k,60) + rxt(k,269)*y(k,54) + (rxt(k,270) + rxt(k,271) & - ) * y(k,53)) + mat(k,83) = rxt(k,270)*y(k,54) + .900_r8*rxt(k,268)*y(k,59) + mat(k,89) = .800_r8*rxt(k,266)*y(k,59) + mat(k,78) = -(rxt(k,268)*y(k,59) + rxt(k,269)*y(k,55) + (rxt(k,270) + rxt(k,271) & + ) * y(k,54)) mat(k,159) = -rxt(k,268)*y(k,62) mat(k,228) = -rxt(k,269)*y(k,62) - mat(k,578) = -(rxt(k,270) + rxt(k,271)) * y(k,62) - mat(k,87) = -(rxt(k,266)*y(k,60)) + mat(k,616) = -(rxt(k,270) + rxt(k,271)) * y(k,62) + mat(k,87) = -(rxt(k,266)*y(k,59)) mat(k,160) = -rxt(k,266)*y(k,63) mat(k,187) = rxt(k,275)*y(k,68) - mat(k,330) = rxt(k,277)*y(k,68) - mat(k,579) = rxt(k,270)*y(k,62) + mat(k,374) = rxt(k,277)*y(k,68) + mat(k,617) = rxt(k,270)*y(k,62) mat(k,229) = rxt(k,274)*y(k,64) - mat(k,79) = rxt(k,270)*y(k,53) - mat(k,126) = rxt(k,274)*y(k,54) - mat(k,148) = rxt(k,275)*y(k,47) + rxt(k,277)*y(k,50) - mat(k,127) = -(rxt(k,272)*y(k,53) + (rxt(k,273) + rxt(k,274)) * y(k,54)) - mat(k,583) = -rxt(k,272)*y(k,64) + mat(k,79) = rxt(k,270)*y(k,54) + mat(k,126) = rxt(k,274)*y(k,55) + mat(k,148) = rxt(k,275)*y(k,48) + rxt(k,277)*y(k,51) + mat(k,127) = -(rxt(k,272)*y(k,54) + (rxt(k,273) + rxt(k,274)) * y(k,55)) + mat(k,621) = -rxt(k,272)*y(k,64) mat(k,230) = -(rxt(k,273) + rxt(k,274)) * y(k,64) mat(k,174) = rxt(k,280)*y(k,70) mat(k,137) = rxt(k,280)*y(k,61) - mat(k,442) = -(rxt(k,89)*y(k,33) + rxt(k,90)*y(k,73) + (rxt(k,92) + rxt(k,93) & - ) * y(k,54) + rxt(k,94)*y(k,55) + (rxt(k,182) + rxt(k,183) & - ) * y(k,40) + (rxt(k,205) + rxt(k,206)) * y(k,36) + rxt(k,211) & - *y(k,29) + rxt(k,212)*y(k,30)) - mat(k,621) = -rxt(k,89)*y(k,65) - mat(k,251) = -rxt(k,90)*y(k,65) - mat(k,239) = -(rxt(k,92) + rxt(k,93)) * y(k,65) - mat(k,639) = -rxt(k,94)*y(k,65) - mat(k,270) = -(rxt(k,182) + rxt(k,183)) * y(k,65) - mat(k,122) = -(rxt(k,205) + rxt(k,206)) * y(k,65) + mat(k,437) = -(rxt(k,89)*y(k,35) + rxt(k,90)*y(k,73) + (rxt(k,92) + rxt(k,93) & + ) * y(k,55) + rxt(k,94)*y(k,56) + (rxt(k,182) + rxt(k,183) & + ) * y(k,42) + (rxt(k,205) + rxt(k,206)) * y(k,38) + rxt(k,211) & + *y(k,31) + rxt(k,212)*y(k,32)) + mat(k,365) = -rxt(k,89)*y(k,65) + mat(k,252) = -rxt(k,90)*y(k,65) + mat(k,241) = -(rxt(k,92) + rxt(k,93)) * y(k,65) + mat(k,600) = -rxt(k,94)*y(k,65) + mat(k,269) = -(rxt(k,182) + rxt(k,183)) * y(k,65) + mat(k,114) = -(rxt(k,205) + rxt(k,206)) * y(k,65) mat(k,6) = -rxt(k,211)*y(k,65) - mat(k,20) = -rxt(k,212)*y(k,65) - mat(k,239) = mat(k,239) + rxt(k,125)*y(k,61) - mat(k,170) = .850_r8*rxt(k,267)*y(k,68) - mat(k,183) = rxt(k,125)*y(k,54) - mat(k,155) = .850_r8*rxt(k,267)*y(k,60) - mat(k,10) = -(rxt(k,96)*y(k,53) + rxt(k,97)*y(k,54)) - mat(k,571) = -rxt(k,96)*y(k,66) + mat(k,19) = -rxt(k,212)*y(k,65) + mat(k,241) = mat(k,241) + rxt(k,125)*y(k,61) + mat(k,171) = .850_r8*rxt(k,267)*y(k,68) + mat(k,184) = rxt(k,125)*y(k,55) + mat(k,155) = .850_r8*rxt(k,267)*y(k,59) + mat(k,10) = -(rxt(k,96)*y(k,54) + rxt(k,97)*y(k,55)) + mat(k,609) = -rxt(k,96)*y(k,66) mat(k,224) = -rxt(k,97)*y(k,66) - mat(k,571) = mat(k,571) + rxt(k,100)*y(k,67) + mat(k,609) = mat(k,609) + rxt(k,100)*y(k,67) mat(k,224) = mat(k,224) + rxt(k,101)*y(k,67) - mat(k,630) = rxt(k,102)*y(k,67) - mat(k,12) = rxt(k,100)*y(k,53) + rxt(k,101)*y(k,54) + rxt(k,102)*y(k,55) - mat(k,13) = -(rxt(k,100)*y(k,53) + rxt(k,101)*y(k,54) + rxt(k,102)*y(k,55)) - mat(k,572) = -rxt(k,100)*y(k,67) + mat(k,591) = rxt(k,102)*y(k,67) + mat(k,12) = rxt(k,100)*y(k,54) + rxt(k,101)*y(k,55) + rxt(k,102)*y(k,56) + mat(k,13) = -(rxt(k,100)*y(k,54) + rxt(k,101)*y(k,55) + rxt(k,102)*y(k,56)) + mat(k,610) = -rxt(k,100)*y(k,67) mat(k,225) = -rxt(k,101)*y(k,67) - mat(k,631) = -rxt(k,102)*y(k,67) + mat(k,592) = -rxt(k,102)*y(k,67) mat(k,225) = mat(k,225) + rxt(k,92)*y(k,65) - mat(k,427) = rxt(k,92)*y(k,54) - mat(k,149) = -(rxt(k,267)*y(k,60) + rxt(k,275)*y(k,47) + rxt(k,277)*y(k,50)) + mat(k,422) = rxt(k,92)*y(k,55) + mat(k,149) = -(rxt(k,267)*y(k,59) + rxt(k,275)*y(k,48) + rxt(k,277)*y(k,51)) mat(k,163) = -rxt(k,267)*y(k,68) mat(k,190) = -rxt(k,275)*y(k,68) - mat(k,331) = -rxt(k,277)*y(k,68) + mat(k,375) = -rxt(k,277)*y(k,68) mat(k,232) = rxt(k,269)*y(k,62) + rxt(k,273)*y(k,64) + rxt(k,281)*y(k,70) & + rxt(k,285)*y(k,71) - mat(k,81) = rxt(k,269)*y(k,54) - mat(k,129) = rxt(k,273)*y(k,54) - mat(k,139) = rxt(k,281)*y(k,54) - mat(k,56) = rxt(k,285)*y(k,54) - mat(k,541) = -(rxt(k,115)*y(k,33) + rxt(k,116)*y(k,35) + rxt(k,117)*y(k,43) & - + rxt(k,118)*y(k,53) + rxt(k,119)*y(k,55) + (4._r8*rxt(k,120) & - + 4._r8*rxt(k,121)) * y(k,69) + rxt(k,123)*y(k,44) + rxt(k,137) & - *y(k,52) + rxt(k,138)*y(k,47) + rxt(k,146)*y(k,51) + rxt(k,147) & - *y(k,42) + rxt(k,166)*y(k,25) + (rxt(k,168) + rxt(k,169) & - ) * y(k,24) + rxt(k,171)*y(k,40) + rxt(k,174)*y(k,46) + rxt(k,198) & - *y(k,2) + rxt(k,200)*y(k,36) + rxt(k,232)*y(k,14) + rxt(k,235) & - *y(k,19) + (rxt(k,237) + rxt(k,241)) * y(k,27)) - mat(k,625) = -rxt(k,115)*y(k,69) + mat(k,81) = rxt(k,269)*y(k,55) + mat(k,129) = rxt(k,273)*y(k,55) + mat(k,139) = rxt(k,281)*y(k,55) + mat(k,56) = rxt(k,285)*y(k,55) + mat(k,542) = -(rxt(k,115)*y(k,35) + rxt(k,116)*y(k,37) + rxt(k,117)*y(k,60) & + + rxt(k,118)*y(k,54) + rxt(k,119)*y(k,56) + (4._r8*rxt(k,120) & + + 4._r8*rxt(k,121)) * y(k,69) + rxt(k,123)*y(k,45) + rxt(k,137) & + *y(k,53) + rxt(k,138)*y(k,48) + rxt(k,146)*y(k,52) + rxt(k,147) & + *y(k,44) + rxt(k,166)*y(k,27) + (rxt(k,168) + rxt(k,169) & + ) * y(k,26) + rxt(k,171)*y(k,42) + rxt(k,174)*y(k,47) + rxt(k,198) & + *y(k,3) + rxt(k,200)*y(k,38) + rxt(k,232)*y(k,15) + rxt(k,235) & + *y(k,20) + (rxt(k,237) + rxt(k,241)) * y(k,29)) + mat(k,369) = -rxt(k,115)*y(k,69) mat(k,75) = -rxt(k,116)*y(k,69) - mat(k,566) = -rxt(k,117)*y(k,69) - mat(k,605) = -rxt(k,118)*y(k,69) - mat(k,643) = -rxt(k,119)*y(k,69) - mat(k,44) = -rxt(k,123)*y(k,69) - mat(k,325) = -rxt(k,137)*y(k,69) - mat(k,199) = -rxt(k,138)*y(k,69) - mat(k,510) = -rxt(k,146)*y(k,69) + mat(k,329) = -rxt(k,117)*y(k,69) + mat(k,643) = -rxt(k,118)*y(k,69) + mat(k,604) = -rxt(k,119)*y(k,69) + mat(k,45) = -rxt(k,123)*y(k,69) + mat(k,511) = -rxt(k,137)*y(k,69) + mat(k,200) = -rxt(k,138)*y(k,69) + mat(k,416) = -rxt(k,146)*y(k,69) mat(k,222) = -rxt(k,147)*y(k,69) - mat(k,212) = -rxt(k,166)*y(k,69) - mat(k,421) = -(rxt(k,168) + rxt(k,169)) * y(k,69) - mat(k,274) = -rxt(k,171)*y(k,69) - mat(k,116) = -rxt(k,174)*y(k,69) - mat(k,370) = -rxt(k,198)*y(k,69) - mat(k,124) = -rxt(k,200)*y(k,69) + mat(k,211) = -rxt(k,166)*y(k,69) + mat(k,467) = -(rxt(k,168) + rxt(k,169)) * y(k,69) + mat(k,273) = -rxt(k,171)*y(k,69) + mat(k,123) = -rxt(k,174)*y(k,69) + mat(k,490) = -rxt(k,198)*y(k,69) + mat(k,116) = -rxt(k,200)*y(k,69) mat(k,292) = -rxt(k,232)*y(k,69) - mat(k,38) = -rxt(k,235)*y(k,69) - mat(k,69) = -(rxt(k,237) + rxt(k,241)) * y(k,69) - mat(k,292) = mat(k,292) + rxt(k,231)*y(k,53) - mat(k,38) = mat(k,38) + .300_r8*rxt(k,235)*y(k,69) + mat(k,37) = -rxt(k,235)*y(k,69) + mat(k,70) = -(rxt(k,237) + rxt(k,241)) * y(k,69) + mat(k,292) = mat(k,292) + rxt(k,231)*y(k,54) + mat(k,37) = mat(k,37) + .300_r8*rxt(k,235)*y(k,69) + mat(k,586) = rxt(k,155)*y(k,60) mat(k,108) = rxt(k,209)*y(k,73) - mat(k,304) = 2.000_r8*rxt(k,109)*y(k,43) + rxt(k,114)*y(k,55) - mat(k,625) = mat(k,625) + rxt(k,106)*y(k,53) + rxt(k,89)*y(k,65) - mat(k,75) = mat(k,75) + rxt(k,107)*y(k,53) - mat(k,124) = mat(k,124) + rxt(k,199)*y(k,53) + rxt(k,205)*y(k,65) - mat(k,274) = mat(k,274) + rxt(k,170)*y(k,53) + rxt(k,182)*y(k,65) - mat(k,566) = mat(k,566) + 2.000_r8*rxt(k,109)*y(k,32) + rxt(k,139)*y(k,50) & - + rxt(k,134)*y(k,52) + rxt(k,112)*y(k,53) + rxt(k,113)*y(k,55) & - + rxt(k,155)*y(k,59) - mat(k,99) = rxt(k,201)*y(k,53) - mat(k,116) = mat(k,116) + rxt(k,173)*y(k,53) - mat(k,347) = rxt(k,139)*y(k,43) - mat(k,325) = mat(k,325) + rxt(k,134)*y(k,43) - mat(k,605) = mat(k,605) + rxt(k,231)*y(k,14) + rxt(k,106)*y(k,33) & - + rxt(k,107)*y(k,35) + rxt(k,199)*y(k,36) + rxt(k,170)*y(k,40) & - + rxt(k,112)*y(k,43) + rxt(k,201)*y(k,45) + rxt(k,173)*y(k,46) - mat(k,643) = mat(k,643) + rxt(k,114)*y(k,32) + rxt(k,113)*y(k,43) - mat(k,395) = rxt(k,155)*y(k,43) - mat(k,446) = rxt(k,89)*y(k,33) + rxt(k,205)*y(k,36) + rxt(k,182)*y(k,40) & + mat(k,305) = rxt(k,114)*y(k,56) + 2.000_r8*rxt(k,109)*y(k,60) + mat(k,369) = mat(k,369) + rxt(k,106)*y(k,54) + rxt(k,89)*y(k,65) + mat(k,75) = mat(k,75) + rxt(k,107)*y(k,54) + mat(k,116) = mat(k,116) + rxt(k,199)*y(k,54) + rxt(k,205)*y(k,65) + mat(k,273) = mat(k,273) + rxt(k,170)*y(k,54) + rxt(k,182)*y(k,65) + mat(k,98) = rxt(k,201)*y(k,54) + mat(k,123) = mat(k,123) + rxt(k,173)*y(k,54) + mat(k,391) = rxt(k,139)*y(k,60) + mat(k,511) = mat(k,511) + rxt(k,134)*y(k,60) + mat(k,643) = mat(k,643) + rxt(k,231)*y(k,15) + rxt(k,106)*y(k,35) & + + rxt(k,107)*y(k,37) + rxt(k,199)*y(k,38) + rxt(k,170)*y(k,42) & + + rxt(k,201)*y(k,46) + rxt(k,173)*y(k,47) + rxt(k,112)*y(k,60) + mat(k,604) = mat(k,604) + rxt(k,114)*y(k,34) + rxt(k,113)*y(k,60) + mat(k,329) = mat(k,329) + rxt(k,155)*y(k,23) + 2.000_r8*rxt(k,109)*y(k,34) & + + rxt(k,139)*y(k,51) + rxt(k,134)*y(k,53) + rxt(k,112)*y(k,54) & + + rxt(k,113)*y(k,56) + mat(k,441) = rxt(k,89)*y(k,35) + rxt(k,205)*y(k,38) + rxt(k,182)*y(k,42) & + 2.000_r8*rxt(k,90)*y(k,73) - mat(k,541) = mat(k,541) + .300_r8*rxt(k,235)*y(k,19) - mat(k,254) = rxt(k,209)*y(k,31) + 2.000_r8*rxt(k,90)*y(k,65) - mat(k,138) = -(rxt(k,280)*y(k,61) + rxt(k,281)*y(k,54)) + mat(k,542) = mat(k,542) + .300_r8*rxt(k,235)*y(k,20) + mat(k,254) = rxt(k,209)*y(k,33) + 2.000_r8*rxt(k,90)*y(k,65) + mat(k,138) = -(rxt(k,280)*y(k,61) + rxt(k,281)*y(k,55)) mat(k,175) = -rxt(k,280)*y(k,70) mat(k,231) = -rxt(k,281)*y(k,70) - mat(k,584) = rxt(k,271)*y(k,62) + rxt(k,272)*y(k,64) + rxt(k,284)*y(k,71) & + mat(k,622) = rxt(k,271)*y(k,62) + rxt(k,272)*y(k,64) + rxt(k,284)*y(k,71) & + rxt(k,290)*y(k,72) mat(k,162) = rxt(k,282)*y(k,71) + rxt(k,287)*y(k,72) - mat(k,80) = rxt(k,271)*y(k,53) - mat(k,128) = rxt(k,272)*y(k,53) - mat(k,55) = rxt(k,284)*y(k,53) + rxt(k,282)*y(k,60) - mat(k,50) = rxt(k,290)*y(k,53) + rxt(k,287)*y(k,60) - mat(k,53) = -(rxt(k,282)*y(k,60) + rxt(k,284)*y(k,53) + rxt(k,285)*y(k,54)) + mat(k,80) = rxt(k,271)*y(k,54) + mat(k,128) = rxt(k,272)*y(k,54) + mat(k,55) = rxt(k,284)*y(k,54) + rxt(k,282)*y(k,59) + mat(k,50) = rxt(k,290)*y(k,54) + rxt(k,287)*y(k,59) + mat(k,53) = -(rxt(k,282)*y(k,59) + rxt(k,284)*y(k,54) + rxt(k,285)*y(k,55)) mat(k,158) = -rxt(k,282)*y(k,71) - mat(k,574) = -rxt(k,284)*y(k,71) + mat(k,612) = -rxt(k,284)*y(k,71) mat(k,227) = -rxt(k,285)*y(k,71) mat(k,158) = mat(k,158) + rxt(k,286)*y(k,72) - mat(k,47) = rxt(k,286)*y(k,60) - mat(k,46) = -((rxt(k,286) + rxt(k,287)) * y(k,60) + rxt(k,290)*y(k,53)) + mat(k,47) = rxt(k,286)*y(k,59) + mat(k,46) = -((rxt(k,286) + rxt(k,287)) * y(k,59) + rxt(k,290)*y(k,54)) mat(k,157) = -(rxt(k,286) + rxt(k,287)) * y(k,72) - mat(k,573) = -rxt(k,290)*y(k,72) - mat(k,248) = -(rxt(k,90)*y(k,65) + rxt(k,209)*y(k,31)) - mat(k,433) = -rxt(k,90)*y(k,73) + mat(k,611) = -rxt(k,290)*y(k,72) + mat(k,248) = -(rxt(k,90)*y(k,65) + rxt(k,209)*y(k,33)) + mat(k,428) = -rxt(k,90)*y(k,73) mat(k,104) = -rxt(k,209)*y(k,73) mat(k,280) = rxt(k,232)*y(k,69) mat(k,34) = rxt(k,235)*y(k,69) - mat(k,297) = rxt(k,110)*y(k,43) - mat(k,613) = rxt(k,115)*y(k,69) + mat(k,297) = rxt(k,110)*y(k,60) + mat(k,357) = rxt(k,115)*y(k,69) mat(k,72) = rxt(k,116)*y(k,69) - mat(k,119) = rxt(k,200)*y(k,69) - mat(k,263) = (rxt(k,254)+rxt(k,259))*y(k,45) + (rxt(k,247)+rxt(k,253) & - +rxt(k,258))*y(k,46) + rxt(k,171)*y(k,69) + mat(k,111) = rxt(k,200)*y(k,69) + mat(k,263) = (rxt(k,254)+rxt(k,259))*y(k,46) + (rxt(k,247)+rxt(k,253) & + +rxt(k,258))*y(k,47) + rxt(k,171)*y(k,69) mat(k,217) = rxt(k,147)*y(k,69) - mat(k,553) = rxt(k,110)*y(k,32) + rxt(k,117)*y(k,69) mat(k,41) = rxt(k,123)*y(k,69) - mat(k,94) = (rxt(k,254)+rxt(k,259))*y(k,40) - mat(k,112) = (rxt(k,247)+rxt(k,253)+rxt(k,258))*y(k,40) + rxt(k,174)*y(k,69) - mat(k,528) = rxt(k,232)*y(k,14) + rxt(k,235)*y(k,19) + rxt(k,115)*y(k,33) & - + rxt(k,116)*y(k,35) + rxt(k,200)*y(k,36) + rxt(k,171)*y(k,40) & - + rxt(k,147)*y(k,42) + rxt(k,117)*y(k,43) + rxt(k,123)*y(k,44) & - + rxt(k,174)*y(k,46) + 2.000_r8*rxt(k,120)*y(k,69) + mat(k,94) = (rxt(k,254)+rxt(k,259))*y(k,42) + mat(k,120) = (rxt(k,247)+rxt(k,253)+rxt(k,258))*y(k,42) + rxt(k,174)*y(k,69) + mat(k,316) = rxt(k,110)*y(k,34) + rxt(k,117)*y(k,69) + mat(k,529) = rxt(k,232)*y(k,15) + rxt(k,235)*y(k,20) + rxt(k,115)*y(k,35) & + + rxt(k,116)*y(k,37) + rxt(k,200)*y(k,38) + rxt(k,171)*y(k,42) & + + rxt(k,147)*y(k,44) + rxt(k,123)*y(k,45) + rxt(k,174)*y(k,47) & + + rxt(k,117)*y(k,60) + 2.000_r8*rxt(k,120)*y(k,69) end do end subroutine nlnmat03 subroutine nlnmat_finit( avec_len, mat, lmat, dti ) @@ -709,7 +709,7 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 16) = lmat(k, 16) mat(k, 17) = mat(k, 17) + lmat(k, 17) mat(k, 18) = mat(k, 18) + lmat(k, 18) - mat(k, 19) = mat(k, 19) + lmat(k, 19) + mat(k, 20) = mat(k, 20) + lmat(k, 20) mat(k, 21) = lmat(k, 21) mat(k, 22) = lmat(k, 22) mat(k, 23) = lmat(k, 23) @@ -725,12 +725,12 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 33) = mat(k, 33) + lmat(k, 33) mat(k, 35) = mat(k, 35) + lmat(k, 35) mat(k, 36) = lmat(k, 36) - mat(k, 38) = mat(k, 38) + lmat(k, 38) + mat(k, 37) = mat(k, 37) + lmat(k, 37) mat(k, 39) = mat(k, 39) + lmat(k, 39) mat(k, 42) = lmat(k, 42) mat(k, 43) = mat(k, 43) + lmat(k, 43) - mat(k, 44) = mat(k, 44) + lmat(k, 44) - mat(k, 45) = lmat(k, 45) + mat(k, 44) = lmat(k, 44) + mat(k, 45) = mat(k, 45) + lmat(k, 45) mat(k, 46) = mat(k, 46) + lmat(k, 46) mat(k, 47) = mat(k, 47) + lmat(k, 47) mat(k, 48) = lmat(k, 48) @@ -745,27 +745,27 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 59) = mat(k, 59) + lmat(k, 59) mat(k, 60) = lmat(k, 60) mat(k, 61) = lmat(k, 61) - mat(k, 62) = mat(k, 62) + lmat(k, 62) - mat(k, 63) = mat(k, 63) + lmat(k, 63) - mat(k, 64) = lmat(k, 64) - mat(k, 65) = lmat(k, 65) + mat(k, 62) = lmat(k, 62) + mat(k, 63) = lmat(k, 63) + mat(k, 64) = mat(k, 64) + lmat(k, 64) + mat(k, 65) = mat(k, 65) + lmat(k, 65) mat(k, 67) = mat(k, 67) + lmat(k, 67) mat(k, 71) = mat(k, 71) + lmat(k, 71) mat(k, 75) = mat(k, 75) + lmat(k, 75) mat(k, 78) = mat(k, 78) + lmat(k, 78) mat(k, 87) = mat(k, 87) + lmat(k, 87) mat(k, 93) = mat(k, 93) + lmat(k, 93) - mat(k, 98) = lmat(k, 98) - mat(k, 99) = mat(k, 99) + lmat(k, 99) + mat(k, 96) = lmat(k, 96) + mat(k, 98) = mat(k, 98) + lmat(k, 98) mat(k, 101) = mat(k, 101) + lmat(k, 101) mat(k, 102) = mat(k, 102) + lmat(k, 102) - mat(k, 107) = lmat(k, 107) - mat(k, 111) = mat(k, 111) + lmat(k, 111) - mat(k, 114) = mat(k, 114) + lmat(k, 114) - mat(k, 116) = mat(k, 116) + lmat(k, 116) - mat(k, 118) = mat(k, 118) + lmat(k, 118) - mat(k, 120) = mat(k, 120) + lmat(k, 120) + mat(k, 109) = lmat(k, 109) + mat(k, 110) = mat(k, 110) + lmat(k, 110) + mat(k, 112) = mat(k, 112) + lmat(k, 112) + mat(k, 113) = mat(k, 113) + lmat(k, 113) + mat(k, 119) = mat(k, 119) + lmat(k, 119) mat(k, 123) = mat(k, 123) + lmat(k, 123) + mat(k, 124) = mat(k, 124) + lmat(k, 124) mat(k, 127) = mat(k, 127) + lmat(k, 127) mat(k, 135) = lmat(k, 135) mat(k, 136) = lmat(k, 136) @@ -783,12 +783,12 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 203) = mat(k, 203) + lmat(k, 203) mat(k, 204) = mat(k, 204) + lmat(k, 204) mat(k, 205) = mat(k, 205) + lmat(k, 205) - mat(k, 208) = mat(k, 208) + lmat(k, 208) + mat(k, 208) = lmat(k, 208) mat(k, 209) = mat(k, 209) + lmat(k, 209) mat(k, 210) = mat(k, 210) + lmat(k, 210) - mat(k, 211) = lmat(k, 211) + mat(k, 212) = mat(k, 212) + lmat(k, 212) mat(k, 216) = mat(k, 216) + lmat(k, 216) - mat(k, 221) = lmat(k, 221) + mat(k, 220) = lmat(k, 220) mat(k, 222) = mat(k, 222) + lmat(k, 222) mat(k, 226) = lmat(k, 226) mat(k, 227) = mat(k, 227) + lmat(k, 227) @@ -796,89 +796,89 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 232) = mat(k, 232) + lmat(k, 232) mat(k, 233) = lmat(k, 233) mat(k, 236) = mat(k, 236) + lmat(k, 236) - mat(k, 239) = mat(k, 239) + lmat(k, 239) - mat(k, 243) = mat(k, 243) + lmat(k, 243) + mat(k, 241) = mat(k, 241) + lmat(k, 241) + mat(k, 244) = mat(k, 244) + lmat(k, 244) mat(k, 248) = mat(k, 248) + lmat(k, 248) mat(k, 249) = lmat(k, 249) - mat(k, 251) = mat(k, 251) + lmat(k, 251) + mat(k, 250) = lmat(k, 250) + mat(k, 252) = mat(k, 252) + lmat(k, 252) mat(k, 254) = mat(k, 254) + lmat(k, 254) - mat(k, 255) = lmat(k, 255) mat(k, 256) = lmat(k, 256) mat(k, 264) = mat(k, 264) + lmat(k, 264) mat(k, 265) = mat(k, 265) + lmat(k, 265) - mat(k, 268) = mat(k, 268) + lmat(k, 268) + mat(k, 275) = mat(k, 275) + lmat(k, 275) mat(k, 277) = mat(k, 277) + lmat(k, 277) mat(k, 282) = mat(k, 282) + lmat(k, 282) mat(k, 283) = mat(k, 283) + lmat(k, 283) - mat(k, 295) = lmat(k, 295) + mat(k, 286) = lmat(k, 286) mat(k, 298) = mat(k, 298) + lmat(k, 298) mat(k, 311) = mat(k, 311) + lmat(k, 311) - 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, 327) = mat(k, 327) + lmat(k, 327) - mat(k, 330) = mat(k, 330) + lmat(k, 330) - mat(k, 332) = lmat(k, 332) - mat(k, 334) = mat(k, 334) + lmat(k, 334) - mat(k, 339) = mat(k, 339) + lmat(k, 339) - mat(k, 349) = mat(k, 349) + lmat(k, 349) - mat(k, 363) = mat(k, 363) + lmat(k, 363) - mat(k, 367) = mat(k, 367) + lmat(k, 367) - mat(k, 372) = mat(k, 372) + lmat(k, 372) - mat(k, 376) = mat(k, 376) + lmat(k, 376) - mat(k, 383) = mat(k, 383) + lmat(k, 383) - mat(k, 389) = mat(k, 389) + lmat(k, 389) - mat(k, 392) = lmat(k, 392) - mat(k, 393) = lmat(k, 393) - mat(k, 396) = mat(k, 396) + lmat(k, 396) - mat(k, 415) = mat(k, 415) + lmat(k, 415) + mat(k, 320) = mat(k, 320) + lmat(k, 320) + mat(k, 341) = mat(k, 341) + lmat(k, 341) + mat(k, 362) = mat(k, 362) + lmat(k, 362) + mat(k, 374) = mat(k, 374) + lmat(k, 374) + mat(k, 376) = lmat(k, 376) + mat(k, 378) = mat(k, 378) + lmat(k, 378) + mat(k, 385) = mat(k, 385) + lmat(k, 385) + mat(k, 395) = mat(k, 395) + lmat(k, 395) + mat(k, 402) = mat(k, 402) + lmat(k, 402) + mat(k, 410) = mat(k, 410) + lmat(k, 410) + mat(k, 411) = mat(k, 411) + lmat(k, 411) mat(k, 416) = mat(k, 416) + lmat(k, 416) + mat(k, 420) = mat(k, 420) + lmat(k, 420) + mat(k, 421) = mat(k, 421) + lmat(k, 421) mat(k, 423) = mat(k, 423) + lmat(k, 423) - mat(k, 426) = mat(k, 426) + lmat(k, 426) - mat(k, 428) = mat(k, 428) + lmat(k, 428) - mat(k, 429) = mat(k, 429) + lmat(k, 429) - mat(k, 432) = mat(k, 432) + lmat(k, 432) + mat(k, 424) = mat(k, 424) + lmat(k, 424) + mat(k, 427) = mat(k, 427) + lmat(k, 427) + mat(k, 430) = lmat(k, 430) + mat(k, 431) = mat(k, 431) + lmat(k, 431) + mat(k, 432) = lmat(k, 432) + mat(k, 433) = mat(k, 433) + lmat(k, 433) + mat(k, 434) = mat(k, 434) + lmat(k, 434) mat(k, 435) = lmat(k, 435) - mat(k, 436) = mat(k, 436) + lmat(k, 436) - mat(k, 438) = lmat(k, 438) - mat(k, 440) = mat(k, 440) + lmat(k, 440) - mat(k, 442) = mat(k, 442) + lmat(k, 442) + mat(k, 437) = mat(k, 437) + lmat(k, 437) + mat(k, 441) = mat(k, 441) + lmat(k, 441) + mat(k, 442) = lmat(k, 442) mat(k, 443) = mat(k, 443) + lmat(k, 443) - mat(k, 444) = lmat(k, 444) - mat(k, 446) = mat(k, 446) + lmat(k, 446) - mat(k, 447) = lmat(k, 447) - mat(k, 448) = mat(k, 448) + lmat(k, 448) - mat(k, 449) = mat(k, 449) + lmat(k, 449) - mat(k, 463) = mat(k, 463) + lmat(k, 463) - mat(k, 483) = mat(k, 483) + lmat(k, 483) - mat(k, 496) = mat(k, 496) + lmat(k, 496) - mat(k, 502) = mat(k, 502) + lmat(k, 502) - mat(k, 509) = mat(k, 509) + lmat(k, 509) + mat(k, 445) = mat(k, 445) + lmat(k, 445) + mat(k, 464) = mat(k, 464) + lmat(k, 464) + mat(k, 469) = mat(k, 469) + lmat(k, 469) + mat(k, 471) = mat(k, 471) + lmat(k, 471) + mat(k, 482) = mat(k, 482) + lmat(k, 482) + mat(k, 488) = mat(k, 488) + lmat(k, 488) + mat(k, 494) = mat(k, 494) + lmat(k, 494) + mat(k, 497) = mat(k, 497) + lmat(k, 497) + mat(k, 498) = mat(k, 498) + lmat(k, 498) + mat(k, 505) = mat(k, 505) + lmat(k, 505) + mat(k, 506) = mat(k, 506) + lmat(k, 506) mat(k, 510) = mat(k, 510) + lmat(k, 510) - mat(k, 512) = mat(k, 512) + lmat(k, 512) - mat(k, 515) = lmat(k, 515) + mat(k, 515) = mat(k, 515) + lmat(k, 515) mat(k, 516) = lmat(k, 516) - mat(k, 528) = mat(k, 528) + lmat(k, 528) - mat(k, 535) = mat(k, 535) + lmat(k, 535) - mat(k, 538) = mat(k, 538) + lmat(k, 538) - mat(k, 539) = mat(k, 539) + lmat(k, 539) - mat(k, 541) = mat(k, 541) + lmat(k, 541) + mat(k, 517) = lmat(k, 517) + mat(k, 529) = mat(k, 529) + lmat(k, 529) + mat(k, 533) = mat(k, 533) + lmat(k, 533) + mat(k, 534) = mat(k, 534) + lmat(k, 534) mat(k, 542) = mat(k, 542) + lmat(k, 542) - mat(k, 548) = mat(k, 548) + lmat(k, 548) + mat(k, 543) = mat(k, 543) + lmat(k, 543) + mat(k, 544) = mat(k, 544) + lmat(k, 544) + mat(k, 562) = mat(k, 562) + lmat(k, 562) mat(k, 567) = mat(k, 567) + lmat(k, 567) - mat(k, 573) = mat(k, 573) + lmat(k, 573) mat(k, 574) = mat(k, 574) + lmat(k, 574) - mat(k, 584) = mat(k, 584) + lmat(k, 584) - mat(k, 586) = lmat(k, 586) + mat(k, 577) = mat(k, 577) + lmat(k, 577) + mat(k, 578) = lmat(k, 578) + mat(k, 587) = lmat(k, 587) + mat(k, 588) = mat(k, 588) + lmat(k, 588) + mat(k, 591) = mat(k, 591) + lmat(k, 591) + mat(k, 593) = mat(k, 593) + lmat(k, 593) + mat(k, 600) = mat(k, 600) + lmat(k, 600) mat(k, 607) = mat(k, 607) + lmat(k, 607) - mat(k, 628) = mat(k, 628) + lmat(k, 628) - mat(k, 630) = mat(k, 630) + lmat(k, 630) - mat(k, 632) = mat(k, 632) + lmat(k, 632) - mat(k, 639) = mat(k, 639) + lmat(k, 639) - mat(k, 645) = mat(k, 645) + lmat(k, 645) + mat(k, 608) = mat(k, 608) + lmat(k, 608) + mat(k, 611) = mat(k, 611) + lmat(k, 611) + mat(k, 612) = mat(k, 612) + lmat(k, 612) + mat(k, 622) = mat(k, 622) + lmat(k, 622) + mat(k, 624) = lmat(k, 624) mat(k, 647) = mat(k, 647) + lmat(k, 647) - mat(k, 97) = 0._r8 + mat(k, 99) = 0._r8 mat(k, 130) = 0._r8 mat(k, 131) = 0._r8 mat(k, 140) = 0._r8 @@ -890,135 +890,135 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 167) = 0._r8 mat(k, 168) = 0._r8 mat(k, 169) = 0._r8 - mat(k, 171) = 0._r8 + mat(k, 170) = 0._r8 mat(k, 172) = 0._r8 mat(k, 176) = 0._r8 mat(k, 177) = 0._r8 mat(k, 181) = 0._r8 - mat(k, 184) = 0._r8 + mat(k, 182) = 0._r8 mat(k, 185) = 0._r8 mat(k, 189) = 0._r8 mat(k, 192) = 0._r8 - mat(k, 197) = 0._r8 - mat(k, 200) = 0._r8 + mat(k, 196) = 0._r8 + mat(k, 199) = 0._r8 mat(k, 206) = 0._r8 mat(k, 218) = 0._r8 - mat(k, 220) = 0._r8 + mat(k, 219) = 0._r8 mat(k, 223) = 0._r8 mat(k, 240) = 0._r8 - mat(k, 241) = 0._r8 + mat(k, 242) = 0._r8 mat(k, 247) = 0._r8 - mat(k, 250) = 0._r8 - mat(k, 252) = 0._r8 + mat(k, 251) = 0._r8 mat(k, 253) = 0._r8 + mat(k, 255) = 0._r8 mat(k, 266) = 0._r8 mat(k, 267) = 0._r8 + mat(k, 268) = 0._r8 mat(k, 271) = 0._r8 mat(k, 272) = 0._r8 - mat(k, 273) = 0._r8 - mat(k, 276) = 0._r8 - mat(k, 285) = 0._r8 + mat(k, 274) = 0._r8 mat(k, 287) = 0._r8 mat(k, 288) = 0._r8 + mat(k, 289) = 0._r8 mat(k, 290) = 0._r8 - mat(k, 291) = 0._r8 - mat(k, 299) = 0._r8 - mat(k, 300) = 0._r8 + mat(k, 293) = 0._r8 mat(k, 301) = 0._r8 mat(k, 302) = 0._r8 mat(k, 303) = 0._r8 - mat(k, 313) = 0._r8 - mat(k, 315) = 0._r8 + mat(k, 304) = 0._r8 + mat(k, 306) = 0._r8 mat(k, 318) = 0._r8 - mat(k, 319) = 0._r8 - mat(k, 320) = 0._r8 - mat(k, 321) = 0._r8 - mat(k, 322) = 0._r8 - mat(k, 323) = 0._r8 - mat(k, 328) = 0._r8 - mat(k, 329) = 0._r8 - mat(k, 333) = 0._r8 + mat(k, 325) = 0._r8 mat(k, 337) = 0._r8 + mat(k, 339) = 0._r8 + mat(k, 342) = 0._r8 mat(k, 343) = 0._r8 + mat(k, 344) = 0._r8 + mat(k, 345) = 0._r8 + mat(k, 346) = 0._r8 + mat(k, 348) = 0._r8 + mat(k, 349) = 0._r8 mat(k, 350) = 0._r8 + mat(k, 351) = 0._r8 + mat(k, 353) = 0._r8 mat(k, 356) = 0._r8 - mat(k, 358) = 0._r8 - mat(k, 359) = 0._r8 mat(k, 360) = 0._r8 mat(k, 361) = 0._r8 + mat(k, 363) = 0._r8 + mat(k, 364) = 0._r8 mat(k, 366) = 0._r8 + mat(k, 367) = 0._r8 mat(k, 368) = 0._r8 - mat(k, 373) = 0._r8 - mat(k, 374) = 0._r8 - mat(k, 380) = 0._r8 - mat(k, 382) = 0._r8 + mat(k, 370) = 0._r8 + mat(k, 372) = 0._r8 + mat(k, 377) = 0._r8 + mat(k, 381) = 0._r8 + mat(k, 384) = 0._r8 mat(k, 387) = 0._r8 - mat(k, 388) = 0._r8 - mat(k, 391) = 0._r8 - mat(k, 394) = 0._r8 - mat(k, 397) = 0._r8 + mat(k, 399) = 0._r8 + mat(k, 404) = 0._r8 + mat(k, 405) = 0._r8 mat(k, 406) = 0._r8 mat(k, 408) = 0._r8 - mat(k, 411) = 0._r8 + mat(k, 409) = 0._r8 mat(k, 412) = 0._r8 mat(k, 417) = 0._r8 - mat(k, 424) = 0._r8 - mat(k, 425) = 0._r8 - mat(k, 431) = 0._r8 - mat(k, 437) = 0._r8 - mat(k, 445) = 0._r8 + mat(k, 418) = 0._r8 + mat(k, 426) = 0._r8 + mat(k, 436) = 0._r8 + mat(k, 440) = 0._r8 + mat(k, 452) = 0._r8 mat(k, 454) = 0._r8 - mat(k, 456) = 0._r8 mat(k, 457) = 0._r8 - mat(k, 458) = 0._r8 mat(k, 460) = 0._r8 - mat(k, 461) = 0._r8 - mat(k, 462) = 0._r8 - mat(k, 464) = 0._r8 - mat(k, 465) = 0._r8 + mat(k, 463) = 0._r8 mat(k, 466) = 0._r8 - mat(k, 468) = 0._r8 - mat(k, 469) = 0._r8 - mat(k, 473) = 0._r8 - mat(k, 475) = 0._r8 + mat(k, 470) = 0._r8 mat(k, 476) = 0._r8 mat(k, 478) = 0._r8 - mat(k, 481) = 0._r8 - mat(k, 482) = 0._r8 - mat(k, 485) = 0._r8 - mat(k, 487) = 0._r8 - mat(k, 488) = 0._r8 + mat(k, 479) = 0._r8 + mat(k, 480) = 0._r8 + mat(k, 483) = 0._r8 + mat(k, 486) = 0._r8 mat(k, 489) = 0._r8 + mat(k, 491) = 0._r8 mat(k, 493) = 0._r8 - mat(k, 498) = 0._r8 mat(k, 499) = 0._r8 - mat(k, 500) = 0._r8 + mat(k, 501) = 0._r8 + mat(k, 503) = 0._r8 mat(k, 504) = 0._r8 - mat(k, 506) = 0._r8 mat(k, 507) = 0._r8 mat(k, 508) = 0._r8 + mat(k, 509) = 0._r8 + mat(k, 512) = 0._r8 mat(k, 513) = 0._r8 - mat(k, 521) = 0._r8 - mat(k, 537) = 0._r8 - mat(k, 555) = 0._r8 - mat(k, 562) = 0._r8 - mat(k, 585) = 0._r8 + mat(k, 514) = 0._r8 + mat(k, 522) = 0._r8 + mat(k, 538) = 0._r8 + mat(k, 549) = 0._r8 + mat(k, 551) = 0._r8 + mat(k, 553) = 0._r8 + mat(k, 554) = 0._r8 + mat(k, 557) = 0._r8 + mat(k, 559) = 0._r8 + mat(k, 560) = 0._r8 + mat(k, 561) = 0._r8 + mat(k, 564) = 0._r8 + mat(k, 565) = 0._r8 + mat(k, 571) = 0._r8 + mat(k, 573) = 0._r8 + mat(k, 580) = 0._r8 + mat(k, 581) = 0._r8 + mat(k, 582) = 0._r8 + mat(k, 584) = 0._r8 mat(k, 590) = 0._r8 - mat(k, 592) = 0._r8 - mat(k, 601) = 0._r8 - mat(k, 603) = 0._r8 - mat(k, 612) = 0._r8 - mat(k, 616) = 0._r8 - mat(k, 617) = 0._r8 - mat(k, 618) = 0._r8 - mat(k, 620) = 0._r8 - mat(k, 622) = 0._r8 + mat(k, 597) = 0._r8 + mat(k, 605) = 0._r8 mat(k, 623) = 0._r8 - mat(k, 624) = 0._r8 - mat(k, 626) = 0._r8 - mat(k, 629) = 0._r8 - mat(k, 641) = 0._r8 - mat(k, 646) = 0._r8 + mat(k, 628) = 0._r8 + mat(k, 630) = 0._r8 + mat(k, 639) = 0._r8 + mat(k, 644) = 0._r8 mat(k, 1) = mat(k, 1) - dti(k) mat(k, 4) = mat(k, 4) - dti(k) mat(k, 7) = mat(k, 7) - dti(k) @@ -1040,8 +1040,8 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 87) = mat(k, 87) - dti(k) mat(k, 93) = mat(k, 93) - dti(k) mat(k, 102) = mat(k, 102) - dti(k) - mat(k, 111) = mat(k, 111) - dti(k) - mat(k, 118) = mat(k, 118) - dti(k) + mat(k, 110) = mat(k, 110) - dti(k) + mat(k, 119) = mat(k, 119) - dti(k) mat(k, 127) = mat(k, 127) - dti(k) mat(k, 138) = mat(k, 138) - dti(k) mat(k, 149) = mat(k, 149) - dti(k) @@ -1055,19 +1055,19 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 264) = mat(k, 264) - dti(k) mat(k, 282) = mat(k, 282) - dti(k) mat(k, 298) = mat(k, 298) - dti(k) - mat(k, 316) = mat(k, 316) - dti(k) - mat(k, 339) = mat(k, 339) - dti(k) - mat(k, 363) = mat(k, 363) - dti(k) - mat(k, 389) = mat(k, 389) - dti(k) - mat(k, 416) = mat(k, 416) - dti(k) - mat(k, 442) = mat(k, 442) - dti(k) - mat(k, 463) = mat(k, 463) - dti(k) - mat(k, 483) = mat(k, 483) - dti(k) - mat(k, 509) = mat(k, 509) - dti(k) - mat(k, 541) = mat(k, 541) - dti(k) - mat(k, 567) = mat(k, 567) - dti(k) + mat(k, 320) = mat(k, 320) - dti(k) + mat(k, 341) = mat(k, 341) - dti(k) + mat(k, 362) = mat(k, 362) - dti(k) + mat(k, 385) = mat(k, 385) - dti(k) + mat(k, 411) = mat(k, 411) - dti(k) + mat(k, 437) = mat(k, 437) - dti(k) + mat(k, 464) = mat(k, 464) - dti(k) + mat(k, 488) = mat(k, 488) - dti(k) + mat(k, 510) = mat(k, 510) - dti(k) + mat(k, 542) = mat(k, 542) - dti(k) + mat(k, 562) = mat(k, 562) - dti(k) + mat(k, 588) = mat(k, 588) - dti(k) mat(k, 607) = mat(k, 607) - dti(k) - mat(k, 628) = mat(k, 628) - dti(k) mat(k, 647) = mat(k, 647) - dti(k) end do end subroutine nlnmat_finit diff --git a/src/chemistry/pp_waccm_ma/mo_prod_loss.F90 b/src/chemistry/pp_waccm_ma/mo_prod_loss.F90 index 04ea0ea1e7..a89d0ad7a1 100644 --- a/src/chemistry/pp_waccm_ma/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_ma/mo_prod_loss.F90 @@ -27,62 +27,62 @@ 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,4))* y(k,4) + loss(k,1) = ( + het_rates(k,5))* y(k,5) prod(k,1) = 0._r8 - loss(k,2) = (rxt(k,175)* y(k,65) + rxt(k,30) + het_rates(k,5))* y(k,5) + loss(k,2) = (rxt(k,175)* y(k,65) + rxt(k,30) + het_rates(k,6))* y(k,6) prod(k,2) = 0._r8 - loss(k,3) = (rxt(k,176)* y(k,65) + rxt(k,31) + het_rates(k,6))* y(k,6) + loss(k,3) = (rxt(k,176)* y(k,65) + rxt(k,31) + het_rates(k,7))* y(k,7) prod(k,3) = 0._r8 - loss(k,4) = (rxt(k,202)* y(k,65) + rxt(k,32) + het_rates(k,7))* y(k,7) + loss(k,4) = (rxt(k,202)* y(k,65) + rxt(k,32) + het_rates(k,8))* y(k,8) prod(k,4) = 0._r8 - loss(k,5) = (rxt(k,177)* y(k,65) + rxt(k,33) + het_rates(k,8))* y(k,8) + loss(k,5) = (rxt(k,177)* y(k,65) + rxt(k,33) + het_rates(k,9))* y(k,9) prod(k,5) = 0._r8 - loss(k,6) = (rxt(k,178)* y(k,65) + rxt(k,34) + het_rates(k,9))* y(k,9) + loss(k,6) = (rxt(k,178)* y(k,65) + rxt(k,34) + het_rates(k,10))* y(k,10) prod(k,6) = 0._r8 - loss(k,7) = (rxt(k,179)* y(k,65) + rxt(k,35) + het_rates(k,10))* y(k,10) + loss(k,7) = (rxt(k,179)* y(k,65) + rxt(k,35) + het_rates(k,11))* y(k,11) prod(k,7) = 0._r8 - loss(k,8) = (rxt(k,180)* y(k,65) + rxt(k,36) + het_rates(k,11))* y(k,11) + loss(k,8) = (rxt(k,180)* y(k,65) + rxt(k,36) + het_rates(k,12))* y(k,12) prod(k,8) = 0._r8 - loss(k,9) = (rxt(k,181)* y(k,65) + rxt(k,37) + het_rates(k,12))* y(k,12) + loss(k,9) = (rxt(k,181)* y(k,65) + rxt(k,37) + het_rates(k,13))* y(k,13) prod(k,9) = 0._r8 - loss(k,10) = (rxt(k,213)* y(k,59) +rxt(k,225)* y(k,65) +rxt(k,214)* y(k,69) & - + rxt(k,38) + het_rates(k,13))* y(k,13) + loss(k,10) = (rxt(k,213)* y(k,23) +rxt(k,225)* y(k,65) +rxt(k,214)* y(k,69) & + + rxt(k,38) + het_rates(k,14))* y(k,14) prod(k,10) = 0._r8 - loss(k,11) = (rxt(k,215)* y(k,59) +rxt(k,226)* y(k,65) +rxt(k,216)* y(k,69) & - + rxt(k,39) + het_rates(k,15))* y(k,15) + loss(k,11) = (rxt(k,215)* y(k,23) +rxt(k,226)* y(k,65) +rxt(k,216)* y(k,69) & + + rxt(k,39) + het_rates(k,16))* y(k,16) prod(k,11) = 0._r8 - loss(k,12) = (rxt(k,217)* y(k,69) + rxt(k,40) + het_rates(k,16))* y(k,16) + loss(k,12) = (rxt(k,217)* y(k,69) + rxt(k,40) + het_rates(k,17))* y(k,17) prod(k,12) = 0._r8 - loss(k,13) = (rxt(k,218)* y(k,59) +rxt(k,219)* y(k,69) + rxt(k,41) & - + het_rates(k,17))* y(k,17) + loss(k,13) = (rxt(k,218)* y(k,23) +rxt(k,219)* y(k,69) + rxt(k,41) & + + het_rates(k,18))* y(k,18) prod(k,13) = 0._r8 - loss(k,14) = (rxt(k,207)* y(k,31) +rxt(k,151)* y(k,59) + (rxt(k,238) + & + loss(k,14) = (rxt(k,151)* y(k,23) +rxt(k,207)* y(k,33) + (rxt(k,238) + & rxt(k,239) +rxt(k,240))* y(k,65) +rxt(k,236)* y(k,69) + rxt(k,23) & - + rxt(k,24) + het_rates(k,20))* y(k,20) + + rxt(k,24) + het_rates(k,21))* y(k,21) prod(k,14) = 0._r8 - loss(k,15) = (rxt(k,220)* y(k,59) +rxt(k,203)* y(k,65) +rxt(k,221)* y(k,69) & - + rxt(k,42) + het_rates(k,21))* y(k,21) + loss(k,15) = (rxt(k,220)* y(k,23) +rxt(k,203)* y(k,65) +rxt(k,221)* y(k,69) & + + rxt(k,42) + het_rates(k,22))* y(k,22) prod(k,15) = 0._r8 - loss(k,16) = ( + het_rates(k,26))* y(k,26) + loss(k,16) = ( + het_rates(k,28))* y(k,28) prod(k,16) = 0._r8 - loss(k,17) = (rxt(k,278)* y(k,70) + rxt(k,25) + rxt(k,61) + het_rates(k,28)) & - * y(k,28) - prod(k,17) =.440_r8*rxt(k,24)*y(k,20) - loss(k,18) = (rxt(k,204)* y(k,65) + rxt(k,50) + het_rates(k,34))* y(k,34) + loss(k,17) = (rxt(k,278)* y(k,70) + rxt(k,25) + rxt(k,61) + het_rates(k,30)) & + * y(k,30) + prod(k,17) =.440_r8*rxt(k,24)*y(k,21) + loss(k,18) = (rxt(k,204)* y(k,65) + rxt(k,50) + het_rates(k,36))* y(k,36) prod(k,18) = 0._r8 loss(k,19) = (rxt(k,227)* y(k,65) +rxt(k,222)* y(k,69) + rxt(k,52) & - + het_rates(k,37))* y(k,37) + + het_rates(k,39))* y(k,39) prod(k,19) = 0._r8 loss(k,20) = (rxt(k,228)* y(k,65) +rxt(k,223)* y(k,69) + rxt(k,53) & - + het_rates(k,38))* y(k,38) + + het_rates(k,40))* y(k,40) prod(k,20) = 0._r8 loss(k,21) = (rxt(k,229)* y(k,65) +rxt(k,224)* y(k,69) + rxt(k,54) & - + het_rates(k,39))* y(k,39) + + het_rates(k,41))* y(k,41) prod(k,21) = 0._r8 loss(k,22) = ((rxt(k,142) +rxt(k,143))* y(k,65) + rxt(k,12) & - + het_rates(k,48))* y(k,48) + + het_rates(k,49))* y(k,49) prod(k,22) = 0._r8 - loss(k,23) = ( + rxt(k,60) + het_rates(k,57))* y(k,57) + loss(k,23) = ( + rxt(k,60) + het_rates(k,58))* y(k,58) prod(k,23) = 0._r8 end do end subroutine exp_prod_loss @@ -108,348 +108,350 @@ subroutine imp_prod_loss( avec_len, prod, loss, y, & ! ... loss and production for Implicit method !-------------------------------------------------------------------- do k = 1,avec_len - loss(k,8) = ( + rxt(k,26) + het_rates(k,1))* y(k,1) - prod(k,8) = (rxt(k,254)*y(k,45) +rxt(k,259)*y(k,45))*y(k,40) & - +rxt(k,192)*y(k,24)*y(k,2) - loss(k,39) = (2._r8*rxt(k,189)* y(k,2) + (rxt(k,190) +rxt(k,191) +rxt(k,192)) & - * y(k,24) +rxt(k,193)* y(k,43) +rxt(k,194)* y(k,50) +rxt(k,195) & - * y(k,51) +rxt(k,197)* y(k,53) +rxt(k,198)* y(k,69) + rxt(k,27) & - + het_rates(k,2))* y(k,2) - prod(k,39) = (rxt(k,28) +rxt(k,196)*y(k,53))*y(k,3) +rxt(k,206)*y(k,65) & - *y(k,36) +rxt(k,201)*y(k,53)*y(k,45) +rxt(k,188)*y(k,58)*y(k,55) - loss(k,15) = (rxt(k,196)* y(k,53) + rxt(k,28) + rxt(k,29) + rxt(k,248) & - + rxt(k,251) + rxt(k,256) + het_rates(k,3))* y(k,3) - prod(k,15) =rxt(k,195)*y(k,51)*y(k,2) - loss(k,35) = (rxt(k,230)* y(k,52) +rxt(k,231)* y(k,53) +rxt(k,186)* y(k,58) & - +rxt(k,150)* y(k,59) +rxt(k,232)* y(k,69) + rxt(k,20) + rxt(k,21) & - + het_rates(k,14))* y(k,14) - prod(k,35) = (rxt(k,157)*y(k,24) +rxt(k,234)*y(k,50))*y(k,18) + (rxt(k,22) + & - .300_r8*rxt(k,235)*y(k,69))*y(k,19) + (rxt(k,239)*y(k,65) + & - rxt(k,240)*y(k,65))*y(k,20) - loss(k,44) = (rxt(k,157)* y(k,24) +rxt(k,233)* y(k,43) +rxt(k,234)* y(k,50) & - + het_rates(k,18))* y(k,18) - prod(k,44) = (rxt(k,151)*y(k,59) +rxt(k,207)*y(k,31) +rxt(k,236)*y(k,69) + & - rxt(k,238)*y(k,65))*y(k,20) +.700_r8*rxt(k,235)*y(k,69)*y(k,19) - loss(k,11) = (rxt(k,235)* y(k,69) + rxt(k,22) + het_rates(k,19))* y(k,19) - prod(k,11) =rxt(k,233)*y(k,43)*y(k,18) - loss(k,6) = ( + rxt(k,43) + het_rates(k,22))* y(k,22) - prod(k,6) = (rxt(k,247)*y(k,46) +rxt(k,252)*y(k,25) +rxt(k,253)*y(k,46) + & - rxt(k,257)*y(k,25) +rxt(k,258)*y(k,46) +rxt(k,262)*y(k,25))*y(k,40) & - +rxt(k,159)*y(k,24)*y(k,24) +rxt(k,163)*y(k,59)*y(k,25) - loss(k,1) = ( + rxt(k,44) + rxt(k,185) + het_rates(k,23))* y(k,23) - prod(k,1) =rxt(k,184)*y(k,24)*y(k,24) - loss(k,41) = ((rxt(k,190) +rxt(k,191) +rxt(k,192))* y(k,2) +rxt(k,157) & - * y(k,18) + 2._r8*(rxt(k,158) +rxt(k,159) +rxt(k,160) +rxt(k,184)) & - * y(k,24) +rxt(k,161)* y(k,43) +rxt(k,162)* y(k,50) +rxt(k,164) & - * y(k,51) +rxt(k,167)* y(k,53) + (rxt(k,168) +rxt(k,169))* y(k,69) & - + rxt(k,45) + het_rates(k,24))* y(k,24) - prod(k,41) = (rxt(k,172)*y(k,59) +rxt(k,173)*y(k,53) +rxt(k,174)*y(k,69)) & - *y(k,46) + (rxt(k,47) +rxt(k,165)*y(k,53))*y(k,25) & - + (rxt(k,155)*y(k,43) +rxt(k,156)*y(k,55))*y(k,59) & - +2.000_r8*rxt(k,185)*y(k,23) +rxt(k,183)*y(k,65)*y(k,40) +rxt(k,59) & - *y(k,56) - loss(k,30) = ((rxt(k,252) +rxt(k,257) +rxt(k,262))* y(k,40) +rxt(k,165) & - * y(k,53) +rxt(k,163)* y(k,59) +rxt(k,166)* y(k,69) + rxt(k,46) & + loss(k,38) = (rxt(k,186)* y(k,15) +rxt(k,188)* y(k,56) +rxt(k,187)* y(k,60) & + + het_rates(k,1))* y(k,1) + prod(k,38) = (rxt(k,27) +2.000_r8*rxt(k,189)*y(k,3) +rxt(k,190)*y(k,26) + & + rxt(k,191)*y(k,26) +rxt(k,194)*y(k,51) +rxt(k,197)*y(k,54) + & + rxt(k,198)*y(k,69))*y(k,3) + (rxt(k,176)*y(k,7) +rxt(k,202)*y(k,8) + & + 3.000_r8*rxt(k,203)*y(k,22) +2.000_r8*rxt(k,204)*y(k,36) + & + 2.000_r8*rxt(k,225)*y(k,14) +rxt(k,226)*y(k,16) +rxt(k,205)*y(k,38)) & + *y(k,65) + (2.000_r8*rxt(k,214)*y(k,14) +rxt(k,216)*y(k,16) + & + 3.000_r8*rxt(k,221)*y(k,22) +rxt(k,200)*y(k,38))*y(k,69) & + + (2.000_r8*rxt(k,213)*y(k,14) +rxt(k,215)*y(k,16) + & + 3.000_r8*rxt(k,220)*y(k,22))*y(k,23) + (rxt(k,51) + & + rxt(k,199)*y(k,54))*y(k,38) +rxt(k,26)*y(k,2) +rxt(k,29)*y(k,4) & + +rxt(k,57)*y(k,46) + loss(k,8) = ( + rxt(k,26) + het_rates(k,2))* y(k,2) + prod(k,8) = (rxt(k,254)*y(k,46) +rxt(k,259)*y(k,46))*y(k,42) & + +rxt(k,192)*y(k,26)*y(k,3) + loss(k,44) = (2._r8*rxt(k,189)* y(k,3) + (rxt(k,190) +rxt(k,191) +rxt(k,192)) & + * y(k,26) +rxt(k,194)* y(k,51) +rxt(k,195)* y(k,52) +rxt(k,197) & + * y(k,54) +rxt(k,193)* y(k,60) +rxt(k,198)* y(k,69) + rxt(k,27) & + + het_rates(k,3))* y(k,3) + prod(k,44) = (rxt(k,28) +rxt(k,196)*y(k,54))*y(k,4) +rxt(k,188)*y(k,56) & + *y(k,1) +rxt(k,206)*y(k,65)*y(k,38) +rxt(k,201)*y(k,54)*y(k,46) + loss(k,15) = (rxt(k,196)* y(k,54) + rxt(k,28) + rxt(k,29) + rxt(k,248) & + + rxt(k,251) + rxt(k,256) + het_rates(k,4))* y(k,4) + prod(k,15) =rxt(k,195)*y(k,52)*y(k,3) + loss(k,35) = (rxt(k,186)* y(k,1) +rxt(k,150)* y(k,23) +rxt(k,230)* y(k,53) & + +rxt(k,231)* y(k,54) +rxt(k,232)* y(k,69) + rxt(k,20) + rxt(k,21) & + + het_rates(k,15))* y(k,15) + prod(k,35) = (rxt(k,157)*y(k,26) +rxt(k,234)*y(k,51))*y(k,19) + (rxt(k,22) + & + .300_r8*rxt(k,235)*y(k,69))*y(k,20) + (rxt(k,239)*y(k,65) + & + rxt(k,240)*y(k,65))*y(k,21) + loss(k,47) = (rxt(k,157)* y(k,26) +rxt(k,234)* y(k,51) +rxt(k,233)* y(k,60) & + + het_rates(k,19))* y(k,19) + prod(k,47) = (rxt(k,151)*y(k,23) +rxt(k,207)*y(k,33) +rxt(k,236)*y(k,69) + & + rxt(k,238)*y(k,65))*y(k,21) +.700_r8*rxt(k,235)*y(k,69)*y(k,20) + loss(k,11) = (rxt(k,235)* y(k,69) + rxt(k,22) + het_rates(k,20))* y(k,20) + prod(k,11) =rxt(k,233)*y(k,60)*y(k,19) + loss(k,48) = (rxt(k,213)* y(k,14) +rxt(k,150)* y(k,15) +rxt(k,215)* y(k,16) & + +rxt(k,218)* y(k,18) +rxt(k,151)* y(k,21) +rxt(k,220)* y(k,22) & + +rxt(k,163)* y(k,27) +rxt(k,152)* y(k,35) +rxt(k,153)* y(k,37) & + +rxt(k,172)* y(k,47) +rxt(k,156)* y(k,56) + (rxt(k,154) +rxt(k,155)) & + * y(k,60) + het_rates(k,23))* y(k,23) + prod(k,48) = (4.000_r8*rxt(k,175)*y(k,6) +rxt(k,176)*y(k,7) + & + 2.000_r8*rxt(k,177)*y(k,9) +2.000_r8*rxt(k,178)*y(k,10) + & + 2.000_r8*rxt(k,179)*y(k,11) +rxt(k,180)*y(k,12) + & + 2.000_r8*rxt(k,181)*y(k,13) +rxt(k,227)*y(k,39) +rxt(k,228)*y(k,40) + & + rxt(k,229)*y(k,41) +rxt(k,182)*y(k,42) +rxt(k,212)*y(k,32))*y(k,65) & + + (rxt(k,45) +rxt(k,157)*y(k,19) +2.000_r8*rxt(k,158)*y(k,26) + & + rxt(k,160)*y(k,26) +rxt(k,162)*y(k,51) +rxt(k,167)*y(k,54) + & + rxt(k,168)*y(k,69) +rxt(k,191)*y(k,3))*y(k,26) & + + (3.000_r8*rxt(k,217)*y(k,17) +rxt(k,219)*y(k,18) + & + rxt(k,222)*y(k,39) +rxt(k,223)*y(k,40) +rxt(k,224)*y(k,41) + & + rxt(k,171)*y(k,42))*y(k,69) + (rxt(k,55) +rxt(k,170)*y(k,54))*y(k,42) & + +rxt(k,26)*y(k,2) +2.000_r8*rxt(k,43)*y(k,24) +2.000_r8*rxt(k,44) & + *y(k,25) +rxt(k,46)*y(k,27) +rxt(k,49)*y(k,32) +rxt(k,58)*y(k,47) + loss(k,6) = ( + rxt(k,43) + het_rates(k,24))* y(k,24) + prod(k,6) = (rxt(k,247)*y(k,47) +rxt(k,252)*y(k,27) +rxt(k,253)*y(k,47) + & + rxt(k,257)*y(k,27) +rxt(k,258)*y(k,47) +rxt(k,262)*y(k,27))*y(k,42) & + +rxt(k,163)*y(k,27)*y(k,23) +rxt(k,159)*y(k,26)*y(k,26) + loss(k,1) = ( + rxt(k,44) + rxt(k,185) + het_rates(k,25))* y(k,25) + prod(k,1) =rxt(k,184)*y(k,26)*y(k,26) + loss(k,43) = ((rxt(k,190) +rxt(k,191) +rxt(k,192))* y(k,3) +rxt(k,157) & + * y(k,19) + 2._r8*(rxt(k,158) +rxt(k,159) +rxt(k,160) +rxt(k,184)) & + * y(k,26) +rxt(k,162)* y(k,51) +rxt(k,164)* y(k,52) +rxt(k,167) & + * y(k,54) +rxt(k,161)* y(k,60) + (rxt(k,168) +rxt(k,169))* y(k,69) & + + rxt(k,45) + het_rates(k,26))* y(k,26) + prod(k,43) = (rxt(k,155)*y(k,60) +rxt(k,156)*y(k,56) +rxt(k,172)*y(k,47)) & + *y(k,23) + (rxt(k,47) +rxt(k,165)*y(k,54))*y(k,27) & + + (rxt(k,173)*y(k,54) +rxt(k,174)*y(k,69))*y(k,47) & + +2.000_r8*rxt(k,185)*y(k,25) +rxt(k,183)*y(k,65)*y(k,42) +rxt(k,59) & + *y(k,57) + loss(k,30) = (rxt(k,163)* y(k,23) + (rxt(k,252) +rxt(k,257) +rxt(k,262)) & + * y(k,42) +rxt(k,165)* y(k,54) +rxt(k,166)* y(k,69) + rxt(k,46) & + rxt(k,47) + rxt(k,250) + rxt(k,255) + rxt(k,261) & - + het_rates(k,25))* y(k,25) - prod(k,30) =rxt(k,164)*y(k,51)*y(k,24) - loss(k,16) = ((rxt(k,237) +rxt(k,241))* y(k,69) + het_rates(k,27))* y(k,27) - prod(k,16) = (rxt(k,20) +rxt(k,21) +rxt(k,150)*y(k,59) +rxt(k,186)*y(k,58) + & - rxt(k,230)*y(k,52) +rxt(k,231)*y(k,53) +rxt(k,232)*y(k,69))*y(k,14) & - +rxt(k,218)*y(k,59)*y(k,17) +rxt(k,278)*y(k,70)*y(k,28) - loss(k,2) = (rxt(k,211)* y(k,65) + rxt(k,48) + het_rates(k,29))* y(k,29) - prod(k,2) = (rxt(k,176)*y(k,6) +rxt(k,178)*y(k,9) + & - 2.000_r8*rxt(k,179)*y(k,10) +2.000_r8*rxt(k,180)*y(k,11) + & - rxt(k,181)*y(k,12) +rxt(k,202)*y(k,7) +2.000_r8*rxt(k,204)*y(k,34) + & - rxt(k,228)*y(k,38) +rxt(k,229)*y(k,39))*y(k,65) & - + (rxt(k,223)*y(k,38) +rxt(k,224)*y(k,39))*y(k,69) - loss(k,7) = (rxt(k,212)* y(k,65) + rxt(k,49) + het_rates(k,30))* y(k,30) - prod(k,7) = (rxt(k,177)*y(k,8) +rxt(k,178)*y(k,9) +rxt(k,227)*y(k,37)) & - *y(k,65) +rxt(k,222)*y(k,69)*y(k,37) - loss(k,21) = (rxt(k,207)* y(k,20) +rxt(k,208)* y(k,33) +rxt(k,210)* y(k,42) & - +rxt(k,209)* y(k,73) + het_rates(k,31))* y(k,31) - prod(k,21) = (rxt(k,180)*y(k,11) +rxt(k,202)*y(k,7) + & - 2.000_r8*rxt(k,211)*y(k,29) +rxt(k,212)*y(k,30))*y(k,65) & - +2.000_r8*rxt(k,48)*y(k,29) +rxt(k,49)*y(k,30) +rxt(k,56)*y(k,41) - loss(k,36) = ((rxt(k,108) +rxt(k,109) +rxt(k,110))* y(k,43) +rxt(k,111) & - * y(k,54) +rxt(k,114)* y(k,55) + het_rates(k,32))* y(k,32) - prod(k,36) = (rxt(k,89)*y(k,65) +rxt(k,106)*y(k,53) +rxt(k,115)*y(k,69) + & - rxt(k,152)*y(k,59) +rxt(k,208)*y(k,31))*y(k,33) & - + (rxt(k,118)*y(k,53) +rxt(k,138)*y(k,47) +rxt(k,232)*y(k,14) + & - rxt(k,241)*y(k,27))*y(k,69) + (rxt(k,239)*y(k,20) + & - rxt(k,183)*y(k,40) +rxt(k,206)*y(k,36))*y(k,65) & - + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,73) +2.000_r8*rxt(k,20)*y(k,14) & - +rxt(k,22)*y(k,19) +rxt(k,51)*y(k,36) +rxt(k,55)*y(k,40) +rxt(k,56) & - *y(k,41) - loss(k,49) = (rxt(k,208)* y(k,31) +rxt(k,106)* y(k,53) +rxt(k,152)* y(k,59) & - +rxt(k,89)* y(k,65) +rxt(k,115)* y(k,69) + het_rates(k,33))* y(k,33) - prod(k,49) =rxt(k,21)*y(k,14) +rxt(k,240)*y(k,65)*y(k,20) +rxt(k,108)*y(k,43) & - *y(k,32) +rxt(k,1)*y(k,73) - loss(k,17) = (rxt(k,107)* y(k,53) +rxt(k,153)* y(k,59) +rxt(k,116)* y(k,69) & - + rxt(k,4) + het_rates(k,35))* y(k,35) - prod(k,17) = (.500_r8*rxt(k,242) +rxt(k,122)*y(k,43))*y(k,43) & + + het_rates(k,27))* y(k,27) + prod(k,30) =rxt(k,164)*y(k,52)*y(k,26) + loss(k,16) = ((rxt(k,237) +rxt(k,241))* y(k,69) + het_rates(k,29))* y(k,29) + prod(k,16) = (rxt(k,20) +rxt(k,21) +rxt(k,150)*y(k,23) +rxt(k,186)*y(k,1) + & + rxt(k,230)*y(k,53) +rxt(k,231)*y(k,54) +rxt(k,232)*y(k,69))*y(k,15) & + +rxt(k,218)*y(k,23)*y(k,18) +rxt(k,278)*y(k,70)*y(k,30) + loss(k,2) = (rxt(k,211)* y(k,65) + rxt(k,48) + het_rates(k,31))* y(k,31) + prod(k,2) = (rxt(k,176)*y(k,7) +rxt(k,178)*y(k,10) + & + 2.000_r8*rxt(k,179)*y(k,11) +2.000_r8*rxt(k,180)*y(k,12) + & + rxt(k,181)*y(k,13) +rxt(k,202)*y(k,8) +2.000_r8*rxt(k,204)*y(k,36) + & + rxt(k,228)*y(k,40) +rxt(k,229)*y(k,41))*y(k,65) & + + (rxt(k,223)*y(k,40) +rxt(k,224)*y(k,41))*y(k,69) + loss(k,7) = (rxt(k,212)* y(k,65) + rxt(k,49) + het_rates(k,32))* y(k,32) + prod(k,7) = (rxt(k,177)*y(k,9) +rxt(k,178)*y(k,10) +rxt(k,227)*y(k,39)) & + *y(k,65) +rxt(k,222)*y(k,69)*y(k,39) + loss(k,21) = (rxt(k,207)* y(k,21) +rxt(k,208)* y(k,35) +rxt(k,210)* y(k,44) & + +rxt(k,209)* y(k,73) + het_rates(k,33))* y(k,33) + prod(k,21) = (rxt(k,180)*y(k,12) +rxt(k,202)*y(k,8) + & + 2.000_r8*rxt(k,211)*y(k,31) +rxt(k,212)*y(k,32))*y(k,65) & + +2.000_r8*rxt(k,48)*y(k,31) +rxt(k,49)*y(k,32) +rxt(k,56)*y(k,43) + loss(k,36) = (rxt(k,111)* y(k,55) +rxt(k,114)* y(k,56) + (rxt(k,108) + & + rxt(k,109) +rxt(k,110))* y(k,60) + het_rates(k,34))* y(k,34) + prod(k,36) = (rxt(k,89)*y(k,65) +rxt(k,106)*y(k,54) +rxt(k,115)*y(k,69) + & + rxt(k,152)*y(k,23) +rxt(k,208)*y(k,33))*y(k,35) & + + (rxt(k,118)*y(k,54) +rxt(k,138)*y(k,48) +rxt(k,232)*y(k,15) + & + rxt(k,241)*y(k,29))*y(k,69) + (rxt(k,239)*y(k,21) + & + rxt(k,183)*y(k,42) +rxt(k,206)*y(k,38))*y(k,65) & + + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,73) +2.000_r8*rxt(k,20)*y(k,15) & + +rxt(k,22)*y(k,20) +rxt(k,51)*y(k,38) +rxt(k,55)*y(k,42) +rxt(k,56) & + *y(k,43) + loss(k,39) = (rxt(k,152)* y(k,23) +rxt(k,208)* y(k,33) +rxt(k,106)* y(k,54) & + +rxt(k,89)* y(k,65) +rxt(k,115)* y(k,69) + het_rates(k,35))* y(k,35) + prod(k,39) =rxt(k,21)*y(k,15) +rxt(k,240)*y(k,65)*y(k,21) +rxt(k,108)*y(k,60) & + *y(k,34) +rxt(k,1)*y(k,73) + loss(k,17) = (rxt(k,153)* y(k,23) +rxt(k,107)* y(k,54) +rxt(k,116)* y(k,69) & + + rxt(k,4) + het_rates(k,37))* y(k,37) + prod(k,17) = (.500_r8*rxt(k,242) +rxt(k,122)*y(k,60))*y(k,60) & +rxt(k,121)*y(k,69)*y(k,69) - loss(k,23) = (rxt(k,199)* y(k,53) + (rxt(k,205) +rxt(k,206))* y(k,65) & - +rxt(k,200)* y(k,69) + rxt(k,51) + het_rates(k,36))* y(k,36) - prod(k,23) = (rxt(k,186)*y(k,14) +rxt(k,187)*y(k,43))*y(k,58) - loss(k,34) = ((rxt(k,252) +rxt(k,257) +rxt(k,262))* y(k,25) + (rxt(k,254) + & - rxt(k,259))* y(k,45) + (rxt(k,247) +rxt(k,253) +rxt(k,258))* y(k,46) & - +rxt(k,170)* y(k,53) + (rxt(k,182) +rxt(k,183))* y(k,65) +rxt(k,171) & - * y(k,69) + rxt(k,55) + het_rates(k,40))* y(k,40) - prod(k,34) = (rxt(k,151)*y(k,20) +rxt(k,213)*y(k,13) +rxt(k,215)*y(k,15) + & - 2.000_r8*rxt(k,218)*y(k,17) +rxt(k,220)*y(k,21) +rxt(k,150)*y(k,14) + & - rxt(k,152)*y(k,33) +rxt(k,153)*y(k,35) +rxt(k,154)*y(k,43) + & - rxt(k,172)*y(k,46))*y(k,59) +rxt(k,169)*y(k,69)*y(k,24) - loss(k,9) = ( + rxt(k,56) + het_rates(k,41))* y(k,41) - prod(k,9) = (rxt(k,207)*y(k,20) +rxt(k,208)*y(k,33) +rxt(k,209)*y(k,73) + & - rxt(k,210)*y(k,42))*y(k,31) - loss(k,31) = (rxt(k,210)* y(k,31) +rxt(k,147)* y(k,69) + rxt(k,9) & - + het_rates(k,42))* y(k,42) - prod(k,31) = (rxt(k,250) +rxt(k,255) +rxt(k,261) +rxt(k,252)*y(k,40) + & - rxt(k,257)*y(k,40) +rxt(k,262)*y(k,40))*y(k,25) & + loss(k,22) = (rxt(k,199)* y(k,54) + (rxt(k,205) +rxt(k,206))* y(k,65) & + +rxt(k,200)* y(k,69) + rxt(k,51) + het_rates(k,38))* y(k,38) + prod(k,22) = (rxt(k,186)*y(k,15) +rxt(k,187)*y(k,60))*y(k,1) + loss(k,34) = ((rxt(k,252) +rxt(k,257) +rxt(k,262))* y(k,27) + (rxt(k,254) + & + rxt(k,259))* y(k,46) + (rxt(k,247) +rxt(k,253) +rxt(k,258))* y(k,47) & + +rxt(k,170)* y(k,54) + (rxt(k,182) +rxt(k,183))* y(k,65) +rxt(k,171) & + * y(k,69) + rxt(k,55) + het_rates(k,42))* y(k,42) + prod(k,34) = (rxt(k,151)*y(k,21) +rxt(k,213)*y(k,14) +rxt(k,215)*y(k,16) + & + 2.000_r8*rxt(k,218)*y(k,18) +rxt(k,220)*y(k,22) +rxt(k,150)*y(k,15) + & + rxt(k,152)*y(k,35) +rxt(k,153)*y(k,37) +rxt(k,154)*y(k,60) + & + rxt(k,172)*y(k,47))*y(k,23) +rxt(k,169)*y(k,69)*y(k,26) + loss(k,9) = ( + rxt(k,56) + het_rates(k,43))* y(k,43) + prod(k,9) = (rxt(k,207)*y(k,21) +rxt(k,208)*y(k,35) +rxt(k,209)*y(k,73) + & + rxt(k,210)*y(k,44))*y(k,33) + loss(k,31) = (rxt(k,210)* y(k,33) +rxt(k,147)* y(k,69) + rxt(k,9) & + + het_rates(k,44))* y(k,44) + prod(k,31) = (rxt(k,250) +rxt(k,255) +rxt(k,261) +rxt(k,252)*y(k,42) + & + rxt(k,257)*y(k,42) +rxt(k,262)*y(k,42))*y(k,27) & + (2.000_r8*rxt(k,243) +2.000_r8*rxt(k,246) +2.000_r8*rxt(k,249) + & - 2.000_r8*rxt(k,260))*y(k,49) + (rxt(k,248) +rxt(k,251) +rxt(k,256)) & - *y(k,3) + (.500_r8*rxt(k,244) +rxt(k,146)*y(k,69))*y(k,51) & - + (rxt(k,245) +rxt(k,230)*y(k,14))*y(k,52) - loss(k,47) = (rxt(k,193)* y(k,2) +rxt(k,233)* y(k,18) +rxt(k,161)* y(k,24) & - + (rxt(k,108) +rxt(k,109) +rxt(k,110))* y(k,32) + 2._r8*rxt(k,122) & - * y(k,43) +rxt(k,139)* y(k,50) +rxt(k,144)* y(k,51) +rxt(k,134) & - * y(k,52) +rxt(k,112)* y(k,53) +rxt(k,113)* y(k,55) +rxt(k,187) & - * y(k,58) + (rxt(k,154) +rxt(k,155))* y(k,59) +rxt(k,117)* y(k,69) & - + rxt(k,242) + het_rates(k,43))* y(k,43) - prod(k,47) = (rxt(k,216)*y(k,15) +rxt(k,219)*y(k,17) +rxt(k,116)*y(k,35) + & - rxt(k,119)*y(k,55) +rxt(k,137)*y(k,52) +rxt(k,168)*y(k,24) + & - rxt(k,198)*y(k,2) +rxt(k,237)*y(k,27))*y(k,69) & - + (rxt(k,150)*y(k,59) +rxt(k,186)*y(k,58) +rxt(k,230)*y(k,52) + & - rxt(k,231)*y(k,53))*y(k,14) + (rxt(k,215)*y(k,15) + & - rxt(k,218)*y(k,17) +rxt(k,153)*y(k,35))*y(k,59) & - + (rxt(k,157)*y(k,24) +rxt(k,234)*y(k,50))*y(k,18) + (rxt(k,11) + & - rxt(k,148))*y(k,44) +rxt(k,239)*y(k,65)*y(k,20) +rxt(k,111)*y(k,54) & - *y(k,32) +rxt(k,107)*y(k,53)*y(k,35) + 2.000_r8*rxt(k,260))*y(k,50) + (rxt(k,248) +rxt(k,251) +rxt(k,256)) & + *y(k,4) + (.500_r8*rxt(k,244) +rxt(k,146)*y(k,69))*y(k,52) & + + (rxt(k,245) +rxt(k,230)*y(k,15))*y(k,53) loss(k,12) = (rxt(k,123)* y(k,69) + rxt(k,10) + rxt(k,11) + rxt(k,148) & - + het_rates(k,44))* y(k,44) - prod(k,12) =rxt(k,144)*y(k,51)*y(k,43) - loss(k,20) = ((rxt(k,254) +rxt(k,259))* y(k,40) +rxt(k,201)* y(k,53) & - + rxt(k,57) + het_rates(k,45))* y(k,45) - prod(k,20) = (rxt(k,248) +rxt(k,251) +rxt(k,256))*y(k,3) +rxt(k,193)*y(k,43) & - *y(k,2) - loss(k,22) = ((rxt(k,247) +rxt(k,253) +rxt(k,258))* y(k,40) +rxt(k,173) & - * y(k,53) +rxt(k,172)* y(k,59) +rxt(k,174)* y(k,69) + rxt(k,58) & - + het_rates(k,46))* y(k,46) - prod(k,22) = (rxt(k,250) +rxt(k,255) +rxt(k,261) +rxt(k,166)*y(k,69))*y(k,25) & - +rxt(k,161)*y(k,43)*y(k,24) - loss(k,29) = (rxt(k,126)* y(k,50) + (rxt(k,127) +rxt(k,128) +rxt(k,129)) & - * y(k,51) +rxt(k,130)* y(k,54) +rxt(k,275)* y(k,68) +rxt(k,138) & - * y(k,69) + rxt(k,62) + het_rates(k,47))* y(k,47) - prod(k,29) = (rxt(k,124)*y(k,61) +rxt(k,272)*y(k,64))*y(k,53) & - + (.200_r8*rxt(k,266)*y(k,63) +1.100_r8*rxt(k,268)*y(k,62))*y(k,60) & - +rxt(k,15)*y(k,50) +rxt(k,273)*y(k,64)*y(k,54) +rxt(k,279)*y(k,70) + + het_rates(k,45))* y(k,45) + prod(k,12) =rxt(k,144)*y(k,60)*y(k,52) + loss(k,20) = ((rxt(k,254) +rxt(k,259))* y(k,42) +rxt(k,201)* y(k,54) & + + rxt(k,57) + het_rates(k,46))* y(k,46) + prod(k,20) = (rxt(k,248) +rxt(k,251) +rxt(k,256))*y(k,4) +rxt(k,193)*y(k,60) & + *y(k,3) + loss(k,23) = (rxt(k,172)* y(k,23) + (rxt(k,247) +rxt(k,253) +rxt(k,258)) & + * y(k,42) +rxt(k,173)* y(k,54) +rxt(k,174)* y(k,69) + rxt(k,58) & + + het_rates(k,47))* y(k,47) + prod(k,23) = (rxt(k,250) +rxt(k,255) +rxt(k,261) +rxt(k,166)*y(k,69))*y(k,27) & + +rxt(k,161)*y(k,60)*y(k,26) + loss(k,29) = (rxt(k,126)* y(k,51) + (rxt(k,127) +rxt(k,128) +rxt(k,129)) & + * y(k,52) +rxt(k,130)* y(k,55) +rxt(k,275)* y(k,68) +rxt(k,138) & + * y(k,69) + rxt(k,62) + het_rates(k,48))* y(k,48) + prod(k,29) = (rxt(k,124)*y(k,61) +rxt(k,272)*y(k,64))*y(k,54) & + + (.200_r8*rxt(k,266)*y(k,63) +1.100_r8*rxt(k,268)*y(k,62))*y(k,59) & + +rxt(k,15)*y(k,51) +rxt(k,273)*y(k,64)*y(k,55) +rxt(k,279)*y(k,70) loss(k,10) = ( + rxt(k,13) + rxt(k,14) + rxt(k,149) + rxt(k,243) + rxt(k,246) & - + rxt(k,249) + rxt(k,260) + het_rates(k,49))* y(k,49) - prod(k,10) =rxt(k,145)*y(k,52)*y(k,51) - loss(k,38) = (rxt(k,194)* y(k,2) +rxt(k,234)* y(k,18) +rxt(k,162)* y(k,24) & - +rxt(k,139)* y(k,43) +rxt(k,126)* y(k,47) +rxt(k,135)* y(k,52) & - +rxt(k,141)* y(k,53) +rxt(k,140)* y(k,55) +rxt(k,277)* y(k,68) & - + rxt(k,15) + rxt(k,16) + het_rates(k,50))* y(k,50) - prod(k,38) = (rxt(k,17) +.500_r8*rxt(k,244) +2.000_r8*rxt(k,128)*y(k,47) + & - rxt(k,131)*y(k,53))*y(k,51) + (rxt(k,130)*y(k,54) + & - rxt(k,138)*y(k,69))*y(k,47) +2.000_r8*rxt(k,142)*y(k,65)*y(k,48) & - +rxt(k,14)*y(k,49) +rxt(k,19)*y(k,52) +rxt(k,125)*y(k,61)*y(k,54) & + + rxt(k,249) + rxt(k,260) + het_rates(k,50))* y(k,50) + prod(k,10) =rxt(k,145)*y(k,53)*y(k,52) + loss(k,40) = (rxt(k,194)* y(k,3) +rxt(k,234)* y(k,19) +rxt(k,162)* y(k,26) & + +rxt(k,126)* y(k,48) +rxt(k,135)* y(k,53) +rxt(k,141)* y(k,54) & + +rxt(k,140)* y(k,56) +rxt(k,139)* y(k,60) +rxt(k,277)* y(k,68) & + + rxt(k,15) + rxt(k,16) + het_rates(k,51))* y(k,51) + prod(k,40) = (rxt(k,17) +.500_r8*rxt(k,244) +2.000_r8*rxt(k,128)*y(k,48) + & + rxt(k,131)*y(k,54))*y(k,52) + (rxt(k,130)*y(k,55) + & + rxt(k,138)*y(k,69))*y(k,48) +2.000_r8*rxt(k,142)*y(k,65)*y(k,49) & + +rxt(k,14)*y(k,50) +rxt(k,19)*y(k,53) +rxt(k,125)*y(k,61)*y(k,55) & +rxt(k,276)*y(k,68) +rxt(k,289)*y(k,72) - loss(k,45) = (rxt(k,195)* y(k,2) +rxt(k,164)* y(k,24) +rxt(k,144)* y(k,43) & - + (rxt(k,127) +rxt(k,128) +rxt(k,129))* y(k,47) +rxt(k,145)* y(k,52) & - + (rxt(k,131) +rxt(k,133))* y(k,53) +rxt(k,132)* y(k,55) +rxt(k,146) & - * y(k,69) + rxt(k,17) + rxt(k,244) + het_rates(k,51))* y(k,51) - prod(k,45) = (2.000_r8*rxt(k,135)*y(k,52) +rxt(k,139)*y(k,43) + & - rxt(k,140)*y(k,55) +rxt(k,141)*y(k,53) +rxt(k,162)*y(k,24) + & - rxt(k,194)*y(k,2) +rxt(k,234)*y(k,18))*y(k,50) + (rxt(k,18) + & - rxt(k,134)*y(k,43) +rxt(k,136)*y(k,53) +rxt(k,137)*y(k,69))*y(k,52) & - + (rxt(k,11) +rxt(k,148) +rxt(k,123)*y(k,69))*y(k,44) + (rxt(k,13) + & - rxt(k,149))*y(k,49) +rxt(k,28)*y(k,3) +rxt(k,47)*y(k,25) +rxt(k,9) & - *y(k,42) - loss(k,37) = (rxt(k,230)* y(k,14) +rxt(k,134)* y(k,43) +rxt(k,135)* y(k,50) & - +rxt(k,145)* y(k,51) +rxt(k,136)* y(k,53) +rxt(k,137)* y(k,69) & - + rxt(k,18) + rxt(k,19) + rxt(k,245) + het_rates(k,52))* y(k,52) - prod(k,37) = (rxt(k,46) +rxt(k,163)*y(k,59) +rxt(k,165)*y(k,53) + & - rxt(k,166)*y(k,69))*y(k,25) + (rxt(k,13) +rxt(k,14) +rxt(k,149)) & - *y(k,49) + (rxt(k,29) +rxt(k,196)*y(k,53))*y(k,3) & - + (rxt(k,147)*y(k,69) +rxt(k,210)*y(k,31))*y(k,42) & - + (rxt(k,132)*y(k,55) +rxt(k,133)*y(k,53))*y(k,51) +rxt(k,10) & + loss(k,41) = (rxt(k,195)* y(k,3) +rxt(k,164)* y(k,26) + (rxt(k,127) + & + rxt(k,128) +rxt(k,129))* y(k,48) +rxt(k,145)* y(k,53) + (rxt(k,131) + & + rxt(k,133))* y(k,54) +rxt(k,132)* y(k,56) +rxt(k,144)* y(k,60) & + +rxt(k,146)* y(k,69) + rxt(k,17) + rxt(k,244) + het_rates(k,52)) & + * y(k,52) + prod(k,41) = (2.000_r8*rxt(k,135)*y(k,53) +rxt(k,139)*y(k,60) + & + rxt(k,140)*y(k,56) +rxt(k,141)*y(k,54) +rxt(k,162)*y(k,26) + & + rxt(k,194)*y(k,3) +rxt(k,234)*y(k,19))*y(k,51) + (rxt(k,18) + & + rxt(k,134)*y(k,60) +rxt(k,136)*y(k,54) +rxt(k,137)*y(k,69))*y(k,53) & + + (rxt(k,11) +rxt(k,148) +rxt(k,123)*y(k,69))*y(k,45) + (rxt(k,13) + & + rxt(k,149))*y(k,50) +rxt(k,28)*y(k,4) +rxt(k,47)*y(k,27) +rxt(k,9) & *y(k,44) - loss(k,48) = (rxt(k,197)* y(k,2) +rxt(k,196)* y(k,3) +rxt(k,231)* y(k,14) & - +rxt(k,167)* y(k,24) +rxt(k,165)* y(k,25) +rxt(k,106)* y(k,33) & - +rxt(k,107)* y(k,35) +rxt(k,199)* y(k,36) +rxt(k,170)* y(k,40) & - +rxt(k,112)* y(k,43) +rxt(k,201)* y(k,45) +rxt(k,173)* y(k,46) & - +rxt(k,141)* y(k,50) + (rxt(k,131) +rxt(k,133))* y(k,51) +rxt(k,136) & - * y(k,52) + 2._r8*rxt(k,104)* y(k,53) +rxt(k,105)* y(k,54) & - +rxt(k,103)* y(k,55) + (rxt(k,270) +rxt(k,271))* y(k,62) +rxt(k,272) & - * y(k,64) +rxt(k,118)* y(k,69) + rxt(k,71) + rxt(k,72) + rxt(k,73) & - + rxt(k,74) + rxt(k,75) + rxt(k,76) + het_rates(k,53))* y(k,53) - prod(k,48) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,77) +rxt(k,79) +rxt(k,81) + & + loss(k,45) = (rxt(k,230)* y(k,15) +rxt(k,135)* y(k,51) +rxt(k,145)* y(k,52) & + +rxt(k,136)* y(k,54) +rxt(k,134)* y(k,60) +rxt(k,137)* y(k,69) & + + rxt(k,18) + rxt(k,19) + rxt(k,245) + het_rates(k,53))* y(k,53) + prod(k,45) = (rxt(k,46) +rxt(k,163)*y(k,23) +rxt(k,165)*y(k,54) + & + rxt(k,166)*y(k,69))*y(k,27) + (rxt(k,13) +rxt(k,14) +rxt(k,149)) & + *y(k,50) + (rxt(k,29) +rxt(k,196)*y(k,54))*y(k,4) & + + (rxt(k,147)*y(k,69) +rxt(k,210)*y(k,33))*y(k,44) & + + (rxt(k,132)*y(k,56) +rxt(k,133)*y(k,54))*y(k,52) +rxt(k,10) & + *y(k,45) + loss(k,50) = (rxt(k,197)* y(k,3) +rxt(k,196)* y(k,4) +rxt(k,231)* y(k,15) & + +rxt(k,167)* y(k,26) +rxt(k,165)* y(k,27) +rxt(k,106)* y(k,35) & + +rxt(k,107)* y(k,37) +rxt(k,199)* y(k,38) +rxt(k,170)* y(k,42) & + +rxt(k,201)* y(k,46) +rxt(k,173)* y(k,47) +rxt(k,141)* y(k,51) & + + (rxt(k,131) +rxt(k,133))* y(k,52) +rxt(k,136)* y(k,53) & + + 2._r8*rxt(k,104)* y(k,54) +rxt(k,105)* y(k,55) +rxt(k,103) & + * y(k,56) +rxt(k,112)* y(k,60) + (rxt(k,270) +rxt(k,271))* y(k,62) & + +rxt(k,272)* y(k,64) +rxt(k,118)* y(k,69) + rxt(k,71) + rxt(k,72) & + + rxt(k,73) + rxt(k,74) + rxt(k,75) + rxt(k,76) + het_rates(k,54)) & + * y(k,54) + prod(k,50) = (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,92)*y(k,65) +rxt(k,93)*y(k,65) +rxt(k,130)*y(k,47) + & - rxt(k,274)*y(k,64) +rxt(k,281)*y(k,70) +rxt(k,285)*y(k,71))*y(k,54) & - + (rxt(k,126)*y(k,50) +rxt(k,127)*y(k,51) +rxt(k,275)*y(k,68)) & - *y(k,47) + (rxt(k,266)*y(k,63) +1.150_r8*rxt(k,267)*y(k,68))*y(k,60) & - +rxt(k,27)*y(k,2) +rxt(k,45)*y(k,24) +rxt(k,110)*y(k,43)*y(k,32) & - +rxt(k,14)*y(k,49) +rxt(k,15)*y(k,50) +rxt(k,17)*y(k,51) +rxt(k,18) & - *y(k,52) +rxt(k,8)*y(k,55) +rxt(k,59)*y(k,56) +rxt(k,280)*y(k,70) & + rxt(k,86) +rxt(k,92)*y(k,65) +rxt(k,93)*y(k,65) +rxt(k,130)*y(k,48) + & + rxt(k,274)*y(k,64) +rxt(k,281)*y(k,70) +rxt(k,285)*y(k,71))*y(k,55) & + + (rxt(k,126)*y(k,51) +rxt(k,127)*y(k,52) +rxt(k,275)*y(k,68)) & + *y(k,48) + (rxt(k,266)*y(k,63) +1.150_r8*rxt(k,267)*y(k,68))*y(k,59) & + +rxt(k,27)*y(k,3) +rxt(k,45)*y(k,26) +rxt(k,110)*y(k,60)*y(k,34) & + +rxt(k,14)*y(k,50) +rxt(k,15)*y(k,51) +rxt(k,17)*y(k,52) +rxt(k,18) & + *y(k,53) +rxt(k,8)*y(k,56) +rxt(k,59)*y(k,57) +rxt(k,280)*y(k,70) & *y(k,61) +rxt(k,91)*y(k,65) +rxt(k,120)*y(k,69)*y(k,69) +rxt(k,283) & *y(k,71) +rxt(k,288)*y(k,72) +rxt(k,2)*y(k,73) - loss(k,32) = (rxt(k,111)* y(k,32) +rxt(k,130)* y(k,47) +rxt(k,105)* y(k,53) & + loss(k,32) = (rxt(k,111)* y(k,34) +rxt(k,130)* y(k,48) +rxt(k,105)* y(k,54) & +rxt(k,125)* y(k,61) +rxt(k,269)* y(k,62) + (rxt(k,273) +rxt(k,274)) & * y(k,64) +rxt(k,92)* y(k,65) +rxt(k,97)* y(k,66) +rxt(k,281) & * y(k,70) +rxt(k,285)* y(k,71) + 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,54)) & - * y(k,54) - prod(k,32) = (rxt(k,108)*y(k,32) +rxt(k,112)*y(k,53) + & - 2.000_r8*rxt(k,113)*y(k,55) +rxt(k,117)*y(k,69) +rxt(k,122)*y(k,43) + & - rxt(k,134)*y(k,52) +rxt(k,154)*y(k,59) +rxt(k,161)*y(k,24) + & - rxt(k,187)*y(k,58) +rxt(k,193)*y(k,2) +rxt(k,233)*y(k,18))*y(k,43) & + + rxt(k,83) + rxt(k,84) + rxt(k,85) + rxt(k,86) + het_rates(k,55)) & + * y(k,55) + prod(k,32) = (rxt(k,108)*y(k,34) +rxt(k,112)*y(k,54) + & + 2.000_r8*rxt(k,113)*y(k,56) +rxt(k,117)*y(k,69) +rxt(k,122)*y(k,60) + & + rxt(k,134)*y(k,53) +rxt(k,154)*y(k,23) +rxt(k,161)*y(k,26) + & + rxt(k,187)*y(k,1) +rxt(k,193)*y(k,3) +rxt(k,233)*y(k,19))*y(k,60) & + (rxt(k,8) +2.000_r8*rxt(k,94)*y(k,65) + & - 2.000_r8*rxt(k,103)*y(k,53) +rxt(k,114)*y(k,32) +rxt(k,119)*y(k,69) + & - rxt(k,132)*y(k,51) +rxt(k,140)*y(k,50) +rxt(k,156)*y(k,59) + & - rxt(k,188)*y(k,58))*y(k,55) + (rxt(k,96)*y(k,66) + & - rxt(k,104)*y(k,53) +rxt(k,118)*y(k,69) +rxt(k,131)*y(k,51) + & - rxt(k,136)*y(k,52) +rxt(k,167)*y(k,24) +rxt(k,197)*y(k,2))*y(k,53) & - + (rxt(k,158)*y(k,24) +rxt(k,159)*y(k,24) +rxt(k,169)*y(k,69) + & - rxt(k,191)*y(k,2) +rxt(k,192)*y(k,2))*y(k,24) + (rxt(k,87) + & - rxt(k,95) +2.000_r8*rxt(k,97)*y(k,54))*y(k,66) +rxt(k,189)*y(k,2) & - *y(k,2) +rxt(k,123)*y(k,69)*y(k,44) +rxt(k,129)*y(k,51)*y(k,47) & - +rxt(k,143)*y(k,65)*y(k,48) +rxt(k,277)*y(k,68)*y(k,50) +rxt(k,19) & - *y(k,52) +rxt(k,88)*y(k,67) - loss(k,50) = (rxt(k,114)* y(k,32) +rxt(k,113)* y(k,43) +rxt(k,140)* y(k,50) & - +rxt(k,132)* y(k,51) +rxt(k,103)* y(k,53) +rxt(k,188)* y(k,58) & - +rxt(k,156)* y(k,59) +rxt(k,94)* y(k,65) +rxt(k,119)* y(k,69) & - + rxt(k,7) + rxt(k,8) + het_rates(k,55))* y(k,55) - prod(k,50) =rxt(k,105)*y(k,54)*y(k,53) - loss(k,3) = ( + rxt(k,59) + het_rates(k,56))* y(k,56) - prod(k,3) = (rxt(k,160)*y(k,24) +rxt(k,190)*y(k,2))*y(k,24) - loss(k,43) = (rxt(k,186)* y(k,14) +rxt(k,187)* y(k,43) +rxt(k,188)* y(k,55) & - + het_rates(k,58))* y(k,58) - prod(k,43) = (rxt(k,27) +2.000_r8*rxt(k,189)*y(k,2) +rxt(k,190)*y(k,24) + & - rxt(k,191)*y(k,24) +rxt(k,194)*y(k,50) +rxt(k,197)*y(k,53) + & - rxt(k,198)*y(k,69))*y(k,2) + (rxt(k,176)*y(k,6) +rxt(k,202)*y(k,7) + & - 3.000_r8*rxt(k,203)*y(k,21) +2.000_r8*rxt(k,204)*y(k,34) + & - 2.000_r8*rxt(k,225)*y(k,13) +rxt(k,226)*y(k,15) +rxt(k,205)*y(k,36)) & - *y(k,65) + (2.000_r8*rxt(k,214)*y(k,13) +rxt(k,216)*y(k,15) + & - 3.000_r8*rxt(k,221)*y(k,21) +rxt(k,200)*y(k,36))*y(k,69) & - + (2.000_r8*rxt(k,213)*y(k,13) +rxt(k,215)*y(k,15) + & - 3.000_r8*rxt(k,220)*y(k,21))*y(k,59) + (rxt(k,51) + & - rxt(k,199)*y(k,53))*y(k,36) +rxt(k,26)*y(k,1) +rxt(k,29)*y(k,3) & - +rxt(k,57)*y(k,45) - loss(k,40) = (rxt(k,213)* y(k,13) +rxt(k,150)* y(k,14) +rxt(k,215)* y(k,15) & - +rxt(k,218)* y(k,17) +rxt(k,151)* y(k,20) +rxt(k,220)* y(k,21) & - +rxt(k,163)* y(k,25) +rxt(k,152)* y(k,33) +rxt(k,153)* y(k,35) & - + (rxt(k,154) +rxt(k,155))* y(k,43) +rxt(k,172)* y(k,46) +rxt(k,156) & - * y(k,55) + het_rates(k,59))* y(k,59) - prod(k,40) = (4.000_r8*rxt(k,175)*y(k,5) +rxt(k,176)*y(k,6) + & - 2.000_r8*rxt(k,177)*y(k,8) +2.000_r8*rxt(k,178)*y(k,9) + & - 2.000_r8*rxt(k,179)*y(k,10) +rxt(k,180)*y(k,11) + & - 2.000_r8*rxt(k,181)*y(k,12) +rxt(k,227)*y(k,37) +rxt(k,228)*y(k,38) + & - rxt(k,229)*y(k,39) +rxt(k,182)*y(k,40) +rxt(k,212)*y(k,30))*y(k,65) & - + (rxt(k,45) +rxt(k,157)*y(k,18) +2.000_r8*rxt(k,158)*y(k,24) + & - rxt(k,160)*y(k,24) +rxt(k,162)*y(k,50) +rxt(k,167)*y(k,53) + & - rxt(k,168)*y(k,69) +rxt(k,191)*y(k,2))*y(k,24) & - + (3.000_r8*rxt(k,217)*y(k,16) +rxt(k,219)*y(k,17) + & - rxt(k,222)*y(k,37) +rxt(k,223)*y(k,38) +rxt(k,224)*y(k,39) + & - rxt(k,171)*y(k,40))*y(k,69) + (rxt(k,55) +rxt(k,170)*y(k,53))*y(k,40) & - +rxt(k,26)*y(k,1) +2.000_r8*rxt(k,43)*y(k,22) +2.000_r8*rxt(k,44) & - *y(k,23) +rxt(k,46)*y(k,25) +rxt(k,49)*y(k,30) +rxt(k,58)*y(k,46) + 2.000_r8*rxt(k,103)*y(k,54) +rxt(k,114)*y(k,34) +rxt(k,119)*y(k,69) + & + rxt(k,132)*y(k,52) +rxt(k,140)*y(k,51) +rxt(k,156)*y(k,23) + & + rxt(k,188)*y(k,1))*y(k,56) + (rxt(k,96)*y(k,66) +rxt(k,104)*y(k,54) + & + rxt(k,118)*y(k,69) +rxt(k,131)*y(k,52) +rxt(k,136)*y(k,53) + & + rxt(k,167)*y(k,26) +rxt(k,197)*y(k,3))*y(k,54) & + + (rxt(k,158)*y(k,26) +rxt(k,159)*y(k,26) +rxt(k,169)*y(k,69) + & + rxt(k,191)*y(k,3) +rxt(k,192)*y(k,3))*y(k,26) + (rxt(k,87) + & + rxt(k,95) +2.000_r8*rxt(k,97)*y(k,55))*y(k,66) +rxt(k,189)*y(k,3) & + *y(k,3) +rxt(k,123)*y(k,69)*y(k,45) +rxt(k,129)*y(k,52)*y(k,48) & + +rxt(k,143)*y(k,65)*y(k,49) +rxt(k,277)*y(k,68)*y(k,51) +rxt(k,19) & + *y(k,53) +rxt(k,88)*y(k,67) + loss(k,49) = (rxt(k,188)* y(k,1) +rxt(k,156)* y(k,23) +rxt(k,114)* y(k,34) & + +rxt(k,140)* y(k,51) +rxt(k,132)* y(k,52) +rxt(k,103)* y(k,54) & + +rxt(k,113)* y(k,60) +rxt(k,94)* y(k,65) +rxt(k,119)* y(k,69) & + + rxt(k,7) + rxt(k,8) + het_rates(k,56))* y(k,56) + prod(k,49) =rxt(k,105)*y(k,55)*y(k,54) + loss(k,3) = ( + rxt(k,59) + het_rates(k,57))* y(k,57) + prod(k,3) = (rxt(k,160)*y(k,26) +rxt(k,190)*y(k,3))*y(k,26) loss(k,27) = (rxt(k,268)* y(k,62) +rxt(k,266)* y(k,63) +rxt(k,267)* y(k,68) & - + het_rates(k,60))* y(k,60) + + het_rates(k,59))* y(k,59) prod(k,27) = (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,54) + (rxt(k,71) +rxt(k,72) + & - rxt(k,73) +rxt(k,74) +rxt(k,75) +rxt(k,76))*y(k,53) +rxt(k,62) & - *y(k,47) +rxt(k,16)*y(k,50) - loss(k,28) = (rxt(k,124)* y(k,53) +rxt(k,125)* y(k,54) +rxt(k,280)* y(k,70) & + rxt(k,84) +rxt(k,85) +rxt(k,86))*y(k,55) + (rxt(k,71) +rxt(k,72) + & + rxt(k,73) +rxt(k,74) +rxt(k,75) +rxt(k,76))*y(k,54) +rxt(k,62) & + *y(k,48) +rxt(k,16)*y(k,51) + loss(k,37) = (rxt(k,187)* y(k,1) +rxt(k,193)* y(k,3) +rxt(k,233)* y(k,19) & + + (rxt(k,154) +rxt(k,155))* y(k,23) +rxt(k,161)* y(k,26) & + + (rxt(k,108) +rxt(k,109) +rxt(k,110))* y(k,34) +rxt(k,139)* y(k,51) & + +rxt(k,144)* y(k,52) +rxt(k,134)* y(k,53) +rxt(k,112)* y(k,54) & + +rxt(k,113)* y(k,56) + 2._r8*rxt(k,122)* y(k,60) +rxt(k,117) & + * y(k,69) + rxt(k,242) + het_rates(k,60))* y(k,60) + prod(k,37) = (rxt(k,216)*y(k,16) +rxt(k,219)*y(k,18) +rxt(k,116)*y(k,37) + & + rxt(k,119)*y(k,56) +rxt(k,137)*y(k,53) +rxt(k,168)*y(k,26) + & + rxt(k,198)*y(k,3) +rxt(k,237)*y(k,29))*y(k,69) & + + (rxt(k,150)*y(k,23) +rxt(k,186)*y(k,1) +rxt(k,230)*y(k,53) + & + rxt(k,231)*y(k,54))*y(k,15) + (rxt(k,215)*y(k,16) + & + rxt(k,218)*y(k,18) +rxt(k,153)*y(k,37))*y(k,23) & + + (rxt(k,157)*y(k,26) +rxt(k,234)*y(k,51))*y(k,19) + (rxt(k,11) + & + rxt(k,148))*y(k,45) +rxt(k,239)*y(k,65)*y(k,21) +rxt(k,111)*y(k,55) & + *y(k,34) +rxt(k,107)*y(k,54)*y(k,37) + loss(k,28) = (rxt(k,124)* y(k,54) +rxt(k,125)* y(k,55) +rxt(k,280)* y(k,70) & + het_rates(k,61))* y(k,61) - prod(k,28) = (.800_r8*rxt(k,266)*y(k,63) +.900_r8*rxt(k,268)*y(k,62))*y(k,60) & - +rxt(k,270)*y(k,62)*y(k,53) - loss(k,18) = ((rxt(k,270) +rxt(k,271))* y(k,53) +rxt(k,269)* y(k,54) & - +rxt(k,268)* y(k,60) + het_rates(k,62))* y(k,62) + prod(k,28) = (.800_r8*rxt(k,266)*y(k,63) +.900_r8*rxt(k,268)*y(k,62))*y(k,59) & + +rxt(k,270)*y(k,62)*y(k,54) + loss(k,18) = ((rxt(k,270) +rxt(k,271))* y(k,54) +rxt(k,269)* y(k,55) & + +rxt(k,268)* y(k,59) + het_rates(k,62))* y(k,62) prod(k,18) =rxt(k,283)*y(k,71) +rxt(k,288)*y(k,72) - loss(k,19) = (rxt(k,266)* y(k,60) + het_rates(k,63))* y(k,63) - prod(k,19) = (rxt(k,276) +rxt(k,275)*y(k,47) +rxt(k,277)*y(k,50))*y(k,68) & - +rxt(k,16)*y(k,50) +rxt(k,270)*y(k,62)*y(k,53) +rxt(k,274)*y(k,64) & - *y(k,54) +rxt(k,279)*y(k,70) - loss(k,24) = (rxt(k,272)* y(k,53) + (rxt(k,273) +rxt(k,274))* y(k,54) & + loss(k,19) = (rxt(k,266)* y(k,59) + het_rates(k,63))* y(k,63) + prod(k,19) = (rxt(k,276) +rxt(k,275)*y(k,48) +rxt(k,277)*y(k,51))*y(k,68) & + +rxt(k,16)*y(k,51) +rxt(k,270)*y(k,62)*y(k,54) +rxt(k,274)*y(k,64) & + *y(k,55) +rxt(k,279)*y(k,70) + loss(k,24) = (rxt(k,272)* y(k,54) + (rxt(k,273) +rxt(k,274))* y(k,55) & + het_rates(k,64))* y(k,64) - prod(k,24) =rxt(k,62)*y(k,47) +rxt(k,280)*y(k,70)*y(k,61) +rxt(k,289)*y(k,72) - loss(k,42) = (rxt(k,175)* y(k,5) +rxt(k,176)* y(k,6) +rxt(k,202)* y(k,7) & - +rxt(k,177)* y(k,8) +rxt(k,178)* y(k,9) +rxt(k,179)* y(k,10) & - +rxt(k,180)* y(k,11) +rxt(k,181)* y(k,12) +rxt(k,225)* y(k,13) & - +rxt(k,226)* y(k,15) + (rxt(k,238) +rxt(k,239) +rxt(k,240))* y(k,20) & - +rxt(k,203)* y(k,21) +rxt(k,211)* y(k,29) +rxt(k,212)* y(k,30) & - +rxt(k,89)* y(k,33) +rxt(k,204)* y(k,34) + (rxt(k,205) +rxt(k,206)) & - * y(k,36) +rxt(k,227)* y(k,37) +rxt(k,228)* y(k,38) +rxt(k,229) & - * y(k,39) + (rxt(k,182) +rxt(k,183))* y(k,40) + (rxt(k,142) + & - rxt(k,143))* y(k,48) + (rxt(k,92) +rxt(k,93))* y(k,54) +rxt(k,94) & - * y(k,55) +rxt(k,90)* y(k,73) + rxt(k,91) + het_rates(k,65))* y(k,65) - prod(k,42) = (rxt(k,6) +rxt(k,125)*y(k,61))*y(k,54) +rxt(k,7)*y(k,55) & - +.850_r8*rxt(k,267)*y(k,68)*y(k,60) +rxt(k,1)*y(k,73) - loss(k,4) = (rxt(k,96)* y(k,53) +rxt(k,97)* y(k,54) + rxt(k,87) + rxt(k,95) & + prod(k,24) =rxt(k,62)*y(k,48) +rxt(k,280)*y(k,70)*y(k,61) +rxt(k,289)*y(k,72) + loss(k,42) = (rxt(k,175)* y(k,6) +rxt(k,176)* y(k,7) +rxt(k,202)* y(k,8) & + +rxt(k,177)* y(k,9) +rxt(k,178)* y(k,10) +rxt(k,179)* y(k,11) & + +rxt(k,180)* y(k,12) +rxt(k,181)* y(k,13) +rxt(k,225)* y(k,14) & + +rxt(k,226)* y(k,16) + (rxt(k,238) +rxt(k,239) +rxt(k,240))* y(k,21) & + +rxt(k,203)* y(k,22) +rxt(k,211)* y(k,31) +rxt(k,212)* y(k,32) & + +rxt(k,89)* y(k,35) +rxt(k,204)* y(k,36) + (rxt(k,205) +rxt(k,206)) & + * y(k,38) +rxt(k,227)* y(k,39) +rxt(k,228)* y(k,40) +rxt(k,229) & + * y(k,41) + (rxt(k,182) +rxt(k,183))* y(k,42) + (rxt(k,142) + & + rxt(k,143))* y(k,49) + (rxt(k,92) +rxt(k,93))* y(k,55) +rxt(k,94) & + * y(k,56) +rxt(k,90)* y(k,73) + rxt(k,91) + het_rates(k,65))* y(k,65) + prod(k,42) = (rxt(k,6) +rxt(k,125)*y(k,61))*y(k,55) +rxt(k,7)*y(k,56) & + +.850_r8*rxt(k,267)*y(k,68)*y(k,59) +rxt(k,1)*y(k,73) + loss(k,4) = (rxt(k,96)* y(k,54) +rxt(k,97)* y(k,55) + rxt(k,87) + rxt(k,95) & + het_rates(k,66))* y(k,66) - prod(k,4) = (rxt(k,99) +rxt(k,98)*y(k,28) +rxt(k,100)*y(k,53) + & - rxt(k,101)*y(k,54) +rxt(k,102)*y(k,55))*y(k,67) +rxt(k,7)*y(k,55) - loss(k,5) = (rxt(k,98)* y(k,28) +rxt(k,100)* y(k,53) +rxt(k,101)* y(k,54) & - +rxt(k,102)* y(k,55) + rxt(k,88) + rxt(k,99) + het_rates(k,67)) & + prod(k,4) = (rxt(k,99) +rxt(k,98)*y(k,30) +rxt(k,100)*y(k,54) + & + rxt(k,101)*y(k,55) +rxt(k,102)*y(k,56))*y(k,67) +rxt(k,7)*y(k,56) + loss(k,5) = (rxt(k,98)* y(k,30) +rxt(k,100)* y(k,54) +rxt(k,101)* y(k,55) & + +rxt(k,102)* y(k,56) + rxt(k,88) + rxt(k,99) + het_rates(k,67)) & * y(k,67) - prod(k,5) =rxt(k,92)*y(k,65)*y(k,54) - loss(k,26) = (rxt(k,275)* y(k,47) +rxt(k,277)* y(k,50) +rxt(k,267)* y(k,60) & + prod(k,5) =rxt(k,92)*y(k,65)*y(k,55) + loss(k,26) = (rxt(k,275)* y(k,48) +rxt(k,277)* y(k,51) +rxt(k,267)* y(k,59) & + rxt(k,276) + het_rates(k,68))* y(k,68) prod(k,26) = (rxt(k,78) +rxt(k,80) +rxt(k,269)*y(k,62) +rxt(k,273)*y(k,64) + & - rxt(k,281)*y(k,70) +rxt(k,285)*y(k,71))*y(k,54) +rxt(k,278)*y(k,70) & - *y(k,28) - loss(k,46) = (rxt(k,198)* y(k,2) +rxt(k,214)* y(k,13) +rxt(k,232)* y(k,14) & - +rxt(k,216)* y(k,15) +rxt(k,217)* y(k,16) +rxt(k,219)* y(k,17) & - +rxt(k,235)* y(k,19) +rxt(k,236)* y(k,20) +rxt(k,221)* y(k,21) & - + (rxt(k,168) +rxt(k,169))* y(k,24) +rxt(k,166)* y(k,25) & - + (rxt(k,237) +rxt(k,241))* y(k,27) +rxt(k,115)* y(k,33) +rxt(k,116) & - * y(k,35) +rxt(k,200)* y(k,36) +rxt(k,222)* y(k,37) +rxt(k,223) & - * y(k,38) +rxt(k,224)* y(k,39) +rxt(k,171)* y(k,40) +rxt(k,147) & - * y(k,42) +rxt(k,117)* y(k,43) +rxt(k,123)* y(k,44) +rxt(k,174) & - * y(k,46) +rxt(k,138)* y(k,47) +rxt(k,146)* y(k,51) +rxt(k,137) & - * y(k,52) +rxt(k,118)* y(k,53) +rxt(k,119)* y(k,55) & + rxt(k,281)*y(k,70) +rxt(k,285)*y(k,71))*y(k,55) +rxt(k,278)*y(k,70) & + *y(k,30) + loss(k,46) = (rxt(k,198)* y(k,3) +rxt(k,214)* y(k,14) +rxt(k,232)* y(k,15) & + +rxt(k,216)* y(k,16) +rxt(k,217)* y(k,17) +rxt(k,219)* y(k,18) & + +rxt(k,235)* y(k,20) +rxt(k,236)* y(k,21) +rxt(k,221)* y(k,22) & + + (rxt(k,168) +rxt(k,169))* y(k,26) +rxt(k,166)* y(k,27) & + + (rxt(k,237) +rxt(k,241))* y(k,29) +rxt(k,115)* y(k,35) +rxt(k,116) & + * y(k,37) +rxt(k,200)* y(k,38) +rxt(k,222)* y(k,39) +rxt(k,223) & + * y(k,40) +rxt(k,224)* y(k,41) +rxt(k,171)* y(k,42) +rxt(k,147) & + * y(k,44) +rxt(k,123)* y(k,45) +rxt(k,174)* y(k,47) +rxt(k,138) & + * y(k,48) +rxt(k,146)* y(k,52) +rxt(k,137)* y(k,53) +rxt(k,118) & + * y(k,54) +rxt(k,119)* y(k,56) +rxt(k,117)* y(k,60) & + 2._r8*(rxt(k,120) +rxt(k,121))* y(k,69) + het_rates(k,69)) & * y(k,69) - prod(k,46) = (rxt(k,106)*y(k,33) +rxt(k,107)*y(k,35) +rxt(k,112)*y(k,43) + & - rxt(k,170)*y(k,40) +rxt(k,173)*y(k,46) +rxt(k,199)*y(k,36) + & - rxt(k,201)*y(k,45) +rxt(k,231)*y(k,14))*y(k,53) & - + (2.000_r8*rxt(k,109)*y(k,32) +rxt(k,113)*y(k,55) + & - rxt(k,134)*y(k,52) +rxt(k,139)*y(k,50) +rxt(k,155)*y(k,59))*y(k,43) & - + (rxt(k,238)*y(k,20) +rxt(k,89)*y(k,33) + & - 2.000_r8*rxt(k,90)*y(k,73) +rxt(k,182)*y(k,40) +rxt(k,205)*y(k,36)) & - *y(k,65) + (rxt(k,22) +.300_r8*rxt(k,235)*y(k,69))*y(k,19) & - + (rxt(k,3) +rxt(k,209)*y(k,31))*y(k,73) +rxt(k,114)*y(k,55)*y(k,32) & - +2.000_r8*rxt(k,4)*y(k,35) +rxt(k,9)*y(k,42) +rxt(k,10)*y(k,44) & - +rxt(k,57)*y(k,45) +rxt(k,58)*y(k,46) +.500_r8*rxt(k,244)*y(k,51) - loss(k,25) = (rxt(k,278)* y(k,28) +rxt(k,281)* y(k,54) +rxt(k,280)* y(k,61) & + prod(k,46) = (rxt(k,106)*y(k,35) +rxt(k,107)*y(k,37) +rxt(k,112)*y(k,60) + & + rxt(k,170)*y(k,42) +rxt(k,173)*y(k,47) +rxt(k,199)*y(k,38) + & + rxt(k,201)*y(k,46) +rxt(k,231)*y(k,15))*y(k,54) & + + (2.000_r8*rxt(k,109)*y(k,34) +rxt(k,113)*y(k,56) + & + rxt(k,134)*y(k,53) +rxt(k,139)*y(k,51) +rxt(k,155)*y(k,23))*y(k,60) & + + (rxt(k,238)*y(k,21) +rxt(k,89)*y(k,35) + & + 2.000_r8*rxt(k,90)*y(k,73) +rxt(k,182)*y(k,42) +rxt(k,205)*y(k,38)) & + *y(k,65) + (rxt(k,22) +.300_r8*rxt(k,235)*y(k,69))*y(k,20) & + + (rxt(k,3) +rxt(k,209)*y(k,33))*y(k,73) +rxt(k,114)*y(k,56)*y(k,34) & + +2.000_r8*rxt(k,4)*y(k,37) +rxt(k,9)*y(k,44) +rxt(k,10)*y(k,45) & + +rxt(k,57)*y(k,46) +rxt(k,58)*y(k,47) +.500_r8*rxt(k,244)*y(k,52) + loss(k,25) = (rxt(k,278)* y(k,30) +rxt(k,281)* y(k,55) +rxt(k,280)* y(k,61) & + rxt(k,279) + het_rates(k,70))* y(k,70) prod(k,25) = (rxt(k,71) +rxt(k,72) +rxt(k,271)*y(k,62) +rxt(k,272)*y(k,64) + & - rxt(k,284)*y(k,71) +rxt(k,290)*y(k,72))*y(k,53) + (rxt(k,79) + & - rxt(k,81))*y(k,54) + (rxt(k,282)*y(k,71) +rxt(k,287)*y(k,72))*y(k,60) & + rxt(k,284)*y(k,71) +rxt(k,290)*y(k,72))*y(k,54) + (rxt(k,79) + & + rxt(k,81))*y(k,55) + (rxt(k,282)*y(k,71) +rxt(k,287)*y(k,72))*y(k,59) & +rxt(k,264)*y(k,71) +rxt(k,263)*y(k,72) - loss(k,14) = (rxt(k,284)* y(k,53) +rxt(k,285)* y(k,54) +rxt(k,282)* y(k,60) & + loss(k,14) = (rxt(k,284)* y(k,54) +rxt(k,285)* y(k,55) +rxt(k,282)* y(k,59) & + rxt(k,264) + rxt(k,283) + het_rates(k,71))* y(k,71) - prod(k,14) = (rxt(k,73) +rxt(k,75))*y(k,53) + (rxt(k,84) +rxt(k,86))*y(k,54) & - + (rxt(k,265) +rxt(k,286)*y(k,60))*y(k,72) - loss(k,13) = (rxt(k,290)* y(k,53) + (rxt(k,286) +rxt(k,287))* y(k,60) & + prod(k,14) = (rxt(k,73) +rxt(k,75))*y(k,54) + (rxt(k,84) +rxt(k,86))*y(k,55) & + + (rxt(k,265) +rxt(k,286)*y(k,59))*y(k,72) + loss(k,13) = (rxt(k,290)* y(k,54) + (rxt(k,286) +rxt(k,287))* y(k,59) & + rxt(k,263) + rxt(k,265) + rxt(k,288) + rxt(k,289) & + het_rates(k,72))* y(k,72) - prod(k,13) = (rxt(k,74) +rxt(k,76))*y(k,53) + (rxt(k,77) +rxt(k,85))*y(k,54) - loss(k,33) = (rxt(k,209)* y(k,31) +rxt(k,90)* y(k,65) + rxt(k,1) + rxt(k,2) & + prod(k,13) = (rxt(k,74) +rxt(k,76))*y(k,54) + (rxt(k,77) +rxt(k,85))*y(k,55) + loss(k,33) = (rxt(k,209)* y(k,33) +rxt(k,90)* y(k,65) + rxt(k,1) + rxt(k,2) & + rxt(k,3) + het_rates(k,73))* y(k,73) - prod(k,33) = (rxt(k,214)*y(k,13) +rxt(k,216)*y(k,15) +rxt(k,217)*y(k,16) + & - rxt(k,219)*y(k,17) +rxt(k,224)*y(k,39) +rxt(k,236)*y(k,20) + & - rxt(k,115)*y(k,33) +rxt(k,116)*y(k,35) +rxt(k,117)*y(k,43) + & - rxt(k,120)*y(k,69) +rxt(k,123)*y(k,44) +rxt(k,147)*y(k,42) + & - rxt(k,171)*y(k,40) +rxt(k,174)*y(k,46) +rxt(k,200)*y(k,36) + & - rxt(k,232)*y(k,14) +rxt(k,235)*y(k,19))*y(k,69) & - + (rxt(k,247)*y(k,46) +rxt(k,253)*y(k,46) +rxt(k,254)*y(k,45) + & - rxt(k,258)*y(k,46) +rxt(k,259)*y(k,45))*y(k,40) +rxt(k,110)*y(k,43) & - *y(k,32) + prod(k,33) = (rxt(k,214)*y(k,14) +rxt(k,216)*y(k,16) +rxt(k,217)*y(k,17) + & + rxt(k,219)*y(k,18) +rxt(k,224)*y(k,41) +rxt(k,236)*y(k,21) + & + rxt(k,115)*y(k,35) +rxt(k,116)*y(k,37) +rxt(k,117)*y(k,60) + & + rxt(k,120)*y(k,69) +rxt(k,123)*y(k,45) +rxt(k,147)*y(k,44) + & + rxt(k,171)*y(k,42) +rxt(k,174)*y(k,47) +rxt(k,200)*y(k,38) + & + rxt(k,232)*y(k,15) +rxt(k,235)*y(k,20))*y(k,69) & + + (rxt(k,247)*y(k,47) +rxt(k,253)*y(k,47) +rxt(k,254)*y(k,46) + & + rxt(k,258)*y(k,47) +rxt(k,259)*y(k,46))*y(k,42) +rxt(k,110)*y(k,60) & + *y(k,34) end do end subroutine imp_prod_loss end module mo_prod_loss diff --git a/src/chemistry/pp_waccm_ma/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_ma/mo_rxt_rates_conv.F90 index af8d25f9b5..901f3821b0 100644 --- a/src/chemistry/pp_waccm_ma/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_ma/mo_rxt_rates_conv.F90 @@ -11,65 +11,65 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 73) ! rate_const*H2O rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 73) ! rate_const*H2O rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 73) ! rate_const*H2O - rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 35) ! rate_const*H2O2 - rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 55) ! rate_const*O3 - rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 55) ! rate_const*O3 - rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 42) ! rate_const*HNO3 - rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 44) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 44) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 48) ! rate_const*N2O - rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 49) ! rate_const*N2O5 - rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 49) ! rate_const*N2O5 - rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 50) ! rate_const*NO - rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 50) ! rate_const*NO - rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 51) ! rate_const*NO2 - rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 52) ! rate_const*NO3 - rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 52) ! rate_const*NO3 - rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 14) ! rate_const*CH2O - rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 14) ! rate_const*CH2O - rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 19) ! rate_const*CH3OOH - rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 20) ! rate_const*CH4 - rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 20) ! rate_const*CH4 - rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 28) ! rate_const*CO2 - rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 1) ! rate_const*BRCL - rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 2) ! rate_const*BRO - rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 5) ! rate_const*CCL4 - rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 6) ! rate_const*CF2CLBR - rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 7) ! rate_const*CF3BR - rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 8) ! rate_const*CFC11 - rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 9) ! rate_const*CFC113 - rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 10) ! rate_const*CFC114 - rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 11) ! rate_const*CFC115 - rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 12) ! rate_const*CFC12 - rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 13) ! rate_const*CH2BR2 - rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 15) ! rate_const*CH3BR - rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 16) ! rate_const*CH3CCL3 - rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 17) ! rate_const*CH3CL - rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 21) ! rate_const*CHBR3 - rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 22) ! rate_const*CL2 - rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 23) ! rate_const*CL2O2 - rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 24) ! rate_const*CLO - rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 29) ! rate_const*COF2 - rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 30) ! rate_const*COFCL - rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 34) ! rate_const*H2402 - rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 36) ! rate_const*HBR - rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 37) ! rate_const*HCFC141B - rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 38) ! rate_const*HCFC142B - rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 39) ! rate_const*HCFC22 - rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 40) ! rate_const*HCL - rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 41) ! rate_const*HF - rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 45) ! rate_const*HOBR - rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 46) ! rate_const*HOCL - rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 56) ! rate_const*OCLO - rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 57) ! rate_const*SF6 - rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 28) ! rate_const*CO2 - rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 47) ! rate_const*N + rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 37) ! rate_const*H2O2 + rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 56) ! rate_const*O3 + rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 56) ! rate_const*O3 + rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 44) ! rate_const*HNO3 + rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 45) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 45) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 49) ! rate_const*N2O + rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 50) ! rate_const*N2O5 + rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 50) ! rate_const*N2O5 + rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 51) ! rate_const*NO + rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 51) ! rate_const*NO + rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 52) ! rate_const*NO2 + rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 53) ! rate_const*NO3 + rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 53) ! rate_const*NO3 + rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 15) ! rate_const*CH2O + rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 15) ! rate_const*CH2O + rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 20) ! rate_const*CH3OOH + rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 21) ! rate_const*CH4 + rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 21) ! rate_const*CH4 + rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 30) ! rate_const*CO2 + rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 2) ! rate_const*BRCL + rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 3) ! rate_const*BRO + rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 6) ! rate_const*CCL4 + rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 7) ! rate_const*CF2CLBR + rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 8) ! rate_const*CF3BR + rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 9) ! rate_const*CFC11 + rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 10) ! rate_const*CFC113 + rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 11) ! rate_const*CFC114 + rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 12) ! rate_const*CFC115 + rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 13) ! rate_const*CFC12 + rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 14) ! rate_const*CH2BR2 + rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 16) ! rate_const*CH3BR + rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 17) ! rate_const*CH3CCL3 + rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 18) ! rate_const*CH3CL + rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 22) ! rate_const*CHBR3 + rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 24) ! rate_const*CL2 + rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 25) ! rate_const*CL2O2 + rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 26) ! rate_const*CLO + rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 31) ! rate_const*COF2 + rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 32) ! rate_const*COFCL + rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 36) ! rate_const*H2402 + rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 38) ! rate_const*HBR + rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 39) ! rate_const*HCFC141B + rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 40) ! rate_const*HCFC142B + rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 41) ! rate_const*HCFC22 + rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 42) ! rate_const*HCL + rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 43) ! rate_const*HF + rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 46) ! rate_const*HOBR + rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 47) ! rate_const*HOCL + rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 57) ! rate_const*OCLO + rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 58) ! rate_const*SF6 + rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 30) ! rate_const*CO2 + rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 48) ! rate_const*N ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 @@ -78,225 +78,225 @@ subroutine set_rates( rxt_rates, sol, ncol ) ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 - rxt_rates(:ncol,:, 71) = rxt_rates(:ncol,:, 71)*sol(:ncol,:, 53) ! rate_const*O - rxt_rates(:ncol,:, 72) = rxt_rates(:ncol,:, 72)*sol(:ncol,:, 53) ! rate_const*O - rxt_rates(:ncol,:, 73) = rxt_rates(:ncol,:, 73)*sol(:ncol,:, 53) ! rate_const*O - rxt_rates(:ncol,:, 74) = rxt_rates(:ncol,:, 74)*sol(:ncol,:, 53) ! rate_const*O - rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 53) ! rate_const*O - rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 53) ! rate_const*O - rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 54) ! rate_const*O2 - rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 54) ! rate_const*O2 + rxt_rates(:ncol,:, 71) = rxt_rates(:ncol,:, 71)*sol(:ncol,:, 54) ! rate_const*O + rxt_rates(:ncol,:, 72) = rxt_rates(:ncol,:, 72)*sol(:ncol,:, 54) ! rate_const*O + rxt_rates(:ncol,:, 73) = rxt_rates(:ncol,:, 73)*sol(:ncol,:, 54) ! rate_const*O + rxt_rates(:ncol,:, 74) = rxt_rates(:ncol,:, 74)*sol(:ncol,:, 54) ! rate_const*O + rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 54) ! rate_const*O + rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 54) ! rate_const*O + rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 55) ! rate_const*O2 rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 66) ! rate_const*O2_1D rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 67) ! rate_const*O2_1S - rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 65)*sol(:ncol,:, 33) ! rate_const*O1D*H2 + rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 65)*sol(:ncol,:, 35) ! rate_const*O1D*H2 rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 65)*sol(:ncol,:, 73) ! rate_const*O1D*H2O rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 65) ! rate_const*N2*O1D - rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 65)*sol(:ncol,:, 54) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 65)*sol(:ncol,:, 54) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 65)*sol(:ncol,:, 55) ! rate_const*O1D*O3 + rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 65)*sol(:ncol,:, 55) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 65)*sol(:ncol,:, 55) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 65)*sol(:ncol,:, 56) ! rate_const*O1D*O3 rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 66) ! rate_const*N2*O2_1D - rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 66)*sol(:ncol,:, 53) ! rate_const*O2_1D*O - rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 66)*sol(:ncol,:, 54) ! rate_const*O2_1D*O2 - rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 67)*sol(:ncol,:, 28) ! rate_const*O2_1S*CO2 + rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 66)*sol(:ncol,:, 54) ! rate_const*O2_1D*O + rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 66)*sol(:ncol,:, 55) ! rate_const*O2_1D*O2 + rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 67)*sol(:ncol,:, 30) ! rate_const*O2_1S*CO2 rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 67) ! rate_const*N2*O2_1S - rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 67)*sol(:ncol,:, 53) ! rate_const*O2_1S*O - rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 67)*sol(:ncol,:, 54) ! rate_const*O2_1S*O2 - rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 67)*sol(:ncol,:, 55) ! rate_const*O2_1S*O3 - rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 53)*sol(:ncol,:, 55) ! rate_const*O*O3 - rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 53)*sol(:ncol,:, 53) ! rate_const*M*O*O - rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 53)*sol(:ncol,:, 54) ! rate_const*M*O*O2 - rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 33)*sol(:ncol,:, 53) ! rate_const*H2*O - rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 35)*sol(:ncol,:, 53) ! rate_const*H2O2*O - rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 32)*sol(:ncol,:, 43) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 32)*sol(:ncol,:, 43) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 32)*sol(:ncol,:, 43) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 32)*sol(:ncol,:, 54) ! rate_const*M*H*O2 - rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 43)*sol(:ncol,:, 53) ! rate_const*HO2*O - rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 43)*sol(:ncol,:, 55) ! rate_const*HO2*O3 - rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 32)*sol(:ncol,:, 55) ! rate_const*H*O3 - rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 69)*sol(:ncol,:, 33) ! rate_const*OH*H2 - rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 69)*sol(:ncol,:, 35) ! rate_const*OH*H2O2 - rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 69)*sol(:ncol,:, 43) ! rate_const*OH*HO2 - rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 69)*sol(:ncol,:, 53) ! rate_const*OH*O - rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 69)*sol(:ncol,:, 55) ! rate_const*OH*O3 + rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 67)*sol(:ncol,:, 54) ! rate_const*O2_1S*O + rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 67)*sol(:ncol,:, 55) ! rate_const*O2_1S*O2 + rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 67)*sol(:ncol,:, 56) ! rate_const*O2_1S*O3 + rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 54)*sol(:ncol,:, 56) ! rate_const*O*O3 + rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 54)*sol(:ncol,:, 54) ! rate_const*M*O*O + rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 54)*sol(:ncol,:, 55) ! rate_const*M*O*O2 + rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 35)*sol(:ncol,:, 54) ! rate_const*H2*O + rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 37)*sol(:ncol,:, 54) ! rate_const*H2O2*O + rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 34)*sol(:ncol,:, 60) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 34)*sol(:ncol,:, 60) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 34)*sol(:ncol,:, 60) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 34)*sol(:ncol,:, 55) ! rate_const*M*H*O2 + rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 60)*sol(:ncol,:, 54) ! rate_const*HO2*O + rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 60)*sol(:ncol,:, 56) ! rate_const*HO2*O3 + rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 34)*sol(:ncol,:, 56) ! rate_const*H*O3 + rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 69)*sol(:ncol,:, 35) ! rate_const*OH*H2 + rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 69)*sol(:ncol,:, 37) ! rate_const*OH*H2O2 + rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 69)*sol(:ncol,:, 60) ! rate_const*OH*HO2 + rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 69)*sol(:ncol,:, 54) ! rate_const*OH*O + rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 69)*sol(:ncol,:, 56) ! rate_const*OH*O3 rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 69)*sol(:ncol,:, 69) ! rate_const*OH*OH rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 69)*sol(:ncol,:, 69) ! rate_const*M*OH*OH - rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 43)*sol(:ncol,:, 43) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 44)*sol(:ncol,:, 69) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 61)*sol(:ncol,:, 53) ! rate_const*N2D*O - rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 61)*sol(:ncol,:, 54) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 47)*sol(:ncol,:, 50) ! rate_const*N*NO - rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 47)*sol(:ncol,:, 51) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 47)*sol(:ncol,:, 51) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 47)*sol(:ncol,:, 51) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 47)*sol(:ncol,:, 54) ! rate_const*N*O2 - rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 51)*sol(:ncol,:, 53) ! rate_const*NO2*O - rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 51)*sol(:ncol,:, 55) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 51)*sol(:ncol,:, 53) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 52)*sol(:ncol,:, 43) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 52)*sol(:ncol,:, 50) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 52)*sol(:ncol,:, 53) ! rate_const*NO3*O - rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 52)*sol(:ncol,:, 69) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 47)*sol(:ncol,:, 69) ! rate_const*N*OH - rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 50)*sol(:ncol,:, 43) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 50)*sol(:ncol,:, 55) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 50)*sol(:ncol,:, 53) ! rate_const*M*NO*O - rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 65)*sol(:ncol,:, 48) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 65)*sol(:ncol,:, 48) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 51)*sol(:ncol,:, 43) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 51)*sol(:ncol,:, 52) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 51)*sol(:ncol,:, 69) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 42)*sol(:ncol,:, 69) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 44) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 49) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 59)*sol(:ncol,:, 14) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 59)*sol(:ncol,:, 20) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 59)*sol(:ncol,:, 33) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 59)*sol(:ncol,:, 35) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 59)*sol(:ncol,:, 43) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 59)*sol(:ncol,:, 43) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 59)*sol(:ncol,:, 55) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 24)*sol(:ncol,:, 18) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 24)*sol(:ncol,:, 24) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 24)*sol(:ncol,:, 24) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 24)*sol(:ncol,:, 24) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 24)*sol(:ncol,:, 43) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 24)*sol(:ncol,:, 50) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 25)*sol(:ncol,:, 59) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 24)*sol(:ncol,:, 51) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 25)*sol(:ncol,:, 53) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 25)*sol(:ncol,:, 69) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 24)*sol(:ncol,:, 53) ! rate_const*CLO*O - rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 24)*sol(:ncol,:, 69) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 24)*sol(:ncol,:, 69) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 40)*sol(:ncol,:, 53) ! rate_const*HCL*O - rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 40)*sol(:ncol,:, 69) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 46)*sol(:ncol,:, 59) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 46)*sol(:ncol,:, 53) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 46)*sol(:ncol,:, 69) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 65)*sol(:ncol,:, 5) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 65)*sol(:ncol,:, 6) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 65)*sol(:ncol,:, 8) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 65)*sol(:ncol,:, 9) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 65)*sol(:ncol,:, 10) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 65)*sol(:ncol,:, 11) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 65)*sol(:ncol,:, 12) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 65)*sol(:ncol,:, 40) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 65)*sol(:ncol,:, 40) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 24)*sol(:ncol,:, 24) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 23) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 58)*sol(:ncol,:, 14) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 58)*sol(:ncol,:, 43) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 58)*sol(:ncol,:, 55) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 2)*sol(:ncol,:, 2) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 2)*sol(:ncol,:, 24) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 2)*sol(:ncol,:, 24) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 2)*sol(:ncol,:, 24) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 2)*sol(:ncol,:, 43) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 2)*sol(:ncol,:, 50) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 2)*sol(:ncol,:, 51) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 3)*sol(:ncol,:, 53) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 2)*sol(:ncol,:, 53) ! rate_const*BRO*O - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 2)*sol(:ncol,:, 69) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 36)*sol(:ncol,:, 53) ! rate_const*HBR*O - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 36)*sol(:ncol,:, 69) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 45)*sol(:ncol,:, 53) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 65)*sol(:ncol,:, 7) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 65)*sol(:ncol,:, 21) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 65)*sol(:ncol,:, 34) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 65)*sol(:ncol,:, 36) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 65)*sol(:ncol,:, 36) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 31)*sol(:ncol,:, 20) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 31)*sol(:ncol,:, 33) ! rate_const*F*H2 - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 31)*sol(:ncol,:, 73) ! rate_const*F*H2O - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 31)*sol(:ncol,:, 42) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 65)*sol(:ncol,:, 29) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 65)*sol(:ncol,:, 30) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 13)*sol(:ncol,:, 59) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 13)*sol(:ncol,:, 69) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 15)*sol(:ncol,:, 59) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 15)*sol(:ncol,:, 69) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 16)*sol(:ncol,:, 69) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 17)*sol(:ncol,:, 59) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 17)*sol(:ncol,:, 69) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 21)*sol(:ncol,:, 59) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 21)*sol(:ncol,:, 69) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 37)*sol(:ncol,:, 69) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 38)*sol(:ncol,:, 69) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 39)*sol(:ncol,:, 69) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 65)*sol(:ncol,:, 13) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 65)*sol(:ncol,:, 15) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 65)*sol(:ncol,:, 37) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 65)*sol(:ncol,:, 38) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 65)*sol(:ncol,:, 39) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 14)*sol(:ncol,:, 52) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 14)*sol(:ncol,:, 53) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 14)*sol(:ncol,:, 69) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 18)*sol(:ncol,:, 43) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 18)*sol(:ncol,:, 50) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 19)*sol(:ncol,:, 69) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 20)*sol(:ncol,:, 69) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 27)*sol(:ncol,:, 69) ! rate_const*M*CO*OH - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 65)*sol(:ncol,:, 20) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 65)*sol(:ncol,:, 20) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 65)*sol(:ncol,:, 20) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 27)*sol(:ncol,:, 69) ! rate_const*CO*OH - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 43) ! rate_const*HO2 - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 49) ! rate_const*N2O5 - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 51) ! rate_const*NO2 - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 52) ! rate_const*NO3 - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 49) ! rate_const*N2O5 - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 46)*sol(:ncol,:, 40) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 49) ! rate_const*N2O5 - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 25)*sol(:ncol,:, 40) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 46)*sol(:ncol,:, 40) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 45)*sol(:ncol,:, 40) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 25)*sol(:ncol,:, 40) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 46)*sol(:ncol,:, 40) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 45)*sol(:ncol,:, 40) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 49) ! rate_const*N2O5 - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 25)*sol(:ncol,:, 40) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 60)*sol(:ncol,:, 60) ! rate_const*HO2*HO2 + rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 45)*sol(:ncol,:, 69) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 61)*sol(:ncol,:, 54) ! rate_const*N2D*O + rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 61)*sol(:ncol,:, 55) ! rate_const*N2D*O2 + rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 48)*sol(:ncol,:, 51) ! rate_const*N*NO + rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 48)*sol(:ncol,:, 52) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 48)*sol(:ncol,:, 52) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 48)*sol(:ncol,:, 52) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 48)*sol(:ncol,:, 55) ! rate_const*N*O2 + rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 52)*sol(:ncol,:, 54) ! rate_const*NO2*O + rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 52)*sol(:ncol,:, 56) ! rate_const*NO2*O3 + rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 52)*sol(:ncol,:, 54) ! rate_const*M*NO2*O + rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 53)*sol(:ncol,:, 60) ! rate_const*NO3*HO2 + rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 53)*sol(:ncol,:, 51) ! rate_const*NO3*NO + rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 53)*sol(:ncol,:, 54) ! rate_const*NO3*O + rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 53)*sol(:ncol,:, 69) ! rate_const*NO3*OH + rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 48)*sol(:ncol,:, 69) ! rate_const*N*OH + rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 51)*sol(:ncol,:, 60) ! rate_const*NO*HO2 + rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 51)*sol(:ncol,:, 56) ! rate_const*NO*O3 + rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 51)*sol(:ncol,:, 54) ! rate_const*M*NO*O + rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 65)*sol(:ncol,:, 49) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 65)*sol(:ncol,:, 49) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 52)*sol(:ncol,:, 60) ! rate_const*M*NO2*HO2 + rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 52)*sol(:ncol,:, 53) ! rate_const*M*NO2*NO3 + rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 52)*sol(:ncol,:, 69) ! rate_const*M*NO2*OH + rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 44)*sol(:ncol,:, 69) ! rate_const*HNO3*OH + rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 45) ! rate_const*M*HO2NO2 + rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 50) ! rate_const*M*N2O5 + rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 23)*sol(:ncol,:, 15) ! rate_const*CL*CH2O + rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 23)*sol(:ncol,:, 21) ! rate_const*CL*CH4 + rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 23)*sol(:ncol,:, 35) ! rate_const*CL*H2 + rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 23)*sol(:ncol,:, 37) ! rate_const*CL*H2O2 + rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 23)*sol(:ncol,:, 60) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 23)*sol(:ncol,:, 60) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 23)*sol(:ncol,:, 56) ! rate_const*CL*O3 + rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 26)*sol(:ncol,:, 19) ! rate_const*CLO*CH3O2 + rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 26)*sol(:ncol,:, 60) ! rate_const*CLO*HO2 + rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 26)*sol(:ncol,:, 51) ! rate_const*CLO*NO + rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 27)*sol(:ncol,:, 23) ! rate_const*CLONO2*CL + rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 26)*sol(:ncol,:, 52) ! rate_const*M*CLO*NO2 + rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 27)*sol(:ncol,:, 54) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 27)*sol(:ncol,:, 69) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 26)*sol(:ncol,:, 54) ! rate_const*CLO*O + rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 26)*sol(:ncol,:, 69) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 26)*sol(:ncol,:, 69) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 42)*sol(:ncol,:, 54) ! rate_const*HCL*O + rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 42)*sol(:ncol,:, 69) ! rate_const*HCL*OH + rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 47)*sol(:ncol,:, 23) ! rate_const*HOCL*CL + rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 47)*sol(:ncol,:, 54) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 47)*sol(:ncol,:, 69) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 65)*sol(:ncol,:, 6) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 65)*sol(:ncol,:, 7) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 65)*sol(:ncol,:, 9) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 65)*sol(:ncol,:, 10) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 65)*sol(:ncol,:, 11) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 65)*sol(:ncol,:, 12) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 65)*sol(:ncol,:, 13) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 65)*sol(:ncol,:, 42) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 65)*sol(:ncol,:, 42) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*M*CLO*CLO + rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 25) ! rate_const*M*CL2O2 + rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 1)*sol(:ncol,:, 15) ! rate_const*BR*CH2O + rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 1)*sol(:ncol,:, 60) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 1)*sol(:ncol,:, 56) ! rate_const*BR*O3 + rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 3)*sol(:ncol,:, 3) ! rate_const*BRO*BRO + rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 3)*sol(:ncol,:, 60) ! rate_const*BRO*HO2 + rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 3)*sol(:ncol,:, 51) ! rate_const*BRO*NO + rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 3)*sol(:ncol,:, 52) ! rate_const*M*BRO*NO2 + rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 4)*sol(:ncol,:, 54) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 3)*sol(:ncol,:, 54) ! rate_const*BRO*O + rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 3)*sol(:ncol,:, 69) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 38)*sol(:ncol,:, 54) ! rate_const*HBR*O + rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 38)*sol(:ncol,:, 69) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 46)*sol(:ncol,:, 54) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 65)*sol(:ncol,:, 8) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 65)*sol(:ncol,:, 22) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 65)*sol(:ncol,:, 36) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 65)*sol(:ncol,:, 38) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 65)*sol(:ncol,:, 38) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 33)*sol(:ncol,:, 21) ! rate_const*F*CH4 + rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 33)*sol(:ncol,:, 35) ! rate_const*F*H2 + rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 33)*sol(:ncol,:, 73) ! rate_const*F*H2O + rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 33)*sol(:ncol,:, 44) ! rate_const*F*HNO3 + rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 65)*sol(:ncol,:, 31) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 65)*sol(:ncol,:, 32) ! rate_const*O1D*COFCL + rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 14)*sol(:ncol,:, 23) ! rate_const*CH2BR2*CL + rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 14)*sol(:ncol,:, 69) ! rate_const*CH2BR2*OH + rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 16)*sol(:ncol,:, 23) ! rate_const*CH3BR*CL + rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 16)*sol(:ncol,:, 69) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 17)*sol(:ncol,:, 69) ! rate_const*CH3CCL3*OH + rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 18)*sol(:ncol,:, 23) ! rate_const*CH3CL*CL + rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 18)*sol(:ncol,:, 69) ! rate_const*CH3CL*OH + rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 22)*sol(:ncol,:, 23) ! rate_const*CHBR3*CL + rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 22)*sol(:ncol,:, 69) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 39)*sol(:ncol,:, 69) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 40)*sol(:ncol,:, 69) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 41)*sol(:ncol,:, 69) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 65)*sol(:ncol,:, 14) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 65)*sol(:ncol,:, 16) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 65)*sol(:ncol,:, 39) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 65)*sol(:ncol,:, 40) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 65)*sol(:ncol,:, 41) ! rate_const*O1D*HCFC22 + rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 15)*sol(:ncol,:, 53) ! rate_const*CH2O*NO3 + rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 15)*sol(:ncol,:, 54) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 15)*sol(:ncol,:, 69) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 19)*sol(:ncol,:, 60) ! rate_const*CH3O2*HO2 + rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 19)*sol(:ncol,:, 51) ! rate_const*CH3O2*NO + rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 20)*sol(:ncol,:, 69) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 21)*sol(:ncol,:, 69) ! rate_const*CH4*OH + rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 29)*sol(:ncol,:, 69) ! rate_const*M*CO*OH + rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 65)*sol(:ncol,:, 21) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 65)*sol(:ncol,:, 21) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 65)*sol(:ncol,:, 21) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 29)*sol(:ncol,:, 69) ! rate_const*CO*OH + rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 60) ! rate_const*HO2 + rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 50) ! rate_const*N2O5 + rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 52) ! rate_const*NO2 + rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 53) ! rate_const*NO3 + rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 50) ! rate_const*N2O5 + rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 47)*sol(:ncol,:, 42) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 50) ! rate_const*N2O5 + rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 27)*sol(:ncol,:, 42) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 47)*sol(:ncol,:, 42) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 46)*sol(:ncol,:, 42) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 27)*sol(:ncol,:, 42) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 47)*sol(:ncol,:, 42) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 46)*sol(:ncol,:, 42) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 50) ! rate_const*N2O5 + rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 27)*sol(:ncol,:, 42) ! rate_const*CLONO2*HCL rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 72) ! rate_const*Op2P rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 71) ! rate_const*Op2D rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 72) ! rate_const*Op2P - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 63)*sol(:ncol,:, 60) ! rate_const*NOp*e - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 68)*sol(:ncol,:, 60) ! rate_const*O2p*e - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 62)*sol(:ncol,:, 60) ! rate_const*N2p*e - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 62)*sol(:ncol,:, 54) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 62)*sol(:ncol,:, 53) ! rate_const*N2p*O - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 62)*sol(:ncol,:, 53) ! rate_const*N2p*O - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 64)*sol(:ncol,:, 53) ! rate_const*Np*O - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 64)*sol(:ncol,:, 54) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 64)*sol(:ncol,:, 54) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 68)*sol(:ncol,:, 47) ! rate_const*O2p*N + rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 63)*sol(:ncol,:, 59) ! rate_const*NOp*e + rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 68)*sol(:ncol,:, 59) ! rate_const*O2p*e + rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 62)*sol(:ncol,:, 59) ! rate_const*N2p*e + rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 62)*sol(:ncol,:, 55) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 62)*sol(:ncol,:, 54) ! rate_const*N2p*O + rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 62)*sol(:ncol,:, 54) ! rate_const*N2p*O + rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 64)*sol(:ncol,:, 54) ! rate_const*Np*O + rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 64)*sol(:ncol,:, 55) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 64)*sol(:ncol,:, 55) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 68)*sol(:ncol,:, 48) ! rate_const*O2p*N rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 68) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 68)*sol(:ncol,:, 50) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 70)*sol(:ncol,:, 28) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 68)*sol(:ncol,:, 51) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 70)*sol(:ncol,:, 30) ! rate_const*Op*CO2 rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 70) ! rate_const*N2*Op rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 70)*sol(:ncol,:, 61) ! rate_const*Op*N2D - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 70)*sol(:ncol,:, 54) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 71)*sol(:ncol,:, 60) ! rate_const*Op2D*e + rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 70)*sol(:ncol,:, 55) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 71)*sol(:ncol,:, 59) ! rate_const*Op2D*e rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 71) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 71)*sol(:ncol,:, 53) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 71)*sol(:ncol,:, 54) ! rate_const*Op2D*O2 - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 72)*sol(:ncol,:, 60) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 72)*sol(:ncol,:, 60) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 71)*sol(:ncol,:, 54) ! rate_const*Op2D*O + rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 71)*sol(:ncol,:, 55) ! rate_const*Op2D*O2 + rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 72)*sol(:ncol,:, 59) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 72)*sol(:ncol,:, 59) ! rate_const*Op2P*e rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 72) ! rate_const*N2*Op2P rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 72) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 72)*sol(:ncol,:, 53) ! rate_const*Op2P*O + rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 72)*sol(:ncol,:, 54) ! rate_const*Op2P*O end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_ma/mo_sim_dat.F90 b/src/chemistry/pp_waccm_ma/mo_sim_dat.F90 index c56667c039..e17aca3e5b 100644 --- a/src/chemistry/pp_waccm_ma/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_ma/mo_sim_dat.F90 @@ -36,47 +36,47 @@ subroutine set_sim_dat cls_rxt_cnt(:,1) = (/ 3, 59, 0, 23 /) cls_rxt_cnt(:,4) = (/ 30, 121, 138, 50 /) - solsym(: 73) = (/ 'BRCL ','BRO ','BRONO2 ','BRY ','CCL4 ', & - 'CF2CLBR ','CF3BR ','CFC11 ','CFC113 ','CFC114 ', & - 'CFC115 ','CFC12 ','CH2BR2 ','CH2O ','CH3BR ', & - 'CH3CCL3 ','CH3CL ','CH3O2 ','CH3OOH ','CH4 ', & - 'CHBR3 ','CL2 ','CL2O2 ','CLO ','CLONO2 ', & - 'CLY ','CO ','CO2 ','COF2 ','COFCL ', & - 'F ','H ','H2 ','H2402 ','H2O2 ', & - 'HBR ','HCFC141B ','HCFC142B ','HCFC22 ','HCL ', & - 'HF ','HNO3 ','HO2 ','HO2NO2 ','HOBR ', & - 'HOCL ','N ','N2O ','N2O5 ','NO ', & - 'NO2 ','NO3 ','O ','O2 ','O3 ', & - 'OCLO ','SF6 ','BR ','CL ','e ', & + solsym(: 73) = (/ 'BR ','BRCL ','BRO ','BRONO2 ','BRY ', & + 'CCL4 ','CF2CLBR ','CF3BR ','CFC11 ','CFC113 ', & + 'CFC114 ','CFC115 ','CFC12 ','CH2BR2 ','CH2O ', & + 'CH3BR ','CH3CCL3 ','CH3CL ','CH3O2 ','CH3OOH ', & + 'CH4 ','CHBR3 ','CL ','CL2 ','CL2O2 ', & + 'CLO ','CLONO2 ','CLY ','CO ','CO2 ', & + 'COF2 ','COFCL ','F ','H ','H2 ', & + 'H2402 ','H2O2 ','HBR ','HCFC141B ','HCFC142B ', & + 'HCFC22 ','HCL ','HF ','HNO3 ','HO2NO2 ', & + 'HOBR ','HOCL ','N ','N2O ','N2O5 ', & + 'NO ','NO2 ','NO3 ','O ','O2 ', & + 'O3 ','OCLO ','SF6 ','e ','HO2 ', & 'N2D ','N2p ','NOp ','Np ','O1D ', & 'O2_1D ','O2_1S ','O2p ','OH ','Op ', & 'Op2D ','Op2P ','H2O ' /) - adv_mass(: 73) = (/ 115.356700_r8, 95.903400_r8, 141.908940_r8, 99.716850_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, 50.485900_r8, 47.032000_r8, 48.039400_r8, 16.040600_r8, & - 252.730400_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, & - 18.998403_r8, 1.007400_r8, 2.014800_r8, 259.823613_r8, 34.013600_r8, & - 80.911400_r8, 116.948003_r8, 100.493706_r8, 86.467906_r8, 36.460100_r8, & - 20.005803_r8, 63.012340_r8, 33.006200_r8, 79.011740_r8, 96.910800_r8, & - 52.459500_r8, 14.006740_r8, 44.012880_r8, 108.010480_r8, 30.006140_r8, & - 46.005540_r8, 62.004940_r8, 15.999400_r8, 31.998800_r8, 47.998200_r8, & - 67.451500_r8, 146.056419_r8, 79.904000_r8, 35.452700_r8, 0.548567E-03_r8, & + adv_mass(: 73) = (/ 79.904000_r8, 115.356700_r8, 95.903400_r8, 141.908940_r8, 99.716850_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, 50.485900_r8, 47.032000_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, 18.998403_r8, 1.007400_r8, 2.014800_r8, & + 259.823613_r8, 34.013600_r8, 80.911400_r8, 116.948003_r8, 100.493706_r8, & + 86.467906_r8, 36.460100_r8, 20.005803_r8, 63.012340_r8, 79.011740_r8, & + 96.910800_r8, 52.459500_r8, 14.006740_r8, 44.012880_r8, 108.010480_r8, & + 30.006140_r8, 46.005540_r8, 62.004940_r8, 15.999400_r8, 31.998800_r8, & + 47.998200_r8, 67.451500_r8, 146.056419_r8, 0.548567E-03_r8, 33.006200_r8, & 14.006740_r8, 28.013480_r8, 30.006140_r8, 14.006740_r8, 15.999400_r8, & 31.998800_r8, 31.998800_r8, 31.998800_r8, 17.006800_r8, 15.999400_r8, & 15.999400_r8, 15.999400_r8, 18.014200_r8 /) - crb_mass(: 73) = (/ 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_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, 12.011000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + crb_mass(: 73) = (/ 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, 24.022000_r8, & + 24.022000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + 12.011000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, 12.011000_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, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 24.022000_r8, 0.000000_r8, 0.000000_r8, 24.022000_r8, 24.022000_r8, & 12.011000_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, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 24.022000_r8, 0.000000_r8, & - 0.000000_r8, 24.022000_r8, 24.022000_r8, 12.011000_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, 0.000000_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, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & @@ -86,26 +86,26 @@ subroutine set_sim_dat fix_mass(: 2) = (/ 0.00000000_r8, 28.0134800_r8 /) - clsmap(: 23,1) = (/ 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, & - 15, 16, 17, 20, 21, 26, 28, 34, 37, 38, & - 39, 48, 57 /) - clsmap(: 50,4) = (/ 1, 2, 3, 14, 18, 19, 22, 23, 24, 25, & - 27, 29, 30, 31, 32, 33, 35, 36, 40, 41, & - 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, & - 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, & + clsmap(: 23,1) = (/ 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, & + 16, 17, 18, 21, 22, 28, 30, 36, 39, 40, & + 41, 49, 58 /) + clsmap(: 50,4) = (/ 1, 2, 3, 4, 15, 19, 20, 23, 24, 25, & + 26, 27, 29, 31, 32, 33, 34, 35, 37, 38, & + 42, 43, 44, 45, 46, 47, 48, 50, 51, 52, & + 53, 54, 55, 56, 57, 59, 60, 61, 62, 63, & 64, 65, 66, 67, 68, 69, 70, 71, 72, 73 /) - permute(: 50,4) = (/ 8, 39, 15, 35, 44, 11, 6, 1, 41, 30, & - 16, 2, 7, 21, 36, 49, 17, 23, 34, 9, & - 31, 47, 12, 20, 22, 29, 10, 38, 45, 37, & - 48, 32, 50, 3, 43, 40, 27, 28, 18, 19, & + permute(: 50,4) = (/ 38, 8, 44, 15, 35, 47, 11, 48, 6, 1, & + 43, 30, 16, 2, 7, 21, 36, 39, 17, 22, & + 34, 9, 31, 12, 20, 23, 29, 10, 40, 41, & + 45, 50, 32, 49, 3, 27, 37, 28, 18, 19, & 24, 42, 4, 5, 26, 46, 25, 14, 13, 33 /) diag_map(: 50) = (/ 1, 4, 7, 10, 13, 15, 17, 21, 24, 27, & 33, 39, 46, 53, 59, 67, 71, 78, 87, 93, & - 102, 111, 118, 127, 138, 149, 164, 178, 193, 204, & - 216, 236, 248, 264, 282, 298, 316, 339, 363, 389, & - 416, 442, 463, 483, 509, 541, 567, 607, 628, 647 /) + 102, 110, 119, 127, 138, 149, 164, 178, 193, 204, & + 216, 236, 248, 264, 282, 298, 320, 341, 362, 385, & + 411, 437, 464, 488, 510, 542, 562, 588, 607, 647 /) extfrc_lst(: 11) = (/ 'NO2 ','CO ','NO ','O2p ','Op ', & 'N2p ','N ','OH ','e ','Np ', & @@ -117,9 +117,9 @@ subroutine set_sim_dat inv_lst(: 2) = (/ 'M ', 'N2 ' /) - slvd_lst(: 15) = (/ 'BR ', 'CL ', 'e ', 'N2D ', 'N2p ', & - 'NOp ', 'Np ', 'O1D ', 'O2_1D ', 'O2_1S ', & - 'O2p ', 'OH ', 'Op ', 'Op2D ', 'Op2P ' /) + slvd_lst(: 14) = (/ 'e ', 'HO2 ', 'N2D ', 'N2p ', 'NOp ', & + 'Np ', 'O1D ', 'O2_1D ', 'O2_1S ', 'O2p ', & + 'OH ', 'Op ', 'Op2D ', 'Op2P ' /) if( allocated( rxt_tag_lst ) ) then deallocate( rxt_tag_lst ) diff --git a/src/chemistry/pp_waccm_ma_mam4/chem_mech.doc b/src/chemistry/pp_waccm_ma_mam4/chem_mech.doc index 894fd376eb..4cc3165099 100644 --- a/src/chemistry/pp_waccm_ma_mam4/chem_mech.doc +++ b/src/chemistry/pp_waccm_ma_mam4/chem_mech.doc @@ -3,89 +3,89 @@ Solution species ( 1) bc_a1 (C) ( 2) bc_a4 (C) - ( 3) BRCL (BrCl) - ( 4) BRO (BrO) - ( 5) BRONO2 (BrONO2) - ( 6) BRY - ( 7) CCL4 (CCl4) - ( 8) CF2CLBR (CF2ClBr) - ( 9) CF3BR (CF3Br) - ( 10) CFC11 (CFCl3) - ( 11) CFC113 (CCl2FCClF2) - ( 12) CFC114 (CClF2CClF2) - ( 13) CFC115 (CClF2CF3) - ( 14) CFC12 (CF2Cl2) - ( 15) CH2BR2 (CH2Br2) - ( 16) CH2O - ( 17) CH3BR (CH3Br) - ( 18) CH3CCL3 (CH3CCl3) - ( 19) CH3CL (CH3Cl) - ( 20) CH3O2 - ( 21) CH3OOH - ( 22) CH4 - ( 23) CHBR3 (CHBr3) - ( 24) CL2 (Cl2) - ( 25) CL2O2 (Cl2O2) - ( 26) CLO (ClO) - ( 27) CLONO2 (ClONO2) - ( 28) CLY - ( 29) CO - ( 30) CO2 - ( 31) COF2 - ( 32) COFCL (COFCl) - ( 33) DMS (CH3SCH3) - ( 34) dst_a1 (AlSiO5) - ( 35) dst_a2 (AlSiO5) - ( 36) dst_a3 (AlSiO5) - ( 37) F - ( 38) H - ( 39) H2 - ( 40) H2402 (CBrF2CBrF2) - ( 41) H2O2 - ( 42) H2SO4 (H2SO4) - ( 43) HBR (HBr) - ( 44) HCFC141B (CH3CCl2F) - ( 45) HCFC142B (CH3CClF2) - ( 46) HCFC22 (CHF2Cl) - ( 47) HCL (HCl) - ( 48) HF - ( 49) HNO3 - ( 50) HO2NO2 - ( 51) HOBR (HOBr) - ( 52) HOCL (HOCl) - ( 53) N - ( 54) N2O - ( 55) N2O5 - ( 56) ncl_a1 (NaCl) - ( 57) ncl_a2 (NaCl) - ( 58) ncl_a3 (NaCl) - ( 59) NO - ( 60) NO2 - ( 61) NO3 - ( 62) num_a1 (H) - ( 63) num_a2 (H) - ( 64) num_a3 (H) - ( 65) num_a4 (H) - ( 66) O - ( 67) O2 - ( 68) O3 - ( 69) OCLO (OClO) - ( 70) OCS (OCS) - ( 71) pom_a1 (C) - ( 72) pom_a4 (C) - ( 73) S (S) - ( 74) SF6 - ( 75) SO (SO) - ( 76) SO2 - ( 77) SO3 (SO3) - ( 78) so4_a1 (NH4HSO4) - ( 79) so4_a2 (NH4HSO4) - ( 80) so4_a3 (NH4HSO4) - ( 81) soa_a1 (C) - ( 82) soa_a2 (C) - ( 83) SOAG (C) - ( 84) BR (Br) - ( 85) CL (Cl) + ( 3) BR (Br) + ( 4) BRCL (BrCl) + ( 5) BRO (BrO) + ( 6) BRONO2 (BrONO2) + ( 7) BRY + ( 8) CCL4 (CCl4) + ( 9) CF2CLBR (CF2ClBr) + ( 10) CF3BR (CF3Br) + ( 11) CFC11 (CFCl3) + ( 12) CFC113 (CCl2FCClF2) + ( 13) CFC114 (CClF2CClF2) + ( 14) CFC115 (CClF2CF3) + ( 15) CFC12 (CF2Cl2) + ( 16) CH2BR2 (CH2Br2) + ( 17) CH2O + ( 18) CH3BR (CH3Br) + ( 19) CH3CCL3 (CH3CCl3) + ( 20) CH3CL (CH3Cl) + ( 21) CH3O2 + ( 22) CH3OOH + ( 23) CH4 + ( 24) CHBR3 (CHBr3) + ( 25) CL (Cl) + ( 26) CL2 (Cl2) + ( 27) CL2O2 (Cl2O2) + ( 28) CLO (ClO) + ( 29) CLONO2 (ClONO2) + ( 30) CLY + ( 31) CO + ( 32) CO2 + ( 33) COF2 + ( 34) COFCL (COFCl) + ( 35) DMS (CH3SCH3) + ( 36) dst_a1 (AlSiO5) + ( 37) dst_a2 (AlSiO5) + ( 38) dst_a3 (AlSiO5) + ( 39) F + ( 40) H + ( 41) H2 + ( 42) H2402 (CBrF2CBrF2) + ( 43) H2O2 + ( 44) H2SO4 (H2SO4) + ( 45) HBR (HBr) + ( 46) HCFC141B (CH3CCl2F) + ( 47) HCFC142B (CH3CClF2) + ( 48) HCFC22 (CHF2Cl) + ( 49) HCL (HCl) + ( 50) HF + ( 51) HNO3 + ( 52) HO2NO2 + ( 53) HOBR (HOBr) + ( 54) HOCL (HOCl) + ( 55) N + ( 56) N2O + ( 57) N2O5 + ( 58) ncl_a1 (NaCl) + ( 59) ncl_a2 (NaCl) + ( 60) ncl_a3 (NaCl) + ( 61) NO + ( 62) NO2 + ( 63) NO3 + ( 64) num_a1 (H) + ( 65) num_a2 (H) + ( 66) num_a3 (H) + ( 67) num_a4 (H) + ( 68) O + ( 69) O2 + ( 70) O3 + ( 71) OCLO (OClO) + ( 72) OCS (OCS) + ( 73) pom_a1 (C) + ( 74) pom_a4 (C) + ( 75) S (S) + ( 76) SF6 + ( 77) SO (SO) + ( 78) SO2 + ( 79) SO3 (SO3) + ( 80) so4_a1 (NH4HSO4) + ( 81) so4_a2 (NH4HSO4) + ( 82) so4_a3 (NH4HSO4) + ( 83) soa_a1 (C) + ( 84) soa_a2 (C) + ( 85) SOAG (C) ( 86) e (E) ( 87) HO2 ( 88) N2D (N) @@ -144,66 +144,66 @@ Class List -------- ( 1) bc_a1 ( 2) bc_a4 - ( 3) BRCL - ( 4) BRO - ( 5) BRONO2 - ( 6) CH2O - ( 7) CH3O2 - ( 8) CH3OOH - ( 9) CL2 - ( 10) CL2O2 - ( 11) CLO - ( 12) CLONO2 - ( 13) CO - ( 14) COF2 - ( 15) COFCL - ( 16) DMS - ( 17) dst_a1 - ( 18) dst_a2 - ( 19) dst_a3 - ( 20) F - ( 21) H - ( 22) H2 - ( 23) H2O2 - ( 24) H2SO4 - ( 25) HBR - ( 26) HCL - ( 27) HF - ( 28) HNO3 - ( 29) HO2NO2 - ( 30) HOBR - ( 31) HOCL - ( 32) N - ( 33) N2O5 - ( 34) ncl_a1 - ( 35) ncl_a2 - ( 36) ncl_a3 - ( 37) NO - ( 38) NO2 - ( 39) NO3 - ( 40) num_a1 - ( 41) num_a2 - ( 42) num_a3 - ( 43) num_a4 - ( 44) O - ( 45) O2 - ( 46) O3 - ( 47) OCLO - ( 48) OCS - ( 49) pom_a1 - ( 50) pom_a4 - ( 51) S - ( 52) SO - ( 53) SO2 - ( 54) SO3 - ( 55) so4_a1 - ( 56) so4_a2 - ( 57) so4_a3 - ( 58) soa_a1 - ( 59) soa_a2 - ( 60) SOAG - ( 61) BR - ( 62) CL + ( 3) BR + ( 4) BRCL + ( 5) BRO + ( 6) BRONO2 + ( 7) CH2O + ( 8) CH3O2 + ( 9) CH3OOH + ( 10) CL + ( 11) CL2 + ( 12) CL2O2 + ( 13) CLO + ( 14) CLONO2 + ( 15) CO + ( 16) COF2 + ( 17) COFCL + ( 18) DMS + ( 19) dst_a1 + ( 20) dst_a2 + ( 21) dst_a3 + ( 22) F + ( 23) H + ( 24) H2 + ( 25) H2O2 + ( 26) H2SO4 + ( 27) HBR + ( 28) HCL + ( 29) HF + ( 30) HNO3 + ( 31) HO2NO2 + ( 32) HOBR + ( 33) HOCL + ( 34) N + ( 35) N2O5 + ( 36) ncl_a1 + ( 37) ncl_a2 + ( 38) ncl_a3 + ( 39) NO + ( 40) NO2 + ( 41) NO3 + ( 42) num_a1 + ( 43) num_a2 + ( 44) num_a3 + ( 45) num_a4 + ( 46) O + ( 47) O2 + ( 48) O3 + ( 49) OCLO + ( 50) OCS + ( 51) pom_a1 + ( 52) pom_a4 + ( 53) S + ( 54) SO + ( 55) SO2 + ( 56) SO3 + ( 57) so4_a1 + ( 58) so4_a2 + ( 59) so4_a3 + ( 60) soa_a1 + ( 61) soa_a2 + ( 62) SOAG ( 63) e ( 64) HO2 ( 65) N2D @@ -492,23 +492,23 @@ Class List O1D_CH4b (153) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (244) O1D_CH4c (154) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (245) usr_CO_OH_b (155) CO + OH -> CO2 + H rate = ** User defined ** (246) - OCS_O (156) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (247) - OCS_OH (157) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (248) - S_O2 (158) S + O2 -> SO + O rate = 2.30E-12 (249) - S_O3 (159) S + O3 -> SO + O2 rate = 1.20E-11 (250) - SO_BRO (160) SO + BRO -> SO2 + BR rate = 5.70E-11 (251) - SO_CLO (161) SO + CLO -> SO2 + CL rate = 2.80E-11 (252) - S_OH (162) S + OH -> SO + H rate = 6.60E-11 (253) - SO_NO2 (163) SO + NO2 -> SO2 + NO rate = 1.40E-11 (254) - SO_O2 (164) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (255) - SO_O3 (165) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (256) - SO_OCLO (166) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (257) - SO_OH (167) SO + OH -> SO2 + H rate = 2.70E-11*exp( 335./t) (258) - usr_SO2_OH (168) SO2 + OH -> SO3 + HO2 rate = ** User defined ** (259) - usr_SO3_H2O (169) SO3 + H2O -> H2SO4 rate = ** User defined ** (260) - DMS_NO3 (170) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (261) - DMS_OHa (171) DMS + OH -> SO2 rate = 9.60E-12*exp( -234./t) (262) - usr_DMS_OH (172) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (263) + DMS_NO3 (156) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (247) + DMS_OHa (157) DMS + OH -> SO2 rate = 9.60E-12*exp( -234./t) (248) + OCS_O (158) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (249) + OCS_OH (159) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (250) + S_O2 (160) S + O2 -> SO + O rate = 2.30E-12 (251) + 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.70E-11*exp( 335./t) (260) + usr_DMS_OH (170) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (261) + usr_SO2_OH (171) SO2 + OH -> SO3 + HO2 rate = ** User defined ** (262) + usr_SO3_H2O (172) SO3 + H2O -> H2SO4 rate = ** User defined ** (263) usr_HO2_aer (173) HO2 -> 0.5*H2O2 rate = ** User defined ** (264) usr_N2O5_aer (174) N2O5 -> 2*HNO3 rate = ** User defined ** (265) usr_NO2_aer (175) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (266) @@ -588,11 +588,18 @@ 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 + r185*HOBR*HCL + r190*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 - r160*SO*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 - r179*BRONO2 - r182*BRONO2 - r187*BRONO2 - r110*O*BRONO2 d(BRY)/dt = 0 @@ -620,22 +627,32 @@ Extraneous prod/loss species d(CH4)/dt = - j23*CH4 - j24*CH4 - r65*CL*CH4 - r121*F*CH4 - r150*OH*CH4 - r152*O1D*CH4 - r153*O1D*CH4 - r154*O1D*CH4 d(CHBR3)/dt = - j42*CHBR3 - r117*O1D*CHBR3 - r134*CL*CHBR3 - r135*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 + r178*HOCL*HCL + r183*CLONO2*HCL + r184*HOCL*HCL + r188*CLONO2*HCL + r189*HOCL*HCL + r193*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 + r166*SO*OCLO + + 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 - r161*SO*CLO + - r104*BRO*CLO - r105*BRO*CLO - r106*BRO*CLO - r163*SO*CLO d(CLONO2)/dt = r78*M*CLO*NO2 - j46*CLONO2 - j47*CLONO2 - r181*CLONO2 - r186*CLONO2 - r192*CLONO2 - r77*CL*CLONO2 - r79*O*CLONO2 - r80*OH*CLONO2 - r183*HCL*CLONO2 - r188*HCL*CLONO2 - r193*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 + r156*OCS*O + r157*OCS*OH + + r132*CH3CL*CL + r144*CH2O*NO3 + r145*CH2O*O + r146*CH2O*OH + r158*OCS*O + r159*OCS*OH + r209*Op*CO2 - r151*M*OH*CO - r155*OH*CO d(CO2)/dt = .44*j24*CH4 + r151*M*CO*OH + r155*CO*OH @@ -648,7 +665,7 @@ Extraneous prod/loss species 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 = - r170*NO3*DMS - r171*OH*DMS - r172*OH*DMS + d(DMS)/dt = - r156*NO3*DMS - r157*OH*DMS - r170*OH*DMS d(dst_a1)/dt = 0 d(dst_a2)/dt = 0 d(dst_a3)/dt = 0 @@ -657,15 +674,15 @@ Extraneous prod/loss species - r121*CH4*F - r122*H2*F - r123*H2O*F - r124*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 + r153*O1D*CH4 + r155*CO*OH + r157*OCS*OH + r162*S*OH - + r167*SO*OH + + r120*O1D*HBR + r122*F*H2 + r146*CH2O*OH + r153*O1D*CH4 + r155*CO*OH + r159*OCS*OH + r164*S*OH + + r169*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 + r154*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*r173*HO2 + r35*M*OH*OH + r36*HO2*HO2 - j4*H2O2 - r21*O*H2O2 - r30*OH*H2O2 - r67*CL*H2O2 - d(H2SO4)/dt = r169*SO3*H2O + d(H2SO4)/dt = r172*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 @@ -681,7 +698,7 @@ Extraneous prod/loss species - j56*HF d(HNO3)/dt = 2*r174*N2O5 + .5*r175*NO2 + r176*NO3 + 2*r177*N2O5 + r179*BRONO2 + 2*r180*N2O5 + r181*CLONO2 + r182*BRONO2 + r186*CLONO2 + r187*BRONO2 + 2*r191*N2O5 + r192*CLONO2 + r60*M*NO2*OH - + r144*CH2O*NO3 + r170*DMS*NO3 + r183*CLONO2*HCL + r188*CLONO2*HCL + r193*CLONO2*HCL + + r144*CH2O*NO3 + r156*DMS*NO3 + r183*CLONO2*HCL + r188*CLONO2*HCL + r193*CLONO2*HCL - j9*HNO3 - r61*OH*HNO3 - r124*F*HNO3 d(HO2NO2)/dt = r58*M*NO2*HO2 - j10*HO2NO2 - j11*HO2NO2 - r62*M*HO2NO2 - r37*OH*HO2NO2 @@ -701,7 +718,7 @@ Extraneous prod/loss species d(ncl_a2)/dt = 0 d(ncl_a3)/dt = 0 d(NO)/dt = j14*N2O5 + j17*NO2 + j19*NO3 + .5*r175*NO2 + r207*N2*O2p + r220*N2*Op2P + r39*N2D*O2 - + 2*r42*N*NO2 + r44*N*O2 + r45*NO2*O + r52*N*OH + 2*r56*O1D*N2O + r163*SO*NO2 + + 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 - r208*O2p*NO d(NO2)/dt = j9*HNO3 + j11*HO2NO2 + j13*N2O5 + j18*NO3 + j28*BRONO2 + j47*CLONO2 + r62*M*HO2NO2 + r63*M*N2O5 @@ -709,12 +726,12 @@ Extraneous prod/loss species + r55*M*NO*O + r76*CLO*NO + r108*BRO*NO + r148*CH3O2*NO - j17*NO2 - r175*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 - - r163*SO*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 - r176*NO3 - r48*HO2*NO3 - r49*NO*NO3 - r50*O*NO3 - r51*OH*NO3 - - r59*M*NO2*NO3 - r144*CH2O*NO3 - r170*DMS*NO3 + - r59*M*NO2*NO3 - r144*CH2O*NO3 - r156*DMS*NO3 d(num_a1)/dt = 0 d(num_a2)/dt = 0 d(num_a3)/dt = 0 @@ -723,64 +740,47 @@ Extraneous prod/loss species + 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 + r214*N2*Op2D + r219*N2*Op2P + r6*O1D*O2 + r7*O1D*O2 + r24*H*HO2 + r34*OH*OH + r40*N*NO + r41*N*NO2 + r44*N*O2 - + r158*S*O2 + r164*SO*O2 + r197*NOp*e + 1.15*r198*O2p*e + r205*Np*O2 + r206*O2p*N + r211*Op*N2D + + r160*S*O2 + r166*SO*O2 + r197*NOp*e + 1.15*r198*O2p*e + r205*Np*O2 + r206*O2p*N + r211*Op*N2D + r212*Op*O2 + r216*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 - r156*OCS*O - r201*N2p*O - r202*N2p*O - r203*Np*O + - r113*HBR*O - r115*HOBR*O - r145*CH2O*O - r158*OCS*O - r201*N2p*O - r202*N2p*O - r203*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 - + r159*S*O3 + r165*SO*O3 + r208*O2p*NO + + r161*S*O3 + r167*SO*O3 + r208*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 - - r158*S*O2 - r164*SO*O2 - r200*N2p*O2 - r204*Np*O2 - r205*Np*O2 - r212*Op*O2 - r216*Op2D*O2 + - r160*S*O2 - r166*SO*O2 - r200*N2p*O2 - r204*Np*O2 - r205*Np*O2 - r212*Op*O2 - r216*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 - r159*S*O3 - r165*SO*O3 + - r54*NO*O3 - r70*CL*O3 - r102*BR*O3 - r161*S*O3 - r167*SO*O3 d(OCLO)/dt = r74*CLO*CLO + r104*BRO*CLO - - j59*OCLO - r166*SO*OCLO - d(OCS)/dt = - j88*OCS - r156*O*OCS - r157*OH*OCS + - j59*OCLO - r168*SO*OCLO + d(OCS)/dt = - j88*OCS - r158*O*OCS - r159*OH*OCS d(pom_a1)/dt = 0 d(pom_a4)/dt = 0 d(S)/dt = j88*OCS + j89*SO - - r158*O2*S - r159*O3*S - r162*OH*S + - r160*O2*S - r161*O3*S - r164*OH*S d(SF6)/dt = - j60*SF6 - d(SO)/dt = j90*SO2 + r156*OCS*O + r158*S*O2 + r159*S*O3 + r162*S*OH - - j89*SO - r160*BRO*SO - r161*CLO*SO - r163*NO2*SO - r164*O2*SO - r165*O3*SO - r166*OCLO*SO - - r167*OH*SO - d(SO2)/dt = j91*SO3 + r157*OCS*OH + r160*SO*BRO + r161*SO*CLO + r163*SO*NO2 + r164*SO*O2 + r165*SO*O3 - + r166*SO*OCLO + r167*SO*OH + r170*DMS*NO3 + r171*DMS*OH + .5*r172*DMS*OH - - j90*SO2 - r168*OH*SO2 - d(SO3)/dt = j87*H2SO4 + r168*SO2*OH - - j91*SO3 - r169*H2O*SO3 + d(SO)/dt = j90*SO2 + r158*OCS*O + r160*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 + r156*DMS*NO3 + r157*DMS*OH + r159*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 - r171*OH*SO2 + d(SO3)/dt = j87*H2SO4 + r171*SO2*OH + - j91*SO3 - r172*H2O*SO3 d(so4_a1)/dt = 0 d(so4_a2)/dt = 0 d(so4_a3)/dt = 0 d(soa_a1)/dt = 0 d(soa_a2)/dt = 0 d(SOAG)/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 + r160*SO*BRO - - r100*CH2O*BR - r101*HO2*BR - r102*O3*BR - 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 + r161*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(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 @@ -788,7 +788,7 @@ Extraneous prod/loss species 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 + r151*M*CO*OH + r153*O1D*CH4 + r168*SO2*OH + .5*r172*DMS*OH + + r148*CH3O2*NO + r151*M*CO*OH + r153*O1D*CH4 + .5*r170*DMS*OH + r171*SO2*OH - r173*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 @@ -823,8 +823,8 @@ Extraneous prod/loss species - 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 - r151*M*CO*OH - r155*CO*OH - r157*OCS*OH - r162*S*OH - r167*SO*OH - r168*SO2*OH - - r171*DMS*OH - r172*DMS*OH + - r150*CH4*OH - r151*M*CO*OH - r155*CO*OH - r157*DMS*OH - r159*OCS*OH - r164*S*OH - r169*SO*OH + - r170*DMS*OH - r171*SO2*OH d(Op)/dt = j73*O + j74*O + j79*O2 + j81*O2 + r194*Op2P + r195*Op2D + r202*N2p*O + r203*Np*O + r213*Op2D*e + r215*Op2D*O + r218*Op2P*e + r221*Op2P*O - r210*N2*Op - r209*CO2*Op - r211*N2D*Op - r212*O2*Op @@ -838,4 +838,4 @@ Extraneous prod/loss species + r130*CH3BR*OH + r131*CH3CCL3*OH + r133*CH3CL*OH + r138*HCFC22*OH + r146*CH2O*OH + r149*CH3OOH*OH + r150*CH4*OH + r178*HOCL*HCL + r184*HOCL*HCL + r185*HOBR*HCL + r189*HOCL*HCL + r190*HOBR*HCL - - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r123*F*H2O - r169*SO3*H2O + - j1*H2O - j2*H2O - j3*H2O - r4*O1D*H2O - r123*F*H2O - r172*SO3*H2O diff --git a/src/chemistry/pp_waccm_ma_mam4/chem_mech.in b/src/chemistry/pp_waccm_ma_mam4/chem_mech.in index 59b5c230da..ce56868aba 100644 --- a/src/chemistry/pp_waccm_ma_mam4/chem_mech.in +++ b/src/chemistry/pp_waccm_ma_mam4/chem_mech.in @@ -1,17 +1,19 @@ * Comments -* User-given Tag Description: MA_MAM4_1 -* Tag database identifier : MZ254_MA_MAM4_20190125 -* Tag created by : ajc +* User-given Tag Description: WACCM_MA_MAM4_2 +* Tag database identifier : MZ279_MA_MAM4_20200925 +* Tag created by : lke * Tag created from branch : MA_MAM4 -* Tag created on : 2019-01-25 13:05:48.065223-07 +* Tag created on : 2020-09-25 11:46:07.598596-06 * Comments for this tag follow: -* ajc : 2019-01-25 : Reconcilliation of code to match Dan/Francis's version +* lke : 2020-09-25 : Middle Atmosphere mechanism. +* Corrected removing BR, CL from non-transported. SPECIES Solution bc_a1 -> C, bc_a4 -> C, + BR -> Br, BRCL -> BrCl, BRO -> BrO, BRONO2 -> BrONO2, @@ -33,6 +35,7 @@ CH3OOH, CH4, CHBR3 -> CHBr3, + CL -> Cl, CL2 -> Cl2, CL2O2 -> Cl2O2, CLO -> ClO, @@ -93,8 +96,6 @@ soa_a1 -> C, soa_a2 -> C, SOAG -> C, - BR -> Br, - CL -> Cl, e -> E, HO2, N2D -> N, @@ -124,8 +125,6 @@ End Col-int Not-Transported - BR, - CL, e, HO2, N2D, @@ -175,12 +174,14 @@ Implicit bc_a1 bc_a4 + BR BRCL BRO BRONO2 CH2O CH3O2 CH3OOH + CL CL2 CL2O2 CLO @@ -233,8 +234,6 @@ soa_a1 soa_a2 SOAG - BR - CL e HO2 N2D @@ -551,6 +550,8 @@ ********************************* *** Sulfur ********************************* +[DMS_NO3] DMS + NO3 -> SO2 + HNO3 ; 1.9e-13, 520 +[DMS_OHa] DMS + OH -> SO2 ; 9.6e-12, -234 [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 @@ -563,14 +564,12 @@ [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.7e-11, 335 +[usr_DMS_OH] DMS + OH -> 0.5*SO2 + 0.5*HO2 [usr_SO2_OH] SO2 + OH -> SO3 + HO2 [usr_SO3_H2O] SO3 + H2O -> H2SO4 ********************************* *** Tropospheric Aerosol ********************************* -[DMS_NO3] DMS + NO3 -> SO2 + HNO3 ; 1.9e-13, 520 -[DMS_OHa] DMS + OH -> SO2 ; 9.6e-12, -234 -[usr_DMS_OH] DMS + OH -> 0.5*SO2 + 0.5*HO2 [usr_HO2_aer] HO2 -> 0.5*H2O2 [usr_N2O5_aer] N2O5 -> 2*HNO3 [usr_NO2_aer] NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 diff --git a/src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 b/src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 index 73fc00ed41..b3d2ff52e0 100644 --- a/src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/chem_mods.F90 @@ -25,7 +25,7 @@ module chem_mods clsze = 1, & ! loop length for implicit chemistry rxt_tag_cnt = 312, & enthalpy_cnt = 54, & - nslvd = 16 + nslvd = 14 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 integer :: clsmap(gas_pcnst,5) = 0 diff --git a/src/chemistry/pp_waccm_ma_mam4/m_rxt_id.F90 b/src/chemistry/pp_waccm_ma_mam4/m_rxt_id.F90 index e906aff4d5..dff4734ed0 100644 --- a/src/chemistry/pp_waccm_ma_mam4/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/m_rxt_id.F90 @@ -246,23 +246,23 @@ module m_rxt_id integer, parameter :: rid_O1D_CH4b = 244 integer, parameter :: rid_O1D_CH4c = 245 integer, parameter :: rid_usr_CO_OH_b = 246 - integer, parameter :: rid_OCS_O = 247 - integer, parameter :: rid_OCS_OH = 248 - integer, parameter :: rid_S_O2 = 249 - integer, parameter :: rid_S_O3 = 250 - integer, parameter :: rid_SO_BRO = 251 - integer, parameter :: rid_SO_CLO = 252 - integer, parameter :: rid_S_OH = 253 - integer, parameter :: rid_SO_NO2 = 254 - integer, parameter :: rid_SO_O2 = 255 - integer, parameter :: rid_SO_O3 = 256 - integer, parameter :: rid_SO_OCLO = 257 - integer, parameter :: rid_SO_OH = 258 - integer, parameter :: rid_usr_SO2_OH = 259 - integer, parameter :: rid_usr_SO3_H2O = 260 - integer, parameter :: rid_DMS_NO3 = 261 - integer, parameter :: rid_DMS_OHa = 262 - integer, parameter :: rid_usr_DMS_OH = 263 + integer, parameter :: rid_DMS_NO3 = 247 + integer, parameter :: rid_DMS_OHa = 248 + integer, parameter :: rid_OCS_O = 249 + integer, parameter :: rid_OCS_OH = 250 + integer, parameter :: rid_S_O2 = 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_SO2_OH = 262 + integer, parameter :: rid_usr_SO3_H2O = 263 integer, parameter :: rid_usr_HO2_aer = 264 integer, parameter :: rid_usr_N2O5_aer = 265 integer, parameter :: rid_usr_NO2_aer = 266 diff --git a/src/chemistry/pp_waccm_ma_mam4/m_spc_id.F90 b/src/chemistry/pp_waccm_ma_mam4/m_spc_id.F90 index 80115389db..74a7ee75b5 100644 --- a/src/chemistry/pp_waccm_ma_mam4/m_spc_id.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/m_spc_id.F90 @@ -2,89 +2,89 @@ module m_spc_id implicit none integer, parameter :: id_bc_a1 = 1 integer, parameter :: id_bc_a4 = 2 - integer, parameter :: id_BRCL = 3 - integer, parameter :: id_BRO = 4 - integer, parameter :: id_BRONO2 = 5 - integer, parameter :: id_BRY = 6 - integer, parameter :: id_CCL4 = 7 - integer, parameter :: id_CF2CLBR = 8 - integer, parameter :: id_CF3BR = 9 - integer, parameter :: id_CFC11 = 10 - integer, parameter :: id_CFC113 = 11 - integer, parameter :: id_CFC114 = 12 - integer, parameter :: id_CFC115 = 13 - integer, parameter :: id_CFC12 = 14 - integer, parameter :: id_CH2BR2 = 15 - integer, parameter :: id_CH2O = 16 - integer, parameter :: id_CH3BR = 17 - integer, parameter :: id_CH3CCL3 = 18 - integer, parameter :: id_CH3CL = 19 - integer, parameter :: id_CH3O2 = 20 - integer, parameter :: id_CH3OOH = 21 - integer, parameter :: id_CH4 = 22 - integer, parameter :: id_CHBR3 = 23 - integer, parameter :: id_CL2 = 24 - integer, parameter :: id_CL2O2 = 25 - integer, parameter :: id_CLO = 26 - integer, parameter :: id_CLONO2 = 27 - integer, parameter :: id_CLY = 28 - integer, parameter :: id_CO = 29 - integer, parameter :: id_CO2 = 30 - integer, parameter :: id_COF2 = 31 - integer, parameter :: id_COFCL = 32 - integer, parameter :: id_DMS = 33 - integer, parameter :: id_dst_a1 = 34 - integer, parameter :: id_dst_a2 = 35 - integer, parameter :: id_dst_a3 = 36 - integer, parameter :: id_F = 37 - integer, parameter :: id_H = 38 - integer, parameter :: id_H2 = 39 - integer, parameter :: id_H2402 = 40 - integer, parameter :: id_H2O2 = 41 - integer, parameter :: id_H2SO4 = 42 - integer, parameter :: id_HBR = 43 - integer, parameter :: id_HCFC141B = 44 - integer, parameter :: id_HCFC142B = 45 - integer, parameter :: id_HCFC22 = 46 - integer, parameter :: id_HCL = 47 - integer, parameter :: id_HF = 48 - integer, parameter :: id_HNO3 = 49 - integer, parameter :: id_HO2NO2 = 50 - integer, parameter :: id_HOBR = 51 - integer, parameter :: id_HOCL = 52 - integer, parameter :: id_N = 53 - integer, parameter :: id_N2O = 54 - integer, parameter :: id_N2O5 = 55 - integer, parameter :: id_ncl_a1 = 56 - integer, parameter :: id_ncl_a2 = 57 - integer, parameter :: id_ncl_a3 = 58 - integer, parameter :: id_NO = 59 - integer, parameter :: id_NO2 = 60 - integer, parameter :: id_NO3 = 61 - integer, parameter :: id_num_a1 = 62 - integer, parameter :: id_num_a2 = 63 - integer, parameter :: id_num_a3 = 64 - integer, parameter :: id_num_a4 = 65 - integer, parameter :: id_O = 66 - integer, parameter :: id_O2 = 67 - integer, parameter :: id_O3 = 68 - integer, parameter :: id_OCLO = 69 - integer, parameter :: id_OCS = 70 - integer, parameter :: id_pom_a1 = 71 - integer, parameter :: id_pom_a4 = 72 - integer, parameter :: id_S = 73 - integer, parameter :: id_SF6 = 74 - integer, parameter :: id_SO = 75 - integer, parameter :: id_SO2 = 76 - integer, parameter :: id_SO3 = 77 - integer, parameter :: id_so4_a1 = 78 - integer, parameter :: id_so4_a2 = 79 - integer, parameter :: id_so4_a3 = 80 - integer, parameter :: id_soa_a1 = 81 - integer, parameter :: id_soa_a2 = 82 - integer, parameter :: id_SOAG = 83 - integer, parameter :: id_BR = 84 - integer, parameter :: id_CL = 85 + integer, parameter :: id_BR = 3 + integer, parameter :: id_BRCL = 4 + integer, parameter :: id_BRO = 5 + integer, parameter :: id_BRONO2 = 6 + integer, parameter :: id_BRY = 7 + integer, parameter :: id_CCL4 = 8 + integer, parameter :: id_CF2CLBR = 9 + integer, parameter :: id_CF3BR = 10 + integer, parameter :: id_CFC11 = 11 + integer, parameter :: id_CFC113 = 12 + integer, parameter :: id_CFC114 = 13 + integer, parameter :: id_CFC115 = 14 + integer, parameter :: id_CFC12 = 15 + integer, parameter :: id_CH2BR2 = 16 + integer, parameter :: id_CH2O = 17 + integer, parameter :: id_CH3BR = 18 + integer, parameter :: id_CH3CCL3 = 19 + integer, parameter :: id_CH3CL = 20 + integer, parameter :: id_CH3O2 = 21 + integer, parameter :: id_CH3OOH = 22 + integer, parameter :: id_CH4 = 23 + integer, parameter :: id_CHBR3 = 24 + integer, parameter :: id_CL = 25 + integer, parameter :: id_CL2 = 26 + integer, parameter :: id_CL2O2 = 27 + integer, parameter :: id_CLO = 28 + integer, parameter :: id_CLONO2 = 29 + integer, parameter :: id_CLY = 30 + integer, parameter :: id_CO = 31 + integer, parameter :: id_CO2 = 32 + integer, parameter :: id_COF2 = 33 + integer, parameter :: id_COFCL = 34 + integer, parameter :: id_DMS = 35 + integer, parameter :: id_dst_a1 = 36 + integer, parameter :: id_dst_a2 = 37 + integer, parameter :: id_dst_a3 = 38 + integer, parameter :: id_F = 39 + integer, parameter :: id_H = 40 + integer, parameter :: id_H2 = 41 + integer, parameter :: id_H2402 = 42 + integer, parameter :: id_H2O2 = 43 + integer, parameter :: id_H2SO4 = 44 + integer, parameter :: id_HBR = 45 + integer, parameter :: id_HCFC141B = 46 + integer, parameter :: id_HCFC142B = 47 + integer, parameter :: id_HCFC22 = 48 + integer, parameter :: id_HCL = 49 + integer, parameter :: id_HF = 50 + integer, parameter :: id_HNO3 = 51 + integer, parameter :: id_HO2NO2 = 52 + integer, parameter :: id_HOBR = 53 + integer, parameter :: id_HOCL = 54 + integer, parameter :: id_N = 55 + integer, parameter :: id_N2O = 56 + integer, parameter :: id_N2O5 = 57 + integer, parameter :: id_ncl_a1 = 58 + integer, parameter :: id_ncl_a2 = 59 + integer, parameter :: id_ncl_a3 = 60 + integer, parameter :: id_NO = 61 + integer, parameter :: id_NO2 = 62 + integer, parameter :: id_NO3 = 63 + integer, parameter :: id_num_a1 = 64 + integer, parameter :: id_num_a2 = 65 + integer, parameter :: id_num_a3 = 66 + integer, parameter :: id_num_a4 = 67 + integer, parameter :: id_O = 68 + integer, parameter :: id_O2 = 69 + integer, parameter :: id_O3 = 70 + integer, parameter :: id_OCLO = 71 + integer, parameter :: id_OCS = 72 + integer, parameter :: id_pom_a1 = 73 + integer, parameter :: id_pom_a4 = 74 + integer, parameter :: id_S = 75 + integer, parameter :: id_SF6 = 76 + integer, parameter :: id_SO = 77 + integer, parameter :: id_SO2 = 78 + integer, parameter :: id_SO3 = 79 + integer, parameter :: id_so4_a1 = 80 + integer, parameter :: id_so4_a2 = 81 + integer, parameter :: id_so4_a3 = 82 + integer, parameter :: id_soa_a1 = 83 + integer, parameter :: id_soa_a2 = 84 + integer, parameter :: id_SOAG = 85 integer, parameter :: id_e = 86 integer, parameter :: id_HO2 = 87 integer, parameter :: id_N2D = 88 diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 index fadce62bf1..98a1812d5f 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_adjrxt.F90 @@ -14,220 +14,220 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) real(r8), intent(in) :: m(ncol,nlev) real(r8), intent(inout) :: rate(ncol,nlev,rxntot) rate(:,:, 96) = rate(:,:, 96) * inv(:,:, 2) - rate(:,:,100) = rate(:,:,100) * inv(:,:, 2) - rate(:,:,104) = rate(:,:,104) * inv(:,:, 2) - rate(:,:,109) = rate(:,:,109) * inv(:,:, 1) - rate(:,:,110) = rate(:,:,110) * inv(:,:, 1) - rate(:,:,116) = rate(:,:,116) * inv(:,:, 1) - rate(:,:,126) = rate(:,:,126) * inv(:,:, 1) - rate(:,:,138) = rate(:,:,138) * inv(:,:, 1) - rate(:,:,146) = rate(:,:,146) * inv(:,:, 1) - rate(:,:,149) = rate(:,:,149) * inv(:,:, 1) - 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(:,:,242) = rate(:,:,242) * inv(:,:, 1) - rate(:,:,298) = rate(:,:,298) * inv(:,:, 2) - rate(:,:,301) = rate(:,:,301) * inv(:,:, 2) - rate(:,:,305) = rate(:,:,305) * inv(:,:, 2) - rate(:,:,310) = rate(:,:,310) * inv(:,:, 2) - rate(:,:,311) = rate(:,:,311) * inv(:,:, 2) + rate(:,:, 100) = rate(:,:, 100) * inv(:,:, 2) + rate(:,:, 104) = rate(:,:, 104) * inv(:,:, 2) + rate(:,:, 109) = rate(:,:, 109) * inv(:,:, 1) + rate(:,:, 110) = rate(:,:, 110) * inv(:,:, 1) + rate(:,:, 116) = rate(:,:, 116) * inv(:,:, 1) + rate(:,:, 126) = rate(:,:, 126) * inv(:,:, 1) + rate(:,:, 138) = rate(:,:, 138) * inv(:,:, 1) + rate(:,:, 146) = rate(:,:, 146) * inv(:,:, 1) + rate(:,:, 149) = rate(:,:, 149) * inv(:,:, 1) + 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(:,:, 242) = rate(:,:, 242) * inv(:,:, 1) + rate(:,:, 298) = rate(:,:, 298) * inv(:,:, 2) + rate(:,:, 301) = rate(:,:, 301) * inv(:,:, 2) + rate(:,:, 305) = rate(:,:, 305) * inv(:,:, 2) + rate(:,:, 310) = rate(:,:, 310) * inv(:,:, 2) + rate(:,:, 311) = rate(:,:, 311) * inv(:,:, 2) rate(:,:, 94) = rate(:,:, 94) * m(:,:) rate(:,:, 95) = rate(:,:, 95) * m(:,:) rate(:,:, 97) = rate(:,:, 97) * m(:,:) rate(:,:, 98) = rate(:,:, 98) * m(:,:) rate(:,:, 99) = rate(:,:, 99) * m(:,:) - rate(:,:,101) = rate(:,:,101) * m(:,:) - rate(:,:,102) = rate(:,:,102) * m(:,:) - rate(:,:,103) = rate(:,:,103) * m(:,:) - rate(:,:,105) = rate(:,:,105) * m(:,:) - rate(:,:,106) = rate(:,:,106) * m(:,:) - rate(:,:,107) = rate(:,:,107) * m(:,:) - rate(:,:,108) = rate(:,:,108) * m(:,:) - rate(:,:,109) = rate(:,:,109) * m(:,:) - rate(:,:,110) = rate(:,:,110) * m(:,:) - rate(:,:,111) = rate(:,:,111) * m(:,:) - rate(:,:,112) = rate(:,:,112) * m(:,:) - rate(:,:,113) = rate(:,:,113) * m(:,:) - rate(:,:,114) = rate(:,:,114) * m(:,:) - rate(:,:,115) = rate(:,:,115) * m(:,:) - rate(:,:,116) = rate(:,:,116) * m(:,:) - rate(:,:,117) = rate(:,:,117) * m(:,:) - rate(:,:,118) = rate(:,:,118) * m(:,:) - rate(:,:,119) = rate(:,:,119) * m(:,:) - rate(:,:,120) = rate(:,:,120) * m(:,:) - rate(:,:,121) = rate(:,:,121) * m(:,:) - rate(:,:,122) = rate(:,:,122) * m(:,:) - rate(:,:,123) = rate(:,:,123) * m(:,:) - rate(:,:,124) = rate(:,:,124) * m(:,:) - 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(:,:) - rate(:,:,132) = rate(:,:,132) * m(:,:) - rate(:,:,133) = rate(:,:,133) * m(:,:) - rate(:,:,134) = rate(:,:,134) * m(:,:) - rate(:,:,135) = rate(:,:,135) * m(:,:) - rate(:,:,136) = rate(:,:,136) * m(:,:) - rate(:,:,137) = rate(:,:,137) * m(:,:) - rate(:,:,138) = rate(:,:,138) * m(:,:) - rate(:,:,139) = rate(:,:,139) * m(:,:) - rate(:,:,140) = rate(:,:,140) * m(:,:) - rate(:,:,141) = rate(:,:,141) * m(:,:) - rate(:,:,142) = rate(:,:,142) * m(:,:) - rate(:,:,143) = rate(:,:,143) * m(:,:) - rate(:,:,144) = rate(:,:,144) * m(:,:) - rate(:,:,145) = rate(:,:,145) * m(:,:) - rate(:,:,146) = rate(:,:,146) * m(:,:) - rate(:,:,147) = rate(:,:,147) * m(:,:) - rate(:,:,148) = rate(:,:,148) * m(:,:) - rate(:,:,149) = rate(:,:,149) * m(:,:) - rate(:,:,150) = rate(:,:,150) * m(:,:) - rate(:,:,151) = rate(:,:,151) * m(:,:) - rate(:,:,152) = rate(:,:,152) * 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(:,:) - rate(:,:,160) = rate(:,:,160) * m(:,:) - rate(:,:,161) = rate(:,:,161) * m(:,:) - rate(:,:,162) = rate(:,:,162) * m(:,:) - rate(:,:,163) = rate(:,:,163) * m(:,:) - rate(:,:,164) = rate(:,:,164) * m(:,:) - rate(:,:,165) = rate(:,:,165) * m(:,:) - rate(:,:,166) = rate(:,:,166) * m(:,:) - rate(:,:,167) = rate(:,:,167) * m(:,:) - rate(:,:,168) = rate(:,:,168) * m(:,:) - rate(:,:,169) = rate(:,:,169) * m(:,:) - rate(:,:,170) = rate(:,:,170) * m(:,:) - rate(:,:,171) = rate(:,:,171) * m(:,:) - rate(:,:,172) = rate(:,:,172) * m(:,:) - rate(:,:,173) = rate(:,:,173) * m(:,:) - rate(:,:,174) = rate(:,:,174) * m(:,:) - rate(:,:,175) = rate(:,:,175) * m(:,:) - rate(:,:,176) = rate(:,:,176) * m(:,:) - rate(:,:,177) = rate(:,:,177) * 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(:,:) - rate(:,:,184) = rate(:,:,184) * m(:,:) - 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(:,:,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(:,:) - rate(:,:,197) = rate(:,:,197) * m(:,:) - rate(:,:,198) = rate(:,:,198) * m(:,:) - rate(:,:,199) = rate(:,:,199) * m(:,:) - rate(:,:,200) = rate(:,:,200) * m(:,:) - rate(:,:,201) = rate(:,:,201) * m(:,:) - rate(:,:,202) = rate(:,:,202) * m(:,:) - rate(:,:,203) = rate(:,:,203) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,221) = rate(:,:,221) * m(:,:) - rate(:,:,222) = rate(:,:,222) * m(:,:) - rate(:,:,223) = rate(:,:,223) * m(:,:) - rate(:,:,224) = rate(:,:,224) * m(:,:) - rate(:,:,225) = rate(:,:,225) * m(:,:) - rate(:,:,226) = rate(:,:,226) * m(:,:) - rate(:,:,227) = rate(:,:,227) * m(:,:) - rate(:,:,228) = rate(:,:,228) * m(:,:) - rate(:,:,229) = rate(:,:,229) * m(:,:) - rate(:,:,230) = rate(:,:,230) * m(:,:) - rate(:,:,231) = rate(:,:,231) * m(:,:) - rate(:,:,232) = rate(:,:,232) * 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(:,:) - rate(:,:,239) = rate(:,:,239) * m(:,:) - rate(:,:,240) = rate(:,:,240) * m(:,:) - rate(:,:,241) = rate(:,:,241) * m(:,:) - rate(:,:,242) = rate(:,:,242) * m(:,:) - rate(:,:,243) = rate(:,:,243) * m(:,:) - rate(:,:,244) = rate(:,:,244) * m(:,:) - rate(:,:,245) = rate(:,:,245) * m(:,:) - 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(:,:) - rate(:,:,257) = rate(:,:,257) * m(:,:) - rate(:,:,258) = rate(:,:,258) * m(:,:) - rate(:,:,259) = rate(:,:,259) * m(:,:) - rate(:,:,260) = rate(:,:,260) * m(:,:) - rate(:,:,261) = rate(:,:,261) * m(:,:) - rate(:,:,262) = rate(:,:,262) * m(:,:) - rate(:,:,263) = rate(:,:,263) * m(:,:) - rate(:,:,269) = rate(:,:,269) * m(:,:) - rate(:,:,274) = rate(:,:,274) * m(:,:) - rate(:,:,275) = rate(:,:,275) * m(:,:) - rate(:,:,276) = rate(:,:,276) * m(:,:) - rate(:,:,279) = rate(:,:,279) * m(:,:) - rate(:,:,280) = rate(:,:,280) * m(:,:) - rate(:,:,281) = rate(:,:,281) * m(:,:) - rate(:,:,284) = rate(:,:,284) * m(:,:) - rate(:,:,288) = rate(:,:,288) * m(:,:) - rate(:,:,289) = rate(:,:,289) * m(:,:) - 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(:,:,299) = rate(:,:,299) * m(:,:) - rate(:,:,300) = rate(:,:,300) * m(:,:) - rate(:,:,302) = rate(:,:,302) * m(:,:) - rate(:,:,303) = rate(:,:,303) * m(:,:) - rate(:,:,304) = rate(:,:,304) * m(:,:) - rate(:,:,306) = rate(:,:,306) * m(:,:) - rate(:,:,307) = rate(:,:,307) * m(:,:) - rate(:,:,308) = rate(:,:,308) * m(:,:) - rate(:,:,309) = rate(:,:,309) * m(:,:) - rate(:,:,312) = rate(:,:,312) * m(:,:) + rate(:,:, 101) = rate(:,:, 101) * m(:,:) + rate(:,:, 102) = rate(:,:, 102) * m(:,:) + rate(:,:, 103) = rate(:,:, 103) * m(:,:) + rate(:,:, 105) = rate(:,:, 105) * m(:,:) + rate(:,:, 106) = rate(:,:, 106) * m(:,:) + rate(:,:, 107) = rate(:,:, 107) * m(:,:) + rate(:,:, 108) = rate(:,:, 108) * m(:,:) + rate(:,:, 109) = rate(:,:, 109) * m(:,:) + rate(:,:, 110) = rate(:,:, 110) * m(:,:) + rate(:,:, 111) = rate(:,:, 111) * m(:,:) + rate(:,:, 112) = rate(:,:, 112) * m(:,:) + rate(:,:, 113) = rate(:,:, 113) * m(:,:) + rate(:,:, 114) = rate(:,:, 114) * m(:,:) + rate(:,:, 115) = rate(:,:, 115) * m(:,:) + rate(:,:, 116) = rate(:,:, 116) * m(:,:) + rate(:,:, 117) = rate(:,:, 117) * m(:,:) + rate(:,:, 118) = rate(:,:, 118) * m(:,:) + rate(:,:, 119) = rate(:,:, 119) * m(:,:) + rate(:,:, 120) = rate(:,:, 120) * m(:,:) + rate(:,:, 121) = rate(:,:, 121) * m(:,:) + rate(:,:, 122) = rate(:,:, 122) * m(:,:) + rate(:,:, 123) = rate(:,:, 123) * m(:,:) + rate(:,:, 124) = rate(:,:, 124) * m(:,:) + 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(:,:) + rate(:,:, 132) = rate(:,:, 132) * m(:,:) + rate(:,:, 133) = rate(:,:, 133) * m(:,:) + rate(:,:, 134) = rate(:,:, 134) * m(:,:) + rate(:,:, 135) = rate(:,:, 135) * m(:,:) + rate(:,:, 136) = rate(:,:, 136) * m(:,:) + rate(:,:, 137) = rate(:,:, 137) * m(:,:) + rate(:,:, 138) = rate(:,:, 138) * m(:,:) + rate(:,:, 139) = rate(:,:, 139) * m(:,:) + rate(:,:, 140) = rate(:,:, 140) * m(:,:) + rate(:,:, 141) = rate(:,:, 141) * m(:,:) + rate(:,:, 142) = rate(:,:, 142) * m(:,:) + rate(:,:, 143) = rate(:,:, 143) * m(:,:) + rate(:,:, 144) = rate(:,:, 144) * m(:,:) + rate(:,:, 145) = rate(:,:, 145) * m(:,:) + rate(:,:, 146) = rate(:,:, 146) * m(:,:) + rate(:,:, 147) = rate(:,:, 147) * m(:,:) + rate(:,:, 148) = rate(:,:, 148) * m(:,:) + rate(:,:, 149) = rate(:,:, 149) * m(:,:) + rate(:,:, 150) = rate(:,:, 150) * m(:,:) + rate(:,:, 151) = rate(:,:, 151) * m(:,:) + rate(:,:, 152) = rate(:,:, 152) * 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(:,:) + rate(:,:, 160) = rate(:,:, 160) * m(:,:) + rate(:,:, 161) = rate(:,:, 161) * m(:,:) + rate(:,:, 162) = rate(:,:, 162) * m(:,:) + rate(:,:, 163) = rate(:,:, 163) * m(:,:) + rate(:,:, 164) = rate(:,:, 164) * m(:,:) + rate(:,:, 165) = rate(:,:, 165) * m(:,:) + rate(:,:, 166) = rate(:,:, 166) * m(:,:) + rate(:,:, 167) = rate(:,:, 167) * m(:,:) + rate(:,:, 168) = rate(:,:, 168) * m(:,:) + rate(:,:, 169) = rate(:,:, 169) * m(:,:) + rate(:,:, 170) = rate(:,:, 170) * m(:,:) + rate(:,:, 171) = rate(:,:, 171) * m(:,:) + rate(:,:, 172) = rate(:,:, 172) * m(:,:) + rate(:,:, 173) = rate(:,:, 173) * m(:,:) + rate(:,:, 174) = rate(:,:, 174) * m(:,:) + rate(:,:, 175) = rate(:,:, 175) * m(:,:) + rate(:,:, 176) = rate(:,:, 176) * m(:,:) + rate(:,:, 177) = rate(:,:, 177) * 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(:,:) + rate(:,:, 184) = rate(:,:, 184) * m(:,:) + 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(:,:, 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(:,:) + rate(:,:, 197) = rate(:,:, 197) * m(:,:) + rate(:,:, 198) = rate(:,:, 198) * m(:,:) + rate(:,:, 199) = rate(:,:, 199) * m(:,:) + rate(:,:, 200) = rate(:,:, 200) * m(:,:) + rate(:,:, 201) = rate(:,:, 201) * m(:,:) + rate(:,:, 202) = rate(:,:, 202) * m(:,:) + rate(:,:, 203) = rate(:,:, 203) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 221) = rate(:,:, 221) * m(:,:) + rate(:,:, 222) = rate(:,:, 222) * m(:,:) + rate(:,:, 223) = rate(:,:, 223) * m(:,:) + rate(:,:, 224) = rate(:,:, 224) * m(:,:) + rate(:,:, 225) = rate(:,:, 225) * m(:,:) + rate(:,:, 226) = rate(:,:, 226) * m(:,:) + rate(:,:, 227) = rate(:,:, 227) * m(:,:) + rate(:,:, 228) = rate(:,:, 228) * m(:,:) + rate(:,:, 229) = rate(:,:, 229) * m(:,:) + rate(:,:, 230) = rate(:,:, 230) * m(:,:) + rate(:,:, 231) = rate(:,:, 231) * m(:,:) + rate(:,:, 232) = rate(:,:, 232) * 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(:,:) + rate(:,:, 239) = rate(:,:, 239) * m(:,:) + rate(:,:, 240) = rate(:,:, 240) * m(:,:) + rate(:,:, 241) = rate(:,:, 241) * m(:,:) + rate(:,:, 242) = rate(:,:, 242) * m(:,:) + rate(:,:, 243) = rate(:,:, 243) * m(:,:) + rate(:,:, 244) = rate(:,:, 244) * m(:,:) + rate(:,:, 245) = rate(:,:, 245) * m(:,:) + 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(:,:) + rate(:,:, 257) = rate(:,:, 257) * m(:,:) + rate(:,:, 258) = rate(:,:, 258) * m(:,:) + rate(:,:, 259) = rate(:,:, 259) * m(:,:) + rate(:,:, 260) = rate(:,:, 260) * m(:,:) + rate(:,:, 261) = rate(:,:, 261) * m(:,:) + rate(:,:, 262) = rate(:,:, 262) * m(:,:) + rate(:,:, 263) = rate(:,:, 263) * m(:,:) + rate(:,:, 269) = rate(:,:, 269) * m(:,:) + rate(:,:, 274) = rate(:,:, 274) * m(:,:) + rate(:,:, 275) = rate(:,:, 275) * m(:,:) + rate(:,:, 276) = rate(:,:, 276) * m(:,:) + rate(:,:, 279) = rate(:,:, 279) * m(:,:) + rate(:,:, 280) = rate(:,:, 280) * m(:,:) + rate(:,:, 281) = rate(:,:, 281) * m(:,:) + rate(:,:, 284) = rate(:,:, 284) * m(:,:) + rate(:,:, 288) = rate(:,:, 288) * m(:,:) + rate(:,:, 289) = rate(:,:, 289) * m(:,:) + 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(:,:, 299) = rate(:,:, 299) * m(:,:) + rate(:,:, 300) = rate(:,:, 300) * m(:,:) + rate(:,:, 302) = rate(:,:, 302) * m(:,:) + rate(:,:, 303) = rate(:,:, 303) * m(:,:) + rate(:,:, 304) = rate(:,:, 304) * m(:,:) + rate(:,:, 306) = rate(:,:, 306) * m(:,:) + rate(:,:, 307) = rate(:,:, 307) * m(:,:) + rate(:,:, 308) = rate(:,:, 308) * m(:,:) + rate(:,:, 309) = rate(:,:, 309) * m(:,:) + rate(:,:, 312) = rate(:,:, 312) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_indprd.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_indprd.F90 index 0d72168858..6e5fc42ac1 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_indprd.F90 @@ -36,12 +36,12 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,14) = 0._r8 prod(:,15) = 0._r8 prod(:,16) = 0._r8 - prod(:,17) = (rxt(:,242)*y(:,96) +rxt(:,246)*y(:,96))*y(:,29) + prod(:,17) = (rxt(:,242)*y(:,96) +rxt(:,246)*y(:,96))*y(:,31) prod(:,18) = 0._r8 prod(:,19) = 0._r8 prod(:,20) = 0._r8 prod(:,21) = 0._r8 - prod(:,22) =rxt(:,132)*y(:,60)*y(:,53) + prod(:,22) =rxt(:,132)*y(:,62)*y(:,55) prod(:,23) = 0._r8 !-------------------------------------------------------------------- ! ... "independent" production for Implicit species @@ -49,33 +49,41 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) else if( class == 4 ) then prod(:,1) = + extfrc(:,14) prod(:,2) = + extfrc(:,3) + prod(:,60) =rxt(:,31)*y(:,9) +rxt(:,32)*y(:,10) +2.000_r8*rxt(:,38)*y(:,16) & + +rxt(:,39)*y(:,18) +3.000_r8*rxt(:,42)*y(:,24) +2.000_r8*rxt(:,50) & + *y(:,42) prod(:,29) = 0._r8 - prod(:,71) = 0._r8 - prod(:,40) = 0._r8 - prod(:,68) =.180_r8*rxt(:,24)*y(:,22) - prod(:,62) =rxt(:,39)*y(:,17) +rxt(:,41)*y(:,19) +rxt(:,23)*y(:,22) + prod(:,75) = 0._r8 + prod(:,39) = 0._r8 + prod(:,76) =.180_r8*rxt(:,24)*y(:,23) + prod(:,62) =rxt(:,39)*y(:,18) +rxt(:,41)*y(:,20) +rxt(:,23)*y(:,23) prod(:,35) = 0._r8 + prod(:,65) =4.000_r8*rxt(:,30)*y(:,8) +rxt(:,31)*y(:,9) +2.000_r8*rxt(:,33) & + *y(:,11) +2.000_r8*rxt(:,34)*y(:,12) +2.000_r8*rxt(:,35)*y(:,13) & + +rxt(:,36)*y(:,14) +2.000_r8*rxt(:,37)*y(:,15) +3.000_r8*rxt(:,40) & + *y(:,19) +rxt(:,41)*y(:,20) +rxt(:,52)*y(:,46) +rxt(:,53)*y(:,47) & + +rxt(:,54)*y(:,48) prod(:,26) = 0._r8 prod(:,21) = 0._r8 - prod(:,66) = 0._r8 + prod(:,72) = 0._r8 prod(:,56) = 0._r8 - prod(:,39) = (rxt(:,25) +rxt(:,61))*y(:,30) +.380_r8*rxt(:,24)*y(:,22) & + prod(:,40) = (rxt(:,25) +rxt(:,61))*y(:,32) +.380_r8*rxt(:,24)*y(:,23) & + extfrc(:,10) - prod(:,23) =rxt(:,31)*y(:,8) +rxt(:,32)*y(:,9) +rxt(:,34)*y(:,11) & - +2.000_r8*rxt(:,35)*y(:,12) +2.000_r8*rxt(:,36)*y(:,13) +rxt(:,37) & - *y(:,14) +2.000_r8*rxt(:,50)*y(:,40) +rxt(:,53)*y(:,45) +rxt(:,54) & - *y(:,46) - prod(:,27) =rxt(:,33)*y(:,10) +rxt(:,34)*y(:,11) +rxt(:,52)*y(:,44) + prod(:,23) =rxt(:,31)*y(:,9) +rxt(:,32)*y(:,10) +rxt(:,34)*y(:,12) & + +2.000_r8*rxt(:,35)*y(:,13) +2.000_r8*rxt(:,36)*y(:,14) +rxt(:,37) & + *y(:,15) +2.000_r8*rxt(:,50)*y(:,42) +rxt(:,53)*y(:,47) +rxt(:,54) & + *y(:,48) + prod(:,27) =rxt(:,33)*y(:,11) +rxt(:,34)*y(:,12) +rxt(:,52)*y(:,46) prod(:,32) = + extfrc(:,2) prod(:,3) = 0._r8 prod(:,4) = 0._r8 prod(:,5) = 0._r8 - prod(:,46) =rxt(:,32)*y(:,9) +rxt(:,36)*y(:,13) - prod(:,59) = (rxt(:,23) +.330_r8*rxt(:,24))*y(:,22) - prod(:,70) =1.440_r8*rxt(:,24)*y(:,22) - prod(:,41) = 0._r8 + prod(:,46) =rxt(:,32)*y(:,10) +rxt(:,36)*y(:,14) + prod(:,59) = (rxt(:,23) +.330_r8*rxt(:,24))*y(:,23) + prod(:,70) =1.440_r8*rxt(:,24)*y(:,23) + prod(:,42) = 0._r8 prod(:,22) = 0._r8 - prod(:,49) = 0._r8 + prod(:,48) = 0._r8 prod(:,61) = 0._r8 prod(:,28) = 0._r8 prod(:,57) = 0._r8 @@ -88,15 +96,15 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,6) = 0._r8 prod(:,7) = 0._r8 prod(:,8) = 0._r8 - prod(:,76) = + extfrc(:,11) - prod(:,75) = + extfrc(:,12) + prod(:,71) = + extfrc(:,11) + prod(:,66) = + extfrc(:,12) prod(:,63) = 0._r8 prod(:,9) = + extfrc(:,4) prod(:,10) = + extfrc(:,5) prod(:,11) = 0._r8 prod(:,12) = + extfrc(:,6) - prod(:,67) = (rxt(:,25) +rxt(:,61))*y(:,30) +.180_r8*rxt(:,24)*y(:,22) - prod(:,72) = 0._r8 + prod(:,67) = (rxt(:,25) +rxt(:,61))*y(:,32) +.180_r8*rxt(:,24)*y(:,23) + prod(:,68) = 0._r8 prod(:,74) = 0._r8 prod(:,33) = 0._r8 prod(:,34) = 0._r8 @@ -112,31 +120,23 @@ subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) prod(:,18) = 0._r8 prod(:,19) = 0._r8 prod(:,20) = 0._r8 - prod(:,60) =rxt(:,31)*y(:,8) +rxt(:,32)*y(:,9) +2.000_r8*rxt(:,38)*y(:,15) & - +rxt(:,39)*y(:,17) +3.000_r8*rxt(:,42)*y(:,23) +2.000_r8*rxt(:,50) & - *y(:,40) - prod(:,65) =4.000_r8*rxt(:,30)*y(:,7) +rxt(:,31)*y(:,8) +2.000_r8*rxt(:,33) & - *y(:,10) +2.000_r8*rxt(:,34)*y(:,11) +2.000_r8*rxt(:,35)*y(:,12) & - +rxt(:,36)*y(:,13) +2.000_r8*rxt(:,37)*y(:,14) +3.000_r8*rxt(:,40) & - *y(:,18) +rxt(:,41)*y(:,19) +rxt(:,52)*y(:,44) +rxt(:,53)*y(:,45) & - +rxt(:,54)*y(:,46) prod(:,52) = (rxt(:,63) +rxt(:,64) +rxt(:,65) +rxt(:,67) +rxt(:,69) + & rxt(:,70)) + extfrc(:,19) prod(:,64) = 0._r8 prod(:,53) = (rxt(:,65) +1.200_r8*rxt(:,66) +1.200_r8*rxt(:,68) +rxt(:,69)) & + extfrc(:,16) - prod(:,42) = (rxt(:,63) +rxt(:,67)) + extfrc(:,17) + prod(:,41) = (rxt(:,63) +rxt(:,67)) + extfrc(:,17) prod(:,44) = 0._r8 - prod(:,48) = (rxt(:,64) +rxt(:,65) +rxt(:,69) +rxt(:,70)) + extfrc(:,20) - prod(:,69) =rxt(:,12)*y(:,54) + prod(:,49) = (rxt(:,64) +rxt(:,65) +rxt(:,69) +rxt(:,70)) + extfrc(:,20) + prod(:,69) =rxt(:,12)*y(:,56) prod(:,24) = 0._r8 prod(:,25) = 0._r8 prod(:,51) = + extfrc(:,21) - prod(:,73) =.330_r8*rxt(:,24)*y(:,22) + extfrc(:,22) + prod(:,73) =.330_r8*rxt(:,24)*y(:,23) + extfrc(:,22) prod(:,50) = + extfrc(:,18) prod(:,38) = 0._r8 prod(:,37) = 0._r8 - prod(:,77) =.050_r8*rxt(:,24)*y(:,22) + prod(:,77) =.050_r8*rxt(:,24)*y(:,23) end if end subroutine indprd end module mo_indprd diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_lin_matrix.F90 index 8c68f34a2c..53bb554c87 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_lin_matrix.F90 @@ -25,205 +25,205 @@ 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,44) = -( rxt(k,26) + het_rates(k,3) ) - mat(k,592) = -( rxt(k,27) + het_rates(k,4) ) - mat(k,113) = rxt(k,28) - mat(k,107) = -( rxt(k,28) + rxt(k,29) + rxt(k,270) + rxt(k,273) + rxt(k,278) & - + het_rates(k,5) ) - mat(k,517) = -( rxt(k,20) + rxt(k,21) + het_rates(k,16) ) - mat(k,80) = rxt(k,22) - mat(k,542) = rxt(k,244)*y(k,22) + rxt(k,245)*y(k,22) - mat(k,347) = -( het_rates(k,20) ) - mat(k,418) = rxt(k,156)*y(k,22) - mat(k,156) = rxt(k,212)*y(k,22) - mat(k,651) = rxt(k,241)*y(k,22) - mat(k,536) = rxt(k,243)*y(k,22) - mat(k,77) = -( rxt(k,22) + het_rates(k,21) ) - mat(k,35) = -( rxt(k,43) + het_rates(k,24) ) - mat(k,21) = -( rxt(k,44) + rxt(k,190) + het_rates(k,25) ) - mat(k,450) = -( rxt(k,45) + het_rates(k,26) ) - mat(k,267) = rxt(k,47) - mat(k,67) = rxt(k,59) + mat(k,310) = -( het_rates(k,3) ) + mat(k,45) = rxt(k,26) + mat(k,700) = rxt(k,27) + mat(k,106) = rxt(k,29) + mat(k,171) = rxt(k,51) + mat(k,145) = rxt(k,57) + mat(k,543) = 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) + 2.000_r8*rxt(k,230)*y(k,16) & + + rxt(k,231)*y(k,18) + mat(k,416) = 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,652) = 2.000_r8*rxt(k,219)*y(k,16) + rxt(k,221)*y(k,18) & + + 3.000_r8*rxt(k,226)*y(k,24) + mat(k,44) = -( rxt(k,26) + het_rates(k,4) ) + mat(k,715) = -( rxt(k,27) + het_rates(k,5) ) + mat(k,110) = rxt(k,28) + mat(k,103) = -( rxt(k,28) + rxt(k,29) + rxt(k,270) + rxt(k,273) + rxt(k,278) & + + het_rates(k,6) ) + mat(k,738) = -( rxt(k,20) + rxt(k,21) + het_rates(k,17) ) + mat(k,81) = rxt(k,22) + mat(k,559) = rxt(k,244)*y(k,23) + rxt(k,245)*y(k,23) + mat(k,347) = -( het_rates(k,21) ) + mat(k,418) = rxt(k,156)*y(k,23) + mat(k,156) = rxt(k,212)*y(k,23) + mat(k,654) = rxt(k,241)*y(k,23) + mat(k,545) = rxt(k,243)*y(k,23) + mat(k,77) = -( rxt(k,22) + het_rates(k,22) ) + mat(k,421) = -( rxt(k,156)*y(k,23) + rxt(k,218)*y(k,16) + rxt(k,220)*y(k,18) & + + rxt(k,223)*y(k,20) + rxt(k,225)*y(k,24) + het_rates(k,25) ) + mat(k,46) = rxt(k,26) + mat(k,36) = 2.000_r8*rxt(k,43) + mat(k,22) = 2.000_r8*rxt(k,44) + mat(k,620) = rxt(k,45) + mat(k,266) = rxt(k,46) + mat(k,39) = rxt(k,49) + mat(k,333) = rxt(k,55) + mat(k,164) = rxt(k,58) + mat(k,548) = 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,232)*y(k,46) & + + rxt(k,233)*y(k,47) + rxt(k,234)*y(k,48) + mat(k,657) = 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) + mat(k,35) = -( rxt(k,43) + het_rates(k,26) ) + mat(k,21) = -( rxt(k,44) + rxt(k,190) + het_rates(k,27) ) + mat(k,627) = -( rxt(k,45) + het_rates(k,28) ) + mat(k,269) = rxt(k,47) + mat(k,68) = rxt(k,59) mat(k,23) = 2.000_r8*rxt(k,190) mat(k,262) = -( rxt(k,46) + rxt(k,47) + rxt(k,272) + rxt(k,277) + rxt(k,283) & - + het_rates(k,27) ) - mat(k,103) = -( het_rates(k,29) ) - mat(k,505) = rxt(k,20) + rxt(k,21) + + het_rates(k,29) ) + mat(k,111) = -( het_rates(k,31) ) + mat(k,718) = rxt(k,20) + rxt(k,21) mat(k,70) = rxt(k,88) - mat(k,410) = rxt(k,223)*y(k,19) - mat(k,186) = rxt(k,300)*y(k,30) - mat(k,27) = -( rxt(k,48) + het_rates(k,31) ) - mat(k,527) = rxt(k,181)*y(k,8) + rxt(k,183)*y(k,11) + 2.000_r8*rxt(k,184)*y(k,12) & - + 2.000_r8*rxt(k,185)*y(k,13) + rxt(k,186)*y(k,14) & - + rxt(k,207)*y(k,9) + 2.000_r8*rxt(k,209)*y(k,40) & - + rxt(k,233)*y(k,45) + rxt(k,234)*y(k,46) - mat(k,630) = rxt(k,228)*y(k,45) + rxt(k,229)*y(k,46) - mat(k,37) = -( rxt(k,49) + het_rates(k,32) ) - mat(k,529) = rxt(k,182)*y(k,10) + rxt(k,183)*y(k,11) + rxt(k,232)*y(k,44) - mat(k,631) = rxt(k,227)*y(k,44) - mat(k,58) = -( het_rates(k,33) ) - mat(k,3) = -( het_rates(k,34) ) - mat(k,4) = -( het_rates(k,35) ) - mat(k,5) = -( het_rates(k,36) ) - mat(k,153) = -( rxt(k,212)*y(k,22) + het_rates(k,37) ) + mat(k,410) = rxt(k,223)*y(k,20) + mat(k,186) = rxt(k,300)*y(k,32) + mat(k,27) = -( rxt(k,48) + het_rates(k,33) ) + mat(k,536) = 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) + mat(k,633) = rxt(k,228)*y(k,47) + rxt(k,229)*y(k,48) + mat(k,37) = -( rxt(k,49) + het_rates(k,34) ) + mat(k,538) = rxt(k,182)*y(k,11) + rxt(k,183)*y(k,12) + rxt(k,232)*y(k,46) + mat(k,634) = rxt(k,227)*y(k,46) + mat(k,58) = -( het_rates(k,35) ) + mat(k,3) = -( het_rates(k,36) ) + mat(k,4) = -( het_rates(k,37) ) + mat(k,5) = -( het_rates(k,38) ) + mat(k,153) = -( rxt(k,212)*y(k,23) + het_rates(k,39) ) mat(k,28) = 2.000_r8*rxt(k,48) mat(k,38) = rxt(k,49) mat(k,42) = rxt(k,56) - mat(k,530) = rxt(k,185)*y(k,13) + rxt(k,207)*y(k,9) - mat(k,299) = -( het_rates(k,38) ) + mat(k,539) = rxt(k,185)*y(k,14) + rxt(k,207)*y(k,10) + mat(k,299) = -( het_rates(k,40) ) mat(k,747) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,508) = 2.000_r8*rxt(k,20) + mat(k,721) = 2.000_r8*rxt(k,20) mat(k,78) = rxt(k,22) - mat(k,179) = rxt(k,51) + mat(k,170) = rxt(k,51) mat(k,327) = rxt(k,55) mat(k,43) = rxt(k,56) - mat(k,533) = rxt(k,244)*y(k,22) - mat(k,565) = -( het_rates(k,39) ) + mat(k,542) = rxt(k,244)*y(k,23) + mat(k,574) = -( het_rates(k,41) ) mat(k,757) = rxt(k,1) - mat(k,519) = rxt(k,21) - mat(k,544) = rxt(k,245)*y(k,22) - mat(k,115) = -( rxt(k,4) + het_rates(k,41) ) + mat(k,732) = rxt(k,21) + mat(k,553) = rxt(k,245)*y(k,23) + mat(k,124) = -( rxt(k,4) + het_rates(k,43) ) mat(k,386) = .500_r8*rxt(k,264) - mat(k,24) = -( rxt(k,87) + het_rates(k,42) ) - mat(k,178) = -( rxt(k,51) + het_rates(k,43) ) - mat(k,329) = -( rxt(k,55) + het_rates(k,47) ) - mat(k,417) = rxt(k,156)*y(k,22) + rxt(k,218)*y(k,15) + rxt(k,220)*y(k,17) & - + 2.000_r8*rxt(k,223)*y(k,19) + rxt(k,225)*y(k,23) - mat(k,41) = -( rxt(k,56) + het_rates(k,48) ) - mat(k,152) = rxt(k,212)*y(k,22) - mat(k,274) = -( rxt(k,9) + het_rates(k,49) ) + mat(k,24) = -( rxt(k,87) + het_rates(k,44) ) + mat(k,169) = -( rxt(k,51) + het_rates(k,45) ) + mat(k,329) = -( rxt(k,55) + het_rates(k,49) ) + mat(k,417) = rxt(k,156)*y(k,23) + 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) + mat(k,41) = -( rxt(k,56) + het_rates(k,50) ) + mat(k,152) = rxt(k,212)*y(k,23) + mat(k,274) = -( rxt(k,9) + het_rates(k,51) ) mat(k,53) = 2.000_r8*rxt(k,265) + 2.000_r8*rxt(k,268) + 2.000_r8*rxt(k,271) & + 2.000_r8*rxt(k,282) - mat(k,696) = .500_r8*rxt(k,266) + mat(k,441) = .500_r8*rxt(k,266) mat(k,364) = rxt(k,267) - mat(k,109) = rxt(k,270) + rxt(k,273) + rxt(k,278) + mat(k,105) = rxt(k,270) + rxt(k,273) + rxt(k,278) mat(k,263) = rxt(k,272) + rxt(k,277) + rxt(k,283) - mat(k,83) = -( rxt(k,10) + rxt(k,11) + rxt(k,153) + het_rates(k,50) ) - mat(k,144) = -( rxt(k,57) + het_rates(k,51) ) - mat(k,108) = rxt(k,270) + rxt(k,273) + rxt(k,278) - mat(k,162) = -( rxt(k,58) + het_rates(k,52) ) + mat(k,83) = -( rxt(k,10) + rxt(k,11) + rxt(k,153) + het_rates(k,52) ) + mat(k,144) = -( rxt(k,57) + het_rates(k,53) ) + mat(k,104) = rxt(k,270) + rxt(k,273) + rxt(k,278) + mat(k,162) = -( rxt(k,58) + het_rates(k,54) ) mat(k,261) = rxt(k,272) + rxt(k,277) + rxt(k,283) - mat(k,244) = -( rxt(k,62) + het_rates(k,53) ) - mat(k,721) = rxt(k,15) + mat(k,244) = -( rxt(k,62) + het_rates(k,55) ) + mat(k,586) = rxt(k,15) mat(k,193) = rxt(k,301) mat(k,52) = -( rxt(k,13) + rxt(k,14) + rxt(k,154) + rxt(k,265) + rxt(k,268) & - + rxt(k,271) + rxt(k,282) + het_rates(k,55) ) - mat(k,6) = -( het_rates(k,56) ) - mat(k,7) = -( het_rates(k,57) ) - mat(k,8) = -( het_rates(k,58) ) - mat(k,738) = -( rxt(k,15) + rxt(k,16) + het_rates(k,59) ) + + rxt(k,271) + rxt(k,282) + het_rates(k,57) ) + mat(k,6) = -( het_rates(k,58) ) + mat(k,7) = -( het_rates(k,59) ) + mat(k,8) = -( het_rates(k,60) ) + mat(k,598) = -( rxt(k,15) + rxt(k,16) + het_rates(k,61) ) mat(k,57) = rxt(k,14) - mat(k,715) = rxt(k,17) + .500_r8*rxt(k,266) - mat(k,382) = rxt(k,19) + mat(k,455) = rxt(k,17) + .500_r8*rxt(k,266) + mat(k,377) = rxt(k,19) mat(k,207) = rxt(k,298) mat(k,96) = rxt(k,311) - mat(k,550) = 2.000_r8*rxt(k,147)*y(k,54) - mat(k,714) = -( rxt(k,17) + rxt(k,266) + het_rates(k,60) ) - mat(k,280) = rxt(k,9) - mat(k,88) = rxt(k,11) + rxt(k,153) - mat(k,56) = rxt(k,13) + rxt(k,154) - mat(k,381) = rxt(k,18) - mat(k,114) = rxt(k,28) - mat(k,270) = rxt(k,47) - mat(k,369) = -( rxt(k,18) + rxt(k,19) + rxt(k,267) + het_rates(k,61) ) + mat(k,554) = 2.000_r8*rxt(k,147)*y(k,56) + mat(k,450) = -( rxt(k,17) + rxt(k,266) + het_rates(k,62) ) + mat(k,278) = rxt(k,9) + mat(k,86) = rxt(k,11) + rxt(k,153) + mat(k,55) = rxt(k,13) + rxt(k,154) + mat(k,372) = rxt(k,18) + mat(k,108) = rxt(k,28) + mat(k,267) = rxt(k,47) + mat(k,369) = -( rxt(k,18) + rxt(k,19) + rxt(k,267) + het_rates(k,63) ) mat(k,84) = rxt(k,10) mat(k,54) = rxt(k,13) + rxt(k,14) + rxt(k,154) - mat(k,111) = rxt(k,29) + mat(k,107) = rxt(k,29) mat(k,265) = rxt(k,46) - mat(k,9) = -( het_rates(k,62) ) - mat(k,10) = -( het_rates(k,63) ) - mat(k,11) = -( het_rates(k,64) ) - mat(k,12) = -( het_rates(k,65) ) + mat(k,9) = -( het_rates(k,64) ) + mat(k,10) = -( het_rates(k,65) ) + mat(k,11) = -( het_rates(k,66) ) + mat(k,12) = -( het_rates(k,67) ) mat(k,494) = -( rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & - + rxt(k,76) + het_rates(k,66) ) + + rxt(k,76) + het_rates(k,68) ) mat(k,754) = rxt(k,2) - mat(k,619) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,77) + rxt(k,79) + rxt(k,81) & + mat(k,525) = 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) - mat(k,678) = rxt(k,8) - mat(k,55) = rxt(k,14) - mat(k,729) = rxt(k,15) - mat(k,706) = rxt(k,17) + mat(k,681) = rxt(k,8) + mat(k,56) = rxt(k,14) + mat(k,594) = rxt(k,15) + mat(k,451) = rxt(k,17) mat(k,373) = rxt(k,18) - mat(k,588) = rxt(k,27) - mat(k,451) = rxt(k,45) - mat(k,68) = rxt(k,59) + mat(k,707) = rxt(k,27) + mat(k,622) = rxt(k,45) + mat(k,67) = rxt(k,59) mat(k,291) = rxt(k,89) mat(k,257) = rxt(k,90) mat(k,50) = rxt(k,91) - mat(k,541) = rxt(k,96) + mat(k,550) = rxt(k,96) mat(k,101) = rxt(k,305) mat(k,95) = rxt(k,310) - mat(k,624) = -( rxt(k,5) + rxt(k,6) + rxt(k,77) + rxt(k,78) + rxt(k,79) & + mat(k,526) = -( 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,67) ) - mat(k,683) = rxt(k,8) - mat(k,378) = rxt(k,19) + + rxt(k,85) + rxt(k,86) + het_rates(k,69) ) + mat(k,682) = rxt(k,8) + mat(k,374) = rxt(k,19) mat(k,31) = rxt(k,92) + rxt(k,100) mat(k,34) = rxt(k,93) - mat(k,546) = rxt(k,148)*y(k,54) - mat(k,685) = -( rxt(k,7) + rxt(k,8) + het_rates(k,68) ) - mat(k,64) = -( rxt(k,59) + het_rates(k,69) ) - mat(k,69) = -( rxt(k,88) + het_rates(k,70) ) - mat(k,13) = -( het_rates(k,71) ) - mat(k,14) = -( het_rates(k,72) ) - mat(k,131) = -( het_rates(k,73) ) + mat(k,551) = rxt(k,148)*y(k,56) + mat(k,688) = -( rxt(k,7) + rxt(k,8) + het_rates(k,70) ) + mat(k,64) = -( rxt(k,59) + het_rates(k,71) ) + mat(k,69) = -( rxt(k,88) + het_rates(k,72) ) + mat(k,13) = -( het_rates(k,73) ) + mat(k,14) = -( het_rates(k,74) ) + mat(k,131) = -( het_rates(k,75) ) mat(k,71) = rxt(k,88) mat(k,283) = rxt(k,89) - mat(k,285) = -( rxt(k,89) + het_rates(k,75) ) + mat(k,285) = -( rxt(k,89) + het_rates(k,77) ) mat(k,255) = rxt(k,90) - mat(k,254) = -( rxt(k,90) + het_rates(k,76) ) + mat(k,254) = -( rxt(k,90) + het_rates(k,78) ) mat(k,49) = rxt(k,91) - mat(k,48) = -( rxt(k,91) + het_rates(k,77) ) + mat(k,48) = -( rxt(k,91) + het_rates(k,79) ) mat(k,25) = rxt(k,87) - mat(k,15) = -( het_rates(k,78) ) - mat(k,16) = -( het_rates(k,79) ) - mat(k,17) = -( het_rates(k,80) ) - mat(k,18) = -( het_rates(k,81) ) - mat(k,19) = -( het_rates(k,82) ) - mat(k,20) = -( het_rates(k,83) ) - mat(k,310) = -( het_rates(k,84) ) - mat(k,45) = rxt(k,26) - mat(k,581) = rxt(k,27) - mat(k,110) = rxt(k,29) - mat(k,180) = rxt(k,51) - mat(k,145) = rxt(k,57) - mat(k,534) = rxt(k,181)*y(k,8) + rxt(k,207)*y(k,9) + 3.000_r8*rxt(k,208)*y(k,23) & - + 2.000_r8*rxt(k,209)*y(k,40) + 2.000_r8*rxt(k,230)*y(k,15) & - + rxt(k,231)*y(k,17) - mat(k,416) = 2.000_r8*rxt(k,218)*y(k,15) + rxt(k,220)*y(k,17) & - + 3.000_r8*rxt(k,225)*y(k,23) - mat(k,649) = 2.000_r8*rxt(k,219)*y(k,15) + rxt(k,221)*y(k,17) & - + 3.000_r8*rxt(k,226)*y(k,23) - mat(k,421) = -( rxt(k,156)*y(k,22) + rxt(k,218)*y(k,15) + rxt(k,220)*y(k,17) & - + rxt(k,223)*y(k,19) + rxt(k,225)*y(k,23) + het_rates(k,85) ) - mat(k,46) = rxt(k,26) - mat(k,36) = 2.000_r8*rxt(k,43) - mat(k,22) = 2.000_r8*rxt(k,44) - mat(k,449) = rxt(k,45) - mat(k,266) = rxt(k,46) - mat(k,39) = rxt(k,49) - mat(k,333) = rxt(k,55) - mat(k,164) = rxt(k,58) - mat(k,539) = 4.000_r8*rxt(k,180)*y(k,7) + rxt(k,181)*y(k,8) & - + 2.000_r8*rxt(k,182)*y(k,10) + 2.000_r8*rxt(k,183)*y(k,11) & - + 2.000_r8*rxt(k,184)*y(k,12) + rxt(k,185)*y(k,13) & - + 2.000_r8*rxt(k,186)*y(k,14) + rxt(k,232)*y(k,44) & - + rxt(k,233)*y(k,45) + rxt(k,234)*y(k,46) - mat(k,654) = 3.000_r8*rxt(k,222)*y(k,18) + rxt(k,224)*y(k,19) & - + rxt(k,227)*y(k,44) + rxt(k,228)*y(k,45) + rxt(k,229)*y(k,46) + mat(k,15) = -( het_rates(k,80) ) + mat(k,16) = -( het_rates(k,81) ) + mat(k,17) = -( het_rates(k,82) ) + mat(k,18) = -( het_rates(k,83) ) + mat(k,19) = -( het_rates(k,84) ) + mat(k,20) = -( het_rates(k,85) ) mat(k,215) = -( het_rates(k,86) ) - mat(k,719) = rxt(k,16) + mat(k,584) = rxt(k,16) mat(k,242) = rxt(k,62) mat(k,479) = rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & + rxt(k,76) - mat(k,609) = rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & + mat(k,515) = 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,395) = -( rxt(k,264) + het_rates(k,87) ) mat(k,85) = rxt(k,11) + rxt(k,153) - mat(k,420) = rxt(k,220)*y(k,17) + rxt(k,223)*y(k,19) - mat(k,653) = rxt(k,221)*y(k,17) + rxt(k,224)*y(k,19) - mat(k,538) = rxt(k,244)*y(k,22) + mat(k,420) = rxt(k,220)*y(k,18) + rxt(k,223)*y(k,20) + mat(k,656) = rxt(k,221)*y(k,18) + rxt(k,224)*y(k,20) + mat(k,547) = rxt(k,244)*y(k,23) end do end subroutine linmat01 subroutine linmat02( avec_len, mat, y, rxt, het_rates ) @@ -247,64 +247,64 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) integer :: k do k = 1,avec_len mat(k,229) = -( het_rates(k,88) ) - mat(k,122) = -( het_rates(k,89) ) + mat(k,115) = -( het_rates(k,89) ) mat(k,98) = rxt(k,305) mat(k,92) = rxt(k,310) mat(k,138) = -( het_rates(k,90) ) - mat(k,717) = rxt(k,16) + mat(k,582) = rxt(k,16) mat(k,199) = rxt(k,298) mat(k,187) = rxt(k,301) - mat(k,170) = -( het_rates(k,91) ) + mat(k,178) = -( het_rates(k,91) ) mat(k,239) = rxt(k,62) mat(k,93) = rxt(k,311) - mat(k,543) = -( rxt(k,96) + rxt(k,147)*y(k,54) + rxt(k,148)*y(k,54) & - + rxt(k,180)*y(k,7) + rxt(k,181)*y(k,8) + rxt(k,182)*y(k,10) & - + rxt(k,183)*y(k,11) + rxt(k,184)*y(k,12) + rxt(k,185)*y(k,13) & - + rxt(k,186)*y(k,14) + rxt(k,207)*y(k,9) + rxt(k,208)*y(k,23) & - + rxt(k,209)*y(k,40) + rxt(k,230)*y(k,15) + rxt(k,231)*y(k,17) & - + rxt(k,232)*y(k,44) + rxt(k,233)*y(k,45) + rxt(k,234)*y(k,46) & - + rxt(k,243)*y(k,22) + rxt(k,244)*y(k,22) + rxt(k,245)*y(k,22) & + mat(k,552) = -( rxt(k,96) + rxt(k,147)*y(k,56) + 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,207)*y(k,10) + rxt(k,208)*y(k,24) & + + rxt(k,209)*y(k,42) + 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,243)*y(k,23) + rxt(k,244)*y(k,23) + rxt(k,245)*y(k,23) & + het_rates(k,92) ) mat(k,756) = rxt(k,1) - mat(k,621) = rxt(k,6) - mat(k,680) = rxt(k,7) + mat(k,527) = rxt(k,6) + mat(k,683) = rxt(k,7) mat(k,30) = -( rxt(k,92) + rxt(k,100) + het_rates(k,93) ) - mat(k,667) = rxt(k,7) - mat(k,32) = rxt(k,104) + rxt(k,103)*y(k,30) - mat(k,33) = -( rxt(k,93) + rxt(k,104) + rxt(k,103)*y(k,30) + het_rates(k,94) ) + mat(k,670) = rxt(k,7) + mat(k,32) = rxt(k,104) + rxt(k,103)*y(k,32) + mat(k,33) = -( rxt(k,93) + rxt(k,104) + rxt(k,103)*y(k,32) + het_rates(k,94) ) mat(k,200) = -( rxt(k,298) + het_rates(k,95) ) - mat(k,608) = rxt(k,78) + rxt(k,80) - mat(k,190) = rxt(k,300)*y(k,30) - mat(k,662) = -( rxt(k,219)*y(k,15) + rxt(k,221)*y(k,17) + rxt(k,222)*y(k,18) & - + rxt(k,224)*y(k,19) + rxt(k,226)*y(k,23) + rxt(k,227)*y(k,44) & - + rxt(k,228)*y(k,45) + rxt(k,229)*y(k,46) + rxt(k,241)*y(k,22) & + mat(k,514) = rxt(k,78) + rxt(k,80) + mat(k,190) = rxt(k,300)*y(k,32) + mat(k,665) = -( 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,241)*y(k,23) & + het_rates(k,96) ) mat(k,760) = rxt(k,3) - mat(k,120) = 2.000_r8*rxt(k,4) - mat(k,279) = rxt(k,9) - mat(k,87) = rxt(k,10) - mat(k,81) = rxt(k,22) - mat(k,150) = rxt(k,57) + mat(k,129) = 2.000_r8*rxt(k,4) + mat(k,280) = rxt(k,9) + mat(k,88) = rxt(k,10) + mat(k,80) = rxt(k,22) + mat(k,149) = rxt(k,57) mat(k,167) = rxt(k,58) - mat(k,712) = .500_r8*rxt(k,266) - mat(k,547) = rxt(k,243)*y(k,22) - mat(k,189) = -( rxt(k,301) + rxt(k,300)*y(k,30) + het_rates(k,97) ) + mat(k,457) = .500_r8*rxt(k,266) + mat(k,556) = rxt(k,243)*y(k,23) + mat(k,189) = -( rxt(k,301) + rxt(k,300)*y(k,32) + het_rates(k,97) ) mat(k,477) = rxt(k,73) + rxt(k,74) - mat(k,607) = rxt(k,79) + rxt(k,81) + mat(k,513) = rxt(k,79) + rxt(k,81) mat(k,94) = rxt(k,285) mat(k,99) = rxt(k,286) mat(k,97) = -( rxt(k,286) + rxt(k,305) + het_rates(k,98) ) mat(k,466) = rxt(k,75) + rxt(k,76) - mat(k,602) = rxt(k,85) + rxt(k,86) + mat(k,508) = rxt(k,85) + rxt(k,86) mat(k,91) = rxt(k,287) mat(k,90) = -( rxt(k,285) + rxt(k,287) + rxt(k,310) + rxt(k,311) & + het_rates(k,99) ) mat(k,465) = rxt(k,71) + rxt(k,72) - mat(k,601) = rxt(k,77) + rxt(k,84) + mat(k,507) = rxt(k,77) + rxt(k,84) mat(k,764) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,100) ) mat(k,26) = rxt(k,87) - mat(k,666) = rxt(k,219)*y(k,15) + rxt(k,221)*y(k,17) + rxt(k,222)*y(k,18) & - + rxt(k,224)*y(k,19) + rxt(k,229)*y(k,46) + rxt(k,241)*y(k,22) + mat(k,669) = 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,241)*y(k,23) end do end subroutine linmat02 subroutine linmat( avec_len, mat, y, rxt, het_rates ) diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_lu_factor.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_lu_factor.F90 index 212376423d..96caabefd5 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_lu_factor.F90 @@ -40,8 +40,8 @@ subroutine lu_fac01( avec_len, lu ) lu(k,21) = 1._r8 / lu(k,21) lu(k,22) = lu(k,22) * lu(k,21) lu(k,23) = lu(k,23) * lu(k,21) - lu(k,449) = lu(k,449) - lu(k,22) * lu(k,434) - lu(k,450) = lu(k,450) - lu(k,23) * lu(k,434) + lu(k,620) = lu(k,620) - lu(k,22) * lu(k,605) + lu(k,627) = lu(k,627) - lu(k,23) * lu(k,605) lu(k,24) = 1._r8 / lu(k,24) lu(k,25) = lu(k,25) * lu(k,24) lu(k,26) = lu(k,26) * lu(k,24) @@ -52,39 +52,39 @@ subroutine lu_fac01( avec_len, lu ) lu(k,27) = 1._r8 / lu(k,27) lu(k,28) = lu(k,28) * lu(k,27) lu(k,29) = lu(k,29) * lu(k,27) - lu(k,530) = lu(k,530) - lu(k,28) * lu(k,527) - lu(k,543) = lu(k,543) - lu(k,29) * lu(k,527) - lu(k,640) = - lu(k,28) * lu(k,630) - lu(k,658) = - lu(k,29) * lu(k,630) + lu(k,539) = lu(k,539) - lu(k,28) * lu(k,536) + lu(k,552) = lu(k,552) - lu(k,29) * lu(k,536) + lu(k,643) = - lu(k,28) * lu(k,633) + lu(k,661) = - lu(k,29) * lu(k,633) lu(k,30) = 1._r8 / lu(k,30) lu(k,31) = lu(k,31) * lu(k,30) lu(k,34) = lu(k,34) - lu(k,31) * lu(k,32) - lu(k,499) = lu(k,499) - lu(k,31) * lu(k,462) - lu(k,624) = lu(k,624) - lu(k,31) * lu(k,599) - lu(k,683) = lu(k,683) - lu(k,31) * lu(k,667) + lu(k,495) = lu(k,495) - lu(k,31) * lu(k,462) + lu(k,526) = lu(k,526) - lu(k,31) * lu(k,505) + lu(k,682) = lu(k,682) - lu(k,31) * lu(k,670) lu(k,33) = 1._r8 / lu(k,33) lu(k,34) = lu(k,34) * lu(k,33) - lu(k,499) = lu(k,499) - lu(k,34) * lu(k,463) - lu(k,546) = lu(k,546) - lu(k,34) * lu(k,528) - lu(k,624) = lu(k,624) - lu(k,34) * lu(k,600) - lu(k,683) = lu(k,683) - lu(k,34) * lu(k,668) + lu(k,495) = lu(k,495) - lu(k,34) * lu(k,463) + lu(k,526) = lu(k,526) - lu(k,34) * lu(k,506) + lu(k,551) = lu(k,551) - lu(k,34) * lu(k,537) + lu(k,682) = lu(k,682) - lu(k,34) * lu(k,671) lu(k,35) = 1._r8 / lu(k,35) lu(k,36) = lu(k,36) * lu(k,35) lu(k,164) = lu(k,164) - lu(k,36) * lu(k,161) lu(k,266) = lu(k,266) - lu(k,36) * lu(k,260) lu(k,333) = lu(k,333) - lu(k,36) * lu(k,321) lu(k,421) = lu(k,421) - lu(k,36) * lu(k,409) - lu(k,449) = lu(k,449) - lu(k,36) * lu(k,435) + lu(k,620) = lu(k,620) - lu(k,36) * lu(k,606) lu(k,37) = 1._r8 / lu(k,37) lu(k,38) = lu(k,38) * lu(k,37) lu(k,39) = lu(k,39) * lu(k,37) lu(k,40) = lu(k,40) * lu(k,37) - lu(k,530) = lu(k,530) - lu(k,38) * lu(k,529) - lu(k,539) = lu(k,539) - lu(k,39) * lu(k,529) - lu(k,543) = lu(k,543) - lu(k,40) * lu(k,529) - lu(k,640) = lu(k,640) - lu(k,38) * lu(k,631) - lu(k,654) = lu(k,654) - lu(k,39) * lu(k,631) - lu(k,658) = lu(k,658) - lu(k,40) * lu(k,631) + lu(k,539) = lu(k,539) - lu(k,38) * lu(k,538) + lu(k,548) = lu(k,548) - lu(k,39) * lu(k,538) + lu(k,552) = lu(k,552) - lu(k,40) * lu(k,538) + lu(k,643) = lu(k,643) - lu(k,38) * lu(k,634) + lu(k,657) = lu(k,657) - lu(k,39) * lu(k,634) + lu(k,661) = lu(k,661) - lu(k,40) * lu(k,634) lu(k,41) = 1._r8 / lu(k,41) lu(k,42) = lu(k,42) * lu(k,41) lu(k,43) = lu(k,43) * lu(k,41) @@ -92,8 +92,8 @@ subroutine lu_fac01( avec_len, lu ) lu(k,155) = lu(k,155) - lu(k,43) * lu(k,152) lu(k,273) = lu(k,273) - lu(k,42) * lu(k,272) lu(k,275) = - lu(k,43) * lu(k,272) - lu(k,553) = lu(k,553) - lu(k,42) * lu(k,552) - lu(k,555) = lu(k,555) - lu(k,43) * lu(k,552) + lu(k,562) = lu(k,562) - lu(k,42) * lu(k,561) + lu(k,564) = lu(k,564) - lu(k,43) * lu(k,561) lu(k,743) = lu(k,743) - lu(k,42) * lu(k,741) lu(k,747) = lu(k,747) - lu(k,43) * lu(k,741) lu(k,44) = 1._r8 / lu(k,44) @@ -103,10 +103,10 @@ subroutine lu_fac01( avec_len, lu ) lu(k,147) = - lu(k,46) * lu(k,143) lu(k,328) = - lu(k,45) * lu(k,322) lu(k,333) = lu(k,333) - lu(k,46) * lu(k,322) - lu(k,444) = lu(k,444) - lu(k,45) * lu(k,436) - lu(k,449) = lu(k,449) - lu(k,46) * lu(k,436) - lu(k,581) = lu(k,581) - lu(k,45) * lu(k,573) - lu(k,586) = lu(k,586) - lu(k,46) * lu(k,573) + lu(k,615) = lu(k,615) - lu(k,45) * lu(k,607) + lu(k,620) = lu(k,620) - lu(k,46) * lu(k,607) + lu(k,700) = lu(k,700) - lu(k,45) * lu(k,692) + lu(k,705) = lu(k,705) - lu(k,46) * lu(k,692) 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) @@ -114,9 +114,9 @@ subroutine lu_fac01( avec_len, lu ) lu(k,254) = lu(k,254) - lu(k,49) * lu(k,253) lu(k,257) = lu(k,257) - lu(k,50) * lu(k,253) lu(k,259) = - lu(k,51) * lu(k,253) - lu(k,644) = lu(k,644) - lu(k,49) * lu(k,632) - lu(k,656) = lu(k,656) - lu(k,50) * lu(k,632) - lu(k,666) = lu(k,666) - lu(k,51) * lu(k,632) + lu(k,647) = lu(k,647) - lu(k,49) * lu(k,635) + lu(k,659) = lu(k,659) - lu(k,50) * lu(k,635) + lu(k,669) = lu(k,669) - lu(k,51) * lu(k,635) lu(k,744) = - lu(k,49) * lu(k,742) lu(k,754) = lu(k,754) - lu(k,50) * lu(k,742) lu(k,764) = lu(k,764) - lu(k,51) * lu(k,742) @@ -144,14 +144,14 @@ subroutine lu_fac02( avec_len, lu ) lu(k,57) = lu(k,57) * lu(k,52) lu(k,364) = lu(k,364) - lu(k,53) * lu(k,360) lu(k,369) = lu(k,369) - lu(k,54) * lu(k,360) - lu(k,373) = lu(k,373) - lu(k,55) * lu(k,360) - lu(k,381) = lu(k,381) - lu(k,56) * lu(k,360) - lu(k,382) = lu(k,382) - lu(k,57) * lu(k,360) - lu(k,696) = lu(k,696) - lu(k,53) * lu(k,689) - lu(k,702) = lu(k,702) - lu(k,54) * lu(k,689) - lu(k,706) = lu(k,706) - lu(k,55) * lu(k,689) - lu(k,714) = lu(k,714) - lu(k,56) * lu(k,689) - lu(k,715) = lu(k,715) - lu(k,57) * lu(k,689) + lu(k,372) = lu(k,372) - lu(k,55) * lu(k,360) + lu(k,373) = lu(k,373) - lu(k,56) * lu(k,360) + lu(k,377) = lu(k,377) - lu(k,57) * lu(k,360) + lu(k,441) = lu(k,441) - lu(k,53) * lu(k,434) + lu(k,447) = lu(k,447) - lu(k,54) * lu(k,434) + lu(k,450) = lu(k,450) - lu(k,55) * lu(k,434) + lu(k,451) = lu(k,451) - lu(k,56) * lu(k,434) + lu(k,455) = lu(k,455) - lu(k,57) * lu(k,434) lu(k,58) = 1._r8 / lu(k,58) lu(k,59) = lu(k,59) * lu(k,58) lu(k,60) = lu(k,60) * lu(k,58) @@ -163,11 +163,11 @@ subroutine lu_fac02( avec_len, lu ) lu(k,369) = lu(k,369) - lu(k,61) * lu(k,361) lu(k,370) = lu(k,370) - lu(k,62) * lu(k,361) lu(k,379) = lu(k,379) - lu(k,63) * lu(k,361) - lu(k,644) = lu(k,644) - lu(k,59) * lu(k,633) - lu(k,646) = lu(k,646) - lu(k,60) * lu(k,633) - lu(k,652) = lu(k,652) - lu(k,61) * lu(k,633) - lu(k,653) = lu(k,653) - lu(k,62) * lu(k,633) - lu(k,662) = lu(k,662) - lu(k,63) * lu(k,633) + lu(k,647) = lu(k,647) - lu(k,59) * lu(k,636) + lu(k,649) = lu(k,649) - lu(k,60) * lu(k,636) + lu(k,655) = lu(k,655) - lu(k,61) * lu(k,636) + lu(k,656) = lu(k,656) - lu(k,62) * lu(k,636) + lu(k,665) = lu(k,665) - lu(k,63) * lu(k,636) lu(k,64) = 1._r8 / lu(k,64) lu(k,65) = lu(k,65) * lu(k,64) lu(k,66) = lu(k,66) * lu(k,64) @@ -175,16 +175,16 @@ subroutine lu_fac02( avec_len, lu ) lu(k,68) = lu(k,68) * lu(k,64) lu(k,284) = lu(k,284) - lu(k,65) * lu(k,282) lu(k,285) = lu(k,285) - lu(k,66) * lu(k,282) - lu(k,290) = lu(k,290) - lu(k,67) * lu(k,282) - lu(k,291) = lu(k,291) - lu(k,68) * lu(k,282) - lu(k,439) = lu(k,439) - lu(k,65) * lu(k,437) - lu(k,442) = lu(k,442) - lu(k,66) * lu(k,437) - lu(k,450) = lu(k,450) - lu(k,67) * lu(k,437) - lu(k,451) = lu(k,451) - lu(k,68) * lu(k,437) - lu(k,577) = lu(k,577) - lu(k,65) * lu(k,574) - lu(k,579) = lu(k,579) - lu(k,66) * lu(k,574) - lu(k,587) = lu(k,587) - lu(k,67) * lu(k,574) - lu(k,588) = lu(k,588) - lu(k,68) * lu(k,574) + lu(k,291) = lu(k,291) - lu(k,67) * lu(k,282) + lu(k,294) = lu(k,294) - lu(k,68) * lu(k,282) + lu(k,610) = lu(k,610) - lu(k,65) * lu(k,608) + lu(k,613) = lu(k,613) - lu(k,66) * lu(k,608) + lu(k,622) = lu(k,622) - lu(k,67) * lu(k,608) + lu(k,627) = lu(k,627) - lu(k,68) * lu(k,608) + lu(k,696) = lu(k,696) - lu(k,65) * lu(k,693) + lu(k,698) = lu(k,698) - lu(k,66) * lu(k,693) + lu(k,707) = lu(k,707) - lu(k,67) * lu(k,693) + lu(k,712) = lu(k,712) - lu(k,68) * lu(k,693) lu(k,69) = 1._r8 / lu(k,69) lu(k,70) = lu(k,70) * lu(k,69) lu(k,71) = lu(k,71) * lu(k,69) @@ -193,20 +193,20 @@ subroutine lu_fac02( avec_len, lu ) lu(k,74) = lu(k,74) * lu(k,69) lu(k,75) = lu(k,75) * lu(k,69) lu(k,76) = lu(k,76) * lu(k,69) - lu(k,467) = lu(k,467) - lu(k,70) * lu(k,464) + lu(k,468) = lu(k,468) - lu(k,70) * lu(k,464) lu(k,471) = - lu(k,71) * lu(k,464) lu(k,482) = - lu(k,72) * lu(k,464) lu(k,485) = lu(k,485) - lu(k,73) * lu(k,464) lu(k,486) = lu(k,486) - lu(k,74) * lu(k,464) lu(k,494) = lu(k,494) - lu(k,75) * lu(k,464) lu(k,500) = lu(k,500) - lu(k,76) * lu(k,464) - lu(k,637) = lu(k,637) - lu(k,70) * lu(k,634) - lu(k,639) = lu(k,639) - lu(k,71) * lu(k,634) - lu(k,644) = lu(k,644) - lu(k,72) * lu(k,634) - lu(k,647) = lu(k,647) - lu(k,73) * lu(k,634) - lu(k,648) = lu(k,648) - lu(k,74) * lu(k,634) - lu(k,656) = lu(k,656) - lu(k,75) * lu(k,634) - lu(k,662) = lu(k,662) - lu(k,76) * lu(k,634) + lu(k,640) = lu(k,640) - lu(k,70) * lu(k,637) + lu(k,642) = lu(k,642) - lu(k,71) * lu(k,637) + lu(k,647) = lu(k,647) - lu(k,72) * lu(k,637) + lu(k,650) = lu(k,650) - lu(k,73) * lu(k,637) + lu(k,651) = lu(k,651) - lu(k,74) * lu(k,637) + lu(k,659) = lu(k,659) - lu(k,75) * lu(k,637) + lu(k,665) = lu(k,665) - lu(k,76) * lu(k,637) 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) @@ -215,19 +215,19 @@ subroutine lu_fac02( avec_len, lu ) lu(k,82) = lu(k,82) * lu(k,77) lu(k,346) = - lu(k,78) * lu(k,345) lu(k,347) = lu(k,347) - lu(k,79) * lu(k,345) - lu(k,352) = lu(k,352) - lu(k,80) * lu(k,345) - lu(k,355) = - lu(k,81) * lu(k,345) + lu(k,356) = - lu(k,80) * lu(k,345) + lu(k,358) = lu(k,358) - lu(k,81) * lu(k,345) lu(k,359) = - lu(k,82) * lu(k,345) lu(k,390) = lu(k,390) - lu(k,78) * lu(k,384) lu(k,393) = lu(k,393) - lu(k,79) * lu(k,384) - lu(k,399) = - lu(k,80) * lu(k,384) - lu(k,404) = lu(k,404) - lu(k,81) * lu(k,384) + lu(k,404) = lu(k,404) - lu(k,80) * lu(k,384) + lu(k,407) = - lu(k,81) * lu(k,384) lu(k,408) = lu(k,408) - lu(k,82) * lu(k,384) - lu(k,648) = lu(k,648) - lu(k,78) * lu(k,635) - lu(k,651) = lu(k,651) - lu(k,79) * lu(k,635) - lu(k,657) = lu(k,657) - lu(k,80) * lu(k,635) - lu(k,662) = lu(k,662) - lu(k,81) * lu(k,635) - lu(k,666) = lu(k,666) - lu(k,82) * lu(k,635) + lu(k,651) = lu(k,651) - lu(k,78) * lu(k,638) + lu(k,654) = lu(k,654) - lu(k,79) * lu(k,638) + lu(k,665) = lu(k,665) - lu(k,80) * lu(k,638) + lu(k,668) = lu(k,668) - lu(k,81) * lu(k,638) + lu(k,669) = lu(k,669) - lu(k,82) * lu(k,638) lu(k,83) = 1._r8 / lu(k,83) lu(k,84) = lu(k,84) * lu(k,83) lu(k,85) = lu(k,85) * lu(k,83) @@ -237,22 +237,22 @@ subroutine lu_fac02( avec_len, lu ) lu(k,89) = lu(k,89) * lu(k,83) lu(k,394) = lu(k,394) - lu(k,84) * lu(k,385) lu(k,395) = lu(k,395) - lu(k,85) * lu(k,385) - lu(k,403) = lu(k,403) - lu(k,86) * lu(k,385) - lu(k,404) = lu(k,404) - lu(k,87) * lu(k,385) - lu(k,406) = lu(k,406) - lu(k,88) * lu(k,385) + lu(k,397) = lu(k,397) - lu(k,86) * lu(k,385) + lu(k,399) = lu(k,399) - lu(k,87) * lu(k,385) + lu(k,404) = lu(k,404) - lu(k,88) * lu(k,385) lu(k,408) = lu(k,408) - lu(k,89) * lu(k,385) - lu(k,652) = lu(k,652) - lu(k,84) * lu(k,636) - lu(k,653) = lu(k,653) - lu(k,85) * lu(k,636) - lu(k,661) = lu(k,661) - lu(k,86) * lu(k,636) - lu(k,662) = lu(k,662) - lu(k,87) * lu(k,636) - lu(k,664) = lu(k,664) - lu(k,88) * lu(k,636) - lu(k,666) = lu(k,666) - lu(k,89) * lu(k,636) - lu(k,702) = lu(k,702) - lu(k,84) * lu(k,690) - lu(k,703) = lu(k,703) - lu(k,85) * lu(k,690) - lu(k,711) = lu(k,711) - lu(k,86) * lu(k,690) - lu(k,712) = lu(k,712) - lu(k,87) * lu(k,690) - lu(k,714) = lu(k,714) - lu(k,88) * lu(k,690) - lu(k,716) = - lu(k,89) * lu(k,690) + lu(k,447) = lu(k,447) - lu(k,84) * lu(k,435) + lu(k,448) = lu(k,448) - lu(k,85) * lu(k,435) + lu(k,450) = lu(k,450) - lu(k,86) * lu(k,435) + lu(k,452) = lu(k,452) - lu(k,87) * lu(k,435) + lu(k,457) = lu(k,457) - lu(k,88) * lu(k,435) + lu(k,461) = - lu(k,89) * lu(k,435) + lu(k,655) = lu(k,655) - lu(k,84) * lu(k,639) + lu(k,656) = lu(k,656) - lu(k,85) * lu(k,639) + lu(k,658) = lu(k,658) - lu(k,86) * lu(k,639) + lu(k,660) = lu(k,660) - lu(k,87) * lu(k,639) + lu(k,665) = lu(k,665) - lu(k,88) * lu(k,639) + lu(k,669) = lu(k,669) - lu(k,89) * lu(k,639) 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) @@ -265,19 +265,19 @@ subroutine lu_fac02( avec_len, lu ) lu(k,212) = - lu(k,93) * lu(k,208) lu(k,213) = lu(k,213) - lu(k,94) * lu(k,208) lu(k,220) = lu(k,220) - lu(k,95) * lu(k,208) - lu(k,224) = - lu(k,96) * lu(k,208) + lu(k,223) = - lu(k,96) * lu(k,208) lu(k,466) = lu(k,466) - lu(k,91) * lu(k,465) - lu(k,470) = lu(k,470) - lu(k,92) * lu(k,465) - lu(k,475) = lu(k,475) - lu(k,93) * lu(k,465) + lu(k,469) = lu(k,469) - lu(k,92) * lu(k,465) + lu(k,476) = lu(k,476) - lu(k,93) * lu(k,465) lu(k,477) = lu(k,477) - lu(k,94) * lu(k,465) lu(k,494) = lu(k,494) - lu(k,95) * lu(k,465) - lu(k,503) = lu(k,503) - lu(k,96) * lu(k,465) - lu(k,602) = lu(k,602) - lu(k,91) * lu(k,601) - lu(k,603) = lu(k,603) - lu(k,92) * lu(k,601) - lu(k,606) = lu(k,606) - lu(k,93) * lu(k,601) - lu(k,607) = lu(k,607) - lu(k,94) * lu(k,601) - lu(k,619) = lu(k,619) - lu(k,95) * lu(k,601) - lu(k,628) = lu(k,628) - lu(k,96) * lu(k,601) + lu(k,498) = lu(k,498) - lu(k,96) * lu(k,465) + lu(k,508) = lu(k,508) - lu(k,91) * lu(k,507) + lu(k,509) = lu(k,509) - lu(k,92) * lu(k,507) + lu(k,512) = lu(k,512) - lu(k,93) * lu(k,507) + lu(k,513) = lu(k,513) - lu(k,94) * lu(k,507) + lu(k,525) = lu(k,525) - lu(k,95) * lu(k,507) + lu(k,529) = lu(k,529) - lu(k,96) * lu(k,507) end do end subroutine lu_fac02 subroutine lu_fac03( avec_len, lu ) @@ -304,71 +304,71 @@ subroutine lu_fac03( avec_len, lu ) lu(k,213) = lu(k,213) - lu(k,99) * lu(k,209) lu(k,214) = lu(k,214) - lu(k,100) * lu(k,209) lu(k,220) = lu(k,220) - lu(k,101) * lu(k,209) - lu(k,222) = - lu(k,102) * lu(k,209) - lu(k,470) = lu(k,470) - lu(k,98) * lu(k,466) + lu(k,221) = - lu(k,102) * lu(k,209) + lu(k,469) = lu(k,469) - lu(k,98) * lu(k,466) lu(k,477) = lu(k,477) - lu(k,99) * lu(k,466) lu(k,478) = - lu(k,100) * lu(k,466) lu(k,494) = lu(k,494) - lu(k,101) * lu(k,466) - lu(k,499) = lu(k,499) - lu(k,102) * lu(k,466) - lu(k,603) = lu(k,603) - lu(k,98) * lu(k,602) - lu(k,607) = lu(k,607) - lu(k,99) * lu(k,602) - lu(k,608) = lu(k,608) - lu(k,100) * lu(k,602) - lu(k,619) = lu(k,619) - lu(k,101) * lu(k,602) - lu(k,624) = lu(k,624) - lu(k,102) * lu(k,602) + lu(k,495) = lu(k,495) - lu(k,102) * lu(k,466) + lu(k,509) = lu(k,509) - lu(k,98) * lu(k,508) + lu(k,513) = lu(k,513) - lu(k,99) * lu(k,508) + lu(k,514) = lu(k,514) - lu(k,100) * lu(k,508) + lu(k,525) = lu(k,525) - lu(k,101) * lu(k,508) + lu(k,526) = lu(k,526) - lu(k,102) * lu(k,508) 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,194) = - lu(k,104) * lu(k,186) - lu(k,195) = - lu(k,105) * lu(k,186) - lu(k,198) = - lu(k,106) * lu(k,186) - lu(k,309) = - lu(k,104) * lu(k,307) - lu(k,311) = lu(k,311) - lu(k,105) * lu(k,307) - lu(k,318) = - lu(k,106) * lu(k,307) - lu(k,366) = - lu(k,104) * lu(k,362) - lu(k,370) = lu(k,370) - lu(k,105) * lu(k,362) - lu(k,379) = lu(k,379) - lu(k,106) * lu(k,362) - lu(k,415) = lu(k,415) - lu(k,104) * lu(k,410) - lu(k,420) = lu(k,420) - lu(k,105) * lu(k,410) - lu(k,429) = lu(k,429) - lu(k,106) * lu(k,410) - lu(k,486) = lu(k,486) - lu(k,104) * lu(k,467) - lu(k,491) = lu(k,491) - lu(k,105) * lu(k,467) - lu(k,500) = lu(k,500) - lu(k,106) * lu(k,467) - lu(k,508) = lu(k,508) - lu(k,104) * lu(k,505) - lu(k,513) = lu(k,513) - lu(k,105) * lu(k,505) - lu(k,522) = lu(k,522) - lu(k,106) * lu(k,505) - lu(k,648) = lu(k,648) - lu(k,104) * lu(k,637) - lu(k,653) = lu(k,653) - lu(k,105) * lu(k,637) - lu(k,662) = lu(k,662) - lu(k,106) * lu(k,637) - 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,111) = lu(k,111) * lu(k,107) - lu(k,112) = lu(k,112) * lu(k,107) - lu(k,113) = lu(k,113) * lu(k,107) - lu(k,114) = lu(k,114) * lu(k,107) - lu(k,473) = lu(k,473) - lu(k,108) * lu(k,468) - lu(k,484) = - lu(k,109) * lu(k,468) - lu(k,487) = lu(k,487) - lu(k,110) * lu(k,468) - lu(k,490) = lu(k,490) - lu(k,111) * lu(k,468) - lu(k,494) = lu(k,494) - lu(k,112) * lu(k,468) - lu(k,498) = lu(k,498) - lu(k,113) * lu(k,468) - lu(k,502) = lu(k,502) - lu(k,114) * lu(k,468) - lu(k,576) = lu(k,576) - lu(k,108) * lu(k,575) - lu(k,578) = - lu(k,109) * lu(k,575) - lu(k,581) = lu(k,581) - lu(k,110) * lu(k,575) - lu(k,584) = - lu(k,111) * lu(k,575) - lu(k,588) = lu(k,588) - lu(k,112) * lu(k,575) - lu(k,592) = lu(k,592) - lu(k,113) * lu(k,575) - lu(k,596) = lu(k,596) - lu(k,114) * lu(k,575) - lu(k,692) = - lu(k,108) * lu(k,691) - lu(k,696) = lu(k,696) - lu(k,109) * lu(k,691) - lu(k,699) = - lu(k,110) * lu(k,691) - lu(k,702) = lu(k,702) - lu(k,111) * lu(k,691) - lu(k,706) = lu(k,706) - lu(k,112) * lu(k,691) - lu(k,710) = lu(k,710) - lu(k,113) * lu(k,691) - lu(k,714) = lu(k,714) - lu(k,114) * lu(k,691) + lu(k,107) = lu(k,107) * lu(k,103) + lu(k,108) = lu(k,108) * lu(k,103) + lu(k,109) = lu(k,109) * lu(k,103) + lu(k,110) = lu(k,110) * lu(k,103) + lu(k,437) = - lu(k,104) * lu(k,436) + lu(k,441) = lu(k,441) - lu(k,105) * lu(k,436) + lu(k,444) = - lu(k,106) * lu(k,436) + lu(k,447) = lu(k,447) - lu(k,107) * lu(k,436) + lu(k,450) = lu(k,450) - lu(k,108) * lu(k,436) + lu(k,451) = lu(k,451) - lu(k,109) * lu(k,436) + lu(k,459) = lu(k,459) - lu(k,110) * lu(k,436) + lu(k,473) = lu(k,473) - lu(k,104) * lu(k,467) + lu(k,484) = - lu(k,105) * lu(k,467) + lu(k,487) = lu(k,487) - lu(k,106) * lu(k,467) + lu(k,490) = lu(k,490) - lu(k,107) * lu(k,467) + lu(k,493) = lu(k,493) - lu(k,108) * lu(k,467) + lu(k,494) = lu(k,494) - lu(k,109) * lu(k,467) + lu(k,502) = lu(k,502) - lu(k,110) * lu(k,467) + lu(k,695) = lu(k,695) - lu(k,104) * lu(k,694) + lu(k,697) = - lu(k,105) * lu(k,694) + lu(k,700) = lu(k,700) - lu(k,106) * lu(k,694) + lu(k,703) = - lu(k,107) * lu(k,694) + lu(k,706) = lu(k,706) - lu(k,108) * lu(k,694) + lu(k,707) = lu(k,707) - lu(k,109) * lu(k,694) + lu(k,715) = lu(k,715) - lu(k,110) * lu(k,694) + 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,194) = - lu(k,112) * lu(k,186) + lu(k,195) = - lu(k,113) * lu(k,186) + lu(k,198) = - lu(k,114) * lu(k,186) + lu(k,309) = - lu(k,112) * lu(k,307) + lu(k,311) = lu(k,311) - lu(k,113) * lu(k,307) + lu(k,316) = - lu(k,114) * lu(k,307) + lu(k,366) = - lu(k,112) * lu(k,362) + lu(k,370) = lu(k,370) - lu(k,113) * lu(k,362) + lu(k,379) = lu(k,379) - lu(k,114) * lu(k,362) + lu(k,415) = lu(k,415) - lu(k,112) * lu(k,410) + lu(k,420) = lu(k,420) - lu(k,113) * lu(k,410) + lu(k,429) = lu(k,429) - lu(k,114) * lu(k,410) + lu(k,486) = lu(k,486) - lu(k,112) * lu(k,468) + lu(k,491) = lu(k,491) - lu(k,113) * lu(k,468) + lu(k,500) = lu(k,500) - lu(k,114) * lu(k,468) + lu(k,651) = lu(k,651) - lu(k,112) * lu(k,640) + lu(k,656) = lu(k,656) - lu(k,113) * lu(k,640) + lu(k,665) = lu(k,665) - lu(k,114) * lu(k,640) + lu(k,721) = lu(k,721) - lu(k,112) * lu(k,718) + lu(k,726) = lu(k,726) - lu(k,113) * lu(k,718) + lu(k,735) = lu(k,735) - lu(k,114) * lu(k,718) 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) @@ -376,63 +376,63 @@ subroutine lu_fac03( avec_len, lu ) lu(k,119) = lu(k,119) * lu(k,115) lu(k,120) = lu(k,120) * lu(k,115) lu(k,121) = lu(k,121) * lu(k,115) - lu(k,392) = lu(k,392) - lu(k,116) * lu(k,386) - lu(k,395) = lu(k,395) - lu(k,117) * lu(k,386) - lu(k,396) = lu(k,396) - lu(k,118) * lu(k,386) - lu(k,398) = lu(k,398) - lu(k,119) * lu(k,386) - lu(k,404) = lu(k,404) - lu(k,120) * lu(k,386) - lu(k,408) = lu(k,408) - lu(k,121) * lu(k,386) - lu(k,417) = lu(k,417) - lu(k,116) * lu(k,411) - lu(k,420) = lu(k,420) - lu(k,117) * lu(k,411) - lu(k,421) = lu(k,421) - lu(k,118) * lu(k,411) - lu(k,423) = - lu(k,119) * lu(k,411) - lu(k,429) = lu(k,429) - lu(k,120) * lu(k,411) - lu(k,433) = - lu(k,121) * lu(k,411) - lu(k,488) = lu(k,488) - lu(k,116) * lu(k,469) - lu(k,491) = lu(k,491) - lu(k,117) * lu(k,469) - lu(k,492) = lu(k,492) - lu(k,118) * lu(k,469) - lu(k,494) = lu(k,494) - lu(k,119) * lu(k,469) - lu(k,500) = lu(k,500) - lu(k,120) * lu(k,469) - lu(k,504) = - lu(k,121) * lu(k,469) - lu(k,650) = lu(k,650) - lu(k,116) * lu(k,638) - lu(k,653) = lu(k,653) - lu(k,117) * lu(k,638) - lu(k,654) = lu(k,654) - lu(k,118) * lu(k,638) - lu(k,656) = lu(k,656) - lu(k,119) * lu(k,638) - lu(k,662) = lu(k,662) - lu(k,120) * lu(k,638) - lu(k,666) = lu(k,666) - lu(k,121) * lu(k,638) - 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,125) = lu(k,125) * lu(k,122) - lu(k,126) = lu(k,126) * lu(k,122) - lu(k,127) = lu(k,127) * lu(k,122) - lu(k,128) = lu(k,128) * lu(k,122) - lu(k,129) = lu(k,129) * lu(k,122) - lu(k,130) = lu(k,130) * lu(k,122) - lu(k,211) = lu(k,211) - lu(k,123) * lu(k,210) - lu(k,213) = lu(k,213) - lu(k,124) * lu(k,210) - lu(k,214) = lu(k,214) - lu(k,125) * lu(k,210) - lu(k,215) = lu(k,215) - lu(k,126) * lu(k,210) - lu(k,216) = lu(k,216) - lu(k,127) * lu(k,210) - lu(k,217) = lu(k,217) - lu(k,128) * lu(k,210) - lu(k,220) = lu(k,220) - lu(k,129) * lu(k,210) - lu(k,222) = lu(k,222) - lu(k,130) * lu(k,210) - lu(k,472) = lu(k,472) - lu(k,123) * lu(k,470) - lu(k,477) = lu(k,477) - lu(k,124) * lu(k,470) - lu(k,478) = lu(k,478) - lu(k,125) * lu(k,470) - lu(k,479) = lu(k,479) - lu(k,126) * lu(k,470) - lu(k,480) = lu(k,480) - lu(k,127) * lu(k,470) - lu(k,481) = lu(k,481) - lu(k,128) * lu(k,470) - lu(k,494) = lu(k,494) - lu(k,129) * lu(k,470) - lu(k,499) = lu(k,499) - lu(k,130) * lu(k,470) - lu(k,605) = lu(k,605) - lu(k,123) * lu(k,603) - lu(k,607) = lu(k,607) - lu(k,124) * lu(k,603) - lu(k,608) = lu(k,608) - lu(k,125) * lu(k,603) - lu(k,609) = lu(k,609) - lu(k,126) * lu(k,603) - lu(k,610) = lu(k,610) - lu(k,127) * lu(k,603) - lu(k,611) = lu(k,611) - lu(k,128) * lu(k,603) - lu(k,619) = lu(k,619) - lu(k,129) * lu(k,603) - lu(k,624) = lu(k,624) - lu(k,130) * lu(k,603) + lu(k,122) = lu(k,122) * lu(k,115) + lu(k,123) = lu(k,123) * lu(k,115) + lu(k,211) = lu(k,211) - lu(k,116) * lu(k,210) + lu(k,213) = lu(k,213) - lu(k,117) * lu(k,210) + lu(k,214) = lu(k,214) - lu(k,118) * lu(k,210) + lu(k,215) = lu(k,215) - lu(k,119) * lu(k,210) + lu(k,216) = lu(k,216) - lu(k,120) * lu(k,210) + lu(k,217) = lu(k,217) - lu(k,121) * lu(k,210) + lu(k,220) = lu(k,220) - lu(k,122) * lu(k,210) + lu(k,221) = lu(k,221) - lu(k,123) * lu(k,210) + lu(k,472) = lu(k,472) - lu(k,116) * lu(k,469) + lu(k,477) = lu(k,477) - lu(k,117) * lu(k,469) + lu(k,478) = lu(k,478) - lu(k,118) * lu(k,469) + lu(k,479) = lu(k,479) - lu(k,119) * lu(k,469) + lu(k,480) = lu(k,480) - lu(k,120) * lu(k,469) + lu(k,481) = lu(k,481) - lu(k,121) * lu(k,469) + lu(k,494) = lu(k,494) - lu(k,122) * lu(k,469) + lu(k,495) = lu(k,495) - lu(k,123) * lu(k,469) + lu(k,511) = lu(k,511) - lu(k,116) * lu(k,509) + lu(k,513) = lu(k,513) - lu(k,117) * lu(k,509) + lu(k,514) = lu(k,514) - lu(k,118) * lu(k,509) + lu(k,515) = lu(k,515) - lu(k,119) * lu(k,509) + lu(k,516) = lu(k,516) - lu(k,120) * lu(k,509) + lu(k,517) = lu(k,517) - lu(k,121) * lu(k,509) + lu(k,525) = lu(k,525) - lu(k,122) * lu(k,509) + lu(k,526) = lu(k,526) - lu(k,123) * lu(k,509) + lu(k,124) = 1._r8 / lu(k,124) + lu(k,125) = lu(k,125) * lu(k,124) + lu(k,126) = lu(k,126) * lu(k,124) + lu(k,127) = lu(k,127) * lu(k,124) + lu(k,128) = lu(k,128) * lu(k,124) + lu(k,129) = lu(k,129) * lu(k,124) + lu(k,130) = lu(k,130) * lu(k,124) + lu(k,392) = lu(k,392) - lu(k,125) * lu(k,386) + lu(k,395) = lu(k,395) - lu(k,126) * lu(k,386) + lu(k,396) = lu(k,396) - lu(k,127) * lu(k,386) + lu(k,398) = lu(k,398) - lu(k,128) * lu(k,386) + lu(k,404) = lu(k,404) - lu(k,129) * lu(k,386) + lu(k,408) = lu(k,408) - lu(k,130) * lu(k,386) + lu(k,417) = lu(k,417) - lu(k,125) * lu(k,411) + lu(k,420) = lu(k,420) - lu(k,126) * lu(k,411) + lu(k,421) = lu(k,421) - lu(k,127) * lu(k,411) + lu(k,423) = - lu(k,128) * lu(k,411) + lu(k,429) = lu(k,429) - lu(k,129) * lu(k,411) + lu(k,433) = - lu(k,130) * lu(k,411) + lu(k,488) = lu(k,488) - lu(k,125) * lu(k,470) + lu(k,491) = lu(k,491) - lu(k,126) * lu(k,470) + lu(k,492) = lu(k,492) - lu(k,127) * lu(k,470) + lu(k,494) = lu(k,494) - lu(k,128) * lu(k,470) + lu(k,500) = lu(k,500) - lu(k,129) * lu(k,470) + lu(k,504) = - lu(k,130) * lu(k,470) + lu(k,653) = lu(k,653) - lu(k,125) * lu(k,641) + lu(k,656) = lu(k,656) - lu(k,126) * lu(k,641) + lu(k,657) = lu(k,657) - lu(k,127) * lu(k,641) + lu(k,659) = lu(k,659) - lu(k,128) * lu(k,641) + lu(k,665) = lu(k,665) - lu(k,129) * lu(k,641) + lu(k,669) = lu(k,669) - lu(k,130) * lu(k,641) 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) @@ -443,33 +443,33 @@ subroutine lu_fac03( avec_len, lu ) lu(k,285) = lu(k,285) - lu(k,132) * lu(k,283) lu(k,286) = lu(k,286) - lu(k,133) * lu(k,283) lu(k,291) = lu(k,291) - lu(k,134) * lu(k,283) - lu(k,293) = lu(k,293) - lu(k,135) * lu(k,283) - lu(k,294) = lu(k,294) - lu(k,136) * lu(k,283) - lu(k,295) = lu(k,295) - lu(k,137) * lu(k,283) + lu(k,292) = lu(k,292) - lu(k,135) * lu(k,283) + lu(k,295) = lu(k,295) - lu(k,136) * lu(k,283) + lu(k,296) = lu(k,296) - lu(k,137) * lu(k,283) lu(k,485) = lu(k,485) - lu(k,132) * lu(k,471) lu(k,486) = lu(k,486) - lu(k,133) * lu(k,471) lu(k,494) = lu(k,494) - lu(k,134) * lu(k,471) - lu(k,499) = lu(k,499) - lu(k,135) * lu(k,471) + lu(k,495) = lu(k,495) - lu(k,135) * lu(k,471) lu(k,500) = lu(k,500) - lu(k,136) * lu(k,471) lu(k,501) = lu(k,501) - lu(k,137) * lu(k,471) - lu(k,613) = lu(k,613) - lu(k,132) * lu(k,604) - lu(k,614) = lu(k,614) - lu(k,133) * lu(k,604) - lu(k,619) = lu(k,619) - lu(k,134) * lu(k,604) - lu(k,624) = lu(k,624) - lu(k,135) * lu(k,604) - lu(k,625) = - lu(k,136) * lu(k,604) - lu(k,626) = lu(k,626) - lu(k,137) * lu(k,604) - lu(k,647) = lu(k,647) - lu(k,132) * lu(k,639) - lu(k,648) = lu(k,648) - lu(k,133) * lu(k,639) - lu(k,656) = lu(k,656) - lu(k,134) * lu(k,639) - lu(k,661) = lu(k,661) - lu(k,135) * lu(k,639) - lu(k,662) = lu(k,662) - lu(k,136) * lu(k,639) - lu(k,663) = lu(k,663) - lu(k,137) * lu(k,639) - lu(k,671) = lu(k,671) - lu(k,132) * lu(k,669) - lu(k,672) = lu(k,672) - lu(k,133) * lu(k,669) - lu(k,678) = lu(k,678) - lu(k,134) * lu(k,669) - lu(k,683) = lu(k,683) - lu(k,135) * lu(k,669) - lu(k,684) = lu(k,684) - lu(k,136) * lu(k,669) - lu(k,685) = lu(k,685) - lu(k,137) * lu(k,669) + lu(k,519) = lu(k,519) - lu(k,132) * lu(k,510) + lu(k,520) = lu(k,520) - lu(k,133) * lu(k,510) + lu(k,525) = lu(k,525) - lu(k,134) * lu(k,510) + lu(k,526) = lu(k,526) - lu(k,135) * lu(k,510) + lu(k,531) = - lu(k,136) * lu(k,510) + lu(k,532) = lu(k,532) - lu(k,137) * lu(k,510) + lu(k,650) = lu(k,650) - lu(k,132) * lu(k,642) + lu(k,651) = lu(k,651) - lu(k,133) * lu(k,642) + lu(k,659) = lu(k,659) - lu(k,134) * lu(k,642) + lu(k,660) = lu(k,660) - lu(k,135) * lu(k,642) + lu(k,665) = lu(k,665) - lu(k,136) * lu(k,642) + lu(k,666) = lu(k,666) - lu(k,137) * lu(k,642) + lu(k,674) = lu(k,674) - lu(k,132) * lu(k,672) + lu(k,675) = lu(k,675) - lu(k,133) * lu(k,672) + lu(k,681) = lu(k,681) - lu(k,134) * lu(k,672) + lu(k,682) = lu(k,682) - lu(k,135) * lu(k,672) + lu(k,687) = lu(k,687) - lu(k,136) * lu(k,672) + lu(k,688) = lu(k,688) - lu(k,137) * lu(k,672) end do end subroutine lu_fac03 subroutine lu_fac04( avec_len, lu ) @@ -491,10 +491,10 @@ subroutine lu_fac04( avec_len, lu ) lu(k,140) = lu(k,140) * lu(k,138) lu(k,141) = lu(k,141) * lu(k,138) lu(k,142) = lu(k,142) * lu(k,138) - lu(k,173) = - lu(k,139) * lu(k,169) - lu(k,174) = - lu(k,140) * lu(k,169) - lu(k,175) = lu(k,175) - lu(k,141) * lu(k,169) - lu(k,176) = lu(k,176) - lu(k,142) * lu(k,169) + lu(k,181) = - lu(k,139) * lu(k,177) + lu(k,182) = - lu(k,140) * lu(k,177) + lu(k,183) = lu(k,183) - lu(k,141) * lu(k,177) + lu(k,184) = lu(k,184) - lu(k,142) * lu(k,177) lu(k,191) = - lu(k,139) * lu(k,187) lu(k,192) = lu(k,192) - lu(k,140) * lu(k,187) lu(k,193) = lu(k,193) - lu(k,141) * lu(k,187) @@ -510,19 +510,19 @@ subroutine lu_fac04( avec_len, lu ) lu(k,242) = lu(k,242) - lu(k,139) * lu(k,238) lu(k,243) = - lu(k,140) * lu(k,238) lu(k,244) = lu(k,244) - lu(k,141) * lu(k,238) - lu(k,247) = lu(k,247) - lu(k,142) * lu(k,238) + lu(k,248) = lu(k,248) - lu(k,142) * lu(k,238) lu(k,479) = lu(k,479) - lu(k,139) * lu(k,472) lu(k,480) = lu(k,480) - lu(k,140) * lu(k,472) lu(k,481) = lu(k,481) - lu(k,141) * lu(k,472) lu(k,494) = lu(k,494) - lu(k,142) * lu(k,472) - lu(k,609) = lu(k,609) - lu(k,139) * lu(k,605) - lu(k,610) = lu(k,610) - lu(k,140) * lu(k,605) - lu(k,611) = lu(k,611) - lu(k,141) * lu(k,605) - lu(k,619) = lu(k,619) - lu(k,142) * lu(k,605) - lu(k,719) = lu(k,719) - lu(k,139) * lu(k,717) - lu(k,720) = - lu(k,140) * lu(k,717) - lu(k,721) = lu(k,721) - lu(k,141) * lu(k,717) - lu(k,729) = lu(k,729) - lu(k,142) * lu(k,717) + lu(k,515) = lu(k,515) - lu(k,139) * lu(k,511) + lu(k,516) = lu(k,516) - lu(k,140) * lu(k,511) + lu(k,517) = lu(k,517) - lu(k,141) * lu(k,511) + lu(k,525) = lu(k,525) - lu(k,142) * lu(k,511) + lu(k,584) = lu(k,584) - lu(k,139) * lu(k,582) + lu(k,585) = - lu(k,140) * lu(k,582) + lu(k,586) = lu(k,586) - lu(k,141) * lu(k,582) + lu(k,594) = lu(k,594) - lu(k,142) * lu(k,582) 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) @@ -535,37 +535,37 @@ subroutine lu_fac04( avec_len, lu ) lu(k,329) = lu(k,329) - lu(k,146) * lu(k,323) lu(k,333) = lu(k,333) - lu(k,147) * lu(k,323) lu(k,335) = lu(k,335) - lu(k,148) * lu(k,323) - lu(k,339) = - lu(k,149) * lu(k,323) - lu(k,341) = lu(k,341) - lu(k,150) * lu(k,323) + lu(k,340) = lu(k,340) - lu(k,149) * lu(k,323) + lu(k,342) = - lu(k,150) * lu(k,323) lu(k,344) = lu(k,344) - lu(k,151) * lu(k,323) lu(k,391) = lu(k,391) - lu(k,145) * lu(k,387) lu(k,392) = lu(k,392) - lu(k,146) * lu(k,387) lu(k,396) = lu(k,396) - lu(k,147) * lu(k,387) lu(k,398) = lu(k,398) - lu(k,148) * lu(k,387) - lu(k,402) = lu(k,402) - lu(k,149) * lu(k,387) - lu(k,404) = lu(k,404) - lu(k,150) * lu(k,387) + lu(k,404) = lu(k,404) - lu(k,149) * lu(k,387) + lu(k,406) = lu(k,406) - lu(k,150) * lu(k,387) lu(k,408) = lu(k,408) - lu(k,151) * lu(k,387) + lu(k,444) = lu(k,444) - lu(k,145) * lu(k,437) + lu(k,445) = - lu(k,146) * lu(k,437) + lu(k,449) = - lu(k,147) * lu(k,437) + lu(k,451) = lu(k,451) - lu(k,148) * lu(k,437) + lu(k,457) = lu(k,457) - lu(k,149) * lu(k,437) + lu(k,459) = lu(k,459) - lu(k,150) * lu(k,437) + lu(k,461) = lu(k,461) - lu(k,151) * lu(k,437) lu(k,487) = lu(k,487) - lu(k,145) * lu(k,473) lu(k,488) = lu(k,488) - lu(k,146) * lu(k,473) lu(k,492) = lu(k,492) - lu(k,147) * lu(k,473) lu(k,494) = lu(k,494) - lu(k,148) * lu(k,473) - lu(k,498) = lu(k,498) - lu(k,149) * lu(k,473) - lu(k,500) = lu(k,500) - lu(k,150) * lu(k,473) + lu(k,500) = lu(k,500) - lu(k,149) * lu(k,473) + lu(k,502) = lu(k,502) - lu(k,150) * lu(k,473) lu(k,504) = lu(k,504) - lu(k,151) * lu(k,473) - lu(k,581) = lu(k,581) - lu(k,145) * lu(k,576) - lu(k,582) = - lu(k,146) * lu(k,576) - lu(k,586) = lu(k,586) - lu(k,147) * lu(k,576) - lu(k,588) = lu(k,588) - lu(k,148) * lu(k,576) - lu(k,592) = lu(k,592) - lu(k,149) * lu(k,576) - lu(k,594) = lu(k,594) - lu(k,150) * lu(k,576) - lu(k,598) = - lu(k,151) * lu(k,576) - lu(k,699) = lu(k,699) - lu(k,145) * lu(k,692) - lu(k,700) = - lu(k,146) * lu(k,692) - lu(k,704) = - lu(k,147) * lu(k,692) - lu(k,706) = lu(k,706) - lu(k,148) * lu(k,692) - lu(k,710) = lu(k,710) - lu(k,149) * lu(k,692) - lu(k,712) = lu(k,712) - lu(k,150) * lu(k,692) - lu(k,716) = lu(k,716) - lu(k,151) * lu(k,692) + lu(k,700) = lu(k,700) - lu(k,145) * lu(k,695) + lu(k,701) = - lu(k,146) * lu(k,695) + lu(k,705) = lu(k,705) - lu(k,147) * lu(k,695) + lu(k,707) = lu(k,707) - lu(k,148) * lu(k,695) + lu(k,713) = lu(k,713) - lu(k,149) * lu(k,695) + lu(k,715) = lu(k,715) - lu(k,150) * lu(k,695) + lu(k,717) = - lu(k,151) * lu(k,695) 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) @@ -578,30 +578,30 @@ subroutine lu_fac04( avec_len, lu ) lu(k,275) = lu(k,275) - lu(k,155) * lu(k,273) lu(k,276) = - lu(k,156) * lu(k,273) lu(k,277) = lu(k,277) - lu(k,157) * lu(k,273) - lu(k,278) = - lu(k,158) * lu(k,273) - lu(k,279) = lu(k,279) - lu(k,159) * lu(k,273) + lu(k,279) = - lu(k,158) * lu(k,273) + lu(k,280) = lu(k,280) - lu(k,159) * lu(k,273) lu(k,281) = lu(k,281) - lu(k,160) * lu(k,273) - lu(k,532) = - lu(k,154) * lu(k,530) - lu(k,533) = lu(k,533) - lu(k,155) * lu(k,530) - lu(k,536) = lu(k,536) - lu(k,156) * lu(k,530) - lu(k,537) = - lu(k,157) * lu(k,530) - lu(k,544) = lu(k,544) - lu(k,158) * lu(k,530) - lu(k,547) = lu(k,547) - lu(k,159) * lu(k,530) - lu(k,551) = lu(k,551) - lu(k,160) * lu(k,530) - lu(k,554) = - lu(k,154) * lu(k,553) - lu(k,555) = lu(k,555) - lu(k,155) * lu(k,553) - lu(k,557) = - lu(k,156) * lu(k,553) - lu(k,558) = - lu(k,157) * lu(k,553) - lu(k,565) = lu(k,565) - lu(k,158) * lu(k,553) - lu(k,568) = lu(k,568) - lu(k,159) * lu(k,553) - lu(k,572) = lu(k,572) - lu(k,160) * lu(k,553) - lu(k,646) = lu(k,646) - lu(k,154) * lu(k,640) - lu(k,648) = lu(k,648) - lu(k,155) * lu(k,640) - lu(k,651) = lu(k,651) - lu(k,156) * lu(k,640) - lu(k,652) = lu(k,652) - lu(k,157) * lu(k,640) - lu(k,659) = lu(k,659) - lu(k,158) * lu(k,640) - lu(k,662) = lu(k,662) - lu(k,159) * lu(k,640) - lu(k,666) = lu(k,666) - lu(k,160) * lu(k,640) + lu(k,541) = - lu(k,154) * lu(k,539) + lu(k,542) = lu(k,542) - lu(k,155) * lu(k,539) + lu(k,545) = lu(k,545) - lu(k,156) * lu(k,539) + lu(k,546) = - lu(k,157) * lu(k,539) + lu(k,553) = lu(k,553) - lu(k,158) * lu(k,539) + lu(k,556) = lu(k,556) - lu(k,159) * lu(k,539) + lu(k,560) = lu(k,560) - lu(k,160) * lu(k,539) + lu(k,563) = - lu(k,154) * lu(k,562) + lu(k,564) = lu(k,564) - lu(k,155) * lu(k,562) + lu(k,566) = - lu(k,156) * lu(k,562) + lu(k,567) = - lu(k,157) * lu(k,562) + lu(k,574) = lu(k,574) - lu(k,158) * lu(k,562) + lu(k,577) = lu(k,577) - lu(k,159) * lu(k,562) + lu(k,581) = lu(k,581) - lu(k,160) * lu(k,562) + lu(k,649) = lu(k,649) - lu(k,154) * lu(k,643) + lu(k,651) = lu(k,651) - lu(k,155) * lu(k,643) + lu(k,654) = lu(k,654) - lu(k,156) * lu(k,643) + lu(k,655) = lu(k,655) - lu(k,157) * lu(k,643) + lu(k,662) = lu(k,662) - lu(k,158) * lu(k,643) + lu(k,665) = lu(k,665) - lu(k,159) * lu(k,643) + lu(k,669) = lu(k,669) - lu(k,160) * lu(k,643) lu(k,745) = - lu(k,154) * lu(k,743) lu(k,747) = lu(k,747) - lu(k,155) * lu(k,743) lu(k,749) = - lu(k,156) * lu(k,743) @@ -618,46 +618,46 @@ subroutine lu_fac04( avec_len, lu ) lu(k,168) = lu(k,168) * lu(k,162) lu(k,264) = lu(k,264) - lu(k,163) * lu(k,261) lu(k,266) = lu(k,266) - lu(k,164) * lu(k,261) - lu(k,267) = lu(k,267) - lu(k,165) * lu(k,261) - lu(k,268) = lu(k,268) - lu(k,166) * lu(k,261) - lu(k,269) = lu(k,269) - lu(k,167) * lu(k,261) + lu(k,268) = lu(k,268) - lu(k,165) * lu(k,261) + lu(k,269) = lu(k,269) - lu(k,166) * lu(k,261) + lu(k,270) = lu(k,270) - lu(k,167) * lu(k,261) lu(k,271) = - lu(k,168) * lu(k,261) lu(k,329) = lu(k,329) - lu(k,163) * lu(k,324) lu(k,333) = lu(k,333) - lu(k,164) * lu(k,324) - lu(k,334) = lu(k,334) - lu(k,165) * lu(k,324) - lu(k,335) = lu(k,335) - lu(k,166) * lu(k,324) - lu(k,341) = lu(k,341) - lu(k,167) * lu(k,324) + lu(k,335) = lu(k,335) - lu(k,165) * lu(k,324) + lu(k,339) = lu(k,339) - lu(k,166) * lu(k,324) + lu(k,340) = lu(k,340) - lu(k,167) * lu(k,324) lu(k,344) = lu(k,344) - lu(k,168) * lu(k,324) lu(k,392) = lu(k,392) - lu(k,163) * lu(k,388) lu(k,396) = lu(k,396) - lu(k,164) * lu(k,388) - lu(k,397) = lu(k,397) - lu(k,165) * lu(k,388) - lu(k,398) = lu(k,398) - lu(k,166) * lu(k,388) + lu(k,398) = lu(k,398) - lu(k,165) * lu(k,388) + lu(k,403) = lu(k,403) - lu(k,166) * lu(k,388) lu(k,404) = lu(k,404) - lu(k,167) * lu(k,388) lu(k,408) = lu(k,408) - lu(k,168) * lu(k,388) lu(k,417) = lu(k,417) - lu(k,163) * lu(k,412) lu(k,421) = lu(k,421) - lu(k,164) * lu(k,412) - lu(k,422) = lu(k,422) - lu(k,165) * lu(k,412) - lu(k,423) = lu(k,423) - lu(k,166) * lu(k,412) + lu(k,423) = lu(k,423) - lu(k,165) * lu(k,412) + lu(k,428) = lu(k,428) - lu(k,166) * lu(k,412) lu(k,429) = lu(k,429) - lu(k,167) * lu(k,412) lu(k,433) = lu(k,433) - lu(k,168) * lu(k,412) - lu(k,445) = lu(k,445) - lu(k,163) * lu(k,438) - lu(k,449) = lu(k,449) - lu(k,164) * lu(k,438) - lu(k,450) = lu(k,450) - lu(k,165) * lu(k,438) - lu(k,451) = lu(k,451) - lu(k,166) * lu(k,438) - lu(k,457) = lu(k,457) - lu(k,167) * lu(k,438) - lu(k,461) = - lu(k,168) * lu(k,438) lu(k,488) = lu(k,488) - lu(k,163) * lu(k,474) lu(k,492) = lu(k,492) - lu(k,164) * lu(k,474) - lu(k,493) = lu(k,493) - lu(k,165) * lu(k,474) - lu(k,494) = lu(k,494) - lu(k,166) * lu(k,474) + lu(k,494) = lu(k,494) - lu(k,165) * lu(k,474) + lu(k,499) = lu(k,499) - lu(k,166) * lu(k,474) lu(k,500) = lu(k,500) - lu(k,167) * lu(k,474) lu(k,504) = lu(k,504) - lu(k,168) * lu(k,474) - lu(k,650) = lu(k,650) - lu(k,163) * lu(k,641) - lu(k,654) = lu(k,654) - lu(k,164) * lu(k,641) - lu(k,655) = lu(k,655) - lu(k,165) * lu(k,641) - lu(k,656) = lu(k,656) - lu(k,166) * lu(k,641) - lu(k,662) = lu(k,662) - lu(k,167) * lu(k,641) - lu(k,666) = lu(k,666) - lu(k,168) * lu(k,641) + lu(k,616) = lu(k,616) - lu(k,163) * lu(k,609) + lu(k,620) = lu(k,620) - lu(k,164) * lu(k,609) + lu(k,622) = lu(k,622) - lu(k,165) * lu(k,609) + lu(k,627) = lu(k,627) - lu(k,166) * lu(k,609) + lu(k,628) = lu(k,628) - lu(k,167) * lu(k,609) + lu(k,632) = - lu(k,168) * lu(k,609) + lu(k,653) = lu(k,653) - lu(k,163) * lu(k,644) + lu(k,657) = lu(k,657) - lu(k,164) * lu(k,644) + lu(k,659) = lu(k,659) - lu(k,165) * lu(k,644) + lu(k,664) = lu(k,664) - lu(k,166) * lu(k,644) + lu(k,665) = lu(k,665) - lu(k,167) * lu(k,644) + lu(k,669) = lu(k,669) - lu(k,168) * lu(k,644) end do end subroutine lu_fac04 subroutine lu_fac05( avec_len, lu ) @@ -674,56 +674,56 @@ subroutine lu_fac05( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - 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,175) = lu(k,175) * lu(k,170) - lu(k,176) = lu(k,176) * lu(k,170) - lu(k,177) = lu(k,177) * lu(k,170) - lu(k,189) = lu(k,189) - lu(k,171) * lu(k,188) - lu(k,190) = lu(k,190) - lu(k,172) * lu(k,188) - lu(k,191) = lu(k,191) - lu(k,173) * lu(k,188) - lu(k,192) = lu(k,192) - lu(k,174) * lu(k,188) - lu(k,193) = lu(k,193) - lu(k,175) * lu(k,188) - lu(k,196) = lu(k,196) - lu(k,176) * lu(k,188) - lu(k,197) = lu(k,197) - lu(k,177) * lu(k,188) - lu(k,213) = lu(k,213) - lu(k,171) * lu(k,212) - lu(k,214) = lu(k,214) - lu(k,172) * lu(k,212) - lu(k,215) = lu(k,215) - lu(k,173) * lu(k,212) - lu(k,216) = lu(k,216) - lu(k,174) * lu(k,212) - lu(k,217) = lu(k,217) - lu(k,175) * lu(k,212) - lu(k,220) = lu(k,220) - lu(k,176) * lu(k,212) - lu(k,222) = lu(k,222) - lu(k,177) * lu(k,212) - lu(k,226) = lu(k,226) - lu(k,171) * lu(k,225) - lu(k,227) = - lu(k,172) * lu(k,225) - lu(k,228) = - lu(k,173) * lu(k,225) - lu(k,229) = lu(k,229) - lu(k,174) * lu(k,225) - lu(k,230) = lu(k,230) - lu(k,175) * lu(k,225) - lu(k,233) = lu(k,233) - lu(k,176) * lu(k,225) - lu(k,235) = lu(k,235) - lu(k,177) * lu(k,225) - lu(k,240) = - lu(k,171) * lu(k,239) - lu(k,241) = lu(k,241) - lu(k,172) * lu(k,239) - lu(k,242) = lu(k,242) - lu(k,173) * lu(k,239) - lu(k,243) = lu(k,243) - lu(k,174) * lu(k,239) - lu(k,244) = lu(k,244) - lu(k,175) * lu(k,239) - lu(k,247) = lu(k,247) - lu(k,176) * lu(k,239) - lu(k,249) = lu(k,249) - lu(k,177) * lu(k,239) - lu(k,477) = lu(k,477) - lu(k,171) * lu(k,475) - lu(k,478) = lu(k,478) - lu(k,172) * lu(k,475) - lu(k,479) = lu(k,479) - lu(k,173) * lu(k,475) - lu(k,480) = lu(k,480) - lu(k,174) * lu(k,475) - lu(k,481) = lu(k,481) - lu(k,175) * lu(k,475) - lu(k,494) = lu(k,494) - lu(k,176) * lu(k,475) - lu(k,499) = lu(k,499) - lu(k,177) * lu(k,475) - lu(k,607) = lu(k,607) - lu(k,171) * lu(k,606) - lu(k,608) = lu(k,608) - lu(k,172) * lu(k,606) - lu(k,609) = lu(k,609) - lu(k,173) * lu(k,606) - lu(k,610) = lu(k,610) - lu(k,174) * lu(k,606) - lu(k,611) = lu(k,611) - lu(k,175) * lu(k,606) - lu(k,619) = lu(k,619) - lu(k,176) * lu(k,606) - lu(k,624) = lu(k,624) - lu(k,177) * lu(k,606) + 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,173) = lu(k,173) * lu(k,169) + lu(k,174) = lu(k,174) * lu(k,169) + lu(k,175) = lu(k,175) * lu(k,169) + lu(k,176) = lu(k,176) * lu(k,169) + lu(k,309) = lu(k,309) - lu(k,170) * lu(k,308) + lu(k,310) = lu(k,310) - lu(k,171) * lu(k,308) + lu(k,312) = - lu(k,172) * lu(k,308) + lu(k,314) = - lu(k,173) * lu(k,308) + lu(k,316) = lu(k,316) - lu(k,174) * lu(k,308) + lu(k,318) = lu(k,318) - lu(k,175) * lu(k,308) + lu(k,320) = - lu(k,176) * lu(k,308) + lu(k,390) = lu(k,390) - lu(k,170) * lu(k,389) + lu(k,391) = lu(k,391) - lu(k,171) * lu(k,389) + lu(k,398) = lu(k,398) - lu(k,172) * lu(k,389) + lu(k,400) = - lu(k,173) * lu(k,389) + lu(k,404) = lu(k,404) - lu(k,174) * lu(k,389) + lu(k,406) = lu(k,406) - lu(k,175) * lu(k,389) + lu(k,408) = lu(k,408) - lu(k,176) * lu(k,389) + lu(k,486) = lu(k,486) - lu(k,170) * lu(k,475) + lu(k,487) = lu(k,487) - lu(k,171) * lu(k,475) + lu(k,494) = lu(k,494) - lu(k,172) * lu(k,475) + lu(k,496) = - lu(k,173) * lu(k,475) + lu(k,500) = lu(k,500) - lu(k,174) * lu(k,475) + lu(k,502) = lu(k,502) - lu(k,175) * lu(k,475) + lu(k,504) = lu(k,504) - lu(k,176) * lu(k,475) + lu(k,542) = lu(k,542) - lu(k,170) * lu(k,540) + lu(k,543) = lu(k,543) - lu(k,171) * lu(k,540) + lu(k,550) = lu(k,550) - lu(k,172) * lu(k,540) + lu(k,552) = lu(k,552) - lu(k,173) * lu(k,540) + lu(k,556) = lu(k,556) - lu(k,174) * lu(k,540) + lu(k,558) = lu(k,558) - lu(k,175) * lu(k,540) + lu(k,560) = lu(k,560) - lu(k,176) * lu(k,540) + lu(k,651) = lu(k,651) - lu(k,170) * lu(k,645) + lu(k,652) = lu(k,652) - lu(k,171) * lu(k,645) + lu(k,659) = lu(k,659) - lu(k,172) * lu(k,645) + lu(k,661) = lu(k,661) - lu(k,173) * lu(k,645) + lu(k,665) = lu(k,665) - lu(k,174) * lu(k,645) + lu(k,667) = lu(k,667) - lu(k,175) * lu(k,645) + lu(k,669) = lu(k,669) - lu(k,176) * lu(k,645) + lu(k,721) = lu(k,721) - lu(k,170) * lu(k,719) + lu(k,722) = lu(k,722) - lu(k,171) * lu(k,719) + lu(k,729) = lu(k,729) - lu(k,172) * lu(k,719) + lu(k,731) = - lu(k,173) * lu(k,719) + lu(k,735) = lu(k,735) - lu(k,174) * lu(k,719) + lu(k,737) = - lu(k,175) * lu(k,719) + lu(k,739) = lu(k,739) - lu(k,176) * lu(k,719) 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) @@ -732,48 +732,48 @@ subroutine lu_fac05( avec_len, lu ) lu(k,183) = lu(k,183) * lu(k,178) lu(k,184) = lu(k,184) * lu(k,178) lu(k,185) = lu(k,185) * lu(k,178) - lu(k,309) = lu(k,309) - lu(k,179) * lu(k,308) - lu(k,310) = lu(k,310) - lu(k,180) * lu(k,308) - lu(k,312) = - lu(k,181) * lu(k,308) - lu(k,314) = - lu(k,182) * lu(k,308) - lu(k,316) = lu(k,316) - lu(k,183) * lu(k,308) - lu(k,318) = lu(k,318) - lu(k,184) * lu(k,308) - lu(k,320) = - lu(k,185) * lu(k,308) - lu(k,390) = lu(k,390) - lu(k,179) * lu(k,389) - lu(k,391) = lu(k,391) - lu(k,180) * lu(k,389) - lu(k,398) = lu(k,398) - lu(k,181) * lu(k,389) - lu(k,400) = - lu(k,182) * lu(k,389) - lu(k,402) = lu(k,402) - lu(k,183) * lu(k,389) - lu(k,404) = lu(k,404) - lu(k,184) * lu(k,389) - lu(k,408) = lu(k,408) - lu(k,185) * lu(k,389) - lu(k,486) = lu(k,486) - lu(k,179) * lu(k,476) - lu(k,487) = lu(k,487) - lu(k,180) * lu(k,476) - lu(k,494) = lu(k,494) - lu(k,181) * lu(k,476) - lu(k,496) = - lu(k,182) * lu(k,476) - lu(k,498) = lu(k,498) - lu(k,183) * lu(k,476) - lu(k,500) = lu(k,500) - lu(k,184) * lu(k,476) - lu(k,504) = lu(k,504) - lu(k,185) * lu(k,476) - lu(k,508) = lu(k,508) - lu(k,179) * lu(k,506) - lu(k,509) = lu(k,509) - lu(k,180) * lu(k,506) - lu(k,516) = lu(k,516) - lu(k,181) * lu(k,506) - lu(k,518) = - lu(k,182) * lu(k,506) - lu(k,520) = - lu(k,183) * lu(k,506) - lu(k,522) = lu(k,522) - lu(k,184) * lu(k,506) - lu(k,526) = lu(k,526) - lu(k,185) * lu(k,506) - lu(k,533) = lu(k,533) - lu(k,179) * lu(k,531) - lu(k,534) = lu(k,534) - lu(k,180) * lu(k,531) - lu(k,541) = lu(k,541) - lu(k,181) * lu(k,531) - lu(k,543) = lu(k,543) - lu(k,182) * lu(k,531) - lu(k,545) = lu(k,545) - lu(k,183) * lu(k,531) - lu(k,547) = lu(k,547) - lu(k,184) * lu(k,531) - lu(k,551) = lu(k,551) - lu(k,185) * lu(k,531) - lu(k,648) = lu(k,648) - lu(k,179) * lu(k,642) - lu(k,649) = lu(k,649) - lu(k,180) * lu(k,642) - lu(k,656) = lu(k,656) - lu(k,181) * lu(k,642) - lu(k,658) = lu(k,658) - lu(k,182) * lu(k,642) - lu(k,660) = lu(k,660) - lu(k,183) * lu(k,642) - lu(k,662) = lu(k,662) - lu(k,184) * lu(k,642) - lu(k,666) = lu(k,666) - lu(k,185) * lu(k,642) + lu(k,189) = lu(k,189) - lu(k,179) * lu(k,188) + lu(k,190) = lu(k,190) - lu(k,180) * lu(k,188) + lu(k,191) = lu(k,191) - lu(k,181) * lu(k,188) + lu(k,192) = lu(k,192) - lu(k,182) * lu(k,188) + lu(k,193) = lu(k,193) - lu(k,183) * lu(k,188) + lu(k,196) = lu(k,196) - lu(k,184) * lu(k,188) + lu(k,197) = lu(k,197) - lu(k,185) * lu(k,188) + lu(k,213) = lu(k,213) - lu(k,179) * lu(k,212) + lu(k,214) = lu(k,214) - lu(k,180) * lu(k,212) + lu(k,215) = lu(k,215) - lu(k,181) * lu(k,212) + lu(k,216) = lu(k,216) - lu(k,182) * lu(k,212) + lu(k,217) = lu(k,217) - lu(k,183) * lu(k,212) + lu(k,220) = lu(k,220) - lu(k,184) * lu(k,212) + lu(k,221) = lu(k,221) - lu(k,185) * lu(k,212) + lu(k,226) = lu(k,226) - lu(k,179) * lu(k,225) + lu(k,227) = - lu(k,180) * lu(k,225) + lu(k,228) = - lu(k,181) * lu(k,225) + lu(k,229) = lu(k,229) - lu(k,182) * lu(k,225) + lu(k,230) = lu(k,230) - lu(k,183) * lu(k,225) + lu(k,233) = lu(k,233) - lu(k,184) * lu(k,225) + lu(k,234) = lu(k,234) - lu(k,185) * lu(k,225) + lu(k,240) = - lu(k,179) * lu(k,239) + lu(k,241) = lu(k,241) - lu(k,180) * lu(k,239) + lu(k,242) = lu(k,242) - lu(k,181) * lu(k,239) + lu(k,243) = lu(k,243) - lu(k,182) * lu(k,239) + lu(k,244) = lu(k,244) - lu(k,183) * lu(k,239) + lu(k,248) = lu(k,248) - lu(k,184) * lu(k,239) + lu(k,249) = lu(k,249) - lu(k,185) * lu(k,239) + lu(k,477) = lu(k,477) - lu(k,179) * lu(k,476) + lu(k,478) = lu(k,478) - lu(k,180) * lu(k,476) + lu(k,479) = lu(k,479) - lu(k,181) * lu(k,476) + lu(k,480) = lu(k,480) - lu(k,182) * lu(k,476) + lu(k,481) = lu(k,481) - lu(k,183) * lu(k,476) + lu(k,494) = lu(k,494) - lu(k,184) * lu(k,476) + lu(k,495) = lu(k,495) - lu(k,185) * lu(k,476) + lu(k,513) = lu(k,513) - lu(k,179) * lu(k,512) + lu(k,514) = lu(k,514) - lu(k,180) * lu(k,512) + lu(k,515) = lu(k,515) - lu(k,181) * lu(k,512) + lu(k,516) = lu(k,516) - lu(k,182) * lu(k,512) + lu(k,517) = lu(k,517) - lu(k,183) * lu(k,512) + lu(k,525) = lu(k,525) - lu(k,184) * lu(k,512) + lu(k,526) = lu(k,526) - lu(k,185) * lu(k,512) lu(k,189) = 1._r8 / lu(k,189) lu(k,190) = lu(k,190) * lu(k,189) lu(k,191) = lu(k,191) * lu(k,189) @@ -791,8 +791,8 @@ subroutine lu_fac05( avec_len, lu ) lu(k,218) = - lu(k,194) * lu(k,213) lu(k,219) = - lu(k,195) * lu(k,213) lu(k,220) = lu(k,220) - lu(k,196) * lu(k,213) - lu(k,222) = lu(k,222) - lu(k,197) * lu(k,213) - lu(k,223) = - lu(k,198) * lu(k,213) + lu(k,221) = lu(k,221) - lu(k,197) * lu(k,213) + lu(k,224) = - lu(k,198) * lu(k,213) lu(k,227) = lu(k,227) - lu(k,190) * lu(k,226) lu(k,228) = lu(k,228) - lu(k,191) * lu(k,226) lu(k,229) = lu(k,229) - lu(k,192) * lu(k,226) @@ -800,17 +800,17 @@ subroutine lu_fac05( avec_len, lu ) lu(k,231) = - lu(k,194) * lu(k,226) lu(k,232) = - lu(k,195) * lu(k,226) lu(k,233) = lu(k,233) - lu(k,196) * lu(k,226) - lu(k,235) = lu(k,235) - lu(k,197) * lu(k,226) - lu(k,236) = - lu(k,198) * lu(k,226) + lu(k,234) = lu(k,234) - lu(k,197) * lu(k,226) + lu(k,237) = - lu(k,198) * lu(k,226) lu(k,241) = lu(k,241) - lu(k,190) * lu(k,240) lu(k,242) = lu(k,242) - lu(k,191) * lu(k,240) lu(k,243) = lu(k,243) - lu(k,192) * lu(k,240) lu(k,244) = lu(k,244) - lu(k,193) * lu(k,240) lu(k,245) = lu(k,245) - lu(k,194) * lu(k,240) lu(k,246) = - lu(k,195) * lu(k,240) - lu(k,247) = lu(k,247) - lu(k,196) * lu(k,240) + lu(k,248) = lu(k,248) - lu(k,196) * lu(k,240) lu(k,249) = lu(k,249) - lu(k,197) * lu(k,240) - lu(k,250) = lu(k,250) - lu(k,198) * lu(k,240) + lu(k,252) = lu(k,252) - lu(k,198) * lu(k,240) lu(k,478) = lu(k,478) - lu(k,190) * lu(k,477) lu(k,479) = lu(k,479) - lu(k,191) * lu(k,477) lu(k,480) = lu(k,480) - lu(k,192) * lu(k,477) @@ -818,17 +818,17 @@ subroutine lu_fac05( avec_len, lu ) lu(k,486) = lu(k,486) - lu(k,194) * lu(k,477) lu(k,491) = lu(k,491) - lu(k,195) * lu(k,477) lu(k,494) = lu(k,494) - lu(k,196) * lu(k,477) - lu(k,499) = lu(k,499) - lu(k,197) * lu(k,477) + lu(k,495) = lu(k,495) - lu(k,197) * lu(k,477) lu(k,500) = lu(k,500) - lu(k,198) * lu(k,477) - lu(k,608) = lu(k,608) - lu(k,190) * lu(k,607) - lu(k,609) = lu(k,609) - lu(k,191) * lu(k,607) - lu(k,610) = lu(k,610) - lu(k,192) * lu(k,607) - lu(k,611) = lu(k,611) - lu(k,193) * lu(k,607) - lu(k,614) = lu(k,614) - lu(k,194) * lu(k,607) - lu(k,616) = lu(k,616) - lu(k,195) * lu(k,607) - lu(k,619) = lu(k,619) - lu(k,196) * lu(k,607) - lu(k,624) = lu(k,624) - lu(k,197) * lu(k,607) - lu(k,625) = lu(k,625) - lu(k,198) * lu(k,607) + lu(k,514) = lu(k,514) - lu(k,190) * lu(k,513) + lu(k,515) = lu(k,515) - lu(k,191) * lu(k,513) + lu(k,516) = lu(k,516) - lu(k,192) * lu(k,513) + lu(k,517) = lu(k,517) - lu(k,193) * lu(k,513) + lu(k,520) = lu(k,520) - lu(k,194) * lu(k,513) + lu(k,522) = lu(k,522) - lu(k,195) * lu(k,513) + lu(k,525) = lu(k,525) - lu(k,196) * lu(k,513) + lu(k,526) = lu(k,526) - lu(k,197) * lu(k,513) + lu(k,531) = lu(k,531) - lu(k,198) * lu(k,513) 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) @@ -843,42 +843,42 @@ subroutine lu_fac05( avec_len, lu ) lu(k,220) = lu(k,220) - lu(k,204) * lu(k,214) lu(k,221) = lu(k,221) - lu(k,205) * lu(k,214) lu(k,222) = lu(k,222) - lu(k,206) * lu(k,214) - lu(k,224) = lu(k,224) - lu(k,207) * lu(k,214) + lu(k,223) = lu(k,223) - lu(k,207) * lu(k,214) lu(k,228) = lu(k,228) - lu(k,201) * lu(k,227) lu(k,229) = lu(k,229) - lu(k,202) * lu(k,227) lu(k,230) = lu(k,230) - lu(k,203) * lu(k,227) lu(k,233) = lu(k,233) - lu(k,204) * lu(k,227) lu(k,234) = lu(k,234) - lu(k,205) * lu(k,227) lu(k,235) = lu(k,235) - lu(k,206) * lu(k,227) - lu(k,237) = lu(k,237) - lu(k,207) * lu(k,227) + lu(k,236) = lu(k,236) - lu(k,207) * lu(k,227) lu(k,242) = lu(k,242) - lu(k,201) * lu(k,241) lu(k,243) = lu(k,243) - lu(k,202) * lu(k,241) lu(k,244) = lu(k,244) - lu(k,203) * lu(k,241) - lu(k,247) = lu(k,247) - lu(k,204) * lu(k,241) - lu(k,248) = - lu(k,205) * lu(k,241) - lu(k,249) = lu(k,249) - lu(k,206) * lu(k,241) - lu(k,252) = lu(k,252) - lu(k,207) * lu(k,241) + lu(k,248) = lu(k,248) - lu(k,204) * lu(k,241) + lu(k,249) = lu(k,249) - lu(k,205) * lu(k,241) + lu(k,250) = - lu(k,206) * lu(k,241) + lu(k,251) = lu(k,251) - lu(k,207) * lu(k,241) lu(k,479) = lu(k,479) - lu(k,201) * lu(k,478) lu(k,480) = lu(k,480) - lu(k,202) * lu(k,478) lu(k,481) = lu(k,481) - lu(k,203) * lu(k,478) lu(k,494) = lu(k,494) - lu(k,204) * lu(k,478) - lu(k,496) = lu(k,496) - lu(k,205) * lu(k,478) - lu(k,499) = lu(k,499) - lu(k,206) * lu(k,478) - lu(k,503) = lu(k,503) - lu(k,207) * lu(k,478) - lu(k,609) = lu(k,609) - lu(k,201) * lu(k,608) - lu(k,610) = lu(k,610) - lu(k,202) * lu(k,608) - lu(k,611) = lu(k,611) - lu(k,203) * lu(k,608) - lu(k,619) = lu(k,619) - lu(k,204) * lu(k,608) - lu(k,621) = lu(k,621) - lu(k,205) * lu(k,608) - lu(k,624) = lu(k,624) - lu(k,206) * lu(k,608) - lu(k,628) = lu(k,628) - lu(k,207) * lu(k,608) - lu(k,719) = lu(k,719) - lu(k,201) * lu(k,718) - lu(k,720) = lu(k,720) - lu(k,202) * lu(k,718) - lu(k,721) = lu(k,721) - lu(k,203) * lu(k,718) - lu(k,729) = lu(k,729) - lu(k,204) * lu(k,718) - lu(k,731) = - lu(k,205) * lu(k,718) - lu(k,734) = lu(k,734) - lu(k,206) * lu(k,718) - lu(k,738) = lu(k,738) - lu(k,207) * lu(k,718) + lu(k,495) = lu(k,495) - lu(k,205) * lu(k,478) + lu(k,496) = lu(k,496) - lu(k,206) * lu(k,478) + lu(k,498) = lu(k,498) - lu(k,207) * lu(k,478) + lu(k,515) = lu(k,515) - lu(k,201) * lu(k,514) + lu(k,516) = lu(k,516) - lu(k,202) * lu(k,514) + lu(k,517) = lu(k,517) - lu(k,203) * lu(k,514) + lu(k,525) = lu(k,525) - lu(k,204) * lu(k,514) + lu(k,526) = lu(k,526) - lu(k,205) * lu(k,514) + lu(k,527) = lu(k,527) - lu(k,206) * lu(k,514) + lu(k,529) = lu(k,529) - lu(k,207) * lu(k,514) + lu(k,584) = lu(k,584) - lu(k,201) * lu(k,583) + lu(k,585) = lu(k,585) - lu(k,202) * lu(k,583) + lu(k,586) = lu(k,586) - lu(k,203) * lu(k,583) + lu(k,594) = lu(k,594) - lu(k,204) * lu(k,583) + lu(k,595) = lu(k,595) - lu(k,205) * lu(k,583) + lu(k,596) = - lu(k,206) * lu(k,583) + lu(k,598) = lu(k,598) - lu(k,207) * lu(k,583) end do end subroutine lu_fac05 subroutine lu_fac06( avec_len, lu ) @@ -918,38 +918,38 @@ subroutine lu_fac06( avec_len, lu ) lu(k,244) = lu(k,244) - lu(k,217) * lu(k,242) lu(k,245) = lu(k,245) - lu(k,218) * lu(k,242) lu(k,246) = lu(k,246) - lu(k,219) * lu(k,242) - lu(k,247) = lu(k,247) - lu(k,220) * lu(k,242) - lu(k,248) = lu(k,248) - lu(k,221) * lu(k,242) - lu(k,249) = lu(k,249) - lu(k,222) * lu(k,242) - lu(k,250) = lu(k,250) - lu(k,223) * lu(k,242) + lu(k,248) = lu(k,248) - lu(k,220) * lu(k,242) + lu(k,249) = lu(k,249) - lu(k,221) * lu(k,242) + lu(k,250) = lu(k,250) - lu(k,222) * lu(k,242) + lu(k,251) = lu(k,251) - lu(k,223) * lu(k,242) lu(k,252) = lu(k,252) - lu(k,224) * lu(k,242) lu(k,480) = lu(k,480) - lu(k,216) * lu(k,479) lu(k,481) = lu(k,481) - lu(k,217) * lu(k,479) lu(k,486) = lu(k,486) - lu(k,218) * lu(k,479) lu(k,491) = lu(k,491) - lu(k,219) * lu(k,479) lu(k,494) = lu(k,494) - lu(k,220) * lu(k,479) - lu(k,496) = lu(k,496) - lu(k,221) * lu(k,479) - lu(k,499) = lu(k,499) - lu(k,222) * lu(k,479) - lu(k,500) = lu(k,500) - lu(k,223) * lu(k,479) - lu(k,503) = lu(k,503) - lu(k,224) * lu(k,479) - lu(k,610) = lu(k,610) - lu(k,216) * lu(k,609) - lu(k,611) = lu(k,611) - lu(k,217) * lu(k,609) - lu(k,614) = lu(k,614) - lu(k,218) * lu(k,609) - lu(k,616) = lu(k,616) - lu(k,219) * lu(k,609) - lu(k,619) = lu(k,619) - lu(k,220) * lu(k,609) - lu(k,621) = lu(k,621) - lu(k,221) * lu(k,609) - lu(k,624) = lu(k,624) - lu(k,222) * lu(k,609) - lu(k,625) = lu(k,625) - lu(k,223) * lu(k,609) - lu(k,628) = lu(k,628) - lu(k,224) * lu(k,609) - lu(k,720) = lu(k,720) - lu(k,216) * lu(k,719) - lu(k,721) = lu(k,721) - lu(k,217) * lu(k,719) - lu(k,722) = - lu(k,218) * lu(k,719) - lu(k,726) = lu(k,726) - lu(k,219) * lu(k,719) - lu(k,729) = lu(k,729) - lu(k,220) * lu(k,719) - lu(k,731) = lu(k,731) - lu(k,221) * lu(k,719) - lu(k,734) = lu(k,734) - lu(k,222) * lu(k,719) - lu(k,735) = lu(k,735) - lu(k,223) * lu(k,719) - lu(k,738) = lu(k,738) - lu(k,224) * lu(k,719) + lu(k,495) = lu(k,495) - lu(k,221) * lu(k,479) + lu(k,496) = lu(k,496) - lu(k,222) * lu(k,479) + lu(k,498) = lu(k,498) - lu(k,223) * lu(k,479) + lu(k,500) = lu(k,500) - lu(k,224) * lu(k,479) + lu(k,516) = lu(k,516) - lu(k,216) * lu(k,515) + lu(k,517) = lu(k,517) - lu(k,217) * lu(k,515) + lu(k,520) = lu(k,520) - lu(k,218) * lu(k,515) + lu(k,522) = lu(k,522) - lu(k,219) * lu(k,515) + lu(k,525) = lu(k,525) - lu(k,220) * lu(k,515) + lu(k,526) = lu(k,526) - lu(k,221) * lu(k,515) + lu(k,527) = lu(k,527) - lu(k,222) * lu(k,515) + lu(k,529) = lu(k,529) - lu(k,223) * lu(k,515) + lu(k,531) = lu(k,531) - lu(k,224) * lu(k,515) + lu(k,585) = lu(k,585) - lu(k,216) * lu(k,584) + lu(k,586) = lu(k,586) - lu(k,217) * lu(k,584) + lu(k,587) = - lu(k,218) * lu(k,584) + lu(k,591) = lu(k,591) - lu(k,219) * lu(k,584) + lu(k,594) = lu(k,594) - lu(k,220) * lu(k,584) + lu(k,595) = lu(k,595) - lu(k,221) * lu(k,584) + lu(k,596) = lu(k,596) - lu(k,222) * lu(k,584) + lu(k,598) = lu(k,598) - lu(k,223) * lu(k,584) + lu(k,600) = lu(k,600) - lu(k,224) * lu(k,584) 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) @@ -962,35 +962,35 @@ subroutine lu_fac06( avec_len, lu ) lu(k,244) = lu(k,244) - lu(k,230) * lu(k,243) lu(k,245) = lu(k,245) - lu(k,231) * lu(k,243) lu(k,246) = lu(k,246) - lu(k,232) * lu(k,243) - lu(k,247) = lu(k,247) - lu(k,233) * lu(k,243) - lu(k,248) = lu(k,248) - lu(k,234) * lu(k,243) - lu(k,249) = lu(k,249) - lu(k,235) * lu(k,243) - lu(k,250) = lu(k,250) - lu(k,236) * lu(k,243) + lu(k,248) = lu(k,248) - lu(k,233) * lu(k,243) + lu(k,249) = lu(k,249) - lu(k,234) * lu(k,243) + lu(k,250) = lu(k,250) - lu(k,235) * lu(k,243) + lu(k,251) = lu(k,251) - lu(k,236) * lu(k,243) lu(k,252) = lu(k,252) - lu(k,237) * lu(k,243) lu(k,481) = lu(k,481) - lu(k,230) * lu(k,480) lu(k,486) = lu(k,486) - lu(k,231) * lu(k,480) lu(k,491) = lu(k,491) - lu(k,232) * lu(k,480) lu(k,494) = lu(k,494) - lu(k,233) * lu(k,480) - lu(k,496) = lu(k,496) - lu(k,234) * lu(k,480) - lu(k,499) = lu(k,499) - lu(k,235) * lu(k,480) - lu(k,500) = lu(k,500) - lu(k,236) * lu(k,480) - lu(k,503) = lu(k,503) - lu(k,237) * lu(k,480) - lu(k,611) = lu(k,611) - lu(k,230) * lu(k,610) - lu(k,614) = lu(k,614) - lu(k,231) * lu(k,610) - lu(k,616) = lu(k,616) - lu(k,232) * lu(k,610) - lu(k,619) = lu(k,619) - lu(k,233) * lu(k,610) - lu(k,621) = lu(k,621) - lu(k,234) * lu(k,610) - lu(k,624) = lu(k,624) - lu(k,235) * lu(k,610) - lu(k,625) = lu(k,625) - lu(k,236) * lu(k,610) - lu(k,628) = lu(k,628) - lu(k,237) * lu(k,610) - lu(k,721) = lu(k,721) - lu(k,230) * lu(k,720) - lu(k,722) = lu(k,722) - lu(k,231) * lu(k,720) - lu(k,726) = lu(k,726) - lu(k,232) * lu(k,720) - lu(k,729) = lu(k,729) - lu(k,233) * lu(k,720) - lu(k,731) = lu(k,731) - lu(k,234) * lu(k,720) - lu(k,734) = lu(k,734) - lu(k,235) * lu(k,720) - lu(k,735) = lu(k,735) - lu(k,236) * lu(k,720) - lu(k,738) = lu(k,738) - lu(k,237) * lu(k,720) + lu(k,495) = lu(k,495) - lu(k,234) * lu(k,480) + lu(k,496) = lu(k,496) - lu(k,235) * lu(k,480) + lu(k,498) = lu(k,498) - lu(k,236) * lu(k,480) + lu(k,500) = lu(k,500) - lu(k,237) * lu(k,480) + lu(k,517) = lu(k,517) - lu(k,230) * lu(k,516) + lu(k,520) = lu(k,520) - lu(k,231) * lu(k,516) + lu(k,522) = lu(k,522) - lu(k,232) * lu(k,516) + lu(k,525) = lu(k,525) - lu(k,233) * lu(k,516) + lu(k,526) = lu(k,526) - lu(k,234) * lu(k,516) + lu(k,527) = lu(k,527) - lu(k,235) * lu(k,516) + lu(k,529) = lu(k,529) - lu(k,236) * lu(k,516) + lu(k,531) = lu(k,531) - lu(k,237) * lu(k,516) + lu(k,586) = lu(k,586) - lu(k,230) * lu(k,585) + lu(k,587) = lu(k,587) - lu(k,231) * lu(k,585) + lu(k,591) = lu(k,591) - lu(k,232) * lu(k,585) + lu(k,594) = lu(k,594) - lu(k,233) * lu(k,585) + lu(k,595) = lu(k,595) - lu(k,234) * lu(k,585) + lu(k,596) = lu(k,596) - lu(k,235) * lu(k,585) + lu(k,598) = lu(k,598) - lu(k,236) * lu(k,585) + lu(k,600) = lu(k,600) - lu(k,237) * lu(k,585) lu(k,244) = 1._r8 / lu(k,244) lu(k,245) = lu(k,245) * lu(k,244) lu(k,246) = lu(k,246) * lu(k,244) @@ -1000,46 +1000,46 @@ subroutine lu_fac06( avec_len, lu ) lu(k,250) = lu(k,250) * lu(k,244) lu(k,251) = lu(k,251) * lu(k,244) lu(k,252) = lu(k,252) * lu(k,244) + lu(k,443) = - lu(k,245) * lu(k,438) + lu(k,448) = lu(k,448) - lu(k,246) * lu(k,438) + lu(k,450) = lu(k,450) - lu(k,247) * lu(k,438) + lu(k,451) = lu(k,451) - lu(k,248) * lu(k,438) + lu(k,452) = lu(k,452) - lu(k,249) * lu(k,438) + lu(k,453) = - lu(k,250) * lu(k,438) + lu(k,455) = lu(k,455) - lu(k,251) * lu(k,438) + lu(k,457) = lu(k,457) - lu(k,252) * lu(k,438) lu(k,486) = lu(k,486) - lu(k,245) * lu(k,481) lu(k,491) = lu(k,491) - lu(k,246) * lu(k,481) - lu(k,494) = lu(k,494) - lu(k,247) * lu(k,481) - lu(k,496) = lu(k,496) - lu(k,248) * lu(k,481) - lu(k,499) = lu(k,499) - lu(k,249) * lu(k,481) - lu(k,500) = lu(k,500) - lu(k,250) * lu(k,481) - lu(k,502) = lu(k,502) - lu(k,251) * lu(k,481) - lu(k,503) = lu(k,503) - lu(k,252) * lu(k,481) - lu(k,614) = lu(k,614) - lu(k,245) * lu(k,611) - lu(k,616) = lu(k,616) - lu(k,246) * lu(k,611) - lu(k,619) = lu(k,619) - lu(k,247) * lu(k,611) - lu(k,621) = lu(k,621) - lu(k,248) * lu(k,611) - lu(k,624) = lu(k,624) - lu(k,249) * lu(k,611) - lu(k,625) = lu(k,625) - lu(k,250) * lu(k,611) - lu(k,627) = - lu(k,251) * lu(k,611) - lu(k,628) = lu(k,628) - lu(k,252) * lu(k,611) - lu(k,648) = lu(k,648) - lu(k,245) * lu(k,643) - lu(k,653) = lu(k,653) - lu(k,246) * lu(k,643) - lu(k,656) = lu(k,656) - lu(k,247) * lu(k,643) - lu(k,658) = lu(k,658) - lu(k,248) * lu(k,643) - lu(k,661) = lu(k,661) - lu(k,249) * lu(k,643) - lu(k,662) = lu(k,662) - lu(k,250) * lu(k,643) - lu(k,664) = lu(k,664) - lu(k,251) * lu(k,643) - lu(k,665) = lu(k,665) - lu(k,252) * lu(k,643) - lu(k,698) = - lu(k,245) * lu(k,693) - lu(k,703) = lu(k,703) - lu(k,246) * lu(k,693) - lu(k,706) = lu(k,706) - lu(k,247) * lu(k,693) - lu(k,708) = - lu(k,248) * lu(k,693) - lu(k,711) = lu(k,711) - lu(k,249) * lu(k,693) - lu(k,712) = lu(k,712) - lu(k,250) * lu(k,693) - lu(k,714) = lu(k,714) - lu(k,251) * lu(k,693) - lu(k,715) = lu(k,715) - lu(k,252) * lu(k,693) - lu(k,722) = lu(k,722) - lu(k,245) * lu(k,721) - lu(k,726) = lu(k,726) - lu(k,246) * lu(k,721) - lu(k,729) = lu(k,729) - lu(k,247) * lu(k,721) - lu(k,731) = lu(k,731) - lu(k,248) * lu(k,721) - lu(k,734) = lu(k,734) - lu(k,249) * lu(k,721) - lu(k,735) = lu(k,735) - lu(k,250) * lu(k,721) - lu(k,737) = lu(k,737) - lu(k,251) * lu(k,721) - lu(k,738) = lu(k,738) - lu(k,252) * lu(k,721) + lu(k,493) = lu(k,493) - lu(k,247) * lu(k,481) + lu(k,494) = lu(k,494) - lu(k,248) * lu(k,481) + lu(k,495) = lu(k,495) - lu(k,249) * lu(k,481) + lu(k,496) = lu(k,496) - lu(k,250) * lu(k,481) + lu(k,498) = lu(k,498) - lu(k,251) * lu(k,481) + lu(k,500) = lu(k,500) - lu(k,252) * lu(k,481) + lu(k,520) = lu(k,520) - lu(k,245) * lu(k,517) + lu(k,522) = lu(k,522) - lu(k,246) * lu(k,517) + lu(k,524) = - lu(k,247) * lu(k,517) + lu(k,525) = lu(k,525) - lu(k,248) * lu(k,517) + lu(k,526) = lu(k,526) - lu(k,249) * lu(k,517) + lu(k,527) = lu(k,527) - lu(k,250) * lu(k,517) + lu(k,529) = lu(k,529) - lu(k,251) * lu(k,517) + lu(k,531) = lu(k,531) - lu(k,252) * lu(k,517) + lu(k,587) = lu(k,587) - lu(k,245) * lu(k,586) + lu(k,591) = lu(k,591) - lu(k,246) * lu(k,586) + lu(k,593) = lu(k,593) - lu(k,247) * lu(k,586) + lu(k,594) = lu(k,594) - lu(k,248) * lu(k,586) + lu(k,595) = lu(k,595) - lu(k,249) * lu(k,586) + lu(k,596) = lu(k,596) - lu(k,250) * lu(k,586) + lu(k,598) = lu(k,598) - lu(k,251) * lu(k,586) + lu(k,600) = lu(k,600) - lu(k,252) * lu(k,586) + lu(k,651) = lu(k,651) - lu(k,245) * lu(k,646) + lu(k,656) = lu(k,656) - lu(k,246) * lu(k,646) + lu(k,658) = lu(k,658) - lu(k,247) * lu(k,646) + lu(k,659) = lu(k,659) - lu(k,248) * lu(k,646) + lu(k,660) = lu(k,660) - lu(k,249) * lu(k,646) + lu(k,661) = lu(k,661) - lu(k,250) * lu(k,646) + lu(k,663) = lu(k,663) - lu(k,251) * lu(k,646) + lu(k,665) = lu(k,665) - lu(k,252) * lu(k,646) 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) @@ -1049,7 +1049,7 @@ subroutine lu_fac06( avec_len, lu ) lu(k,285) = lu(k,285) - lu(k,255) * lu(k,284) lu(k,288) = - lu(k,256) * lu(k,284) lu(k,291) = lu(k,291) - lu(k,257) * lu(k,284) - lu(k,294) = lu(k,294) - lu(k,258) * lu(k,284) + lu(k,295) = lu(k,295) - lu(k,258) * lu(k,284) lu(k,298) = - lu(k,259) * lu(k,284) lu(k,365) = - lu(k,255) * lu(k,363) lu(k,370) = lu(k,370) - lu(k,256) * lu(k,363) @@ -1066,31 +1066,31 @@ subroutine lu_fac06( avec_len, lu ) lu(k,494) = lu(k,494) - lu(k,257) * lu(k,482) lu(k,500) = lu(k,500) - lu(k,258) * lu(k,482) lu(k,504) = lu(k,504) - lu(k,259) * lu(k,482) - lu(k,579) = lu(k,579) - lu(k,255) * lu(k,577) - lu(k,585) = lu(k,585) - lu(k,256) * lu(k,577) - lu(k,588) = lu(k,588) - lu(k,257) * lu(k,577) - lu(k,594) = lu(k,594) - lu(k,258) * lu(k,577) - lu(k,598) = lu(k,598) - lu(k,259) * lu(k,577) - lu(k,613) = lu(k,613) - lu(k,255) * lu(k,612) - lu(k,616) = lu(k,616) - lu(k,256) * lu(k,612) - lu(k,619) = lu(k,619) - lu(k,257) * lu(k,612) - lu(k,625) = lu(k,625) - lu(k,258) * lu(k,612) - lu(k,629) = - lu(k,259) * lu(k,612) - lu(k,647) = lu(k,647) - lu(k,255) * lu(k,644) - lu(k,653) = lu(k,653) - lu(k,256) * lu(k,644) - lu(k,656) = lu(k,656) - lu(k,257) * lu(k,644) - lu(k,662) = lu(k,662) - lu(k,258) * lu(k,644) - lu(k,666) = lu(k,666) - lu(k,259) * lu(k,644) - lu(k,671) = lu(k,671) - lu(k,255) * lu(k,670) - lu(k,675) = lu(k,675) - lu(k,256) * lu(k,670) - lu(k,678) = lu(k,678) - lu(k,257) * lu(k,670) - lu(k,684) = lu(k,684) - lu(k,258) * lu(k,670) - lu(k,688) = - lu(k,259) * lu(k,670) - lu(k,697) = lu(k,697) - lu(k,255) * lu(k,694) - lu(k,703) = lu(k,703) - lu(k,256) * lu(k,694) - lu(k,706) = lu(k,706) - lu(k,257) * lu(k,694) - lu(k,712) = lu(k,712) - lu(k,258) * lu(k,694) - lu(k,716) = lu(k,716) - lu(k,259) * lu(k,694) + lu(k,519) = lu(k,519) - lu(k,255) * lu(k,518) + lu(k,522) = lu(k,522) - lu(k,256) * lu(k,518) + lu(k,525) = lu(k,525) - lu(k,257) * lu(k,518) + lu(k,531) = lu(k,531) - lu(k,258) * lu(k,518) + lu(k,535) = - lu(k,259) * lu(k,518) + lu(k,613) = lu(k,613) - lu(k,255) * lu(k,610) + lu(k,619) = lu(k,619) - lu(k,256) * lu(k,610) + lu(k,622) = lu(k,622) - lu(k,257) * lu(k,610) + lu(k,628) = lu(k,628) - lu(k,258) * lu(k,610) + lu(k,632) = lu(k,632) - lu(k,259) * lu(k,610) + lu(k,650) = lu(k,650) - lu(k,255) * lu(k,647) + lu(k,656) = lu(k,656) - lu(k,256) * lu(k,647) + lu(k,659) = lu(k,659) - lu(k,257) * lu(k,647) + lu(k,665) = lu(k,665) - lu(k,258) * lu(k,647) + lu(k,669) = lu(k,669) - lu(k,259) * lu(k,647) + lu(k,674) = lu(k,674) - lu(k,255) * lu(k,673) + lu(k,678) = lu(k,678) - lu(k,256) * lu(k,673) + lu(k,681) = lu(k,681) - lu(k,257) * lu(k,673) + lu(k,687) = lu(k,687) - lu(k,258) * lu(k,673) + lu(k,691) = - lu(k,259) * lu(k,673) + lu(k,698) = lu(k,698) - lu(k,255) * lu(k,696) + lu(k,704) = lu(k,704) - lu(k,256) * lu(k,696) + lu(k,707) = lu(k,707) - lu(k,257) * lu(k,696) + lu(k,713) = lu(k,713) - lu(k,258) * lu(k,696) + lu(k,717) = lu(k,717) - lu(k,259) * lu(k,696) lu(k,746) = - lu(k,255) * lu(k,744) lu(k,751) = - lu(k,256) * lu(k,744) lu(k,754) = lu(k,754) - lu(k,257) * lu(k,744) @@ -1110,28 +1110,28 @@ subroutine lu_fac06( avec_len, lu ) lu(k,329) = lu(k,329) - lu(k,264) * lu(k,325) lu(k,331) = - lu(k,265) * lu(k,325) lu(k,333) = lu(k,333) - lu(k,266) * lu(k,325) - lu(k,334) = lu(k,334) - lu(k,267) * lu(k,325) + lu(k,334) = - lu(k,267) * lu(k,325) lu(k,335) = lu(k,335) - lu(k,268) * lu(k,325) - lu(k,341) = lu(k,341) - lu(k,269) * lu(k,325) - lu(k,343) = - lu(k,270) * lu(k,325) + lu(k,339) = lu(k,339) - lu(k,269) * lu(k,325) + lu(k,340) = lu(k,340) - lu(k,270) * lu(k,325) lu(k,344) = lu(k,344) - lu(k,271) * lu(k,325) lu(k,414) = - lu(k,263) * lu(k,413) lu(k,417) = lu(k,417) - lu(k,264) * lu(k,413) lu(k,419) = lu(k,419) - lu(k,265) * lu(k,413) lu(k,421) = lu(k,421) - lu(k,266) * lu(k,413) - lu(k,422) = lu(k,422) - lu(k,267) * lu(k,413) + lu(k,422) = - lu(k,267) * lu(k,413) lu(k,423) = lu(k,423) - lu(k,268) * lu(k,413) - lu(k,429) = lu(k,429) - lu(k,269) * lu(k,413) - lu(k,431) = - lu(k,270) * lu(k,413) + lu(k,428) = lu(k,428) - lu(k,269) * lu(k,413) + lu(k,429) = lu(k,429) - lu(k,270) * lu(k,413) lu(k,433) = lu(k,433) - lu(k,271) * lu(k,413) - lu(k,441) = - lu(k,263) * lu(k,440) + lu(k,441) = lu(k,441) - lu(k,263) * lu(k,440) lu(k,445) = lu(k,445) - lu(k,264) * lu(k,440) - lu(k,447) = - lu(k,265) * lu(k,440) + lu(k,447) = lu(k,447) - lu(k,265) * lu(k,440) lu(k,449) = lu(k,449) - lu(k,266) * lu(k,440) lu(k,450) = lu(k,450) - lu(k,267) * lu(k,440) lu(k,451) = lu(k,451) - lu(k,268) * lu(k,440) - lu(k,457) = lu(k,457) - lu(k,269) * lu(k,440) - lu(k,459) = lu(k,459) - lu(k,270) * lu(k,440) + lu(k,456) = lu(k,456) - lu(k,269) * lu(k,440) + lu(k,457) = lu(k,457) - lu(k,270) * lu(k,440) lu(k,461) = lu(k,461) - lu(k,271) * lu(k,440) lu(k,484) = lu(k,484) - lu(k,263) * lu(k,483) lu(k,488) = lu(k,488) - lu(k,264) * lu(k,483) @@ -1139,27 +1139,27 @@ subroutine lu_fac06( avec_len, lu ) lu(k,492) = lu(k,492) - lu(k,266) * lu(k,483) lu(k,493) = lu(k,493) - lu(k,267) * lu(k,483) lu(k,494) = lu(k,494) - lu(k,268) * lu(k,483) - lu(k,500) = lu(k,500) - lu(k,269) * lu(k,483) - lu(k,502) = lu(k,502) - lu(k,270) * lu(k,483) + lu(k,499) = lu(k,499) - lu(k,269) * lu(k,483) + lu(k,500) = lu(k,500) - lu(k,270) * lu(k,483) lu(k,504) = lu(k,504) - lu(k,271) * lu(k,483) - lu(k,646) = lu(k,646) - lu(k,263) * lu(k,645) - lu(k,650) = lu(k,650) - lu(k,264) * lu(k,645) - lu(k,652) = lu(k,652) - lu(k,265) * lu(k,645) - lu(k,654) = lu(k,654) - lu(k,266) * lu(k,645) - lu(k,655) = lu(k,655) - lu(k,267) * lu(k,645) - lu(k,656) = lu(k,656) - lu(k,268) * lu(k,645) - lu(k,662) = lu(k,662) - lu(k,269) * lu(k,645) - lu(k,664) = lu(k,664) - lu(k,270) * lu(k,645) - lu(k,666) = lu(k,666) - lu(k,271) * lu(k,645) - lu(k,696) = lu(k,696) - lu(k,263) * lu(k,695) - lu(k,700) = lu(k,700) - lu(k,264) * lu(k,695) - lu(k,702) = lu(k,702) - lu(k,265) * lu(k,695) - lu(k,704) = lu(k,704) - lu(k,266) * lu(k,695) - lu(k,705) = lu(k,705) - lu(k,267) * lu(k,695) - lu(k,706) = lu(k,706) - lu(k,268) * lu(k,695) - lu(k,712) = lu(k,712) - lu(k,269) * lu(k,695) - lu(k,714) = lu(k,714) - lu(k,270) * lu(k,695) - lu(k,716) = lu(k,716) - lu(k,271) * lu(k,695) + lu(k,612) = - lu(k,263) * lu(k,611) + lu(k,616) = lu(k,616) - lu(k,264) * lu(k,611) + lu(k,618) = - lu(k,265) * lu(k,611) + lu(k,620) = lu(k,620) - lu(k,266) * lu(k,611) + lu(k,621) = lu(k,621) - lu(k,267) * lu(k,611) + lu(k,622) = lu(k,622) - lu(k,268) * lu(k,611) + lu(k,627) = lu(k,627) - lu(k,269) * lu(k,611) + lu(k,628) = lu(k,628) - lu(k,270) * lu(k,611) + lu(k,632) = lu(k,632) - lu(k,271) * lu(k,611) + lu(k,649) = lu(k,649) - lu(k,263) * lu(k,648) + lu(k,653) = lu(k,653) - lu(k,264) * lu(k,648) + lu(k,655) = lu(k,655) - lu(k,265) * lu(k,648) + lu(k,657) = lu(k,657) - lu(k,266) * lu(k,648) + lu(k,658) = lu(k,658) - lu(k,267) * lu(k,648) + lu(k,659) = lu(k,659) - lu(k,268) * lu(k,648) + lu(k,664) = lu(k,664) - lu(k,269) * lu(k,648) + lu(k,665) = lu(k,665) - lu(k,270) * lu(k,648) + lu(k,669) = lu(k,669) - lu(k,271) * lu(k,648) end do end subroutine lu_fac06 subroutine lu_fac07( avec_len, lu ) @@ -1187,86 +1187,86 @@ subroutine lu_fac07( avec_len, lu ) lu(k,327) = lu(k,327) - lu(k,275) * lu(k,326) lu(k,330) = - lu(k,276) * lu(k,326) lu(k,331) = lu(k,331) - lu(k,277) * lu(k,326) - lu(k,338) = - lu(k,278) * lu(k,326) - lu(k,341) = lu(k,341) - lu(k,279) * lu(k,326) - lu(k,343) = lu(k,343) - lu(k,280) * lu(k,326) + lu(k,334) = lu(k,334) - lu(k,278) * lu(k,326) + lu(k,338) = - lu(k,279) * lu(k,326) + lu(k,340) = lu(k,340) - lu(k,280) * lu(k,326) lu(k,344) = lu(k,344) - lu(k,281) * lu(k,326) lu(k,366) = lu(k,366) - lu(k,275) * lu(k,364) lu(k,368) = - lu(k,276) * lu(k,364) lu(k,369) = lu(k,369) - lu(k,277) * lu(k,364) - lu(k,376) = - lu(k,278) * lu(k,364) - lu(k,379) = lu(k,379) - lu(k,279) * lu(k,364) - lu(k,381) = lu(k,381) - lu(k,280) * lu(k,364) + lu(k,372) = lu(k,372) - lu(k,278) * lu(k,364) + lu(k,376) = - lu(k,279) * lu(k,364) + lu(k,379) = lu(k,379) - lu(k,280) * lu(k,364) lu(k,383) = lu(k,383) - lu(k,281) * lu(k,364) lu(k,415) = lu(k,415) - lu(k,275) * lu(k,414) lu(k,418) = lu(k,418) - lu(k,276) * lu(k,414) lu(k,419) = lu(k,419) - lu(k,277) * lu(k,414) - lu(k,426) = lu(k,426) - lu(k,278) * lu(k,414) - lu(k,429) = lu(k,429) - lu(k,279) * lu(k,414) - lu(k,431) = lu(k,431) - lu(k,280) * lu(k,414) + lu(k,422) = lu(k,422) - lu(k,278) * lu(k,414) + lu(k,426) = lu(k,426) - lu(k,279) * lu(k,414) + lu(k,429) = lu(k,429) - lu(k,280) * lu(k,414) lu(k,433) = lu(k,433) - lu(k,281) * lu(k,414) - lu(k,443) = - lu(k,275) * lu(k,441) - lu(k,446) = lu(k,446) - lu(k,276) * lu(k,441) + lu(k,443) = lu(k,443) - lu(k,275) * lu(k,441) + lu(k,446) = - lu(k,276) * lu(k,441) lu(k,447) = lu(k,447) - lu(k,277) * lu(k,441) - lu(k,454) = - lu(k,278) * lu(k,441) - lu(k,457) = lu(k,457) - lu(k,279) * lu(k,441) - lu(k,459) = lu(k,459) - lu(k,280) * lu(k,441) + lu(k,450) = lu(k,450) - lu(k,278) * lu(k,441) + lu(k,454) = - lu(k,279) * lu(k,441) + lu(k,457) = lu(k,457) - lu(k,280) * lu(k,441) lu(k,461) = lu(k,461) - lu(k,281) * lu(k,441) lu(k,486) = lu(k,486) - lu(k,275) * lu(k,484) lu(k,489) = - lu(k,276) * lu(k,484) lu(k,490) = lu(k,490) - lu(k,277) * lu(k,484) - lu(k,497) = lu(k,497) - lu(k,278) * lu(k,484) - lu(k,500) = lu(k,500) - lu(k,279) * lu(k,484) - lu(k,502) = lu(k,502) - lu(k,280) * lu(k,484) + lu(k,493) = lu(k,493) - lu(k,278) * lu(k,484) + lu(k,497) = lu(k,497) - lu(k,279) * lu(k,484) + lu(k,500) = lu(k,500) - lu(k,280) * lu(k,484) lu(k,504) = lu(k,504) - lu(k,281) * lu(k,484) - lu(k,508) = lu(k,508) - lu(k,275) * lu(k,507) - lu(k,511) = - lu(k,276) * lu(k,507) - lu(k,512) = lu(k,512) - lu(k,277) * lu(k,507) - lu(k,519) = lu(k,519) - lu(k,278) * lu(k,507) - lu(k,522) = lu(k,522) - lu(k,279) * lu(k,507) - lu(k,524) = - lu(k,280) * lu(k,507) - lu(k,526) = lu(k,526) - lu(k,281) * lu(k,507) - lu(k,533) = lu(k,533) - lu(k,275) * lu(k,532) - lu(k,536) = lu(k,536) - lu(k,276) * lu(k,532) - lu(k,537) = lu(k,537) - lu(k,277) * lu(k,532) - lu(k,544) = lu(k,544) - lu(k,278) * lu(k,532) - lu(k,547) = lu(k,547) - lu(k,279) * lu(k,532) - lu(k,549) = - lu(k,280) * lu(k,532) - lu(k,551) = lu(k,551) - lu(k,281) * lu(k,532) - lu(k,555) = lu(k,555) - lu(k,275) * lu(k,554) - lu(k,557) = lu(k,557) - lu(k,276) * lu(k,554) - lu(k,558) = lu(k,558) - lu(k,277) * lu(k,554) - lu(k,565) = lu(k,565) - lu(k,278) * lu(k,554) - lu(k,568) = lu(k,568) - lu(k,279) * lu(k,554) - lu(k,570) = - lu(k,280) * lu(k,554) - lu(k,572) = lu(k,572) - lu(k,281) * lu(k,554) - lu(k,580) = - lu(k,275) * lu(k,578) - lu(k,583) = - lu(k,276) * lu(k,578) - lu(k,584) = lu(k,584) - lu(k,277) * lu(k,578) - lu(k,591) = - lu(k,278) * lu(k,578) - lu(k,594) = lu(k,594) - lu(k,279) * lu(k,578) - lu(k,596) = lu(k,596) - lu(k,280) * lu(k,578) - lu(k,598) = lu(k,598) - lu(k,281) * lu(k,578) - lu(k,648) = lu(k,648) - lu(k,275) * lu(k,646) - lu(k,651) = lu(k,651) - lu(k,276) * lu(k,646) - lu(k,652) = lu(k,652) - lu(k,277) * lu(k,646) - lu(k,659) = lu(k,659) - lu(k,278) * lu(k,646) - lu(k,662) = lu(k,662) - lu(k,279) * lu(k,646) - lu(k,664) = lu(k,664) - lu(k,280) * lu(k,646) - lu(k,666) = lu(k,666) - lu(k,281) * lu(k,646) - lu(k,698) = lu(k,698) - lu(k,275) * lu(k,696) - lu(k,701) = - lu(k,276) * lu(k,696) - lu(k,702) = lu(k,702) - lu(k,277) * lu(k,696) - lu(k,709) = - lu(k,278) * lu(k,696) - lu(k,712) = lu(k,712) - lu(k,279) * lu(k,696) - lu(k,714) = lu(k,714) - lu(k,280) * lu(k,696) - lu(k,716) = lu(k,716) - lu(k,281) * lu(k,696) + lu(k,542) = lu(k,542) - lu(k,275) * lu(k,541) + lu(k,545) = lu(k,545) - lu(k,276) * lu(k,541) + lu(k,546) = lu(k,546) - lu(k,277) * lu(k,541) + lu(k,549) = - lu(k,278) * lu(k,541) + lu(k,553) = lu(k,553) - lu(k,279) * lu(k,541) + lu(k,556) = lu(k,556) - lu(k,280) * lu(k,541) + lu(k,560) = lu(k,560) - lu(k,281) * lu(k,541) + lu(k,564) = lu(k,564) - lu(k,275) * lu(k,563) + lu(k,566) = lu(k,566) - lu(k,276) * lu(k,563) + lu(k,567) = lu(k,567) - lu(k,277) * lu(k,563) + lu(k,570) = - lu(k,278) * lu(k,563) + lu(k,574) = lu(k,574) - lu(k,279) * lu(k,563) + lu(k,577) = lu(k,577) - lu(k,280) * lu(k,563) + lu(k,581) = lu(k,581) - lu(k,281) * lu(k,563) + lu(k,614) = - lu(k,275) * lu(k,612) + lu(k,617) = lu(k,617) - lu(k,276) * lu(k,612) + lu(k,618) = lu(k,618) - lu(k,277) * lu(k,612) + lu(k,621) = lu(k,621) - lu(k,278) * lu(k,612) + lu(k,625) = - lu(k,279) * lu(k,612) + lu(k,628) = lu(k,628) - lu(k,280) * lu(k,612) + lu(k,632) = lu(k,632) - lu(k,281) * lu(k,612) + lu(k,651) = lu(k,651) - lu(k,275) * lu(k,649) + lu(k,654) = lu(k,654) - lu(k,276) * lu(k,649) + lu(k,655) = lu(k,655) - lu(k,277) * lu(k,649) + lu(k,658) = lu(k,658) - lu(k,278) * lu(k,649) + lu(k,662) = lu(k,662) - lu(k,279) * lu(k,649) + lu(k,665) = lu(k,665) - lu(k,280) * lu(k,649) + lu(k,669) = lu(k,669) - lu(k,281) * lu(k,649) + lu(k,699) = - lu(k,275) * lu(k,697) + lu(k,702) = - lu(k,276) * lu(k,697) + lu(k,703) = lu(k,703) - lu(k,277) * lu(k,697) + lu(k,706) = lu(k,706) - lu(k,278) * lu(k,697) + lu(k,710) = - lu(k,279) * lu(k,697) + lu(k,713) = lu(k,713) - lu(k,280) * lu(k,697) + lu(k,717) = lu(k,717) - lu(k,281) * lu(k,697) + lu(k,721) = lu(k,721) - lu(k,275) * lu(k,720) + lu(k,724) = - lu(k,276) * lu(k,720) + lu(k,725) = lu(k,725) - lu(k,277) * lu(k,720) + lu(k,728) = - lu(k,278) * lu(k,720) + lu(k,732) = lu(k,732) - lu(k,279) * lu(k,720) + lu(k,735) = lu(k,735) - lu(k,280) * lu(k,720) + lu(k,739) = lu(k,739) - lu(k,281) * lu(k,720) lu(k,747) = lu(k,747) - lu(k,275) * lu(k,745) lu(k,749) = lu(k,749) - lu(k,276) * lu(k,745) lu(k,750) = lu(k,750) - lu(k,277) * lu(k,745) - lu(k,757) = lu(k,757) - lu(k,278) * lu(k,745) - lu(k,760) = lu(k,760) - lu(k,279) * lu(k,745) - lu(k,762) = - lu(k,280) * lu(k,745) + lu(k,753) = - lu(k,278) * lu(k,745) + lu(k,757) = lu(k,757) - lu(k,279) * lu(k,745) + lu(k,760) = lu(k,760) - lu(k,280) * lu(k,745) lu(k,764) = lu(k,764) - lu(k,281) * lu(k,745) lu(k,285) = 1._r8 / lu(k,285) lu(k,286) = lu(k,286) * lu(k,285) @@ -1286,14 +1286,14 @@ subroutine lu_fac07( avec_len, lu ) lu(k,367) = - lu(k,287) * lu(k,365) lu(k,370) = lu(k,370) - lu(k,288) * lu(k,365) lu(k,371) = - lu(k,289) * lu(k,365) - lu(k,372) = - lu(k,290) * lu(k,365) + lu(k,372) = lu(k,372) - lu(k,290) * lu(k,365) lu(k,373) = lu(k,373) - lu(k,291) * lu(k,365) - lu(k,377) = - lu(k,292) * lu(k,365) - lu(k,378) = lu(k,378) - lu(k,293) * lu(k,365) - lu(k,379) = lu(k,379) - lu(k,294) * lu(k,365) - lu(k,380) = - lu(k,295) * lu(k,365) - lu(k,381) = lu(k,381) - lu(k,296) * lu(k,365) - lu(k,382) = lu(k,382) - lu(k,297) * lu(k,365) + lu(k,374) = lu(k,374) - lu(k,292) * lu(k,365) + lu(k,377) = lu(k,377) - lu(k,293) * lu(k,365) + lu(k,378) = - lu(k,294) * lu(k,365) + lu(k,379) = lu(k,379) - lu(k,295) * lu(k,365) + lu(k,380) = - lu(k,296) * lu(k,365) + lu(k,381) = - lu(k,297) * lu(k,365) lu(k,383) = lu(k,383) - lu(k,298) * lu(k,365) lu(k,443) = lu(k,443) - lu(k,286) * lu(k,442) lu(k,444) = lu(k,444) - lu(k,287) * lu(k,442) @@ -1301,12 +1301,12 @@ subroutine lu_fac07( avec_len, lu ) lu(k,449) = lu(k,449) - lu(k,289) * lu(k,442) lu(k,450) = lu(k,450) - lu(k,290) * lu(k,442) lu(k,451) = lu(k,451) - lu(k,291) * lu(k,442) - lu(k,455) = lu(k,455) - lu(k,292) * lu(k,442) - lu(k,456) = lu(k,456) - lu(k,293) * lu(k,442) - lu(k,457) = lu(k,457) - lu(k,294) * lu(k,442) - lu(k,458) = - lu(k,295) * lu(k,442) - lu(k,459) = lu(k,459) - lu(k,296) * lu(k,442) - lu(k,460) = lu(k,460) - lu(k,297) * lu(k,442) + lu(k,452) = lu(k,452) - lu(k,292) * lu(k,442) + lu(k,455) = lu(k,455) - lu(k,293) * lu(k,442) + lu(k,456) = lu(k,456) - lu(k,294) * lu(k,442) + lu(k,457) = lu(k,457) - lu(k,295) * lu(k,442) + lu(k,458) = lu(k,458) - lu(k,296) * lu(k,442) + lu(k,459) = lu(k,459) - lu(k,297) * lu(k,442) lu(k,461) = lu(k,461) - lu(k,298) * lu(k,442) lu(k,486) = lu(k,486) - lu(k,286) * lu(k,485) lu(k,487) = lu(k,487) - lu(k,287) * lu(k,485) @@ -1314,90 +1314,90 @@ subroutine lu_fac07( avec_len, lu ) lu(k,492) = lu(k,492) - lu(k,289) * lu(k,485) lu(k,493) = lu(k,493) - lu(k,290) * lu(k,485) lu(k,494) = lu(k,494) - lu(k,291) * lu(k,485) - lu(k,498) = lu(k,498) - lu(k,292) * lu(k,485) - lu(k,499) = lu(k,499) - lu(k,293) * lu(k,485) - lu(k,500) = lu(k,500) - lu(k,294) * lu(k,485) - lu(k,501) = lu(k,501) - lu(k,295) * lu(k,485) - lu(k,502) = lu(k,502) - lu(k,296) * lu(k,485) - lu(k,503) = lu(k,503) - lu(k,297) * lu(k,485) + lu(k,495) = lu(k,495) - lu(k,292) * lu(k,485) + lu(k,498) = lu(k,498) - lu(k,293) * lu(k,485) + lu(k,499) = lu(k,499) - lu(k,294) * lu(k,485) + lu(k,500) = lu(k,500) - lu(k,295) * lu(k,485) + lu(k,501) = lu(k,501) - lu(k,296) * lu(k,485) + lu(k,502) = lu(k,502) - lu(k,297) * lu(k,485) lu(k,504) = lu(k,504) - lu(k,298) * lu(k,485) - lu(k,580) = lu(k,580) - lu(k,286) * lu(k,579) - lu(k,581) = lu(k,581) - lu(k,287) * lu(k,579) - lu(k,585) = lu(k,585) - lu(k,288) * lu(k,579) - lu(k,586) = lu(k,586) - lu(k,289) * lu(k,579) - lu(k,587) = lu(k,587) - lu(k,290) * lu(k,579) - lu(k,588) = lu(k,588) - lu(k,291) * lu(k,579) - lu(k,592) = lu(k,592) - lu(k,292) * lu(k,579) - lu(k,593) = lu(k,593) - lu(k,293) * lu(k,579) - lu(k,594) = lu(k,594) - lu(k,294) * lu(k,579) - lu(k,595) = - lu(k,295) * lu(k,579) - lu(k,596) = lu(k,596) - lu(k,296) * lu(k,579) - lu(k,597) = lu(k,597) - lu(k,297) * lu(k,579) - lu(k,598) = lu(k,598) - lu(k,298) * lu(k,579) + lu(k,520) = lu(k,520) - lu(k,286) * lu(k,519) + lu(k,521) = - lu(k,287) * lu(k,519) + lu(k,522) = lu(k,522) - lu(k,288) * lu(k,519) + lu(k,523) = - lu(k,289) * lu(k,519) + lu(k,524) = lu(k,524) - lu(k,290) * lu(k,519) + lu(k,525) = lu(k,525) - lu(k,291) * lu(k,519) + lu(k,526) = lu(k,526) - lu(k,292) * lu(k,519) + lu(k,529) = lu(k,529) - lu(k,293) * lu(k,519) + lu(k,530) = - lu(k,294) * lu(k,519) + lu(k,531) = lu(k,531) - lu(k,295) * lu(k,519) + lu(k,532) = lu(k,532) - lu(k,296) * lu(k,519) + lu(k,533) = - lu(k,297) * lu(k,519) + lu(k,535) = lu(k,535) - lu(k,298) * lu(k,519) lu(k,614) = lu(k,614) - lu(k,286) * lu(k,613) - lu(k,615) = - lu(k,287) * lu(k,613) - lu(k,616) = lu(k,616) - lu(k,288) * lu(k,613) - lu(k,617) = - lu(k,289) * lu(k,613) - lu(k,618) = - lu(k,290) * lu(k,613) - lu(k,619) = lu(k,619) - lu(k,291) * lu(k,613) - lu(k,623) = - lu(k,292) * lu(k,613) - lu(k,624) = lu(k,624) - lu(k,293) * lu(k,613) - lu(k,625) = lu(k,625) - lu(k,294) * lu(k,613) - lu(k,626) = lu(k,626) - lu(k,295) * lu(k,613) - lu(k,627) = lu(k,627) - lu(k,296) * lu(k,613) - lu(k,628) = lu(k,628) - lu(k,297) * lu(k,613) - lu(k,629) = lu(k,629) - lu(k,298) * lu(k,613) - lu(k,648) = lu(k,648) - lu(k,286) * lu(k,647) - lu(k,649) = lu(k,649) - lu(k,287) * lu(k,647) - lu(k,653) = lu(k,653) - lu(k,288) * lu(k,647) - lu(k,654) = lu(k,654) - lu(k,289) * lu(k,647) - lu(k,655) = lu(k,655) - lu(k,290) * lu(k,647) - lu(k,656) = lu(k,656) - lu(k,291) * lu(k,647) - lu(k,660) = lu(k,660) - lu(k,292) * lu(k,647) - lu(k,661) = lu(k,661) - lu(k,293) * lu(k,647) - lu(k,662) = lu(k,662) - lu(k,294) * lu(k,647) - lu(k,663) = lu(k,663) - lu(k,295) * lu(k,647) - lu(k,664) = lu(k,664) - lu(k,296) * lu(k,647) - lu(k,665) = lu(k,665) - lu(k,297) * lu(k,647) - lu(k,666) = lu(k,666) - lu(k,298) * lu(k,647) - lu(k,672) = lu(k,672) - lu(k,286) * lu(k,671) - lu(k,673) = lu(k,673) - lu(k,287) * lu(k,671) - lu(k,675) = lu(k,675) - lu(k,288) * lu(k,671) - lu(k,676) = lu(k,676) - lu(k,289) * lu(k,671) - lu(k,677) = lu(k,677) - lu(k,290) * lu(k,671) - lu(k,678) = lu(k,678) - lu(k,291) * lu(k,671) - lu(k,682) = lu(k,682) - lu(k,292) * lu(k,671) - lu(k,683) = lu(k,683) - lu(k,293) * lu(k,671) - lu(k,684) = lu(k,684) - lu(k,294) * lu(k,671) - lu(k,685) = lu(k,685) - lu(k,295) * lu(k,671) - lu(k,686) = lu(k,686) - lu(k,296) * lu(k,671) - lu(k,687) = lu(k,687) - lu(k,297) * lu(k,671) - lu(k,688) = lu(k,688) - lu(k,298) * lu(k,671) - lu(k,698) = lu(k,698) - lu(k,286) * lu(k,697) - lu(k,699) = lu(k,699) - lu(k,287) * lu(k,697) - lu(k,703) = lu(k,703) - lu(k,288) * lu(k,697) - lu(k,704) = lu(k,704) - lu(k,289) * lu(k,697) - lu(k,705) = lu(k,705) - lu(k,290) * lu(k,697) - lu(k,706) = lu(k,706) - lu(k,291) * lu(k,697) - lu(k,710) = lu(k,710) - lu(k,292) * lu(k,697) - lu(k,711) = lu(k,711) - lu(k,293) * lu(k,697) - lu(k,712) = lu(k,712) - lu(k,294) * lu(k,697) - lu(k,713) = lu(k,713) - lu(k,295) * lu(k,697) - lu(k,714) = lu(k,714) - lu(k,296) * lu(k,697) - lu(k,715) = lu(k,715) - lu(k,297) * lu(k,697) - lu(k,716) = lu(k,716) - lu(k,298) * lu(k,697) + lu(k,615) = lu(k,615) - lu(k,287) * lu(k,613) + lu(k,619) = lu(k,619) - lu(k,288) * lu(k,613) + lu(k,620) = lu(k,620) - lu(k,289) * lu(k,613) + lu(k,621) = lu(k,621) - lu(k,290) * lu(k,613) + lu(k,622) = lu(k,622) - lu(k,291) * lu(k,613) + lu(k,623) = lu(k,623) - lu(k,292) * lu(k,613) + lu(k,626) = lu(k,626) - lu(k,293) * lu(k,613) + lu(k,627) = lu(k,627) - lu(k,294) * lu(k,613) + lu(k,628) = lu(k,628) - lu(k,295) * lu(k,613) + lu(k,629) = - lu(k,296) * lu(k,613) + lu(k,630) = lu(k,630) - lu(k,297) * lu(k,613) + lu(k,632) = lu(k,632) - lu(k,298) * lu(k,613) + lu(k,651) = lu(k,651) - lu(k,286) * lu(k,650) + lu(k,652) = lu(k,652) - lu(k,287) * lu(k,650) + lu(k,656) = lu(k,656) - lu(k,288) * lu(k,650) + lu(k,657) = lu(k,657) - lu(k,289) * lu(k,650) + lu(k,658) = lu(k,658) - lu(k,290) * lu(k,650) + lu(k,659) = lu(k,659) - lu(k,291) * lu(k,650) + lu(k,660) = lu(k,660) - lu(k,292) * lu(k,650) + lu(k,663) = lu(k,663) - lu(k,293) * lu(k,650) + lu(k,664) = lu(k,664) - lu(k,294) * lu(k,650) + lu(k,665) = lu(k,665) - lu(k,295) * lu(k,650) + lu(k,666) = lu(k,666) - lu(k,296) * lu(k,650) + lu(k,667) = lu(k,667) - lu(k,297) * lu(k,650) + lu(k,669) = lu(k,669) - lu(k,298) * lu(k,650) + lu(k,675) = lu(k,675) - lu(k,286) * lu(k,674) + lu(k,676) = lu(k,676) - lu(k,287) * lu(k,674) + lu(k,678) = lu(k,678) - lu(k,288) * lu(k,674) + lu(k,679) = lu(k,679) - lu(k,289) * lu(k,674) + lu(k,680) = lu(k,680) - lu(k,290) * lu(k,674) + lu(k,681) = lu(k,681) - lu(k,291) * lu(k,674) + lu(k,682) = lu(k,682) - lu(k,292) * lu(k,674) + lu(k,685) = lu(k,685) - lu(k,293) * lu(k,674) + lu(k,686) = lu(k,686) - lu(k,294) * lu(k,674) + lu(k,687) = lu(k,687) - lu(k,295) * lu(k,674) + lu(k,688) = lu(k,688) - lu(k,296) * lu(k,674) + lu(k,689) = lu(k,689) - lu(k,297) * lu(k,674) + lu(k,691) = lu(k,691) - lu(k,298) * lu(k,674) + lu(k,699) = lu(k,699) - lu(k,286) * lu(k,698) + lu(k,700) = lu(k,700) - lu(k,287) * lu(k,698) + lu(k,704) = lu(k,704) - lu(k,288) * lu(k,698) + lu(k,705) = lu(k,705) - lu(k,289) * lu(k,698) + lu(k,706) = lu(k,706) - lu(k,290) * lu(k,698) + lu(k,707) = lu(k,707) - lu(k,291) * lu(k,698) + lu(k,708) = lu(k,708) - lu(k,292) * lu(k,698) + lu(k,711) = lu(k,711) - lu(k,293) * lu(k,698) + lu(k,712) = lu(k,712) - lu(k,294) * lu(k,698) + lu(k,713) = lu(k,713) - lu(k,295) * lu(k,698) + lu(k,714) = - lu(k,296) * lu(k,698) + lu(k,715) = lu(k,715) - lu(k,297) * lu(k,698) + lu(k,717) = lu(k,717) - lu(k,298) * lu(k,698) lu(k,747) = lu(k,747) - lu(k,286) * lu(k,746) lu(k,748) = - lu(k,287) * lu(k,746) lu(k,751) = lu(k,751) - lu(k,288) * lu(k,746) lu(k,752) = - lu(k,289) * lu(k,746) - lu(k,753) = - lu(k,290) * lu(k,746) + lu(k,753) = lu(k,753) - lu(k,290) * lu(k,746) lu(k,754) = lu(k,754) - lu(k,291) * lu(k,746) - lu(k,758) = - lu(k,292) * lu(k,746) - lu(k,759) = - lu(k,293) * lu(k,746) - lu(k,760) = lu(k,760) - lu(k,294) * lu(k,746) - lu(k,761) = - lu(k,295) * lu(k,746) - lu(k,762) = lu(k,762) - lu(k,296) * lu(k,746) - lu(k,763) = - lu(k,297) * lu(k,746) + lu(k,755) = - lu(k,292) * lu(k,746) + lu(k,758) = - lu(k,293) * lu(k,746) + lu(k,759) = - lu(k,294) * lu(k,746) + lu(k,760) = lu(k,760) - lu(k,295) * lu(k,746) + lu(k,761) = - lu(k,296) * lu(k,746) + lu(k,762) = - lu(k,297) * lu(k,746) lu(k,764) = lu(k,764) - lu(k,298) * lu(k,746) end do end subroutine lu_fac07 @@ -1425,127 +1425,127 @@ subroutine lu_fac08( avec_len, lu ) lu(k,306) = lu(k,306) * lu(k,299) lu(k,311) = lu(k,311) - lu(k,300) * lu(k,309) lu(k,312) = lu(k,312) - lu(k,301) * lu(k,309) - lu(k,315) = - lu(k,302) * lu(k,309) - lu(k,317) = lu(k,317) - lu(k,303) * lu(k,309) - lu(k,318) = lu(k,318) - lu(k,304) * lu(k,309) - lu(k,319) = lu(k,319) - lu(k,305) * lu(k,309) + lu(k,313) = lu(k,313) - lu(k,302) * lu(k,309) + lu(k,315) = - lu(k,303) * lu(k,309) + lu(k,316) = lu(k,316) - lu(k,304) * lu(k,309) + lu(k,317) = lu(k,317) - lu(k,305) * lu(k,309) lu(k,320) = lu(k,320) - lu(k,306) * lu(k,309) lu(k,332) = - lu(k,300) * lu(k,327) lu(k,335) = lu(k,335) - lu(k,301) * lu(k,327) - lu(k,338) = lu(k,338) - lu(k,302) * lu(k,327) - lu(k,340) = - lu(k,303) * lu(k,327) - lu(k,341) = lu(k,341) - lu(k,304) * lu(k,327) - lu(k,342) = - lu(k,305) * lu(k,327) + lu(k,336) = - lu(k,302) * lu(k,327) + lu(k,338) = lu(k,338) - lu(k,303) * lu(k,327) + lu(k,340) = lu(k,340) - lu(k,304) * lu(k,327) + lu(k,341) = - lu(k,305) * lu(k,327) lu(k,344) = lu(k,344) - lu(k,306) * lu(k,327) lu(k,348) = lu(k,348) - lu(k,300) * lu(k,346) lu(k,351) = - lu(k,301) * lu(k,346) - lu(k,353) = - lu(k,302) * lu(k,346) - lu(k,354) = lu(k,354) - lu(k,303) * lu(k,346) - lu(k,355) = lu(k,355) - lu(k,304) * lu(k,346) - lu(k,356) = - lu(k,305) * lu(k,346) + lu(k,352) = lu(k,352) - lu(k,302) * lu(k,346) + lu(k,353) = - lu(k,303) * lu(k,346) + lu(k,356) = lu(k,356) - lu(k,304) * lu(k,346) + lu(k,357) = - lu(k,305) * lu(k,346) lu(k,359) = lu(k,359) - lu(k,306) * lu(k,346) lu(k,370) = lu(k,370) - lu(k,300) * lu(k,366) lu(k,373) = lu(k,373) - lu(k,301) * lu(k,366) - lu(k,376) = lu(k,376) - lu(k,302) * lu(k,366) - lu(k,378) = lu(k,378) - lu(k,303) * lu(k,366) + lu(k,374) = lu(k,374) - lu(k,302) * lu(k,366) + lu(k,376) = lu(k,376) - lu(k,303) * lu(k,366) lu(k,379) = lu(k,379) - lu(k,304) * lu(k,366) lu(k,380) = lu(k,380) - lu(k,305) * lu(k,366) lu(k,383) = lu(k,383) - lu(k,306) * lu(k,366) lu(k,395) = lu(k,395) - lu(k,300) * lu(k,390) lu(k,398) = lu(k,398) - lu(k,301) * lu(k,390) - lu(k,401) = lu(k,401) - lu(k,302) * lu(k,390) - lu(k,403) = lu(k,403) - lu(k,303) * lu(k,390) + lu(k,399) = lu(k,399) - lu(k,302) * lu(k,390) + lu(k,401) = lu(k,401) - lu(k,303) * lu(k,390) lu(k,404) = lu(k,404) - lu(k,304) * lu(k,390) lu(k,405) = lu(k,405) - lu(k,305) * lu(k,390) lu(k,408) = lu(k,408) - lu(k,306) * lu(k,390) lu(k,420) = lu(k,420) - lu(k,300) * lu(k,415) lu(k,423) = lu(k,423) - lu(k,301) * lu(k,415) - lu(k,426) = lu(k,426) - lu(k,302) * lu(k,415) - lu(k,428) = lu(k,428) - lu(k,303) * lu(k,415) + lu(k,424) = lu(k,424) - lu(k,302) * lu(k,415) + lu(k,426) = lu(k,426) - lu(k,303) * lu(k,415) lu(k,429) = lu(k,429) - lu(k,304) * lu(k,415) lu(k,430) = lu(k,430) - lu(k,305) * lu(k,415) lu(k,433) = lu(k,433) - lu(k,306) * lu(k,415) lu(k,448) = lu(k,448) - lu(k,300) * lu(k,443) lu(k,451) = lu(k,451) - lu(k,301) * lu(k,443) - lu(k,454) = lu(k,454) - lu(k,302) * lu(k,443) - lu(k,456) = lu(k,456) - lu(k,303) * lu(k,443) + lu(k,452) = lu(k,452) - lu(k,302) * lu(k,443) + lu(k,454) = lu(k,454) - lu(k,303) * lu(k,443) lu(k,457) = lu(k,457) - lu(k,304) * lu(k,443) lu(k,458) = lu(k,458) - lu(k,305) * lu(k,443) lu(k,461) = lu(k,461) - lu(k,306) * lu(k,443) lu(k,491) = lu(k,491) - lu(k,300) * lu(k,486) lu(k,494) = lu(k,494) - lu(k,301) * lu(k,486) - lu(k,497) = lu(k,497) - lu(k,302) * lu(k,486) - lu(k,499) = lu(k,499) - lu(k,303) * lu(k,486) + lu(k,495) = lu(k,495) - lu(k,302) * lu(k,486) + lu(k,497) = lu(k,497) - lu(k,303) * lu(k,486) lu(k,500) = lu(k,500) - lu(k,304) * lu(k,486) lu(k,501) = lu(k,501) - lu(k,305) * lu(k,486) lu(k,504) = lu(k,504) - lu(k,306) * lu(k,486) - lu(k,513) = lu(k,513) - lu(k,300) * lu(k,508) - lu(k,516) = lu(k,516) - lu(k,301) * lu(k,508) - lu(k,519) = lu(k,519) - lu(k,302) * lu(k,508) - lu(k,521) = - lu(k,303) * lu(k,508) - lu(k,522) = lu(k,522) - lu(k,304) * lu(k,508) - lu(k,523) = - lu(k,305) * lu(k,508) - lu(k,526) = lu(k,526) - lu(k,306) * lu(k,508) - lu(k,538) = lu(k,538) - lu(k,300) * lu(k,533) - lu(k,541) = lu(k,541) - lu(k,301) * lu(k,533) - lu(k,544) = lu(k,544) - lu(k,302) * lu(k,533) - lu(k,546) = lu(k,546) - lu(k,303) * lu(k,533) - lu(k,547) = lu(k,547) - lu(k,304) * lu(k,533) - lu(k,548) = lu(k,548) - lu(k,305) * lu(k,533) - lu(k,551) = lu(k,551) - lu(k,306) * lu(k,533) - lu(k,559) = - lu(k,300) * lu(k,555) - lu(k,562) = lu(k,562) - lu(k,301) * lu(k,555) - lu(k,565) = lu(k,565) - lu(k,302) * lu(k,555) - lu(k,567) = - lu(k,303) * lu(k,555) - lu(k,568) = lu(k,568) - lu(k,304) * lu(k,555) - lu(k,569) = - lu(k,305) * lu(k,555) - lu(k,572) = lu(k,572) - lu(k,306) * lu(k,555) - lu(k,585) = lu(k,585) - lu(k,300) * lu(k,580) - lu(k,588) = lu(k,588) - lu(k,301) * lu(k,580) - lu(k,591) = lu(k,591) - lu(k,302) * lu(k,580) - lu(k,593) = lu(k,593) - lu(k,303) * lu(k,580) - lu(k,594) = lu(k,594) - lu(k,304) * lu(k,580) - lu(k,595) = lu(k,595) - lu(k,305) * lu(k,580) - lu(k,598) = lu(k,598) - lu(k,306) * lu(k,580) - lu(k,616) = lu(k,616) - lu(k,300) * lu(k,614) - lu(k,619) = lu(k,619) - lu(k,301) * lu(k,614) - lu(k,622) = - lu(k,302) * lu(k,614) - lu(k,624) = lu(k,624) - lu(k,303) * lu(k,614) - lu(k,625) = lu(k,625) - lu(k,304) * lu(k,614) - lu(k,626) = lu(k,626) - lu(k,305) * lu(k,614) - lu(k,629) = lu(k,629) - lu(k,306) * lu(k,614) - lu(k,653) = lu(k,653) - lu(k,300) * lu(k,648) - lu(k,656) = lu(k,656) - lu(k,301) * lu(k,648) - lu(k,659) = lu(k,659) - lu(k,302) * lu(k,648) - lu(k,661) = lu(k,661) - lu(k,303) * lu(k,648) - lu(k,662) = lu(k,662) - lu(k,304) * lu(k,648) - lu(k,663) = lu(k,663) - lu(k,305) * lu(k,648) - lu(k,666) = lu(k,666) - lu(k,306) * lu(k,648) - lu(k,675) = lu(k,675) - lu(k,300) * lu(k,672) - lu(k,678) = lu(k,678) - lu(k,301) * lu(k,672) - lu(k,681) = - lu(k,302) * lu(k,672) - lu(k,683) = lu(k,683) - lu(k,303) * lu(k,672) - lu(k,684) = lu(k,684) - lu(k,304) * lu(k,672) - lu(k,685) = lu(k,685) - lu(k,305) * lu(k,672) - lu(k,688) = lu(k,688) - lu(k,306) * lu(k,672) - lu(k,703) = lu(k,703) - lu(k,300) * lu(k,698) - lu(k,706) = lu(k,706) - lu(k,301) * lu(k,698) - lu(k,709) = lu(k,709) - lu(k,302) * lu(k,698) - lu(k,711) = lu(k,711) - lu(k,303) * lu(k,698) - lu(k,712) = lu(k,712) - lu(k,304) * lu(k,698) - lu(k,713) = lu(k,713) - lu(k,305) * lu(k,698) - lu(k,716) = lu(k,716) - lu(k,306) * lu(k,698) - lu(k,726) = lu(k,726) - lu(k,300) * lu(k,722) - lu(k,729) = lu(k,729) - lu(k,301) * lu(k,722) - lu(k,732) = - lu(k,302) * lu(k,722) - lu(k,734) = lu(k,734) - lu(k,303) * lu(k,722) - lu(k,735) = lu(k,735) - lu(k,304) * lu(k,722) - lu(k,736) = lu(k,736) - lu(k,305) * lu(k,722) - lu(k,739) = - lu(k,306) * lu(k,722) + lu(k,522) = lu(k,522) - lu(k,300) * lu(k,520) + lu(k,525) = lu(k,525) - lu(k,301) * lu(k,520) + lu(k,526) = lu(k,526) - lu(k,302) * lu(k,520) + lu(k,528) = - lu(k,303) * lu(k,520) + lu(k,531) = lu(k,531) - lu(k,304) * lu(k,520) + lu(k,532) = lu(k,532) - lu(k,305) * lu(k,520) + lu(k,535) = lu(k,535) - lu(k,306) * lu(k,520) + lu(k,547) = lu(k,547) - lu(k,300) * lu(k,542) + lu(k,550) = lu(k,550) - lu(k,301) * lu(k,542) + lu(k,551) = lu(k,551) - lu(k,302) * lu(k,542) + lu(k,553) = lu(k,553) - lu(k,303) * lu(k,542) + lu(k,556) = lu(k,556) - lu(k,304) * lu(k,542) + lu(k,557) = lu(k,557) - lu(k,305) * lu(k,542) + lu(k,560) = lu(k,560) - lu(k,306) * lu(k,542) + lu(k,568) = - lu(k,300) * lu(k,564) + lu(k,571) = lu(k,571) - lu(k,301) * lu(k,564) + lu(k,572) = - lu(k,302) * lu(k,564) + lu(k,574) = lu(k,574) - lu(k,303) * lu(k,564) + lu(k,577) = lu(k,577) - lu(k,304) * lu(k,564) + lu(k,578) = - lu(k,305) * lu(k,564) + lu(k,581) = lu(k,581) - lu(k,306) * lu(k,564) + lu(k,591) = lu(k,591) - lu(k,300) * lu(k,587) + lu(k,594) = lu(k,594) - lu(k,301) * lu(k,587) + lu(k,595) = lu(k,595) - lu(k,302) * lu(k,587) + lu(k,597) = - lu(k,303) * lu(k,587) + lu(k,600) = lu(k,600) - lu(k,304) * lu(k,587) + lu(k,601) = lu(k,601) - lu(k,305) * lu(k,587) + lu(k,604) = - lu(k,306) * lu(k,587) + lu(k,619) = lu(k,619) - lu(k,300) * lu(k,614) + lu(k,622) = lu(k,622) - lu(k,301) * lu(k,614) + lu(k,623) = lu(k,623) - lu(k,302) * lu(k,614) + lu(k,625) = lu(k,625) - lu(k,303) * lu(k,614) + lu(k,628) = lu(k,628) - lu(k,304) * lu(k,614) + lu(k,629) = lu(k,629) - lu(k,305) * lu(k,614) + lu(k,632) = lu(k,632) - lu(k,306) * lu(k,614) + lu(k,656) = lu(k,656) - lu(k,300) * lu(k,651) + lu(k,659) = lu(k,659) - lu(k,301) * lu(k,651) + lu(k,660) = lu(k,660) - lu(k,302) * lu(k,651) + lu(k,662) = lu(k,662) - lu(k,303) * lu(k,651) + lu(k,665) = lu(k,665) - lu(k,304) * lu(k,651) + lu(k,666) = lu(k,666) - lu(k,305) * lu(k,651) + lu(k,669) = lu(k,669) - lu(k,306) * lu(k,651) + lu(k,678) = lu(k,678) - lu(k,300) * lu(k,675) + lu(k,681) = lu(k,681) - lu(k,301) * lu(k,675) + lu(k,682) = lu(k,682) - lu(k,302) * lu(k,675) + lu(k,684) = - lu(k,303) * lu(k,675) + lu(k,687) = lu(k,687) - lu(k,304) * lu(k,675) + lu(k,688) = lu(k,688) - lu(k,305) * lu(k,675) + lu(k,691) = lu(k,691) - lu(k,306) * lu(k,675) + lu(k,704) = lu(k,704) - lu(k,300) * lu(k,699) + lu(k,707) = lu(k,707) - lu(k,301) * lu(k,699) + lu(k,708) = lu(k,708) - lu(k,302) * lu(k,699) + lu(k,710) = lu(k,710) - lu(k,303) * lu(k,699) + lu(k,713) = lu(k,713) - lu(k,304) * lu(k,699) + lu(k,714) = lu(k,714) - lu(k,305) * lu(k,699) + lu(k,717) = lu(k,717) - lu(k,306) * lu(k,699) + lu(k,726) = lu(k,726) - lu(k,300) * lu(k,721) + lu(k,729) = lu(k,729) - lu(k,301) * lu(k,721) + lu(k,730) = - lu(k,302) * lu(k,721) + lu(k,732) = lu(k,732) - lu(k,303) * lu(k,721) + lu(k,735) = lu(k,735) - lu(k,304) * lu(k,721) + lu(k,736) = - lu(k,305) * lu(k,721) + lu(k,739) = lu(k,739) - lu(k,306) * lu(k,721) lu(k,751) = lu(k,751) - lu(k,300) * lu(k,747) lu(k,754) = lu(k,754) - lu(k,301) * lu(k,747) - lu(k,757) = lu(k,757) - lu(k,302) * lu(k,747) - lu(k,759) = lu(k,759) - lu(k,303) * lu(k,747) + lu(k,755) = lu(k,755) - lu(k,302) * lu(k,747) + lu(k,757) = lu(k,757) - lu(k,303) * lu(k,747) lu(k,760) = lu(k,760) - lu(k,304) * lu(k,747) lu(k,761) = lu(k,761) - lu(k,305) * lu(k,747) lu(k,764) = lu(k,764) - lu(k,306) * lu(k,747) @@ -1562,153 +1562,153 @@ subroutine lu_fac08( avec_len, lu ) lu(k,320) = lu(k,320) * lu(k,310) lu(k,332) = lu(k,332) - lu(k,311) * lu(k,328) lu(k,335) = lu(k,335) - lu(k,312) * lu(k,328) - lu(k,336) = - lu(k,313) * lu(k,328) + lu(k,336) = lu(k,336) - lu(k,313) * lu(k,328) lu(k,337) = lu(k,337) - lu(k,314) * lu(k,328) lu(k,338) = lu(k,338) - lu(k,315) * lu(k,328) - lu(k,339) = lu(k,339) - lu(k,316) * lu(k,328) - lu(k,340) = lu(k,340) - lu(k,317) * lu(k,328) - lu(k,341) = lu(k,341) - lu(k,318) * lu(k,328) - lu(k,342) = lu(k,342) - lu(k,319) * lu(k,328) + lu(k,340) = lu(k,340) - lu(k,316) * lu(k,328) + lu(k,341) = lu(k,341) - lu(k,317) * lu(k,328) + lu(k,342) = lu(k,342) - lu(k,318) * lu(k,328) + lu(k,343) = - lu(k,319) * lu(k,328) lu(k,344) = lu(k,344) - lu(k,320) * lu(k,328) lu(k,370) = lu(k,370) - lu(k,311) * lu(k,367) lu(k,373) = lu(k,373) - lu(k,312) * lu(k,367) lu(k,374) = lu(k,374) - lu(k,313) * lu(k,367) lu(k,375) = - lu(k,314) * lu(k,367) lu(k,376) = lu(k,376) - lu(k,315) * lu(k,367) - lu(k,377) = lu(k,377) - lu(k,316) * lu(k,367) - lu(k,378) = lu(k,378) - lu(k,317) * lu(k,367) - lu(k,379) = lu(k,379) - lu(k,318) * lu(k,367) - lu(k,380) = lu(k,380) - lu(k,319) * lu(k,367) + lu(k,379) = lu(k,379) - lu(k,316) * lu(k,367) + lu(k,380) = lu(k,380) - lu(k,317) * lu(k,367) + lu(k,381) = lu(k,381) - lu(k,318) * lu(k,367) + lu(k,382) = lu(k,382) - lu(k,319) * lu(k,367) lu(k,383) = lu(k,383) - lu(k,320) * lu(k,367) lu(k,395) = lu(k,395) - lu(k,311) * lu(k,391) lu(k,398) = lu(k,398) - lu(k,312) * lu(k,391) lu(k,399) = lu(k,399) - lu(k,313) * lu(k,391) lu(k,400) = lu(k,400) - lu(k,314) * lu(k,391) lu(k,401) = lu(k,401) - lu(k,315) * lu(k,391) - lu(k,402) = lu(k,402) - lu(k,316) * lu(k,391) - lu(k,403) = lu(k,403) - lu(k,317) * lu(k,391) - lu(k,404) = lu(k,404) - lu(k,318) * lu(k,391) - lu(k,405) = lu(k,405) - lu(k,319) * lu(k,391) + lu(k,404) = lu(k,404) - lu(k,316) * lu(k,391) + lu(k,405) = lu(k,405) - lu(k,317) * lu(k,391) + lu(k,406) = lu(k,406) - lu(k,318) * lu(k,391) + lu(k,407) = lu(k,407) - lu(k,319) * lu(k,391) lu(k,408) = lu(k,408) - lu(k,320) * lu(k,391) lu(k,420) = lu(k,420) - lu(k,311) * lu(k,416) lu(k,423) = lu(k,423) - lu(k,312) * lu(k,416) lu(k,424) = lu(k,424) - lu(k,313) * lu(k,416) lu(k,425) = - lu(k,314) * lu(k,416) lu(k,426) = lu(k,426) - lu(k,315) * lu(k,416) - lu(k,427) = - lu(k,316) * lu(k,416) - lu(k,428) = lu(k,428) - lu(k,317) * lu(k,416) - lu(k,429) = lu(k,429) - lu(k,318) * lu(k,416) - lu(k,430) = lu(k,430) - lu(k,319) * lu(k,416) + lu(k,429) = lu(k,429) - lu(k,316) * lu(k,416) + lu(k,430) = lu(k,430) - lu(k,317) * lu(k,416) + lu(k,431) = - lu(k,318) * lu(k,416) + lu(k,432) = lu(k,432) - lu(k,319) * lu(k,416) lu(k,433) = lu(k,433) - lu(k,320) * lu(k,416) lu(k,448) = lu(k,448) - lu(k,311) * lu(k,444) lu(k,451) = lu(k,451) - lu(k,312) * lu(k,444) lu(k,452) = lu(k,452) - lu(k,313) * lu(k,444) - lu(k,453) = - lu(k,314) * lu(k,444) + lu(k,453) = lu(k,453) - lu(k,314) * lu(k,444) lu(k,454) = lu(k,454) - lu(k,315) * lu(k,444) - lu(k,455) = lu(k,455) - lu(k,316) * lu(k,444) - lu(k,456) = lu(k,456) - lu(k,317) * lu(k,444) - lu(k,457) = lu(k,457) - lu(k,318) * lu(k,444) - lu(k,458) = lu(k,458) - lu(k,319) * lu(k,444) + lu(k,457) = lu(k,457) - lu(k,316) * lu(k,444) + lu(k,458) = lu(k,458) - lu(k,317) * lu(k,444) + lu(k,459) = lu(k,459) - lu(k,318) * lu(k,444) + lu(k,460) = - lu(k,319) * lu(k,444) lu(k,461) = lu(k,461) - lu(k,320) * lu(k,444) lu(k,491) = lu(k,491) - lu(k,311) * lu(k,487) lu(k,494) = lu(k,494) - lu(k,312) * lu(k,487) lu(k,495) = lu(k,495) - lu(k,313) * lu(k,487) lu(k,496) = lu(k,496) - lu(k,314) * lu(k,487) lu(k,497) = lu(k,497) - lu(k,315) * lu(k,487) - lu(k,498) = lu(k,498) - lu(k,316) * lu(k,487) - lu(k,499) = lu(k,499) - lu(k,317) * lu(k,487) - lu(k,500) = lu(k,500) - lu(k,318) * lu(k,487) - lu(k,501) = lu(k,501) - lu(k,319) * lu(k,487) + lu(k,500) = lu(k,500) - lu(k,316) * lu(k,487) + lu(k,501) = lu(k,501) - lu(k,317) * lu(k,487) + lu(k,502) = lu(k,502) - lu(k,318) * lu(k,487) + lu(k,503) = lu(k,503) - lu(k,319) * lu(k,487) lu(k,504) = lu(k,504) - lu(k,320) * lu(k,487) - lu(k,513) = lu(k,513) - lu(k,311) * lu(k,509) - lu(k,516) = lu(k,516) - lu(k,312) * lu(k,509) - lu(k,517) = lu(k,517) - lu(k,313) * lu(k,509) - lu(k,518) = lu(k,518) - lu(k,314) * lu(k,509) - lu(k,519) = lu(k,519) - lu(k,315) * lu(k,509) - lu(k,520) = lu(k,520) - lu(k,316) * lu(k,509) - lu(k,521) = lu(k,521) - lu(k,317) * lu(k,509) - lu(k,522) = lu(k,522) - lu(k,318) * lu(k,509) - lu(k,523) = lu(k,523) - lu(k,319) * lu(k,509) - lu(k,526) = lu(k,526) - lu(k,320) * lu(k,509) - lu(k,538) = lu(k,538) - lu(k,311) * lu(k,534) - lu(k,541) = lu(k,541) - lu(k,312) * lu(k,534) - lu(k,542) = lu(k,542) - lu(k,313) * lu(k,534) - lu(k,543) = lu(k,543) - lu(k,314) * lu(k,534) - lu(k,544) = lu(k,544) - lu(k,315) * lu(k,534) - lu(k,545) = lu(k,545) - lu(k,316) * lu(k,534) - lu(k,546) = lu(k,546) - lu(k,317) * lu(k,534) - lu(k,547) = lu(k,547) - lu(k,318) * lu(k,534) - lu(k,548) = lu(k,548) - lu(k,319) * lu(k,534) - lu(k,551) = lu(k,551) - lu(k,320) * lu(k,534) - lu(k,585) = lu(k,585) - lu(k,311) * lu(k,581) - lu(k,588) = lu(k,588) - lu(k,312) * lu(k,581) - lu(k,589) = - lu(k,313) * lu(k,581) - lu(k,590) = - lu(k,314) * lu(k,581) - lu(k,591) = lu(k,591) - lu(k,315) * lu(k,581) - lu(k,592) = lu(k,592) - lu(k,316) * lu(k,581) - lu(k,593) = lu(k,593) - lu(k,317) * lu(k,581) - lu(k,594) = lu(k,594) - lu(k,318) * lu(k,581) - lu(k,595) = lu(k,595) - lu(k,319) * lu(k,581) - lu(k,598) = lu(k,598) - lu(k,320) * lu(k,581) - lu(k,616) = lu(k,616) - lu(k,311) * lu(k,615) - lu(k,619) = lu(k,619) - lu(k,312) * lu(k,615) - lu(k,620) = - lu(k,313) * lu(k,615) - lu(k,621) = lu(k,621) - lu(k,314) * lu(k,615) - lu(k,622) = lu(k,622) - lu(k,315) * lu(k,615) - lu(k,623) = lu(k,623) - lu(k,316) * lu(k,615) - lu(k,624) = lu(k,624) - lu(k,317) * lu(k,615) - lu(k,625) = lu(k,625) - lu(k,318) * lu(k,615) - lu(k,626) = lu(k,626) - lu(k,319) * lu(k,615) - lu(k,629) = lu(k,629) - lu(k,320) * lu(k,615) - lu(k,653) = lu(k,653) - lu(k,311) * lu(k,649) - lu(k,656) = lu(k,656) - lu(k,312) * lu(k,649) - lu(k,657) = lu(k,657) - lu(k,313) * lu(k,649) - lu(k,658) = lu(k,658) - lu(k,314) * lu(k,649) - lu(k,659) = lu(k,659) - lu(k,315) * lu(k,649) - lu(k,660) = lu(k,660) - lu(k,316) * lu(k,649) - lu(k,661) = lu(k,661) - lu(k,317) * lu(k,649) - lu(k,662) = lu(k,662) - lu(k,318) * lu(k,649) - lu(k,663) = lu(k,663) - lu(k,319) * lu(k,649) - lu(k,666) = lu(k,666) - lu(k,320) * lu(k,649) - lu(k,675) = lu(k,675) - lu(k,311) * lu(k,673) - lu(k,678) = lu(k,678) - lu(k,312) * lu(k,673) - lu(k,679) = - lu(k,313) * lu(k,673) - lu(k,680) = lu(k,680) - lu(k,314) * lu(k,673) - lu(k,681) = lu(k,681) - lu(k,315) * lu(k,673) - lu(k,682) = lu(k,682) - lu(k,316) * lu(k,673) - lu(k,683) = lu(k,683) - lu(k,317) * lu(k,673) - lu(k,684) = lu(k,684) - lu(k,318) * lu(k,673) - lu(k,685) = lu(k,685) - lu(k,319) * lu(k,673) - lu(k,688) = lu(k,688) - lu(k,320) * lu(k,673) - lu(k,703) = lu(k,703) - lu(k,311) * lu(k,699) - lu(k,706) = lu(k,706) - lu(k,312) * lu(k,699) - lu(k,707) = - lu(k,313) * lu(k,699) - lu(k,708) = lu(k,708) - lu(k,314) * lu(k,699) - lu(k,709) = lu(k,709) - lu(k,315) * lu(k,699) - lu(k,710) = lu(k,710) - lu(k,316) * lu(k,699) - lu(k,711) = lu(k,711) - lu(k,317) * lu(k,699) - lu(k,712) = lu(k,712) - lu(k,318) * lu(k,699) - lu(k,713) = lu(k,713) - lu(k,319) * lu(k,699) - lu(k,716) = lu(k,716) - lu(k,320) * lu(k,699) - lu(k,726) = lu(k,726) - lu(k,311) * lu(k,723) - lu(k,729) = lu(k,729) - lu(k,312) * lu(k,723) - lu(k,730) = lu(k,730) - lu(k,313) * lu(k,723) - lu(k,731) = lu(k,731) - lu(k,314) * lu(k,723) - lu(k,732) = lu(k,732) - lu(k,315) * lu(k,723) - lu(k,733) = lu(k,733) - lu(k,316) * lu(k,723) - lu(k,734) = lu(k,734) - lu(k,317) * lu(k,723) - lu(k,735) = lu(k,735) - lu(k,318) * lu(k,723) - lu(k,736) = lu(k,736) - lu(k,319) * lu(k,723) - lu(k,739) = lu(k,739) - lu(k,320) * lu(k,723) + lu(k,522) = lu(k,522) - lu(k,311) * lu(k,521) + lu(k,525) = lu(k,525) - lu(k,312) * lu(k,521) + lu(k,526) = lu(k,526) - lu(k,313) * lu(k,521) + lu(k,527) = lu(k,527) - lu(k,314) * lu(k,521) + lu(k,528) = lu(k,528) - lu(k,315) * lu(k,521) + lu(k,531) = lu(k,531) - lu(k,316) * lu(k,521) + lu(k,532) = lu(k,532) - lu(k,317) * lu(k,521) + lu(k,533) = lu(k,533) - lu(k,318) * lu(k,521) + lu(k,534) = - lu(k,319) * lu(k,521) + lu(k,535) = lu(k,535) - lu(k,320) * lu(k,521) + lu(k,547) = lu(k,547) - lu(k,311) * lu(k,543) + lu(k,550) = lu(k,550) - lu(k,312) * lu(k,543) + lu(k,551) = lu(k,551) - lu(k,313) * lu(k,543) + lu(k,552) = lu(k,552) - lu(k,314) * lu(k,543) + lu(k,553) = lu(k,553) - lu(k,315) * lu(k,543) + lu(k,556) = lu(k,556) - lu(k,316) * lu(k,543) + lu(k,557) = lu(k,557) - lu(k,317) * lu(k,543) + lu(k,558) = lu(k,558) - lu(k,318) * lu(k,543) + lu(k,559) = lu(k,559) - lu(k,319) * lu(k,543) + lu(k,560) = lu(k,560) - lu(k,320) * lu(k,543) + lu(k,591) = lu(k,591) - lu(k,311) * lu(k,588) + lu(k,594) = lu(k,594) - lu(k,312) * lu(k,588) + lu(k,595) = lu(k,595) - lu(k,313) * lu(k,588) + lu(k,596) = lu(k,596) - lu(k,314) * lu(k,588) + lu(k,597) = lu(k,597) - lu(k,315) * lu(k,588) + lu(k,600) = lu(k,600) - lu(k,316) * lu(k,588) + lu(k,601) = lu(k,601) - lu(k,317) * lu(k,588) + lu(k,602) = lu(k,602) - lu(k,318) * lu(k,588) + lu(k,603) = lu(k,603) - lu(k,319) * lu(k,588) + lu(k,604) = lu(k,604) - lu(k,320) * lu(k,588) + lu(k,619) = lu(k,619) - lu(k,311) * lu(k,615) + lu(k,622) = lu(k,622) - lu(k,312) * lu(k,615) + lu(k,623) = lu(k,623) - lu(k,313) * lu(k,615) + lu(k,624) = - lu(k,314) * lu(k,615) + lu(k,625) = lu(k,625) - lu(k,315) * lu(k,615) + lu(k,628) = lu(k,628) - lu(k,316) * lu(k,615) + lu(k,629) = lu(k,629) - lu(k,317) * lu(k,615) + lu(k,630) = lu(k,630) - lu(k,318) * lu(k,615) + lu(k,631) = lu(k,631) - lu(k,319) * lu(k,615) + lu(k,632) = lu(k,632) - lu(k,320) * lu(k,615) + lu(k,656) = lu(k,656) - lu(k,311) * lu(k,652) + lu(k,659) = lu(k,659) - lu(k,312) * lu(k,652) + lu(k,660) = lu(k,660) - lu(k,313) * lu(k,652) + lu(k,661) = lu(k,661) - lu(k,314) * lu(k,652) + lu(k,662) = lu(k,662) - lu(k,315) * lu(k,652) + lu(k,665) = lu(k,665) - lu(k,316) * lu(k,652) + lu(k,666) = lu(k,666) - lu(k,317) * lu(k,652) + lu(k,667) = lu(k,667) - lu(k,318) * lu(k,652) + lu(k,668) = lu(k,668) - lu(k,319) * lu(k,652) + lu(k,669) = lu(k,669) - lu(k,320) * lu(k,652) + lu(k,678) = lu(k,678) - lu(k,311) * lu(k,676) + lu(k,681) = lu(k,681) - lu(k,312) * lu(k,676) + lu(k,682) = lu(k,682) - lu(k,313) * lu(k,676) + lu(k,683) = lu(k,683) - lu(k,314) * lu(k,676) + lu(k,684) = lu(k,684) - lu(k,315) * lu(k,676) + lu(k,687) = lu(k,687) - lu(k,316) * lu(k,676) + lu(k,688) = lu(k,688) - lu(k,317) * lu(k,676) + lu(k,689) = lu(k,689) - lu(k,318) * lu(k,676) + lu(k,690) = - lu(k,319) * lu(k,676) + lu(k,691) = lu(k,691) - lu(k,320) * lu(k,676) + lu(k,704) = lu(k,704) - lu(k,311) * lu(k,700) + lu(k,707) = lu(k,707) - lu(k,312) * lu(k,700) + lu(k,708) = lu(k,708) - lu(k,313) * lu(k,700) + lu(k,709) = - lu(k,314) * lu(k,700) + lu(k,710) = lu(k,710) - lu(k,315) * lu(k,700) + lu(k,713) = lu(k,713) - lu(k,316) * lu(k,700) + lu(k,714) = lu(k,714) - lu(k,317) * lu(k,700) + lu(k,715) = lu(k,715) - lu(k,318) * lu(k,700) + lu(k,716) = - lu(k,319) * lu(k,700) + lu(k,717) = lu(k,717) - lu(k,320) * lu(k,700) + lu(k,726) = lu(k,726) - lu(k,311) * lu(k,722) + lu(k,729) = lu(k,729) - lu(k,312) * lu(k,722) + lu(k,730) = lu(k,730) - lu(k,313) * lu(k,722) + lu(k,731) = lu(k,731) - lu(k,314) * lu(k,722) + lu(k,732) = lu(k,732) - lu(k,315) * lu(k,722) + lu(k,735) = lu(k,735) - lu(k,316) * lu(k,722) + lu(k,736) = lu(k,736) - lu(k,317) * lu(k,722) + lu(k,737) = lu(k,737) - lu(k,318) * lu(k,722) + lu(k,738) = lu(k,738) - lu(k,319) * lu(k,722) + lu(k,739) = lu(k,739) - lu(k,320) * lu(k,722) lu(k,751) = lu(k,751) - lu(k,311) * lu(k,748) lu(k,754) = lu(k,754) - lu(k,312) * lu(k,748) - lu(k,755) = - lu(k,313) * lu(k,748) + lu(k,755) = lu(k,755) - lu(k,313) * lu(k,748) lu(k,756) = lu(k,756) - lu(k,314) * lu(k,748) lu(k,757) = lu(k,757) - lu(k,315) * lu(k,748) - lu(k,758) = lu(k,758) - lu(k,316) * lu(k,748) - lu(k,759) = lu(k,759) - lu(k,317) * lu(k,748) - lu(k,760) = lu(k,760) - lu(k,318) * lu(k,748) - lu(k,761) = lu(k,761) - lu(k,319) * lu(k,748) + lu(k,760) = lu(k,760) - lu(k,316) * lu(k,748) + lu(k,761) = lu(k,761) - lu(k,317) * lu(k,748) + lu(k,762) = lu(k,762) - lu(k,318) * lu(k,748) + lu(k,763) = - lu(k,319) * lu(k,748) lu(k,764) = lu(k,764) - lu(k,320) * lu(k,748) lu(k,329) = 1._r8 / lu(k,329) lu(k,330) = lu(k,330) * lu(k,329) @@ -1735,11 +1735,11 @@ subroutine lu_fac08( avec_len, lu ) lu(k,399) = lu(k,399) - lu(k,336) * lu(k,392) lu(k,400) = lu(k,400) - lu(k,337) * lu(k,392) lu(k,401) = lu(k,401) - lu(k,338) * lu(k,392) - lu(k,402) = lu(k,402) - lu(k,339) * lu(k,392) - lu(k,403) = lu(k,403) - lu(k,340) * lu(k,392) - lu(k,404) = lu(k,404) - lu(k,341) * lu(k,392) - lu(k,405) = lu(k,405) - lu(k,342) * lu(k,392) - lu(k,406) = lu(k,406) - lu(k,343) * lu(k,392) + lu(k,403) = lu(k,403) - lu(k,339) * lu(k,392) + lu(k,404) = lu(k,404) - lu(k,340) * lu(k,392) + lu(k,405) = lu(k,405) - lu(k,341) * lu(k,392) + lu(k,406) = lu(k,406) - lu(k,342) * lu(k,392) + lu(k,407) = lu(k,407) - lu(k,343) * lu(k,392) lu(k,408) = lu(k,408) - lu(k,344) * lu(k,392) lu(k,418) = lu(k,418) - lu(k,330) * lu(k,417) lu(k,419) = lu(k,419) - lu(k,331) * lu(k,417) @@ -1750,11 +1750,11 @@ subroutine lu_fac08( avec_len, lu ) lu(k,424) = lu(k,424) - lu(k,336) * lu(k,417) lu(k,425) = lu(k,425) - lu(k,337) * lu(k,417) lu(k,426) = lu(k,426) - lu(k,338) * lu(k,417) - lu(k,427) = lu(k,427) - lu(k,339) * lu(k,417) - lu(k,428) = lu(k,428) - lu(k,340) * lu(k,417) - lu(k,429) = lu(k,429) - lu(k,341) * lu(k,417) - lu(k,430) = lu(k,430) - lu(k,342) * lu(k,417) - lu(k,431) = lu(k,431) - lu(k,343) * lu(k,417) + lu(k,428) = lu(k,428) - lu(k,339) * lu(k,417) + lu(k,429) = lu(k,429) - lu(k,340) * lu(k,417) + lu(k,430) = lu(k,430) - lu(k,341) * lu(k,417) + lu(k,431) = lu(k,431) - lu(k,342) * lu(k,417) + lu(k,432) = lu(k,432) - lu(k,343) * lu(k,417) lu(k,433) = lu(k,433) - lu(k,344) * lu(k,417) lu(k,446) = lu(k,446) - lu(k,330) * lu(k,445) lu(k,447) = lu(k,447) - lu(k,331) * lu(k,445) @@ -1765,11 +1765,11 @@ subroutine lu_fac08( avec_len, lu ) lu(k,452) = lu(k,452) - lu(k,336) * lu(k,445) lu(k,453) = lu(k,453) - lu(k,337) * lu(k,445) lu(k,454) = lu(k,454) - lu(k,338) * lu(k,445) - lu(k,455) = lu(k,455) - lu(k,339) * lu(k,445) - lu(k,456) = lu(k,456) - lu(k,340) * lu(k,445) - lu(k,457) = lu(k,457) - lu(k,341) * lu(k,445) - lu(k,458) = lu(k,458) - lu(k,342) * lu(k,445) - lu(k,459) = lu(k,459) - lu(k,343) * lu(k,445) + lu(k,456) = lu(k,456) - lu(k,339) * lu(k,445) + lu(k,457) = lu(k,457) - lu(k,340) * lu(k,445) + lu(k,458) = lu(k,458) - lu(k,341) * lu(k,445) + lu(k,459) = lu(k,459) - lu(k,342) * lu(k,445) + lu(k,460) = lu(k,460) - lu(k,343) * lu(k,445) lu(k,461) = lu(k,461) - lu(k,344) * lu(k,445) lu(k,489) = lu(k,489) - lu(k,330) * lu(k,488) lu(k,490) = lu(k,490) - lu(k,331) * lu(k,488) @@ -1780,102 +1780,102 @@ subroutine lu_fac08( avec_len, lu ) lu(k,495) = lu(k,495) - lu(k,336) * lu(k,488) lu(k,496) = lu(k,496) - lu(k,337) * lu(k,488) lu(k,497) = lu(k,497) - lu(k,338) * lu(k,488) - lu(k,498) = lu(k,498) - lu(k,339) * lu(k,488) - lu(k,499) = lu(k,499) - lu(k,340) * lu(k,488) - lu(k,500) = lu(k,500) - lu(k,341) * lu(k,488) - lu(k,501) = lu(k,501) - lu(k,342) * lu(k,488) - lu(k,502) = lu(k,502) - lu(k,343) * lu(k,488) + lu(k,499) = lu(k,499) - lu(k,339) * lu(k,488) + lu(k,500) = lu(k,500) - lu(k,340) * lu(k,488) + lu(k,501) = lu(k,501) - lu(k,341) * lu(k,488) + lu(k,502) = lu(k,502) - lu(k,342) * lu(k,488) + lu(k,503) = lu(k,503) - lu(k,343) * lu(k,488) lu(k,504) = lu(k,504) - lu(k,344) * lu(k,488) - lu(k,511) = lu(k,511) - lu(k,330) * lu(k,510) - lu(k,512) = lu(k,512) - lu(k,331) * lu(k,510) - lu(k,513) = lu(k,513) - lu(k,332) * lu(k,510) - lu(k,514) = lu(k,514) - lu(k,333) * lu(k,510) - lu(k,515) = - lu(k,334) * lu(k,510) - lu(k,516) = lu(k,516) - lu(k,335) * lu(k,510) - lu(k,517) = lu(k,517) - lu(k,336) * lu(k,510) - lu(k,518) = lu(k,518) - lu(k,337) * lu(k,510) - lu(k,519) = lu(k,519) - lu(k,338) * lu(k,510) - lu(k,520) = lu(k,520) - lu(k,339) * lu(k,510) - lu(k,521) = lu(k,521) - lu(k,340) * lu(k,510) - lu(k,522) = lu(k,522) - lu(k,341) * lu(k,510) - lu(k,523) = lu(k,523) - lu(k,342) * lu(k,510) - lu(k,524) = lu(k,524) - lu(k,343) * lu(k,510) - lu(k,526) = lu(k,526) - lu(k,344) * lu(k,510) - lu(k,536) = lu(k,536) - lu(k,330) * lu(k,535) - lu(k,537) = lu(k,537) - lu(k,331) * lu(k,535) - lu(k,538) = lu(k,538) - lu(k,332) * lu(k,535) - lu(k,539) = lu(k,539) - lu(k,333) * lu(k,535) - lu(k,540) = lu(k,540) - lu(k,334) * lu(k,535) - lu(k,541) = lu(k,541) - lu(k,335) * lu(k,535) - lu(k,542) = lu(k,542) - lu(k,336) * lu(k,535) - lu(k,543) = lu(k,543) - lu(k,337) * lu(k,535) - lu(k,544) = lu(k,544) - lu(k,338) * lu(k,535) - lu(k,545) = lu(k,545) - lu(k,339) * lu(k,535) - lu(k,546) = lu(k,546) - lu(k,340) * lu(k,535) - lu(k,547) = lu(k,547) - lu(k,341) * lu(k,535) - lu(k,548) = lu(k,548) - lu(k,342) * lu(k,535) - lu(k,549) = lu(k,549) - lu(k,343) * lu(k,535) - lu(k,551) = lu(k,551) - lu(k,344) * lu(k,535) - lu(k,557) = lu(k,557) - lu(k,330) * lu(k,556) - lu(k,558) = lu(k,558) - lu(k,331) * lu(k,556) - lu(k,559) = lu(k,559) - lu(k,332) * lu(k,556) - lu(k,560) = lu(k,560) - lu(k,333) * lu(k,556) - lu(k,561) = - lu(k,334) * lu(k,556) - lu(k,562) = lu(k,562) - lu(k,335) * lu(k,556) - lu(k,563) = - lu(k,336) * lu(k,556) - lu(k,564) = lu(k,564) - lu(k,337) * lu(k,556) - lu(k,565) = lu(k,565) - lu(k,338) * lu(k,556) - lu(k,566) = - lu(k,339) * lu(k,556) - lu(k,567) = lu(k,567) - lu(k,340) * lu(k,556) - lu(k,568) = lu(k,568) - lu(k,341) * lu(k,556) - lu(k,569) = lu(k,569) - lu(k,342) * lu(k,556) - lu(k,570) = lu(k,570) - lu(k,343) * lu(k,556) - lu(k,572) = lu(k,572) - lu(k,344) * lu(k,556) - lu(k,583) = lu(k,583) - lu(k,330) * lu(k,582) - lu(k,584) = lu(k,584) - lu(k,331) * lu(k,582) - lu(k,585) = lu(k,585) - lu(k,332) * lu(k,582) - lu(k,586) = lu(k,586) - lu(k,333) * lu(k,582) - lu(k,587) = lu(k,587) - lu(k,334) * lu(k,582) - lu(k,588) = lu(k,588) - lu(k,335) * lu(k,582) - lu(k,589) = lu(k,589) - lu(k,336) * lu(k,582) - lu(k,590) = lu(k,590) - lu(k,337) * lu(k,582) - lu(k,591) = lu(k,591) - lu(k,338) * lu(k,582) - lu(k,592) = lu(k,592) - lu(k,339) * lu(k,582) - lu(k,593) = lu(k,593) - lu(k,340) * lu(k,582) - lu(k,594) = lu(k,594) - lu(k,341) * lu(k,582) - lu(k,595) = lu(k,595) - lu(k,342) * lu(k,582) - lu(k,596) = lu(k,596) - lu(k,343) * lu(k,582) - lu(k,598) = lu(k,598) - lu(k,344) * lu(k,582) - lu(k,651) = lu(k,651) - lu(k,330) * lu(k,650) - lu(k,652) = lu(k,652) - lu(k,331) * lu(k,650) - lu(k,653) = lu(k,653) - lu(k,332) * lu(k,650) - lu(k,654) = lu(k,654) - lu(k,333) * lu(k,650) - lu(k,655) = lu(k,655) - lu(k,334) * lu(k,650) - lu(k,656) = lu(k,656) - lu(k,335) * lu(k,650) - lu(k,657) = lu(k,657) - lu(k,336) * lu(k,650) - lu(k,658) = lu(k,658) - lu(k,337) * lu(k,650) - lu(k,659) = lu(k,659) - lu(k,338) * lu(k,650) - lu(k,660) = lu(k,660) - lu(k,339) * lu(k,650) - lu(k,661) = lu(k,661) - lu(k,340) * lu(k,650) - lu(k,662) = lu(k,662) - lu(k,341) * lu(k,650) - lu(k,663) = lu(k,663) - lu(k,342) * lu(k,650) - lu(k,664) = lu(k,664) - lu(k,343) * lu(k,650) - lu(k,666) = lu(k,666) - lu(k,344) * lu(k,650) - lu(k,701) = lu(k,701) - lu(k,330) * lu(k,700) - lu(k,702) = lu(k,702) - lu(k,331) * lu(k,700) - lu(k,703) = lu(k,703) - lu(k,332) * lu(k,700) - lu(k,704) = lu(k,704) - lu(k,333) * lu(k,700) - lu(k,705) = lu(k,705) - lu(k,334) * lu(k,700) - lu(k,706) = lu(k,706) - lu(k,335) * lu(k,700) - lu(k,707) = lu(k,707) - lu(k,336) * lu(k,700) - lu(k,708) = lu(k,708) - lu(k,337) * lu(k,700) - lu(k,709) = lu(k,709) - lu(k,338) * lu(k,700) - lu(k,710) = lu(k,710) - lu(k,339) * lu(k,700) - lu(k,711) = lu(k,711) - lu(k,340) * lu(k,700) - lu(k,712) = lu(k,712) - lu(k,341) * lu(k,700) - lu(k,713) = lu(k,713) - lu(k,342) * lu(k,700) - lu(k,714) = lu(k,714) - lu(k,343) * lu(k,700) - lu(k,716) = lu(k,716) - lu(k,344) * lu(k,700) + lu(k,545) = lu(k,545) - lu(k,330) * lu(k,544) + lu(k,546) = lu(k,546) - lu(k,331) * lu(k,544) + lu(k,547) = lu(k,547) - lu(k,332) * lu(k,544) + lu(k,548) = lu(k,548) - lu(k,333) * lu(k,544) + lu(k,549) = lu(k,549) - lu(k,334) * lu(k,544) + lu(k,550) = lu(k,550) - lu(k,335) * lu(k,544) + lu(k,551) = lu(k,551) - lu(k,336) * lu(k,544) + lu(k,552) = lu(k,552) - lu(k,337) * lu(k,544) + lu(k,553) = lu(k,553) - lu(k,338) * lu(k,544) + lu(k,555) = lu(k,555) - lu(k,339) * lu(k,544) + lu(k,556) = lu(k,556) - lu(k,340) * lu(k,544) + lu(k,557) = lu(k,557) - lu(k,341) * lu(k,544) + lu(k,558) = lu(k,558) - lu(k,342) * lu(k,544) + lu(k,559) = lu(k,559) - lu(k,343) * lu(k,544) + lu(k,560) = lu(k,560) - lu(k,344) * lu(k,544) + lu(k,566) = lu(k,566) - lu(k,330) * lu(k,565) + lu(k,567) = lu(k,567) - lu(k,331) * lu(k,565) + lu(k,568) = lu(k,568) - lu(k,332) * lu(k,565) + lu(k,569) = lu(k,569) - lu(k,333) * lu(k,565) + lu(k,570) = lu(k,570) - lu(k,334) * lu(k,565) + lu(k,571) = lu(k,571) - lu(k,335) * lu(k,565) + lu(k,572) = lu(k,572) - lu(k,336) * lu(k,565) + lu(k,573) = lu(k,573) - lu(k,337) * lu(k,565) + lu(k,574) = lu(k,574) - lu(k,338) * lu(k,565) + lu(k,576) = - lu(k,339) * lu(k,565) + lu(k,577) = lu(k,577) - lu(k,340) * lu(k,565) + lu(k,578) = lu(k,578) - lu(k,341) * lu(k,565) + lu(k,579) = - lu(k,342) * lu(k,565) + lu(k,580) = - lu(k,343) * lu(k,565) + lu(k,581) = lu(k,581) - lu(k,344) * lu(k,565) + lu(k,617) = lu(k,617) - lu(k,330) * lu(k,616) + lu(k,618) = lu(k,618) - lu(k,331) * lu(k,616) + lu(k,619) = lu(k,619) - lu(k,332) * lu(k,616) + lu(k,620) = lu(k,620) - lu(k,333) * lu(k,616) + lu(k,621) = lu(k,621) - lu(k,334) * lu(k,616) + lu(k,622) = lu(k,622) - lu(k,335) * lu(k,616) + lu(k,623) = lu(k,623) - lu(k,336) * lu(k,616) + lu(k,624) = lu(k,624) - lu(k,337) * lu(k,616) + lu(k,625) = lu(k,625) - lu(k,338) * lu(k,616) + lu(k,627) = lu(k,627) - lu(k,339) * lu(k,616) + lu(k,628) = lu(k,628) - lu(k,340) * lu(k,616) + lu(k,629) = lu(k,629) - lu(k,341) * lu(k,616) + lu(k,630) = lu(k,630) - lu(k,342) * lu(k,616) + lu(k,631) = lu(k,631) - lu(k,343) * lu(k,616) + lu(k,632) = lu(k,632) - lu(k,344) * lu(k,616) + lu(k,654) = lu(k,654) - lu(k,330) * lu(k,653) + lu(k,655) = lu(k,655) - lu(k,331) * lu(k,653) + lu(k,656) = lu(k,656) - lu(k,332) * lu(k,653) + lu(k,657) = lu(k,657) - lu(k,333) * lu(k,653) + lu(k,658) = lu(k,658) - lu(k,334) * lu(k,653) + lu(k,659) = lu(k,659) - lu(k,335) * lu(k,653) + lu(k,660) = lu(k,660) - lu(k,336) * lu(k,653) + lu(k,661) = lu(k,661) - lu(k,337) * lu(k,653) + lu(k,662) = lu(k,662) - lu(k,338) * lu(k,653) + lu(k,664) = lu(k,664) - lu(k,339) * lu(k,653) + lu(k,665) = lu(k,665) - lu(k,340) * lu(k,653) + lu(k,666) = lu(k,666) - lu(k,341) * lu(k,653) + lu(k,667) = lu(k,667) - lu(k,342) * lu(k,653) + lu(k,668) = lu(k,668) - lu(k,343) * lu(k,653) + lu(k,669) = lu(k,669) - lu(k,344) * lu(k,653) + lu(k,702) = lu(k,702) - lu(k,330) * lu(k,701) + lu(k,703) = lu(k,703) - lu(k,331) * lu(k,701) + lu(k,704) = lu(k,704) - lu(k,332) * lu(k,701) + lu(k,705) = lu(k,705) - lu(k,333) * lu(k,701) + lu(k,706) = lu(k,706) - lu(k,334) * lu(k,701) + lu(k,707) = lu(k,707) - lu(k,335) * lu(k,701) + lu(k,708) = lu(k,708) - lu(k,336) * lu(k,701) + lu(k,709) = lu(k,709) - lu(k,337) * lu(k,701) + lu(k,710) = lu(k,710) - lu(k,338) * lu(k,701) + lu(k,712) = lu(k,712) - lu(k,339) * lu(k,701) + lu(k,713) = lu(k,713) - lu(k,340) * lu(k,701) + lu(k,714) = lu(k,714) - lu(k,341) * lu(k,701) + lu(k,715) = lu(k,715) - lu(k,342) * lu(k,701) + lu(k,716) = lu(k,716) - lu(k,343) * lu(k,701) + lu(k,717) = lu(k,717) - lu(k,344) * lu(k,701) + lu(k,724) = lu(k,724) - lu(k,330) * lu(k,723) + lu(k,725) = lu(k,725) - lu(k,331) * lu(k,723) + lu(k,726) = lu(k,726) - lu(k,332) * lu(k,723) + lu(k,727) = lu(k,727) - lu(k,333) * lu(k,723) + lu(k,728) = lu(k,728) - lu(k,334) * lu(k,723) + lu(k,729) = lu(k,729) - lu(k,335) * lu(k,723) + lu(k,730) = lu(k,730) - lu(k,336) * lu(k,723) + lu(k,731) = lu(k,731) - lu(k,337) * lu(k,723) + lu(k,732) = lu(k,732) - lu(k,338) * lu(k,723) + lu(k,734) = - lu(k,339) * lu(k,723) + lu(k,735) = lu(k,735) - lu(k,340) * lu(k,723) + lu(k,736) = lu(k,736) - lu(k,341) * lu(k,723) + lu(k,737) = lu(k,737) - lu(k,342) * lu(k,723) + lu(k,738) = lu(k,738) - lu(k,343) * lu(k,723) + lu(k,739) = lu(k,739) - lu(k,344) * lu(k,723) end do end subroutine lu_fac08 subroutine lu_fac09( avec_len, lu ) @@ -1911,10 +1911,10 @@ subroutine lu_fac09( avec_len, lu ) lu(k,373) = lu(k,373) - lu(k,351) * lu(k,368) lu(k,374) = lu(k,374) - lu(k,352) * lu(k,368) lu(k,376) = lu(k,376) - lu(k,353) * lu(k,368) - lu(k,378) = lu(k,378) - lu(k,354) * lu(k,368) - lu(k,379) = lu(k,379) - lu(k,355) * lu(k,368) - lu(k,380) = lu(k,380) - lu(k,356) * lu(k,368) - lu(k,381) = lu(k,381) - lu(k,357) * lu(k,368) + lu(k,377) = lu(k,377) - lu(k,354) * lu(k,368) + lu(k,378) = lu(k,378) - lu(k,355) * lu(k,368) + lu(k,379) = lu(k,379) - lu(k,356) * lu(k,368) + lu(k,380) = lu(k,380) - lu(k,357) * lu(k,368) lu(k,382) = lu(k,382) - lu(k,358) * lu(k,368) lu(k,383) = lu(k,383) - lu(k,359) * lu(k,368) lu(k,395) = lu(k,395) - lu(k,348) * lu(k,393) @@ -1923,10 +1923,10 @@ subroutine lu_fac09( avec_len, lu ) lu(k,398) = lu(k,398) - lu(k,351) * lu(k,393) lu(k,399) = lu(k,399) - lu(k,352) * lu(k,393) lu(k,401) = lu(k,401) - lu(k,353) * lu(k,393) - lu(k,403) = lu(k,403) - lu(k,354) * lu(k,393) - lu(k,404) = lu(k,404) - lu(k,355) * lu(k,393) - lu(k,405) = lu(k,405) - lu(k,356) * lu(k,393) - lu(k,406) = lu(k,406) - lu(k,357) * lu(k,393) + lu(k,402) = lu(k,402) - lu(k,354) * lu(k,393) + lu(k,403) = lu(k,403) - lu(k,355) * lu(k,393) + lu(k,404) = lu(k,404) - lu(k,356) * lu(k,393) + lu(k,405) = lu(k,405) - lu(k,357) * lu(k,393) lu(k,407) = lu(k,407) - lu(k,358) * lu(k,393) lu(k,408) = lu(k,408) - lu(k,359) * lu(k,393) lu(k,420) = lu(k,420) - lu(k,348) * lu(k,418) @@ -1935,11 +1935,11 @@ subroutine lu_fac09( avec_len, lu ) lu(k,423) = lu(k,423) - lu(k,351) * lu(k,418) lu(k,424) = lu(k,424) - lu(k,352) * lu(k,418) lu(k,426) = lu(k,426) - lu(k,353) * lu(k,418) - lu(k,428) = lu(k,428) - lu(k,354) * lu(k,418) - lu(k,429) = lu(k,429) - lu(k,355) * lu(k,418) - lu(k,430) = lu(k,430) - lu(k,356) * lu(k,418) - lu(k,431) = lu(k,431) - lu(k,357) * lu(k,418) - lu(k,432) = - lu(k,358) * lu(k,418) + lu(k,427) = - lu(k,354) * lu(k,418) + lu(k,428) = lu(k,428) - lu(k,355) * lu(k,418) + lu(k,429) = lu(k,429) - lu(k,356) * lu(k,418) + lu(k,430) = lu(k,430) - lu(k,357) * lu(k,418) + lu(k,432) = lu(k,432) - lu(k,358) * lu(k,418) lu(k,433) = lu(k,433) - lu(k,359) * lu(k,418) lu(k,448) = lu(k,448) - lu(k,348) * lu(k,446) lu(k,449) = lu(k,449) - lu(k,349) * lu(k,446) @@ -1947,10 +1947,10 @@ subroutine lu_fac09( avec_len, lu ) lu(k,451) = lu(k,451) - lu(k,351) * lu(k,446) lu(k,452) = lu(k,452) - lu(k,352) * lu(k,446) lu(k,454) = lu(k,454) - lu(k,353) * lu(k,446) - lu(k,456) = lu(k,456) - lu(k,354) * lu(k,446) - lu(k,457) = lu(k,457) - lu(k,355) * lu(k,446) - lu(k,458) = lu(k,458) - lu(k,356) * lu(k,446) - lu(k,459) = lu(k,459) - lu(k,357) * lu(k,446) + lu(k,455) = lu(k,455) - lu(k,354) * lu(k,446) + lu(k,456) = lu(k,456) - lu(k,355) * lu(k,446) + lu(k,457) = lu(k,457) - lu(k,356) * lu(k,446) + lu(k,458) = lu(k,458) - lu(k,357) * lu(k,446) lu(k,460) = lu(k,460) - lu(k,358) * lu(k,446) lu(k,461) = lu(k,461) - lu(k,359) * lu(k,446) lu(k,491) = lu(k,491) - lu(k,348) * lu(k,489) @@ -1959,94 +1959,94 @@ subroutine lu_fac09( avec_len, lu ) lu(k,494) = lu(k,494) - lu(k,351) * lu(k,489) lu(k,495) = lu(k,495) - lu(k,352) * lu(k,489) lu(k,497) = lu(k,497) - lu(k,353) * lu(k,489) - lu(k,499) = lu(k,499) - lu(k,354) * lu(k,489) - lu(k,500) = lu(k,500) - lu(k,355) * lu(k,489) - lu(k,501) = lu(k,501) - lu(k,356) * lu(k,489) - lu(k,502) = lu(k,502) - lu(k,357) * lu(k,489) + lu(k,498) = lu(k,498) - lu(k,354) * lu(k,489) + lu(k,499) = lu(k,499) - lu(k,355) * lu(k,489) + lu(k,500) = lu(k,500) - lu(k,356) * lu(k,489) + lu(k,501) = lu(k,501) - lu(k,357) * lu(k,489) lu(k,503) = lu(k,503) - lu(k,358) * lu(k,489) lu(k,504) = lu(k,504) - lu(k,359) * lu(k,489) - lu(k,513) = lu(k,513) - lu(k,348) * lu(k,511) - lu(k,514) = lu(k,514) - lu(k,349) * lu(k,511) - lu(k,515) = lu(k,515) - lu(k,350) * lu(k,511) - lu(k,516) = lu(k,516) - lu(k,351) * lu(k,511) - lu(k,517) = lu(k,517) - lu(k,352) * lu(k,511) - lu(k,519) = lu(k,519) - lu(k,353) * lu(k,511) - lu(k,521) = lu(k,521) - lu(k,354) * lu(k,511) - lu(k,522) = lu(k,522) - lu(k,355) * lu(k,511) - lu(k,523) = lu(k,523) - lu(k,356) * lu(k,511) - lu(k,524) = lu(k,524) - lu(k,357) * lu(k,511) - lu(k,525) = - lu(k,358) * lu(k,511) - lu(k,526) = lu(k,526) - lu(k,359) * lu(k,511) - lu(k,538) = lu(k,538) - lu(k,348) * lu(k,536) - lu(k,539) = lu(k,539) - lu(k,349) * lu(k,536) - lu(k,540) = lu(k,540) - lu(k,350) * lu(k,536) - lu(k,541) = lu(k,541) - lu(k,351) * lu(k,536) - lu(k,542) = lu(k,542) - lu(k,352) * lu(k,536) - lu(k,544) = lu(k,544) - lu(k,353) * lu(k,536) - lu(k,546) = lu(k,546) - lu(k,354) * lu(k,536) - lu(k,547) = lu(k,547) - lu(k,355) * lu(k,536) - lu(k,548) = lu(k,548) - lu(k,356) * lu(k,536) - lu(k,549) = lu(k,549) - lu(k,357) * lu(k,536) - lu(k,550) = lu(k,550) - lu(k,358) * lu(k,536) - lu(k,551) = lu(k,551) - lu(k,359) * lu(k,536) - lu(k,559) = lu(k,559) - lu(k,348) * lu(k,557) - lu(k,560) = lu(k,560) - lu(k,349) * lu(k,557) - lu(k,561) = lu(k,561) - lu(k,350) * lu(k,557) - lu(k,562) = lu(k,562) - lu(k,351) * lu(k,557) - lu(k,563) = lu(k,563) - lu(k,352) * lu(k,557) - lu(k,565) = lu(k,565) - lu(k,353) * lu(k,557) - lu(k,567) = lu(k,567) - lu(k,354) * lu(k,557) - lu(k,568) = lu(k,568) - lu(k,355) * lu(k,557) - lu(k,569) = lu(k,569) - lu(k,356) * lu(k,557) - lu(k,570) = lu(k,570) - lu(k,357) * lu(k,557) - lu(k,571) = - lu(k,358) * lu(k,557) - lu(k,572) = lu(k,572) - lu(k,359) * lu(k,557) - lu(k,585) = lu(k,585) - lu(k,348) * lu(k,583) - lu(k,586) = lu(k,586) - lu(k,349) * lu(k,583) - lu(k,587) = lu(k,587) - lu(k,350) * lu(k,583) - lu(k,588) = lu(k,588) - lu(k,351) * lu(k,583) - lu(k,589) = lu(k,589) - lu(k,352) * lu(k,583) - lu(k,591) = lu(k,591) - lu(k,353) * lu(k,583) - lu(k,593) = lu(k,593) - lu(k,354) * lu(k,583) - lu(k,594) = lu(k,594) - lu(k,355) * lu(k,583) - lu(k,595) = lu(k,595) - lu(k,356) * lu(k,583) - lu(k,596) = lu(k,596) - lu(k,357) * lu(k,583) - lu(k,597) = lu(k,597) - lu(k,358) * lu(k,583) - lu(k,598) = lu(k,598) - lu(k,359) * lu(k,583) - lu(k,653) = lu(k,653) - lu(k,348) * lu(k,651) - lu(k,654) = lu(k,654) - lu(k,349) * lu(k,651) - lu(k,655) = lu(k,655) - lu(k,350) * lu(k,651) - lu(k,656) = lu(k,656) - lu(k,351) * lu(k,651) - lu(k,657) = lu(k,657) - lu(k,352) * lu(k,651) - lu(k,659) = lu(k,659) - lu(k,353) * lu(k,651) - lu(k,661) = lu(k,661) - lu(k,354) * lu(k,651) - lu(k,662) = lu(k,662) - lu(k,355) * lu(k,651) - lu(k,663) = lu(k,663) - lu(k,356) * lu(k,651) - lu(k,664) = lu(k,664) - lu(k,357) * lu(k,651) - lu(k,665) = lu(k,665) - lu(k,358) * lu(k,651) - lu(k,666) = lu(k,666) - lu(k,359) * lu(k,651) - lu(k,703) = lu(k,703) - lu(k,348) * lu(k,701) - lu(k,704) = lu(k,704) - lu(k,349) * lu(k,701) - lu(k,705) = lu(k,705) - lu(k,350) * lu(k,701) - lu(k,706) = lu(k,706) - lu(k,351) * lu(k,701) - lu(k,707) = lu(k,707) - lu(k,352) * lu(k,701) - lu(k,709) = lu(k,709) - lu(k,353) * lu(k,701) - lu(k,711) = lu(k,711) - lu(k,354) * lu(k,701) - lu(k,712) = lu(k,712) - lu(k,355) * lu(k,701) - lu(k,713) = lu(k,713) - lu(k,356) * lu(k,701) - lu(k,714) = lu(k,714) - lu(k,357) * lu(k,701) - lu(k,715) = lu(k,715) - lu(k,358) * lu(k,701) - lu(k,716) = lu(k,716) - lu(k,359) * lu(k,701) + lu(k,547) = lu(k,547) - lu(k,348) * lu(k,545) + lu(k,548) = lu(k,548) - lu(k,349) * lu(k,545) + lu(k,549) = lu(k,549) - lu(k,350) * lu(k,545) + lu(k,550) = lu(k,550) - lu(k,351) * lu(k,545) + lu(k,551) = lu(k,551) - lu(k,352) * lu(k,545) + lu(k,553) = lu(k,553) - lu(k,353) * lu(k,545) + lu(k,554) = lu(k,554) - lu(k,354) * lu(k,545) + lu(k,555) = lu(k,555) - lu(k,355) * lu(k,545) + lu(k,556) = lu(k,556) - lu(k,356) * lu(k,545) + lu(k,557) = lu(k,557) - lu(k,357) * lu(k,545) + lu(k,559) = lu(k,559) - lu(k,358) * lu(k,545) + lu(k,560) = lu(k,560) - lu(k,359) * lu(k,545) + lu(k,568) = lu(k,568) - lu(k,348) * lu(k,566) + lu(k,569) = lu(k,569) - lu(k,349) * lu(k,566) + lu(k,570) = lu(k,570) - lu(k,350) * lu(k,566) + lu(k,571) = lu(k,571) - lu(k,351) * lu(k,566) + lu(k,572) = lu(k,572) - lu(k,352) * lu(k,566) + lu(k,574) = lu(k,574) - lu(k,353) * lu(k,566) + lu(k,575) = - lu(k,354) * lu(k,566) + lu(k,576) = lu(k,576) - lu(k,355) * lu(k,566) + lu(k,577) = lu(k,577) - lu(k,356) * lu(k,566) + lu(k,578) = lu(k,578) - lu(k,357) * lu(k,566) + lu(k,580) = lu(k,580) - lu(k,358) * lu(k,566) + lu(k,581) = lu(k,581) - lu(k,359) * lu(k,566) + lu(k,591) = lu(k,591) - lu(k,348) * lu(k,589) + lu(k,592) = lu(k,592) - lu(k,349) * lu(k,589) + lu(k,593) = lu(k,593) - lu(k,350) * lu(k,589) + lu(k,594) = lu(k,594) - lu(k,351) * lu(k,589) + lu(k,595) = lu(k,595) - lu(k,352) * lu(k,589) + lu(k,597) = lu(k,597) - lu(k,353) * lu(k,589) + lu(k,598) = lu(k,598) - lu(k,354) * lu(k,589) + lu(k,599) = lu(k,599) - lu(k,355) * lu(k,589) + lu(k,600) = lu(k,600) - lu(k,356) * lu(k,589) + lu(k,601) = lu(k,601) - lu(k,357) * lu(k,589) + lu(k,603) = lu(k,603) - lu(k,358) * lu(k,589) + lu(k,604) = lu(k,604) - lu(k,359) * lu(k,589) + lu(k,619) = lu(k,619) - lu(k,348) * lu(k,617) + lu(k,620) = lu(k,620) - lu(k,349) * lu(k,617) + lu(k,621) = lu(k,621) - lu(k,350) * lu(k,617) + lu(k,622) = lu(k,622) - lu(k,351) * lu(k,617) + lu(k,623) = lu(k,623) - lu(k,352) * lu(k,617) + lu(k,625) = lu(k,625) - lu(k,353) * lu(k,617) + lu(k,626) = lu(k,626) - lu(k,354) * lu(k,617) + lu(k,627) = lu(k,627) - lu(k,355) * lu(k,617) + lu(k,628) = lu(k,628) - lu(k,356) * lu(k,617) + lu(k,629) = lu(k,629) - lu(k,357) * lu(k,617) + lu(k,631) = lu(k,631) - lu(k,358) * lu(k,617) + lu(k,632) = lu(k,632) - lu(k,359) * lu(k,617) + lu(k,656) = lu(k,656) - lu(k,348) * lu(k,654) + lu(k,657) = lu(k,657) - lu(k,349) * lu(k,654) + lu(k,658) = lu(k,658) - lu(k,350) * lu(k,654) + lu(k,659) = lu(k,659) - lu(k,351) * lu(k,654) + lu(k,660) = lu(k,660) - lu(k,352) * lu(k,654) + lu(k,662) = lu(k,662) - lu(k,353) * lu(k,654) + lu(k,663) = lu(k,663) - lu(k,354) * lu(k,654) + lu(k,664) = lu(k,664) - lu(k,355) * lu(k,654) + lu(k,665) = lu(k,665) - lu(k,356) * lu(k,654) + lu(k,666) = lu(k,666) - lu(k,357) * lu(k,654) + lu(k,668) = lu(k,668) - lu(k,358) * lu(k,654) + lu(k,669) = lu(k,669) - lu(k,359) * lu(k,654) + lu(k,704) = lu(k,704) - lu(k,348) * lu(k,702) + lu(k,705) = lu(k,705) - lu(k,349) * lu(k,702) + lu(k,706) = lu(k,706) - lu(k,350) * lu(k,702) + lu(k,707) = lu(k,707) - lu(k,351) * lu(k,702) + lu(k,708) = lu(k,708) - lu(k,352) * lu(k,702) + lu(k,710) = lu(k,710) - lu(k,353) * lu(k,702) + lu(k,711) = lu(k,711) - lu(k,354) * lu(k,702) + lu(k,712) = lu(k,712) - lu(k,355) * lu(k,702) + lu(k,713) = lu(k,713) - lu(k,356) * lu(k,702) + lu(k,714) = lu(k,714) - lu(k,357) * lu(k,702) + lu(k,716) = lu(k,716) - lu(k,358) * lu(k,702) + lu(k,717) = lu(k,717) - lu(k,359) * lu(k,702) lu(k,726) = lu(k,726) - lu(k,348) * lu(k,724) lu(k,727) = lu(k,727) - lu(k,349) * lu(k,724) lu(k,728) = lu(k,728) - lu(k,350) * lu(k,724) lu(k,729) = lu(k,729) - lu(k,351) * lu(k,724) lu(k,730) = lu(k,730) - lu(k,352) * lu(k,724) lu(k,732) = lu(k,732) - lu(k,353) * lu(k,724) - lu(k,734) = lu(k,734) - lu(k,354) * lu(k,724) - lu(k,735) = lu(k,735) - lu(k,355) * lu(k,724) - lu(k,736) = lu(k,736) - lu(k,356) * lu(k,724) - lu(k,737) = lu(k,737) - lu(k,357) * lu(k,724) + lu(k,733) = - lu(k,354) * lu(k,724) + lu(k,734) = lu(k,734) - lu(k,355) * lu(k,724) + lu(k,735) = lu(k,735) - lu(k,356) * lu(k,724) + lu(k,736) = lu(k,736) - lu(k,357) * lu(k,724) lu(k,738) = lu(k,738) - lu(k,358) * lu(k,724) lu(k,739) = lu(k,739) - lu(k,359) * lu(k,724) lu(k,751) = lu(k,751) - lu(k,348) * lu(k,749) @@ -2055,10 +2055,10 @@ subroutine lu_fac09( avec_len, lu ) lu(k,754) = lu(k,754) - lu(k,351) * lu(k,749) lu(k,755) = lu(k,755) - lu(k,352) * lu(k,749) lu(k,757) = lu(k,757) - lu(k,353) * lu(k,749) - lu(k,759) = lu(k,759) - lu(k,354) * lu(k,749) - lu(k,760) = lu(k,760) - lu(k,355) * lu(k,749) - lu(k,761) = lu(k,761) - lu(k,356) * lu(k,749) - lu(k,762) = lu(k,762) - lu(k,357) * lu(k,749) + lu(k,758) = lu(k,758) - lu(k,354) * lu(k,749) + lu(k,759) = lu(k,759) - lu(k,355) * lu(k,749) + lu(k,760) = lu(k,760) - lu(k,356) * lu(k,749) + lu(k,761) = lu(k,761) - lu(k,357) * lu(k,749) lu(k,763) = lu(k,763) - lu(k,358) * lu(k,749) lu(k,764) = lu(k,764) - lu(k,359) * lu(k,749) lu(k,369) = 1._r8 / lu(k,369) @@ -2132,104 +2132,104 @@ subroutine lu_fac09( avec_len, lu ) lu(k,502) = lu(k,502) - lu(k,381) * lu(k,490) lu(k,503) = lu(k,503) - lu(k,382) * lu(k,490) lu(k,504) = lu(k,504) - lu(k,383) * lu(k,490) - lu(k,513) = lu(k,513) - lu(k,370) * lu(k,512) - lu(k,514) = lu(k,514) - lu(k,371) * lu(k,512) - lu(k,515) = lu(k,515) - lu(k,372) * lu(k,512) - lu(k,516) = lu(k,516) - lu(k,373) * lu(k,512) - lu(k,517) = lu(k,517) - lu(k,374) * lu(k,512) - lu(k,518) = lu(k,518) - lu(k,375) * lu(k,512) - lu(k,519) = lu(k,519) - lu(k,376) * lu(k,512) - lu(k,520) = lu(k,520) - lu(k,377) * lu(k,512) - lu(k,521) = lu(k,521) - lu(k,378) * lu(k,512) - lu(k,522) = lu(k,522) - lu(k,379) * lu(k,512) - lu(k,523) = lu(k,523) - lu(k,380) * lu(k,512) - lu(k,524) = lu(k,524) - lu(k,381) * lu(k,512) - lu(k,525) = lu(k,525) - lu(k,382) * lu(k,512) - lu(k,526) = lu(k,526) - lu(k,383) * lu(k,512) - lu(k,538) = lu(k,538) - lu(k,370) * lu(k,537) - lu(k,539) = lu(k,539) - lu(k,371) * lu(k,537) - lu(k,540) = lu(k,540) - lu(k,372) * lu(k,537) - lu(k,541) = lu(k,541) - lu(k,373) * lu(k,537) - lu(k,542) = lu(k,542) - lu(k,374) * lu(k,537) - lu(k,543) = lu(k,543) - lu(k,375) * lu(k,537) - lu(k,544) = lu(k,544) - lu(k,376) * lu(k,537) - lu(k,545) = lu(k,545) - lu(k,377) * lu(k,537) - lu(k,546) = lu(k,546) - lu(k,378) * lu(k,537) - lu(k,547) = lu(k,547) - lu(k,379) * lu(k,537) - lu(k,548) = lu(k,548) - lu(k,380) * lu(k,537) - lu(k,549) = lu(k,549) - lu(k,381) * lu(k,537) - lu(k,550) = lu(k,550) - lu(k,382) * lu(k,537) - lu(k,551) = lu(k,551) - lu(k,383) * lu(k,537) - lu(k,559) = lu(k,559) - lu(k,370) * lu(k,558) - lu(k,560) = lu(k,560) - lu(k,371) * lu(k,558) - lu(k,561) = lu(k,561) - lu(k,372) * lu(k,558) - lu(k,562) = lu(k,562) - lu(k,373) * lu(k,558) - lu(k,563) = lu(k,563) - lu(k,374) * lu(k,558) - lu(k,564) = lu(k,564) - lu(k,375) * lu(k,558) - lu(k,565) = lu(k,565) - lu(k,376) * lu(k,558) - lu(k,566) = lu(k,566) - lu(k,377) * lu(k,558) - lu(k,567) = lu(k,567) - lu(k,378) * lu(k,558) - lu(k,568) = lu(k,568) - lu(k,379) * lu(k,558) - lu(k,569) = lu(k,569) - lu(k,380) * lu(k,558) - lu(k,570) = lu(k,570) - lu(k,381) * lu(k,558) - lu(k,571) = lu(k,571) - lu(k,382) * lu(k,558) - lu(k,572) = lu(k,572) - lu(k,383) * lu(k,558) - lu(k,585) = lu(k,585) - lu(k,370) * lu(k,584) - lu(k,586) = lu(k,586) - lu(k,371) * lu(k,584) - lu(k,587) = lu(k,587) - lu(k,372) * lu(k,584) - lu(k,588) = lu(k,588) - lu(k,373) * lu(k,584) - lu(k,589) = lu(k,589) - lu(k,374) * lu(k,584) - lu(k,590) = lu(k,590) - lu(k,375) * lu(k,584) - lu(k,591) = lu(k,591) - lu(k,376) * lu(k,584) - lu(k,592) = lu(k,592) - lu(k,377) * lu(k,584) - lu(k,593) = lu(k,593) - lu(k,378) * lu(k,584) - lu(k,594) = lu(k,594) - lu(k,379) * lu(k,584) - lu(k,595) = lu(k,595) - lu(k,380) * lu(k,584) - lu(k,596) = lu(k,596) - lu(k,381) * lu(k,584) - lu(k,597) = lu(k,597) - lu(k,382) * lu(k,584) - lu(k,598) = lu(k,598) - lu(k,383) * lu(k,584) - lu(k,653) = lu(k,653) - lu(k,370) * lu(k,652) - lu(k,654) = lu(k,654) - lu(k,371) * lu(k,652) - lu(k,655) = lu(k,655) - lu(k,372) * lu(k,652) - lu(k,656) = lu(k,656) - lu(k,373) * lu(k,652) - lu(k,657) = lu(k,657) - lu(k,374) * lu(k,652) - lu(k,658) = lu(k,658) - lu(k,375) * lu(k,652) - lu(k,659) = lu(k,659) - lu(k,376) * lu(k,652) - lu(k,660) = lu(k,660) - lu(k,377) * lu(k,652) - lu(k,661) = lu(k,661) - lu(k,378) * lu(k,652) - lu(k,662) = lu(k,662) - lu(k,379) * lu(k,652) - lu(k,663) = lu(k,663) - lu(k,380) * lu(k,652) - lu(k,664) = lu(k,664) - lu(k,381) * lu(k,652) - lu(k,665) = lu(k,665) - lu(k,382) * lu(k,652) - lu(k,666) = lu(k,666) - lu(k,383) * lu(k,652) - lu(k,675) = lu(k,675) - lu(k,370) * lu(k,674) - lu(k,676) = lu(k,676) - lu(k,371) * lu(k,674) - lu(k,677) = lu(k,677) - lu(k,372) * lu(k,674) - lu(k,678) = lu(k,678) - lu(k,373) * lu(k,674) - lu(k,679) = lu(k,679) - lu(k,374) * lu(k,674) - lu(k,680) = lu(k,680) - lu(k,375) * lu(k,674) - lu(k,681) = lu(k,681) - lu(k,376) * lu(k,674) - lu(k,682) = lu(k,682) - lu(k,377) * lu(k,674) - lu(k,683) = lu(k,683) - lu(k,378) * lu(k,674) - lu(k,684) = lu(k,684) - lu(k,379) * lu(k,674) - lu(k,685) = lu(k,685) - lu(k,380) * lu(k,674) - lu(k,686) = lu(k,686) - lu(k,381) * lu(k,674) - lu(k,687) = lu(k,687) - lu(k,382) * lu(k,674) - lu(k,688) = lu(k,688) - lu(k,383) * lu(k,674) - lu(k,703) = lu(k,703) - lu(k,370) * lu(k,702) - lu(k,704) = lu(k,704) - lu(k,371) * lu(k,702) - lu(k,705) = lu(k,705) - lu(k,372) * lu(k,702) - lu(k,706) = lu(k,706) - lu(k,373) * lu(k,702) - lu(k,707) = lu(k,707) - lu(k,374) * lu(k,702) - lu(k,708) = lu(k,708) - lu(k,375) * lu(k,702) - lu(k,709) = lu(k,709) - lu(k,376) * lu(k,702) - lu(k,710) = lu(k,710) - lu(k,377) * lu(k,702) - lu(k,711) = lu(k,711) - lu(k,378) * lu(k,702) - lu(k,712) = lu(k,712) - lu(k,379) * lu(k,702) - lu(k,713) = lu(k,713) - lu(k,380) * lu(k,702) - lu(k,714) = lu(k,714) - lu(k,381) * lu(k,702) - lu(k,715) = lu(k,715) - lu(k,382) * lu(k,702) - lu(k,716) = lu(k,716) - lu(k,383) * lu(k,702) + lu(k,547) = lu(k,547) - lu(k,370) * lu(k,546) + lu(k,548) = lu(k,548) - lu(k,371) * lu(k,546) + lu(k,549) = lu(k,549) - lu(k,372) * lu(k,546) + lu(k,550) = lu(k,550) - lu(k,373) * lu(k,546) + lu(k,551) = lu(k,551) - lu(k,374) * lu(k,546) + lu(k,552) = lu(k,552) - lu(k,375) * lu(k,546) + lu(k,553) = lu(k,553) - lu(k,376) * lu(k,546) + lu(k,554) = lu(k,554) - lu(k,377) * lu(k,546) + lu(k,555) = lu(k,555) - lu(k,378) * lu(k,546) + lu(k,556) = lu(k,556) - lu(k,379) * lu(k,546) + lu(k,557) = lu(k,557) - lu(k,380) * lu(k,546) + lu(k,558) = lu(k,558) - lu(k,381) * lu(k,546) + lu(k,559) = lu(k,559) - lu(k,382) * lu(k,546) + lu(k,560) = lu(k,560) - lu(k,383) * lu(k,546) + lu(k,568) = lu(k,568) - lu(k,370) * lu(k,567) + lu(k,569) = lu(k,569) - lu(k,371) * lu(k,567) + lu(k,570) = lu(k,570) - lu(k,372) * lu(k,567) + lu(k,571) = lu(k,571) - lu(k,373) * lu(k,567) + lu(k,572) = lu(k,572) - lu(k,374) * lu(k,567) + lu(k,573) = lu(k,573) - lu(k,375) * lu(k,567) + lu(k,574) = lu(k,574) - lu(k,376) * lu(k,567) + lu(k,575) = lu(k,575) - lu(k,377) * lu(k,567) + lu(k,576) = lu(k,576) - lu(k,378) * lu(k,567) + lu(k,577) = lu(k,577) - lu(k,379) * lu(k,567) + lu(k,578) = lu(k,578) - lu(k,380) * lu(k,567) + lu(k,579) = lu(k,579) - lu(k,381) * lu(k,567) + lu(k,580) = lu(k,580) - lu(k,382) * lu(k,567) + lu(k,581) = lu(k,581) - lu(k,383) * lu(k,567) + lu(k,591) = lu(k,591) - lu(k,370) * lu(k,590) + lu(k,592) = lu(k,592) - lu(k,371) * lu(k,590) + lu(k,593) = lu(k,593) - lu(k,372) * lu(k,590) + lu(k,594) = lu(k,594) - lu(k,373) * lu(k,590) + lu(k,595) = lu(k,595) - lu(k,374) * lu(k,590) + lu(k,596) = lu(k,596) - lu(k,375) * lu(k,590) + lu(k,597) = lu(k,597) - lu(k,376) * lu(k,590) + lu(k,598) = lu(k,598) - lu(k,377) * lu(k,590) + lu(k,599) = lu(k,599) - lu(k,378) * lu(k,590) + lu(k,600) = lu(k,600) - lu(k,379) * lu(k,590) + lu(k,601) = lu(k,601) - lu(k,380) * lu(k,590) + lu(k,602) = lu(k,602) - lu(k,381) * lu(k,590) + lu(k,603) = lu(k,603) - lu(k,382) * lu(k,590) + lu(k,604) = lu(k,604) - lu(k,383) * lu(k,590) + lu(k,619) = lu(k,619) - lu(k,370) * lu(k,618) + lu(k,620) = lu(k,620) - lu(k,371) * lu(k,618) + lu(k,621) = lu(k,621) - lu(k,372) * lu(k,618) + lu(k,622) = lu(k,622) - lu(k,373) * lu(k,618) + lu(k,623) = lu(k,623) - lu(k,374) * lu(k,618) + lu(k,624) = lu(k,624) - lu(k,375) * lu(k,618) + lu(k,625) = lu(k,625) - lu(k,376) * lu(k,618) + lu(k,626) = lu(k,626) - lu(k,377) * lu(k,618) + lu(k,627) = lu(k,627) - lu(k,378) * lu(k,618) + lu(k,628) = lu(k,628) - lu(k,379) * lu(k,618) + lu(k,629) = lu(k,629) - lu(k,380) * lu(k,618) + lu(k,630) = lu(k,630) - lu(k,381) * lu(k,618) + lu(k,631) = lu(k,631) - lu(k,382) * lu(k,618) + lu(k,632) = lu(k,632) - lu(k,383) * lu(k,618) + lu(k,656) = lu(k,656) - lu(k,370) * lu(k,655) + lu(k,657) = lu(k,657) - lu(k,371) * lu(k,655) + lu(k,658) = lu(k,658) - lu(k,372) * lu(k,655) + lu(k,659) = lu(k,659) - lu(k,373) * lu(k,655) + lu(k,660) = lu(k,660) - lu(k,374) * lu(k,655) + lu(k,661) = lu(k,661) - lu(k,375) * lu(k,655) + lu(k,662) = lu(k,662) - lu(k,376) * lu(k,655) + lu(k,663) = lu(k,663) - lu(k,377) * lu(k,655) + lu(k,664) = lu(k,664) - lu(k,378) * lu(k,655) + lu(k,665) = lu(k,665) - lu(k,379) * lu(k,655) + lu(k,666) = lu(k,666) - lu(k,380) * lu(k,655) + lu(k,667) = lu(k,667) - lu(k,381) * lu(k,655) + lu(k,668) = lu(k,668) - lu(k,382) * lu(k,655) + lu(k,669) = lu(k,669) - lu(k,383) * lu(k,655) + lu(k,678) = lu(k,678) - lu(k,370) * lu(k,677) + lu(k,679) = lu(k,679) - lu(k,371) * lu(k,677) + lu(k,680) = lu(k,680) - lu(k,372) * lu(k,677) + lu(k,681) = lu(k,681) - lu(k,373) * lu(k,677) + lu(k,682) = lu(k,682) - lu(k,374) * lu(k,677) + lu(k,683) = lu(k,683) - lu(k,375) * lu(k,677) + lu(k,684) = lu(k,684) - lu(k,376) * lu(k,677) + lu(k,685) = lu(k,685) - lu(k,377) * lu(k,677) + lu(k,686) = lu(k,686) - lu(k,378) * lu(k,677) + lu(k,687) = lu(k,687) - lu(k,379) * lu(k,677) + lu(k,688) = lu(k,688) - lu(k,380) * lu(k,677) + lu(k,689) = lu(k,689) - lu(k,381) * lu(k,677) + lu(k,690) = lu(k,690) - lu(k,382) * lu(k,677) + lu(k,691) = lu(k,691) - lu(k,383) * lu(k,677) + lu(k,704) = lu(k,704) - lu(k,370) * lu(k,703) + lu(k,705) = lu(k,705) - lu(k,371) * lu(k,703) + lu(k,706) = lu(k,706) - lu(k,372) * lu(k,703) + lu(k,707) = lu(k,707) - lu(k,373) * lu(k,703) + lu(k,708) = lu(k,708) - lu(k,374) * lu(k,703) + lu(k,709) = lu(k,709) - lu(k,375) * lu(k,703) + lu(k,710) = lu(k,710) - lu(k,376) * lu(k,703) + lu(k,711) = lu(k,711) - lu(k,377) * lu(k,703) + lu(k,712) = lu(k,712) - lu(k,378) * lu(k,703) + lu(k,713) = lu(k,713) - lu(k,379) * lu(k,703) + lu(k,714) = lu(k,714) - lu(k,380) * lu(k,703) + lu(k,715) = lu(k,715) - lu(k,381) * lu(k,703) + lu(k,716) = lu(k,716) - lu(k,382) * lu(k,703) + lu(k,717) = lu(k,717) - lu(k,383) * lu(k,703) lu(k,726) = lu(k,726) - lu(k,370) * lu(k,725) lu(k,727) = lu(k,727) - lu(k,371) * lu(k,725) lu(k,728) = lu(k,728) - lu(k,372) * lu(k,725) @@ -2311,110 +2311,110 @@ subroutine lu_fac09( avec_len, lu ) lu(k,502) = lu(k,502) - lu(k,406) * lu(k,491) lu(k,503) = lu(k,503) - lu(k,407) * lu(k,491) lu(k,504) = lu(k,504) - lu(k,408) * lu(k,491) - lu(k,514) = lu(k,514) - lu(k,396) * lu(k,513) - lu(k,515) = lu(k,515) - lu(k,397) * lu(k,513) - lu(k,516) = lu(k,516) - lu(k,398) * lu(k,513) - lu(k,517) = lu(k,517) - lu(k,399) * lu(k,513) - lu(k,518) = lu(k,518) - lu(k,400) * lu(k,513) - lu(k,519) = lu(k,519) - lu(k,401) * lu(k,513) - lu(k,520) = lu(k,520) - lu(k,402) * lu(k,513) - lu(k,521) = lu(k,521) - lu(k,403) * lu(k,513) - lu(k,522) = lu(k,522) - lu(k,404) * lu(k,513) - lu(k,523) = lu(k,523) - lu(k,405) * lu(k,513) - lu(k,524) = lu(k,524) - lu(k,406) * lu(k,513) - lu(k,525) = lu(k,525) - lu(k,407) * lu(k,513) - lu(k,526) = lu(k,526) - lu(k,408) * lu(k,513) - lu(k,539) = lu(k,539) - lu(k,396) * lu(k,538) - lu(k,540) = lu(k,540) - lu(k,397) * lu(k,538) - lu(k,541) = lu(k,541) - lu(k,398) * lu(k,538) - lu(k,542) = lu(k,542) - lu(k,399) * lu(k,538) - lu(k,543) = lu(k,543) - lu(k,400) * lu(k,538) - lu(k,544) = lu(k,544) - lu(k,401) * lu(k,538) - lu(k,545) = lu(k,545) - lu(k,402) * lu(k,538) - lu(k,546) = lu(k,546) - lu(k,403) * lu(k,538) - lu(k,547) = lu(k,547) - lu(k,404) * lu(k,538) - lu(k,548) = lu(k,548) - lu(k,405) * lu(k,538) - lu(k,549) = lu(k,549) - lu(k,406) * lu(k,538) - lu(k,550) = lu(k,550) - lu(k,407) * lu(k,538) - lu(k,551) = lu(k,551) - lu(k,408) * lu(k,538) - lu(k,560) = lu(k,560) - lu(k,396) * lu(k,559) - lu(k,561) = lu(k,561) - lu(k,397) * lu(k,559) - lu(k,562) = lu(k,562) - lu(k,398) * lu(k,559) - lu(k,563) = lu(k,563) - lu(k,399) * lu(k,559) - lu(k,564) = lu(k,564) - lu(k,400) * lu(k,559) - lu(k,565) = lu(k,565) - lu(k,401) * lu(k,559) - lu(k,566) = lu(k,566) - lu(k,402) * lu(k,559) - lu(k,567) = lu(k,567) - lu(k,403) * lu(k,559) - lu(k,568) = lu(k,568) - lu(k,404) * lu(k,559) - lu(k,569) = lu(k,569) - lu(k,405) * lu(k,559) - lu(k,570) = lu(k,570) - lu(k,406) * lu(k,559) - lu(k,571) = lu(k,571) - lu(k,407) * lu(k,559) - lu(k,572) = lu(k,572) - lu(k,408) * lu(k,559) - lu(k,586) = lu(k,586) - lu(k,396) * lu(k,585) - lu(k,587) = lu(k,587) - lu(k,397) * lu(k,585) - lu(k,588) = lu(k,588) - lu(k,398) * lu(k,585) - lu(k,589) = lu(k,589) - lu(k,399) * lu(k,585) - lu(k,590) = lu(k,590) - lu(k,400) * lu(k,585) - lu(k,591) = lu(k,591) - lu(k,401) * lu(k,585) - lu(k,592) = lu(k,592) - lu(k,402) * lu(k,585) - lu(k,593) = lu(k,593) - lu(k,403) * lu(k,585) - lu(k,594) = lu(k,594) - lu(k,404) * lu(k,585) - lu(k,595) = lu(k,595) - lu(k,405) * lu(k,585) - lu(k,596) = lu(k,596) - lu(k,406) * lu(k,585) - lu(k,597) = lu(k,597) - lu(k,407) * lu(k,585) - lu(k,598) = lu(k,598) - lu(k,408) * lu(k,585) - lu(k,617) = lu(k,617) - lu(k,396) * lu(k,616) - lu(k,618) = lu(k,618) - lu(k,397) * lu(k,616) - lu(k,619) = lu(k,619) - lu(k,398) * lu(k,616) - lu(k,620) = lu(k,620) - lu(k,399) * lu(k,616) - lu(k,621) = lu(k,621) - lu(k,400) * lu(k,616) - lu(k,622) = lu(k,622) - lu(k,401) * lu(k,616) - lu(k,623) = lu(k,623) - lu(k,402) * lu(k,616) - lu(k,624) = lu(k,624) - lu(k,403) * lu(k,616) - lu(k,625) = lu(k,625) - lu(k,404) * lu(k,616) - lu(k,626) = lu(k,626) - lu(k,405) * lu(k,616) - lu(k,627) = lu(k,627) - lu(k,406) * lu(k,616) - lu(k,628) = lu(k,628) - lu(k,407) * lu(k,616) - lu(k,629) = lu(k,629) - lu(k,408) * lu(k,616) - lu(k,654) = lu(k,654) - lu(k,396) * lu(k,653) - lu(k,655) = lu(k,655) - lu(k,397) * lu(k,653) - lu(k,656) = lu(k,656) - lu(k,398) * lu(k,653) - lu(k,657) = lu(k,657) - lu(k,399) * lu(k,653) - lu(k,658) = lu(k,658) - lu(k,400) * lu(k,653) - lu(k,659) = lu(k,659) - lu(k,401) * lu(k,653) - lu(k,660) = lu(k,660) - lu(k,402) * lu(k,653) - lu(k,661) = lu(k,661) - lu(k,403) * lu(k,653) - lu(k,662) = lu(k,662) - lu(k,404) * lu(k,653) - lu(k,663) = lu(k,663) - lu(k,405) * lu(k,653) - lu(k,664) = lu(k,664) - lu(k,406) * lu(k,653) - lu(k,665) = lu(k,665) - lu(k,407) * lu(k,653) - lu(k,666) = lu(k,666) - lu(k,408) * lu(k,653) - lu(k,676) = lu(k,676) - lu(k,396) * lu(k,675) - lu(k,677) = lu(k,677) - lu(k,397) * lu(k,675) - lu(k,678) = lu(k,678) - lu(k,398) * lu(k,675) - lu(k,679) = lu(k,679) - lu(k,399) * lu(k,675) - lu(k,680) = lu(k,680) - lu(k,400) * lu(k,675) - lu(k,681) = lu(k,681) - lu(k,401) * lu(k,675) - lu(k,682) = lu(k,682) - lu(k,402) * lu(k,675) - lu(k,683) = lu(k,683) - lu(k,403) * lu(k,675) - lu(k,684) = lu(k,684) - lu(k,404) * lu(k,675) - lu(k,685) = lu(k,685) - lu(k,405) * lu(k,675) - lu(k,686) = lu(k,686) - lu(k,406) * lu(k,675) - lu(k,687) = lu(k,687) - lu(k,407) * lu(k,675) - lu(k,688) = lu(k,688) - lu(k,408) * lu(k,675) - lu(k,704) = lu(k,704) - lu(k,396) * lu(k,703) - lu(k,705) = lu(k,705) - lu(k,397) * lu(k,703) - lu(k,706) = lu(k,706) - lu(k,398) * lu(k,703) - lu(k,707) = lu(k,707) - lu(k,399) * lu(k,703) - lu(k,708) = lu(k,708) - lu(k,400) * lu(k,703) - lu(k,709) = lu(k,709) - lu(k,401) * lu(k,703) - lu(k,710) = lu(k,710) - lu(k,402) * lu(k,703) - lu(k,711) = lu(k,711) - lu(k,403) * lu(k,703) - lu(k,712) = lu(k,712) - lu(k,404) * lu(k,703) - lu(k,713) = lu(k,713) - lu(k,405) * lu(k,703) - lu(k,714) = lu(k,714) - lu(k,406) * lu(k,703) - lu(k,715) = lu(k,715) - lu(k,407) * lu(k,703) - lu(k,716) = lu(k,716) - lu(k,408) * lu(k,703) + lu(k,523) = lu(k,523) - lu(k,396) * lu(k,522) + lu(k,524) = lu(k,524) - lu(k,397) * lu(k,522) + lu(k,525) = lu(k,525) - lu(k,398) * lu(k,522) + lu(k,526) = lu(k,526) - lu(k,399) * lu(k,522) + lu(k,527) = lu(k,527) - lu(k,400) * lu(k,522) + lu(k,528) = lu(k,528) - lu(k,401) * lu(k,522) + lu(k,529) = lu(k,529) - lu(k,402) * lu(k,522) + lu(k,530) = lu(k,530) - lu(k,403) * lu(k,522) + lu(k,531) = lu(k,531) - lu(k,404) * lu(k,522) + lu(k,532) = lu(k,532) - lu(k,405) * lu(k,522) + lu(k,533) = lu(k,533) - lu(k,406) * lu(k,522) + lu(k,534) = lu(k,534) - lu(k,407) * lu(k,522) + lu(k,535) = lu(k,535) - lu(k,408) * lu(k,522) + lu(k,548) = lu(k,548) - lu(k,396) * lu(k,547) + lu(k,549) = lu(k,549) - lu(k,397) * lu(k,547) + lu(k,550) = lu(k,550) - lu(k,398) * lu(k,547) + lu(k,551) = lu(k,551) - lu(k,399) * lu(k,547) + lu(k,552) = lu(k,552) - lu(k,400) * lu(k,547) + lu(k,553) = lu(k,553) - lu(k,401) * lu(k,547) + lu(k,554) = lu(k,554) - lu(k,402) * lu(k,547) + lu(k,555) = lu(k,555) - lu(k,403) * lu(k,547) + lu(k,556) = lu(k,556) - lu(k,404) * lu(k,547) + lu(k,557) = lu(k,557) - lu(k,405) * lu(k,547) + lu(k,558) = lu(k,558) - lu(k,406) * lu(k,547) + lu(k,559) = lu(k,559) - lu(k,407) * lu(k,547) + lu(k,560) = lu(k,560) - lu(k,408) * lu(k,547) + lu(k,569) = lu(k,569) - lu(k,396) * lu(k,568) + lu(k,570) = lu(k,570) - lu(k,397) * lu(k,568) + lu(k,571) = lu(k,571) - lu(k,398) * lu(k,568) + lu(k,572) = lu(k,572) - lu(k,399) * lu(k,568) + lu(k,573) = lu(k,573) - lu(k,400) * lu(k,568) + lu(k,574) = lu(k,574) - lu(k,401) * lu(k,568) + lu(k,575) = lu(k,575) - lu(k,402) * lu(k,568) + lu(k,576) = lu(k,576) - lu(k,403) * lu(k,568) + lu(k,577) = lu(k,577) - lu(k,404) * lu(k,568) + lu(k,578) = lu(k,578) - lu(k,405) * lu(k,568) + lu(k,579) = lu(k,579) - lu(k,406) * lu(k,568) + lu(k,580) = lu(k,580) - lu(k,407) * lu(k,568) + lu(k,581) = lu(k,581) - lu(k,408) * lu(k,568) + lu(k,592) = lu(k,592) - lu(k,396) * lu(k,591) + lu(k,593) = lu(k,593) - lu(k,397) * lu(k,591) + lu(k,594) = lu(k,594) - lu(k,398) * lu(k,591) + lu(k,595) = lu(k,595) - lu(k,399) * lu(k,591) + lu(k,596) = lu(k,596) - lu(k,400) * lu(k,591) + lu(k,597) = lu(k,597) - lu(k,401) * lu(k,591) + lu(k,598) = lu(k,598) - lu(k,402) * lu(k,591) + lu(k,599) = lu(k,599) - lu(k,403) * lu(k,591) + lu(k,600) = lu(k,600) - lu(k,404) * lu(k,591) + lu(k,601) = lu(k,601) - lu(k,405) * lu(k,591) + lu(k,602) = lu(k,602) - lu(k,406) * lu(k,591) + lu(k,603) = lu(k,603) - lu(k,407) * lu(k,591) + lu(k,604) = lu(k,604) - lu(k,408) * lu(k,591) + lu(k,620) = lu(k,620) - lu(k,396) * lu(k,619) + lu(k,621) = lu(k,621) - lu(k,397) * lu(k,619) + lu(k,622) = lu(k,622) - lu(k,398) * lu(k,619) + lu(k,623) = lu(k,623) - lu(k,399) * lu(k,619) + lu(k,624) = lu(k,624) - lu(k,400) * lu(k,619) + lu(k,625) = lu(k,625) - lu(k,401) * lu(k,619) + lu(k,626) = lu(k,626) - lu(k,402) * lu(k,619) + lu(k,627) = lu(k,627) - lu(k,403) * lu(k,619) + lu(k,628) = lu(k,628) - lu(k,404) * lu(k,619) + lu(k,629) = lu(k,629) - lu(k,405) * lu(k,619) + lu(k,630) = lu(k,630) - lu(k,406) * lu(k,619) + lu(k,631) = lu(k,631) - lu(k,407) * lu(k,619) + lu(k,632) = lu(k,632) - lu(k,408) * lu(k,619) + lu(k,657) = lu(k,657) - lu(k,396) * lu(k,656) + lu(k,658) = lu(k,658) - lu(k,397) * lu(k,656) + lu(k,659) = lu(k,659) - lu(k,398) * lu(k,656) + lu(k,660) = lu(k,660) - lu(k,399) * lu(k,656) + lu(k,661) = lu(k,661) - lu(k,400) * lu(k,656) + lu(k,662) = lu(k,662) - lu(k,401) * lu(k,656) + lu(k,663) = lu(k,663) - lu(k,402) * lu(k,656) + lu(k,664) = lu(k,664) - lu(k,403) * lu(k,656) + lu(k,665) = lu(k,665) - lu(k,404) * lu(k,656) + lu(k,666) = lu(k,666) - lu(k,405) * lu(k,656) + lu(k,667) = lu(k,667) - lu(k,406) * lu(k,656) + lu(k,668) = lu(k,668) - lu(k,407) * lu(k,656) + lu(k,669) = lu(k,669) - lu(k,408) * lu(k,656) + lu(k,679) = lu(k,679) - lu(k,396) * lu(k,678) + lu(k,680) = lu(k,680) - lu(k,397) * lu(k,678) + lu(k,681) = lu(k,681) - lu(k,398) * lu(k,678) + lu(k,682) = lu(k,682) - lu(k,399) * lu(k,678) + lu(k,683) = lu(k,683) - lu(k,400) * lu(k,678) + lu(k,684) = lu(k,684) - lu(k,401) * lu(k,678) + lu(k,685) = lu(k,685) - lu(k,402) * lu(k,678) + lu(k,686) = lu(k,686) - lu(k,403) * lu(k,678) + lu(k,687) = lu(k,687) - lu(k,404) * lu(k,678) + lu(k,688) = lu(k,688) - lu(k,405) * lu(k,678) + lu(k,689) = lu(k,689) - lu(k,406) * lu(k,678) + lu(k,690) = lu(k,690) - lu(k,407) * lu(k,678) + lu(k,691) = lu(k,691) - lu(k,408) * lu(k,678) + lu(k,705) = lu(k,705) - lu(k,396) * lu(k,704) + lu(k,706) = lu(k,706) - lu(k,397) * lu(k,704) + lu(k,707) = lu(k,707) - lu(k,398) * lu(k,704) + lu(k,708) = lu(k,708) - lu(k,399) * lu(k,704) + lu(k,709) = lu(k,709) - lu(k,400) * lu(k,704) + lu(k,710) = lu(k,710) - lu(k,401) * lu(k,704) + lu(k,711) = lu(k,711) - lu(k,402) * lu(k,704) + lu(k,712) = lu(k,712) - lu(k,403) * lu(k,704) + lu(k,713) = lu(k,713) - lu(k,404) * lu(k,704) + lu(k,714) = lu(k,714) - lu(k,405) * lu(k,704) + lu(k,715) = lu(k,715) - lu(k,406) * lu(k,704) + lu(k,716) = lu(k,716) - lu(k,407) * lu(k,704) + lu(k,717) = lu(k,717) - lu(k,408) * lu(k,704) lu(k,727) = lu(k,727) - lu(k,396) * lu(k,726) lu(k,728) = lu(k,728) - lu(k,397) * lu(k,726) lu(k,729) = lu(k,729) - lu(k,398) * lu(k,726) @@ -2478,102 +2478,102 @@ subroutine lu_fac09( avec_len, lu ) lu(k,502) = lu(k,502) - lu(k,431) * lu(k,492) lu(k,503) = lu(k,503) - lu(k,432) * lu(k,492) lu(k,504) = lu(k,504) - lu(k,433) * lu(k,492) - lu(k,515) = lu(k,515) - lu(k,422) * lu(k,514) - lu(k,516) = lu(k,516) - lu(k,423) * lu(k,514) - lu(k,517) = lu(k,517) - lu(k,424) * lu(k,514) - lu(k,518) = lu(k,518) - lu(k,425) * lu(k,514) - lu(k,519) = lu(k,519) - lu(k,426) * lu(k,514) - lu(k,520) = lu(k,520) - lu(k,427) * lu(k,514) - lu(k,521) = lu(k,521) - lu(k,428) * lu(k,514) - lu(k,522) = lu(k,522) - lu(k,429) * lu(k,514) - lu(k,523) = lu(k,523) - lu(k,430) * lu(k,514) - lu(k,524) = lu(k,524) - lu(k,431) * lu(k,514) - lu(k,525) = lu(k,525) - lu(k,432) * lu(k,514) - lu(k,526) = lu(k,526) - lu(k,433) * lu(k,514) - lu(k,540) = lu(k,540) - lu(k,422) * lu(k,539) - lu(k,541) = lu(k,541) - lu(k,423) * lu(k,539) - lu(k,542) = lu(k,542) - lu(k,424) * lu(k,539) - lu(k,543) = lu(k,543) - lu(k,425) * lu(k,539) - lu(k,544) = lu(k,544) - lu(k,426) * lu(k,539) - lu(k,545) = lu(k,545) - lu(k,427) * lu(k,539) - lu(k,546) = lu(k,546) - lu(k,428) * lu(k,539) - lu(k,547) = lu(k,547) - lu(k,429) * lu(k,539) - lu(k,548) = lu(k,548) - lu(k,430) * lu(k,539) - lu(k,549) = lu(k,549) - lu(k,431) * lu(k,539) - lu(k,550) = lu(k,550) - lu(k,432) * lu(k,539) - lu(k,551) = lu(k,551) - lu(k,433) * lu(k,539) - lu(k,561) = lu(k,561) - lu(k,422) * lu(k,560) - lu(k,562) = lu(k,562) - lu(k,423) * lu(k,560) - lu(k,563) = lu(k,563) - lu(k,424) * lu(k,560) - lu(k,564) = lu(k,564) - lu(k,425) * lu(k,560) - lu(k,565) = lu(k,565) - lu(k,426) * lu(k,560) - lu(k,566) = lu(k,566) - lu(k,427) * lu(k,560) - lu(k,567) = lu(k,567) - lu(k,428) * lu(k,560) - lu(k,568) = lu(k,568) - lu(k,429) * lu(k,560) - lu(k,569) = lu(k,569) - lu(k,430) * lu(k,560) - lu(k,570) = lu(k,570) - lu(k,431) * lu(k,560) - lu(k,571) = lu(k,571) - lu(k,432) * lu(k,560) - lu(k,572) = lu(k,572) - lu(k,433) * lu(k,560) - lu(k,587) = lu(k,587) - lu(k,422) * lu(k,586) - lu(k,588) = lu(k,588) - lu(k,423) * lu(k,586) - lu(k,589) = lu(k,589) - lu(k,424) * lu(k,586) - lu(k,590) = lu(k,590) - lu(k,425) * lu(k,586) - lu(k,591) = lu(k,591) - lu(k,426) * lu(k,586) - lu(k,592) = lu(k,592) - lu(k,427) * lu(k,586) - lu(k,593) = lu(k,593) - lu(k,428) * lu(k,586) - lu(k,594) = lu(k,594) - lu(k,429) * lu(k,586) - lu(k,595) = lu(k,595) - lu(k,430) * lu(k,586) - lu(k,596) = lu(k,596) - lu(k,431) * lu(k,586) - lu(k,597) = lu(k,597) - lu(k,432) * lu(k,586) - lu(k,598) = lu(k,598) - lu(k,433) * lu(k,586) - lu(k,618) = lu(k,618) - lu(k,422) * lu(k,617) - lu(k,619) = lu(k,619) - lu(k,423) * lu(k,617) - lu(k,620) = lu(k,620) - lu(k,424) * lu(k,617) - lu(k,621) = lu(k,621) - lu(k,425) * lu(k,617) - lu(k,622) = lu(k,622) - lu(k,426) * lu(k,617) - lu(k,623) = lu(k,623) - lu(k,427) * lu(k,617) - lu(k,624) = lu(k,624) - lu(k,428) * lu(k,617) - lu(k,625) = lu(k,625) - lu(k,429) * lu(k,617) - lu(k,626) = lu(k,626) - lu(k,430) * lu(k,617) - lu(k,627) = lu(k,627) - lu(k,431) * lu(k,617) - lu(k,628) = lu(k,628) - lu(k,432) * lu(k,617) - lu(k,629) = lu(k,629) - lu(k,433) * lu(k,617) - lu(k,655) = lu(k,655) - lu(k,422) * lu(k,654) - lu(k,656) = lu(k,656) - lu(k,423) * lu(k,654) - lu(k,657) = lu(k,657) - lu(k,424) * lu(k,654) - lu(k,658) = lu(k,658) - lu(k,425) * lu(k,654) - lu(k,659) = lu(k,659) - lu(k,426) * lu(k,654) - lu(k,660) = lu(k,660) - lu(k,427) * lu(k,654) - lu(k,661) = lu(k,661) - lu(k,428) * lu(k,654) - lu(k,662) = lu(k,662) - lu(k,429) * lu(k,654) - lu(k,663) = lu(k,663) - lu(k,430) * lu(k,654) - lu(k,664) = lu(k,664) - lu(k,431) * lu(k,654) - lu(k,665) = lu(k,665) - lu(k,432) * lu(k,654) - lu(k,666) = lu(k,666) - lu(k,433) * lu(k,654) - lu(k,677) = lu(k,677) - lu(k,422) * lu(k,676) - lu(k,678) = lu(k,678) - lu(k,423) * lu(k,676) - lu(k,679) = lu(k,679) - lu(k,424) * lu(k,676) - lu(k,680) = lu(k,680) - lu(k,425) * lu(k,676) - lu(k,681) = lu(k,681) - lu(k,426) * lu(k,676) - lu(k,682) = lu(k,682) - lu(k,427) * lu(k,676) - lu(k,683) = lu(k,683) - lu(k,428) * lu(k,676) - lu(k,684) = lu(k,684) - lu(k,429) * lu(k,676) - lu(k,685) = lu(k,685) - lu(k,430) * lu(k,676) - lu(k,686) = lu(k,686) - lu(k,431) * lu(k,676) - lu(k,687) = lu(k,687) - lu(k,432) * lu(k,676) - lu(k,688) = lu(k,688) - lu(k,433) * lu(k,676) - lu(k,705) = lu(k,705) - lu(k,422) * lu(k,704) - lu(k,706) = lu(k,706) - lu(k,423) * lu(k,704) - lu(k,707) = lu(k,707) - lu(k,424) * lu(k,704) - lu(k,708) = lu(k,708) - lu(k,425) * lu(k,704) - lu(k,709) = lu(k,709) - lu(k,426) * lu(k,704) - lu(k,710) = lu(k,710) - lu(k,427) * lu(k,704) - lu(k,711) = lu(k,711) - lu(k,428) * lu(k,704) - lu(k,712) = lu(k,712) - lu(k,429) * lu(k,704) - lu(k,713) = lu(k,713) - lu(k,430) * lu(k,704) - lu(k,714) = lu(k,714) - lu(k,431) * lu(k,704) - lu(k,715) = lu(k,715) - lu(k,432) * lu(k,704) - lu(k,716) = lu(k,716) - lu(k,433) * lu(k,704) + lu(k,524) = lu(k,524) - lu(k,422) * lu(k,523) + lu(k,525) = lu(k,525) - lu(k,423) * lu(k,523) + lu(k,526) = lu(k,526) - lu(k,424) * lu(k,523) + lu(k,527) = lu(k,527) - lu(k,425) * lu(k,523) + lu(k,528) = lu(k,528) - lu(k,426) * lu(k,523) + lu(k,529) = lu(k,529) - lu(k,427) * lu(k,523) + lu(k,530) = lu(k,530) - lu(k,428) * lu(k,523) + lu(k,531) = lu(k,531) - lu(k,429) * lu(k,523) + lu(k,532) = lu(k,532) - lu(k,430) * lu(k,523) + lu(k,533) = lu(k,533) - lu(k,431) * lu(k,523) + lu(k,534) = lu(k,534) - lu(k,432) * lu(k,523) + lu(k,535) = lu(k,535) - lu(k,433) * lu(k,523) + lu(k,549) = lu(k,549) - lu(k,422) * lu(k,548) + lu(k,550) = lu(k,550) - lu(k,423) * lu(k,548) + lu(k,551) = lu(k,551) - lu(k,424) * lu(k,548) + lu(k,552) = lu(k,552) - lu(k,425) * lu(k,548) + lu(k,553) = lu(k,553) - lu(k,426) * lu(k,548) + lu(k,554) = lu(k,554) - lu(k,427) * lu(k,548) + lu(k,555) = lu(k,555) - lu(k,428) * lu(k,548) + lu(k,556) = lu(k,556) - lu(k,429) * lu(k,548) + lu(k,557) = lu(k,557) - lu(k,430) * lu(k,548) + lu(k,558) = lu(k,558) - lu(k,431) * lu(k,548) + lu(k,559) = lu(k,559) - lu(k,432) * lu(k,548) + lu(k,560) = lu(k,560) - lu(k,433) * lu(k,548) + lu(k,570) = lu(k,570) - lu(k,422) * lu(k,569) + lu(k,571) = lu(k,571) - lu(k,423) * lu(k,569) + lu(k,572) = lu(k,572) - lu(k,424) * lu(k,569) + lu(k,573) = lu(k,573) - lu(k,425) * lu(k,569) + lu(k,574) = lu(k,574) - lu(k,426) * lu(k,569) + lu(k,575) = lu(k,575) - lu(k,427) * lu(k,569) + lu(k,576) = lu(k,576) - lu(k,428) * lu(k,569) + lu(k,577) = lu(k,577) - lu(k,429) * lu(k,569) + lu(k,578) = lu(k,578) - lu(k,430) * lu(k,569) + lu(k,579) = lu(k,579) - lu(k,431) * lu(k,569) + lu(k,580) = lu(k,580) - lu(k,432) * lu(k,569) + lu(k,581) = lu(k,581) - lu(k,433) * lu(k,569) + lu(k,593) = lu(k,593) - lu(k,422) * lu(k,592) + lu(k,594) = lu(k,594) - lu(k,423) * lu(k,592) + lu(k,595) = lu(k,595) - lu(k,424) * lu(k,592) + lu(k,596) = lu(k,596) - lu(k,425) * lu(k,592) + lu(k,597) = lu(k,597) - lu(k,426) * lu(k,592) + lu(k,598) = lu(k,598) - lu(k,427) * lu(k,592) + lu(k,599) = lu(k,599) - lu(k,428) * lu(k,592) + lu(k,600) = lu(k,600) - lu(k,429) * lu(k,592) + lu(k,601) = lu(k,601) - lu(k,430) * lu(k,592) + lu(k,602) = lu(k,602) - lu(k,431) * lu(k,592) + lu(k,603) = lu(k,603) - lu(k,432) * lu(k,592) + lu(k,604) = lu(k,604) - lu(k,433) * lu(k,592) + lu(k,621) = lu(k,621) - lu(k,422) * lu(k,620) + lu(k,622) = lu(k,622) - lu(k,423) * lu(k,620) + lu(k,623) = lu(k,623) - lu(k,424) * lu(k,620) + lu(k,624) = lu(k,624) - lu(k,425) * lu(k,620) + lu(k,625) = lu(k,625) - lu(k,426) * lu(k,620) + lu(k,626) = lu(k,626) - lu(k,427) * lu(k,620) + lu(k,627) = lu(k,627) - lu(k,428) * lu(k,620) + lu(k,628) = lu(k,628) - lu(k,429) * lu(k,620) + lu(k,629) = lu(k,629) - lu(k,430) * lu(k,620) + lu(k,630) = lu(k,630) - lu(k,431) * lu(k,620) + lu(k,631) = lu(k,631) - lu(k,432) * lu(k,620) + lu(k,632) = lu(k,632) - lu(k,433) * lu(k,620) + lu(k,658) = lu(k,658) - lu(k,422) * lu(k,657) + lu(k,659) = lu(k,659) - lu(k,423) * lu(k,657) + lu(k,660) = lu(k,660) - lu(k,424) * lu(k,657) + lu(k,661) = lu(k,661) - lu(k,425) * lu(k,657) + lu(k,662) = lu(k,662) - lu(k,426) * lu(k,657) + lu(k,663) = lu(k,663) - lu(k,427) * lu(k,657) + lu(k,664) = lu(k,664) - lu(k,428) * lu(k,657) + lu(k,665) = lu(k,665) - lu(k,429) * lu(k,657) + lu(k,666) = lu(k,666) - lu(k,430) * lu(k,657) + lu(k,667) = lu(k,667) - lu(k,431) * lu(k,657) + lu(k,668) = lu(k,668) - lu(k,432) * lu(k,657) + lu(k,669) = lu(k,669) - lu(k,433) * lu(k,657) + lu(k,680) = lu(k,680) - lu(k,422) * lu(k,679) + lu(k,681) = lu(k,681) - lu(k,423) * lu(k,679) + lu(k,682) = lu(k,682) - lu(k,424) * lu(k,679) + lu(k,683) = lu(k,683) - lu(k,425) * lu(k,679) + lu(k,684) = lu(k,684) - lu(k,426) * lu(k,679) + lu(k,685) = lu(k,685) - lu(k,427) * lu(k,679) + lu(k,686) = lu(k,686) - lu(k,428) * lu(k,679) + lu(k,687) = lu(k,687) - lu(k,429) * lu(k,679) + lu(k,688) = lu(k,688) - lu(k,430) * lu(k,679) + lu(k,689) = lu(k,689) - lu(k,431) * lu(k,679) + lu(k,690) = lu(k,690) - lu(k,432) * lu(k,679) + lu(k,691) = lu(k,691) - lu(k,433) * lu(k,679) + lu(k,706) = lu(k,706) - lu(k,422) * lu(k,705) + lu(k,707) = lu(k,707) - lu(k,423) * lu(k,705) + lu(k,708) = lu(k,708) - lu(k,424) * lu(k,705) + lu(k,709) = lu(k,709) - lu(k,425) * lu(k,705) + lu(k,710) = lu(k,710) - lu(k,426) * lu(k,705) + lu(k,711) = lu(k,711) - lu(k,427) * lu(k,705) + lu(k,712) = lu(k,712) - lu(k,428) * lu(k,705) + lu(k,713) = lu(k,713) - lu(k,429) * lu(k,705) + lu(k,714) = lu(k,714) - lu(k,430) * lu(k,705) + lu(k,715) = lu(k,715) - lu(k,431) * lu(k,705) + lu(k,716) = lu(k,716) - lu(k,432) * lu(k,705) + lu(k,717) = lu(k,717) - lu(k,433) * lu(k,705) lu(k,728) = lu(k,728) - lu(k,422) * lu(k,727) lu(k,729) = lu(k,729) - lu(k,423) * lu(k,727) lu(k,730) = lu(k,730) - lu(k,424) * lu(k,727) @@ -2637,94 +2637,94 @@ subroutine lu_fac10( avec_len, lu ) lu(k,502) = lu(k,502) - lu(k,459) * lu(k,493) lu(k,503) = lu(k,503) - lu(k,460) * lu(k,493) lu(k,504) = lu(k,504) - lu(k,461) * lu(k,493) - lu(k,516) = lu(k,516) - lu(k,451) * lu(k,515) - lu(k,517) = lu(k,517) - lu(k,452) * lu(k,515) - lu(k,518) = lu(k,518) - lu(k,453) * lu(k,515) - lu(k,519) = lu(k,519) - lu(k,454) * lu(k,515) - lu(k,520) = lu(k,520) - lu(k,455) * lu(k,515) - lu(k,521) = lu(k,521) - lu(k,456) * lu(k,515) - lu(k,522) = lu(k,522) - lu(k,457) * lu(k,515) - lu(k,523) = lu(k,523) - lu(k,458) * lu(k,515) - lu(k,524) = lu(k,524) - lu(k,459) * lu(k,515) - lu(k,525) = lu(k,525) - lu(k,460) * lu(k,515) - lu(k,526) = lu(k,526) - lu(k,461) * lu(k,515) - lu(k,541) = lu(k,541) - lu(k,451) * lu(k,540) - lu(k,542) = lu(k,542) - lu(k,452) * lu(k,540) - lu(k,543) = lu(k,543) - lu(k,453) * lu(k,540) - lu(k,544) = lu(k,544) - lu(k,454) * lu(k,540) - lu(k,545) = lu(k,545) - lu(k,455) * lu(k,540) - lu(k,546) = lu(k,546) - lu(k,456) * lu(k,540) - lu(k,547) = lu(k,547) - lu(k,457) * lu(k,540) - lu(k,548) = lu(k,548) - lu(k,458) * lu(k,540) - lu(k,549) = lu(k,549) - lu(k,459) * lu(k,540) - lu(k,550) = lu(k,550) - lu(k,460) * lu(k,540) - lu(k,551) = lu(k,551) - lu(k,461) * lu(k,540) - lu(k,562) = lu(k,562) - lu(k,451) * lu(k,561) - lu(k,563) = lu(k,563) - lu(k,452) * lu(k,561) - lu(k,564) = lu(k,564) - lu(k,453) * lu(k,561) - lu(k,565) = lu(k,565) - lu(k,454) * lu(k,561) - lu(k,566) = lu(k,566) - lu(k,455) * lu(k,561) - lu(k,567) = lu(k,567) - lu(k,456) * lu(k,561) - lu(k,568) = lu(k,568) - lu(k,457) * lu(k,561) - lu(k,569) = lu(k,569) - lu(k,458) * lu(k,561) - lu(k,570) = lu(k,570) - lu(k,459) * lu(k,561) - lu(k,571) = lu(k,571) - lu(k,460) * lu(k,561) - lu(k,572) = lu(k,572) - lu(k,461) * lu(k,561) - lu(k,588) = lu(k,588) - lu(k,451) * lu(k,587) - lu(k,589) = lu(k,589) - lu(k,452) * lu(k,587) - lu(k,590) = lu(k,590) - lu(k,453) * lu(k,587) - lu(k,591) = lu(k,591) - lu(k,454) * lu(k,587) - lu(k,592) = lu(k,592) - lu(k,455) * lu(k,587) - lu(k,593) = lu(k,593) - lu(k,456) * lu(k,587) - lu(k,594) = lu(k,594) - lu(k,457) * lu(k,587) - lu(k,595) = lu(k,595) - lu(k,458) * lu(k,587) - lu(k,596) = lu(k,596) - lu(k,459) * lu(k,587) - lu(k,597) = lu(k,597) - lu(k,460) * lu(k,587) - lu(k,598) = lu(k,598) - lu(k,461) * lu(k,587) - lu(k,619) = lu(k,619) - lu(k,451) * lu(k,618) - lu(k,620) = lu(k,620) - lu(k,452) * lu(k,618) - lu(k,621) = lu(k,621) - lu(k,453) * lu(k,618) - lu(k,622) = lu(k,622) - lu(k,454) * lu(k,618) - lu(k,623) = lu(k,623) - lu(k,455) * lu(k,618) - lu(k,624) = lu(k,624) - lu(k,456) * lu(k,618) - lu(k,625) = lu(k,625) - lu(k,457) * lu(k,618) - lu(k,626) = lu(k,626) - lu(k,458) * lu(k,618) - lu(k,627) = lu(k,627) - lu(k,459) * lu(k,618) - lu(k,628) = lu(k,628) - lu(k,460) * lu(k,618) - lu(k,629) = lu(k,629) - lu(k,461) * lu(k,618) - lu(k,656) = lu(k,656) - lu(k,451) * lu(k,655) - lu(k,657) = lu(k,657) - lu(k,452) * lu(k,655) - lu(k,658) = lu(k,658) - lu(k,453) * lu(k,655) - lu(k,659) = lu(k,659) - lu(k,454) * lu(k,655) - lu(k,660) = lu(k,660) - lu(k,455) * lu(k,655) - lu(k,661) = lu(k,661) - lu(k,456) * lu(k,655) - lu(k,662) = lu(k,662) - lu(k,457) * lu(k,655) - lu(k,663) = lu(k,663) - lu(k,458) * lu(k,655) - lu(k,664) = lu(k,664) - lu(k,459) * lu(k,655) - lu(k,665) = lu(k,665) - lu(k,460) * lu(k,655) - lu(k,666) = lu(k,666) - lu(k,461) * lu(k,655) - lu(k,678) = lu(k,678) - lu(k,451) * lu(k,677) - lu(k,679) = lu(k,679) - lu(k,452) * lu(k,677) - lu(k,680) = lu(k,680) - lu(k,453) * lu(k,677) - lu(k,681) = lu(k,681) - lu(k,454) * lu(k,677) - lu(k,682) = lu(k,682) - lu(k,455) * lu(k,677) - lu(k,683) = lu(k,683) - lu(k,456) * lu(k,677) - lu(k,684) = lu(k,684) - lu(k,457) * lu(k,677) - lu(k,685) = lu(k,685) - lu(k,458) * lu(k,677) - lu(k,686) = lu(k,686) - lu(k,459) * lu(k,677) - lu(k,687) = lu(k,687) - lu(k,460) * lu(k,677) - lu(k,688) = lu(k,688) - lu(k,461) * lu(k,677) - lu(k,706) = lu(k,706) - lu(k,451) * lu(k,705) - lu(k,707) = lu(k,707) - lu(k,452) * lu(k,705) - lu(k,708) = lu(k,708) - lu(k,453) * lu(k,705) - lu(k,709) = lu(k,709) - lu(k,454) * lu(k,705) - lu(k,710) = lu(k,710) - lu(k,455) * lu(k,705) - lu(k,711) = lu(k,711) - lu(k,456) * lu(k,705) - lu(k,712) = lu(k,712) - lu(k,457) * lu(k,705) - lu(k,713) = lu(k,713) - lu(k,458) * lu(k,705) - lu(k,714) = lu(k,714) - lu(k,459) * lu(k,705) - lu(k,715) = lu(k,715) - lu(k,460) * lu(k,705) - lu(k,716) = lu(k,716) - lu(k,461) * lu(k,705) + lu(k,525) = lu(k,525) - lu(k,451) * lu(k,524) + lu(k,526) = lu(k,526) - lu(k,452) * lu(k,524) + lu(k,527) = lu(k,527) - lu(k,453) * lu(k,524) + lu(k,528) = lu(k,528) - lu(k,454) * lu(k,524) + lu(k,529) = lu(k,529) - lu(k,455) * lu(k,524) + lu(k,530) = lu(k,530) - lu(k,456) * lu(k,524) + lu(k,531) = lu(k,531) - lu(k,457) * lu(k,524) + lu(k,532) = lu(k,532) - lu(k,458) * lu(k,524) + lu(k,533) = lu(k,533) - lu(k,459) * lu(k,524) + lu(k,534) = lu(k,534) - lu(k,460) * lu(k,524) + lu(k,535) = lu(k,535) - lu(k,461) * lu(k,524) + lu(k,550) = lu(k,550) - lu(k,451) * lu(k,549) + lu(k,551) = lu(k,551) - lu(k,452) * lu(k,549) + lu(k,552) = lu(k,552) - lu(k,453) * lu(k,549) + lu(k,553) = lu(k,553) - lu(k,454) * lu(k,549) + lu(k,554) = lu(k,554) - lu(k,455) * lu(k,549) + lu(k,555) = lu(k,555) - lu(k,456) * lu(k,549) + lu(k,556) = lu(k,556) - lu(k,457) * lu(k,549) + lu(k,557) = lu(k,557) - lu(k,458) * lu(k,549) + lu(k,558) = lu(k,558) - lu(k,459) * lu(k,549) + lu(k,559) = lu(k,559) - lu(k,460) * lu(k,549) + lu(k,560) = lu(k,560) - lu(k,461) * lu(k,549) + lu(k,571) = lu(k,571) - lu(k,451) * lu(k,570) + lu(k,572) = lu(k,572) - lu(k,452) * lu(k,570) + lu(k,573) = lu(k,573) - lu(k,453) * lu(k,570) + lu(k,574) = lu(k,574) - lu(k,454) * lu(k,570) + lu(k,575) = lu(k,575) - lu(k,455) * lu(k,570) + lu(k,576) = lu(k,576) - lu(k,456) * lu(k,570) + lu(k,577) = lu(k,577) - lu(k,457) * lu(k,570) + lu(k,578) = lu(k,578) - lu(k,458) * lu(k,570) + lu(k,579) = lu(k,579) - lu(k,459) * lu(k,570) + lu(k,580) = lu(k,580) - lu(k,460) * lu(k,570) + lu(k,581) = lu(k,581) - lu(k,461) * lu(k,570) + lu(k,594) = lu(k,594) - lu(k,451) * lu(k,593) + lu(k,595) = lu(k,595) - lu(k,452) * lu(k,593) + lu(k,596) = lu(k,596) - lu(k,453) * lu(k,593) + lu(k,597) = lu(k,597) - lu(k,454) * lu(k,593) + lu(k,598) = lu(k,598) - lu(k,455) * lu(k,593) + lu(k,599) = lu(k,599) - lu(k,456) * lu(k,593) + lu(k,600) = lu(k,600) - lu(k,457) * lu(k,593) + lu(k,601) = lu(k,601) - lu(k,458) * lu(k,593) + lu(k,602) = lu(k,602) - lu(k,459) * lu(k,593) + lu(k,603) = lu(k,603) - lu(k,460) * lu(k,593) + lu(k,604) = lu(k,604) - lu(k,461) * lu(k,593) + lu(k,622) = lu(k,622) - lu(k,451) * lu(k,621) + lu(k,623) = lu(k,623) - lu(k,452) * lu(k,621) + lu(k,624) = lu(k,624) - lu(k,453) * lu(k,621) + lu(k,625) = lu(k,625) - lu(k,454) * lu(k,621) + lu(k,626) = lu(k,626) - lu(k,455) * lu(k,621) + lu(k,627) = lu(k,627) - lu(k,456) * lu(k,621) + lu(k,628) = lu(k,628) - lu(k,457) * lu(k,621) + lu(k,629) = lu(k,629) - lu(k,458) * lu(k,621) + lu(k,630) = lu(k,630) - lu(k,459) * lu(k,621) + lu(k,631) = lu(k,631) - lu(k,460) * lu(k,621) + lu(k,632) = lu(k,632) - lu(k,461) * lu(k,621) + lu(k,659) = lu(k,659) - lu(k,451) * lu(k,658) + lu(k,660) = lu(k,660) - lu(k,452) * lu(k,658) + lu(k,661) = lu(k,661) - lu(k,453) * lu(k,658) + lu(k,662) = lu(k,662) - lu(k,454) * lu(k,658) + lu(k,663) = lu(k,663) - lu(k,455) * lu(k,658) + lu(k,664) = lu(k,664) - lu(k,456) * lu(k,658) + lu(k,665) = lu(k,665) - lu(k,457) * lu(k,658) + lu(k,666) = lu(k,666) - lu(k,458) * lu(k,658) + lu(k,667) = lu(k,667) - lu(k,459) * lu(k,658) + lu(k,668) = lu(k,668) - lu(k,460) * lu(k,658) + lu(k,669) = lu(k,669) - lu(k,461) * lu(k,658) + lu(k,681) = lu(k,681) - lu(k,451) * lu(k,680) + lu(k,682) = lu(k,682) - lu(k,452) * lu(k,680) + lu(k,683) = lu(k,683) - lu(k,453) * lu(k,680) + lu(k,684) = lu(k,684) - lu(k,454) * lu(k,680) + lu(k,685) = lu(k,685) - lu(k,455) * lu(k,680) + lu(k,686) = lu(k,686) - lu(k,456) * lu(k,680) + lu(k,687) = lu(k,687) - lu(k,457) * lu(k,680) + lu(k,688) = lu(k,688) - lu(k,458) * lu(k,680) + lu(k,689) = lu(k,689) - lu(k,459) * lu(k,680) + lu(k,690) = lu(k,690) - lu(k,460) * lu(k,680) + lu(k,691) = lu(k,691) - lu(k,461) * lu(k,680) + lu(k,707) = lu(k,707) - lu(k,451) * lu(k,706) + lu(k,708) = lu(k,708) - lu(k,452) * lu(k,706) + lu(k,709) = lu(k,709) - lu(k,453) * lu(k,706) + lu(k,710) = lu(k,710) - lu(k,454) * lu(k,706) + lu(k,711) = lu(k,711) - lu(k,455) * lu(k,706) + lu(k,712) = lu(k,712) - lu(k,456) * lu(k,706) + lu(k,713) = lu(k,713) - lu(k,457) * lu(k,706) + lu(k,714) = lu(k,714) - lu(k,458) * lu(k,706) + lu(k,715) = lu(k,715) - lu(k,459) * lu(k,706) + lu(k,716) = lu(k,716) - lu(k,460) * lu(k,706) + lu(k,717) = lu(k,717) - lu(k,461) * lu(k,706) lu(k,729) = lu(k,729) - lu(k,451) * lu(k,728) lu(k,730) = lu(k,730) - lu(k,452) * lu(k,728) lu(k,731) = lu(k,731) - lu(k,453) * lu(k,728) @@ -2758,86 +2758,86 @@ subroutine lu_fac10( avec_len, lu ) lu(k,502) = lu(k,502) * lu(k,494) lu(k,503) = lu(k,503) * lu(k,494) lu(k,504) = lu(k,504) * lu(k,494) - lu(k,517) = lu(k,517) - lu(k,495) * lu(k,516) - lu(k,518) = lu(k,518) - lu(k,496) * lu(k,516) - lu(k,519) = lu(k,519) - lu(k,497) * lu(k,516) - lu(k,520) = lu(k,520) - lu(k,498) * lu(k,516) - lu(k,521) = lu(k,521) - lu(k,499) * lu(k,516) - lu(k,522) = lu(k,522) - lu(k,500) * lu(k,516) - lu(k,523) = lu(k,523) - lu(k,501) * lu(k,516) - lu(k,524) = lu(k,524) - lu(k,502) * lu(k,516) - lu(k,525) = lu(k,525) - lu(k,503) * lu(k,516) - lu(k,526) = lu(k,526) - lu(k,504) * lu(k,516) - lu(k,542) = lu(k,542) - lu(k,495) * lu(k,541) - lu(k,543) = lu(k,543) - lu(k,496) * lu(k,541) - lu(k,544) = lu(k,544) - lu(k,497) * lu(k,541) - lu(k,545) = lu(k,545) - lu(k,498) * lu(k,541) - lu(k,546) = lu(k,546) - lu(k,499) * lu(k,541) - lu(k,547) = lu(k,547) - lu(k,500) * lu(k,541) - lu(k,548) = lu(k,548) - lu(k,501) * lu(k,541) - lu(k,549) = lu(k,549) - lu(k,502) * lu(k,541) - lu(k,550) = lu(k,550) - lu(k,503) * lu(k,541) - lu(k,551) = lu(k,551) - lu(k,504) * lu(k,541) - lu(k,563) = lu(k,563) - lu(k,495) * lu(k,562) - lu(k,564) = lu(k,564) - lu(k,496) * lu(k,562) - lu(k,565) = lu(k,565) - lu(k,497) * lu(k,562) - lu(k,566) = lu(k,566) - lu(k,498) * lu(k,562) - lu(k,567) = lu(k,567) - lu(k,499) * lu(k,562) - lu(k,568) = lu(k,568) - lu(k,500) * lu(k,562) - lu(k,569) = lu(k,569) - lu(k,501) * lu(k,562) - lu(k,570) = lu(k,570) - lu(k,502) * lu(k,562) - lu(k,571) = lu(k,571) - lu(k,503) * lu(k,562) - lu(k,572) = lu(k,572) - lu(k,504) * lu(k,562) - lu(k,589) = lu(k,589) - lu(k,495) * lu(k,588) - lu(k,590) = lu(k,590) - lu(k,496) * lu(k,588) - lu(k,591) = lu(k,591) - lu(k,497) * lu(k,588) - lu(k,592) = lu(k,592) - lu(k,498) * lu(k,588) - lu(k,593) = lu(k,593) - lu(k,499) * lu(k,588) - lu(k,594) = lu(k,594) - lu(k,500) * lu(k,588) - lu(k,595) = lu(k,595) - lu(k,501) * lu(k,588) - lu(k,596) = lu(k,596) - lu(k,502) * lu(k,588) - lu(k,597) = lu(k,597) - lu(k,503) * lu(k,588) - lu(k,598) = lu(k,598) - lu(k,504) * lu(k,588) - lu(k,620) = lu(k,620) - lu(k,495) * lu(k,619) - lu(k,621) = lu(k,621) - lu(k,496) * lu(k,619) - lu(k,622) = lu(k,622) - lu(k,497) * lu(k,619) - lu(k,623) = lu(k,623) - lu(k,498) * lu(k,619) - lu(k,624) = lu(k,624) - lu(k,499) * lu(k,619) - lu(k,625) = lu(k,625) - lu(k,500) * lu(k,619) - lu(k,626) = lu(k,626) - lu(k,501) * lu(k,619) - lu(k,627) = lu(k,627) - lu(k,502) * lu(k,619) - lu(k,628) = lu(k,628) - lu(k,503) * lu(k,619) - lu(k,629) = lu(k,629) - lu(k,504) * lu(k,619) - lu(k,657) = lu(k,657) - lu(k,495) * lu(k,656) - lu(k,658) = lu(k,658) - lu(k,496) * lu(k,656) - lu(k,659) = lu(k,659) - lu(k,497) * lu(k,656) - lu(k,660) = lu(k,660) - lu(k,498) * lu(k,656) - lu(k,661) = lu(k,661) - lu(k,499) * lu(k,656) - lu(k,662) = lu(k,662) - lu(k,500) * lu(k,656) - lu(k,663) = lu(k,663) - lu(k,501) * lu(k,656) - lu(k,664) = lu(k,664) - lu(k,502) * lu(k,656) - lu(k,665) = lu(k,665) - lu(k,503) * lu(k,656) - lu(k,666) = lu(k,666) - lu(k,504) * lu(k,656) - lu(k,679) = lu(k,679) - lu(k,495) * lu(k,678) - lu(k,680) = lu(k,680) - lu(k,496) * lu(k,678) - lu(k,681) = lu(k,681) - lu(k,497) * lu(k,678) - lu(k,682) = lu(k,682) - lu(k,498) * lu(k,678) - lu(k,683) = lu(k,683) - lu(k,499) * lu(k,678) - lu(k,684) = lu(k,684) - lu(k,500) * lu(k,678) - lu(k,685) = lu(k,685) - lu(k,501) * lu(k,678) - lu(k,686) = lu(k,686) - lu(k,502) * lu(k,678) - lu(k,687) = lu(k,687) - lu(k,503) * lu(k,678) - lu(k,688) = lu(k,688) - lu(k,504) * lu(k,678) - lu(k,707) = lu(k,707) - lu(k,495) * lu(k,706) - lu(k,708) = lu(k,708) - lu(k,496) * lu(k,706) - lu(k,709) = lu(k,709) - lu(k,497) * lu(k,706) - lu(k,710) = lu(k,710) - lu(k,498) * lu(k,706) - lu(k,711) = lu(k,711) - lu(k,499) * lu(k,706) - lu(k,712) = lu(k,712) - lu(k,500) * lu(k,706) - lu(k,713) = lu(k,713) - lu(k,501) * lu(k,706) - lu(k,714) = lu(k,714) - lu(k,502) * lu(k,706) - lu(k,715) = lu(k,715) - lu(k,503) * lu(k,706) - lu(k,716) = lu(k,716) - lu(k,504) * lu(k,706) + lu(k,526) = lu(k,526) - lu(k,495) * lu(k,525) + lu(k,527) = lu(k,527) - lu(k,496) * lu(k,525) + lu(k,528) = lu(k,528) - lu(k,497) * lu(k,525) + lu(k,529) = lu(k,529) - lu(k,498) * lu(k,525) + lu(k,530) = lu(k,530) - lu(k,499) * lu(k,525) + lu(k,531) = lu(k,531) - lu(k,500) * lu(k,525) + lu(k,532) = lu(k,532) - lu(k,501) * lu(k,525) + lu(k,533) = lu(k,533) - lu(k,502) * lu(k,525) + lu(k,534) = lu(k,534) - lu(k,503) * lu(k,525) + lu(k,535) = lu(k,535) - lu(k,504) * lu(k,525) + lu(k,551) = lu(k,551) - lu(k,495) * lu(k,550) + lu(k,552) = lu(k,552) - lu(k,496) * lu(k,550) + lu(k,553) = lu(k,553) - lu(k,497) * lu(k,550) + lu(k,554) = lu(k,554) - lu(k,498) * lu(k,550) + lu(k,555) = lu(k,555) - lu(k,499) * lu(k,550) + lu(k,556) = lu(k,556) - lu(k,500) * lu(k,550) + lu(k,557) = lu(k,557) - lu(k,501) * lu(k,550) + lu(k,558) = lu(k,558) - lu(k,502) * lu(k,550) + lu(k,559) = lu(k,559) - lu(k,503) * lu(k,550) + lu(k,560) = lu(k,560) - lu(k,504) * lu(k,550) + lu(k,572) = lu(k,572) - lu(k,495) * lu(k,571) + lu(k,573) = lu(k,573) - lu(k,496) * lu(k,571) + lu(k,574) = lu(k,574) - lu(k,497) * lu(k,571) + lu(k,575) = lu(k,575) - lu(k,498) * lu(k,571) + lu(k,576) = lu(k,576) - lu(k,499) * lu(k,571) + lu(k,577) = lu(k,577) - lu(k,500) * lu(k,571) + lu(k,578) = lu(k,578) - lu(k,501) * lu(k,571) + lu(k,579) = lu(k,579) - lu(k,502) * lu(k,571) + lu(k,580) = lu(k,580) - lu(k,503) * lu(k,571) + lu(k,581) = lu(k,581) - lu(k,504) * lu(k,571) + lu(k,595) = lu(k,595) - lu(k,495) * lu(k,594) + lu(k,596) = lu(k,596) - lu(k,496) * lu(k,594) + lu(k,597) = lu(k,597) - lu(k,497) * lu(k,594) + lu(k,598) = lu(k,598) - lu(k,498) * lu(k,594) + lu(k,599) = lu(k,599) - lu(k,499) * lu(k,594) + lu(k,600) = lu(k,600) - lu(k,500) * lu(k,594) + lu(k,601) = lu(k,601) - lu(k,501) * lu(k,594) + lu(k,602) = lu(k,602) - lu(k,502) * lu(k,594) + lu(k,603) = lu(k,603) - lu(k,503) * lu(k,594) + lu(k,604) = lu(k,604) - lu(k,504) * lu(k,594) + lu(k,623) = lu(k,623) - lu(k,495) * lu(k,622) + lu(k,624) = lu(k,624) - lu(k,496) * lu(k,622) + lu(k,625) = lu(k,625) - lu(k,497) * lu(k,622) + lu(k,626) = lu(k,626) - lu(k,498) * lu(k,622) + lu(k,627) = lu(k,627) - lu(k,499) * lu(k,622) + lu(k,628) = lu(k,628) - lu(k,500) * lu(k,622) + lu(k,629) = lu(k,629) - lu(k,501) * lu(k,622) + lu(k,630) = lu(k,630) - lu(k,502) * lu(k,622) + lu(k,631) = lu(k,631) - lu(k,503) * lu(k,622) + lu(k,632) = lu(k,632) - lu(k,504) * lu(k,622) + lu(k,660) = lu(k,660) - lu(k,495) * lu(k,659) + lu(k,661) = lu(k,661) - lu(k,496) * lu(k,659) + lu(k,662) = lu(k,662) - lu(k,497) * lu(k,659) + lu(k,663) = lu(k,663) - lu(k,498) * lu(k,659) + lu(k,664) = lu(k,664) - lu(k,499) * lu(k,659) + lu(k,665) = lu(k,665) - lu(k,500) * lu(k,659) + lu(k,666) = lu(k,666) - lu(k,501) * lu(k,659) + lu(k,667) = lu(k,667) - lu(k,502) * lu(k,659) + lu(k,668) = lu(k,668) - lu(k,503) * lu(k,659) + lu(k,669) = lu(k,669) - lu(k,504) * lu(k,659) + lu(k,682) = lu(k,682) - lu(k,495) * lu(k,681) + lu(k,683) = lu(k,683) - lu(k,496) * lu(k,681) + lu(k,684) = lu(k,684) - lu(k,497) * lu(k,681) + lu(k,685) = lu(k,685) - lu(k,498) * lu(k,681) + lu(k,686) = lu(k,686) - lu(k,499) * lu(k,681) + lu(k,687) = lu(k,687) - lu(k,500) * lu(k,681) + lu(k,688) = lu(k,688) - lu(k,501) * lu(k,681) + lu(k,689) = lu(k,689) - lu(k,502) * lu(k,681) + lu(k,690) = lu(k,690) - lu(k,503) * lu(k,681) + lu(k,691) = lu(k,691) - lu(k,504) * lu(k,681) + lu(k,708) = lu(k,708) - lu(k,495) * lu(k,707) + lu(k,709) = lu(k,709) - lu(k,496) * lu(k,707) + lu(k,710) = lu(k,710) - lu(k,497) * lu(k,707) + lu(k,711) = lu(k,711) - lu(k,498) * lu(k,707) + lu(k,712) = lu(k,712) - lu(k,499) * lu(k,707) + lu(k,713) = lu(k,713) - lu(k,500) * lu(k,707) + lu(k,714) = lu(k,714) - lu(k,501) * lu(k,707) + lu(k,715) = lu(k,715) - lu(k,502) * lu(k,707) + lu(k,716) = lu(k,716) - lu(k,503) * lu(k,707) + lu(k,717) = lu(k,717) - lu(k,504) * lu(k,707) lu(k,730) = lu(k,730) - lu(k,495) * lu(k,729) lu(k,731) = lu(k,731) - lu(k,496) * lu(k,729) lu(k,732) = lu(k,732) - lu(k,497) * lu(k,729) @@ -2858,270 +2858,270 @@ subroutine lu_fac10( avec_len, lu ) lu(k,762) = lu(k,762) - lu(k,502) * lu(k,754) lu(k,763) = lu(k,763) - lu(k,503) * lu(k,754) lu(k,764) = lu(k,764) - lu(k,504) * lu(k,754) - 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,522) = lu(k,522) * lu(k,517) - lu(k,523) = lu(k,523) * lu(k,517) - lu(k,524) = lu(k,524) * lu(k,517) - lu(k,525) = lu(k,525) * lu(k,517) - lu(k,526) = lu(k,526) * lu(k,517) - lu(k,543) = lu(k,543) - lu(k,518) * lu(k,542) - lu(k,544) = lu(k,544) - lu(k,519) * lu(k,542) - lu(k,545) = lu(k,545) - lu(k,520) * lu(k,542) - lu(k,546) = lu(k,546) - lu(k,521) * lu(k,542) - lu(k,547) = lu(k,547) - lu(k,522) * lu(k,542) - lu(k,548) = lu(k,548) - lu(k,523) * lu(k,542) - lu(k,549) = lu(k,549) - lu(k,524) * lu(k,542) - lu(k,550) = lu(k,550) - lu(k,525) * lu(k,542) - lu(k,551) = lu(k,551) - lu(k,526) * lu(k,542) - lu(k,564) = lu(k,564) - lu(k,518) * lu(k,563) - lu(k,565) = lu(k,565) - lu(k,519) * lu(k,563) - lu(k,566) = lu(k,566) - lu(k,520) * lu(k,563) - lu(k,567) = lu(k,567) - lu(k,521) * lu(k,563) - lu(k,568) = lu(k,568) - lu(k,522) * lu(k,563) - lu(k,569) = lu(k,569) - lu(k,523) * lu(k,563) - lu(k,570) = lu(k,570) - lu(k,524) * lu(k,563) - lu(k,571) = lu(k,571) - lu(k,525) * lu(k,563) - lu(k,572) = lu(k,572) - lu(k,526) * lu(k,563) - lu(k,590) = lu(k,590) - lu(k,518) * lu(k,589) - lu(k,591) = lu(k,591) - lu(k,519) * lu(k,589) - lu(k,592) = lu(k,592) - lu(k,520) * lu(k,589) - lu(k,593) = lu(k,593) - lu(k,521) * lu(k,589) - lu(k,594) = lu(k,594) - lu(k,522) * lu(k,589) - lu(k,595) = lu(k,595) - lu(k,523) * lu(k,589) - lu(k,596) = lu(k,596) - lu(k,524) * lu(k,589) - lu(k,597) = lu(k,597) - lu(k,525) * lu(k,589) - lu(k,598) = lu(k,598) - lu(k,526) * lu(k,589) - lu(k,621) = lu(k,621) - lu(k,518) * lu(k,620) - lu(k,622) = lu(k,622) - lu(k,519) * lu(k,620) - lu(k,623) = lu(k,623) - lu(k,520) * lu(k,620) - lu(k,624) = lu(k,624) - lu(k,521) * lu(k,620) - lu(k,625) = lu(k,625) - lu(k,522) * lu(k,620) - lu(k,626) = lu(k,626) - lu(k,523) * lu(k,620) - lu(k,627) = lu(k,627) - lu(k,524) * lu(k,620) - lu(k,628) = lu(k,628) - lu(k,525) * lu(k,620) - lu(k,629) = lu(k,629) - lu(k,526) * lu(k,620) - lu(k,658) = lu(k,658) - lu(k,518) * lu(k,657) - lu(k,659) = lu(k,659) - lu(k,519) * lu(k,657) - lu(k,660) = lu(k,660) - lu(k,520) * lu(k,657) - lu(k,661) = lu(k,661) - lu(k,521) * lu(k,657) - lu(k,662) = lu(k,662) - lu(k,522) * lu(k,657) - lu(k,663) = lu(k,663) - lu(k,523) * lu(k,657) - lu(k,664) = lu(k,664) - lu(k,524) * lu(k,657) - lu(k,665) = lu(k,665) - lu(k,525) * lu(k,657) - lu(k,666) = lu(k,666) - lu(k,526) * lu(k,657) - lu(k,680) = lu(k,680) - lu(k,518) * lu(k,679) - lu(k,681) = lu(k,681) - lu(k,519) * lu(k,679) - lu(k,682) = lu(k,682) - lu(k,520) * lu(k,679) - lu(k,683) = lu(k,683) - lu(k,521) * lu(k,679) - lu(k,684) = lu(k,684) - lu(k,522) * lu(k,679) - lu(k,685) = lu(k,685) - lu(k,523) * lu(k,679) - lu(k,686) = lu(k,686) - lu(k,524) * lu(k,679) - lu(k,687) = lu(k,687) - lu(k,525) * lu(k,679) - lu(k,688) = lu(k,688) - lu(k,526) * lu(k,679) - lu(k,708) = lu(k,708) - lu(k,518) * lu(k,707) - lu(k,709) = lu(k,709) - lu(k,519) * lu(k,707) - lu(k,710) = lu(k,710) - lu(k,520) * lu(k,707) - lu(k,711) = lu(k,711) - lu(k,521) * lu(k,707) - lu(k,712) = lu(k,712) - lu(k,522) * lu(k,707) - lu(k,713) = lu(k,713) - lu(k,523) * lu(k,707) - lu(k,714) = lu(k,714) - lu(k,524) * lu(k,707) - lu(k,715) = lu(k,715) - lu(k,525) * lu(k,707) - lu(k,716) = lu(k,716) - lu(k,526) * lu(k,707) - lu(k,731) = lu(k,731) - lu(k,518) * lu(k,730) - lu(k,732) = lu(k,732) - lu(k,519) * lu(k,730) - lu(k,733) = lu(k,733) - lu(k,520) * lu(k,730) - lu(k,734) = lu(k,734) - lu(k,521) * lu(k,730) - lu(k,735) = lu(k,735) - lu(k,522) * lu(k,730) - lu(k,736) = lu(k,736) - lu(k,523) * lu(k,730) - lu(k,737) = lu(k,737) - lu(k,524) * lu(k,730) - lu(k,738) = lu(k,738) - lu(k,525) * lu(k,730) - lu(k,739) = lu(k,739) - lu(k,526) * lu(k,730) - lu(k,756) = lu(k,756) - lu(k,518) * lu(k,755) - lu(k,757) = lu(k,757) - lu(k,519) * lu(k,755) - lu(k,758) = lu(k,758) - lu(k,520) * lu(k,755) - lu(k,759) = lu(k,759) - lu(k,521) * lu(k,755) - lu(k,760) = lu(k,760) - lu(k,522) * lu(k,755) - lu(k,761) = lu(k,761) - lu(k,523) * lu(k,755) - lu(k,762) = lu(k,762) - lu(k,524) * lu(k,755) - lu(k,763) = lu(k,763) - lu(k,525) * lu(k,755) - lu(k,764) = lu(k,764) - lu(k,526) * lu(k,755) - 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,550) = lu(k,550) * lu(k,543) - lu(k,551) = lu(k,551) * lu(k,543) - lu(k,565) = lu(k,565) - lu(k,544) * lu(k,564) - lu(k,566) = lu(k,566) - lu(k,545) * lu(k,564) - lu(k,567) = lu(k,567) - lu(k,546) * lu(k,564) - lu(k,568) = lu(k,568) - lu(k,547) * lu(k,564) - lu(k,569) = lu(k,569) - lu(k,548) * lu(k,564) - lu(k,570) = lu(k,570) - lu(k,549) * lu(k,564) - lu(k,571) = lu(k,571) - lu(k,550) * lu(k,564) - lu(k,572) = lu(k,572) - lu(k,551) * lu(k,564) - lu(k,591) = lu(k,591) - lu(k,544) * lu(k,590) - lu(k,592) = lu(k,592) - lu(k,545) * lu(k,590) - lu(k,593) = lu(k,593) - lu(k,546) * lu(k,590) - lu(k,594) = lu(k,594) - lu(k,547) * lu(k,590) - lu(k,595) = lu(k,595) - lu(k,548) * lu(k,590) - lu(k,596) = lu(k,596) - lu(k,549) * lu(k,590) - lu(k,597) = lu(k,597) - lu(k,550) * lu(k,590) - lu(k,598) = lu(k,598) - lu(k,551) * lu(k,590) - lu(k,622) = lu(k,622) - lu(k,544) * lu(k,621) - lu(k,623) = lu(k,623) - lu(k,545) * lu(k,621) - lu(k,624) = lu(k,624) - lu(k,546) * lu(k,621) - lu(k,625) = lu(k,625) - lu(k,547) * lu(k,621) - lu(k,626) = lu(k,626) - lu(k,548) * lu(k,621) - lu(k,627) = lu(k,627) - lu(k,549) * lu(k,621) - lu(k,628) = lu(k,628) - lu(k,550) * lu(k,621) - lu(k,629) = lu(k,629) - lu(k,551) * lu(k,621) - lu(k,659) = lu(k,659) - lu(k,544) * lu(k,658) - lu(k,660) = lu(k,660) - lu(k,545) * lu(k,658) - lu(k,661) = lu(k,661) - lu(k,546) * lu(k,658) - lu(k,662) = lu(k,662) - lu(k,547) * lu(k,658) - lu(k,663) = lu(k,663) - lu(k,548) * lu(k,658) - lu(k,664) = lu(k,664) - lu(k,549) * lu(k,658) - lu(k,665) = lu(k,665) - lu(k,550) * lu(k,658) - lu(k,666) = lu(k,666) - lu(k,551) * lu(k,658) - lu(k,681) = lu(k,681) - lu(k,544) * lu(k,680) - lu(k,682) = lu(k,682) - lu(k,545) * lu(k,680) - lu(k,683) = lu(k,683) - lu(k,546) * lu(k,680) - lu(k,684) = lu(k,684) - lu(k,547) * lu(k,680) - lu(k,685) = lu(k,685) - lu(k,548) * lu(k,680) - lu(k,686) = lu(k,686) - lu(k,549) * lu(k,680) - lu(k,687) = lu(k,687) - lu(k,550) * lu(k,680) - lu(k,688) = lu(k,688) - lu(k,551) * lu(k,680) - lu(k,709) = lu(k,709) - lu(k,544) * lu(k,708) - lu(k,710) = lu(k,710) - lu(k,545) * lu(k,708) - lu(k,711) = lu(k,711) - lu(k,546) * lu(k,708) - lu(k,712) = lu(k,712) - lu(k,547) * lu(k,708) - lu(k,713) = lu(k,713) - lu(k,548) * lu(k,708) - lu(k,714) = lu(k,714) - lu(k,549) * lu(k,708) - lu(k,715) = lu(k,715) - lu(k,550) * lu(k,708) - lu(k,716) = lu(k,716) - lu(k,551) * lu(k,708) - lu(k,732) = lu(k,732) - lu(k,544) * lu(k,731) - lu(k,733) = lu(k,733) - lu(k,545) * lu(k,731) - lu(k,734) = lu(k,734) - lu(k,546) * lu(k,731) - lu(k,735) = lu(k,735) - lu(k,547) * lu(k,731) - lu(k,736) = lu(k,736) - lu(k,548) * lu(k,731) - lu(k,737) = lu(k,737) - lu(k,549) * lu(k,731) - lu(k,738) = lu(k,738) - lu(k,550) * lu(k,731) - lu(k,739) = lu(k,739) - lu(k,551) * lu(k,731) - lu(k,757) = lu(k,757) - lu(k,544) * lu(k,756) - lu(k,758) = lu(k,758) - lu(k,545) * lu(k,756) - lu(k,759) = lu(k,759) - lu(k,546) * lu(k,756) - lu(k,760) = lu(k,760) - lu(k,547) * lu(k,756) - lu(k,761) = lu(k,761) - lu(k,548) * lu(k,756) - lu(k,762) = lu(k,762) - lu(k,549) * lu(k,756) - lu(k,763) = lu(k,763) - lu(k,550) * lu(k,756) - lu(k,764) = lu(k,764) - lu(k,551) * lu(k,756) - 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,570) = lu(k,570) * lu(k,565) - lu(k,571) = lu(k,571) * lu(k,565) - lu(k,572) = lu(k,572) * lu(k,565) - lu(k,592) = lu(k,592) - lu(k,566) * lu(k,591) - lu(k,593) = lu(k,593) - lu(k,567) * lu(k,591) - lu(k,594) = lu(k,594) - lu(k,568) * lu(k,591) - lu(k,595) = lu(k,595) - lu(k,569) * lu(k,591) - lu(k,596) = lu(k,596) - lu(k,570) * lu(k,591) - lu(k,597) = lu(k,597) - lu(k,571) * lu(k,591) - lu(k,598) = lu(k,598) - lu(k,572) * lu(k,591) - lu(k,623) = lu(k,623) - lu(k,566) * lu(k,622) - lu(k,624) = lu(k,624) - lu(k,567) * lu(k,622) - lu(k,625) = lu(k,625) - lu(k,568) * lu(k,622) - lu(k,626) = lu(k,626) - lu(k,569) * lu(k,622) - lu(k,627) = lu(k,627) - lu(k,570) * lu(k,622) - lu(k,628) = lu(k,628) - lu(k,571) * lu(k,622) - lu(k,629) = lu(k,629) - lu(k,572) * lu(k,622) - lu(k,660) = lu(k,660) - lu(k,566) * lu(k,659) - lu(k,661) = lu(k,661) - lu(k,567) * lu(k,659) - lu(k,662) = lu(k,662) - lu(k,568) * lu(k,659) - lu(k,663) = lu(k,663) - lu(k,569) * lu(k,659) - lu(k,664) = lu(k,664) - lu(k,570) * lu(k,659) - lu(k,665) = lu(k,665) - lu(k,571) * lu(k,659) - lu(k,666) = lu(k,666) - lu(k,572) * lu(k,659) - lu(k,682) = lu(k,682) - lu(k,566) * lu(k,681) - lu(k,683) = lu(k,683) - lu(k,567) * lu(k,681) - lu(k,684) = lu(k,684) - lu(k,568) * lu(k,681) - lu(k,685) = lu(k,685) - lu(k,569) * lu(k,681) - lu(k,686) = lu(k,686) - lu(k,570) * lu(k,681) - lu(k,687) = lu(k,687) - lu(k,571) * lu(k,681) - lu(k,688) = lu(k,688) - lu(k,572) * lu(k,681) - lu(k,710) = lu(k,710) - lu(k,566) * lu(k,709) - lu(k,711) = lu(k,711) - lu(k,567) * lu(k,709) - lu(k,712) = lu(k,712) - lu(k,568) * lu(k,709) - lu(k,713) = lu(k,713) - lu(k,569) * lu(k,709) - lu(k,714) = lu(k,714) - lu(k,570) * lu(k,709) - lu(k,715) = lu(k,715) - lu(k,571) * lu(k,709) - lu(k,716) = lu(k,716) - lu(k,572) * lu(k,709) - lu(k,733) = lu(k,733) - lu(k,566) * lu(k,732) - lu(k,734) = lu(k,734) - lu(k,567) * lu(k,732) - lu(k,735) = lu(k,735) - lu(k,568) * lu(k,732) - lu(k,736) = lu(k,736) - lu(k,569) * lu(k,732) - lu(k,737) = lu(k,737) - lu(k,570) * lu(k,732) - lu(k,738) = lu(k,738) - lu(k,571) * lu(k,732) - lu(k,739) = lu(k,739) - lu(k,572) * lu(k,732) - lu(k,758) = lu(k,758) - lu(k,566) * lu(k,757) - lu(k,759) = lu(k,759) - lu(k,567) * lu(k,757) - lu(k,760) = lu(k,760) - lu(k,568) * lu(k,757) - lu(k,761) = lu(k,761) - lu(k,569) * lu(k,757) - lu(k,762) = lu(k,762) - lu(k,570) * lu(k,757) - lu(k,763) = lu(k,763) - lu(k,571) * lu(k,757) - lu(k,764) = lu(k,764) - lu(k,572) * lu(k,757) - lu(k,592) = 1._r8 / lu(k,592) - lu(k,593) = lu(k,593) * lu(k,592) - lu(k,594) = lu(k,594) * lu(k,592) - lu(k,595) = lu(k,595) * lu(k,592) - lu(k,596) = lu(k,596) * lu(k,592) - lu(k,597) = lu(k,597) * lu(k,592) - lu(k,598) = lu(k,598) * lu(k,592) - lu(k,624) = lu(k,624) - lu(k,593) * lu(k,623) - lu(k,625) = lu(k,625) - lu(k,594) * lu(k,623) - lu(k,626) = lu(k,626) - lu(k,595) * lu(k,623) - lu(k,627) = lu(k,627) - lu(k,596) * lu(k,623) - lu(k,628) = lu(k,628) - lu(k,597) * lu(k,623) - lu(k,629) = lu(k,629) - lu(k,598) * lu(k,623) - lu(k,661) = lu(k,661) - lu(k,593) * lu(k,660) - lu(k,662) = lu(k,662) - lu(k,594) * lu(k,660) - lu(k,663) = lu(k,663) - lu(k,595) * lu(k,660) - lu(k,664) = lu(k,664) - lu(k,596) * lu(k,660) - lu(k,665) = lu(k,665) - lu(k,597) * lu(k,660) - lu(k,666) = lu(k,666) - lu(k,598) * lu(k,660) - lu(k,683) = lu(k,683) - lu(k,593) * lu(k,682) - lu(k,684) = lu(k,684) - lu(k,594) * lu(k,682) - lu(k,685) = lu(k,685) - lu(k,595) * lu(k,682) - lu(k,686) = lu(k,686) - lu(k,596) * lu(k,682) - lu(k,687) = lu(k,687) - lu(k,597) * lu(k,682) - lu(k,688) = lu(k,688) - lu(k,598) * lu(k,682) - lu(k,711) = lu(k,711) - lu(k,593) * lu(k,710) - lu(k,712) = lu(k,712) - lu(k,594) * lu(k,710) - lu(k,713) = lu(k,713) - lu(k,595) * lu(k,710) - lu(k,714) = lu(k,714) - lu(k,596) * lu(k,710) - lu(k,715) = lu(k,715) - lu(k,597) * lu(k,710) - lu(k,716) = lu(k,716) - lu(k,598) * lu(k,710) - lu(k,734) = lu(k,734) - lu(k,593) * lu(k,733) - lu(k,735) = lu(k,735) - lu(k,594) * lu(k,733) - lu(k,736) = lu(k,736) - lu(k,595) * lu(k,733) - lu(k,737) = lu(k,737) - lu(k,596) * lu(k,733) - lu(k,738) = lu(k,738) - lu(k,597) * lu(k,733) - lu(k,739) = lu(k,739) - lu(k,598) * lu(k,733) - lu(k,759) = lu(k,759) - lu(k,593) * lu(k,758) - lu(k,760) = lu(k,760) - lu(k,594) * lu(k,758) - lu(k,761) = lu(k,761) - lu(k,595) * lu(k,758) - lu(k,762) = lu(k,762) - lu(k,596) * lu(k,758) - lu(k,763) = lu(k,763) - lu(k,597) * lu(k,758) - lu(k,764) = lu(k,764) - lu(k,598) * lu(k,758) + lu(k,526) = 1._r8 / lu(k,526) + lu(k,527) = lu(k,527) * lu(k,526) + lu(k,528) = lu(k,528) * lu(k,526) + lu(k,529) = lu(k,529) * lu(k,526) + lu(k,530) = lu(k,530) * lu(k,526) + lu(k,531) = lu(k,531) * lu(k,526) + lu(k,532) = lu(k,532) * lu(k,526) + lu(k,533) = lu(k,533) * lu(k,526) + lu(k,534) = lu(k,534) * lu(k,526) + lu(k,535) = lu(k,535) * lu(k,526) + lu(k,552) = lu(k,552) - lu(k,527) * lu(k,551) + lu(k,553) = lu(k,553) - lu(k,528) * lu(k,551) + lu(k,554) = lu(k,554) - lu(k,529) * lu(k,551) + lu(k,555) = lu(k,555) - lu(k,530) * lu(k,551) + lu(k,556) = lu(k,556) - lu(k,531) * lu(k,551) + lu(k,557) = lu(k,557) - lu(k,532) * lu(k,551) + lu(k,558) = lu(k,558) - lu(k,533) * lu(k,551) + lu(k,559) = lu(k,559) - lu(k,534) * lu(k,551) + lu(k,560) = lu(k,560) - lu(k,535) * lu(k,551) + lu(k,573) = lu(k,573) - lu(k,527) * lu(k,572) + lu(k,574) = lu(k,574) - lu(k,528) * lu(k,572) + lu(k,575) = lu(k,575) - lu(k,529) * lu(k,572) + lu(k,576) = lu(k,576) - lu(k,530) * lu(k,572) + lu(k,577) = lu(k,577) - lu(k,531) * lu(k,572) + lu(k,578) = lu(k,578) - lu(k,532) * lu(k,572) + lu(k,579) = lu(k,579) - lu(k,533) * lu(k,572) + lu(k,580) = lu(k,580) - lu(k,534) * lu(k,572) + lu(k,581) = lu(k,581) - lu(k,535) * lu(k,572) + lu(k,596) = lu(k,596) - lu(k,527) * lu(k,595) + lu(k,597) = lu(k,597) - lu(k,528) * lu(k,595) + lu(k,598) = lu(k,598) - lu(k,529) * lu(k,595) + lu(k,599) = lu(k,599) - lu(k,530) * lu(k,595) + lu(k,600) = lu(k,600) - lu(k,531) * lu(k,595) + lu(k,601) = lu(k,601) - lu(k,532) * lu(k,595) + lu(k,602) = lu(k,602) - lu(k,533) * lu(k,595) + lu(k,603) = lu(k,603) - lu(k,534) * lu(k,595) + lu(k,604) = lu(k,604) - lu(k,535) * lu(k,595) + lu(k,624) = lu(k,624) - lu(k,527) * lu(k,623) + lu(k,625) = lu(k,625) - lu(k,528) * lu(k,623) + lu(k,626) = lu(k,626) - lu(k,529) * lu(k,623) + lu(k,627) = lu(k,627) - lu(k,530) * lu(k,623) + lu(k,628) = lu(k,628) - lu(k,531) * lu(k,623) + lu(k,629) = lu(k,629) - lu(k,532) * lu(k,623) + lu(k,630) = lu(k,630) - lu(k,533) * lu(k,623) + lu(k,631) = lu(k,631) - lu(k,534) * lu(k,623) + lu(k,632) = lu(k,632) - lu(k,535) * lu(k,623) + lu(k,661) = lu(k,661) - lu(k,527) * lu(k,660) + lu(k,662) = lu(k,662) - lu(k,528) * lu(k,660) + lu(k,663) = lu(k,663) - lu(k,529) * lu(k,660) + lu(k,664) = lu(k,664) - lu(k,530) * lu(k,660) + lu(k,665) = lu(k,665) - lu(k,531) * lu(k,660) + lu(k,666) = lu(k,666) - lu(k,532) * lu(k,660) + lu(k,667) = lu(k,667) - lu(k,533) * lu(k,660) + lu(k,668) = lu(k,668) - lu(k,534) * lu(k,660) + lu(k,669) = lu(k,669) - lu(k,535) * lu(k,660) + lu(k,683) = lu(k,683) - lu(k,527) * lu(k,682) + lu(k,684) = lu(k,684) - lu(k,528) * lu(k,682) + lu(k,685) = lu(k,685) - lu(k,529) * lu(k,682) + lu(k,686) = lu(k,686) - lu(k,530) * lu(k,682) + lu(k,687) = lu(k,687) - lu(k,531) * lu(k,682) + lu(k,688) = lu(k,688) - lu(k,532) * lu(k,682) + lu(k,689) = lu(k,689) - lu(k,533) * lu(k,682) + lu(k,690) = lu(k,690) - lu(k,534) * lu(k,682) + lu(k,691) = lu(k,691) - lu(k,535) * lu(k,682) + lu(k,709) = lu(k,709) - lu(k,527) * lu(k,708) + lu(k,710) = lu(k,710) - lu(k,528) * lu(k,708) + lu(k,711) = lu(k,711) - lu(k,529) * lu(k,708) + lu(k,712) = lu(k,712) - lu(k,530) * lu(k,708) + lu(k,713) = lu(k,713) - lu(k,531) * lu(k,708) + lu(k,714) = lu(k,714) - lu(k,532) * lu(k,708) + lu(k,715) = lu(k,715) - lu(k,533) * lu(k,708) + lu(k,716) = lu(k,716) - lu(k,534) * lu(k,708) + lu(k,717) = lu(k,717) - lu(k,535) * lu(k,708) + lu(k,731) = lu(k,731) - lu(k,527) * lu(k,730) + lu(k,732) = lu(k,732) - lu(k,528) * lu(k,730) + lu(k,733) = lu(k,733) - lu(k,529) * lu(k,730) + lu(k,734) = lu(k,734) - lu(k,530) * lu(k,730) + lu(k,735) = lu(k,735) - lu(k,531) * lu(k,730) + lu(k,736) = lu(k,736) - lu(k,532) * lu(k,730) + lu(k,737) = lu(k,737) - lu(k,533) * lu(k,730) + lu(k,738) = lu(k,738) - lu(k,534) * lu(k,730) + lu(k,739) = lu(k,739) - lu(k,535) * lu(k,730) + lu(k,756) = lu(k,756) - lu(k,527) * lu(k,755) + lu(k,757) = lu(k,757) - lu(k,528) * lu(k,755) + lu(k,758) = lu(k,758) - lu(k,529) * lu(k,755) + lu(k,759) = lu(k,759) - lu(k,530) * lu(k,755) + lu(k,760) = lu(k,760) - lu(k,531) * lu(k,755) + lu(k,761) = lu(k,761) - lu(k,532) * lu(k,755) + lu(k,762) = lu(k,762) - lu(k,533) * lu(k,755) + lu(k,763) = lu(k,763) - lu(k,534) * lu(k,755) + lu(k,764) = lu(k,764) - lu(k,535) * lu(k,755) + 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,574) = lu(k,574) - lu(k,553) * lu(k,573) + lu(k,575) = lu(k,575) - lu(k,554) * lu(k,573) + lu(k,576) = lu(k,576) - lu(k,555) * lu(k,573) + lu(k,577) = lu(k,577) - lu(k,556) * lu(k,573) + lu(k,578) = lu(k,578) - lu(k,557) * lu(k,573) + lu(k,579) = lu(k,579) - lu(k,558) * lu(k,573) + lu(k,580) = lu(k,580) - lu(k,559) * lu(k,573) + lu(k,581) = lu(k,581) - lu(k,560) * lu(k,573) + lu(k,597) = lu(k,597) - lu(k,553) * lu(k,596) + lu(k,598) = lu(k,598) - lu(k,554) * lu(k,596) + lu(k,599) = lu(k,599) - lu(k,555) * lu(k,596) + lu(k,600) = lu(k,600) - lu(k,556) * lu(k,596) + lu(k,601) = lu(k,601) - lu(k,557) * lu(k,596) + lu(k,602) = lu(k,602) - lu(k,558) * lu(k,596) + lu(k,603) = lu(k,603) - lu(k,559) * lu(k,596) + lu(k,604) = lu(k,604) - lu(k,560) * lu(k,596) + lu(k,625) = lu(k,625) - lu(k,553) * lu(k,624) + lu(k,626) = lu(k,626) - lu(k,554) * lu(k,624) + lu(k,627) = lu(k,627) - lu(k,555) * lu(k,624) + lu(k,628) = lu(k,628) - lu(k,556) * lu(k,624) + lu(k,629) = lu(k,629) - lu(k,557) * lu(k,624) + lu(k,630) = lu(k,630) - lu(k,558) * lu(k,624) + lu(k,631) = lu(k,631) - lu(k,559) * lu(k,624) + lu(k,632) = lu(k,632) - lu(k,560) * lu(k,624) + lu(k,662) = lu(k,662) - lu(k,553) * lu(k,661) + lu(k,663) = lu(k,663) - lu(k,554) * lu(k,661) + lu(k,664) = lu(k,664) - lu(k,555) * lu(k,661) + lu(k,665) = lu(k,665) - lu(k,556) * lu(k,661) + lu(k,666) = lu(k,666) - lu(k,557) * lu(k,661) + lu(k,667) = lu(k,667) - lu(k,558) * lu(k,661) + lu(k,668) = lu(k,668) - lu(k,559) * lu(k,661) + lu(k,669) = lu(k,669) - lu(k,560) * lu(k,661) + lu(k,684) = lu(k,684) - lu(k,553) * lu(k,683) + lu(k,685) = lu(k,685) - lu(k,554) * lu(k,683) + lu(k,686) = lu(k,686) - lu(k,555) * lu(k,683) + lu(k,687) = lu(k,687) - lu(k,556) * lu(k,683) + lu(k,688) = lu(k,688) - lu(k,557) * lu(k,683) + lu(k,689) = lu(k,689) - lu(k,558) * lu(k,683) + lu(k,690) = lu(k,690) - lu(k,559) * lu(k,683) + lu(k,691) = lu(k,691) - lu(k,560) * lu(k,683) + lu(k,710) = lu(k,710) - lu(k,553) * lu(k,709) + lu(k,711) = lu(k,711) - lu(k,554) * lu(k,709) + lu(k,712) = lu(k,712) - lu(k,555) * lu(k,709) + lu(k,713) = lu(k,713) - lu(k,556) * lu(k,709) + lu(k,714) = lu(k,714) - lu(k,557) * lu(k,709) + lu(k,715) = lu(k,715) - lu(k,558) * lu(k,709) + lu(k,716) = lu(k,716) - lu(k,559) * lu(k,709) + lu(k,717) = lu(k,717) - lu(k,560) * lu(k,709) + lu(k,732) = lu(k,732) - lu(k,553) * lu(k,731) + lu(k,733) = lu(k,733) - lu(k,554) * lu(k,731) + lu(k,734) = lu(k,734) - lu(k,555) * lu(k,731) + lu(k,735) = lu(k,735) - lu(k,556) * lu(k,731) + lu(k,736) = lu(k,736) - lu(k,557) * lu(k,731) + lu(k,737) = lu(k,737) - lu(k,558) * lu(k,731) + lu(k,738) = lu(k,738) - lu(k,559) * lu(k,731) + lu(k,739) = lu(k,739) - lu(k,560) * lu(k,731) + lu(k,757) = lu(k,757) - lu(k,553) * lu(k,756) + lu(k,758) = lu(k,758) - lu(k,554) * lu(k,756) + lu(k,759) = lu(k,759) - lu(k,555) * lu(k,756) + lu(k,760) = lu(k,760) - lu(k,556) * lu(k,756) + lu(k,761) = lu(k,761) - lu(k,557) * lu(k,756) + lu(k,762) = lu(k,762) - lu(k,558) * lu(k,756) + lu(k,763) = lu(k,763) - lu(k,559) * lu(k,756) + lu(k,764) = lu(k,764) - lu(k,560) * lu(k,756) + 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,598) = lu(k,598) - lu(k,575) * lu(k,597) + lu(k,599) = lu(k,599) - lu(k,576) * lu(k,597) + lu(k,600) = lu(k,600) - lu(k,577) * lu(k,597) + lu(k,601) = lu(k,601) - lu(k,578) * lu(k,597) + lu(k,602) = lu(k,602) - lu(k,579) * lu(k,597) + lu(k,603) = lu(k,603) - lu(k,580) * lu(k,597) + lu(k,604) = lu(k,604) - lu(k,581) * lu(k,597) + lu(k,626) = lu(k,626) - lu(k,575) * lu(k,625) + lu(k,627) = lu(k,627) - lu(k,576) * lu(k,625) + lu(k,628) = lu(k,628) - lu(k,577) * lu(k,625) + lu(k,629) = lu(k,629) - lu(k,578) * lu(k,625) + lu(k,630) = lu(k,630) - lu(k,579) * lu(k,625) + lu(k,631) = lu(k,631) - lu(k,580) * lu(k,625) + lu(k,632) = lu(k,632) - lu(k,581) * lu(k,625) + lu(k,663) = lu(k,663) - lu(k,575) * lu(k,662) + lu(k,664) = lu(k,664) - lu(k,576) * lu(k,662) + lu(k,665) = lu(k,665) - lu(k,577) * lu(k,662) + lu(k,666) = lu(k,666) - lu(k,578) * lu(k,662) + lu(k,667) = lu(k,667) - lu(k,579) * lu(k,662) + lu(k,668) = lu(k,668) - lu(k,580) * lu(k,662) + lu(k,669) = lu(k,669) - lu(k,581) * lu(k,662) + lu(k,685) = lu(k,685) - lu(k,575) * lu(k,684) + lu(k,686) = lu(k,686) - lu(k,576) * lu(k,684) + lu(k,687) = lu(k,687) - lu(k,577) * lu(k,684) + lu(k,688) = lu(k,688) - lu(k,578) * lu(k,684) + lu(k,689) = lu(k,689) - lu(k,579) * lu(k,684) + lu(k,690) = lu(k,690) - lu(k,580) * lu(k,684) + lu(k,691) = lu(k,691) - lu(k,581) * lu(k,684) + lu(k,711) = lu(k,711) - lu(k,575) * lu(k,710) + lu(k,712) = lu(k,712) - lu(k,576) * lu(k,710) + lu(k,713) = lu(k,713) - lu(k,577) * lu(k,710) + lu(k,714) = lu(k,714) - lu(k,578) * lu(k,710) + lu(k,715) = lu(k,715) - lu(k,579) * lu(k,710) + lu(k,716) = lu(k,716) - lu(k,580) * lu(k,710) + lu(k,717) = lu(k,717) - lu(k,581) * lu(k,710) + lu(k,733) = lu(k,733) - lu(k,575) * lu(k,732) + lu(k,734) = lu(k,734) - lu(k,576) * lu(k,732) + lu(k,735) = lu(k,735) - lu(k,577) * lu(k,732) + lu(k,736) = lu(k,736) - lu(k,578) * lu(k,732) + lu(k,737) = lu(k,737) - lu(k,579) * lu(k,732) + lu(k,738) = lu(k,738) - lu(k,580) * lu(k,732) + lu(k,739) = lu(k,739) - lu(k,581) * lu(k,732) + lu(k,758) = lu(k,758) - lu(k,575) * lu(k,757) + lu(k,759) = lu(k,759) - lu(k,576) * lu(k,757) + lu(k,760) = lu(k,760) - lu(k,577) * lu(k,757) + lu(k,761) = lu(k,761) - lu(k,578) * lu(k,757) + lu(k,762) = lu(k,762) - lu(k,579) * lu(k,757) + lu(k,763) = lu(k,763) - lu(k,580) * lu(k,757) + lu(k,764) = lu(k,764) - lu(k,581) * lu(k,757) + 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,602) = lu(k,602) * lu(k,598) + lu(k,603) = lu(k,603) * lu(k,598) + lu(k,604) = lu(k,604) * lu(k,598) + lu(k,627) = lu(k,627) - lu(k,599) * lu(k,626) + lu(k,628) = lu(k,628) - lu(k,600) * lu(k,626) + lu(k,629) = lu(k,629) - lu(k,601) * lu(k,626) + lu(k,630) = lu(k,630) - lu(k,602) * lu(k,626) + lu(k,631) = lu(k,631) - lu(k,603) * lu(k,626) + lu(k,632) = lu(k,632) - lu(k,604) * lu(k,626) + lu(k,664) = lu(k,664) - lu(k,599) * lu(k,663) + lu(k,665) = lu(k,665) - lu(k,600) * lu(k,663) + lu(k,666) = lu(k,666) - lu(k,601) * lu(k,663) + lu(k,667) = lu(k,667) - lu(k,602) * lu(k,663) + lu(k,668) = lu(k,668) - lu(k,603) * lu(k,663) + lu(k,669) = lu(k,669) - lu(k,604) * lu(k,663) + lu(k,686) = lu(k,686) - lu(k,599) * lu(k,685) + lu(k,687) = lu(k,687) - lu(k,600) * lu(k,685) + lu(k,688) = lu(k,688) - lu(k,601) * lu(k,685) + lu(k,689) = lu(k,689) - lu(k,602) * lu(k,685) + lu(k,690) = lu(k,690) - lu(k,603) * lu(k,685) + lu(k,691) = lu(k,691) - lu(k,604) * lu(k,685) + lu(k,712) = lu(k,712) - lu(k,599) * lu(k,711) + lu(k,713) = lu(k,713) - lu(k,600) * lu(k,711) + lu(k,714) = lu(k,714) - lu(k,601) * lu(k,711) + lu(k,715) = lu(k,715) - lu(k,602) * lu(k,711) + lu(k,716) = lu(k,716) - lu(k,603) * lu(k,711) + lu(k,717) = lu(k,717) - lu(k,604) * lu(k,711) + lu(k,734) = lu(k,734) - lu(k,599) * lu(k,733) + lu(k,735) = lu(k,735) - lu(k,600) * lu(k,733) + lu(k,736) = lu(k,736) - lu(k,601) * lu(k,733) + lu(k,737) = lu(k,737) - lu(k,602) * lu(k,733) + lu(k,738) = lu(k,738) - lu(k,603) * lu(k,733) + lu(k,739) = lu(k,739) - lu(k,604) * lu(k,733) + lu(k,759) = lu(k,759) - lu(k,599) * lu(k,758) + lu(k,760) = lu(k,760) - lu(k,600) * lu(k,758) + lu(k,761) = lu(k,761) - lu(k,601) * lu(k,758) + lu(k,762) = lu(k,762) - lu(k,602) * lu(k,758) + lu(k,763) = lu(k,763) - lu(k,603) * lu(k,758) + lu(k,764) = lu(k,764) - lu(k,604) * lu(k,758) end do end subroutine lu_fac10 subroutine lu_fac11( avec_len, lu ) @@ -3138,78 +3138,78 @@ subroutine lu_fac11( avec_len, lu ) !----------------------------------------------------------------------- integer :: k do k = 1,avec_len - lu(k,624) = 1._r8 / lu(k,624) - lu(k,625) = lu(k,625) * lu(k,624) - lu(k,626) = lu(k,626) * lu(k,624) - lu(k,627) = lu(k,627) * lu(k,624) - lu(k,628) = lu(k,628) * lu(k,624) - lu(k,629) = lu(k,629) * lu(k,624) - lu(k,662) = lu(k,662) - lu(k,625) * lu(k,661) - lu(k,663) = lu(k,663) - lu(k,626) * lu(k,661) - lu(k,664) = lu(k,664) - lu(k,627) * lu(k,661) - lu(k,665) = lu(k,665) - lu(k,628) * lu(k,661) - lu(k,666) = lu(k,666) - lu(k,629) * lu(k,661) - lu(k,684) = lu(k,684) - lu(k,625) * lu(k,683) - lu(k,685) = lu(k,685) - lu(k,626) * lu(k,683) - lu(k,686) = lu(k,686) - lu(k,627) * lu(k,683) - lu(k,687) = lu(k,687) - lu(k,628) * lu(k,683) - lu(k,688) = lu(k,688) - lu(k,629) * lu(k,683) - lu(k,712) = lu(k,712) - lu(k,625) * lu(k,711) - lu(k,713) = lu(k,713) - lu(k,626) * lu(k,711) - lu(k,714) = lu(k,714) - lu(k,627) * lu(k,711) - lu(k,715) = lu(k,715) - lu(k,628) * lu(k,711) - lu(k,716) = lu(k,716) - lu(k,629) * lu(k,711) - lu(k,735) = lu(k,735) - lu(k,625) * lu(k,734) - lu(k,736) = lu(k,736) - lu(k,626) * lu(k,734) - lu(k,737) = lu(k,737) - lu(k,627) * lu(k,734) - lu(k,738) = lu(k,738) - lu(k,628) * lu(k,734) - lu(k,739) = lu(k,739) - lu(k,629) * lu(k,734) - lu(k,760) = lu(k,760) - lu(k,625) * lu(k,759) - lu(k,761) = lu(k,761) - lu(k,626) * lu(k,759) - lu(k,762) = lu(k,762) - lu(k,627) * lu(k,759) - lu(k,763) = lu(k,763) - lu(k,628) * lu(k,759) - lu(k,764) = lu(k,764) - lu(k,629) * lu(k,759) - 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,685) = lu(k,685) - lu(k,663) * lu(k,684) - lu(k,686) = lu(k,686) - lu(k,664) * lu(k,684) - lu(k,687) = lu(k,687) - lu(k,665) * lu(k,684) - lu(k,688) = lu(k,688) - lu(k,666) * lu(k,684) - lu(k,713) = lu(k,713) - lu(k,663) * lu(k,712) - lu(k,714) = lu(k,714) - lu(k,664) * lu(k,712) - lu(k,715) = lu(k,715) - lu(k,665) * lu(k,712) - lu(k,716) = lu(k,716) - lu(k,666) * lu(k,712) - lu(k,736) = lu(k,736) - lu(k,663) * lu(k,735) - lu(k,737) = lu(k,737) - lu(k,664) * lu(k,735) - lu(k,738) = lu(k,738) - lu(k,665) * lu(k,735) - lu(k,739) = lu(k,739) - lu(k,666) * lu(k,735) - lu(k,761) = lu(k,761) - lu(k,663) * lu(k,760) - lu(k,762) = lu(k,762) - lu(k,664) * lu(k,760) - lu(k,763) = lu(k,763) - lu(k,665) * lu(k,760) - lu(k,764) = lu(k,764) - lu(k,666) * lu(k,760) - lu(k,685) = 1._r8 / lu(k,685) - lu(k,686) = lu(k,686) * lu(k,685) - lu(k,687) = lu(k,687) * lu(k,685) - lu(k,688) = lu(k,688) * lu(k,685) - lu(k,714) = lu(k,714) - lu(k,686) * lu(k,713) - lu(k,715) = lu(k,715) - lu(k,687) * lu(k,713) - lu(k,716) = lu(k,716) - lu(k,688) * lu(k,713) - lu(k,737) = lu(k,737) - lu(k,686) * lu(k,736) - lu(k,738) = lu(k,738) - lu(k,687) * lu(k,736) - lu(k,739) = lu(k,739) - lu(k,688) * lu(k,736) - lu(k,762) = lu(k,762) - lu(k,686) * lu(k,761) - lu(k,763) = lu(k,763) - lu(k,687) * lu(k,761) - lu(k,764) = lu(k,764) - lu(k,688) * lu(k,761) - lu(k,714) = 1._r8 / lu(k,714) - lu(k,715) = lu(k,715) * lu(k,714) - lu(k,716) = lu(k,716) * lu(k,714) - lu(k,738) = lu(k,738) - lu(k,715) * lu(k,737) - lu(k,739) = lu(k,739) - lu(k,716) * lu(k,737) - lu(k,763) = lu(k,763) - lu(k,715) * lu(k,762) - lu(k,764) = lu(k,764) - lu(k,716) * lu(k,762) + 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,665) = lu(k,665) - lu(k,628) * lu(k,664) + lu(k,666) = lu(k,666) - lu(k,629) * lu(k,664) + lu(k,667) = lu(k,667) - lu(k,630) * lu(k,664) + lu(k,668) = lu(k,668) - lu(k,631) * lu(k,664) + lu(k,669) = lu(k,669) - lu(k,632) * lu(k,664) + lu(k,687) = lu(k,687) - lu(k,628) * lu(k,686) + lu(k,688) = lu(k,688) - lu(k,629) * lu(k,686) + lu(k,689) = lu(k,689) - lu(k,630) * lu(k,686) + lu(k,690) = lu(k,690) - lu(k,631) * lu(k,686) + lu(k,691) = lu(k,691) - lu(k,632) * lu(k,686) + lu(k,713) = lu(k,713) - lu(k,628) * lu(k,712) + lu(k,714) = lu(k,714) - lu(k,629) * lu(k,712) + lu(k,715) = lu(k,715) - lu(k,630) * lu(k,712) + lu(k,716) = lu(k,716) - lu(k,631) * lu(k,712) + lu(k,717) = lu(k,717) - lu(k,632) * lu(k,712) + lu(k,735) = lu(k,735) - lu(k,628) * lu(k,734) + lu(k,736) = lu(k,736) - lu(k,629) * lu(k,734) + lu(k,737) = lu(k,737) - lu(k,630) * lu(k,734) + lu(k,738) = lu(k,738) - lu(k,631) * lu(k,734) + lu(k,739) = lu(k,739) - lu(k,632) * lu(k,734) + lu(k,760) = lu(k,760) - lu(k,628) * lu(k,759) + lu(k,761) = lu(k,761) - lu(k,629) * lu(k,759) + lu(k,762) = lu(k,762) - lu(k,630) * lu(k,759) + lu(k,763) = lu(k,763) - lu(k,631) * lu(k,759) + lu(k,764) = lu(k,764) - lu(k,632) * lu(k,759) + 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,688) = lu(k,688) - lu(k,666) * lu(k,687) + lu(k,689) = lu(k,689) - lu(k,667) * lu(k,687) + lu(k,690) = lu(k,690) - lu(k,668) * lu(k,687) + lu(k,691) = lu(k,691) - lu(k,669) * lu(k,687) + lu(k,714) = lu(k,714) - lu(k,666) * lu(k,713) + lu(k,715) = lu(k,715) - lu(k,667) * lu(k,713) + lu(k,716) = lu(k,716) - lu(k,668) * lu(k,713) + lu(k,717) = lu(k,717) - lu(k,669) * lu(k,713) + lu(k,736) = lu(k,736) - lu(k,666) * lu(k,735) + lu(k,737) = lu(k,737) - lu(k,667) * lu(k,735) + lu(k,738) = lu(k,738) - lu(k,668) * lu(k,735) + lu(k,739) = lu(k,739) - lu(k,669) * lu(k,735) + lu(k,761) = lu(k,761) - lu(k,666) * lu(k,760) + lu(k,762) = lu(k,762) - lu(k,667) * lu(k,760) + lu(k,763) = lu(k,763) - lu(k,668) * lu(k,760) + lu(k,764) = lu(k,764) - lu(k,669) * lu(k,760) + lu(k,688) = 1._r8 / lu(k,688) + lu(k,689) = lu(k,689) * lu(k,688) + lu(k,690) = lu(k,690) * lu(k,688) + lu(k,691) = lu(k,691) * lu(k,688) + lu(k,715) = lu(k,715) - lu(k,689) * lu(k,714) + lu(k,716) = lu(k,716) - lu(k,690) * lu(k,714) + lu(k,717) = lu(k,717) - lu(k,691) * lu(k,714) + lu(k,737) = lu(k,737) - lu(k,689) * lu(k,736) + lu(k,738) = lu(k,738) - lu(k,690) * lu(k,736) + lu(k,739) = lu(k,739) - lu(k,691) * lu(k,736) + lu(k,762) = lu(k,762) - lu(k,689) * lu(k,761) + lu(k,763) = lu(k,763) - lu(k,690) * lu(k,761) + lu(k,764) = lu(k,764) - lu(k,691) * lu(k,761) + 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,738) = lu(k,738) - lu(k,716) * lu(k,737) + lu(k,739) = lu(k,739) - lu(k,717) * lu(k,737) + lu(k,763) = lu(k,763) - lu(k,716) * lu(k,762) + lu(k,764) = lu(k,764) - lu(k,717) * lu(k,762) lu(k,738) = 1._r8 / lu(k,738) lu(k,739) = lu(k,739) * lu(k,738) lu(k,764) = lu(k,764) - lu(k,739) * lu(k,763) diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_lu_solve.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_lu_solve.F90 index db323045ee..295593f935 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_lu_solve.F90 @@ -22,13 +22,13 @@ subroutine lu_slv01( avec_len, lu, b ) !----------------------------------------------------------------------- do k = 1,avec_len b(k,65) = b(k,65) - lu(k,22) * b(k,21) - b(k,66) = b(k,66) - lu(k,23) * b(k,21) + b(k,72) = b(k,72) - lu(k,23) * b(k,21) b(k,30) = b(k,30) - lu(k,25) * b(k,22) b(k,77) = b(k,77) - lu(k,26) * b(k,22) b(k,46) = b(k,46) - lu(k,28) * b(k,23) b(k,69) = b(k,69) - lu(k,29) * b(k,23) - b(k,72) = b(k,72) - lu(k,31) * b(k,24) - b(k,72) = b(k,72) - lu(k,34) * b(k,25) + b(k,68) = b(k,68) - lu(k,31) * b(k,24) + b(k,68) = b(k,68) - lu(k,34) * b(k,25) b(k,65) = b(k,65) - lu(k,36) * b(k,26) b(k,46) = b(k,46) - lu(k,38) * b(k,27) b(k,65) = b(k,65) - lu(k,39) * b(k,27) @@ -42,9 +42,9 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,77) = b(k,77) - lu(k,51) * b(k,30) b(k,57) = b(k,57) - lu(k,53) * b(k,31) b(k,63) = b(k,63) - lu(k,54) * b(k,31) - b(k,67) = b(k,67) - lu(k,55) * b(k,31) - b(k,75) = b(k,75) - lu(k,56) * b(k,31) - b(k,76) = b(k,76) - lu(k,57) * b(k,31) + b(k,66) = b(k,66) - lu(k,55) * b(k,31) + b(k,67) = b(k,67) - lu(k,56) * b(k,31) + b(k,71) = b(k,71) - lu(k,57) * b(k,31) b(k,55) = b(k,55) - lu(k,59) * b(k,32) b(k,57) = b(k,57) - lu(k,60) * b(k,32) b(k,63) = b(k,63) - lu(k,61) * b(k,32) @@ -52,9 +52,9 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,73) = b(k,73) - lu(k,63) * b(k,32) b(k,55) = b(k,55) - lu(k,65) * b(k,33) b(k,58) = b(k,58) - lu(k,66) * b(k,33) - b(k,66) = b(k,66) - lu(k,67) * b(k,33) - b(k,67) = b(k,67) - lu(k,68) * b(k,33) - b(k,39) = b(k,39) - lu(k,70) * b(k,34) + b(k,67) = b(k,67) - lu(k,67) * b(k,33) + b(k,72) = b(k,72) - lu(k,68) * b(k,33) + b(k,40) = b(k,40) - lu(k,70) * b(k,34) b(k,43) = b(k,43) - lu(k,71) * b(k,34) b(k,55) = b(k,55) - lu(k,72) * b(k,34) b(k,58) = b(k,58) - lu(k,73) * b(k,34) @@ -63,54 +63,54 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,73) = b(k,73) - lu(k,76) * b(k,34) b(k,59) = b(k,59) - lu(k,78) * b(k,35) b(k,62) = b(k,62) - lu(k,79) * b(k,35) - b(k,68) = b(k,68) - lu(k,80) * b(k,35) - b(k,73) = b(k,73) - lu(k,81) * b(k,35) + b(k,73) = b(k,73) - lu(k,80) * b(k,35) + b(k,76) = b(k,76) - lu(k,81) * b(k,35) b(k,77) = b(k,77) - lu(k,82) * b(k,35) b(k,63) = b(k,63) - lu(k,84) * b(k,36) b(k,64) = b(k,64) - lu(k,85) * b(k,36) - b(k,72) = b(k,72) - lu(k,86) * b(k,36) - b(k,73) = b(k,73) - lu(k,87) * b(k,36) - b(k,75) = b(k,75) - lu(k,88) * b(k,36) + b(k,66) = b(k,66) - lu(k,86) * b(k,36) + b(k,68) = b(k,68) - lu(k,87) * b(k,36) + b(k,73) = b(k,73) - lu(k,88) * b(k,36) b(k,77) = b(k,77) - lu(k,89) * b(k,36) b(k,38) = b(k,38) - lu(k,91) * b(k,37) - b(k,42) = b(k,42) - lu(k,92) * b(k,37) - b(k,48) = b(k,48) - lu(k,93) * b(k,37) + b(k,41) = b(k,41) - lu(k,92) * b(k,37) + b(k,49) = b(k,49) - lu(k,93) * b(k,37) b(k,50) = b(k,50) - lu(k,94) * b(k,37) b(k,67) = b(k,67) - lu(k,95) * b(k,37) - b(k,76) = b(k,76) - lu(k,96) * b(k,37) - b(k,42) = b(k,42) - lu(k,98) * b(k,38) + b(k,71) = b(k,71) - lu(k,96) * b(k,37) + b(k,41) = b(k,41) - lu(k,98) * b(k,38) b(k,50) = b(k,50) - lu(k,99) * b(k,38) b(k,51) = b(k,51) - lu(k,100) * b(k,38) b(k,67) = b(k,67) - lu(k,101) * b(k,38) - b(k,72) = b(k,72) - lu(k,102) * b(k,38) - b(k,59) = b(k,59) - lu(k,104) * b(k,39) - b(k,64) = b(k,64) - lu(k,105) * b(k,39) - b(k,73) = b(k,73) - lu(k,106) * b(k,39) - b(k,45) = b(k,45) - lu(k,108) * b(k,40) - b(k,57) = b(k,57) - lu(k,109) * b(k,40) - b(k,60) = b(k,60) - lu(k,110) * b(k,40) - b(k,63) = b(k,63) - lu(k,111) * b(k,40) - b(k,67) = b(k,67) - lu(k,112) * b(k,40) - b(k,71) = b(k,71) - lu(k,113) * b(k,40) - b(k,75) = b(k,75) - lu(k,114) * b(k,40) - b(k,61) = b(k,61) - lu(k,116) * b(k,41) - b(k,64) = b(k,64) - lu(k,117) * b(k,41) - b(k,65) = b(k,65) - lu(k,118) * b(k,41) - b(k,67) = b(k,67) - lu(k,119) * b(k,41) - b(k,73) = b(k,73) - lu(k,120) * b(k,41) - b(k,77) = b(k,77) - lu(k,121) * b(k,41) - b(k,44) = b(k,44) - lu(k,123) * b(k,42) - b(k,50) = b(k,50) - lu(k,124) * b(k,42) - b(k,51) = b(k,51) - lu(k,125) * b(k,42) - b(k,52) = b(k,52) - lu(k,126) * b(k,42) - b(k,53) = b(k,53) - lu(k,127) * b(k,42) - b(k,54) = b(k,54) - lu(k,128) * b(k,42) - b(k,67) = b(k,67) - lu(k,129) * b(k,42) - b(k,72) = b(k,72) - lu(k,130) * b(k,42) + b(k,68) = b(k,68) - lu(k,102) * b(k,38) + b(k,45) = b(k,45) - lu(k,104) * b(k,39) + b(k,57) = b(k,57) - lu(k,105) * b(k,39) + b(k,60) = b(k,60) - lu(k,106) * b(k,39) + b(k,63) = b(k,63) - lu(k,107) * b(k,39) + b(k,66) = b(k,66) - lu(k,108) * b(k,39) + b(k,67) = b(k,67) - lu(k,109) * b(k,39) + b(k,75) = b(k,75) - lu(k,110) * b(k,39) + b(k,59) = b(k,59) - lu(k,112) * b(k,40) + b(k,64) = b(k,64) - lu(k,113) * b(k,40) + b(k,73) = b(k,73) - lu(k,114) * b(k,40) + b(k,44) = b(k,44) - lu(k,116) * b(k,41) + b(k,50) = b(k,50) - lu(k,117) * b(k,41) + b(k,51) = b(k,51) - lu(k,118) * b(k,41) + b(k,52) = b(k,52) - lu(k,119) * b(k,41) + b(k,53) = b(k,53) - lu(k,120) * b(k,41) + b(k,54) = b(k,54) - lu(k,121) * b(k,41) + b(k,67) = b(k,67) - lu(k,122) * b(k,41) + b(k,68) = b(k,68) - lu(k,123) * b(k,41) + b(k,61) = b(k,61) - lu(k,125) * b(k,42) + b(k,64) = b(k,64) - lu(k,126) * b(k,42) + b(k,65) = b(k,65) - lu(k,127) * b(k,42) + b(k,67) = b(k,67) - lu(k,128) * b(k,42) + b(k,73) = b(k,73) - lu(k,129) * b(k,42) + b(k,77) = b(k,77) - lu(k,130) * b(k,42) b(k,58) = b(k,58) - lu(k,132) * b(k,43) b(k,59) = b(k,59) - lu(k,133) * b(k,43) b(k,67) = b(k,67) - lu(k,134) * b(k,43) - b(k,72) = b(k,72) - lu(k,135) * b(k,43) + b(k,68) = b(k,68) - lu(k,135) * b(k,43) b(k,73) = b(k,73) - lu(k,136) * b(k,43) b(k,74) = b(k,74) - lu(k,137) * b(k,43) b(k,52) = b(k,52) - lu(k,139) * b(k,44) @@ -121,8 +121,8 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,61) = b(k,61) - lu(k,146) * b(k,45) b(k,65) = b(k,65) - lu(k,147) * b(k,45) b(k,67) = b(k,67) - lu(k,148) * b(k,45) - b(k,71) = b(k,71) - lu(k,149) * b(k,45) - b(k,73) = b(k,73) - lu(k,150) * b(k,45) + b(k,73) = b(k,73) - lu(k,149) * b(k,45) + b(k,75) = b(k,75) - lu(k,150) * b(k,45) b(k,77) = b(k,77) - lu(k,151) * b(k,45) b(k,57) = b(k,57) - lu(k,154) * b(k,46) b(k,59) = b(k,59) - lu(k,155) * b(k,46) @@ -133,24 +133,24 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,77) = b(k,77) - lu(k,160) * b(k,46) b(k,61) = b(k,61) - lu(k,163) * b(k,47) b(k,65) = b(k,65) - lu(k,164) * b(k,47) - b(k,66) = b(k,66) - lu(k,165) * b(k,47) - b(k,67) = b(k,67) - lu(k,166) * b(k,47) + b(k,67) = b(k,67) - lu(k,165) * b(k,47) + b(k,72) = b(k,72) - lu(k,166) * b(k,47) b(k,73) = b(k,73) - lu(k,167) * b(k,47) b(k,77) = b(k,77) - lu(k,168) * b(k,47) - b(k,50) = b(k,50) - lu(k,171) * b(k,48) - b(k,51) = b(k,51) - lu(k,172) * b(k,48) - b(k,52) = b(k,52) - lu(k,173) * b(k,48) - b(k,53) = b(k,53) - lu(k,174) * b(k,48) - b(k,54) = b(k,54) - lu(k,175) * b(k,48) - b(k,67) = b(k,67) - lu(k,176) * b(k,48) - b(k,72) = b(k,72) - lu(k,177) * b(k,48) - b(k,59) = b(k,59) - lu(k,179) * b(k,49) - b(k,60) = b(k,60) - lu(k,180) * b(k,49) - b(k,67) = b(k,67) - lu(k,181) * b(k,49) - b(k,69) = b(k,69) - lu(k,182) * b(k,49) - b(k,71) = b(k,71) - lu(k,183) * b(k,49) - b(k,73) = b(k,73) - lu(k,184) * b(k,49) - b(k,77) = b(k,77) - lu(k,185) * b(k,49) + b(k,59) = b(k,59) - lu(k,170) * b(k,48) + b(k,60) = b(k,60) - lu(k,171) * b(k,48) + b(k,67) = b(k,67) - lu(k,172) * b(k,48) + b(k,69) = b(k,69) - lu(k,173) * b(k,48) + b(k,73) = b(k,73) - lu(k,174) * b(k,48) + b(k,75) = b(k,75) - lu(k,175) * b(k,48) + b(k,77) = b(k,77) - lu(k,176) * b(k,48) + b(k,50) = b(k,50) - lu(k,179) * b(k,49) + b(k,51) = b(k,51) - lu(k,180) * b(k,49) + b(k,52) = b(k,52) - lu(k,181) * b(k,49) + b(k,53) = b(k,53) - lu(k,182) * b(k,49) + b(k,54) = b(k,54) - lu(k,183) * b(k,49) + b(k,67) = b(k,67) - lu(k,184) * b(k,49) + b(k,68) = b(k,68) - lu(k,185) * b(k,49) b(k,51) = b(k,51) - lu(k,190) * b(k,50) b(k,52) = b(k,52) - lu(k,191) * b(k,50) b(k,53) = b(k,53) - lu(k,192) * b(k,50) @@ -158,40 +158,40 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,59) = b(k,59) - lu(k,194) * b(k,50) b(k,64) = b(k,64) - lu(k,195) * b(k,50) b(k,67) = b(k,67) - lu(k,196) * b(k,50) - b(k,72) = b(k,72) - lu(k,197) * b(k,50) + b(k,68) = b(k,68) - lu(k,197) * b(k,50) b(k,73) = b(k,73) - lu(k,198) * b(k,50) b(k,52) = b(k,52) - lu(k,201) * b(k,51) b(k,53) = b(k,53) - lu(k,202) * b(k,51) b(k,54) = b(k,54) - lu(k,203) * b(k,51) b(k,67) = b(k,67) - lu(k,204) * b(k,51) - b(k,69) = b(k,69) - lu(k,205) * b(k,51) - b(k,72) = b(k,72) - lu(k,206) * b(k,51) - b(k,76) = b(k,76) - lu(k,207) * b(k,51) + b(k,68) = b(k,68) - lu(k,205) * b(k,51) + b(k,69) = b(k,69) - lu(k,206) * b(k,51) + b(k,71) = b(k,71) - lu(k,207) * b(k,51) b(k,53) = b(k,53) - lu(k,216) * b(k,52) b(k,54) = b(k,54) - lu(k,217) * b(k,52) b(k,59) = b(k,59) - lu(k,218) * b(k,52) b(k,64) = b(k,64) - lu(k,219) * b(k,52) b(k,67) = b(k,67) - lu(k,220) * b(k,52) - b(k,69) = b(k,69) - lu(k,221) * b(k,52) - b(k,72) = b(k,72) - lu(k,222) * b(k,52) - b(k,73) = b(k,73) - lu(k,223) * b(k,52) - b(k,76) = b(k,76) - lu(k,224) * b(k,52) + b(k,68) = b(k,68) - lu(k,221) * b(k,52) + b(k,69) = b(k,69) - lu(k,222) * b(k,52) + b(k,71) = b(k,71) - lu(k,223) * b(k,52) + b(k,73) = b(k,73) - lu(k,224) * b(k,52) b(k,54) = b(k,54) - lu(k,230) * b(k,53) b(k,59) = b(k,59) - lu(k,231) * b(k,53) b(k,64) = b(k,64) - lu(k,232) * b(k,53) b(k,67) = b(k,67) - lu(k,233) * b(k,53) - b(k,69) = b(k,69) - lu(k,234) * b(k,53) - b(k,72) = b(k,72) - lu(k,235) * b(k,53) - b(k,73) = b(k,73) - lu(k,236) * b(k,53) - b(k,76) = b(k,76) - lu(k,237) * b(k,53) + b(k,68) = b(k,68) - lu(k,234) * b(k,53) + b(k,69) = b(k,69) - lu(k,235) * b(k,53) + b(k,71) = b(k,71) - lu(k,236) * b(k,53) + b(k,73) = b(k,73) - lu(k,237) * b(k,53) b(k,59) = b(k,59) - lu(k,245) * b(k,54) b(k,64) = b(k,64) - lu(k,246) * b(k,54) - b(k,67) = b(k,67) - lu(k,247) * b(k,54) - b(k,69) = b(k,69) - lu(k,248) * b(k,54) - b(k,72) = b(k,72) - lu(k,249) * b(k,54) - b(k,73) = b(k,73) - lu(k,250) * b(k,54) - b(k,75) = b(k,75) - lu(k,251) * b(k,54) - b(k,76) = b(k,76) - lu(k,252) * b(k,54) + b(k,66) = b(k,66) - lu(k,247) * b(k,54) + b(k,67) = b(k,67) - lu(k,248) * b(k,54) + b(k,68) = b(k,68) - lu(k,249) * b(k,54) + b(k,69) = b(k,69) - lu(k,250) * b(k,54) + b(k,71) = b(k,71) - lu(k,251) * b(k,54) + b(k,73) = b(k,73) - lu(k,252) * b(k,54) b(k,58) = b(k,58) - lu(k,255) * b(k,55) b(k,64) = b(k,64) - lu(k,256) * b(k,55) b(k,67) = b(k,67) - lu(k,257) * b(k,55) @@ -203,15 +203,15 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,65) = b(k,65) - lu(k,266) * b(k,56) b(k,66) = b(k,66) - lu(k,267) * b(k,56) b(k,67) = b(k,67) - lu(k,268) * b(k,56) - b(k,73) = b(k,73) - lu(k,269) * b(k,56) - b(k,75) = b(k,75) - lu(k,270) * b(k,56) + b(k,72) = b(k,72) - lu(k,269) * b(k,56) + b(k,73) = b(k,73) - lu(k,270) * b(k,56) b(k,77) = b(k,77) - lu(k,271) * b(k,56) b(k,59) = b(k,59) - lu(k,275) * b(k,57) b(k,62) = b(k,62) - lu(k,276) * b(k,57) b(k,63) = b(k,63) - lu(k,277) * b(k,57) - b(k,70) = b(k,70) - lu(k,278) * b(k,57) - b(k,73) = b(k,73) - lu(k,279) * b(k,57) - b(k,75) = b(k,75) - lu(k,280) * b(k,57) + b(k,66) = b(k,66) - lu(k,278) * b(k,57) + b(k,70) = b(k,70) - lu(k,279) * b(k,57) + b(k,73) = b(k,73) - lu(k,280) * b(k,57) b(k,77) = b(k,77) - lu(k,281) * b(k,57) b(k,59) = b(k,59) - lu(k,286) * b(k,58) b(k,60) = b(k,60) - lu(k,287) * b(k,58) @@ -219,12 +219,12 @@ subroutine lu_slv01( avec_len, lu, b ) b(k,65) = b(k,65) - lu(k,289) * b(k,58) b(k,66) = b(k,66) - lu(k,290) * b(k,58) b(k,67) = b(k,67) - lu(k,291) * b(k,58) - b(k,71) = b(k,71) - lu(k,292) * b(k,58) - b(k,72) = b(k,72) - lu(k,293) * b(k,58) - b(k,73) = b(k,73) - lu(k,294) * b(k,58) - b(k,74) = b(k,74) - lu(k,295) * b(k,58) - b(k,75) = b(k,75) - lu(k,296) * b(k,58) - b(k,76) = b(k,76) - lu(k,297) * b(k,58) + b(k,68) = b(k,68) - lu(k,292) * b(k,58) + b(k,71) = b(k,71) - lu(k,293) * b(k,58) + b(k,72) = b(k,72) - lu(k,294) * b(k,58) + b(k,73) = b(k,73) - lu(k,295) * b(k,58) + b(k,74) = b(k,74) - lu(k,296) * b(k,58) + b(k,75) = b(k,75) - lu(k,297) * b(k,58) b(k,77) = b(k,77) - lu(k,298) * b(k,58) end do end subroutine lu_slv01 @@ -248,8 +248,8 @@ subroutine lu_slv02( avec_len, lu, b ) do k = 1,avec_len b(k,64) = b(k,64) - lu(k,300) * b(k,59) b(k,67) = b(k,67) - lu(k,301) * b(k,59) - b(k,70) = b(k,70) - lu(k,302) * b(k,59) - b(k,72) = b(k,72) - lu(k,303) * b(k,59) + b(k,68) = b(k,68) - lu(k,302) * b(k,59) + b(k,70) = b(k,70) - lu(k,303) * b(k,59) b(k,73) = b(k,73) - lu(k,304) * b(k,59) b(k,74) = b(k,74) - lu(k,305) * b(k,59) b(k,77) = b(k,77) - lu(k,306) * b(k,59) @@ -258,10 +258,10 @@ subroutine lu_slv02( avec_len, lu, b ) b(k,68) = b(k,68) - lu(k,313) * b(k,60) b(k,69) = b(k,69) - lu(k,314) * b(k,60) b(k,70) = b(k,70) - lu(k,315) * b(k,60) - b(k,71) = b(k,71) - lu(k,316) * b(k,60) - b(k,72) = b(k,72) - lu(k,317) * b(k,60) - b(k,73) = b(k,73) - lu(k,318) * b(k,60) - b(k,74) = b(k,74) - lu(k,319) * b(k,60) + b(k,73) = b(k,73) - lu(k,316) * b(k,60) + b(k,74) = b(k,74) - lu(k,317) * b(k,60) + b(k,75) = b(k,75) - lu(k,318) * b(k,60) + b(k,76) = b(k,76) - lu(k,319) * b(k,60) b(k,77) = b(k,77) - lu(k,320) * b(k,60) b(k,62) = b(k,62) - lu(k,330) * b(k,61) b(k,63) = b(k,63) - lu(k,331) * b(k,61) @@ -272,11 +272,11 @@ subroutine lu_slv02( avec_len, lu, b ) b(k,68) = b(k,68) - lu(k,336) * b(k,61) b(k,69) = b(k,69) - lu(k,337) * b(k,61) b(k,70) = b(k,70) - lu(k,338) * b(k,61) - b(k,71) = b(k,71) - lu(k,339) * b(k,61) - b(k,72) = b(k,72) - lu(k,340) * b(k,61) - b(k,73) = b(k,73) - lu(k,341) * b(k,61) - b(k,74) = b(k,74) - lu(k,342) * b(k,61) - b(k,75) = b(k,75) - lu(k,343) * b(k,61) + b(k,72) = b(k,72) - lu(k,339) * b(k,61) + b(k,73) = b(k,73) - lu(k,340) * b(k,61) + b(k,74) = b(k,74) - lu(k,341) * b(k,61) + b(k,75) = b(k,75) - lu(k,342) * b(k,61) + b(k,76) = b(k,76) - lu(k,343) * b(k,61) b(k,77) = b(k,77) - lu(k,344) * b(k,61) b(k,64) = b(k,64) - lu(k,348) * b(k,62) b(k,65) = b(k,65) - lu(k,349) * b(k,62) @@ -284,10 +284,10 @@ subroutine lu_slv02( avec_len, lu, b ) b(k,67) = b(k,67) - lu(k,351) * b(k,62) b(k,68) = b(k,68) - lu(k,352) * b(k,62) b(k,70) = b(k,70) - lu(k,353) * b(k,62) - b(k,72) = b(k,72) - lu(k,354) * b(k,62) - b(k,73) = b(k,73) - lu(k,355) * b(k,62) - b(k,74) = b(k,74) - lu(k,356) * b(k,62) - b(k,75) = b(k,75) - lu(k,357) * b(k,62) + b(k,71) = b(k,71) - lu(k,354) * b(k,62) + b(k,72) = b(k,72) - lu(k,355) * b(k,62) + b(k,73) = b(k,73) - lu(k,356) * b(k,62) + b(k,74) = b(k,74) - lu(k,357) * b(k,62) b(k,76) = b(k,76) - lu(k,358) * b(k,62) b(k,77) = b(k,77) - lu(k,359) * b(k,62) b(k,64) = b(k,64) - lu(k,370) * b(k,63) @@ -350,50 +350,50 @@ subroutine lu_slv02( avec_len, lu, b ) b(k,75) = b(k,75) - lu(k,502) * b(k,67) b(k,76) = b(k,76) - lu(k,503) * b(k,67) b(k,77) = b(k,77) - lu(k,504) * b(k,67) - b(k,69) = b(k,69) - lu(k,518) * b(k,68) - b(k,70) = b(k,70) - lu(k,519) * b(k,68) - b(k,71) = b(k,71) - lu(k,520) * b(k,68) - b(k,72) = b(k,72) - lu(k,521) * b(k,68) - b(k,73) = b(k,73) - lu(k,522) * b(k,68) - b(k,74) = b(k,74) - lu(k,523) * b(k,68) - b(k,75) = b(k,75) - lu(k,524) * b(k,68) - b(k,76) = b(k,76) - lu(k,525) * b(k,68) - b(k,77) = b(k,77) - lu(k,526) * b(k,68) - b(k,70) = b(k,70) - lu(k,544) * b(k,69) - b(k,71) = b(k,71) - lu(k,545) * b(k,69) - b(k,72) = b(k,72) - lu(k,546) * b(k,69) - b(k,73) = b(k,73) - lu(k,547) * b(k,69) - b(k,74) = b(k,74) - lu(k,548) * b(k,69) - b(k,75) = b(k,75) - lu(k,549) * b(k,69) - b(k,76) = b(k,76) - lu(k,550) * b(k,69) - b(k,77) = b(k,77) - lu(k,551) * b(k,69) - b(k,71) = b(k,71) - lu(k,566) * b(k,70) - b(k,72) = b(k,72) - lu(k,567) * b(k,70) - b(k,73) = b(k,73) - lu(k,568) * b(k,70) - b(k,74) = b(k,74) - lu(k,569) * b(k,70) - b(k,75) = b(k,75) - lu(k,570) * b(k,70) - b(k,76) = b(k,76) - lu(k,571) * b(k,70) - b(k,77) = b(k,77) - lu(k,572) * b(k,70) - b(k,72) = b(k,72) - lu(k,593) * b(k,71) - b(k,73) = b(k,73) - lu(k,594) * b(k,71) - b(k,74) = b(k,74) - lu(k,595) * b(k,71) - b(k,75) = b(k,75) - lu(k,596) * b(k,71) - b(k,76) = b(k,76) - lu(k,597) * b(k,71) - b(k,77) = b(k,77) - lu(k,598) * b(k,71) - b(k,73) = b(k,73) - lu(k,625) * b(k,72) - b(k,74) = b(k,74) - lu(k,626) * b(k,72) - b(k,75) = b(k,75) - lu(k,627) * b(k,72) - b(k,76) = b(k,76) - lu(k,628) * b(k,72) - b(k,77) = b(k,77) - lu(k,629) * b(k,72) - b(k,74) = b(k,74) - lu(k,663) * b(k,73) - b(k,75) = b(k,75) - lu(k,664) * b(k,73) - b(k,76) = b(k,76) - lu(k,665) * b(k,73) - b(k,77) = b(k,77) - lu(k,666) * b(k,73) - b(k,75) = b(k,75) - lu(k,686) * b(k,74) - b(k,76) = b(k,76) - lu(k,687) * b(k,74) - b(k,77) = b(k,77) - lu(k,688) * b(k,74) - b(k,76) = b(k,76) - lu(k,715) * b(k,75) - b(k,77) = b(k,77) - lu(k,716) * b(k,75) + b(k,69) = b(k,69) - lu(k,527) * b(k,68) + b(k,70) = b(k,70) - lu(k,528) * b(k,68) + b(k,71) = b(k,71) - lu(k,529) * b(k,68) + b(k,72) = b(k,72) - lu(k,530) * b(k,68) + b(k,73) = b(k,73) - lu(k,531) * b(k,68) + b(k,74) = b(k,74) - lu(k,532) * b(k,68) + b(k,75) = b(k,75) - lu(k,533) * b(k,68) + b(k,76) = b(k,76) - lu(k,534) * b(k,68) + b(k,77) = b(k,77) - lu(k,535) * b(k,68) + b(k,70) = b(k,70) - lu(k,553) * b(k,69) + b(k,71) = b(k,71) - lu(k,554) * b(k,69) + b(k,72) = b(k,72) - lu(k,555) * b(k,69) + b(k,73) = b(k,73) - lu(k,556) * b(k,69) + b(k,74) = b(k,74) - lu(k,557) * b(k,69) + b(k,75) = b(k,75) - lu(k,558) * b(k,69) + b(k,76) = b(k,76) - lu(k,559) * b(k,69) + b(k,77) = b(k,77) - lu(k,560) * b(k,69) + b(k,71) = b(k,71) - lu(k,575) * b(k,70) + b(k,72) = b(k,72) - lu(k,576) * b(k,70) + b(k,73) = b(k,73) - lu(k,577) * b(k,70) + b(k,74) = b(k,74) - lu(k,578) * b(k,70) + b(k,75) = b(k,75) - lu(k,579) * b(k,70) + b(k,76) = b(k,76) - lu(k,580) * b(k,70) + b(k,77) = b(k,77) - lu(k,581) * b(k,70) + b(k,72) = b(k,72) - lu(k,599) * b(k,71) + b(k,73) = b(k,73) - lu(k,600) * b(k,71) + b(k,74) = b(k,74) - lu(k,601) * b(k,71) + b(k,75) = b(k,75) - lu(k,602) * b(k,71) + b(k,76) = b(k,76) - lu(k,603) * b(k,71) + b(k,77) = b(k,77) - lu(k,604) * b(k,71) + b(k,73) = b(k,73) - lu(k,628) * b(k,72) + b(k,74) = b(k,74) - lu(k,629) * b(k,72) + b(k,75) = b(k,75) - lu(k,630) * b(k,72) + b(k,76) = b(k,76) - lu(k,631) * b(k,72) + b(k,77) = b(k,77) - lu(k,632) * b(k,72) + b(k,74) = b(k,74) - lu(k,666) * b(k,73) + b(k,75) = b(k,75) - lu(k,667) * b(k,73) + b(k,76) = b(k,76) - lu(k,668) * b(k,73) + b(k,77) = b(k,77) - lu(k,669) * b(k,73) + b(k,75) = b(k,75) - lu(k,689) * b(k,74) + b(k,76) = b(k,76) - lu(k,690) * b(k,74) + b(k,77) = b(k,77) - lu(k,691) * b(k,74) + b(k,76) = b(k,76) - lu(k,716) * b(k,75) + b(k,77) = b(k,77) - lu(k,717) * b(k,75) b(k,77) = b(k,77) - lu(k,739) * b(k,76) end do end subroutine lu_slv02 @@ -458,168 +458,181 @@ subroutine lu_slv03( avec_len, lu, b ) b(k,64) = b(k,64) - lu(k,726) * b(k,76) b(k,63) = b(k,63) - lu(k,725) * b(k,76) b(k,62) = b(k,62) - lu(k,724) * b(k,76) - b(k,60) = b(k,60) - lu(k,723) * b(k,76) - b(k,59) = b(k,59) - lu(k,722) * b(k,76) - b(k,54) = b(k,54) - lu(k,721) * b(k,76) - b(k,53) = b(k,53) - lu(k,720) * b(k,76) - b(k,52) = b(k,52) - lu(k,719) * b(k,76) - b(k,51) = b(k,51) - lu(k,718) * b(k,76) - b(k,44) = b(k,44) - lu(k,717) * b(k,76) - b(k,75) = b(k,75) * lu(k,714) - b(k,74) = b(k,74) - lu(k,713) * b(k,75) - b(k,73) = b(k,73) - lu(k,712) * b(k,75) - b(k,72) = b(k,72) - lu(k,711) * b(k,75) - b(k,71) = b(k,71) - lu(k,710) * b(k,75) - b(k,70) = b(k,70) - lu(k,709) * b(k,75) - b(k,69) = b(k,69) - lu(k,708) * b(k,75) - b(k,68) = b(k,68) - lu(k,707) * b(k,75) - b(k,67) = b(k,67) - lu(k,706) * b(k,75) - b(k,66) = b(k,66) - lu(k,705) * b(k,75) - b(k,65) = b(k,65) - lu(k,704) * b(k,75) - b(k,64) = b(k,64) - lu(k,703) * b(k,75) - b(k,63) = b(k,63) - lu(k,702) * b(k,75) - b(k,62) = b(k,62) - lu(k,701) * b(k,75) - b(k,61) = b(k,61) - lu(k,700) * b(k,75) - b(k,60) = b(k,60) - lu(k,699) * b(k,75) - b(k,59) = b(k,59) - lu(k,698) * b(k,75) - b(k,58) = b(k,58) - lu(k,697) * b(k,75) - b(k,57) = b(k,57) - lu(k,696) * b(k,75) - b(k,56) = b(k,56) - lu(k,695) * b(k,75) - b(k,55) = b(k,55) - lu(k,694) * b(k,75) - b(k,54) = b(k,54) - lu(k,693) * b(k,75) - b(k,45) = b(k,45) - lu(k,692) * b(k,75) - b(k,40) = b(k,40) - lu(k,691) * b(k,75) - b(k,36) = b(k,36) - lu(k,690) * b(k,75) - b(k,31) = b(k,31) - lu(k,689) * b(k,75) - b(k,74) = b(k,74) * lu(k,685) - b(k,73) = b(k,73) - lu(k,684) * b(k,74) - b(k,72) = b(k,72) - lu(k,683) * b(k,74) - b(k,71) = b(k,71) - lu(k,682) * b(k,74) - b(k,70) = b(k,70) - lu(k,681) * b(k,74) - b(k,69) = b(k,69) - lu(k,680) * b(k,74) - b(k,68) = b(k,68) - lu(k,679) * b(k,74) - b(k,67) = b(k,67) - lu(k,678) * b(k,74) - b(k,66) = b(k,66) - lu(k,677) * b(k,74) - b(k,65) = b(k,65) - lu(k,676) * b(k,74) - b(k,64) = b(k,64) - lu(k,675) * b(k,74) - b(k,63) = b(k,63) - lu(k,674) * b(k,74) - b(k,60) = b(k,60) - lu(k,673) * b(k,74) - b(k,59) = b(k,59) - lu(k,672) * b(k,74) - b(k,58) = b(k,58) - lu(k,671) * b(k,74) - b(k,55) = b(k,55) - lu(k,670) * b(k,74) - b(k,43) = b(k,43) - lu(k,669) * b(k,74) - b(k,25) = b(k,25) - lu(k,668) * b(k,74) - b(k,24) = b(k,24) - lu(k,667) * b(k,74) - b(k,73) = b(k,73) * lu(k,662) - b(k,72) = b(k,72) - lu(k,661) * b(k,73) - b(k,71) = b(k,71) - lu(k,660) * b(k,73) - b(k,70) = b(k,70) - lu(k,659) * b(k,73) - b(k,69) = b(k,69) - lu(k,658) * b(k,73) - b(k,68) = b(k,68) - lu(k,657) * b(k,73) - b(k,67) = b(k,67) - lu(k,656) * b(k,73) - b(k,66) = b(k,66) - lu(k,655) * b(k,73) - b(k,65) = b(k,65) - lu(k,654) * b(k,73) - b(k,64) = b(k,64) - lu(k,653) * b(k,73) - b(k,63) = b(k,63) - lu(k,652) * b(k,73) - b(k,62) = b(k,62) - lu(k,651) * b(k,73) - b(k,61) = b(k,61) - lu(k,650) * b(k,73) - b(k,60) = b(k,60) - lu(k,649) * b(k,73) - b(k,59) = b(k,59) - lu(k,648) * b(k,73) - b(k,58) = b(k,58) - lu(k,647) * b(k,73) - b(k,57) = b(k,57) - lu(k,646) * b(k,73) - b(k,56) = b(k,56) - lu(k,645) * b(k,73) - b(k,55) = b(k,55) - lu(k,644) * b(k,73) - b(k,54) = b(k,54) - lu(k,643) * b(k,73) - b(k,49) = b(k,49) - lu(k,642) * b(k,73) - b(k,47) = b(k,47) - lu(k,641) * b(k,73) - b(k,46) = b(k,46) - lu(k,640) * b(k,73) - b(k,43) = b(k,43) - lu(k,639) * b(k,73) - b(k,41) = b(k,41) - lu(k,638) * b(k,73) - b(k,39) = b(k,39) - lu(k,637) * b(k,73) - b(k,36) = b(k,36) - lu(k,636) * b(k,73) - b(k,35) = b(k,35) - lu(k,635) * b(k,73) - b(k,34) = b(k,34) - lu(k,634) * b(k,73) - b(k,32) = b(k,32) - lu(k,633) * b(k,73) - b(k,30) = b(k,30) - lu(k,632) * b(k,73) - b(k,27) = b(k,27) - lu(k,631) * b(k,73) - b(k,23) = b(k,23) - lu(k,630) * b(k,73) - b(k,72) = b(k,72) * lu(k,624) - b(k,71) = b(k,71) - lu(k,623) * b(k,72) - b(k,70) = b(k,70) - lu(k,622) * b(k,72) - b(k,69) = b(k,69) - lu(k,621) * b(k,72) - b(k,68) = b(k,68) - lu(k,620) * b(k,72) - b(k,67) = b(k,67) - lu(k,619) * b(k,72) - b(k,66) = b(k,66) - lu(k,618) * b(k,72) - b(k,65) = b(k,65) - lu(k,617) * b(k,72) - b(k,64) = b(k,64) - lu(k,616) * b(k,72) + b(k,61) = b(k,61) - lu(k,723) * b(k,76) + b(k,60) = b(k,60) - lu(k,722) * b(k,76) + b(k,59) = b(k,59) - lu(k,721) * b(k,76) + b(k,57) = b(k,57) - lu(k,720) * b(k,76) + b(k,48) = b(k,48) - lu(k,719) * b(k,76) + b(k,40) = b(k,40) - lu(k,718) * b(k,76) + b(k,75) = b(k,75) * lu(k,715) + b(k,74) = b(k,74) - lu(k,714) * b(k,75) + b(k,73) = b(k,73) - lu(k,713) * b(k,75) + b(k,72) = b(k,72) - lu(k,712) * b(k,75) + b(k,71) = b(k,71) - lu(k,711) * b(k,75) + b(k,70) = b(k,70) - lu(k,710) * b(k,75) + b(k,69) = b(k,69) - lu(k,709) * b(k,75) + b(k,68) = b(k,68) - lu(k,708) * b(k,75) + b(k,67) = b(k,67) - lu(k,707) * b(k,75) + b(k,66) = b(k,66) - lu(k,706) * b(k,75) + b(k,65) = b(k,65) - lu(k,705) * b(k,75) + b(k,64) = b(k,64) - lu(k,704) * b(k,75) + b(k,63) = b(k,63) - lu(k,703) * b(k,75) + b(k,62) = b(k,62) - lu(k,702) * b(k,75) + b(k,61) = b(k,61) - lu(k,701) * b(k,75) + b(k,60) = b(k,60) - lu(k,700) * b(k,75) + b(k,59) = b(k,59) - lu(k,699) * b(k,75) + b(k,58) = b(k,58) - lu(k,698) * b(k,75) + b(k,57) = b(k,57) - lu(k,697) * b(k,75) + b(k,55) = b(k,55) - lu(k,696) * b(k,75) + b(k,45) = b(k,45) - lu(k,695) * b(k,75) + b(k,39) = b(k,39) - lu(k,694) * b(k,75) + b(k,33) = b(k,33) - lu(k,693) * b(k,75) + b(k,29) = b(k,29) - lu(k,692) * b(k,75) + b(k,74) = b(k,74) * lu(k,688) + b(k,73) = b(k,73) - lu(k,687) * b(k,74) + b(k,72) = b(k,72) - lu(k,686) * b(k,74) + b(k,71) = b(k,71) - lu(k,685) * b(k,74) + b(k,70) = b(k,70) - lu(k,684) * b(k,74) + b(k,69) = b(k,69) - lu(k,683) * b(k,74) + b(k,68) = b(k,68) - lu(k,682) * b(k,74) + b(k,67) = b(k,67) - lu(k,681) * b(k,74) + b(k,66) = b(k,66) - lu(k,680) * b(k,74) + b(k,65) = b(k,65) - lu(k,679) * b(k,74) + b(k,64) = b(k,64) - lu(k,678) * b(k,74) + b(k,63) = b(k,63) - lu(k,677) * b(k,74) + b(k,60) = b(k,60) - lu(k,676) * b(k,74) + b(k,59) = b(k,59) - lu(k,675) * b(k,74) + b(k,58) = b(k,58) - lu(k,674) * b(k,74) + b(k,55) = b(k,55) - lu(k,673) * b(k,74) + b(k,43) = b(k,43) - lu(k,672) * b(k,74) + b(k,25) = b(k,25) - lu(k,671) * b(k,74) + b(k,24) = b(k,24) - lu(k,670) * b(k,74) + b(k,73) = b(k,73) * lu(k,665) + b(k,72) = b(k,72) - lu(k,664) * b(k,73) + b(k,71) = b(k,71) - lu(k,663) * b(k,73) + b(k,70) = b(k,70) - lu(k,662) * b(k,73) + b(k,69) = b(k,69) - lu(k,661) * b(k,73) + b(k,68) = b(k,68) - lu(k,660) * b(k,73) + b(k,67) = b(k,67) - lu(k,659) * b(k,73) + b(k,66) = b(k,66) - lu(k,658) * b(k,73) + b(k,65) = b(k,65) - lu(k,657) * b(k,73) + b(k,64) = b(k,64) - lu(k,656) * b(k,73) + b(k,63) = b(k,63) - lu(k,655) * b(k,73) + b(k,62) = b(k,62) - lu(k,654) * b(k,73) + b(k,61) = b(k,61) - lu(k,653) * b(k,73) + b(k,60) = b(k,60) - lu(k,652) * b(k,73) + b(k,59) = b(k,59) - lu(k,651) * b(k,73) + b(k,58) = b(k,58) - lu(k,650) * b(k,73) + b(k,57) = b(k,57) - lu(k,649) * b(k,73) + b(k,56) = b(k,56) - lu(k,648) * b(k,73) + b(k,55) = b(k,55) - lu(k,647) * b(k,73) + b(k,54) = b(k,54) - lu(k,646) * b(k,73) + b(k,48) = b(k,48) - lu(k,645) * b(k,73) + b(k,47) = b(k,47) - lu(k,644) * b(k,73) + b(k,46) = b(k,46) - lu(k,643) * b(k,73) + b(k,43) = b(k,43) - lu(k,642) * b(k,73) + b(k,42) = b(k,42) - lu(k,641) * b(k,73) + b(k,40) = b(k,40) - lu(k,640) * b(k,73) + b(k,36) = b(k,36) - lu(k,639) * b(k,73) + b(k,35) = b(k,35) - lu(k,638) * b(k,73) + b(k,34) = b(k,34) - lu(k,637) * b(k,73) + b(k,32) = b(k,32) - lu(k,636) * b(k,73) + b(k,30) = b(k,30) - lu(k,635) * b(k,73) + b(k,27) = b(k,27) - lu(k,634) * b(k,73) + b(k,23) = b(k,23) - lu(k,633) * b(k,73) + b(k,72) = b(k,72) * lu(k,627) + b(k,71) = b(k,71) - lu(k,626) * b(k,72) + b(k,70) = b(k,70) - lu(k,625) * b(k,72) + b(k,69) = b(k,69) - lu(k,624) * b(k,72) + b(k,68) = b(k,68) - lu(k,623) * b(k,72) + b(k,67) = b(k,67) - lu(k,622) * b(k,72) + b(k,66) = b(k,66) - lu(k,621) * b(k,72) + b(k,65) = b(k,65) - lu(k,620) * b(k,72) + b(k,64) = b(k,64) - lu(k,619) * b(k,72) + b(k,63) = b(k,63) - lu(k,618) * b(k,72) + b(k,62) = b(k,62) - lu(k,617) * b(k,72) + b(k,61) = b(k,61) - lu(k,616) * b(k,72) b(k,60) = b(k,60) - lu(k,615) * b(k,72) b(k,59) = b(k,59) - lu(k,614) * b(k,72) b(k,58) = b(k,58) - lu(k,613) * b(k,72) - b(k,55) = b(k,55) - lu(k,612) * b(k,72) - b(k,54) = b(k,54) - lu(k,611) * b(k,72) - b(k,53) = b(k,53) - lu(k,610) * b(k,72) - b(k,52) = b(k,52) - lu(k,609) * b(k,72) - b(k,51) = b(k,51) - lu(k,608) * b(k,72) - b(k,50) = b(k,50) - lu(k,607) * b(k,72) - b(k,48) = b(k,48) - lu(k,606) * b(k,72) - b(k,44) = b(k,44) - lu(k,605) * b(k,72) - b(k,43) = b(k,43) - lu(k,604) * b(k,72) - b(k,42) = b(k,42) - lu(k,603) * b(k,72) - b(k,38) = b(k,38) - lu(k,602) * b(k,72) - b(k,37) = b(k,37) - lu(k,601) * b(k,72) - b(k,25) = b(k,25) - lu(k,600) * b(k,72) - b(k,24) = b(k,24) - lu(k,599) * b(k,72) - b(k,71) = b(k,71) * lu(k,592) - b(k,70) = b(k,70) - lu(k,591) * b(k,71) - b(k,69) = b(k,69) - lu(k,590) * b(k,71) - b(k,68) = b(k,68) - lu(k,589) * b(k,71) - b(k,67) = b(k,67) - lu(k,588) * b(k,71) - b(k,66) = b(k,66) - lu(k,587) * b(k,71) - b(k,65) = b(k,65) - lu(k,586) * b(k,71) - b(k,64) = b(k,64) - lu(k,585) * b(k,71) - b(k,63) = b(k,63) - lu(k,584) * b(k,71) - b(k,62) = b(k,62) - lu(k,583) * b(k,71) - b(k,61) = b(k,61) - lu(k,582) * b(k,71) - b(k,60) = b(k,60) - lu(k,581) * b(k,71) - b(k,59) = b(k,59) - lu(k,580) * b(k,71) - b(k,58) = b(k,58) - lu(k,579) * b(k,71) - b(k,57) = b(k,57) - lu(k,578) * b(k,71) - b(k,55) = b(k,55) - lu(k,577) * b(k,71) - b(k,45) = b(k,45) - lu(k,576) * b(k,71) - b(k,40) = b(k,40) - lu(k,575) * b(k,71) - b(k,33) = b(k,33) - lu(k,574) * b(k,71) - b(k,29) = b(k,29) - lu(k,573) * b(k,71) - b(k,70) = b(k,70) * lu(k,565) - b(k,69) = b(k,69) - lu(k,564) * b(k,70) - b(k,68) = b(k,68) - lu(k,563) * b(k,70) - b(k,67) = b(k,67) - lu(k,562) * b(k,70) - b(k,66) = b(k,66) - lu(k,561) * b(k,70) - b(k,65) = b(k,65) - lu(k,560) * b(k,70) - b(k,64) = b(k,64) - lu(k,559) * b(k,70) - b(k,63) = b(k,63) - lu(k,558) * b(k,70) - b(k,62) = b(k,62) - lu(k,557) * b(k,70) - b(k,61) = b(k,61) - lu(k,556) * b(k,70) - b(k,59) = b(k,59) - lu(k,555) * b(k,70) - b(k,57) = b(k,57) - lu(k,554) * b(k,70) - b(k,46) = b(k,46) - lu(k,553) * b(k,70) - b(k,28) = b(k,28) - lu(k,552) * b(k,70) - b(k,69) = b(k,69) * lu(k,543) - b(k,68) = b(k,68) - lu(k,542) * b(k,69) - b(k,67) = b(k,67) - lu(k,541) * b(k,69) - b(k,66) = b(k,66) - lu(k,540) * b(k,69) - b(k,65) = b(k,65) - lu(k,539) * b(k,69) - b(k,64) = b(k,64) - lu(k,538) * b(k,69) - b(k,63) = b(k,63) - lu(k,537) * b(k,69) - b(k,62) = b(k,62) - lu(k,536) * b(k,69) - b(k,61) = b(k,61) - lu(k,535) * b(k,69) - b(k,60) = b(k,60) - lu(k,534) * b(k,69) - b(k,59) = b(k,59) - lu(k,533) * b(k,69) - b(k,57) = b(k,57) - lu(k,532) * b(k,69) - b(k,49) = b(k,49) - lu(k,531) * b(k,69) - b(k,46) = b(k,46) - lu(k,530) * b(k,69) - b(k,27) = b(k,27) - lu(k,529) * b(k,69) - b(k,25) = b(k,25) - lu(k,528) * b(k,69) - b(k,23) = b(k,23) - lu(k,527) * b(k,69) + b(k,57) = b(k,57) - lu(k,612) * b(k,72) + b(k,56) = b(k,56) - lu(k,611) * b(k,72) + b(k,55) = b(k,55) - lu(k,610) * b(k,72) + b(k,47) = b(k,47) - lu(k,609) * b(k,72) + b(k,33) = b(k,33) - lu(k,608) * b(k,72) + b(k,29) = b(k,29) - lu(k,607) * b(k,72) + b(k,26) = b(k,26) - lu(k,606) * b(k,72) + b(k,21) = b(k,21) - lu(k,605) * b(k,72) + b(k,71) = b(k,71) * lu(k,598) + b(k,70) = b(k,70) - lu(k,597) * b(k,71) + b(k,69) = b(k,69) - lu(k,596) * b(k,71) + b(k,68) = b(k,68) - lu(k,595) * b(k,71) + b(k,67) = b(k,67) - lu(k,594) * b(k,71) + b(k,66) = b(k,66) - lu(k,593) * b(k,71) + b(k,65) = b(k,65) - lu(k,592) * b(k,71) + b(k,64) = b(k,64) - lu(k,591) * b(k,71) + b(k,63) = b(k,63) - lu(k,590) * b(k,71) + b(k,62) = b(k,62) - lu(k,589) * b(k,71) + b(k,60) = b(k,60) - lu(k,588) * b(k,71) + b(k,59) = b(k,59) - lu(k,587) * b(k,71) + b(k,54) = b(k,54) - lu(k,586) * b(k,71) + b(k,53) = b(k,53) - lu(k,585) * b(k,71) + b(k,52) = b(k,52) - lu(k,584) * b(k,71) + b(k,51) = b(k,51) - lu(k,583) * b(k,71) + b(k,44) = b(k,44) - lu(k,582) * b(k,71) + b(k,70) = b(k,70) * lu(k,574) + b(k,69) = b(k,69) - lu(k,573) * b(k,70) + b(k,68) = b(k,68) - lu(k,572) * b(k,70) + b(k,67) = b(k,67) - lu(k,571) * b(k,70) + b(k,66) = b(k,66) - lu(k,570) * b(k,70) + b(k,65) = b(k,65) - lu(k,569) * b(k,70) + b(k,64) = b(k,64) - lu(k,568) * b(k,70) + b(k,63) = b(k,63) - lu(k,567) * b(k,70) + b(k,62) = b(k,62) - lu(k,566) * b(k,70) + b(k,61) = b(k,61) - lu(k,565) * b(k,70) + b(k,59) = b(k,59) - lu(k,564) * b(k,70) + b(k,57) = b(k,57) - lu(k,563) * b(k,70) + b(k,46) = b(k,46) - lu(k,562) * b(k,70) + b(k,28) = b(k,28) - lu(k,561) * b(k,70) + b(k,69) = b(k,69) * lu(k,552) + b(k,68) = b(k,68) - lu(k,551) * b(k,69) + b(k,67) = b(k,67) - lu(k,550) * b(k,69) + b(k,66) = b(k,66) - lu(k,549) * b(k,69) + b(k,65) = b(k,65) - lu(k,548) * b(k,69) + b(k,64) = b(k,64) - lu(k,547) * b(k,69) + b(k,63) = b(k,63) - lu(k,546) * b(k,69) + b(k,62) = b(k,62) - lu(k,545) * b(k,69) + b(k,61) = b(k,61) - lu(k,544) * b(k,69) + b(k,60) = b(k,60) - lu(k,543) * b(k,69) + b(k,59) = b(k,59) - lu(k,542) * b(k,69) + b(k,57) = b(k,57) - lu(k,541) * b(k,69) + b(k,48) = b(k,48) - lu(k,540) * b(k,69) + b(k,46) = b(k,46) - lu(k,539) * b(k,69) + b(k,27) = b(k,27) - lu(k,538) * b(k,69) + b(k,25) = b(k,25) - lu(k,537) * b(k,69) + b(k,23) = b(k,23) - lu(k,536) * b(k,69) + b(k,68) = b(k,68) * lu(k,526) + b(k,67) = b(k,67) - lu(k,525) * b(k,68) + b(k,66) = b(k,66) - lu(k,524) * b(k,68) + b(k,65) = b(k,65) - lu(k,523) * b(k,68) + b(k,64) = b(k,64) - lu(k,522) * b(k,68) + b(k,60) = b(k,60) - lu(k,521) * b(k,68) + b(k,59) = b(k,59) - lu(k,520) * b(k,68) + b(k,58) = b(k,58) - lu(k,519) * b(k,68) + b(k,55) = b(k,55) - lu(k,518) * b(k,68) + b(k,54) = b(k,54) - lu(k,517) * b(k,68) + b(k,53) = b(k,53) - lu(k,516) * b(k,68) + b(k,52) = b(k,52) - lu(k,515) * b(k,68) + b(k,51) = b(k,51) - lu(k,514) * b(k,68) + b(k,50) = b(k,50) - lu(k,513) * b(k,68) + b(k,49) = b(k,49) - lu(k,512) * b(k,68) + b(k,44) = b(k,44) - lu(k,511) * b(k,68) + b(k,43) = b(k,43) - lu(k,510) * b(k,68) + b(k,41) = b(k,41) - lu(k,509) * b(k,68) + b(k,38) = b(k,38) - lu(k,508) * b(k,68) + b(k,37) = b(k,37) - lu(k,507) * b(k,68) + b(k,25) = b(k,25) - lu(k,506) * b(k,68) + b(k,24) = b(k,24) - lu(k,505) * b(k,68) end do end subroutine lu_slv03 subroutine lu_slv04( avec_len, lu, b ) @@ -640,19 +653,6 @@ subroutine lu_slv04( avec_len, lu, b ) ! ... solve L * y = b !----------------------------------------------------------------------- do k = 1,avec_len - b(k,68) = b(k,68) * lu(k,517) - b(k,67) = b(k,67) - lu(k,516) * b(k,68) - b(k,66) = b(k,66) - lu(k,515) * b(k,68) - b(k,65) = b(k,65) - lu(k,514) * b(k,68) - b(k,64) = b(k,64) - lu(k,513) * b(k,68) - b(k,63) = b(k,63) - lu(k,512) * b(k,68) - b(k,62) = b(k,62) - lu(k,511) * b(k,68) - b(k,61) = b(k,61) - lu(k,510) * b(k,68) - b(k,60) = b(k,60) - lu(k,509) * b(k,68) - b(k,59) = b(k,59) - lu(k,508) * b(k,68) - b(k,57) = b(k,57) - lu(k,507) * b(k,68) - b(k,49) = b(k,49) - lu(k,506) * b(k,68) - b(k,39) = b(k,39) - lu(k,505) * b(k,68) b(k,67) = b(k,67) * lu(k,494) b(k,66) = b(k,66) - lu(k,493) * b(k,67) b(k,65) = b(k,65) - lu(k,492) * b(k,67) @@ -698,11 +698,11 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,57) = b(k,57) - lu(k,441) * b(k,66) b(k,56) = b(k,56) - lu(k,440) * b(k,66) b(k,55) = b(k,55) - lu(k,439) * b(k,66) - b(k,47) = b(k,47) - lu(k,438) * b(k,66) - b(k,33) = b(k,33) - lu(k,437) * b(k,66) - b(k,29) = b(k,29) - lu(k,436) * b(k,66) - b(k,26) = b(k,26) - lu(k,435) * b(k,66) - b(k,21) = b(k,21) - lu(k,434) * b(k,66) + b(k,54) = b(k,54) - lu(k,438) * b(k,66) + b(k,45) = b(k,45) - lu(k,437) * b(k,66) + b(k,39) = b(k,39) - lu(k,436) * b(k,66) + b(k,36) = b(k,36) - lu(k,435) * b(k,66) + b(k,31) = b(k,31) - lu(k,434) * b(k,66) b(k,65) = b(k,65) * lu(k,421) b(k,64) = b(k,64) - lu(k,420) * b(k,65) b(k,63) = b(k,63) - lu(k,419) * b(k,65) @@ -713,8 +713,8 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,57) = b(k,57) - lu(k,414) * b(k,65) b(k,56) = b(k,56) - lu(k,413) * b(k,65) b(k,47) = b(k,47) - lu(k,412) * b(k,65) - b(k,41) = b(k,41) - lu(k,411) * b(k,65) - b(k,39) = b(k,39) - lu(k,410) * b(k,65) + b(k,42) = b(k,42) - lu(k,411) * b(k,65) + b(k,40) = b(k,40) - lu(k,410) * b(k,65) b(k,26) = b(k,26) - lu(k,409) * b(k,65) b(k,64) = b(k,64) * lu(k,395) b(k,63) = b(k,63) - lu(k,394) * b(k,64) @@ -722,10 +722,10 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,61) = b(k,61) - lu(k,392) * b(k,64) b(k,60) = b(k,60) - lu(k,391) * b(k,64) b(k,59) = b(k,59) - lu(k,390) * b(k,64) - b(k,49) = b(k,49) - lu(k,389) * b(k,64) + b(k,48) = b(k,48) - lu(k,389) * b(k,64) b(k,47) = b(k,47) - lu(k,388) * b(k,64) b(k,45) = b(k,45) - lu(k,387) * b(k,64) - b(k,41) = b(k,41) - lu(k,386) * b(k,64) + b(k,42) = b(k,42) - lu(k,386) * b(k,64) b(k,36) = b(k,36) - lu(k,385) * b(k,64) b(k,35) = b(k,35) - lu(k,384) * b(k,64) b(k,63) = b(k,63) * lu(k,369) @@ -735,7 +735,7 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,58) = b(k,58) - lu(k,365) * b(k,63) b(k,57) = b(k,57) - lu(k,364) * b(k,63) b(k,55) = b(k,55) - lu(k,363) * b(k,63) - b(k,39) = b(k,39) - lu(k,362) * b(k,63) + b(k,40) = b(k,40) - lu(k,362) * b(k,63) b(k,32) = b(k,32) - lu(k,361) * b(k,63) b(k,31) = b(k,31) - lu(k,360) * b(k,63) b(k,62) = b(k,62) * lu(k,347) @@ -752,8 +752,8 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,26) = b(k,26) - lu(k,321) * b(k,61) b(k,60) = b(k,60) * lu(k,310) b(k,59) = b(k,59) - lu(k,309) * b(k,60) - b(k,49) = b(k,49) - lu(k,308) * b(k,60) - b(k,39) = b(k,39) - lu(k,307) * b(k,60) + b(k,48) = b(k,48) - lu(k,308) * b(k,60) + b(k,40) = b(k,40) - lu(k,307) * b(k,60) b(k,59) = b(k,59) * lu(k,299) b(k,58) = b(k,58) * lu(k,285) b(k,55) = b(k,55) - lu(k,284) * b(k,58) @@ -772,30 +772,30 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,52) = b(k,52) - lu(k,242) * b(k,54) b(k,51) = b(k,51) - lu(k,241) * b(k,54) b(k,50) = b(k,50) - lu(k,240) * b(k,54) - b(k,48) = b(k,48) - lu(k,239) * b(k,54) + b(k,49) = b(k,49) - lu(k,239) * b(k,54) b(k,44) = b(k,44) - lu(k,238) * b(k,54) b(k,53) = b(k,53) * lu(k,229) b(k,52) = b(k,52) - lu(k,228) * b(k,53) b(k,51) = b(k,51) - lu(k,227) * b(k,53) b(k,50) = b(k,50) - lu(k,226) * b(k,53) - b(k,48) = b(k,48) - lu(k,225) * b(k,53) + b(k,49) = b(k,49) - lu(k,225) * b(k,53) b(k,52) = b(k,52) * lu(k,215) b(k,51) = b(k,51) - lu(k,214) * b(k,52) b(k,50) = b(k,50) - lu(k,213) * b(k,52) - b(k,48) = b(k,48) - lu(k,212) * b(k,52) + b(k,49) = b(k,49) - lu(k,212) * b(k,52) b(k,44) = b(k,44) - lu(k,211) * b(k,52) - b(k,42) = b(k,42) - lu(k,210) * b(k,52) + b(k,41) = b(k,41) - lu(k,210) * b(k,52) b(k,38) = b(k,38) - lu(k,209) * b(k,52) b(k,37) = b(k,37) - lu(k,208) * b(k,52) b(k,51) = b(k,51) * lu(k,200) b(k,44) = b(k,44) - lu(k,199) * b(k,51) b(k,50) = b(k,50) * lu(k,189) - b(k,48) = b(k,48) - lu(k,188) * b(k,50) + b(k,49) = b(k,49) - lu(k,188) * b(k,50) b(k,44) = b(k,44) - lu(k,187) * b(k,50) - b(k,39) = b(k,39) - lu(k,186) * b(k,50) + b(k,40) = b(k,40) - lu(k,186) * b(k,50) b(k,49) = b(k,49) * lu(k,178) - b(k,48) = b(k,48) * lu(k,170) - b(k,44) = b(k,44) - lu(k,169) * b(k,48) + b(k,44) = b(k,44) - lu(k,177) * b(k,49) + b(k,48) = b(k,48) * lu(k,169) b(k,47) = b(k,47) * lu(k,162) b(k,26) = b(k,26) - lu(k,161) * b(k,47) b(k,46) = b(k,46) * lu(k,153) @@ -804,9 +804,9 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,29) = b(k,29) - lu(k,143) * b(k,45) b(k,44) = b(k,44) * lu(k,138) b(k,43) = b(k,43) * lu(k,131) - b(k,42) = b(k,42) * lu(k,122) + b(k,42) = b(k,42) * lu(k,124) b(k,41) = b(k,41) * lu(k,115) - b(k,40) = b(k,40) * lu(k,107) + b(k,40) = b(k,40) * lu(k,111) b(k,39) = b(k,39) * lu(k,103) b(k,38) = b(k,38) * lu(k,97) b(k,37) = b(k,37) * lu(k,90) @@ -841,26 +841,6 @@ subroutine lu_slv04( avec_len, lu, b ) b(k,10) = b(k,10) * lu(k,10) b(k,9) = b(k,9) * lu(k,9) b(k,8) = b(k,8) * lu(k,8) - end do - end subroutine lu_slv04 - subroutine lu_slv05( 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,7) = b(k,7) * lu(k,7) b(k,6) = b(k,6) * lu(k,6) b(k,5) = b(k,5) * lu(k,5) @@ -869,7 +849,7 @@ subroutine lu_slv05( 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_slv05 + end subroutine lu_slv04 subroutine lu_slv( avec_len, lu, b ) use shr_kind_mod, only : r8 => shr_kind_r8 use chem_mods, only : clscnt4, nzcnt @@ -884,6 +864,5 @@ subroutine lu_slv( avec_len, lu, b ) call lu_slv02( avec_len, lu, b ) call lu_slv03( avec_len, lu, b ) call lu_slv04( avec_len, lu, b ) - call lu_slv05( avec_len, lu, b ) end subroutine lu_slv end module mo_lu_solve diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_nln_matrix.F90 index 95559062bc..d3d4643c89 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_nln_matrix.F90 @@ -22,216 +22,219 @@ subroutine nlnmat01( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,573) = rxt(k,197)*y(k,26) - mat(k,436) = rxt(k,197)*y(k,4) - mat(k,322) = (rxt(k,276)+rxt(k,281))*y(k,51) - mat(k,143) = (rxt(k,276)+rxt(k,281))*y(k,47) - mat(k,592) = -(4._r8*rxt(k,194)*y(k,4) + (rxt(k,195) + rxt(k,196) + rxt(k,197) & - ) * y(k,26) + rxt(k,198)*y(k,87) + rxt(k,199)*y(k,59) + rxt(k,200) & - *y(k,60) + rxt(k,202)*y(k,66) + rxt(k,203)*y(k,96) + rxt(k,251) & - *y(k,75)) - mat(k,455) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,4) - mat(k,402) = -rxt(k,198)*y(k,4) - mat(k,733) = -rxt(k,199)*y(k,4) - mat(k,710) = -rxt(k,200)*y(k,4) - mat(k,498) = -rxt(k,202)*y(k,4) - mat(k,660) = -rxt(k,203)*y(k,4) - mat(k,292) = -rxt(k,251)*y(k,4) - mat(k,113) = rxt(k,201)*y(k,66) - mat(k,183) = rxt(k,211)*y(k,92) - mat(k,149) = rxt(k,206)*y(k,66) - mat(k,498) = mat(k,498) + rxt(k,201)*y(k,5) + rxt(k,206)*y(k,51) - mat(k,682) = rxt(k,193)*y(k,84) - mat(k,316) = rxt(k,193)*y(k,68) - mat(k,545) = rxt(k,211)*y(k,43) - mat(k,107) = -(rxt(k,201)*y(k,66)) - mat(k,468) = -rxt(k,201)*y(k,5) - mat(k,575) = rxt(k,200)*y(k,60) - mat(k,691) = rxt(k,200)*y(k,4) - mat(k,517) = -(rxt(k,155)*y(k,85) + rxt(k,191)*y(k,84) + rxt(k,235)*y(k,61) & - + rxt(k,236)*y(k,66) + rxt(k,237)*y(k,96)) - mat(k,424) = -rxt(k,155)*y(k,16) - mat(k,313) = -rxt(k,191)*y(k,16) - mat(k,374) = -rxt(k,235)*y(k,16) - mat(k,495) = -rxt(k,236)*y(k,16) - mat(k,657) = -rxt(k,237)*y(k,16) - mat(k,352) = rxt(k,162)*y(k,26) + rxt(k,239)*y(k,59) - mat(k,80) = .300_r8*rxt(k,240)*y(k,96) - mat(k,452) = rxt(k,162)*y(k,20) - mat(k,730) = rxt(k,239)*y(k,20) - mat(k,657) = mat(k,657) + .300_r8*rxt(k,240)*y(k,21) - mat(k,347) = -(rxt(k,162)*y(k,26) + rxt(k,238)*y(k,87) + rxt(k,239)*y(k,59)) - mat(k,446) = -rxt(k,162)*y(k,20) - mat(k,393) = -rxt(k,238)*y(k,20) - mat(k,724) = -rxt(k,239)*y(k,20) + mat(k,310) = -(rxt(k,191)*y(k,17) + rxt(k,192)*y(k,87) + rxt(k,193)*y(k,70)) + mat(k,722) = -rxt(k,191)*y(k,3) + mat(k,391) = -rxt(k,192)*y(k,3) + mat(k,676) = -rxt(k,193)*y(k,3) + mat(k,700) = 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,68) + rxt(k,253)*y(k,77) & + + rxt(k,203)*y(k,96) + mat(k,615) = (rxt(k,195)+rxt(k,196))*y(k,5) + mat(k,171) = rxt(k,204)*y(k,68) + rxt(k,210)*y(k,92) + rxt(k,205)*y(k,96) + mat(k,588) = rxt(k,199)*y(k,5) + mat(k,487) = rxt(k,202)*y(k,5) + rxt(k,204)*y(k,45) + mat(k,287) = rxt(k,253)*y(k,5) + mat(k,543) = rxt(k,210)*y(k,45) + mat(k,652) = rxt(k,203)*y(k,5) + rxt(k,205)*y(k,45) + mat(k,692) = rxt(k,197)*y(k,28) + mat(k,607) = rxt(k,197)*y(k,5) + mat(k,322) = (rxt(k,276)+rxt(k,281))*y(k,53) + mat(k,143) = (rxt(k,276)+rxt(k,281))*y(k,49) + mat(k,715) = -(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,87) + rxt(k,199)*y(k,61) + rxt(k,200) & + *y(k,62) + rxt(k,202)*y(k,68) + rxt(k,203)*y(k,96) + rxt(k,253) & + *y(k,77)) + mat(k,630) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,5) + mat(k,406) = -rxt(k,198)*y(k,5) + mat(k,602) = -rxt(k,199)*y(k,5) + mat(k,459) = -rxt(k,200)*y(k,5) + mat(k,502) = -rxt(k,202)*y(k,5) + mat(k,667) = -rxt(k,203)*y(k,5) + mat(k,297) = -rxt(k,253)*y(k,5) + mat(k,318) = rxt(k,193)*y(k,70) + mat(k,110) = rxt(k,201)*y(k,68) + mat(k,175) = rxt(k,211)*y(k,92) + mat(k,150) = rxt(k,206)*y(k,68) + mat(k,502) = mat(k,502) + rxt(k,201)*y(k,6) + rxt(k,206)*y(k,53) + mat(k,689) = rxt(k,193)*y(k,3) + mat(k,558) = rxt(k,211)*y(k,45) + mat(k,103) = -(rxt(k,201)*y(k,68)) + mat(k,467) = -rxt(k,201)*y(k,6) + mat(k,694) = rxt(k,200)*y(k,62) + mat(k,436) = rxt(k,200)*y(k,5) + mat(k,738) = -(rxt(k,155)*y(k,25) + rxt(k,191)*y(k,3) + rxt(k,235)*y(k,63) & + + rxt(k,236)*y(k,68) + rxt(k,237)*y(k,96)) + mat(k,432) = -rxt(k,155)*y(k,17) + mat(k,319) = -rxt(k,191)*y(k,17) + mat(k,382) = -rxt(k,235)*y(k,17) + mat(k,503) = -rxt(k,236)*y(k,17) + mat(k,668) = -rxt(k,237)*y(k,17) + mat(k,358) = rxt(k,162)*y(k,28) + rxt(k,239)*y(k,61) + mat(k,81) = .300_r8*rxt(k,240)*y(k,96) + mat(k,631) = rxt(k,162)*y(k,21) + mat(k,603) = rxt(k,239)*y(k,21) + mat(k,668) = mat(k,668) + .300_r8*rxt(k,240)*y(k,22) + mat(k,347) = -(rxt(k,162)*y(k,28) + rxt(k,238)*y(k,87) + rxt(k,239)*y(k,61)) + mat(k,617) = -rxt(k,162)*y(k,21) + mat(k,393) = -rxt(k,238)*y(k,21) + mat(k,589) = -rxt(k,239)*y(k,21) mat(k,79) = .700_r8*rxt(k,240)*y(k,96) - mat(k,651) = .700_r8*rxt(k,240)*y(k,21) + mat(k,654) = .700_r8*rxt(k,240)*y(k,22) mat(k,77) = -(rxt(k,240)*y(k,96)) - mat(k,635) = -rxt(k,240)*y(k,21) + mat(k,638) = -rxt(k,240)*y(k,22) mat(k,345) = rxt(k,238)*y(k,87) - mat(k,384) = rxt(k,238)*y(k,20) - mat(k,435) = 2.000_r8*rxt(k,164)*y(k,26) - mat(k,260) = (rxt(k,274)+rxt(k,279)+rxt(k,284))*y(k,47) + rxt(k,168)*y(k,85) - mat(k,321) = (rxt(k,274)+rxt(k,279)+rxt(k,284))*y(k,27) + (rxt(k,269) & - +rxt(k,275)+rxt(k,280))*y(k,52) - mat(k,161) = (rxt(k,269)+rxt(k,275)+rxt(k,280))*y(k,47) - mat(k,409) = rxt(k,168)*y(k,27) - mat(k,434) = 2.000_r8*rxt(k,189)*y(k,26) - mat(k,450) = -(rxt(k,162)*y(k,20) + (4._r8*rxt(k,163) + 4._r8*rxt(k,164) & - + 4._r8*rxt(k,165) + 4._r8*rxt(k,189)) * y(k,26) + rxt(k,166) & - *y(k,87) + rxt(k,167)*y(k,59) + rxt(k,169)*y(k,60) + rxt(k,172) & - *y(k,66) + (rxt(k,173) + rxt(k,174)) * y(k,96) + (rxt(k,195) & - + rxt(k,196) + rxt(k,197)) * y(k,4) + rxt(k,252)*y(k,75)) - mat(k,350) = -rxt(k,162)*y(k,26) - mat(k,397) = -rxt(k,166)*y(k,26) - mat(k,728) = -rxt(k,167)*y(k,26) - mat(k,705) = -rxt(k,169)*y(k,26) - mat(k,493) = -rxt(k,172)*y(k,26) - mat(k,655) = -(rxt(k,173) + rxt(k,174)) * y(k,26) - mat(k,587) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,26) - mat(k,290) = -rxt(k,252)*y(k,26) - mat(k,267) = rxt(k,170)*y(k,66) - mat(k,334) = rxt(k,188)*y(k,92) - mat(k,165) = rxt(k,178)*y(k,66) + rxt(k,177)*y(k,85) + rxt(k,179)*y(k,96) - mat(k,493) = mat(k,493) + rxt(k,170)*y(k,27) + rxt(k,178)*y(k,52) - mat(k,677) = rxt(k,161)*y(k,85) - mat(k,67) = rxt(k,257)*y(k,75) - mat(k,290) = mat(k,290) + rxt(k,257)*y(k,69) - mat(k,422) = rxt(k,177)*y(k,52) + rxt(k,161)*y(k,68) + rxt(k,160)*y(k,87) - mat(k,397) = mat(k,397) + rxt(k,160)*y(k,85) - mat(k,540) = rxt(k,188)*y(k,47) - mat(k,655) = mat(k,655) + rxt(k,179)*y(k,52) - mat(k,262) = -(rxt(k,168)*y(k,85) + rxt(k,170)*y(k,66) + rxt(k,171)*y(k,96) & - + (rxt(k,274) + rxt(k,279) + rxt(k,284)) * y(k,47)) - mat(k,413) = -rxt(k,168)*y(k,27) - mat(k,483) = -rxt(k,170)*y(k,27) - mat(k,645) = -rxt(k,171)*y(k,27) - mat(k,325) = -(rxt(k,274) + rxt(k,279) + rxt(k,284)) * y(k,27) - mat(k,440) = rxt(k,169)*y(k,60) - mat(k,695) = rxt(k,169)*y(k,26) - mat(k,103) = -((rxt(k,242) + rxt(k,246)) * y(k,96)) - mat(k,637) = -(rxt(k,242) + rxt(k,246)) * y(k,29) - mat(k,505) = rxt(k,235)*y(k,61) + rxt(k,236)*y(k,66) + rxt(k,191)*y(k,84) & - + rxt(k,155)*y(k,85) + rxt(k,237)*y(k,96) - mat(k,362) = rxt(k,235)*y(k,16) - mat(k,467) = rxt(k,236)*y(k,16) + rxt(k,247)*y(k,70) - mat(k,70) = rxt(k,247)*y(k,66) + rxt(k,248)*y(k,96) - mat(k,307) = rxt(k,191)*y(k,16) - mat(k,410) = rxt(k,155)*y(k,16) - mat(k,637) = mat(k,637) + rxt(k,237)*y(k,16) + rxt(k,248)*y(k,70) + mat(k,384) = rxt(k,238)*y(k,21) + mat(k,421) = -(rxt(k,155)*y(k,17) + rxt(k,157)*y(k,41) + rxt(k,158)*y(k,43) & + + (rxt(k,159) + rxt(k,160)) * y(k,87) + rxt(k,161)*y(k,70) & + + rxt(k,168)*y(k,29) + rxt(k,177)*y(k,54)) + mat(k,727) = -rxt(k,155)*y(k,25) + mat(k,569) = -rxt(k,157)*y(k,25) + mat(k,127) = -rxt(k,158)*y(k,25) + mat(k,396) = -(rxt(k,159) + rxt(k,160)) * y(k,25) + mat(k,679) = -rxt(k,161)*y(k,25) + mat(k,266) = -rxt(k,168)*y(k,25) + mat(k,164) = -rxt(k,177)*y(k,25) + mat(k,705) = rxt(k,196)*y(k,28) + mat(k,349) = rxt(k,162)*y(k,28) + mat(k,620) = 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,68) + rxt(k,254)*y(k,77) + rxt(k,173)*y(k,96) + mat(k,39) = rxt(k,217)*y(k,92) + mat(k,333) = rxt(k,175)*y(k,68) + rxt(k,187)*y(k,92) + rxt(k,176)*y(k,96) + mat(k,592) = rxt(k,167)*y(k,28) + mat(k,492) = rxt(k,172)*y(k,28) + rxt(k,175)*y(k,49) + mat(k,289) = rxt(k,254)*y(k,28) + mat(k,548) = rxt(k,217)*y(k,34) + rxt(k,187)*y(k,49) + mat(k,657) = rxt(k,173)*y(k,28) + rxt(k,176)*y(k,49) + mat(k,409) = rxt(k,168)*y(k,29) + mat(k,606) = 2.000_r8*rxt(k,164)*y(k,28) + mat(k,260) = rxt(k,168)*y(k,25) + (rxt(k,274)+rxt(k,279)+rxt(k,284))*y(k,49) + mat(k,321) = (rxt(k,274)+rxt(k,279)+rxt(k,284))*y(k,29) + (rxt(k,269) & + +rxt(k,275)+rxt(k,280))*y(k,54) + mat(k,161) = (rxt(k,269)+rxt(k,275)+rxt(k,280))*y(k,49) + mat(k,605) = 2.000_r8*rxt(k,189)*y(k,28) + mat(k,627) = -(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,87) + rxt(k,167)*y(k,61) + rxt(k,169)*y(k,62) + rxt(k,172) & + *y(k,68) + (rxt(k,173) + rxt(k,174)) * y(k,96) + (rxt(k,195) & + + rxt(k,196) + rxt(k,197)) * y(k,5) + rxt(k,254)*y(k,77)) + mat(k,355) = -rxt(k,162)*y(k,28) + mat(k,403) = -rxt(k,166)*y(k,28) + mat(k,599) = -rxt(k,167)*y(k,28) + mat(k,456) = -rxt(k,169)*y(k,28) + mat(k,499) = -rxt(k,172)*y(k,28) + mat(k,664) = -(rxt(k,173) + rxt(k,174)) * y(k,28) + mat(k,712) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,28) + mat(k,294) = -rxt(k,254)*y(k,28) + mat(k,428) = rxt(k,177)*y(k,54) + rxt(k,161)*y(k,70) + rxt(k,160)*y(k,87) + mat(k,269) = rxt(k,170)*y(k,68) + mat(k,339) = rxt(k,188)*y(k,92) + mat(k,166) = rxt(k,177)*y(k,25) + rxt(k,178)*y(k,68) + rxt(k,179)*y(k,96) + mat(k,499) = mat(k,499) + rxt(k,170)*y(k,29) + rxt(k,178)*y(k,54) + mat(k,686) = rxt(k,161)*y(k,25) + mat(k,68) = rxt(k,259)*y(k,77) + mat(k,294) = mat(k,294) + rxt(k,259)*y(k,71) + mat(k,403) = mat(k,403) + rxt(k,160)*y(k,25) + mat(k,555) = rxt(k,188)*y(k,49) + mat(k,664) = mat(k,664) + rxt(k,179)*y(k,54) + mat(k,262) = -(rxt(k,168)*y(k,25) + rxt(k,170)*y(k,68) + rxt(k,171)*y(k,96) & + + (rxt(k,274) + rxt(k,279) + rxt(k,284)) * y(k,49)) + mat(k,413) = -rxt(k,168)*y(k,29) + mat(k,483) = -rxt(k,170)*y(k,29) + mat(k,648) = -rxt(k,171)*y(k,29) + mat(k,325) = -(rxt(k,274) + rxt(k,279) + rxt(k,284)) * y(k,29) + mat(k,611) = rxt(k,169)*y(k,62) + mat(k,440) = rxt(k,169)*y(k,28) + mat(k,111) = -((rxt(k,242) + rxt(k,246)) * y(k,96)) + mat(k,640) = -(rxt(k,242) + rxt(k,246)) * y(k,31) + mat(k,307) = rxt(k,191)*y(k,17) + mat(k,718) = rxt(k,191)*y(k,3) + rxt(k,155)*y(k,25) + rxt(k,235)*y(k,63) & + + rxt(k,236)*y(k,68) + rxt(k,237)*y(k,96) + mat(k,410) = rxt(k,155)*y(k,17) + mat(k,362) = rxt(k,235)*y(k,17) + mat(k,468) = rxt(k,236)*y(k,17) + rxt(k,249)*y(k,72) + mat(k,70) = rxt(k,249)*y(k,68) + rxt(k,250)*y(k,96) + mat(k,640) = mat(k,640) + rxt(k,237)*y(k,17) + rxt(k,250)*y(k,72) mat(k,27) = -(rxt(k,216)*y(k,92)) - mat(k,527) = -rxt(k,216)*y(k,31) + mat(k,536) = -rxt(k,216)*y(k,33) mat(k,37) = -(rxt(k,217)*y(k,92)) - mat(k,529) = -rxt(k,217)*y(k,32) - mat(k,58) = -(rxt(k,261)*y(k,61) + (rxt(k,262) + rxt(k,263)) * y(k,96)) - mat(k,361) = -rxt(k,261)*y(k,33) - mat(k,633) = -(rxt(k,262) + rxt(k,263)) * y(k,33) - mat(k,153) = -(rxt(k,213)*y(k,39) + rxt(k,214)*y(k,100) + rxt(k,215)*y(k,49)) - mat(k,553) = -rxt(k,213)*y(k,37) - mat(k,743) = -rxt(k,214)*y(k,37) - mat(k,273) = -rxt(k,215)*y(k,37) + mat(k,538) = -rxt(k,217)*y(k,34) + mat(k,58) = -(rxt(k,247)*y(k,63) + (rxt(k,248) + rxt(k,261)) * y(k,96)) + mat(k,361) = -rxt(k,247)*y(k,35) + mat(k,636) = -(rxt(k,248) + rxt(k,261)) * y(k,35) + mat(k,153) = -(rxt(k,213)*y(k,41) + rxt(k,214)*y(k,100) + rxt(k,215)*y(k,51)) + mat(k,562) = -rxt(k,213)*y(k,39) + mat(k,743) = -rxt(k,214)*y(k,39) + mat(k,273) = -rxt(k,215)*y(k,39) mat(k,28) = 2.000_r8*rxt(k,216)*y(k,92) mat(k,38) = rxt(k,217)*y(k,92) - mat(k,530) = 2.000_r8*rxt(k,216)*y(k,31) + rxt(k,217)*y(k,32) + mat(k,539) = 2.000_r8*rxt(k,216)*y(k,33) + rxt(k,217)*y(k,34) mat(k,299) = -((rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,87) + rxt(k,116) & - *y(k,67) + rxt(k,119)*y(k,68)) - mat(k,390) = -(rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,38) - mat(k,614) = -rxt(k,116)*y(k,38) - mat(k,672) = -rxt(k,119)*y(k,38) - mat(k,508) = rxt(k,237)*y(k,96) - mat(k,104) = rxt(k,246)*y(k,96) - mat(k,155) = rxt(k,213)*y(k,39) - mat(k,555) = rxt(k,213)*y(k,37) + rxt(k,111)*y(k,66) + rxt(k,157)*y(k,85) & + *y(k,69) + rxt(k,119)*y(k,70)) + mat(k,390) = -(rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,40) + mat(k,520) = -rxt(k,116)*y(k,40) + mat(k,675) = -rxt(k,119)*y(k,40) + mat(k,721) = rxt(k,237)*y(k,96) + mat(k,415) = rxt(k,157)*y(k,41) + mat(k,112) = rxt(k,246)*y(k,96) + mat(k,155) = rxt(k,213)*y(k,41) + mat(k,564) = rxt(k,157)*y(k,25) + rxt(k,213)*y(k,39) + rxt(k,111)*y(k,68) & + rxt(k,94)*y(k,92) + rxt(k,120)*y(k,96) - mat(k,179) = rxt(k,211)*y(k,92) + mat(k,170) = rxt(k,211)*y(k,92) mat(k,327) = rxt(k,188)*y(k,92) mat(k,245) = rxt(k,143)*y(k,96) - mat(k,486) = rxt(k,111)*y(k,39) + rxt(k,123)*y(k,96) - mat(k,74) = rxt(k,248)*y(k,96) - mat(k,133) = rxt(k,253)*y(k,96) - mat(k,286) = rxt(k,258)*y(k,96) - mat(k,415) = rxt(k,157)*y(k,39) - mat(k,533) = rxt(k,94)*y(k,39) + rxt(k,211)*y(k,43) + rxt(k,188)*y(k,47) - mat(k,648) = rxt(k,237)*y(k,16) + rxt(k,246)*y(k,29) + rxt(k,120)*y(k,39) & - + rxt(k,143)*y(k,53) + rxt(k,123)*y(k,66) + rxt(k,248)*y(k,70) & - + rxt(k,253)*y(k,73) + rxt(k,258)*y(k,75) - mat(k,565) = -(rxt(k,94)*y(k,92) + rxt(k,111)*y(k,66) + rxt(k,120)*y(k,96) & - + rxt(k,157)*y(k,85) + rxt(k,213)*y(k,37)) - mat(k,544) = -rxt(k,94)*y(k,39) - mat(k,497) = -rxt(k,111)*y(k,39) - mat(k,659) = -rxt(k,120)*y(k,39) - mat(k,426) = -rxt(k,157)*y(k,39) - mat(k,158) = -rxt(k,213)*y(k,39) - mat(k,302) = rxt(k,113)*y(k,87) - mat(k,401) = rxt(k,113)*y(k,38) - mat(k,115) = -(rxt(k,112)*y(k,66) + rxt(k,121)*y(k,96) + rxt(k,158)*y(k,85)) - mat(k,469) = -rxt(k,112)*y(k,41) - mat(k,638) = -rxt(k,121)*y(k,41) - mat(k,411) = -rxt(k,158)*y(k,41) + mat(k,486) = rxt(k,111)*y(k,41) + rxt(k,123)*y(k,96) + mat(k,74) = rxt(k,250)*y(k,96) + mat(k,133) = rxt(k,255)*y(k,96) + mat(k,286) = rxt(k,260)*y(k,96) + mat(k,542) = rxt(k,94)*y(k,41) + rxt(k,211)*y(k,45) + rxt(k,188)*y(k,49) + mat(k,651) = rxt(k,237)*y(k,17) + rxt(k,246)*y(k,31) + rxt(k,120)*y(k,41) & + + rxt(k,143)*y(k,55) + rxt(k,123)*y(k,68) + rxt(k,250)*y(k,72) & + + rxt(k,255)*y(k,75) + rxt(k,260)*y(k,77) + mat(k,574) = -(rxt(k,94)*y(k,92) + rxt(k,111)*y(k,68) + rxt(k,120)*y(k,96) & + + rxt(k,157)*y(k,25) + rxt(k,213)*y(k,39)) + mat(k,553) = -rxt(k,94)*y(k,41) + mat(k,497) = -rxt(k,111)*y(k,41) + mat(k,662) = -rxt(k,120)*y(k,41) + mat(k,426) = -rxt(k,157)*y(k,41) + mat(k,158) = -rxt(k,213)*y(k,41) + mat(k,303) = rxt(k,113)*y(k,87) + mat(k,401) = rxt(k,113)*y(k,40) + mat(k,124) = -(rxt(k,112)*y(k,68) + rxt(k,121)*y(k,96) + rxt(k,158)*y(k,25)) + mat(k,470) = -rxt(k,112)*y(k,43) + mat(k,641) = -rxt(k,121)*y(k,43) + mat(k,411) = -rxt(k,158)*y(k,43) mat(k,386) = 2.000_r8*rxt(k,127)*y(k,87) - mat(k,638) = mat(k,638) + 2.000_r8*rxt(k,126)*y(k,96) - mat(k,47) = rxt(k,260)*y(k,100) - mat(k,740) = rxt(k,260)*y(k,77) - mat(k,178) = -(rxt(k,204)*y(k,66) + rxt(k,205)*y(k,96) + (rxt(k,210) & + mat(k,641) = mat(k,641) + 2.000_r8*rxt(k,126)*y(k,96) + mat(k,47) = rxt(k,263)*y(k,100) + mat(k,740) = rxt(k,263)*y(k,79) + mat(k,169) = -(rxt(k,204)*y(k,68) + rxt(k,205)*y(k,96) + (rxt(k,210) & + rxt(k,211)) * y(k,92)) - mat(k,476) = -rxt(k,204)*y(k,43) - mat(k,642) = -rxt(k,205)*y(k,43) - mat(k,531) = -(rxt(k,210) + rxt(k,211)) * y(k,43) - mat(k,506) = rxt(k,191)*y(k,84) - mat(k,308) = rxt(k,191)*y(k,16) + rxt(k,192)*y(k,87) - mat(k,389) = rxt(k,192)*y(k,84) - mat(k,329) = -(rxt(k,175)*y(k,66) + rxt(k,176)*y(k,96) + (rxt(k,187) & + mat(k,475) = -rxt(k,204)*y(k,45) + mat(k,645) = -rxt(k,205)*y(k,45) + mat(k,540) = -(rxt(k,210) + rxt(k,211)) * y(k,45) + mat(k,308) = rxt(k,191)*y(k,17) + rxt(k,192)*y(k,87) + mat(k,719) = rxt(k,191)*y(k,3) + mat(k,389) = rxt(k,192)*y(k,3) + mat(k,329) = -(rxt(k,175)*y(k,68) + rxt(k,176)*y(k,96) + (rxt(k,187) & + rxt(k,188)) * y(k,92) + (rxt(k,269) + rxt(k,275) + rxt(k,280) & - ) * y(k,52) + (rxt(k,274) + rxt(k,279) + rxt(k,284)) * y(k,27) & - + (rxt(k,276) + rxt(k,281)) * y(k,51)) - mat(k,488) = -rxt(k,175)*y(k,47) - mat(k,650) = -rxt(k,176)*y(k,47) - mat(k,535) = -(rxt(k,187) + rxt(k,188)) * y(k,47) - mat(k,163) = -(rxt(k,269) + rxt(k,275) + rxt(k,280)) * y(k,47) - mat(k,264) = -(rxt(k,274) + rxt(k,279) + rxt(k,284)) * y(k,47) - mat(k,146) = -(rxt(k,276) + rxt(k,281)) * y(k,47) - mat(k,510) = rxt(k,155)*y(k,85) - mat(k,445) = rxt(k,174)*y(k,96) - mat(k,556) = rxt(k,157)*y(k,85) - mat(k,116) = rxt(k,158)*y(k,85) - mat(k,163) = mat(k,163) + rxt(k,177)*y(k,85) - mat(k,417) = rxt(k,155)*y(k,16) + rxt(k,157)*y(k,39) + rxt(k,158)*y(k,41) & - + rxt(k,177)*y(k,52) + rxt(k,159)*y(k,87) - mat(k,392) = rxt(k,159)*y(k,85) - mat(k,650) = mat(k,650) + rxt(k,174)*y(k,26) - mat(k,152) = rxt(k,213)*y(k,39) + rxt(k,215)*y(k,49) + rxt(k,214)*y(k,100) - mat(k,552) = rxt(k,213)*y(k,37) - mat(k,272) = rxt(k,215)*y(k,37) - mat(k,741) = rxt(k,214)*y(k,37) - mat(k,274) = -(rxt(k,152)*y(k,96) + rxt(k,215)*y(k,37)) - mat(k,646) = -rxt(k,152)*y(k,49) - mat(k,154) = -rxt(k,215)*y(k,49) - mat(k,507) = rxt(k,235)*y(k,61) - mat(k,263) = (rxt(k,274)+rxt(k,279)+rxt(k,284))*y(k,47) - mat(k,60) = rxt(k,261)*y(k,61) - mat(k,326) = (rxt(k,274)+rxt(k,279)+rxt(k,284))*y(k,27) - mat(k,696) = rxt(k,151)*y(k,96) - mat(k,364) = rxt(k,235)*y(k,16) + rxt(k,261)*y(k,33) - mat(k,646) = mat(k,646) + rxt(k,151)*y(k,60) - mat(k,83) = -(rxt(k,128)*y(k,96)) - mat(k,636) = -rxt(k,128)*y(k,50) - mat(k,690) = rxt(k,149)*y(k,87) - mat(k,385) = rxt(k,149)*y(k,60) - mat(k,144) = -(rxt(k,206)*y(k,66) + (rxt(k,276) + rxt(k,281)) * y(k,47)) - mat(k,473) = -rxt(k,206)*y(k,51) - mat(k,323) = -(rxt(k,276) + rxt(k,281)) * y(k,51) - mat(k,576) = rxt(k,198)*y(k,87) - mat(k,387) = rxt(k,198)*y(k,4) - mat(k,162) = -(rxt(k,177)*y(k,85) + rxt(k,178)*y(k,66) + rxt(k,179)*y(k,96) & - + (rxt(k,269) + rxt(k,275) + rxt(k,280)) * y(k,47)) - mat(k,412) = -rxt(k,177)*y(k,52) - mat(k,474) = -rxt(k,178)*y(k,52) - mat(k,641) = -rxt(k,179)*y(k,52) - mat(k,324) = -(rxt(k,269) + rxt(k,275) + rxt(k,280)) * y(k,52) - mat(k,438) = rxt(k,166)*y(k,87) - mat(k,261) = rxt(k,171)*y(k,96) - mat(k,388) = rxt(k,166)*y(k,26) - mat(k,641) = mat(k,641) + rxt(k,171)*y(k,27) + ) * y(k,54) + (rxt(k,274) + rxt(k,279) + rxt(k,284)) * y(k,29) & + + (rxt(k,276) + rxt(k,281)) * y(k,53)) + mat(k,488) = -rxt(k,175)*y(k,49) + mat(k,653) = -rxt(k,176)*y(k,49) + mat(k,544) = -(rxt(k,187) + rxt(k,188)) * y(k,49) + mat(k,163) = -(rxt(k,269) + rxt(k,275) + rxt(k,280)) * y(k,49) + mat(k,264) = -(rxt(k,274) + rxt(k,279) + rxt(k,284)) * y(k,49) + mat(k,146) = -(rxt(k,276) + rxt(k,281)) * y(k,49) + mat(k,723) = rxt(k,155)*y(k,25) + mat(k,417) = rxt(k,155)*y(k,17) + rxt(k,157)*y(k,41) + rxt(k,158)*y(k,43) & + + rxt(k,177)*y(k,54) + rxt(k,159)*y(k,87) + mat(k,616) = rxt(k,174)*y(k,96) + mat(k,565) = rxt(k,157)*y(k,25) + mat(k,125) = rxt(k,158)*y(k,25) + mat(k,163) = mat(k,163) + rxt(k,177)*y(k,25) + mat(k,392) = rxt(k,159)*y(k,25) + mat(k,653) = mat(k,653) + rxt(k,174)*y(k,28) end do end subroutine nlnmat01 subroutine nlnmat02( avec_len, mat, y, rxt ) @@ -252,209 +255,225 @@ subroutine nlnmat02( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,244) = -(rxt(k,131)*y(k,59) + (rxt(k,132) + rxt(k,133) + rxt(k,134) & - ) * y(k,60) + rxt(k,135)*y(k,67) + rxt(k,143)*y(k,96) + rxt(k,297) & + mat(k,152) = rxt(k,213)*y(k,41) + rxt(k,215)*y(k,51) + rxt(k,214)*y(k,100) + mat(k,561) = rxt(k,213)*y(k,39) + mat(k,272) = rxt(k,215)*y(k,39) + mat(k,741) = rxt(k,214)*y(k,39) + mat(k,274) = -(rxt(k,152)*y(k,96) + rxt(k,215)*y(k,39)) + mat(k,649) = -rxt(k,152)*y(k,51) + mat(k,154) = -rxt(k,215)*y(k,51) + mat(k,720) = rxt(k,235)*y(k,63) + mat(k,263) = (rxt(k,274)+rxt(k,279)+rxt(k,284))*y(k,49) + mat(k,60) = rxt(k,247)*y(k,63) + mat(k,326) = (rxt(k,274)+rxt(k,279)+rxt(k,284))*y(k,29) + mat(k,441) = rxt(k,151)*y(k,96) + mat(k,364) = rxt(k,235)*y(k,17) + rxt(k,247)*y(k,35) + mat(k,649) = mat(k,649) + rxt(k,151)*y(k,62) + mat(k,83) = -(rxt(k,128)*y(k,96)) + mat(k,639) = -rxt(k,128)*y(k,52) + mat(k,435) = rxt(k,149)*y(k,87) + mat(k,385) = rxt(k,149)*y(k,62) + mat(k,144) = -(rxt(k,206)*y(k,68) + (rxt(k,276) + rxt(k,281)) * y(k,49)) + mat(k,473) = -rxt(k,206)*y(k,53) + mat(k,323) = -(rxt(k,276) + rxt(k,281)) * y(k,53) + mat(k,695) = rxt(k,198)*y(k,87) + mat(k,387) = rxt(k,198)*y(k,5) + mat(k,162) = -(rxt(k,177)*y(k,25) + rxt(k,178)*y(k,68) + rxt(k,179)*y(k,96) & + + (rxt(k,269) + rxt(k,275) + rxt(k,280)) * y(k,49)) + mat(k,412) = -rxt(k,177)*y(k,54) + mat(k,474) = -rxt(k,178)*y(k,54) + mat(k,644) = -rxt(k,179)*y(k,54) + mat(k,324) = -(rxt(k,269) + rxt(k,275) + rxt(k,280)) * y(k,54) + mat(k,609) = rxt(k,166)*y(k,87) + mat(k,261) = rxt(k,171)*y(k,96) + mat(k,388) = rxt(k,166)*y(k,28) + mat(k,644) = mat(k,644) + rxt(k,171)*y(k,29) + mat(k,244) = -(rxt(k,131)*y(k,61) + (rxt(k,132) + rxt(k,133) + rxt(k,134) & + ) * y(k,62) + rxt(k,135)*y(k,69) + rxt(k,143)*y(k,96) + rxt(k,297) & *y(k,95)) - mat(k,721) = -rxt(k,131)*y(k,53) - mat(k,693) = -(rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,53) - mat(k,611) = -rxt(k,135)*y(k,53) - mat(k,643) = -rxt(k,143)*y(k,53) - mat(k,203) = -rxt(k,297)*y(k,53) + mat(k,586) = -rxt(k,131)*y(k,55) + mat(k,438) = -(rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,55) + mat(k,517) = -rxt(k,135)*y(k,55) + mat(k,646) = -rxt(k,143)*y(k,55) + mat(k,203) = -rxt(k,297)*y(k,55) mat(k,481) = rxt(k,129)*y(k,88) + rxt(k,294)*y(k,91) - mat(k,611) = mat(k,611) + rxt(k,295)*y(k,91) + mat(k,517) = mat(k,517) + rxt(k,295)*y(k,91) mat(k,217) = 1.100_r8*rxt(k,290)*y(k,89) + .200_r8*rxt(k,288)*y(k,90) - mat(k,230) = rxt(k,129)*y(k,66) - mat(k,128) = 1.100_r8*rxt(k,290)*y(k,86) + mat(k,230) = rxt(k,129)*y(k,68) + mat(k,121) = 1.100_r8*rxt(k,290)*y(k,86) mat(k,141) = .200_r8*rxt(k,288)*y(k,86) - mat(k,175) = rxt(k,294)*y(k,66) + rxt(k,295)*y(k,67) - mat(k,689) = rxt(k,150)*y(k,61) - mat(k,360) = rxt(k,150)*y(k,60) - mat(k,738) = -(rxt(k,131)*y(k,53) + rxt(k,140)*y(k,61) + rxt(k,144)*y(k,87) & - + rxt(k,145)*y(k,68) + rxt(k,146)*y(k,66) + rxt(k,167)*y(k,26) & - + rxt(k,199)*y(k,4) + rxt(k,239)*y(k,20) + rxt(k,299)*y(k,95)) - mat(k,252) = -rxt(k,131)*y(k,59) - mat(k,382) = -rxt(k,140)*y(k,59) - mat(k,407) = -rxt(k,144)*y(k,59) - mat(k,687) = -rxt(k,145)*y(k,59) - mat(k,503) = -rxt(k,146)*y(k,59) - mat(k,460) = -rxt(k,167)*y(k,59) - mat(k,597) = -rxt(k,199)*y(k,59) - mat(k,358) = -rxt(k,239)*y(k,59) - mat(k,207) = -rxt(k,299)*y(k,59) - mat(k,252) = mat(k,252) + 2.000_r8*rxt(k,133)*y(k,60) + rxt(k,135)*y(k,67) & + mat(k,183) = rxt(k,294)*y(k,68) + rxt(k,295)*y(k,69) + mat(k,434) = rxt(k,150)*y(k,63) + mat(k,360) = rxt(k,150)*y(k,62) + mat(k,598) = -(rxt(k,131)*y(k,55) + rxt(k,140)*y(k,63) + rxt(k,144)*y(k,87) & + + rxt(k,145)*y(k,70) + rxt(k,146)*y(k,68) + rxt(k,167)*y(k,28) & + + rxt(k,199)*y(k,5) + rxt(k,239)*y(k,21) + rxt(k,299)*y(k,95)) + mat(k,251) = -rxt(k,131)*y(k,61) + mat(k,377) = -rxt(k,140)*y(k,61) + mat(k,402) = -rxt(k,144)*y(k,61) + mat(k,685) = -rxt(k,145)*y(k,61) + mat(k,498) = -rxt(k,146)*y(k,61) + mat(k,626) = -rxt(k,167)*y(k,61) + mat(k,711) = -rxt(k,199)*y(k,61) + mat(k,354) = -rxt(k,239)*y(k,61) + mat(k,207) = -rxt(k,299)*y(k,61) + mat(k,251) = mat(k,251) + 2.000_r8*rxt(k,133)*y(k,62) + rxt(k,135)*y(k,69) & + rxt(k,143)*y(k,96) - mat(k,715) = 2.000_r8*rxt(k,133)*y(k,53) + rxt(k,136)*y(k,66) + rxt(k,254) & - *y(k,75) - mat(k,503) = mat(k,503) + rxt(k,136)*y(k,60) - mat(k,628) = rxt(k,135)*y(k,53) + rxt(k,130)*y(k,88) - mat(k,297) = rxt(k,254)*y(k,60) - mat(k,237) = rxt(k,130)*y(k,67) - mat(k,665) = rxt(k,143)*y(k,53) - mat(k,714) = -((rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,53) + (rxt(k,136) & - + rxt(k,138)) * y(k,66) + rxt(k,137)*y(k,68) + rxt(k,149) & - *y(k,87) + rxt(k,150)*y(k,61) + rxt(k,151)*y(k,96) + rxt(k,169) & - *y(k,26) + rxt(k,200)*y(k,4) + rxt(k,254)*y(k,75)) - mat(k,251) = -(rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,60) - mat(k,502) = -(rxt(k,136) + rxt(k,138)) * y(k,60) - mat(k,686) = -rxt(k,137)*y(k,60) - mat(k,406) = -rxt(k,149)*y(k,60) - mat(k,381) = -rxt(k,150)*y(k,60) - mat(k,664) = -rxt(k,151)*y(k,60) - mat(k,459) = -rxt(k,169)*y(k,60) - mat(k,596) = -rxt(k,200)*y(k,60) - mat(k,296) = -rxt(k,254)*y(k,60) - mat(k,596) = mat(k,596) + rxt(k,199)*y(k,59) - mat(k,357) = rxt(k,239)*y(k,59) - mat(k,459) = mat(k,459) + rxt(k,167)*y(k,59) - mat(k,88) = rxt(k,128)*y(k,96) - mat(k,737) = rxt(k,199)*y(k,4) + rxt(k,239)*y(k,20) + rxt(k,167)*y(k,26) & - + 2.000_r8*rxt(k,140)*y(k,61) + rxt(k,146)*y(k,66) + rxt(k,145) & - *y(k,68) + rxt(k,144)*y(k,87) - mat(k,381) = mat(k,381) + 2.000_r8*rxt(k,140)*y(k,59) + rxt(k,141)*y(k,66) & + mat(k,455) = 2.000_r8*rxt(k,133)*y(k,55) + rxt(k,136)*y(k,68) + rxt(k,256) & + *y(k,77) + mat(k,498) = mat(k,498) + rxt(k,136)*y(k,62) + mat(k,529) = rxt(k,135)*y(k,55) + rxt(k,130)*y(k,88) + mat(k,293) = rxt(k,256)*y(k,62) + mat(k,236) = rxt(k,130)*y(k,69) + mat(k,663) = rxt(k,143)*y(k,55) + mat(k,450) = -((rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,55) + (rxt(k,136) & + + rxt(k,138)) * y(k,68) + rxt(k,137)*y(k,70) + rxt(k,149) & + *y(k,87) + rxt(k,150)*y(k,63) + rxt(k,151)*y(k,96) + rxt(k,169) & + *y(k,28) + rxt(k,200)*y(k,5) + rxt(k,256)*y(k,77)) + mat(k,247) = -(rxt(k,132) + rxt(k,133) + rxt(k,134)) * y(k,62) + mat(k,493) = -(rxt(k,136) + rxt(k,138)) * y(k,62) + mat(k,680) = -rxt(k,137)*y(k,62) + mat(k,397) = -rxt(k,149)*y(k,62) + mat(k,372) = -rxt(k,150)*y(k,62) + mat(k,658) = -rxt(k,151)*y(k,62) + mat(k,621) = -rxt(k,169)*y(k,62) + mat(k,706) = -rxt(k,200)*y(k,62) + mat(k,290) = -rxt(k,256)*y(k,62) + mat(k,706) = mat(k,706) + rxt(k,199)*y(k,61) + mat(k,350) = rxt(k,239)*y(k,61) + mat(k,621) = mat(k,621) + rxt(k,167)*y(k,61) + mat(k,86) = rxt(k,128)*y(k,96) + mat(k,593) = rxt(k,199)*y(k,5) + rxt(k,239)*y(k,21) + rxt(k,167)*y(k,28) & + + 2.000_r8*rxt(k,140)*y(k,63) + rxt(k,146)*y(k,68) + rxt(k,145) & + *y(k,70) + rxt(k,144)*y(k,87) + mat(k,372) = mat(k,372) + 2.000_r8*rxt(k,140)*y(k,61) + rxt(k,141)*y(k,68) & + rxt(k,139)*y(k,87) + rxt(k,142)*y(k,96) - mat(k,502) = mat(k,502) + rxt(k,146)*y(k,59) + rxt(k,141)*y(k,61) - mat(k,686) = mat(k,686) + rxt(k,145)*y(k,59) - mat(k,406) = mat(k,406) + rxt(k,144)*y(k,59) + rxt(k,139)*y(k,61) - mat(k,664) = mat(k,664) + rxt(k,128)*y(k,50) + rxt(k,142)*y(k,61) - mat(k,369) = -(rxt(k,139)*y(k,87) + rxt(k,140)*y(k,59) + rxt(k,141)*y(k,66) & - + rxt(k,142)*y(k,96) + rxt(k,150)*y(k,60) + rxt(k,235)*y(k,16) & - + rxt(k,261)*y(k,33)) - mat(k,394) = -rxt(k,139)*y(k,61) - mat(k,725) = -rxt(k,140)*y(k,61) - mat(k,490) = -rxt(k,141)*y(k,61) - mat(k,652) = -rxt(k,142)*y(k,61) - mat(k,702) = -rxt(k,150)*y(k,61) - mat(k,512) = -rxt(k,235)*y(k,61) - mat(k,61) = -rxt(k,261)*y(k,61) - mat(k,111) = rxt(k,201)*y(k,66) - mat(k,265) = rxt(k,170)*y(k,66) + rxt(k,168)*y(k,85) + rxt(k,171)*y(k,96) - mat(k,157) = rxt(k,215)*y(k,49) - mat(k,277) = rxt(k,215)*y(k,37) + rxt(k,152)*y(k,96) - mat(k,702) = mat(k,702) + rxt(k,138)*y(k,66) + rxt(k,137)*y(k,68) - mat(k,490) = mat(k,490) + rxt(k,201)*y(k,5) + rxt(k,170)*y(k,27) + rxt(k,138) & - *y(k,60) - mat(k,674) = rxt(k,137)*y(k,60) - mat(k,419) = rxt(k,168)*y(k,27) - mat(k,652) = mat(k,652) + rxt(k,171)*y(k,27) + rxt(k,152)*y(k,49) - mat(k,494) = -(rxt(k,108)*y(k,68) + 4._r8*rxt(k,109)*y(k,66) + rxt(k,110) & - *y(k,67) + rxt(k,111)*y(k,39) + rxt(k,112)*y(k,41) + rxt(k,117) & + mat(k,493) = mat(k,493) + rxt(k,146)*y(k,61) + rxt(k,141)*y(k,63) + mat(k,680) = mat(k,680) + rxt(k,145)*y(k,61) + mat(k,397) = mat(k,397) + rxt(k,144)*y(k,61) + rxt(k,139)*y(k,63) + mat(k,658) = mat(k,658) + rxt(k,128)*y(k,52) + rxt(k,142)*y(k,63) + mat(k,369) = -(rxt(k,139)*y(k,87) + rxt(k,140)*y(k,61) + rxt(k,141)*y(k,68) & + + rxt(k,142)*y(k,96) + rxt(k,150)*y(k,62) + rxt(k,235)*y(k,17) & + + rxt(k,247)*y(k,35)) + mat(k,394) = -rxt(k,139)*y(k,63) + mat(k,590) = -rxt(k,140)*y(k,63) + mat(k,490) = -rxt(k,141)*y(k,63) + mat(k,655) = -rxt(k,142)*y(k,63) + mat(k,447) = -rxt(k,150)*y(k,63) + mat(k,725) = -rxt(k,235)*y(k,63) + mat(k,61) = -rxt(k,247)*y(k,63) + mat(k,107) = rxt(k,201)*y(k,68) + mat(k,419) = rxt(k,168)*y(k,29) + mat(k,265) = rxt(k,168)*y(k,25) + rxt(k,170)*y(k,68) + rxt(k,171)*y(k,96) + mat(k,157) = rxt(k,215)*y(k,51) + mat(k,277) = rxt(k,215)*y(k,39) + rxt(k,152)*y(k,96) + mat(k,447) = mat(k,447) + rxt(k,138)*y(k,68) + rxt(k,137)*y(k,70) + mat(k,490) = mat(k,490) + rxt(k,201)*y(k,6) + rxt(k,170)*y(k,29) + rxt(k,138) & + *y(k,62) + mat(k,677) = rxt(k,137)*y(k,62) + mat(k,655) = mat(k,655) + rxt(k,171)*y(k,29) + rxt(k,152)*y(k,51) + mat(k,494) = -(rxt(k,108)*y(k,70) + 4._r8*rxt(k,109)*y(k,68) + rxt(k,110) & + *y(k,69) + rxt(k,111)*y(k,41) + rxt(k,112)*y(k,43) + rxt(k,117) & *y(k,87) + rxt(k,123)*y(k,96) + (rxt(k,136) + rxt(k,138) & - ) * y(k,60) + rxt(k,141)*y(k,61) + rxt(k,146)*y(k,59) + rxt(k,170) & - *y(k,27) + rxt(k,172)*y(k,26) + rxt(k,175)*y(k,47) + rxt(k,178) & - *y(k,52) + rxt(k,201)*y(k,5) + rxt(k,202)*y(k,4) + rxt(k,204) & - *y(k,43) + rxt(k,206)*y(k,51) + rxt(k,236)*y(k,16) + rxt(k,247) & - *y(k,70) + (rxt(k,292) + rxt(k,293)) * y(k,89) + rxt(k,294) & + ) * 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,249) & + *y(k,72) + (rxt(k,292) + rxt(k,293)) * y(k,89) + rxt(k,294) & *y(k,91)) - mat(k,678) = -rxt(k,108)*y(k,66) - mat(k,619) = -rxt(k,110)*y(k,66) - mat(k,562) = -rxt(k,111)*y(k,66) - mat(k,119) = -rxt(k,112)*y(k,66) - mat(k,398) = -rxt(k,117)*y(k,66) - mat(k,656) = -rxt(k,123)*y(k,66) - mat(k,706) = -(rxt(k,136) + rxt(k,138)) * y(k,66) - mat(k,373) = -rxt(k,141)*y(k,66) - mat(k,729) = -rxt(k,146)*y(k,66) - mat(k,268) = -rxt(k,170)*y(k,66) - mat(k,451) = -rxt(k,172)*y(k,66) - mat(k,335) = -rxt(k,175)*y(k,66) - mat(k,166) = -rxt(k,178)*y(k,66) - mat(k,112) = -rxt(k,201)*y(k,66) - mat(k,588) = -rxt(k,202)*y(k,66) - mat(k,181) = -rxt(k,204)*y(k,66) - mat(k,148) = -rxt(k,206)*y(k,66) - mat(k,516) = -rxt(k,236)*y(k,66) - mat(k,75) = -rxt(k,247)*y(k,66) - mat(k,129) = -(rxt(k,292) + rxt(k,293)) * y(k,66) - mat(k,176) = -rxt(k,294)*y(k,66) + mat(k,681) = -rxt(k,108)*y(k,68) + mat(k,525) = -rxt(k,110)*y(k,68) + mat(k,571) = -rxt(k,111)*y(k,68) + mat(k,128) = -rxt(k,112)*y(k,68) + mat(k,398) = -rxt(k,117)*y(k,68) + mat(k,659) = -rxt(k,123)*y(k,68) + mat(k,451) = -(rxt(k,136) + rxt(k,138)) * y(k,68) + mat(k,373) = -rxt(k,141)*y(k,68) + mat(k,594) = -rxt(k,146)*y(k,68) + mat(k,268) = -rxt(k,170)*y(k,68) + mat(k,622) = -rxt(k,172)*y(k,68) + mat(k,335) = -rxt(k,175)*y(k,68) + mat(k,165) = -rxt(k,178)*y(k,68) + mat(k,109) = -rxt(k,201)*y(k,68) + mat(k,707) = -rxt(k,202)*y(k,68) + mat(k,172) = -rxt(k,204)*y(k,68) + mat(k,148) = -rxt(k,206)*y(k,68) + mat(k,729) = -rxt(k,236)*y(k,68) + mat(k,75) = -rxt(k,249)*y(k,68) + mat(k,122) = -(rxt(k,292) + rxt(k,293)) * y(k,68) + mat(k,184) = -rxt(k,294)*y(k,68) mat(k,301) = rxt(k,115)*y(k,87) - mat(k,247) = rxt(k,131)*y(k,59) + rxt(k,132)*y(k,60) + rxt(k,135)*y(k,67) & + mat(k,248) = rxt(k,131)*y(k,61) + rxt(k,132)*y(k,62) + rxt(k,135)*y(k,69) & + rxt(k,297)*y(k,95) - mat(k,729) = mat(k,729) + rxt(k,131)*y(k,53) - mat(k,706) = mat(k,706) + rxt(k,132)*y(k,53) - mat(k,619) = mat(k,619) + rxt(k,135)*y(k,53) + rxt(k,249)*y(k,73) & - + rxt(k,255)*y(k,75) + rxt(k,296)*y(k,91) + (rxt(k,97)+rxt(k,98)) & + mat(k,594) = mat(k,594) + rxt(k,131)*y(k,55) + mat(k,451) = mat(k,451) + rxt(k,132)*y(k,55) + mat(k,525) = mat(k,525) + rxt(k,135)*y(k,55) + rxt(k,251)*y(k,75) & + + rxt(k,257)*y(k,77) + rxt(k,296)*y(k,91) + (rxt(k,97)+rxt(k,98)) & *y(k,92) + rxt(k,303)*y(k,97) + rxt(k,307)*y(k,98) - mat(k,134) = rxt(k,249)*y(k,67) - mat(k,291) = rxt(k,255)*y(k,67) + mat(k,134) = rxt(k,251)*y(k,69) + mat(k,291) = rxt(k,257)*y(k,69) mat(k,220) = rxt(k,288)*y(k,90) + 1.150_r8*rxt(k,289)*y(k,95) - mat(k,398) = mat(k,398) + rxt(k,115)*y(k,38) + mat(k,398) = mat(k,398) + rxt(k,115)*y(k,40) mat(k,233) = rxt(k,302)*y(k,97) mat(k,142) = rxt(k,288)*y(k,86) - mat(k,176) = mat(k,176) + rxt(k,296)*y(k,67) - mat(k,541) = (rxt(k,97)+rxt(k,98))*y(k,67) - mat(k,204) = rxt(k,297)*y(k,53) + 1.150_r8*rxt(k,289)*y(k,86) - mat(k,656) = mat(k,656) + 2.000_r8*rxt(k,125)*y(k,96) - mat(k,196) = rxt(k,303)*y(k,67) + rxt(k,302)*y(k,88) - mat(k,101) = rxt(k,307)*y(k,67) - mat(k,624) = -(rxt(k,97)*y(k,92) + rxt(k,102)*y(k,93) + rxt(k,110)*y(k,66) & - + rxt(k,116)*y(k,38) + rxt(k,130)*y(k,88) + rxt(k,135)*y(k,53) & - + rxt(k,249)*y(k,73) + rxt(k,255)*y(k,75) + rxt(k,291)*y(k,89) & + mat(k,184) = mat(k,184) + rxt(k,296)*y(k,69) + mat(k,550) = (rxt(k,97)+rxt(k,98))*y(k,69) + mat(k,204) = rxt(k,297)*y(k,55) + 1.150_r8*rxt(k,289)*y(k,86) + mat(k,659) = mat(k,659) + 2.000_r8*rxt(k,125)*y(k,96) + mat(k,196) = rxt(k,303)*y(k,69) + rxt(k,302)*y(k,88) + mat(k,101) = rxt(k,307)*y(k,69) + mat(k,526) = -(rxt(k,97)*y(k,92) + rxt(k,102)*y(k,93) + rxt(k,110)*y(k,68) & + + rxt(k,116)*y(k,40) + rxt(k,130)*y(k,88) + rxt(k,135)*y(k,55) & + + rxt(k,251)*y(k,75) + rxt(k,257)*y(k,77) + rxt(k,291)*y(k,89) & + (rxt(k,295) + rxt(k,296)) * y(k,91) + rxt(k,303)*y(k,97) & + rxt(k,307)*y(k,98)) - mat(k,546) = -rxt(k,97)*y(k,67) - mat(k,31) = -rxt(k,102)*y(k,67) - mat(k,499) = -rxt(k,110)*y(k,67) - mat(k,303) = -rxt(k,116)*y(k,67) - mat(k,235) = -rxt(k,130)*y(k,67) - mat(k,249) = -rxt(k,135)*y(k,67) - mat(k,135) = -rxt(k,249)*y(k,67) - mat(k,293) = -rxt(k,255)*y(k,67) - mat(k,130) = -rxt(k,291)*y(k,67) - mat(k,177) = -(rxt(k,295) + rxt(k,296)) * y(k,67) - mat(k,197) = -rxt(k,303)*y(k,67) - mat(k,102) = -rxt(k,307)*y(k,67) - mat(k,593) = 2.000_r8*rxt(k,194)*y(k,4) + (rxt(k,196)+rxt(k,197))*y(k,26) & - + rxt(k,202)*y(k,66) + rxt(k,198)*y(k,87) - mat(k,354) = rxt(k,238)*y(k,87) - mat(k,456) = (rxt(k,196)+rxt(k,197))*y(k,4) + (2.000_r8*rxt(k,163) & - +2.000_r8*rxt(k,164))*y(k,26) + rxt(k,172)*y(k,66) + rxt(k,166) & + mat(k,551) = -rxt(k,97)*y(k,69) + mat(k,31) = -rxt(k,102)*y(k,69) + mat(k,495) = -rxt(k,110)*y(k,69) + mat(k,302) = -rxt(k,116)*y(k,69) + mat(k,234) = -rxt(k,130)*y(k,69) + mat(k,249) = -rxt(k,135)*y(k,69) + mat(k,135) = -rxt(k,251)*y(k,69) + mat(k,292) = -rxt(k,257)*y(k,69) + mat(k,123) = -rxt(k,291)*y(k,69) + mat(k,185) = -(rxt(k,295) + rxt(k,296)) * y(k,69) + mat(k,197) = -rxt(k,303)*y(k,69) + mat(k,102) = -rxt(k,307)*y(k,69) + mat(k,313) = rxt(k,193)*y(k,70) + rxt(k,192)*y(k,87) + mat(k,708) = 2.000_r8*rxt(k,194)*y(k,5) + (rxt(k,196)+rxt(k,197))*y(k,28) & + + rxt(k,202)*y(k,68) + rxt(k,198)*y(k,87) + mat(k,352) = rxt(k,238)*y(k,87) + mat(k,424) = rxt(k,161)*y(k,70) + rxt(k,159)*y(k,87) + mat(k,623) = (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,68) + rxt(k,166) & *y(k,87) + rxt(k,174)*y(k,96) - mat(k,303) = mat(k,303) + rxt(k,119)*y(k,68) + rxt(k,113)*y(k,87) - mat(k,86) = rxt(k,128)*y(k,96) - mat(k,249) = mat(k,249) + rxt(k,134)*y(k,60) - mat(k,734) = rxt(k,145)*y(k,68) + rxt(k,299)*y(k,95) - mat(k,711) = rxt(k,134)*y(k,53) + rxt(k,136)*y(k,66) + rxt(k,137)*y(k,68) - mat(k,378) = rxt(k,141)*y(k,66) + rxt(k,139)*y(k,87) - mat(k,499) = mat(k,499) + rxt(k,202)*y(k,4) + rxt(k,172)*y(k,26) + rxt(k,136) & - *y(k,60) + rxt(k,141)*y(k,61) + 2.000_r8*rxt(k,109)*y(k,66) & - + 2.000_r8*rxt(k,108)*y(k,68) + rxt(k,117)*y(k,87) + rxt(k,101) & + mat(k,302) = mat(k,302) + rxt(k,119)*y(k,70) + rxt(k,113)*y(k,87) + mat(k,87) = rxt(k,128)*y(k,96) + mat(k,249) = mat(k,249) + rxt(k,134)*y(k,62) + mat(k,595) = rxt(k,145)*y(k,70) + rxt(k,299)*y(k,95) + mat(k,452) = rxt(k,134)*y(k,55) + rxt(k,136)*y(k,68) + rxt(k,137)*y(k,70) + mat(k,374) = rxt(k,141)*y(k,68) + rxt(k,139)*y(k,87) + mat(k,495) = mat(k,495) + rxt(k,202)*y(k,5) + rxt(k,172)*y(k,28) + rxt(k,136) & + *y(k,62) + rxt(k,141)*y(k,63) + 2.000_r8*rxt(k,109)*y(k,68) & + + 2.000_r8*rxt(k,108)*y(k,70) + rxt(k,117)*y(k,87) + rxt(k,101) & *y(k,93) + rxt(k,123)*y(k,96) - mat(k,624) = mat(k,624) + 2.000_r8*rxt(k,102)*y(k,93) - mat(k,683) = rxt(k,119)*y(k,38) + rxt(k,145)*y(k,59) + rxt(k,137)*y(k,60) & - + 2.000_r8*rxt(k,108)*y(k,66) + rxt(k,250)*y(k,73) + rxt(k,256) & - *y(k,75) + rxt(k,193)*y(k,84) + rxt(k,161)*y(k,85) & + mat(k,526) = mat(k,526) + 2.000_r8*rxt(k,102)*y(k,93) + mat(k,682) = rxt(k,193)*y(k,3) + rxt(k,161)*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,68) + rxt(k,252)*y(k,75) + rxt(k,258)*y(k,77) & + 2.000_r8*rxt(k,118)*y(k,87) + 2.000_r8*rxt(k,99)*y(k,92) & + rxt(k,124)*y(k,96) - mat(k,135) = mat(k,135) + rxt(k,250)*y(k,68) - mat(k,293) = mat(k,293) + rxt(k,256)*y(k,68) - mat(k,317) = rxt(k,193)*y(k,68) + rxt(k,192)*y(k,87) - mat(k,428) = rxt(k,161)*y(k,68) + rxt(k,159)*y(k,87) - mat(k,403) = rxt(k,198)*y(k,4) + rxt(k,238)*y(k,20) + rxt(k,166)*y(k,26) & - + rxt(k,113)*y(k,38) + rxt(k,139)*y(k,61) + rxt(k,117)*y(k,66) & - + 2.000_r8*rxt(k,118)*y(k,68) + rxt(k,192)*y(k,84) + rxt(k,159) & - *y(k,85) + 2.000_r8*rxt(k,127)*y(k,87) + rxt(k,122)*y(k,96) - mat(k,546) = mat(k,546) + 2.000_r8*rxt(k,99)*y(k,68) - mat(k,31) = mat(k,31) + rxt(k,101)*y(k,66) + 2.000_r8*rxt(k,102)*y(k,67) - mat(k,206) = rxt(k,299)*y(k,59) - mat(k,661) = rxt(k,174)*y(k,26) + rxt(k,128)*y(k,50) + rxt(k,123)*y(k,66) & - + rxt(k,124)*y(k,68) + rxt(k,122)*y(k,87) - mat(k,685) = -(rxt(k,99)*y(k,92) + rxt(k,108)*y(k,66) + rxt(k,118)*y(k,87) & - + rxt(k,119)*y(k,38) + rxt(k,124)*y(k,96) + rxt(k,137)*y(k,60) & - + rxt(k,145)*y(k,59) + rxt(k,161)*y(k,85) + rxt(k,193)*y(k,84) & - + rxt(k,250)*y(k,73) + rxt(k,256)*y(k,75)) - mat(k,548) = -rxt(k,99)*y(k,68) - mat(k,501) = -rxt(k,108)*y(k,68) - mat(k,405) = -rxt(k,118)*y(k,68) - mat(k,305) = -rxt(k,119)*y(k,68) - mat(k,663) = -rxt(k,124)*y(k,68) - mat(k,713) = -rxt(k,137)*y(k,68) - mat(k,736) = -rxt(k,145)*y(k,68) - mat(k,430) = -rxt(k,161)*y(k,68) - mat(k,319) = -rxt(k,193)*y(k,68) - mat(k,137) = -rxt(k,250)*y(k,68) - mat(k,295) = -rxt(k,256)*y(k,68) - mat(k,501) = mat(k,501) + rxt(k,110)*y(k,67) - mat(k,626) = rxt(k,110)*y(k,66) + mat(k,135) = mat(k,135) + rxt(k,252)*y(k,70) + mat(k,292) = mat(k,292) + rxt(k,258)*y(k,70) + mat(k,399) = 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) & + + rxt(k,139)*y(k,63) + rxt(k,117)*y(k,68) + 2.000_r8*rxt(k,118) & + *y(k,70) + 2.000_r8*rxt(k,127)*y(k,87) + rxt(k,122)*y(k,96) + mat(k,551) = mat(k,551) + 2.000_r8*rxt(k,99)*y(k,70) + mat(k,31) = mat(k,31) + rxt(k,101)*y(k,68) + 2.000_r8*rxt(k,102)*y(k,69) + mat(k,205) = rxt(k,299)*y(k,61) + mat(k,660) = rxt(k,174)*y(k,28) + rxt(k,128)*y(k,52) + rxt(k,123)*y(k,68) & + + rxt(k,124)*y(k,70) + rxt(k,122)*y(k,87) end do end subroutine nlnmat02 subroutine nlnmat03( avec_len, mat, y, rxt ) @@ -475,255 +494,236 @@ subroutine nlnmat03( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,64) = -(rxt(k,257)*y(k,75)) - mat(k,282) = -rxt(k,257)*y(k,69) - mat(k,574) = rxt(k,195)*y(k,26) - mat(k,437) = rxt(k,195)*y(k,4) + 2.000_r8*rxt(k,165)*y(k,26) - mat(k,69) = -(rxt(k,247)*y(k,66) + rxt(k,248)*y(k,96)) - mat(k,464) = -rxt(k,247)*y(k,70) - mat(k,634) = -rxt(k,248)*y(k,70) - mat(k,131) = -(rxt(k,249)*y(k,67) + rxt(k,250)*y(k,68) + rxt(k,253)*y(k,96)) - mat(k,604) = -rxt(k,249)*y(k,73) - mat(k,669) = -rxt(k,250)*y(k,73) - mat(k,639) = -rxt(k,253)*y(k,73) - mat(k,285) = -(rxt(k,251)*y(k,4) + rxt(k,252)*y(k,26) + rxt(k,254)*y(k,60) & - + rxt(k,255)*y(k,67) + rxt(k,256)*y(k,68) + rxt(k,257)*y(k,69) & - + rxt(k,258)*y(k,96)) - mat(k,579) = -rxt(k,251)*y(k,75) - mat(k,442) = -rxt(k,252)*y(k,75) - mat(k,697) = -rxt(k,254)*y(k,75) - mat(k,613) = -rxt(k,255)*y(k,75) - mat(k,671) = -rxt(k,256)*y(k,75) - mat(k,66) = -rxt(k,257)*y(k,75) - mat(k,647) = -rxt(k,258)*y(k,75) - mat(k,485) = rxt(k,247)*y(k,70) - mat(k,613) = mat(k,613) + rxt(k,249)*y(k,73) - mat(k,671) = mat(k,671) + rxt(k,250)*y(k,73) - mat(k,73) = rxt(k,247)*y(k,66) - mat(k,132) = rxt(k,249)*y(k,67) + rxt(k,250)*y(k,68) + rxt(k,253)*y(k,96) - mat(k,647) = mat(k,647) + rxt(k,253)*y(k,73) - mat(k,254) = -(rxt(k,259)*y(k,96)) - mat(k,644) = -rxt(k,259)*y(k,76) - mat(k,577) = rxt(k,251)*y(k,75) - mat(k,439) = rxt(k,252)*y(k,75) - mat(k,59) = rxt(k,261)*y(k,61) + (rxt(k,262)+.500_r8*rxt(k,263))*y(k,96) - mat(k,694) = rxt(k,254)*y(k,75) - mat(k,363) = rxt(k,261)*y(k,33) - mat(k,612) = rxt(k,255)*y(k,75) - mat(k,670) = rxt(k,256)*y(k,75) - mat(k,65) = rxt(k,257)*y(k,75) - mat(k,72) = rxt(k,248)*y(k,96) - mat(k,284) = rxt(k,251)*y(k,4) + rxt(k,252)*y(k,26) + rxt(k,254)*y(k,60) & - + rxt(k,255)*y(k,67) + rxt(k,256)*y(k,68) + rxt(k,257)*y(k,69) & - + rxt(k,258)*y(k,96) - mat(k,644) = mat(k,644) + (rxt(k,262)+.500_r8*rxt(k,263))*y(k,33) & - + rxt(k,248)*y(k,70) + rxt(k,258)*y(k,75) - mat(k,48) = -(rxt(k,260)*y(k,100)) - mat(k,742) = -rxt(k,260)*y(k,77) - mat(k,253) = rxt(k,259)*y(k,96) - mat(k,632) = rxt(k,259)*y(k,76) - mat(k,310) = -(rxt(k,191)*y(k,16) + rxt(k,192)*y(k,87) + rxt(k,193)*y(k,68)) - mat(k,509) = -rxt(k,191)*y(k,84) - mat(k,391) = -rxt(k,192)*y(k,84) - mat(k,673) = -rxt(k,193)*y(k,84) - mat(k,581) = 4.000_r8*rxt(k,194)*y(k,4) + (rxt(k,195)+rxt(k,196))*y(k,26) & - + rxt(k,199)*y(k,59) + rxt(k,202)*y(k,66) + rxt(k,251)*y(k,75) & - + rxt(k,203)*y(k,96) - mat(k,444) = (rxt(k,195)+rxt(k,196))*y(k,4) - mat(k,180) = rxt(k,204)*y(k,66) + rxt(k,210)*y(k,92) + rxt(k,205)*y(k,96) - mat(k,723) = rxt(k,199)*y(k,4) - mat(k,487) = rxt(k,202)*y(k,4) + rxt(k,204)*y(k,43) - mat(k,287) = rxt(k,251)*y(k,4) - mat(k,534) = rxt(k,210)*y(k,43) - mat(k,649) = rxt(k,203)*y(k,4) + rxt(k,205)*y(k,43) - mat(k,421) = -(rxt(k,155)*y(k,16) + rxt(k,157)*y(k,39) + rxt(k,158)*y(k,41) & - + (rxt(k,159) + rxt(k,160)) * y(k,87) + rxt(k,161)*y(k,68) & - + rxt(k,168)*y(k,27) + rxt(k,177)*y(k,52)) - mat(k,514) = -rxt(k,155)*y(k,85) - mat(k,560) = -rxt(k,157)*y(k,85) - mat(k,118) = -rxt(k,158)*y(k,85) - mat(k,396) = -(rxt(k,159) + rxt(k,160)) * y(k,85) - mat(k,676) = -rxt(k,161)*y(k,85) - mat(k,266) = -rxt(k,168)*y(k,85) - mat(k,164) = -rxt(k,177)*y(k,85) - mat(k,586) = rxt(k,196)*y(k,26) - mat(k,349) = rxt(k,162)*y(k,26) - mat(k,449) = rxt(k,196)*y(k,4) + rxt(k,162)*y(k,20) + (4.000_r8*rxt(k,163) & - +2.000_r8*rxt(k,165))*y(k,26) + rxt(k,167)*y(k,59) + rxt(k,172) & - *y(k,66) + rxt(k,252)*y(k,75) + rxt(k,173)*y(k,96) - mat(k,39) = rxt(k,217)*y(k,92) - mat(k,333) = rxt(k,175)*y(k,66) + rxt(k,187)*y(k,92) + rxt(k,176)*y(k,96) - mat(k,727) = rxt(k,167)*y(k,26) - mat(k,492) = rxt(k,172)*y(k,26) + rxt(k,175)*y(k,47) - mat(k,289) = rxt(k,252)*y(k,26) - mat(k,539) = rxt(k,217)*y(k,32) + rxt(k,187)*y(k,47) - mat(k,654) = rxt(k,173)*y(k,26) + rxt(k,176)*y(k,47) + mat(k,688) = -(rxt(k,99)*y(k,92) + rxt(k,108)*y(k,68) + rxt(k,118)*y(k,87) & + + rxt(k,119)*y(k,40) + rxt(k,124)*y(k,96) + 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,75) + rxt(k,258)*y(k,77)) + mat(k,557) = -rxt(k,99)*y(k,70) + mat(k,501) = -rxt(k,108)*y(k,70) + mat(k,405) = -rxt(k,118)*y(k,70) + mat(k,305) = -rxt(k,119)*y(k,70) + mat(k,666) = -rxt(k,124)*y(k,70) + mat(k,458) = -rxt(k,137)*y(k,70) + mat(k,601) = -rxt(k,145)*y(k,70) + mat(k,430) = -rxt(k,161)*y(k,70) + mat(k,317) = -rxt(k,193)*y(k,70) + mat(k,137) = -rxt(k,252)*y(k,70) + mat(k,296) = -rxt(k,258)*y(k,70) + mat(k,501) = mat(k,501) + rxt(k,110)*y(k,69) + mat(k,532) = rxt(k,110)*y(k,68) + mat(k,64) = -(rxt(k,259)*y(k,77)) + mat(k,282) = -rxt(k,259)*y(k,71) + mat(k,693) = rxt(k,195)*y(k,28) + mat(k,608) = rxt(k,195)*y(k,5) + 2.000_r8*rxt(k,165)*y(k,28) + mat(k,69) = -(rxt(k,249)*y(k,68) + rxt(k,250)*y(k,96)) + mat(k,464) = -rxt(k,249)*y(k,72) + mat(k,637) = -rxt(k,250)*y(k,72) + mat(k,131) = -(rxt(k,251)*y(k,69) + rxt(k,252)*y(k,70) + rxt(k,255)*y(k,96)) + mat(k,510) = -rxt(k,251)*y(k,75) + mat(k,672) = -rxt(k,252)*y(k,75) + mat(k,642) = -rxt(k,255)*y(k,75) + mat(k,285) = -(rxt(k,253)*y(k,5) + rxt(k,254)*y(k,28) + rxt(k,256)*y(k,62) & + + rxt(k,257)*y(k,69) + rxt(k,258)*y(k,70) + rxt(k,259)*y(k,71) & + + rxt(k,260)*y(k,96)) + mat(k,698) = -rxt(k,253)*y(k,77) + mat(k,613) = -rxt(k,254)*y(k,77) + mat(k,442) = -rxt(k,256)*y(k,77) + mat(k,519) = -rxt(k,257)*y(k,77) + mat(k,674) = -rxt(k,258)*y(k,77) + mat(k,66) = -rxt(k,259)*y(k,77) + mat(k,650) = -rxt(k,260)*y(k,77) + mat(k,485) = rxt(k,249)*y(k,72) + mat(k,519) = mat(k,519) + rxt(k,251)*y(k,75) + mat(k,674) = mat(k,674) + rxt(k,252)*y(k,75) + mat(k,73) = rxt(k,249)*y(k,68) + mat(k,132) = rxt(k,251)*y(k,69) + rxt(k,252)*y(k,70) + rxt(k,255)*y(k,96) + mat(k,650) = mat(k,650) + rxt(k,255)*y(k,75) + mat(k,254) = -(rxt(k,262)*y(k,96)) + mat(k,647) = -rxt(k,262)*y(k,78) + mat(k,696) = rxt(k,253)*y(k,77) + mat(k,610) = rxt(k,254)*y(k,77) + mat(k,59) = rxt(k,247)*y(k,63) + (rxt(k,248)+.500_r8*rxt(k,261))*y(k,96) + mat(k,439) = rxt(k,256)*y(k,77) + mat(k,363) = rxt(k,247)*y(k,35) + mat(k,518) = rxt(k,257)*y(k,77) + mat(k,673) = rxt(k,258)*y(k,77) + mat(k,65) = rxt(k,259)*y(k,77) + mat(k,72) = rxt(k,250)*y(k,96) + mat(k,284) = rxt(k,253)*y(k,5) + rxt(k,254)*y(k,28) + rxt(k,256)*y(k,62) & + + rxt(k,257)*y(k,69) + rxt(k,258)*y(k,70) + rxt(k,259)*y(k,71) & + + rxt(k,260)*y(k,96) + mat(k,647) = mat(k,647) + (rxt(k,248)+.500_r8*rxt(k,261))*y(k,35) & + + rxt(k,250)*y(k,72) + rxt(k,260)*y(k,77) + mat(k,48) = -(rxt(k,263)*y(k,100)) + mat(k,742) = -rxt(k,263)*y(k,79) + mat(k,253) = rxt(k,262)*y(k,96) + mat(k,635) = rxt(k,262)*y(k,78) mat(k,215) = -(rxt(k,288)*y(k,90) + rxt(k,289)*y(k,95) + rxt(k,290)*y(k,89)) mat(k,139) = -rxt(k,288)*y(k,86) mat(k,201) = -rxt(k,289)*y(k,86) - mat(k,126) = -rxt(k,290)*y(k,86) - mat(k,395) = -((rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,38) + rxt(k,117) & - *y(k,66) + rxt(k,118)*y(k,68) + rxt(k,122)*y(k,96) & - + 4._r8*rxt(k,127)*y(k,87) + rxt(k,139)*y(k,61) + rxt(k,144) & - *y(k,59) + rxt(k,149)*y(k,60) + (rxt(k,159) + rxt(k,160) & - ) * y(k,85) + rxt(k,166)*y(k,26) + rxt(k,192)*y(k,84) + rxt(k,198) & - *y(k,4) + rxt(k,238)*y(k,20)) + mat(k,119) = -rxt(k,290)*y(k,86) + mat(k,395) = -((rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,40) + rxt(k,117) & + *y(k,68) + rxt(k,118)*y(k,70) + rxt(k,122)*y(k,96) & + + 4._r8*rxt(k,127)*y(k,87) + 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)) mat(k,300) = -(rxt(k,113) + rxt(k,114) + rxt(k,115)) * y(k,87) mat(k,491) = -rxt(k,117)*y(k,87) - mat(k,675) = -rxt(k,118)*y(k,87) - mat(k,653) = -rxt(k,122)*y(k,87) + mat(k,678) = -rxt(k,118)*y(k,87) + mat(k,656) = -rxt(k,122)*y(k,87) mat(k,370) = -rxt(k,139)*y(k,87) - mat(k,726) = -rxt(k,144)*y(k,87) - mat(k,703) = -rxt(k,149)*y(k,87) + mat(k,591) = -rxt(k,144)*y(k,87) + mat(k,448) = -rxt(k,149)*y(k,87) mat(k,420) = -(rxt(k,159) + rxt(k,160)) * y(k,87) - mat(k,448) = -rxt(k,166)*y(k,87) + mat(k,619) = -rxt(k,166)*y(k,87) mat(k,311) = -rxt(k,192)*y(k,87) - mat(k,585) = -rxt(k,198)*y(k,87) + mat(k,704) = -rxt(k,198)*y(k,87) mat(k,348) = -rxt(k,238)*y(k,87) - mat(k,585) = mat(k,585) + rxt(k,203)*y(k,96) - mat(k,513) = rxt(k,235)*y(k,61) + rxt(k,236)*y(k,66) + rxt(k,191)*y(k,84) & - + rxt(k,155)*y(k,85) - mat(k,348) = mat(k,348) + rxt(k,162)*y(k,26) + rxt(k,239)*y(k,59) - mat(k,448) = mat(k,448) + rxt(k,162)*y(k,20) + rxt(k,173)*y(k,96) - mat(k,105) = rxt(k,242)*y(k,96) - mat(k,62) = .500_r8*rxt(k,263)*y(k,96) - mat(k,300) = mat(k,300) + rxt(k,116)*y(k,67) - mat(k,117) = rxt(k,112)*y(k,66) + rxt(k,158)*y(k,85) + rxt(k,121)*y(k,96) - mat(k,726) = mat(k,726) + rxt(k,239)*y(k,20) - mat(k,370) = mat(k,370) + rxt(k,235)*y(k,16) + rxt(k,142)*y(k,96) - mat(k,491) = mat(k,491) + rxt(k,236)*y(k,16) + rxt(k,112)*y(k,41) - mat(k,616) = rxt(k,116)*y(k,38) - mat(k,675) = mat(k,675) + rxt(k,124)*y(k,96) - mat(k,256) = rxt(k,259)*y(k,96) - mat(k,311) = mat(k,311) + rxt(k,191)*y(k,16) - mat(k,420) = mat(k,420) + rxt(k,155)*y(k,16) + rxt(k,158)*y(k,41) - mat(k,653) = mat(k,653) + rxt(k,203)*y(k,4) + rxt(k,173)*y(k,26) + rxt(k,242) & - *y(k,29) + .500_r8*rxt(k,263)*y(k,33) + rxt(k,121)*y(k,41) & - + rxt(k,142)*y(k,61) + rxt(k,124)*y(k,68) + rxt(k,259)*y(k,76) - mat(k,229) = -(rxt(k,129)*y(k,66) + rxt(k,130)*y(k,67) + rxt(k,302)*y(k,97)) + mat(k,311) = mat(k,311) + rxt(k,191)*y(k,17) + mat(k,704) = mat(k,704) + rxt(k,203)*y(k,96) + mat(k,726) = rxt(k,191)*y(k,3) + rxt(k,155)*y(k,25) + rxt(k,235)*y(k,63) & + + rxt(k,236)*y(k,68) + mat(k,348) = mat(k,348) + rxt(k,162)*y(k,28) + rxt(k,239)*y(k,61) + mat(k,420) = mat(k,420) + rxt(k,155)*y(k,17) + rxt(k,158)*y(k,43) + mat(k,619) = mat(k,619) + rxt(k,162)*y(k,21) + rxt(k,173)*y(k,96) + mat(k,113) = rxt(k,242)*y(k,96) + mat(k,62) = .500_r8*rxt(k,261)*y(k,96) + mat(k,300) = mat(k,300) + rxt(k,116)*y(k,69) + mat(k,126) = rxt(k,158)*y(k,25) + rxt(k,112)*y(k,68) + rxt(k,121)*y(k,96) + mat(k,591) = mat(k,591) + rxt(k,239)*y(k,21) + mat(k,370) = mat(k,370) + rxt(k,235)*y(k,17) + rxt(k,142)*y(k,96) + mat(k,491) = mat(k,491) + rxt(k,236)*y(k,17) + rxt(k,112)*y(k,43) + mat(k,522) = rxt(k,116)*y(k,40) + mat(k,678) = mat(k,678) + rxt(k,124)*y(k,96) + mat(k,256) = rxt(k,262)*y(k,96) + mat(k,656) = mat(k,656) + rxt(k,203)*y(k,5) + rxt(k,173)*y(k,28) + rxt(k,242) & + *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,70) + rxt(k,262)*y(k,78) + mat(k,229) = -(rxt(k,129)*y(k,68) + rxt(k,130)*y(k,69) + rxt(k,302)*y(k,97)) mat(k,480) = -rxt(k,129)*y(k,88) - mat(k,610) = -rxt(k,130)*y(k,88) + mat(k,516) = -rxt(k,130)*y(k,88) mat(k,192) = -rxt(k,302)*y(k,88) mat(k,480) = mat(k,480) + rxt(k,292)*y(k,89) mat(k,216) = .900_r8*rxt(k,290)*y(k,89) + .800_r8*rxt(k,288)*y(k,90) - mat(k,127) = rxt(k,292)*y(k,66) + .900_r8*rxt(k,290)*y(k,86) + mat(k,120) = rxt(k,292)*y(k,68) + .900_r8*rxt(k,290)*y(k,86) mat(k,140) = .800_r8*rxt(k,288)*y(k,86) - mat(k,122) = -(rxt(k,290)*y(k,86) + rxt(k,291)*y(k,67) + (rxt(k,292) & - + rxt(k,293)) * y(k,66)) + mat(k,115) = -(rxt(k,290)*y(k,86) + rxt(k,291)*y(k,69) + (rxt(k,292) & + + rxt(k,293)) * y(k,68)) mat(k,210) = -rxt(k,290)*y(k,89) - mat(k,603) = -rxt(k,291)*y(k,89) - mat(k,470) = -(rxt(k,292) + rxt(k,293)) * y(k,89) + mat(k,509) = -rxt(k,291)*y(k,89) + mat(k,469) = -(rxt(k,292) + rxt(k,293)) * y(k,89) mat(k,138) = -(rxt(k,288)*y(k,86)) mat(k,211) = -rxt(k,288)*y(k,90) mat(k,238) = rxt(k,297)*y(k,95) - mat(k,717) = rxt(k,299)*y(k,95) + mat(k,582) = rxt(k,299)*y(k,95) mat(k,472) = rxt(k,292)*y(k,89) - mat(k,605) = rxt(k,296)*y(k,91) - mat(k,123) = rxt(k,292)*y(k,66) - mat(k,169) = rxt(k,296)*y(k,67) - mat(k,199) = rxt(k,297)*y(k,53) + rxt(k,299)*y(k,59) - mat(k,170) = -(rxt(k,294)*y(k,66) + (rxt(k,295) + rxt(k,296)) * y(k,67)) - mat(k,475) = -rxt(k,294)*y(k,91) - mat(k,606) = -(rxt(k,295) + rxt(k,296)) * y(k,91) + mat(k,511) = rxt(k,296)*y(k,91) + mat(k,116) = rxt(k,292)*y(k,68) + mat(k,177) = rxt(k,296)*y(k,69) + mat(k,199) = rxt(k,297)*y(k,55) + rxt(k,299)*y(k,61) + mat(k,178) = -(rxt(k,294)*y(k,68) + (rxt(k,295) + rxt(k,296)) * y(k,69)) + mat(k,476) = -rxt(k,294)*y(k,91) + mat(k,512) = -(rxt(k,295) + rxt(k,296)) * y(k,91) mat(k,225) = rxt(k,302)*y(k,97) mat(k,188) = rxt(k,302)*y(k,88) - mat(k,543) = -(rxt(k,94)*y(k,39) + rxt(k,95)*y(k,100) + (rxt(k,97) + rxt(k,98) & - ) * y(k,67) + rxt(k,99)*y(k,68) + (rxt(k,187) + rxt(k,188) & - ) * y(k,47) + (rxt(k,210) + rxt(k,211)) * y(k,43) + rxt(k,216) & - *y(k,31) + rxt(k,217)*y(k,32)) - mat(k,564) = -rxt(k,94)*y(k,92) + mat(k,552) = -(rxt(k,94)*y(k,41) + rxt(k,95)*y(k,100) + (rxt(k,97) + rxt(k,98) & + ) * y(k,69) + rxt(k,99)*y(k,70) + (rxt(k,187) + rxt(k,188) & + ) * y(k,49) + (rxt(k,210) + rxt(k,211)) * y(k,45) + rxt(k,216) & + *y(k,33) + rxt(k,217)*y(k,34)) + mat(k,573) = -rxt(k,94)*y(k,92) mat(k,756) = -rxt(k,95)*y(k,92) - mat(k,621) = -(rxt(k,97) + rxt(k,98)) * y(k,92) - mat(k,680) = -rxt(k,99)*y(k,92) + mat(k,527) = -(rxt(k,97) + rxt(k,98)) * y(k,92) + mat(k,683) = -rxt(k,99)*y(k,92) mat(k,337) = -(rxt(k,187) + rxt(k,188)) * y(k,92) - mat(k,182) = -(rxt(k,210) + rxt(k,211)) * y(k,92) + mat(k,173) = -(rxt(k,210) + rxt(k,211)) * y(k,92) mat(k,29) = -rxt(k,216)*y(k,92) mat(k,40) = -rxt(k,217)*y(k,92) - mat(k,621) = mat(k,621) + rxt(k,130)*y(k,88) - mat(k,221) = .850_r8*rxt(k,289)*y(k,95) - mat(k,234) = rxt(k,130)*y(k,67) - mat(k,205) = .850_r8*rxt(k,289)*y(k,86) - mat(k,30) = -(rxt(k,101)*y(k,66) + rxt(k,102)*y(k,67)) + mat(k,527) = mat(k,527) + rxt(k,130)*y(k,88) + mat(k,222) = .850_r8*rxt(k,289)*y(k,95) + mat(k,235) = rxt(k,130)*y(k,69) + mat(k,206) = .850_r8*rxt(k,289)*y(k,86) + mat(k,30) = -(rxt(k,101)*y(k,68) + rxt(k,102)*y(k,69)) mat(k,462) = -rxt(k,101)*y(k,93) - mat(k,599) = -rxt(k,102)*y(k,93) + mat(k,505) = -rxt(k,102)*y(k,93) mat(k,462) = mat(k,462) + rxt(k,105)*y(k,94) - mat(k,599) = mat(k,599) + rxt(k,106)*y(k,94) - mat(k,667) = rxt(k,107)*y(k,94) - mat(k,32) = rxt(k,105)*y(k,66) + rxt(k,106)*y(k,67) + rxt(k,107)*y(k,68) - mat(k,33) = -(rxt(k,105)*y(k,66) + rxt(k,106)*y(k,67) + rxt(k,107)*y(k,68)) + mat(k,505) = mat(k,505) + rxt(k,106)*y(k,94) + mat(k,670) = rxt(k,107)*y(k,94) + mat(k,32) = rxt(k,105)*y(k,68) + rxt(k,106)*y(k,69) + rxt(k,107)*y(k,70) + mat(k,33) = -(rxt(k,105)*y(k,68) + rxt(k,106)*y(k,69) + rxt(k,107)*y(k,70)) mat(k,463) = -rxt(k,105)*y(k,94) - mat(k,600) = -rxt(k,106)*y(k,94) - mat(k,668) = -rxt(k,107)*y(k,94) - mat(k,600) = mat(k,600) + rxt(k,97)*y(k,92) - mat(k,528) = rxt(k,97)*y(k,67) - mat(k,200) = -(rxt(k,289)*y(k,86) + rxt(k,297)*y(k,53) + rxt(k,299)*y(k,59)) + mat(k,506) = -rxt(k,106)*y(k,94) + mat(k,671) = -rxt(k,107)*y(k,94) + mat(k,506) = mat(k,506) + rxt(k,97)*y(k,92) + mat(k,537) = rxt(k,97)*y(k,69) + mat(k,200) = -(rxt(k,289)*y(k,86) + rxt(k,297)*y(k,55) + rxt(k,299)*y(k,61)) mat(k,214) = -rxt(k,289)*y(k,95) mat(k,241) = -rxt(k,297)*y(k,95) - mat(k,718) = -rxt(k,299)*y(k,95) - mat(k,608) = rxt(k,291)*y(k,89) + rxt(k,295)*y(k,91) + rxt(k,303)*y(k,97) & + mat(k,583) = -rxt(k,299)*y(k,95) + mat(k,514) = rxt(k,291)*y(k,89) + rxt(k,295)*y(k,91) + rxt(k,303)*y(k,97) & + rxt(k,307)*y(k,98) - mat(k,125) = rxt(k,291)*y(k,67) - mat(k,172) = rxt(k,295)*y(k,67) - mat(k,190) = rxt(k,303)*y(k,67) - mat(k,100) = rxt(k,307)*y(k,67) - mat(k,662) = -(rxt(k,120)*y(k,39) + rxt(k,121)*y(k,41) + rxt(k,122)*y(k,87) & - + rxt(k,123)*y(k,66) + rxt(k,124)*y(k,68) + (4._r8*rxt(k,125) & - + 4._r8*rxt(k,126)) * y(k,96) + rxt(k,128)*y(k,50) + rxt(k,142) & - *y(k,61) + rxt(k,143)*y(k,53) + rxt(k,151)*y(k,60) + rxt(k,152) & - *y(k,49) + rxt(k,171)*y(k,27) + (rxt(k,173) + rxt(k,174) & - ) * y(k,26) + rxt(k,176)*y(k,47) + rxt(k,179)*y(k,52) + rxt(k,203) & - *y(k,4) + rxt(k,205)*y(k,43) + rxt(k,237)*y(k,16) + rxt(k,240) & - *y(k,21) + (rxt(k,242) + rxt(k,246)) * y(k,29) + rxt(k,248) & - *y(k,70) + rxt(k,253)*y(k,73) + rxt(k,258)*y(k,75) + rxt(k,259) & - *y(k,76) + (rxt(k,262) + rxt(k,263)) * y(k,33)) - mat(k,568) = -rxt(k,120)*y(k,96) - mat(k,120) = -rxt(k,121)*y(k,96) + mat(k,118) = rxt(k,291)*y(k,69) + mat(k,180) = rxt(k,295)*y(k,69) + mat(k,190) = rxt(k,303)*y(k,69) + mat(k,100) = rxt(k,307)*y(k,69) + mat(k,665) = -(rxt(k,120)*y(k,41) + rxt(k,121)*y(k,43) + rxt(k,122)*y(k,87) & + + rxt(k,123)*y(k,68) + rxt(k,124)*y(k,70) + (4._r8*rxt(k,125) & + + 4._r8*rxt(k,126)) * y(k,96) + rxt(k,128)*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,237)*y(k,17) + rxt(k,240) & + *y(k,22) + (rxt(k,242) + rxt(k,246)) * y(k,31) + (rxt(k,248) & + + rxt(k,261)) * y(k,35) + rxt(k,250)*y(k,72) + rxt(k,255) & + *y(k,75) + rxt(k,260)*y(k,77) + rxt(k,262)*y(k,78)) + mat(k,577) = -rxt(k,120)*y(k,96) + mat(k,129) = -rxt(k,121)*y(k,96) mat(k,404) = -rxt(k,122)*y(k,96) mat(k,500) = -rxt(k,123)*y(k,96) - mat(k,684) = -rxt(k,124)*y(k,96) - mat(k,87) = -rxt(k,128)*y(k,96) + mat(k,687) = -rxt(k,124)*y(k,96) + mat(k,88) = -rxt(k,128)*y(k,96) mat(k,379) = -rxt(k,142)*y(k,96) - mat(k,250) = -rxt(k,143)*y(k,96) - mat(k,712) = -rxt(k,151)*y(k,96) - mat(k,279) = -rxt(k,152)*y(k,96) - mat(k,269) = -rxt(k,171)*y(k,96) - mat(k,457) = -(rxt(k,173) + rxt(k,174)) * y(k,96) - mat(k,341) = -rxt(k,176)*y(k,96) + mat(k,252) = -rxt(k,143)*y(k,96) + mat(k,457) = -rxt(k,151)*y(k,96) + mat(k,280) = -rxt(k,152)*y(k,96) + mat(k,270) = -rxt(k,171)*y(k,96) + mat(k,628) = -(rxt(k,173) + rxt(k,174)) * y(k,96) + mat(k,340) = -rxt(k,176)*y(k,96) mat(k,167) = -rxt(k,179)*y(k,96) - mat(k,594) = -rxt(k,203)*y(k,96) - mat(k,184) = -rxt(k,205)*y(k,96) - mat(k,522) = -rxt(k,237)*y(k,96) - mat(k,81) = -rxt(k,240)*y(k,96) - mat(k,106) = -(rxt(k,242) + rxt(k,246)) * y(k,96) - mat(k,76) = -rxt(k,248)*y(k,96) - mat(k,136) = -rxt(k,253)*y(k,96) - mat(k,294) = -rxt(k,258)*y(k,96) - mat(k,258) = -rxt(k,259)*y(k,96) - mat(k,63) = -(rxt(k,262) + rxt(k,263)) * y(k,96) - mat(k,522) = mat(k,522) + rxt(k,236)*y(k,66) - mat(k,81) = mat(k,81) + .300_r8*rxt(k,240)*y(k,96) + mat(k,713) = -rxt(k,203)*y(k,96) + mat(k,174) = -rxt(k,205)*y(k,96) + mat(k,735) = -rxt(k,237)*y(k,96) + mat(k,80) = -rxt(k,240)*y(k,96) + mat(k,114) = -(rxt(k,242) + rxt(k,246)) * y(k,96) + mat(k,63) = -(rxt(k,248) + rxt(k,261)) * y(k,96) + mat(k,76) = -rxt(k,250)*y(k,96) + mat(k,136) = -rxt(k,255)*y(k,96) + mat(k,295) = -rxt(k,260)*y(k,96) + mat(k,258) = -rxt(k,262)*y(k,96) + mat(k,735) = mat(k,735) + rxt(k,236)*y(k,68) + mat(k,80) = mat(k,80) + .300_r8*rxt(k,240)*y(k,96) + mat(k,429) = rxt(k,160)*y(k,87) mat(k,159) = rxt(k,214)*y(k,100) - mat(k,304) = rxt(k,119)*y(k,68) + 2.000_r8*rxt(k,114)*y(k,87) - mat(k,568) = mat(k,568) + rxt(k,111)*y(k,66) + rxt(k,94)*y(k,92) - mat(k,120) = mat(k,120) + rxt(k,112)*y(k,66) - mat(k,184) = mat(k,184) + rxt(k,204)*y(k,66) + rxt(k,210)*y(k,92) - mat(k,341) = mat(k,341) + rxt(k,175)*y(k,66) + rxt(k,187)*y(k,92) - mat(k,150) = rxt(k,206)*y(k,66) - mat(k,167) = mat(k,167) + rxt(k,178)*y(k,66) - mat(k,735) = rxt(k,144)*y(k,87) + mat(k,304) = rxt(k,119)*y(k,70) + 2.000_r8*rxt(k,114)*y(k,87) + mat(k,577) = mat(k,577) + rxt(k,111)*y(k,68) + rxt(k,94)*y(k,92) + mat(k,129) = mat(k,129) + rxt(k,112)*y(k,68) + mat(k,174) = mat(k,174) + rxt(k,204)*y(k,68) + rxt(k,210)*y(k,92) + mat(k,340) = mat(k,340) + rxt(k,175)*y(k,68) + rxt(k,187)*y(k,92) + mat(k,149) = rxt(k,206)*y(k,68) + mat(k,167) = mat(k,167) + rxt(k,178)*y(k,68) + mat(k,600) = rxt(k,144)*y(k,87) mat(k,379) = mat(k,379) + rxt(k,139)*y(k,87) - mat(k,500) = mat(k,500) + rxt(k,236)*y(k,16) + rxt(k,111)*y(k,39) & - + rxt(k,112)*y(k,41) + rxt(k,204)*y(k,43) + rxt(k,175)*y(k,47) & - + rxt(k,206)*y(k,51) + rxt(k,178)*y(k,52) + rxt(k,117)*y(k,87) - mat(k,684) = mat(k,684) + rxt(k,119)*y(k,38) + rxt(k,118)*y(k,87) - mat(k,429) = rxt(k,160)*y(k,87) - mat(k,404) = mat(k,404) + 2.000_r8*rxt(k,114)*y(k,38) + rxt(k,144)*y(k,59) & - + rxt(k,139)*y(k,61) + rxt(k,117)*y(k,66) + rxt(k,118)*y(k,68) & - + rxt(k,160)*y(k,85) - mat(k,547) = rxt(k,94)*y(k,39) + rxt(k,210)*y(k,43) + rxt(k,187)*y(k,47) & + mat(k,500) = mat(k,500) + 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,87) + mat(k,687) = mat(k,687) + rxt(k,119)*y(k,40) + rxt(k,118)*y(k,87) + mat(k,404) = mat(k,404) + rxt(k,160)*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,68) & + + rxt(k,118)*y(k,70) + mat(k,556) = 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,100) - mat(k,662) = mat(k,662) + .300_r8*rxt(k,240)*y(k,21) - mat(k,760) = rxt(k,214)*y(k,37) + 2.000_r8*rxt(k,95)*y(k,92) + mat(k,665) = mat(k,665) + .300_r8*rxt(k,240)*y(k,22) + mat(k,760) = rxt(k,214)*y(k,39) + 2.000_r8*rxt(k,95)*y(k,92) end do end subroutine nlnmat03 subroutine nlnmat04( avec_len, mat, y, rxt ) @@ -744,45 +744,45 @@ subroutine nlnmat04( avec_len, mat, y, rxt ) ! ... complete matrix entries implicit species !---------------------------------------------- do k = 1,avec_len - mat(k,189) = -(rxt(k,302)*y(k,88) + rxt(k,303)*y(k,67)) + mat(k,189) = -(rxt(k,302)*y(k,88) + rxt(k,303)*y(k,69)) mat(k,226) = -rxt(k,302)*y(k,97) - mat(k,607) = -rxt(k,303)*y(k,97) + mat(k,513) = -rxt(k,303)*y(k,97) mat(k,477) = rxt(k,293)*y(k,89) + rxt(k,294)*y(k,91) + rxt(k,306)*y(k,98) & + rxt(k,312)*y(k,99) mat(k,213) = rxt(k,304)*y(k,98) + rxt(k,309)*y(k,99) - mat(k,124) = rxt(k,293)*y(k,66) - mat(k,171) = rxt(k,294)*y(k,66) - mat(k,99) = rxt(k,306)*y(k,66) + rxt(k,304)*y(k,86) - mat(k,94) = rxt(k,312)*y(k,66) + rxt(k,309)*y(k,86) - mat(k,97) = -(rxt(k,304)*y(k,86) + rxt(k,306)*y(k,66) + rxt(k,307)*y(k,67)) + mat(k,117) = rxt(k,293)*y(k,68) + mat(k,179) = rxt(k,294)*y(k,68) + mat(k,99) = rxt(k,306)*y(k,68) + rxt(k,304)*y(k,86) + mat(k,94) = rxt(k,312)*y(k,68) + rxt(k,309)*y(k,86) + mat(k,97) = -(rxt(k,304)*y(k,86) + rxt(k,306)*y(k,68) + rxt(k,307)*y(k,69)) mat(k,209) = -rxt(k,304)*y(k,98) mat(k,466) = -rxt(k,306)*y(k,98) - mat(k,602) = -rxt(k,307)*y(k,98) + mat(k,508) = -rxt(k,307)*y(k,98) mat(k,209) = mat(k,209) + rxt(k,308)*y(k,99) mat(k,91) = rxt(k,308)*y(k,86) - mat(k,90) = -((rxt(k,308) + rxt(k,309)) * y(k,86) + rxt(k,312)*y(k,66)) + mat(k,90) = -((rxt(k,308) + rxt(k,309)) * y(k,86) + rxt(k,312)*y(k,68)) mat(k,208) = -(rxt(k,308) + rxt(k,309)) * y(k,99) mat(k,465) = -rxt(k,312)*y(k,99) - mat(k,764) = -(rxt(k,95)*y(k,92) + rxt(k,214)*y(k,37) + rxt(k,260)*y(k,77)) - mat(k,551) = -rxt(k,95)*y(k,100) + mat(k,764) = -(rxt(k,95)*y(k,92) + rxt(k,214)*y(k,39) + rxt(k,263)*y(k,79)) + mat(k,560) = -rxt(k,95)*y(k,100) mat(k,160) = -rxt(k,214)*y(k,100) - mat(k,51) = -rxt(k,260)*y(k,100) - mat(k,526) = rxt(k,237)*y(k,96) + mat(k,51) = -rxt(k,263)*y(k,100) + mat(k,739) = rxt(k,237)*y(k,96) mat(k,82) = rxt(k,240)*y(k,96) mat(k,306) = rxt(k,115)*y(k,87) - mat(k,572) = rxt(k,120)*y(k,96) - mat(k,121) = rxt(k,121)*y(k,96) - mat(k,185) = rxt(k,205)*y(k,96) - mat(k,344) = (rxt(k,276)+rxt(k,281))*y(k,51) + (rxt(k,269)+rxt(k,275) & - +rxt(k,280))*y(k,52) + rxt(k,176)*y(k,96) + mat(k,581) = rxt(k,120)*y(k,96) + mat(k,130) = rxt(k,121)*y(k,96) + mat(k,176) = rxt(k,205)*y(k,96) + mat(k,344) = (rxt(k,276)+rxt(k,281))*y(k,53) + (rxt(k,269)+rxt(k,275) & + +rxt(k,280))*y(k,54) + rxt(k,176)*y(k,96) mat(k,281) = rxt(k,152)*y(k,96) mat(k,89) = rxt(k,128)*y(k,96) - mat(k,151) = (rxt(k,276)+rxt(k,281))*y(k,47) - mat(k,168) = (rxt(k,269)+rxt(k,275)+rxt(k,280))*y(k,47) + rxt(k,179)*y(k,96) - mat(k,408) = rxt(k,115)*y(k,38) + rxt(k,122)*y(k,96) - mat(k,666) = rxt(k,237)*y(k,16) + rxt(k,240)*y(k,21) + rxt(k,120)*y(k,39) & - + rxt(k,121)*y(k,41) + rxt(k,205)*y(k,43) + rxt(k,176)*y(k,47) & - + rxt(k,152)*y(k,49) + rxt(k,128)*y(k,50) + rxt(k,179)*y(k,52) & + mat(k,151) = (rxt(k,276)+rxt(k,281))*y(k,49) + mat(k,168) = (rxt(k,269)+rxt(k,275)+rxt(k,280))*y(k,49) + rxt(k,179)*y(k,96) + mat(k,408) = rxt(k,115)*y(k,40) + rxt(k,122)*y(k,96) + mat(k,669) = rxt(k,237)*y(k,17) + rxt(k,240)*y(k,22) + rxt(k,120)*y(k,41) & + + rxt(k,121)*y(k,43) + rxt(k,205)*y(k,45) + rxt(k,176)*y(k,49) & + + rxt(k,152)*y(k,51) + rxt(k,128)*y(k,52) + rxt(k,179)*y(k,54) & + rxt(k,122)*y(k,87) + 2.000_r8*rxt(k,125)*y(k,96) end do end subroutine nlnmat04 @@ -859,8 +859,8 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 57) = lmat(k, 57) mat(k, 58) = mat(k, 58) + lmat(k, 58) mat(k, 64) = mat(k, 64) + lmat(k, 64) - mat(k, 67) = mat(k, 67) + lmat(k, 67) - mat(k, 68) = lmat(k, 68) + mat(k, 67) = lmat(k, 67) + mat(k, 68) = mat(k, 68) + lmat(k, 68) mat(k, 69) = mat(k, 69) + lmat(k, 69) mat(k, 70) = mat(k, 70) + lmat(k, 70) mat(k, 71) = lmat(k, 71) @@ -871,7 +871,7 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 83) = mat(k, 83) + lmat(k, 83) mat(k, 84) = lmat(k, 84) mat(k, 85) = lmat(k, 85) - mat(k, 87) = mat(k, 87) + lmat(k, 87) + mat(k, 86) = mat(k, 86) + lmat(k, 86) mat(k, 88) = mat(k, 88) + lmat(k, 88) mat(k, 90) = mat(k, 90) + lmat(k, 90) mat(k, 91) = mat(k, 91) + lmat(k, 91) @@ -885,31 +885,31 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 99) = mat(k, 99) + lmat(k, 99) mat(k, 101) = mat(k, 101) + lmat(k, 101) mat(k, 103) = mat(k, 103) + lmat(k, 103) + mat(k, 104) = lmat(k, 104) + mat(k, 105) = lmat(k, 105) + mat(k, 106) = lmat(k, 106) mat(k, 107) = mat(k, 107) + lmat(k, 107) mat(k, 108) = lmat(k, 108) - mat(k, 109) = lmat(k, 109) - mat(k, 110) = lmat(k, 110) + mat(k, 110) = mat(k, 110) + lmat(k, 110) mat(k, 111) = mat(k, 111) + lmat(k, 111) - mat(k, 113) = mat(k, 113) + lmat(k, 113) - mat(k, 114) = lmat(k, 114) mat(k, 115) = mat(k, 115) + lmat(k, 115) - mat(k, 120) = mat(k, 120) + lmat(k, 120) - mat(k, 122) = mat(k, 122) + lmat(k, 122) + mat(k, 124) = mat(k, 124) + lmat(k, 124) + mat(k, 129) = mat(k, 129) + lmat(k, 129) mat(k, 131) = mat(k, 131) + lmat(k, 131) mat(k, 138) = mat(k, 138) + lmat(k, 138) mat(k, 144) = mat(k, 144) + lmat(k, 144) mat(k, 145) = lmat(k, 145) - mat(k, 150) = mat(k, 150) + lmat(k, 150) + mat(k, 149) = mat(k, 149) + lmat(k, 149) mat(k, 152) = mat(k, 152) + lmat(k, 152) mat(k, 153) = mat(k, 153) + lmat(k, 153) mat(k, 156) = lmat(k, 156) mat(k, 162) = mat(k, 162) + lmat(k, 162) mat(k, 164) = mat(k, 164) + lmat(k, 164) 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, 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, 186) = lmat(k, 186) mat(k, 187) = lmat(k, 187) mat(k, 189) = mat(k, 189) + lmat(k, 189) @@ -931,11 +931,11 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 263) = mat(k, 263) + lmat(k, 263) mat(k, 265) = mat(k, 265) + lmat(k, 265) mat(k, 266) = mat(k, 266) + lmat(k, 266) - mat(k, 267) = mat(k, 267) + lmat(k, 267) - mat(k, 270) = lmat(k, 270) + mat(k, 267) = lmat(k, 267) + mat(k, 269) = mat(k, 269) + lmat(k, 269) mat(k, 274) = mat(k, 274) + lmat(k, 274) - mat(k, 279) = mat(k, 279) + lmat(k, 279) - mat(k, 280) = lmat(k, 280) + mat(k, 278) = lmat(k, 278) + mat(k, 280) = mat(k, 280) + lmat(k, 280) mat(k, 283) = lmat(k, 283) mat(k, 285) = mat(k, 285) + lmat(k, 285) mat(k, 291) = mat(k, 291) + lmat(k, 291) @@ -947,10 +947,10 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 347) = mat(k, 347) + lmat(k, 347) mat(k, 364) = mat(k, 364) + lmat(k, 364) mat(k, 369) = mat(k, 369) + lmat(k, 369) + mat(k, 372) = mat(k, 372) + lmat(k, 372) mat(k, 373) = mat(k, 373) + lmat(k, 373) - mat(k, 378) = mat(k, 378) + lmat(k, 378) - mat(k, 381) = mat(k, 381) + lmat(k, 381) - mat(k, 382) = mat(k, 382) + lmat(k, 382) + mat(k, 374) = mat(k, 374) + lmat(k, 374) + mat(k, 377) = mat(k, 377) + lmat(k, 377) mat(k, 386) = mat(k, 386) + lmat(k, 386) mat(k, 395) = mat(k, 395) + lmat(k, 395) mat(k, 410) = mat(k, 410) + lmat(k, 410) @@ -959,67 +959,67 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 418) = lmat(k, 418) mat(k, 420) = mat(k, 420) + lmat(k, 420) mat(k, 421) = mat(k, 421) + lmat(k, 421) - mat(k, 449) = mat(k, 449) + lmat(k, 449) + mat(k, 441) = mat(k, 441) + lmat(k, 441) mat(k, 450) = mat(k, 450) + lmat(k, 450) mat(k, 451) = mat(k, 451) + lmat(k, 451) + mat(k, 455) = mat(k, 455) + lmat(k, 455) + mat(k, 457) = mat(k, 457) + lmat(k, 457) mat(k, 465) = mat(k, 465) + lmat(k, 465) mat(k, 466) = mat(k, 466) + lmat(k, 466) mat(k, 477) = mat(k, 477) + lmat(k, 477) mat(k, 479) = lmat(k, 479) mat(k, 494) = mat(k, 494) + lmat(k, 494) - mat(k, 505) = mat(k, 505) + lmat(k, 505) + mat(k, 507) = lmat(k, 507) mat(k, 508) = mat(k, 508) + lmat(k, 508) - mat(k, 517) = mat(k, 517) + lmat(k, 517) - mat(k, 519) = lmat(k, 519) + mat(k, 513) = mat(k, 513) + lmat(k, 513) + mat(k, 514) = mat(k, 514) + lmat(k, 514) + mat(k, 515) = lmat(k, 515) + mat(k, 525) = mat(k, 525) + lmat(k, 525) + mat(k, 526) = mat(k, 526) + lmat(k, 526) mat(k, 527) = mat(k, 527) + lmat(k, 527) - mat(k, 529) = mat(k, 529) + lmat(k, 529) - mat(k, 530) = mat(k, 530) + lmat(k, 530) - mat(k, 533) = mat(k, 533) + lmat(k, 533) - mat(k, 534) = mat(k, 534) + lmat(k, 534) - mat(k, 536) = lmat(k, 536) - mat(k, 538) = lmat(k, 538) + mat(k, 536) = mat(k, 536) + lmat(k, 536) + mat(k, 538) = mat(k, 538) + lmat(k, 538) mat(k, 539) = mat(k, 539) + lmat(k, 539) - mat(k, 541) = mat(k, 541) + lmat(k, 541) - mat(k, 542) = lmat(k, 542) + mat(k, 542) = mat(k, 542) + lmat(k, 542) mat(k, 543) = mat(k, 543) + lmat(k, 543) - mat(k, 544) = mat(k, 544) + lmat(k, 544) - mat(k, 546) = mat(k, 546) + lmat(k, 546) - mat(k, 547) = mat(k, 547) + lmat(k, 547) - mat(k, 550) = lmat(k, 550) - mat(k, 565) = mat(k, 565) + lmat(k, 565) - mat(k, 581) = mat(k, 581) + lmat(k, 581) - mat(k, 588) = mat(k, 588) + lmat(k, 588) - mat(k, 592) = mat(k, 592) + lmat(k, 592) - mat(k, 601) = lmat(k, 601) - mat(k, 602) = mat(k, 602) + lmat(k, 602) - mat(k, 607) = mat(k, 607) + lmat(k, 607) - mat(k, 608) = mat(k, 608) + lmat(k, 608) - mat(k, 609) = lmat(k, 609) - mat(k, 619) = mat(k, 619) + lmat(k, 619) - mat(k, 621) = mat(k, 621) + lmat(k, 621) - mat(k, 624) = mat(k, 624) + lmat(k, 624) - mat(k, 630) = lmat(k, 630) - mat(k, 631) = lmat(k, 631) - mat(k, 649) = mat(k, 649) + lmat(k, 649) - mat(k, 651) = mat(k, 651) + lmat(k, 651) - mat(k, 653) = mat(k, 653) + lmat(k, 653) + mat(k, 545) = lmat(k, 545) + mat(k, 547) = lmat(k, 547) + mat(k, 548) = mat(k, 548) + lmat(k, 548) + mat(k, 550) = mat(k, 550) + lmat(k, 550) + mat(k, 551) = mat(k, 551) + lmat(k, 551) + 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, 556) = mat(k, 556) + lmat(k, 556) + mat(k, 559) = lmat(k, 559) + mat(k, 574) = mat(k, 574) + lmat(k, 574) + mat(k, 582) = mat(k, 582) + lmat(k, 582) + mat(k, 584) = lmat(k, 584) + mat(k, 586) = mat(k, 586) + lmat(k, 586) + mat(k, 594) = mat(k, 594) + lmat(k, 594) + mat(k, 598) = mat(k, 598) + lmat(k, 598) + mat(k, 620) = mat(k, 620) + lmat(k, 620) + mat(k, 622) = mat(k, 622) + lmat(k, 622) + mat(k, 627) = mat(k, 627) + lmat(k, 627) + mat(k, 633) = lmat(k, 633) + mat(k, 634) = lmat(k, 634) + mat(k, 652) = mat(k, 652) + lmat(k, 652) mat(k, 654) = mat(k, 654) + lmat(k, 654) - mat(k, 662) = mat(k, 662) + lmat(k, 662) - mat(k, 666) = mat(k, 666) + lmat(k, 666) - mat(k, 667) = mat(k, 667) + lmat(k, 667) - mat(k, 678) = mat(k, 678) + lmat(k, 678) - mat(k, 680) = mat(k, 680) + lmat(k, 680) + mat(k, 656) = mat(k, 656) + lmat(k, 656) + mat(k, 657) = mat(k, 657) + lmat(k, 657) + mat(k, 665) = mat(k, 665) + lmat(k, 665) + mat(k, 669) = mat(k, 669) + lmat(k, 669) + mat(k, 670) = mat(k, 670) + lmat(k, 670) + mat(k, 681) = mat(k, 681) + lmat(k, 681) + mat(k, 682) = mat(k, 682) + lmat(k, 682) mat(k, 683) = mat(k, 683) + lmat(k, 683) - mat(k, 685) = mat(k, 685) + lmat(k, 685) - mat(k, 696) = mat(k, 696) + lmat(k, 696) - mat(k, 706) = mat(k, 706) + lmat(k, 706) - mat(k, 712) = mat(k, 712) + lmat(k, 712) - mat(k, 714) = mat(k, 714) + lmat(k, 714) + mat(k, 688) = mat(k, 688) + lmat(k, 688) + mat(k, 700) = mat(k, 700) + lmat(k, 700) + mat(k, 707) = mat(k, 707) + lmat(k, 707) mat(k, 715) = mat(k, 715) + lmat(k, 715) - mat(k, 717) = mat(k, 717) + lmat(k, 717) - mat(k, 719) = lmat(k, 719) + mat(k, 718) = mat(k, 718) + lmat(k, 718) mat(k, 721) = mat(k, 721) + lmat(k, 721) - mat(k, 729) = mat(k, 729) + lmat(k, 729) + mat(k, 732) = lmat(k, 732) mat(k, 738) = mat(k, 738) + lmat(k, 738) mat(k, 747) = lmat(k, 747) mat(k, 754) = lmat(k, 754) @@ -1028,8 +1028,8 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 760) = mat(k, 760) + lmat(k, 760) mat(k, 764) = mat(k, 764) + lmat(k, 764) mat(k, 147) = 0._r8 - mat(k, 173) = 0._r8 - mat(k, 174) = 0._r8 + mat(k, 181) = 0._r8 + mat(k, 182) = 0._r8 mat(k, 191) = 0._r8 mat(k, 194) = 0._r8 mat(k, 195) = 0._r8 @@ -1038,73 +1038,76 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 212) = 0._r8 mat(k, 218) = 0._r8 mat(k, 219) = 0._r8 - mat(k, 222) = 0._r8 + mat(k, 221) = 0._r8 mat(k, 223) = 0._r8 mat(k, 224) = 0._r8 mat(k, 227) = 0._r8 mat(k, 228) = 0._r8 mat(k, 231) = 0._r8 mat(k, 232) = 0._r8 - mat(k, 236) = 0._r8 + mat(k, 237) = 0._r8 mat(k, 240) = 0._r8 mat(k, 243) = 0._r8 mat(k, 246) = 0._r8 - mat(k, 248) = 0._r8 + mat(k, 250) = 0._r8 mat(k, 259) = 0._r8 mat(k, 271) = 0._r8 mat(k, 275) = 0._r8 mat(k, 276) = 0._r8 - mat(k, 278) = 0._r8 + mat(k, 279) = 0._r8 mat(k, 288) = 0._r8 mat(k, 298) = 0._r8 mat(k, 309) = 0._r8 mat(k, 312) = 0._r8 mat(k, 314) = 0._r8 mat(k, 315) = 0._r8 - mat(k, 318) = 0._r8 + mat(k, 316) = 0._r8 mat(k, 320) = 0._r8 mat(k, 328) = 0._r8 mat(k, 330) = 0._r8 mat(k, 331) = 0._r8 mat(k, 332) = 0._r8 + mat(k, 334) = 0._r8 mat(k, 336) = 0._r8 mat(k, 338) = 0._r8 - mat(k, 339) = 0._r8 - mat(k, 340) = 0._r8 + mat(k, 341) = 0._r8 mat(k, 342) = 0._r8 mat(k, 343) = 0._r8 mat(k, 346) = 0._r8 mat(k, 351) = 0._r8 mat(k, 353) = 0._r8 - mat(k, 355) = 0._r8 mat(k, 356) = 0._r8 + mat(k, 357) = 0._r8 mat(k, 359) = 0._r8 mat(k, 365) = 0._r8 mat(k, 366) = 0._r8 mat(k, 367) = 0._r8 mat(k, 368) = 0._r8 mat(k, 371) = 0._r8 - mat(k, 372) = 0._r8 mat(k, 375) = 0._r8 mat(k, 376) = 0._r8 - mat(k, 377) = 0._r8 + mat(k, 378) = 0._r8 mat(k, 380) = 0._r8 + mat(k, 381) = 0._r8 mat(k, 383) = 0._r8 - mat(k, 399) = 0._r8 mat(k, 400) = 0._r8 + mat(k, 407) = 0._r8 mat(k, 414) = 0._r8 + mat(k, 422) = 0._r8 mat(k, 423) = 0._r8 mat(k, 425) = 0._r8 mat(k, 427) = 0._r8 mat(k, 431) = 0._r8 - mat(k, 432) = 0._r8 mat(k, 433) = 0._r8 - mat(k, 441) = 0._r8 + mat(k, 437) = 0._r8 mat(k, 443) = 0._r8 - mat(k, 447) = 0._r8 + mat(k, 444) = 0._r8 + mat(k, 445) = 0._r8 + mat(k, 446) = 0._r8 + mat(k, 449) = 0._r8 mat(k, 453) = 0._r8 mat(k, 454) = 0._r8 - mat(k, 458) = 0._r8 + mat(k, 460) = 0._r8 mat(k, 461) = 0._r8 mat(k, 471) = 0._r8 mat(k, 478) = 0._r8 @@ -1113,67 +1116,64 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 489) = 0._r8 mat(k, 496) = 0._r8 mat(k, 504) = 0._r8 - mat(k, 511) = 0._r8 - mat(k, 515) = 0._r8 - mat(k, 518) = 0._r8 - mat(k, 520) = 0._r8 mat(k, 521) = 0._r8 mat(k, 523) = 0._r8 mat(k, 524) = 0._r8 - mat(k, 525) = 0._r8 - mat(k, 532) = 0._r8 - mat(k, 537) = 0._r8 + mat(k, 528) = 0._r8 + mat(k, 530) = 0._r8 + mat(k, 531) = 0._r8 + mat(k, 533) = 0._r8 + mat(k, 534) = 0._r8 + mat(k, 535) = 0._r8 + mat(k, 541) = 0._r8 + mat(k, 546) = 0._r8 mat(k, 549) = 0._r8 - mat(k, 554) = 0._r8 - mat(k, 557) = 0._r8 - mat(k, 558) = 0._r8 - mat(k, 559) = 0._r8 - mat(k, 561) = 0._r8 mat(k, 563) = 0._r8 mat(k, 566) = 0._r8 mat(k, 567) = 0._r8 - mat(k, 569) = 0._r8 + mat(k, 568) = 0._r8 mat(k, 570) = 0._r8 - mat(k, 571) = 0._r8 + mat(k, 572) = 0._r8 + mat(k, 575) = 0._r8 + mat(k, 576) = 0._r8 mat(k, 578) = 0._r8 + mat(k, 579) = 0._r8 mat(k, 580) = 0._r8 - mat(k, 582) = 0._r8 - mat(k, 583) = 0._r8 - mat(k, 584) = 0._r8 - mat(k, 589) = 0._r8 - mat(k, 590) = 0._r8 - mat(k, 591) = 0._r8 - mat(k, 595) = 0._r8 - mat(k, 598) = 0._r8 - mat(k, 615) = 0._r8 - mat(k, 617) = 0._r8 + mat(k, 585) = 0._r8 + mat(k, 587) = 0._r8 + mat(k, 596) = 0._r8 + mat(k, 597) = 0._r8 + mat(k, 604) = 0._r8 + mat(k, 612) = 0._r8 + mat(k, 614) = 0._r8 mat(k, 618) = 0._r8 - mat(k, 620) = 0._r8 - mat(k, 622) = 0._r8 - mat(k, 623) = 0._r8 + mat(k, 624) = 0._r8 mat(k, 625) = 0._r8 - mat(k, 627) = 0._r8 mat(k, 629) = 0._r8 - mat(k, 640) = 0._r8 - mat(k, 658) = 0._r8 - mat(k, 679) = 0._r8 - mat(k, 681) = 0._r8 - mat(k, 688) = 0._r8 - mat(k, 692) = 0._r8 - mat(k, 698) = 0._r8 + mat(k, 632) = 0._r8 + mat(k, 643) = 0._r8 + mat(k, 661) = 0._r8 + mat(k, 684) = 0._r8 + mat(k, 690) = 0._r8 + mat(k, 691) = 0._r8 + mat(k, 697) = 0._r8 mat(k, 699) = 0._r8 - mat(k, 700) = 0._r8 mat(k, 701) = 0._r8 - mat(k, 704) = 0._r8 - mat(k, 707) = 0._r8 - mat(k, 708) = 0._r8 + mat(k, 702) = 0._r8 + mat(k, 703) = 0._r8 mat(k, 709) = 0._r8 + mat(k, 710) = 0._r8 + mat(k, 714) = 0._r8 mat(k, 716) = 0._r8 - mat(k, 720) = 0._r8 - mat(k, 722) = 0._r8 + mat(k, 717) = 0._r8 + mat(k, 724) = 0._r8 + mat(k, 728) = 0._r8 + mat(k, 730) = 0._r8 mat(k, 731) = 0._r8 - mat(k, 732) = 0._r8 - mat(k, 739) = 0._r8 + mat(k, 733) = 0._r8 + mat(k, 734) = 0._r8 + mat(k, 736) = 0._r8 + mat(k, 737) = 0._r8 mat(k, 744) = 0._r8 mat(k, 745) = 0._r8 mat(k, 746) = 0._r8 @@ -1228,15 +1228,15 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 90) = mat(k, 90) - dti(k) mat(k, 97) = mat(k, 97) - dti(k) mat(k, 103) = mat(k, 103) - dti(k) - mat(k, 107) = mat(k, 107) - dti(k) + mat(k, 111) = mat(k, 111) - dti(k) mat(k, 115) = mat(k, 115) - dti(k) - mat(k, 122) = mat(k, 122) - dti(k) + mat(k, 124) = mat(k, 124) - dti(k) mat(k, 131) = mat(k, 131) - dti(k) mat(k, 138) = mat(k, 138) - dti(k) mat(k, 144) = mat(k, 144) - dti(k) mat(k, 153) = mat(k, 153) - dti(k) mat(k, 162) = mat(k, 162) - dti(k) - mat(k, 170) = mat(k, 170) - dti(k) + mat(k, 169) = mat(k, 169) - dti(k) mat(k, 178) = mat(k, 178) - dti(k) mat(k, 189) = mat(k, 189) - dti(k) mat(k, 200) = mat(k, 200) - dti(k) @@ -1256,14 +1256,14 @@ subroutine nlnmat_finit( avec_len, mat, lmat, dti ) mat(k, 421) = mat(k, 421) - dti(k) mat(k, 450) = mat(k, 450) - dti(k) mat(k, 494) = mat(k, 494) - dti(k) - mat(k, 517) = mat(k, 517) - dti(k) - mat(k, 543) = mat(k, 543) - dti(k) - mat(k, 565) = mat(k, 565) - dti(k) - mat(k, 592) = mat(k, 592) - dti(k) - mat(k, 624) = mat(k, 624) - dti(k) - mat(k, 662) = mat(k, 662) - dti(k) - mat(k, 685) = mat(k, 685) - dti(k) - mat(k, 714) = mat(k, 714) - dti(k) + mat(k, 526) = mat(k, 526) - dti(k) + mat(k, 552) = mat(k, 552) - dti(k) + mat(k, 574) = mat(k, 574) - dti(k) + mat(k, 598) = mat(k, 598) - dti(k) + mat(k, 627) = mat(k, 627) - dti(k) + mat(k, 665) = mat(k, 665) - dti(k) + mat(k, 688) = mat(k, 688) - dti(k) + mat(k, 715) = mat(k, 715) - dti(k) mat(k, 738) = mat(k, 738) - dti(k) mat(k, 764) = mat(k, 764) - dti(k) end do diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_prod_loss.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_prod_loss.F90 index f5d8d12130..95511d6c94 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_prod_loss.F90 @@ -27,62 +27,62 @@ 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,6))* y(k,6) + loss(k,1) = ( + het_rates(k,7))* y(k,7) prod(k,1) = 0._r8 - loss(k,2) = (rxt(k,180)* y(k,92) + rxt(k,30) + het_rates(k,7))* y(k,7) + loss(k,2) = (rxt(k,180)* y(k,92) + rxt(k,30) + het_rates(k,8))* y(k,8) prod(k,2) = 0._r8 - loss(k,3) = (rxt(k,181)* y(k,92) + rxt(k,31) + het_rates(k,8))* y(k,8) + loss(k,3) = (rxt(k,181)* y(k,92) + rxt(k,31) + het_rates(k,9))* y(k,9) prod(k,3) = 0._r8 - loss(k,4) = (rxt(k,207)* y(k,92) + rxt(k,32) + het_rates(k,9))* y(k,9) + loss(k,4) = (rxt(k,207)* y(k,92) + rxt(k,32) + het_rates(k,10))* y(k,10) prod(k,4) = 0._r8 - loss(k,5) = (rxt(k,182)* y(k,92) + rxt(k,33) + het_rates(k,10))* y(k,10) + loss(k,5) = (rxt(k,182)* y(k,92) + rxt(k,33) + het_rates(k,11))* y(k,11) prod(k,5) = 0._r8 - loss(k,6) = (rxt(k,183)* y(k,92) + rxt(k,34) + het_rates(k,11))* y(k,11) + loss(k,6) = (rxt(k,183)* y(k,92) + rxt(k,34) + het_rates(k,12))* y(k,12) prod(k,6) = 0._r8 - loss(k,7) = (rxt(k,184)* y(k,92) + rxt(k,35) + het_rates(k,12))* y(k,12) + loss(k,7) = (rxt(k,184)* y(k,92) + rxt(k,35) + het_rates(k,13))* y(k,13) prod(k,7) = 0._r8 - loss(k,8) = (rxt(k,185)* y(k,92) + rxt(k,36) + het_rates(k,13))* y(k,13) + loss(k,8) = (rxt(k,185)* y(k,92) + rxt(k,36) + het_rates(k,14))* y(k,14) prod(k,8) = 0._r8 - loss(k,9) = (rxt(k,186)* y(k,92) + rxt(k,37) + het_rates(k,14))* y(k,14) + loss(k,9) = (rxt(k,186)* y(k,92) + rxt(k,37) + het_rates(k,15))* y(k,15) prod(k,9) = 0._r8 - loss(k,10) = (rxt(k,218)* y(k,85) +rxt(k,230)* y(k,92) +rxt(k,219)* y(k,96) & - + rxt(k,38) + het_rates(k,15))* y(k,15) + loss(k,10) = (rxt(k,218)* y(k,25) +rxt(k,230)* y(k,92) +rxt(k,219)* y(k,96) & + + rxt(k,38) + het_rates(k,16))* y(k,16) prod(k,10) = 0._r8 - loss(k,11) = (rxt(k,220)* y(k,85) +rxt(k,231)* y(k,92) +rxt(k,221)* y(k,96) & - + rxt(k,39) + het_rates(k,17))* y(k,17) + loss(k,11) = (rxt(k,220)* y(k,25) +rxt(k,231)* y(k,92) +rxt(k,221)* y(k,96) & + + rxt(k,39) + het_rates(k,18))* y(k,18) prod(k,11) = 0._r8 - loss(k,12) = (rxt(k,222)* y(k,96) + rxt(k,40) + het_rates(k,18))* y(k,18) + loss(k,12) = (rxt(k,222)* y(k,96) + rxt(k,40) + het_rates(k,19))* y(k,19) prod(k,12) = 0._r8 - loss(k,13) = (rxt(k,223)* y(k,85) +rxt(k,224)* y(k,96) + rxt(k,41) & - + het_rates(k,19))* y(k,19) + loss(k,13) = (rxt(k,223)* y(k,25) +rxt(k,224)* y(k,96) + rxt(k,41) & + + het_rates(k,20))* y(k,20) prod(k,13) = 0._r8 - loss(k,14) = (rxt(k,212)* y(k,37) +rxt(k,156)* y(k,85) + (rxt(k,243) + & + loss(k,14) = (rxt(k,156)* y(k,25) +rxt(k,212)* y(k,39) + (rxt(k,243) + & rxt(k,244) +rxt(k,245))* y(k,92) +rxt(k,241)* y(k,96) + rxt(k,23) & - + rxt(k,24) + het_rates(k,22))* y(k,22) + + rxt(k,24) + het_rates(k,23))* y(k,23) prod(k,14) = 0._r8 - loss(k,15) = (rxt(k,225)* y(k,85) +rxt(k,208)* y(k,92) +rxt(k,226)* y(k,96) & - + rxt(k,42) + het_rates(k,23))* y(k,23) + loss(k,15) = (rxt(k,225)* y(k,25) +rxt(k,208)* y(k,92) +rxt(k,226)* y(k,96) & + + rxt(k,42) + het_rates(k,24))* y(k,24) prod(k,15) = 0._r8 - loss(k,16) = ( + het_rates(k,28))* y(k,28) + loss(k,16) = ( + het_rates(k,30))* y(k,30) prod(k,16) = 0._r8 - loss(k,17) = (rxt(k,300)* y(k,97) + rxt(k,25) + rxt(k,61) + het_rates(k,30)) & - * y(k,30) - prod(k,17) =.440_r8*rxt(k,24)*y(k,22) - loss(k,18) = (rxt(k,209)* y(k,92) + rxt(k,50) + het_rates(k,40))* y(k,40) + loss(k,17) = (rxt(k,300)* y(k,97) + rxt(k,25) + rxt(k,61) + het_rates(k,32)) & + * y(k,32) + prod(k,17) =.440_r8*rxt(k,24)*y(k,23) + loss(k,18) = (rxt(k,209)* y(k,92) + rxt(k,50) + het_rates(k,42))* y(k,42) prod(k,18) = 0._r8 loss(k,19) = (rxt(k,232)* y(k,92) +rxt(k,227)* y(k,96) + rxt(k,52) & - + het_rates(k,44))* y(k,44) + + het_rates(k,46))* y(k,46) prod(k,19) = 0._r8 loss(k,20) = (rxt(k,233)* y(k,92) +rxt(k,228)* y(k,96) + rxt(k,53) & - + het_rates(k,45))* y(k,45) + + het_rates(k,47))* y(k,47) prod(k,20) = 0._r8 loss(k,21) = (rxt(k,234)* y(k,92) +rxt(k,229)* y(k,96) + rxt(k,54) & - + het_rates(k,46))* y(k,46) + + het_rates(k,48))* y(k,48) prod(k,21) = 0._r8 loss(k,22) = ((rxt(k,147) +rxt(k,148))* y(k,92) + rxt(k,12) & - + het_rates(k,54))* y(k,54) + + het_rates(k,56))* y(k,56) prod(k,22) = 0._r8 - loss(k,23) = ( + rxt(k,60) + het_rates(k,74))* y(k,74) + loss(k,23) = ( + rxt(k,60) + het_rates(k,76))* y(k,76) prod(k,23) = 0._r8 end do end subroutine exp_prod_loss @@ -112,423 +112,423 @@ 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,26) + het_rates(k,3))* y(k,3) - prod(k,29) = (rxt(k,276)*y(k,51) +rxt(k,281)*y(k,51))*y(k,47) & - +rxt(k,197)*y(k,26)*y(k,4) - loss(k,71) = (2._r8*rxt(k,194)* y(k,4) + (rxt(k,195) +rxt(k,196) +rxt(k,197)) & - * y(k,26) +rxt(k,199)* y(k,59) +rxt(k,200)* y(k,60) +rxt(k,202) & - * y(k,66) +rxt(k,251)* y(k,75) +rxt(k,198)* y(k,87) +rxt(k,203) & - * y(k,96) + rxt(k,27) + het_rates(k,4))* y(k,4) - prod(k,71) = (rxt(k,28) +rxt(k,201)*y(k,66))*y(k,5) +rxt(k,211)*y(k,92) & - *y(k,43) +rxt(k,206)*y(k,66)*y(k,51) +rxt(k,193)*y(k,84)*y(k,68) - loss(k,40) = (rxt(k,201)* y(k,66) + rxt(k,28) + rxt(k,29) + rxt(k,270) & - + rxt(k,273) + rxt(k,278) + het_rates(k,5))* y(k,5) - prod(k,40) =rxt(k,200)*y(k,60)*y(k,4) - loss(k,68) = (rxt(k,235)* y(k,61) +rxt(k,236)* y(k,66) +rxt(k,191)* y(k,84) & - +rxt(k,155)* y(k,85) +rxt(k,237)* y(k,96) + rxt(k,20) + rxt(k,21) & - + het_rates(k,16))* y(k,16) - prod(k,68) = (rxt(k,162)*y(k,26) +rxt(k,239)*y(k,59))*y(k,20) + (rxt(k,22) + & - .300_r8*rxt(k,240)*y(k,96))*y(k,21) + (rxt(k,244)*y(k,92) + & - rxt(k,245)*y(k,92))*y(k,22) - loss(k,62) = (rxt(k,162)* y(k,26) +rxt(k,239)* y(k,59) +rxt(k,238)* y(k,87) & - + het_rates(k,20))* y(k,20) - prod(k,62) = (rxt(k,156)*y(k,85) +rxt(k,212)*y(k,37) +rxt(k,241)*y(k,96) + & - rxt(k,243)*y(k,92))*y(k,22) +.700_r8*rxt(k,240)*y(k,96)*y(k,21) - loss(k,35) = (rxt(k,240)* y(k,96) + rxt(k,22) + het_rates(k,21))* y(k,21) - prod(k,35) =rxt(k,238)*y(k,87)*y(k,20) - loss(k,26) = ( + rxt(k,43) + het_rates(k,24))* y(k,24) - prod(k,26) = (rxt(k,269)*y(k,52) +rxt(k,274)*y(k,27) +rxt(k,275)*y(k,52) + & - rxt(k,279)*y(k,27) +rxt(k,280)*y(k,52) +rxt(k,284)*y(k,27))*y(k,47) & - +rxt(k,164)*y(k,26)*y(k,26) +rxt(k,168)*y(k,85)*y(k,27) - loss(k,21) = ( + rxt(k,44) + rxt(k,190) + het_rates(k,25))* y(k,25) - prod(k,21) =rxt(k,189)*y(k,26)*y(k,26) - loss(k,66) = ((rxt(k,195) +rxt(k,196) +rxt(k,197))* y(k,4) +rxt(k,162) & - * y(k,20) + 2._r8*(rxt(k,163) +rxt(k,164) +rxt(k,165) +rxt(k,189)) & - * y(k,26) +rxt(k,167)* y(k,59) +rxt(k,169)* y(k,60) +rxt(k,172) & - * y(k,66) +rxt(k,252)* y(k,75) +rxt(k,166)* y(k,87) + (rxt(k,173) + & - rxt(k,174))* y(k,96) + rxt(k,45) + het_rates(k,26))* y(k,26) - prod(k,66) = (rxt(k,177)*y(k,85) +rxt(k,178)*y(k,66) +rxt(k,179)*y(k,96)) & - *y(k,52) + (rxt(k,47) +rxt(k,170)*y(k,66))*y(k,27) + (rxt(k,59) + & - rxt(k,257)*y(k,75))*y(k,69) + (rxt(k,160)*y(k,87) + & - rxt(k,161)*y(k,68))*y(k,85) +2.000_r8*rxt(k,190)*y(k,25) & - +rxt(k,188)*y(k,92)*y(k,47) - loss(k,56) = ((rxt(k,274) +rxt(k,279) +rxt(k,284))* y(k,47) +rxt(k,170) & - * y(k,66) +rxt(k,168)* y(k,85) +rxt(k,171)* y(k,96) + rxt(k,46) & + loss(k,60) = (rxt(k,191)* y(k,17) +rxt(k,193)* y(k,70) +rxt(k,192)* y(k,87) & + + het_rates(k,3))* y(k,3) + prod(k,60) = (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,68) + & + rxt(k,203)*y(k,96) +rxt(k,253)*y(k,77))*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) +2.000_r8*rxt(k,230)*y(k,16) + & + rxt(k,231)*y(k,18) +rxt(k,210)*y(k,45))*y(k,92) & + + (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))*y(k,96) & + + (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,68))*y(k,45) +rxt(k,26)*y(k,4) +rxt(k,29)*y(k,6) & + +rxt(k,57)*y(k,53) + loss(k,29) = ( + rxt(k,26) + het_rates(k,4))* y(k,4) + prod(k,29) = (rxt(k,276)*y(k,53) +rxt(k,281)*y(k,53))*y(k,49) & + +rxt(k,197)*y(k,28)*y(k,5) + loss(k,75) = (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,68) +rxt(k,253)* y(k,77) +rxt(k,198)* y(k,87) +rxt(k,203) & + * y(k,96) + rxt(k,27) + het_rates(k,5))* y(k,5) + prod(k,75) = (rxt(k,28) +rxt(k,201)*y(k,68))*y(k,6) +rxt(k,193)*y(k,70) & + *y(k,3) +rxt(k,211)*y(k,92)*y(k,45) +rxt(k,206)*y(k,68)*y(k,53) + loss(k,39) = (rxt(k,201)* y(k,68) + rxt(k,28) + rxt(k,29) + rxt(k,270) & + + rxt(k,273) + rxt(k,278) + het_rates(k,6))* y(k,6) + prod(k,39) =rxt(k,200)*y(k,62)*y(k,5) + loss(k,76) = (rxt(k,191)* y(k,3) +rxt(k,155)* y(k,25) +rxt(k,235)* y(k,63) & + +rxt(k,236)* y(k,68) +rxt(k,237)* y(k,96) + rxt(k,20) + rxt(k,21) & + + het_rates(k,17))* y(k,17) + prod(k,76) = (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,96))*y(k,22) + (rxt(k,244)*y(k,92) + & + rxt(k,245)*y(k,92))*y(k,23) + loss(k,62) = (rxt(k,162)* y(k,28) +rxt(k,239)* y(k,61) +rxt(k,238)* y(k,87) & + + het_rates(k,21))* y(k,21) + prod(k,62) = (rxt(k,156)*y(k,25) +rxt(k,212)*y(k,39) +rxt(k,241)*y(k,96) + & + rxt(k,243)*y(k,92))*y(k,23) +.700_r8*rxt(k,240)*y(k,96)*y(k,22) + loss(k,35) = (rxt(k,240)* y(k,96) + rxt(k,22) + het_rates(k,22))* y(k,22) + prod(k,35) =rxt(k,238)*y(k,87)*y(k,21) + loss(k,65) = (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,70) + (rxt(k,159) +rxt(k,160)) & + * y(k,87) + het_rates(k,25))* y(k,25) + prod(k,65) = (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,232)*y(k,46) +rxt(k,233)*y(k,47) + & + rxt(k,234)*y(k,48) +rxt(k,187)*y(k,49) +rxt(k,217)*y(k,34))*y(k,92) & + + (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,68) + & + rxt(k,173)*y(k,96) +rxt(k,196)*y(k,5) +rxt(k,254)*y(k,77))*y(k,28) & + + (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) + & + rxt(k,176)*y(k,49))*y(k,96) + (rxt(k,55) +rxt(k,175)*y(k,68))*y(k,49) & + +rxt(k,26)*y(k,4) +2.000_r8*rxt(k,43)*y(k,26) +2.000_r8*rxt(k,44) & + *y(k,27) +rxt(k,46)*y(k,29) +rxt(k,49)*y(k,34) +rxt(k,58)*y(k,54) + loss(k,26) = ( + rxt(k,43) + het_rates(k,26))* y(k,26) + prod(k,26) = (rxt(k,269)*y(k,54) +rxt(k,274)*y(k,29) +rxt(k,275)*y(k,54) + & + rxt(k,279)*y(k,29) +rxt(k,280)*y(k,54) +rxt(k,284)*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,21) = ( + rxt(k,44) + rxt(k,190) + het_rates(k,27))* y(k,27) + prod(k,21) =rxt(k,189)*y(k,28)*y(k,28) + loss(k,72) = ((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,68) +rxt(k,254)* y(k,77) +rxt(k,166)* y(k,87) + (rxt(k,173) + & + rxt(k,174))* y(k,96) + rxt(k,45) + het_rates(k,28))* y(k,28) + prod(k,72) = (rxt(k,160)*y(k,87) +rxt(k,161)*y(k,70) +rxt(k,177)*y(k,54)) & + *y(k,25) + (rxt(k,47) +rxt(k,170)*y(k,68))*y(k,29) & + + (rxt(k,178)*y(k,68) +rxt(k,179)*y(k,96))*y(k,54) + (rxt(k,59) + & + rxt(k,259)*y(k,77))*y(k,71) +2.000_r8*rxt(k,190)*y(k,27) & + +rxt(k,188)*y(k,92)*y(k,49) + loss(k,56) = (rxt(k,168)* y(k,25) + (rxt(k,274) +rxt(k,279) +rxt(k,284)) & + * y(k,49) +rxt(k,170)* y(k,68) +rxt(k,171)* y(k,96) + rxt(k,46) & + rxt(k,47) + rxt(k,272) + rxt(k,277) + rxt(k,283) & - + het_rates(k,27))* y(k,27) - prod(k,56) =rxt(k,169)*y(k,60)*y(k,26) - loss(k,39) = ((rxt(k,242) +rxt(k,246))* y(k,96) + het_rates(k,29))* y(k,29) - prod(k,39) = (rxt(k,20) +rxt(k,21) +rxt(k,155)*y(k,85) +rxt(k,191)*y(k,84) + & - rxt(k,235)*y(k,61) +rxt(k,236)*y(k,66) +rxt(k,237)*y(k,96))*y(k,16) & - + (rxt(k,88) +rxt(k,247)*y(k,66) +rxt(k,248)*y(k,96))*y(k,70) & - +rxt(k,223)*y(k,85)*y(k,19) +rxt(k,300)*y(k,97)*y(k,30) - loss(k,23) = (rxt(k,216)* y(k,92) + rxt(k,48) + het_rates(k,31))* y(k,31) - prod(k,23) = (rxt(k,181)*y(k,8) +rxt(k,183)*y(k,11) + & - 2.000_r8*rxt(k,184)*y(k,12) +2.000_r8*rxt(k,185)*y(k,13) + & - rxt(k,186)*y(k,14) +rxt(k,207)*y(k,9) +2.000_r8*rxt(k,209)*y(k,40) + & - rxt(k,233)*y(k,45) +rxt(k,234)*y(k,46))*y(k,92) & - + (rxt(k,228)*y(k,45) +rxt(k,229)*y(k,46))*y(k,96) - loss(k,27) = (rxt(k,217)* y(k,92) + rxt(k,49) + het_rates(k,32))* y(k,32) - prod(k,27) = (rxt(k,182)*y(k,10) +rxt(k,183)*y(k,11) +rxt(k,232)*y(k,44)) & - *y(k,92) +rxt(k,227)*y(k,96)*y(k,44) - loss(k,32) = (rxt(k,261)* y(k,61) + (rxt(k,262) +rxt(k,263))* y(k,96) & - + het_rates(k,33))* y(k,33) + + het_rates(k,29))* y(k,29) + prod(k,56) =rxt(k,169)*y(k,62)*y(k,28) + loss(k,40) = ((rxt(k,242) +rxt(k,246))* y(k,96) + het_rates(k,31))* y(k,31) + prod(k,40) = (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,68) +rxt(k,237)*y(k,96))*y(k,17) & + + (rxt(k,88) +rxt(k,249)*y(k,68) +rxt(k,250)*y(k,96))*y(k,72) & + +rxt(k,223)*y(k,25)*y(k,20) +rxt(k,300)*y(k,97)*y(k,32) + loss(k,23) = (rxt(k,216)* y(k,92) + rxt(k,48) + het_rates(k,33))* y(k,33) + prod(k,23) = (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,92) & + + (rxt(k,228)*y(k,47) +rxt(k,229)*y(k,48))*y(k,96) + loss(k,27) = (rxt(k,217)* y(k,92) + rxt(k,49) + het_rates(k,34))* y(k,34) + prod(k,27) = (rxt(k,182)*y(k,11) +rxt(k,183)*y(k,12) +rxt(k,232)*y(k,46)) & + *y(k,92) +rxt(k,227)*y(k,96)*y(k,46) + loss(k,32) = (rxt(k,247)* y(k,63) + (rxt(k,248) +rxt(k,261))* y(k,96) & + + het_rates(k,35))* y(k,35) prod(k,32) = 0._r8 - loss(k,3) = ( + het_rates(k,34))* y(k,34) + loss(k,3) = ( + het_rates(k,36))* y(k,36) prod(k,3) = 0._r8 - loss(k,4) = ( + het_rates(k,35))* y(k,35) + loss(k,4) = ( + het_rates(k,37))* y(k,37) prod(k,4) = 0._r8 - loss(k,5) = ( + het_rates(k,36))* y(k,36) + loss(k,5) = ( + het_rates(k,38))* y(k,38) prod(k,5) = 0._r8 - loss(k,46) = (rxt(k,212)* y(k,22) +rxt(k,213)* y(k,39) +rxt(k,215)* y(k,49) & - +rxt(k,214)* y(k,100) + het_rates(k,37))* y(k,37) - prod(k,46) = (rxt(k,185)*y(k,13) +rxt(k,207)*y(k,9) + & - 2.000_r8*rxt(k,216)*y(k,31) +rxt(k,217)*y(k,32))*y(k,92) & - +2.000_r8*rxt(k,48)*y(k,31) +rxt(k,49)*y(k,32) +rxt(k,56)*y(k,48) - loss(k,59) = (rxt(k,116)* y(k,67) +rxt(k,119)* y(k,68) + (rxt(k,113) + & - rxt(k,114) +rxt(k,115))* y(k,87) + het_rates(k,38))* y(k,38) - prod(k,59) = (rxt(k,120)*y(k,39) +rxt(k,123)*y(k,66) +rxt(k,143)*y(k,53) + & - rxt(k,237)*y(k,16) +rxt(k,246)*y(k,29) +rxt(k,248)*y(k,70) + & - rxt(k,253)*y(k,73) +rxt(k,258)*y(k,75))*y(k,96) & - + (rxt(k,94)*y(k,92) +rxt(k,111)*y(k,66) +rxt(k,157)*y(k,85) + & - rxt(k,213)*y(k,37))*y(k,39) + (rxt(k,244)*y(k,22) + & - rxt(k,188)*y(k,47) +rxt(k,211)*y(k,43))*y(k,92) & - + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,100) +2.000_r8*rxt(k,20)*y(k,16) & - +rxt(k,22)*y(k,21) +rxt(k,51)*y(k,43) +rxt(k,55)*y(k,47) +rxt(k,56) & - *y(k,48) - loss(k,70) = (rxt(k,213)* y(k,37) +rxt(k,111)* y(k,66) +rxt(k,157)* y(k,85) & - +rxt(k,94)* y(k,92) +rxt(k,120)* y(k,96) + het_rates(k,39))* y(k,39) - prod(k,70) =rxt(k,21)*y(k,16) +rxt(k,245)*y(k,92)*y(k,22) +rxt(k,113)*y(k,87) & - *y(k,38) +rxt(k,1)*y(k,100) - loss(k,41) = (rxt(k,112)* y(k,66) +rxt(k,158)* y(k,85) +rxt(k,121)* y(k,96) & - + rxt(k,4) + het_rates(k,41))* y(k,41) - prod(k,41) = (.500_r8*rxt(k,264) +rxt(k,127)*y(k,87))*y(k,87) & + loss(k,46) = (rxt(k,212)* y(k,23) +rxt(k,213)* y(k,41) +rxt(k,215)* y(k,51) & + +rxt(k,214)* y(k,100) + het_rates(k,39))* y(k,39) + prod(k,46) = (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,92) & + +2.000_r8*rxt(k,48)*y(k,33) +rxt(k,49)*y(k,34) +rxt(k,56)*y(k,50) + loss(k,59) = (rxt(k,116)* y(k,69) +rxt(k,119)* y(k,70) + (rxt(k,113) + & + rxt(k,114) +rxt(k,115))* y(k,87) + het_rates(k,40))* y(k,40) + prod(k,59) = (rxt(k,120)*y(k,41) +rxt(k,123)*y(k,68) +rxt(k,143)*y(k,55) + & + rxt(k,237)*y(k,17) +rxt(k,246)*y(k,31) +rxt(k,250)*y(k,72) + & + rxt(k,255)*y(k,75) +rxt(k,260)*y(k,77))*y(k,96) & + + (rxt(k,94)*y(k,92) +rxt(k,111)*y(k,68) +rxt(k,157)*y(k,25) + & + rxt(k,213)*y(k,39))*y(k,41) + (rxt(k,244)*y(k,23) + & + rxt(k,188)*y(k,49) +rxt(k,211)*y(k,45))*y(k,92) & + + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,100) +2.000_r8*rxt(k,20)*y(k,17) & + +rxt(k,22)*y(k,22) +rxt(k,51)*y(k,45) +rxt(k,55)*y(k,49) +rxt(k,56) & + *y(k,50) + loss(k,70) = (rxt(k,157)* y(k,25) +rxt(k,213)* y(k,39) +rxt(k,111)* y(k,68) & + +rxt(k,94)* y(k,92) +rxt(k,120)* y(k,96) + het_rates(k,41))* y(k,41) + prod(k,70) =rxt(k,21)*y(k,17) +rxt(k,245)*y(k,92)*y(k,23) +rxt(k,113)*y(k,87) & + *y(k,40) +rxt(k,1)*y(k,100) + loss(k,42) = (rxt(k,158)* y(k,25) +rxt(k,112)* y(k,68) +rxt(k,121)* y(k,96) & + + rxt(k,4) + het_rates(k,43))* y(k,43) + prod(k,42) = (.500_r8*rxt(k,264) +rxt(k,127)*y(k,87))*y(k,87) & +rxt(k,126)*y(k,96)*y(k,96) - loss(k,22) = ( + rxt(k,87) + het_rates(k,42))* y(k,42) - prod(k,22) =rxt(k,260)*y(k,100)*y(k,77) - loss(k,49) = (rxt(k,204)* y(k,66) + (rxt(k,210) +rxt(k,211))* y(k,92) & - +rxt(k,205)* y(k,96) + rxt(k,51) + het_rates(k,43))* y(k,43) - prod(k,49) = (rxt(k,191)*y(k,16) +rxt(k,192)*y(k,87))*y(k,84) - loss(k,61) = ((rxt(k,274) +rxt(k,279) +rxt(k,284))* y(k,27) + (rxt(k,276) + & - rxt(k,281))* y(k,51) + (rxt(k,269) +rxt(k,275) +rxt(k,280))* y(k,52) & - +rxt(k,175)* y(k,66) + (rxt(k,187) +rxt(k,188))* y(k,92) +rxt(k,176) & - * y(k,96) + rxt(k,55) + het_rates(k,47))* y(k,47) - prod(k,61) = (rxt(k,156)*y(k,22) +rxt(k,218)*y(k,15) +rxt(k,220)*y(k,17) + & - 2.000_r8*rxt(k,223)*y(k,19) +rxt(k,225)*y(k,23) +rxt(k,155)*y(k,16) + & - rxt(k,157)*y(k,39) +rxt(k,158)*y(k,41) +rxt(k,159)*y(k,87) + & - rxt(k,177)*y(k,52))*y(k,85) +rxt(k,174)*y(k,96)*y(k,26) - loss(k,28) = ( + rxt(k,56) + het_rates(k,48))* y(k,48) - prod(k,28) = (rxt(k,212)*y(k,22) +rxt(k,213)*y(k,39) +rxt(k,214)*y(k,100) + & - rxt(k,215)*y(k,49))*y(k,37) - loss(k,57) = (rxt(k,215)* y(k,37) +rxt(k,152)* y(k,96) + rxt(k,9) & - + het_rates(k,49))* y(k,49) - prod(k,57) = (rxt(k,272) +rxt(k,277) +rxt(k,283) +rxt(k,274)*y(k,47) + & - rxt(k,279)*y(k,47) +rxt(k,284)*y(k,47))*y(k,27) & + loss(k,22) = ( + rxt(k,87) + het_rates(k,44))* y(k,44) + prod(k,22) =rxt(k,263)*y(k,100)*y(k,79) + loss(k,48) = (rxt(k,204)* y(k,68) + (rxt(k,210) +rxt(k,211))* y(k,92) & + +rxt(k,205)* y(k,96) + rxt(k,51) + het_rates(k,45))* y(k,45) + prod(k,48) = (rxt(k,191)*y(k,17) +rxt(k,192)*y(k,87))*y(k,3) + loss(k,61) = ((rxt(k,274) +rxt(k,279) +rxt(k,284))* y(k,29) + (rxt(k,276) + & + rxt(k,281))* y(k,53) + (rxt(k,269) +rxt(k,275) +rxt(k,280))* y(k,54) & + +rxt(k,175)* y(k,68) + (rxt(k,187) +rxt(k,188))* y(k,92) +rxt(k,176) & + * y(k,96) + rxt(k,55) + het_rates(k,49))* y(k,49) + prod(k,61) = (rxt(k,156)*y(k,23) +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) +rxt(k,155)*y(k,17) + & + rxt(k,157)*y(k,41) +rxt(k,158)*y(k,43) +rxt(k,159)*y(k,87) + & + rxt(k,177)*y(k,54))*y(k,25) +rxt(k,174)*y(k,96)*y(k,28) + loss(k,28) = ( + rxt(k,56) + het_rates(k,50))* y(k,50) + prod(k,28) = (rxt(k,212)*y(k,23) +rxt(k,213)*y(k,41) +rxt(k,214)*y(k,100) + & + rxt(k,215)*y(k,51))*y(k,39) + loss(k,57) = (rxt(k,215)* y(k,39) +rxt(k,152)* y(k,96) + rxt(k,9) & + + het_rates(k,51))* y(k,51) + prod(k,57) = (rxt(k,272) +rxt(k,277) +rxt(k,283) +rxt(k,274)*y(k,49) + & + rxt(k,279)*y(k,49) +rxt(k,284)*y(k,49))*y(k,29) & + (2.000_r8*rxt(k,265) +2.000_r8*rxt(k,268) +2.000_r8*rxt(k,271) + & - 2.000_r8*rxt(k,282))*y(k,55) + (rxt(k,270) +rxt(k,273) +rxt(k,278)) & - *y(k,5) + (rxt(k,267) +rxt(k,235)*y(k,16) +rxt(k,261)*y(k,33)) & - *y(k,61) + (.500_r8*rxt(k,266) +rxt(k,151)*y(k,96))*y(k,60) + 2.000_r8*rxt(k,282))*y(k,57) + (rxt(k,270) +rxt(k,273) +rxt(k,278)) & + *y(k,6) + (rxt(k,267) +rxt(k,235)*y(k,17) +rxt(k,247)*y(k,35)) & + *y(k,63) + (.500_r8*rxt(k,266) +rxt(k,151)*y(k,96))*y(k,62) loss(k,36) = (rxt(k,128)* y(k,96) + rxt(k,10) + rxt(k,11) + rxt(k,153) & - + het_rates(k,50))* y(k,50) - prod(k,36) =rxt(k,149)*y(k,87)*y(k,60) - loss(k,45) = ((rxt(k,276) +rxt(k,281))* y(k,47) +rxt(k,206)* y(k,66) & - + rxt(k,57) + het_rates(k,51))* y(k,51) - prod(k,45) = (rxt(k,270) +rxt(k,273) +rxt(k,278))*y(k,5) +rxt(k,198)*y(k,87) & - *y(k,4) - loss(k,47) = ((rxt(k,269) +rxt(k,275) +rxt(k,280))* y(k,47) +rxt(k,178) & - * y(k,66) +rxt(k,177)* y(k,85) +rxt(k,179)* y(k,96) + rxt(k,58) & + het_rates(k,52))* y(k,52) - prod(k,47) = (rxt(k,272) +rxt(k,277) +rxt(k,283) +rxt(k,171)*y(k,96))*y(k,27) & - +rxt(k,166)*y(k,87)*y(k,26) - loss(k,54) = (rxt(k,131)* y(k,59) + (rxt(k,132) +rxt(k,133) +rxt(k,134)) & - * y(k,60) +rxt(k,135)* y(k,67) +rxt(k,297)* y(k,95) +rxt(k,143) & - * y(k,96) + rxt(k,62) + het_rates(k,53))* y(k,53) - prod(k,54) = (rxt(k,129)*y(k,88) +rxt(k,294)*y(k,91))*y(k,66) & + prod(k,36) =rxt(k,149)*y(k,87)*y(k,62) + loss(k,45) = ((rxt(k,276) +rxt(k,281))* y(k,49) +rxt(k,206)* y(k,68) & + + rxt(k,57) + het_rates(k,53))* y(k,53) + prod(k,45) = (rxt(k,270) +rxt(k,273) +rxt(k,278))*y(k,6) +rxt(k,198)*y(k,87) & + *y(k,5) + loss(k,47) = (rxt(k,177)* y(k,25) + (rxt(k,269) +rxt(k,275) +rxt(k,280)) & + * y(k,49) +rxt(k,178)* y(k,68) +rxt(k,179)* y(k,96) + rxt(k,58) & + + het_rates(k,54))* y(k,54) + prod(k,47) = (rxt(k,272) +rxt(k,277) +rxt(k,283) +rxt(k,171)*y(k,96))*y(k,29) & + +rxt(k,166)*y(k,87)*y(k,28) + loss(k,54) = (rxt(k,131)* y(k,61) + (rxt(k,132) +rxt(k,133) +rxt(k,134)) & + * y(k,62) +rxt(k,135)* y(k,69) +rxt(k,297)* y(k,95) +rxt(k,143) & + * y(k,96) + rxt(k,62) + het_rates(k,55))* y(k,55) + prod(k,54) = (rxt(k,129)*y(k,88) +rxt(k,294)*y(k,91))*y(k,68) & + (.200_r8*rxt(k,288)*y(k,90) +1.100_r8*rxt(k,290)*y(k,89))*y(k,86) & - +rxt(k,15)*y(k,59) +rxt(k,295)*y(k,91)*y(k,67) +rxt(k,301)*y(k,97) + +rxt(k,15)*y(k,61) +rxt(k,295)*y(k,91)*y(k,69) +rxt(k,301)*y(k,97) loss(k,31) = ( + rxt(k,13) + rxt(k,14) + rxt(k,154) + rxt(k,265) + rxt(k,268) & - + rxt(k,271) + rxt(k,282) + het_rates(k,55))* y(k,55) - prod(k,31) =rxt(k,150)*y(k,61)*y(k,60) - loss(k,6) = ( + het_rates(k,56))* y(k,56) + + rxt(k,271) + rxt(k,282) + het_rates(k,57))* y(k,57) + prod(k,31) =rxt(k,150)*y(k,63)*y(k,62) + loss(k,6) = ( + het_rates(k,58))* y(k,58) prod(k,6) = 0._r8 - loss(k,7) = ( + het_rates(k,57))* y(k,57) + loss(k,7) = ( + het_rates(k,59))* y(k,59) prod(k,7) = 0._r8 - loss(k,8) = ( + het_rates(k,58))* y(k,58) + loss(k,8) = ( + het_rates(k,60))* y(k,60) prod(k,8) = 0._r8 - loss(k,76) = (rxt(k,199)* y(k,4) +rxt(k,239)* y(k,20) +rxt(k,167)* y(k,26) & - +rxt(k,131)* y(k,53) +rxt(k,140)* y(k,61) +rxt(k,146)* y(k,66) & - +rxt(k,145)* y(k,68) +rxt(k,144)* y(k,87) +rxt(k,299)* y(k,95) & - + rxt(k,15) + rxt(k,16) + het_rates(k,59))* y(k,59) - prod(k,76) = (rxt(k,17) +.500_r8*rxt(k,266) +2.000_r8*rxt(k,133)*y(k,53) + & - rxt(k,136)*y(k,66) +rxt(k,254)*y(k,75))*y(k,60) & - + (rxt(k,135)*y(k,67) +rxt(k,143)*y(k,96))*y(k,53) & - +2.000_r8*rxt(k,147)*y(k,92)*y(k,54) +rxt(k,14)*y(k,55) +rxt(k,19) & - *y(k,61) +rxt(k,130)*y(k,88)*y(k,67) +rxt(k,298)*y(k,95) +rxt(k,311) & + loss(k,71) = (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,68) & + +rxt(k,145)* y(k,70) +rxt(k,144)* y(k,87) +rxt(k,299)* y(k,95) & + + rxt(k,15) + rxt(k,16) + het_rates(k,61))* y(k,61) + prod(k,71) = (rxt(k,17) +.500_r8*rxt(k,266) +2.000_r8*rxt(k,133)*y(k,55) + & + rxt(k,136)*y(k,68) +rxt(k,256)*y(k,77))*y(k,62) & + + (rxt(k,135)*y(k,69) +rxt(k,143)*y(k,96))*y(k,55) & + +2.000_r8*rxt(k,147)*y(k,92)*y(k,56) +rxt(k,14)*y(k,57) +rxt(k,19) & + *y(k,63) +rxt(k,130)*y(k,88)*y(k,69) +rxt(k,298)*y(k,95) +rxt(k,311) & *y(k,99) - loss(k,75) = (rxt(k,200)* y(k,4) +rxt(k,169)* y(k,26) + (rxt(k,132) + & - rxt(k,133) +rxt(k,134))* y(k,53) +rxt(k,150)* y(k,61) + (rxt(k,136) + & - rxt(k,138))* y(k,66) +rxt(k,137)* y(k,68) +rxt(k,254)* y(k,75) & + loss(k,66) = (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,68) +rxt(k,137)* y(k,70) +rxt(k,256)* y(k,77) & +rxt(k,149)* y(k,87) +rxt(k,151)* y(k,96) + rxt(k,17) + rxt(k,266) & - + het_rates(k,60))* y(k,60) - prod(k,75) = (2.000_r8*rxt(k,140)*y(k,61) +rxt(k,144)*y(k,87) + & - rxt(k,145)*y(k,68) +rxt(k,146)*y(k,66) +rxt(k,167)*y(k,26) + & - rxt(k,199)*y(k,4) +rxt(k,239)*y(k,20))*y(k,59) + (rxt(k,18) + & - rxt(k,139)*y(k,87) +rxt(k,141)*y(k,66) +rxt(k,142)*y(k,96))*y(k,61) & - + (rxt(k,11) +rxt(k,153) +rxt(k,128)*y(k,96))*y(k,50) + (rxt(k,13) + & - rxt(k,154))*y(k,55) +rxt(k,28)*y(k,5) +rxt(k,47)*y(k,27) +rxt(k,9) & - *y(k,49) - loss(k,63) = (rxt(k,235)* y(k,16) +rxt(k,261)* y(k,33) +rxt(k,140)* y(k,59) & - +rxt(k,150)* y(k,60) +rxt(k,141)* y(k,66) +rxt(k,139)* y(k,87) & + + het_rates(k,62))* y(k,62) + prod(k,66) = (2.000_r8*rxt(k,140)*y(k,63) +rxt(k,144)*y(k,87) + & + rxt(k,145)*y(k,70) +rxt(k,146)*y(k,68) +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,139)*y(k,87) +rxt(k,141)*y(k,68) +rxt(k,142)*y(k,96))*y(k,63) & + + (rxt(k,11) +rxt(k,153) +rxt(k,128)*y(k,96))*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) & + *y(k,51) + loss(k,63) = (rxt(k,235)* y(k,17) +rxt(k,247)* y(k,35) +rxt(k,140)* y(k,61) & + +rxt(k,150)* y(k,62) +rxt(k,141)* y(k,68) +rxt(k,139)* y(k,87) & +rxt(k,142)* y(k,96) + rxt(k,18) + rxt(k,19) + rxt(k,267) & - + het_rates(k,61))* y(k,61) - prod(k,63) = (rxt(k,46) +rxt(k,168)*y(k,85) +rxt(k,170)*y(k,66) + & - rxt(k,171)*y(k,96))*y(k,27) + (rxt(k,13) +rxt(k,14) +rxt(k,154)) & - *y(k,55) + (rxt(k,29) +rxt(k,201)*y(k,66))*y(k,5) & - + (rxt(k,152)*y(k,96) +rxt(k,215)*y(k,37))*y(k,49) & - + (rxt(k,137)*y(k,68) +rxt(k,138)*y(k,66))*y(k,60) +rxt(k,10) & - *y(k,50) - loss(k,9) = ( + het_rates(k,62))* y(k,62) + + het_rates(k,63))* y(k,63) + prod(k,63) = (rxt(k,46) +rxt(k,168)*y(k,25) +rxt(k,170)*y(k,68) + & + rxt(k,171)*y(k,96))*y(k,29) + (rxt(k,13) +rxt(k,14) +rxt(k,154)) & + *y(k,57) + (rxt(k,29) +rxt(k,201)*y(k,68))*y(k,6) & + + (rxt(k,152)*y(k,96) +rxt(k,215)*y(k,39))*y(k,51) & + + (rxt(k,137)*y(k,70) +rxt(k,138)*y(k,68))*y(k,62) +rxt(k,10) & + *y(k,52) + loss(k,9) = ( + het_rates(k,64))* y(k,64) prod(k,9) = 0._r8 - loss(k,10) = ( + het_rates(k,63))* y(k,63) + loss(k,10) = ( + het_rates(k,65))* y(k,65) prod(k,10) = 0._r8 - loss(k,11) = ( + het_rates(k,64))* y(k,64) + loss(k,11) = ( + het_rates(k,66))* y(k,66) prod(k,11) = 0._r8 - loss(k,12) = ( + het_rates(k,65))* y(k,65) + loss(k,12) = ( + het_rates(k,67))* y(k,67) prod(k,12) = 0._r8 - loss(k,67) = (rxt(k,202)* y(k,4) +rxt(k,201)* y(k,5) +rxt(k,236)* y(k,16) & - +rxt(k,172)* y(k,26) +rxt(k,170)* y(k,27) +rxt(k,111)* y(k,39) & - +rxt(k,112)* y(k,41) +rxt(k,204)* y(k,43) +rxt(k,175)* y(k,47) & - +rxt(k,206)* y(k,51) +rxt(k,178)* y(k,52) +rxt(k,146)* y(k,59) & - + (rxt(k,136) +rxt(k,138))* y(k,60) +rxt(k,141)* y(k,61) & - + 2._r8*rxt(k,109)* y(k,66) +rxt(k,110)* y(k,67) +rxt(k,108) & - * y(k,68) +rxt(k,247)* y(k,70) +rxt(k,117)* y(k,87) + (rxt(k,292) + & + loss(k,67) = (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) & + + (rxt(k,136) +rxt(k,138))* y(k,62) +rxt(k,141)* y(k,63) & + + 2._r8*rxt(k,109)* y(k,68) +rxt(k,110)* y(k,69) +rxt(k,108) & + * y(k,70) +rxt(k,249)* y(k,72) +rxt(k,117)* y(k,87) + (rxt(k,292) + & rxt(k,293))* y(k,89) +rxt(k,294)* y(k,91) +rxt(k,123)* y(k,96) & + rxt(k,71) + rxt(k,72) + rxt(k,73) + rxt(k,74) + rxt(k,75) & - + rxt(k,76) + het_rates(k,66))* y(k,66) + + rxt(k,76) + het_rates(k,68))* y(k,68) prod(k,67) = (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,92) +rxt(k,98)*y(k,92) +rxt(k,135)*y(k,53) + & - rxt(k,249)*y(k,73) +rxt(k,255)*y(k,75) +rxt(k,296)*y(k,91) + & - rxt(k,303)*y(k,97) +rxt(k,307)*y(k,98))*y(k,67) & - + (rxt(k,131)*y(k,59) +rxt(k,132)*y(k,60) +rxt(k,297)*y(k,95)) & - *y(k,53) + (rxt(k,288)*y(k,90) +1.150_r8*rxt(k,289)*y(k,95))*y(k,86) & - +rxt(k,27)*y(k,4) +rxt(k,45)*y(k,26) +rxt(k,115)*y(k,87)*y(k,38) & - +rxt(k,14)*y(k,55) +rxt(k,15)*y(k,59) +rxt(k,17)*y(k,60) +rxt(k,18) & - *y(k,61) +rxt(k,8)*y(k,68) +rxt(k,59)*y(k,69) +rxt(k,89)*y(k,75) & - +rxt(k,90)*y(k,76) +rxt(k,91)*y(k,77) +rxt(k,302)*y(k,97)*y(k,88) & + rxt(k,86) +rxt(k,97)*y(k,92) +rxt(k,98)*y(k,92) +rxt(k,135)*y(k,55) + & + rxt(k,251)*y(k,75) +rxt(k,257)*y(k,77) +rxt(k,296)*y(k,91) + & + rxt(k,303)*y(k,97) +rxt(k,307)*y(k,98))*y(k,69) & + + (rxt(k,131)*y(k,61) +rxt(k,132)*y(k,62) +rxt(k,297)*y(k,95)) & + *y(k,55) + (rxt(k,288)*y(k,90) +1.150_r8*rxt(k,289)*y(k,95))*y(k,86) & + +rxt(k,27)*y(k,5) +rxt(k,45)*y(k,28) +rxt(k,115)*y(k,87)*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,70) +rxt(k,59)*y(k,71) +rxt(k,89)*y(k,77) & + +rxt(k,90)*y(k,78) +rxt(k,91)*y(k,79) +rxt(k,302)*y(k,97)*y(k,88) & +rxt(k,96)*y(k,92) +rxt(k,125)*y(k,96)*y(k,96) +rxt(k,305)*y(k,98) & +rxt(k,310)*y(k,99) +rxt(k,2)*y(k,100) - loss(k,72) = (rxt(k,116)* y(k,38) +rxt(k,135)* y(k,53) +rxt(k,110)* y(k,66) & - +rxt(k,249)* y(k,73) +rxt(k,255)* y(k,75) +rxt(k,130)* y(k,88) & + loss(k,68) = (rxt(k,116)* y(k,40) +rxt(k,135)* y(k,55) +rxt(k,110)* y(k,68) & + +rxt(k,251)* y(k,75) +rxt(k,257)* y(k,77) +rxt(k,130)* y(k,88) & +rxt(k,291)* y(k,89) + (rxt(k,295) +rxt(k,296))* y(k,91) +rxt(k,97) & * y(k,92) +rxt(k,102)* y(k,93) +rxt(k,303)* y(k,97) +rxt(k,307) & * y(k,98) + 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,67))* y(k,67) - prod(k,72) = (rxt(k,8) +2.000_r8*rxt(k,99)*y(k,92) + & - 2.000_r8*rxt(k,108)*y(k,66) +2.000_r8*rxt(k,118)*y(k,87) + & - rxt(k,119)*y(k,38) +rxt(k,124)*y(k,96) +rxt(k,137)*y(k,60) + & - rxt(k,145)*y(k,59) +rxt(k,161)*y(k,85) +rxt(k,193)*y(k,84) + & - rxt(k,250)*y(k,73) +rxt(k,256)*y(k,75))*y(k,68) & - + (rxt(k,113)*y(k,38) +rxt(k,117)*y(k,66) +rxt(k,122)*y(k,96) + & - rxt(k,127)*y(k,87) +rxt(k,139)*y(k,61) +rxt(k,159)*y(k,85) + & - rxt(k,166)*y(k,26) +rxt(k,192)*y(k,84) +rxt(k,198)*y(k,4) + & - rxt(k,238)*y(k,20))*y(k,87) + (rxt(k,101)*y(k,93) + & - rxt(k,109)*y(k,66) +rxt(k,123)*y(k,96) +rxt(k,136)*y(k,60) + & - rxt(k,141)*y(k,61) +rxt(k,172)*y(k,26) +rxt(k,202)*y(k,4))*y(k,66) & - + (rxt(k,163)*y(k,26) +rxt(k,164)*y(k,26) +rxt(k,174)*y(k,96) + & - rxt(k,196)*y(k,4) +rxt(k,197)*y(k,4))*y(k,26) + (rxt(k,92) + & - rxt(k,100) +2.000_r8*rxt(k,102)*y(k,67))*y(k,93) +rxt(k,194)*y(k,4) & - *y(k,4) +rxt(k,128)*y(k,96)*y(k,50) +rxt(k,134)*y(k,60)*y(k,53) & - +rxt(k,148)*y(k,92)*y(k,54) +rxt(k,299)*y(k,95)*y(k,59) +rxt(k,19) & - *y(k,61) +rxt(k,93)*y(k,94) - loss(k,74) = (rxt(k,119)* y(k,38) +rxt(k,145)* y(k,59) +rxt(k,137)* y(k,60) & - +rxt(k,108)* y(k,66) +rxt(k,250)* y(k,73) +rxt(k,256)* y(k,75) & - +rxt(k,193)* y(k,84) +rxt(k,161)* y(k,85) +rxt(k,118)* y(k,87) & + + rxt(k,85) + rxt(k,86) + het_rates(k,69))* y(k,69) + prod(k,68) = (rxt(k,8) +2.000_r8*rxt(k,99)*y(k,92) + & + 2.000_r8*rxt(k,108)*y(k,68) +2.000_r8*rxt(k,118)*y(k,87) + & + rxt(k,119)*y(k,40) +rxt(k,124)*y(k,96) +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,75) +rxt(k,258)*y(k,77))*y(k,70) & + + (rxt(k,113)*y(k,40) +rxt(k,117)*y(k,68) +rxt(k,122)*y(k,96) + & + rxt(k,127)*y(k,87) +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,87) + (rxt(k,101)*y(k,93) + & + rxt(k,109)*y(k,68) +rxt(k,123)*y(k,96) +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,68) & + + (rxt(k,163)*y(k,28) +rxt(k,164)*y(k,28) +rxt(k,174)*y(k,96) + & + 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,69))*y(k,93) +rxt(k,194)*y(k,5) & + *y(k,5) +rxt(k,128)*y(k,96)*y(k,52) +rxt(k,134)*y(k,62)*y(k,55) & + +rxt(k,148)*y(k,92)*y(k,56) +rxt(k,299)*y(k,95)*y(k,61) +rxt(k,19) & + *y(k,63) +rxt(k,93)*y(k,94) + loss(k,74) = (rxt(k,193)* y(k,3) +rxt(k,161)* 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,68) & + +rxt(k,252)* y(k,75) +rxt(k,258)* y(k,77) +rxt(k,118)* y(k,87) & +rxt(k,99)* y(k,92) +rxt(k,124)* y(k,96) + rxt(k,7) + rxt(k,8) & - + het_rates(k,68))* y(k,68) - prod(k,74) =rxt(k,110)*y(k,67)*y(k,66) - loss(k,33) = (rxt(k,257)* y(k,75) + rxt(k,59) + het_rates(k,69))* y(k,69) - prod(k,33) = (rxt(k,165)*y(k,26) +rxt(k,195)*y(k,4))*y(k,26) - loss(k,34) = (rxt(k,247)* y(k,66) +rxt(k,248)* y(k,96) + rxt(k,88) & + het_rates(k,70))* y(k,70) + prod(k,74) =rxt(k,110)*y(k,69)*y(k,68) + loss(k,33) = (rxt(k,259)* y(k,77) + rxt(k,59) + het_rates(k,71))* y(k,71) + prod(k,33) = (rxt(k,165)*y(k,28) +rxt(k,195)*y(k,5))*y(k,28) + loss(k,34) = (rxt(k,249)* y(k,68) +rxt(k,250)* y(k,96) + rxt(k,88) & + + het_rates(k,72))* y(k,72) prod(k,34) = 0._r8 - loss(k,13) = ( + het_rates(k,71))* y(k,71) + loss(k,13) = ( + het_rates(k,73))* y(k,73) prod(k,13) = 0._r8 - loss(k,14) = ( + het_rates(k,72))* y(k,72) + loss(k,14) = ( + het_rates(k,74))* y(k,74) prod(k,14) = 0._r8 - loss(k,43) = (rxt(k,249)* y(k,67) +rxt(k,250)* y(k,68) +rxt(k,253)* y(k,96) & - + het_rates(k,73))* y(k,73) - prod(k,43) =rxt(k,88)*y(k,70) +rxt(k,89)*y(k,75) - loss(k,58) = (rxt(k,251)* y(k,4) +rxt(k,252)* y(k,26) +rxt(k,254)* y(k,60) & - +rxt(k,255)* y(k,67) +rxt(k,256)* y(k,68) +rxt(k,257)* y(k,69) & - +rxt(k,258)* y(k,96) + rxt(k,89) + het_rates(k,75))* y(k,75) - prod(k,58) = (rxt(k,249)*y(k,67) +rxt(k,250)*y(k,68) +rxt(k,253)*y(k,96)) & - *y(k,73) +rxt(k,247)*y(k,70)*y(k,66) +rxt(k,90)*y(k,76) - loss(k,55) = (rxt(k,259)* y(k,96) + rxt(k,90) + het_rates(k,76))* y(k,76) - prod(k,55) = (rxt(k,251)*y(k,4) +rxt(k,252)*y(k,26) +rxt(k,254)*y(k,60) + & - rxt(k,255)*y(k,67) +rxt(k,256)*y(k,68) +rxt(k,257)*y(k,69) + & - rxt(k,258)*y(k,96))*y(k,75) + (rxt(k,261)*y(k,61) + & - rxt(k,262)*y(k,96) +.500_r8*rxt(k,263)*y(k,96))*y(k,33) & - +rxt(k,248)*y(k,96)*y(k,70) +rxt(k,91)*y(k,77) - loss(k,30) = (rxt(k,260)* y(k,100) + rxt(k,91) + het_rates(k,77))* y(k,77) - prod(k,30) =rxt(k,87)*y(k,42) +rxt(k,259)*y(k,96)*y(k,76) - loss(k,15) = ( + het_rates(k,78))* y(k,78) + loss(k,43) = (rxt(k,251)* y(k,69) +rxt(k,252)* y(k,70) +rxt(k,255)* y(k,96) & + + het_rates(k,75))* y(k,75) + prod(k,43) =rxt(k,88)*y(k,72) +rxt(k,89)*y(k,77) + loss(k,58) = (rxt(k,253)* y(k,5) +rxt(k,254)* y(k,28) +rxt(k,256)* y(k,62) & + +rxt(k,257)* y(k,69) +rxt(k,258)* y(k,70) +rxt(k,259)* y(k,71) & + +rxt(k,260)* y(k,96) + rxt(k,89) + het_rates(k,77))* y(k,77) + prod(k,58) = (rxt(k,251)*y(k,69) +rxt(k,252)*y(k,70) +rxt(k,255)*y(k,96)) & + *y(k,75) +rxt(k,249)*y(k,72)*y(k,68) +rxt(k,90)*y(k,78) + loss(k,55) = (rxt(k,262)* y(k,96) + rxt(k,90) + het_rates(k,78))* y(k,78) + prod(k,55) = (rxt(k,253)*y(k,5) +rxt(k,254)*y(k,28) +rxt(k,256)*y(k,62) + & + rxt(k,257)*y(k,69) +rxt(k,258)*y(k,70) +rxt(k,259)*y(k,71) + & + rxt(k,260)*y(k,96))*y(k,77) + (rxt(k,247)*y(k,63) + & + rxt(k,248)*y(k,96) +.500_r8*rxt(k,261)*y(k,96))*y(k,35) & + +rxt(k,250)*y(k,96)*y(k,72) +rxt(k,91)*y(k,79) + loss(k,30) = (rxt(k,263)* y(k,100) + rxt(k,91) + het_rates(k,79))* y(k,79) + prod(k,30) =rxt(k,87)*y(k,44) +rxt(k,262)*y(k,96)*y(k,78) + loss(k,15) = ( + het_rates(k,80))* y(k,80) prod(k,15) = 0._r8 - loss(k,16) = ( + het_rates(k,79))* y(k,79) + loss(k,16) = ( + het_rates(k,81))* y(k,81) prod(k,16) = 0._r8 - loss(k,17) = ( + het_rates(k,80))* y(k,80) + loss(k,17) = ( + het_rates(k,82))* y(k,82) prod(k,17) = 0._r8 - loss(k,18) = ( + het_rates(k,81))* y(k,81) + loss(k,18) = ( + het_rates(k,83))* y(k,83) prod(k,18) = 0._r8 - loss(k,19) = ( + het_rates(k,82))* y(k,82) + loss(k,19) = ( + het_rates(k,84))* y(k,84) prod(k,19) = 0._r8 - loss(k,20) = ( + het_rates(k,83))* y(k,83) + loss(k,20) = ( + het_rates(k,85))* y(k,85) prod(k,20) = 0._r8 - loss(k,60) = (rxt(k,191)* y(k,16) +rxt(k,193)* y(k,68) +rxt(k,192)* y(k,87) & - + het_rates(k,84))* y(k,84) - prod(k,60) = (rxt(k,27) +2.000_r8*rxt(k,194)*y(k,4) +rxt(k,195)*y(k,26) + & - rxt(k,196)*y(k,26) +rxt(k,199)*y(k,59) +rxt(k,202)*y(k,66) + & - rxt(k,203)*y(k,96) +rxt(k,251)*y(k,75))*y(k,4) + (rxt(k,181)*y(k,8) + & - rxt(k,207)*y(k,9) +3.000_r8*rxt(k,208)*y(k,23) + & - 2.000_r8*rxt(k,209)*y(k,40) +2.000_r8*rxt(k,230)*y(k,15) + & - rxt(k,231)*y(k,17) +rxt(k,210)*y(k,43))*y(k,92) & - + (2.000_r8*rxt(k,219)*y(k,15) +rxt(k,221)*y(k,17) + & - 3.000_r8*rxt(k,226)*y(k,23) +rxt(k,205)*y(k,43))*y(k,96) & - + (2.000_r8*rxt(k,218)*y(k,15) +rxt(k,220)*y(k,17) + & - 3.000_r8*rxt(k,225)*y(k,23))*y(k,85) + (rxt(k,51) + & - rxt(k,204)*y(k,66))*y(k,43) +rxt(k,26)*y(k,3) +rxt(k,29)*y(k,5) & - +rxt(k,57)*y(k,51) - loss(k,65) = (rxt(k,218)* y(k,15) +rxt(k,155)* y(k,16) +rxt(k,220)* y(k,17) & - +rxt(k,223)* y(k,19) +rxt(k,156)* y(k,22) +rxt(k,225)* y(k,23) & - +rxt(k,168)* y(k,27) +rxt(k,157)* y(k,39) +rxt(k,158)* y(k,41) & - +rxt(k,177)* y(k,52) +rxt(k,161)* y(k,68) + (rxt(k,159) +rxt(k,160)) & - * y(k,87) + het_rates(k,85))* y(k,85) - prod(k,65) = (4.000_r8*rxt(k,180)*y(k,7) +rxt(k,181)*y(k,8) + & - 2.000_r8*rxt(k,182)*y(k,10) +2.000_r8*rxt(k,183)*y(k,11) + & - 2.000_r8*rxt(k,184)*y(k,12) +rxt(k,185)*y(k,13) + & - 2.000_r8*rxt(k,186)*y(k,14) +rxt(k,232)*y(k,44) +rxt(k,233)*y(k,45) + & - rxt(k,234)*y(k,46) +rxt(k,187)*y(k,47) +rxt(k,217)*y(k,32))*y(k,92) & - + (rxt(k,45) +rxt(k,162)*y(k,20) +2.000_r8*rxt(k,163)*y(k,26) + & - rxt(k,165)*y(k,26) +rxt(k,167)*y(k,59) +rxt(k,172)*y(k,66) + & - rxt(k,173)*y(k,96) +rxt(k,196)*y(k,4) +rxt(k,252)*y(k,75))*y(k,26) & - + (3.000_r8*rxt(k,222)*y(k,18) +rxt(k,224)*y(k,19) + & - rxt(k,227)*y(k,44) +rxt(k,228)*y(k,45) +rxt(k,229)*y(k,46) + & - rxt(k,176)*y(k,47))*y(k,96) + (rxt(k,55) +rxt(k,175)*y(k,66))*y(k,47) & - +rxt(k,26)*y(k,3) +2.000_r8*rxt(k,43)*y(k,24) +2.000_r8*rxt(k,44) & - *y(k,25) +rxt(k,46)*y(k,27) +rxt(k,49)*y(k,32) +rxt(k,58)*y(k,52) loss(k,52) = (rxt(k,290)* y(k,89) +rxt(k,288)* y(k,90) +rxt(k,289)* y(k,95) & + het_rates(k,86))* y(k,86) prod(k,52) = (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,67) + (rxt(k,71) +rxt(k,72) + & - rxt(k,73) +rxt(k,74) +rxt(k,75) +rxt(k,76))*y(k,66) +rxt(k,62) & - *y(k,53) +rxt(k,16)*y(k,59) - loss(k,64) = (rxt(k,198)* y(k,4) +rxt(k,238)* y(k,20) +rxt(k,166)* y(k,26) & - + (rxt(k,113) +rxt(k,114) +rxt(k,115))* y(k,38) +rxt(k,144)* y(k,59) & - +rxt(k,149)* y(k,60) +rxt(k,139)* y(k,61) +rxt(k,117)* y(k,66) & - +rxt(k,118)* y(k,68) +rxt(k,192)* y(k,84) + (rxt(k,159) +rxt(k,160)) & - * y(k,85) + 2._r8*rxt(k,127)* y(k,87) +rxt(k,122)* y(k,96) & - + rxt(k,264) + het_rates(k,87))* y(k,87) - prod(k,64) = (rxt(k,221)*y(k,17) +rxt(k,224)*y(k,19) +rxt(k,121)*y(k,41) + & - rxt(k,124)*y(k,68) +rxt(k,142)*y(k,61) +rxt(k,173)*y(k,26) + & - rxt(k,203)*y(k,4) +rxt(k,242)*y(k,29) +rxt(k,259)*y(k,76) + & - .500_r8*rxt(k,263)*y(k,33))*y(k,96) + (rxt(k,155)*y(k,85) + & - rxt(k,191)*y(k,84) +rxt(k,235)*y(k,61) +rxt(k,236)*y(k,66))*y(k,16) & - + (rxt(k,220)*y(k,17) +rxt(k,223)*y(k,19) +rxt(k,158)*y(k,41)) & - *y(k,85) + (rxt(k,162)*y(k,26) +rxt(k,239)*y(k,59))*y(k,20) & - + (rxt(k,11) +rxt(k,153))*y(k,50) +rxt(k,244)*y(k,92)*y(k,22) & - +rxt(k,116)*y(k,67)*y(k,38) +rxt(k,112)*y(k,66)*y(k,41) - loss(k,53) = (rxt(k,129)* y(k,66) +rxt(k,130)* y(k,67) +rxt(k,302)* y(k,97) & + rxt(k,84) +rxt(k,85) +rxt(k,86))*y(k,69) + (rxt(k,71) +rxt(k,72) + & + rxt(k,73) +rxt(k,74) +rxt(k,75) +rxt(k,76))*y(k,68) +rxt(k,62) & + *y(k,55) +rxt(k,16)*y(k,61) + loss(k,64) = (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) & + + (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,68) & + +rxt(k,118)* y(k,70) + 2._r8*rxt(k,127)* y(k,87) +rxt(k,122) & + * y(k,96) + rxt(k,264) + het_rates(k,87))* y(k,87) + prod(k,64) = (rxt(k,221)*y(k,18) +rxt(k,224)*y(k,20) +rxt(k,121)*y(k,43) + & + rxt(k,124)*y(k,70) +rxt(k,142)*y(k,63) +rxt(k,173)*y(k,28) + & + rxt(k,203)*y(k,5) +rxt(k,242)*y(k,31) +.500_r8*rxt(k,261)*y(k,35) + & + rxt(k,262)*y(k,78))*y(k,96) + (rxt(k,155)*y(k,25) + & + rxt(k,191)*y(k,3) +rxt(k,235)*y(k,63) +rxt(k,236)*y(k,68))*y(k,17) & + + (rxt(k,220)*y(k,18) +rxt(k,223)*y(k,20) +rxt(k,158)*y(k,43)) & + *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,244)*y(k,92)*y(k,23) & + +rxt(k,116)*y(k,69)*y(k,40) +rxt(k,112)*y(k,68)*y(k,43) + loss(k,53) = (rxt(k,129)* y(k,68) +rxt(k,130)* y(k,69) +rxt(k,302)* y(k,97) & + het_rates(k,88))* y(k,88) prod(k,53) = (.800_r8*rxt(k,288)*y(k,90) +.900_r8*rxt(k,290)*y(k,89))*y(k,86) & - +rxt(k,292)*y(k,89)*y(k,66) - loss(k,42) = ((rxt(k,292) +rxt(k,293))* y(k,66) +rxt(k,291)* y(k,67) & + +rxt(k,292)*y(k,89)*y(k,68) + loss(k,41) = ((rxt(k,292) +rxt(k,293))* y(k,68) +rxt(k,291)* y(k,69) & +rxt(k,290)* y(k,86) + het_rates(k,89))* y(k,89) - prod(k,42) =rxt(k,305)*y(k,98) +rxt(k,310)*y(k,99) + prod(k,41) =rxt(k,305)*y(k,98) +rxt(k,310)*y(k,99) loss(k,44) = (rxt(k,288)* y(k,86) + het_rates(k,90))* y(k,90) - prod(k,44) = (rxt(k,298) +rxt(k,297)*y(k,53) +rxt(k,299)*y(k,59))*y(k,95) & - +rxt(k,16)*y(k,59) +rxt(k,292)*y(k,89)*y(k,66) +rxt(k,296)*y(k,91) & - *y(k,67) +rxt(k,301)*y(k,97) - loss(k,48) = (rxt(k,294)* y(k,66) + (rxt(k,295) +rxt(k,296))* y(k,67) & + prod(k,44) = (rxt(k,298) +rxt(k,297)*y(k,55) +rxt(k,299)*y(k,61))*y(k,95) & + +rxt(k,16)*y(k,61) +rxt(k,292)*y(k,89)*y(k,68) +rxt(k,296)*y(k,91) & + *y(k,69) +rxt(k,301)*y(k,97) + loss(k,49) = (rxt(k,294)* y(k,68) + (rxt(k,295) +rxt(k,296))* y(k,69) & + het_rates(k,91))* y(k,91) - prod(k,48) =rxt(k,62)*y(k,53) +rxt(k,302)*y(k,97)*y(k,88) +rxt(k,311)*y(k,99) - loss(k,69) = (rxt(k,180)* y(k,7) +rxt(k,181)* y(k,8) +rxt(k,207)* y(k,9) & - +rxt(k,182)* y(k,10) +rxt(k,183)* y(k,11) +rxt(k,184)* y(k,12) & - +rxt(k,185)* y(k,13) +rxt(k,186)* y(k,14) +rxt(k,230)* y(k,15) & - +rxt(k,231)* y(k,17) + (rxt(k,243) +rxt(k,244) +rxt(k,245))* y(k,22) & - +rxt(k,208)* y(k,23) +rxt(k,216)* y(k,31) +rxt(k,217)* y(k,32) & - +rxt(k,94)* y(k,39) +rxt(k,209)* y(k,40) + (rxt(k,210) +rxt(k,211)) & - * y(k,43) +rxt(k,232)* y(k,44) +rxt(k,233)* y(k,45) +rxt(k,234) & - * y(k,46) + (rxt(k,187) +rxt(k,188))* y(k,47) + (rxt(k,147) + & - rxt(k,148))* y(k,54) + (rxt(k,97) +rxt(k,98))* y(k,67) +rxt(k,99) & - * y(k,68) +rxt(k,95)* y(k,100) + rxt(k,96) + het_rates(k,92)) & + prod(k,49) =rxt(k,62)*y(k,55) +rxt(k,302)*y(k,97)*y(k,88) +rxt(k,311)*y(k,99) + loss(k,69) = (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,243) +rxt(k,244) +rxt(k,245))* 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) + & + rxt(k,148))* y(k,56) + (rxt(k,97) +rxt(k,98))* y(k,69) +rxt(k,99) & + * y(k,70) +rxt(k,95)* y(k,100) + rxt(k,96) + het_rates(k,92)) & * y(k,92) - prod(k,69) = (rxt(k,6) +rxt(k,130)*y(k,88))*y(k,67) +rxt(k,7)*y(k,68) & + prod(k,69) = (rxt(k,6) +rxt(k,130)*y(k,88))*y(k,69) +rxt(k,7)*y(k,70) & +.850_r8*rxt(k,289)*y(k,95)*y(k,86) +rxt(k,1)*y(k,100) - loss(k,24) = (rxt(k,101)* y(k,66) +rxt(k,102)* y(k,67) + rxt(k,92) & + loss(k,24) = (rxt(k,101)* y(k,68) +rxt(k,102)* y(k,69) + rxt(k,92) & + rxt(k,100) + het_rates(k,93))* y(k,93) - prod(k,24) = (rxt(k,104) +rxt(k,103)*y(k,30) +rxt(k,105)*y(k,66) + & - rxt(k,106)*y(k,67) +rxt(k,107)*y(k,68))*y(k,94) +rxt(k,7)*y(k,68) - loss(k,25) = (rxt(k,103)* y(k,30) +rxt(k,105)* y(k,66) +rxt(k,106)* y(k,67) & - +rxt(k,107)* y(k,68) + rxt(k,93) + rxt(k,104) + het_rates(k,94)) & + prod(k,24) = (rxt(k,104) +rxt(k,103)*y(k,32) +rxt(k,105)*y(k,68) + & + rxt(k,106)*y(k,69) +rxt(k,107)*y(k,70))*y(k,94) +rxt(k,7)*y(k,70) + loss(k,25) = (rxt(k,103)* y(k,32) +rxt(k,105)* y(k,68) +rxt(k,106)* y(k,69) & + +rxt(k,107)* y(k,70) + rxt(k,93) + rxt(k,104) + het_rates(k,94)) & * y(k,94) - prod(k,25) =rxt(k,97)*y(k,92)*y(k,67) - loss(k,51) = (rxt(k,297)* y(k,53) +rxt(k,299)* y(k,59) +rxt(k,289)* y(k,86) & + prod(k,25) =rxt(k,97)*y(k,92)*y(k,69) + loss(k,51) = (rxt(k,297)* y(k,55) +rxt(k,299)* y(k,61) +rxt(k,289)* y(k,86) & + rxt(k,298) + het_rates(k,95))* y(k,95) prod(k,51) = (rxt(k,78) +rxt(k,80) +rxt(k,291)*y(k,89) +rxt(k,295)*y(k,91) + & - rxt(k,303)*y(k,97) +rxt(k,307)*y(k,98))*y(k,67) +rxt(k,300)*y(k,97) & - *y(k,30) - loss(k,73) = (rxt(k,203)* y(k,4) +rxt(k,219)* y(k,15) +rxt(k,237)* y(k,16) & - +rxt(k,221)* y(k,17) +rxt(k,222)* y(k,18) +rxt(k,224)* y(k,19) & - +rxt(k,240)* y(k,21) +rxt(k,241)* y(k,22) +rxt(k,226)* y(k,23) & - + (rxt(k,173) +rxt(k,174))* y(k,26) +rxt(k,171)* y(k,27) & - + (rxt(k,242) +rxt(k,246))* y(k,29) + (rxt(k,262) +rxt(k,263)) & - * y(k,33) +rxt(k,120)* y(k,39) +rxt(k,121)* y(k,41) +rxt(k,205) & - * y(k,43) +rxt(k,227)* y(k,44) +rxt(k,228)* y(k,45) +rxt(k,229) & - * y(k,46) +rxt(k,176)* y(k,47) +rxt(k,152)* y(k,49) +rxt(k,128) & - * y(k,50) +rxt(k,179)* y(k,52) +rxt(k,143)* y(k,53) +rxt(k,151) & - * y(k,60) +rxt(k,142)* y(k,61) +rxt(k,123)* y(k,66) +rxt(k,124) & - * y(k,68) +rxt(k,248)* y(k,70) +rxt(k,253)* y(k,73) +rxt(k,258) & - * y(k,75) +rxt(k,259)* y(k,76) +rxt(k,122)* y(k,87) & + rxt(k,303)*y(k,97) +rxt(k,307)*y(k,98))*y(k,69) +rxt(k,300)*y(k,97) & + *y(k,32) + loss(k,73) = (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,242) +rxt(k,246))* y(k,31) + (rxt(k,248) +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) +rxt(k,143)* y(k,55) +rxt(k,151) & + * y(k,62) +rxt(k,142)* y(k,63) +rxt(k,123)* y(k,68) +rxt(k,124) & + * y(k,70) +rxt(k,250)* y(k,72) +rxt(k,255)* y(k,75) +rxt(k,260) & + * y(k,77) +rxt(k,262)* y(k,78) +rxt(k,122)* y(k,87) & + 2._r8*(rxt(k,125) +rxt(k,126))* y(k,96) + het_rates(k,96)) & * y(k,96) - prod(k,73) = (rxt(k,111)*y(k,39) +rxt(k,112)*y(k,41) +rxt(k,117)*y(k,87) + & - rxt(k,175)*y(k,47) +rxt(k,178)*y(k,52) +rxt(k,204)*y(k,43) + & - rxt(k,206)*y(k,51) +rxt(k,236)*y(k,16))*y(k,66) & - + (2.000_r8*rxt(k,114)*y(k,38) +rxt(k,118)*y(k,68) + & - rxt(k,139)*y(k,61) +rxt(k,144)*y(k,59) +rxt(k,160)*y(k,85))*y(k,87) & - + (rxt(k,243)*y(k,22) +rxt(k,94)*y(k,39) + & - 2.000_r8*rxt(k,95)*y(k,100) +rxt(k,187)*y(k,47) +rxt(k,210)*y(k,43)) & - *y(k,92) + (rxt(k,22) +.300_r8*rxt(k,240)*y(k,96))*y(k,21) & - + (rxt(k,3) +rxt(k,214)*y(k,37))*y(k,100) +rxt(k,119)*y(k,68) & - *y(k,38) +2.000_r8*rxt(k,4)*y(k,41) +rxt(k,9)*y(k,49) +rxt(k,10) & - *y(k,50) +rxt(k,57)*y(k,51) +rxt(k,58)*y(k,52) +.500_r8*rxt(k,266) & - *y(k,60) - loss(k,50) = (rxt(k,300)* y(k,30) +rxt(k,303)* y(k,67) +rxt(k,302)* y(k,88) & + prod(k,73) = (rxt(k,111)*y(k,41) +rxt(k,112)*y(k,43) +rxt(k,117)*y(k,87) + & + 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,68) & + + (2.000_r8*rxt(k,114)*y(k,40) +rxt(k,118)*y(k,70) + & + rxt(k,139)*y(k,63) +rxt(k,144)*y(k,61) +rxt(k,160)*y(k,25))*y(k,87) & + + (rxt(k,243)*y(k,23) +rxt(k,94)*y(k,41) + & + 2.000_r8*rxt(k,95)*y(k,100) +rxt(k,187)*y(k,49) +rxt(k,210)*y(k,45)) & + *y(k,92) + (rxt(k,22) +.300_r8*rxt(k,240)*y(k,96))*y(k,22) & + + (rxt(k,3) +rxt(k,214)*y(k,39))*y(k,100) +rxt(k,119)*y(k,70) & + *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,266) & + *y(k,62) + loss(k,50) = (rxt(k,300)* y(k,32) +rxt(k,303)* y(k,69) +rxt(k,302)* y(k,88) & + rxt(k,301) + het_rates(k,97))* y(k,97) prod(k,50) = (rxt(k,73) +rxt(k,74) +rxt(k,293)*y(k,89) +rxt(k,294)*y(k,91) + & - rxt(k,306)*y(k,98) +rxt(k,312)*y(k,99))*y(k,66) + (rxt(k,79) + & - rxt(k,81))*y(k,67) + (rxt(k,304)*y(k,98) +rxt(k,309)*y(k,99))*y(k,86) & + rxt(k,306)*y(k,98) +rxt(k,312)*y(k,99))*y(k,68) + (rxt(k,79) + & + rxt(k,81))*y(k,69) + (rxt(k,304)*y(k,98) +rxt(k,309)*y(k,99))*y(k,86) & +rxt(k,286)*y(k,98) +rxt(k,285)*y(k,99) - loss(k,38) = (rxt(k,306)* y(k,66) +rxt(k,307)* y(k,67) +rxt(k,304)* y(k,86) & + loss(k,38) = (rxt(k,306)* y(k,68) +rxt(k,307)* y(k,69) +rxt(k,304)* y(k,86) & + rxt(k,286) + rxt(k,305) + het_rates(k,98))* y(k,98) - prod(k,38) = (rxt(k,75) +rxt(k,76))*y(k,66) + (rxt(k,85) +rxt(k,86))*y(k,67) & + prod(k,38) = (rxt(k,75) +rxt(k,76))*y(k,68) + (rxt(k,85) +rxt(k,86))*y(k,69) & + (rxt(k,287) +rxt(k,308)*y(k,86))*y(k,99) - loss(k,37) = (rxt(k,312)* y(k,66) + (rxt(k,308) +rxt(k,309))* y(k,86) & + loss(k,37) = (rxt(k,312)* y(k,68) + (rxt(k,308) +rxt(k,309))* y(k,86) & + rxt(k,285) + rxt(k,287) + rxt(k,310) + rxt(k,311) & + het_rates(k,99))* y(k,99) - prod(k,37) = (rxt(k,71) +rxt(k,72))*y(k,66) + (rxt(k,77) +rxt(k,84))*y(k,67) - loss(k,77) = (rxt(k,214)* y(k,37) +rxt(k,260)* y(k,77) +rxt(k,95)* y(k,92) & + prod(k,37) = (rxt(k,71) +rxt(k,72))*y(k,68) + (rxt(k,77) +rxt(k,84))*y(k,69) + loss(k,77) = (rxt(k,214)* y(k,39) +rxt(k,263)* y(k,79) +rxt(k,95)* y(k,92) & + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,100))* y(k,100) - prod(k,77) = (rxt(k,219)*y(k,15) +rxt(k,221)*y(k,17) +rxt(k,222)*y(k,18) + & - rxt(k,224)*y(k,19) +rxt(k,229)*y(k,46) +rxt(k,241)*y(k,22) + & - rxt(k,120)*y(k,39) +rxt(k,121)*y(k,41) +rxt(k,122)*y(k,87) + & - rxt(k,125)*y(k,96) +rxt(k,128)*y(k,50) +rxt(k,152)*y(k,49) + & - rxt(k,176)*y(k,47) +rxt(k,179)*y(k,52) +rxt(k,205)*y(k,43) + & - rxt(k,237)*y(k,16) +rxt(k,240)*y(k,21))*y(k,96) & - + (rxt(k,269)*y(k,52) +rxt(k,275)*y(k,52) +rxt(k,276)*y(k,51) + & - rxt(k,280)*y(k,52) +rxt(k,281)*y(k,51))*y(k,47) +rxt(k,115)*y(k,87) & - *y(k,38) +rxt(k,87)*y(k,42) + prod(k,77) = (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,241)*y(k,23) + & + rxt(k,120)*y(k,41) +rxt(k,121)*y(k,43) +rxt(k,122)*y(k,87) + & + rxt(k,125)*y(k,96) +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,237)*y(k,17) +rxt(k,240)*y(k,22))*y(k,96) & + + (rxt(k,269)*y(k,54) +rxt(k,275)*y(k,54) +rxt(k,276)*y(k,53) + & + rxt(k,280)*y(k,54) +rxt(k,281)*y(k,53))*y(k,49) +rxt(k,115)*y(k,87) & + *y(k,40) +rxt(k,87)*y(k,44) end do end subroutine imp_prod_loss end module mo_prod_loss diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_rxt_rates_conv.F90 index e4af026508..cd21b06f31 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_rxt_rates_conv.F90 @@ -11,65 +11,65 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 100) ! rate_const*H2O rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 100) ! rate_const*H2O rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 100) ! rate_const*H2O - rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 41) ! rate_const*H2O2 - rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 68) ! rate_const*O3 - rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 68) ! rate_const*O3 - rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 49) ! rate_const*HNO3 - rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 50) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 50) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 54) ! rate_const*N2O - rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 59) ! rate_const*NO - rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 59) ! rate_const*NO - rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 60) ! rate_const*NO2 - rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 61) ! rate_const*NO3 - rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 61) ! rate_const*NO3 - rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 16) ! rate_const*CH2O - rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 16) ! rate_const*CH2O - rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 21) ! rate_const*CH3OOH - rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 22) ! rate_const*CH4 - rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 22) ! rate_const*CH4 - rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 30) ! rate_const*CO2 - rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 3) ! rate_const*BRCL - rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 4) ! rate_const*BRO - rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 7) ! rate_const*CCL4 - rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 8) ! rate_const*CF2CLBR - rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 9) ! rate_const*CF3BR - rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 10) ! rate_const*CFC11 - rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 11) ! rate_const*CFC113 - rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 12) ! rate_const*CFC114 - rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 13) ! rate_const*CFC115 - rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 14) ! rate_const*CFC12 - rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 15) ! rate_const*CH2BR2 - rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 17) ! rate_const*CH3BR - rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 18) ! rate_const*CH3CCL3 - rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 19) ! rate_const*CH3CL - rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 23) ! rate_const*CHBR3 - rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 24) ! rate_const*CL2 - rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 25) ! rate_const*CL2O2 - rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 26) ! rate_const*CLO - rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 31) ! rate_const*COF2 - rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 32) ! rate_const*COFCL - rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 40) ! rate_const*H2402 - rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 43) ! rate_const*HBR - rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 44) ! rate_const*HCFC141B - rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 45) ! rate_const*HCFC142B - rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 46) ! rate_const*HCFC22 - rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 47) ! rate_const*HCL - rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 48) ! rate_const*HF - rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 51) ! rate_const*HOBR - rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 52) ! rate_const*HOCL - rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 69) ! rate_const*OCLO - rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 74) ! rate_const*SF6 - rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 30) ! rate_const*CO2 - rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 53) ! rate_const*N + rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 43) ! rate_const*H2O2 + rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 70) ! rate_const*O3 + rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 70) ! rate_const*O3 + rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 51) ! rate_const*HNO3 + rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 52) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 52) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 56) ! rate_const*N2O + rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 57) ! rate_const*N2O5 + rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 57) ! rate_const*N2O5 + rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 61) ! rate_const*NO + rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 61) ! rate_const*NO + rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 62) ! rate_const*NO2 + rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 63) ! rate_const*NO3 + rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 63) ! rate_const*NO3 + rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 17) ! rate_const*CH2O + rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 17) ! rate_const*CH2O + rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 22) ! rate_const*CH3OOH + rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 23) ! rate_const*CH4 + rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 23) ! rate_const*CH4 + rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 32) ! rate_const*CO2 + rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 4) ! rate_const*BRCL + rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 5) ! rate_const*BRO + rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 8) ! rate_const*CCL4 + rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 9) ! rate_const*CF2CLBR + rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 10) ! rate_const*CF3BR + rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 11) ! rate_const*CFC11 + rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 12) ! rate_const*CFC113 + rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 13) ! rate_const*CFC114 + rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 14) ! rate_const*CFC115 + rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 15) ! rate_const*CFC12 + rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 16) ! rate_const*CH2BR2 + rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 18) ! rate_const*CH3BR + rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 19) ! rate_const*CH3CCL3 + rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 20) ! rate_const*CH3CL + rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 24) ! rate_const*CHBR3 + rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 26) ! rate_const*CL2 + rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 27) ! rate_const*CL2O2 + rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 28) ! rate_const*CLO + rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 33) ! rate_const*COF2 + rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 34) ! rate_const*COFCL + rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 42) ! rate_const*H2402 + rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 45) ! rate_const*HBR + rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 46) ! rate_const*HCFC141B + rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 47) ! rate_const*HCFC142B + rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 48) ! rate_const*HCFC22 + rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 49) ! rate_const*HCL + rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 50) ! rate_const*HF + rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 53) ! rate_const*HOBR + rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 54) ! rate_const*HOCL + rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 71) ! rate_const*OCLO + rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 76) ! rate_const*SF6 + rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 32) ! rate_const*CO2 + rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 55) ! rate_const*N ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 @@ -78,247 +78,247 @@ subroutine set_rates( rxt_rates, sol, ncol ) ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 - rxt_rates(:ncol,:, 71) = rxt_rates(:ncol,:, 71)*sol(:ncol,:, 66) ! rate_const*O - rxt_rates(:ncol,:, 72) = rxt_rates(:ncol,:, 72)*sol(:ncol,:, 66) ! rate_const*O - rxt_rates(:ncol,:, 73) = rxt_rates(:ncol,:, 73)*sol(:ncol,:, 66) ! rate_const*O - rxt_rates(:ncol,:, 74) = rxt_rates(:ncol,:, 74)*sol(:ncol,:, 66) ! rate_const*O - rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 66) ! rate_const*O - rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 66) ! rate_const*O - rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 67) ! rate_const*O2 - rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 42) ! rate_const*H2SO4 - rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 70) ! rate_const*OCS - rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 75) ! rate_const*SO - rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 76) ! rate_const*SO2 - rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 77) ! rate_const*SO3 + rxt_rates(:ncol,:, 71) = rxt_rates(:ncol,:, 71)*sol(:ncol,:, 68) ! rate_const*O + rxt_rates(:ncol,:, 72) = rxt_rates(:ncol,:, 72)*sol(:ncol,:, 68) ! rate_const*O + rxt_rates(:ncol,:, 73) = rxt_rates(:ncol,:, 73)*sol(:ncol,:, 68) ! rate_const*O + rxt_rates(:ncol,:, 74) = rxt_rates(:ncol,:, 74)*sol(:ncol,:, 68) ! rate_const*O + rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 68) ! rate_const*O + rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 68) ! rate_const*O + rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 69) ! rate_const*O2 + rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 44) ! rate_const*H2SO4 + rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 72) ! rate_const*OCS + rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 77) ! rate_const*SO + rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 78) ! rate_const*SO2 + rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 79) ! rate_const*SO3 rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 93) ! rate_const*O2_1D rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 94) ! rate_const*O2_1S - rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 92)*sol(:ncol,:, 39) ! rate_const*O1D*H2 + rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 92)*sol(:ncol,:, 41) ! rate_const*O1D*H2 rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 92)*sol(:ncol,:, 100) ! rate_const*O1D*H2O rxt_rates(:ncol,:, 96) = rxt_rates(:ncol,:, 96)*sol(:ncol,:, 92) ! rate_const*N2*O1D - rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 92)*sol(:ncol,:, 67) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 92)*sol(:ncol,:, 67) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 92)*sol(:ncol,:, 68) ! rate_const*O1D*O3 + rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 92)*sol(:ncol,:, 69) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 92)*sol(:ncol,:, 69) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 92)*sol(:ncol,:, 70) ! rate_const*O1D*O3 rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 93) ! rate_const*N2*O2_1D - rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 93)*sol(:ncol,:, 66) ! rate_const*O2_1D*O - rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 93)*sol(:ncol,:, 67) ! rate_const*O2_1D*O2 - rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 94)*sol(:ncol,:, 30) ! rate_const*O2_1S*CO2 + rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 93)*sol(:ncol,:, 68) ! rate_const*O2_1D*O + rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 93)*sol(:ncol,:, 69) ! rate_const*O2_1D*O2 + rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 94)*sol(:ncol,:, 32) ! rate_const*O2_1S*CO2 rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 94) ! rate_const*N2*O2_1S - rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 94)*sol(:ncol,:, 66) ! rate_const*O2_1S*O - rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 94)*sol(:ncol,:, 67) ! rate_const*O2_1S*O2 - rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 94)*sol(:ncol,:, 68) ! rate_const*O2_1S*O3 - rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 66)*sol(:ncol,:, 68) ! rate_const*O*O3 - rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 66)*sol(:ncol,:, 66) ! rate_const*M*O*O - rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 66)*sol(:ncol,:, 67) ! rate_const*M*O*O2 - rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 39)*sol(:ncol,:, 66) ! rate_const*H2*O - rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 41)*sol(:ncol,:, 66) ! rate_const*H2O2*O - rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 38)*sol(:ncol,:, 87) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 38)*sol(:ncol,:, 87) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 38)*sol(:ncol,:, 87) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 38)*sol(:ncol,:, 67) ! rate_const*M*H*O2 - rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 87)*sol(:ncol,:, 66) ! rate_const*HO2*O - rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 87)*sol(:ncol,:, 68) ! rate_const*HO2*O3 - rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 38)*sol(:ncol,:, 68) ! rate_const*H*O3 - rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 96)*sol(:ncol,:, 39) ! rate_const*OH*H2 - rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 96)*sol(:ncol,:, 41) ! rate_const*OH*H2O2 + rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 94)*sol(:ncol,:, 68) ! rate_const*O2_1S*O + rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 94)*sol(:ncol,:, 69) ! rate_const*O2_1S*O2 + rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 94)*sol(:ncol,:, 70) ! rate_const*O2_1S*O3 + rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 68)*sol(:ncol,:, 70) ! rate_const*O*O3 + rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 68)*sol(:ncol,:, 68) ! rate_const*M*O*O + rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 68)*sol(:ncol,:, 69) ! rate_const*M*O*O2 + rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 41)*sol(:ncol,:, 68) ! rate_const*H2*O + rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 43)*sol(:ncol,:, 68) ! rate_const*H2O2*O + rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 40)*sol(:ncol,:, 87) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 40)*sol(:ncol,:, 87) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 40)*sol(:ncol,:, 87) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 40)*sol(:ncol,:, 69) ! rate_const*M*H*O2 + rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 87)*sol(:ncol,:, 68) ! rate_const*HO2*O + rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 87)*sol(:ncol,:, 70) ! rate_const*HO2*O3 + rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 40)*sol(:ncol,:, 70) ! rate_const*H*O3 + rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 96)*sol(:ncol,:, 41) ! rate_const*OH*H2 + rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 96)*sol(:ncol,:, 43) ! rate_const*OH*H2O2 rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 96)*sol(:ncol,:, 87) ! rate_const*OH*HO2 - rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 96)*sol(:ncol,:, 66) ! rate_const*OH*O - rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 96)*sol(:ncol,:, 68) ! rate_const*OH*O3 + rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 96)*sol(:ncol,:, 68) ! rate_const*OH*O + rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 96)*sol(:ncol,:, 70) ! rate_const*OH*O3 rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 96)*sol(:ncol,:, 96) ! rate_const*OH*OH rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 96)*sol(:ncol,:, 96) ! rate_const*M*OH*OH rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 87)*sol(:ncol,:, 87) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 50)*sol(:ncol,:, 96) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 88)*sol(:ncol,:, 66) ! rate_const*N2D*O - rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 88)*sol(:ncol,:, 67) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 53)*sol(:ncol,:, 59) ! rate_const*N*NO - rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 53)*sol(:ncol,:, 60) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 53)*sol(:ncol,:, 60) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 53)*sol(:ncol,:, 60) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 53)*sol(:ncol,:, 67) ! rate_const*N*O2 - rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 60)*sol(:ncol,:, 66) ! rate_const*NO2*O - rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 60)*sol(:ncol,:, 68) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 60)*sol(:ncol,:, 66) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 61)*sol(:ncol,:, 87) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 61)*sol(:ncol,:, 59) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 61)*sol(:ncol,:, 66) ! rate_const*NO3*O - rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 61)*sol(:ncol,:, 96) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 53)*sol(:ncol,:, 96) ! rate_const*N*OH - rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 59)*sol(:ncol,:, 87) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 59)*sol(:ncol,:, 68) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 59)*sol(:ncol,:, 66) ! rate_const*M*NO*O - rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 92)*sol(:ncol,:, 54) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 92)*sol(:ncol,:, 54) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 60)*sol(:ncol,:, 87) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 60)*sol(:ncol,:, 61) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 60)*sol(:ncol,:, 96) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 49)*sol(:ncol,:, 96) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 50) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 55) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 85)*sol(:ncol,:, 16) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 85)*sol(:ncol,:, 22) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 85)*sol(:ncol,:, 39) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 85)*sol(:ncol,:, 41) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 85)*sol(:ncol,:, 87) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 85)*sol(:ncol,:, 87) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 85)*sol(:ncol,:, 68) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 26)*sol(:ncol,:, 20) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 26)*sol(:ncol,:, 87) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 26)*sol(:ncol,:, 59) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 27)*sol(:ncol,:, 85) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 26)*sol(:ncol,:, 60) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 27)*sol(:ncol,:, 66) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 27)*sol(:ncol,:, 96) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 26)*sol(:ncol,:, 66) ! rate_const*CLO*O - rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 26)*sol(:ncol,:, 96) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 26)*sol(:ncol,:, 96) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 47)*sol(:ncol,:, 66) ! rate_const*HCL*O - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 47)*sol(:ncol,:, 96) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 52)*sol(:ncol,:, 85) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 52)*sol(:ncol,:, 66) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 52)*sol(:ncol,:, 96) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 92)*sol(:ncol,:, 7) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 92)*sol(:ncol,:, 8) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 92)*sol(:ncol,:, 10) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 92)*sol(:ncol,:, 11) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 92)*sol(:ncol,:, 12) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 92)*sol(:ncol,:, 13) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 92)*sol(:ncol,:, 14) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 92)*sol(:ncol,:, 47) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 92)*sol(:ncol,:, 47) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 25) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 84)*sol(:ncol,:, 16) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 84)*sol(:ncol,:, 87) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 84)*sol(:ncol,:, 68) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 4)*sol(:ncol,:, 4) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 4)*sol(:ncol,:, 26) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 4)*sol(:ncol,:, 26) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 4)*sol(:ncol,:, 26) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 4)*sol(:ncol,:, 87) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 4)*sol(:ncol,:, 59) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 4)*sol(:ncol,:, 60) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 5)*sol(:ncol,:, 66) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 4)*sol(:ncol,:, 66) ! rate_const*BRO*O - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 4)*sol(:ncol,:, 96) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 43)*sol(:ncol,:, 66) ! rate_const*HBR*O - rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 43)*sol(:ncol,:, 96) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 51)*sol(:ncol,:, 66) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 92)*sol(:ncol,:, 9) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 92)*sol(:ncol,:, 23) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 92)*sol(:ncol,:, 40) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 92)*sol(:ncol,:, 43) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 92)*sol(:ncol,:, 43) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 37)*sol(:ncol,:, 22) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 37)*sol(:ncol,:, 39) ! rate_const*F*H2 - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 37)*sol(:ncol,:, 100) ! rate_const*F*H2O - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 37)*sol(:ncol,:, 49) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 92)*sol(:ncol,:, 31) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 92)*sol(:ncol,:, 32) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 15)*sol(:ncol,:, 85) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 15)*sol(:ncol,:, 96) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 17)*sol(:ncol,:, 85) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 17)*sol(:ncol,:, 96) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 18)*sol(:ncol,:, 96) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 19)*sol(:ncol,:, 85) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 19)*sol(:ncol,:, 96) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 23)*sol(:ncol,:, 85) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 23)*sol(:ncol,:, 96) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 44)*sol(:ncol,:, 96) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 45)*sol(:ncol,:, 96) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 46)*sol(:ncol,:, 96) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 92)*sol(:ncol,:, 15) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 92)*sol(:ncol,:, 17) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 92)*sol(:ncol,:, 44) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 92)*sol(:ncol,:, 45) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 92)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 16)*sol(:ncol,:, 61) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 16)*sol(:ncol,:, 66) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 16)*sol(:ncol,:, 96) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 20)*sol(:ncol,:, 87) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 20)*sol(:ncol,:, 59) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 21)*sol(:ncol,:, 96) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 22)*sol(:ncol,:, 96) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 29)*sol(:ncol,:, 96) ! rate_const*M*CO*OH - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 92)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 92)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 92)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 29)*sol(:ncol,:, 96) ! rate_const*CO*OH - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 70)*sol(:ncol,:, 66) ! rate_const*OCS*O - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 70)*sol(:ncol,:, 96) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 73)*sol(:ncol,:, 67) ! rate_const*S*O2 - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 73)*sol(:ncol,:, 68) ! rate_const*S*O3 - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 75)*sol(:ncol,:, 4) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 75)*sol(:ncol,:, 26) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 73)*sol(:ncol,:, 96) ! rate_const*S*OH - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 75)*sol(:ncol,:, 60) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 75)*sol(:ncol,:, 67) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 75)*sol(:ncol,:, 68) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 75)*sol(:ncol,:, 69) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 75)*sol(:ncol,:, 96) ! rate_const*SO*OH - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 76)*sol(:ncol,:, 96) ! rate_const*SO2*OH - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 77)*sol(:ncol,:, 100) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 33)*sol(:ncol,:, 61) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 33)*sol(:ncol,:, 96) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 33)*sol(:ncol,:, 96) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 52)*sol(:ncol,:, 96) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 88)*sol(:ncol,:, 68) ! rate_const*N2D*O + rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 88)*sol(:ncol,:, 69) ! 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,:, 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,:, 69) ! rate_const*N*O2 + rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 62)*sol(:ncol,:, 68) ! rate_const*NO2*O + rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 62)*sol(:ncol,:, 70) ! rate_const*NO2*O3 + rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 62)*sol(:ncol,:, 68) ! rate_const*M*NO2*O + rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 63)*sol(:ncol,:, 87) ! rate_const*NO3*HO2 + rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 63)*sol(:ncol,:, 61) ! rate_const*NO3*NO + rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 63)*sol(:ncol,:, 68) ! rate_const*NO3*O + rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 63)*sol(:ncol,:, 96) ! rate_const*NO3*OH + rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 55)*sol(:ncol,:, 96) ! rate_const*N*OH + rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 61)*sol(:ncol,:, 87) ! rate_const*NO*HO2 + rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 61)*sol(:ncol,:, 70) ! rate_const*NO*O3 + rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 61)*sol(:ncol,:, 68) ! rate_const*M*NO*O + rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 92)*sol(:ncol,:, 56) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 92)*sol(:ncol,:, 56) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 62)*sol(:ncol,:, 87) ! rate_const*M*NO2*HO2 + rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 62)*sol(:ncol,:, 63) ! rate_const*M*NO2*NO3 + rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 62)*sol(:ncol,:, 96) ! rate_const*M*NO2*OH + rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 51)*sol(:ncol,:, 96) ! 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,:, 87) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 25)*sol(:ncol,:, 87) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 25)*sol(:ncol,:, 70) ! 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,:, 87) ! 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,:, 68) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 29)*sol(:ncol,:, 96) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 28)*sol(:ncol,:, 68) ! rate_const*CLO*O + rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 28)*sol(:ncol,:, 96) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 28)*sol(:ncol,:, 96) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 49)*sol(:ncol,:, 68) ! rate_const*HCL*O + rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 49)*sol(:ncol,:, 96) ! 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,:, 68) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 54)*sol(:ncol,:, 96) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 92)*sol(:ncol,:, 8) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 92)*sol(:ncol,:, 9) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 92)*sol(:ncol,:, 11) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 92)*sol(:ncol,:, 12) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 92)*sol(:ncol,:, 13) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 92)*sol(:ncol,:, 14) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 92)*sol(:ncol,:, 15) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 92)*sol(:ncol,:, 49) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 92)*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,:, 87) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 3)*sol(:ncol,:, 70) ! 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,:, 87) ! 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,:, 68) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 5)*sol(:ncol,:, 68) ! rate_const*BRO*O + rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 5)*sol(:ncol,:, 96) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 45)*sol(:ncol,:, 68) ! rate_const*HBR*O + rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 45)*sol(:ncol,:, 96) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 53)*sol(:ncol,:, 68) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 92)*sol(:ncol,:, 10) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 92)*sol(:ncol,:, 24) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 92)*sol(:ncol,:, 42) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 92)*sol(:ncol,:, 45) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 92)*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,:, 100) ! 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,:, 92)*sol(:ncol,:, 33) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 92)*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,:, 96) ! 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,:, 96) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 19)*sol(:ncol,:, 96) ! 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,:, 96) ! 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,:, 96) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 46)*sol(:ncol,:, 96) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 47)*sol(:ncol,:, 96) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 48)*sol(:ncol,:, 96) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 92)*sol(:ncol,:, 16) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 92)*sol(:ncol,:, 18) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 92)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 92)*sol(:ncol,:, 47) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 92)*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,:, 68) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 17)*sol(:ncol,:, 96) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 21)*sol(:ncol,:, 87) ! 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,:, 96) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 23)*sol(:ncol,:, 96) ! rate_const*CH4*OH + rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 31)*sol(:ncol,:, 96) ! rate_const*M*CO*OH + rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 92)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 92)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 92)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 31)*sol(:ncol,:, 96) ! rate_const*CO*OH + rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 35)*sol(:ncol,:, 63) ! rate_const*DMS*NO3 + rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 35)*sol(:ncol,:, 96) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 72)*sol(:ncol,:, 68) ! rate_const*OCS*O + rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 72)*sol(:ncol,:, 96) ! rate_const*OCS*OH + rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 75)*sol(:ncol,:, 69) ! rate_const*S*O2 + rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 75)*sol(:ncol,:, 70) ! rate_const*S*O3 + rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 77)*sol(:ncol,:, 5) ! rate_const*SO*BRO + rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 77)*sol(:ncol,:, 28) ! rate_const*SO*CLO + rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 75)*sol(:ncol,:, 96) ! rate_const*S*OH + rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 77)*sol(:ncol,:, 62) ! rate_const*SO*NO2 + rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 77)*sol(:ncol,:, 69) ! rate_const*SO*O2 + rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 77)*sol(:ncol,:, 70) ! rate_const*SO*O3 + rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 77)*sol(:ncol,:, 71) ! rate_const*SO*OCLO + rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 77)*sol(:ncol,:, 96) ! rate_const*SO*OH + rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 35)*sol(:ncol,:, 96) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 78)*sol(:ncol,:, 96) ! rate_const*SO2*OH + rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 79)*sol(:ncol,:, 100) ! rate_const*SO3*H2O rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 87) ! rate_const*HO2 - rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 60) ! rate_const*NO2 - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 61) ! rate_const*NO3 - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 51)*sol(:ncol,:, 47) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 51)*sol(:ncol,:, 47) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 55) ! rate_const*N2O5 - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 57) ! rate_const*N2O5 + rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 62) ! rate_const*NO2 + rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 63) ! rate_const*NO3 + rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 57) ! rate_const*N2O5 + rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 57) ! rate_const*N2O5 + rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 57) ! rate_const*N2O5 + rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 99) ! rate_const*Op2P rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 98) ! rate_const*Op2D rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 99) ! rate_const*Op2P rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 90)*sol(:ncol,:, 86) ! rate_const*NOp*e rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 95)*sol(:ncol,:, 86) ! rate_const*O2p*e rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 89)*sol(:ncol,:, 86) ! rate_const*N2p*e - rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 89)*sol(:ncol,:, 67) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 89)*sol(:ncol,:, 66) ! rate_const*N2p*O - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 89)*sol(:ncol,:, 66) ! rate_const*N2p*O - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 91)*sol(:ncol,:, 66) ! rate_const*Np*O - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 91)*sol(:ncol,:, 67) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 91)*sol(:ncol,:, 67) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 95)*sol(:ncol,:, 53) ! rate_const*O2p*N + rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 89)*sol(:ncol,:, 69) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 89)*sol(:ncol,:, 68) ! rate_const*N2p*O + rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 89)*sol(:ncol,:, 68) ! rate_const*N2p*O + rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 91)*sol(:ncol,:, 68) ! rate_const*Np*O + rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 91)*sol(:ncol,:, 69) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 91)*sol(:ncol,:, 69) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 95)*sol(:ncol,:, 55) ! rate_const*O2p*N rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 95) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 95)*sol(:ncol,:, 59) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 97)*sol(:ncol,:, 30) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 95)*sol(:ncol,:, 61) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 97)*sol(:ncol,:, 32) ! rate_const*Op*CO2 rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 97) ! rate_const*N2*Op rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 97)*sol(:ncol,:, 88) ! rate_const*Op*N2D - rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 97)*sol(:ncol,:, 67) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 97)*sol(:ncol,:, 69) ! rate_const*Op*O2 rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 98)*sol(:ncol,:, 86) ! rate_const*Op2D*e rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 98) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 98)*sol(:ncol,:, 66) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 98)*sol(:ncol,:, 67) ! rate_const*Op2D*O2 + rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 98)*sol(:ncol,:, 68) ! rate_const*Op2D*O + rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 98)*sol(:ncol,:, 69) ! rate_const*Op2D*O2 rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 99)*sol(:ncol,:, 86) ! rate_const*Op2P*e rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 99)*sol(:ncol,:, 86) ! rate_const*Op2P*e rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 99) ! rate_const*N2*Op2P rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 99) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 99)*sol(:ncol,:, 66) ! rate_const*Op2P*O + rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 99)*sol(:ncol,:, 68) ! rate_const*Op2P*O end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_setrxt.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_setrxt.F90 index 325860d61a..87de9d4b32 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_setrxt.F90 @@ -82,13 +82,13 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,243) = 1.31e-10_r8 rate(:,244) = 3.5e-11_r8 rate(:,245) = 9e-12_r8 - rate(:,249) = 2.3e-12_r8 - rate(:,250) = 1.2e-11_r8 - rate(:,251) = 5.7e-11_r8 - rate(:,252) = 2.8e-11_r8 - rate(:,253) = 6.6e-11_r8 - rate(:,254) = 1.4e-11_r8 - rate(:,257) = 1.9e-12_r8 + rate(:,251) = 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(:,285) = 0.047_r8 rate(:,286) = 7.7e-05_r8 rate(:,287) = 0.171_r8 @@ -212,13 +212,13 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,243) = 1.31e-10_r8 * exp_fac(:) rate(:,244) = 3.5e-11_r8 * exp_fac(:) rate(:,245) = 9e-12_r8 * exp_fac(:) - rate(:,249) = 2.3e-12_r8 * exp_fac(:) - rate(:,250) = 1.2e-11_r8 * exp_fac(:) - rate(:,251) = 5.7e-11_r8 * exp_fac(:) - rate(:,252) = 2.8e-11_r8 * exp_fac(:) - rate(:,253) = 6.6e-11_r8 * exp_fac(:) - rate(:,254) = 1.4e-11_r8 * exp_fac(:) - rate(:,257) = 1.9e-12_r8 * exp_fac(:) + rate(:,251) = 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(:,285) = 0.047_r8 * exp_fac(:) rate(:,286) = 7.7e-05_r8 * exp_fac(:) rate(:,287) = 0.171_r8 * exp_fac(:) @@ -243,7 +243,7 @@ subroutine setrxt( rate, temp, m, ncol ) rate(:,222) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) exp_fac(:) = exp( -1100._r8 * itemp(:) ) rate(:,223) = 2.03e-11_r8 * exp_fac(:) - rate(:,256) = 3.4e-12_r8 * exp_fac(:) + rate(:,258) = 3.4e-12_r8 * exp_fac(:) 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(:) ) @@ -257,12 +257,12 @@ subroutine setrxt( rate, temp, m, ncol ) 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(:,247) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,248) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,255) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,258) = 2.7e-11_r8 * exp( 335._r8 * itemp(:) ) - rate(:,261) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,262) = 9.6e-12_r8 * exp( -234._r8 * itemp(:) ) + rate(:,247) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) + rate(:,248) = 9.6e-12_r8 * exp( -234._r8 * itemp(:) ) + rate(:,249) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) + rate(:,250) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) + rate(:,257) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) + rate(:,260) = 2.7e-11_r8 * exp( 335._r8 * itemp(:) ) itemp(:) = 300._r8 * itemp(:) diff --git a/src/chemistry/pp_waccm_ma_mam4/mo_sim_dat.F90 b/src/chemistry/pp_waccm_ma_mam4/mo_sim_dat.F90 index 49346ee553..d5c002a826 100644 --- a/src/chemistry/pp_waccm_ma_mam4/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_ma_mam4/mo_sim_dat.F90 @@ -36,100 +36,100 @@ subroutine set_sim_dat cls_rxt_cnt(:,1) = (/ 3, 59, 0, 23 /) cls_rxt_cnt(:,4) = (/ 30, 126, 155, 77 /) - solsym(:100) = (/ 'bc_a1 ','bc_a4 ','BRCL ','BRO ','BRONO2 ', & - 'BRY ','CCL4 ','CF2CLBR ','CF3BR ','CFC11 ', & - 'CFC113 ','CFC114 ','CFC115 ','CFC12 ','CH2BR2 ', & - 'CH2O ','CH3BR ','CH3CCL3 ','CH3CL ','CH3O2 ', & - 'CH3OOH ','CH4 ','CHBR3 ','CL2 ','CL2O2 ', & - 'CLO ','CLONO2 ','CLY ','CO ','CO2 ', & - 'COF2 ','COFCL ','DMS ','dst_a1 ','dst_a2 ', & - 'dst_a3 ','F ','H ','H2 ','H2402 ', & - 'H2O2 ','H2SO4 ','HBR ','HCFC141B ','HCFC142B ', & - 'HCFC22 ','HCL ','HF ','HNO3 ','HO2NO2 ', & - 'HOBR ','HOCL ','N ','N2O ','N2O5 ', & - 'ncl_a1 ','ncl_a2 ','ncl_a3 ','NO ','NO2 ', & - 'NO3 ','num_a1 ','num_a2 ','num_a3 ','num_a4 ', & - 'O ','O2 ','O3 ','OCLO ','OCS ', & - 'pom_a1 ','pom_a4 ','S ','SF6 ','SO ', & - 'SO2 ','SO3 ','so4_a1 ','so4_a2 ','so4_a3 ', & - 'soa_a1 ','soa_a2 ','SOAG ','BR ','CL ', & + solsym(:100) = (/ 'bc_a1 ','bc_a4 ','BR ','BRCL ','BRO ', & + 'BRONO2 ','BRY ','CCL4 ','CF2CLBR ','CF3BR ', & + 'CFC11 ','CFC113 ','CFC114 ','CFC115 ','CFC12 ', & + 'CH2BR2 ','CH2O ','CH3BR ','CH3CCL3 ','CH3CL ', & + 'CH3O2 ','CH3OOH ','CH4 ','CHBR3 ','CL ', & + 'CL2 ','CL2O2 ','CLO ','CLONO2 ','CLY ', & + 'CO ','CO2 ','COF2 ','COFCL ','DMS ', & + 'dst_a1 ','dst_a2 ','dst_a3 ','F ','H ', & + 'H2 ','H2402 ','H2O2 ','H2SO4 ','HBR ', & + 'HCFC141B ','HCFC142B ','HCFC22 ','HCL ','HF ', & + 'HNO3 ','HO2NO2 ','HOBR ','HOCL ','N ', & + 'N2O ','N2O5 ','ncl_a1 ','ncl_a2 ','ncl_a3 ', & + 'NO ','NO2 ','NO3 ','num_a1 ','num_a2 ', & + 'num_a3 ','num_a4 ','O ','O2 ','O3 ', & + 'OCLO ','OCS ','pom_a1 ','pom_a4 ','S ', & + 'SF6 ','SO ','SO2 ','SO3 ','so4_a1 ', & + 'so4_a2 ','so4_a3 ','soa_a1 ','soa_a2 ','SOAG ', & 'e ','HO2 ','N2D ','N2p ','NOp ', & 'Np ','O1D ','O2_1D ','O2_1S ','O2p ', & 'OH ','Op ','Op2D ','Op2P ','H2O ' /) - adv_mass(:100) = (/ 12.011000_r8, 12.011000_r8, 115.356700_r8, 95.903400_r8, 141.908940_r8, & - 99.716850_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, 50.485900_r8, 47.032000_r8, & - 48.039400_r8, 16.040600_r8, 252.730400_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, 62.132400_r8, 135.064039_r8, 135.064039_r8, & - 135.064039_r8, 18.998403_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, 20.005803_r8, 63.012340_r8, 79.011740_r8, & - 96.910800_r8, 52.459500_r8, 14.006740_r8, 44.012880_r8, 108.010480_r8, & - 58.442468_r8, 58.442468_r8, 58.442468_r8, 30.006140_r8, 46.005540_r8, & - 62.004940_r8, 1.007400_r8, 1.007400_r8, 1.007400_r8, 1.007400_r8, & - 15.999400_r8, 31.998800_r8, 47.998200_r8, 67.451500_r8, 60.076400_r8, & - 12.011000_r8, 12.011000_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, & - 12.011000_r8, 12.011000_r8, 12.011000_r8, 79.904000_r8, 35.452700_r8, & + adv_mass(:100) = (/ 12.011000_r8, 12.011000_r8, 79.904000_r8, 115.356700_r8, 95.903400_r8, & + 141.908940_r8, 99.716850_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, 50.485900_r8, & + 47.032000_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, 62.132400_r8, & + 135.064039_r8, 135.064039_r8, 135.064039_r8, 18.998403_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, 20.005803_r8, & + 63.012340_r8, 79.011740_r8, 96.910800_r8, 52.459500_r8, 14.006740_r8, & + 44.012880_r8, 108.010480_r8, 58.442468_r8, 58.442468_r8, 58.442468_r8, & + 30.006140_r8, 46.005540_r8, 62.004940_r8, 1.007400_r8, 1.007400_r8, & + 1.007400_r8, 1.007400_r8, 15.999400_r8, 31.998800_r8, 47.998200_r8, & + 67.451500_r8, 60.076400_r8, 12.011000_r8, 12.011000_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, 12.011000_r8, 12.011000_r8, 12.011000_r8, & 0.548567E-03_r8, 33.006200_r8, 14.006740_r8, 28.013480_r8, 30.006140_r8, & 14.006740_r8, 15.999400_r8, 31.998800_r8, 31.998800_r8, 31.998800_r8, & 17.006800_r8, 15.999400_r8, 15.999400_r8, 15.999400_r8, 18.014200_r8 /) crb_mass(:100) = (/ 12.011000_r8, 12.011000_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, & - 24.022000_r8, 24.022000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, & - 12.011000_r8, 12.011000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, & - 12.011000_r8, 12.011000_r8, 12.011000_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, 24.022000_r8, 0.000000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_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, 0.000000_r8, 0.000000_r8, 0.000000_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, 12.011000_r8, & + 12.011000_r8, 12.011000_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, 24.022000_r8, & 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_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, 0.000000_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, 0.000000_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, 0.000000_r8, 0.000000_r8, 0.000000_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, 0.000000_r8, 0.000000_r8, & + 0.000000_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, 0.000000_r8, & + 0.000000_r8, 0.000000_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, & 0.000000_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, 0.000000_r8, & 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8 /) fix_mass(: 2) = (/ 0.00000000_r8, 28.0134800_r8 /) - clsmap(: 23,1) = (/ 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, & - 17, 18, 19, 22, 23, 28, 30, 40, 44, 45, & - 46, 54, 74 /) - clsmap(: 77,4) = (/ 1, 2, 3, 4, 5, 16, 20, 21, 24, 25, & - 26, 27, 29, 31, 32, 33, 34, 35, 36, 37, & - 38, 39, 41, 42, 43, 47, 48, 49, 50, 51, & - 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, & + clsmap(: 23,1) = (/ 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, & + 18, 19, 20, 23, 24, 30, 32, 42, 46, 47, & + 48, 56, 76 /) + clsmap(: 77,4) = (/ 1, 2, 3, 4, 5, 6, 17, 21, 22, 25, & + 26, 27, 28, 29, 31, 33, 34, 35, 36, 37, & + 38, 39, 40, 41, 43, 44, 45, 49, 50, 51, & + 52, 53, 54, 55, 57, 58, 59, 60, 61, 62, & 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 75, 76, 77, 78, 79, 80, 81, 82, 83, & + 73, 74, 75, 77, 78, 79, 80, 81, 82, 83, & 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, & 94, 95, 96, 97, 98, 99, 100 /) - permute(: 77,4) = (/ 1, 2, 29, 71, 40, 68, 62, 35, 26, 21, & - 66, 56, 39, 23, 27, 32, 3, 4, 5, 46, & - 59, 70, 41, 22, 49, 61, 28, 57, 36, 45, & - 47, 54, 31, 6, 7, 8, 76, 75, 63, 9, & - 10, 11, 12, 67, 72, 74, 33, 34, 13, 14, & - 43, 58, 55, 30, 15, 16, 17, 18, 19, 20, & - 60, 65, 52, 64, 53, 42, 44, 48, 69, 24, & + permute(: 77,4) = (/ 1, 2, 60, 29, 75, 39, 76, 62, 35, 65, & + 26, 21, 72, 56, 40, 23, 27, 32, 3, 4, & + 5, 46, 59, 70, 42, 22, 48, 61, 28, 57, & + 36, 45, 47, 54, 31, 6, 7, 8, 71, 66, & + 63, 9, 10, 11, 12, 67, 68, 74, 33, 34, & + 13, 14, 43, 58, 55, 30, 15, 16, 17, 18, & + 19, 20, 52, 64, 53, 41, 44, 49, 69, 24, & 25, 51, 73, 50, 38, 37, 77 /) diag_map(: 77) = (/ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, & 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, & 21, 24, 27, 30, 33, 35, 37, 41, 44, 48, & - 52, 58, 64, 69, 77, 83, 90, 97, 103, 107, & - 115, 122, 131, 138, 144, 153, 162, 170, 178, 189, & + 52, 58, 64, 69, 77, 83, 90, 97, 103, 111, & + 115, 124, 131, 138, 144, 153, 162, 169, 178, 189, & 200, 215, 229, 244, 254, 262, 274, 285, 299, 310, & - 329, 347, 369, 395, 421, 450, 494, 517, 543, 565, & - 592, 624, 662, 685, 714, 738, 764 /) + 329, 347, 369, 395, 421, 450, 494, 526, 552, 574, & + 598, 627, 665, 688, 715, 738, 764 /) extfrc_lst(: 22) = (/ 'so4_a2 ','DMS ','bc_a4 ','num_a1 ','num_a2 ', & 'num_a4 ','pom_a1 ','pom_a4 ','so4_a1 ','CO ', & @@ -145,10 +145,9 @@ subroutine set_sim_dat inv_lst(: 2) = (/ 'M ', 'N2 ' /) - slvd_lst(: 16) = (/ 'BR ', 'CL ', 'e ', 'HO2 ', 'N2D ', & - 'N2p ', 'NOp ', 'Np ', 'O1D ', 'O2_1D ', & - 'O2_1S ', 'O2p ', 'OH ', 'Op ', 'Op2D ', & - 'Op2P ' /) + slvd_lst(: 14) = (/ 'e ', 'HO2 ', 'N2D ', 'N2p ', 'NOp ', & + 'Np ', 'O1D ', 'O2_1D ', 'O2_1S ', 'O2p ', & + 'OH ', 'Op ', 'Op2D ', 'Op2P ' /) if( allocated( rxt_tag_lst ) ) then deallocate( rxt_tag_lst ) @@ -289,15 +288,15 @@ subroutine set_sim_dat 'CH4_OH ', 'CO_OH_M ', & 'O1D_CH4a ', 'O1D_CH4b ', & 'O1D_CH4c ', 'usr_CO_OH_b ', & + 'DMS_NO3 ', 'DMS_OHa ', & 'OCS_O ', 'OCS_OH ', & 'S_O2 ', 'S_O3 ', & 'SO_BRO ', 'SO_CLO ', & 'S_OH ', 'SO_NO2 ', & 'SO_O2 ', 'SO_O3 ', & 'SO_OCLO ', 'SO_OH ', & - 'usr_SO2_OH ', 'usr_SO3_H2O ', & - 'DMS_NO3 ', 'DMS_OHa ', & - 'usr_DMS_OH ', 'usr_HO2_aer ', & + 'usr_DMS_OH ', 'usr_SO2_OH ', & + 'usr_SO3_H2O ', 'usr_HO2_aer ', & 'usr_N2O5_aer ', 'usr_NO2_aer ', & 'usr_NO3_aer ', 'het1 ', & 'het10 ', 'het11 ', & diff --git a/src/chemistry/pp_waccm_mad/chem_mech.doc b/src/chemistry/pp_waccm_mad/chem_mech.doc index 42516cb8de..652bdc4eb0 100644 --- a/src/chemistry/pp_waccm_mad/chem_mech.doc +++ b/src/chemistry/pp_waccm_mad/chem_mech.doc @@ -1,77 +1,77 @@ Solution species - ( 1) BRCL (BrCl) - ( 2) BRO (BrO) - ( 3) BRONO2 (BrONO2) - ( 4) BRY - ( 5) CCL4 (CCl4) - ( 6) CF2CLBR (CF2ClBr) - ( 7) CF3BR (CF3Br) - ( 8) CFC11 (CFCl3) - ( 9) CFC113 (CCl2FCClF2) - ( 10) CFC114 (CClF2CClF2) - ( 11) CFC115 (CClF2CF3) - ( 12) CFC12 (CF2Cl2) - ( 13) CH2BR2 (CH2Br2) - ( 14) CH2O - ( 15) CH3BR (CH3Br) - ( 16) CH3CCL3 (CH3CCl3) - ( 17) CH3CL (CH3Cl) - ( 18) CH3O2 - ( 19) CH3OOH - ( 20) CH4 - ( 21) CHBR3 (CHBr3) - ( 22) CL2 (Cl2) - ( 23) CL2O2 (Cl2O2) - ( 24) CLO (ClO) - ( 25) CLONO2 (ClONO2) - ( 26) CLY - ( 27) CO - ( 28) CO2 - ( 29) COF2 - ( 30) COFCL (COFCl) - ( 31) F - ( 32) H - ( 33) H2 - ( 34) H2402 (CBrF2CBrF2) - ( 35) H2O2 - ( 36) HBR (HBr) - ( 37) HCFC141B (CH3CCl2F) - ( 38) HCFC142B (CH3CClF2) - ( 39) HCFC22 (CHF2Cl) - ( 40) HCL (HCl) - ( 41) HF - ( 42) HNO3 - ( 43) HO2 - ( 44) HO2NO2 - ( 45) HOBR (HOBr) - ( 46) HOCL (HOCl) - ( 47) HONO - ( 48) N - ( 49) N2O - ( 50) N2O5 - ( 51) NO - ( 52) NO2 - ( 53) NO3 - ( 54) O - ( 55) O2 - ( 56) O3 - ( 57) OCLO (OClO) - ( 58) SF6 - ( 59) BR (Br) - ( 60) CL (Cl) - ( 61) CLm (Cl) - ( 62) CLm_H2O (ClH2O) - ( 63) CLm_HCL (Cl2H) - ( 64) CLOm (ClO) - ( 65) CO3m (CO3) - ( 66) CO3m2H2O (H4CO5) - ( 67) CO3m_H2O (H2CO4) - ( 68) CO4m (CO4) - ( 69) e (E) - ( 70) H3Op_OH (H4O2) - ( 71) HCO3m (HCO3) + ( 1) BR (Br) + ( 2) BRCL (BrCl) + ( 3) BRO (BrO) + ( 4) BRONO2 (BrONO2) + ( 5) BRY + ( 6) CCL4 (CCl4) + ( 7) CF2CLBR (CF2ClBr) + ( 8) CF3BR (CF3Br) + ( 9) CFC11 (CFCl3) + ( 10) CFC113 (CCl2FCClF2) + ( 11) CFC114 (CClF2CClF2) + ( 12) CFC115 (CClF2CF3) + ( 13) CFC12 (CF2Cl2) + ( 14) CH2BR2 (CH2Br2) + ( 15) CH2O + ( 16) CH3BR (CH3Br) + ( 17) CH3CCL3 (CH3CCl3) + ( 18) CH3CL (CH3Cl) + ( 19) CH3O2 + ( 20) CH3OOH + ( 21) CH4 + ( 22) CHBR3 (CHBr3) + ( 23) CL (Cl) + ( 24) CL2 (Cl2) + ( 25) CL2O2 (Cl2O2) + ( 26) CLO (ClO) + ( 27) CLONO2 (ClONO2) + ( 28) CLY + ( 29) CO + ( 30) CO2 + ( 31) COF2 + ( 32) COFCL (COFCl) + ( 33) F + ( 34) H + ( 35) H2 + ( 36) H2402 (CBrF2CBrF2) + ( 37) H2O2 + ( 38) HBR (HBr) + ( 39) HCFC141B (CH3CCl2F) + ( 40) HCFC142B (CH3CClF2) + ( 41) HCFC22 (CHF2Cl) + ( 42) HCL (HCl) + ( 43) HF + ( 44) HNO3 + ( 45) HO2NO2 + ( 46) HOBR (HOBr) + ( 47) HOCL (HOCl) + ( 48) HONO + ( 49) N + ( 50) N2O + ( 51) N2O5 + ( 52) NO + ( 53) NO2 + ( 54) NO3 + ( 55) O + ( 56) O2 + ( 57) O3 + ( 58) OCLO (OClO) + ( 59) SF6 + ( 60) CLm (Cl) + ( 61) CLm_H2O (ClH2O) + ( 62) CLm_HCL (Cl2H) + ( 63) CLOm (ClO) + ( 64) CO3m (CO3) + ( 65) CO3m2H2O (H4CO5) + ( 66) CO3m_H2O (H2CO4) + ( 67) CO4m (CO4) + ( 68) e (E) + ( 69) H3Op_OH (H4O2) + ( 70) HCO3m (HCO3) + ( 71) HO2 ( 72) Hp_2H2O (H5O2) ( 73) Hp_3H2O (H7O3) ( 74) Hp_3N1 (H8NO6) @@ -142,38 +142,39 @@ Class List ( 14) CH4 ( 15) CHBR3 ( 16) CLY - ( 17) H2402 - ( 18) HCFC141B - ( 19) HCFC142B - ( 20) HCFC22 - ( 21) N2O - ( 22) SF6 + ( 17) CO2 + ( 18) H2402 + ( 19) HCFC141B + ( 20) HCFC142B + ( 21) HCFC22 + ( 22) N2O + ( 23) SF6 Implicit -------- - ( 1) BRCL - ( 2) BRO - ( 3) BRONO2 - ( 4) CH2O - ( 5) CH3O2 - ( 6) CH3OOH - ( 7) CL2 - ( 8) CL2O2 - ( 9) CLO - ( 10) CLONO2 - ( 11) CO - ( 12) COF2 - ( 13) COFCL - ( 14) CO2 - ( 15) F - ( 16) H - ( 17) H2 - ( 18) H2O2 - ( 19) HBR - ( 20) HCL - ( 21) HF - ( 22) HNO3 - ( 23) HO2 + ( 1) BR + ( 2) BRCL + ( 3) BRO + ( 4) BRONO2 + ( 5) CH2O + ( 6) CH3O2 + ( 7) CH3OOH + ( 8) CL + ( 9) CL2 + ( 10) CL2O2 + ( 11) CLO + ( 12) CLONO2 + ( 13) CO + ( 14) COF2 + ( 15) COFCL + ( 16) F + ( 17) H + ( 18) H2 + ( 19) H2O2 + ( 20) HBR + ( 21) HCL + ( 22) HF + ( 23) HNO3 ( 24) HO2NO2 ( 25) HOBR ( 26) HOCL @@ -187,58 +188,57 @@ Class List ( 34) O2 ( 35) O3 ( 36) OCLO - ( 37) BR - ( 38) CL - ( 39) CLm - ( 40) CLm_H2O - ( 41) CLm_HCL - ( 42) CLOm - ( 43) CO3m - ( 44) CO3m2H2O - ( 45) CO3m_H2O - ( 46) CO4m - ( 47) e - ( 48) H3Op_OH - ( 49) HCO3m - ( 50) Hp_2H2O - ( 51) Hp_3H2O - ( 52) Hp_3N1 - ( 53) Hp_4H2O - ( 54) Hp_4N1 - ( 55) Hp_5H2O - ( 56) Hp_H2O - ( 57) N2D - ( 58) N2p - ( 59) NO2m - ( 60) NO2m_H2O - ( 61) NO3m - ( 62) NO3m2H2O - ( 63) NO3m_H2O - ( 64) NO3m_HCL - ( 65) NO3mHNO3 - ( 66) NOp - ( 67) NOp_2H2O - ( 68) NOp_3H2O - ( 69) NOp_CO2 - ( 70) NOp_H2O - ( 71) NOp_N2 - ( 72) Np - ( 73) O1D - ( 74) O2_1D - ( 75) O2_1S - ( 76) O2m - ( 77) O2p - ( 78) O2p_H2O - ( 79) O3m - ( 80) O4m - ( 81) O4p - ( 82) OH - ( 83) OHm - ( 84) Om - ( 85) Op - ( 86) Op2D - ( 87) Op2P - ( 88) H2O + ( 37) CLm + ( 38) CLm_H2O + ( 39) CLm_HCL + ( 40) CLOm + ( 41) CO3m + ( 42) CO3m2H2O + ( 43) CO3m_H2O + ( 44) CO4m + ( 45) e + ( 46) H3Op_OH + ( 47) HCO3m + ( 48) HO2 + ( 49) Hp_2H2O + ( 50) Hp_3H2O + ( 51) Hp_3N1 + ( 52) Hp_4H2O + ( 53) Hp_4N1 + ( 54) Hp_5H2O + ( 55) Hp_H2O + ( 56) N2D + ( 57) N2p + ( 58) NO2m + ( 59) NO2m_H2O + ( 60) NO3m + ( 61) NO3m2H2O + ( 62) NO3m_H2O + ( 63) NO3m_HCL + ( 64) NO3mHNO3 + ( 65) NOp + ( 66) NOp_2H2O + ( 67) NOp_3H2O + ( 68) NOp_CO2 + ( 69) NOp_H2O + ( 70) NOp_N2 + ( 71) Np + ( 72) O1D + ( 73) O2_1D + ( 74) O2_1S + ( 75) O2m + ( 76) O2p + ( 77) O2p_H2O + ( 78) O3m + ( 79) O4m + ( 80) O4p + ( 81) OH + ( 82) OHm + ( 83) Om + ( 84) Op + ( 85) Op2D + ( 86) Op2P + ( 87) H2O Photolysis jh2o_b ( 1) H2O + hv -> H2 + O1D rate = ** User defined ** ( 1) @@ -871,6 +871,13 @@ Extraneous prod/loss species Equation Report + 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 + - r382*CH2O*BR - r383*HO2*BR - r384*O3*BR d(BRCL)/dt = r388*BRO*CLO + r450*HOBR*HCL + r455*HOBR*HCL - j27*BRCL d(BRO)/dt = j29*BRONO2 + r384*BR*O3 + r392*BRONO2*O + r397*HOBR*O + r402*O1D*HBR @@ -903,6 +910,23 @@ Extraneous prod/loss species d(CH4)/dt = - j24*CH4 - j25*CH4 - r347*CL*CH4 - r403*F*CH4 - r432*OH*CH4 - r434*O1D*CH4 - r435*O1D*CH4 - r436*O1D*CH4 d(CHBR3)/dt = - j43*CHBR3 - r399*O1D*CHBR3 - r416*CL*CHBR3 - r417*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 + + r7*CLOm*NO + r43*CLm*Hp_4H2O + r50*CLm*O2p + r55*O2p*CLm_H2O + r60*CLm_H2O*Hp_4H2O + + r65*CLm_HCL*Hp_5H2O + r73*CLm*Hp_5H2O + r77*CLm_HCL*Hp_4H2O + r78*CLm_H2O*Hp_5H2O + + 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 + - 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 + r443*HOCL*HCL + r448*CLONO2*HCL + r449*HOCL*HCL + r453*CLONO2*HCL + r454*HOCL*HCL + r458*CLONO2*HCL - j44*CL2 @@ -1003,14 +1027,6 @@ Extraneous prod/loss species - 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(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 + r433*M*CO*OH + r435*O1D*CH4 - - r438*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(HO2NO2)/dt = r340*M*NO2*HO2 - j10*HO2NO2 - j11*HO2NO2 - r344*M*HO2NO2 - r319*OH*HO2NO2 d(HOBR)/dt = r444*BRONO2 + r447*BRONO2 + r452*BRONO2 + r389*BRO*HO2 @@ -1120,30 +1136,6 @@ Extraneous prod/loss species d(OCLO)/dt = r356*CLO*CLO + r386*BRO*CLO - j60*OCLO d(SF6)/dt = - j61*SF6 - 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 - - r382*CH2O*BR - r383*HO2*BR - r384*O3*BR - 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 - + r7*CLOm*NO + r43*CLm*Hp_4H2O + r50*CLm*O2p + r55*O2p*CLm_H2O + r60*CLm_H2O*Hp_4H2O - + r65*CLm_HCL*Hp_5H2O + r73*CLm*Hp_5H2O + r77*CLm_HCL*Hp_4H2O + r78*CLm_H2O*Hp_5H2O - + 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 - - 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(CLm)/dt = r281*M*CLm_H2O + r282*M*CLm_HCL + r8*CLOm*NO + r9*CLOm*O + r10*CL*CO3m + r12*CLO*CO3m + r23*CL*CO4m + r26*CO4m*HCL + r181*CL*NO2m + r182*CLO*NO2m + r185*HCL*NO2m + r194*HCL*NO3m + r210*O2m*CL + r214*O2m*HCL + r237*CL*OHm + r241*OHm*HCL + r246*Om*CL + r247*CLO*Om @@ -1194,6 +1186,14 @@ Extraneous prod/loss species 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 + r433*M*CO*OH + r435*O1D*CH4 + - r438*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(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 diff --git a/src/chemistry/pp_waccm_mad/chem_mech.in b/src/chemistry/pp_waccm_mad/chem_mech.in index 5b4858565a..30579fbf1f 100644 --- a/src/chemistry/pp_waccm_mad/chem_mech.in +++ b/src/chemistry/pp_waccm_mad/chem_mech.in @@ -1,15 +1,16 @@ * Comments -* User-given Tag Description: MAD_1 -* Tag database identifier : MZ257_MAD_20190128 -* Tag created by : ajc +* User-given Tag Description: WACCM_MAD +* Tag database identifier : MZ281_MAD_20210122 +* Tag created by : lke * Tag created from branch : MAD -* Tag created on : 2019-01-28 16:00:59.18623-07 +* Tag created on : 2021-01-22 15:25:08.160159-07 * Comments for this tag follow: -* ajc : 2019-01-28 : Add ion_Op_N2D +* lke : 2021-01-22 : Middle Atmosphere and D-Region mechanism for WACCM, no aerosols, with BR, CL transported SPECIES Solution + BR -> Br, BRCL -> BrCl, BRO -> BrO, BRONO2 -> BrONO2, @@ -31,6 +32,7 @@ CH3OOH, CH4, CHBR3 -> CHBr3, + CL -> Cl, CL2 -> Cl2, CL2O2 -> Cl2O2, CLO -> ClO, @@ -52,7 +54,6 @@ HCL -> HCl, HF, HNO3, - HO2, HO2NO2, HOBR -> HOBr, HOCL -> HOCl, @@ -68,8 +69,6 @@ O3, OCLO -> OClO, SF6, - BR -> Br, - CL -> Cl, CLm -> Cl, CLm_H2O -> ClH2O, CLm_HCL -> Cl2H, @@ -81,6 +80,7 @@ e -> E, H3Op_OH -> H4O2, HCO3m -> HCO3, + HO2, Hp_2H2O -> H5O2, Hp_3H2O -> H7O3, Hp_3N1 -> H8NO6, @@ -134,8 +134,6 @@ End Col-int Not-Transported - BR, - CL, CLm, CLm_H2O, CLm_HCL, @@ -147,6 +145,7 @@ e, H3Op_OH, HCO3m, + HO2, Hp_2H2O, Hp_3H2O, Hp_3N1, @@ -208,6 +207,7 @@ CH4 CHBR3 CLY + CO2 H2402 HCFC141B HCFC142B @@ -217,12 +217,14 @@ End Explicit Implicit + BR BRCL BRO BRONO2 CH2O CH3O2 CH3OOH + CL CL2 CL2O2 CLO @@ -230,7 +232,6 @@ CO COF2 COFCL - CO2 F H H2 @@ -239,7 +240,6 @@ HCL HF HNO3 - HO2 HO2NO2 HOBR HOCL @@ -253,8 +253,6 @@ O2 O3 OCLO - BR - CL CLm CLm_H2O CLm_HCL @@ -266,6 +264,7 @@ e H3Op_OH HCO3m + HO2 Hp_2H2O Hp_3H2O Hp_3N1 @@ -315,657 +314,657 @@ ********************************* *** odd-oxygen ********************************* -[jh2o_b] H2O + hv -> H2 + O1D -[jh2o_c] H2O + hv -> 2*H + O -[jh2o_a] H2O + hv -> OH + H -[jh2o2] H2O2 + hv -> 2*OH -[jo2_b=userdefined,] O2 + hv -> 2*O -[jo2_a=userdefined,] O2 + hv -> O + O1D -[jo3_a] O3 + hv -> O1D + O2_1D -[jo3_b] O3 + hv -> O + O2 +[jh2o_b] H2O + hv -> H2 + O1D +[jh2o_c] H2O + hv -> 2*H + O +[jh2o_a] H2O + hv -> OH + H +[jh2o2] H2O2 + hv -> 2*OH +[jo2_b=userdefined,] O2 + hv -> 2*O +[jo2_a=userdefined,] O2 + hv -> O + O1D +[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 -[jhono] HONO + hv -> NO + OH -[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 +[jhono] HONO + hv -> NO + OH +[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 ********************************* -[jch2o_a] CH2O + hv -> CO + 2*H -[jch2o_b] CH2O + hv -> CO + H2 -[jch3ooh] CH3OOH + hv -> CH2O + H + OH -[jch4_a] CH4 + hv -> H + CH3O2 -[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 -[jco2] CO2 + hv -> CO + O +[jch2o_a] CH2O + hv -> CO + 2*H +[jch2o_b] CH2O + hv -> CO + H2 +[jch3ooh] CH3OOH + hv -> CH2O + H + OH +[jch4_a] CH4 + hv -> H + CH3O2 +[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 +[jco2] CO2 + hv -> CO + O ********************************* *** 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 -[jpni3=userdefined] CO3m + hv -> CO2 + Om -[jpni5=userdefined] CO3m_H2O + hv -> CO3m + H2O -[jpni4=userdefined] CO4m + hv -> CO2 + O2m -[jeuv_4=userdefined,userdefined] N + hv -> Np + e -[jeuv_25=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N -[jeuv_18=userdefined,userdefined] N2 + hv -> N2p + e -[jeuv_13=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N -[jeuv_23=userdefined,userdefined] N2 + hv -> N2D + Np + e -[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 -[jepn6=userdefined] NO2m + hv -> NO2 + e -[jepn7=userdefined] NO3m + hv -> NO3 + e -[jeuv_16=userdefined,userdefined] O + hv -> Op2P + e -[jeuv_1=userdefined,userdefined] O + hv -> Op + e -[jeuv_14=userdefined,userdefined] O + hv -> Op + e -[jeuv_15=userdefined,userdefined] O + hv -> Op2D + e -[jeuv_2=userdefined,userdefined] O + hv -> Op2D + e -[jeuv_3=userdefined,userdefined] O + hv -> Op2P + e -[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op2P + e -[jeuv_24=userdefined,userdefined] O2 + hv -> 2*O -[jeuv_19=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_5=userdefined,userdefined] O2 + hv -> O2p + e -[jeuv_7=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_17=userdefined,userdefined] O2 + hv -> O2p + e -[jeuv_12=userdefined,userdefined] O2 + hv -> 2*O -[jeuv_20=userdefined,userdefined] O2 + hv -> O + Op2D + e -[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op2D + e -[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op2P + e -[jepn2=userdefined] O2m + hv -> O2 + e -[jppi=userdefined] O2p_H2O + hv -> H2O + O2p -[jpni1=userdefined] O3m + hv -> O2 + Om -[jepn3=userdefined] O3m + hv -> O3 + e -[jpni2=userdefined] O4m + hv -> O2 + O2m -[jepn4=userdefined] OHm + hv -> OH + e -[jepn1=userdefined] Om + hv -> O + e +[jeuv_26=userdefined,userdefined] CO2 + hv -> CO + O +[jpni3=userdefined] CO3m + hv -> CO2 + Om +[jpni5=userdefined] CO3m_H2O + hv -> CO3m + H2O +[jpni4=userdefined] CO4m + hv -> CO2 + O2m +[jeuv_4=userdefined,userdefined] N + hv -> Np + e +[jeuv_25=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N +[jeuv_18=userdefined,userdefined] N2 + hv -> N2p + e +[jeuv_13=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N +[jeuv_23=userdefined,userdefined] N2 + hv -> N2D + Np + e +[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 +[jepn6=userdefined] NO2m + hv -> NO2 + e +[jepn7=userdefined] NO3m + hv -> NO3 + e +[jeuv_16=userdefined,userdefined] O + hv -> Op2P + e +[jeuv_1=userdefined,userdefined] O + hv -> Op + e +[jeuv_14=userdefined,userdefined] O + hv -> Op + e +[jeuv_15=userdefined,userdefined] O + hv -> Op2D + e +[jeuv_2=userdefined,userdefined] O + hv -> Op2D + e +[jeuv_3=userdefined,userdefined] O + hv -> Op2P + e +[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op2P + e +[jeuv_24=userdefined,userdefined] O2 + hv -> 2*O +[jeuv_19=userdefined,userdefined] O2 + hv -> O + Op + e +[jeuv_5=userdefined,userdefined] O2 + hv -> O2p + e +[jeuv_7=userdefined,userdefined] O2 + hv -> O + Op + e +[jeuv_17=userdefined,userdefined] O2 + hv -> O2p + e +[jeuv_12=userdefined,userdefined] O2 + hv -> 2*O +[jeuv_20=userdefined,userdefined] O2 + hv -> O + Op2D + e +[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op2D + e +[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op2P + e +[jepn2=userdefined] O2m + hv -> O2 + e +[jppi=userdefined] O2p_H2O + hv -> H2O + O2p +[jpni1=userdefined] O3m + hv -> O2 + Om +[jepn3=userdefined] O3m + hv -> O3 + e +[jpni2=userdefined] O4m + hv -> O2 + O2m +[jepn4=userdefined] OHm + hv -> OH + e +[jepn1=userdefined] Om + hv -> O + e End Photolysis Reactions ********************************* *** Not Assigned to a Section ********************************* -[CLm_H] CLm + H -> HCL + e ; 9.6e-10 -[CLmH2O_HCL] CLm_H2O + HCL -> CLm_HCL + H2O ; 1.3e-09 -[CLm_H2O_Ma] CLm + H2O + M -> CLm_H2O + M ; 2e-29 -[CLmHCL_M] HCL + M + CLm -> CLm_HCL + M ; 1e-27 -[CLm_HNO3] CLm + HNO3 -> HCL + NO3m ; 1.6e-09 -[CLm_NO2] CLm + NO2 -> CL + NO2m ; 6e-12 -[CLOm_NOa] CLOm + NO -> CL + NO2m ; 2.9e-12 -[CLOm_NOb] CLOm + NO -> NO2 + CLm ; 2.9e-11 -[CLOm_O] CLOm + O -> CLm + O2 ; 2e-10 -[CO3m_CLa] CL + CO3m -> CLm + CO2 + O ; 1e-10 -[CO3m_CLb] CL + CO3m -> CLOm + CO2 ; 1e-10 -[CO3m_CLO] CLO + CO3m -> CLm + CO2 + O2 ; 1e-11 -[CO3m_H] H + CO3m -> CO2 + OHm ; 1.7e-10 -[CO3mH2O_H2O_M] CO3m_H2O + H2O + M -> CO3m2H2O + M ; 1e-28 -[CO3m_H2O_M] CO3m + H2O + M -> CO3m_H2O + M ; 1e-28 -[CO3mH2O_NO2a] CO3m_H2O + NO2 -> CO2 + H2O + NO3m ; 4e-11 -[CO3mH2O_NO2b] CO3m_H2O + NO2 -> CO2 + NO3m_H2O ; 4e-11 -[CO3mH2O_NOa] CO3m_H2O + NO -> CO2 + NO2m_H2O ; 3.5e-12 -[CO3mH2O_NOb] CO3m_H2O + NO -> CO2 + H2O + NO2m ; 3.5e-12 -[CO3m_HNO3] CO3m + HNO3 -> CO2 + NO3m + OH ; 3.51e-10 -[CO3m_O] CO3m + O -> CO2 + O2m ; 1.1e-10 -[CO3m_O2] O2 + CO3m -> CO2 + O3m ; 6e-15 -[CO4m_CL] CL + CO4m -> CLm + CO2 + O2 ; 1e-10 -[CO4m_CLO] CLO + CO4m -> CLOm + CO2 + O2 ; 1e-10 -[CO4m_H] CO4m + H -> CO3m + OH ; 2.2e-10 -[CO4m_HCL] CO4m + HCL -> CLm + CO2 + HO2 ; 1.2e-09 -[CO4m_O] CO4m + O -> CO3m + O2 ; 1.4e-10 -[CO4m_O3] CO4m + O3 -> CO2 + O2 + O3m ; 1.3e-10 -[ean1] e + O2 + N2 -> N2 + O2m -[ean2] O3 + e -> O2 + Om -[ean3] M + O2 + e -> M + O2m -[edn1] NO + Om -> e + NO2 -[edn2] N2 + O2m -> e + O2 + N2 -[H3OpOH_e] H3Op_OH + e -> H + H2O + OH ; 1.5e-06 -[H3OpOH_H2O] H2O + H3Op_OH -> Hp_2H2O + OH ; 2e-09 -[Hp3N1_H2O] H2O + Hp_3N1 -> HNO3 + Hp_4H2O ; 1e-09 -[Hp4H2O_e] Hp_4H2O + e -> H + 4*H2O ; 3.6e-06 -[Hp4H2O_N2O5] Hp_4H2O + N2O5 -> HNO3 + Hp_3N1 ; 4e-12 -[Hp4N1_H2O] H2O + Hp_4N1 -> HNO3 + Hp_5H2O ; 1e-09 -[Hp5H2O_e] Hp_5H2O + e -> H + 5*H2O ; 5e-06 -[Hp5H2O_N2O5] Hp_5H2O + N2O5 -> HNO3 + Hp_4N1 ; 7e-12 -[iira1] Hp_4H2O + NO3mHNO3 -> 4*H2O + 2*HNO3 -[iira10] CLm + Hp_4H2O -> CL + H + 4*H2O -[iira100] NO3m + O2p -> NO3 + O2 -[iira101] HCO3m + O2p -> CO2 + O2 + OH -[iira102] O2m + O2p -> 2*O2p -[iira103] CO4m + O2p -> CO2 + O2 + O2 -[iira104] NO3m_H2O + O2p -> H2O + NO3 + O2 -[iira105] CO3m2H2O + O2p -> CO2 + 2*H2O + O + O2 -[iira106] CLm + O2p -> CL + O2 -[iira107] CO3m_H2O + O2p -> H2O + O + O2 + CO2 -[iira108] NO2m_H2O + O2p -> H2O + NO2 + O2 -[iira109] NO3m_HCL + O2p -> HCL + NO3 + O2 -[iira11] CO3m_H2O + Hp_4H2O -> CO2 + 5*H2O + O + H -[iira110] O2p + CLm_H2O -> CL + H2O + O2 -[iira111] NO3m2H2O + O2p -> 2*H2O + NO3 + O2 -[iira112] NO2m + O2p -> NO2 + O2 -[iira12] Hp_4H2O + NO2m_H2O -> H + 5*H2O + NO2 -[iira13] Hp_4H2O + NO3m_HCL -> H + 4*H2O + NO3 + HCL -[iira14] CLm_H2O + Hp_4H2O -> H + CL + 5*H2O -[iira15] NO3m2H2O + Hp_4H2O -> H + 6*H2O + NO3 -[iira16] Hp_4H2O + NO2m -> H + NO2 + 4*H2O -[iira17] Hp_5H2O + NO3mHNO3 -> 5*H2O + 2*HNO3 -[iira18] CO3m + Hp_5H2O -> CO2 + 5*H2O + O + H -[iira19] CLm_HCL + Hp_5H2O -> CL + H + 5*H2O + HCL -[iira2] CO3m + Hp_4H2O -> CO2 + H + 4*H2O + O -[iira20] NO3m + Hp_5H2O -> 5*H2O + HNO3 -[iira21] HCO3m + Hp_5H2O -> CO2 + H + 5*H2O + OH -[iira22] Hp_5H2O + O2m -> H + 5*H2O + O2 -[iira23] CO4m + Hp_5H2O -> CO2 + 5*H2O + O2 + H -[iira24] Hp_5H2O + NO3m_H2O -> H + 6*H2O + NO3 -[iira25] CO3m2H2O + Hp_5H2O -> H + CO2 + 7*H2O + O -[iira26] CLm + Hp_5H2O -> CL + H + 5*H2O -[iira27] CO3m_H2O + Hp_5H2O -> CO2 + H + 6*H2O + O -[iira28] NO2m_H2O + Hp_5H2O -> H + 6*H2O + NO2 -[iira29] Hp_5H2O + NO3m_HCL -> H + 5*H2O + HCL + NO3 -[iira3] CLm_HCL + Hp_4H2O -> CL + H + HCL + 4*H2O -[iira30] CLm_H2O + Hp_5H2O -> CL + H + 6*H2O -[iira31] Hp_5H2O + NO3m2H2O -> H + 7*H2O + NO3 -[iira32] Hp_5H2O + NO2m -> 5*H2O + NO2 + H -[iira33] Hp_3H2O + NO3mHNO3 -> 3*H2O + 2*HNO3 -[iira34] Hp_3H2O + CO3m -> CO2 + H + 3*H2O + O -[iira35] CLm_HCL + Hp_3H2O -> CL + H + 3*H2O + HCL -[iira36] Hp_3H2O + NO3m -> 3*H2O + HNO3 -[iira37] HCO3m + Hp_3H2O -> CO2 + H + 3*H2O + OH -[iira38] Hp_3H2O + O2m -> H + 3*H2O + O2 -[iira39] CO4m + Hp_3H2O -> CO2 + H + 3*H2O + O2 -[iira4] Hp_4H2O + NO3m -> 4*H2O + HNO3 -[iira40] Hp_3H2O + NO3m_H2O -> H + 4*H2O + NO3 -[iira41] CO3m2H2O + Hp_3H2O -> CO2 + H + 5*H2O + O -[iira42] CLm + Hp_3H2O -> CL + H + 3*H2O -[iira43] CO3m_H2O + Hp_3H2O -> CO2 + H + O + 4*H2O -[iira44] Hp_3H2O + NO2m_H2O -> H + 4*H2O + NO2 -[iira45] Hp_3H2O + NO3m_HCL -> H + 3*H2O + HCL + NO3 -[iira46] CLm_H2O + Hp_3H2O -> H + 4*H2O + CL -[iira47] Hp_3H2O + NO3m2H2O -> H + 5*H2O + NO3 -[iira48] Hp_3H2O + NO2m -> H + 3*H2O + NO2 -[iira49] NO3mHNO3 + NOp_H2O -> H2O + HNO3 + NO + NO3 -[iira5] HCO3m + Hp_4H2O -> CO2 + H + 4*H2O + OH -[iira50] CO3m + NOp_H2O -> CO2 + H2O + NO + O -[iira51] CLm_HCL + NOp_H2O -> CL + NO + H2O + HCL -[iira52] NO3m + NOp_H2O -> H2O + NO + NO3 -[iira53] HCO3m + NOp_H2O -> OH + CO2 + H2O + NO -[iira54] NOp_H2O + O2m -> H2O + NO + O2 -[iira55] CO4m + NOp_H2O -> O2 + NO + CO2 + H2O -[iira56] NO3m_H2O + NOp_H2O -> 2*H2O + NO + NO3 -[iira57] CO3m2H2O + NOp_H2O -> CO2 + 3*H2O + NO + O -[iira58] CLm + NOp_H2O -> CL + H2O + NO -[iira59] CO3m_H2O + NOp_H2O -> O + CO2 + 2*H2O + NO -[iira6] Hp_4H2O + O2m -> O2 + H + 4*H2O -[iira60] NO2m_H2O + NOp_H2O -> NO + 2*H2O + NO2 -[iira61] NO3m_HCL + NOp_H2O -> H2O + NO + NO3 + HCL -[iira62] CLm_H2O + NOp_H2O -> CL + 2*H2O + NO -[iira63] NO3m2H2O + NOp_H2O -> NO + NO3 + 3*H2O -[iira64] NO2m + NOp_H2O -> NO + H2O + NO2 -[iira65] NO3mHNO3 + NOp_2H2O -> 2*H2O + NO3 + HNO3 + NO -[iira66] CO3m + NOp_2H2O -> 2*H2O + NO + CO2 + O -[iira67] CLm_HCL + NOp_2H2O -> NO + CL + 2*H2O + HCL -[iira68] NOp_2H2O + NO3m -> NO + 2*H2O + NO3 -[iira69] HCO3m + NOp_2H2O -> 2*H2O + OH + NO + CO2 -[iira7] CO4m + Hp_4H2O -> 4*H2O + H + CO2 + O2 -[iira70] NOp_2H2O + O2m -> 2*H2O + NO + O2 -[iira71] NOp_2H2O + CO4m -> O2 + 2*H2O + NO + CO2 -[iira72] NO3m_H2O + NOp_2H2O -> 3*H2O + NO3 + NO -[iira73] CO3m2H2O + NOp_2H2O -> O + CO2 + 4*H2O + NO -[iira74] CLm + NOp_2H2O -> 2*H2O + NO + CL -[iira75] CO3m_H2O + NOp_2H2O -> 3*H2O + CO2 + NO + O -[iira76] NOp_2H2O + NO2m_H2O -> 3*H2O + NO + NO2 -[iira77] NO3m_HCL + NOp_2H2O -> NO + HCL + 2*H2O + NO3 -[iira78] NOp_2H2O + CLm_H2O -> NO + 3*H2O + CL -[iira79] NOp_2H2O + NO3m2H2O -> NO + NO3 + 4*H2O -[iira8] Hp_4H2O + NO3m_H2O -> H + 5*H2O + NO3 -[iira80] NOp_2H2O + NO2m -> 2*H2O + NO2 + NO -[iira81] NOp + NO3mHNO3 -> NO + HNO3 + NO3 -[iira82] NOp + CO3m -> CO2 + NO + O -[iira83] NOp + CLm_HCL -> CL + HCL + NO -[iira84] NO3m + NOp -> NO3 + NO -[iira85] NOp + HCO3m -> NO + CO2 + OH -[iira86] O2m + NOp -> NO + O2 -[iira87] NOp + CO4m -> CO2 + NO + O2 -[iira88] NOp + NO3m_H2O -> H2O + NO + NO3 -[iira89] NOp + CO3m2H2O -> NO + O + CO2 + 2*H2O -[iira9] CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + O + H -[iira90] CLm + NOp -> CL + NO -[iira91] CO3m_H2O + NOp -> H2O + NO + O + CO2 -[iira92] NO2m_H2O + NOp -> NO + NO2 + H2O -[iira93] NO3m_HCL + NOp -> NO + HCL + NO3 -[iira94] CLm_H2O + NOp -> CL + NO + H2O -[iira95] NOp + NO3m2H2O -> 2*H2O + NO + NO3 -[iira96] NOp + NO2m -> NO2 + NO -[iira97] NO3mHNO3 + O2p -> O2 + NO3 + HNO3 -[iira98] O2p + CO3m -> O + O2 + CO2 -[iira99] O2p + CLm_HCL -> O2 + HCL + CL -[iirb1] Hp_4H2O + CO3m + M -> 4*H2O + O + CO2 + H + M -[iirb10] Hp_5H2O + M + CO3m2H2O -> H + 7*H2O + M + CO2 + O -[iirb11] M + CO3m_H2O + Hp_4H2O -> 5*H2O + M + H + CO2 + O -[iirb12] Hp_5H2O + M + CO3m_H2O -> CO2 + M + O + H + 6*H2O -[iirb13] NO3m_H2O + Hp_4H2O + M -> M + NO3 + H + 5*H2O -[iirb14] NO3m_H2O + Hp_5H2O + M -> M + NO3 + H + 6*H2O -[iirb2] NO3m + M + Hp_4H2O -> 4*H2O + HNO3 + M -[iirb3] Hp_5H2O + M + CO3m -> 5*H2O + M + CO2 + O + H -[iirb4] Hp_5H2O + NO3m + M -> M + HNO3 + 5*H2O -[iirb5] M + CLm_HCL + Hp_4H2O -> M + 2*HCL + 4*H2O -[iirb6] M + Hp_5H2O + CLm_HCL -> M + 5*H2O + 2*HCL -[iirb7] NO3mHNO3 + M + Hp_4H2O -> 4*H2O + M + 2*HNO3 -[iirb8] Hp_5H2O + M + NO3mHNO3 -> M + 5*H2O + 2*HNO3 -[iirb9] M + CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + H + M + O -[nir1] NO + O3m -> O + NO3m -[nir10] NO2m_H2O + M -> H2O + NO2m + M -[nir11] NO3m2H2O + M -> M + NO3m_H2O + H2O -[nir12] NO3mHNO3 + M -> NO3m + HNO3 + M -[nir13] HCL + M + NO3m -> NO3m_HCL + M -[nir2] NO2 + O3m -> NO3m + O2 -[nir3] NO2 + O3m -> NO2m + O3 -[nir4] NO + O3m -> NO2m + O2 -[nir5] CO3m + NO -> CO2 + NO2m -[nir6] CO3m + NO2 -> NO3m + CO2 -[nir7] M + NO3m_H2O -> M + H2O + NO3m -[nir8] CO3m_H2O + M -> CO3m + M + H2O -[nir9] CO3m2H2O + M -> CO3m_H2O + H2O + M -[NO2m_CL] CL + NO2m -> CLm + NO2 ; 1e-10 -[NO2m_CLO] CLO + NO2m -> CLm + NO3 ; 1e-10 -[NO2m_H] H + NO2m -> NO + OHm ; 3e-10 -[NO2m_H2O_M] NO2m + H2O + M -> M + NO2m_H2O ; 1.6e-28 -[NO2m_HCL] HCL + NO2m -> CLm + HONO ; 1.4e-09 -[NO2m_HNO3] HNO3 + NO2m -> NO3m + HONO ; 1.6e-09 -[NO2m_NO2] NO2 + NO2m -> NO + NO3m ; 2e-13 -[NO2m_O3] NO2m + O3 -> NO3m + O2 ; 1.2e-10 -[NO3m2H2O_N2O5] NO3m2H2O + N2O5 -> H2O + HNO3 + NO3mHNO3 ; 7e-10 -[NO3mH2O_H2O_M] NO3m_H2O + H2O + M -> M + NO3m2H2O ; 1.6e-28 -[NO3mH2O_HNO3] HNO3 + NO3m_H2O -> H2O + NO3mHNO3 ; 1.6e-09 -[NO3m_H2O_M] H2O + M + NO3m -> M + NO3m_H2O ; 1.6e-28 -[NO3mH2O_N2O5] NO3m_H2O + N2O5 -> HNO3 + NO3mHNO3 ; 7e-10 -[NO3m_HCLa] HCL + NO3m -> CLm + HNO3 ; 1e-12 -[NO3mHCL_HNO3] HNO3 + NO3m_HCL -> HCL + NO3mHNO3 ; 7.6e-10 -[NO3m_HNO3_M] NO3m + HNO3 + M -> M + NO3mHNO3 ; 1.45e-26 -[NO3m_O] NO3m + O -> NO2m + O2 ; 5e-12 -[NO3m_O3] O3 + NO3m -> NO2m + 2*O2 ; 1e-13 -[NOp2H2O_e] NOp_2H2O + e -> 2*H2O + NO ; 2e-06 -[NOp3H2O_e] NOp_3H2O + e -> 3*H2O + NO ; 2e-06 -[NOp3H2O_H2O] H2O + NOp_3H2O -> HONO + Hp_3H2O ; 7e-11 -[NOpCO2_e] NOp_CO2 + e -> CO2 + NO ; 1.5e-06 -[NOpCO2_H2O] NOp_CO2 + H2O -> CO2 + NOp_H2O ; 1e-09 -[NOpH2O_e] NOp_H2O + e -> H2O + NO ; 1.5e-06 -[NOpH2O_H] H + NOp_H2O -> NO + Hp_H2O ; 7e-12 -[NOpH2O_HO2] NOp_H2O + HO2 -> Hp_H2O + NO3 ; 5e-10 -[NOpH2O_OH] NOp_H2O + OH -> Hp_H2O + NO2 ; 1e-10 -[NOpN2_CO2] CO2 + NOp_N2 -> N2 + NOp_CO2 ; 1e-09 -[NOpN2_H2O] NOp_N2 + H2O -> N2 + NOp_H2O ; 1e-09 -[O2m_CL] O2m + CL -> CLm + O2 ; 1e-10 -[O2m_CLO] CLO + O2m -> CLOm + O2 ; 1e-10 -[O2m_CO2_M] CO2 + M + O2m -> CO4m + M ; 9.9e-30 -[O2m_H] H + O2m -> HO2 + e ; 1.4e-09 -[O2m_HCL] O2m + HCL -> CLm + HO2 ; 1.6e-09 -[O2m_HNO3] O2m + HNO3 -> HO2 + NO3m ; 2.9e-09 -[O2m_NO2] NO2 + O2m -> NO2m + O2 ; 7e-10 -[O2m_O21D] O2_1D + O2m -> 2*O2 + e ; 2e-10 -[O2m_O2_M] O2 + M + O2m -> M + O4m ; 3.4e-31 -[O2m_O3] O3 + O2m -> O2 + O3m ; 7.8e-10 -[O2m_O_a] O + O2m -> O3 + e ; 1.5e-10 -[O2m_O_b] O2m + O -> O2 + Om ; 1.5e-10 -[O2pH2O_e] O2p_H2O + e -> H2O + O2 ; 2e-06 -[O2pH2O_H2Oa] O2p_H2O + H2O -> H3Op_OH + O2 ; 9e-10 -[O2pH2O_H2Ob] O2p_H2O + H2O -> Hp_H2O + O2 + OH ; 2.4e-10 -[O2p_H2O_M] M + H2O + O2p -> M + O2p_H2O ; 2.8e-28 -[O3m_CO2] O3m + CO2 -> CO3m + O2 ; 5.5e-10 -[O3m_H] O3m + H -> O2 + OHm ; 8.4e-10 -[O3m_O3] O3 + O3m -> 3*O2 + e ; 1e-10 -[O3m_O_a] O3m + O -> 2*O2 + e ; 1e-10 -[O3m_O_b] O + O3m -> O2 + O2m ; 2.5e-10 -[O4m_CO2] CO2 + O4m -> CO4m + O2 ; 4.3e-10 -[O4m_O] O + O4m -> O3m + O2 ; 4e-10 -[O4p_H2O] H2O + O4p -> O2 + O2p_H2O ; 1.7e-09 -[O4p_O] O4p + O -> O2p + O3 ; 3e-10 -[O4p_O21D] O4p + O2_1D -> 2*O2 + O2p ; 1.5e-10 -[OH_HONO] HONO + OH -> H2O + NO2 ; 1.8e-11, 390 -[OHm_CL] CL + OHm -> CLm + OH ; 1e-10 -[OHm_CLO] CLO + OHm -> CLOm + OH ; 1e-10 -[OHm_CO2] CO2 + M + OHm -> M + HCO3m ; 7.6e-28 -[OHm_H] H + OHm -> e + H2O ; 1.4e-09 -[OHm_HCL] OHm + HCL -> CLm + H2O ; 1e-09 -[OHm_NO2] NO2 + OHm -> NO2m + OH ; 1.1e-09 -[OHm_O] OHm + O -> HO2 + e ; 2e-10 -[OHm_O3] OHm + O3 -> O3m + OH ; 9e-10 -[OH_NO_M] OH + NO + M -> HONO + M ; 7e-31, 2.6, 3.6e-11, 0.1, 0.6 -[Om_CL] Om + CL -> CLm + O ; 1e-10 -[Om_CLO] CLO + Om -> CLm + O2 ; 1e-10 -[Om_CO2_M] M + Om + CO2 -> CO3m + M ; 2e-28 -[Om_H2_a] H2 + Om -> H2O + e ; 5.8e-10 -[Om_H2_b] Om + H2 -> H + OHm ; 3.2e-11 -[Om_H2O] Om + H2O -> OHm + OH ; 6e-13 -[Om_HCL] Om + HCL -> CLm + OH ; 2e-09 -[Om_HNO3] Om + HNO3 -> NO3m + OH ; 3.6e-09 -[Om_M] M + Om -> O + M + e ; 5e-13 -[Om_NO2] NO2 + Om -> O + NO2m ; 1e-09 -[Om_O] Om + O -> e + O2 ; 1.9e-10 -[Om_O21D] Om + O2_1D -> O3 + e ; 3e-10 -[Om_O2_M] M + Om + O2 -> M + O3m ; 2.9e-31 -[Om_O3] O3 + Om -> O + O3m ; 8e-10 -[pir1] M + O2p + O2 -> M + O4p -[pir10] H2O + NOp + M -> M + NOp_H2O -[pir11] H2O + M + NOp_H2O -> M + NOp_2H2O -[pir12] H2O + NOp_2H2O + M -> M + NOp_3H2O -[pir13] NOp + CO2 + M -> M + NOp_CO2 -[pir14] NOp_CO2 + M -> M + NOp + CO2 -[pir15] N2 + M + NOp -> NOp_N2 + M -[pir16] NOp_N2 + M -> M + NOp + N2 -[pir2] M + Hp_H2O + H2O -> Hp_2H2O + M -[pir3] Hp_2H2O + M -> H2O + Hp_H2O + M -[pir4] H2O + Hp_2H2O + M -> Hp_3H2O + M -[pir5] Hp_3H2O + M -> M + Hp_2H2O + H2O -[pir6] Hp_3H2O + H2O + M -> M + Hp_4H2O -[pir7] Hp_4H2O + M -> H2O + M + Hp_3H2O -[pir8] Hp_4H2O + M + H2O -> Hp_5H2O + M -[pir9] M + Hp_5H2O -> M + H2O + Hp_4H2O -[rpe1] e + O4p -> 2*O2 -[rpe2] Hp_H2O + e -> H + H2O -[rpe3] Hp_2H2O + e -> 2*H2O + H -[rpe4] Hp_3H2O + e -> H + 3*H2O -[rpe5] e + NOp_N2 -> N2 + NO -[usr_CLm_H2O_M] CLm_H2O + M -> H2O + M + CLm -[usr_CLm_HCL_M] M + CLm_HCL -> CLm + HCL + M +[CLm_H] CLm + H -> HCL + e ; 9.6e-10 +[CLmH2O_HCL] CLm_H2O + HCL -> CLm_HCL + H2O ; 1.3e-09 +[CLm_H2O_Ma] CLm + H2O + M -> CLm_H2O + M ; 2e-29 +[CLmHCL_M] HCL + M + CLm -> CLm_HCL + M ; 1e-27 +[CLm_HNO3] CLm + HNO3 -> HCL + NO3m ; 1.6e-09 +[CLm_NO2] CLm + NO2 -> CL + NO2m ; 6e-12 +[CLOm_NOa] CLOm + NO -> CL + NO2m ; 2.9e-12 +[CLOm_NOb] CLOm + NO -> NO2 + CLm ; 2.9e-11 +[CLOm_O] CLOm + O -> CLm + O2 ; 2e-10 +[CO3m_CLa] CL + CO3m -> CLm + CO2 + O ; 1e-10 +[CO3m_CLb] CL + CO3m -> CLOm + CO2 ; 1e-10 +[CO3m_CLO] CLO + CO3m -> CLm + CO2 + O2 ; 1e-11 +[CO3m_H] H + CO3m -> CO2 + OHm ; 1.7e-10 +[CO3mH2O_H2O_M] CO3m_H2O + H2O + M -> CO3m2H2O + M ; 1e-28 +[CO3m_H2O_M] CO3m + H2O + M -> CO3m_H2O + M ; 1e-28 +[CO3mH2O_NO2a] CO3m_H2O + NO2 -> CO2 + H2O + NO3m ; 4e-11 +[CO3mH2O_NO2b] CO3m_H2O + NO2 -> CO2 + NO3m_H2O ; 4e-11 +[CO3mH2O_NOa] CO3m_H2O + NO -> CO2 + NO2m_H2O ; 3.5e-12 +[CO3mH2O_NOb] CO3m_H2O + NO -> CO2 + H2O + NO2m ; 3.5e-12 +[CO3m_HNO3] CO3m + HNO3 -> CO2 + NO3m + OH ; 3.51e-10 +[CO3m_O] CO3m + O -> CO2 + O2m ; 1.1e-10 +[CO3m_O2] O2 + CO3m -> CO2 + O3m ; 6e-15 +[CO4m_CL] CL + CO4m -> CLm + CO2 + O2 ; 1e-10 +[CO4m_CLO] CLO + CO4m -> CLOm + CO2 + O2 ; 1e-10 +[CO4m_H] CO4m + H -> CO3m + OH ; 2.2e-10 +[CO4m_HCL] CO4m + HCL -> CLm + CO2 + HO2 ; 1.2e-09 +[CO4m_O] CO4m + O -> CO3m + O2 ; 1.4e-10 +[CO4m_O3] CO4m + O3 -> CO2 + O2 + O3m ; 1.3e-10 +[ean1] e + O2 + N2 -> N2 + O2m +[ean2] O3 + e -> O2 + Om +[ean3] M + O2 + e -> M + O2m +[edn1] NO + Om -> e + NO2 +[edn2] N2 + O2m -> e + O2 + N2 +[H3OpOH_e] H3Op_OH + e -> H + H2O + OH ; 1.5e-06 +[H3OpOH_H2O] H2O + H3Op_OH -> Hp_2H2O + OH ; 2e-09 +[Hp3N1_H2O] H2O + Hp_3N1 -> HNO3 + Hp_4H2O ; 1e-09 +[Hp4H2O_e] Hp_4H2O + e -> H + 4*H2O ; 3.6e-06 +[Hp4H2O_N2O5] Hp_4H2O + N2O5 -> HNO3 + Hp_3N1 ; 4e-12 +[Hp4N1_H2O] H2O + Hp_4N1 -> HNO3 + Hp_5H2O ; 1e-09 +[Hp5H2O_e] Hp_5H2O + e -> H + 5*H2O ; 5e-06 +[Hp5H2O_N2O5] Hp_5H2O + N2O5 -> HNO3 + Hp_4N1 ; 7e-12 +[iira1] Hp_4H2O + NO3mHNO3 -> 4*H2O + 2*HNO3 +[iira10] CLm + Hp_4H2O -> CL + H + 4*H2O +[iira100] NO3m + O2p -> NO3 + O2 +[iira101] HCO3m + O2p -> CO2 + O2 + OH +[iira102] O2m + O2p -> 2*O2p +[iira103] CO4m + O2p -> CO2 + O2 + O2 +[iira104] NO3m_H2O + O2p -> H2O + NO3 + O2 +[iira105] CO3m2H2O + O2p -> CO2 + 2*H2O + O + O2 +[iira106] CLm + O2p -> CL + O2 +[iira107] CO3m_H2O + O2p -> H2O + O + O2 + CO2 +[iira108] NO2m_H2O + O2p -> H2O + NO2 + O2 +[iira109] NO3m_HCL + O2p -> HCL + NO3 + O2 +[iira11] CO3m_H2O + Hp_4H2O -> CO2 + 5*H2O + O + H +[iira110] O2p + CLm_H2O -> CL + H2O + O2 +[iira111] NO3m2H2O + O2p -> 2*H2O + NO3 + O2 +[iira112] NO2m + O2p -> NO2 + O2 +[iira12] Hp_4H2O + NO2m_H2O -> H + 5*H2O + NO2 +[iira13] Hp_4H2O + NO3m_HCL -> H + 4*H2O + NO3 + HCL +[iira14] CLm_H2O + Hp_4H2O -> H + CL + 5*H2O +[iira15] NO3m2H2O + Hp_4H2O -> H + 6*H2O + NO3 +[iira16] Hp_4H2O + NO2m -> H + NO2 + 4*H2O +[iira17] Hp_5H2O + NO3mHNO3 -> 5*H2O + 2*HNO3 +[iira18] CO3m + Hp_5H2O -> CO2 + 5*H2O + O + H +[iira19] CLm_HCL + Hp_5H2O -> CL + H + 5*H2O + HCL +[iira2] CO3m + Hp_4H2O -> CO2 + H + 4*H2O + O +[iira20] NO3m + Hp_5H2O -> 5*H2O + HNO3 +[iira21] HCO3m + Hp_5H2O -> CO2 + H + 5*H2O + OH +[iira22] Hp_5H2O + O2m -> H + 5*H2O + O2 +[iira23] CO4m + Hp_5H2O -> CO2 + 5*H2O + O2 + H +[iira24] Hp_5H2O + NO3m_H2O -> H + 6*H2O + NO3 +[iira25] CO3m2H2O + Hp_5H2O -> H + CO2 + 7*H2O + O +[iira26] CLm + Hp_5H2O -> CL + H + 5*H2O +[iira27] CO3m_H2O + Hp_5H2O -> CO2 + H + 6*H2O + O +[iira28] NO2m_H2O + Hp_5H2O -> H + 6*H2O + NO2 +[iira29] Hp_5H2O + NO3m_HCL -> H + 5*H2O + HCL + NO3 +[iira3] CLm_HCL + Hp_4H2O -> CL + H + HCL + 4*H2O +[iira30] CLm_H2O + Hp_5H2O -> CL + H + 6*H2O +[iira31] Hp_5H2O + NO3m2H2O -> H + 7*H2O + NO3 +[iira32] Hp_5H2O + NO2m -> 5*H2O + NO2 + H +[iira33] Hp_3H2O + NO3mHNO3 -> 3*H2O + 2*HNO3 +[iira34] Hp_3H2O + CO3m -> CO2 + H + 3*H2O + O +[iira35] CLm_HCL + Hp_3H2O -> CL + H + 3*H2O + HCL +[iira36] Hp_3H2O + NO3m -> 3*H2O + HNO3 +[iira37] HCO3m + Hp_3H2O -> CO2 + H + 3*H2O + OH +[iira38] Hp_3H2O + O2m -> H + 3*H2O + O2 +[iira39] CO4m + Hp_3H2O -> CO2 + H + 3*H2O + O2 +[iira4] Hp_4H2O + NO3m -> 4*H2O + HNO3 +[iira40] Hp_3H2O + NO3m_H2O -> H + 4*H2O + NO3 +[iira41] CO3m2H2O + Hp_3H2O -> CO2 + H + 5*H2O + O +[iira42] CLm + Hp_3H2O -> CL + H + 3*H2O +[iira43] CO3m_H2O + Hp_3H2O -> CO2 + H + O + 4*H2O +[iira44] Hp_3H2O + NO2m_H2O -> H + 4*H2O + NO2 +[iira45] Hp_3H2O + NO3m_HCL -> H + 3*H2O + HCL + NO3 +[iira46] CLm_H2O + Hp_3H2O -> H + 4*H2O + CL +[iira47] Hp_3H2O + NO3m2H2O -> H + 5*H2O + NO3 +[iira48] Hp_3H2O + NO2m -> H + 3*H2O + NO2 +[iira49] NO3mHNO3 + NOp_H2O -> H2O + HNO3 + NO + NO3 +[iira5] HCO3m + Hp_4H2O -> CO2 + H + 4*H2O + OH +[iira50] CO3m + NOp_H2O -> CO2 + H2O + NO + O +[iira51] CLm_HCL + NOp_H2O -> CL + NO + H2O + HCL +[iira52] NO3m + NOp_H2O -> H2O + NO + NO3 +[iira53] HCO3m + NOp_H2O -> OH + CO2 + H2O + NO +[iira54] NOp_H2O + O2m -> H2O + NO + O2 +[iira55] CO4m + NOp_H2O -> O2 + NO + CO2 + H2O +[iira56] NO3m_H2O + NOp_H2O -> 2*H2O + NO + NO3 +[iira57] CO3m2H2O + NOp_H2O -> CO2 + 3*H2O + NO + O +[iira58] CLm + NOp_H2O -> CL + H2O + NO +[iira59] CO3m_H2O + NOp_H2O -> O + CO2 + 2*H2O + NO +[iira6] Hp_4H2O + O2m -> O2 + H + 4*H2O +[iira60] NO2m_H2O + NOp_H2O -> NO + 2*H2O + NO2 +[iira61] NO3m_HCL + NOp_H2O -> H2O + NO + NO3 + HCL +[iira62] CLm_H2O + NOp_H2O -> CL + 2*H2O + NO +[iira63] NO3m2H2O + NOp_H2O -> NO + NO3 + 3*H2O +[iira64] NO2m + NOp_H2O -> NO + H2O + NO2 +[iira65] NO3mHNO3 + NOp_2H2O -> 2*H2O + NO3 + HNO3 + NO +[iira66] CO3m + NOp_2H2O -> 2*H2O + NO + CO2 + O +[iira67] CLm_HCL + NOp_2H2O -> NO + CL + 2*H2O + HCL +[iira68] NOp_2H2O + NO3m -> NO + 2*H2O + NO3 +[iira69] HCO3m + NOp_2H2O -> 2*H2O + OH + NO + CO2 +[iira7] CO4m + Hp_4H2O -> 4*H2O + H + CO2 + O2 +[iira70] NOp_2H2O + O2m -> 2*H2O + NO + O2 +[iira71] NOp_2H2O + CO4m -> O2 + 2*H2O + NO + CO2 +[iira72] NO3m_H2O + NOp_2H2O -> 3*H2O + NO3 + NO +[iira73] CO3m2H2O + NOp_2H2O -> O + CO2 + 4*H2O + NO +[iira74] CLm + NOp_2H2O -> 2*H2O + NO + CL +[iira75] CO3m_H2O + NOp_2H2O -> 3*H2O + CO2 + NO + O +[iira76] NOp_2H2O + NO2m_H2O -> 3*H2O + NO + NO2 +[iira77] NO3m_HCL + NOp_2H2O -> NO + HCL + 2*H2O + NO3 +[iira78] NOp_2H2O + CLm_H2O -> NO + 3*H2O + CL +[iira79] NOp_2H2O + NO3m2H2O -> NO + NO3 + 4*H2O +[iira8] Hp_4H2O + NO3m_H2O -> H + 5*H2O + NO3 +[iira80] NOp_2H2O + NO2m -> 2*H2O + NO2 + NO +[iira81] NOp + NO3mHNO3 -> NO + HNO3 + NO3 +[iira82] NOp + CO3m -> CO2 + NO + O +[iira83] NOp + CLm_HCL -> CL + HCL + NO +[iira84] NO3m + NOp -> NO3 + NO +[iira85] NOp + HCO3m -> NO + CO2 + OH +[iira86] O2m + NOp -> NO + O2 +[iira87] NOp + CO4m -> CO2 + NO + O2 +[iira88] NOp + NO3m_H2O -> H2O + NO + NO3 +[iira89] NOp + CO3m2H2O -> NO + O + CO2 + 2*H2O +[iira9] CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + O + H +[iira90] CLm + NOp -> CL + NO +[iira91] CO3m_H2O + NOp -> H2O + NO + O + CO2 +[iira92] NO2m_H2O + NOp -> NO + NO2 + H2O +[iira93] NO3m_HCL + NOp -> NO + HCL + NO3 +[iira94] CLm_H2O + NOp -> CL + NO + H2O +[iira95] NOp + NO3m2H2O -> 2*H2O + NO + NO3 +[iira96] NOp + NO2m -> NO2 + NO +[iira97] NO3mHNO3 + O2p -> O2 + NO3 + HNO3 +[iira98] O2p + CO3m -> O + O2 + CO2 +[iira99] O2p + CLm_HCL -> O2 + HCL + CL +[iirb1] Hp_4H2O + CO3m + M -> 4*H2O + O + CO2 + H + M +[iirb10] Hp_5H2O + M + CO3m2H2O -> H + 7*H2O + M + CO2 + O +[iirb11] M + CO3m_H2O + Hp_4H2O -> 5*H2O + M + H + CO2 + O +[iirb12] Hp_5H2O + M + CO3m_H2O -> CO2 + M + O + H + 6*H2O +[iirb13] NO3m_H2O + Hp_4H2O + M -> M + NO3 + H + 5*H2O +[iirb14] NO3m_H2O + Hp_5H2O + M -> M + NO3 + H + 6*H2O +[iirb2] NO3m + M + Hp_4H2O -> 4*H2O + HNO3 + M +[iirb3] Hp_5H2O + M + CO3m -> 5*H2O + M + CO2 + O + H +[iirb4] Hp_5H2O + NO3m + M -> M + HNO3 + 5*H2O +[iirb5] M + CLm_HCL + Hp_4H2O -> M + 2*HCL + 4*H2O +[iirb6] M + Hp_5H2O + CLm_HCL -> M + 5*H2O + 2*HCL +[iirb7] NO3mHNO3 + M + Hp_4H2O -> 4*H2O + M + 2*HNO3 +[iirb8] Hp_5H2O + M + NO3mHNO3 -> M + 5*H2O + 2*HNO3 +[iirb9] M + CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + H + M + O +[nir1] NO + O3m -> O + NO3m +[nir10] NO2m_H2O + M -> H2O + NO2m + M +[nir11] NO3m2H2O + M -> M + NO3m_H2O + H2O +[nir12] NO3mHNO3 + M -> NO3m + HNO3 + M +[nir13] HCL + M + NO3m -> NO3m_HCL + M +[nir2] NO2 + O3m -> NO3m + O2 +[nir3] NO2 + O3m -> NO2m + O3 +[nir4] NO + O3m -> NO2m + O2 +[nir5] CO3m + NO -> CO2 + NO2m +[nir6] CO3m + NO2 -> NO3m + CO2 +[nir7] M + NO3m_H2O -> M + H2O + NO3m +[nir8] CO3m_H2O + M -> CO3m + M + H2O +[nir9] CO3m2H2O + M -> CO3m_H2O + H2O + M +[NO2m_CL] CL + NO2m -> CLm + NO2 ; 1e-10 +[NO2m_CLO] CLO + NO2m -> CLm + NO3 ; 1e-10 +[NO2m_H] H + NO2m -> NO + OHm ; 3e-10 +[NO2m_H2O_M] NO2m + H2O + M -> M + NO2m_H2O ; 1.6e-28 +[NO2m_HCL] HCL + NO2m -> CLm + HONO ; 1.4e-09 +[NO2m_HNO3] HNO3 + NO2m -> NO3m + HONO ; 1.6e-09 +[NO2m_NO2] NO2 + NO2m -> NO + NO3m ; 2e-13 +[NO2m_O3] NO2m + O3 -> NO3m + O2 ; 1.2e-10 +[NO3m2H2O_N2O5] NO3m2H2O + N2O5 -> H2O + HNO3 + NO3mHNO3 ; 7e-10 +[NO3mH2O_H2O_M] NO3m_H2O + H2O + M -> M + NO3m2H2O ; 1.6e-28 +[NO3mH2O_HNO3] HNO3 + NO3m_H2O -> H2O + NO3mHNO3 ; 1.6e-09 +[NO3m_H2O_M] H2O + M + NO3m -> M + NO3m_H2O ; 1.6e-28 +[NO3mH2O_N2O5] NO3m_H2O + N2O5 -> HNO3 + NO3mHNO3 ; 7e-10 +[NO3m_HCLa] HCL + NO3m -> CLm + HNO3 ; 1e-12 +[NO3mHCL_HNO3] HNO3 + NO3m_HCL -> HCL + NO3mHNO3 ; 7.6e-10 +[NO3m_HNO3_M] NO3m + HNO3 + M -> M + NO3mHNO3 ; 1.45e-26 +[NO3m_O] NO3m + O -> NO2m + O2 ; 5e-12 +[NO3m_O3] O3 + NO3m -> NO2m + 2*O2 ; 1e-13 +[NOp2H2O_e] NOp_2H2O + e -> 2*H2O + NO ; 2e-06 +[NOp3H2O_e] NOp_3H2O + e -> 3*H2O + NO ; 2e-06 +[NOp3H2O_H2O] H2O + NOp_3H2O -> HONO + Hp_3H2O ; 7e-11 +[NOpCO2_e] NOp_CO2 + e -> CO2 + NO ; 1.5e-06 +[NOpCO2_H2O] NOp_CO2 + H2O -> CO2 + NOp_H2O ; 1e-09 +[NOpH2O_e] NOp_H2O + e -> H2O + NO ; 1.5e-06 +[NOpH2O_H] H + NOp_H2O -> NO + Hp_H2O ; 7e-12 +[NOpH2O_HO2] NOp_H2O + HO2 -> Hp_H2O + NO3 ; 5e-10 +[NOpH2O_OH] NOp_H2O + OH -> Hp_H2O + NO2 ; 1e-10 +[NOpN2_CO2] CO2 + NOp_N2 -> N2 + NOp_CO2 ; 1e-09 +[NOpN2_H2O] NOp_N2 + H2O -> N2 + NOp_H2O ; 1e-09 +[O2m_CL] O2m + CL -> CLm + O2 ; 1e-10 +[O2m_CLO] CLO + O2m -> CLOm + O2 ; 1e-10 +[O2m_CO2_M] CO2 + M + O2m -> CO4m + M ; 9.9e-30 +[O2m_H] H + O2m -> HO2 + e ; 1.4e-09 +[O2m_HCL] O2m + HCL -> CLm + HO2 ; 1.6e-09 +[O2m_HNO3] O2m + HNO3 -> HO2 + NO3m ; 2.9e-09 +[O2m_NO2] NO2 + O2m -> NO2m + O2 ; 7e-10 +[O2m_O21D] O2_1D + O2m -> 2*O2 + e ; 2e-10 +[O2m_O2_M] O2 + M + O2m -> M + O4m ; 3.4e-31 +[O2m_O3] O3 + O2m -> O2 + O3m ; 7.8e-10 +[O2m_O_a] O + O2m -> O3 + e ; 1.5e-10 +[O2m_O_b] O2m + O -> O2 + Om ; 1.5e-10 +[O2pH2O_e] O2p_H2O + e -> H2O + O2 ; 2e-06 +[O2pH2O_H2Oa] O2p_H2O + H2O -> H3Op_OH + O2 ; 9e-10 +[O2pH2O_H2Ob] O2p_H2O + H2O -> Hp_H2O + O2 + OH ; 2.4e-10 +[O2p_H2O_M] M + H2O + O2p -> M + O2p_H2O ; 2.8e-28 +[O3m_CO2] O3m + CO2 -> CO3m + O2 ; 5.5e-10 +[O3m_H] O3m + H -> O2 + OHm ; 8.4e-10 +[O3m_O3] O3 + O3m -> 3*O2 + e ; 1e-10 +[O3m_O_a] O3m + O -> 2*O2 + e ; 1e-10 +[O3m_O_b] O + O3m -> O2 + O2m ; 2.5e-10 +[O4m_CO2] CO2 + O4m -> CO4m + O2 ; 4.3e-10 +[O4m_O] O + O4m -> O3m + O2 ; 4e-10 +[O4p_H2O] H2O + O4p -> O2 + O2p_H2O ; 1.7e-09 +[O4p_O] O4p + O -> O2p + O3 ; 3e-10 +[O4p_O21D] O4p + O2_1D -> 2*O2 + O2p ; 1.5e-10 +[OH_HONO] HONO + OH -> H2O + NO2 ; 1.8e-11, 390 +[OHm_CL] CL + OHm -> CLm + OH ; 1e-10 +[OHm_CLO] CLO + OHm -> CLOm + OH ; 1e-10 +[OHm_CO2] CO2 + M + OHm -> M + HCO3m ; 7.6e-28 +[OHm_H] H + OHm -> e + H2O ; 1.4e-09 +[OHm_HCL] OHm + HCL -> CLm + H2O ; 1e-09 +[OHm_NO2] NO2 + OHm -> NO2m + OH ; 1.1e-09 +[OHm_O] OHm + O -> HO2 + e ; 2e-10 +[OHm_O3] OHm + O3 -> O3m + OH ; 9e-10 +[OH_NO_M] OH + NO + M -> HONO + M ; 7e-31, 2.6, 3.6e-11, 0.1, 0.6 +[Om_CL] Om + CL -> CLm + O ; 1e-10 +[Om_CLO] CLO + Om -> CLm + O2 ; 1e-10 +[Om_CO2_M] M + Om + CO2 -> CO3m + M ; 2e-28 +[Om_H2_a] H2 + Om -> H2O + e ; 5.8e-10 +[Om_H2_b] Om + H2 -> H + OHm ; 3.2e-11 +[Om_H2O] Om + H2O -> OHm + OH ; 6e-13 +[Om_HCL] Om + HCL -> CLm + OH ; 2e-09 +[Om_HNO3] Om + HNO3 -> NO3m + OH ; 3.6e-09 +[Om_M] M + Om -> O + M + e ; 5e-13 +[Om_NO2] NO2 + Om -> O + NO2m ; 1e-09 +[Om_O] Om + O -> e + O2 ; 1.9e-10 +[Om_O21D] Om + O2_1D -> O3 + e ; 3e-10 +[Om_O2_M] M + Om + O2 -> M + O3m ; 2.9e-31 +[Om_O3] O3 + Om -> O + O3m ; 8e-10 +[pir1] M + O2p + O2 -> M + O4p +[pir10] H2O + NOp + M -> M + NOp_H2O +[pir11] H2O + M + NOp_H2O -> M + NOp_2H2O +[pir12] H2O + NOp_2H2O + M -> M + NOp_3H2O +[pir13] NOp + CO2 + M -> M + NOp_CO2 +[pir14] NOp_CO2 + M -> M + NOp + CO2 +[pir15] N2 + M + NOp -> NOp_N2 + M +[pir16] NOp_N2 + M -> M + NOp + N2 +[pir2] M + Hp_H2O + H2O -> Hp_2H2O + M +[pir3] Hp_2H2O + M -> H2O + Hp_H2O + M +[pir4] H2O + Hp_2H2O + M -> Hp_3H2O + M +[pir5] Hp_3H2O + M -> M + Hp_2H2O + H2O +[pir6] Hp_3H2O + H2O + M -> M + Hp_4H2O +[pir7] Hp_4H2O + M -> H2O + M + Hp_3H2O +[pir8] Hp_4H2O + M + H2O -> Hp_5H2O + M +[pir9] M + Hp_5H2O -> M + H2O + Hp_4H2O +[rpe1] e + O4p -> 2*O2 +[rpe2] Hp_H2O + e -> H + H2O +[rpe3] Hp_2H2O + e -> 2*H2O + H +[rpe4] Hp_3H2O + e -> H + 3*H2O +[rpe5] e + NOp_N2 -> N2 + NO +[usr_CLm_H2O_M] CLm_H2O + M -> H2O + M + CLm +[usr_CLm_HCL_M] M + CLm_HCL -> CLm + HCL + M ********************************* *** 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 -[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 +[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 ; 4.4e-32, 1.3, 7.5e-11, -0.2, 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 ; 4.4e-32, 1.3, 7.5e-11, -0.2, 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 ; 1.3e-12, 380 -[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 ; 1.5e-11, -3600 -[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.5e-11, 170 -[NO3_O] NO3 + O -> NO2 + O2 ; 1e-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.3e-12, 270 -[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 +[HO2NO2_OH] HO2NO2 + OH -> H2O + NO2 + O2 ; 1.3e-12, 380 +[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 ; 1.5e-11, -3600 +[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.5e-11, 170 +[NO3_O] NO3 + O -> NO2 + O2 ; 1e-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.3e-12, 270 +[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 ********************************* *** 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, -1100 -[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, -1100 +[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_HO2] CH3O2 + HO2 -> CH3OOH + O2 ; 4.1e-13, 750 -[CH3O2_NO] CH3O2 + NO -> CH2O + NO2 + HO2 ; 2.8e-12, 300 -[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 -[CO_OH_M] CO + OH + M -> CO2 + HO2 + M ; 5.9e-33, 1, 1.1e-12, -1.3, 0.6 -[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_b] CO + OH -> CO2 + H +[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_HO2] CH3O2 + HO2 -> CH3OOH + O2 ; 4.1e-13, 750 +[CH3O2_NO] CH3O2 + NO -> CH2O + NO2 + HO2 ; 2.8e-12, 300 +[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 +[CO_OH_M] CO + OH + M -> CO2 + HO2 + M ; 5.9e-33, 1, 1.1e-12, -1.3, 0.6 +[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_b] CO + OH -> CO2 + H ********************************* *** Tropospheric Aerosol ********************************* -[usr_HO2_aer] HO2 -> 0.5*H2O2 -[usr_N2O5_aer] N2O5 -> 2*HNO3 -[usr_NO2_aer] NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 -[usr_NO3_aer] NO3 -> HNO3 +[usr_HO2_aer] HO2 -> 0.5*H2O2 +[usr_N2O5_aer] N2O5 -> 2*HNO3 +[usr_NO2_aer] NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 +[usr_NO3_aer] NO3 -> HNO3 ********************************* *** 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 - NO2 <- dataset - NO <- dataset - CO <- dataset - N2p - Np - O - O2p - OH - Op - e - N - N2D + NO2 <- dataset + NO <- dataset + CO <- dataset + N2p + Np + O + O2p + OH + Op + e + N + N2D End Ext Forcing End Chemistry @@ -973,13 +972,11 @@ SIMULATION PARAMETERS Version Options - machine = nec + machine = intel model = cam - model_architecture = VECTOR - vector_length = 32 + model_architecture = SCALAR architecture = hybrid namemod = on End Version Options - End Simulation Parameters diff --git a/src/chemistry/pp_waccm_mad/chem_mods.F90 b/src/chemistry/pp_waccm_mad/chem_mods.F90 index 91bf1a1880..c524ffab6b 100644 --- a/src/chemistry/pp_waccm_mad/chem_mods.F90 +++ b/src/chemistry/pp_waccm_mad/chem_mods.F90 @@ -13,19 +13,19 @@ module chem_mods nfs = 2, & ! number of "fixed" species relcnt = 0, & ! number of relationship species grpcnt = 0, & ! number of group members - nzcnt = 1825, & ! number of non-zero matrix entries + nzcnt = 1745, & ! number of non-zero matrix entries extcnt = 12, & ! number of species with external forcing - clscnt1 = 22, & ! number of species in explicit class + clscnt1 = 23, & ! number of species in explicit class clscnt2 = 0, & ! number of species in hov class clscnt3 = 0, & ! number of species in ebi class - clscnt4 = 88, & ! number of species in implicit class + clscnt4 = 87, & ! 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 = 585, & enthalpy_cnt = 54, & - nslvd = 51 + nslvd = 50 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 integer :: clsmap(gas_pcnst,5) = 0 @@ -47,5 +47,4 @@ module chem_mods logical :: is_vector logical :: is_scalar character(len=16) :: slvd_lst(max(1,nslvd)) - integer, parameter :: veclen = 32 end module chem_mods diff --git a/src/chemistry/pp_waccm_mad/m_spc_id.F90 b/src/chemistry/pp_waccm_mad/m_spc_id.F90 index 73b47653e2..721c4c7090 100644 --- a/src/chemistry/pp_waccm_mad/m_spc_id.F90 +++ b/src/chemistry/pp_waccm_mad/m_spc_id.F90 @@ -1,76 +1,76 @@ module m_spc_id implicit none - integer, parameter :: id_BRCL = 1 - integer, parameter :: id_BRO = 2 - integer, parameter :: id_BRONO2 = 3 - integer, parameter :: id_BRY = 4 - integer, parameter :: id_CCL4 = 5 - integer, parameter :: id_CF2CLBR = 6 - integer, parameter :: id_CF3BR = 7 - integer, parameter :: id_CFC11 = 8 - integer, parameter :: id_CFC113 = 9 - integer, parameter :: id_CFC114 = 10 - integer, parameter :: id_CFC115 = 11 - integer, parameter :: id_CFC12 = 12 - integer, parameter :: id_CH2BR2 = 13 - integer, parameter :: id_CH2O = 14 - integer, parameter :: id_CH3BR = 15 - integer, parameter :: id_CH3CCL3 = 16 - integer, parameter :: id_CH3CL = 17 - integer, parameter :: id_CH3O2 = 18 - integer, parameter :: id_CH3OOH = 19 - integer, parameter :: id_CH4 = 20 - integer, parameter :: id_CHBR3 = 21 - integer, parameter :: id_CL2 = 22 - integer, parameter :: id_CL2O2 = 23 - integer, parameter :: id_CLO = 24 - integer, parameter :: id_CLONO2 = 25 - integer, parameter :: id_CLY = 26 - integer, parameter :: id_CO = 27 - integer, parameter :: id_CO2 = 28 - integer, parameter :: id_COF2 = 29 - integer, parameter :: id_COFCL = 30 - integer, parameter :: id_F = 31 - integer, parameter :: id_H = 32 - integer, parameter :: id_H2 = 33 - integer, parameter :: id_H2402 = 34 - integer, parameter :: id_H2O2 = 35 - integer, parameter :: id_HBR = 36 - integer, parameter :: id_HCFC141B = 37 - integer, parameter :: id_HCFC142B = 38 - integer, parameter :: id_HCFC22 = 39 - integer, parameter :: id_HCL = 40 - integer, parameter :: id_HF = 41 - integer, parameter :: id_HNO3 = 42 - integer, parameter :: id_HO2 = 43 - integer, parameter :: id_HO2NO2 = 44 - integer, parameter :: id_HOBR = 45 - integer, parameter :: id_HOCL = 46 - integer, parameter :: id_HONO = 47 - integer, parameter :: id_N = 48 - integer, parameter :: id_N2O = 49 - integer, parameter :: id_N2O5 = 50 - integer, parameter :: id_NO = 51 - integer, parameter :: id_NO2 = 52 - integer, parameter :: id_NO3 = 53 - integer, parameter :: id_O = 54 - integer, parameter :: id_O2 = 55 - integer, parameter :: id_O3 = 56 - integer, parameter :: id_OCLO = 57 - integer, parameter :: id_SF6 = 58 - integer, parameter :: id_BR = 59 - integer, parameter :: id_CL = 60 - integer, parameter :: id_CLm = 61 - integer, parameter :: id_CLm_H2O = 62 - integer, parameter :: id_CLm_HCL = 63 - integer, parameter :: id_CLOm = 64 - integer, parameter :: id_CO3m = 65 - integer, parameter :: id_CO3m2H2O = 66 - integer, parameter :: id_CO3m_H2O = 67 - integer, parameter :: id_CO4m = 68 - integer, parameter :: id_e = 69 - integer, parameter :: id_H3Op_OH = 70 - integer, parameter :: id_HCO3m = 71 + integer, parameter :: id_BR = 1 + integer, parameter :: id_BRCL = 2 + integer, parameter :: id_BRO = 3 + integer, parameter :: id_BRONO2 = 4 + integer, parameter :: id_BRY = 5 + integer, parameter :: id_CCL4 = 6 + integer, parameter :: id_CF2CLBR = 7 + integer, parameter :: id_CF3BR = 8 + integer, parameter :: id_CFC11 = 9 + integer, parameter :: id_CFC113 = 10 + integer, parameter :: id_CFC114 = 11 + integer, parameter :: id_CFC115 = 12 + integer, parameter :: id_CFC12 = 13 + integer, parameter :: id_CH2BR2 = 14 + integer, parameter :: id_CH2O = 15 + integer, parameter :: id_CH3BR = 16 + integer, parameter :: id_CH3CCL3 = 17 + integer, parameter :: id_CH3CL = 18 + integer, parameter :: id_CH3O2 = 19 + integer, parameter :: id_CH3OOH = 20 + integer, parameter :: id_CH4 = 21 + integer, parameter :: id_CHBR3 = 22 + integer, parameter :: id_CL = 23 + integer, parameter :: id_CL2 = 24 + integer, parameter :: id_CL2O2 = 25 + integer, parameter :: id_CLO = 26 + integer, parameter :: id_CLONO2 = 27 + integer, parameter :: id_CLY = 28 + integer, parameter :: id_CO = 29 + integer, parameter :: id_CO2 = 30 + integer, parameter :: id_COF2 = 31 + integer, parameter :: id_COFCL = 32 + integer, parameter :: id_F = 33 + integer, parameter :: id_H = 34 + integer, parameter :: id_H2 = 35 + integer, parameter :: id_H2402 = 36 + integer, parameter :: id_H2O2 = 37 + integer, parameter :: id_HBR = 38 + integer, parameter :: id_HCFC141B = 39 + integer, parameter :: id_HCFC142B = 40 + integer, parameter :: id_HCFC22 = 41 + integer, parameter :: id_HCL = 42 + integer, parameter :: id_HF = 43 + integer, parameter :: id_HNO3 = 44 + integer, parameter :: id_HO2NO2 = 45 + integer, parameter :: id_HOBR = 46 + integer, parameter :: id_HOCL = 47 + integer, parameter :: id_HONO = 48 + integer, parameter :: id_N = 49 + integer, parameter :: id_N2O = 50 + integer, parameter :: id_N2O5 = 51 + integer, parameter :: id_NO = 52 + integer, parameter :: id_NO2 = 53 + integer, parameter :: id_NO3 = 54 + integer, parameter :: id_O = 55 + integer, parameter :: id_O2 = 56 + integer, parameter :: id_O3 = 57 + integer, parameter :: id_OCLO = 58 + integer, parameter :: id_SF6 = 59 + integer, parameter :: id_CLm = 60 + integer, parameter :: id_CLm_H2O = 61 + integer, parameter :: id_CLm_HCL = 62 + integer, parameter :: id_CLOm = 63 + integer, parameter :: id_CO3m = 64 + integer, parameter :: id_CO3m2H2O = 65 + integer, parameter :: id_CO3m_H2O = 66 + integer, parameter :: id_CO4m = 67 + integer, parameter :: id_e = 68 + integer, parameter :: id_H3Op_OH = 69 + integer, parameter :: id_HCO3m = 70 + integer, parameter :: id_HO2 = 71 integer, parameter :: id_Hp_2H2O = 72 integer, parameter :: id_Hp_3H2O = 73 integer, parameter :: id_Hp_3N1 = 74 diff --git a/src/chemistry/pp_waccm_mad/mo_adjrxt.F90 b/src/chemistry/pp_waccm_mad/mo_adjrxt.F90 index 0c441e36df..a4f71579e8 100644 --- a/src/chemistry/pp_waccm_mad/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_mad/mo_adjrxt.F90 @@ -13,527 +13,527 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) real(r8), intent(in) :: inv(ncol,nlev,nfs) real(r8), intent(in) :: m(ncol,nlev) real(r8), intent(inout) :: rate(ncol,nlev,rxntot) - rate(:,:,102) = rate(:,:,102) * inv(:,:, 1) - rate(:,:,103) = rate(:,:,103) * inv(:,:, 1) - rate(:,:,113) = rate(:,:,113) * inv(:,:, 1) - rate(:,:,114) = rate(:,:,114) * inv(:,:, 1) - rate(:,:,128) = rate(:,:,128) * inv(:,:, 2) - rate(:,:,130) = rate(:,:,130) * inv(:,:, 1) - rate(:,:,132) = rate(:,:,132) * inv(:,:, 2) - rate(:,:,253) = rate(:,:,253) * inv(:,:, 1) - rate(:,:,254) = rate(:,:,254) * inv(:,:, 1) - rate(:,:,255) = rate(:,:,255) * inv(:,:, 1) - rate(:,:,256) = rate(:,:,256) * inv(:,:, 1) - rate(:,:,257) = rate(:,:,257) * inv(:,:, 1) - rate(:,:,258) = rate(:,:,258) * inv(:,:, 1) - rate(:,:,259) = rate(:,:,259) * inv(:,:, 1) - rate(:,:,260) = rate(:,:,260) * inv(:,:, 1) - rate(:,:,261) = rate(:,:,261) * inv(:,:, 1) - rate(:,:,262) = rate(:,:,262) * inv(:,:, 1) - rate(:,:,263) = rate(:,:,263) * inv(:,:, 1) - rate(:,:,264) = rate(:,:,264) * inv(:,:, 1) - rate(:,:,265) = rate(:,:,265) * inv(:,:, 1) - rate(:,:,266) = rate(:,:,266) * inv(:,:, 1) - rate(:,:,268) = rate(:,:,268) * inv(:,:, 1) - rate(:,:,269) = rate(:,:,269) * inv(:,:, 1) - rate(:,:,270) = rate(:,:,270) * inv(:,:, 1) - rate(:,:,271) = rate(:,:,271) * inv(:,:, 1) - rate(:,:,277) = rate(:,:,277) * inv(:,:, 1) - rate(:,:,278) = rate(:,:,278) * inv(:,:, 1) - rate(:,:,279) = rate(:,:,279) * inv(:,:, 1) - rate(:,:,283) = rate(:,:,283) * inv(:,:, 1) - rate(:,:,289) = rate(:,:,289) * inv(:,:, 1) - rate(:,:,291) = rate(:,:,291) * inv(:,:, 1) - rate(:,:,295) = rate(:,:,295) * inv(:,:, 1) - rate(:,:,311) = rate(:,:,311) * inv(:,:, 1) - rate(:,:,317) = rate(:,:,317) * inv(:,:, 1) - rate(:,:,324) = rate(:,:,324) * inv(:,:, 1) - rate(:,:,338) = rate(:,:,338) * inv(:,:, 1) - rate(:,:,344) = rate(:,:,344) * inv(:,:, 1) - rate(:,:,347) = rate(:,:,347) * inv(:,:, 1) - rate(:,:,353) = rate(:,:,353) * inv(:,:, 1) - rate(:,:,357) = rate(:,:,357) * inv(:,:, 1) - rate(:,:,359) = rate(:,:,359) * inv(:,:, 1) - rate(:,:,360) = rate(:,:,360) * inv(:,:, 1) - rate(:,:,361) = rate(:,:,361) * inv(:,:, 1) - rate(:,:,362) = rate(:,:,362) * inv(:,:, 1) - rate(:,:,363) = rate(:,:,363) * inv(:,:, 1) - rate(:,:,364) = rate(:,:,364) * inv(:,:, 1) - rate(:,:,366) = rate(:,:,366) * inv(:,:, 1) - rate(:,:,367) = rate(:,:,367) * inv(:,:, 1) - rate(:,:,368) = rate(:,:,368) * inv(:,:, 1) - rate(:,:,369) = rate(:,:,369) * inv(:,:, 1) - rate(:,:,370) = rate(:,:,370) * inv(:,:, 1) - rate(:,:,371) = rate(:,:,371) * inv(:,:, 1) - rate(:,:,372) = rate(:,:,372) * inv(:,:, 1) - rate(:,:,373) = rate(:,:,373) * inv(:,:, 1) - rate(:,:,374) = rate(:,:,374) * inv(:,:, 1) - rate(:,:,380) = rate(:,:,380) * inv(:,:, 1) - rate(:,:,381) = rate(:,:,381) * inv(:,:, 1) - rate(:,:,386) = rate(:,:,386) * inv(:,:, 2) - rate(:,:,390) = rate(:,:,390) * inv(:,:, 2) - rate(:,:,394) = rate(:,:,394) * inv(:,:, 2) - rate(:,:,399) = rate(:,:,399) * inv(:,:, 1) - rate(:,:,400) = rate(:,:,400) * inv(:,:, 1) - rate(:,:,406) = rate(:,:,406) * inv(:,:, 1) - rate(:,:,416) = rate(:,:,416) * inv(:,:, 1) - rate(:,:,428) = rate(:,:,428) * inv(:,:, 1) - rate(:,:,436) = rate(:,:,436) * inv(:,:, 1) - rate(:,:,439) = rate(:,:,439) * inv(:,:, 1) - rate(:,:,440) = rate(:,:,440) * inv(:,:, 1) - rate(:,:,441) = rate(:,:,441) * inv(:,:, 1) - rate(:,:,443) = rate(:,:,443) * inv(:,:, 1) - rate(:,:,444) = rate(:,:,444) * inv(:,:, 1) - rate(:,:,459) = rate(:,:,459) * inv(:,:, 1) - rate(:,:,479) = rate(:,:,479) * inv(:,:, 1) - rate(:,:,480) = rate(:,:,480) * inv(:,:, 1) - rate(:,:,490) = rate(:,:,490) * inv(:,:, 1) - rate(:,:,532) = rate(:,:,532) * inv(:,:, 1) - rate(:,:,571) = rate(:,:,571) * inv(:,:, 2) - rate(:,:,574) = rate(:,:,574) * inv(:,:, 2) - rate(:,:,578) = rate(:,:,578) * inv(:,:, 2) - rate(:,:,583) = rate(:,:,583) * inv(:,:, 2) - rate(:,:,584) = rate(:,:,584) * inv(:,:, 2) - rate(:,:,365) = rate(:,:,365) * inv(:,:, 2) * inv(:,:, 1) - rate(:,:,100) = rate(:,:,100) * m(:,:) - rate(:,:,101) = rate(:,:,101) * m(:,:) - rate(:,:,102) = rate(:,:,102) * m(:,:) - rate(:,:,103) = rate(:,:,103) * m(:,:) - rate(:,:,104) = rate(:,:,104) * m(:,:) - rate(:,:,105) = rate(:,:,105) * m(:,:) - rate(:,:,106) = rate(:,:,106) * m(:,:) - rate(:,:,107) = rate(:,:,107) * m(:,:) - rate(:,:,108) = rate(:,:,108) * m(:,:) - rate(:,:,109) = rate(:,:,109) * m(:,:) - rate(:,:,110) = rate(:,:,110) * m(:,:) - rate(:,:,111) = rate(:,:,111) * m(:,:) - rate(:,:,112) = rate(:,:,112) * m(:,:) - rate(:,:,113) = rate(:,:,113) * m(:,:) - rate(:,:,114) = rate(:,:,114) * m(:,:) - rate(:,:,115) = rate(:,:,115) * m(:,:) - rate(:,:,116) = rate(:,:,116) * m(:,:) - rate(:,:,117) = rate(:,:,117) * m(:,:) - rate(:,:,118) = rate(:,:,118) * m(:,:) - rate(:,:,119) = rate(:,:,119) * m(:,:) - rate(:,:,120) = rate(:,:,120) * m(:,:) - rate(:,:,121) = rate(:,:,121) * m(:,:) - rate(:,:,122) = rate(:,:,122) * m(:,:) - rate(:,:,123) = rate(:,:,123) * m(:,:) - rate(:,:,124) = rate(:,:,124) * m(:,:) - 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(:,:) - rate(:,:,133) = rate(:,:,133) * m(:,:) - rate(:,:,134) = rate(:,:,134) * m(:,:) - rate(:,:,135) = rate(:,:,135) * m(:,:) - rate(:,:,136) = rate(:,:,136) * m(:,:) - rate(:,:,137) = rate(:,:,137) * m(:,:) - rate(:,:,138) = rate(:,:,138) * m(:,:) - rate(:,:,139) = rate(:,:,139) * m(:,:) - rate(:,:,140) = rate(:,:,140) * m(:,:) - rate(:,:,141) = rate(:,:,141) * m(:,:) - rate(:,:,142) = rate(:,:,142) * m(:,:) - rate(:,:,143) = rate(:,:,143) * m(:,:) - rate(:,:,144) = rate(:,:,144) * m(:,:) - rate(:,:,145) = rate(:,:,145) * m(:,:) - rate(:,:,146) = rate(:,:,146) * m(:,:) - rate(:,:,147) = rate(:,:,147) * m(:,:) - rate(:,:,148) = rate(:,:,148) * m(:,:) - 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(:,:) - rate(:,:,156) = rate(:,:,156) * m(:,:) - rate(:,:,157) = rate(:,:,157) * m(:,:) - rate(:,:,158) = rate(:,:,158) * m(:,:) - rate(:,:,159) = rate(:,:,159) * m(:,:) - rate(:,:,160) = rate(:,:,160) * m(:,:) - rate(:,:,161) = rate(:,:,161) * m(:,:) - rate(:,:,162) = rate(:,:,162) * m(:,:) - rate(:,:,163) = rate(:,:,163) * m(:,:) - rate(:,:,164) = rate(:,:,164) * m(:,:) - rate(:,:,165) = rate(:,:,165) * m(:,:) - rate(:,:,166) = rate(:,:,166) * m(:,:) - rate(:,:,167) = rate(:,:,167) * m(:,:) - rate(:,:,168) = rate(:,:,168) * m(:,:) - rate(:,:,169) = rate(:,:,169) * m(:,:) - rate(:,:,170) = rate(:,:,170) * m(:,:) - rate(:,:,171) = rate(:,:,171) * m(:,:) - rate(:,:,172) = rate(:,:,172) * m(:,:) - rate(:,:,173) = rate(:,:,173) * m(:,:) - rate(:,:,174) = rate(:,:,174) * m(:,:) - rate(:,:,175) = rate(:,:,175) * m(:,:) - rate(:,:,176) = rate(:,:,176) * m(:,:) - rate(:,:,177) = rate(:,:,177) * 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(:,:) - rate(:,:,184) = rate(:,:,184) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,197) = rate(:,:,197) * m(:,:) - rate(:,:,198) = rate(:,:,198) * m(:,:) - rate(:,:,199) = rate(:,:,199) * m(:,:) - rate(:,:,200) = rate(:,:,200) * m(:,:) - rate(:,:,201) = rate(:,:,201) * m(:,:) - rate(:,:,202) = rate(:,:,202) * m(:,:) - rate(:,:,203) = rate(:,:,203) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,221) = rate(:,:,221) * m(:,:) - rate(:,:,222) = rate(:,:,222) * m(:,:) - rate(:,:,223) = rate(:,:,223) * m(:,:) - rate(:,:,224) = rate(:,:,224) * m(:,:) - rate(:,:,225) = rate(:,:,225) * m(:,:) - rate(:,:,226) = rate(:,:,226) * m(:,:) - rate(:,:,227) = rate(:,:,227) * m(:,:) - rate(:,:,228) = rate(:,:,228) * m(:,:) - rate(:,:,229) = rate(:,:,229) * m(:,:) - rate(:,:,230) = rate(:,:,230) * m(:,:) - rate(:,:,231) = rate(:,:,231) * m(:,:) - rate(:,:,232) = rate(:,:,232) * 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(:,:) - rate(:,:,239) = rate(:,:,239) * m(:,:) - rate(:,:,240) = rate(:,:,240) * m(:,:) - rate(:,:,241) = rate(:,:,241) * m(:,:) - rate(:,:,242) = rate(:,:,242) * m(:,:) - rate(:,:,243) = rate(:,:,243) * m(:,:) - rate(:,:,244) = rate(:,:,244) * m(:,:) - rate(:,:,245) = rate(:,:,245) * m(:,:) - 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(:,:) - rate(:,:,257) = rate(:,:,257) * m(:,:) - rate(:,:,258) = rate(:,:,258) * m(:,:) - rate(:,:,259) = rate(:,:,259) * m(:,:) - rate(:,:,260) = rate(:,:,260) * m(:,:) - rate(:,:,261) = rate(:,:,261) * m(:,:) - rate(:,:,262) = rate(:,:,262) * m(:,:) - rate(:,:,263) = rate(:,:,263) * m(:,:) - rate(:,:,264) = rate(:,:,264) * m(:,:) - rate(:,:,265) = rate(:,:,265) * m(:,:) - rate(:,:,266) = rate(:,:,266) * m(:,:) - rate(:,:,267) = rate(:,:,267) * 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(:,:) - rate(:,:,276) = rate(:,:,276) * m(:,:) - rate(:,:,280) = rate(:,:,280) * m(:,:) - rate(:,:,281) = rate(:,:,281) * m(:,:) - rate(:,:,282) = rate(:,:,282) * m(:,:) - rate(:,:,283) = rate(:,:,283) * m(:,:) - rate(:,:,284) = rate(:,:,284) * m(:,:) - rate(:,:,285) = rate(:,:,285) * m(:,:) - rate(:,:,286) = rate(:,:,286) * m(:,:) - rate(:,:,287) = rate(:,:,287) * m(:,:) - rate(:,:,288) = rate(:,:,288) * m(:,:) - rate(:,:,289) = rate(:,:,289) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,316) = rate(:,:,316) * m(:,:) - rate(:,:,317) = rate(:,:,317) * m(:,:) - rate(:,:,318) = rate(:,:,318) * m(:,:) - rate(:,:,319) = rate(:,:,319) * m(:,:) - rate(:,:,320) = rate(:,:,320) * m(:,:) - rate(:,:,321) = rate(:,:,321) * m(:,:) - rate(:,:,322) = rate(:,:,322) * m(:,:) - rate(:,:,323) = rate(:,:,323) * m(:,:) - rate(:,:,324) = rate(:,:,324) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,354) = rate(:,:,354) * m(:,:) - 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(:,:,367) = rate(:,:,367) * m(:,:) - rate(:,:,369) = rate(:,:,369) * m(:,:) - rate(:,:,371) = rate(:,:,371) * m(:,:) - rate(:,:,373) = rate(:,:,373) * m(:,:) - rate(:,:,375) = rate(:,:,375) * m(:,:) - rate(:,:,376) = rate(:,:,376) * m(:,:) - rate(:,:,377) = rate(:,:,377) * m(:,:) - rate(:,:,378) = rate(:,:,378) * m(:,:) - rate(:,:,379) = rate(:,:,379) * m(:,:) - rate(:,:,384) = rate(:,:,384) * m(:,:) - rate(:,:,385) = rate(:,:,385) * m(:,:) - rate(:,:,387) = rate(:,:,387) * m(:,:) - rate(:,:,388) = rate(:,:,388) * m(:,:) - rate(:,:,389) = rate(:,:,389) * m(:,:) - rate(:,:,391) = rate(:,:,391) * m(:,:) - rate(:,:,392) = rate(:,:,392) * m(:,:) - rate(:,:,393) = rate(:,:,393) * 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(:,:) - 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(:,:,408) = rate(:,:,408) * m(:,:) - rate(:,:,409) = rate(:,:,409) * m(:,:) - 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(:,:) - 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(:,:) - 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(:,:,436) = rate(:,:,436) * m(:,:) - rate(:,:,437) = rate(:,:,437) * m(:,:) - rate(:,:,438) = rate(:,:,438) * m(:,:) - rate(:,:,439) = rate(:,:,439) * m(:,:) - rate(:,:,440) = rate(:,:,440) * m(:,:) - rate(:,:,441) = rate(:,:,441) * m(:,:) - rate(:,:,442) = rate(:,:,442) * m(:,:) - rate(:,:,445) = rate(:,:,445) * m(:,:) - rate(:,:,446) = rate(:,:,446) * m(:,:) - rate(:,:,447) = rate(:,:,447) * m(:,:) - rate(:,:,448) = rate(:,:,448) * m(:,:) - rate(:,:,449) = rate(:,:,449) * m(:,:) - rate(:,:,450) = rate(:,:,450) * m(:,:) - rate(:,:,451) = rate(:,:,451) * m(:,:) - rate(:,:,452) = rate(:,:,452) * m(:,:) - rate(:,:,453) = rate(:,:,453) * m(:,:) - rate(:,:,454) = rate(:,:,454) * m(:,:) - rate(:,:,455) = rate(:,:,455) * m(:,:) - rate(:,:,456) = rate(:,:,456) * m(:,:) - rate(:,:,457) = rate(:,:,457) * m(:,:) - rate(:,:,458) = rate(:,:,458) * m(:,:) - rate(:,:,459) = rate(:,:,459) * m(:,:) - rate(:,:,460) = rate(:,:,460) * m(:,:) - rate(:,:,461) = rate(:,:,461) * m(:,:) - rate(:,:,462) = rate(:,:,462) * m(:,:) - rate(:,:,463) = rate(:,:,463) * m(:,:) - rate(:,:,464) = rate(:,:,464) * m(:,:) - rate(:,:,465) = rate(:,:,465) * m(:,:) - rate(:,:,466) = rate(:,:,466) * m(:,:) - 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(:,:) - rate(:,:,478) = rate(:,:,478) * m(:,:) - rate(:,:,479) = rate(:,:,479) * m(:,:) - rate(:,:,481) = rate(:,:,481) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,497) = rate(:,:,497) * m(:,:) - rate(:,:,498) = rate(:,:,498) * m(:,:) - rate(:,:,499) = rate(:,:,499) * m(:,:) - rate(:,:,500) = rate(:,:,500) * m(:,:) - rate(:,:,501) = rate(:,:,501) * m(:,:) - rate(:,:,502) = rate(:,:,502) * m(:,:) - rate(:,:,503) = rate(:,:,503) * m(:,:) - rate(:,:,504) = rate(:,:,504) * m(:,:) - rate(:,:,505) = rate(:,:,505) * m(:,:) - rate(:,:,506) = rate(:,:,506) * m(:,:) - rate(:,:,507) = rate(:,:,507) * m(:,:) - rate(:,:,508) = rate(:,:,508) * m(:,:) - rate(:,:,509) = rate(:,:,509) * m(:,:) - rate(:,:,510) = rate(:,:,510) * m(:,:) - rate(:,:,511) = rate(:,:,511) * m(:,:) - rate(:,:,512) = rate(:,:,512) * m(:,:) - rate(:,:,513) = rate(:,:,513) * m(:,:) - rate(:,:,514) = rate(:,:,514) * m(:,:) - rate(:,:,515) = rate(:,:,515) * m(:,:) - rate(:,:,516) = rate(:,:,516) * m(:,:) - rate(:,:,517) = rate(:,:,517) * m(:,:) - rate(:,:,518) = rate(:,:,518) * m(:,:) - rate(:,:,519) = rate(:,:,519) * m(:,:) - rate(:,:,520) = rate(:,:,520) * m(:,:) - rate(:,:,521) = rate(:,:,521) * m(:,:) - rate(:,:,522) = rate(:,:,522) * m(:,:) - rate(:,:,523) = rate(:,:,523) * m(:,:) - rate(:,:,524) = rate(:,:,524) * m(:,:) - rate(:,:,525) = rate(:,:,525) * m(:,:) - rate(:,:,526) = rate(:,:,526) * m(:,:) - rate(:,:,527) = rate(:,:,527) * m(:,:) - rate(:,:,528) = rate(:,:,528) * m(:,:) - rate(:,:,529) = rate(:,:,529) * m(:,:) - rate(:,:,530) = rate(:,:,530) * m(:,:) - rate(:,:,531) = rate(:,:,531) * m(:,:) - rate(:,:,532) = rate(:,:,532) * m(:,:) - rate(:,:,533) = rate(:,:,533) * m(:,:) - rate(:,:,534) = rate(:,:,534) * m(:,:) - rate(:,:,535) = rate(:,:,535) * m(:,:) - rate(:,:,536) = rate(:,:,536) * m(:,:) - rate(:,:,542) = rate(:,:,542) * m(:,:) - rate(:,:,547) = rate(:,:,547) * m(:,:) - rate(:,:,548) = rate(:,:,548) * m(:,:) - rate(:,:,549) = rate(:,:,549) * m(:,:) - rate(:,:,552) = rate(:,:,552) * m(:,:) - rate(:,:,553) = rate(:,:,553) * m(:,:) - rate(:,:,554) = rate(:,:,554) * m(:,:) - rate(:,:,557) = rate(:,:,557) * m(:,:) - rate(:,:,561) = rate(:,:,561) * m(:,:) - rate(:,:,562) = rate(:,:,562) * m(:,:) - rate(:,:,563) = rate(:,:,563) * m(:,:) - rate(:,:,564) = rate(:,:,564) * m(:,:) - rate(:,:,565) = rate(:,:,565) * m(:,:) - rate(:,:,566) = rate(:,:,566) * m(:,:) - rate(:,:,567) = rate(:,:,567) * m(:,:) - rate(:,:,568) = rate(:,:,568) * m(:,:) - rate(:,:,569) = rate(:,:,569) * m(:,:) - rate(:,:,570) = rate(:,:,570) * m(:,:) - rate(:,:,572) = rate(:,:,572) * m(:,:) - rate(:,:,573) = rate(:,:,573) * m(:,:) - rate(:,:,575) = rate(:,:,575) * m(:,:) - rate(:,:,576) = rate(:,:,576) * m(:,:) - rate(:,:,577) = rate(:,:,577) * m(:,:) - rate(:,:,579) = rate(:,:,579) * m(:,:) - rate(:,:,580) = rate(:,:,580) * m(:,:) - rate(:,:,581) = rate(:,:,581) * m(:,:) - rate(:,:,582) = rate(:,:,582) * m(:,:) - rate(:,:,585) = rate(:,:,585) * m(:,:) + rate(:,:, 102) = rate(:,:, 102) * inv(:,:, 1) + rate(:,:, 103) = rate(:,:, 103) * inv(:,:, 1) + rate(:,:, 113) = rate(:,:, 113) * inv(:,:, 1) + rate(:,:, 114) = rate(:,:, 114) * inv(:,:, 1) + rate(:,:, 128) = rate(:,:, 128) * inv(:,:, 2) + rate(:,:, 130) = rate(:,:, 130) * inv(:,:, 1) + rate(:,:, 132) = rate(:,:, 132) * inv(:,:, 2) + rate(:,:, 253) = rate(:,:, 253) * inv(:,:, 1) + rate(:,:, 254) = rate(:,:, 254) * inv(:,:, 1) + rate(:,:, 255) = rate(:,:, 255) * inv(:,:, 1) + rate(:,:, 256) = rate(:,:, 256) * inv(:,:, 1) + rate(:,:, 257) = rate(:,:, 257) * inv(:,:, 1) + rate(:,:, 258) = rate(:,:, 258) * inv(:,:, 1) + rate(:,:, 259) = rate(:,:, 259) * inv(:,:, 1) + rate(:,:, 260) = rate(:,:, 260) * inv(:,:, 1) + rate(:,:, 261) = rate(:,:, 261) * inv(:,:, 1) + rate(:,:, 262) = rate(:,:, 262) * inv(:,:, 1) + rate(:,:, 263) = rate(:,:, 263) * inv(:,:, 1) + rate(:,:, 264) = rate(:,:, 264) * inv(:,:, 1) + rate(:,:, 265) = rate(:,:, 265) * inv(:,:, 1) + rate(:,:, 266) = rate(:,:, 266) * inv(:,:, 1) + rate(:,:, 268) = rate(:,:, 268) * inv(:,:, 1) + rate(:,:, 269) = rate(:,:, 269) * inv(:,:, 1) + rate(:,:, 270) = rate(:,:, 270) * inv(:,:, 1) + rate(:,:, 271) = rate(:,:, 271) * inv(:,:, 1) + rate(:,:, 277) = rate(:,:, 277) * inv(:,:, 1) + rate(:,:, 278) = rate(:,:, 278) * inv(:,:, 1) + rate(:,:, 279) = rate(:,:, 279) * inv(:,:, 1) + rate(:,:, 283) = rate(:,:, 283) * inv(:,:, 1) + rate(:,:, 289) = rate(:,:, 289) * inv(:,:, 1) + rate(:,:, 291) = rate(:,:, 291) * inv(:,:, 1) + rate(:,:, 295) = rate(:,:, 295) * inv(:,:, 1) + rate(:,:, 311) = rate(:,:, 311) * inv(:,:, 1) + rate(:,:, 317) = rate(:,:, 317) * inv(:,:, 1) + rate(:,:, 324) = rate(:,:, 324) * inv(:,:, 1) + rate(:,:, 338) = rate(:,:, 338) * inv(:,:, 1) + rate(:,:, 344) = rate(:,:, 344) * inv(:,:, 1) + rate(:,:, 347) = rate(:,:, 347) * inv(:,:, 1) + rate(:,:, 353) = rate(:,:, 353) * inv(:,:, 1) + rate(:,:, 357) = rate(:,:, 357) * inv(:,:, 1) + rate(:,:, 359) = rate(:,:, 359) * inv(:,:, 1) + rate(:,:, 360) = rate(:,:, 360) * inv(:,:, 1) + rate(:,:, 361) = rate(:,:, 361) * inv(:,:, 1) + rate(:,:, 362) = rate(:,:, 362) * inv(:,:, 1) + rate(:,:, 363) = rate(:,:, 363) * inv(:,:, 1) + rate(:,:, 364) = rate(:,:, 364) * inv(:,:, 1) + rate(:,:, 366) = rate(:,:, 366) * inv(:,:, 1) + rate(:,:, 367) = rate(:,:, 367) * inv(:,:, 1) + rate(:,:, 368) = rate(:,:, 368) * inv(:,:, 1) + rate(:,:, 369) = rate(:,:, 369) * inv(:,:, 1) + rate(:,:, 370) = rate(:,:, 370) * inv(:,:, 1) + rate(:,:, 371) = rate(:,:, 371) * inv(:,:, 1) + rate(:,:, 372) = rate(:,:, 372) * inv(:,:, 1) + rate(:,:, 373) = rate(:,:, 373) * inv(:,:, 1) + rate(:,:, 374) = rate(:,:, 374) * inv(:,:, 1) + rate(:,:, 380) = rate(:,:, 380) * inv(:,:, 1) + rate(:,:, 381) = rate(:,:, 381) * inv(:,:, 1) + rate(:,:, 386) = rate(:,:, 386) * inv(:,:, 2) + rate(:,:, 390) = rate(:,:, 390) * inv(:,:, 2) + rate(:,:, 394) = rate(:,:, 394) * inv(:,:, 2) + rate(:,:, 399) = rate(:,:, 399) * inv(:,:, 1) + rate(:,:, 400) = rate(:,:, 400) * inv(:,:, 1) + rate(:,:, 406) = rate(:,:, 406) * inv(:,:, 1) + rate(:,:, 416) = rate(:,:, 416) * inv(:,:, 1) + rate(:,:, 428) = rate(:,:, 428) * inv(:,:, 1) + rate(:,:, 436) = rate(:,:, 436) * inv(:,:, 1) + rate(:,:, 439) = rate(:,:, 439) * inv(:,:, 1) + rate(:,:, 440) = rate(:,:, 440) * inv(:,:, 1) + rate(:,:, 441) = rate(:,:, 441) * inv(:,:, 1) + rate(:,:, 443) = rate(:,:, 443) * inv(:,:, 1) + rate(:,:, 444) = rate(:,:, 444) * inv(:,:, 1) + rate(:,:, 459) = rate(:,:, 459) * inv(:,:, 1) + rate(:,:, 479) = rate(:,:, 479) * inv(:,:, 1) + rate(:,:, 480) = rate(:,:, 480) * inv(:,:, 1) + rate(:,:, 490) = rate(:,:, 490) * inv(:,:, 1) + rate(:,:, 532) = rate(:,:, 532) * inv(:,:, 1) + rate(:,:, 571) = rate(:,:, 571) * inv(:,:, 2) + rate(:,:, 574) = rate(:,:, 574) * inv(:,:, 2) + rate(:,:, 578) = rate(:,:, 578) * inv(:,:, 2) + rate(:,:, 583) = rate(:,:, 583) * inv(:,:, 2) + rate(:,:, 584) = rate(:,:, 584) * inv(:,:, 2) + rate(:,:, 365) = rate(:,:, 365) * inv(:,:, 2) * inv(:,:, 1) + rate(:,:, 100) = rate(:,:, 100) * m(:,:) + rate(:,:, 101) = rate(:,:, 101) * m(:,:) + rate(:,:, 102) = rate(:,:, 102) * m(:,:) + rate(:,:, 103) = rate(:,:, 103) * m(:,:) + rate(:,:, 104) = rate(:,:, 104) * m(:,:) + rate(:,:, 105) = rate(:,:, 105) * m(:,:) + rate(:,:, 106) = rate(:,:, 106) * m(:,:) + rate(:,:, 107) = rate(:,:, 107) * m(:,:) + rate(:,:, 108) = rate(:,:, 108) * m(:,:) + rate(:,:, 109) = rate(:,:, 109) * m(:,:) + rate(:,:, 110) = rate(:,:, 110) * m(:,:) + rate(:,:, 111) = rate(:,:, 111) * m(:,:) + rate(:,:, 112) = rate(:,:, 112) * m(:,:) + rate(:,:, 113) = rate(:,:, 113) * m(:,:) + rate(:,:, 114) = rate(:,:, 114) * m(:,:) + rate(:,:, 115) = rate(:,:, 115) * m(:,:) + rate(:,:, 116) = rate(:,:, 116) * m(:,:) + rate(:,:, 117) = rate(:,:, 117) * m(:,:) + rate(:,:, 118) = rate(:,:, 118) * m(:,:) + rate(:,:, 119) = rate(:,:, 119) * m(:,:) + rate(:,:, 120) = rate(:,:, 120) * m(:,:) + rate(:,:, 121) = rate(:,:, 121) * m(:,:) + rate(:,:, 122) = rate(:,:, 122) * m(:,:) + rate(:,:, 123) = rate(:,:, 123) * m(:,:) + rate(:,:, 124) = rate(:,:, 124) * m(:,:) + 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(:,:) + rate(:,:, 133) = rate(:,:, 133) * m(:,:) + rate(:,:, 134) = rate(:,:, 134) * m(:,:) + rate(:,:, 135) = rate(:,:, 135) * m(:,:) + rate(:,:, 136) = rate(:,:, 136) * m(:,:) + rate(:,:, 137) = rate(:,:, 137) * m(:,:) + rate(:,:, 138) = rate(:,:, 138) * m(:,:) + rate(:,:, 139) = rate(:,:, 139) * m(:,:) + rate(:,:, 140) = rate(:,:, 140) * m(:,:) + rate(:,:, 141) = rate(:,:, 141) * m(:,:) + rate(:,:, 142) = rate(:,:, 142) * m(:,:) + rate(:,:, 143) = rate(:,:, 143) * m(:,:) + rate(:,:, 144) = rate(:,:, 144) * m(:,:) + rate(:,:, 145) = rate(:,:, 145) * m(:,:) + rate(:,:, 146) = rate(:,:, 146) * m(:,:) + rate(:,:, 147) = rate(:,:, 147) * m(:,:) + rate(:,:, 148) = rate(:,:, 148) * m(:,:) + 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(:,:) + rate(:,:, 156) = rate(:,:, 156) * m(:,:) + rate(:,:, 157) = rate(:,:, 157) * m(:,:) + rate(:,:, 158) = rate(:,:, 158) * m(:,:) + rate(:,:, 159) = rate(:,:, 159) * m(:,:) + rate(:,:, 160) = rate(:,:, 160) * m(:,:) + rate(:,:, 161) = rate(:,:, 161) * m(:,:) + rate(:,:, 162) = rate(:,:, 162) * m(:,:) + rate(:,:, 163) = rate(:,:, 163) * m(:,:) + rate(:,:, 164) = rate(:,:, 164) * m(:,:) + rate(:,:, 165) = rate(:,:, 165) * m(:,:) + rate(:,:, 166) = rate(:,:, 166) * m(:,:) + rate(:,:, 167) = rate(:,:, 167) * m(:,:) + rate(:,:, 168) = rate(:,:, 168) * m(:,:) + rate(:,:, 169) = rate(:,:, 169) * m(:,:) + rate(:,:, 170) = rate(:,:, 170) * m(:,:) + rate(:,:, 171) = rate(:,:, 171) * m(:,:) + rate(:,:, 172) = rate(:,:, 172) * m(:,:) + rate(:,:, 173) = rate(:,:, 173) * m(:,:) + rate(:,:, 174) = rate(:,:, 174) * m(:,:) + rate(:,:, 175) = rate(:,:, 175) * m(:,:) + rate(:,:, 176) = rate(:,:, 176) * m(:,:) + rate(:,:, 177) = rate(:,:, 177) * 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(:,:) + rate(:,:, 184) = rate(:,:, 184) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 197) = rate(:,:, 197) * m(:,:) + rate(:,:, 198) = rate(:,:, 198) * m(:,:) + rate(:,:, 199) = rate(:,:, 199) * m(:,:) + rate(:,:, 200) = rate(:,:, 200) * m(:,:) + rate(:,:, 201) = rate(:,:, 201) * m(:,:) + rate(:,:, 202) = rate(:,:, 202) * m(:,:) + rate(:,:, 203) = rate(:,:, 203) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 221) = rate(:,:, 221) * m(:,:) + rate(:,:, 222) = rate(:,:, 222) * m(:,:) + rate(:,:, 223) = rate(:,:, 223) * m(:,:) + rate(:,:, 224) = rate(:,:, 224) * m(:,:) + rate(:,:, 225) = rate(:,:, 225) * m(:,:) + rate(:,:, 226) = rate(:,:, 226) * m(:,:) + rate(:,:, 227) = rate(:,:, 227) * m(:,:) + rate(:,:, 228) = rate(:,:, 228) * m(:,:) + rate(:,:, 229) = rate(:,:, 229) * m(:,:) + rate(:,:, 230) = rate(:,:, 230) * m(:,:) + rate(:,:, 231) = rate(:,:, 231) * m(:,:) + rate(:,:, 232) = rate(:,:, 232) * 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(:,:) + rate(:,:, 239) = rate(:,:, 239) * m(:,:) + rate(:,:, 240) = rate(:,:, 240) * m(:,:) + rate(:,:, 241) = rate(:,:, 241) * m(:,:) + rate(:,:, 242) = rate(:,:, 242) * m(:,:) + rate(:,:, 243) = rate(:,:, 243) * m(:,:) + rate(:,:, 244) = rate(:,:, 244) * m(:,:) + rate(:,:, 245) = rate(:,:, 245) * m(:,:) + 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(:,:) + rate(:,:, 257) = rate(:,:, 257) * m(:,:) + rate(:,:, 258) = rate(:,:, 258) * m(:,:) + rate(:,:, 259) = rate(:,:, 259) * m(:,:) + rate(:,:, 260) = rate(:,:, 260) * m(:,:) + rate(:,:, 261) = rate(:,:, 261) * m(:,:) + rate(:,:, 262) = rate(:,:, 262) * m(:,:) + rate(:,:, 263) = rate(:,:, 263) * m(:,:) + rate(:,:, 264) = rate(:,:, 264) * m(:,:) + rate(:,:, 265) = rate(:,:, 265) * m(:,:) + rate(:,:, 266) = rate(:,:, 266) * m(:,:) + rate(:,:, 267) = rate(:,:, 267) * 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(:,:) + rate(:,:, 276) = rate(:,:, 276) * m(:,:) + rate(:,:, 280) = rate(:,:, 280) * m(:,:) + rate(:,:, 281) = rate(:,:, 281) * m(:,:) + rate(:,:, 282) = rate(:,:, 282) * m(:,:) + rate(:,:, 283) = rate(:,:, 283) * m(:,:) + rate(:,:, 284) = rate(:,:, 284) * m(:,:) + rate(:,:, 285) = rate(:,:, 285) * m(:,:) + rate(:,:, 286) = rate(:,:, 286) * m(:,:) + rate(:,:, 287) = rate(:,:, 287) * m(:,:) + rate(:,:, 288) = rate(:,:, 288) * m(:,:) + rate(:,:, 289) = rate(:,:, 289) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 316) = rate(:,:, 316) * m(:,:) + rate(:,:, 317) = rate(:,:, 317) * m(:,:) + rate(:,:, 318) = rate(:,:, 318) * m(:,:) + rate(:,:, 319) = rate(:,:, 319) * m(:,:) + rate(:,:, 320) = rate(:,:, 320) * m(:,:) + rate(:,:, 321) = rate(:,:, 321) * m(:,:) + rate(:,:, 322) = rate(:,:, 322) * m(:,:) + rate(:,:, 323) = rate(:,:, 323) * m(:,:) + rate(:,:, 324) = rate(:,:, 324) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 354) = rate(:,:, 354) * m(:,:) + 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(:,:, 367) = rate(:,:, 367) * m(:,:) + rate(:,:, 369) = rate(:,:, 369) * m(:,:) + rate(:,:, 371) = rate(:,:, 371) * m(:,:) + rate(:,:, 373) = rate(:,:, 373) * m(:,:) + rate(:,:, 375) = rate(:,:, 375) * m(:,:) + rate(:,:, 376) = rate(:,:, 376) * m(:,:) + rate(:,:, 377) = rate(:,:, 377) * m(:,:) + rate(:,:, 378) = rate(:,:, 378) * m(:,:) + rate(:,:, 379) = rate(:,:, 379) * m(:,:) + rate(:,:, 384) = rate(:,:, 384) * m(:,:) + rate(:,:, 385) = rate(:,:, 385) * m(:,:) + rate(:,:, 387) = rate(:,:, 387) * m(:,:) + rate(:,:, 388) = rate(:,:, 388) * m(:,:) + rate(:,:, 389) = rate(:,:, 389) * m(:,:) + rate(:,:, 391) = rate(:,:, 391) * m(:,:) + rate(:,:, 392) = rate(:,:, 392) * m(:,:) + rate(:,:, 393) = rate(:,:, 393) * 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(:,:) + 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(:,:, 408) = rate(:,:, 408) * m(:,:) + rate(:,:, 409) = rate(:,:, 409) * m(:,:) + 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(:,:) + 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(:,:) + 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(:,:, 436) = rate(:,:, 436) * m(:,:) + rate(:,:, 437) = rate(:,:, 437) * m(:,:) + rate(:,:, 438) = rate(:,:, 438) * m(:,:) + rate(:,:, 439) = rate(:,:, 439) * m(:,:) + rate(:,:, 440) = rate(:,:, 440) * m(:,:) + rate(:,:, 441) = rate(:,:, 441) * m(:,:) + rate(:,:, 442) = rate(:,:, 442) * m(:,:) + rate(:,:, 445) = rate(:,:, 445) * m(:,:) + rate(:,:, 446) = rate(:,:, 446) * m(:,:) + rate(:,:, 447) = rate(:,:, 447) * m(:,:) + rate(:,:, 448) = rate(:,:, 448) * m(:,:) + rate(:,:, 449) = rate(:,:, 449) * m(:,:) + rate(:,:, 450) = rate(:,:, 450) * m(:,:) + rate(:,:, 451) = rate(:,:, 451) * m(:,:) + rate(:,:, 452) = rate(:,:, 452) * m(:,:) + rate(:,:, 453) = rate(:,:, 453) * m(:,:) + rate(:,:, 454) = rate(:,:, 454) * m(:,:) + rate(:,:, 455) = rate(:,:, 455) * m(:,:) + rate(:,:, 456) = rate(:,:, 456) * m(:,:) + rate(:,:, 457) = rate(:,:, 457) * m(:,:) + rate(:,:, 458) = rate(:,:, 458) * m(:,:) + rate(:,:, 459) = rate(:,:, 459) * m(:,:) + rate(:,:, 460) = rate(:,:, 460) * m(:,:) + rate(:,:, 461) = rate(:,:, 461) * m(:,:) + rate(:,:, 462) = rate(:,:, 462) * m(:,:) + rate(:,:, 463) = rate(:,:, 463) * m(:,:) + rate(:,:, 464) = rate(:,:, 464) * m(:,:) + rate(:,:, 465) = rate(:,:, 465) * m(:,:) + rate(:,:, 466) = rate(:,:, 466) * m(:,:) + 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(:,:) + rate(:,:, 478) = rate(:,:, 478) * m(:,:) + rate(:,:, 479) = rate(:,:, 479) * m(:,:) + rate(:,:, 481) = rate(:,:, 481) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 497) = rate(:,:, 497) * m(:,:) + rate(:,:, 498) = rate(:,:, 498) * m(:,:) + rate(:,:, 499) = rate(:,:, 499) * m(:,:) + rate(:,:, 500) = rate(:,:, 500) * m(:,:) + rate(:,:, 501) = rate(:,:, 501) * m(:,:) + rate(:,:, 502) = rate(:,:, 502) * m(:,:) + rate(:,:, 503) = rate(:,:, 503) * m(:,:) + rate(:,:, 504) = rate(:,:, 504) * m(:,:) + rate(:,:, 505) = rate(:,:, 505) * m(:,:) + rate(:,:, 506) = rate(:,:, 506) * m(:,:) + rate(:,:, 507) = rate(:,:, 507) * m(:,:) + rate(:,:, 508) = rate(:,:, 508) * m(:,:) + rate(:,:, 509) = rate(:,:, 509) * m(:,:) + rate(:,:, 510) = rate(:,:, 510) * m(:,:) + rate(:,:, 511) = rate(:,:, 511) * m(:,:) + rate(:,:, 512) = rate(:,:, 512) * m(:,:) + rate(:,:, 513) = rate(:,:, 513) * m(:,:) + rate(:,:, 514) = rate(:,:, 514) * m(:,:) + rate(:,:, 515) = rate(:,:, 515) * m(:,:) + rate(:,:, 516) = rate(:,:, 516) * m(:,:) + rate(:,:, 517) = rate(:,:, 517) * m(:,:) + rate(:,:, 518) = rate(:,:, 518) * m(:,:) + rate(:,:, 519) = rate(:,:, 519) * m(:,:) + rate(:,:, 520) = rate(:,:, 520) * m(:,:) + rate(:,:, 521) = rate(:,:, 521) * m(:,:) + rate(:,:, 522) = rate(:,:, 522) * m(:,:) + rate(:,:, 523) = rate(:,:, 523) * m(:,:) + rate(:,:, 524) = rate(:,:, 524) * m(:,:) + rate(:,:, 525) = rate(:,:, 525) * m(:,:) + rate(:,:, 526) = rate(:,:, 526) * m(:,:) + rate(:,:, 527) = rate(:,:, 527) * m(:,:) + rate(:,:, 528) = rate(:,:, 528) * m(:,:) + rate(:,:, 529) = rate(:,:, 529) * m(:,:) + rate(:,:, 530) = rate(:,:, 530) * m(:,:) + rate(:,:, 531) = rate(:,:, 531) * m(:,:) + rate(:,:, 532) = rate(:,:, 532) * m(:,:) + rate(:,:, 533) = rate(:,:, 533) * m(:,:) + rate(:,:, 534) = rate(:,:, 534) * m(:,:) + rate(:,:, 535) = rate(:,:, 535) * m(:,:) + rate(:,:, 536) = rate(:,:, 536) * m(:,:) + rate(:,:, 542) = rate(:,:, 542) * m(:,:) + rate(:,:, 547) = rate(:,:, 547) * m(:,:) + rate(:,:, 548) = rate(:,:, 548) * m(:,:) + rate(:,:, 549) = rate(:,:, 549) * m(:,:) + rate(:,:, 552) = rate(:,:, 552) * m(:,:) + rate(:,:, 553) = rate(:,:, 553) * m(:,:) + rate(:,:, 554) = rate(:,:, 554) * m(:,:) + rate(:,:, 557) = rate(:,:, 557) * m(:,:) + rate(:,:, 561) = rate(:,:, 561) * m(:,:) + rate(:,:, 562) = rate(:,:, 562) * m(:,:) + rate(:,:, 563) = rate(:,:, 563) * m(:,:) + rate(:,:, 564) = rate(:,:, 564) * m(:,:) + rate(:,:, 565) = rate(:,:, 565) * m(:,:) + rate(:,:, 566) = rate(:,:, 566) * m(:,:) + rate(:,:, 567) = rate(:,:, 567) * m(:,:) + rate(:,:, 568) = rate(:,:, 568) * m(:,:) + rate(:,:, 569) = rate(:,:, 569) * m(:,:) + rate(:,:, 570) = rate(:,:, 570) * m(:,:) + rate(:,:, 572) = rate(:,:, 572) * m(:,:) + rate(:,:, 573) = rate(:,:, 573) * m(:,:) + rate(:,:, 575) = rate(:,:, 575) * m(:,:) + rate(:,:, 576) = rate(:,:, 576) * m(:,:) + rate(:,:, 577) = rate(:,:, 577) * m(:,:) + rate(:,:, 579) = rate(:,:, 579) * m(:,:) + rate(:,:, 580) = rate(:,:, 580) * m(:,:) + rate(:,:, 581) = rate(:,:, 581) * m(:,:) + rate(:,:, 582) = rate(:,:, 582) * m(:,:) + rate(:,:, 585) = rate(:,:, 585) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_mad/mo_exp_sol.F90 b/src/chemistry/pp_waccm_mad/mo_exp_sol.F90 index c1cde93fa7..cfde22391a 100644 --- a/src/chemistry/pp_waccm_mad/mo_exp_sol.F90 +++ b/src/chemistry/pp_waccm_mad/mo_exp_sol.F90 @@ -6,6 +6,7 @@ module mo_exp_sol subroutine exp_sol_inti use mo_tracname, only : solsym use chem_mods, only : clscnt1, clsmap + use ppgrid, only : pver use cam_history, only : addfld implicit none integer :: i,j @@ -45,23 +46,20 @@ subroutine exp_sol( base_sol, reaction_rates, het_rates, extfrc, delt, xhnm, nco ! ... Local variables !----------------------------------------------------------------------- integer :: i, k, l, m - integer :: chnkpnts - real(r8), dimension(ncol,pver,max(1,clscnt1)) :: & + real(r8), dimension(ncol,pver,clscnt1) :: & prod, & - loss - real(r8), dimension(ncol,pver,clscnt1) :: ind_prd + loss, & + ind_prd real(r8), dimension(ncol,pver) :: wrk - chnkpnts = ncol*pver !----------------------------------------------------------------------- ! ... Put "independent" production in the forcing !----------------------------------------------------------------------- call indprd( 1, ind_prd, clscnt1, base_sol, extfrc, & - reaction_rates, chnkpnts ) + reaction_rates, ncol ) !----------------------------------------------------------------------- ! ... Form F(y) !----------------------------------------------------------------------- - call exp_prod_loss( 1, chnkpnts, prod, loss, base_sol, reaction_rates, & - het_rates, chnkpnts ) + call exp_prod_loss( prod, loss, base_sol, reaction_rates, het_rates ) !----------------------------------------------------------------------- ! ... Solve for the mixing ratio at t(n+1) !----------------------------------------------------------------------- diff --git a/src/chemistry/pp_waccm_mad/mo_imp_sol.F90 b/src/chemistry/pp_waccm_mad/mo_imp_sol.F90 index 98cadb9050..d885728ba4 100644 --- a/src/chemistry/pp_waccm_mad/mo_imp_sol.F90 +++ b/src/chemistry/pp_waccm_mad/mo_imp_sol.F90 @@ -1,6 +1,6 @@ module mo_imp_sol use shr_kind_mod, only : r8 => shr_kind_r8 - use chem_mods, only : clscnt4, gas_pcnst, clsmap, veclen + use chem_mods, only : clscnt4, gas_pcnst, clsmap use cam_logfile, only : iulog implicit none private @@ -13,7 +13,6 @@ module mo_imp_sol !----------------------------------------------------------------------- integer, parameter :: itermax = 11 integer, parameter :: cut_limit = 5 - real(r8), parameter :: sol_min = 1.e-20_r8 real(r8), parameter :: small = 1.e-40_r8 real(r8) :: epsilon(clscnt4) logical :: factor(itermax) @@ -107,12 +106,12 @@ subroutine imp_slv_inti end do end subroutine imp_slv_inti subroutine imp_sol( base_sol, reaction_rates, het_rates, extfrc, delt, & - ncol, nlev, lchnk, prod_out, loss_out ) + ncol,nlev, lchnk, prod_out, loss_out ) !----------------------------------------------------------------------- ! ... imp_sol advances the volumetric mixing ratio ! forward one time step via the fully implicit euler scheme. - ! this source is meant for vector architectures such as the - ! nec sx6 and cray x1 + ! this source is meant for small l1 cache machines such as + ! the intel pentium and itanium cpus !----------------------------------------------------------------------- use chem_mods, only : rxntot, extcnt, nzcnt, permute, cls_rxt_cnt use mo_tracname, only : solsym @@ -132,304 +131,262 @@ subroutine imp_sol( base_sol, reaction_rates, het_rates, extfrc, delt, & integer, intent(in) :: nlev integer, intent(in) :: lchnk ! chunk id real(r8), intent(in) :: delt ! time step (s) - real(r8), intent(in) :: reaction_rates(ncol*nlev,max(1,rxntot)) ! rxt rates (1/cm^3/s) - real(r8), intent(in) :: extfrc(ncol*nlev,max(1,extcnt)) ! external in-situ forcing (1/cm^3/s) - real(r8), intent(in) :: het_rates(ncol*nlev,max(1,gas_pcnst)) ! washout rates (1/s) - real(r8), intent(inout) :: base_sol(ncol*nlev,gas_pcnst) ! species mixing ratios (vmr) - real(r8), intent(out) :: prod_out(ncol*nlev,max(1,clscnt4)) - real(r8), intent(out) :: loss_out(ncol*nlev,max(1,clscnt4)) + real(r8), intent(in) :: reaction_rates(ncol,nlev,max(1,rxntot)) ! rxt rates (1/cm^3/s) + real(r8), intent(in) :: extfrc(ncol,nlev,max(1,extcnt)) ! external in-situ forcing (1/cm^3/s) + real(r8), intent(in) :: het_rates(ncol,nlev,max(1,gas_pcnst)) ! washout rates (1/s) + real(r8), intent(inout) :: base_sol(ncol,nlev,gas_pcnst) ! species mixing ratios (vmr) + real(r8), intent(out) :: prod_out(ncol,nlev,max(1,clscnt4)) + real(r8), intent(out) :: loss_out(ncol,nlev,max(1,clscnt4)) !----------------------------------------------------------------------- ! ... local variables !----------------------------------------------------------------------- - integer :: nr_iter - integer :: ofl - integer :: ofu - integer :: avec_len - integer :: bndx ! base index - integer :: cndx ! class index - integer :: pndx ! permuted class index - integer :: i,m - integer :: fail_cnt(veclen) - integer :: cut_cnt(veclen) - integer :: stp_con_cnt(veclen) + integer :: nr_iter, & + lev, & + i, & + j, & + k, l, & + m + integer :: fail_cnt, cut_cnt, stp_con_cnt integer :: nstep - real(r8) :: interval_done(veclen) - real(r8) :: dt(veclen) - real(r8) :: dti(veclen) + real(r8) :: interval_done, dt, dti real(r8) :: max_delta(max(1,clscnt4)) - real(r8) :: ind_prd(ncol*nlev,max(1,clscnt4)) + real(r8) :: sys_jac(max(1,nzcnt)) + real(r8) :: lin_jac(max(1,nzcnt)) + real(r8), dimension(max(1,clscnt4)) :: & + solution, & + forcing, & + iter_invariant, & + prod, & + loss + real(r8) :: lrxt(max(1,rxntot)) + real(r8) :: lsol(max(1,gas_pcnst)) + real(r8) :: lhet(max(1,gas_pcnst)) + real(r8), dimension(ncol,nlev,max(1,clscnt4)) :: & + ind_prd logical :: convergence - integer :: chnkpnts ! total spatial points in chunk; ncol*ncol - logical :: diags_out(ncol*nlev,max(1,clscnt4)) - real(r8) :: sys_jac_blk(veclen,max(1,nzcnt)) - real(r8) :: lin_jac_blk(veclen,max(1,nzcnt)) - real(r8) :: solution_blk(veclen,max(1,clscnt4)) - real(r8) :: forcing_blk(veclen,max(1,clscnt4)) - real(r8) :: iter_invariant_blk(veclen,max(1,clscnt4)) - real(r8) :: prod_blk(veclen,max(1,clscnt4)) - real(r8) :: loss_blk(veclen,max(1,clscnt4)) - real(r8) :: ind_prd_blk(veclen,max(1,clscnt4)) - real(r8) :: sbase_sol_blk(veclen,gas_pcnst) - real(r8) :: wrk_blk(veclen) - logical :: spc_conv_blk(veclen,max(1,clscnt4)) - logical :: cls_conv_blk(veclen) - logical :: time_stp_done_blk(veclen) - real(r8) :: reaction_rates_blk(veclen,max(1,rxntot)) - real(r8) :: extfrc_blk(veclen,max(1,extcnt)) - real(r8) :: het_rates_blk(veclen,max(1,gas_pcnst)) - real(r8) :: base_sol_blk(veclen,gas_pcnst) - chnkpnts = ncol*nlev - prod_out = 0._r8 - loss_out = 0._r8 - diags_out = .false. + logical :: frc_mask, iter_conv + logical :: converged(max(1,clscnt4)) + solution(:) = 0._r8 !----------------------------------------------------------------------- ! ... class independent forcing !----------------------------------------------------------------------- if( cls_rxt_cnt(1,4) > 0 .or. extcnt > 0 ) then call indprd( 4, ind_prd, clscnt4, base_sol, extfrc, & - reaction_rates, chnkpnts ) + reaction_rates, ncol ) else - do m = 1,clscnt4 - ind_prd(:,m) = 0._r8 + do m = 1,max(1,clscnt4) + ind_prd(:,:,m) = 0._r8 end do end if - nstep = get_nstep() - ofl = 1 - chnkpnts_loop : do - ofu = min( chnkpnts,ofl + veclen - 1 ) - avec_len = (ofu - ofl) + 1 - reaction_rates_blk(1:avec_len,:) = reaction_rates(ofl:ofu,:) - extfrc_blk(1:avec_len,:) = extfrc(ofl:ofu,:) - het_rates_blk(1:avec_len,:) = het_rates(ofl:ofu,:) - ind_prd_blk(1:avec_len,:) = ind_prd(ofl:ofu,:) - base_sol_blk(1:avec_len,:) = base_sol(ofl:ofu,:) - cls_conv_blk(1:avec_len) = .false. - dt(1:avec_len) = delt - cut_cnt(1:avec_len) = 0 - fail_cnt(1:avec_len) = 0 - stp_con_cnt(1:avec_len) = 0 - interval_done(1:avec_len) = 0._r8 - time_stp_done_blk(1:avec_len) = .false. - !----------------------------------------------------------------------- - ! ... time step loop - !----------------------------------------------------------------------- - time_step_loop : do - dti(1:avec_len) = 1._r8 / dt(1:avec_len) + level_loop : do lev = 1,nlev + column_loop : do i = 1,ncol !----------------------------------------------------------------------- - ! ... transfer from base to class array + ! ... transfer from base to local work arrays !----------------------------------------------------------------------- - do cndx = 1,clscnt4 - bndx = clsmap(cndx,4) - pndx = permute(cndx,4) - do i = 1, avec_len - solution_blk(i,pndx) = base_sol_blk(i,bndx) - end do - end do - do m = 1,gas_pcnst - sbase_sol_blk(1:avec_len,m) = base_sol_blk(1:avec_len,m) + do m = 1,rxntot + lrxt(m) = reaction_rates(i,lev,m) end do - !----------------------------------------------------------------------- - ! ... set the iteration invariant part of the function f(y) - !----------------------------------------------------------------------- - if( cls_rxt_cnt(1,4) > 0 .or. extcnt > 0 ) then - do m = 1,clscnt4 - do i = 1, avec_len - iter_invariant_blk(i,m) = dti(i) * solution_blk(i,m) + ind_prd_blk(i,m) - end do - end do - else - do m = 1,clscnt4 - do i = 1, avec_len - iter_invariant_blk(i,m) = dti(i) * solution_blk(i,m) - end do + if( gas_pcnst > 0 ) then + do m = 1,gas_pcnst + lhet(m) = het_rates(i,lev,m) end do end if !----------------------------------------------------------------------- - ! ... the linear component + ! ... time step loop !----------------------------------------------------------------------- - if( cls_rxt_cnt(2,4) > 0 ) then - call t_startf( 'lin_mat' ) - call linmat( avec_len, lin_jac_blk, base_sol_blk, & - reaction_rates_blk, het_rates_blk ) - call t_stopf( 'lin_mat' ) - end if - !======================================================================= - ! the newton-raphson iteration for f(y) = 0 - !======================================================================= - iter_loop : do nr_iter = 1,itermax + dt = delt + cut_cnt = 0 + fail_cnt = 0 + stp_con_cnt = 0 + interval_done = 0._r8 + time_step_loop : do + dti = 1._r8 / dt !----------------------------------------------------------------------- - ! ... the non-linear component + ! ... transfer from base to local work arrays !----------------------------------------------------------------------- - if( factor(nr_iter) ) then - call t_startf( 'nln_mat' ) - call nlnmat( avec_len, sys_jac_blk, base_sol_blk, & - reaction_rates_blk, lin_jac_blk, dti ) - call t_stopf( 'nln_mat' ) - !----------------------------------------------------------------------- - ! ... factor the "system" matrix - !----------------------------------------------------------------------- - call t_startf( 'lu_fac' ) - call lu_fac( avec_len, sys_jac_blk ) - call t_stopf( 'lu_fac' ) - end if + do m = 1,gas_pcnst + lsol(m) = base_sol(i,lev,m) + end do !----------------------------------------------------------------------- - ! ... form f(y) + ! ... transfer from base to class array !----------------------------------------------------------------------- - call t_startf( 'prod_loss' ) - call imp_prod_loss( avec_len, prod_blk, loss_blk, & - base_sol_blk, reaction_rates_blk, het_rates_blk ) - call t_stopf( 'prod_loss' ) - do m = 1,clscnt4 - do i = 1, avec_len - forcing_blk(i,m) = solution_blk(i,m)*dti(i) & - - (iter_invariant_blk(i,m) + prod_blk(i,m) - loss_blk(i,m)) - end do + do k = 1,clscnt4 + j = clsmap(k,4) + m = permute(k,4) + solution(m) = lsol(j) end do !----------------------------------------------------------------------- - ! ... solve for the mixing ratio at t(n+1) + ! ... set the iteration invariant part of the function f(y) !----------------------------------------------------------------------- - call t_startf( 'lu_slv' ) - call lu_slv( avec_len, sys_jac_blk, forcing_blk ) - call t_stopf( 'lu_slv' ) - do m = 1,clscnt4 - do i = 1, avec_len - if( .not. cls_conv_blk(i) )then - solution_blk(i,m) = solution_blk(i,m) + forcing_blk(i,m) - else - forcing_blk(i,m) = 0._r8 - endif + if( cls_rxt_cnt(1,4) > 0 .or. extcnt > 0 ) then + do m = 1,clscnt4 + iter_invariant(m) = dti * solution(m) + ind_prd(i,lev,m) end do - end do + else + do m = 1,clscnt4 + iter_invariant(m) = dti * solution(m) + end do + end if !----------------------------------------------------------------------- - ! ... convergence measures and test + ! ... the linear component !----------------------------------------------------------------------- - conv_chk : if( nr_iter > 1 ) then + if( cls_rxt_cnt(2,4) > 0 ) then + call t_startf( 'lin_mat' ) + call linmat( lin_jac, lsol, lrxt, lhet ) + call t_stopf( 'lin_mat' ) + end if + !======================================================================= + ! the newton-raphson iteration for f(y) = 0 + !======================================================================= + iter_loop : do nr_iter = 1,itermax !----------------------------------------------------------------------- - ! ... check for convergence + ! ... the non-linear component !----------------------------------------------------------------------- - do cndx = 1,clscnt4 - pndx = permute(cndx,4) - bndx = clsmap(cndx,4) - do i = 1, avec_len - if ( abs( solution_blk(i,pndx) ) > sol_min ) then - wrk_blk(i) = abs( forcing_blk(i,pndx)/solution_blk(i,pndx) ) - else - wrk_blk(i) = 0._r8 - endif - enddo - max_delta(cndx) = maxval( wrk_blk(1:avec_len) ) - do i = 1, avec_len - solution_blk(i,pndx) = max( 0._r8,solution_blk(i,pndx) ) - base_sol_blk(i,bndx) = solution_blk(i,pndx) - if ( abs( forcing_blk(i,pndx) ) > small ) then - spc_conv_blk(i,cndx) = abs(forcing_blk(i,pndx)) <= epsilon(cndx)*abs(solution_blk(i,pndx)) - else - spc_conv_blk(i,cndx) = .true. - endif - enddo - where( spc_conv_blk(1:avec_len,cndx) .and. .not.diags_out(ofl:ofu,cndx) ) - ! capture output production and loss diagnostics at converged ponits - prod_out(ofl:ofu,cndx) = prod_blk(1:avec_len,cndx) + ind_prd_blk(1:avec_len,cndx) - loss_out(ofl:ofu,cndx) = loss_blk(1:avec_len,cndx) - diags_out(ofl:ofu,cndx) = .true. - endwhere - end do - do i = 1, avec_len - if( .not. cls_conv_blk(i) ) then - cls_conv_blk(i) = all( spc_conv_blk(i,:) ) - end if - end do - convergence = all( cls_conv_blk(:) ) - if( convergence ) then - exit iter_loop + if( factor(nr_iter) ) then + call t_startf( 'nln_mat' ) + call nlnmat( sys_jac, lsol, lrxt, lin_jac, dti ) + call t_stopf( 'nln_mat' ) + !----------------------------------------------------------------------- + ! ... factor the "system" matrix + !----------------------------------------------------------------------- + call t_startf( 'lu_fac' ) + call lu_fac( sys_jac ) + call t_stopf( 'lu_fac' ) end if - else conv_chk -!----------------------------------------------------------------------- -! ... limit iterate -!----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! ... form f(y) + !----------------------------------------------------------------------- + call t_startf( 'prod_loss' ) + call imp_prod_loss( prod, loss, lsol, lrxt, lhet ) + call t_stopf( 'prod_loss' ) do m = 1,clscnt4 - do i = 1, avec_len - solution_blk(i,m) = max( 0._r8,solution_blk(i,m) ) - end do + forcing(m) = solution(m)*dti - (iter_invariant(m) + prod(m) - loss(m)) end do -!----------------------------------------------------------------------- -! ... transfer latest solution back to base array -!----------------------------------------------------------------------- - do cndx = 1,clscnt4 - pndx = permute(cndx,4) - bndx = clsmap(cndx,4) - do i = 1, avec_len - base_sol_blk(i,bndx) = solution_blk(i,pndx) + !----------------------------------------------------------------------- + ! ... solve for the mixing ratio at t(n+1) + !----------------------------------------------------------------------- + call t_startf( 'lu_slv' ) + call lu_slv( sys_jac, forcing ) + call t_stopf( 'lu_slv' ) + do m = 1,clscnt4 + solution(m) = solution(m) + forcing(m) + end do + !----------------------------------------------------------------------- + ! ... convergence measures + !----------------------------------------------------------------------- + if( nr_iter > 1 ) then + do k = 1,clscnt4 + m = permute(k,4) + if( abs(solution(m)) > 1.e-20_r8 ) then + max_delta(k) = abs( forcing(m)/solution(m) ) + else + max_delta(k) = 0._r8 + end if end do + end if + !----------------------------------------------------------------------- + ! ... limit iterate + !----------------------------------------------------------------------- + where( solution(:) < 0._r8 ) + solution(:) = 0._r8 + endwhere + !----------------------------------------------------------------------- + ! ... transfer latest solution back to work array + !----------------------------------------------------------------------- + do k = 1,clscnt4 + j = clsmap(k,4) + m = permute(k,4) + lsol(j) = solution(m) end do - end if conv_chk - end do iter_loop - !----------------------------------------------------------------------- - ! ... check for newton-raphson convergence - !----------------------------------------------------------------------- - do i = 1,avec_len - if( .not. cls_conv_blk(i) ) then - fail_cnt(i) = fail_cnt(i) + 1 - write(iulog,'('' imp_sol: time step '',1p,g15.7,'' failed to converge @ (lchnk,vctrpos,nstep) = '',3i8)') & - dt(i),lchnk,ofl+i-1,nstep - stp_con_cnt(i) = 0 - if( cut_cnt(i) < cut_limit ) then - cut_cnt(i) = cut_cnt(i) + 1 - if( cut_cnt(i) < cut_limit ) then - dt(i) = .5_r8 * dt(i) - else - dt(i) = .1_r8 * dt(i) + !----------------------------------------------------------------------- + ! ... check for convergence + !----------------------------------------------------------------------- + converged(:) = .true. + if( nr_iter > 1 ) then + do k = 1,clscnt4 + m = permute(k,4) + frc_mask = abs( forcing(m) ) > small + if( frc_mask ) then + converged(k) = abs(forcing(m)) <= epsilon(k)*abs(solution(m)) + else + converged(k) = .true. + end if + end do + convergence = all( converged(:) ) + if( convergence ) then + exit + end if end if - base_sol_blk(i,:) = sbase_sol_blk(i,:) - else - write(iulog,'('' imp_sol: step failed to converge @ (lchnk,vctrpos,nstep,dt,time) = '',3i8,1p,2g15.7)') & - lchnk,ofl+i-1,nstep,dt(i),interval_done+dt(i) - do m = 1,clscnt4 - if( .not. spc_conv_blk(i,m) ) then - write(iulog,'(1x,a16,1x,1pe10.3)') solsym(clsmap(m,4)), max_delta(m) + end do iter_loop + !----------------------------------------------------------------------- + ! ... check for newton-raphson convergence + !----------------------------------------------------------------------- + if( .not. convergence ) then + !----------------------------------------------------------------------- + ! ... non-convergence + !----------------------------------------------------------------------- + fail_cnt = fail_cnt + 1 + nstep = get_nstep() + write(iulog,'('' imp_sol: Time step '',1p,e21.13,'' failed to converge @ (lchnk,lev,col,nstep) = '',4i6)') & + dt,lchnk,lev,i,nstep + stp_con_cnt = 0 + if( cut_cnt < cut_limit ) then + cut_cnt = cut_cnt + 1 + if( cut_cnt < cut_limit ) then + dt = .5_r8 * dt + else + dt = .1_r8 * dt end if + cycle time_step_loop + else + write(iulog,'('' imp_sol: Failed to converge @ (lchnk,lev,col,nstep,dt,time) = '',4i6,1p,2e21.13)') & + lchnk,lev,i,nstep,dt,interval_done+dt + do m = 1,clscnt4 + if( .not. converged(m) ) then + write(iulog,'(1x,a8,1x,1pe10.3)') solsym(clsmap(m,4)), max_delta(m) + end if + end do + end if + end if + !----------------------------------------------------------------------- + ! ... check for interval done + !----------------------------------------------------------------------- + interval_done = interval_done + dt + if( abs( delt - interval_done ) <= .0001_r8 ) then + if( fail_cnt > 0 ) then + write(iulog,*) 'imp_sol : @ (lchnk,lev,col) = ',lchnk,lev,i,' failed ',fail_cnt,' times' + end if + exit time_step_loop + else + !----------------------------------------------------------------------- + ! ... transfer latest solution back to base array + !----------------------------------------------------------------------- + if( convergence ) then + stp_con_cnt = stp_con_cnt + 1 + end if + do m = 1,gas_pcnst + base_sol(i,lev,m) = lsol(m) end do - cls_conv_blk(i) = .true. - if( .not. time_stp_done_blk(i) ) then - interval_done(i) = interval_done(i) + dt(i) - time_stp_done_blk(i) = abs( delt - interval_done(i) ) <= .0001_r8 - endif - end if - elseif( .not. time_stp_done_blk(i) ) then - interval_done(i) = interval_done(i) + dt(i) - time_stp_done_blk(i) = abs( delt - interval_done(i) ) <= .0001_r8 - stp_con_cnt(i) = stp_con_cnt(i) + 1 - if( .not. time_stp_done_blk(i) ) then - if( stp_con_cnt(i) >= 2 ) then - dt(i) = 2._r8*dt(i) - stp_con_cnt(i) = 0 - end if - dt(i) = min( dt(i),delt-interval_done(i) ) - else - base_sol(ofl+i-1,1:gas_pcnst) = base_sol_blk(i,1:gas_pcnst) - endif - endif - end do - convergence = all( cls_conv_blk(:) ) - do i = 1,avec_len - if( cls_conv_blk(i) .and. .not. time_stp_done_blk(i) ) then - cls_conv_blk(i) = .false. - endif - end do - if( .not. convergence ) then - cycle time_step_loop - endif + if( stp_con_cnt >= 2 ) then + dt = 2._r8*dt + stp_con_cnt = 0 + end if + dt = min( dt,delt-interval_done ) + ! write(iulog,'('' imp_sol: New time step '',1p,e21.13)') dt + end if + end do time_step_loop !----------------------------------------------------------------------- - ! ... check for time step done + ! ... Transfer latest solution back to base array !----------------------------------------------------------------------- - if( all( time_stp_done_blk(1:avec_len) ) ) then - exit time_step_loop - end if - end do time_step_loop - ofl = ofu + 1 - if( ofl > chnkpnts ) then - exit chnkpnts_loop - end if - end do chnkpnts_loop + cls_loop: do k = 1,clscnt4 + j = clsmap(k,4) + m = permute(k,4) + base_sol(i,lev,j) = solution(m) + ! output diagnostics + prod_out(i,lev,k) = prod(k) + ind_prd(i,lev,k) + loss_out(i,lev,k) = loss(k) + end do cls_loop + end do column_loop + end do level_loop end subroutine imp_sol end module mo_imp_sol diff --git a/src/chemistry/pp_waccm_mad/mo_indprd.F90 b/src/chemistry/pp_waccm_mad/mo_indprd.F90 index b930aea6ab..c2f28519f2 100644 --- a/src/chemistry/pp_waccm_mad/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_mad/mo_indprd.F90 @@ -3,149 +3,187 @@ module mo_indprd private public :: indprd contains - subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) + subroutine indprd( class, prod, nprod, y, extfrc, rxt, ncol ) use chem_mods, only : gas_pcnst, extcnt, rxntot + use ppgrid, only : pver implicit none !-------------------------------------------------------------------- ! ... dummy arguments !-------------------------------------------------------------------- integer, intent(in) :: class - integer, intent(in) :: chnkpnts + integer, intent(in) :: ncol integer, intent(in) :: nprod - real(r8), intent(in) :: y(chnkpnts,gas_pcnst) - real(r8), intent(in) :: rxt(chnkpnts,rxntot) - real(r8), intent(in) :: extfrc(chnkpnts,extcnt) - real(r8), intent(inout) :: prod(chnkpnts,nprod) + real(r8), intent(in) :: y(ncol,pver,gas_pcnst) + real(r8), intent(in) :: rxt(ncol,pver,rxntot) + real(r8), intent(in) :: extfrc(ncol,pver,extcnt) + real(r8), intent(inout) :: prod(ncol,pver,nprod) !-------------------------------------------------------------------- ! ... "independent" production for Explicit species !-------------------------------------------------------------------- if( class == 1 ) then - prod(:,1) = 0._r8 - prod(:,2) = 0._r8 - prod(:,3) = 0._r8 - prod(:,4) = 0._r8 - prod(:,5) = 0._r8 - prod(:,6) = 0._r8 - prod(:,7) = 0._r8 - prod(:,8) = 0._r8 - prod(:,9) = 0._r8 - prod(:,10) = 0._r8 - prod(:,11) = 0._r8 - prod(:,12) = 0._r8 - prod(:,13) = 0._r8 - prod(:,14) = 0._r8 - prod(:,15) = 0._r8 - prod(:,16) = 0._r8 - prod(:,17) = 0._r8 - prod(:,18) = 0._r8 - prod(:,19) = 0._r8 - prod(:,20) = 0._r8 - prod(:,21) =rxt(:,422)*y(:,52)*y(:,48) - prod(:,22) = 0._r8 + prod(:,:,1) = 0._r8 + prod(:,:,2) = 0._r8 + prod(:,:,3) = 0._r8 + prod(:,:,4) = 0._r8 + prod(:,:,5) = 0._r8 + prod(:,:,6) = 0._r8 + prod(:,:,7) = 0._r8 + prod(:,:,8) = 0._r8 + prod(:,:,9) = 0._r8 + prod(:,:,10) = 0._r8 + prod(:,:,11) = 0._r8 + prod(:,:,12) = 0._r8 + prod(:,:,13) = 0._r8 + prod(:,:,14) = 0._r8 + prod(:,:,15) = 0._r8 + prod(:,:,16) = 0._r8 + prod(:,:,17) = (rxt(:,:,63) +rxt(:,:,109)*y(:,:,23) +rxt(:,:,110)*y(:,:,23) + & + rxt(:,:,111)*y(:,:,26) +rxt(:,:,112)*y(:,:,34) + & + rxt(:,:,119)*y(:,:,44) +rxt(:,:,120)*y(:,:,55) + & + rxt(:,:,121)*y(:,:,56) +rxt(:,:,163)*y(:,:,77) + & + rxt(:,:,165)*y(:,:,75) +rxt(:,:,181)*y(:,:,73) + & + rxt(:,:,199)*y(:,:,92) +rxt(:,:,216)*y(:,:,89) + & + rxt(:,:,234)*y(:,:,88) +rxt(:,:,251)*y(:,:,99) + & + rxt(:,:,253)*y(:,:,75) +rxt(:,:,260)*y(:,:,77) + & + rxt(:,:,275)*y(:,:,52) +rxt(:,:,276)*y(:,:,53))*y(:,:,64) & + + (rxt(:,:,115)*y(:,:,53) +rxt(:,:,116)*y(:,:,53) + & + rxt(:,:,117)*y(:,:,52) +rxt(:,:,118)*y(:,:,52) + & + rxt(:,:,150)*y(:,:,99) +rxt(:,:,153)*y(:,:,75) + & + rxt(:,:,173)*y(:,:,77) +rxt(:,:,191)*y(:,:,73) + & + rxt(:,:,208)*y(:,:,92) +rxt(:,:,226)*y(:,:,89) + & + rxt(:,:,244)*y(:,:,88) +rxt(:,:,255)*y(:,:,75) + & + rxt(:,:,256)*y(:,:,77))*y(:,:,66) + (rxt(:,:,65) + & + rxt(:,:,122)*y(:,:,23) +rxt(:,:,123)*y(:,:,26) + & + rxt(:,:,125)*y(:,:,42) +rxt(:,:,127)*y(:,:,57) + & + rxt(:,:,146)*y(:,:,99) +rxt(:,:,169)*y(:,:,77) + & + rxt(:,:,186)*y(:,:,73) +rxt(:,:,204)*y(:,:,92) + & + rxt(:,:,220)*y(:,:,75) +rxt(:,:,222)*y(:,:,89) + & + rxt(:,:,239)*y(:,:,88))*y(:,:,67) + (rxt(:,:,148)*y(:,:,99) + & + rxt(:,:,171)*y(:,:,77) +rxt(:,:,189)*y(:,:,73) + & + rxt(:,:,206)*y(:,:,92) +rxt(:,:,224)*y(:,:,89) + & + rxt(:,:,241)*y(:,:,88) +rxt(:,:,242)*y(:,:,75) + & + rxt(:,:,254)*y(:,:,77) +rxt(:,:,266)*y(:,:,75))*y(:,:,65) & + + (rxt(:,:,144)*y(:,:,99) +rxt(:,:,167)*y(:,:,77) + & + rxt(:,:,184)*y(:,:,73) +rxt(:,:,198)*y(:,:,75) + & + rxt(:,:,202)*y(:,:,92) +rxt(:,:,219)*y(:,:,89) + & + rxt(:,:,237)*y(:,:,88))*y(:,:,70) + (rxt(:,:,364) + & + rxt(:,:,301)*y(:,:,68) +rxt(:,:,302)*y(:,:,110))*y(:,:,91) & + + (rxt(:,:,532)*y(:,:,104) +rxt(:,:,536)*y(:,:,104))*y(:,:,29) + prod(:,:,18) = 0._r8 + prod(:,:,19) = 0._r8 + prod(:,:,20) = 0._r8 + prod(:,:,21) = 0._r8 + prod(:,:,22) =rxt(:,:,422)*y(:,:,53)*y(:,:,49) + prod(:,:,23) = 0._r8 !-------------------------------------------------------------------- ! ... "independent" production for Implicit species !-------------------------------------------------------------------- else if( class == 4 ) then - prod(:,6) = 0._r8 - prod(:,52) = 0._r8 - prod(:,17) = 0._r8 - prod(:,56) =.180_r8*rxt(:,25)*y(:,20) - prod(:,39) =rxt(:,40)*y(:,15) +rxt(:,42)*y(:,17) +rxt(:,24)*y(:,20) - prod(:,12) = 0._r8 - prod(:,4) = 0._r8 - prod(:,1) = 0._r8 - prod(:,81) = 0._r8 - prod(:,34) = 0._r8 - prod(:,25) =.380_r8*rxt(:,25)*y(:,20) + extfrc(:,3) - prod(:,2) =rxt(:,32)*y(:,6) +rxt(:,33)*y(:,7) +rxt(:,35)*y(:,9) & - +2.000_r8*rxt(:,36)*y(:,10) +2.000_r8*rxt(:,37)*y(:,11) +rxt(:,38) & - *y(:,12) +2.000_r8*rxt(:,51)*y(:,34) +rxt(:,54)*y(:,38) +rxt(:,55) & - *y(:,39) - prod(:,5) =rxt(:,34)*y(:,8) +rxt(:,35)*y(:,9) +rxt(:,53)*y(:,37) - prod(:,78) =.440_r8*rxt(:,25)*y(:,20) - prod(:,30) =rxt(:,33)*y(:,7) +rxt(:,37)*y(:,11) - prod(:,86) = (rxt(:,24) +.330_r8*rxt(:,25))*y(:,20) - prod(:,50) =1.440_r8*rxt(:,25)*y(:,20) - prod(:,18) = 0._r8 - prod(:,33) = 0._r8 - prod(:,80) = 0._r8 - prod(:,7) = 0._r8 - prod(:,71) = 0._r8 - prod(:,61) = 0._r8 - prod(:,14) = 0._r8 - prod(:,28) = 0._r8 - prod(:,32) = 0._r8 - prod(:,24) = 0._r8 - prod(:,40) = (.800_r8*rxt(:,67) +.800_r8*rxt(:,69) +rxt(:,73) +rxt(:,74)) & - + extfrc(:,11) - prod(:,37) = 0._r8 - prod(:,87) = + extfrc(:,2) - prod(:,72) = + extfrc(:,1) - prod(:,74) = 0._r8 - prod(:,68) =.180_r8*rxt(:,25)*y(:,20) + extfrc(:,6) - prod(:,75) = 0._r8 - prod(:,79) = 0._r8 - prod(:,3) = 0._r8 - prod(:,44) =rxt(:,32)*y(:,6) +rxt(:,33)*y(:,7) +2.000_r8*rxt(:,39)*y(:,13) & - +rxt(:,40)*y(:,15) +3.000_r8*rxt(:,43)*y(:,21) +2.000_r8*rxt(:,51) & - *y(:,34) - prod(:,85) =4.000_r8*rxt(:,31)*y(:,5) +rxt(:,32)*y(:,6) +2.000_r8*rxt(:,34) & - *y(:,8) +2.000_r8*rxt(:,35)*y(:,9) +2.000_r8*rxt(:,36)*y(:,10) & - +rxt(:,37)*y(:,11) +2.000_r8*rxt(:,38)*y(:,12) +3.000_r8*rxt(:,41) & - *y(:,16) +rxt(:,42)*y(:,17) +rxt(:,53)*y(:,37) +rxt(:,54)*y(:,38) & - +rxt(:,55)*y(:,39) - prod(:,58) = 0._r8 - prod(:,46) = 0._r8 - prod(:,45) = 0._r8 - prod(:,35) = 0._r8 - prod(:,64) = 0._r8 - prod(:,43) = 0._r8 - prod(:,54) = 0._r8 - prod(:,59) = 0._r8 - prod(:,69) = (rxt(:,68) +rxt(:,70) +rxt(:,71) +rxt(:,72) +rxt(:,73) + & - rxt(:,74)) + extfrc(:,10) - prod(:,11) = 0._r8 - prod(:,42) = 0._r8 - prod(:,21) = 0._r8 - prod(:,65) = 0._r8 - prod(:,8) = 0._r8 - prod(:,73) = 0._r8 - prod(:,9) = 0._r8 - prod(:,82) = 0._r8 - prod(:,26) = 0._r8 - prod(:,29) = (1.200_r8*rxt(:,67) +1.200_r8*rxt(:,69) +rxt(:,70) +rxt(:,71)) & - + extfrc(:,12) - prod(:,19) = (rxt(:,68) +rxt(:,72)) + extfrc(:,4) - prod(:,62) = 0._r8 - prod(:,47) = 0._r8 - prod(:,60) = 0._r8 - prod(:,53) = 0._r8 - prod(:,55) = 0._r8 - prod(:,48) = 0._r8 - prod(:,51) = 0._r8 - prod(:,66) = 0._r8 - prod(:,67) = 0._r8 - prod(:,13) = 0._r8 - prod(:,23) = 0._r8 - prod(:,70) = 0._r8 - prod(:,22) = 0._r8 - prod(:,31) = (rxt(:,70) +rxt(:,71) +rxt(:,73) +rxt(:,74)) + extfrc(:,5) - prod(:,57) =rxt(:,13)*y(:,49) - prod(:,36) = 0._r8 - prod(:,10) = 0._r8 - prod(:,76) = 0._r8 - prod(:,77) = + extfrc(:,7) - prod(:,27) = 0._r8 - prod(:,49) = 0._r8 - prod(:,20) = 0._r8 - prod(:,41) = 0._r8 - prod(:,63) =.330_r8*rxt(:,25)*y(:,20) + extfrc(:,8) - prod(:,83) = 0._r8 - prod(:,84) = 0._r8 - prod(:,38) = + extfrc(:,9) - prod(:,16) = 0._r8 - prod(:,15) = 0._r8 - prod(:,88) =.050_r8*rxt(:,25)*y(:,20) + prod(:,:,44) =rxt(:,:,32)*y(:,:,7) +rxt(:,:,33)*y(:,:,8) & + +2.000_r8*rxt(:,:,39)*y(:,:,14) +rxt(:,:,40)*y(:,:,16) & + +3.000_r8*rxt(:,:,43)*y(:,:,22) +2.000_r8*rxt(:,:,51)*y(:,:,36) + prod(:,:,6) = 0._r8 + prod(:,:,50) = 0._r8 + prod(:,:,20) = 0._r8 + prod(:,:,56) =.180_r8*rxt(:,:,25)*y(:,:,21) + prod(:,:,40) =rxt(:,:,40)*y(:,:,16) +rxt(:,:,42)*y(:,:,18) +rxt(:,:,24) & + *y(:,:,21) + prod(:,:,11) = 0._r8 + prod(:,:,74) =4.000_r8*rxt(:,:,31)*y(:,:,6) +rxt(:,:,32)*y(:,:,7) & + +2.000_r8*rxt(:,:,34)*y(:,:,9) +2.000_r8*rxt(:,:,35)*y(:,:,10) & + +2.000_r8*rxt(:,:,36)*y(:,:,11) +rxt(:,:,37)*y(:,:,12) & + +2.000_r8*rxt(:,:,38)*y(:,:,13) +3.000_r8*rxt(:,:,41)*y(:,:,17) & + +rxt(:,:,42)*y(:,:,18) +rxt(:,:,53)*y(:,:,39) +rxt(:,:,54)*y(:,:,40) & + +rxt(:,:,55)*y(:,:,41) + prod(:,:,4) = 0._r8 + prod(:,:,1) = 0._r8 + prod(:,:,72) = 0._r8 + prod(:,:,36) = 0._r8 + prod(:,:,21) = (rxt(:,:,26) +rxt(:,:,62))*y(:,:,30) +.380_r8*rxt(:,:,25) & + *y(:,:,21) + extfrc(:,:,3) + prod(:,:,2) =rxt(:,:,32)*y(:,:,7) +rxt(:,:,33)*y(:,:,8) +rxt(:,:,35) & + *y(:,:,10) +2.000_r8*rxt(:,:,36)*y(:,:,11) +2.000_r8*rxt(:,:,37) & + *y(:,:,12) +rxt(:,:,38)*y(:,:,13) +2.000_r8*rxt(:,:,51)*y(:,:,36) & + +rxt(:,:,54)*y(:,:,40) +rxt(:,:,55)*y(:,:,41) + prod(:,:,5) =rxt(:,:,34)*y(:,:,9) +rxt(:,:,35)*y(:,:,10) +rxt(:,:,53) & + *y(:,:,39) + prod(:,:,29) =rxt(:,:,33)*y(:,:,8) +rxt(:,:,37)*y(:,:,12) + prod(:,:,68) = (rxt(:,:,24) +.330_r8*rxt(:,:,25))*y(:,:,21) + prod(:,:,51) =1.440_r8*rxt(:,:,25)*y(:,:,21) + prod(:,:,23) = 0._r8 + prod(:,:,32) = 0._r8 + prod(:,:,67) = 0._r8 + prod(:,:,7) = 0._r8 + prod(:,:,85) = 0._r8 + prod(:,:,15) = 0._r8 + prod(:,:,30) = 0._r8 + prod(:,:,33) = 0._r8 + prod(:,:,25) = 0._r8 + prod(:,:,39) = (.800_r8*rxt(:,:,67) +.800_r8*rxt(:,:,69) +rxt(:,:,73) + & + rxt(:,:,74)) + extfrc(:,:,11) + prod(:,:,38) = 0._r8 + prod(:,:,77) = + extfrc(:,:,2) + prod(:,:,71) = + extfrc(:,:,1) + prod(:,:,86) = 0._r8 + prod(:,:,81) = (rxt(:,:,26) +rxt(:,:,62))*y(:,:,30) +.180_r8*rxt(:,:,25) & + *y(:,:,21) + extfrc(:,:,6) + prod(:,:,73) = 0._r8 + prod(:,:,84) = 0._r8 + prod(:,:,3) = 0._r8 + prod(:,:,59) = 0._r8 + prod(:,:,46) = 0._r8 + prod(:,:,45) = 0._r8 + prod(:,:,37) = 0._r8 + prod(:,:,63) = 0._r8 + prod(:,:,43) = 0._r8 + prod(:,:,54) = 0._r8 + prod(:,:,58) = 0._r8 + prod(:,:,79) = (rxt(:,:,68) +rxt(:,:,70) +rxt(:,:,71) +rxt(:,:,72) + & + rxt(:,:,73) +rxt(:,:,74)) + extfrc(:,:,10) + prod(:,:,12) = 0._r8 + prod(:,:,41) = 0._r8 + prod(:,:,61) = 0._r8 + prod(:,:,24) = 0._r8 + prod(:,:,70) = 0._r8 + prod(:,:,9) = 0._r8 + prod(:,:,78) = 0._r8 + prod(:,:,10) = 0._r8 + prod(:,:,80) = 0._r8 + prod(:,:,26) = 0._r8 + prod(:,:,28) = (1.200_r8*rxt(:,:,67) +1.200_r8*rxt(:,:,69) +rxt(:,:,70) + & + rxt(:,:,71)) + extfrc(:,:,12) + prod(:,:,22) = (rxt(:,:,68) +rxt(:,:,72)) + extfrc(:,:,4) + prod(:,:,64) = 0._r8 + prod(:,:,47) = 0._r8 + prod(:,:,60) = 0._r8 + prod(:,:,53) = 0._r8 + prod(:,:,55) = 0._r8 + prod(:,:,49) = 0._r8 + prod(:,:,52) = 0._r8 + prod(:,:,65) = 0._r8 + prod(:,:,66) = 0._r8 + prod(:,:,13) = 0._r8 + prod(:,:,17) = 0._r8 + prod(:,:,69) = 0._r8 + prod(:,:,16) = 0._r8 + prod(:,:,31) = (rxt(:,:,70) +rxt(:,:,71) +rxt(:,:,73) +rxt(:,:,74)) & + + extfrc(:,:,5) + prod(:,:,57) =rxt(:,:,13)*y(:,:,50) + prod(:,:,34) = 0._r8 + prod(:,:,8) = 0._r8 + prod(:,:,75) = 0._r8 + prod(:,:,76) = + extfrc(:,:,7) + prod(:,:,27) = 0._r8 + prod(:,:,48) = 0._r8 + prod(:,:,14) = 0._r8 + prod(:,:,42) = 0._r8 + prod(:,:,62) =.330_r8*rxt(:,:,25)*y(:,:,21) + extfrc(:,:,8) + prod(:,:,82) = 0._r8 + prod(:,:,83) = 0._r8 + prod(:,:,35) = + extfrc(:,:,9) + prod(:,:,19) = 0._r8 + prod(:,:,18) = 0._r8 + prod(:,:,87) =.050_r8*rxt(:,:,25)*y(:,:,21) end if end subroutine indprd end module mo_indprd diff --git a/src/chemistry/pp_waccm_mad/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_mad/mo_lin_matrix.F90 index 4ca96f2d3d..fa4cac85c2 100644 --- a/src/chemistry/pp_waccm_mad/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_mad/mo_lin_matrix.F90 @@ -1,9 +1,8 @@ module mo_lin_matrix - use chem_mods, only: veclen private public :: linmat contains - subroutine linmat01( avec_len, mat, y, rxt, het_rates ) + subroutine linmat01( mat, y, rxt, het_rates ) !---------------------------------------------- ! ... linear matrix entries for implicit species !---------------------------------------------- @@ -13,220 +12,213 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(in) :: het_rates(veclen,gas_pcnst) - real(r8), intent(inout) :: mat(veclen,nzcnt) -!---------------------------------------------- -! ... local variables -!---------------------------------------------- - integer :: k - do k = 1,avec_len - mat(k,16) = -( rxt(k,27) + het_rates(k,1) ) - mat(k,457) = -( rxt(k,28) + het_rates(k,2) ) - mat(k,74) = rxt(k,29) - mat(k,71) = -( rxt(k,29) + rxt(k,30) + rxt(k,543) + rxt(k,546) + rxt(k,551) & - + het_rates(k,3) ) - mat(k,541) = -( rxt(k,21) + rxt(k,22) + het_rates(k,14) ) - mat(k,41) = rxt(k,23) - mat(k,572) = rxt(k,534)*y(k,20) + rxt(k,535)*y(k,20) - mat(k,257) = -( het_rates(k,18) ) - mat(k,1658) = rxt(k,446)*y(k,20) - mat(k,169) = rxt(k,502)*y(k,20) - mat(k,747) = rxt(k,531)*y(k,20) - mat(k,567) = rxt(k,533)*y(k,20) - mat(k,39) = -( rxt(k,23) + het_rates(k,19) ) - mat(k,10) = -( rxt(k,44) + het_rates(k,22) ) - mat(k,1) = -( rxt(k,45) + rxt(k,480) + het_rates(k,23) ) - mat(k,1532) = -( rxt(k,46) + het_rates(k,24) ) - mat(k,208) = rxt(k,48) - mat(k,9) = rxt(k,60) - mat(k,2) = 2.000_r8*rxt(k,480) - mat(k,201) = -( rxt(k,47) + rxt(k,48) + rxt(k,545) + rxt(k,550) + rxt(k,556) & - + het_rates(k,25) ) - mat(k,128) = -( het_rates(k,27) ) - mat(k,536) = rxt(k,21) + rxt(k,22) - mat(k,1376) = rxt(k,26) + rxt(k,62) - mat(k,1654) = rxt(k,513)*y(k,17) - mat(k,4) = -( rxt(k,49) + het_rates(k,29) ) - mat(k,561) = rxt(k,471)*y(k,6) + rxt(k,473)*y(k,9) + 2.000_r8*rxt(k,474)*y(k,10) & - + 2.000_r8*rxt(k,475)*y(k,11) + rxt(k,476)*y(k,12) & - + rxt(k,497)*y(k,7) + 2.000_r8*rxt(k,499)*y(k,34) & - + rxt(k,523)*y(k,38) + rxt(k,524)*y(k,39) - mat(k,735) = rxt(k,518)*y(k,38) + rxt(k,519)*y(k,39) - mat(k,12) = -( rxt(k,50) + het_rates(k,30) ) - mat(k,562) = rxt(k,472)*y(k,8) + rxt(k,473)*y(k,9) + rxt(k,522)*y(k,37) - mat(k,736) = rxt(k,517)*y(k,37) - mat(k,1403) = -( rxt(k,26) + rxt(k,62) + het_rates(k,28) ) - mat(k,799) = rxt(k,63) - mat(k,637) = rxt(k,65) - mat(k,120) = rxt(k,364) - mat(k,168) = -( rxt(k,502)*y(k,20) + het_rates(k,31) ) - mat(k,5) = 2.000_r8*rxt(k,49) - mat(k,13) = rxt(k,50) - mat(k,20) = rxt(k,57) - mat(k,564) = rxt(k,475)*y(k,11) + rxt(k,497)*y(k,7) - mat(k,1728) = -( het_rates(k,32) ) - mat(k,1823) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,558) = 2.000_r8*rxt(k,21) - mat(k,43) = rxt(k,23) - mat(k,197) = rxt(k,52) - mat(k,1494) = rxt(k,56) - mat(k,21) = rxt(k,57) - mat(k,592) = rxt(k,534)*y(k,20) - mat(k,419) = -( het_rates(k,33) ) - mat(k,1790) = rxt(k,1) - mat(k,539) = rxt(k,22) - mat(k,570) = rxt(k,535)*y(k,20) - mat(k,79) = -( rxt(k,4) + het_rates(k,35) ) - mat(k,675) = .500_r8*rxt(k,537) - mat(k,191) = -( rxt(k,52) + het_rates(k,36) ) - mat(k,1488) = -( rxt(k,56) + het_rates(k,40) ) - mat(k,349) = rxt(k,381) - mat(k,1686) = rxt(k,446)*y(k,20) + rxt(k,508)*y(k,13) + rxt(k,510)*y(k,15) & - + 2.000_r8*rxt(k,513)*y(k,17) + rxt(k,515)*y(k,21) - mat(k,19) = -( rxt(k,57) + het_rates(k,41) ) - mat(k,167) = rxt(k,502)*y(k,20) - mat(k,1107) = -( rxt(k,9) + het_rates(k,42) ) - mat(k,444) = rxt(k,270) - mat(k,234) = 2.000_r8*rxt(k,538) + 2.000_r8*rxt(k,541) + 2.000_r8*rxt(k,544) & - + 2.000_r8*rxt(k,555) - mat(k,1152) = .500_r8*rxt(k,539) - mat(k,1230) = rxt(k,540) - mat(k,76) = rxt(k,543) + rxt(k,546) + rxt(k,551) - mat(k,204) = rxt(k,545) + rxt(k,550) + rxt(k,556) - mat(k,686) = -( rxt(k,537) + het_rates(k,43) ) - mat(k,52) = rxt(k,11) + rxt(k,443) - mat(k,1667) = rxt(k,510)*y(k,15) + rxt(k,513)*y(k,17) - mat(k,754) = rxt(k,511)*y(k,15) + rxt(k,514)*y(k,17) - mat(k,574) = rxt(k,534)*y(k,20) - mat(k,51) = -( rxt(k,10) + rxt(k,11) + rxt(k,443) + het_rates(k,44) ) - mat(k,151) = -( rxt(k,58) + het_rates(k,45) ) - mat(k,72) = rxt(k,543) + rxt(k,546) + rxt(k,551) - mat(k,184) = -( rxt(k,59) + het_rates(k,46) ) - mat(k,200) = rxt(k,545) + rxt(k,550) + rxt(k,556) - mat(k,123) = -( rxt(k,12) + het_rates(k,47) ) - mat(k,270) = -( rxt(k,66) + het_rates(k,48) ) - mat(k,1734) = rxt(k,17) - mat(k,245) = rxt(k,574) - mat(k,229) = -( rxt(k,14) + rxt(k,15) + rxt(k,444) + rxt(k,538) + rxt(k,541) & - + rxt(k,544) + rxt(k,555) + het_rates(k,50) ) - mat(k,1771) = -( rxt(k,16) + rxt(k,17) + het_rates(k,51) ) - mat(k,126) = rxt(k,12) - mat(k,239) = rxt(k,15) - mat(k,1168) = rxt(k,18) + .500_r8*rxt(k,539) - mat(k,1246) = rxt(k,20) - mat(k,1370) = rxt(k,571) - mat(k,64) = rxt(k,584) - mat(k,593) = 2.000_r8*rxt(k,437)*y(k,49) - mat(k,1153) = -( rxt(k,18) + rxt(k,539) + het_rates(k,52) ) - mat(k,1108) = rxt(k,9) - mat(k,54) = rxt(k,11) + rxt(k,443) - mat(k,235) = rxt(k,14) + rxt(k,444) - mat(k,1231) = rxt(k,19) - mat(k,77) = rxt(k,29) - mat(k,205) = rxt(k,48) - mat(k,721) = rxt(k,75) - mat(k,1233) = -( rxt(k,19) + rxt(k,20) + rxt(k,540) + het_rates(k,53) ) - mat(k,55) = rxt(k,10) - mat(k,237) = rxt(k,14) + rxt(k,15) + rxt(k,444) - mat(k,78) = rxt(k,30) - mat(k,206) = rxt(k,47) - mat(k,663) = rxt(k,76) - mat(k,979) = -( rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & - + rxt(k,82) + het_rates(k,54) ) - mat(k,1805) = rxt(k,2) - mat(k,1270) = 2.000_r8*rxt(k,5) + rxt(k,6) + rxt(k,83) + 2.000_r8*rxt(k,84) & - + rxt(k,85) + rxt(k,87) + 2.000_r8*rxt(k,89) + rxt(k,90) + rxt(k,91) & - + rxt(k,92) - mat(k,1431) = rxt(k,8) - mat(k,233) = rxt(k,15) - mat(k,1752) = rxt(k,17) - mat(k,1149) = rxt(k,18) - mat(k,1227) = rxt(k,19) - mat(k,1393) = rxt(k,26) + rxt(k,62) - mat(k,462) = rxt(k,28) - mat(k,1519) = rxt(k,46) - mat(k,8) = rxt(k,60) - mat(k,1631) = rxt(k,99) + rxt(k,353) - mat(k,577) = rxt(k,386) - mat(k,68) = rxt(k,578) - mat(k,63) = rxt(k,583) - mat(k,1277) = -( 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,55) ) - mat(k,1438) = rxt(k,8) - mat(k,1234) = rxt(k,20) - mat(k,1313) = rxt(k,93) + rxt(k,132) - mat(k,408) = rxt(k,95) - mat(k,99) = rxt(k,97) - mat(k,222) = rxt(k,382) + rxt(k,390) - mat(k,32) = rxt(k,383) - mat(k,582) = rxt(k,438)*y(k,49) - mat(k,1442) = -( rxt(k,7) + rxt(k,8) + het_rates(k,56) ) - mat(k,411) = rxt(k,96) - mat(k,7) = -( rxt(k,60) + het_rates(k,57) ) - mat(k,328) = -( het_rates(k,59) ) - mat(k,17) = rxt(k,27) - mat(k,456) = rxt(k,28) - mat(k,73) = rxt(k,30) - mat(k,192) = rxt(k,52) - mat(k,152) = rxt(k,58) - mat(k,569) = rxt(k,471)*y(k,6) + rxt(k,497)*y(k,7) + 3.000_r8*rxt(k,498)*y(k,21) & - + 2.000_r8*rxt(k,499)*y(k,34) + 2.000_r8*rxt(k,520)*y(k,13) & - + rxt(k,521)*y(k,15) - mat(k,1659) = 2.000_r8*rxt(k,508)*y(k,13) + rxt(k,510)*y(k,15) & - + 3.000_r8*rxt(k,515)*y(k,21) - mat(k,749) = 2.000_r8*rxt(k,509)*y(k,13) + rxt(k,511)*y(k,15) & - + 3.000_r8*rxt(k,516)*y(k,21) - mat(k,1691) = -( rxt(k,446)*y(k,20) + rxt(k,508)*y(k,13) + rxt(k,510)*y(k,15) & - + rxt(k,513)*y(k,17) + rxt(k,515)*y(k,21) + het_rates(k,60) ) - mat(k,18) = rxt(k,27) - mat(k,11) = 2.000_r8*rxt(k,44) - mat(k,3) = 2.000_r8*rxt(k,45) - mat(k,1536) = rxt(k,46) - mat(k,209) = rxt(k,47) - mat(k,15) = rxt(k,50) - mat(k,1493) = rxt(k,56) - mat(k,189) = rxt(k,59) - mat(k,591) = 4.000_r8*rxt(k,470)*y(k,5) + rxt(k,471)*y(k,6) & - + 2.000_r8*rxt(k,472)*y(k,8) + 2.000_r8*rxt(k,473)*y(k,9) & - + 2.000_r8*rxt(k,474)*y(k,10) + rxt(k,475)*y(k,11) & - + 2.000_r8*rxt(k,476)*y(k,12) + rxt(k,522)*y(k,37) & - + rxt(k,523)*y(k,38) + rxt(k,524)*y(k,39) - mat(k,773) = 3.000_r8*rxt(k,512)*y(k,16) + rxt(k,514)*y(k,17) & - + rxt(k,517)*y(k,37) + rxt(k,518)*y(k,38) + rxt(k,519)*y(k,39) - mat(k,597) = -( het_rates(k,61) ) - mat(k,357) = rxt(k,380) - mat(k,341) = rxt(k,381) - mat(k,356) = -( rxt(k,380) + het_rates(k,62) ) - mat(k,340) = -( rxt(k,381) + het_rates(k,63) ) - mat(k,211) = -( het_rates(k,64) ) - mat(k,785) = -( rxt(k,63) + het_rates(k,65) ) - mat(k,501) = rxt(k,64) + rxt(k,278) - mat(k,311) = -( rxt(k,279) + het_rates(k,66) ) - mat(k,497) = -( rxt(k,64) + rxt(k,278) + het_rates(k,67) ) - mat(k,312) = rxt(k,279) - mat(k,619) = -( rxt(k,65) + het_rates(k,68) ) - mat(k,1023) = -( het_rates(k,69) ) - mat(k,1753) = rxt(k,16) - mat(k,276) = rxt(k,66) - mat(k,718) = rxt(k,75) - mat(k,658) = rxt(k,76) - mat(k,980) = rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & - + rxt(k,82) - mat(k,1271) = rxt(k,83) + rxt(k,85) + rxt(k,86) + rxt(k,87) + rxt(k,88) & - + rxt(k,90) + rxt(k,91) + rxt(k,92) - mat(k,1307) = rxt(k,93) + rxt(k,132) - mat(k,406) = rxt(k,96) - mat(k,1596) = rxt(k,98) - mat(k,1632) = rxt(k,99) + rxt(k,353) - mat(k,33) = -( het_rates(k,70) ) - mat(k,297) = -( het_rates(k,71) ) - end do + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(in) :: het_rates(max(1,gas_pcnst)) + real(r8), intent(inout) :: mat(nzcnt) + mat(320) = -( het_rates(1) ) + mat(17) = rxt(27) + mat(410) = rxt(28) + mat(92) = rxt(30) + mat(180) = rxt(52) + mat(165) = rxt(58) + mat(556) = rxt(471)*y(7) + rxt(497)*y(8) + 3.000_r8*rxt(498)*y(22) & + + 2.000_r8*rxt(499)*y(36) + 2.000_r8*rxt(520)*y(14) + rxt(521)*y(16) + mat(1180) = 2.000_r8*rxt(508)*y(14) + rxt(510)*y(16) + 3.000_r8*rxt(515)*y(22) + mat(705) = 2.000_r8*rxt(509)*y(14) + rxt(511)*y(16) + 3.000_r8*rxt(516)*y(22) + mat(16) = -( rxt(27) + het_rates(2) ) + mat(411) = -( rxt(28) + het_rates(3) ) + mat(93) = rxt(29) + mat(90) = -( rxt(29) + rxt(30) + rxt(543) + rxt(546) + rxt(551) + het_rates(4) ) + mat(529) = -( rxt(21) + rxt(22) + het_rates(15) ) + mat(35) = rxt(23) + mat(559) = rxt(534)*y(21) + rxt(535)*y(21) + mat(266) = -( het_rates(19) ) + mat(1179) = rxt(446)*y(21) + mat(156) = rxt(502)*y(21) + mat(704) = rxt(531)*y(21) + mat(554) = rxt(533)*y(21) + mat(33) = -( rxt(23) + het_rates(20) ) + mat(1201) = -( rxt(446)*y(21) + rxt(508)*y(14) + rxt(510)*y(16) + rxt(513)*y(18) & + + rxt(515)*y(22) + het_rates(23) ) + mat(18) = rxt(27) + mat(11) = 2.000_r8*rxt(44) + mat(3) = 2.000_r8*rxt(45) + mat(1116) = rxt(46) + mat(224) = rxt(47) + mat(15) = rxt(50) + mat(912) = rxt(56) + mat(192) = rxt(59) + mat(569) = 4.000_r8*rxt(470)*y(6) + rxt(471)*y(7) + 2.000_r8*rxt(472)*y(9) & + + 2.000_r8*rxt(473)*y(10) + 2.000_r8*rxt(474)*y(11) + rxt(475)*y(12) & + + 2.000_r8*rxt(476)*y(13) + rxt(522)*y(39) + rxt(523)*y(40) & + + rxt(524)*y(41) + mat(720) = 3.000_r8*rxt(512)*y(17) + rxt(514)*y(18) + rxt(517)*y(39) & + + rxt(518)*y(40) + rxt(519)*y(41) + mat(10) = -( rxt(44) + het_rates(24) ) + mat(1) = -( rxt(45) + rxt(480) + het_rates(25) ) + mat(1114) = -( rxt(46) + het_rates(26) ) + mat(223) = rxt(48) + mat(8) = rxt(60) + mat(2) = 2.000_r8*rxt(480) + mat(219) = -( rxt(47) + rxt(48) + rxt(545) + rxt(550) + rxt(556) + het_rates(27) & + ) + mat(98) = -( het_rates(29) ) + mat(524) = rxt(21) + rxt(22) + mat(1174) = rxt(513)*y(18) + mat(203) = rxt(573)*y(30) + mat(4) = -( rxt(49) + het_rates(31) ) + mat(548) = rxt(471)*y(7) + rxt(473)*y(10) + 2.000_r8*rxt(474)*y(11) & + + 2.000_r8*rxt(475)*y(12) + rxt(476)*y(13) + rxt(497)*y(8) & + + 2.000_r8*rxt(499)*y(36) + rxt(523)*y(40) + rxt(524)*y(41) + mat(691) = rxt(518)*y(40) + rxt(519)*y(41) + mat(12) = -( rxt(50) + het_rates(32) ) + mat(549) = rxt(472)*y(9) + rxt(473)*y(10) + rxt(522)*y(39) + mat(692) = rxt(517)*y(39) + mat(155) = -( rxt(502)*y(21) + het_rates(33) ) + mat(5) = 2.000_r8*rxt(49) + mat(13) = rxt(50) + mat(20) = rxt(57) + mat(551) = rxt(475)*y(12) + rxt(497)*y(8) + mat(941) = -( het_rates(34) ) + mat(1726) = 2.000_r8*rxt(2) + rxt(3) + mat(534) = 2.000_r8*rxt(21) + mat(37) = rxt(23) + mat(184) = rxt(52) + mat(906) = rxt(56) + mat(21) = rxt(57) + mat(564) = rxt(534)*y(21) + mat(431) = -( het_rates(35) ) + mat(1711) = rxt(1) + mat(528) = rxt(22) + mat(558) = rxt(535)*y(21) + mat(111) = -( rxt(4) + het_rates(37) ) + mat(659) = .500_r8*rxt(537) + mat(179) = -( rxt(52) + het_rates(38) ) + mat(905) = -( rxt(56) + het_rates(42) ) + mat(335) = rxt(381) + mat(1194) = rxt(446)*y(21) + rxt(508)*y(14) + rxt(510)*y(16) & + + 2.000_r8*rxt(513)*y(18) + rxt(515)*y(22) + mat(19) = -( rxt(57) + het_rates(43) ) + mat(154) = rxt(502)*y(21) + mat(1657) = -( rxt(9) + het_rates(44) ) + mat(461) = rxt(270) + mat(248) = 2.000_r8*rxt(538) + 2.000_r8*rxt(541) + 2.000_r8*rxt(544) & + + 2.000_r8*rxt(555) + mat(1085) = .500_r8*rxt(539) + mat(1691) = rxt(540) + mat(96) = rxt(543) + rxt(546) + rxt(551) + mat(226) = rxt(545) + rxt(550) + rxt(556) + mat(57) = -( rxt(10) + rxt(11) + rxt(443) + het_rates(45) ) + mat(164) = -( rxt(58) + het_rates(46) ) + mat(91) = rxt(543) + rxt(546) + rxt(551) + mat(188) = -( rxt(59) + het_rates(47) ) + mat(218) = rxt(545) + rxt(550) + rxt(556) + mat(124) = -( rxt(12) + het_rates(48) ) + mat(253) = -( rxt(66) + het_rates(49) ) + mat(1296) = rxt(17) + mat(207) = rxt(574) + mat(239) = -( rxt(14) + rxt(15) + rxt(444) + rxt(538) + rxt(541) + rxt(544) & + + rxt(555) + het_rates(51) ) + mat(1324) = -( rxt(16) + rxt(17) + het_rates(52) ) + mat(127) = rxt(12) + mat(244) = rxt(15) + mat(1077) = rxt(18) + .500_r8*rxt(539) + mat(1683) = rxt(20) + mat(1283) = rxt(571) + mat(82) = rxt(584) + mat(572) = 2.000_r8*rxt(437)*y(50) + mat(1071) = -( rxt(18) + rxt(539) + het_rates(53) ) + mat(1643) = rxt(9) + mat(60) = rxt(11) + rxt(443) + mat(243) = rxt(14) + rxt(444) + mat(1677) = rxt(19) + mat(94) = rxt(29) + mat(222) = rxt(48) + mat(776) = rxt(75) + mat(1692) = -( rxt(19) + rxt(20) + rxt(540) + het_rates(54) ) + mat(62) = rxt(10) + mat(249) = rxt(14) + rxt(15) + rxt(444) + mat(97) = rxt(30) + mat(227) = rxt(47) + mat(655) = rxt(76) + mat(1509) = -( rxt(77) + rxt(78) + rxt(79) + rxt(80) + rxt(81) + rxt(82) & + + het_rates(55) ) + mat(1739) = rxt(2) + mat(1166) = 2.000_r8*rxt(5) + rxt(6) + rxt(83) + 2.000_r8*rxt(84) + rxt(85) & + + rxt(87) + 2.000_r8*rxt(89) + rxt(90) + rxt(91) + rxt(92) + mat(1614) = rxt(8) + mat(247) = rxt(15) + mat(1328) = rxt(17) + mat(1081) = rxt(18) + mat(1687) = rxt(19) + mat(423) = rxt(28) + mat(1123) = rxt(46) + mat(9) = rxt(60) + mat(1576) = rxt(99) + rxt(353) + mat(574) = rxt(386) + mat(89) = rxt(578) + mat(83) = rxt(583) + mat(1158) = -( rxt(5) + rxt(6) + rxt(83) + rxt(84) + rxt(85) + rxt(86) + rxt(87) & + + rxt(88) + rxt(89) + rxt(90) + rxt(91) + rxt(92) + het_rates(56) ) + mat(1606) = rxt(8) + mat(1679) = rxt(20) + mat(1235) = rxt(93) + rxt(132) + mat(382) = rxt(95) + rxt(325)*y(30) + mat(54) = rxt(97) + rxt(330)*y(30) + mat(197) = rxt(382) + rxt(390) + mat(24) = rxt(383) + mat(568) = rxt(438)*y(50) + mat(1617) = -( rxt(7) + rxt(8) + het_rates(57) ) + mat(389) = rxt(96) + mat(7) = -( rxt(60) + het_rates(58) ) + mat(613) = -( het_rates(60) ) + mat(348) = rxt(380) + mat(332) = rxt(381) + mat(347) = -( rxt(380) + het_rates(61) ) + mat(331) = -( rxt(381) + het_rates(62) ) + mat(229) = -( het_rates(63) ) + mat(739) = -( rxt(63) + het_rates(64) ) + mat(489) = rxt(64) + rxt(278) + mat(378) = rxt(325)*y(30) + mat(1558) = rxt(347)*y(30) + mat(304) = -( rxt(279) + het_rates(65) ) + mat(486) = -( rxt(64) + rxt(278) + het_rates(66) ) + mat(305) = rxt(279) + mat(583) = -( rxt(65) + het_rates(67) ) + mat(1220) = rxt(311)*y(30) + mat(53) = rxt(330)*y(30) + mat(1410) = -( het_rates(68) ) + mat(1326) = rxt(16) + mat(263) = rxt(66) + mat(784) = rxt(75) + mat(650) = rxt(76) + mat(1507) = rxt(77) + rxt(78) + rxt(79) + rxt(80) + rxt(81) + rxt(82) + mat(1164) = rxt(83) + rxt(85) + rxt(86) + rxt(87) + rxt(88) + rxt(90) + rxt(91) & + + rxt(92) + mat(1241) = rxt(93) + rxt(132) + mat(385) = rxt(96) + mat(1539) = rxt(98) + mat(1574) = rxt(99) + rxt(353) + mat(39) = -( het_rates(69) ) + mat(277) = -( het_rates(70) ) + mat(1517) = rxt(338)*y(30) + mat(670) = -( rxt(537) + het_rates(71) ) + mat(58) = rxt(11) + rxt(443) + mat(1188) = rxt(510)*y(16) + rxt(513)*y(18) + mat(710) = rxt(511)*y(16) + rxt(514)*y(18) + mat(561) = rxt(534)*y(21) + mat(118) = -( rxt(368) + het_rates(72) ) + mat(1002) = rxt(370) + mat(1026) = -( rxt(370) + het_rates(73) ) + mat(1359) = rxt(372) + mat(25) = -( het_rates(74) ) + mat(1367) = -( rxt(372) + het_rates(75) ) + mat(1451) = rxt(374) + mat(29) = -( het_rates(76) ) + mat(1453) = -( rxt(374) + het_rates(77) ) end subroutine linmat01 - subroutine linmat02( avec_len, mat, y, rxt, het_rates ) + subroutine linmat02( mat, y, rxt, het_rates ) !---------------------------------------------- ! ... linear matrix entries for implicit species !---------------------------------------------- @@ -236,131 +228,114 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(in) :: het_rates(veclen,gas_pcnst) - real(r8), intent(inout) :: mat(veclen,nzcnt) -!---------------------------------------------- -! ... local variables -!---------------------------------------------- - integer :: k - do k = 1,avec_len - mat(k,102) = -( rxt(k,368) + het_rates(k,72) ) - mat(k,810) = rxt(k,370) - mat(k,829) = -( rxt(k,370) + het_rates(k,73) ) - mat(k,1189) = rxt(k,372) - mat(k,22) = -( het_rates(k,74) ) - mat(k,1197) = -( rxt(k,372) + het_rates(k,75) ) - mat(k,1567) = rxt(k,374) - mat(k,26) = -( het_rates(k,76) ) - mat(k,1576) = -( rxt(k,374) + het_rates(k,77) ) - mat(k,134) = -( het_rates(k,78) ) - mat(k,103) = rxt(k,368) - mat(k,159) = -( het_rates(k,79) ) - mat(k,86) = -( het_rates(k,80) ) - mat(k,66) = rxt(k,578) - mat(k,60) = rxt(k,583) - mat(k,712) = -( rxt(k,75) + het_rates(k,81) ) - mat(k,372) = rxt(k,268) - mat(k,371) = -( rxt(k,268) + het_rates(k,82) ) - mat(k,652) = -( rxt(k,76) + het_rates(k,83) ) - mat(k,439) = rxt(k,270) - mat(k,520) = rxt(k,277) - mat(k,477) = -( rxt(k,269) + het_rates(k,84) ) - mat(k,519) = -( rxt(k,277) + het_rates(k,85) ) - mat(k,478) = rxt(k,269) - mat(k,385) = -( het_rates(k,86) ) - mat(k,438) = -( rxt(k,270) + het_rates(k,87) ) - mat(k,878) = -( rxt(k,365) + het_rates(k,88) ) - mat(k,1750) = rxt(k,16) - mat(k,117) = rxt(k,364) - mat(k,110) = rxt(k,366) - mat(k,1349) = rxt(k,571) - mat(k,249) = rxt(k,574) - mat(k,922) = -( het_rates(k,89) ) - mat(k,45) = -( het_rates(k,90) ) - mat(k,116) = -( rxt(k,364) + het_rates(k,91) ) - mat(k,1066) = -( het_rates(k,92) ) - mat(k,108) = -( rxt(k,366) + het_rates(k,93) ) - mat(k,853) = rxt(k,365) - mat(k,176) = -( het_rates(k,94) ) - mat(k,268) = rxt(k,66) - mat(k,61) = rxt(k,584) - mat(k,573) = -( rxt(k,386) + rxt(k,437)*y(k,49) + rxt(k,438)*y(k,49) & - + rxt(k,470)*y(k,5) + rxt(k,471)*y(k,6) + rxt(k,472)*y(k,8) & - + rxt(k,473)*y(k,9) + rxt(k,474)*y(k,10) + rxt(k,475)*y(k,11) & - + rxt(k,476)*y(k,12) + rxt(k,497)*y(k,7) + rxt(k,498)*y(k,21) & - + rxt(k,499)*y(k,34) + rxt(k,520)*y(k,13) + rxt(k,521)*y(k,15) & - + rxt(k,522)*y(k,37) + rxt(k,523)*y(k,38) + rxt(k,524)*y(k,39) & - + rxt(k,533)*y(k,20) + rxt(k,534)*y(k,20) + rxt(k,535)*y(k,20) & - + het_rates(k,95) ) - mat(k,1795) = rxt(k,1) - mat(k,1260) = rxt(k,6) - mat(k,1421) = rxt(k,7) - mat(k,219) = -( rxt(k,382) + rxt(k,390) + het_rates(k,96) ) - mat(k,1415) = rxt(k,7) - mat(k,31) = rxt(k,394) - mat(k,30) = -( rxt(k,383) + rxt(k,394) + het_rates(k,97) ) - mat(k,1314) = -( rxt(k,93) + rxt(k,132) + het_rates(k,98) ) - mat(k,635) = rxt(k,65) - mat(k,100) = rxt(k,97) - mat(k,1360) = -( rxt(k,571) + het_rates(k,99) ) - mat(k,1279) = rxt(k,86) + rxt(k,88) - mat(k,147) = rxt(k,94) - mat(k,142) = -( rxt(k,94) + het_rates(k,100) ) - mat(k,401) = -( rxt(k,95) + rxt(k,96) + het_rates(k,101) ) - mat(k,95) = -( rxt(k,97) + het_rates(k,102) ) - mat(k,285) = -( het_rates(k,103) ) - mat(k,755) = -( rxt(k,509)*y(k,13) + rxt(k,511)*y(k,15) + rxt(k,512)*y(k,16) & - + rxt(k,514)*y(k,17) + rxt(k,516)*y(k,21) + rxt(k,517)*y(k,37) & - + rxt(k,518)*y(k,38) + rxt(k,519)*y(k,39) + rxt(k,531)*y(k,20) & - + het_rates(k,104) ) - mat(k,1800) = rxt(k,3) - mat(k,81) = 2.000_r8*rxt(k,4) - mat(k,1099) = rxt(k,9) - mat(k,53) = rxt(k,10) - mat(k,124) = rxt(k,12) - mat(k,42) = rxt(k,23) - mat(k,154) = rxt(k,58) - mat(k,185) = rxt(k,59) - mat(k,1590) = rxt(k,98) - mat(k,1144) = .500_r8*rxt(k,539) - mat(k,575) = rxt(k,533)*y(k,20) - mat(k,1610) = -( rxt(k,98) + het_rates(k,105) ) - mat(k,1647) = -( rxt(k,99) + rxt(k,353) + het_rates(k,106) ) - mat(k,805) = rxt(k,63) - mat(k,413) = rxt(k,95) - mat(k,244) = -( rxt(k,574) + het_rates(k,107) ) - mat(k,960) = rxt(k,78) + rxt(k,79) - mat(k,1256) = rxt(k,85) + rxt(k,87) - mat(k,62) = rxt(k,558) - mat(k,67) = rxt(k,559) - mat(k,65) = -( rxt(k,559) + rxt(k,578) + het_rates(k,108) ) - mat(k,946) = rxt(k,80) + rxt(k,81) - mat(k,1250) = rxt(k,90) + rxt(k,91) - mat(k,59) = rxt(k,560) - mat(k,58) = -( rxt(k,558) + rxt(k,560) + rxt(k,583) + rxt(k,584) & - + het_rates(k,109) ) - mat(k,945) = rxt(k,77) + rxt(k,82) - mat(k,1249) = rxt(k,83) + rxt(k,92) - mat(k,1825) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,110) ) - mat(k,515) = rxt(k,64) + rxt(k,278) - mat(k,149) = rxt(k,94) - mat(k,384) = rxt(k,268) - mat(k,494) = rxt(k,269) - mat(k,535) = rxt(k,277) - mat(k,325) = rxt(k,279) - mat(k,107) = rxt(k,368) - mat(k,852) = rxt(k,370) - mat(k,1212) = rxt(k,372) - mat(k,1582) = rxt(k,374) - mat(k,370) = rxt(k,380) - mat(k,776) = rxt(k,509)*y(k,13) + rxt(k,511)*y(k,15) + rxt(k,512)*y(k,16) & - + rxt(k,514)*y(k,17) + rxt(k,519)*y(k,39) + rxt(k,531)*y(k,20) - end do + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(in) :: het_rates(max(1,gas_pcnst)) + real(r8), intent(inout) :: mat(nzcnt) + mat(130) = -( het_rates(78) ) + mat(119) = rxt(368) + mat(146) = -( het_rates(79) ) + mat(102) = -( het_rates(80) ) + mat(85) = rxt(578) + mat(79) = rxt(583) + mat(769) = -( rxt(75) + het_rates(81) ) + mat(363) = rxt(268) + mat(362) = -( rxt(268) + het_rates(82) ) + mat(636) = -( rxt(76) + het_rates(83) ) + mat(451) = rxt(270) + mat(508) = rxt(277) + mat(466) = -( rxt(269) + het_rates(84) ) + mat(507) = -( rxt(277) + het_rates(85) ) + mat(467) = rxt(269) + mat(390) = -( het_rates(86) ) + mat(450) = -( rxt(270) + het_rates(87) ) + mat(817) = -( rxt(365) + rxt(363)*y(30) + het_rates(88) ) + mat(1312) = rxt(16) + mat(72) = rxt(364) + mat(66) = rxt(366) + mat(1271) = rxt(571) + mat(211) = rxt(574) + mat(860) = -( het_rates(89) ) + mat(45) = -( het_rates(90) ) + mat(71) = -( rxt(364) + het_rates(91) ) + mat(65) = rxt(307)*y(30) + mat(794) = rxt(363)*y(30) + mat(983) = -( het_rates(92) ) + mat(64) = -( rxt(366) + rxt(307)*y(30) + het_rates(93) ) + mat(793) = rxt(365) + mat(172) = -( het_rates(94) ) + mat(251) = rxt(66) + mat(80) = rxt(584) + mat(560) = -( rxt(386) + rxt(437)*y(50) + rxt(438)*y(50) + rxt(470)*y(6) & + + rxt(471)*y(7) + rxt(472)*y(9) + rxt(473)*y(10) + rxt(474)*y(11) & + + rxt(475)*y(12) + rxt(476)*y(13) + rxt(497)*y(8) + rxt(498)*y(22) & + + rxt(499)*y(36) + rxt(520)*y(14) + rxt(521)*y(16) + rxt(522)*y(39) & + + rxt(523)*y(40) + rxt(524)*y(41) + rxt(533)*y(21) + rxt(534)*y(21) & + + rxt(535)*y(21) + het_rates(95) ) + mat(1716) = rxt(1) + mat(1142) = rxt(6) + mat(1590) = rxt(7) + mat(195) = -( rxt(382) + rxt(390) + het_rates(96) ) + mat(1584) = rxt(7) + mat(23) = rxt(394) + rxt(393)*y(30) + mat(22) = -( rxt(383) + rxt(394) + rxt(393)*y(30) + het_rates(97) ) + mat(1237) = -( rxt(93) + rxt(132) + rxt(311)*y(30) + het_rates(98) ) + mat(600) = rxt(65) + mat(55) = rxt(97) + mat(1282) = -( rxt(571) + het_rates(99) ) + mat(1161) = rxt(86) + rxt(88) + mat(143) = rxt(94) + mat(214) = rxt(573)*y(30) + mat(138) = -( rxt(94) + het_rates(100) ) + mat(376) = -( rxt(95) + rxt(96) + rxt(325)*y(30) + het_rates(101) ) + mat(51) = -( rxt(97) + rxt(330)*y(30) + het_rates(102) ) + mat(292) = -( het_rates(103) ) + mat(711) = -( rxt(509)*y(14) + rxt(511)*y(16) + rxt(512)*y(17) + rxt(514)*y(18) & + + rxt(516)*y(22) + rxt(517)*y(39) + rxt(518)*y(40) + rxt(519)*y(41) & + + rxt(531)*y(21) + het_rates(104) ) + mat(1720) = rxt(3) + mat(113) = 2.000_r8*rxt(4) + mat(1634) = rxt(9) + mat(59) = rxt(10) + mat(125) = rxt(12) + mat(36) = rxt(23) + mat(167) = rxt(58) + mat(189) = rxt(59) + mat(1522) = rxt(98) + mat(1062) = .500_r8*rxt(539) + mat(562) = rxt(533)*y(21) + mat(1542) = -( rxt(98) + rxt(338)*y(30) + het_rates(105) ) + mat(1578) = -( rxt(99) + rxt(353) + rxt(347)*y(30) + het_rates(106) ) + mat(759) = rxt(63) + mat(388) = rxt(95) + mat(206) = -( rxt(574) + rxt(573)*y(30) + het_rates(107) ) + mat(1475) = rxt(78) + rxt(79) + mat(1138) = rxt(85) + rxt(87) + mat(81) = rxt(558) + mat(86) = rxt(559) + mat(84) = -( rxt(559) + rxt(578) + het_rates(108) ) + mat(1464) = rxt(80) + rxt(81) + mat(1133) = rxt(90) + rxt(91) + mat(78) = rxt(560) + mat(77) = -( rxt(558) + rxt(560) + rxt(583) + rxt(584) + het_rates(109) ) + mat(1463) = rxt(77) + rxt(82) + mat(1132) = rxt(83) + rxt(92) + mat(1745) = -( rxt(1) + rxt(2) + rxt(3) + het_rates(110) ) + mat(503) = rxt(64) + rxt(278) + mat(145) = rxt(94) + mat(375) = rxt(268) + mat(483) = rxt(269) + mat(523) = rxt(277) + mat(317) = rxt(279) + mat(123) = rxt(368) + mat(1043) = rxt(370) + mat(1376) = rxt(372) + mat(1460) = rxt(374) + mat(361) = rxt(380) + mat(731) = rxt(509)*y(14) + rxt(511)*y(16) + rxt(512)*y(17) + rxt(514)*y(18) & + + rxt(519)*y(41) + rxt(531)*y(21) end subroutine linmat02 - subroutine linmat( avec_len, mat, y, rxt, het_rates ) + subroutine linmat( mat, y, rxt, het_rates ) !---------------------------------------------- ! ... linear matrix entries for implicit species !---------------------------------------------- @@ -370,12 +345,11 @@ subroutine linmat( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(in) :: het_rates(veclen,gas_pcnst) - real(r8), intent(inout) :: mat(veclen,nzcnt) - call linmat01( avec_len, mat, y, rxt, het_rates ) - call linmat02( avec_len, mat, y, rxt, het_rates ) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(in) :: het_rates(max(1,gas_pcnst)) + real(r8), intent(inout) :: mat(nzcnt) + call linmat01( mat, y, rxt, het_rates ) + call linmat02( mat, y, rxt, het_rates ) end subroutine linmat end module mo_lin_matrix diff --git a/src/chemistry/pp_waccm_mad/mo_lu_factor.F90 b/src/chemistry/pp_waccm_mad/mo_lu_factor.F90 index 4030975501..d8a5b66bb1 100644 --- a/src/chemistry/pp_waccm_mad/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_mad/mo_lu_factor.F90 @@ -1,13427 +1,12280 @@ module mo_lu_factor - use chem_mods, only: veclen private public :: lu_fac contains - subroutine lu_fac01( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac01( lu ) 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,1) = 1._r8 / lu(k,1) - lu(k,2) = lu(k,2) * lu(k,1) - lu(k,3) = lu(k,3) * lu(k,1) - lu(k,1532) = lu(k,1532) - lu(k,2) * lu(k,1497) - lu(k,1536) = lu(k,1536) - lu(k,3) * lu(k,1497) - lu(k,4) = 1._r8 / lu(k,4) - lu(k,5) = lu(k,5) * lu(k,4) - lu(k,6) = lu(k,6) * lu(k,4) - lu(k,564) = lu(k,564) - lu(k,5) * lu(k,561) - lu(k,573) = lu(k,573) - lu(k,6) * lu(k,561) - lu(k,743) = - lu(k,5) * lu(k,735) - lu(k,753) = - lu(k,6) * lu(k,735) - lu(k,7) = 1._r8 / lu(k,7) - lu(k,8) = lu(k,8) * lu(k,7) - lu(k,9) = lu(k,9) * lu(k,7) - lu(k,462) = lu(k,462) - lu(k,8) * lu(k,452) - lu(k,470) = lu(k,470) - lu(k,9) * lu(k,452) - lu(k,1519) = lu(k,1519) - lu(k,8) * lu(k,1498) - lu(k,1532) = lu(k,1532) - lu(k,9) * lu(k,1498) - lu(k,10) = 1._r8 / lu(k,10) - lu(k,11) = lu(k,11) * lu(k,10) - lu(k,189) = lu(k,189) - lu(k,11) * lu(k,183) - lu(k,209) = lu(k,209) - lu(k,11) * lu(k,199) - lu(k,1493) = lu(k,1493) - lu(k,11) * lu(k,1452) - lu(k,1536) = lu(k,1536) - lu(k,11) * lu(k,1499) - lu(k,1691) = lu(k,1691) - lu(k,11) * lu(k,1652) - lu(k,12) = 1._r8 / lu(k,12) - lu(k,13) = lu(k,13) * lu(k,12) - lu(k,14) = lu(k,14) * lu(k,12) - lu(k,15) = lu(k,15) * lu(k,12) - lu(k,564) = lu(k,564) - lu(k,13) * lu(k,562) - lu(k,573) = lu(k,573) - lu(k,14) * lu(k,562) - lu(k,591) = lu(k,591) - lu(k,15) * lu(k,562) - lu(k,743) = lu(k,743) - lu(k,13) * lu(k,736) - lu(k,753) = lu(k,753) - lu(k,14) * lu(k,736) - lu(k,773) = lu(k,773) - lu(k,15) * lu(k,736) - lu(k,16) = 1._r8 / lu(k,16) - lu(k,17) = lu(k,17) * lu(k,16) - lu(k,18) = lu(k,18) * lu(k,16) - lu(k,152) = lu(k,152) - lu(k,17) * lu(k,150) - lu(k,157) = - lu(k,18) * lu(k,150) - lu(k,456) = lu(k,456) - lu(k,17) * lu(k,453) - lu(k,471) = lu(k,471) - lu(k,18) * lu(k,453) - lu(k,1458) = - lu(k,17) * lu(k,1453) - lu(k,1493) = lu(k,1493) - lu(k,18) * lu(k,1453) - lu(k,1505) = lu(k,1505) - lu(k,17) * lu(k,1500) - lu(k,1536) = lu(k,1536) - lu(k,18) * lu(k,1500) - lu(k,19) = 1._r8 / lu(k,19) - lu(k,20) = lu(k,20) * lu(k,19) - lu(k,21) = lu(k,21) * lu(k,19) - lu(k,168) = lu(k,168) - lu(k,20) * lu(k,167) - lu(k,174) = lu(k,174) - lu(k,21) * lu(k,167) - lu(k,417) = lu(k,417) - lu(k,20) * lu(k,416) - lu(k,435) = lu(k,435) - lu(k,21) * lu(k,416) - lu(k,1087) = lu(k,1087) - lu(k,20) * lu(k,1085) - lu(k,1122) = - lu(k,21) * lu(k,1085) - lu(k,1784) = lu(k,1784) - lu(k,20) * lu(k,1773) - lu(k,1823) = lu(k,1823) - lu(k,21) * lu(k,1773) - lu(k,22) = 1._r8 / lu(k,22) - lu(k,23) = lu(k,23) * lu(k,22) - lu(k,24) = lu(k,24) * lu(k,22) - lu(k,25) = lu(k,25) * lu(k,22) - lu(k,234) = lu(k,234) - lu(k,23) * lu(k,227) - lu(k,236) = lu(k,236) - lu(k,24) * lu(k,227) - lu(k,240) = lu(k,240) - lu(k,25) * lu(k,227) - lu(k,1195) = lu(k,1195) - lu(k,23) * lu(k,1170) - lu(k,1197) = lu(k,1197) - lu(k,24) * lu(k,1170) - lu(k,1212) = lu(k,1212) - lu(k,25) * lu(k,1170) - lu(k,1808) = lu(k,1808) - lu(k,23) * lu(k,1774) - lu(k,1810) = lu(k,1810) - lu(k,24) * lu(k,1774) - lu(k,1825) = lu(k,1825) - lu(k,25) * lu(k,1774) - 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,29) = lu(k,29) * lu(k,26) - lu(k,234) = lu(k,234) - lu(k,27) * lu(k,228) - lu(k,238) = lu(k,238) - lu(k,28) * lu(k,228) - lu(k,240) = lu(k,240) - lu(k,29) * lu(k,228) - lu(k,1565) = lu(k,1565) - lu(k,27) * lu(k,1540) - lu(k,1576) = lu(k,1576) - lu(k,28) * lu(k,1540) - lu(k,1582) = lu(k,1582) - lu(k,29) * lu(k,1540) - lu(k,1808) = lu(k,1808) - lu(k,27) * lu(k,1775) - lu(k,1819) = lu(k,1819) - lu(k,28) * lu(k,1775) - lu(k,1825) = lu(k,1825) - lu(k,29) * lu(k,1775) - lu(k,30) = 1._r8 / lu(k,30) - lu(k,31) = lu(k,31) * lu(k,30) - lu(k,32) = lu(k,32) * lu(k,30) - lu(k,566) = - lu(k,31) * lu(k,563) - lu(k,582) = lu(k,582) - lu(k,32) * lu(k,563) - lu(k,959) = lu(k,959) - lu(k,31) * lu(k,944) - lu(k,986) = lu(k,986) - lu(k,32) * lu(k,944) - lu(k,1255) = lu(k,1255) - lu(k,31) * lu(k,1248) - lu(k,1277) = lu(k,1277) - lu(k,32) * lu(k,1248) - lu(k,1377) = lu(k,1377) - lu(k,31) * lu(k,1372) - lu(k,1400) = lu(k,1400) - lu(k,32) * lu(k,1372) - lu(k,1415) = lu(k,1415) - lu(k,31) * lu(k,1414) - lu(k,1438) = lu(k,1438) - lu(k,32) * lu(k,1414) - lu(k,33) = 1._r8 / lu(k,33) - lu(k,34) = lu(k,34) * lu(k,33) - lu(k,35) = lu(k,35) * lu(k,33) - lu(k,36) = lu(k,36) * lu(k,33) - lu(k,37) = lu(k,37) * lu(k,33) - lu(k,38) = lu(k,38) * lu(k,33) - lu(k,140) = - lu(k,34) * lu(k,139) - lu(k,143) = lu(k,143) - lu(k,35) * lu(k,139) - lu(k,145) = lu(k,145) - lu(k,36) * lu(k,139) - lu(k,148) = - lu(k,37) * lu(k,139) - lu(k,149) = lu(k,149) - lu(k,38) * lu(k,139) - lu(k,1005) = lu(k,1005) - lu(k,34) * lu(k,1000) - lu(k,1018) = lu(k,1018) - lu(k,35) * lu(k,1000) - lu(k,1023) = lu(k,1023) - lu(k,36) * lu(k,1000) - lu(k,1040) = lu(k,1040) - lu(k,37) * lu(k,1000) - lu(k,1042) = lu(k,1042) - lu(k,38) * lu(k,1000) - lu(k,1778) = lu(k,1778) - lu(k,34) * lu(k,1776) - lu(k,1800) = lu(k,1800) - lu(k,35) * lu(k,1776) - lu(k,1806) = - lu(k,36) * lu(k,1776) - lu(k,1823) = lu(k,1823) - lu(k,37) * lu(k,1776) - lu(k,1825) = lu(k,1825) - lu(k,38) * lu(k,1776) - lu(k,39) = 1._r8 / lu(k,39) - lu(k,40) = lu(k,40) * lu(k,39) - lu(k,41) = lu(k,41) * lu(k,39) - lu(k,42) = lu(k,42) * lu(k,39) - lu(k,43) = lu(k,43) * lu(k,39) - lu(k,44) = lu(k,44) * lu(k,39) - lu(k,257) = lu(k,257) - lu(k,40) * lu(k,256) - lu(k,258) = lu(k,258) - lu(k,41) * lu(k,256) - lu(k,260) = - lu(k,42) * lu(k,256) - lu(k,265) = - lu(k,43) * lu(k,256) - lu(k,267) = - lu(k,44) * lu(k,256) - lu(k,680) = lu(k,680) - lu(k,40) * lu(k,673) - lu(k,684) = - lu(k,41) * lu(k,673) - lu(k,687) = lu(k,687) - lu(k,42) * lu(k,673) - lu(k,705) = lu(k,705) - lu(k,43) * lu(k,673) - lu(k,707) = lu(k,707) - lu(k,44) * lu(k,673) - lu(k,747) = lu(k,747) - lu(k,40) * lu(k,737) - lu(k,752) = lu(k,752) - lu(k,41) * lu(k,737) - lu(k,755) = lu(k,755) - lu(k,42) * lu(k,737) - lu(k,774) = lu(k,774) - lu(k,43) * lu(k,737) - lu(k,776) = lu(k,776) - lu(k,44) * lu(k,737) - end do + real(r8), intent(inout) :: lu(:) + lu(1) = 1._r8 / lu(1) + lu(2) = lu(2) * lu(1) + lu(3) = lu(3) * lu(1) + lu(1114) = lu(1114) - lu(2) * lu(1088) + lu(1116) = lu(1116) - lu(3) * lu(1088) + lu(4) = 1._r8 / lu(4) + lu(5) = lu(5) * lu(4) + lu(6) = lu(6) * lu(4) + lu(551) = lu(551) - lu(5) * lu(548) + lu(560) = lu(560) - lu(6) * lu(548) + lu(699) = - lu(5) * lu(691) + lu(709) = - lu(6) * lu(691) + lu(7) = 1._r8 / lu(7) + lu(8) = lu(8) * lu(7) + lu(9) = lu(9) * lu(7) + lu(419) = lu(419) - lu(8) * lu(406) + lu(423) = lu(423) - lu(9) * lu(406) + lu(1114) = lu(1114) - lu(8) * lu(1089) + lu(1123) = lu(1123) - lu(9) * lu(1089) + lu(10) = 1._r8 / lu(10) + lu(11) = lu(11) * lu(10) + lu(192) = lu(192) - lu(11) * lu(187) + lu(224) = lu(224) - lu(11) * lu(217) + lu(912) = lu(912) - lu(11) * lu(882) + lu(1116) = lu(1116) - lu(11) * lu(1090) + lu(1201) = lu(1201) - lu(11) * lu(1173) + lu(12) = 1._r8 / lu(12) + lu(13) = lu(13) * lu(12) + lu(14) = lu(14) * lu(12) + lu(15) = lu(15) * lu(12) + lu(551) = lu(551) - lu(13) * lu(549) + lu(560) = lu(560) - lu(14) * lu(549) + lu(569) = lu(569) - lu(15) * lu(549) + lu(699) = lu(699) - lu(13) * lu(692) + lu(709) = lu(709) - lu(14) * lu(692) + lu(720) = lu(720) - lu(15) * lu(692) + lu(16) = 1._r8 / lu(16) + lu(17) = lu(17) * lu(16) + lu(18) = lu(18) * lu(16) + lu(165) = lu(165) - lu(17) * lu(163) + lu(169) = - lu(18) * lu(163) + lu(410) = lu(410) - lu(17) * lu(407) + lu(421) = lu(421) - lu(18) * lu(407) + lu(888) = - lu(17) * lu(883) + lu(912) = lu(912) - lu(18) * lu(883) + lu(1096) = lu(1096) - lu(17) * lu(1091) + lu(1116) = lu(1116) - lu(18) * lu(1091) + lu(19) = 1._r8 / lu(19) + lu(20) = lu(20) * lu(19) + lu(21) = lu(21) * lu(19) + lu(155) = lu(155) - lu(20) * lu(154) + lu(159) = lu(159) - lu(21) * lu(154) + lu(429) = lu(429) - lu(20) * lu(428) + lu(437) = lu(437) - lu(21) * lu(428) + lu(1623) = lu(1623) - lu(20) * lu(1621) + lu(1640) = - lu(21) * lu(1621) + lu(1705) = lu(1705) - lu(20) * lu(1694) + lu(1726) = lu(1726) - lu(21) * lu(1694) + lu(22) = 1._r8 / lu(22) + lu(23) = lu(23) * lu(22) + lu(24) = lu(24) * lu(22) + lu(553) = - lu(23) * lu(550) + lu(568) = lu(568) - lu(24) * lu(550) + lu(1137) = lu(1137) - lu(23) * lu(1130) + lu(1158) = lu(1158) - lu(24) * lu(1130) + lu(1474) = lu(1474) - lu(23) * lu(1461) + lu(1501) = lu(1501) - lu(24) * lu(1461) + lu(1584) = lu(1584) - lu(23) * lu(1583) + lu(1606) = lu(1606) - lu(24) * lu(1583) + lu(25) = 1._r8 / lu(25) + lu(26) = lu(26) * lu(25) + lu(27) = lu(27) * lu(25) + lu(28) = lu(28) * lu(25) + lu(245) = lu(245) - lu(26) * lu(237) + lu(248) = lu(248) - lu(27) * lu(237) + lu(250) = lu(250) - lu(28) * lu(237) + lu(1367) = lu(1367) - lu(26) * lu(1335) + lu(1374) = lu(1374) - lu(27) * lu(1335) + lu(1376) = lu(1376) - lu(28) * lu(1335) + lu(1736) = lu(1736) - lu(26) * lu(1695) + lu(1743) = lu(1743) - lu(27) * lu(1695) + lu(1745) = lu(1745) - lu(28) * lu(1695) + lu(29) = 1._r8 / lu(29) + lu(30) = lu(30) * lu(29) + lu(31) = lu(31) * lu(29) + lu(32) = lu(32) * lu(29) + lu(246) = lu(246) - lu(30) * lu(238) + lu(248) = lu(248) - lu(31) * lu(238) + lu(250) = lu(250) - lu(32) * lu(238) + lu(1453) = lu(1453) - lu(30) * lu(1419) + lu(1458) = lu(1458) - lu(31) * lu(1419) + lu(1460) = lu(1460) - lu(32) * lu(1419) + lu(1738) = lu(1738) - lu(30) * lu(1696) + lu(1743) = lu(1743) - lu(31) * lu(1696) + lu(1745) = lu(1745) - lu(32) * lu(1696) + lu(33) = 1._r8 / lu(33) + lu(34) = lu(34) * lu(33) + lu(35) = lu(35) * lu(33) + lu(36) = lu(36) * lu(33) + lu(37) = lu(37) * lu(33) + lu(38) = lu(38) * lu(33) + lu(266) = lu(266) - lu(34) * lu(265) + lu(267) = lu(267) - lu(35) * lu(265) + lu(269) = - lu(36) * lu(265) + lu(270) = - lu(37) * lu(265) + lu(276) = - lu(38) * lu(265) + lu(664) = lu(664) - lu(34) * lu(657) + lu(668) = - lu(35) * lu(657) + lu(671) = lu(671) - lu(36) * lu(657) + lu(673) = lu(673) - lu(37) * lu(657) + lu(690) = lu(690) - lu(38) * lu(657) + lu(704) = lu(704) - lu(34) * lu(693) + lu(708) = lu(708) - lu(35) * lu(693) + lu(711) = lu(711) - lu(36) * lu(693) + lu(714) = lu(714) - lu(37) * lu(693) + lu(731) = lu(731) - lu(38) * lu(693) + lu(39) = 1._r8 / lu(39) + lu(40) = lu(40) * lu(39) + lu(41) = lu(41) * lu(39) + lu(42) = lu(42) * lu(39) + lu(43) = lu(43) * lu(39) + lu(44) = lu(44) * lu(39) + lu(136) = - lu(40) * lu(135) + lu(139) = lu(139) - lu(41) * lu(135) + lu(140) = - lu(42) * lu(135) + lu(144) = lu(144) - lu(43) * lu(135) + lu(145) = lu(145) - lu(44) * lu(135) + lu(1384) = lu(1384) - lu(40) * lu(1377) + lu(1395) = lu(1395) - lu(41) * lu(1377) + lu(1399) = lu(1399) - lu(42) * lu(1377) + lu(1410) = lu(1410) - lu(43) * lu(1377) + lu(1418) = lu(1418) - lu(44) * lu(1377) + lu(1701) = lu(1701) - lu(40) * lu(1697) + lu(1720) = lu(1720) - lu(41) * lu(1697) + lu(1726) = lu(1726) - lu(42) * lu(1697) + lu(1737) = - lu(43) * lu(1697) + lu(1745) = lu(1745) - lu(44) * lu(1697) end subroutine lu_fac01 - subroutine lu_fac02( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac02( lu ) 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,45) = 1._r8 / lu(k,45) - lu(k,46) = lu(k,46) * lu(k,45) - lu(k,47) = lu(k,47) * lu(k,45) - lu(k,48) = lu(k,48) * lu(k,45) - lu(k,49) = lu(k,49) * lu(k,45) - lu(k,50) = lu(k,50) * lu(k,45) - lu(k,902) = - lu(k,46) * lu(k,901) - lu(k,920) = - lu(k,47) * lu(k,901) - lu(k,924) = lu(k,924) - lu(k,48) * lu(k,901) - lu(k,942) = lu(k,942) - lu(k,49) * lu(k,901) - lu(k,943) = lu(k,943) - lu(k,50) * lu(k,901) - lu(k,1008) = - lu(k,46) * lu(k,1001) - lu(k,1019) = lu(k,1019) - lu(k,47) * lu(k,1001) - lu(k,1023) = lu(k,1023) - lu(k,48) * lu(k,1001) - lu(k,1041) = lu(k,1041) - lu(k,49) * lu(k,1001) - lu(k,1042) = lu(k,1042) - lu(k,50) * lu(k,1001) - lu(k,1781) = lu(k,1781) - lu(k,46) * lu(k,1777) - lu(k,1802) = lu(k,1802) - lu(k,47) * lu(k,1777) - lu(k,1806) = lu(k,1806) - lu(k,48) * lu(k,1777) - lu(k,1824) = - lu(k,49) * lu(k,1777) - lu(k,1825) = lu(k,1825) - lu(k,50) * lu(k,1777) - lu(k,51) = 1._r8 / lu(k,51) - lu(k,52) = lu(k,52) * lu(k,51) - lu(k,53) = lu(k,53) * lu(k,51) - lu(k,54) = lu(k,54) * lu(k,51) - lu(k,55) = lu(k,55) * lu(k,51) - lu(k,56) = lu(k,56) * lu(k,51) - lu(k,57) = lu(k,57) * lu(k,51) - lu(k,686) = lu(k,686) - lu(k,52) * lu(k,674) - lu(k,687) = lu(k,687) - lu(k,53) * lu(k,674) - lu(k,693) = lu(k,693) - lu(k,54) * lu(k,674) - lu(k,694) = lu(k,694) - lu(k,55) * lu(k,674) - lu(k,695) = lu(k,695) - lu(k,56) * lu(k,674) - lu(k,707) = lu(k,707) - lu(k,57) * lu(k,674) - lu(k,754) = lu(k,754) - lu(k,52) * lu(k,738) - lu(k,755) = lu(k,755) - lu(k,53) * lu(k,738) - lu(k,762) = lu(k,762) - lu(k,54) * lu(k,738) - lu(k,763) = lu(k,763) - lu(k,55) * lu(k,738) - lu(k,764) = lu(k,764) - lu(k,56) * lu(k,738) - lu(k,776) = lu(k,776) - lu(k,57) * lu(k,738) - lu(k,1142) = lu(k,1142) - lu(k,52) * lu(k,1125) - lu(k,1144) = lu(k,1144) - lu(k,53) * lu(k,1125) - lu(k,1153) = lu(k,1153) - lu(k,54) * lu(k,1125) - lu(k,1155) = lu(k,1155) - lu(k,55) * lu(k,1125) - lu(k,1156) = lu(k,1156) - lu(k,56) * lu(k,1125) - lu(k,1169) = lu(k,1169) - lu(k,57) * lu(k,1125) - lu(k,58) = 1._r8 / lu(k,58) - lu(k,59) = lu(k,59) * lu(k,58) - lu(k,60) = lu(k,60) * lu(k,58) - lu(k,61) = lu(k,61) * lu(k,58) - lu(k,62) = lu(k,62) * lu(k,58) - lu(k,63) = lu(k,63) * lu(k,58) - lu(k,64) = lu(k,64) * lu(k,58) - lu(k,946) = lu(k,946) - lu(k,59) * lu(k,945) - lu(k,949) = lu(k,949) - lu(k,60) * lu(k,945) - lu(k,954) = lu(k,954) - lu(k,61) * lu(k,945) - lu(k,960) = lu(k,960) - lu(k,62) * lu(k,945) - lu(k,979) = lu(k,979) - lu(k,63) * lu(k,945) - lu(k,998) = lu(k,998) - lu(k,64) * lu(k,945) - lu(k,1003) = lu(k,1003) - lu(k,59) * lu(k,1002) - lu(k,1004) = lu(k,1004) - lu(k,60) * lu(k,1002) - lu(k,1012) = - lu(k,61) * lu(k,1002) - lu(k,1013) = lu(k,1013) - lu(k,62) * lu(k,1002) - lu(k,1022) = lu(k,1022) - lu(k,63) * lu(k,1002) - lu(k,1041) = lu(k,1041) - lu(k,64) * lu(k,1002) - lu(k,1250) = lu(k,1250) - lu(k,59) * lu(k,1249) - lu(k,1251) = lu(k,1251) - lu(k,60) * lu(k,1249) - lu(k,1254) = lu(k,1254) - lu(k,61) * lu(k,1249) - lu(k,1256) = lu(k,1256) - lu(k,62) * lu(k,1249) - lu(k,1270) = lu(k,1270) - lu(k,63) * lu(k,1249) - lu(k,1289) = lu(k,1289) - lu(k,64) * lu(k,1249) - 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,70) = lu(k,70) * lu(k,65) - lu(k,949) = lu(k,949) - lu(k,66) * lu(k,946) - lu(k,960) = lu(k,960) - lu(k,67) * lu(k,946) - lu(k,979) = lu(k,979) - lu(k,68) * lu(k,946) - lu(k,986) = lu(k,986) - lu(k,69) * lu(k,946) - lu(k,988) = lu(k,988) - lu(k,70) * lu(k,946) - lu(k,1004) = lu(k,1004) - lu(k,66) * lu(k,1003) - lu(k,1013) = lu(k,1013) - lu(k,67) * lu(k,1003) - lu(k,1022) = lu(k,1022) - lu(k,68) * lu(k,1003) - lu(k,1029) = lu(k,1029) - lu(k,69) * lu(k,1003) - lu(k,1031) = lu(k,1031) - lu(k,70) * lu(k,1003) - lu(k,1251) = lu(k,1251) - lu(k,66) * lu(k,1250) - lu(k,1256) = lu(k,1256) - lu(k,67) * lu(k,1250) - lu(k,1270) = lu(k,1270) - lu(k,68) * lu(k,1250) - lu(k,1277) = lu(k,1277) - lu(k,69) * lu(k,1250) - lu(k,1279) = lu(k,1279) - lu(k,70) * lu(k,1250) - lu(k,71) = 1._r8 / lu(k,71) - lu(k,72) = lu(k,72) * lu(k,71) - lu(k,73) = lu(k,73) * lu(k,71) - lu(k,74) = lu(k,74) * lu(k,71) - lu(k,75) = lu(k,75) * lu(k,71) - lu(k,76) = lu(k,76) * lu(k,71) - lu(k,77) = lu(k,77) * lu(k,71) - lu(k,78) = lu(k,78) * lu(k,71) - lu(k,455) = lu(k,455) - lu(k,72) * lu(k,454) - lu(k,456) = lu(k,456) - lu(k,73) * lu(k,454) - lu(k,457) = lu(k,457) - lu(k,74) * lu(k,454) - lu(k,462) = lu(k,462) - lu(k,75) * lu(k,454) - lu(k,463) = - lu(k,76) * lu(k,454) - lu(k,464) = lu(k,464) - lu(k,77) * lu(k,454) - lu(k,465) = - lu(k,78) * lu(k,454) - lu(k,952) = lu(k,952) - lu(k,72) * lu(k,947) - lu(k,963) = lu(k,963) - lu(k,73) * lu(k,947) - lu(k,966) = lu(k,966) - lu(k,74) * lu(k,947) - lu(k,979) = lu(k,979) - lu(k,75) * lu(k,947) - lu(k,982) = - lu(k,76) * lu(k,947) - lu(k,983) = lu(k,983) - lu(k,77) * lu(k,947) - lu(k,985) = lu(k,985) - lu(k,78) * lu(k,947) - lu(k,1127) = - lu(k,72) * lu(k,1126) - lu(k,1131) = - lu(k,73) * lu(k,1126) - lu(k,1134) = lu(k,1134) - lu(k,74) * lu(k,1126) - lu(k,1149) = lu(k,1149) - lu(k,75) * lu(k,1126) - lu(k,1152) = lu(k,1152) - lu(k,76) * lu(k,1126) - lu(k,1153) = lu(k,1153) - lu(k,77) * lu(k,1126) - lu(k,1155) = lu(k,1155) - lu(k,78) * lu(k,1126) - lu(k,79) = 1._r8 / lu(k,79) - lu(k,80) = lu(k,80) * lu(k,79) - lu(k,81) = lu(k,81) * lu(k,79) - lu(k,82) = lu(k,82) * lu(k,79) - lu(k,83) = lu(k,83) * lu(k,79) - lu(k,84) = lu(k,84) * lu(k,79) - lu(k,85) = lu(k,85) * lu(k,79) - lu(k,686) = lu(k,686) - lu(k,80) * lu(k,675) - lu(k,687) = lu(k,687) - lu(k,81) * lu(k,675) - lu(k,689) = lu(k,689) - lu(k,82) * lu(k,675) - lu(k,700) = lu(k,700) - lu(k,83) * lu(k,675) - lu(k,704) = lu(k,704) - lu(k,84) * lu(k,675) - lu(k,707) = lu(k,707) - lu(k,85) * lu(k,675) - lu(k,754) = lu(k,754) - lu(k,80) * lu(k,739) - lu(k,755) = lu(k,755) - lu(k,81) * lu(k,739) - lu(k,758) = lu(k,758) - lu(k,82) * lu(k,739) - lu(k,769) = lu(k,769) - lu(k,83) * lu(k,739) - lu(k,773) = lu(k,773) - lu(k,84) * lu(k,739) - lu(k,776) = lu(k,776) - lu(k,85) * lu(k,739) - lu(k,972) = lu(k,972) - lu(k,80) * lu(k,948) - lu(k,974) = lu(k,974) - lu(k,81) * lu(k,948) - lu(k,979) = lu(k,979) - lu(k,82) * lu(k,948) - lu(k,991) = lu(k,991) - lu(k,83) * lu(k,948) - lu(k,996) = lu(k,996) - lu(k,84) * lu(k,948) - lu(k,999) = - lu(k,85) * lu(k,948) - lu(k,1667) = lu(k,1667) - lu(k,80) * lu(k,1653) - lu(k,1669) = lu(k,1669) - lu(k,81) * lu(k,1653) - lu(k,1674) = lu(k,1674) - lu(k,82) * lu(k,1653) - lu(k,1686) = lu(k,1686) - lu(k,83) * lu(k,1653) - lu(k,1691) = lu(k,1691) - lu(k,84) * lu(k,1653) - lu(k,1694) = - lu(k,85) * lu(k,1653) - end do + real(r8), intent(inout) :: lu(:) + lu(45) = 1._r8 / lu(45) + lu(46) = lu(46) * lu(45) + lu(47) = lu(47) * lu(45) + lu(48) = lu(48) * lu(45) + lu(49) = lu(49) * lu(45) + lu(50) = lu(50) * lu(45) + lu(841) = - lu(46) * lu(840) + lu(864) = - lu(47) * lu(840) + lu(871) = lu(871) - lu(48) * lu(840) + lu(873) = lu(873) - lu(49) * lu(840) + lu(881) = lu(881) - lu(50) * lu(840) + lu(1385) = - lu(46) * lu(1378) + lu(1401) = lu(1401) - lu(47) * lu(1378) + lu(1408) = lu(1408) - lu(48) * lu(1378) + lu(1410) = lu(1410) - lu(49) * lu(1378) + lu(1418) = lu(1418) - lu(50) * lu(1378) + lu(1702) = lu(1702) - lu(46) * lu(1698) + lu(1728) = lu(1728) - lu(47) * lu(1698) + lu(1735) = - lu(48) * lu(1698) + lu(1737) = lu(1737) - lu(49) * lu(1698) + lu(1745) = lu(1745) - lu(50) * lu(1698) + lu(51) = 1._r8 / lu(51) + lu(52) = lu(52) * lu(51) + lu(53) = lu(53) * lu(51) + lu(54) = lu(54) * lu(51) + lu(55) = lu(55) * lu(51) + lu(56) = lu(56) * lu(51) + lu(1141) = lu(1141) - lu(52) * lu(1131) + lu(1143) = - lu(53) * lu(1131) + lu(1158) = lu(1158) - lu(54) * lu(1131) + lu(1160) = lu(1160) - lu(55) * lu(1131) + lu(1166) = lu(1166) - lu(56) * lu(1131) + lu(1219) = lu(1219) - lu(52) * lu(1215) + lu(1220) = lu(1220) - lu(53) * lu(1215) + lu(1235) = lu(1235) - lu(54) * lu(1215) + lu(1237) = lu(1237) - lu(55) * lu(1215) + lu(1243) = lu(1243) - lu(56) * lu(1215) + lu(1481) = lu(1481) - lu(52) * lu(1462) + lu(1486) = lu(1486) - lu(53) * lu(1462) + lu(1501) = lu(1501) - lu(54) * lu(1462) + lu(1503) = lu(1503) - lu(55) * lu(1462) + lu(1509) = lu(1509) - lu(56) * lu(1462) + lu(57) = 1._r8 / lu(57) + lu(58) = lu(58) * lu(57) + lu(59) = lu(59) * lu(57) + lu(60) = lu(60) * lu(57) + lu(61) = lu(61) * lu(57) + lu(62) = lu(62) * lu(57) + lu(63) = lu(63) * lu(57) + lu(670) = lu(670) - lu(58) * lu(658) + lu(671) = lu(671) - lu(59) * lu(658) + lu(676) = lu(676) - lu(60) * lu(658) + lu(678) = lu(678) - lu(61) * lu(658) + lu(689) = lu(689) - lu(62) * lu(658) + lu(690) = lu(690) - lu(63) * lu(658) + lu(710) = lu(710) - lu(58) * lu(694) + lu(711) = lu(711) - lu(59) * lu(694) + lu(717) = lu(717) - lu(60) * lu(694) + lu(719) = lu(719) - lu(61) * lu(694) + lu(730) = lu(730) - lu(62) * lu(694) + lu(731) = lu(731) - lu(63) * lu(694) + lu(1061) = lu(1061) - lu(58) * lu(1044) + lu(1062) = lu(1062) - lu(59) * lu(1044) + lu(1071) = lu(1071) - lu(60) * lu(1044) + lu(1073) = lu(1073) - lu(61) * lu(1044) + lu(1086) = lu(1086) - lu(62) * lu(1044) + lu(1087) = lu(1087) - lu(63) * lu(1044) + lu(64) = 1._r8 / lu(64) + lu(65) = lu(65) * lu(64) + lu(66) = lu(66) * lu(64) + lu(67) = lu(67) * lu(64) + lu(68) = lu(68) * lu(64) + lu(69) = lu(69) * lu(64) + lu(70) = lu(70) * lu(64) + lu(794) = lu(794) - lu(65) * lu(793) + lu(817) = lu(817) - lu(66) * lu(793) + lu(821) = lu(821) - lu(67) * lu(793) + lu(829) = lu(829) - lu(68) * lu(793) + lu(831) = lu(831) - lu(69) * lu(793) + lu(839) = lu(839) - lu(70) * lu(793) + lu(1380) = lu(1380) - lu(65) * lu(1379) + lu(1396) = lu(1396) - lu(66) * lu(1379) + lu(1400) = lu(1400) - lu(67) * lu(1379) + lu(1408) = lu(1408) - lu(68) * lu(1379) + lu(1410) = lu(1410) - lu(69) * lu(1379) + lu(1418) = lu(1418) - lu(70) * lu(1379) + lu(1700) = lu(1700) - lu(65) * lu(1699) + lu(1723) = lu(1723) - lu(66) * lu(1699) + lu(1727) = lu(1727) - lu(67) * lu(1699) + lu(1735) = lu(1735) - lu(68) * lu(1699) + lu(1737) = lu(1737) - lu(69) * lu(1699) + lu(1745) = lu(1745) - lu(70) * lu(1699) + lu(71) = 1._r8 / lu(71) + lu(72) = lu(72) * lu(71) + lu(73) = lu(73) * lu(71) + lu(74) = lu(74) * lu(71) + lu(75) = lu(75) * lu(71) + lu(76) = lu(76) * lu(71) + lu(817) = lu(817) - lu(72) * lu(794) + lu(821) = lu(821) - lu(73) * lu(794) + lu(829) = lu(829) - lu(74) * lu(794) + lu(831) = lu(831) - lu(75) * lu(794) + lu(839) = lu(839) - lu(76) * lu(794) + lu(1396) = lu(1396) - lu(72) * lu(1380) + lu(1400) = lu(1400) - lu(73) * lu(1380) + lu(1408) = lu(1408) - lu(74) * lu(1380) + lu(1410) = lu(1410) - lu(75) * lu(1380) + lu(1418) = lu(1418) - lu(76) * lu(1380) + lu(1723) = lu(1723) - lu(72) * lu(1700) + lu(1727) = lu(1727) - lu(73) * lu(1700) + lu(1735) = lu(1735) - lu(74) * lu(1700) + lu(1737) = lu(1737) - lu(75) * lu(1700) + lu(1745) = lu(1745) - lu(76) * lu(1700) + lu(77) = 1._r8 / lu(77) + lu(78) = lu(78) * lu(77) + lu(79) = lu(79) * lu(77) + lu(80) = lu(80) * lu(77) + lu(81) = lu(81) * lu(77) + lu(82) = lu(82) * lu(77) + lu(83) = lu(83) * lu(77) + lu(1133) = lu(1133) - lu(78) * lu(1132) + lu(1134) = lu(1134) - lu(79) * lu(1132) + lu(1136) = lu(1136) - lu(80) * lu(1132) + lu(1138) = lu(1138) - lu(81) * lu(1132) + lu(1162) = lu(1162) - lu(82) * lu(1132) + lu(1166) = lu(1166) - lu(83) * lu(1132) + lu(1382) = lu(1382) - lu(78) * lu(1381) + lu(1383) = lu(1383) - lu(79) * lu(1381) + lu(1389) = - lu(80) * lu(1381) + lu(1390) = lu(1390) - lu(81) * lu(1381) + lu(1408) = lu(1408) - lu(82) * lu(1381) + lu(1412) = lu(1412) - lu(83) * lu(1381) + lu(1464) = lu(1464) - lu(78) * lu(1463) + lu(1467) = lu(1467) - lu(79) * lu(1463) + lu(1471) = lu(1471) - lu(80) * lu(1463) + lu(1475) = lu(1475) - lu(81) * lu(1463) + lu(1505) = lu(1505) - lu(82) * lu(1463) + lu(1509) = lu(1509) - lu(83) * lu(1463) + lu(84) = 1._r8 / lu(84) + lu(85) = lu(85) * lu(84) + lu(86) = lu(86) * lu(84) + lu(87) = lu(87) * lu(84) + lu(88) = lu(88) * lu(84) + lu(89) = lu(89) * lu(84) + lu(1134) = lu(1134) - lu(85) * lu(1133) + lu(1138) = lu(1138) - lu(86) * lu(1133) + lu(1158) = lu(1158) - lu(87) * lu(1133) + lu(1161) = lu(1161) - lu(88) * lu(1133) + lu(1166) = lu(1166) - lu(89) * lu(1133) + lu(1383) = lu(1383) - lu(85) * lu(1382) + lu(1390) = lu(1390) - lu(86) * lu(1382) + lu(1404) = lu(1404) - lu(87) * lu(1382) + lu(1407) = lu(1407) - lu(88) * lu(1382) + lu(1412) = lu(1412) - lu(89) * lu(1382) + lu(1467) = lu(1467) - lu(85) * lu(1464) + lu(1475) = lu(1475) - lu(86) * lu(1464) + lu(1501) = lu(1501) - lu(87) * lu(1464) + lu(1504) = lu(1504) - lu(88) * lu(1464) + lu(1509) = lu(1509) - lu(89) * lu(1464) end subroutine lu_fac02 - subroutine lu_fac03( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac03( lu ) 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,86) = 1._r8 / lu(k,86) - lu(k,87) = lu(k,87) * lu(k,86) - lu(k,88) = lu(k,88) * lu(k,86) - lu(k,89) = lu(k,89) * lu(k,86) - lu(k,90) = lu(k,90) * lu(k,86) - lu(k,91) = lu(k,91) * lu(k,86) - lu(k,92) = lu(k,92) * lu(k,86) - lu(k,93) = lu(k,93) * lu(k,86) - lu(k,94) = lu(k,94) * lu(k,86) - lu(k,953) = lu(k,953) - lu(k,87) * lu(k,949) - lu(k,960) = lu(k,960) - lu(k,88) * lu(k,949) - lu(k,961) = lu(k,961) - lu(k,89) * lu(k,949) - lu(k,977) = lu(k,977) - lu(k,90) * lu(k,949) - lu(k,979) = lu(k,979) - lu(k,91) * lu(k,949) - lu(k,980) = lu(k,980) - lu(k,92) * lu(k,949) - lu(k,986) = lu(k,986) - lu(k,93) * lu(k,949) - lu(k,988) = lu(k,988) - lu(k,94) * lu(k,949) - lu(k,1011) = lu(k,1011) - lu(k,87) * lu(k,1004) - lu(k,1013) = lu(k,1013) - lu(k,88) * lu(k,1004) - lu(k,1014) = lu(k,1014) - lu(k,89) * lu(k,1004) - lu(k,1020) = lu(k,1020) - lu(k,90) * lu(k,1004) - lu(k,1022) = lu(k,1022) - lu(k,91) * lu(k,1004) - lu(k,1023) = lu(k,1023) - lu(k,92) * lu(k,1004) - lu(k,1029) = lu(k,1029) - lu(k,93) * lu(k,1004) - lu(k,1031) = lu(k,1031) - lu(k,94) * lu(k,1004) - lu(k,1253) = lu(k,1253) - lu(k,87) * lu(k,1251) - lu(k,1256) = lu(k,1256) - lu(k,88) * lu(k,1251) - lu(k,1257) = lu(k,1257) - lu(k,89) * lu(k,1251) - lu(k,1268) = lu(k,1268) - lu(k,90) * lu(k,1251) - lu(k,1270) = lu(k,1270) - lu(k,91) * lu(k,1251) - lu(k,1271) = lu(k,1271) - lu(k,92) * lu(k,1251) - lu(k,1277) = lu(k,1277) - lu(k,93) * lu(k,1251) - lu(k,1279) = lu(k,1279) - lu(k,94) * lu(k,1251) - 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,98) = lu(k,98) * lu(k,95) - lu(k,99) = lu(k,99) * lu(k,95) - lu(k,100) = lu(k,100) * lu(k,95) - lu(k,101) = lu(k,101) * lu(k,95) - lu(k,964) = lu(k,964) - lu(k,96) * lu(k,950) - lu(k,970) = lu(k,970) - lu(k,97) * lu(k,950) - lu(k,979) = lu(k,979) - lu(k,98) * lu(k,950) - lu(k,986) = lu(k,986) - lu(k,99) * lu(k,950) - lu(k,987) = lu(k,987) - lu(k,100) * lu(k,950) - lu(k,989) = lu(k,989) - lu(k,101) * lu(k,950) - lu(k,1259) = lu(k,1259) - lu(k,96) * lu(k,1252) - lu(k,1261) = - lu(k,97) * lu(k,1252) - lu(k,1270) = lu(k,1270) - lu(k,98) * lu(k,1252) - lu(k,1277) = lu(k,1277) - lu(k,99) * lu(k,1252) - lu(k,1278) = lu(k,1278) - lu(k,100) * lu(k,1252) - lu(k,1280) = lu(k,1280) - lu(k,101) * lu(k,1252) - lu(k,1295) = lu(k,1295) - lu(k,96) * lu(k,1291) - lu(k,1297) = lu(k,1297) - lu(k,97) * lu(k,1291) - lu(k,1306) = lu(k,1306) - lu(k,98) * lu(k,1291) - lu(k,1313) = lu(k,1313) - lu(k,99) * lu(k,1291) - lu(k,1314) = lu(k,1314) - lu(k,100) * lu(k,1291) - lu(k,1316) = lu(k,1316) - lu(k,101) * lu(k,1291) - lu(k,1382) = lu(k,1382) - lu(k,96) * lu(k,1373) - lu(k,1384) = lu(k,1384) - lu(k,97) * lu(k,1373) - lu(k,1393) = lu(k,1393) - lu(k,98) * lu(k,1373) - lu(k,1400) = lu(k,1400) - lu(k,99) * lu(k,1373) - lu(k,1401) = lu(k,1401) - lu(k,100) * lu(k,1373) - lu(k,1403) = lu(k,1403) - lu(k,101) * lu(k,1373) - lu(k,102) = 1._r8 / lu(k,102) - lu(k,103) = lu(k,103) * lu(k,102) - lu(k,104) = lu(k,104) * lu(k,102) - lu(k,105) = lu(k,105) * lu(k,102) - lu(k,106) = lu(k,106) * lu(k,102) - lu(k,107) = lu(k,107) * lu(k,102) - lu(k,134) = lu(k,134) - lu(k,103) * lu(k,133) - lu(k,135) = - lu(k,104) * lu(k,133) - lu(k,136) = lu(k,136) - lu(k,105) * lu(k,133) - lu(k,137) = lu(k,137) - lu(k,106) * lu(k,133) - lu(k,138) = lu(k,138) - lu(k,107) * lu(k,133) - lu(k,141) = lu(k,141) - lu(k,103) * lu(k,140) - lu(k,144) = - lu(k,104) * lu(k,140) - lu(k,145) = lu(k,145) - lu(k,105) * lu(k,140) - lu(k,148) = lu(k,148) - lu(k,106) * lu(k,140) - lu(k,149) = lu(k,149) - lu(k,107) * lu(k,140) - lu(k,811) = - lu(k,103) * lu(k,810) - lu(k,829) = lu(k,829) - lu(k,104) * lu(k,810) - lu(k,833) = lu(k,833) - lu(k,105) * lu(k,810) - lu(k,850) = lu(k,850) - lu(k,106) * lu(k,810) - lu(k,852) = lu(k,852) - lu(k,107) * lu(k,810) - lu(k,1009) = lu(k,1009) - lu(k,103) * lu(k,1005) - lu(k,1019) = lu(k,1019) - lu(k,104) * lu(k,1005) - lu(k,1023) = lu(k,1023) - lu(k,105) * lu(k,1005) - lu(k,1040) = lu(k,1040) - lu(k,106) * lu(k,1005) - lu(k,1042) = lu(k,1042) - lu(k,107) * lu(k,1005) - lu(k,1782) = lu(k,1782) - lu(k,103) * lu(k,1778) - lu(k,1802) = lu(k,1802) - lu(k,104) * lu(k,1778) - lu(k,1806) = lu(k,1806) - lu(k,105) * lu(k,1778) - lu(k,1823) = lu(k,1823) - lu(k,106) * lu(k,1778) - lu(k,1825) = lu(k,1825) - lu(k,107) * lu(k,1778) - lu(k,108) = 1._r8 / lu(k,108) - lu(k,109) = lu(k,109) * lu(k,108) - lu(k,110) = lu(k,110) * lu(k,108) - lu(k,111) = lu(k,111) * lu(k,108) - lu(k,112) = lu(k,112) * lu(k,108) - lu(k,113) = lu(k,113) * lu(k,108) - lu(k,114) = lu(k,114) * lu(k,108) - lu(k,115) = lu(k,115) * lu(k,108) - lu(k,854) = lu(k,854) - lu(k,109) * lu(k,853) - lu(k,878) = lu(k,878) - lu(k,110) * lu(k,853) - lu(k,881) = lu(k,881) - lu(k,111) * lu(k,853) - lu(k,882) = lu(k,882) - lu(k,112) * lu(k,853) - lu(k,890) = lu(k,890) - lu(k,113) * lu(k,853) - lu(k,899) = lu(k,899) - lu(k,114) * lu(k,853) - lu(k,900) = lu(k,900) - lu(k,115) * lu(k,853) - lu(k,1007) = lu(k,1007) - lu(k,109) * lu(k,1006) - lu(k,1020) = lu(k,1020) - lu(k,110) * lu(k,1006) - lu(k,1023) = lu(k,1023) - lu(k,111) * lu(k,1006) - lu(k,1024) = lu(k,1024) - lu(k,112) * lu(k,1006) - lu(k,1032) = lu(k,1032) - lu(k,113) * lu(k,1006) - lu(k,1041) = lu(k,1041) - lu(k,114) * lu(k,1006) - lu(k,1042) = lu(k,1042) - lu(k,115) * lu(k,1006) - lu(k,1375) = lu(k,1375) - lu(k,109) * lu(k,1374) - lu(k,1391) = lu(k,1391) - lu(k,110) * lu(k,1374) - lu(k,1394) = - lu(k,111) * lu(k,1374) - lu(k,1395) = - lu(k,112) * lu(k,1374) - lu(k,1403) = lu(k,1403) - lu(k,113) * lu(k,1374) - lu(k,1412) = - lu(k,114) * lu(k,1374) - lu(k,1413) = - lu(k,115) * lu(k,1374) - lu(k,1780) = lu(k,1780) - lu(k,109) * lu(k,1779) - lu(k,1803) = lu(k,1803) - lu(k,110) * lu(k,1779) - lu(k,1806) = lu(k,1806) - lu(k,111) * lu(k,1779) - lu(k,1807) = lu(k,1807) - lu(k,112) * lu(k,1779) - lu(k,1815) = lu(k,1815) - lu(k,113) * lu(k,1779) - lu(k,1824) = lu(k,1824) - lu(k,114) * lu(k,1779) - lu(k,1825) = lu(k,1825) - lu(k,115) * lu(k,1779) - 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,122) = lu(k,122) * lu(k,116) - lu(k,878) = lu(k,878) - lu(k,117) * lu(k,854) - lu(k,881) = lu(k,881) - lu(k,118) * lu(k,854) - lu(k,882) = lu(k,882) - lu(k,119) * lu(k,854) - lu(k,890) = lu(k,890) - lu(k,120) * lu(k,854) - lu(k,899) = lu(k,899) - lu(k,121) * lu(k,854) - lu(k,900) = lu(k,900) - lu(k,122) * lu(k,854) - lu(k,1020) = lu(k,1020) - lu(k,117) * lu(k,1007) - lu(k,1023) = lu(k,1023) - lu(k,118) * lu(k,1007) - lu(k,1024) = lu(k,1024) - lu(k,119) * lu(k,1007) - lu(k,1032) = lu(k,1032) - lu(k,120) * lu(k,1007) - lu(k,1041) = lu(k,1041) - lu(k,121) * lu(k,1007) - lu(k,1042) = lu(k,1042) - lu(k,122) * lu(k,1007) - lu(k,1391) = lu(k,1391) - lu(k,117) * lu(k,1375) - lu(k,1394) = lu(k,1394) - lu(k,118) * lu(k,1375) - lu(k,1395) = lu(k,1395) - lu(k,119) * lu(k,1375) - lu(k,1403) = lu(k,1403) - lu(k,120) * lu(k,1375) - lu(k,1412) = lu(k,1412) - lu(k,121) * lu(k,1375) - lu(k,1413) = lu(k,1413) - lu(k,122) * lu(k,1375) - lu(k,1803) = lu(k,1803) - lu(k,117) * lu(k,1780) - lu(k,1806) = lu(k,1806) - lu(k,118) * lu(k,1780) - lu(k,1807) = lu(k,1807) - lu(k,119) * lu(k,1780) - lu(k,1815) = lu(k,1815) - lu(k,120) * lu(k,1780) - lu(k,1824) = lu(k,1824) - lu(k,121) * lu(k,1780) - lu(k,1825) = lu(k,1825) - lu(k,122) * lu(k,1780) - 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,127) = lu(k,127) * lu(k,123) - lu(k,713) = - lu(k,124) * lu(k,708) - lu(k,721) = lu(k,721) - lu(k,125) * lu(k,708) - lu(k,733) = lu(k,733) - lu(k,126) * lu(k,708) - lu(k,734) = lu(k,734) - lu(k,127) * lu(k,708) - lu(k,755) = lu(k,755) - lu(k,124) * lu(k,740) - lu(k,762) = lu(k,762) - lu(k,125) * lu(k,740) - lu(k,775) = lu(k,775) - lu(k,126) * lu(k,740) - lu(k,776) = lu(k,776) - lu(k,127) * lu(k,740) - lu(k,918) = lu(k,918) - lu(k,124) * lu(k,902) - lu(k,927) = lu(k,927) - lu(k,125) * lu(k,902) - lu(k,942) = lu(k,942) - lu(k,126) * lu(k,902) - lu(k,943) = lu(k,943) - lu(k,127) * lu(k,902) - lu(k,1018) = lu(k,1018) - lu(k,124) * lu(k,1008) - lu(k,1026) = - lu(k,125) * lu(k,1008) - lu(k,1041) = lu(k,1041) - lu(k,126) * lu(k,1008) - lu(k,1042) = lu(k,1042) - lu(k,127) * lu(k,1008) - lu(k,1099) = lu(k,1099) - lu(k,124) * lu(k,1086) - lu(k,1108) = lu(k,1108) - lu(k,125) * lu(k,1086) - lu(k,1123) = - lu(k,126) * lu(k,1086) - lu(k,1124) = lu(k,1124) - lu(k,127) * lu(k,1086) - lu(k,1471) = lu(k,1471) - lu(k,124) * lu(k,1454) - lu(k,1480) = - lu(k,125) * lu(k,1454) - lu(k,1495) = - lu(k,126) * lu(k,1454) - lu(k,1496) = lu(k,1496) - lu(k,127) * lu(k,1454) - lu(k,1747) = lu(k,1747) - lu(k,124) * lu(k,1731) - lu(k,1756) = lu(k,1756) - lu(k,125) * lu(k,1731) - lu(k,1771) = lu(k,1771) - lu(k,126) * lu(k,1731) - lu(k,1772) = lu(k,1772) - lu(k,127) * lu(k,1731) - lu(k,1800) = lu(k,1800) - lu(k,124) * lu(k,1781) - lu(k,1809) = - lu(k,125) * lu(k,1781) - lu(k,1824) = lu(k,1824) - lu(k,126) * lu(k,1781) - lu(k,1825) = lu(k,1825) - lu(k,127) * lu(k,1781) - end do + real(r8), intent(inout) :: lu(:) + lu(90) = 1._r8 / lu(90) + lu(91) = lu(91) * lu(90) + lu(92) = lu(92) * lu(90) + lu(93) = lu(93) * lu(90) + lu(94) = lu(94) * lu(90) + lu(95) = lu(95) * lu(90) + lu(96) = lu(96) * lu(90) + lu(97) = lu(97) * lu(90) + lu(409) = lu(409) - lu(91) * lu(408) + lu(410) = lu(410) - lu(92) * lu(408) + lu(411) = lu(411) - lu(93) * lu(408) + lu(418) = lu(418) - lu(94) * lu(408) + lu(423) = lu(423) - lu(95) * lu(408) + lu(425) = - lu(96) * lu(408) + lu(426) = - lu(97) * lu(408) + lu(1046) = - lu(91) * lu(1045) + lu(1050) = - lu(92) * lu(1045) + lu(1052) = lu(1052) - lu(93) * lu(1045) + lu(1071) = lu(1071) - lu(94) * lu(1045) + lu(1081) = lu(1081) - lu(95) * lu(1045) + lu(1085) = lu(1085) - lu(96) * lu(1045) + lu(1086) = lu(1086) - lu(97) * lu(1045) + lu(1470) = lu(1470) - lu(91) * lu(1465) + lu(1480) = lu(1480) - lu(92) * lu(1465) + lu(1482) = lu(1482) - lu(93) * lu(1465) + lu(1499) = lu(1499) - lu(94) * lu(1465) + lu(1509) = lu(1509) - lu(95) * lu(1465) + lu(1513) = - lu(96) * lu(1465) + lu(1514) = lu(1514) - lu(97) * lu(1465) + lu(98) = 1._r8 / lu(98) + lu(99) = lu(99) * lu(98) + lu(100) = lu(100) * lu(98) + lu(101) = lu(101) * lu(98) + lu(209) = - lu(99) * lu(203) + lu(210) = - lu(100) * lu(203) + lu(212) = - lu(101) * lu(203) + lu(324) = lu(324) - lu(99) * lu(318) + lu(325) = - lu(100) * lu(318) + lu(326) = - lu(101) * lu(318) + lu(531) = lu(531) - lu(99) * lu(524) + lu(532) = lu(532) - lu(100) * lu(524) + lu(534) = lu(534) - lu(101) * lu(524) + lu(710) = lu(710) - lu(99) * lu(695) + lu(711) = lu(711) - lu(100) * lu(695) + lu(714) = lu(714) - lu(101) * lu(695) + lu(1188) = lu(1188) - lu(99) * lu(1174) + lu(1189) = lu(1189) - lu(100) * lu(1174) + lu(1195) = lu(1195) - lu(101) * lu(1174) + lu(1489) = lu(1489) - lu(99) * lu(1466) + lu(1490) = lu(1490) - lu(100) * lu(1466) + lu(1496) = lu(1496) - lu(101) * lu(1466) + lu(1668) = lu(1668) - lu(99) * lu(1660) + lu(1669) = lu(1669) - lu(100) * lu(1660) + lu(1674) = - lu(101) * lu(1660) + lu(102) = 1._r8 / lu(102) + lu(103) = lu(103) * lu(102) + lu(104) = lu(104) * lu(102) + lu(105) = lu(105) * lu(102) + lu(106) = lu(106) * lu(102) + lu(107) = lu(107) * lu(102) + lu(108) = lu(108) * lu(102) + lu(109) = lu(109) * lu(102) + lu(110) = lu(110) * lu(102) + lu(1135) = lu(1135) - lu(103) * lu(1134) + lu(1138) = lu(1138) - lu(104) * lu(1134) + lu(1139) = lu(1139) - lu(105) * lu(1134) + lu(1150) = lu(1150) - lu(106) * lu(1134) + lu(1158) = lu(1158) - lu(107) * lu(1134) + lu(1161) = lu(1161) - lu(108) * lu(1134) + lu(1164) = lu(1164) - lu(109) * lu(1134) + lu(1166) = lu(1166) - lu(110) * lu(1134) + lu(1388) = lu(1388) - lu(103) * lu(1383) + lu(1390) = lu(1390) - lu(104) * lu(1383) + lu(1391) = lu(1391) - lu(105) * lu(1383) + lu(1396) = lu(1396) - lu(106) * lu(1383) + lu(1404) = lu(1404) - lu(107) * lu(1383) + lu(1407) = lu(1407) - lu(108) * lu(1383) + lu(1410) = lu(1410) - lu(109) * lu(1383) + lu(1412) = lu(1412) - lu(110) * lu(1383) + lu(1469) = lu(1469) - lu(103) * lu(1467) + lu(1475) = lu(1475) - lu(104) * lu(1467) + lu(1478) = lu(1478) - lu(105) * lu(1467) + lu(1493) = lu(1493) - lu(106) * lu(1467) + lu(1501) = lu(1501) - lu(107) * lu(1467) + lu(1504) = lu(1504) - lu(108) * lu(1467) + lu(1507) = lu(1507) - lu(109) * lu(1467) + lu(1509) = lu(1509) - lu(110) * lu(1467) + lu(111) = 1._r8 / lu(111) + lu(112) = lu(112) * lu(111) + lu(113) = lu(113) * lu(111) + lu(114) = lu(114) * lu(111) + lu(115) = lu(115) * lu(111) + lu(116) = lu(116) * lu(111) + lu(117) = lu(117) * lu(111) + lu(670) = lu(670) - lu(112) * lu(659) + lu(671) = lu(671) - lu(113) * lu(659) + lu(672) = lu(672) - lu(114) * lu(659) + lu(679) = lu(679) - lu(115) * lu(659) + lu(684) = lu(684) - lu(116) * lu(659) + lu(690) = lu(690) - lu(117) * lu(659) + lu(710) = lu(710) - lu(112) * lu(696) + lu(711) = lu(711) - lu(113) * lu(696) + lu(713) = lu(713) - lu(114) * lu(696) + lu(720) = lu(720) - lu(115) * lu(696) + lu(725) = lu(725) - lu(116) * lu(696) + lu(731) = lu(731) - lu(117) * lu(696) + lu(1188) = lu(1188) - lu(112) * lu(1175) + lu(1189) = lu(1189) - lu(113) * lu(1175) + lu(1194) = lu(1194) - lu(114) * lu(1175) + lu(1201) = lu(1201) - lu(115) * lu(1175) + lu(1208) = lu(1208) - lu(116) * lu(1175) + lu(1214) = - lu(117) * lu(1175) + lu(1489) = lu(1489) - lu(112) * lu(1468) + lu(1490) = lu(1490) - lu(113) * lu(1468) + lu(1495) = lu(1495) - lu(114) * lu(1468) + lu(1502) = lu(1502) - lu(115) * lu(1468) + lu(1509) = lu(1509) - lu(116) * lu(1468) + lu(1515) = - lu(117) * lu(1468) + lu(118) = 1._r8 / lu(118) + lu(119) = lu(119) * lu(118) + lu(120) = lu(120) * lu(118) + lu(121) = lu(121) * lu(118) + lu(122) = lu(122) * lu(118) + lu(123) = lu(123) * lu(118) + lu(130) = lu(130) - lu(119) * lu(129) + lu(131) = lu(131) - lu(120) * lu(129) + lu(132) = - lu(121) * lu(129) + lu(133) = lu(133) - lu(122) * lu(129) + lu(134) = lu(134) - lu(123) * lu(129) + lu(137) = lu(137) - lu(119) * lu(136) + lu(140) = lu(140) - lu(120) * lu(136) + lu(141) = - lu(121) * lu(136) + lu(144) = lu(144) - lu(122) * lu(136) + lu(145) = lu(145) - lu(123) * lu(136) + lu(1003) = - lu(119) * lu(1002) + lu(1024) = lu(1024) - lu(120) * lu(1002) + lu(1026) = lu(1026) - lu(121) * lu(1002) + lu(1035) = lu(1035) - lu(122) * lu(1002) + lu(1043) = lu(1043) - lu(123) * lu(1002) + lu(1386) = lu(1386) - lu(119) * lu(1384) + lu(1399) = lu(1399) - lu(120) * lu(1384) + lu(1401) = lu(1401) - lu(121) * lu(1384) + lu(1410) = lu(1410) - lu(122) * lu(1384) + lu(1418) = lu(1418) - lu(123) * lu(1384) + lu(1703) = lu(1703) - lu(119) * lu(1701) + lu(1726) = lu(1726) - lu(120) * lu(1701) + lu(1728) = lu(1728) - lu(121) * lu(1701) + lu(1737) = lu(1737) - lu(122) * lu(1701) + lu(1745) = lu(1745) - lu(123) * lu(1701) + lu(124) = 1._r8 / lu(124) + lu(125) = lu(125) * lu(124) + lu(126) = lu(126) * lu(124) + lu(127) = lu(127) * lu(124) + lu(128) = lu(128) * lu(124) + lu(711) = lu(711) - lu(125) * lu(697) + lu(717) = lu(717) - lu(126) * lu(697) + lu(723) = lu(723) - lu(127) * lu(697) + lu(731) = lu(731) - lu(128) * lu(697) + lu(768) = - lu(125) * lu(764) + lu(776) = lu(776) - lu(126) * lu(764) + lu(782) = lu(782) - lu(127) * lu(764) + lu(792) = lu(792) - lu(128) * lu(764) + lu(856) = lu(856) - lu(125) * lu(841) + lu(865) = lu(865) - lu(126) * lu(841) + lu(871) = lu(871) - lu(127) * lu(841) + lu(881) = lu(881) - lu(128) * lu(841) + lu(900) = lu(900) - lu(125) * lu(884) + lu(909) = - lu(126) * lu(884) + lu(915) = - lu(127) * lu(884) + lu(925) = lu(925) - lu(128) * lu(884) + lu(1309) = lu(1309) - lu(125) * lu(1294) + lu(1318) = lu(1318) - lu(126) * lu(1294) + lu(1324) = lu(1324) - lu(127) * lu(1294) + lu(1334) = lu(1334) - lu(128) * lu(1294) + lu(1395) = lu(1395) - lu(125) * lu(1385) + lu(1402) = - lu(126) * lu(1385) + lu(1408) = lu(1408) - lu(127) * lu(1385) + lu(1418) = lu(1418) - lu(128) * lu(1385) + lu(1634) = lu(1634) - lu(125) * lu(1622) + lu(1643) = lu(1643) - lu(126) * lu(1622) + lu(1649) = - lu(127) * lu(1622) + lu(1659) = lu(1659) - lu(128) * lu(1622) + lu(1720) = lu(1720) - lu(125) * lu(1702) + lu(1729) = - lu(126) * lu(1702) + lu(1735) = lu(1735) - lu(127) * lu(1702) + lu(1745) = lu(1745) - lu(128) * lu(1702) end subroutine lu_fac03 - subroutine lu_fac04( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac04( lu ) 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,128) = 1._r8 / lu(k,128) - lu(k,129) = lu(k,129) * lu(k,128) - lu(k,130) = lu(k,130) * lu(k,128) - lu(k,131) = lu(k,131) * lu(k,128) - lu(k,132) = lu(k,132) * lu(k,128) - lu(k,247) = - lu(k,129) * lu(k,241) - lu(k,248) = - lu(k,130) * lu(k,241) - lu(k,253) = lu(k,253) - lu(k,131) * lu(k,241) - lu(k,254) = - lu(k,132) * lu(k,241) - lu(k,332) = lu(k,332) - lu(k,129) * lu(k,326) - lu(k,333) = - lu(k,130) * lu(k,326) - lu(k,336) = - lu(k,131) * lu(k,326) - lu(k,338) = - lu(k,132) * lu(k,326) - lu(k,543) = lu(k,543) - lu(k,129) * lu(k,536) - lu(k,544) = lu(k,544) - lu(k,130) * lu(k,536) - lu(k,551) = - lu(k,131) * lu(k,536) - lu(k,558) = lu(k,558) - lu(k,132) * lu(k,536) - lu(k,754) = lu(k,754) - lu(k,129) * lu(k,741) - lu(k,755) = lu(k,755) - lu(k,130) * lu(k,741) - lu(k,767) = lu(k,767) - lu(k,131) * lu(k,741) - lu(k,774) = lu(k,774) - lu(k,132) * lu(k,741) - lu(k,972) = lu(k,972) - lu(k,129) * lu(k,951) - lu(k,974) = lu(k,974) - lu(k,130) * lu(k,951) - lu(k,989) = lu(k,989) - lu(k,131) * lu(k,951) - lu(k,997) = lu(k,997) - lu(k,132) * lu(k,951) - lu(k,1221) = lu(k,1221) - lu(k,129) * lu(k,1213) - lu(k,1223) = lu(k,1223) - lu(k,130) * lu(k,1213) - lu(k,1237) = - lu(k,131) * lu(k,1213) - lu(k,1245) = - lu(k,132) * lu(k,1213) - lu(k,1386) = - lu(k,129) * lu(k,1376) - lu(k,1388) = - lu(k,130) * lu(k,1376) - lu(k,1403) = lu(k,1403) - lu(k,131) * lu(k,1376) - lu(k,1411) = - lu(k,132) * lu(k,1376) - lu(k,1667) = lu(k,1667) - lu(k,129) * lu(k,1654) - lu(k,1669) = lu(k,1669) - lu(k,130) * lu(k,1654) - lu(k,1684) = lu(k,1684) - lu(k,131) * lu(k,1654) - lu(k,1692) = lu(k,1692) - lu(k,132) * lu(k,1654) - 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,144) = lu(k,144) - lu(k,135) * lu(k,141) - lu(k,145) = lu(k,145) - lu(k,136) * lu(k,141) - lu(k,148) = lu(k,148) - lu(k,137) * lu(k,141) - lu(k,149) = lu(k,149) - lu(k,138) * lu(k,141) - lu(k,688) = - lu(k,135) * lu(k,676) - lu(k,690) = - lu(k,136) * lu(k,676) - lu(k,705) = lu(k,705) - lu(k,137) * lu(k,676) - lu(k,707) = lu(k,707) - lu(k,138) * lu(k,676) - lu(k,756) = - lu(k,135) * lu(k,742) - lu(k,759) = - lu(k,136) * lu(k,742) - lu(k,774) = lu(k,774) - lu(k,137) * lu(k,742) - lu(k,776) = lu(k,776) - lu(k,138) * lu(k,742) - lu(k,829) = lu(k,829) - lu(k,135) * lu(k,811) - lu(k,833) = lu(k,833) - lu(k,136) * lu(k,811) - lu(k,850) = lu(k,850) - lu(k,137) * lu(k,811) - lu(k,852) = lu(k,852) - lu(k,138) * lu(k,811) - lu(k,1019) = lu(k,1019) - lu(k,135) * lu(k,1009) - lu(k,1023) = lu(k,1023) - lu(k,136) * lu(k,1009) - lu(k,1040) = lu(k,1040) - lu(k,137) * lu(k,1009) - lu(k,1042) = lu(k,1042) - lu(k,138) * lu(k,1009) - lu(k,1061) = - lu(k,135) * lu(k,1043) - lu(k,1065) = lu(k,1065) - lu(k,136) * lu(k,1043) - lu(k,1082) = lu(k,1082) - lu(k,137) * lu(k,1043) - lu(k,1084) = lu(k,1084) - lu(k,138) * lu(k,1043) - lu(k,1707) = - lu(k,135) * lu(k,1695) - lu(k,1711) = lu(k,1711) - lu(k,136) * lu(k,1695) - lu(k,1728) = lu(k,1728) - lu(k,137) * lu(k,1695) - lu(k,1730) = lu(k,1730) - lu(k,138) * lu(k,1695) - lu(k,1802) = lu(k,1802) - lu(k,135) * lu(k,1782) - lu(k,1806) = lu(k,1806) - lu(k,136) * lu(k,1782) - lu(k,1823) = lu(k,1823) - lu(k,137) * lu(k,1782) - lu(k,1825) = lu(k,1825) - lu(k,138) * lu(k,1782) - lu(k,142) = 1._r8 / lu(k,142) - lu(k,143) = lu(k,143) * lu(k,142) - lu(k,144) = lu(k,144) * lu(k,142) - lu(k,145) = lu(k,145) * lu(k,142) - lu(k,146) = lu(k,146) * lu(k,142) - lu(k,147) = lu(k,147) * lu(k,142) - lu(k,148) = lu(k,148) * lu(k,142) - lu(k,149) = lu(k,149) * lu(k,142) - lu(k,286) = - lu(k,143) * lu(k,283) - lu(k,287) = - lu(k,144) * lu(k,283) - lu(k,289) = lu(k,289) - lu(k,145) * lu(k,283) - lu(k,290) = lu(k,290) - lu(k,146) * lu(k,283) - lu(k,292) = lu(k,292) - lu(k,147) * lu(k,283) - lu(k,295) = - lu(k,148) * lu(k,283) - lu(k,296) = lu(k,296) - lu(k,149) * lu(k,283) - lu(k,1018) = lu(k,1018) - lu(k,143) * lu(k,1010) - lu(k,1019) = lu(k,1019) - lu(k,144) * lu(k,1010) - lu(k,1023) = lu(k,1023) - lu(k,145) * lu(k,1010) - lu(k,1029) = lu(k,1029) - lu(k,146) * lu(k,1010) - lu(k,1031) = lu(k,1031) - lu(k,147) * lu(k,1010) - lu(k,1040) = lu(k,1040) - lu(k,148) * lu(k,1010) - lu(k,1042) = lu(k,1042) - lu(k,149) * lu(k,1010) - lu(k,1346) = lu(k,1346) - lu(k,143) * lu(k,1327) - lu(k,1348) = - lu(k,144) * lu(k,1327) - lu(k,1352) = lu(k,1352) - lu(k,145) * lu(k,1327) - lu(k,1358) = lu(k,1358) - lu(k,146) * lu(k,1327) - lu(k,1360) = lu(k,1360) - lu(k,147) * lu(k,1327) - lu(k,1369) = - lu(k,148) * lu(k,1327) - lu(k,1371) = lu(k,1371) - lu(k,149) * lu(k,1327) - lu(k,1800) = lu(k,1800) - lu(k,143) * lu(k,1783) - lu(k,1802) = lu(k,1802) - lu(k,144) * lu(k,1783) - lu(k,1806) = lu(k,1806) - lu(k,145) * lu(k,1783) - lu(k,1812) = lu(k,1812) - lu(k,146) * lu(k,1783) - lu(k,1814) = lu(k,1814) - lu(k,147) * lu(k,1783) - lu(k,1823) = lu(k,1823) - lu(k,148) * lu(k,1783) - lu(k,1825) = lu(k,1825) - lu(k,149) * lu(k,1783) - lu(k,151) = 1._r8 / lu(k,151) - lu(k,152) = lu(k,152) * lu(k,151) - lu(k,153) = lu(k,153) * lu(k,151) - lu(k,154) = lu(k,154) * lu(k,151) - lu(k,155) = lu(k,155) * lu(k,151) - lu(k,156) = lu(k,156) * lu(k,151) - lu(k,157) = lu(k,157) * lu(k,151) - lu(k,158) = lu(k,158) * lu(k,151) - lu(k,456) = lu(k,456) - lu(k,152) * lu(k,455) - lu(k,457) = lu(k,457) - lu(k,153) * lu(k,455) - lu(k,461) = lu(k,461) - lu(k,154) * lu(k,455) - lu(k,462) = lu(k,462) - lu(k,155) * lu(k,455) - lu(k,469) = - lu(k,156) * lu(k,455) - lu(k,471) = lu(k,471) - lu(k,157) * lu(k,455) - lu(k,474) = - lu(k,158) * lu(k,455) - lu(k,681) = lu(k,681) - lu(k,152) * lu(k,677) - lu(k,683) = lu(k,683) - lu(k,153) * lu(k,677) - lu(k,687) = lu(k,687) - lu(k,154) * lu(k,677) - lu(k,689) = lu(k,689) - lu(k,155) * lu(k,677) - lu(k,700) = lu(k,700) - lu(k,156) * lu(k,677) - lu(k,704) = lu(k,704) - lu(k,157) * lu(k,677) - lu(k,707) = lu(k,707) - lu(k,158) * lu(k,677) - lu(k,963) = lu(k,963) - lu(k,152) * lu(k,952) - lu(k,966) = lu(k,966) - lu(k,153) * lu(k,952) - lu(k,974) = lu(k,974) - lu(k,154) * lu(k,952) - lu(k,979) = lu(k,979) - lu(k,155) * lu(k,952) - lu(k,991) = lu(k,991) - lu(k,156) * lu(k,952) - lu(k,996) = lu(k,996) - lu(k,157) * lu(k,952) - lu(k,999) = lu(k,999) - lu(k,158) * lu(k,952) - lu(k,1131) = lu(k,1131) - lu(k,152) * lu(k,1127) - lu(k,1134) = lu(k,1134) - lu(k,153) * lu(k,1127) - lu(k,1144) = lu(k,1144) - lu(k,154) * lu(k,1127) - lu(k,1149) = lu(k,1149) - lu(k,155) * lu(k,1127) - lu(k,1161) = - lu(k,156) * lu(k,1127) - lu(k,1166) = lu(k,1166) - lu(k,157) * lu(k,1127) - lu(k,1169) = lu(k,1169) - lu(k,158) * lu(k,1127) - lu(k,1458) = lu(k,1458) - lu(k,152) * lu(k,1455) - lu(k,1463) = - lu(k,153) * lu(k,1455) - lu(k,1471) = lu(k,1471) - lu(k,154) * lu(k,1455) - lu(k,1476) = lu(k,1476) - lu(k,155) * lu(k,1455) - lu(k,1488) = lu(k,1488) - lu(k,156) * lu(k,1455) - lu(k,1493) = lu(k,1493) - lu(k,157) * lu(k,1455) - lu(k,1496) = lu(k,1496) - lu(k,158) * lu(k,1455) - end do + real(r8), intent(inout) :: lu(:) + lu(130) = 1._r8 / lu(130) + lu(131) = lu(131) * lu(130) + lu(132) = lu(132) * lu(130) + lu(133) = lu(133) * lu(130) + lu(134) = lu(134) * lu(130) + lu(140) = lu(140) - lu(131) * lu(137) + lu(141) = lu(141) - lu(132) * lu(137) + lu(144) = lu(144) - lu(133) * lu(137) + lu(145) = lu(145) - lu(134) * lu(137) + lu(673) = lu(673) - lu(131) * lu(660) + lu(675) = - lu(132) * lu(660) + lu(683) = - lu(133) * lu(660) + lu(690) = lu(690) - lu(134) * lu(660) + lu(714) = lu(714) - lu(131) * lu(698) + lu(716) = - lu(132) * lu(698) + lu(724) = - lu(133) * lu(698) + lu(731) = lu(731) - lu(134) * lu(698) + lu(941) = lu(941) - lu(131) * lu(926) + lu(943) = - lu(132) * lu(926) + lu(952) = lu(952) - lu(133) * lu(926) + lu(960) = lu(960) - lu(134) * lu(926) + lu(982) = lu(982) - lu(131) * lu(961) + lu(984) = - lu(132) * lu(961) + lu(993) = lu(993) - lu(133) * lu(961) + lu(1001) = lu(1001) - lu(134) * lu(961) + lu(1024) = lu(1024) - lu(131) * lu(1003) + lu(1026) = lu(1026) - lu(132) * lu(1003) + lu(1035) = lu(1035) - lu(133) * lu(1003) + lu(1043) = lu(1043) - lu(134) * lu(1003) + lu(1399) = lu(1399) - lu(131) * lu(1386) + lu(1401) = lu(1401) - lu(132) * lu(1386) + lu(1410) = lu(1410) - lu(133) * lu(1386) + lu(1418) = lu(1418) - lu(134) * lu(1386) + lu(1726) = lu(1726) - lu(131) * lu(1703) + lu(1728) = lu(1728) - lu(132) * lu(1703) + lu(1737) = lu(1737) - lu(133) * lu(1703) + lu(1745) = lu(1745) - lu(134) * lu(1703) + lu(138) = 1._r8 / lu(138) + lu(139) = lu(139) * lu(138) + lu(140) = lu(140) * lu(138) + lu(141) = lu(141) * lu(138) + lu(142) = lu(142) * lu(138) + lu(143) = lu(143) * lu(138) + lu(144) = lu(144) * lu(138) + lu(145) = lu(145) * lu(138) + lu(293) = - lu(139) * lu(290) + lu(294) = - lu(140) * lu(290) + lu(295) = - lu(141) * lu(290) + lu(296) = lu(296) - lu(142) * lu(290) + lu(298) = lu(298) - lu(143) * lu(290) + lu(299) = lu(299) - lu(144) * lu(290) + lu(303) = lu(303) - lu(145) * lu(290) + lu(1268) = lu(1268) - lu(139) * lu(1250) + lu(1274) = - lu(140) * lu(1250) + lu(1276) = - lu(141) * lu(1250) + lu(1279) = lu(1279) - lu(142) * lu(1250) + lu(1282) = lu(1282) - lu(143) * lu(1250) + lu(1285) = lu(1285) - lu(144) * lu(1250) + lu(1293) = lu(1293) - lu(145) * lu(1250) + lu(1395) = lu(1395) - lu(139) * lu(1387) + lu(1399) = lu(1399) - lu(140) * lu(1387) + lu(1401) = lu(1401) - lu(141) * lu(1387) + lu(1404) = lu(1404) - lu(142) * lu(1387) + lu(1407) = lu(1407) - lu(143) * lu(1387) + lu(1410) = lu(1410) - lu(144) * lu(1387) + lu(1418) = lu(1418) - lu(145) * lu(1387) + lu(1720) = lu(1720) - lu(139) * lu(1704) + lu(1726) = lu(1726) - lu(140) * lu(1704) + lu(1728) = lu(1728) - lu(141) * lu(1704) + lu(1731) = lu(1731) - lu(142) * lu(1704) + lu(1734) = lu(1734) - lu(143) * lu(1704) + lu(1737) = lu(1737) - lu(144) * lu(1704) + lu(1745) = lu(1745) - lu(145) * lu(1704) + lu(146) = 1._r8 / lu(146) + lu(147) = lu(147) * lu(146) + lu(148) = lu(148) * lu(146) + lu(149) = lu(149) * lu(146) + lu(150) = lu(150) * lu(146) + lu(151) = lu(151) * lu(146) + lu(152) = lu(152) * lu(146) + lu(153) = lu(153) * lu(146) + lu(205) = lu(205) - lu(147) * lu(204) + lu(206) = lu(206) - lu(148) * lu(204) + lu(207) = lu(207) - lu(149) * lu(204) + lu(208) = - lu(150) * lu(204) + lu(213) = lu(213) - lu(151) * lu(204) + lu(215) = - lu(152) * lu(204) + lu(216) = lu(216) - lu(153) * lu(204) + lu(796) = - lu(147) * lu(795) + lu(797) = - lu(148) * lu(795) + lu(798) = lu(798) - lu(149) * lu(795) + lu(809) = - lu(150) * lu(795) + lu(825) = lu(825) - lu(151) * lu(795) + lu(829) = lu(829) - lu(152) * lu(795) + lu(833) = lu(833) - lu(153) * lu(795) + lu(1136) = lu(1136) - lu(147) * lu(1135) + lu(1138) = lu(1138) - lu(148) * lu(1135) + lu(1139) = lu(1139) - lu(149) * lu(1135) + lu(1142) = lu(1142) - lu(150) * lu(1135) + lu(1158) = lu(1158) - lu(151) * lu(1135) + lu(1162) = lu(1162) - lu(152) * lu(1135) + lu(1166) = lu(1166) - lu(153) * lu(1135) + lu(1389) = lu(1389) - lu(147) * lu(1388) + lu(1390) = lu(1390) - lu(148) * lu(1388) + lu(1391) = lu(1391) - lu(149) * lu(1388) + lu(1393) = lu(1393) - lu(150) * lu(1388) + lu(1404) = lu(1404) - lu(151) * lu(1388) + lu(1408) = lu(1408) - lu(152) * lu(1388) + lu(1412) = lu(1412) - lu(153) * lu(1388) + lu(1471) = lu(1471) - lu(147) * lu(1469) + lu(1475) = lu(1475) - lu(148) * lu(1469) + lu(1478) = lu(1478) - lu(149) * lu(1469) + lu(1485) = - lu(150) * lu(1469) + lu(1501) = lu(1501) - lu(151) * lu(1469) + lu(1505) = lu(1505) - lu(152) * lu(1469) + lu(1509) = lu(1509) - lu(153) * lu(1469) + lu(155) = 1._r8 / lu(155) + lu(156) = lu(156) * lu(155) + lu(157) = lu(157) * lu(155) + lu(158) = lu(158) * lu(155) + lu(159) = lu(159) * lu(155) + lu(160) = lu(160) * lu(155) + lu(161) = lu(161) * lu(155) + lu(162) = lu(162) * lu(155) + lu(430) = - lu(156) * lu(429) + lu(431) = lu(431) - lu(157) * lu(429) + lu(435) = lu(435) - lu(158) * lu(429) + lu(437) = lu(437) - lu(159) * lu(429) + lu(447) = - lu(160) * lu(429) + lu(448) = - lu(161) * lu(429) + lu(449) = lu(449) - lu(162) * lu(429) + lu(554) = lu(554) - lu(156) * lu(551) + lu(558) = lu(558) - lu(157) * lu(551) + lu(562) = lu(562) - lu(158) * lu(551) + lu(564) = lu(564) - lu(159) * lu(551) + lu(578) = - lu(160) * lu(551) + lu(579) = - lu(161) * lu(551) + lu(580) = lu(580) - lu(162) * lu(551) + lu(704) = lu(704) - lu(156) * lu(699) + lu(707) = lu(707) - lu(157) * lu(699) + lu(711) = lu(711) - lu(158) * lu(699) + lu(714) = lu(714) - lu(159) * lu(699) + lu(729) = lu(729) - lu(160) * lu(699) + lu(730) = lu(730) - lu(161) * lu(699) + lu(731) = lu(731) - lu(162) * lu(699) + lu(1624) = - lu(156) * lu(1623) + lu(1626) = - lu(157) * lu(1623) + lu(1634) = lu(1634) - lu(158) * lu(1623) + lu(1640) = lu(1640) - lu(159) * lu(1623) + lu(1657) = lu(1657) - lu(160) * lu(1623) + lu(1658) = lu(1658) - lu(161) * lu(1623) + lu(1659) = lu(1659) - lu(162) * lu(1623) + lu(1706) = - lu(156) * lu(1705) + lu(1711) = lu(1711) - lu(157) * lu(1705) + lu(1720) = lu(1720) - lu(158) * lu(1705) + lu(1726) = lu(1726) - lu(159) * lu(1705) + lu(1743) = lu(1743) - lu(160) * lu(1705) + lu(1744) = - lu(161) * lu(1705) + lu(1745) = lu(1745) - lu(162) * lu(1705) end subroutine lu_fac04 - subroutine lu_fac05( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac05( lu ) 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,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,163) = lu(k,163) * lu(k,159) - lu(k,164) = lu(k,164) * lu(k,159) - lu(k,165) = lu(k,165) * lu(k,159) - lu(k,166) = lu(k,166) * lu(k,159) - lu(k,243) = lu(k,243) - lu(k,160) * lu(k,242) - lu(k,244) = lu(k,244) - lu(k,161) * lu(k,242) - lu(k,245) = lu(k,245) - lu(k,162) * lu(k,242) - lu(k,246) = - lu(k,163) * lu(k,242) - lu(k,250) = lu(k,250) - lu(k,164) * lu(k,242) - lu(k,251) = lu(k,251) - lu(k,165) * lu(k,242) - lu(k,255) = - lu(k,166) * lu(k,242) - lu(k,856) = - lu(k,160) * lu(k,855) - lu(k,857) = - lu(k,161) * lu(k,855) - lu(k,858) = lu(k,858) - lu(k,162) * lu(k,855) - lu(k,869) = - lu(k,163) * lu(k,855) - lu(k,880) = lu(k,880) - lu(k,164) * lu(k,855) - lu(k,887) = lu(k,887) - lu(k,165) * lu(k,855) - lu(k,899) = lu(k,899) - lu(k,166) * lu(k,855) - lu(k,954) = lu(k,954) - lu(k,160) * lu(k,953) - lu(k,960) = lu(k,960) - lu(k,161) * lu(k,953) - lu(k,961) = lu(k,961) - lu(k,162) * lu(k,953) - lu(k,968) = - lu(k,163) * lu(k,953) - lu(k,979) = lu(k,979) - lu(k,164) * lu(k,953) - lu(k,986) = lu(k,986) - lu(k,165) * lu(k,953) - lu(k,998) = lu(k,998) - lu(k,166) * lu(k,953) - lu(k,1012) = lu(k,1012) - lu(k,160) * lu(k,1011) - lu(k,1013) = lu(k,1013) - lu(k,161) * lu(k,1011) - lu(k,1014) = lu(k,1014) - lu(k,162) * lu(k,1011) - lu(k,1016) = lu(k,1016) - lu(k,163) * lu(k,1011) - lu(k,1022) = lu(k,1022) - lu(k,164) * lu(k,1011) - lu(k,1029) = lu(k,1029) - lu(k,165) * lu(k,1011) - lu(k,1041) = lu(k,1041) - lu(k,166) * lu(k,1011) - lu(k,1254) = lu(k,1254) - lu(k,160) * lu(k,1253) - lu(k,1256) = lu(k,1256) - lu(k,161) * lu(k,1253) - lu(k,1257) = lu(k,1257) - lu(k,162) * lu(k,1253) - lu(k,1260) = lu(k,1260) - lu(k,163) * lu(k,1253) - lu(k,1270) = lu(k,1270) - lu(k,164) * lu(k,1253) - lu(k,1277) = lu(k,1277) - lu(k,165) * lu(k,1253) - lu(k,1289) = lu(k,1289) - lu(k,166) * lu(k,1253) - lu(k,168) = 1._r8 / lu(k,168) - lu(k,169) = lu(k,169) * lu(k,168) - lu(k,170) = lu(k,170) * lu(k,168) - lu(k,171) = lu(k,171) * lu(k,168) - lu(k,172) = lu(k,172) * lu(k,168) - lu(k,173) = lu(k,173) * lu(k,168) - lu(k,174) = lu(k,174) * lu(k,168) - lu(k,175) = lu(k,175) * lu(k,168) - lu(k,418) = - lu(k,169) * lu(k,417) - lu(k,419) = lu(k,419) - lu(k,170) * lu(k,417) - lu(k,423) = lu(k,423) - lu(k,171) * lu(k,417) - lu(k,426) = - lu(k,172) * lu(k,417) - lu(k,428) = - lu(k,173) * lu(k,417) - lu(k,435) = lu(k,435) - lu(k,174) * lu(k,417) - lu(k,437) = lu(k,437) - lu(k,175) * lu(k,417) - lu(k,567) = lu(k,567) - lu(k,169) * lu(k,564) - lu(k,570) = lu(k,570) - lu(k,170) * lu(k,564) - lu(k,575) = lu(k,575) - lu(k,171) * lu(k,564) - lu(k,579) = - lu(k,172) * lu(k,564) - lu(k,581) = - lu(k,173) * lu(k,564) - lu(k,592) = lu(k,592) - lu(k,174) * lu(k,564) - lu(k,594) = lu(k,594) - lu(k,175) * lu(k,564) - lu(k,747) = lu(k,747) - lu(k,169) * lu(k,743) - lu(k,750) = lu(k,750) - lu(k,170) * lu(k,743) - lu(k,755) = lu(k,755) - lu(k,171) * lu(k,743) - lu(k,761) = lu(k,761) - lu(k,172) * lu(k,743) - lu(k,763) = lu(k,763) - lu(k,173) * lu(k,743) - lu(k,774) = lu(k,774) - lu(k,174) * lu(k,743) - lu(k,776) = lu(k,776) - lu(k,175) * lu(k,743) - lu(k,1088) = - lu(k,169) * lu(k,1087) - lu(k,1090) = - lu(k,170) * lu(k,1087) - lu(k,1099) = lu(k,1099) - lu(k,171) * lu(k,1087) - lu(k,1107) = lu(k,1107) - lu(k,172) * lu(k,1087) - lu(k,1110) = lu(k,1110) - lu(k,173) * lu(k,1087) - lu(k,1122) = lu(k,1122) - lu(k,174) * lu(k,1087) - lu(k,1124) = lu(k,1124) - lu(k,175) * lu(k,1087) - lu(k,1785) = - lu(k,169) * lu(k,1784) - lu(k,1790) = lu(k,1790) - lu(k,170) * lu(k,1784) - lu(k,1800) = lu(k,1800) - lu(k,171) * lu(k,1784) - lu(k,1808) = lu(k,1808) - lu(k,172) * lu(k,1784) - lu(k,1811) = - lu(k,173) * lu(k,1784) - lu(k,1823) = lu(k,1823) - lu(k,174) * lu(k,1784) - lu(k,1825) = lu(k,1825) - lu(k,175) * lu(k,1784) - 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,179) = lu(k,179) * lu(k,176) - lu(k,180) = lu(k,180) * lu(k,176) - lu(k,181) = lu(k,181) * lu(k,176) - lu(k,182) = lu(k,182) * lu(k,176) - lu(k,244) = lu(k,244) - lu(k,177) * lu(k,243) - lu(k,245) = lu(k,245) - lu(k,178) * lu(k,243) - lu(k,249) = lu(k,249) - lu(k,179) * lu(k,243) - lu(k,250) = lu(k,250) - lu(k,180) * lu(k,243) - lu(k,251) = lu(k,251) - lu(k,181) * lu(k,243) - lu(k,252) = lu(k,252) - lu(k,182) * lu(k,243) - lu(k,269) = - lu(k,177) * lu(k,268) - lu(k,270) = lu(k,270) - lu(k,178) * lu(k,268) - lu(k,274) = lu(k,274) - lu(k,179) * lu(k,268) - lu(k,275) = lu(k,275) - lu(k,180) * lu(k,268) - lu(k,278) = lu(k,278) - lu(k,181) * lu(k,268) - lu(k,279) = lu(k,279) - lu(k,182) * lu(k,268) - lu(k,857) = lu(k,857) - lu(k,177) * lu(k,856) - lu(k,858) = lu(k,858) - lu(k,178) * lu(k,856) - lu(k,878) = lu(k,878) - lu(k,179) * lu(k,856) - lu(k,880) = lu(k,880) - lu(k,180) * lu(k,856) - lu(k,887) = lu(k,887) - lu(k,181) * lu(k,856) - lu(k,889) = - lu(k,182) * lu(k,856) - lu(k,960) = lu(k,960) - lu(k,177) * lu(k,954) - lu(k,961) = lu(k,961) - lu(k,178) * lu(k,954) - lu(k,977) = lu(k,977) - lu(k,179) * lu(k,954) - lu(k,979) = lu(k,979) - lu(k,180) * lu(k,954) - lu(k,986) = lu(k,986) - lu(k,181) * lu(k,954) - lu(k,988) = lu(k,988) - lu(k,182) * lu(k,954) - lu(k,1013) = lu(k,1013) - lu(k,177) * lu(k,1012) - lu(k,1014) = lu(k,1014) - lu(k,178) * lu(k,1012) - lu(k,1020) = lu(k,1020) - lu(k,179) * lu(k,1012) - lu(k,1022) = lu(k,1022) - lu(k,180) * lu(k,1012) - lu(k,1029) = lu(k,1029) - lu(k,181) * lu(k,1012) - lu(k,1031) = lu(k,1031) - lu(k,182) * lu(k,1012) - lu(k,1256) = lu(k,1256) - lu(k,177) * lu(k,1254) - lu(k,1257) = lu(k,1257) - lu(k,178) * lu(k,1254) - lu(k,1268) = lu(k,1268) - lu(k,179) * lu(k,1254) - lu(k,1270) = lu(k,1270) - lu(k,180) * lu(k,1254) - lu(k,1277) = lu(k,1277) - lu(k,181) * lu(k,1254) - lu(k,1279) = lu(k,1279) - lu(k,182) * lu(k,1254) - lu(k,184) = 1._r8 / lu(k,184) - lu(k,185) = lu(k,185) * lu(k,184) - lu(k,186) = lu(k,186) * lu(k,184) - lu(k,187) = lu(k,187) * lu(k,184) - lu(k,188) = lu(k,188) * lu(k,184) - lu(k,189) = lu(k,189) * lu(k,184) - lu(k,190) = lu(k,190) * lu(k,184) - lu(k,202) = lu(k,202) - lu(k,185) * lu(k,200) - lu(k,203) = lu(k,203) - lu(k,186) * lu(k,200) - lu(k,207) = lu(k,207) - lu(k,187) * lu(k,200) - lu(k,208) = lu(k,208) - lu(k,188) * lu(k,200) - lu(k,209) = lu(k,209) - lu(k,189) * lu(k,200) - lu(k,210) = - lu(k,190) * lu(k,200) - lu(k,687) = lu(k,687) - lu(k,185) * lu(k,678) - lu(k,689) = lu(k,689) - lu(k,186) * lu(k,678) - lu(k,700) = lu(k,700) - lu(k,187) * lu(k,678) - lu(k,701) = lu(k,701) - lu(k,188) * lu(k,678) - lu(k,704) = lu(k,704) - lu(k,189) * lu(k,678) - lu(k,707) = lu(k,707) - lu(k,190) * lu(k,678) - lu(k,755) = lu(k,755) - lu(k,185) * lu(k,744) - lu(k,758) = lu(k,758) - lu(k,186) * lu(k,744) - lu(k,769) = lu(k,769) - lu(k,187) * lu(k,744) - lu(k,770) = lu(k,770) - lu(k,188) * lu(k,744) - lu(k,773) = lu(k,773) - lu(k,189) * lu(k,744) - lu(k,776) = lu(k,776) - lu(k,190) * lu(k,744) - lu(k,974) = lu(k,974) - lu(k,185) * lu(k,955) - lu(k,979) = lu(k,979) - lu(k,186) * lu(k,955) - lu(k,991) = lu(k,991) - lu(k,187) * lu(k,955) - lu(k,992) = lu(k,992) - lu(k,188) * lu(k,955) - lu(k,996) = lu(k,996) - lu(k,189) * lu(k,955) - lu(k,999) = lu(k,999) - lu(k,190) * lu(k,955) - lu(k,1471) = lu(k,1471) - lu(k,185) * lu(k,1456) - lu(k,1476) = lu(k,1476) - lu(k,186) * lu(k,1456) - lu(k,1488) = lu(k,1488) - lu(k,187) * lu(k,1456) - lu(k,1489) = lu(k,1489) - lu(k,188) * lu(k,1456) - lu(k,1493) = lu(k,1493) - lu(k,189) * lu(k,1456) - lu(k,1496) = lu(k,1496) - lu(k,190) * lu(k,1456) - lu(k,1514) = lu(k,1514) - lu(k,185) * lu(k,1501) - lu(k,1519) = lu(k,1519) - lu(k,186) * lu(k,1501) - lu(k,1531) = lu(k,1531) - lu(k,187) * lu(k,1501) - lu(k,1532) = lu(k,1532) - lu(k,188) * lu(k,1501) - lu(k,1536) = lu(k,1536) - lu(k,189) * lu(k,1501) - lu(k,1539) = - lu(k,190) * lu(k,1501) - lu(k,1669) = lu(k,1669) - lu(k,185) * lu(k,1655) - lu(k,1674) = lu(k,1674) - lu(k,186) * lu(k,1655) - lu(k,1686) = lu(k,1686) - lu(k,187) * lu(k,1655) - lu(k,1687) = lu(k,1687) - lu(k,188) * lu(k,1655) - lu(k,1691) = lu(k,1691) - lu(k,189) * lu(k,1655) - lu(k,1694) = lu(k,1694) - lu(k,190) * lu(k,1655) - lu(k,191) = 1._r8 / lu(k,191) - lu(k,192) = lu(k,192) * lu(k,191) - lu(k,193) = lu(k,193) * lu(k,191) - lu(k,194) = lu(k,194) * lu(k,191) - lu(k,195) = lu(k,195) * lu(k,191) - lu(k,196) = lu(k,196) * lu(k,191) - lu(k,197) = lu(k,197) * lu(k,191) - lu(k,198) = lu(k,198) * lu(k,191) - lu(k,328) = lu(k,328) - lu(k,192) * lu(k,327) - lu(k,329) = lu(k,329) - lu(k,193) * lu(k,327) - lu(k,331) = - lu(k,194) * lu(k,327) - lu(k,333) = lu(k,333) - lu(k,195) * lu(k,327) - lu(k,334) = - lu(k,196) * lu(k,327) - lu(k,338) = lu(k,338) - lu(k,197) * lu(k,327) - lu(k,339) = - lu(k,198) * lu(k,327) - lu(k,538) = lu(k,538) - lu(k,192) * lu(k,537) - lu(k,540) = - lu(k,193) * lu(k,537) - lu(k,542) = - lu(k,194) * lu(k,537) - lu(k,544) = lu(k,544) - lu(k,195) * lu(k,537) - lu(k,545) = lu(k,545) - lu(k,196) * lu(k,537) - lu(k,558) = lu(k,558) - lu(k,197) * lu(k,537) - lu(k,560) = lu(k,560) - lu(k,198) * lu(k,537) - lu(k,569) = lu(k,569) - lu(k,192) * lu(k,565) - lu(k,571) = lu(k,571) - lu(k,193) * lu(k,565) - lu(k,573) = lu(k,573) - lu(k,194) * lu(k,565) - lu(k,575) = lu(k,575) - lu(k,195) * lu(k,565) - lu(k,577) = lu(k,577) - lu(k,196) * lu(k,565) - lu(k,592) = lu(k,592) - lu(k,197) * lu(k,565) - lu(k,594) = lu(k,594) - lu(k,198) * lu(k,565) - lu(k,681) = lu(k,681) - lu(k,192) * lu(k,679) - lu(k,683) = lu(k,683) - lu(k,193) * lu(k,679) - lu(k,685) = - lu(k,194) * lu(k,679) - lu(k,687) = lu(k,687) - lu(k,195) * lu(k,679) - lu(k,689) = lu(k,689) - lu(k,196) * lu(k,679) - lu(k,705) = lu(k,705) - lu(k,197) * lu(k,679) - lu(k,707) = lu(k,707) - lu(k,198) * lu(k,679) - lu(k,749) = lu(k,749) - lu(k,192) * lu(k,745) - lu(k,751) = lu(k,751) - lu(k,193) * lu(k,745) - lu(k,753) = lu(k,753) - lu(k,194) * lu(k,745) - lu(k,755) = lu(k,755) - lu(k,195) * lu(k,745) - lu(k,758) = lu(k,758) - lu(k,196) * lu(k,745) - lu(k,774) = lu(k,774) - lu(k,197) * lu(k,745) - lu(k,776) = lu(k,776) - lu(k,198) * lu(k,745) - lu(k,963) = lu(k,963) - lu(k,192) * lu(k,956) - lu(k,966) = lu(k,966) - lu(k,193) * lu(k,956) - lu(k,968) = lu(k,968) - lu(k,194) * lu(k,956) - lu(k,974) = lu(k,974) - lu(k,195) * lu(k,956) - lu(k,979) = lu(k,979) - lu(k,196) * lu(k,956) - lu(k,997) = lu(k,997) - lu(k,197) * lu(k,956) - lu(k,999) = lu(k,999) - lu(k,198) * lu(k,956) - end do + real(r8), intent(inout) :: lu(:) + lu(164) = 1._r8 / lu(164) + lu(165) = lu(165) * lu(164) + lu(166) = lu(166) * lu(164) + lu(167) = lu(167) * lu(164) + lu(168) = lu(168) * lu(164) + lu(169) = lu(169) * lu(164) + lu(170) = lu(170) * lu(164) + lu(171) = lu(171) * lu(164) + lu(410) = lu(410) - lu(165) * lu(409) + lu(411) = lu(411) - lu(166) * lu(409) + lu(415) = lu(415) - lu(167) * lu(409) + lu(416) = - lu(168) * lu(409) + lu(421) = lu(421) - lu(169) * lu(409) + lu(423) = lu(423) - lu(170) * lu(409) + lu(427) = - lu(171) * lu(409) + lu(665) = lu(665) - lu(165) * lu(661) + lu(666) = lu(666) - lu(166) * lu(661) + lu(671) = lu(671) - lu(167) * lu(661) + lu(672) = lu(672) - lu(168) * lu(661) + lu(679) = lu(679) - lu(169) * lu(661) + lu(684) = lu(684) - lu(170) * lu(661) + lu(690) = lu(690) - lu(171) * lu(661) + lu(888) = lu(888) - lu(165) * lu(885) + lu(892) = - lu(166) * lu(885) + lu(900) = lu(900) - lu(167) * lu(885) + lu(905) = lu(905) - lu(168) * lu(885) + lu(912) = lu(912) - lu(169) * lu(885) + lu(919) = lu(919) - lu(170) * lu(885) + lu(925) = lu(925) - lu(171) * lu(885) + lu(1050) = lu(1050) - lu(165) * lu(1046) + lu(1052) = lu(1052) - lu(166) * lu(1046) + lu(1062) = lu(1062) - lu(167) * lu(1046) + lu(1067) = - lu(168) * lu(1046) + lu(1074) = lu(1074) - lu(169) * lu(1046) + lu(1081) = lu(1081) - lu(170) * lu(1046) + lu(1087) = lu(1087) - lu(171) * lu(1046) + lu(1480) = lu(1480) - lu(165) * lu(1470) + lu(1482) = lu(1482) - lu(166) * lu(1470) + lu(1490) = lu(1490) - lu(167) * lu(1470) + lu(1495) = lu(1495) - lu(168) * lu(1470) + lu(1502) = lu(1502) - lu(169) * lu(1470) + lu(1509) = lu(1509) - lu(170) * lu(1470) + lu(1515) = lu(1515) - lu(171) * lu(1470) + lu(172) = 1._r8 / lu(172) + lu(173) = lu(173) * lu(172) + lu(174) = lu(174) * lu(172) + lu(175) = lu(175) * lu(172) + lu(176) = lu(176) * lu(172) + lu(177) = lu(177) * lu(172) + lu(178) = lu(178) * lu(172) + lu(206) = lu(206) - lu(173) * lu(205) + lu(207) = lu(207) - lu(174) * lu(205) + lu(211) = lu(211) - lu(175) * lu(205) + lu(213) = lu(213) - lu(176) * lu(205) + lu(214) = lu(214) - lu(177) * lu(205) + lu(216) = lu(216) - lu(178) * lu(205) + lu(252) = - lu(173) * lu(251) + lu(253) = lu(253) - lu(174) * lu(251) + lu(257) = lu(257) - lu(175) * lu(251) + lu(260) = lu(260) - lu(176) * lu(251) + lu(261) = lu(261) - lu(177) * lu(251) + lu(264) = lu(264) - lu(178) * lu(251) + lu(797) = lu(797) - lu(173) * lu(796) + lu(798) = lu(798) - lu(174) * lu(796) + lu(817) = lu(817) - lu(175) * lu(796) + lu(825) = lu(825) - lu(176) * lu(796) + lu(828) = - lu(177) * lu(796) + lu(833) = lu(833) - lu(178) * lu(796) + lu(1138) = lu(1138) - lu(173) * lu(1136) + lu(1139) = lu(1139) - lu(174) * lu(1136) + lu(1150) = lu(1150) - lu(175) * lu(1136) + lu(1158) = lu(1158) - lu(176) * lu(1136) + lu(1161) = lu(1161) - lu(177) * lu(1136) + lu(1166) = lu(1166) - lu(178) * lu(1136) + lu(1390) = lu(1390) - lu(173) * lu(1389) + lu(1391) = lu(1391) - lu(174) * lu(1389) + lu(1396) = lu(1396) - lu(175) * lu(1389) + lu(1404) = lu(1404) - lu(176) * lu(1389) + lu(1407) = lu(1407) - lu(177) * lu(1389) + lu(1412) = lu(1412) - lu(178) * lu(1389) + lu(1475) = lu(1475) - lu(173) * lu(1471) + lu(1478) = lu(1478) - lu(174) * lu(1471) + lu(1493) = lu(1493) - lu(175) * lu(1471) + lu(1501) = lu(1501) - lu(176) * lu(1471) + lu(1504) = lu(1504) - lu(177) * lu(1471) + lu(1509) = lu(1509) - lu(178) * lu(1471) + lu(179) = 1._r8 / lu(179) + lu(180) = lu(180) * lu(179) + lu(181) = lu(181) * lu(179) + lu(182) = lu(182) * lu(179) + lu(183) = lu(183) * lu(179) + lu(184) = lu(184) * lu(179) + lu(185) = lu(185) * lu(179) + lu(186) = lu(186) * lu(179) + lu(320) = lu(320) - lu(180) * lu(319) + lu(321) = lu(321) - lu(181) * lu(319) + lu(323) = - lu(182) * lu(319) + lu(325) = lu(325) - lu(183) * lu(319) + lu(326) = lu(326) - lu(184) * lu(319) + lu(328) = - lu(185) * lu(319) + lu(330) = - lu(186) * lu(319) + lu(526) = lu(526) - lu(180) * lu(525) + lu(527) = - lu(181) * lu(525) + lu(530) = - lu(182) * lu(525) + lu(532) = lu(532) - lu(183) * lu(525) + lu(534) = lu(534) - lu(184) * lu(525) + lu(541) = lu(541) - lu(185) * lu(525) + lu(547) = lu(547) - lu(186) * lu(525) + lu(556) = lu(556) - lu(180) * lu(552) + lu(557) = lu(557) - lu(181) * lu(552) + lu(560) = lu(560) - lu(182) * lu(552) + lu(562) = lu(562) - lu(183) * lu(552) + lu(564) = lu(564) - lu(184) * lu(552) + lu(574) = lu(574) - lu(185) * lu(552) + lu(580) = lu(580) - lu(186) * lu(552) + lu(665) = lu(665) - lu(180) * lu(662) + lu(666) = lu(666) - lu(181) * lu(662) + lu(669) = - lu(182) * lu(662) + lu(671) = lu(671) - lu(183) * lu(662) + lu(673) = lu(673) - lu(184) * lu(662) + lu(684) = lu(684) - lu(185) * lu(662) + lu(690) = lu(690) - lu(186) * lu(662) + lu(705) = lu(705) - lu(180) * lu(700) + lu(706) = lu(706) - lu(181) * lu(700) + lu(709) = lu(709) - lu(182) * lu(700) + lu(711) = lu(711) - lu(183) * lu(700) + lu(714) = lu(714) - lu(184) * lu(700) + lu(725) = lu(725) - lu(185) * lu(700) + lu(731) = lu(731) - lu(186) * lu(700) + lu(1480) = lu(1480) - lu(180) * lu(1472) + lu(1482) = lu(1482) - lu(181) * lu(1472) + lu(1485) = lu(1485) - lu(182) * lu(1472) + lu(1490) = lu(1490) - lu(183) * lu(1472) + lu(1496) = lu(1496) - lu(184) * lu(1472) + lu(1509) = lu(1509) - lu(185) * lu(1472) + lu(1515) = lu(1515) - lu(186) * lu(1472) + lu(188) = 1._r8 / lu(188) + lu(189) = lu(189) * lu(188) + lu(190) = lu(190) * lu(188) + lu(191) = lu(191) * lu(188) + lu(192) = lu(192) * lu(188) + lu(193) = lu(193) * lu(188) + lu(194) = lu(194) * lu(188) + lu(220) = lu(220) - lu(189) * lu(218) + lu(221) = lu(221) - lu(190) * lu(218) + lu(223) = lu(223) - lu(191) * lu(218) + lu(224) = lu(224) - lu(192) * lu(218) + lu(225) = lu(225) - lu(193) * lu(218) + lu(228) = - lu(194) * lu(218) + lu(671) = lu(671) - lu(189) * lu(663) + lu(672) = lu(672) - lu(190) * lu(663) + lu(677) = lu(677) - lu(191) * lu(663) + lu(679) = lu(679) - lu(192) * lu(663) + lu(684) = lu(684) - lu(193) * lu(663) + lu(690) = lu(690) - lu(194) * lu(663) + lu(711) = lu(711) - lu(189) * lu(701) + lu(713) = lu(713) - lu(190) * lu(701) + lu(718) = lu(718) - lu(191) * lu(701) + lu(720) = lu(720) - lu(192) * lu(701) + lu(725) = lu(725) - lu(193) * lu(701) + lu(731) = lu(731) - lu(194) * lu(701) + lu(900) = lu(900) - lu(189) * lu(886) + lu(905) = lu(905) - lu(190) * lu(886) + lu(910) = lu(910) - lu(191) * lu(886) + lu(912) = lu(912) - lu(192) * lu(886) + lu(919) = lu(919) - lu(193) * lu(886) + lu(925) = lu(925) - lu(194) * lu(886) + lu(1104) = lu(1104) - lu(189) * lu(1092) + lu(1109) = lu(1109) - lu(190) * lu(1092) + lu(1114) = lu(1114) - lu(191) * lu(1092) + lu(1116) = lu(1116) - lu(192) * lu(1092) + lu(1123) = lu(1123) - lu(193) * lu(1092) + lu(1129) = - lu(194) * lu(1092) + lu(1189) = lu(1189) - lu(189) * lu(1176) + lu(1194) = lu(1194) - lu(190) * lu(1176) + lu(1199) = lu(1199) - lu(191) * lu(1176) + lu(1201) = lu(1201) - lu(192) * lu(1176) + lu(1208) = lu(1208) - lu(193) * lu(1176) + lu(1214) = lu(1214) - lu(194) * lu(1176) + lu(1490) = lu(1490) - lu(189) * lu(1473) + lu(1495) = lu(1495) - lu(190) * lu(1473) + lu(1500) = lu(1500) - lu(191) * lu(1473) + lu(1502) = lu(1502) - lu(192) * lu(1473) + lu(1509) = lu(1509) - lu(193) * lu(1473) + lu(1515) = lu(1515) - lu(194) * lu(1473) + lu(195) = 1._r8 / lu(195) + lu(196) = lu(196) * lu(195) + lu(197) = lu(197) * lu(195) + lu(198) = lu(198) * lu(195) + lu(199) = lu(199) * lu(195) + lu(200) = lu(200) * lu(195) + lu(201) = lu(201) * lu(195) + lu(202) = lu(202) * lu(195) + lu(292) = lu(292) - lu(196) * lu(291) + lu(296) = lu(296) - lu(197) * lu(291) + lu(297) = - lu(198) * lu(291) + lu(298) = lu(298) - lu(199) * lu(291) + lu(299) = lu(299) - lu(200) * lu(291) + lu(301) = - lu(201) * lu(291) + lu(302) = lu(302) - lu(202) * lu(291) + lu(555) = - lu(196) * lu(553) + lu(568) = lu(568) - lu(197) * lu(553) + lu(570) = - lu(198) * lu(553) + lu(571) = - lu(199) * lu(553) + lu(573) = - lu(200) * lu(553) + lu(576) = - lu(201) * lu(553) + lu(577) = lu(577) - lu(202) * lu(553) + lu(1140) = lu(1140) - lu(196) * lu(1137) + lu(1158) = lu(1158) - lu(197) * lu(1137) + lu(1160) = lu(1160) - lu(198) * lu(1137) + lu(1161) = lu(1161) - lu(199) * lu(1137) + lu(1164) = lu(1164) - lu(200) * lu(1137) + lu(1168) = lu(1168) - lu(201) * lu(1137) + lu(1169) = lu(1169) - lu(202) * lu(1137) + lu(1218) = - lu(196) * lu(1216) + lu(1235) = lu(1235) - lu(197) * lu(1216) + lu(1237) = lu(1237) - lu(198) * lu(1216) + lu(1238) = lu(1238) - lu(199) * lu(1216) + lu(1241) = lu(1241) - lu(200) * lu(1216) + lu(1245) = lu(1245) - lu(201) * lu(1216) + lu(1246) = lu(1246) - lu(202) * lu(1216) + lu(1479) = lu(1479) - lu(196) * lu(1474) + lu(1501) = lu(1501) - lu(197) * lu(1474) + lu(1503) = lu(1503) - lu(198) * lu(1474) + lu(1504) = lu(1504) - lu(199) * lu(1474) + lu(1507) = lu(1507) - lu(200) * lu(1474) + lu(1511) = lu(1511) - lu(201) * lu(1474) + lu(1512) = lu(1512) - lu(202) * lu(1474) + lu(1549) = - lu(196) * lu(1548) + lu(1568) = lu(1568) - lu(197) * lu(1548) + lu(1570) = - lu(198) * lu(1548) + lu(1571) = - lu(199) * lu(1548) + lu(1574) = lu(1574) - lu(200) * lu(1548) + lu(1578) = lu(1578) - lu(201) * lu(1548) + lu(1579) = lu(1579) - lu(202) * lu(1548) + lu(1585) = - lu(196) * lu(1584) + lu(1606) = lu(1606) - lu(197) * lu(1584) + lu(1608) = lu(1608) - lu(198) * lu(1584) + lu(1609) = - lu(199) * lu(1584) + lu(1612) = lu(1612) - lu(200) * lu(1584) + lu(1616) = lu(1616) - lu(201) * lu(1584) + lu(1617) = lu(1617) - lu(202) * lu(1584) end subroutine lu_fac05 - subroutine lu_fac06( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac06( lu ) 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,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,204) = lu(k,204) * lu(k,201) - lu(k,205) = lu(k,205) * lu(k,201) - lu(k,206) = lu(k,206) * lu(k,201) - lu(k,207) = lu(k,207) * lu(k,201) - lu(k,208) = lu(k,208) * lu(k,201) - lu(k,209) = lu(k,209) * lu(k,201) - lu(k,210) = lu(k,210) * lu(k,201) - lu(k,755) = lu(k,755) - lu(k,202) * lu(k,746) - lu(k,758) = lu(k,758) - lu(k,203) * lu(k,746) - lu(k,761) = lu(k,761) - lu(k,204) * lu(k,746) - lu(k,762) = lu(k,762) - lu(k,205) * lu(k,746) - lu(k,763) = lu(k,763) - lu(k,206) * lu(k,746) - lu(k,769) = lu(k,769) - lu(k,207) * lu(k,746) - lu(k,770) = lu(k,770) - lu(k,208) * lu(k,746) - lu(k,773) = lu(k,773) - lu(k,209) * lu(k,746) - lu(k,776) = lu(k,776) - lu(k,210) * lu(k,746) - lu(k,974) = lu(k,974) - lu(k,202) * lu(k,957) - lu(k,979) = lu(k,979) - lu(k,203) * lu(k,957) - lu(k,982) = lu(k,982) - lu(k,204) * lu(k,957) - lu(k,983) = lu(k,983) - lu(k,205) * lu(k,957) - lu(k,985) = lu(k,985) - lu(k,206) * lu(k,957) - lu(k,991) = lu(k,991) - lu(k,207) * lu(k,957) - lu(k,992) = lu(k,992) - lu(k,208) * lu(k,957) - lu(k,996) = lu(k,996) - lu(k,209) * lu(k,957) - lu(k,999) = lu(k,999) - lu(k,210) * lu(k,957) - lu(k,1144) = lu(k,1144) - lu(k,202) * lu(k,1128) - lu(k,1149) = lu(k,1149) - lu(k,203) * lu(k,1128) - lu(k,1152) = lu(k,1152) - lu(k,204) * lu(k,1128) - lu(k,1153) = lu(k,1153) - lu(k,205) * lu(k,1128) - lu(k,1155) = lu(k,1155) - lu(k,206) * lu(k,1128) - lu(k,1161) = lu(k,1161) - lu(k,207) * lu(k,1128) - lu(k,1162) = lu(k,1162) - lu(k,208) * lu(k,1128) - lu(k,1166) = lu(k,1166) - lu(k,209) * lu(k,1128) - lu(k,1169) = lu(k,1169) - lu(k,210) * lu(k,1128) - lu(k,1471) = lu(k,1471) - lu(k,202) * lu(k,1457) - lu(k,1476) = lu(k,1476) - lu(k,203) * lu(k,1457) - lu(k,1479) = lu(k,1479) - lu(k,204) * lu(k,1457) - lu(k,1480) = lu(k,1480) - lu(k,205) * lu(k,1457) - lu(k,1482) = - lu(k,206) * lu(k,1457) - lu(k,1488) = lu(k,1488) - lu(k,207) * lu(k,1457) - lu(k,1489) = lu(k,1489) - lu(k,208) * lu(k,1457) - lu(k,1493) = lu(k,1493) - lu(k,209) * lu(k,1457) - lu(k,1496) = lu(k,1496) - lu(k,210) * lu(k,1457) - lu(k,1514) = lu(k,1514) - lu(k,202) * lu(k,1502) - lu(k,1519) = lu(k,1519) - lu(k,203) * lu(k,1502) - lu(k,1522) = - lu(k,204) * lu(k,1502) - lu(k,1523) = lu(k,1523) - lu(k,205) * lu(k,1502) - lu(k,1525) = lu(k,1525) - lu(k,206) * lu(k,1502) - lu(k,1531) = lu(k,1531) - lu(k,207) * lu(k,1502) - lu(k,1532) = lu(k,1532) - lu(k,208) * lu(k,1502) - lu(k,1536) = lu(k,1536) - lu(k,209) * lu(k,1502) - lu(k,1539) = lu(k,1539) - lu(k,210) * lu(k,1502) - lu(k,1669) = lu(k,1669) - lu(k,202) * lu(k,1656) - lu(k,1674) = lu(k,1674) - lu(k,203) * lu(k,1656) - lu(k,1677) = - lu(k,204) * lu(k,1656) - lu(k,1678) = lu(k,1678) - lu(k,205) * lu(k,1656) - lu(k,1680) = lu(k,1680) - lu(k,206) * lu(k,1656) - lu(k,1686) = lu(k,1686) - lu(k,207) * lu(k,1656) - lu(k,1687) = lu(k,1687) - lu(k,208) * lu(k,1656) - lu(k,1691) = lu(k,1691) - lu(k,209) * lu(k,1656) - lu(k,1694) = lu(k,1694) - lu(k,210) * lu(k,1656) - lu(k,211) = 1._r8 / lu(k,211) - lu(k,212) = lu(k,212) * lu(k,211) - lu(k,213) = lu(k,213) * lu(k,211) - lu(k,214) = lu(k,214) * lu(k,211) - lu(k,215) = lu(k,215) * lu(k,211) - lu(k,216) = lu(k,216) * lu(k,211) - lu(k,217) = lu(k,217) * lu(k,211) - lu(k,218) = lu(k,218) * lu(k,211) - lu(k,618) = lu(k,618) - lu(k,212) * lu(k,616) - lu(k,622) = - lu(k,213) * lu(k,616) - lu(k,628) = lu(k,628) - lu(k,214) * lu(k,616) - lu(k,632) = - lu(k,215) * lu(k,616) - lu(k,634) = lu(k,634) - lu(k,216) * lu(k,616) - lu(k,644) = lu(k,644) - lu(k,217) * lu(k,616) - lu(k,646) = lu(k,646) - lu(k,218) * lu(k,616) - lu(k,781) = lu(k,781) - lu(k,212) * lu(k,777) - lu(k,783) = lu(k,783) - lu(k,213) * lu(k,777) - lu(k,789) = lu(k,789) - lu(k,214) * lu(k,777) - lu(k,793) = lu(k,793) - lu(k,215) * lu(k,777) - lu(k,796) = lu(k,796) - lu(k,216) * lu(k,777) - lu(k,806) = lu(k,806) - lu(k,217) * lu(k,777) - lu(k,808) = lu(k,808) - lu(k,218) * lu(k,777) - lu(k,969) = lu(k,969) - lu(k,212) * lu(k,958) - lu(k,973) = lu(k,973) - lu(k,213) * lu(k,958) - lu(k,979) = lu(k,979) - lu(k,214) * lu(k,958) - lu(k,983) = lu(k,983) - lu(k,215) * lu(k,958) - lu(k,986) = lu(k,986) - lu(k,216) * lu(k,958) - lu(k,996) = lu(k,996) - lu(k,217) * lu(k,958) - lu(k,998) = lu(k,998) - lu(k,218) * lu(k,958) - lu(k,1296) = lu(k,1296) - lu(k,212) * lu(k,1292) - lu(k,1300) = lu(k,1300) - lu(k,213) * lu(k,1292) - lu(k,1306) = lu(k,1306) - lu(k,214) * lu(k,1292) - lu(k,1310) = lu(k,1310) - lu(k,215) * lu(k,1292) - lu(k,1313) = lu(k,1313) - lu(k,216) * lu(k,1292) - lu(k,1323) = lu(k,1323) - lu(k,217) * lu(k,1292) - lu(k,1325) = lu(k,1325) - lu(k,218) * lu(k,1292) - lu(k,1509) = lu(k,1509) - lu(k,212) * lu(k,1503) - lu(k,1513) = lu(k,1513) - lu(k,213) * lu(k,1503) - lu(k,1519) = lu(k,1519) - lu(k,214) * lu(k,1503) - lu(k,1523) = lu(k,1523) - lu(k,215) * lu(k,1503) - lu(k,1526) = lu(k,1526) - lu(k,216) * lu(k,1503) - lu(k,1536) = lu(k,1536) - lu(k,217) * lu(k,1503) - lu(k,1538) = lu(k,1538) - lu(k,218) * lu(k,1503) - lu(k,1586) = lu(k,1586) - lu(k,212) * lu(k,1583) - lu(k,1589) = lu(k,1589) - lu(k,213) * lu(k,1583) - lu(k,1595) = lu(k,1595) - lu(k,214) * lu(k,1583) - lu(k,1599) = lu(k,1599) - lu(k,215) * lu(k,1583) - lu(k,1602) = - lu(k,216) * lu(k,1583) - lu(k,1612) = lu(k,1612) - lu(k,217) * lu(k,1583) - lu(k,1614) = - lu(k,218) * lu(k,1583) - lu(k,1664) = lu(k,1664) - lu(k,212) * lu(k,1657) - lu(k,1668) = lu(k,1668) - lu(k,213) * lu(k,1657) - lu(k,1674) = lu(k,1674) - lu(k,214) * lu(k,1657) - lu(k,1678) = lu(k,1678) - lu(k,215) * lu(k,1657) - lu(k,1681) = lu(k,1681) - lu(k,216) * lu(k,1657) - lu(k,1691) = lu(k,1691) - lu(k,217) * lu(k,1657) - lu(k,1693) = - lu(k,218) * lu(k,1657) - lu(k,1743) = lu(k,1743) - lu(k,212) * lu(k,1732) - lu(k,1746) = lu(k,1746) - lu(k,213) * lu(k,1732) - lu(k,1752) = lu(k,1752) - lu(k,214) * lu(k,1732) - lu(k,1756) = lu(k,1756) - lu(k,215) * lu(k,1732) - lu(k,1759) = lu(k,1759) - lu(k,216) * lu(k,1732) - lu(k,1769) = lu(k,1769) - lu(k,217) * lu(k,1732) - lu(k,1771) = lu(k,1771) - lu(k,218) * lu(k,1732) - lu(k,219) = 1._r8 / lu(k,219) - lu(k,220) = lu(k,220) * lu(k,219) - lu(k,221) = lu(k,221) * lu(k,219) - lu(k,222) = lu(k,222) * lu(k,219) - lu(k,223) = lu(k,223) * lu(k,219) - lu(k,224) = lu(k,224) * lu(k,219) - lu(k,225) = lu(k,225) * lu(k,219) - lu(k,226) = lu(k,226) * lu(k,219) - lu(k,285) = lu(k,285) - lu(k,220) * lu(k,284) - lu(k,289) = lu(k,289) - lu(k,221) * lu(k,284) - lu(k,290) = lu(k,290) - lu(k,222) * lu(k,284) - lu(k,291) = - lu(k,223) * lu(k,284) - lu(k,292) = lu(k,292) - lu(k,224) * lu(k,284) - lu(k,293) = lu(k,293) - lu(k,225) * lu(k,284) - lu(k,294) = - lu(k,226) * lu(k,284) - lu(k,568) = - lu(k,220) * lu(k,566) - lu(k,578) = - lu(k,221) * lu(k,566) - lu(k,582) = lu(k,582) - lu(k,222) * lu(k,566) - lu(k,583) = - lu(k,223) * lu(k,566) - lu(k,584) = - lu(k,224) * lu(k,566) - lu(k,586) = lu(k,586) - lu(k,225) * lu(k,566) - lu(k,590) = - lu(k,226) * lu(k,566) - lu(k,962) = lu(k,962) - lu(k,220) * lu(k,959) - lu(k,980) = lu(k,980) - lu(k,221) * lu(k,959) - lu(k,986) = lu(k,986) - lu(k,222) * lu(k,959) - lu(k,987) = lu(k,987) - lu(k,223) * lu(k,959) - lu(k,988) = lu(k,988) - lu(k,224) * lu(k,959) - lu(k,990) = lu(k,990) - lu(k,225) * lu(k,959) - lu(k,995) = lu(k,995) - lu(k,226) * lu(k,959) - lu(k,1258) = lu(k,1258) - lu(k,220) * lu(k,1255) - lu(k,1271) = lu(k,1271) - lu(k,221) * lu(k,1255) - lu(k,1277) = lu(k,1277) - lu(k,222) * lu(k,1255) - lu(k,1278) = lu(k,1278) - lu(k,223) * lu(k,1255) - lu(k,1279) = lu(k,1279) - lu(k,224) * lu(k,1255) - lu(k,1281) = lu(k,1281) - lu(k,225) * lu(k,1255) - lu(k,1286) = lu(k,1286) - lu(k,226) * lu(k,1255) - lu(k,1294) = - lu(k,220) * lu(k,1293) - lu(k,1307) = lu(k,1307) - lu(k,221) * lu(k,1293) - lu(k,1313) = lu(k,1313) - lu(k,222) * lu(k,1293) - lu(k,1314) = lu(k,1314) - lu(k,223) * lu(k,1293) - lu(k,1315) = lu(k,1315) - lu(k,224) * lu(k,1293) - lu(k,1317) = lu(k,1317) - lu(k,225) * lu(k,1293) - lu(k,1322) = lu(k,1322) - lu(k,226) * lu(k,1293) - lu(k,1380) = - lu(k,220) * lu(k,1377) - lu(k,1394) = lu(k,1394) - lu(k,221) * lu(k,1377) - lu(k,1400) = lu(k,1400) - lu(k,222) * lu(k,1377) - lu(k,1401) = lu(k,1401) - lu(k,223) * lu(k,1377) - lu(k,1402) = lu(k,1402) - lu(k,224) * lu(k,1377) - lu(k,1404) = - lu(k,225) * lu(k,1377) - lu(k,1409) = lu(k,1409) - lu(k,226) * lu(k,1377) - lu(k,1416) = - lu(k,220) * lu(k,1415) - lu(k,1432) = lu(k,1432) - lu(k,221) * lu(k,1415) - lu(k,1438) = lu(k,1438) - lu(k,222) * lu(k,1415) - lu(k,1439) = lu(k,1439) - lu(k,223) * lu(k,1415) - lu(k,1440) = - lu(k,224) * lu(k,1415) - lu(k,1442) = lu(k,1442) - lu(k,225) * lu(k,1415) - lu(k,1447) = lu(k,1447) - lu(k,226) * lu(k,1415) - lu(k,1617) = - lu(k,220) * lu(k,1616) - lu(k,1632) = lu(k,1632) - lu(k,221) * lu(k,1616) - lu(k,1638) = lu(k,1638) - lu(k,222) * lu(k,1616) - lu(k,1639) = - lu(k,223) * lu(k,1616) - lu(k,1640) = - lu(k,224) * lu(k,1616) - lu(k,1642) = lu(k,1642) - lu(k,225) * lu(k,1616) - lu(k,1647) = lu(k,1647) - lu(k,226) * lu(k,1616) - 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,236) = lu(k,236) * lu(k,229) - lu(k,237) = lu(k,237) * lu(k,229) - lu(k,238) = lu(k,238) * lu(k,229) - lu(k,239) = lu(k,239) * lu(k,229) - lu(k,240) = lu(k,240) * lu(k,229) - lu(k,476) = lu(k,476) - lu(k,230) * lu(k,475) - lu(k,477) = lu(k,477) - lu(k,231) * lu(k,475) - lu(k,478) = lu(k,478) - lu(k,232) * lu(k,475) - lu(k,483) = - lu(k,233) * lu(k,475) - lu(k,485) = lu(k,485) - lu(k,234) * lu(k,475) - lu(k,486) = - lu(k,235) * lu(k,475) - lu(k,487) = lu(k,487) - lu(k,236) * lu(k,475) - lu(k,488) = lu(k,488) - lu(k,237) * lu(k,475) - lu(k,491) = lu(k,491) - lu(k,238) * lu(k,475) - lu(k,493) = lu(k,493) - lu(k,239) * lu(k,475) - lu(k,494) = lu(k,494) - lu(k,240) * lu(k,475) - lu(k,517) = lu(k,517) - lu(k,230) * lu(k,516) - lu(k,518) = lu(k,518) - lu(k,231) * lu(k,516) - lu(k,519) = lu(k,519) - lu(k,232) * lu(k,516) - lu(k,524) = - lu(k,233) * lu(k,516) - lu(k,526) = lu(k,526) - lu(k,234) * lu(k,516) - lu(k,527) = - lu(k,235) * lu(k,516) - lu(k,528) = lu(k,528) - lu(k,236) * lu(k,516) - lu(k,529) = lu(k,529) - lu(k,237) * lu(k,516) - lu(k,532) = lu(k,532) - lu(k,238) * lu(k,516) - lu(k,534) = lu(k,534) - lu(k,239) * lu(k,516) - lu(k,535) = lu(k,535) - lu(k,240) * lu(k,516) - lu(k,1133) = - lu(k,230) * lu(k,1129) - lu(k,1135) = - lu(k,231) * lu(k,1129) - lu(k,1137) = lu(k,1137) - lu(k,232) * lu(k,1129) - lu(k,1149) = lu(k,1149) - lu(k,233) * lu(k,1129) - lu(k,1152) = lu(k,1152) - lu(k,234) * lu(k,1129) - lu(k,1153) = lu(k,1153) - lu(k,235) * lu(k,1129) - lu(k,1154) = - lu(k,236) * lu(k,1129) - lu(k,1155) = lu(k,1155) - lu(k,237) * lu(k,1129) - lu(k,1163) = - lu(k,238) * lu(k,1129) - lu(k,1168) = lu(k,1168) - lu(k,239) * lu(k,1129) - lu(k,1169) = lu(k,1169) - lu(k,240) * lu(k,1129) - lu(k,1178) = lu(k,1178) - lu(k,230) * lu(k,1171) - lu(k,1179) = lu(k,1179) - lu(k,231) * lu(k,1171) - lu(k,1181) = lu(k,1181) - lu(k,232) * lu(k,1171) - lu(k,1192) = lu(k,1192) - lu(k,233) * lu(k,1171) - lu(k,1195) = lu(k,1195) - lu(k,234) * lu(k,1171) - lu(k,1196) = lu(k,1196) - lu(k,235) * lu(k,1171) - lu(k,1197) = lu(k,1197) - lu(k,236) * lu(k,1171) - lu(k,1198) = lu(k,1198) - lu(k,237) * lu(k,1171) - lu(k,1206) = lu(k,1206) - lu(k,238) * lu(k,1171) - lu(k,1211) = - lu(k,239) * lu(k,1171) - lu(k,1212) = lu(k,1212) - lu(k,240) * lu(k,1171) - lu(k,1215) = - lu(k,230) * lu(k,1214) - lu(k,1216) = - lu(k,231) * lu(k,1214) - lu(k,1217) = - lu(k,232) * lu(k,1214) - lu(k,1227) = lu(k,1227) - lu(k,233) * lu(k,1214) - lu(k,1230) = lu(k,1230) - lu(k,234) * lu(k,1214) - lu(k,1231) = lu(k,1231) - lu(k,235) * lu(k,1214) - lu(k,1232) = - lu(k,236) * lu(k,1214) - lu(k,1233) = lu(k,1233) - lu(k,237) * lu(k,1214) - lu(k,1241) = - lu(k,238) * lu(k,1214) - lu(k,1246) = lu(k,1246) - lu(k,239) * lu(k,1214) - lu(k,1247) = - lu(k,240) * lu(k,1214) - lu(k,1548) = lu(k,1548) - lu(k,230) * lu(k,1541) - lu(k,1549) = lu(k,1549) - lu(k,231) * lu(k,1541) - lu(k,1551) = lu(k,1551) - lu(k,232) * lu(k,1541) - lu(k,1562) = lu(k,1562) - lu(k,233) * lu(k,1541) - lu(k,1565) = lu(k,1565) - lu(k,234) * lu(k,1541) - lu(k,1566) = lu(k,1566) - lu(k,235) * lu(k,1541) - lu(k,1567) = lu(k,1567) - lu(k,236) * lu(k,1541) - lu(k,1568) = lu(k,1568) - lu(k,237) * lu(k,1541) - lu(k,1576) = lu(k,1576) - lu(k,238) * lu(k,1541) - lu(k,1581) = - lu(k,239) * lu(k,1541) - lu(k,1582) = lu(k,1582) - lu(k,240) * lu(k,1541) - end do + real(r8), intent(inout) :: lu(:) + lu(206) = 1._r8 / lu(206) + lu(207) = lu(207) * lu(206) + lu(208) = lu(208) * lu(206) + lu(209) = lu(209) * lu(206) + lu(210) = lu(210) * lu(206) + lu(211) = lu(211) * lu(206) + lu(212) = lu(212) * lu(206) + lu(213) = lu(213) * lu(206) + lu(214) = lu(214) * lu(206) + lu(215) = lu(215) * lu(206) + lu(216) = lu(216) * lu(206) + lu(253) = lu(253) - lu(207) * lu(252) + lu(254) = - lu(208) * lu(252) + lu(255) = - lu(209) * lu(252) + lu(256) = lu(256) - lu(210) * lu(252) + lu(257) = lu(257) - lu(211) * lu(252) + lu(258) = lu(258) - lu(212) * lu(252) + lu(260) = lu(260) - lu(213) * lu(252) + lu(261) = lu(261) - lu(214) * lu(252) + lu(262) = lu(262) - lu(215) * lu(252) + lu(264) = lu(264) - lu(216) * lu(252) + lu(798) = lu(798) - lu(207) * lu(797) + lu(809) = lu(809) - lu(208) * lu(797) + lu(813) = - lu(209) * lu(797) + lu(814) = lu(814) - lu(210) * lu(797) + lu(817) = lu(817) - lu(211) * lu(797) + lu(820) = - lu(212) * lu(797) + lu(825) = lu(825) - lu(213) * lu(797) + lu(828) = lu(828) - lu(214) * lu(797) + lu(829) = lu(829) - lu(215) * lu(797) + lu(833) = lu(833) - lu(216) * lu(797) + lu(1139) = lu(1139) - lu(207) * lu(1138) + lu(1142) = lu(1142) - lu(208) * lu(1138) + lu(1146) = lu(1146) - lu(209) * lu(1138) + lu(1147) = - lu(210) * lu(1138) + lu(1150) = lu(1150) - lu(211) * lu(1138) + lu(1153) = lu(1153) - lu(212) * lu(1138) + lu(1158) = lu(1158) - lu(213) * lu(1138) + lu(1161) = lu(1161) - lu(214) * lu(1138) + lu(1162) = lu(1162) - lu(215) * lu(1138) + lu(1166) = lu(1166) - lu(216) * lu(1138) + lu(1391) = lu(1391) - lu(207) * lu(1390) + lu(1393) = lu(1393) - lu(208) * lu(1390) + lu(1394) = - lu(209) * lu(1390) + lu(1395) = lu(1395) - lu(210) * lu(1390) + lu(1396) = lu(1396) - lu(211) * lu(1390) + lu(1399) = lu(1399) - lu(212) * lu(1390) + lu(1404) = lu(1404) - lu(213) * lu(1390) + lu(1407) = lu(1407) - lu(214) * lu(1390) + lu(1408) = lu(1408) - lu(215) * lu(1390) + lu(1412) = lu(1412) - lu(216) * lu(1390) + lu(1478) = lu(1478) - lu(207) * lu(1475) + lu(1485) = lu(1485) - lu(208) * lu(1475) + lu(1489) = lu(1489) - lu(209) * lu(1475) + lu(1490) = lu(1490) - lu(210) * lu(1475) + lu(1493) = lu(1493) - lu(211) * lu(1475) + lu(1496) = lu(1496) - lu(212) * lu(1475) + lu(1501) = lu(1501) - lu(213) * lu(1475) + lu(1504) = lu(1504) - lu(214) * lu(1475) + lu(1505) = lu(1505) - lu(215) * lu(1475) + lu(1509) = lu(1509) - lu(216) * lu(1475) + lu(219) = 1._r8 / lu(219) + lu(220) = lu(220) * lu(219) + lu(221) = lu(221) * lu(219) + lu(222) = lu(222) * lu(219) + lu(223) = lu(223) * lu(219) + lu(224) = lu(224) * lu(219) + lu(225) = lu(225) * lu(219) + lu(226) = lu(226) * lu(219) + lu(227) = lu(227) * lu(219) + lu(228) = lu(228) * lu(219) + lu(711) = lu(711) - lu(220) * lu(702) + lu(713) = lu(713) - lu(221) * lu(702) + lu(717) = lu(717) - lu(222) * lu(702) + lu(718) = lu(718) - lu(223) * lu(702) + lu(720) = lu(720) - lu(224) * lu(702) + lu(725) = lu(725) - lu(225) * lu(702) + lu(729) = lu(729) - lu(226) * lu(702) + lu(730) = lu(730) - lu(227) * lu(702) + lu(731) = lu(731) - lu(228) * lu(702) + lu(900) = lu(900) - lu(220) * lu(887) + lu(905) = lu(905) - lu(221) * lu(887) + lu(909) = lu(909) - lu(222) * lu(887) + lu(910) = lu(910) - lu(223) * lu(887) + lu(912) = lu(912) - lu(224) * lu(887) + lu(919) = lu(919) - lu(225) * lu(887) + lu(923) = lu(923) - lu(226) * lu(887) + lu(924) = - lu(227) * lu(887) + lu(925) = lu(925) - lu(228) * lu(887) + lu(1062) = lu(1062) - lu(220) * lu(1047) + lu(1067) = lu(1067) - lu(221) * lu(1047) + lu(1071) = lu(1071) - lu(222) * lu(1047) + lu(1072) = lu(1072) - lu(223) * lu(1047) + lu(1074) = lu(1074) - lu(224) * lu(1047) + lu(1081) = lu(1081) - lu(225) * lu(1047) + lu(1085) = lu(1085) - lu(226) * lu(1047) + lu(1086) = lu(1086) - lu(227) * lu(1047) + lu(1087) = lu(1087) - lu(228) * lu(1047) + lu(1104) = lu(1104) - lu(220) * lu(1093) + lu(1109) = lu(1109) - lu(221) * lu(1093) + lu(1113) = lu(1113) - lu(222) * lu(1093) + lu(1114) = lu(1114) - lu(223) * lu(1093) + lu(1116) = lu(1116) - lu(224) * lu(1093) + lu(1123) = lu(1123) - lu(225) * lu(1093) + lu(1127) = - lu(226) * lu(1093) + lu(1128) = lu(1128) - lu(227) * lu(1093) + lu(1129) = lu(1129) - lu(228) * lu(1093) + lu(1189) = lu(1189) - lu(220) * lu(1177) + lu(1194) = lu(1194) - lu(221) * lu(1177) + lu(1198) = lu(1198) - lu(222) * lu(1177) + lu(1199) = lu(1199) - lu(223) * lu(1177) + lu(1201) = lu(1201) - lu(224) * lu(1177) + lu(1208) = lu(1208) - lu(225) * lu(1177) + lu(1212) = - lu(226) * lu(1177) + lu(1213) = lu(1213) - lu(227) * lu(1177) + lu(1214) = lu(1214) - lu(228) * lu(1177) + lu(1490) = lu(1490) - lu(220) * lu(1476) + lu(1495) = lu(1495) - lu(221) * lu(1476) + lu(1499) = lu(1499) - lu(222) * lu(1476) + lu(1500) = lu(1500) - lu(223) * lu(1476) + lu(1502) = lu(1502) - lu(224) * lu(1476) + lu(1509) = lu(1509) - lu(225) * lu(1476) + lu(1513) = lu(1513) - lu(226) * lu(1476) + lu(1514) = lu(1514) - lu(227) * lu(1476) + lu(1515) = lu(1515) - lu(228) * lu(1476) + lu(229) = 1._r8 / lu(229) + lu(230) = lu(230) * lu(229) + lu(231) = lu(231) * lu(229) + lu(232) = lu(232) * lu(229) + lu(233) = lu(233) * lu(229) + lu(234) = lu(234) * lu(229) + lu(235) = lu(235) * lu(229) + lu(236) = lu(236) * lu(229) + lu(584) = lu(584) - lu(230) * lu(581) + lu(589) = - lu(231) * lu(581) + lu(596) = - lu(232) * lu(581) + lu(598) = lu(598) - lu(233) * lu(581) + lu(599) = lu(599) - lu(234) * lu(581) + lu(602) = lu(602) - lu(235) * lu(581) + lu(606) = lu(606) - lu(236) * lu(581) + lu(736) = lu(736) - lu(230) * lu(732) + lu(740) = lu(740) - lu(231) * lu(732) + lu(747) = lu(747) - lu(232) * lu(732) + lu(749) = lu(749) - lu(233) * lu(732) + lu(750) = lu(750) - lu(234) * lu(732) + lu(753) = lu(753) - lu(235) * lu(732) + lu(757) = lu(757) - lu(236) * lu(732) + lu(1101) = lu(1101) - lu(230) * lu(1094) + lu(1106) = lu(1106) - lu(231) * lu(1094) + lu(1113) = lu(1113) - lu(232) * lu(1094) + lu(1115) = lu(1115) - lu(233) * lu(1094) + lu(1116) = lu(1116) - lu(234) * lu(1094) + lu(1119) = lu(1119) - lu(235) * lu(1094) + lu(1123) = lu(1123) - lu(236) * lu(1094) + lu(1186) = lu(1186) - lu(230) * lu(1178) + lu(1191) = lu(1191) - lu(231) * lu(1178) + lu(1198) = lu(1198) - lu(232) * lu(1178) + lu(1200) = lu(1200) - lu(233) * lu(1178) + lu(1201) = lu(1201) - lu(234) * lu(1178) + lu(1204) = - lu(235) * lu(1178) + lu(1208) = lu(1208) - lu(236) * lu(1178) + lu(1221) = lu(1221) - lu(230) * lu(1217) + lu(1226) = lu(1226) - lu(231) * lu(1217) + lu(1233) = lu(1233) - lu(232) * lu(1217) + lu(1235) = lu(1235) - lu(233) * lu(1217) + lu(1236) = lu(1236) - lu(234) * lu(1217) + lu(1239) = lu(1239) - lu(235) * lu(1217) + lu(1243) = lu(1243) - lu(236) * lu(1217) + lu(1306) = lu(1306) - lu(230) * lu(1295) + lu(1311) = lu(1311) - lu(231) * lu(1295) + lu(1318) = lu(1318) - lu(232) * lu(1295) + lu(1320) = lu(1320) - lu(233) * lu(1295) + lu(1321) = lu(1321) - lu(234) * lu(1295) + lu(1324) = lu(1324) - lu(235) * lu(1295) + lu(1328) = lu(1328) - lu(236) * lu(1295) + lu(1487) = lu(1487) - lu(230) * lu(1477) + lu(1492) = lu(1492) - lu(231) * lu(1477) + lu(1499) = lu(1499) - lu(232) * lu(1477) + lu(1501) = lu(1501) - lu(233) * lu(1477) + lu(1502) = lu(1502) - lu(234) * lu(1477) + lu(1505) = lu(1505) - lu(235) * lu(1477) + lu(1509) = lu(1509) - lu(236) * lu(1477) + lu(1519) = lu(1519) - lu(230) * lu(1516) + lu(1524) = lu(1524) - lu(231) * lu(1516) + lu(1531) = lu(1531) - lu(232) * lu(1516) + lu(1533) = - lu(233) * lu(1516) + lu(1534) = lu(1534) - lu(234) * lu(1516) + lu(1537) = - lu(235) * lu(1516) + lu(1541) = lu(1541) - lu(236) * lu(1516) + lu(239) = 1._r8 / lu(239) + lu(240) = lu(240) * lu(239) + lu(241) = lu(241) * lu(239) + lu(242) = lu(242) * lu(239) + lu(243) = lu(243) * lu(239) + lu(244) = lu(244) * lu(239) + lu(245) = lu(245) * lu(239) + lu(246) = lu(246) * lu(239) + lu(247) = lu(247) * lu(239) + lu(248) = lu(248) * lu(239) + lu(249) = lu(249) * lu(239) + lu(250) = lu(250) * lu(239) + lu(465) = lu(465) - lu(240) * lu(464) + lu(466) = lu(466) - lu(241) * lu(464) + lu(467) = lu(467) - lu(242) * lu(464) + lu(474) = - lu(243) * lu(464) + lu(477) = lu(477) - lu(244) * lu(464) + lu(478) = lu(478) - lu(245) * lu(464) + lu(479) = lu(479) - lu(246) * lu(464) + lu(480) = - lu(247) * lu(464) + lu(481) = lu(481) - lu(248) * lu(464) + lu(482) = lu(482) - lu(249) * lu(464) + lu(483) = lu(483) - lu(250) * lu(464) + lu(505) = lu(505) - lu(240) * lu(504) + lu(506) = lu(506) - lu(241) * lu(504) + lu(507) = lu(507) - lu(242) * lu(504) + lu(514) = - lu(243) * lu(504) + lu(517) = lu(517) - lu(244) * lu(504) + lu(518) = lu(518) - lu(245) * lu(504) + lu(519) = lu(519) - lu(246) * lu(504) + lu(520) = - lu(247) * lu(504) + lu(521) = lu(521) - lu(248) * lu(504) + lu(522) = lu(522) - lu(249) * lu(504) + lu(523) = lu(523) - lu(250) * lu(504) + lu(1053) = - lu(240) * lu(1048) + lu(1054) = - lu(241) * lu(1048) + lu(1056) = lu(1056) - lu(242) * lu(1048) + lu(1071) = lu(1071) - lu(243) * lu(1048) + lu(1077) = lu(1077) - lu(244) * lu(1048) + lu(1078) = - lu(245) * lu(1048) + lu(1080) = - lu(246) * lu(1048) + lu(1081) = lu(1081) - lu(247) * lu(1048) + lu(1085) = lu(1085) - lu(248) * lu(1048) + lu(1086) = lu(1086) - lu(249) * lu(1048) + lu(1087) = lu(1087) - lu(250) * lu(1048) + lu(1343) = lu(1343) - lu(240) * lu(1336) + lu(1344) = lu(1344) - lu(241) * lu(1336) + lu(1346) = lu(1346) - lu(242) * lu(1336) + lu(1360) = lu(1360) - lu(243) * lu(1336) + lu(1366) = - lu(244) * lu(1336) + lu(1367) = lu(1367) - lu(245) * lu(1336) + lu(1369) = lu(1369) - lu(246) * lu(1336) + lu(1370) = lu(1370) - lu(247) * lu(1336) + lu(1374) = lu(1374) - lu(248) * lu(1336) + lu(1375) = lu(1375) - lu(249) * lu(1336) + lu(1376) = lu(1376) - lu(250) * lu(1336) + lu(1427) = lu(1427) - lu(240) * lu(1420) + lu(1428) = lu(1428) - lu(241) * lu(1420) + lu(1430) = lu(1430) - lu(242) * lu(1420) + lu(1444) = lu(1444) - lu(243) * lu(1420) + lu(1450) = - lu(244) * lu(1420) + lu(1451) = lu(1451) - lu(245) * lu(1420) + lu(1453) = lu(1453) - lu(246) * lu(1420) + lu(1454) = lu(1454) - lu(247) * lu(1420) + lu(1458) = lu(1458) - lu(248) * lu(1420) + lu(1459) = lu(1459) - lu(249) * lu(1420) + lu(1460) = lu(1460) - lu(250) * lu(1420) + lu(1662) = - lu(240) * lu(1661) + lu(1663) = - lu(241) * lu(1661) + lu(1664) = - lu(242) * lu(1661) + lu(1677) = lu(1677) - lu(243) * lu(1661) + lu(1683) = lu(1683) - lu(244) * lu(1661) + lu(1684) = - lu(245) * lu(1661) + lu(1686) = - lu(246) * lu(1661) + lu(1687) = lu(1687) - lu(247) * lu(1661) + lu(1691) = lu(1691) - lu(248) * lu(1661) + lu(1692) = lu(1692) - lu(249) * lu(1661) + lu(1693) = - lu(250) * lu(1661) end subroutine lu_fac06 - subroutine lu_fac07( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac07( lu ) 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,244) = 1._r8 / lu(k,244) - lu(k,245) = lu(k,245) * lu(k,244) - lu(k,246) = lu(k,246) * lu(k,244) - lu(k,247) = lu(k,247) * lu(k,244) - lu(k,248) = lu(k,248) * lu(k,244) - lu(k,249) = lu(k,249) * lu(k,244) - lu(k,250) = lu(k,250) * lu(k,244) - lu(k,251) = lu(k,251) * lu(k,244) - lu(k,252) = lu(k,252) * lu(k,244) - lu(k,253) = lu(k,253) * lu(k,244) - lu(k,254) = lu(k,254) * lu(k,244) - lu(k,255) = lu(k,255) * lu(k,244) - lu(k,270) = lu(k,270) - lu(k,245) * lu(k,269) - lu(k,271) = - lu(k,246) * lu(k,269) - lu(k,272) = - lu(k,247) * lu(k,269) - lu(k,273) = lu(k,273) - lu(k,248) * lu(k,269) - lu(k,274) = lu(k,274) - lu(k,249) * lu(k,269) - lu(k,275) = lu(k,275) - lu(k,250) * lu(k,269) - lu(k,278) = lu(k,278) - lu(k,251) * lu(k,269) - lu(k,279) = lu(k,279) - lu(k,252) * lu(k,269) - lu(k,280) = - lu(k,253) * lu(k,269) - lu(k,281) = lu(k,281) - lu(k,254) * lu(k,269) - lu(k,282) = lu(k,282) - lu(k,255) * lu(k,269) - lu(k,858) = lu(k,858) - lu(k,245) * lu(k,857) - lu(k,869) = lu(k,869) - lu(k,246) * lu(k,857) - lu(k,873) = - lu(k,247) * lu(k,857) - lu(k,875) = lu(k,875) - lu(k,248) * lu(k,857) - lu(k,878) = lu(k,878) - lu(k,249) * lu(k,857) - lu(k,880) = lu(k,880) - lu(k,250) * lu(k,857) - lu(k,887) = lu(k,887) - lu(k,251) * lu(k,857) - lu(k,889) = lu(k,889) - lu(k,252) * lu(k,857) - lu(k,890) = lu(k,890) - lu(k,253) * lu(k,857) - lu(k,898) = - lu(k,254) * lu(k,857) - lu(k,899) = lu(k,899) - lu(k,255) * lu(k,857) - lu(k,961) = lu(k,961) - lu(k,245) * lu(k,960) - lu(k,968) = lu(k,968) - lu(k,246) * lu(k,960) - lu(k,972) = lu(k,972) - lu(k,247) * lu(k,960) - lu(k,974) = lu(k,974) - lu(k,248) * lu(k,960) - lu(k,977) = lu(k,977) - lu(k,249) * lu(k,960) - lu(k,979) = lu(k,979) - lu(k,250) * lu(k,960) - lu(k,986) = lu(k,986) - lu(k,251) * lu(k,960) - lu(k,988) = lu(k,988) - lu(k,252) * lu(k,960) - lu(k,989) = lu(k,989) - lu(k,253) * lu(k,960) - lu(k,997) = lu(k,997) - lu(k,254) * lu(k,960) - lu(k,998) = lu(k,998) - lu(k,255) * lu(k,960) - lu(k,1014) = lu(k,1014) - lu(k,245) * lu(k,1013) - lu(k,1016) = lu(k,1016) - lu(k,246) * lu(k,1013) - lu(k,1017) = - lu(k,247) * lu(k,1013) - lu(k,1018) = lu(k,1018) - lu(k,248) * lu(k,1013) - lu(k,1020) = lu(k,1020) - lu(k,249) * lu(k,1013) - lu(k,1022) = lu(k,1022) - lu(k,250) * lu(k,1013) - lu(k,1029) = lu(k,1029) - lu(k,251) * lu(k,1013) - lu(k,1031) = lu(k,1031) - lu(k,252) * lu(k,1013) - lu(k,1032) = lu(k,1032) - lu(k,253) * lu(k,1013) - lu(k,1040) = lu(k,1040) - lu(k,254) * lu(k,1013) - lu(k,1041) = lu(k,1041) - lu(k,255) * lu(k,1013) - lu(k,1257) = lu(k,1257) - lu(k,245) * lu(k,1256) - lu(k,1260) = lu(k,1260) - lu(k,246) * lu(k,1256) - lu(k,1263) = lu(k,1263) - lu(k,247) * lu(k,1256) - lu(k,1265) = - lu(k,248) * lu(k,1256) - lu(k,1268) = lu(k,1268) - lu(k,249) * lu(k,1256) - lu(k,1270) = lu(k,1270) - lu(k,250) * lu(k,1256) - lu(k,1277) = lu(k,1277) - lu(k,251) * lu(k,1256) - lu(k,1279) = lu(k,1279) - lu(k,252) * lu(k,1256) - lu(k,1280) = lu(k,1280) - lu(k,253) * lu(k,1256) - lu(k,1288) = lu(k,1288) - lu(k,254) * lu(k,1256) - lu(k,1289) = lu(k,1289) - lu(k,255) * lu(k,1256) - lu(k,1379) = - lu(k,245) * lu(k,1378) - lu(k,1383) = - lu(k,246) * lu(k,1378) - lu(k,1386) = lu(k,1386) - lu(k,247) * lu(k,1378) - lu(k,1388) = lu(k,1388) - lu(k,248) * lu(k,1378) - lu(k,1391) = lu(k,1391) - lu(k,249) * lu(k,1378) - lu(k,1393) = lu(k,1393) - lu(k,250) * lu(k,1378) - lu(k,1400) = lu(k,1400) - lu(k,251) * lu(k,1378) - lu(k,1402) = lu(k,1402) - lu(k,252) * lu(k,1378) - lu(k,1403) = lu(k,1403) - lu(k,253) * lu(k,1378) - lu(k,1411) = lu(k,1411) - lu(k,254) * lu(k,1378) - lu(k,1412) = lu(k,1412) - lu(k,255) * lu(k,1378) - lu(k,257) = 1._r8 / lu(k,257) - lu(k,258) = lu(k,258) * lu(k,257) - lu(k,259) = lu(k,259) * lu(k,257) - lu(k,260) = lu(k,260) * lu(k,257) - lu(k,261) = lu(k,261) * lu(k,257) - lu(k,262) = lu(k,262) * lu(k,257) - lu(k,263) = lu(k,263) * lu(k,257) - lu(k,264) = lu(k,264) * lu(k,257) - lu(k,265) = lu(k,265) * lu(k,257) - lu(k,266) = lu(k,266) * lu(k,257) - lu(k,267) = lu(k,267) * lu(k,257) - lu(k,420) = - lu(k,258) * lu(k,418) - lu(k,422) = - lu(k,259) * lu(k,418) - lu(k,423) = lu(k,423) - lu(k,260) * lu(k,418) - lu(k,427) = - lu(k,261) * lu(k,418) - lu(k,429) = - lu(k,262) * lu(k,418) - lu(k,431) = - lu(k,263) * lu(k,418) - lu(k,434) = lu(k,434) - lu(k,264) * lu(k,418) - lu(k,435) = lu(k,435) - lu(k,265) * lu(k,418) - lu(k,436) = - lu(k,266) * lu(k,418) - lu(k,437) = lu(k,437) - lu(k,267) * lu(k,418) - lu(k,572) = lu(k,572) - lu(k,258) * lu(k,567) - lu(k,574) = lu(k,574) - lu(k,259) * lu(k,567) - lu(k,575) = lu(k,575) - lu(k,260) * lu(k,567) - lu(k,580) = - lu(k,261) * lu(k,567) - lu(k,582) = lu(k,582) - lu(k,262) * lu(k,567) - lu(k,588) = lu(k,588) - lu(k,263) * lu(k,567) - lu(k,591) = lu(k,591) - lu(k,264) * lu(k,567) - lu(k,592) = lu(k,592) - lu(k,265) * lu(k,567) - lu(k,593) = lu(k,593) - lu(k,266) * lu(k,567) - lu(k,594) = lu(k,594) - lu(k,267) * lu(k,567) - lu(k,684) = lu(k,684) - lu(k,258) * lu(k,680) - lu(k,686) = lu(k,686) - lu(k,259) * lu(k,680) - lu(k,687) = lu(k,687) - lu(k,260) * lu(k,680) - lu(k,693) = lu(k,693) - lu(k,261) * lu(k,680) - lu(k,695) = lu(k,695) - lu(k,262) * lu(k,680) - lu(k,701) = lu(k,701) - lu(k,263) * lu(k,680) - lu(k,704) = lu(k,704) - lu(k,264) * lu(k,680) - lu(k,705) = lu(k,705) - lu(k,265) * lu(k,680) - lu(k,706) = lu(k,706) - lu(k,266) * lu(k,680) - lu(k,707) = lu(k,707) - lu(k,267) * lu(k,680) - lu(k,752) = lu(k,752) - lu(k,258) * lu(k,747) - lu(k,754) = lu(k,754) - lu(k,259) * lu(k,747) - lu(k,755) = lu(k,755) - lu(k,260) * lu(k,747) - lu(k,762) = lu(k,762) - lu(k,261) * lu(k,747) - lu(k,764) = lu(k,764) - lu(k,262) * lu(k,747) - lu(k,770) = lu(k,770) - lu(k,263) * lu(k,747) - lu(k,773) = lu(k,773) - lu(k,264) * lu(k,747) - lu(k,774) = lu(k,774) - lu(k,265) * lu(k,747) - lu(k,775) = lu(k,775) - lu(k,266) * lu(k,747) - lu(k,776) = lu(k,776) - lu(k,267) * lu(k,747) - lu(k,1093) = - lu(k,258) * lu(k,1088) - lu(k,1097) = lu(k,1097) - lu(k,259) * lu(k,1088) - lu(k,1099) = lu(k,1099) - lu(k,260) * lu(k,1088) - lu(k,1108) = lu(k,1108) - lu(k,261) * lu(k,1088) - lu(k,1111) = - lu(k,262) * lu(k,1088) - lu(k,1117) = - lu(k,263) * lu(k,1088) - lu(k,1121) = - lu(k,264) * lu(k,1088) - lu(k,1122) = lu(k,1122) - lu(k,265) * lu(k,1088) - lu(k,1123) = lu(k,1123) - lu(k,266) * lu(k,1088) - lu(k,1124) = lu(k,1124) - lu(k,267) * lu(k,1088) - lu(k,1507) = lu(k,1507) - lu(k,258) * lu(k,1504) - lu(k,1512) = lu(k,1512) - lu(k,259) * lu(k,1504) - lu(k,1514) = lu(k,1514) - lu(k,260) * lu(k,1504) - lu(k,1523) = lu(k,1523) - lu(k,261) * lu(k,1504) - lu(k,1526) = lu(k,1526) - lu(k,262) * lu(k,1504) - lu(k,1532) = lu(k,1532) - lu(k,263) * lu(k,1504) - lu(k,1536) = lu(k,1536) - lu(k,264) * lu(k,1504) - lu(k,1537) = - lu(k,265) * lu(k,1504) - lu(k,1538) = lu(k,1538) - lu(k,266) * lu(k,1504) - lu(k,1539) = lu(k,1539) - lu(k,267) * lu(k,1504) - lu(k,1662) = lu(k,1662) - lu(k,258) * lu(k,1658) - lu(k,1667) = lu(k,1667) - lu(k,259) * lu(k,1658) - lu(k,1669) = lu(k,1669) - lu(k,260) * lu(k,1658) - lu(k,1678) = lu(k,1678) - lu(k,261) * lu(k,1658) - lu(k,1681) = lu(k,1681) - lu(k,262) * lu(k,1658) - lu(k,1687) = lu(k,1687) - lu(k,263) * lu(k,1658) - lu(k,1691) = lu(k,1691) - lu(k,264) * lu(k,1658) - lu(k,1692) = lu(k,1692) - lu(k,265) * lu(k,1658) - lu(k,1693) = lu(k,1693) - lu(k,266) * lu(k,1658) - lu(k,1694) = lu(k,1694) - lu(k,267) * lu(k,1658) - lu(k,1741) = lu(k,1741) - lu(k,258) * lu(k,1733) - lu(k,1745) = lu(k,1745) - lu(k,259) * lu(k,1733) - lu(k,1747) = lu(k,1747) - lu(k,260) * lu(k,1733) - lu(k,1756) = lu(k,1756) - lu(k,261) * lu(k,1733) - lu(k,1759) = lu(k,1759) - lu(k,262) * lu(k,1733) - lu(k,1765) = lu(k,1765) - lu(k,263) * lu(k,1733) - lu(k,1769) = lu(k,1769) - lu(k,264) * lu(k,1733) - lu(k,1770) = - lu(k,265) * lu(k,1733) - lu(k,1771) = lu(k,1771) - lu(k,266) * lu(k,1733) - lu(k,1772) = lu(k,1772) - lu(k,267) * lu(k,1733) - lu(k,1794) = - lu(k,258) * lu(k,1785) - lu(k,1798) = - lu(k,259) * lu(k,1785) - lu(k,1800) = lu(k,1800) - lu(k,260) * lu(k,1785) - lu(k,1809) = lu(k,1809) - lu(k,261) * lu(k,1785) - lu(k,1812) = lu(k,1812) - lu(k,262) * lu(k,1785) - lu(k,1818) = - lu(k,263) * lu(k,1785) - lu(k,1822) = - lu(k,264) * lu(k,1785) - lu(k,1823) = lu(k,1823) - lu(k,265) * lu(k,1785) - lu(k,1824) = lu(k,1824) - lu(k,266) * lu(k,1785) - lu(k,1825) = lu(k,1825) - lu(k,267) * lu(k,1785) - 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,273) = lu(k,273) * lu(k,270) - lu(k,274) = lu(k,274) * lu(k,270) - lu(k,275) = lu(k,275) * lu(k,270) - lu(k,276) = lu(k,276) * lu(k,270) - lu(k,277) = lu(k,277) * lu(k,270) - lu(k,278) = lu(k,278) * lu(k,270) - lu(k,279) = lu(k,279) * lu(k,270) - lu(k,280) = lu(k,280) * lu(k,270) - lu(k,281) = lu(k,281) * lu(k,270) - lu(k,282) = lu(k,282) * lu(k,270) - lu(k,753) = lu(k,753) - lu(k,271) * lu(k,748) - lu(k,754) = lu(k,754) - lu(k,272) * lu(k,748) - lu(k,755) = lu(k,755) - lu(k,273) * lu(k,748) - lu(k,757) = - lu(k,274) * lu(k,748) - lu(k,758) = lu(k,758) - lu(k,275) * lu(k,748) - lu(k,759) = lu(k,759) - lu(k,276) * lu(k,748) - lu(k,762) = lu(k,762) - lu(k,277) * lu(k,748) - lu(k,764) = lu(k,764) - lu(k,278) * lu(k,748) - lu(k,766) = - lu(k,279) * lu(k,748) - lu(k,767) = lu(k,767) - lu(k,280) * lu(k,748) - lu(k,774) = lu(k,774) - lu(k,281) * lu(k,748) - lu(k,775) = lu(k,775) - lu(k,282) * lu(k,748) - lu(k,869) = lu(k,869) - lu(k,271) * lu(k,858) - lu(k,873) = lu(k,873) - lu(k,272) * lu(k,858) - lu(k,875) = lu(k,875) - lu(k,273) * lu(k,858) - lu(k,878) = lu(k,878) - lu(k,274) * lu(k,858) - lu(k,880) = lu(k,880) - lu(k,275) * lu(k,858) - lu(k,881) = lu(k,881) - lu(k,276) * lu(k,858) - lu(k,884) = lu(k,884) - lu(k,277) * lu(k,858) - lu(k,887) = lu(k,887) - lu(k,278) * lu(k,858) - lu(k,889) = lu(k,889) - lu(k,279) * lu(k,858) - lu(k,890) = lu(k,890) - lu(k,280) * lu(k,858) - lu(k,898) = lu(k,898) - lu(k,281) * lu(k,858) - lu(k,899) = lu(k,899) - lu(k,282) * lu(k,858) - lu(k,968) = lu(k,968) - lu(k,271) * lu(k,961) - lu(k,972) = lu(k,972) - lu(k,272) * lu(k,961) - lu(k,974) = lu(k,974) - lu(k,273) * lu(k,961) - lu(k,977) = lu(k,977) - lu(k,274) * lu(k,961) - lu(k,979) = lu(k,979) - lu(k,275) * lu(k,961) - lu(k,980) = lu(k,980) - lu(k,276) * lu(k,961) - lu(k,983) = lu(k,983) - lu(k,277) * lu(k,961) - lu(k,986) = lu(k,986) - lu(k,278) * lu(k,961) - lu(k,988) = lu(k,988) - lu(k,279) * lu(k,961) - lu(k,989) = lu(k,989) - lu(k,280) * lu(k,961) - lu(k,997) = lu(k,997) - lu(k,281) * lu(k,961) - lu(k,998) = lu(k,998) - lu(k,282) * lu(k,961) - lu(k,1016) = lu(k,1016) - lu(k,271) * lu(k,1014) - lu(k,1017) = lu(k,1017) - lu(k,272) * lu(k,1014) - lu(k,1018) = lu(k,1018) - lu(k,273) * lu(k,1014) - lu(k,1020) = lu(k,1020) - lu(k,274) * lu(k,1014) - lu(k,1022) = lu(k,1022) - lu(k,275) * lu(k,1014) - lu(k,1023) = lu(k,1023) - lu(k,276) * lu(k,1014) - lu(k,1026) = lu(k,1026) - lu(k,277) * lu(k,1014) - lu(k,1029) = lu(k,1029) - lu(k,278) * lu(k,1014) - lu(k,1031) = lu(k,1031) - lu(k,279) * lu(k,1014) - lu(k,1032) = lu(k,1032) - lu(k,280) * lu(k,1014) - lu(k,1040) = lu(k,1040) - lu(k,281) * lu(k,1014) - lu(k,1041) = lu(k,1041) - lu(k,282) * lu(k,1014) - lu(k,1139) = - lu(k,271) * lu(k,1130) - lu(k,1142) = lu(k,1142) - lu(k,272) * lu(k,1130) - lu(k,1144) = lu(k,1144) - lu(k,273) * lu(k,1130) - lu(k,1147) = - lu(k,274) * lu(k,1130) - lu(k,1149) = lu(k,1149) - lu(k,275) * lu(k,1130) - lu(k,1150) = - lu(k,276) * lu(k,1130) - lu(k,1153) = lu(k,1153) - lu(k,277) * lu(k,1130) - lu(k,1156) = lu(k,1156) - lu(k,278) * lu(k,1130) - lu(k,1158) = - lu(k,279) * lu(k,1130) - lu(k,1159) = lu(k,1159) - lu(k,280) * lu(k,1130) - lu(k,1167) = - lu(k,281) * lu(k,1130) - lu(k,1168) = lu(k,1168) - lu(k,282) * lu(k,1130) - lu(k,1260) = lu(k,1260) - lu(k,271) * lu(k,1257) - lu(k,1263) = lu(k,1263) - lu(k,272) * lu(k,1257) - lu(k,1265) = lu(k,1265) - lu(k,273) * lu(k,1257) - lu(k,1268) = lu(k,1268) - lu(k,274) * lu(k,1257) - lu(k,1270) = lu(k,1270) - lu(k,275) * lu(k,1257) - lu(k,1271) = lu(k,1271) - lu(k,276) * lu(k,1257) - lu(k,1274) = - lu(k,277) * lu(k,1257) - lu(k,1277) = lu(k,1277) - lu(k,278) * lu(k,1257) - lu(k,1279) = lu(k,1279) - lu(k,279) * lu(k,1257) - lu(k,1280) = lu(k,1280) - lu(k,280) * lu(k,1257) - lu(k,1288) = lu(k,1288) - lu(k,281) * lu(k,1257) - lu(k,1289) = lu(k,1289) - lu(k,282) * lu(k,1257) - lu(k,1340) = lu(k,1340) - lu(k,271) * lu(k,1328) - lu(k,1344) = - lu(k,272) * lu(k,1328) - lu(k,1346) = lu(k,1346) - lu(k,273) * lu(k,1328) - lu(k,1349) = lu(k,1349) - lu(k,274) * lu(k,1328) - lu(k,1351) = lu(k,1351) - lu(k,275) * lu(k,1328) - lu(k,1352) = lu(k,1352) - lu(k,276) * lu(k,1328) - lu(k,1355) = lu(k,1355) - lu(k,277) * lu(k,1328) - lu(k,1358) = lu(k,1358) - lu(k,278) * lu(k,1328) - lu(k,1360) = lu(k,1360) - lu(k,279) * lu(k,1328) - lu(k,1361) = lu(k,1361) - lu(k,280) * lu(k,1328) - lu(k,1369) = lu(k,1369) - lu(k,281) * lu(k,1328) - lu(k,1370) = lu(k,1370) - lu(k,282) * lu(k,1328) - lu(k,1383) = lu(k,1383) - lu(k,271) * lu(k,1379) - lu(k,1386) = lu(k,1386) - lu(k,272) * lu(k,1379) - lu(k,1388) = lu(k,1388) - lu(k,273) * lu(k,1379) - lu(k,1391) = lu(k,1391) - lu(k,274) * lu(k,1379) - lu(k,1393) = lu(k,1393) - lu(k,275) * lu(k,1379) - lu(k,1394) = lu(k,1394) - lu(k,276) * lu(k,1379) - lu(k,1397) = - lu(k,277) * lu(k,1379) - lu(k,1400) = lu(k,1400) - lu(k,278) * lu(k,1379) - lu(k,1402) = lu(k,1402) - lu(k,279) * lu(k,1379) - lu(k,1403) = lu(k,1403) - lu(k,280) * lu(k,1379) - lu(k,1411) = lu(k,1411) - lu(k,281) * lu(k,1379) - lu(k,1412) = lu(k,1412) - lu(k,282) * lu(k,1379) - lu(k,1742) = - lu(k,271) * lu(k,1734) - lu(k,1745) = lu(k,1745) - lu(k,272) * lu(k,1734) - lu(k,1747) = lu(k,1747) - lu(k,273) * lu(k,1734) - lu(k,1750) = lu(k,1750) - lu(k,274) * lu(k,1734) - lu(k,1752) = lu(k,1752) - lu(k,275) * lu(k,1734) - lu(k,1753) = lu(k,1753) - lu(k,276) * lu(k,1734) - lu(k,1756) = lu(k,1756) - lu(k,277) * lu(k,1734) - lu(k,1759) = lu(k,1759) - lu(k,278) * lu(k,1734) - lu(k,1761) = lu(k,1761) - lu(k,279) * lu(k,1734) - lu(k,1762) = lu(k,1762) - lu(k,280) * lu(k,1734) - lu(k,1770) = lu(k,1770) - lu(k,281) * lu(k,1734) - lu(k,1771) = lu(k,1771) - lu(k,282) * lu(k,1734) - end do + real(r8), intent(inout) :: lu(:) + lu(253) = 1._r8 / lu(253) + lu(254) = lu(254) * lu(253) + lu(255) = lu(255) * lu(253) + lu(256) = lu(256) * lu(253) + lu(257) = lu(257) * lu(253) + lu(258) = lu(258) * lu(253) + lu(259) = lu(259) * lu(253) + lu(260) = lu(260) * lu(253) + lu(261) = lu(261) * lu(253) + lu(262) = lu(262) * lu(253) + lu(263) = lu(263) * lu(253) + lu(264) = lu(264) * lu(253) + lu(709) = lu(709) - lu(254) * lu(703) + lu(710) = lu(710) - lu(255) * lu(703) + lu(711) = lu(711) - lu(256) * lu(703) + lu(712) = - lu(257) * lu(703) + lu(714) = lu(714) - lu(258) * lu(703) + lu(717) = lu(717) - lu(259) * lu(703) + lu(719) = lu(719) - lu(260) * lu(703) + lu(722) = - lu(261) * lu(703) + lu(723) = lu(723) - lu(262) * lu(703) + lu(724) = lu(724) - lu(263) * lu(703) + lu(725) = lu(725) - lu(264) * lu(703) + lu(809) = lu(809) - lu(254) * lu(798) + lu(813) = lu(813) - lu(255) * lu(798) + lu(814) = lu(814) - lu(256) * lu(798) + lu(817) = lu(817) - lu(257) * lu(798) + lu(820) = lu(820) - lu(258) * lu(798) + lu(823) = lu(823) - lu(259) * lu(798) + lu(825) = lu(825) - lu(260) * lu(798) + lu(828) = lu(828) - lu(261) * lu(798) + lu(829) = lu(829) - lu(262) * lu(798) + lu(831) = lu(831) - lu(263) * lu(798) + lu(833) = lu(833) - lu(264) * lu(798) + lu(1058) = - lu(254) * lu(1049) + lu(1061) = lu(1061) - lu(255) * lu(1049) + lu(1062) = lu(1062) - lu(256) * lu(1049) + lu(1065) = - lu(257) * lu(1049) + lu(1068) = - lu(258) * lu(1049) + lu(1071) = lu(1071) - lu(259) * lu(1049) + lu(1073) = lu(1073) - lu(260) * lu(1049) + lu(1076) = - lu(261) * lu(1049) + lu(1077) = lu(1077) - lu(262) * lu(1049) + lu(1079) = - lu(263) * lu(1049) + lu(1081) = lu(1081) - lu(264) * lu(1049) + lu(1142) = lu(1142) - lu(254) * lu(1139) + lu(1146) = lu(1146) - lu(255) * lu(1139) + lu(1147) = lu(1147) - lu(256) * lu(1139) + lu(1150) = lu(1150) - lu(257) * lu(1139) + lu(1153) = lu(1153) - lu(258) * lu(1139) + lu(1156) = - lu(259) * lu(1139) + lu(1158) = lu(1158) - lu(260) * lu(1139) + lu(1161) = lu(1161) - lu(261) * lu(1139) + lu(1162) = lu(1162) - lu(262) * lu(1139) + lu(1164) = lu(1164) - lu(263) * lu(1139) + lu(1166) = lu(1166) - lu(264) * lu(1139) + lu(1263) = lu(1263) - lu(254) * lu(1251) + lu(1267) = - lu(255) * lu(1251) + lu(1268) = lu(1268) - lu(256) * lu(1251) + lu(1271) = lu(1271) - lu(257) * lu(1251) + lu(1274) = lu(1274) - lu(258) * lu(1251) + lu(1277) = lu(1277) - lu(259) * lu(1251) + lu(1279) = lu(1279) - lu(260) * lu(1251) + lu(1282) = lu(1282) - lu(261) * lu(1251) + lu(1283) = lu(1283) - lu(262) * lu(1251) + lu(1285) = lu(1285) - lu(263) * lu(1251) + lu(1287) = lu(1287) - lu(264) * lu(1251) + lu(1305) = - lu(254) * lu(1296) + lu(1308) = lu(1308) - lu(255) * lu(1296) + lu(1309) = lu(1309) - lu(256) * lu(1296) + lu(1312) = lu(1312) - lu(257) * lu(1296) + lu(1315) = - lu(258) * lu(1296) + lu(1318) = lu(1318) - lu(259) * lu(1296) + lu(1320) = lu(1320) - lu(260) * lu(1296) + lu(1323) = lu(1323) - lu(261) * lu(1296) + lu(1324) = lu(1324) - lu(262) * lu(1296) + lu(1326) = lu(1326) - lu(263) * lu(1296) + lu(1328) = lu(1328) - lu(264) * lu(1296) + lu(1393) = lu(1393) - lu(254) * lu(1391) + lu(1394) = lu(1394) - lu(255) * lu(1391) + lu(1395) = lu(1395) - lu(256) * lu(1391) + lu(1396) = lu(1396) - lu(257) * lu(1391) + lu(1399) = lu(1399) - lu(258) * lu(1391) + lu(1402) = lu(1402) - lu(259) * lu(1391) + lu(1404) = lu(1404) - lu(260) * lu(1391) + lu(1407) = lu(1407) - lu(261) * lu(1391) + lu(1408) = lu(1408) - lu(262) * lu(1391) + lu(1410) = lu(1410) - lu(263) * lu(1391) + lu(1412) = lu(1412) - lu(264) * lu(1391) + lu(1485) = lu(1485) - lu(254) * lu(1478) + lu(1489) = lu(1489) - lu(255) * lu(1478) + lu(1490) = lu(1490) - lu(256) * lu(1478) + lu(1493) = lu(1493) - lu(257) * lu(1478) + lu(1496) = lu(1496) - lu(258) * lu(1478) + lu(1499) = lu(1499) - lu(259) * lu(1478) + lu(1501) = lu(1501) - lu(260) * lu(1478) + lu(1504) = lu(1504) - lu(261) * lu(1478) + lu(1505) = lu(1505) - lu(262) * lu(1478) + lu(1507) = lu(1507) - lu(263) * lu(1478) + lu(1509) = lu(1509) - lu(264) * lu(1478) + lu(266) = 1._r8 / lu(266) + lu(267) = lu(267) * lu(266) + lu(268) = lu(268) * lu(266) + lu(269) = lu(269) * lu(266) + lu(270) = lu(270) * lu(266) + lu(271) = lu(271) * lu(266) + lu(272) = lu(272) * lu(266) + lu(273) = lu(273) * lu(266) + lu(274) = lu(274) * lu(266) + lu(275) = lu(275) * lu(266) + lu(276) = lu(276) * lu(266) + lu(432) = - lu(267) * lu(430) + lu(434) = - lu(268) * lu(430) + lu(435) = lu(435) - lu(269) * lu(430) + lu(437) = lu(437) - lu(270) * lu(430) + lu(438) = - lu(271) * lu(430) + lu(439) = - lu(272) * lu(430) + lu(440) = - lu(273) * lu(430) + lu(441) = lu(441) - lu(274) * lu(430) + lu(442) = - lu(275) * lu(430) + lu(449) = lu(449) - lu(276) * lu(430) + lu(559) = lu(559) - lu(267) * lu(554) + lu(561) = lu(561) - lu(268) * lu(554) + lu(562) = lu(562) - lu(269) * lu(554) + lu(564) = lu(564) - lu(270) * lu(554) + lu(566) = - lu(271) * lu(554) + lu(567) = lu(567) - lu(272) * lu(554) + lu(568) = lu(568) - lu(273) * lu(554) + lu(569) = lu(569) - lu(274) * lu(554) + lu(572) = lu(572) - lu(275) * lu(554) + lu(580) = lu(580) - lu(276) * lu(554) + lu(668) = lu(668) - lu(267) * lu(664) + lu(670) = lu(670) - lu(268) * lu(664) + lu(671) = lu(671) - lu(269) * lu(664) + lu(673) = lu(673) - lu(270) * lu(664) + lu(676) = lu(676) - lu(271) * lu(664) + lu(677) = lu(677) - lu(272) * lu(664) + lu(678) = lu(678) - lu(273) * lu(664) + lu(679) = lu(679) - lu(274) * lu(664) + lu(682) = lu(682) - lu(275) * lu(664) + lu(690) = lu(690) - lu(276) * lu(664) + lu(708) = lu(708) - lu(267) * lu(704) + lu(710) = lu(710) - lu(268) * lu(704) + lu(711) = lu(711) - lu(269) * lu(704) + lu(714) = lu(714) - lu(270) * lu(704) + lu(717) = lu(717) - lu(271) * lu(704) + lu(718) = lu(718) - lu(272) * lu(704) + lu(719) = lu(719) - lu(273) * lu(704) + lu(720) = lu(720) - lu(274) * lu(704) + lu(723) = lu(723) - lu(275) * lu(704) + lu(731) = lu(731) - lu(276) * lu(704) + lu(1098) = lu(1098) - lu(267) * lu(1095) + lu(1103) = lu(1103) - lu(268) * lu(1095) + lu(1104) = lu(1104) - lu(269) * lu(1095) + lu(1110) = - lu(270) * lu(1095) + lu(1113) = lu(1113) - lu(271) * lu(1095) + lu(1114) = lu(1114) - lu(272) * lu(1095) + lu(1115) = lu(1115) - lu(273) * lu(1095) + lu(1116) = lu(1116) - lu(274) * lu(1095) + lu(1119) = lu(1119) - lu(275) * lu(1095) + lu(1129) = lu(1129) - lu(276) * lu(1095) + lu(1183) = lu(1183) - lu(267) * lu(1179) + lu(1188) = lu(1188) - lu(268) * lu(1179) + lu(1189) = lu(1189) - lu(269) * lu(1179) + lu(1195) = lu(1195) - lu(270) * lu(1179) + lu(1198) = lu(1198) - lu(271) * lu(1179) + lu(1199) = lu(1199) - lu(272) * lu(1179) + lu(1200) = lu(1200) - lu(273) * lu(1179) + lu(1201) = lu(1201) - lu(274) * lu(1179) + lu(1204) = lu(1204) - lu(275) * lu(1179) + lu(1214) = lu(1214) - lu(276) * lu(1179) + lu(1304) = lu(1304) - lu(267) * lu(1297) + lu(1308) = lu(1308) - lu(268) * lu(1297) + lu(1309) = lu(1309) - lu(269) * lu(1297) + lu(1315) = lu(1315) - lu(270) * lu(1297) + lu(1318) = lu(1318) - lu(271) * lu(1297) + lu(1319) = lu(1319) - lu(272) * lu(1297) + lu(1320) = lu(1320) - lu(273) * lu(1297) + lu(1321) = lu(1321) - lu(274) * lu(1297) + lu(1324) = lu(1324) - lu(275) * lu(1297) + lu(1334) = lu(1334) - lu(276) * lu(1297) + lu(1629) = - lu(267) * lu(1624) + lu(1633) = lu(1633) - lu(268) * lu(1624) + lu(1634) = lu(1634) - lu(269) * lu(1624) + lu(1640) = lu(1640) - lu(270) * lu(1624) + lu(1643) = lu(1643) - lu(271) * lu(1624) + lu(1644) = - lu(272) * lu(1624) + lu(1645) = - lu(273) * lu(1624) + lu(1646) = - lu(274) * lu(1624) + lu(1649) = lu(1649) - lu(275) * lu(1624) + lu(1659) = lu(1659) - lu(276) * lu(1624) + lu(1715) = - lu(267) * lu(1706) + lu(1719) = - lu(268) * lu(1706) + lu(1720) = lu(1720) - lu(269) * lu(1706) + lu(1726) = lu(1726) - lu(270) * lu(1706) + lu(1729) = lu(1729) - lu(271) * lu(1706) + lu(1730) = - lu(272) * lu(1706) + lu(1731) = lu(1731) - lu(273) * lu(1706) + lu(1732) = - lu(274) * lu(1706) + lu(1735) = lu(1735) - lu(275) * lu(1706) + lu(1745) = lu(1745) - lu(276) * lu(1706) + lu(277) = 1._r8 / lu(277) + lu(278) = lu(278) * lu(277) + lu(279) = lu(279) * lu(277) + lu(280) = lu(280) * lu(277) + lu(281) = lu(281) * lu(277) + lu(282) = lu(282) * lu(277) + lu(283) = lu(283) * lu(277) + lu(284) = lu(284) * lu(277) + lu(285) = lu(285) * lu(277) + lu(286) = lu(286) * lu(277) + lu(287) = lu(287) * lu(277) + lu(288) = lu(288) * lu(277) + lu(289) = lu(289) * lu(277) + lu(814) = lu(814) - lu(278) * lu(799) + lu(817) = lu(817) - lu(279) * lu(799) + lu(818) = - lu(280) * lu(799) + lu(820) = lu(820) - lu(281) * lu(799) + lu(821) = lu(821) - lu(282) * lu(799) + lu(822) = - lu(283) * lu(799) + lu(825) = lu(825) - lu(284) * lu(799) + lu(828) = lu(828) - lu(285) * lu(799) + lu(829) = lu(829) - lu(286) * lu(799) + lu(830) = - lu(287) * lu(799) + lu(832) = - lu(288) * lu(799) + lu(839) = lu(839) - lu(289) * lu(799) + lu(856) = lu(856) - lu(278) * lu(842) + lu(859) = - lu(279) * lu(842) + lu(860) = lu(860) - lu(280) * lu(842) + lu(862) = - lu(281) * lu(842) + lu(863) = - lu(282) * lu(842) + lu(864) = lu(864) - lu(283) * lu(842) + lu(867) = lu(867) - lu(284) * lu(842) + lu(870) = - lu(285) * lu(842) + lu(871) = lu(871) - lu(286) * lu(842) + lu(872) = - lu(287) * lu(842) + lu(874) = - lu(288) * lu(842) + lu(881) = lu(881) - lu(289) * lu(842) + lu(976) = lu(976) - lu(278) * lu(962) + lu(979) = - lu(279) * lu(962) + lu(980) = lu(980) - lu(280) * lu(962) + lu(982) = lu(982) - lu(281) * lu(962) + lu(983) = lu(983) - lu(282) * lu(962) + lu(984) = lu(984) - lu(283) * lu(962) + lu(987) = lu(987) - lu(284) * lu(962) + lu(990) = - lu(285) * lu(962) + lu(991) = lu(991) - lu(286) * lu(962) + lu(992) = - lu(287) * lu(962) + lu(994) = - lu(288) * lu(962) + lu(1001) = lu(1001) - lu(289) * lu(962) + lu(1018) = lu(1018) - lu(278) * lu(1004) + lu(1021) = - lu(279) * lu(1004) + lu(1022) = - lu(280) * lu(1004) + lu(1024) = lu(1024) - lu(281) * lu(1004) + lu(1025) = - lu(282) * lu(1004) + lu(1026) = lu(1026) - lu(283) * lu(1004) + lu(1029) = lu(1029) - lu(284) * lu(1004) + lu(1032) = - lu(285) * lu(1004) + lu(1033) = - lu(286) * lu(1004) + lu(1034) = lu(1034) - lu(287) * lu(1004) + lu(1036) = - lu(288) * lu(1004) + lu(1043) = lu(1043) - lu(289) * lu(1004) + lu(1268) = lu(1268) - lu(278) * lu(1252) + lu(1271) = lu(1271) - lu(279) * lu(1252) + lu(1272) = - lu(280) * lu(1252) + lu(1274) = lu(1274) - lu(281) * lu(1252) + lu(1275) = - lu(282) * lu(1252) + lu(1276) = lu(1276) - lu(283) * lu(1252) + lu(1279) = lu(1279) - lu(284) * lu(1252) + lu(1282) = lu(1282) - lu(285) * lu(1252) + lu(1283) = lu(1283) - lu(286) * lu(1252) + lu(1284) = - lu(287) * lu(1252) + lu(1286) = - lu(288) * lu(1252) + lu(1293) = lu(1293) - lu(289) * lu(1252) + lu(1351) = lu(1351) - lu(278) * lu(1337) + lu(1354) = - lu(279) * lu(1337) + lu(1355) = - lu(280) * lu(1337) + lu(1357) = lu(1357) - lu(281) * lu(1337) + lu(1358) = - lu(282) * lu(1337) + lu(1359) = lu(1359) - lu(283) * lu(1337) + lu(1362) = lu(1362) - lu(284) * lu(1337) + lu(1365) = - lu(285) * lu(1337) + lu(1366) = lu(1366) - lu(286) * lu(1337) + lu(1367) = lu(1367) - lu(287) * lu(1337) + lu(1369) = lu(1369) - lu(288) * lu(1337) + lu(1376) = lu(1376) - lu(289) * lu(1337) + lu(1435) = lu(1435) - lu(278) * lu(1421) + lu(1438) = - lu(279) * lu(1421) + lu(1439) = - lu(280) * lu(1421) + lu(1441) = lu(1441) - lu(281) * lu(1421) + lu(1442) = - lu(282) * lu(1421) + lu(1443) = - lu(283) * lu(1421) + lu(1446) = lu(1446) - lu(284) * lu(1421) + lu(1449) = - lu(285) * lu(1421) + lu(1450) = lu(1450) - lu(286) * lu(1421) + lu(1451) = lu(1451) - lu(287) * lu(1421) + lu(1453) = lu(1453) - lu(288) * lu(1421) + lu(1460) = lu(1460) - lu(289) * lu(1421) + lu(1522) = lu(1522) - lu(278) * lu(1517) + lu(1525) = - lu(279) * lu(1517) + lu(1526) = - lu(280) * lu(1517) + lu(1528) = lu(1528) - lu(281) * lu(1517) + lu(1529) = - lu(282) * lu(1517) + lu(1530) = - lu(283) * lu(1517) + lu(1533) = lu(1533) - lu(284) * lu(1517) + lu(1536) = - lu(285) * lu(1517) + lu(1537) = lu(1537) - lu(286) * lu(1517) + lu(1538) = - lu(287) * lu(1517) + lu(1540) = - lu(288) * lu(1517) + lu(1547) = lu(1547) - lu(289) * lu(1517) end subroutine lu_fac07 - subroutine lu_fac08( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac08( lu ) 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,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,291) = lu(k,291) * lu(k,285) - lu(k,292) = lu(k,292) * lu(k,285) - lu(k,293) = lu(k,293) * lu(k,285) - lu(k,294) = lu(k,294) * lu(k,285) - lu(k,295) = lu(k,295) * lu(k,285) - lu(k,296) = lu(k,296) * lu(k,285) - lu(k,575) = lu(k,575) - lu(k,286) * lu(k,568) - lu(k,576) = - lu(k,287) * lu(k,568) - lu(k,577) = lu(k,577) - lu(k,288) * lu(k,568) - lu(k,578) = lu(k,578) - lu(k,289) * lu(k,568) - lu(k,582) = lu(k,582) - lu(k,290) * lu(k,568) - lu(k,583) = lu(k,583) - lu(k,291) * lu(k,568) - lu(k,584) = lu(k,584) - lu(k,292) * lu(k,568) - lu(k,586) = lu(k,586) - lu(k,293) * lu(k,568) - lu(k,590) = lu(k,590) - lu(k,294) * lu(k,568) - lu(k,592) = lu(k,592) - lu(k,295) * lu(k,568) - lu(k,594) = lu(k,594) - lu(k,296) * lu(k,568) - lu(k,974) = lu(k,974) - lu(k,286) * lu(k,962) - lu(k,976) = - lu(k,287) * lu(k,962) - lu(k,979) = lu(k,979) - lu(k,288) * lu(k,962) - lu(k,980) = lu(k,980) - lu(k,289) * lu(k,962) - lu(k,986) = lu(k,986) - lu(k,290) * lu(k,962) - lu(k,987) = lu(k,987) - lu(k,291) * lu(k,962) - lu(k,988) = lu(k,988) - lu(k,292) * lu(k,962) - lu(k,990) = lu(k,990) - lu(k,293) * lu(k,962) - lu(k,995) = lu(k,995) - lu(k,294) * lu(k,962) - lu(k,997) = lu(k,997) - lu(k,295) * lu(k,962) - lu(k,999) = lu(k,999) - lu(k,296) * lu(k,962) - lu(k,1018) = lu(k,1018) - lu(k,286) * lu(k,1015) - lu(k,1019) = lu(k,1019) - lu(k,287) * lu(k,1015) - lu(k,1022) = lu(k,1022) - lu(k,288) * lu(k,1015) - lu(k,1023) = lu(k,1023) - lu(k,289) * lu(k,1015) - lu(k,1029) = lu(k,1029) - lu(k,290) * lu(k,1015) - lu(k,1030) = lu(k,1030) - lu(k,291) * lu(k,1015) - lu(k,1031) = lu(k,1031) - lu(k,292) * lu(k,1015) - lu(k,1033) = lu(k,1033) - lu(k,293) * lu(k,1015) - lu(k,1038) = lu(k,1038) - lu(k,294) * lu(k,1015) - lu(k,1040) = lu(k,1040) - lu(k,295) * lu(k,1015) - lu(k,1042) = lu(k,1042) - lu(k,296) * lu(k,1015) - lu(k,1265) = lu(k,1265) - lu(k,286) * lu(k,1258) - lu(k,1267) = - lu(k,287) * lu(k,1258) - lu(k,1270) = lu(k,1270) - lu(k,288) * lu(k,1258) - lu(k,1271) = lu(k,1271) - lu(k,289) * lu(k,1258) - lu(k,1277) = lu(k,1277) - lu(k,290) * lu(k,1258) - lu(k,1278) = lu(k,1278) - lu(k,291) * lu(k,1258) - lu(k,1279) = lu(k,1279) - lu(k,292) * lu(k,1258) - lu(k,1281) = lu(k,1281) - lu(k,293) * lu(k,1258) - lu(k,1286) = lu(k,1286) - lu(k,294) * lu(k,1258) - lu(k,1288) = lu(k,1288) - lu(k,295) * lu(k,1258) - lu(k,1290) = - lu(k,296) * lu(k,1258) - lu(k,1301) = - lu(k,286) * lu(k,1294) - lu(k,1303) = lu(k,1303) - lu(k,287) * lu(k,1294) - lu(k,1306) = lu(k,1306) - lu(k,288) * lu(k,1294) - lu(k,1307) = lu(k,1307) - lu(k,289) * lu(k,1294) - lu(k,1313) = lu(k,1313) - lu(k,290) * lu(k,1294) - lu(k,1314) = lu(k,1314) - lu(k,291) * lu(k,1294) - lu(k,1315) = lu(k,1315) - lu(k,292) * lu(k,1294) - lu(k,1317) = lu(k,1317) - lu(k,293) * lu(k,1294) - lu(k,1322) = lu(k,1322) - lu(k,294) * lu(k,1294) - lu(k,1324) = lu(k,1324) - lu(k,295) * lu(k,1294) - lu(k,1326) = lu(k,1326) - lu(k,296) * lu(k,1294) - lu(k,1346) = lu(k,1346) - lu(k,286) * lu(k,1329) - lu(k,1348) = lu(k,1348) - lu(k,287) * lu(k,1329) - lu(k,1351) = lu(k,1351) - lu(k,288) * lu(k,1329) - lu(k,1352) = lu(k,1352) - lu(k,289) * lu(k,1329) - lu(k,1358) = lu(k,1358) - lu(k,290) * lu(k,1329) - lu(k,1359) = lu(k,1359) - lu(k,291) * lu(k,1329) - lu(k,1360) = lu(k,1360) - lu(k,292) * lu(k,1329) - lu(k,1362) = - lu(k,293) * lu(k,1329) - lu(k,1367) = - lu(k,294) * lu(k,1329) - lu(k,1369) = lu(k,1369) - lu(k,295) * lu(k,1329) - lu(k,1371) = lu(k,1371) - lu(k,296) * lu(k,1329) - lu(k,1388) = lu(k,1388) - lu(k,286) * lu(k,1380) - lu(k,1390) = - lu(k,287) * lu(k,1380) - lu(k,1393) = lu(k,1393) - lu(k,288) * lu(k,1380) - lu(k,1394) = lu(k,1394) - lu(k,289) * lu(k,1380) - lu(k,1400) = lu(k,1400) - lu(k,290) * lu(k,1380) - lu(k,1401) = lu(k,1401) - lu(k,291) * lu(k,1380) - lu(k,1402) = lu(k,1402) - lu(k,292) * lu(k,1380) - lu(k,1404) = lu(k,1404) - lu(k,293) * lu(k,1380) - lu(k,1409) = lu(k,1409) - lu(k,294) * lu(k,1380) - lu(k,1411) = lu(k,1411) - lu(k,295) * lu(k,1380) - lu(k,1413) = lu(k,1413) - lu(k,296) * lu(k,1380) - lu(k,1426) = lu(k,1426) - lu(k,286) * lu(k,1416) - lu(k,1428) = - lu(k,287) * lu(k,1416) - lu(k,1431) = lu(k,1431) - lu(k,288) * lu(k,1416) - lu(k,1432) = lu(k,1432) - lu(k,289) * lu(k,1416) - lu(k,1438) = lu(k,1438) - lu(k,290) * lu(k,1416) - lu(k,1439) = lu(k,1439) - lu(k,291) * lu(k,1416) - lu(k,1440) = lu(k,1440) - lu(k,292) * lu(k,1416) - lu(k,1442) = lu(k,1442) - lu(k,293) * lu(k,1416) - lu(k,1447) = lu(k,1447) - lu(k,294) * lu(k,1416) - lu(k,1449) = lu(k,1449) - lu(k,295) * lu(k,1416) - lu(k,1451) = - lu(k,296) * lu(k,1416) - lu(k,1626) = lu(k,1626) - lu(k,286) * lu(k,1617) - lu(k,1628) = - lu(k,287) * lu(k,1617) - lu(k,1631) = lu(k,1631) - lu(k,288) * lu(k,1617) - lu(k,1632) = lu(k,1632) - lu(k,289) * lu(k,1617) - lu(k,1638) = lu(k,1638) - lu(k,290) * lu(k,1617) - lu(k,1639) = lu(k,1639) - lu(k,291) * lu(k,1617) - lu(k,1640) = lu(k,1640) - lu(k,292) * lu(k,1617) - lu(k,1642) = lu(k,1642) - lu(k,293) * lu(k,1617) - lu(k,1647) = lu(k,1647) - lu(k,294) * lu(k,1617) - lu(k,1649) = lu(k,1649) - lu(k,295) * lu(k,1617) - lu(k,1651) = lu(k,1651) - lu(k,296) * lu(k,1617) - lu(k,1800) = lu(k,1800) - lu(k,286) * lu(k,1786) - lu(k,1802) = lu(k,1802) - lu(k,287) * lu(k,1786) - lu(k,1805) = lu(k,1805) - lu(k,288) * lu(k,1786) - lu(k,1806) = lu(k,1806) - lu(k,289) * lu(k,1786) - lu(k,1812) = lu(k,1812) - lu(k,290) * lu(k,1786) - lu(k,1813) = - lu(k,291) * lu(k,1786) - lu(k,1814) = lu(k,1814) - lu(k,292) * lu(k,1786) - lu(k,1816) = - lu(k,293) * lu(k,1786) - lu(k,1821) = lu(k,1821) - lu(k,294) * lu(k,1786) - lu(k,1823) = lu(k,1823) - lu(k,295) * lu(k,1786) - lu(k,1825) = lu(k,1825) - lu(k,296) * lu(k,1786) - 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,302) = lu(k,302) * lu(k,297) - lu(k,303) = lu(k,303) * lu(k,297) - lu(k,304) = lu(k,304) * lu(k,297) - lu(k,305) = lu(k,305) * lu(k,297) - lu(k,306) = lu(k,306) * lu(k,297) - lu(k,307) = lu(k,307) * lu(k,297) - lu(k,308) = lu(k,308) * lu(k,297) - lu(k,309) = lu(k,309) * lu(k,297) - lu(k,310) = lu(k,310) * lu(k,297) - lu(k,827) = lu(k,827) - lu(k,298) * lu(k,812) - lu(k,829) = lu(k,829) - lu(k,299) * lu(k,812) - lu(k,830) = - lu(k,300) * lu(k,812) - lu(k,831) = - lu(k,301) * lu(k,812) - lu(k,834) = - lu(k,302) * lu(k,812) - lu(k,837) = lu(k,837) - lu(k,303) * lu(k,812) - lu(k,839) = lu(k,839) - lu(k,304) * lu(k,812) - lu(k,841) = - lu(k,305) * lu(k,812) - lu(k,842) = lu(k,842) - lu(k,306) * lu(k,812) - lu(k,846) = - lu(k,307) * lu(k,812) - lu(k,850) = lu(k,850) - lu(k,308) * lu(k,812) - lu(k,851) = - lu(k,309) * lu(k,812) - lu(k,852) = lu(k,852) - lu(k,310) * lu(k,812) - lu(k,875) = lu(k,875) - lu(k,298) * lu(k,859) - lu(k,877) = - lu(k,299) * lu(k,859) - lu(k,878) = lu(k,878) - lu(k,300) * lu(k,859) - lu(k,879) = - lu(k,301) * lu(k,859) - lu(k,882) = lu(k,882) - lu(k,302) * lu(k,859) - lu(k,885) = - lu(k,303) * lu(k,859) - lu(k,887) = lu(k,887) - lu(k,304) * lu(k,859) - lu(k,889) = lu(k,889) - lu(k,305) * lu(k,859) - lu(k,890) = lu(k,890) - lu(k,306) * lu(k,859) - lu(k,894) = - lu(k,307) * lu(k,859) - lu(k,898) = lu(k,898) - lu(k,308) * lu(k,859) - lu(k,899) = lu(k,899) - lu(k,309) * lu(k,859) - lu(k,900) = lu(k,900) - lu(k,310) * lu(k,859) - lu(k,918) = lu(k,918) - lu(k,298) * lu(k,903) - lu(k,920) = lu(k,920) - lu(k,299) * lu(k,903) - lu(k,921) = - lu(k,300) * lu(k,903) - lu(k,922) = lu(k,922) - lu(k,301) * lu(k,903) - lu(k,925) = - lu(k,302) * lu(k,903) - lu(k,928) = - lu(k,303) * lu(k,903) - lu(k,930) = lu(k,930) - lu(k,304) * lu(k,903) - lu(k,932) = - lu(k,305) * lu(k,903) - lu(k,933) = lu(k,933) - lu(k,306) * lu(k,903) - lu(k,937) = - lu(k,307) * lu(k,903) - lu(k,941) = - lu(k,308) * lu(k,903) - lu(k,942) = lu(k,942) - lu(k,309) * lu(k,903) - lu(k,943) = lu(k,943) - lu(k,310) * lu(k,903) - lu(k,1059) = lu(k,1059) - lu(k,298) * lu(k,1044) - lu(k,1061) = lu(k,1061) - lu(k,299) * lu(k,1044) - lu(k,1062) = - lu(k,300) * lu(k,1044) - lu(k,1063) = lu(k,1063) - lu(k,301) * lu(k,1044) - lu(k,1066) = lu(k,1066) - lu(k,302) * lu(k,1044) - lu(k,1069) = - lu(k,303) * lu(k,1044) - lu(k,1071) = lu(k,1071) - lu(k,304) * lu(k,1044) - lu(k,1073) = - lu(k,305) * lu(k,1044) - lu(k,1074) = lu(k,1074) - lu(k,306) * lu(k,1044) - lu(k,1078) = - lu(k,307) * lu(k,1044) - lu(k,1082) = lu(k,1082) - lu(k,308) * lu(k,1044) - lu(k,1083) = lu(k,1083) - lu(k,309) * lu(k,1044) - lu(k,1084) = lu(k,1084) - lu(k,310) * lu(k,1044) - lu(k,1187) = lu(k,1187) - lu(k,298) * lu(k,1172) - lu(k,1189) = lu(k,1189) - lu(k,299) * lu(k,1172) - lu(k,1190) = - lu(k,300) * lu(k,1172) - lu(k,1191) = - lu(k,301) * lu(k,1172) - lu(k,1194) = - lu(k,302) * lu(k,1172) - lu(k,1197) = lu(k,1197) - lu(k,303) * lu(k,1172) - lu(k,1199) = lu(k,1199) - lu(k,304) * lu(k,1172) - lu(k,1201) = - lu(k,305) * lu(k,1172) - lu(k,1202) = lu(k,1202) - lu(k,306) * lu(k,1172) - lu(k,1206) = lu(k,1206) - lu(k,307) * lu(k,1172) - lu(k,1210) = lu(k,1210) - lu(k,308) * lu(k,1172) - lu(k,1211) = lu(k,1211) - lu(k,309) * lu(k,1172) - lu(k,1212) = lu(k,1212) - lu(k,310) * lu(k,1172) - lu(k,1346) = lu(k,1346) - lu(k,298) * lu(k,1330) - lu(k,1348) = lu(k,1348) - lu(k,299) * lu(k,1330) - lu(k,1349) = lu(k,1349) - lu(k,300) * lu(k,1330) - lu(k,1350) = - lu(k,301) * lu(k,1330) - lu(k,1353) = - lu(k,302) * lu(k,1330) - lu(k,1356) = - lu(k,303) * lu(k,1330) - lu(k,1358) = lu(k,1358) - lu(k,304) * lu(k,1330) - lu(k,1360) = lu(k,1360) - lu(k,305) * lu(k,1330) - lu(k,1361) = lu(k,1361) - lu(k,306) * lu(k,1330) - lu(k,1365) = - lu(k,307) * lu(k,1330) - lu(k,1369) = lu(k,1369) - lu(k,308) * lu(k,1330) - lu(k,1370) = lu(k,1370) - lu(k,309) * lu(k,1330) - lu(k,1371) = lu(k,1371) - lu(k,310) * lu(k,1330) - lu(k,1388) = lu(k,1388) - lu(k,298) * lu(k,1381) - lu(k,1390) = lu(k,1390) - lu(k,299) * lu(k,1381) - lu(k,1391) = lu(k,1391) - lu(k,300) * lu(k,1381) - lu(k,1392) = - lu(k,301) * lu(k,1381) - lu(k,1395) = lu(k,1395) - lu(k,302) * lu(k,1381) - lu(k,1398) = - lu(k,303) * lu(k,1381) - lu(k,1400) = lu(k,1400) - lu(k,304) * lu(k,1381) - lu(k,1402) = lu(k,1402) - lu(k,305) * lu(k,1381) - lu(k,1403) = lu(k,1403) - lu(k,306) * lu(k,1381) - lu(k,1407) = - lu(k,307) * lu(k,1381) - lu(k,1411) = lu(k,1411) - lu(k,308) * lu(k,1381) - lu(k,1412) = lu(k,1412) - lu(k,309) * lu(k,1381) - lu(k,1413) = lu(k,1413) - lu(k,310) * lu(k,1381) - lu(k,1557) = lu(k,1557) - lu(k,298) * lu(k,1542) - lu(k,1559) = - lu(k,299) * lu(k,1542) - lu(k,1560) = - lu(k,300) * lu(k,1542) - lu(k,1561) = - lu(k,301) * lu(k,1542) - lu(k,1564) = - lu(k,302) * lu(k,1542) - lu(k,1567) = lu(k,1567) - lu(k,303) * lu(k,1542) - lu(k,1569) = lu(k,1569) - lu(k,304) * lu(k,1542) - lu(k,1571) = - lu(k,305) * lu(k,1542) - lu(k,1572) = lu(k,1572) - lu(k,306) * lu(k,1542) - lu(k,1576) = lu(k,1576) - lu(k,307) * lu(k,1542) - lu(k,1580) = lu(k,1580) - lu(k,308) * lu(k,1542) - lu(k,1581) = lu(k,1581) - lu(k,309) * lu(k,1542) - lu(k,1582) = lu(k,1582) - lu(k,310) * lu(k,1542) - lu(k,1590) = lu(k,1590) - lu(k,298) * lu(k,1584) - lu(k,1592) = - lu(k,299) * lu(k,1584) - lu(k,1593) = - lu(k,300) * lu(k,1584) - lu(k,1594) = - lu(k,301) * lu(k,1584) - lu(k,1597) = - lu(k,302) * lu(k,1584) - lu(k,1600) = - lu(k,303) * lu(k,1584) - lu(k,1602) = lu(k,1602) - lu(k,304) * lu(k,1584) - lu(k,1604) = - lu(k,305) * lu(k,1584) - lu(k,1605) = lu(k,1605) - lu(k,306) * lu(k,1584) - lu(k,1609) = - lu(k,307) * lu(k,1584) - lu(k,1613) = lu(k,1613) - lu(k,308) * lu(k,1584) - lu(k,1614) = lu(k,1614) - lu(k,309) * lu(k,1584) - lu(k,1615) = lu(k,1615) - lu(k,310) * lu(k,1584) - end do + real(r8), intent(inout) :: lu(:) + lu(292) = 1._r8 / lu(292) + lu(293) = lu(293) * lu(292) + lu(294) = lu(294) * lu(292) + lu(295) = lu(295) * lu(292) + lu(296) = lu(296) * lu(292) + lu(297) = lu(297) * lu(292) + lu(298) = lu(298) * lu(292) + lu(299) = lu(299) * lu(292) + lu(300) = lu(300) * lu(292) + lu(301) = lu(301) * lu(292) + lu(302) = lu(302) * lu(292) + lu(303) = lu(303) * lu(292) + lu(562) = lu(562) - lu(293) * lu(555) + lu(564) = lu(564) - lu(294) * lu(555) + lu(565) = - lu(295) * lu(555) + lu(568) = lu(568) - lu(296) * lu(555) + lu(570) = lu(570) - lu(297) * lu(555) + lu(571) = lu(571) - lu(298) * lu(555) + lu(573) = lu(573) - lu(299) * lu(555) + lu(574) = lu(574) - lu(300) * lu(555) + lu(576) = lu(576) - lu(301) * lu(555) + lu(577) = lu(577) - lu(302) * lu(555) + lu(580) = lu(580) - lu(303) * lu(555) + lu(1147) = lu(1147) - lu(293) * lu(1140) + lu(1153) = lu(1153) - lu(294) * lu(1140) + lu(1155) = - lu(295) * lu(1140) + lu(1158) = lu(1158) - lu(296) * lu(1140) + lu(1160) = lu(1160) - lu(297) * lu(1140) + lu(1161) = lu(1161) - lu(298) * lu(1140) + lu(1164) = lu(1164) - lu(299) * lu(1140) + lu(1166) = lu(1166) - lu(300) * lu(1140) + lu(1168) = lu(1168) - lu(301) * lu(1140) + lu(1169) = lu(1169) - lu(302) * lu(1140) + lu(1172) = - lu(303) * lu(1140) + lu(1224) = - lu(293) * lu(1218) + lu(1230) = lu(1230) - lu(294) * lu(1218) + lu(1232) = lu(1232) - lu(295) * lu(1218) + lu(1235) = lu(1235) - lu(296) * lu(1218) + lu(1237) = lu(1237) - lu(297) * lu(1218) + lu(1238) = lu(1238) - lu(298) * lu(1218) + lu(1241) = lu(1241) - lu(299) * lu(1218) + lu(1243) = lu(1243) - lu(300) * lu(1218) + lu(1245) = lu(1245) - lu(301) * lu(1218) + lu(1246) = lu(1246) - lu(302) * lu(1218) + lu(1249) = lu(1249) - lu(303) * lu(1218) + lu(1268) = lu(1268) - lu(293) * lu(1253) + lu(1274) = lu(1274) - lu(294) * lu(1253) + lu(1276) = lu(1276) - lu(295) * lu(1253) + lu(1279) = lu(1279) - lu(296) * lu(1253) + lu(1281) = lu(1281) - lu(297) * lu(1253) + lu(1282) = lu(1282) - lu(298) * lu(1253) + lu(1285) = lu(1285) - lu(299) * lu(1253) + lu(1287) = lu(1287) - lu(300) * lu(1253) + lu(1289) = - lu(301) * lu(1253) + lu(1290) = - lu(302) * lu(1253) + lu(1293) = lu(1293) - lu(303) * lu(1253) + lu(1395) = lu(1395) - lu(293) * lu(1392) + lu(1399) = lu(1399) - lu(294) * lu(1392) + lu(1401) = lu(1401) - lu(295) * lu(1392) + lu(1404) = lu(1404) - lu(296) * lu(1392) + lu(1406) = lu(1406) - lu(297) * lu(1392) + lu(1407) = lu(1407) - lu(298) * lu(1392) + lu(1410) = lu(1410) - lu(299) * lu(1392) + lu(1412) = lu(1412) - lu(300) * lu(1392) + lu(1414) = lu(1414) - lu(301) * lu(1392) + lu(1415) = lu(1415) - lu(302) * lu(1392) + lu(1418) = lu(1418) - lu(303) * lu(1392) + lu(1490) = lu(1490) - lu(293) * lu(1479) + lu(1496) = lu(1496) - lu(294) * lu(1479) + lu(1498) = - lu(295) * lu(1479) + lu(1501) = lu(1501) - lu(296) * lu(1479) + lu(1503) = lu(1503) - lu(297) * lu(1479) + lu(1504) = lu(1504) - lu(298) * lu(1479) + lu(1507) = lu(1507) - lu(299) * lu(1479) + lu(1509) = lu(1509) - lu(300) * lu(1479) + lu(1511) = lu(1511) - lu(301) * lu(1479) + lu(1512) = lu(1512) - lu(302) * lu(1479) + lu(1515) = lu(1515) - lu(303) * lu(1479) + lu(1557) = lu(1557) - lu(293) * lu(1549) + lu(1563) = lu(1563) - lu(294) * lu(1549) + lu(1565) = - lu(295) * lu(1549) + lu(1568) = lu(1568) - lu(296) * lu(1549) + lu(1570) = lu(1570) - lu(297) * lu(1549) + lu(1571) = lu(1571) - lu(298) * lu(1549) + lu(1574) = lu(1574) - lu(299) * lu(1549) + lu(1576) = lu(1576) - lu(300) * lu(1549) + lu(1578) = lu(1578) - lu(301) * lu(1549) + lu(1579) = lu(1579) - lu(302) * lu(1549) + lu(1582) = lu(1582) - lu(303) * lu(1549) + lu(1595) = lu(1595) - lu(293) * lu(1585) + lu(1601) = lu(1601) - lu(294) * lu(1585) + lu(1603) = - lu(295) * lu(1585) + lu(1606) = lu(1606) - lu(296) * lu(1585) + lu(1608) = lu(1608) - lu(297) * lu(1585) + lu(1609) = lu(1609) - lu(298) * lu(1585) + lu(1612) = lu(1612) - lu(299) * lu(1585) + lu(1614) = lu(1614) - lu(300) * lu(1585) + lu(1616) = lu(1616) - lu(301) * lu(1585) + lu(1617) = lu(1617) - lu(302) * lu(1585) + lu(1620) = - lu(303) * lu(1585) + lu(1720) = lu(1720) - lu(293) * lu(1707) + lu(1726) = lu(1726) - lu(294) * lu(1707) + lu(1728) = lu(1728) - lu(295) * lu(1707) + lu(1731) = lu(1731) - lu(296) * lu(1707) + lu(1733) = - lu(297) * lu(1707) + lu(1734) = lu(1734) - lu(298) * lu(1707) + lu(1737) = lu(1737) - lu(299) * lu(1707) + lu(1739) = lu(1739) - lu(300) * lu(1707) + lu(1741) = lu(1741) - lu(301) * lu(1707) + lu(1742) = - lu(302) * lu(1707) + lu(1745) = lu(1745) - lu(303) * lu(1707) + lu(304) = 1._r8 / lu(304) + lu(305) = lu(305) * lu(304) + lu(306) = lu(306) * lu(304) + lu(307) = lu(307) * lu(304) + lu(308) = lu(308) * lu(304) + lu(309) = lu(309) * lu(304) + lu(310) = lu(310) * lu(304) + lu(311) = lu(311) * lu(304) + lu(312) = lu(312) * lu(304) + lu(313) = lu(313) * lu(304) + lu(314) = lu(314) * lu(304) + lu(315) = lu(315) * lu(304) + lu(316) = lu(316) * lu(304) + lu(317) = lu(317) * lu(304) + lu(486) = lu(486) - lu(305) * lu(484) + lu(491) = lu(491) - lu(306) * lu(484) + lu(492) = lu(492) - lu(307) * lu(484) + lu(493) = lu(493) - lu(308) * lu(484) + lu(494) = lu(494) - lu(309) * lu(484) + lu(495) = lu(495) - lu(310) * lu(484) + lu(497) = lu(497) - lu(311) * lu(484) + lu(498) = lu(498) - lu(312) * lu(484) + lu(499) = lu(499) - lu(313) * lu(484) + lu(500) = lu(500) - lu(314) * lu(484) + lu(501) = lu(501) - lu(315) * lu(484) + lu(502) = lu(502) - lu(316) * lu(484) + lu(503) = lu(503) - lu(317) * lu(484) + lu(807) = lu(807) - lu(305) * lu(800) + lu(817) = lu(817) - lu(306) * lu(800) + lu(818) = lu(818) - lu(307) * lu(800) + lu(820) = lu(820) - lu(308) * lu(800) + lu(821) = lu(821) - lu(309) * lu(800) + lu(822) = lu(822) - lu(310) * lu(800) + lu(825) = lu(825) - lu(311) * lu(800) + lu(828) = lu(828) - lu(312) * lu(800) + lu(829) = lu(829) - lu(313) * lu(800) + lu(830) = lu(830) - lu(314) * lu(800) + lu(832) = lu(832) - lu(315) * lu(800) + lu(833) = lu(833) - lu(316) * lu(800) + lu(839) = lu(839) - lu(317) * lu(800) + lu(850) = lu(850) - lu(305) * lu(843) + lu(859) = lu(859) - lu(306) * lu(843) + lu(860) = lu(860) - lu(307) * lu(843) + lu(862) = lu(862) - lu(308) * lu(843) + lu(863) = lu(863) - lu(309) * lu(843) + lu(864) = lu(864) - lu(310) * lu(843) + lu(867) = lu(867) - lu(311) * lu(843) + lu(870) = lu(870) - lu(312) * lu(843) + lu(871) = lu(871) - lu(313) * lu(843) + lu(872) = lu(872) - lu(314) * lu(843) + lu(874) = lu(874) - lu(315) * lu(843) + lu(875) = lu(875) - lu(316) * lu(843) + lu(881) = lu(881) - lu(317) * lu(843) + lu(970) = lu(970) - lu(305) * lu(963) + lu(979) = lu(979) - lu(306) * lu(963) + lu(980) = lu(980) - lu(307) * lu(963) + lu(982) = lu(982) - lu(308) * lu(963) + lu(983) = lu(983) - lu(309) * lu(963) + lu(984) = lu(984) - lu(310) * lu(963) + lu(987) = lu(987) - lu(311) * lu(963) + lu(990) = lu(990) - lu(312) * lu(963) + lu(991) = lu(991) - lu(313) * lu(963) + lu(992) = lu(992) - lu(314) * lu(963) + lu(994) = lu(994) - lu(315) * lu(963) + lu(995) = lu(995) - lu(316) * lu(963) + lu(1001) = lu(1001) - lu(317) * lu(963) + lu(1012) = lu(1012) - lu(305) * lu(1005) + lu(1021) = lu(1021) - lu(306) * lu(1005) + lu(1022) = lu(1022) - lu(307) * lu(1005) + lu(1024) = lu(1024) - lu(308) * lu(1005) + lu(1025) = lu(1025) - lu(309) * lu(1005) + lu(1026) = lu(1026) - lu(310) * lu(1005) + lu(1029) = lu(1029) - lu(311) * lu(1005) + lu(1032) = lu(1032) - lu(312) * lu(1005) + lu(1033) = lu(1033) - lu(313) * lu(1005) + lu(1034) = lu(1034) - lu(314) * lu(1005) + lu(1036) = lu(1036) - lu(315) * lu(1005) + lu(1037) = lu(1037) - lu(316) * lu(1005) + lu(1043) = lu(1043) - lu(317) * lu(1005) + lu(1261) = lu(1261) - lu(305) * lu(1254) + lu(1271) = lu(1271) - lu(306) * lu(1254) + lu(1272) = lu(1272) - lu(307) * lu(1254) + lu(1274) = lu(1274) - lu(308) * lu(1254) + lu(1275) = lu(1275) - lu(309) * lu(1254) + lu(1276) = lu(1276) - lu(310) * lu(1254) + lu(1279) = lu(1279) - lu(311) * lu(1254) + lu(1282) = lu(1282) - lu(312) * lu(1254) + lu(1283) = lu(1283) - lu(313) * lu(1254) + lu(1284) = lu(1284) - lu(314) * lu(1254) + lu(1286) = lu(1286) - lu(315) * lu(1254) + lu(1287) = lu(1287) - lu(316) * lu(1254) + lu(1293) = lu(1293) - lu(317) * lu(1254) + lu(1345) = lu(1345) - lu(305) * lu(1338) + lu(1354) = lu(1354) - lu(306) * lu(1338) + lu(1355) = lu(1355) - lu(307) * lu(1338) + lu(1357) = lu(1357) - lu(308) * lu(1338) + lu(1358) = lu(1358) - lu(309) * lu(1338) + lu(1359) = lu(1359) - lu(310) * lu(1338) + lu(1362) = lu(1362) - lu(311) * lu(1338) + lu(1365) = lu(1365) - lu(312) * lu(1338) + lu(1366) = lu(1366) - lu(313) * lu(1338) + lu(1367) = lu(1367) - lu(314) * lu(1338) + lu(1369) = lu(1369) - lu(315) * lu(1338) + lu(1370) = lu(1370) - lu(316) * lu(1338) + lu(1376) = lu(1376) - lu(317) * lu(1338) + lu(1429) = lu(1429) - lu(305) * lu(1422) + lu(1438) = lu(1438) - lu(306) * lu(1422) + lu(1439) = lu(1439) - lu(307) * lu(1422) + lu(1441) = lu(1441) - lu(308) * lu(1422) + lu(1442) = lu(1442) - lu(309) * lu(1422) + lu(1443) = lu(1443) - lu(310) * lu(1422) + lu(1446) = lu(1446) - lu(311) * lu(1422) + lu(1449) = lu(1449) - lu(312) * lu(1422) + lu(1450) = lu(1450) - lu(313) * lu(1422) + lu(1451) = lu(1451) - lu(314) * lu(1422) + lu(1453) = lu(1453) - lu(315) * lu(1422) + lu(1454) = lu(1454) - lu(316) * lu(1422) + lu(1460) = lu(1460) - lu(317) * lu(1422) + lu(1713) = lu(1713) - lu(305) * lu(1708) + lu(1723) = lu(1723) - lu(306) * lu(1708) + lu(1724) = lu(1724) - lu(307) * lu(1708) + lu(1726) = lu(1726) - lu(308) * lu(1708) + lu(1727) = lu(1727) - lu(309) * lu(1708) + lu(1728) = lu(1728) - lu(310) * lu(1708) + lu(1731) = lu(1731) - lu(311) * lu(1708) + lu(1734) = lu(1734) - lu(312) * lu(1708) + lu(1735) = lu(1735) - lu(313) * lu(1708) + lu(1736) = lu(1736) - lu(314) * lu(1708) + lu(1738) = lu(1738) - lu(315) * lu(1708) + lu(1739) = lu(1739) - lu(316) * lu(1708) + lu(1745) = lu(1745) - lu(317) * lu(1708) + lu(320) = 1._r8 / lu(320) + lu(321) = lu(321) * lu(320) + lu(322) = lu(322) * lu(320) + lu(323) = lu(323) * lu(320) + lu(324) = lu(324) * lu(320) + lu(325) = lu(325) * lu(320) + lu(326) = lu(326) * lu(320) + lu(327) = lu(327) * lu(320) + lu(328) = lu(328) * lu(320) + lu(329) = lu(329) * lu(320) + lu(330) = lu(330) * lu(320) + lu(411) = lu(411) - lu(321) * lu(410) + lu(412) = - lu(322) * lu(410) + lu(413) = - lu(323) * lu(410) + lu(414) = lu(414) - lu(324) * lu(410) + lu(415) = lu(415) - lu(325) * lu(410) + lu(417) = - lu(326) * lu(410) + lu(420) = lu(420) - lu(327) * lu(410) + lu(423) = lu(423) - lu(328) * lu(410) + lu(424) = - lu(329) * lu(410) + lu(427) = lu(427) - lu(330) * lu(410) + lu(527) = lu(527) - lu(321) * lu(526) + lu(529) = lu(529) - lu(322) * lu(526) + lu(530) = lu(530) - lu(323) * lu(526) + lu(531) = lu(531) - lu(324) * lu(526) + lu(532) = lu(532) - lu(325) * lu(526) + lu(534) = lu(534) - lu(326) * lu(526) + lu(537) = - lu(327) * lu(526) + lu(541) = lu(541) - lu(328) * lu(526) + lu(544) = - lu(329) * lu(526) + lu(547) = lu(547) - lu(330) * lu(526) + lu(557) = lu(557) - lu(321) * lu(556) + lu(559) = lu(559) - lu(322) * lu(556) + lu(560) = lu(560) - lu(323) * lu(556) + lu(561) = lu(561) - lu(324) * lu(556) + lu(562) = lu(562) - lu(325) * lu(556) + lu(564) = lu(564) - lu(326) * lu(556) + lu(568) = lu(568) - lu(327) * lu(556) + lu(574) = lu(574) - lu(328) * lu(556) + lu(577) = lu(577) - lu(329) * lu(556) + lu(580) = lu(580) - lu(330) * lu(556) + lu(666) = lu(666) - lu(321) * lu(665) + lu(668) = lu(668) - lu(322) * lu(665) + lu(669) = lu(669) - lu(323) * lu(665) + lu(670) = lu(670) - lu(324) * lu(665) + lu(671) = lu(671) - lu(325) * lu(665) + lu(673) = lu(673) - lu(326) * lu(665) + lu(678) = lu(678) - lu(327) * lu(665) + lu(684) = lu(684) - lu(328) * lu(665) + lu(687) = lu(687) - lu(329) * lu(665) + lu(690) = lu(690) - lu(330) * lu(665) + lu(706) = lu(706) - lu(321) * lu(705) + lu(708) = lu(708) - lu(322) * lu(705) + lu(709) = lu(709) - lu(323) * lu(705) + lu(710) = lu(710) - lu(324) * lu(705) + lu(711) = lu(711) - lu(325) * lu(705) + lu(714) = lu(714) - lu(326) * lu(705) + lu(719) = lu(719) - lu(327) * lu(705) + lu(725) = lu(725) - lu(328) * lu(705) + lu(728) = lu(728) - lu(329) * lu(705) + lu(731) = lu(731) - lu(330) * lu(705) + lu(892) = lu(892) - lu(321) * lu(888) + lu(894) = - lu(322) * lu(888) + lu(895) = lu(895) - lu(323) * lu(888) + lu(899) = lu(899) - lu(324) * lu(888) + lu(900) = lu(900) - lu(325) * lu(888) + lu(906) = lu(906) - lu(326) * lu(888) + lu(911) = - lu(327) * lu(888) + lu(919) = lu(919) - lu(328) * lu(888) + lu(922) = - lu(329) * lu(888) + lu(925) = lu(925) - lu(330) * lu(888) + lu(1052) = lu(1052) - lu(321) * lu(1050) + lu(1057) = - lu(322) * lu(1050) + lu(1058) = lu(1058) - lu(323) * lu(1050) + lu(1061) = lu(1061) - lu(324) * lu(1050) + lu(1062) = lu(1062) - lu(325) * lu(1050) + lu(1068) = lu(1068) - lu(326) * lu(1050) + lu(1073) = lu(1073) - lu(327) * lu(1050) + lu(1081) = lu(1081) - lu(328) * lu(1050) + lu(1084) = lu(1084) - lu(329) * lu(1050) + lu(1087) = lu(1087) - lu(330) * lu(1050) + lu(1097) = lu(1097) - lu(321) * lu(1096) + lu(1098) = lu(1098) - lu(322) * lu(1096) + lu(1099) = - lu(323) * lu(1096) + lu(1103) = lu(1103) - lu(324) * lu(1096) + lu(1104) = lu(1104) - lu(325) * lu(1096) + lu(1110) = lu(1110) - lu(326) * lu(1096) + lu(1115) = lu(1115) - lu(327) * lu(1096) + lu(1123) = lu(1123) - lu(328) * lu(1096) + lu(1126) = - lu(329) * lu(1096) + lu(1129) = lu(1129) - lu(330) * lu(1096) + lu(1181) = - lu(321) * lu(1180) + lu(1183) = lu(1183) - lu(322) * lu(1180) + lu(1184) = - lu(323) * lu(1180) + lu(1188) = lu(1188) - lu(324) * lu(1180) + lu(1189) = lu(1189) - lu(325) * lu(1180) + lu(1195) = lu(1195) - lu(326) * lu(1180) + lu(1200) = lu(1200) - lu(327) * lu(1180) + lu(1208) = lu(1208) - lu(328) * lu(1180) + lu(1211) = lu(1211) - lu(329) * lu(1180) + lu(1214) = lu(1214) - lu(330) * lu(1180) + lu(1301) = lu(1301) - lu(321) * lu(1298) + lu(1304) = lu(1304) - lu(322) * lu(1298) + lu(1305) = lu(1305) - lu(323) * lu(1298) + lu(1308) = lu(1308) - lu(324) * lu(1298) + lu(1309) = lu(1309) - lu(325) * lu(1298) + lu(1315) = lu(1315) - lu(326) * lu(1298) + lu(1320) = lu(1320) - lu(327) * lu(1298) + lu(1328) = lu(1328) - lu(328) * lu(1298) + lu(1331) = lu(1331) - lu(329) * lu(1298) + lu(1334) = lu(1334) - lu(330) * lu(1298) + lu(1482) = lu(1482) - lu(321) * lu(1480) + lu(1484) = lu(1484) - lu(322) * lu(1480) + lu(1485) = lu(1485) - lu(323) * lu(1480) + lu(1489) = lu(1489) - lu(324) * lu(1480) + lu(1490) = lu(1490) - lu(325) * lu(1480) + lu(1496) = lu(1496) - lu(326) * lu(1480) + lu(1501) = lu(1501) - lu(327) * lu(1480) + lu(1509) = lu(1509) - lu(328) * lu(1480) + lu(1512) = lu(1512) - lu(329) * lu(1480) + lu(1515) = lu(1515) - lu(330) * lu(1480) + lu(1588) = lu(1588) - lu(321) * lu(1586) + lu(1589) = - lu(322) * lu(1586) + lu(1590) = lu(1590) - lu(323) * lu(1586) + lu(1594) = lu(1594) - lu(324) * lu(1586) + lu(1595) = lu(1595) - lu(325) * lu(1586) + lu(1601) = lu(1601) - lu(326) * lu(1586) + lu(1606) = lu(1606) - lu(327) * lu(1586) + lu(1614) = lu(1614) - lu(328) * lu(1586) + lu(1617) = lu(1617) - lu(329) * lu(1586) + lu(1620) = lu(1620) - lu(330) * lu(1586) end subroutine lu_fac08 - subroutine lu_fac09( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac09( lu ) 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,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,315) = lu(k,315) * lu(k,311) - lu(k,316) = lu(k,316) * lu(k,311) - lu(k,317) = lu(k,317) * lu(k,311) - lu(k,318) = lu(k,318) * lu(k,311) - lu(k,319) = lu(k,319) * lu(k,311) - lu(k,320) = lu(k,320) * lu(k,311) - lu(k,321) = lu(k,321) * lu(k,311) - lu(k,322) = lu(k,322) * lu(k,311) - lu(k,323) = lu(k,323) * lu(k,311) - lu(k,324) = lu(k,324) * lu(k,311) - lu(k,325) = lu(k,325) * lu(k,311) - lu(k,497) = lu(k,497) - lu(k,312) * lu(k,495) - lu(k,502) = lu(k,502) - lu(k,313) * lu(k,495) - lu(k,503) = lu(k,503) - lu(k,314) * lu(k,495) - lu(k,504) = lu(k,504) - lu(k,315) * lu(k,495) - lu(k,505) = lu(k,505) - lu(k,316) * lu(k,495) - lu(k,506) = lu(k,506) - lu(k,317) * lu(k,495) - lu(k,508) = lu(k,508) - lu(k,318) * lu(k,495) - lu(k,509) = lu(k,509) - lu(k,319) * lu(k,495) - lu(k,510) = lu(k,510) - lu(k,320) * lu(k,495) - lu(k,511) = lu(k,511) - lu(k,321) * lu(k,495) - lu(k,512) = lu(k,512) - lu(k,322) * lu(k,495) - lu(k,513) = lu(k,513) - lu(k,323) * lu(k,495) - lu(k,514) = lu(k,514) - lu(k,324) * lu(k,495) - lu(k,515) = lu(k,515) - lu(k,325) * lu(k,495) - lu(k,820) = lu(k,820) - lu(k,312) * lu(k,813) - lu(k,829) = lu(k,829) - lu(k,313) * lu(k,813) - lu(k,830) = lu(k,830) - lu(k,314) * lu(k,813) - lu(k,831) = lu(k,831) - lu(k,315) * lu(k,813) - lu(k,832) = lu(k,832) - lu(k,316) * lu(k,813) - lu(k,834) = lu(k,834) - lu(k,317) * lu(k,813) - lu(k,837) = lu(k,837) - lu(k,318) * lu(k,813) - lu(k,839) = lu(k,839) - lu(k,319) * lu(k,813) - lu(k,841) = lu(k,841) - lu(k,320) * lu(k,813) - lu(k,842) = lu(k,842) - lu(k,321) * lu(k,813) - lu(k,846) = lu(k,846) - lu(k,322) * lu(k,813) - lu(k,850) = lu(k,850) - lu(k,323) * lu(k,813) - lu(k,851) = lu(k,851) - lu(k,324) * lu(k,813) - lu(k,852) = lu(k,852) - lu(k,325) * lu(k,813) - lu(k,867) = lu(k,867) - lu(k,312) * lu(k,860) - lu(k,877) = lu(k,877) - lu(k,313) * lu(k,860) - lu(k,878) = lu(k,878) - lu(k,314) * lu(k,860) - lu(k,879) = lu(k,879) - lu(k,315) * lu(k,860) - lu(k,880) = lu(k,880) - lu(k,316) * lu(k,860) - lu(k,882) = lu(k,882) - lu(k,317) * lu(k,860) - lu(k,885) = lu(k,885) - lu(k,318) * lu(k,860) - lu(k,887) = lu(k,887) - lu(k,319) * lu(k,860) - lu(k,889) = lu(k,889) - lu(k,320) * lu(k,860) - lu(k,890) = lu(k,890) - lu(k,321) * lu(k,860) - lu(k,894) = lu(k,894) - lu(k,322) * lu(k,860) - lu(k,898) = lu(k,898) - lu(k,323) * lu(k,860) - lu(k,899) = lu(k,899) - lu(k,324) * lu(k,860) - lu(k,900) = lu(k,900) - lu(k,325) * lu(k,860) - lu(k,911) = lu(k,911) - lu(k,312) * lu(k,904) - lu(k,920) = lu(k,920) - lu(k,313) * lu(k,904) - lu(k,921) = lu(k,921) - lu(k,314) * lu(k,904) - lu(k,922) = lu(k,922) - lu(k,315) * lu(k,904) - lu(k,923) = lu(k,923) - lu(k,316) * lu(k,904) - lu(k,925) = lu(k,925) - lu(k,317) * lu(k,904) - lu(k,928) = lu(k,928) - lu(k,318) * lu(k,904) - lu(k,930) = lu(k,930) - lu(k,319) * lu(k,904) - lu(k,932) = lu(k,932) - lu(k,320) * lu(k,904) - lu(k,933) = lu(k,933) - lu(k,321) * lu(k,904) - lu(k,937) = lu(k,937) - lu(k,322) * lu(k,904) - lu(k,941) = lu(k,941) - lu(k,323) * lu(k,904) - lu(k,942) = lu(k,942) - lu(k,324) * lu(k,904) - lu(k,943) = lu(k,943) - lu(k,325) * lu(k,904) - lu(k,1052) = lu(k,1052) - lu(k,312) * lu(k,1045) - lu(k,1061) = lu(k,1061) - lu(k,313) * lu(k,1045) - lu(k,1062) = lu(k,1062) - lu(k,314) * lu(k,1045) - lu(k,1063) = lu(k,1063) - lu(k,315) * lu(k,1045) - lu(k,1064) = lu(k,1064) - lu(k,316) * lu(k,1045) - lu(k,1066) = lu(k,1066) - lu(k,317) * lu(k,1045) - lu(k,1069) = lu(k,1069) - lu(k,318) * lu(k,1045) - lu(k,1071) = lu(k,1071) - lu(k,319) * lu(k,1045) - lu(k,1073) = lu(k,1073) - lu(k,320) * lu(k,1045) - lu(k,1074) = lu(k,1074) - lu(k,321) * lu(k,1045) - lu(k,1078) = lu(k,1078) - lu(k,322) * lu(k,1045) - lu(k,1082) = lu(k,1082) - lu(k,323) * lu(k,1045) - lu(k,1083) = lu(k,1083) - lu(k,324) * lu(k,1045) - lu(k,1084) = lu(k,1084) - lu(k,325) * lu(k,1045) - lu(k,1180) = lu(k,1180) - lu(k,312) * lu(k,1173) - lu(k,1189) = lu(k,1189) - lu(k,313) * lu(k,1173) - lu(k,1190) = lu(k,1190) - lu(k,314) * lu(k,1173) - lu(k,1191) = lu(k,1191) - lu(k,315) * lu(k,1173) - lu(k,1192) = lu(k,1192) - lu(k,316) * lu(k,1173) - lu(k,1194) = lu(k,1194) - lu(k,317) * lu(k,1173) - lu(k,1197) = lu(k,1197) - lu(k,318) * lu(k,1173) - lu(k,1199) = lu(k,1199) - lu(k,319) * lu(k,1173) - lu(k,1201) = lu(k,1201) - lu(k,320) * lu(k,1173) - lu(k,1202) = lu(k,1202) - lu(k,321) * lu(k,1173) - lu(k,1206) = lu(k,1206) - lu(k,322) * lu(k,1173) - lu(k,1210) = lu(k,1210) - lu(k,323) * lu(k,1173) - lu(k,1211) = lu(k,1211) - lu(k,324) * lu(k,1173) - lu(k,1212) = lu(k,1212) - lu(k,325) * lu(k,1173) - lu(k,1338) = lu(k,1338) - lu(k,312) * lu(k,1331) - lu(k,1348) = lu(k,1348) - lu(k,313) * lu(k,1331) - lu(k,1349) = lu(k,1349) - lu(k,314) * lu(k,1331) - lu(k,1350) = lu(k,1350) - lu(k,315) * lu(k,1331) - lu(k,1351) = lu(k,1351) - lu(k,316) * lu(k,1331) - lu(k,1353) = lu(k,1353) - lu(k,317) * lu(k,1331) - lu(k,1356) = lu(k,1356) - lu(k,318) * lu(k,1331) - lu(k,1358) = lu(k,1358) - lu(k,319) * lu(k,1331) - lu(k,1360) = lu(k,1360) - lu(k,320) * lu(k,1331) - lu(k,1361) = lu(k,1361) - lu(k,321) * lu(k,1331) - lu(k,1365) = lu(k,1365) - lu(k,322) * lu(k,1331) - lu(k,1369) = lu(k,1369) - lu(k,323) * lu(k,1331) - lu(k,1370) = lu(k,1370) - lu(k,324) * lu(k,1331) - lu(k,1371) = lu(k,1371) - lu(k,325) * lu(k,1331) - lu(k,1550) = lu(k,1550) - lu(k,312) * lu(k,1543) - lu(k,1559) = lu(k,1559) - lu(k,313) * lu(k,1543) - lu(k,1560) = lu(k,1560) - lu(k,314) * lu(k,1543) - lu(k,1561) = lu(k,1561) - lu(k,315) * lu(k,1543) - lu(k,1562) = lu(k,1562) - lu(k,316) * lu(k,1543) - lu(k,1564) = lu(k,1564) - lu(k,317) * lu(k,1543) - lu(k,1567) = lu(k,1567) - lu(k,318) * lu(k,1543) - lu(k,1569) = lu(k,1569) - lu(k,319) * lu(k,1543) - lu(k,1571) = lu(k,1571) - lu(k,320) * lu(k,1543) - lu(k,1572) = lu(k,1572) - lu(k,321) * lu(k,1543) - lu(k,1576) = lu(k,1576) - lu(k,322) * lu(k,1543) - lu(k,1580) = lu(k,1580) - lu(k,323) * lu(k,1543) - lu(k,1581) = lu(k,1581) - lu(k,324) * lu(k,1543) - lu(k,1582) = lu(k,1582) - lu(k,325) * lu(k,1543) - lu(k,1792) = lu(k,1792) - lu(k,312) * lu(k,1787) - lu(k,1802) = lu(k,1802) - lu(k,313) * lu(k,1787) - lu(k,1803) = lu(k,1803) - lu(k,314) * lu(k,1787) - lu(k,1804) = lu(k,1804) - lu(k,315) * lu(k,1787) - lu(k,1805) = lu(k,1805) - lu(k,316) * lu(k,1787) - lu(k,1807) = lu(k,1807) - lu(k,317) * lu(k,1787) - lu(k,1810) = lu(k,1810) - lu(k,318) * lu(k,1787) - lu(k,1812) = lu(k,1812) - lu(k,319) * lu(k,1787) - lu(k,1814) = lu(k,1814) - lu(k,320) * lu(k,1787) - lu(k,1815) = lu(k,1815) - lu(k,321) * lu(k,1787) - lu(k,1819) = lu(k,1819) - lu(k,322) * lu(k,1787) - lu(k,1823) = lu(k,1823) - lu(k,323) * lu(k,1787) - lu(k,1824) = lu(k,1824) - lu(k,324) * lu(k,1787) - lu(k,1825) = lu(k,1825) - lu(k,325) * lu(k,1787) - lu(k,328) = 1._r8 / lu(k,328) - lu(k,329) = lu(k,329) * lu(k,328) - lu(k,330) = lu(k,330) * lu(k,328) - lu(k,331) = lu(k,331) * lu(k,328) - lu(k,332) = lu(k,332) * lu(k,328) - lu(k,333) = lu(k,333) * lu(k,328) - lu(k,334) = lu(k,334) * lu(k,328) - lu(k,335) = lu(k,335) * lu(k,328) - lu(k,336) = lu(k,336) * lu(k,328) - lu(k,337) = lu(k,337) * lu(k,328) - lu(k,338) = lu(k,338) * lu(k,328) - lu(k,339) = lu(k,339) * lu(k,328) - lu(k,457) = lu(k,457) - lu(k,329) * lu(k,456) - lu(k,458) = - lu(k,330) * lu(k,456) - lu(k,459) = - lu(k,331) * lu(k,456) - lu(k,460) = lu(k,460) - lu(k,332) * lu(k,456) - lu(k,461) = lu(k,461) - lu(k,333) * lu(k,456) - lu(k,462) = lu(k,462) - lu(k,334) * lu(k,456) - lu(k,466) = lu(k,466) - lu(k,335) * lu(k,456) - lu(k,467) = - lu(k,336) * lu(k,456) - lu(k,468) = - lu(k,337) * lu(k,456) - lu(k,472) = - lu(k,338) * lu(k,456) - lu(k,474) = lu(k,474) - lu(k,339) * lu(k,456) - lu(k,540) = lu(k,540) - lu(k,329) * lu(k,538) - lu(k,541) = lu(k,541) - lu(k,330) * lu(k,538) - lu(k,542) = lu(k,542) - lu(k,331) * lu(k,538) - lu(k,543) = lu(k,543) - lu(k,332) * lu(k,538) - lu(k,544) = lu(k,544) - lu(k,333) * lu(k,538) - lu(k,545) = lu(k,545) - lu(k,334) * lu(k,538) - lu(k,550) = - lu(k,335) * lu(k,538) - lu(k,551) = lu(k,551) - lu(k,336) * lu(k,538) - lu(k,552) = - lu(k,337) * lu(k,538) - lu(k,558) = lu(k,558) - lu(k,338) * lu(k,538) - lu(k,560) = lu(k,560) - lu(k,339) * lu(k,538) - lu(k,571) = lu(k,571) - lu(k,329) * lu(k,569) - lu(k,572) = lu(k,572) - lu(k,330) * lu(k,569) - lu(k,573) = lu(k,573) - lu(k,331) * lu(k,569) - lu(k,574) = lu(k,574) - lu(k,332) * lu(k,569) - lu(k,575) = lu(k,575) - lu(k,333) * lu(k,569) - lu(k,577) = lu(k,577) - lu(k,334) * lu(k,569) - lu(k,582) = lu(k,582) - lu(k,335) * lu(k,569) - lu(k,585) = - lu(k,336) * lu(k,569) - lu(k,586) = lu(k,586) - lu(k,337) * lu(k,569) - lu(k,592) = lu(k,592) - lu(k,338) * lu(k,569) - lu(k,594) = lu(k,594) - lu(k,339) * lu(k,569) - lu(k,683) = lu(k,683) - lu(k,329) * lu(k,681) - lu(k,684) = lu(k,684) - lu(k,330) * lu(k,681) - lu(k,685) = lu(k,685) - lu(k,331) * lu(k,681) - lu(k,686) = lu(k,686) - lu(k,332) * lu(k,681) - lu(k,687) = lu(k,687) - lu(k,333) * lu(k,681) - lu(k,689) = lu(k,689) - lu(k,334) * lu(k,681) - lu(k,695) = lu(k,695) - lu(k,335) * lu(k,681) - lu(k,698) = - lu(k,336) * lu(k,681) - lu(k,699) = lu(k,699) - lu(k,337) * lu(k,681) - lu(k,705) = lu(k,705) - lu(k,338) * lu(k,681) - lu(k,707) = lu(k,707) - lu(k,339) * lu(k,681) - lu(k,751) = lu(k,751) - lu(k,329) * lu(k,749) - lu(k,752) = lu(k,752) - lu(k,330) * lu(k,749) - lu(k,753) = lu(k,753) - lu(k,331) * lu(k,749) - lu(k,754) = lu(k,754) - lu(k,332) * lu(k,749) - lu(k,755) = lu(k,755) - lu(k,333) * lu(k,749) - lu(k,758) = lu(k,758) - lu(k,334) * lu(k,749) - lu(k,764) = lu(k,764) - lu(k,335) * lu(k,749) - lu(k,767) = lu(k,767) - lu(k,336) * lu(k,749) - lu(k,768) = lu(k,768) - lu(k,337) * lu(k,749) - lu(k,774) = lu(k,774) - lu(k,338) * lu(k,749) - lu(k,776) = lu(k,776) - lu(k,339) * lu(k,749) - lu(k,966) = lu(k,966) - lu(k,329) * lu(k,963) - lu(k,967) = lu(k,967) - lu(k,330) * lu(k,963) - lu(k,968) = lu(k,968) - lu(k,331) * lu(k,963) - lu(k,972) = lu(k,972) - lu(k,332) * lu(k,963) - lu(k,974) = lu(k,974) - lu(k,333) * lu(k,963) - lu(k,979) = lu(k,979) - lu(k,334) * lu(k,963) - lu(k,986) = lu(k,986) - lu(k,335) * lu(k,963) - lu(k,989) = lu(k,989) - lu(k,336) * lu(k,963) - lu(k,990) = lu(k,990) - lu(k,337) * lu(k,963) - lu(k,997) = lu(k,997) - lu(k,338) * lu(k,963) - lu(k,999) = lu(k,999) - lu(k,339) * lu(k,963) - lu(k,1134) = lu(k,1134) - lu(k,329) * lu(k,1131) - lu(k,1138) = - lu(k,330) * lu(k,1131) - lu(k,1139) = lu(k,1139) - lu(k,331) * lu(k,1131) - lu(k,1142) = lu(k,1142) - lu(k,332) * lu(k,1131) - lu(k,1144) = lu(k,1144) - lu(k,333) * lu(k,1131) - lu(k,1149) = lu(k,1149) - lu(k,334) * lu(k,1131) - lu(k,1156) = lu(k,1156) - lu(k,335) * lu(k,1131) - lu(k,1159) = lu(k,1159) - lu(k,336) * lu(k,1131) - lu(k,1160) = lu(k,1160) - lu(k,337) * lu(k,1131) - lu(k,1167) = lu(k,1167) - lu(k,338) * lu(k,1131) - lu(k,1169) = lu(k,1169) - lu(k,339) * lu(k,1131) - lu(k,1419) = lu(k,1419) - lu(k,329) * lu(k,1417) - lu(k,1420) = - lu(k,330) * lu(k,1417) - lu(k,1421) = lu(k,1421) - lu(k,331) * lu(k,1417) - lu(k,1424) = lu(k,1424) - lu(k,332) * lu(k,1417) - lu(k,1426) = lu(k,1426) - lu(k,333) * lu(k,1417) - lu(k,1431) = lu(k,1431) - lu(k,334) * lu(k,1417) - lu(k,1438) = lu(k,1438) - lu(k,335) * lu(k,1417) - lu(k,1441) = lu(k,1441) - lu(k,336) * lu(k,1417) - lu(k,1442) = lu(k,1442) - lu(k,337) * lu(k,1417) - lu(k,1449) = lu(k,1449) - lu(k,338) * lu(k,1417) - lu(k,1451) = lu(k,1451) - lu(k,339) * lu(k,1417) - lu(k,1463) = lu(k,1463) - lu(k,329) * lu(k,1458) - lu(k,1464) = - lu(k,330) * lu(k,1458) - lu(k,1465) = lu(k,1465) - lu(k,331) * lu(k,1458) - lu(k,1469) = lu(k,1469) - lu(k,332) * lu(k,1458) - lu(k,1471) = lu(k,1471) - lu(k,333) * lu(k,1458) - lu(k,1476) = lu(k,1476) - lu(k,334) * lu(k,1458) - lu(k,1483) = - lu(k,335) * lu(k,1458) - lu(k,1486) = lu(k,1486) - lu(k,336) * lu(k,1458) - lu(k,1487) = - lu(k,337) * lu(k,1458) - lu(k,1494) = lu(k,1494) - lu(k,338) * lu(k,1458) - lu(k,1496) = lu(k,1496) - lu(k,339) * lu(k,1458) - lu(k,1506) = lu(k,1506) - lu(k,329) * lu(k,1505) - lu(k,1507) = lu(k,1507) - lu(k,330) * lu(k,1505) - lu(k,1508) = - lu(k,331) * lu(k,1505) - lu(k,1512) = lu(k,1512) - lu(k,332) * lu(k,1505) - lu(k,1514) = lu(k,1514) - lu(k,333) * lu(k,1505) - lu(k,1519) = lu(k,1519) - lu(k,334) * lu(k,1505) - lu(k,1526) = lu(k,1526) - lu(k,335) * lu(k,1505) - lu(k,1529) = lu(k,1529) - lu(k,336) * lu(k,1505) - lu(k,1530) = - lu(k,337) * lu(k,1505) - lu(k,1537) = lu(k,1537) - lu(k,338) * lu(k,1505) - lu(k,1539) = lu(k,1539) - lu(k,339) * lu(k,1505) - lu(k,1661) = - lu(k,329) * lu(k,1659) - lu(k,1662) = lu(k,1662) - lu(k,330) * lu(k,1659) - lu(k,1663) = - lu(k,331) * lu(k,1659) - lu(k,1667) = lu(k,1667) - lu(k,332) * lu(k,1659) - lu(k,1669) = lu(k,1669) - lu(k,333) * lu(k,1659) - lu(k,1674) = lu(k,1674) - lu(k,334) * lu(k,1659) - lu(k,1681) = lu(k,1681) - lu(k,335) * lu(k,1659) - lu(k,1684) = lu(k,1684) - lu(k,336) * lu(k,1659) - lu(k,1685) = lu(k,1685) - lu(k,337) * lu(k,1659) - lu(k,1692) = lu(k,1692) - lu(k,338) * lu(k,1659) - lu(k,1694) = lu(k,1694) - lu(k,339) * lu(k,1659) - lu(k,1738) = lu(k,1738) - lu(k,329) * lu(k,1735) - lu(k,1741) = lu(k,1741) - lu(k,330) * lu(k,1735) - lu(k,1742) = lu(k,1742) - lu(k,331) * lu(k,1735) - lu(k,1745) = lu(k,1745) - lu(k,332) * lu(k,1735) - lu(k,1747) = lu(k,1747) - lu(k,333) * lu(k,1735) - lu(k,1752) = lu(k,1752) - lu(k,334) * lu(k,1735) - lu(k,1759) = lu(k,1759) - lu(k,335) * lu(k,1735) - lu(k,1762) = lu(k,1762) - lu(k,336) * lu(k,1735) - lu(k,1763) = lu(k,1763) - lu(k,337) * lu(k,1735) - lu(k,1770) = lu(k,1770) - lu(k,338) * lu(k,1735) - lu(k,1772) = lu(k,1772) - lu(k,339) * lu(k,1735) - 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,346) = lu(k,346) * lu(k,340) - lu(k,347) = lu(k,347) * lu(k,340) - lu(k,348) = lu(k,348) * lu(k,340) - lu(k,349) = lu(k,349) * lu(k,340) - lu(k,350) = lu(k,350) * lu(k,340) - lu(k,351) = lu(k,351) * lu(k,340) - lu(k,352) = lu(k,352) * lu(k,340) - lu(k,353) = lu(k,353) * lu(k,340) - lu(k,354) = lu(k,354) * lu(k,340) - lu(k,357) = lu(k,357) - lu(k,341) * lu(k,355) - lu(k,358) = lu(k,358) - lu(k,342) * lu(k,355) - lu(k,359) = lu(k,359) - lu(k,343) * lu(k,355) - lu(k,360) = lu(k,360) - lu(k,344) * lu(k,355) - lu(k,361) = lu(k,361) - lu(k,345) * lu(k,355) - lu(k,362) = lu(k,362) - lu(k,346) * lu(k,355) - lu(k,363) = lu(k,363) - lu(k,347) * lu(k,355) - lu(k,364) = lu(k,364) - lu(k,348) * lu(k,355) - lu(k,365) = lu(k,365) - lu(k,349) * lu(k,355) - lu(k,366) = lu(k,366) - lu(k,350) * lu(k,355) - lu(k,367) = lu(k,367) - lu(k,351) * lu(k,355) - lu(k,368) = lu(k,368) - lu(k,352) * lu(k,355) - lu(k,369) = lu(k,369) - lu(k,353) * lu(k,355) - lu(k,370) = lu(k,370) - lu(k,354) * lu(k,355) - lu(k,597) = lu(k,597) - lu(k,341) * lu(k,595) - lu(k,600) = lu(k,600) - lu(k,342) * lu(k,595) - lu(k,601) = lu(k,601) - lu(k,343) * lu(k,595) - lu(k,602) = lu(k,602) - lu(k,344) * lu(k,595) - lu(k,604) = lu(k,604) - lu(k,345) * lu(k,595) - lu(k,607) = lu(k,607) - lu(k,346) * lu(k,595) - lu(k,608) = lu(k,608) - lu(k,347) * lu(k,595) - lu(k,609) = lu(k,609) - lu(k,348) * lu(k,595) - lu(k,610) = lu(k,610) - lu(k,349) * lu(k,595) - lu(k,611) = lu(k,611) - lu(k,350) * lu(k,595) - lu(k,612) = lu(k,612) - lu(k,351) * lu(k,595) - lu(k,613) = lu(k,613) - lu(k,352) * lu(k,595) - lu(k,614) = lu(k,614) - lu(k,353) * lu(k,595) - lu(k,615) = lu(k,615) - lu(k,354) * lu(k,595) - lu(k,822) = lu(k,822) - lu(k,341) * lu(k,814) - lu(k,829) = lu(k,829) - lu(k,342) * lu(k,814) - lu(k,830) = lu(k,830) - lu(k,343) * lu(k,814) - lu(k,831) = lu(k,831) - lu(k,344) * lu(k,814) - lu(k,834) = lu(k,834) - lu(k,345) * lu(k,814) - lu(k,837) = lu(k,837) - lu(k,346) * lu(k,814) - lu(k,839) = lu(k,839) - lu(k,347) * lu(k,814) - lu(k,841) = lu(k,841) - lu(k,348) * lu(k,814) - lu(k,844) = lu(k,844) - lu(k,349) * lu(k,814) - lu(k,846) = lu(k,846) - lu(k,350) * lu(k,814) - lu(k,849) = lu(k,849) - lu(k,351) * lu(k,814) - lu(k,850) = lu(k,850) - lu(k,352) * lu(k,814) - lu(k,851) = lu(k,851) - lu(k,353) * lu(k,814) - lu(k,852) = lu(k,852) - lu(k,354) * lu(k,814) - lu(k,870) = lu(k,870) - lu(k,341) * lu(k,861) - lu(k,877) = lu(k,877) - lu(k,342) * lu(k,861) - lu(k,878) = lu(k,878) - lu(k,343) * lu(k,861) - lu(k,879) = lu(k,879) - lu(k,344) * lu(k,861) - lu(k,882) = lu(k,882) - lu(k,345) * lu(k,861) - lu(k,885) = lu(k,885) - lu(k,346) * lu(k,861) - lu(k,887) = lu(k,887) - lu(k,347) * lu(k,861) - lu(k,889) = lu(k,889) - lu(k,348) * lu(k,861) - lu(k,892) = lu(k,892) - lu(k,349) * lu(k,861) - lu(k,894) = lu(k,894) - lu(k,350) * lu(k,861) - lu(k,897) = lu(k,897) - lu(k,351) * lu(k,861) - lu(k,898) = lu(k,898) - lu(k,352) * lu(k,861) - lu(k,899) = lu(k,899) - lu(k,353) * lu(k,861) - lu(k,900) = lu(k,900) - lu(k,354) * lu(k,861) - lu(k,913) = lu(k,913) - lu(k,341) * lu(k,905) - lu(k,920) = lu(k,920) - lu(k,342) * lu(k,905) - lu(k,921) = lu(k,921) - lu(k,343) * lu(k,905) - lu(k,922) = lu(k,922) - lu(k,344) * lu(k,905) - lu(k,925) = lu(k,925) - lu(k,345) * lu(k,905) - lu(k,928) = lu(k,928) - lu(k,346) * lu(k,905) - lu(k,930) = lu(k,930) - lu(k,347) * lu(k,905) - lu(k,932) = lu(k,932) - lu(k,348) * lu(k,905) - lu(k,935) = lu(k,935) - lu(k,349) * lu(k,905) - lu(k,937) = lu(k,937) - lu(k,350) * lu(k,905) - lu(k,940) = lu(k,940) - lu(k,351) * lu(k,905) - lu(k,941) = lu(k,941) - lu(k,352) * lu(k,905) - lu(k,942) = lu(k,942) - lu(k,353) * lu(k,905) - lu(k,943) = lu(k,943) - lu(k,354) * lu(k,905) - lu(k,1054) = lu(k,1054) - lu(k,341) * lu(k,1046) - lu(k,1061) = lu(k,1061) - lu(k,342) * lu(k,1046) - lu(k,1062) = lu(k,1062) - lu(k,343) * lu(k,1046) - lu(k,1063) = lu(k,1063) - lu(k,344) * lu(k,1046) - lu(k,1066) = lu(k,1066) - lu(k,345) * lu(k,1046) - lu(k,1069) = lu(k,1069) - lu(k,346) * lu(k,1046) - lu(k,1071) = lu(k,1071) - lu(k,347) * lu(k,1046) - lu(k,1073) = lu(k,1073) - lu(k,348) * lu(k,1046) - lu(k,1076) = lu(k,1076) - lu(k,349) * lu(k,1046) - lu(k,1078) = lu(k,1078) - lu(k,350) * lu(k,1046) - lu(k,1081) = lu(k,1081) - lu(k,351) * lu(k,1046) - lu(k,1082) = lu(k,1082) - lu(k,352) * lu(k,1046) - lu(k,1083) = lu(k,1083) - lu(k,353) * lu(k,1046) - lu(k,1084) = lu(k,1084) - lu(k,354) * lu(k,1046) - lu(k,1182) = lu(k,1182) - lu(k,341) * lu(k,1174) - lu(k,1189) = lu(k,1189) - lu(k,342) * lu(k,1174) - lu(k,1190) = lu(k,1190) - lu(k,343) * lu(k,1174) - lu(k,1191) = lu(k,1191) - lu(k,344) * lu(k,1174) - lu(k,1194) = lu(k,1194) - lu(k,345) * lu(k,1174) - lu(k,1197) = lu(k,1197) - lu(k,346) * lu(k,1174) - lu(k,1199) = lu(k,1199) - lu(k,347) * lu(k,1174) - lu(k,1201) = lu(k,1201) - lu(k,348) * lu(k,1174) - lu(k,1204) = lu(k,1204) - lu(k,349) * lu(k,1174) - lu(k,1206) = lu(k,1206) - lu(k,350) * lu(k,1174) - lu(k,1209) = lu(k,1209) - lu(k,351) * lu(k,1174) - lu(k,1210) = lu(k,1210) - lu(k,352) * lu(k,1174) - lu(k,1211) = lu(k,1211) - lu(k,353) * lu(k,1174) - lu(k,1212) = lu(k,1212) - lu(k,354) * lu(k,1174) - lu(k,1341) = lu(k,1341) - lu(k,341) * lu(k,1332) - lu(k,1348) = lu(k,1348) - lu(k,342) * lu(k,1332) - lu(k,1349) = lu(k,1349) - lu(k,343) * lu(k,1332) - lu(k,1350) = lu(k,1350) - lu(k,344) * lu(k,1332) - lu(k,1353) = lu(k,1353) - lu(k,345) * lu(k,1332) - lu(k,1356) = lu(k,1356) - lu(k,346) * lu(k,1332) - lu(k,1358) = lu(k,1358) - lu(k,347) * lu(k,1332) - lu(k,1360) = lu(k,1360) - lu(k,348) * lu(k,1332) - lu(k,1363) = lu(k,1363) - lu(k,349) * lu(k,1332) - lu(k,1365) = lu(k,1365) - lu(k,350) * lu(k,1332) - lu(k,1368) = lu(k,1368) - lu(k,351) * lu(k,1332) - lu(k,1369) = lu(k,1369) - lu(k,352) * lu(k,1332) - lu(k,1370) = lu(k,1370) - lu(k,353) * lu(k,1332) - lu(k,1371) = lu(k,1371) - lu(k,354) * lu(k,1332) - lu(k,1466) = lu(k,1466) - lu(k,341) * lu(k,1459) - lu(k,1473) = - lu(k,342) * lu(k,1459) - lu(k,1474) = - lu(k,343) * lu(k,1459) - lu(k,1475) = - lu(k,344) * lu(k,1459) - lu(k,1478) = - lu(k,345) * lu(k,1459) - lu(k,1481) = - lu(k,346) * lu(k,1459) - lu(k,1483) = lu(k,1483) - lu(k,347) * lu(k,1459) - lu(k,1485) = - lu(k,348) * lu(k,1459) - lu(k,1488) = lu(k,1488) - lu(k,349) * lu(k,1459) - lu(k,1490) = - lu(k,350) * lu(k,1459) - lu(k,1493) = lu(k,1493) - lu(k,351) * lu(k,1459) - lu(k,1494) = lu(k,1494) - lu(k,352) * lu(k,1459) - lu(k,1495) = lu(k,1495) - lu(k,353) * lu(k,1459) - lu(k,1496) = lu(k,1496) - lu(k,354) * lu(k,1459) - lu(k,1552) = lu(k,1552) - lu(k,341) * lu(k,1544) - lu(k,1559) = lu(k,1559) - lu(k,342) * lu(k,1544) - lu(k,1560) = lu(k,1560) - lu(k,343) * lu(k,1544) - lu(k,1561) = lu(k,1561) - lu(k,344) * lu(k,1544) - lu(k,1564) = lu(k,1564) - lu(k,345) * lu(k,1544) - lu(k,1567) = lu(k,1567) - lu(k,346) * lu(k,1544) - lu(k,1569) = lu(k,1569) - lu(k,347) * lu(k,1544) - lu(k,1571) = lu(k,1571) - lu(k,348) * lu(k,1544) - lu(k,1574) = lu(k,1574) - lu(k,349) * lu(k,1544) - lu(k,1576) = lu(k,1576) - lu(k,350) * lu(k,1544) - lu(k,1579) = lu(k,1579) - lu(k,351) * lu(k,1544) - lu(k,1580) = lu(k,1580) - lu(k,352) * lu(k,1544) - lu(k,1581) = lu(k,1581) - lu(k,353) * lu(k,1544) - lu(k,1582) = lu(k,1582) - lu(k,354) * lu(k,1544) - end do + real(r8), intent(inout) :: lu(:) + lu(331) = 1._r8 / lu(331) + lu(332) = lu(332) * lu(331) + lu(333) = lu(333) * lu(331) + lu(334) = lu(334) * lu(331) + lu(335) = lu(335) * lu(331) + lu(336) = lu(336) * lu(331) + lu(337) = lu(337) * lu(331) + lu(338) = lu(338) * lu(331) + lu(339) = lu(339) * lu(331) + lu(340) = lu(340) * lu(331) + lu(341) = lu(341) * lu(331) + lu(342) = lu(342) * lu(331) + lu(343) = lu(343) * lu(331) + lu(344) = lu(344) * lu(331) + lu(345) = lu(345) * lu(331) + lu(348) = lu(348) - lu(332) * lu(346) + lu(349) = lu(349) - lu(333) * lu(346) + lu(350) = lu(350) - lu(334) * lu(346) + lu(351) = lu(351) - lu(335) * lu(346) + lu(352) = lu(352) - lu(336) * lu(346) + lu(353) = lu(353) - lu(337) * lu(346) + lu(354) = lu(354) - lu(338) * lu(346) + lu(355) = lu(355) - lu(339) * lu(346) + lu(356) = lu(356) - lu(340) * lu(346) + lu(357) = lu(357) - lu(341) * lu(346) + lu(358) = lu(358) - lu(342) * lu(346) + lu(359) = lu(359) - lu(343) * lu(346) + lu(360) = lu(360) - lu(344) * lu(346) + lu(361) = lu(361) - lu(345) * lu(346) + lu(613) = lu(613) - lu(332) * lu(611) + lu(616) = lu(616) - lu(333) * lu(611) + lu(617) = lu(617) - lu(334) * lu(611) + lu(618) = lu(618) - lu(335) * lu(611) + lu(619) = lu(619) - lu(336) * lu(611) + lu(620) = lu(620) - lu(337) * lu(611) + lu(621) = lu(621) - lu(338) * lu(611) + lu(623) = lu(623) - lu(339) * lu(611) + lu(624) = lu(624) - lu(340) * lu(611) + lu(625) = lu(625) - lu(341) * lu(611) + lu(626) = lu(626) - lu(342) * lu(611) + lu(627) = lu(627) - lu(343) * lu(611) + lu(629) = lu(629) - lu(344) * lu(611) + lu(631) = lu(631) - lu(345) * lu(611) + lu(811) = lu(811) - lu(332) * lu(801) + lu(817) = lu(817) - lu(333) * lu(801) + lu(818) = lu(818) - lu(334) * lu(801) + lu(819) = lu(819) - lu(335) * lu(801) + lu(820) = lu(820) - lu(336) * lu(801) + lu(821) = lu(821) - lu(337) * lu(801) + lu(822) = lu(822) - lu(338) * lu(801) + lu(825) = lu(825) - lu(339) * lu(801) + lu(826) = lu(826) - lu(340) * lu(801) + lu(828) = lu(828) - lu(341) * lu(801) + lu(829) = lu(829) - lu(342) * lu(801) + lu(830) = lu(830) - lu(343) * lu(801) + lu(832) = lu(832) - lu(344) * lu(801) + lu(839) = lu(839) - lu(345) * lu(801) + lu(853) = lu(853) - lu(332) * lu(844) + lu(859) = lu(859) - lu(333) * lu(844) + lu(860) = lu(860) - lu(334) * lu(844) + lu(861) = lu(861) - lu(335) * lu(844) + lu(862) = lu(862) - lu(336) * lu(844) + lu(863) = lu(863) - lu(337) * lu(844) + lu(864) = lu(864) - lu(338) * lu(844) + lu(867) = lu(867) - lu(339) * lu(844) + lu(868) = lu(868) - lu(340) * lu(844) + lu(870) = lu(870) - lu(341) * lu(844) + lu(871) = lu(871) - lu(342) * lu(844) + lu(872) = lu(872) - lu(343) * lu(844) + lu(874) = lu(874) - lu(344) * lu(844) + lu(881) = lu(881) - lu(345) * lu(844) + lu(897) = lu(897) - lu(332) * lu(889) + lu(903) = - lu(333) * lu(889) + lu(904) = - lu(334) * lu(889) + lu(905) = lu(905) - lu(335) * lu(889) + lu(906) = lu(906) - lu(336) * lu(889) + lu(907) = - lu(337) * lu(889) + lu(908) = - lu(338) * lu(889) + lu(911) = lu(911) - lu(339) * lu(889) + lu(912) = lu(912) - lu(340) * lu(889) + lu(914) = - lu(341) * lu(889) + lu(915) = lu(915) - lu(342) * lu(889) + lu(916) = - lu(343) * lu(889) + lu(918) = - lu(344) * lu(889) + lu(925) = lu(925) - lu(345) * lu(889) + lu(973) = lu(973) - lu(332) * lu(964) + lu(979) = lu(979) - lu(333) * lu(964) + lu(980) = lu(980) - lu(334) * lu(964) + lu(981) = lu(981) - lu(335) * lu(964) + lu(982) = lu(982) - lu(336) * lu(964) + lu(983) = lu(983) - lu(337) * lu(964) + lu(984) = lu(984) - lu(338) * lu(964) + lu(987) = lu(987) - lu(339) * lu(964) + lu(988) = lu(988) - lu(340) * lu(964) + lu(990) = lu(990) - lu(341) * lu(964) + lu(991) = lu(991) - lu(342) * lu(964) + lu(992) = lu(992) - lu(343) * lu(964) + lu(994) = lu(994) - lu(344) * lu(964) + lu(1001) = lu(1001) - lu(345) * lu(964) + lu(1015) = lu(1015) - lu(332) * lu(1006) + lu(1021) = lu(1021) - lu(333) * lu(1006) + lu(1022) = lu(1022) - lu(334) * lu(1006) + lu(1023) = lu(1023) - lu(335) * lu(1006) + lu(1024) = lu(1024) - lu(336) * lu(1006) + lu(1025) = lu(1025) - lu(337) * lu(1006) + lu(1026) = lu(1026) - lu(338) * lu(1006) + lu(1029) = lu(1029) - lu(339) * lu(1006) + lu(1030) = lu(1030) - lu(340) * lu(1006) + lu(1032) = lu(1032) - lu(341) * lu(1006) + lu(1033) = lu(1033) - lu(342) * lu(1006) + lu(1034) = lu(1034) - lu(343) * lu(1006) + lu(1036) = lu(1036) - lu(344) * lu(1006) + lu(1043) = lu(1043) - lu(345) * lu(1006) + lu(1265) = lu(1265) - lu(332) * lu(1255) + lu(1271) = lu(1271) - lu(333) * lu(1255) + lu(1272) = lu(1272) - lu(334) * lu(1255) + lu(1273) = lu(1273) - lu(335) * lu(1255) + lu(1274) = lu(1274) - lu(336) * lu(1255) + lu(1275) = lu(1275) - lu(337) * lu(1255) + lu(1276) = lu(1276) - lu(338) * lu(1255) + lu(1279) = lu(1279) - lu(339) * lu(1255) + lu(1280) = lu(1280) - lu(340) * lu(1255) + lu(1282) = lu(1282) - lu(341) * lu(1255) + lu(1283) = lu(1283) - lu(342) * lu(1255) + lu(1284) = lu(1284) - lu(343) * lu(1255) + lu(1286) = lu(1286) - lu(344) * lu(1255) + lu(1293) = lu(1293) - lu(345) * lu(1255) + lu(1348) = lu(1348) - lu(332) * lu(1339) + lu(1354) = lu(1354) - lu(333) * lu(1339) + lu(1355) = lu(1355) - lu(334) * lu(1339) + lu(1356) = lu(1356) - lu(335) * lu(1339) + lu(1357) = lu(1357) - lu(336) * lu(1339) + lu(1358) = lu(1358) - lu(337) * lu(1339) + lu(1359) = lu(1359) - lu(338) * lu(1339) + lu(1362) = lu(1362) - lu(339) * lu(1339) + lu(1363) = lu(1363) - lu(340) * lu(1339) + lu(1365) = lu(1365) - lu(341) * lu(1339) + lu(1366) = lu(1366) - lu(342) * lu(1339) + lu(1367) = lu(1367) - lu(343) * lu(1339) + lu(1369) = lu(1369) - lu(344) * lu(1339) + lu(1376) = lu(1376) - lu(345) * lu(1339) + lu(1432) = lu(1432) - lu(332) * lu(1423) + lu(1438) = lu(1438) - lu(333) * lu(1423) + lu(1439) = lu(1439) - lu(334) * lu(1423) + lu(1440) = lu(1440) - lu(335) * lu(1423) + lu(1441) = lu(1441) - lu(336) * lu(1423) + lu(1442) = lu(1442) - lu(337) * lu(1423) + lu(1443) = lu(1443) - lu(338) * lu(1423) + lu(1446) = lu(1446) - lu(339) * lu(1423) + lu(1447) = lu(1447) - lu(340) * lu(1423) + lu(1449) = lu(1449) - lu(341) * lu(1423) + lu(1450) = lu(1450) - lu(342) * lu(1423) + lu(1451) = lu(1451) - lu(343) * lu(1423) + lu(1453) = lu(1453) - lu(344) * lu(1423) + lu(1460) = lu(1460) - lu(345) * lu(1423) + lu(347) = 1._r8 / lu(347) + lu(348) = lu(348) * lu(347) + lu(349) = lu(349) * lu(347) + lu(350) = lu(350) * lu(347) + lu(351) = lu(351) * lu(347) + lu(352) = lu(352) * lu(347) + lu(353) = lu(353) * lu(347) + lu(354) = lu(354) * lu(347) + lu(355) = lu(355) * lu(347) + lu(356) = lu(356) * lu(347) + lu(357) = lu(357) * lu(347) + lu(358) = lu(358) * lu(347) + lu(359) = lu(359) * lu(347) + lu(360) = lu(360) * lu(347) + lu(361) = lu(361) * lu(347) + lu(613) = lu(613) - lu(348) * lu(612) + lu(616) = lu(616) - lu(349) * lu(612) + lu(617) = lu(617) - lu(350) * lu(612) + lu(618) = lu(618) - lu(351) * lu(612) + lu(619) = lu(619) - lu(352) * lu(612) + lu(620) = lu(620) - lu(353) * lu(612) + lu(621) = lu(621) - lu(354) * lu(612) + lu(623) = lu(623) - lu(355) * lu(612) + lu(624) = lu(624) - lu(356) * lu(612) + lu(625) = lu(625) - lu(357) * lu(612) + lu(626) = lu(626) - lu(358) * lu(612) + lu(627) = lu(627) - lu(359) * lu(612) + lu(629) = lu(629) - lu(360) * lu(612) + lu(631) = lu(631) - lu(361) * lu(612) + lu(811) = lu(811) - lu(348) * lu(802) + lu(817) = lu(817) - lu(349) * lu(802) + lu(818) = lu(818) - lu(350) * lu(802) + lu(819) = lu(819) - lu(351) * lu(802) + lu(820) = lu(820) - lu(352) * lu(802) + lu(821) = lu(821) - lu(353) * lu(802) + lu(822) = lu(822) - lu(354) * lu(802) + lu(825) = lu(825) - lu(355) * lu(802) + lu(826) = lu(826) - lu(356) * lu(802) + lu(828) = lu(828) - lu(357) * lu(802) + lu(829) = lu(829) - lu(358) * lu(802) + lu(830) = lu(830) - lu(359) * lu(802) + lu(832) = lu(832) - lu(360) * lu(802) + lu(839) = lu(839) - lu(361) * lu(802) + lu(853) = lu(853) - lu(348) * lu(845) + lu(859) = lu(859) - lu(349) * lu(845) + lu(860) = lu(860) - lu(350) * lu(845) + lu(861) = lu(861) - lu(351) * lu(845) + lu(862) = lu(862) - lu(352) * lu(845) + lu(863) = lu(863) - lu(353) * lu(845) + lu(864) = lu(864) - lu(354) * lu(845) + lu(867) = lu(867) - lu(355) * lu(845) + lu(868) = lu(868) - lu(356) * lu(845) + lu(870) = lu(870) - lu(357) * lu(845) + lu(871) = lu(871) - lu(358) * lu(845) + lu(872) = lu(872) - lu(359) * lu(845) + lu(874) = lu(874) - lu(360) * lu(845) + lu(881) = lu(881) - lu(361) * lu(845) + lu(897) = lu(897) - lu(348) * lu(890) + lu(903) = lu(903) - lu(349) * lu(890) + lu(904) = lu(904) - lu(350) * lu(890) + lu(905) = lu(905) - lu(351) * lu(890) + lu(906) = lu(906) - lu(352) * lu(890) + lu(907) = lu(907) - lu(353) * lu(890) + lu(908) = lu(908) - lu(354) * lu(890) + lu(911) = lu(911) - lu(355) * lu(890) + lu(912) = lu(912) - lu(356) * lu(890) + lu(914) = lu(914) - lu(357) * lu(890) + lu(915) = lu(915) - lu(358) * lu(890) + lu(916) = lu(916) - lu(359) * lu(890) + lu(918) = lu(918) - lu(360) * lu(890) + lu(925) = lu(925) - lu(361) * lu(890) + lu(973) = lu(973) - lu(348) * lu(965) + lu(979) = lu(979) - lu(349) * lu(965) + lu(980) = lu(980) - lu(350) * lu(965) + lu(981) = lu(981) - lu(351) * lu(965) + lu(982) = lu(982) - lu(352) * lu(965) + lu(983) = lu(983) - lu(353) * lu(965) + lu(984) = lu(984) - lu(354) * lu(965) + lu(987) = lu(987) - lu(355) * lu(965) + lu(988) = lu(988) - lu(356) * lu(965) + lu(990) = lu(990) - lu(357) * lu(965) + lu(991) = lu(991) - lu(358) * lu(965) + lu(992) = lu(992) - lu(359) * lu(965) + lu(994) = lu(994) - lu(360) * lu(965) + lu(1001) = lu(1001) - lu(361) * lu(965) + lu(1015) = lu(1015) - lu(348) * lu(1007) + lu(1021) = lu(1021) - lu(349) * lu(1007) + lu(1022) = lu(1022) - lu(350) * lu(1007) + lu(1023) = lu(1023) - lu(351) * lu(1007) + lu(1024) = lu(1024) - lu(352) * lu(1007) + lu(1025) = lu(1025) - lu(353) * lu(1007) + lu(1026) = lu(1026) - lu(354) * lu(1007) + lu(1029) = lu(1029) - lu(355) * lu(1007) + lu(1030) = lu(1030) - lu(356) * lu(1007) + lu(1032) = lu(1032) - lu(357) * lu(1007) + lu(1033) = lu(1033) - lu(358) * lu(1007) + lu(1034) = lu(1034) - lu(359) * lu(1007) + lu(1036) = lu(1036) - lu(360) * lu(1007) + lu(1043) = lu(1043) - lu(361) * lu(1007) + lu(1265) = lu(1265) - lu(348) * lu(1256) + lu(1271) = lu(1271) - lu(349) * lu(1256) + lu(1272) = lu(1272) - lu(350) * lu(1256) + lu(1273) = lu(1273) - lu(351) * lu(1256) + lu(1274) = lu(1274) - lu(352) * lu(1256) + lu(1275) = lu(1275) - lu(353) * lu(1256) + lu(1276) = lu(1276) - lu(354) * lu(1256) + lu(1279) = lu(1279) - lu(355) * lu(1256) + lu(1280) = lu(1280) - lu(356) * lu(1256) + lu(1282) = lu(1282) - lu(357) * lu(1256) + lu(1283) = lu(1283) - lu(358) * lu(1256) + lu(1284) = lu(1284) - lu(359) * lu(1256) + lu(1286) = lu(1286) - lu(360) * lu(1256) + lu(1293) = lu(1293) - lu(361) * lu(1256) + lu(1348) = lu(1348) - lu(348) * lu(1340) + lu(1354) = lu(1354) - lu(349) * lu(1340) + lu(1355) = lu(1355) - lu(350) * lu(1340) + lu(1356) = lu(1356) - lu(351) * lu(1340) + lu(1357) = lu(1357) - lu(352) * lu(1340) + lu(1358) = lu(1358) - lu(353) * lu(1340) + lu(1359) = lu(1359) - lu(354) * lu(1340) + lu(1362) = lu(1362) - lu(355) * lu(1340) + lu(1363) = lu(1363) - lu(356) * lu(1340) + lu(1365) = lu(1365) - lu(357) * lu(1340) + lu(1366) = lu(1366) - lu(358) * lu(1340) + lu(1367) = lu(1367) - lu(359) * lu(1340) + lu(1369) = lu(1369) - lu(360) * lu(1340) + lu(1376) = lu(1376) - lu(361) * lu(1340) + lu(1432) = lu(1432) - lu(348) * lu(1424) + lu(1438) = lu(1438) - lu(349) * lu(1424) + lu(1439) = lu(1439) - lu(350) * lu(1424) + lu(1440) = lu(1440) - lu(351) * lu(1424) + lu(1441) = lu(1441) - lu(352) * lu(1424) + lu(1442) = lu(1442) - lu(353) * lu(1424) + lu(1443) = lu(1443) - lu(354) * lu(1424) + lu(1446) = lu(1446) - lu(355) * lu(1424) + lu(1447) = lu(1447) - lu(356) * lu(1424) + lu(1449) = lu(1449) - lu(357) * lu(1424) + lu(1450) = lu(1450) - lu(358) * lu(1424) + lu(1451) = lu(1451) - lu(359) * lu(1424) + lu(1453) = lu(1453) - lu(360) * lu(1424) + lu(1460) = lu(1460) - lu(361) * lu(1424) + lu(1717) = lu(1717) - lu(348) * lu(1709) + lu(1723) = lu(1723) - lu(349) * lu(1709) + lu(1724) = lu(1724) - lu(350) * lu(1709) + lu(1725) = - lu(351) * lu(1709) + lu(1726) = lu(1726) - lu(352) * lu(1709) + lu(1727) = lu(1727) - lu(353) * lu(1709) + lu(1728) = lu(1728) - lu(354) * lu(1709) + lu(1731) = lu(1731) - lu(355) * lu(1709) + lu(1732) = lu(1732) - lu(356) * lu(1709) + lu(1734) = lu(1734) - lu(357) * lu(1709) + lu(1735) = lu(1735) - lu(358) * lu(1709) + lu(1736) = lu(1736) - lu(359) * lu(1709) + lu(1738) = lu(1738) - lu(360) * lu(1709) + lu(1745) = lu(1745) - lu(361) * lu(1709) + lu(362) = 1._r8 / lu(362) + lu(363) = lu(363) * lu(362) + lu(364) = lu(364) * lu(362) + lu(365) = lu(365) * lu(362) + lu(366) = lu(366) * lu(362) + lu(367) = lu(367) * lu(362) + lu(368) = lu(368) * lu(362) + lu(369) = lu(369) * lu(362) + lu(370) = lu(370) * lu(362) + lu(371) = lu(371) * lu(362) + lu(372) = lu(372) * lu(362) + lu(373) = lu(373) * lu(362) + lu(374) = lu(374) * lu(362) + lu(375) = lu(375) * lu(362) + lu(490) = lu(490) - lu(363) * lu(485) + lu(491) = lu(491) - lu(364) * lu(485) + lu(492) = lu(492) - lu(365) * lu(485) + lu(493) = lu(493) - lu(366) * lu(485) + lu(494) = lu(494) - lu(367) * lu(485) + lu(495) = lu(495) - lu(368) * lu(485) + lu(496) = lu(496) - lu(369) * lu(485) + lu(497) = lu(497) - lu(370) * lu(485) + lu(498) = lu(498) - lu(371) * lu(485) + lu(499) = lu(499) - lu(372) * lu(485) + lu(500) = lu(500) - lu(373) * lu(485) + lu(501) = lu(501) - lu(374) * lu(485) + lu(503) = lu(503) - lu(375) * lu(485) + lu(769) = lu(769) - lu(363) * lu(765) + lu(770) = lu(770) - lu(364) * lu(765) + lu(771) = lu(771) - lu(365) * lu(765) + lu(773) = lu(773) - lu(366) * lu(765) + lu(774) = lu(774) - lu(367) * lu(765) + lu(775) = lu(775) - lu(368) * lu(765) + lu(776) = lu(776) - lu(369) * lu(765) + lu(778) = lu(778) - lu(370) * lu(765) + lu(781) = lu(781) - lu(371) * lu(765) + lu(782) = lu(782) - lu(372) * lu(765) + lu(783) = lu(783) - lu(373) * lu(765) + lu(785) = lu(785) - lu(374) * lu(765) + lu(792) = lu(792) - lu(375) * lu(765) + lu(816) = lu(816) - lu(363) * lu(803) + lu(817) = lu(817) - lu(364) * lu(803) + lu(818) = lu(818) - lu(365) * lu(803) + lu(820) = lu(820) - lu(366) * lu(803) + lu(821) = lu(821) - lu(367) * lu(803) + lu(822) = lu(822) - lu(368) * lu(803) + lu(823) = lu(823) - lu(369) * lu(803) + lu(825) = lu(825) - lu(370) * lu(803) + lu(828) = lu(828) - lu(371) * lu(803) + lu(829) = lu(829) - lu(372) * lu(803) + lu(830) = lu(830) - lu(373) * lu(803) + lu(832) = lu(832) - lu(374) * lu(803) + lu(839) = lu(839) - lu(375) * lu(803) + lu(858) = lu(858) - lu(363) * lu(846) + lu(859) = lu(859) - lu(364) * lu(846) + lu(860) = lu(860) - lu(365) * lu(846) + lu(862) = lu(862) - lu(366) * lu(846) + lu(863) = lu(863) - lu(367) * lu(846) + lu(864) = lu(864) - lu(368) * lu(846) + lu(865) = lu(865) - lu(369) * lu(846) + lu(867) = lu(867) - lu(370) * lu(846) + lu(870) = lu(870) - lu(371) * lu(846) + lu(871) = lu(871) - lu(372) * lu(846) + lu(872) = lu(872) - lu(373) * lu(846) + lu(874) = lu(874) - lu(374) * lu(846) + lu(881) = lu(881) - lu(375) * lu(846) + lu(978) = lu(978) - lu(363) * lu(966) + lu(979) = lu(979) - lu(364) * lu(966) + lu(980) = lu(980) - lu(365) * lu(966) + lu(982) = lu(982) - lu(366) * lu(966) + lu(983) = lu(983) - lu(367) * lu(966) + lu(984) = lu(984) - lu(368) * lu(966) + lu(985) = lu(985) - lu(369) * lu(966) + lu(987) = lu(987) - lu(370) * lu(966) + lu(990) = lu(990) - lu(371) * lu(966) + lu(991) = lu(991) - lu(372) * lu(966) + lu(992) = lu(992) - lu(373) * lu(966) + lu(994) = lu(994) - lu(374) * lu(966) + lu(1001) = lu(1001) - lu(375) * lu(966) + lu(1020) = lu(1020) - lu(363) * lu(1008) + lu(1021) = lu(1021) - lu(364) * lu(1008) + lu(1022) = lu(1022) - lu(365) * lu(1008) + lu(1024) = lu(1024) - lu(366) * lu(1008) + lu(1025) = lu(1025) - lu(367) * lu(1008) + lu(1026) = lu(1026) - lu(368) * lu(1008) + lu(1027) = lu(1027) - lu(369) * lu(1008) + lu(1029) = lu(1029) - lu(370) * lu(1008) + lu(1032) = lu(1032) - lu(371) * lu(1008) + lu(1033) = lu(1033) - lu(372) * lu(1008) + lu(1034) = lu(1034) - lu(373) * lu(1008) + lu(1036) = lu(1036) - lu(374) * lu(1008) + lu(1043) = lu(1043) - lu(375) * lu(1008) + lu(1270) = lu(1270) - lu(363) * lu(1257) + lu(1271) = lu(1271) - lu(364) * lu(1257) + lu(1272) = lu(1272) - lu(365) * lu(1257) + lu(1274) = lu(1274) - lu(366) * lu(1257) + lu(1275) = lu(1275) - lu(367) * lu(1257) + lu(1276) = lu(1276) - lu(368) * lu(1257) + lu(1277) = lu(1277) - lu(369) * lu(1257) + lu(1279) = lu(1279) - lu(370) * lu(1257) + lu(1282) = lu(1282) - lu(371) * lu(1257) + lu(1283) = lu(1283) - lu(372) * lu(1257) + lu(1284) = lu(1284) - lu(373) * lu(1257) + lu(1286) = lu(1286) - lu(374) * lu(1257) + lu(1293) = lu(1293) - lu(375) * lu(1257) + lu(1311) = lu(1311) - lu(363) * lu(1299) + lu(1312) = lu(1312) - lu(364) * lu(1299) + lu(1313) = - lu(365) * lu(1299) + lu(1315) = lu(1315) - lu(366) * lu(1299) + lu(1316) = - lu(367) * lu(1299) + lu(1317) = - lu(368) * lu(1299) + lu(1318) = lu(1318) - lu(369) * lu(1299) + lu(1320) = lu(1320) - lu(370) * lu(1299) + lu(1323) = lu(1323) - lu(371) * lu(1299) + lu(1324) = lu(1324) - lu(372) * lu(1299) + lu(1325) = - lu(373) * lu(1299) + lu(1327) = - lu(374) * lu(1299) + lu(1334) = lu(1334) - lu(375) * lu(1299) + lu(1353) = lu(1353) - lu(363) * lu(1341) + lu(1354) = lu(1354) - lu(364) * lu(1341) + lu(1355) = lu(1355) - lu(365) * lu(1341) + lu(1357) = lu(1357) - lu(366) * lu(1341) + lu(1358) = lu(1358) - lu(367) * lu(1341) + lu(1359) = lu(1359) - lu(368) * lu(1341) + lu(1360) = lu(1360) - lu(369) * lu(1341) + lu(1362) = lu(1362) - lu(370) * lu(1341) + lu(1365) = lu(1365) - lu(371) * lu(1341) + lu(1366) = lu(1366) - lu(372) * lu(1341) + lu(1367) = lu(1367) - lu(373) * lu(1341) + lu(1369) = lu(1369) - lu(374) * lu(1341) + lu(1376) = lu(1376) - lu(375) * lu(1341) + lu(1437) = lu(1437) - lu(363) * lu(1425) + lu(1438) = lu(1438) - lu(364) * lu(1425) + lu(1439) = lu(1439) - lu(365) * lu(1425) + lu(1441) = lu(1441) - lu(366) * lu(1425) + lu(1442) = lu(1442) - lu(367) * lu(1425) + lu(1443) = lu(1443) - lu(368) * lu(1425) + lu(1444) = lu(1444) - lu(369) * lu(1425) + lu(1446) = lu(1446) - lu(370) * lu(1425) + lu(1449) = lu(1449) - lu(371) * lu(1425) + lu(1450) = lu(1450) - lu(372) * lu(1425) + lu(1451) = lu(1451) - lu(373) * lu(1425) + lu(1453) = lu(1453) - lu(374) * lu(1425) + lu(1460) = lu(1460) - lu(375) * lu(1425) + lu(1722) = lu(1722) - lu(363) * lu(1710) + lu(1723) = lu(1723) - lu(364) * lu(1710) + lu(1724) = lu(1724) - lu(365) * lu(1710) + lu(1726) = lu(1726) - lu(366) * lu(1710) + lu(1727) = lu(1727) - lu(367) * lu(1710) + lu(1728) = lu(1728) - lu(368) * lu(1710) + lu(1729) = lu(1729) - lu(369) * lu(1710) + lu(1731) = lu(1731) - lu(370) * lu(1710) + lu(1734) = lu(1734) - lu(371) * lu(1710) + lu(1735) = lu(1735) - lu(372) * lu(1710) + lu(1736) = lu(1736) - lu(373) * lu(1710) + lu(1738) = lu(1738) - lu(374) * lu(1710) + lu(1745) = lu(1745) - lu(375) * lu(1710) end subroutine lu_fac09 - subroutine lu_fac10( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac10( lu ) 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,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,362) = lu(k,362) * lu(k,356) - lu(k,363) = lu(k,363) * lu(k,356) - lu(k,364) = lu(k,364) * lu(k,356) - lu(k,365) = lu(k,365) * lu(k,356) - lu(k,366) = lu(k,366) * lu(k,356) - lu(k,367) = lu(k,367) * lu(k,356) - lu(k,368) = lu(k,368) * lu(k,356) - lu(k,369) = lu(k,369) * lu(k,356) - lu(k,370) = lu(k,370) * lu(k,356) - lu(k,597) = lu(k,597) - lu(k,357) * lu(k,596) - lu(k,600) = lu(k,600) - lu(k,358) * lu(k,596) - lu(k,601) = lu(k,601) - lu(k,359) * lu(k,596) - lu(k,602) = lu(k,602) - lu(k,360) * lu(k,596) - lu(k,604) = lu(k,604) - lu(k,361) * lu(k,596) - lu(k,607) = lu(k,607) - lu(k,362) * lu(k,596) - lu(k,608) = lu(k,608) - lu(k,363) * lu(k,596) - lu(k,609) = lu(k,609) - lu(k,364) * lu(k,596) - lu(k,610) = lu(k,610) - lu(k,365) * lu(k,596) - lu(k,611) = lu(k,611) - lu(k,366) * lu(k,596) - lu(k,612) = lu(k,612) - lu(k,367) * lu(k,596) - lu(k,613) = lu(k,613) - lu(k,368) * lu(k,596) - lu(k,614) = lu(k,614) - lu(k,369) * lu(k,596) - lu(k,615) = lu(k,615) - lu(k,370) * lu(k,596) - lu(k,822) = lu(k,822) - lu(k,357) * lu(k,815) - lu(k,829) = lu(k,829) - lu(k,358) * lu(k,815) - lu(k,830) = lu(k,830) - lu(k,359) * lu(k,815) - lu(k,831) = lu(k,831) - lu(k,360) * lu(k,815) - lu(k,834) = lu(k,834) - lu(k,361) * lu(k,815) - lu(k,837) = lu(k,837) - lu(k,362) * lu(k,815) - lu(k,839) = lu(k,839) - lu(k,363) * lu(k,815) - lu(k,841) = lu(k,841) - lu(k,364) * lu(k,815) - lu(k,844) = lu(k,844) - lu(k,365) * lu(k,815) - lu(k,846) = lu(k,846) - lu(k,366) * lu(k,815) - lu(k,849) = lu(k,849) - lu(k,367) * lu(k,815) - lu(k,850) = lu(k,850) - lu(k,368) * lu(k,815) - lu(k,851) = lu(k,851) - lu(k,369) * lu(k,815) - lu(k,852) = lu(k,852) - lu(k,370) * lu(k,815) - lu(k,870) = lu(k,870) - lu(k,357) * lu(k,862) - lu(k,877) = lu(k,877) - lu(k,358) * lu(k,862) - lu(k,878) = lu(k,878) - lu(k,359) * lu(k,862) - lu(k,879) = lu(k,879) - lu(k,360) * lu(k,862) - lu(k,882) = lu(k,882) - lu(k,361) * lu(k,862) - lu(k,885) = lu(k,885) - lu(k,362) * lu(k,862) - lu(k,887) = lu(k,887) - lu(k,363) * lu(k,862) - lu(k,889) = lu(k,889) - lu(k,364) * lu(k,862) - lu(k,892) = lu(k,892) - lu(k,365) * lu(k,862) - lu(k,894) = lu(k,894) - lu(k,366) * lu(k,862) - lu(k,897) = lu(k,897) - lu(k,367) * lu(k,862) - lu(k,898) = lu(k,898) - lu(k,368) * lu(k,862) - lu(k,899) = lu(k,899) - lu(k,369) * lu(k,862) - lu(k,900) = lu(k,900) - lu(k,370) * lu(k,862) - lu(k,913) = lu(k,913) - lu(k,357) * lu(k,906) - lu(k,920) = lu(k,920) - lu(k,358) * lu(k,906) - lu(k,921) = lu(k,921) - lu(k,359) * lu(k,906) - lu(k,922) = lu(k,922) - lu(k,360) * lu(k,906) - lu(k,925) = lu(k,925) - lu(k,361) * lu(k,906) - lu(k,928) = lu(k,928) - lu(k,362) * lu(k,906) - lu(k,930) = lu(k,930) - lu(k,363) * lu(k,906) - lu(k,932) = lu(k,932) - lu(k,364) * lu(k,906) - lu(k,935) = lu(k,935) - lu(k,365) * lu(k,906) - lu(k,937) = lu(k,937) - lu(k,366) * lu(k,906) - lu(k,940) = lu(k,940) - lu(k,367) * lu(k,906) - lu(k,941) = lu(k,941) - lu(k,368) * lu(k,906) - lu(k,942) = lu(k,942) - lu(k,369) * lu(k,906) - lu(k,943) = lu(k,943) - lu(k,370) * lu(k,906) - lu(k,1054) = lu(k,1054) - lu(k,357) * lu(k,1047) - lu(k,1061) = lu(k,1061) - lu(k,358) * lu(k,1047) - lu(k,1062) = lu(k,1062) - lu(k,359) * lu(k,1047) - lu(k,1063) = lu(k,1063) - lu(k,360) * lu(k,1047) - lu(k,1066) = lu(k,1066) - lu(k,361) * lu(k,1047) - lu(k,1069) = lu(k,1069) - lu(k,362) * lu(k,1047) - lu(k,1071) = lu(k,1071) - lu(k,363) * lu(k,1047) - lu(k,1073) = lu(k,1073) - lu(k,364) * lu(k,1047) - lu(k,1076) = lu(k,1076) - lu(k,365) * lu(k,1047) - lu(k,1078) = lu(k,1078) - lu(k,366) * lu(k,1047) - lu(k,1081) = lu(k,1081) - lu(k,367) * lu(k,1047) - lu(k,1082) = lu(k,1082) - lu(k,368) * lu(k,1047) - lu(k,1083) = lu(k,1083) - lu(k,369) * lu(k,1047) - lu(k,1084) = lu(k,1084) - lu(k,370) * lu(k,1047) - lu(k,1182) = lu(k,1182) - lu(k,357) * lu(k,1175) - lu(k,1189) = lu(k,1189) - lu(k,358) * lu(k,1175) - lu(k,1190) = lu(k,1190) - lu(k,359) * lu(k,1175) - lu(k,1191) = lu(k,1191) - lu(k,360) * lu(k,1175) - lu(k,1194) = lu(k,1194) - lu(k,361) * lu(k,1175) - lu(k,1197) = lu(k,1197) - lu(k,362) * lu(k,1175) - lu(k,1199) = lu(k,1199) - lu(k,363) * lu(k,1175) - lu(k,1201) = lu(k,1201) - lu(k,364) * lu(k,1175) - lu(k,1204) = lu(k,1204) - lu(k,365) * lu(k,1175) - lu(k,1206) = lu(k,1206) - lu(k,366) * lu(k,1175) - lu(k,1209) = lu(k,1209) - lu(k,367) * lu(k,1175) - lu(k,1210) = lu(k,1210) - lu(k,368) * lu(k,1175) - lu(k,1211) = lu(k,1211) - lu(k,369) * lu(k,1175) - lu(k,1212) = lu(k,1212) - lu(k,370) * lu(k,1175) - lu(k,1341) = lu(k,1341) - lu(k,357) * lu(k,1333) - lu(k,1348) = lu(k,1348) - lu(k,358) * lu(k,1333) - lu(k,1349) = lu(k,1349) - lu(k,359) * lu(k,1333) - lu(k,1350) = lu(k,1350) - lu(k,360) * lu(k,1333) - lu(k,1353) = lu(k,1353) - lu(k,361) * lu(k,1333) - lu(k,1356) = lu(k,1356) - lu(k,362) * lu(k,1333) - lu(k,1358) = lu(k,1358) - lu(k,363) * lu(k,1333) - lu(k,1360) = lu(k,1360) - lu(k,364) * lu(k,1333) - lu(k,1363) = lu(k,1363) - lu(k,365) * lu(k,1333) - lu(k,1365) = lu(k,1365) - lu(k,366) * lu(k,1333) - lu(k,1368) = lu(k,1368) - lu(k,367) * lu(k,1333) - lu(k,1369) = lu(k,1369) - lu(k,368) * lu(k,1333) - lu(k,1370) = lu(k,1370) - lu(k,369) * lu(k,1333) - lu(k,1371) = lu(k,1371) - lu(k,370) * lu(k,1333) - lu(k,1466) = lu(k,1466) - lu(k,357) * lu(k,1460) - lu(k,1473) = lu(k,1473) - lu(k,358) * lu(k,1460) - lu(k,1474) = lu(k,1474) - lu(k,359) * lu(k,1460) - lu(k,1475) = lu(k,1475) - lu(k,360) * lu(k,1460) - lu(k,1478) = lu(k,1478) - lu(k,361) * lu(k,1460) - lu(k,1481) = lu(k,1481) - lu(k,362) * lu(k,1460) - lu(k,1483) = lu(k,1483) - lu(k,363) * lu(k,1460) - lu(k,1485) = lu(k,1485) - lu(k,364) * lu(k,1460) - lu(k,1488) = lu(k,1488) - lu(k,365) * lu(k,1460) - lu(k,1490) = lu(k,1490) - lu(k,366) * lu(k,1460) - lu(k,1493) = lu(k,1493) - lu(k,367) * lu(k,1460) - lu(k,1494) = lu(k,1494) - lu(k,368) * lu(k,1460) - lu(k,1495) = lu(k,1495) - lu(k,369) * lu(k,1460) - lu(k,1496) = lu(k,1496) - lu(k,370) * lu(k,1460) - lu(k,1552) = lu(k,1552) - lu(k,357) * lu(k,1545) - lu(k,1559) = lu(k,1559) - lu(k,358) * lu(k,1545) - lu(k,1560) = lu(k,1560) - lu(k,359) * lu(k,1545) - lu(k,1561) = lu(k,1561) - lu(k,360) * lu(k,1545) - lu(k,1564) = lu(k,1564) - lu(k,361) * lu(k,1545) - lu(k,1567) = lu(k,1567) - lu(k,362) * lu(k,1545) - lu(k,1569) = lu(k,1569) - lu(k,363) * lu(k,1545) - lu(k,1571) = lu(k,1571) - lu(k,364) * lu(k,1545) - lu(k,1574) = lu(k,1574) - lu(k,365) * lu(k,1545) - lu(k,1576) = lu(k,1576) - lu(k,366) * lu(k,1545) - lu(k,1579) = lu(k,1579) - lu(k,367) * lu(k,1545) - lu(k,1580) = lu(k,1580) - lu(k,368) * lu(k,1545) - lu(k,1581) = lu(k,1581) - lu(k,369) * lu(k,1545) - lu(k,1582) = lu(k,1582) - lu(k,370) * lu(k,1545) - lu(k,1796) = lu(k,1796) - lu(k,357) * lu(k,1788) - lu(k,1802) = lu(k,1802) - lu(k,358) * lu(k,1788) - lu(k,1803) = lu(k,1803) - lu(k,359) * lu(k,1788) - lu(k,1804) = lu(k,1804) - lu(k,360) * lu(k,1788) - lu(k,1807) = lu(k,1807) - lu(k,361) * lu(k,1788) - lu(k,1810) = lu(k,1810) - lu(k,362) * lu(k,1788) - lu(k,1812) = lu(k,1812) - lu(k,363) * lu(k,1788) - lu(k,1814) = lu(k,1814) - lu(k,364) * lu(k,1788) - lu(k,1817) = - lu(k,365) * lu(k,1788) - lu(k,1819) = lu(k,1819) - lu(k,366) * lu(k,1788) - lu(k,1822) = lu(k,1822) - lu(k,367) * lu(k,1788) - lu(k,1823) = lu(k,1823) - lu(k,368) * lu(k,1788) - lu(k,1824) = lu(k,1824) - lu(k,369) * lu(k,1788) - lu(k,1825) = lu(k,1825) - lu(k,370) * lu(k,1788) - 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,379) = lu(k,379) * lu(k,371) - lu(k,380) = lu(k,380) * lu(k,371) - lu(k,381) = lu(k,381) * lu(k,371) - lu(k,382) = lu(k,382) * lu(k,371) - lu(k,383) = lu(k,383) * lu(k,371) - lu(k,384) = lu(k,384) * lu(k,371) - lu(k,500) = lu(k,500) - lu(k,372) * lu(k,496) - lu(k,502) = lu(k,502) - lu(k,373) * lu(k,496) - lu(k,503) = lu(k,503) - lu(k,374) * lu(k,496) - lu(k,504) = lu(k,504) - lu(k,375) * lu(k,496) - lu(k,506) = lu(k,506) - lu(k,376) * lu(k,496) - lu(k,507) = lu(k,507) - lu(k,377) * lu(k,496) - lu(k,508) = lu(k,508) - lu(k,378) * lu(k,496) - lu(k,509) = lu(k,509) - lu(k,379) * lu(k,496) - lu(k,510) = lu(k,510) - lu(k,380) * lu(k,496) - lu(k,512) = lu(k,512) - lu(k,381) * lu(k,496) - lu(k,513) = lu(k,513) - lu(k,382) * lu(k,496) - lu(k,514) = lu(k,514) - lu(k,383) * lu(k,496) - lu(k,515) = lu(k,515) - lu(k,384) * lu(k,496) - lu(k,712) = lu(k,712) - lu(k,372) * lu(k,709) - lu(k,714) = lu(k,714) - lu(k,373) * lu(k,709) - lu(k,715) = lu(k,715) - lu(k,374) * lu(k,709) - lu(k,716) = lu(k,716) - lu(k,375) * lu(k,709) - lu(k,719) = lu(k,719) - lu(k,376) * lu(k,709) - lu(k,721) = lu(k,721) - lu(k,377) * lu(k,709) - lu(k,722) = lu(k,722) - lu(k,378) * lu(k,709) - lu(k,724) = lu(k,724) - lu(k,379) * lu(k,709) - lu(k,725) = lu(k,725) - lu(k,380) * lu(k,709) - lu(k,729) = lu(k,729) - lu(k,381) * lu(k,709) - lu(k,732) = lu(k,732) - lu(k,382) * lu(k,709) - lu(k,733) = lu(k,733) - lu(k,383) * lu(k,709) - lu(k,734) = lu(k,734) - lu(k,384) * lu(k,709) - lu(k,826) = lu(k,826) - lu(k,372) * lu(k,816) - lu(k,829) = lu(k,829) - lu(k,373) * lu(k,816) - lu(k,830) = lu(k,830) - lu(k,374) * lu(k,816) - lu(k,831) = lu(k,831) - lu(k,375) * lu(k,816) - lu(k,834) = lu(k,834) - lu(k,376) * lu(k,816) - lu(k,836) = lu(k,836) - lu(k,377) * lu(k,816) - lu(k,837) = lu(k,837) - lu(k,378) * lu(k,816) - lu(k,839) = lu(k,839) - lu(k,379) * lu(k,816) - lu(k,841) = lu(k,841) - lu(k,380) * lu(k,816) - lu(k,846) = lu(k,846) - lu(k,381) * lu(k,816) - lu(k,850) = lu(k,850) - lu(k,382) * lu(k,816) - lu(k,851) = lu(k,851) - lu(k,383) * lu(k,816) - lu(k,852) = lu(k,852) - lu(k,384) * lu(k,816) - lu(k,874) = lu(k,874) - lu(k,372) * lu(k,863) - lu(k,877) = lu(k,877) - lu(k,373) * lu(k,863) - lu(k,878) = lu(k,878) - lu(k,374) * lu(k,863) - lu(k,879) = lu(k,879) - lu(k,375) * lu(k,863) - lu(k,882) = lu(k,882) - lu(k,376) * lu(k,863) - lu(k,884) = lu(k,884) - lu(k,377) * lu(k,863) - lu(k,885) = lu(k,885) - lu(k,378) * lu(k,863) - lu(k,887) = lu(k,887) - lu(k,379) * lu(k,863) - lu(k,889) = lu(k,889) - lu(k,380) * lu(k,863) - lu(k,894) = lu(k,894) - lu(k,381) * lu(k,863) - lu(k,898) = lu(k,898) - lu(k,382) * lu(k,863) - lu(k,899) = lu(k,899) - lu(k,383) * lu(k,863) - lu(k,900) = lu(k,900) - lu(k,384) * lu(k,863) - lu(k,917) = lu(k,917) - lu(k,372) * lu(k,907) - lu(k,920) = lu(k,920) - lu(k,373) * lu(k,907) - lu(k,921) = lu(k,921) - lu(k,374) * lu(k,907) - lu(k,922) = lu(k,922) - lu(k,375) * lu(k,907) - lu(k,925) = lu(k,925) - lu(k,376) * lu(k,907) - lu(k,927) = lu(k,927) - lu(k,377) * lu(k,907) - lu(k,928) = lu(k,928) - lu(k,378) * lu(k,907) - lu(k,930) = lu(k,930) - lu(k,379) * lu(k,907) - lu(k,932) = lu(k,932) - lu(k,380) * lu(k,907) - lu(k,937) = lu(k,937) - lu(k,381) * lu(k,907) - lu(k,941) = lu(k,941) - lu(k,382) * lu(k,907) - lu(k,942) = lu(k,942) - lu(k,383) * lu(k,907) - lu(k,943) = lu(k,943) - lu(k,384) * lu(k,907) - lu(k,1058) = lu(k,1058) - lu(k,372) * lu(k,1048) - lu(k,1061) = lu(k,1061) - lu(k,373) * lu(k,1048) - lu(k,1062) = lu(k,1062) - lu(k,374) * lu(k,1048) - lu(k,1063) = lu(k,1063) - lu(k,375) * lu(k,1048) - lu(k,1066) = lu(k,1066) - lu(k,376) * lu(k,1048) - lu(k,1068) = lu(k,1068) - lu(k,377) * lu(k,1048) - lu(k,1069) = lu(k,1069) - lu(k,378) * lu(k,1048) - lu(k,1071) = lu(k,1071) - lu(k,379) * lu(k,1048) - lu(k,1073) = lu(k,1073) - lu(k,380) * lu(k,1048) - lu(k,1078) = lu(k,1078) - lu(k,381) * lu(k,1048) - lu(k,1082) = lu(k,1082) - lu(k,382) * lu(k,1048) - lu(k,1083) = lu(k,1083) - lu(k,383) * lu(k,1048) - lu(k,1084) = lu(k,1084) - lu(k,384) * lu(k,1048) - lu(k,1186) = lu(k,1186) - lu(k,372) * lu(k,1176) - lu(k,1189) = lu(k,1189) - lu(k,373) * lu(k,1176) - lu(k,1190) = lu(k,1190) - lu(k,374) * lu(k,1176) - lu(k,1191) = lu(k,1191) - lu(k,375) * lu(k,1176) - lu(k,1194) = lu(k,1194) - lu(k,376) * lu(k,1176) - lu(k,1196) = lu(k,1196) - lu(k,377) * lu(k,1176) - lu(k,1197) = lu(k,1197) - lu(k,378) * lu(k,1176) - lu(k,1199) = lu(k,1199) - lu(k,379) * lu(k,1176) - lu(k,1201) = lu(k,1201) - lu(k,380) * lu(k,1176) - lu(k,1206) = lu(k,1206) - lu(k,381) * lu(k,1176) - lu(k,1210) = lu(k,1210) - lu(k,382) * lu(k,1176) - lu(k,1211) = lu(k,1211) - lu(k,383) * lu(k,1176) - lu(k,1212) = lu(k,1212) - lu(k,384) * lu(k,1176) - lu(k,1345) = lu(k,1345) - lu(k,372) * lu(k,1334) - lu(k,1348) = lu(k,1348) - lu(k,373) * lu(k,1334) - lu(k,1349) = lu(k,1349) - lu(k,374) * lu(k,1334) - lu(k,1350) = lu(k,1350) - lu(k,375) * lu(k,1334) - lu(k,1353) = lu(k,1353) - lu(k,376) * lu(k,1334) - lu(k,1355) = lu(k,1355) - lu(k,377) * lu(k,1334) - lu(k,1356) = lu(k,1356) - lu(k,378) * lu(k,1334) - lu(k,1358) = lu(k,1358) - lu(k,379) * lu(k,1334) - lu(k,1360) = lu(k,1360) - lu(k,380) * lu(k,1334) - lu(k,1365) = lu(k,1365) - lu(k,381) * lu(k,1334) - lu(k,1369) = lu(k,1369) - lu(k,382) * lu(k,1334) - lu(k,1370) = lu(k,1370) - lu(k,383) * lu(k,1334) - lu(k,1371) = lu(k,1371) - lu(k,384) * lu(k,1334) - lu(k,1556) = lu(k,1556) - lu(k,372) * lu(k,1546) - lu(k,1559) = lu(k,1559) - lu(k,373) * lu(k,1546) - lu(k,1560) = lu(k,1560) - lu(k,374) * lu(k,1546) - lu(k,1561) = lu(k,1561) - lu(k,375) * lu(k,1546) - lu(k,1564) = lu(k,1564) - lu(k,376) * lu(k,1546) - lu(k,1566) = lu(k,1566) - lu(k,377) * lu(k,1546) - lu(k,1567) = lu(k,1567) - lu(k,378) * lu(k,1546) - lu(k,1569) = lu(k,1569) - lu(k,379) * lu(k,1546) - lu(k,1571) = lu(k,1571) - lu(k,380) * lu(k,1546) - lu(k,1576) = lu(k,1576) - lu(k,381) * lu(k,1546) - lu(k,1580) = lu(k,1580) - lu(k,382) * lu(k,1546) - lu(k,1581) = lu(k,1581) - lu(k,383) * lu(k,1546) - lu(k,1582) = lu(k,1582) - lu(k,384) * lu(k,1546) - lu(k,1746) = lu(k,1746) - lu(k,372) * lu(k,1736) - lu(k,1749) = - lu(k,373) * lu(k,1736) - lu(k,1750) = lu(k,1750) - lu(k,374) * lu(k,1736) - lu(k,1751) = - lu(k,375) * lu(k,1736) - lu(k,1754) = - lu(k,376) * lu(k,1736) - lu(k,1756) = lu(k,1756) - lu(k,377) * lu(k,1736) - lu(k,1757) = - lu(k,378) * lu(k,1736) - lu(k,1759) = lu(k,1759) - lu(k,379) * lu(k,1736) - lu(k,1761) = lu(k,1761) - lu(k,380) * lu(k,1736) - lu(k,1766) = - lu(k,381) * lu(k,1736) - lu(k,1770) = lu(k,1770) - lu(k,382) * lu(k,1736) - lu(k,1771) = lu(k,1771) - lu(k,383) * lu(k,1736) - lu(k,1772) = lu(k,1772) - lu(k,384) * lu(k,1736) - lu(k,1799) = lu(k,1799) - lu(k,372) * lu(k,1789) - lu(k,1802) = lu(k,1802) - lu(k,373) * lu(k,1789) - lu(k,1803) = lu(k,1803) - lu(k,374) * lu(k,1789) - lu(k,1804) = lu(k,1804) - lu(k,375) * lu(k,1789) - lu(k,1807) = lu(k,1807) - lu(k,376) * lu(k,1789) - lu(k,1809) = lu(k,1809) - lu(k,377) * lu(k,1789) - lu(k,1810) = lu(k,1810) - lu(k,378) * lu(k,1789) - lu(k,1812) = lu(k,1812) - lu(k,379) * lu(k,1789) - lu(k,1814) = lu(k,1814) - lu(k,380) * lu(k,1789) - lu(k,1819) = lu(k,1819) - lu(k,381) * lu(k,1789) - lu(k,1823) = lu(k,1823) - lu(k,382) * lu(k,1789) - lu(k,1824) = lu(k,1824) - lu(k,383) * lu(k,1789) - lu(k,1825) = lu(k,1825) - lu(k,384) * lu(k,1789) - 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,391) = lu(k,391) * lu(k,385) - lu(k,392) = lu(k,392) * lu(k,385) - lu(k,393) = lu(k,393) * lu(k,385) - lu(k,394) = lu(k,394) * lu(k,385) - lu(k,395) = lu(k,395) * lu(k,385) - lu(k,396) = lu(k,396) * lu(k,385) - lu(k,397) = lu(k,397) * lu(k,385) - lu(k,398) = lu(k,398) * lu(k,385) - lu(k,399) = lu(k,399) * lu(k,385) - lu(k,400) = lu(k,400) * lu(k,385) - lu(k,649) = lu(k,649) - lu(k,386) * lu(k,648) - lu(k,654) = lu(k,654) - lu(k,387) * lu(k,648) - lu(k,655) = lu(k,655) - lu(k,388) * lu(k,648) - lu(k,656) = lu(k,656) - lu(k,389) * lu(k,648) - lu(k,659) = lu(k,659) - lu(k,390) * lu(k,648) - lu(k,660) = lu(k,660) - lu(k,391) * lu(k,648) - lu(k,662) = lu(k,662) - lu(k,392) * lu(k,648) - lu(k,663) = lu(k,663) - lu(k,393) * lu(k,648) - lu(k,664) = lu(k,664) - lu(k,394) * lu(k,648) - lu(k,665) = lu(k,665) - lu(k,395) * lu(k,648) - lu(k,667) = lu(k,667) - lu(k,396) * lu(k,648) - lu(k,668) = lu(k,668) - lu(k,397) * lu(k,648) - lu(k,670) = - lu(k,398) * lu(k,648) - lu(k,671) = lu(k,671) - lu(k,399) * lu(k,648) - lu(k,672) = lu(k,672) - lu(k,400) * lu(k,648) - lu(k,818) = lu(k,818) - lu(k,386) * lu(k,817) - lu(k,829) = lu(k,829) - lu(k,387) * lu(k,817) - lu(k,830) = lu(k,830) - lu(k,388) * lu(k,817) - lu(k,831) = lu(k,831) - lu(k,389) * lu(k,817) - lu(k,834) = lu(k,834) - lu(k,390) * lu(k,817) - lu(k,835) = lu(k,835) - lu(k,391) * lu(k,817) - lu(k,837) = lu(k,837) - lu(k,392) * lu(k,817) - lu(k,838) = lu(k,838) - lu(k,393) * lu(k,817) - lu(k,839) = lu(k,839) - lu(k,394) * lu(k,817) - lu(k,841) = lu(k,841) - lu(k,395) * lu(k,817) - lu(k,844) = lu(k,844) - lu(k,396) * lu(k,817) - lu(k,846) = lu(k,846) - lu(k,397) * lu(k,817) - lu(k,850) = lu(k,850) - lu(k,398) * lu(k,817) - lu(k,851) = lu(k,851) - lu(k,399) * lu(k,817) - lu(k,852) = lu(k,852) - lu(k,400) * lu(k,817) - lu(k,865) = lu(k,865) - lu(k,386) * lu(k,864) - lu(k,877) = lu(k,877) - lu(k,387) * lu(k,864) - lu(k,878) = lu(k,878) - lu(k,388) * lu(k,864) - lu(k,879) = lu(k,879) - lu(k,389) * lu(k,864) - lu(k,882) = lu(k,882) - lu(k,390) * lu(k,864) - lu(k,883) = lu(k,883) - lu(k,391) * lu(k,864) - lu(k,885) = lu(k,885) - lu(k,392) * lu(k,864) - lu(k,886) = lu(k,886) - lu(k,393) * lu(k,864) - lu(k,887) = lu(k,887) - lu(k,394) * lu(k,864) - lu(k,889) = lu(k,889) - lu(k,395) * lu(k,864) - lu(k,892) = lu(k,892) - lu(k,396) * lu(k,864) - lu(k,894) = lu(k,894) - lu(k,397) * lu(k,864) - lu(k,898) = lu(k,898) - lu(k,398) * lu(k,864) - lu(k,899) = lu(k,899) - lu(k,399) * lu(k,864) - lu(k,900) = lu(k,900) - lu(k,400) * lu(k,864) - lu(k,909) = lu(k,909) - lu(k,386) * lu(k,908) - lu(k,920) = lu(k,920) - lu(k,387) * lu(k,908) - lu(k,921) = lu(k,921) - lu(k,388) * lu(k,908) - lu(k,922) = lu(k,922) - lu(k,389) * lu(k,908) - lu(k,925) = lu(k,925) - lu(k,390) * lu(k,908) - lu(k,926) = lu(k,926) - lu(k,391) * lu(k,908) - lu(k,928) = lu(k,928) - lu(k,392) * lu(k,908) - lu(k,929) = lu(k,929) - lu(k,393) * lu(k,908) - lu(k,930) = lu(k,930) - lu(k,394) * lu(k,908) - lu(k,932) = lu(k,932) - lu(k,395) * lu(k,908) - lu(k,935) = lu(k,935) - lu(k,396) * lu(k,908) - lu(k,937) = lu(k,937) - lu(k,397) * lu(k,908) - lu(k,941) = lu(k,941) - lu(k,398) * lu(k,908) - lu(k,942) = lu(k,942) - lu(k,399) * lu(k,908) - lu(k,943) = lu(k,943) - lu(k,400) * lu(k,908) - lu(k,1050) = lu(k,1050) - lu(k,386) * lu(k,1049) - lu(k,1061) = lu(k,1061) - lu(k,387) * lu(k,1049) - lu(k,1062) = lu(k,1062) - lu(k,388) * lu(k,1049) - lu(k,1063) = lu(k,1063) - lu(k,389) * lu(k,1049) - lu(k,1066) = lu(k,1066) - lu(k,390) * lu(k,1049) - lu(k,1067) = lu(k,1067) - lu(k,391) * lu(k,1049) - lu(k,1069) = lu(k,1069) - lu(k,392) * lu(k,1049) - lu(k,1070) = lu(k,1070) - lu(k,393) * lu(k,1049) - lu(k,1071) = lu(k,1071) - lu(k,394) * lu(k,1049) - lu(k,1073) = lu(k,1073) - lu(k,395) * lu(k,1049) - lu(k,1076) = lu(k,1076) - lu(k,396) * lu(k,1049) - lu(k,1078) = lu(k,1078) - lu(k,397) * lu(k,1049) - lu(k,1082) = lu(k,1082) - lu(k,398) * lu(k,1049) - lu(k,1083) = lu(k,1083) - lu(k,399) * lu(k,1049) - lu(k,1084) = lu(k,1084) - lu(k,400) * lu(k,1049) - lu(k,1091) = lu(k,1091) - lu(k,386) * lu(k,1089) - lu(k,1101) = - lu(k,387) * lu(k,1089) - lu(k,1102) = - lu(k,388) * lu(k,1089) - lu(k,1103) = - lu(k,389) * lu(k,1089) - lu(k,1106) = - lu(k,390) * lu(k,1089) - lu(k,1107) = lu(k,1107) - lu(k,391) * lu(k,1089) - lu(k,1109) = - lu(k,392) * lu(k,1089) - lu(k,1110) = lu(k,1110) - lu(k,393) * lu(k,1089) - lu(k,1111) = lu(k,1111) - lu(k,394) * lu(k,1089) - lu(k,1113) = - lu(k,395) * lu(k,1089) - lu(k,1116) = lu(k,1116) - lu(k,396) * lu(k,1089) - lu(k,1118) = - lu(k,397) * lu(k,1089) - lu(k,1122) = lu(k,1122) - lu(k,398) * lu(k,1089) - lu(k,1123) = lu(k,1123) - lu(k,399) * lu(k,1089) - lu(k,1124) = lu(k,1124) - lu(k,400) * lu(k,1089) - lu(k,1178) = lu(k,1178) - lu(k,386) * lu(k,1177) - lu(k,1189) = lu(k,1189) - lu(k,387) * lu(k,1177) - lu(k,1190) = lu(k,1190) - lu(k,388) * lu(k,1177) - lu(k,1191) = lu(k,1191) - lu(k,389) * lu(k,1177) - lu(k,1194) = lu(k,1194) - lu(k,390) * lu(k,1177) - lu(k,1195) = lu(k,1195) - lu(k,391) * lu(k,1177) - lu(k,1197) = lu(k,1197) - lu(k,392) * lu(k,1177) - lu(k,1198) = lu(k,1198) - lu(k,393) * lu(k,1177) - lu(k,1199) = lu(k,1199) - lu(k,394) * lu(k,1177) - lu(k,1201) = lu(k,1201) - lu(k,395) * lu(k,1177) - lu(k,1204) = lu(k,1204) - lu(k,396) * lu(k,1177) - lu(k,1206) = lu(k,1206) - lu(k,397) * lu(k,1177) - lu(k,1210) = lu(k,1210) - lu(k,398) * lu(k,1177) - lu(k,1211) = lu(k,1211) - lu(k,399) * lu(k,1177) - lu(k,1212) = lu(k,1212) - lu(k,400) * lu(k,1177) - lu(k,1336) = lu(k,1336) - lu(k,386) * lu(k,1335) - lu(k,1348) = lu(k,1348) - lu(k,387) * lu(k,1335) - lu(k,1349) = lu(k,1349) - lu(k,388) * lu(k,1335) - lu(k,1350) = lu(k,1350) - lu(k,389) * lu(k,1335) - lu(k,1353) = lu(k,1353) - lu(k,390) * lu(k,1335) - lu(k,1354) = lu(k,1354) - lu(k,391) * lu(k,1335) - lu(k,1356) = lu(k,1356) - lu(k,392) * lu(k,1335) - lu(k,1357) = lu(k,1357) - lu(k,393) * lu(k,1335) - lu(k,1358) = lu(k,1358) - lu(k,394) * lu(k,1335) - lu(k,1360) = lu(k,1360) - lu(k,395) * lu(k,1335) - lu(k,1363) = lu(k,1363) - lu(k,396) * lu(k,1335) - lu(k,1365) = lu(k,1365) - lu(k,397) * lu(k,1335) - lu(k,1369) = lu(k,1369) - lu(k,398) * lu(k,1335) - lu(k,1370) = lu(k,1370) - lu(k,399) * lu(k,1335) - lu(k,1371) = lu(k,1371) - lu(k,400) * lu(k,1335) - lu(k,1462) = - lu(k,386) * lu(k,1461) - lu(k,1473) = lu(k,1473) - lu(k,387) * lu(k,1461) - lu(k,1474) = lu(k,1474) - lu(k,388) * lu(k,1461) - lu(k,1475) = lu(k,1475) - lu(k,389) * lu(k,1461) - lu(k,1478) = lu(k,1478) - lu(k,390) * lu(k,1461) - lu(k,1479) = lu(k,1479) - lu(k,391) * lu(k,1461) - lu(k,1481) = lu(k,1481) - lu(k,392) * lu(k,1461) - lu(k,1482) = lu(k,1482) - lu(k,393) * lu(k,1461) - lu(k,1483) = lu(k,1483) - lu(k,394) * lu(k,1461) - lu(k,1485) = lu(k,1485) - lu(k,395) * lu(k,1461) - lu(k,1488) = lu(k,1488) - lu(k,396) * lu(k,1461) - lu(k,1490) = lu(k,1490) - lu(k,397) * lu(k,1461) - lu(k,1494) = lu(k,1494) - lu(k,398) * lu(k,1461) - lu(k,1495) = lu(k,1495) - lu(k,399) * lu(k,1461) - lu(k,1496) = lu(k,1496) - lu(k,400) * lu(k,1461) - lu(k,1548) = lu(k,1548) - lu(k,386) * lu(k,1547) - lu(k,1559) = lu(k,1559) - lu(k,387) * lu(k,1547) - lu(k,1560) = lu(k,1560) - lu(k,388) * lu(k,1547) - lu(k,1561) = lu(k,1561) - lu(k,389) * lu(k,1547) - lu(k,1564) = lu(k,1564) - lu(k,390) * lu(k,1547) - lu(k,1565) = lu(k,1565) - lu(k,391) * lu(k,1547) - lu(k,1567) = lu(k,1567) - lu(k,392) * lu(k,1547) - lu(k,1568) = lu(k,1568) - lu(k,393) * lu(k,1547) - lu(k,1569) = lu(k,1569) - lu(k,394) * lu(k,1547) - lu(k,1571) = lu(k,1571) - lu(k,395) * lu(k,1547) - lu(k,1574) = lu(k,1574) - lu(k,396) * lu(k,1547) - lu(k,1576) = lu(k,1576) - lu(k,397) * lu(k,1547) - lu(k,1580) = lu(k,1580) - lu(k,398) * lu(k,1547) - lu(k,1581) = lu(k,1581) - lu(k,399) * lu(k,1547) - lu(k,1582) = lu(k,1582) - lu(k,400) * lu(k,1547) - end do + real(r8), intent(inout) :: lu(:) + lu(376) = 1._r8 / lu(376) + lu(377) = lu(377) * lu(376) + lu(378) = lu(378) * lu(376) + lu(379) = lu(379) * lu(376) + lu(380) = lu(380) * lu(376) + lu(381) = lu(381) * lu(376) + lu(382) = lu(382) * lu(376) + lu(383) = lu(383) * lu(376) + lu(384) = lu(384) * lu(376) + lu(385) = lu(385) * lu(376) + lu(386) = lu(386) * lu(376) + lu(387) = lu(387) * lu(376) + lu(388) = lu(388) * lu(376) + lu(389) = lu(389) * lu(376) + lu(585) = - lu(377) * lu(582) + lu(588) = lu(588) - lu(378) * lu(582) + lu(589) = lu(589) - lu(379) * lu(582) + lu(593) = lu(593) - lu(380) * lu(582) + lu(596) = lu(596) - lu(381) * lu(582) + lu(598) = lu(598) - lu(382) * lu(582) + lu(600) = lu(600) - lu(383) * lu(582) + lu(602) = lu(602) - lu(384) * lu(582) + lu(604) = - lu(385) * lu(582) + lu(606) = lu(606) - lu(386) * lu(582) + lu(607) = - lu(387) * lu(582) + lu(608) = - lu(388) * lu(582) + lu(609) = lu(609) - lu(389) * lu(582) + lu(737) = lu(737) - lu(377) * lu(733) + lu(739) = lu(739) - lu(378) * lu(733) + lu(740) = lu(740) - lu(379) * lu(733) + lu(744) = lu(744) - lu(380) * lu(733) + lu(747) = lu(747) - lu(381) * lu(733) + lu(749) = lu(749) - lu(382) * lu(733) + lu(751) = lu(751) - lu(383) * lu(733) + lu(753) = lu(753) - lu(384) * lu(733) + lu(755) = - lu(385) * lu(733) + lu(757) = lu(757) - lu(386) * lu(733) + lu(758) = lu(758) - lu(387) * lu(733) + lu(759) = lu(759) - lu(388) * lu(733) + lu(760) = - lu(389) * lu(733) + lu(933) = - lu(377) * lu(927) + lu(936) = lu(936) - lu(378) * lu(927) + lu(937) = lu(937) - lu(379) * lu(927) + lu(941) = lu(941) - lu(380) * lu(927) + lu(944) = - lu(381) * lu(927) + lu(946) = lu(946) - lu(382) * lu(927) + lu(948) = lu(948) - lu(383) * lu(927) + lu(950) = lu(950) - lu(384) * lu(927) + lu(952) = lu(952) - lu(385) * lu(927) + lu(954) = lu(954) - lu(386) * lu(927) + lu(955) = lu(955) - lu(387) * lu(927) + lu(956) = - lu(388) * lu(927) + lu(957) = lu(957) - lu(389) * lu(927) + lu(1060) = lu(1060) - lu(377) * lu(1051) + lu(1063) = lu(1063) - lu(378) * lu(1051) + lu(1064) = lu(1064) - lu(379) * lu(1051) + lu(1068) = lu(1068) - lu(380) * lu(1051) + lu(1071) = lu(1071) - lu(381) * lu(1051) + lu(1073) = lu(1073) - lu(382) * lu(1051) + lu(1075) = lu(1075) - lu(383) * lu(1051) + lu(1077) = lu(1077) - lu(384) * lu(1051) + lu(1079) = lu(1079) - lu(385) * lu(1051) + lu(1081) = lu(1081) - lu(386) * lu(1051) + lu(1082) = lu(1082) - lu(387) * lu(1051) + lu(1083) = lu(1083) - lu(388) * lu(1051) + lu(1084) = lu(1084) - lu(389) * lu(1051) + lu(1145) = - lu(377) * lu(1141) + lu(1148) = lu(1148) - lu(378) * lu(1141) + lu(1149) = - lu(379) * lu(1141) + lu(1153) = lu(1153) - lu(380) * lu(1141) + lu(1156) = lu(1156) - lu(381) * lu(1141) + lu(1158) = lu(1158) - lu(382) * lu(1141) + lu(1160) = lu(1160) - lu(383) * lu(1141) + lu(1162) = lu(1162) - lu(384) * lu(1141) + lu(1164) = lu(1164) - lu(385) * lu(1141) + lu(1166) = lu(1166) - lu(386) * lu(1141) + lu(1167) = - lu(387) * lu(1141) + lu(1168) = lu(1168) - lu(388) * lu(1141) + lu(1169) = lu(1169) - lu(389) * lu(1141) + lu(1222) = lu(1222) - lu(377) * lu(1219) + lu(1225) = - lu(378) * lu(1219) + lu(1226) = lu(1226) - lu(379) * lu(1219) + lu(1230) = lu(1230) - lu(380) * lu(1219) + lu(1233) = lu(1233) - lu(381) * lu(1219) + lu(1235) = lu(1235) - lu(382) * lu(1219) + lu(1237) = lu(1237) - lu(383) * lu(1219) + lu(1239) = lu(1239) - lu(384) * lu(1219) + lu(1241) = lu(1241) - lu(385) * lu(1219) + lu(1243) = lu(1243) - lu(386) * lu(1219) + lu(1244) = - lu(387) * lu(1219) + lu(1245) = lu(1245) - lu(388) * lu(1219) + lu(1246) = lu(1246) - lu(389) * lu(1219) + lu(1307) = lu(1307) - lu(377) * lu(1300) + lu(1310) = lu(1310) - lu(378) * lu(1300) + lu(1311) = lu(1311) - lu(379) * lu(1300) + lu(1315) = lu(1315) - lu(380) * lu(1300) + lu(1318) = lu(1318) - lu(381) * lu(1300) + lu(1320) = lu(1320) - lu(382) * lu(1300) + lu(1322) = - lu(383) * lu(1300) + lu(1324) = lu(1324) - lu(384) * lu(1300) + lu(1326) = lu(1326) - lu(385) * lu(1300) + lu(1328) = lu(1328) - lu(386) * lu(1300) + lu(1329) = - lu(387) * lu(1300) + lu(1330) = lu(1330) - lu(388) * lu(1300) + lu(1331) = lu(1331) - lu(389) * lu(1300) + lu(1488) = lu(1488) - lu(377) * lu(1481) + lu(1491) = lu(1491) - lu(378) * lu(1481) + lu(1492) = lu(1492) - lu(379) * lu(1481) + lu(1496) = lu(1496) - lu(380) * lu(1481) + lu(1499) = lu(1499) - lu(381) * lu(1481) + lu(1501) = lu(1501) - lu(382) * lu(1481) + lu(1503) = lu(1503) - lu(383) * lu(1481) + lu(1505) = lu(1505) - lu(384) * lu(1481) + lu(1507) = lu(1507) - lu(385) * lu(1481) + lu(1509) = lu(1509) - lu(386) * lu(1481) + lu(1510) = lu(1510) - lu(387) * lu(1481) + lu(1511) = lu(1511) - lu(388) * lu(1481) + lu(1512) = lu(1512) - lu(389) * lu(1481) + lu(1520) = - lu(377) * lu(1518) + lu(1523) = - lu(378) * lu(1518) + lu(1524) = lu(1524) - lu(379) * lu(1518) + lu(1528) = lu(1528) - lu(380) * lu(1518) + lu(1531) = lu(1531) - lu(381) * lu(1518) + lu(1533) = lu(1533) - lu(382) * lu(1518) + lu(1535) = - lu(383) * lu(1518) + lu(1537) = lu(1537) - lu(384) * lu(1518) + lu(1539) = lu(1539) - lu(385) * lu(1518) + lu(1541) = lu(1541) - lu(386) * lu(1518) + lu(1542) = lu(1542) - lu(387) * lu(1518) + lu(1543) = - lu(388) * lu(1518) + lu(1544) = lu(1544) - lu(389) * lu(1518) + lu(1555) = lu(1555) - lu(377) * lu(1550) + lu(1558) = lu(1558) - lu(378) * lu(1550) + lu(1559) = lu(1559) - lu(379) * lu(1550) + lu(1563) = lu(1563) - lu(380) * lu(1550) + lu(1566) = lu(1566) - lu(381) * lu(1550) + lu(1568) = lu(1568) - lu(382) * lu(1550) + lu(1570) = lu(1570) - lu(383) * lu(1550) + lu(1572) = lu(1572) - lu(384) * lu(1550) + lu(1574) = lu(1574) - lu(385) * lu(1550) + lu(1576) = lu(1576) - lu(386) * lu(1550) + lu(1577) = lu(1577) - lu(387) * lu(1550) + lu(1578) = lu(1578) - lu(388) * lu(1550) + lu(1579) = lu(1579) - lu(389) * lu(1550) + lu(1593) = lu(1593) - lu(377) * lu(1587) + lu(1596) = - lu(378) * lu(1587) + lu(1597) = lu(1597) - lu(379) * lu(1587) + lu(1601) = lu(1601) - lu(380) * lu(1587) + lu(1604) = lu(1604) - lu(381) * lu(1587) + lu(1606) = lu(1606) - lu(382) * lu(1587) + lu(1608) = lu(1608) - lu(383) * lu(1587) + lu(1610) = lu(1610) - lu(384) * lu(1587) + lu(1612) = lu(1612) - lu(385) * lu(1587) + lu(1614) = lu(1614) - lu(386) * lu(1587) + lu(1615) = lu(1615) - lu(387) * lu(1587) + lu(1616) = lu(1616) - lu(388) * lu(1587) + lu(1617) = lu(1617) - lu(389) * lu(1587) + lu(390) = 1._r8 / lu(390) + lu(391) = lu(391) * lu(390) + lu(392) = lu(392) * lu(390) + lu(393) = lu(393) * lu(390) + lu(394) = lu(394) * lu(390) + lu(395) = lu(395) * lu(390) + lu(396) = lu(396) * lu(390) + lu(397) = lu(397) * lu(390) + lu(398) = lu(398) * lu(390) + lu(399) = lu(399) * lu(390) + lu(400) = lu(400) * lu(390) + lu(401) = lu(401) * lu(390) + lu(402) = lu(402) * lu(390) + lu(403) = lu(403) * lu(390) + lu(404) = lu(404) * lu(390) + lu(405) = lu(405) * lu(390) + lu(633) = lu(633) - lu(391) * lu(632) + lu(638) = lu(638) - lu(392) * lu(632) + lu(639) = lu(639) - lu(393) * lu(632) + lu(640) = lu(640) - lu(394) * lu(632) + lu(641) = - lu(395) * lu(632) + lu(642) = lu(642) - lu(396) * lu(632) + lu(643) = lu(643) - lu(397) * lu(632) + lu(645) = lu(645) - lu(398) * lu(632) + lu(647) = lu(647) - lu(399) * lu(632) + lu(648) = lu(648) - lu(400) * lu(632) + lu(649) = lu(649) - lu(401) * lu(632) + lu(651) = lu(651) - lu(402) * lu(632) + lu(654) = lu(654) - lu(403) * lu(632) + lu(655) = lu(655) - lu(404) * lu(632) + lu(656) = lu(656) - lu(405) * lu(632) + lu(805) = lu(805) - lu(391) * lu(804) + lu(817) = lu(817) - lu(392) * lu(804) + lu(818) = lu(818) - lu(393) * lu(804) + lu(819) = lu(819) - lu(394) * lu(804) + lu(820) = lu(820) - lu(395) * lu(804) + lu(821) = lu(821) - lu(396) * lu(804) + lu(822) = lu(822) - lu(397) * lu(804) + lu(825) = lu(825) - lu(398) * lu(804) + lu(828) = lu(828) - lu(399) * lu(804) + lu(829) = lu(829) - lu(400) * lu(804) + lu(830) = lu(830) - lu(401) * lu(804) + lu(832) = lu(832) - lu(402) * lu(804) + lu(837) = lu(837) - lu(403) * lu(804) + lu(838) = lu(838) - lu(404) * lu(804) + lu(839) = lu(839) - lu(405) * lu(804) + lu(848) = lu(848) - lu(391) * lu(847) + lu(859) = lu(859) - lu(392) * lu(847) + lu(860) = lu(860) - lu(393) * lu(847) + lu(861) = lu(861) - lu(394) * lu(847) + lu(862) = lu(862) - lu(395) * lu(847) + lu(863) = lu(863) - lu(396) * lu(847) + lu(864) = lu(864) - lu(397) * lu(847) + lu(867) = lu(867) - lu(398) * lu(847) + lu(870) = lu(870) - lu(399) * lu(847) + lu(871) = lu(871) - lu(400) * lu(847) + lu(872) = lu(872) - lu(401) * lu(847) + lu(874) = lu(874) - lu(402) * lu(847) + lu(879) = lu(879) - lu(403) * lu(847) + lu(880) = lu(880) - lu(404) * lu(847) + lu(881) = lu(881) - lu(405) * lu(847) + lu(893) = - lu(391) * lu(891) + lu(903) = lu(903) - lu(392) * lu(891) + lu(904) = lu(904) - lu(393) * lu(891) + lu(905) = lu(905) - lu(394) * lu(891) + lu(906) = lu(906) - lu(395) * lu(891) + lu(907) = lu(907) - lu(396) * lu(891) + lu(908) = lu(908) - lu(397) * lu(891) + lu(911) = lu(911) - lu(398) * lu(891) + lu(914) = lu(914) - lu(399) * lu(891) + lu(915) = lu(915) - lu(400) * lu(891) + lu(916) = lu(916) - lu(401) * lu(891) + lu(918) = lu(918) - lu(402) * lu(891) + lu(923) = lu(923) - lu(403) * lu(891) + lu(924) = lu(924) - lu(404) * lu(891) + lu(925) = lu(925) - lu(405) * lu(891) + lu(968) = lu(968) - lu(391) * lu(967) + lu(979) = lu(979) - lu(392) * lu(967) + lu(980) = lu(980) - lu(393) * lu(967) + lu(981) = lu(981) - lu(394) * lu(967) + lu(982) = lu(982) - lu(395) * lu(967) + lu(983) = lu(983) - lu(396) * lu(967) + lu(984) = lu(984) - lu(397) * lu(967) + lu(987) = lu(987) - lu(398) * lu(967) + lu(990) = lu(990) - lu(399) * lu(967) + lu(991) = lu(991) - lu(400) * lu(967) + lu(992) = lu(992) - lu(401) * lu(967) + lu(994) = lu(994) - lu(402) * lu(967) + lu(999) = lu(999) - lu(403) * lu(967) + lu(1000) = lu(1000) - lu(404) * lu(967) + lu(1001) = lu(1001) - lu(405) * lu(967) + lu(1010) = lu(1010) - lu(391) * lu(1009) + lu(1021) = lu(1021) - lu(392) * lu(1009) + lu(1022) = lu(1022) - lu(393) * lu(1009) + lu(1023) = lu(1023) - lu(394) * lu(1009) + lu(1024) = lu(1024) - lu(395) * lu(1009) + lu(1025) = lu(1025) - lu(396) * lu(1009) + lu(1026) = lu(1026) - lu(397) * lu(1009) + lu(1029) = lu(1029) - lu(398) * lu(1009) + lu(1032) = lu(1032) - lu(399) * lu(1009) + lu(1033) = lu(1033) - lu(400) * lu(1009) + lu(1034) = lu(1034) - lu(401) * lu(1009) + lu(1036) = lu(1036) - lu(402) * lu(1009) + lu(1041) = lu(1041) - lu(403) * lu(1009) + lu(1042) = lu(1042) - lu(404) * lu(1009) + lu(1043) = lu(1043) - lu(405) * lu(1009) + lu(1259) = lu(1259) - lu(391) * lu(1258) + lu(1271) = lu(1271) - lu(392) * lu(1258) + lu(1272) = lu(1272) - lu(393) * lu(1258) + lu(1273) = lu(1273) - lu(394) * lu(1258) + lu(1274) = lu(1274) - lu(395) * lu(1258) + lu(1275) = lu(1275) - lu(396) * lu(1258) + lu(1276) = lu(1276) - lu(397) * lu(1258) + lu(1279) = lu(1279) - lu(398) * lu(1258) + lu(1282) = lu(1282) - lu(399) * lu(1258) + lu(1283) = lu(1283) - lu(400) * lu(1258) + lu(1284) = lu(1284) - lu(401) * lu(1258) + lu(1286) = lu(1286) - lu(402) * lu(1258) + lu(1291) = lu(1291) - lu(403) * lu(1258) + lu(1292) = lu(1292) - lu(404) * lu(1258) + lu(1293) = lu(1293) - lu(405) * lu(1258) + lu(1343) = lu(1343) - lu(391) * lu(1342) + lu(1354) = lu(1354) - lu(392) * lu(1342) + lu(1355) = lu(1355) - lu(393) * lu(1342) + lu(1356) = lu(1356) - lu(394) * lu(1342) + lu(1357) = lu(1357) - lu(395) * lu(1342) + lu(1358) = lu(1358) - lu(396) * lu(1342) + lu(1359) = lu(1359) - lu(397) * lu(1342) + lu(1362) = lu(1362) - lu(398) * lu(1342) + lu(1365) = lu(1365) - lu(399) * lu(1342) + lu(1366) = lu(1366) - lu(400) * lu(1342) + lu(1367) = lu(1367) - lu(401) * lu(1342) + lu(1369) = lu(1369) - lu(402) * lu(1342) + lu(1374) = lu(1374) - lu(403) * lu(1342) + lu(1375) = lu(1375) - lu(404) * lu(1342) + lu(1376) = lu(1376) - lu(405) * lu(1342) + lu(1427) = lu(1427) - lu(391) * lu(1426) + lu(1438) = lu(1438) - lu(392) * lu(1426) + lu(1439) = lu(1439) - lu(393) * lu(1426) + lu(1440) = lu(1440) - lu(394) * lu(1426) + lu(1441) = lu(1441) - lu(395) * lu(1426) + lu(1442) = lu(1442) - lu(396) * lu(1426) + lu(1443) = lu(1443) - lu(397) * lu(1426) + lu(1446) = lu(1446) - lu(398) * lu(1426) + lu(1449) = lu(1449) - lu(399) * lu(1426) + lu(1450) = lu(1450) - lu(400) * lu(1426) + lu(1451) = lu(1451) - lu(401) * lu(1426) + lu(1453) = lu(1453) - lu(402) * lu(1426) + lu(1458) = lu(1458) - lu(403) * lu(1426) + lu(1459) = lu(1459) - lu(404) * lu(1426) + lu(1460) = lu(1460) - lu(405) * lu(1426) + lu(1627) = lu(1627) - lu(391) * lu(1625) + lu(1637) = - lu(392) * lu(1625) + lu(1638) = - lu(393) * lu(1625) + lu(1639) = lu(1639) - lu(394) * lu(1625) + lu(1640) = lu(1640) - lu(395) * lu(1625) + lu(1641) = - lu(396) * lu(1625) + lu(1642) = - lu(397) * lu(1625) + lu(1645) = lu(1645) - lu(398) * lu(1625) + lu(1648) = - lu(399) * lu(1625) + lu(1649) = lu(1649) - lu(400) * lu(1625) + lu(1650) = - lu(401) * lu(1625) + lu(1652) = - lu(402) * lu(1625) + lu(1657) = lu(1657) - lu(403) * lu(1625) + lu(1658) = lu(1658) - lu(404) * lu(1625) + lu(1659) = lu(1659) - lu(405) * lu(1625) end subroutine lu_fac10 - subroutine lu_fac11( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac11( lu ) 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,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,413) = lu(k,413) * lu(k,401) - lu(k,414) = lu(k,414) * lu(k,401) - lu(k,415) = lu(k,415) * lu(k,401) - lu(k,620) = - lu(k,402) * lu(k,617) - lu(k,622) = lu(k,622) - lu(k,403) * lu(k,617) - lu(k,624) = lu(k,624) - lu(k,404) * lu(k,617) - lu(k,628) = lu(k,628) - lu(k,405) * lu(k,617) - lu(k,629) = - lu(k,406) * lu(k,617) - lu(k,632) = lu(k,632) - lu(k,407) * lu(k,617) - lu(k,634) = lu(k,634) - lu(k,408) * lu(k,617) - lu(k,635) = lu(k,635) - lu(k,409) * lu(k,617) - lu(k,637) = lu(k,637) - lu(k,410) * lu(k,617) - lu(k,638) = lu(k,638) - lu(k,411) * lu(k,617) - lu(k,642) = - lu(k,412) * lu(k,617) - lu(k,643) = - lu(k,413) * lu(k,617) - lu(k,645) = lu(k,645) - lu(k,414) * lu(k,617) - lu(k,646) = lu(k,646) - lu(k,415) * lu(k,617) - lu(k,782) = lu(k,782) - lu(k,402) * lu(k,778) - lu(k,783) = lu(k,783) - lu(k,403) * lu(k,778) - lu(k,785) = lu(k,785) - lu(k,404) * lu(k,778) - lu(k,789) = lu(k,789) - lu(k,405) * lu(k,778) - lu(k,790) = - lu(k,406) * lu(k,778) - lu(k,793) = lu(k,793) - lu(k,407) * lu(k,778) - lu(k,796) = lu(k,796) - lu(k,408) * lu(k,778) - lu(k,797) = lu(k,797) - lu(k,409) * lu(k,778) - lu(k,799) = lu(k,799) - lu(k,410) * lu(k,778) - lu(k,800) = - lu(k,411) * lu(k,778) - lu(k,804) = lu(k,804) - lu(k,412) * lu(k,778) - lu(k,805) = lu(k,805) - lu(k,413) * lu(k,778) - lu(k,807) = lu(k,807) - lu(k,414) * lu(k,778) - lu(k,808) = lu(k,808) - lu(k,415) * lu(k,778) - lu(k,971) = lu(k,971) - lu(k,402) * lu(k,964) - lu(k,973) = lu(k,973) - lu(k,403) * lu(k,964) - lu(k,975) = lu(k,975) - lu(k,404) * lu(k,964) - lu(k,979) = lu(k,979) - lu(k,405) * lu(k,964) - lu(k,980) = lu(k,980) - lu(k,406) * lu(k,964) - lu(k,983) = lu(k,983) - lu(k,407) * lu(k,964) - lu(k,986) = lu(k,986) - lu(k,408) * lu(k,964) - lu(k,987) = lu(k,987) - lu(k,409) * lu(k,964) - lu(k,989) = lu(k,989) - lu(k,410) * lu(k,964) - lu(k,990) = lu(k,990) - lu(k,411) * lu(k,964) - lu(k,994) = lu(k,994) - lu(k,412) * lu(k,964) - lu(k,995) = lu(k,995) - lu(k,413) * lu(k,964) - lu(k,997) = lu(k,997) - lu(k,414) * lu(k,964) - lu(k,998) = lu(k,998) - lu(k,415) * lu(k,964) - lu(k,1141) = lu(k,1141) - lu(k,402) * lu(k,1132) - lu(k,1143) = lu(k,1143) - lu(k,403) * lu(k,1132) - lu(k,1145) = lu(k,1145) - lu(k,404) * lu(k,1132) - lu(k,1149) = lu(k,1149) - lu(k,405) * lu(k,1132) - lu(k,1150) = lu(k,1150) - lu(k,406) * lu(k,1132) - lu(k,1153) = lu(k,1153) - lu(k,407) * lu(k,1132) - lu(k,1156) = lu(k,1156) - lu(k,408) * lu(k,1132) - lu(k,1157) = lu(k,1157) - lu(k,409) * lu(k,1132) - lu(k,1159) = lu(k,1159) - lu(k,410) * lu(k,1132) - lu(k,1160) = lu(k,1160) - lu(k,411) * lu(k,1132) - lu(k,1164) = lu(k,1164) - lu(k,412) * lu(k,1132) - lu(k,1165) = lu(k,1165) - lu(k,413) * lu(k,1132) - lu(k,1167) = lu(k,1167) - lu(k,414) * lu(k,1132) - lu(k,1168) = lu(k,1168) - lu(k,415) * lu(k,1132) - lu(k,1262) = - lu(k,402) * lu(k,1259) - lu(k,1264) = - lu(k,403) * lu(k,1259) - lu(k,1266) = lu(k,1266) - lu(k,404) * lu(k,1259) - lu(k,1270) = lu(k,1270) - lu(k,405) * lu(k,1259) - lu(k,1271) = lu(k,1271) - lu(k,406) * lu(k,1259) - lu(k,1274) = lu(k,1274) - lu(k,407) * lu(k,1259) - lu(k,1277) = lu(k,1277) - lu(k,408) * lu(k,1259) - lu(k,1278) = lu(k,1278) - lu(k,409) * lu(k,1259) - lu(k,1280) = lu(k,1280) - lu(k,410) * lu(k,1259) - lu(k,1281) = lu(k,1281) - lu(k,411) * lu(k,1259) - lu(k,1285) = - lu(k,412) * lu(k,1259) - lu(k,1286) = lu(k,1286) - lu(k,413) * lu(k,1259) - lu(k,1288) = lu(k,1288) - lu(k,414) * lu(k,1259) - lu(k,1289) = lu(k,1289) - lu(k,415) * lu(k,1259) - lu(k,1298) = lu(k,1298) - lu(k,402) * lu(k,1295) - lu(k,1300) = lu(k,1300) - lu(k,403) * lu(k,1295) - lu(k,1302) = - lu(k,404) * lu(k,1295) - lu(k,1306) = lu(k,1306) - lu(k,405) * lu(k,1295) - lu(k,1307) = lu(k,1307) - lu(k,406) * lu(k,1295) - lu(k,1310) = lu(k,1310) - lu(k,407) * lu(k,1295) - lu(k,1313) = lu(k,1313) - lu(k,408) * lu(k,1295) - lu(k,1314) = lu(k,1314) - lu(k,409) * lu(k,1295) - lu(k,1316) = lu(k,1316) - lu(k,410) * lu(k,1295) - lu(k,1317) = lu(k,1317) - lu(k,411) * lu(k,1295) - lu(k,1321) = - lu(k,412) * lu(k,1295) - lu(k,1322) = lu(k,1322) - lu(k,413) * lu(k,1295) - lu(k,1324) = lu(k,1324) - lu(k,414) * lu(k,1295) - lu(k,1325) = lu(k,1325) - lu(k,415) * lu(k,1295) - lu(k,1385) = - lu(k,402) * lu(k,1382) - lu(k,1387) = - lu(k,403) * lu(k,1382) - lu(k,1389) = lu(k,1389) - lu(k,404) * lu(k,1382) - lu(k,1393) = lu(k,1393) - lu(k,405) * lu(k,1382) - lu(k,1394) = lu(k,1394) - lu(k,406) * lu(k,1382) - lu(k,1397) = lu(k,1397) - lu(k,407) * lu(k,1382) - lu(k,1400) = lu(k,1400) - lu(k,408) * lu(k,1382) - lu(k,1401) = lu(k,1401) - lu(k,409) * lu(k,1382) - lu(k,1403) = lu(k,1403) - lu(k,410) * lu(k,1382) - lu(k,1404) = lu(k,1404) - lu(k,411) * lu(k,1382) - lu(k,1408) = lu(k,1408) - lu(k,412) * lu(k,1382) - lu(k,1409) = lu(k,1409) - lu(k,413) * lu(k,1382) - lu(k,1411) = lu(k,1411) - lu(k,414) * lu(k,1382) - lu(k,1412) = lu(k,1412) - lu(k,415) * lu(k,1382) - lu(k,1423) = lu(k,1423) - lu(k,402) * lu(k,1418) - lu(k,1425) = lu(k,1425) - lu(k,403) * lu(k,1418) - lu(k,1427) = - lu(k,404) * lu(k,1418) - lu(k,1431) = lu(k,1431) - lu(k,405) * lu(k,1418) - lu(k,1432) = lu(k,1432) - lu(k,406) * lu(k,1418) - lu(k,1435) = lu(k,1435) - lu(k,407) * lu(k,1418) - lu(k,1438) = lu(k,1438) - lu(k,408) * lu(k,1418) - lu(k,1439) = lu(k,1439) - lu(k,409) * lu(k,1418) - lu(k,1441) = lu(k,1441) - lu(k,410) * lu(k,1418) - lu(k,1442) = lu(k,1442) - lu(k,411) * lu(k,1418) - lu(k,1446) = lu(k,1446) - lu(k,412) * lu(k,1418) - lu(k,1447) = lu(k,1447) - lu(k,413) * lu(k,1418) - lu(k,1449) = lu(k,1449) - lu(k,414) * lu(k,1418) - lu(k,1450) = lu(k,1450) - lu(k,415) * lu(k,1418) - lu(k,1587) = - lu(k,402) * lu(k,1585) - lu(k,1589) = lu(k,1589) - lu(k,403) * lu(k,1585) - lu(k,1591) = - lu(k,404) * lu(k,1585) - lu(k,1595) = lu(k,1595) - lu(k,405) * lu(k,1585) - lu(k,1596) = lu(k,1596) - lu(k,406) * lu(k,1585) - lu(k,1599) = lu(k,1599) - lu(k,407) * lu(k,1585) - lu(k,1602) = lu(k,1602) - lu(k,408) * lu(k,1585) - lu(k,1603) = - lu(k,409) * lu(k,1585) - lu(k,1605) = lu(k,1605) - lu(k,410) * lu(k,1585) - lu(k,1606) = lu(k,1606) - lu(k,411) * lu(k,1585) - lu(k,1610) = lu(k,1610) - lu(k,412) * lu(k,1585) - lu(k,1611) = - lu(k,413) * lu(k,1585) - lu(k,1613) = lu(k,1613) - lu(k,414) * lu(k,1585) - lu(k,1614) = lu(k,1614) - lu(k,415) * lu(k,1585) - lu(k,1623) = lu(k,1623) - lu(k,402) * lu(k,1618) - lu(k,1625) = lu(k,1625) - lu(k,403) * lu(k,1618) - lu(k,1627) = lu(k,1627) - lu(k,404) * lu(k,1618) - lu(k,1631) = lu(k,1631) - lu(k,405) * lu(k,1618) - lu(k,1632) = lu(k,1632) - lu(k,406) * lu(k,1618) - lu(k,1635) = lu(k,1635) - lu(k,407) * lu(k,1618) - lu(k,1638) = lu(k,1638) - lu(k,408) * lu(k,1618) - lu(k,1639) = lu(k,1639) - lu(k,409) * lu(k,1618) - lu(k,1641) = lu(k,1641) - lu(k,410) * lu(k,1618) - lu(k,1642) = lu(k,1642) - lu(k,411) * lu(k,1618) - lu(k,1646) = lu(k,1646) - lu(k,412) * lu(k,1618) - lu(k,1647) = lu(k,1647) - lu(k,413) * lu(k,1618) - lu(k,1649) = lu(k,1649) - lu(k,414) * lu(k,1618) - lu(k,1650) = lu(k,1650) - lu(k,415) * lu(k,1618) - lu(k,1702) = - lu(k,402) * lu(k,1696) - lu(k,1704) = lu(k,1704) - lu(k,403) * lu(k,1696) - lu(k,1706) = lu(k,1706) - lu(k,404) * lu(k,1696) - lu(k,1710) = lu(k,1710) - lu(k,405) * lu(k,1696) - lu(k,1711) = lu(k,1711) - lu(k,406) * lu(k,1696) - lu(k,1714) = - lu(k,407) * lu(k,1696) - lu(k,1717) = lu(k,1717) - lu(k,408) * lu(k,1696) - lu(k,1718) = lu(k,1718) - lu(k,409) * lu(k,1696) - lu(k,1720) = lu(k,1720) - lu(k,410) * lu(k,1696) - lu(k,1721) = lu(k,1721) - lu(k,411) * lu(k,1696) - lu(k,1725) = lu(k,1725) - lu(k,412) * lu(k,1696) - lu(k,1726) = - lu(k,413) * lu(k,1696) - lu(k,1728) = lu(k,1728) - lu(k,414) * lu(k,1696) - lu(k,1729) = lu(k,1729) - lu(k,415) * lu(k,1696) - lu(k,1744) = lu(k,1744) - lu(k,402) * lu(k,1737) - lu(k,1746) = lu(k,1746) - lu(k,403) * lu(k,1737) - lu(k,1748) = lu(k,1748) - lu(k,404) * lu(k,1737) - lu(k,1752) = lu(k,1752) - lu(k,405) * lu(k,1737) - lu(k,1753) = lu(k,1753) - lu(k,406) * lu(k,1737) - lu(k,1756) = lu(k,1756) - lu(k,407) * lu(k,1737) - lu(k,1759) = lu(k,1759) - lu(k,408) * lu(k,1737) - lu(k,1760) = - lu(k,409) * lu(k,1737) - lu(k,1762) = lu(k,1762) - lu(k,410) * lu(k,1737) - lu(k,1763) = lu(k,1763) - lu(k,411) * lu(k,1737) - lu(k,1767) = - lu(k,412) * lu(k,1737) - lu(k,1768) = lu(k,1768) - lu(k,413) * lu(k,1737) - lu(k,1770) = lu(k,1770) - lu(k,414) * lu(k,1737) - lu(k,1771) = lu(k,1771) - lu(k,415) * lu(k,1737) - 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,427) = lu(k,427) * lu(k,419) - lu(k,428) = lu(k,428) * lu(k,419) - lu(k,429) = lu(k,429) * lu(k,419) - lu(k,430) = lu(k,430) * lu(k,419) - lu(k,431) = lu(k,431) * lu(k,419) - lu(k,432) = lu(k,432) * lu(k,419) - lu(k,433) = lu(k,433) * lu(k,419) - lu(k,434) = lu(k,434) * lu(k,419) - lu(k,435) = lu(k,435) * lu(k,419) - lu(k,436) = lu(k,436) * lu(k,419) - lu(k,437) = lu(k,437) * lu(k,419) - lu(k,541) = lu(k,541) - lu(k,420) * lu(k,539) - lu(k,542) = lu(k,542) - lu(k,421) * lu(k,539) - lu(k,543) = lu(k,543) - lu(k,422) * lu(k,539) - lu(k,544) = lu(k,544) - lu(k,423) * lu(k,539) - lu(k,545) = lu(k,545) - lu(k,424) * lu(k,539) - lu(k,546) = - lu(k,425) * lu(k,539) - lu(k,547) = lu(k,547) - lu(k,426) * lu(k,539) - lu(k,548) = - lu(k,427) * lu(k,539) - lu(k,549) = lu(k,549) - lu(k,428) * lu(k,539) - lu(k,550) = lu(k,550) - lu(k,429) * lu(k,539) - lu(k,553) = lu(k,553) - lu(k,430) * lu(k,539) - lu(k,554) = - lu(k,431) * lu(k,539) - lu(k,555) = - lu(k,432) * lu(k,539) - lu(k,556) = - lu(k,433) * lu(k,539) - lu(k,557) = lu(k,557) - lu(k,434) * lu(k,539) - lu(k,558) = lu(k,558) - lu(k,435) * lu(k,539) - lu(k,559) = - lu(k,436) * lu(k,539) - lu(k,560) = lu(k,560) - lu(k,437) * lu(k,539) - lu(k,572) = lu(k,572) - lu(k,420) * lu(k,570) - lu(k,573) = lu(k,573) - lu(k,421) * lu(k,570) - lu(k,574) = lu(k,574) - lu(k,422) * lu(k,570) - lu(k,575) = lu(k,575) - lu(k,423) * lu(k,570) - lu(k,577) = lu(k,577) - lu(k,424) * lu(k,570) - lu(k,578) = lu(k,578) - lu(k,425) * lu(k,570) - lu(k,579) = lu(k,579) - lu(k,426) * lu(k,570) - lu(k,580) = lu(k,580) - lu(k,427) * lu(k,570) - lu(k,581) = lu(k,581) - lu(k,428) * lu(k,570) - lu(k,582) = lu(k,582) - lu(k,429) * lu(k,570) - lu(k,587) = lu(k,587) - lu(k,430) * lu(k,570) - lu(k,588) = lu(k,588) - lu(k,431) * lu(k,570) - lu(k,589) = - lu(k,432) * lu(k,570) - lu(k,590) = lu(k,590) - lu(k,433) * lu(k,570) - lu(k,591) = lu(k,591) - lu(k,434) * lu(k,570) - lu(k,592) = lu(k,592) - lu(k,435) * lu(k,570) - lu(k,593) = lu(k,593) - lu(k,436) * lu(k,570) - lu(k,594) = lu(k,594) - lu(k,437) * lu(k,570) - lu(k,684) = lu(k,684) - lu(k,420) * lu(k,682) - lu(k,685) = lu(k,685) - lu(k,421) * lu(k,682) - lu(k,686) = lu(k,686) - lu(k,422) * lu(k,682) - lu(k,687) = lu(k,687) - lu(k,423) * lu(k,682) - lu(k,689) = lu(k,689) - lu(k,424) * lu(k,682) - lu(k,690) = lu(k,690) - lu(k,425) * lu(k,682) - lu(k,692) = - lu(k,426) * lu(k,682) - lu(k,693) = lu(k,693) - lu(k,427) * lu(k,682) - lu(k,694) = lu(k,694) - lu(k,428) * lu(k,682) - lu(k,695) = lu(k,695) - lu(k,429) * lu(k,682) - lu(k,700) = lu(k,700) - lu(k,430) * lu(k,682) - lu(k,701) = lu(k,701) - lu(k,431) * lu(k,682) - lu(k,702) = - lu(k,432) * lu(k,682) - lu(k,703) = - lu(k,433) * lu(k,682) - lu(k,704) = lu(k,704) - lu(k,434) * lu(k,682) - lu(k,705) = lu(k,705) - lu(k,435) * lu(k,682) - lu(k,706) = lu(k,706) - lu(k,436) * lu(k,682) - lu(k,707) = lu(k,707) - lu(k,437) * lu(k,682) - lu(k,752) = lu(k,752) - lu(k,420) * lu(k,750) - lu(k,753) = lu(k,753) - lu(k,421) * lu(k,750) - lu(k,754) = lu(k,754) - lu(k,422) * lu(k,750) - lu(k,755) = lu(k,755) - lu(k,423) * lu(k,750) - lu(k,758) = lu(k,758) - lu(k,424) * lu(k,750) - lu(k,759) = lu(k,759) - lu(k,425) * lu(k,750) - lu(k,761) = lu(k,761) - lu(k,426) * lu(k,750) - lu(k,762) = lu(k,762) - lu(k,427) * lu(k,750) - lu(k,763) = lu(k,763) - lu(k,428) * lu(k,750) - lu(k,764) = lu(k,764) - lu(k,429) * lu(k,750) - lu(k,769) = lu(k,769) - lu(k,430) * lu(k,750) - lu(k,770) = lu(k,770) - lu(k,431) * lu(k,750) - lu(k,771) = - lu(k,432) * lu(k,750) - lu(k,772) = - lu(k,433) * lu(k,750) - lu(k,773) = lu(k,773) - lu(k,434) * lu(k,750) - lu(k,774) = lu(k,774) - lu(k,435) * lu(k,750) - lu(k,775) = lu(k,775) - lu(k,436) * lu(k,750) - lu(k,776) = lu(k,776) - lu(k,437) * lu(k,750) - lu(k,967) = lu(k,967) - lu(k,420) * lu(k,965) - lu(k,968) = lu(k,968) - lu(k,421) * lu(k,965) - lu(k,972) = lu(k,972) - lu(k,422) * lu(k,965) - lu(k,974) = lu(k,974) - lu(k,423) * lu(k,965) - lu(k,979) = lu(k,979) - lu(k,424) * lu(k,965) - lu(k,980) = lu(k,980) - lu(k,425) * lu(k,965) - lu(k,982) = lu(k,982) - lu(k,426) * lu(k,965) - lu(k,983) = lu(k,983) - lu(k,427) * lu(k,965) - lu(k,985) = lu(k,985) - lu(k,428) * lu(k,965) - lu(k,986) = lu(k,986) - lu(k,429) * lu(k,965) - lu(k,991) = lu(k,991) - lu(k,430) * lu(k,965) - lu(k,992) = lu(k,992) - lu(k,431) * lu(k,965) - lu(k,994) = lu(k,994) - lu(k,432) * lu(k,965) - lu(k,995) = lu(k,995) - lu(k,433) * lu(k,965) - lu(k,996) = lu(k,996) - lu(k,434) * lu(k,965) - lu(k,997) = lu(k,997) - lu(k,435) * lu(k,965) - lu(k,998) = lu(k,998) - lu(k,436) * lu(k,965) - lu(k,999) = lu(k,999) - lu(k,437) * lu(k,965) - lu(k,1093) = lu(k,1093) - lu(k,420) * lu(k,1090) - lu(k,1094) = - lu(k,421) * lu(k,1090) - lu(k,1097) = lu(k,1097) - lu(k,422) * lu(k,1090) - lu(k,1099) = lu(k,1099) - lu(k,423) * lu(k,1090) - lu(k,1104) = - lu(k,424) * lu(k,1090) - lu(k,1105) = - lu(k,425) * lu(k,1090) - lu(k,1107) = lu(k,1107) - lu(k,426) * lu(k,1090) - lu(k,1108) = lu(k,1108) - lu(k,427) * lu(k,1090) - lu(k,1110) = lu(k,1110) - lu(k,428) * lu(k,1090) - lu(k,1111) = lu(k,1111) - lu(k,429) * lu(k,1090) - lu(k,1116) = lu(k,1116) - lu(k,430) * lu(k,1090) - lu(k,1117) = lu(k,1117) - lu(k,431) * lu(k,1090) - lu(k,1119) = - lu(k,432) * lu(k,1090) - lu(k,1120) = lu(k,1120) - lu(k,433) * lu(k,1090) - lu(k,1121) = lu(k,1121) - lu(k,434) * lu(k,1090) - lu(k,1122) = lu(k,1122) - lu(k,435) * lu(k,1090) - lu(k,1123) = lu(k,1123) - lu(k,436) * lu(k,1090) - lu(k,1124) = lu(k,1124) - lu(k,437) * lu(k,1090) - lu(k,1620) = - lu(k,420) * lu(k,1619) - lu(k,1621) = - lu(k,421) * lu(k,1619) - lu(k,1624) = - lu(k,422) * lu(k,1619) - lu(k,1626) = lu(k,1626) - lu(k,423) * lu(k,1619) - lu(k,1631) = lu(k,1631) - lu(k,424) * lu(k,1619) - lu(k,1632) = lu(k,1632) - lu(k,425) * lu(k,1619) - lu(k,1634) = lu(k,1634) - lu(k,426) * lu(k,1619) - lu(k,1635) = lu(k,1635) - lu(k,427) * lu(k,1619) - lu(k,1637) = - lu(k,428) * lu(k,1619) - lu(k,1638) = lu(k,1638) - lu(k,429) * lu(k,1619) - lu(k,1643) = lu(k,1643) - lu(k,430) * lu(k,1619) - lu(k,1644) = lu(k,1644) - lu(k,431) * lu(k,1619) - lu(k,1646) = lu(k,1646) - lu(k,432) * lu(k,1619) - lu(k,1647) = lu(k,1647) - lu(k,433) * lu(k,1619) - lu(k,1648) = lu(k,1648) - lu(k,434) * lu(k,1619) - lu(k,1649) = lu(k,1649) - lu(k,435) * lu(k,1619) - lu(k,1650) = lu(k,1650) - lu(k,436) * lu(k,1619) - lu(k,1651) = lu(k,1651) - lu(k,437) * lu(k,1619) - lu(k,1662) = lu(k,1662) - lu(k,420) * lu(k,1660) - lu(k,1663) = lu(k,1663) - lu(k,421) * lu(k,1660) - lu(k,1667) = lu(k,1667) - lu(k,422) * lu(k,1660) - lu(k,1669) = lu(k,1669) - lu(k,423) * lu(k,1660) - lu(k,1674) = lu(k,1674) - lu(k,424) * lu(k,1660) - lu(k,1675) = - lu(k,425) * lu(k,1660) - lu(k,1677) = lu(k,1677) - lu(k,426) * lu(k,1660) - lu(k,1678) = lu(k,1678) - lu(k,427) * lu(k,1660) - lu(k,1680) = lu(k,1680) - lu(k,428) * lu(k,1660) - lu(k,1681) = lu(k,1681) - lu(k,429) * lu(k,1660) - lu(k,1686) = lu(k,1686) - lu(k,430) * lu(k,1660) - lu(k,1687) = lu(k,1687) - lu(k,431) * lu(k,1660) - lu(k,1689) = lu(k,1689) - lu(k,432) * lu(k,1660) - lu(k,1690) = lu(k,1690) - lu(k,433) * lu(k,1660) - lu(k,1691) = lu(k,1691) - lu(k,434) * lu(k,1660) - lu(k,1692) = lu(k,1692) - lu(k,435) * lu(k,1660) - lu(k,1693) = lu(k,1693) - lu(k,436) * lu(k,1660) - lu(k,1694) = lu(k,1694) - lu(k,437) * lu(k,1660) - lu(k,1698) = - lu(k,420) * lu(k,1697) - lu(k,1699) = - lu(k,421) * lu(k,1697) - lu(k,1703) = lu(k,1703) - lu(k,422) * lu(k,1697) - lu(k,1705) = lu(k,1705) - lu(k,423) * lu(k,1697) - lu(k,1710) = lu(k,1710) - lu(k,424) * lu(k,1697) - lu(k,1711) = lu(k,1711) - lu(k,425) * lu(k,1697) - lu(k,1713) = - lu(k,426) * lu(k,1697) - lu(k,1714) = lu(k,1714) - lu(k,427) * lu(k,1697) - lu(k,1716) = - lu(k,428) * lu(k,1697) - lu(k,1717) = lu(k,1717) - lu(k,429) * lu(k,1697) - lu(k,1722) = lu(k,1722) - lu(k,430) * lu(k,1697) - lu(k,1723) = - lu(k,431) * lu(k,1697) - lu(k,1725) = lu(k,1725) - lu(k,432) * lu(k,1697) - lu(k,1726) = lu(k,1726) - lu(k,433) * lu(k,1697) - lu(k,1727) = - lu(k,434) * lu(k,1697) - lu(k,1728) = lu(k,1728) - lu(k,435) * lu(k,1697) - lu(k,1729) = lu(k,1729) - lu(k,436) * lu(k,1697) - lu(k,1730) = lu(k,1730) - lu(k,437) * lu(k,1697) - lu(k,1794) = lu(k,1794) - lu(k,420) * lu(k,1790) - lu(k,1795) = lu(k,1795) - lu(k,421) * lu(k,1790) - lu(k,1798) = lu(k,1798) - lu(k,422) * lu(k,1790) - lu(k,1800) = lu(k,1800) - lu(k,423) * lu(k,1790) - lu(k,1805) = lu(k,1805) - lu(k,424) * lu(k,1790) - lu(k,1806) = lu(k,1806) - lu(k,425) * lu(k,1790) - lu(k,1808) = lu(k,1808) - lu(k,426) * lu(k,1790) - lu(k,1809) = lu(k,1809) - lu(k,427) * lu(k,1790) - lu(k,1811) = lu(k,1811) - lu(k,428) * lu(k,1790) - lu(k,1812) = lu(k,1812) - lu(k,429) * lu(k,1790) - lu(k,1817) = lu(k,1817) - lu(k,430) * lu(k,1790) - lu(k,1818) = lu(k,1818) - lu(k,431) * lu(k,1790) - lu(k,1820) = lu(k,1820) - lu(k,432) * lu(k,1790) - lu(k,1821) = lu(k,1821) - lu(k,433) * lu(k,1790) - lu(k,1822) = lu(k,1822) - lu(k,434) * lu(k,1790) - lu(k,1823) = lu(k,1823) - lu(k,435) * lu(k,1790) - lu(k,1824) = lu(k,1824) - lu(k,436) * lu(k,1790) - lu(k,1825) = lu(k,1825) - lu(k,437) * lu(k,1790) - end do + real(r8), intent(inout) :: lu(:) + lu(411) = 1._r8 / lu(411) + lu(412) = lu(412) * lu(411) + lu(413) = lu(413) * lu(411) + lu(414) = lu(414) * lu(411) + lu(415) = lu(415) * lu(411) + lu(416) = lu(416) * lu(411) + lu(417) = lu(417) * lu(411) + lu(418) = lu(418) * lu(411) + lu(419) = lu(419) * lu(411) + lu(420) = lu(420) * lu(411) + lu(421) = lu(421) * lu(411) + lu(422) = lu(422) * lu(411) + lu(423) = lu(423) * lu(411) + lu(424) = lu(424) * lu(411) + lu(425) = lu(425) * lu(411) + lu(426) = lu(426) * lu(411) + lu(427) = lu(427) * lu(411) + lu(529) = lu(529) - lu(412) * lu(527) + lu(530) = lu(530) - lu(413) * lu(527) + lu(531) = lu(531) - lu(414) * lu(527) + lu(532) = lu(532) - lu(415) * lu(527) + lu(533) = lu(533) - lu(416) * lu(527) + lu(534) = lu(534) - lu(417) * lu(527) + lu(535) = - lu(418) * lu(527) + lu(536) = - lu(419) * lu(527) + lu(537) = lu(537) - lu(420) * lu(527) + lu(538) = lu(538) - lu(421) * lu(527) + lu(539) = - lu(422) * lu(527) + lu(541) = lu(541) - lu(423) * lu(527) + lu(544) = lu(544) - lu(424) * lu(527) + lu(545) = lu(545) - lu(425) * lu(527) + lu(546) = lu(546) - lu(426) * lu(527) + lu(547) = lu(547) - lu(427) * lu(527) + lu(559) = lu(559) - lu(412) * lu(557) + lu(560) = lu(560) - lu(413) * lu(557) + lu(561) = lu(561) - lu(414) * lu(557) + lu(562) = lu(562) - lu(415) * lu(557) + lu(563) = lu(563) - lu(416) * lu(557) + lu(564) = lu(564) - lu(417) * lu(557) + lu(566) = lu(566) - lu(418) * lu(557) + lu(567) = lu(567) - lu(419) * lu(557) + lu(568) = lu(568) - lu(420) * lu(557) + lu(569) = lu(569) - lu(421) * lu(557) + lu(572) = lu(572) - lu(422) * lu(557) + lu(574) = lu(574) - lu(423) * lu(557) + lu(577) = lu(577) - lu(424) * lu(557) + lu(578) = lu(578) - lu(425) * lu(557) + lu(579) = lu(579) - lu(426) * lu(557) + lu(580) = lu(580) - lu(427) * lu(557) + lu(668) = lu(668) - lu(412) * lu(666) + lu(669) = lu(669) - lu(413) * lu(666) + lu(670) = lu(670) - lu(414) * lu(666) + lu(671) = lu(671) - lu(415) * lu(666) + lu(672) = lu(672) - lu(416) * lu(666) + lu(673) = lu(673) - lu(417) * lu(666) + lu(676) = lu(676) - lu(418) * lu(666) + lu(677) = lu(677) - lu(419) * lu(666) + lu(678) = lu(678) - lu(420) * lu(666) + lu(679) = lu(679) - lu(421) * lu(666) + lu(682) = lu(682) - lu(422) * lu(666) + lu(684) = lu(684) - lu(423) * lu(666) + lu(687) = lu(687) - lu(424) * lu(666) + lu(688) = - lu(425) * lu(666) + lu(689) = lu(689) - lu(426) * lu(666) + lu(690) = lu(690) - lu(427) * lu(666) + lu(708) = lu(708) - lu(412) * lu(706) + lu(709) = lu(709) - lu(413) * lu(706) + lu(710) = lu(710) - lu(414) * lu(706) + lu(711) = lu(711) - lu(415) * lu(706) + lu(713) = lu(713) - lu(416) * lu(706) + lu(714) = lu(714) - lu(417) * lu(706) + lu(717) = lu(717) - lu(418) * lu(706) + lu(718) = lu(718) - lu(419) * lu(706) + lu(719) = lu(719) - lu(420) * lu(706) + lu(720) = lu(720) - lu(421) * lu(706) + lu(723) = lu(723) - lu(422) * lu(706) + lu(725) = lu(725) - lu(423) * lu(706) + lu(728) = lu(728) - lu(424) * lu(706) + lu(729) = lu(729) - lu(425) * lu(706) + lu(730) = lu(730) - lu(426) * lu(706) + lu(731) = lu(731) - lu(427) * lu(706) + lu(894) = lu(894) - lu(412) * lu(892) + lu(895) = lu(895) - lu(413) * lu(892) + lu(899) = lu(899) - lu(414) * lu(892) + lu(900) = lu(900) - lu(415) * lu(892) + lu(905) = lu(905) - lu(416) * lu(892) + lu(906) = lu(906) - lu(417) * lu(892) + lu(909) = lu(909) - lu(418) * lu(892) + lu(910) = lu(910) - lu(419) * lu(892) + lu(911) = lu(911) - lu(420) * lu(892) + lu(912) = lu(912) - lu(421) * lu(892) + lu(915) = lu(915) - lu(422) * lu(892) + lu(919) = lu(919) - lu(423) * lu(892) + lu(922) = lu(922) - lu(424) * lu(892) + lu(923) = lu(923) - lu(425) * lu(892) + lu(924) = lu(924) - lu(426) * lu(892) + lu(925) = lu(925) - lu(427) * lu(892) + lu(1057) = lu(1057) - lu(412) * lu(1052) + lu(1058) = lu(1058) - lu(413) * lu(1052) + lu(1061) = lu(1061) - lu(414) * lu(1052) + lu(1062) = lu(1062) - lu(415) * lu(1052) + lu(1067) = lu(1067) - lu(416) * lu(1052) + lu(1068) = lu(1068) - lu(417) * lu(1052) + lu(1071) = lu(1071) - lu(418) * lu(1052) + lu(1072) = lu(1072) - lu(419) * lu(1052) + lu(1073) = lu(1073) - lu(420) * lu(1052) + lu(1074) = lu(1074) - lu(421) * lu(1052) + lu(1077) = lu(1077) - lu(422) * lu(1052) + lu(1081) = lu(1081) - lu(423) * lu(1052) + lu(1084) = lu(1084) - lu(424) * lu(1052) + lu(1085) = lu(1085) - lu(425) * lu(1052) + lu(1086) = lu(1086) - lu(426) * lu(1052) + lu(1087) = lu(1087) - lu(427) * lu(1052) + lu(1098) = lu(1098) - lu(412) * lu(1097) + lu(1099) = lu(1099) - lu(413) * lu(1097) + lu(1103) = lu(1103) - lu(414) * lu(1097) + lu(1104) = lu(1104) - lu(415) * lu(1097) + lu(1109) = lu(1109) - lu(416) * lu(1097) + lu(1110) = lu(1110) - lu(417) * lu(1097) + lu(1113) = lu(1113) - lu(418) * lu(1097) + lu(1114) = lu(1114) - lu(419) * lu(1097) + lu(1115) = lu(1115) - lu(420) * lu(1097) + lu(1116) = lu(1116) - lu(421) * lu(1097) + lu(1119) = lu(1119) - lu(422) * lu(1097) + lu(1123) = lu(1123) - lu(423) * lu(1097) + lu(1126) = lu(1126) - lu(424) * lu(1097) + lu(1127) = lu(1127) - lu(425) * lu(1097) + lu(1128) = lu(1128) - lu(426) * lu(1097) + lu(1129) = lu(1129) - lu(427) * lu(1097) + lu(1183) = lu(1183) - lu(412) * lu(1181) + lu(1184) = lu(1184) - lu(413) * lu(1181) + lu(1188) = lu(1188) - lu(414) * lu(1181) + lu(1189) = lu(1189) - lu(415) * lu(1181) + lu(1194) = lu(1194) - lu(416) * lu(1181) + lu(1195) = lu(1195) - lu(417) * lu(1181) + lu(1198) = lu(1198) - lu(418) * lu(1181) + lu(1199) = lu(1199) - lu(419) * lu(1181) + lu(1200) = lu(1200) - lu(420) * lu(1181) + lu(1201) = lu(1201) - lu(421) * lu(1181) + lu(1204) = lu(1204) - lu(422) * lu(1181) + lu(1208) = lu(1208) - lu(423) * lu(1181) + lu(1211) = lu(1211) - lu(424) * lu(1181) + lu(1212) = lu(1212) - lu(425) * lu(1181) + lu(1213) = lu(1213) - lu(426) * lu(1181) + lu(1214) = lu(1214) - lu(427) * lu(1181) + lu(1304) = lu(1304) - lu(412) * lu(1301) + lu(1305) = lu(1305) - lu(413) * lu(1301) + lu(1308) = lu(1308) - lu(414) * lu(1301) + lu(1309) = lu(1309) - lu(415) * lu(1301) + lu(1314) = - lu(416) * lu(1301) + lu(1315) = lu(1315) - lu(417) * lu(1301) + lu(1318) = lu(1318) - lu(418) * lu(1301) + lu(1319) = lu(1319) - lu(419) * lu(1301) + lu(1320) = lu(1320) - lu(420) * lu(1301) + lu(1321) = lu(1321) - lu(421) * lu(1301) + lu(1324) = lu(1324) - lu(422) * lu(1301) + lu(1328) = lu(1328) - lu(423) * lu(1301) + lu(1331) = lu(1331) - lu(424) * lu(1301) + lu(1332) = - lu(425) * lu(1301) + lu(1333) = lu(1333) - lu(426) * lu(1301) + lu(1334) = lu(1334) - lu(427) * lu(1301) + lu(1484) = lu(1484) - lu(412) * lu(1482) + lu(1485) = lu(1485) - lu(413) * lu(1482) + lu(1489) = lu(1489) - lu(414) * lu(1482) + lu(1490) = lu(1490) - lu(415) * lu(1482) + lu(1495) = lu(1495) - lu(416) * lu(1482) + lu(1496) = lu(1496) - lu(417) * lu(1482) + lu(1499) = lu(1499) - lu(418) * lu(1482) + lu(1500) = lu(1500) - lu(419) * lu(1482) + lu(1501) = lu(1501) - lu(420) * lu(1482) + lu(1502) = lu(1502) - lu(421) * lu(1482) + lu(1505) = lu(1505) - lu(422) * lu(1482) + lu(1509) = lu(1509) - lu(423) * lu(1482) + lu(1512) = lu(1512) - lu(424) * lu(1482) + lu(1513) = lu(1513) - lu(425) * lu(1482) + lu(1514) = lu(1514) - lu(426) * lu(1482) + lu(1515) = lu(1515) - lu(427) * lu(1482) + lu(1589) = lu(1589) - lu(412) * lu(1588) + lu(1590) = lu(1590) - lu(413) * lu(1588) + lu(1594) = lu(1594) - lu(414) * lu(1588) + lu(1595) = lu(1595) - lu(415) * lu(1588) + lu(1600) = - lu(416) * lu(1588) + lu(1601) = lu(1601) - lu(417) * lu(1588) + lu(1604) = lu(1604) - lu(418) * lu(1588) + lu(1605) = lu(1605) - lu(419) * lu(1588) + lu(1606) = lu(1606) - lu(420) * lu(1588) + lu(1607) = lu(1607) - lu(421) * lu(1588) + lu(1610) = lu(1610) - lu(422) * lu(1588) + lu(1614) = lu(1614) - lu(423) * lu(1588) + lu(1617) = lu(1617) - lu(424) * lu(1588) + lu(1618) = - lu(425) * lu(1588) + lu(1619) = lu(1619) - lu(426) * lu(1588) + lu(1620) = lu(1620) - lu(427) * lu(1588) + lu(431) = 1._r8 / lu(431) + lu(432) = lu(432) * lu(431) + lu(433) = lu(433) * lu(431) + lu(434) = lu(434) * lu(431) + lu(435) = lu(435) * lu(431) + lu(436) = lu(436) * lu(431) + lu(437) = lu(437) * lu(431) + lu(438) = lu(438) * lu(431) + lu(439) = lu(439) * lu(431) + lu(440) = lu(440) * lu(431) + lu(441) = lu(441) * lu(431) + lu(442) = lu(442) * lu(431) + lu(443) = lu(443) * lu(431) + lu(444) = lu(444) * lu(431) + lu(445) = lu(445) * lu(431) + lu(446) = lu(446) * lu(431) + lu(447) = lu(447) * lu(431) + lu(448) = lu(448) * lu(431) + lu(449) = lu(449) * lu(431) + lu(529) = lu(529) - lu(432) * lu(528) + lu(530) = lu(530) - lu(433) * lu(528) + lu(531) = lu(531) - lu(434) * lu(528) + lu(532) = lu(532) - lu(435) * lu(528) + lu(533) = lu(533) - lu(436) * lu(528) + lu(534) = lu(534) - lu(437) * lu(528) + lu(535) = lu(535) - lu(438) * lu(528) + lu(536) = lu(536) - lu(439) * lu(528) + lu(537) = lu(537) - lu(440) * lu(528) + lu(538) = lu(538) - lu(441) * lu(528) + lu(539) = lu(539) - lu(442) * lu(528) + lu(540) = - lu(443) * lu(528) + lu(541) = lu(541) - lu(444) * lu(528) + lu(542) = - lu(445) * lu(528) + lu(543) = - lu(446) * lu(528) + lu(545) = lu(545) - lu(447) * lu(528) + lu(546) = lu(546) - lu(448) * lu(528) + lu(547) = lu(547) - lu(449) * lu(528) + lu(559) = lu(559) - lu(432) * lu(558) + lu(560) = lu(560) - lu(433) * lu(558) + lu(561) = lu(561) - lu(434) * lu(558) + lu(562) = lu(562) - lu(435) * lu(558) + lu(563) = lu(563) - lu(436) * lu(558) + lu(564) = lu(564) - lu(437) * lu(558) + lu(566) = lu(566) - lu(438) * lu(558) + lu(567) = lu(567) - lu(439) * lu(558) + lu(568) = lu(568) - lu(440) * lu(558) + lu(569) = lu(569) - lu(441) * lu(558) + lu(572) = lu(572) - lu(442) * lu(558) + lu(573) = lu(573) - lu(443) * lu(558) + lu(574) = lu(574) - lu(444) * lu(558) + lu(575) = - lu(445) * lu(558) + lu(576) = lu(576) - lu(446) * lu(558) + lu(578) = lu(578) - lu(447) * lu(558) + lu(579) = lu(579) - lu(448) * lu(558) + lu(580) = lu(580) - lu(449) * lu(558) + lu(668) = lu(668) - lu(432) * lu(667) + lu(669) = lu(669) - lu(433) * lu(667) + lu(670) = lu(670) - lu(434) * lu(667) + lu(671) = lu(671) - lu(435) * lu(667) + lu(672) = lu(672) - lu(436) * lu(667) + lu(673) = lu(673) - lu(437) * lu(667) + lu(676) = lu(676) - lu(438) * lu(667) + lu(677) = lu(677) - lu(439) * lu(667) + lu(678) = lu(678) - lu(440) * lu(667) + lu(679) = lu(679) - lu(441) * lu(667) + lu(682) = lu(682) - lu(442) * lu(667) + lu(683) = lu(683) - lu(443) * lu(667) + lu(684) = lu(684) - lu(444) * lu(667) + lu(685) = - lu(445) * lu(667) + lu(686) = - lu(446) * lu(667) + lu(688) = lu(688) - lu(447) * lu(667) + lu(689) = lu(689) - lu(448) * lu(667) + lu(690) = lu(690) - lu(449) * lu(667) + lu(708) = lu(708) - lu(432) * lu(707) + lu(709) = lu(709) - lu(433) * lu(707) + lu(710) = lu(710) - lu(434) * lu(707) + lu(711) = lu(711) - lu(435) * lu(707) + lu(713) = lu(713) - lu(436) * lu(707) + lu(714) = lu(714) - lu(437) * lu(707) + lu(717) = lu(717) - lu(438) * lu(707) + lu(718) = lu(718) - lu(439) * lu(707) + lu(719) = lu(719) - lu(440) * lu(707) + lu(720) = lu(720) - lu(441) * lu(707) + lu(723) = lu(723) - lu(442) * lu(707) + lu(724) = lu(724) - lu(443) * lu(707) + lu(725) = lu(725) - lu(444) * lu(707) + lu(726) = - lu(445) * lu(707) + lu(727) = - lu(446) * lu(707) + lu(729) = lu(729) - lu(447) * lu(707) + lu(730) = lu(730) - lu(448) * lu(707) + lu(731) = lu(731) - lu(449) * lu(707) + lu(929) = - lu(432) * lu(928) + lu(930) = - lu(433) * lu(928) + lu(934) = lu(934) - lu(434) * lu(928) + lu(935) = lu(935) - lu(435) * lu(928) + lu(940) = lu(940) - lu(436) * lu(928) + lu(941) = lu(941) - lu(437) * lu(928) + lu(944) = lu(944) - lu(438) * lu(928) + lu(945) = - lu(439) * lu(928) + lu(946) = lu(946) - lu(440) * lu(928) + lu(947) = - lu(441) * lu(928) + lu(950) = lu(950) - lu(442) * lu(928) + lu(952) = lu(952) - lu(443) * lu(928) + lu(954) = lu(954) - lu(444) * lu(928) + lu(955) = lu(955) - lu(445) * lu(928) + lu(956) = lu(956) - lu(446) * lu(928) + lu(958) = - lu(447) * lu(928) + lu(959) = - lu(448) * lu(928) + lu(960) = lu(960) - lu(449) * lu(928) + lu(1183) = lu(1183) - lu(432) * lu(1182) + lu(1184) = lu(1184) - lu(433) * lu(1182) + lu(1188) = lu(1188) - lu(434) * lu(1182) + lu(1189) = lu(1189) - lu(435) * lu(1182) + lu(1194) = lu(1194) - lu(436) * lu(1182) + lu(1195) = lu(1195) - lu(437) * lu(1182) + lu(1198) = lu(1198) - lu(438) * lu(1182) + lu(1199) = lu(1199) - lu(439) * lu(1182) + lu(1200) = lu(1200) - lu(440) * lu(1182) + lu(1201) = lu(1201) - lu(441) * lu(1182) + lu(1204) = lu(1204) - lu(442) * lu(1182) + lu(1206) = - lu(443) * lu(1182) + lu(1208) = lu(1208) - lu(444) * lu(1182) + lu(1209) = lu(1209) - lu(445) * lu(1182) + lu(1210) = lu(1210) - lu(446) * lu(1182) + lu(1212) = lu(1212) - lu(447) * lu(1182) + lu(1213) = lu(1213) - lu(448) * lu(1182) + lu(1214) = lu(1214) - lu(449) * lu(1182) + lu(1484) = lu(1484) - lu(432) * lu(1483) + lu(1485) = lu(1485) - lu(433) * lu(1483) + lu(1489) = lu(1489) - lu(434) * lu(1483) + lu(1490) = lu(1490) - lu(435) * lu(1483) + lu(1495) = lu(1495) - lu(436) * lu(1483) + lu(1496) = lu(1496) - lu(437) * lu(1483) + lu(1499) = lu(1499) - lu(438) * lu(1483) + lu(1500) = lu(1500) - lu(439) * lu(1483) + lu(1501) = lu(1501) - lu(440) * lu(1483) + lu(1502) = lu(1502) - lu(441) * lu(1483) + lu(1505) = lu(1505) - lu(442) * lu(1483) + lu(1507) = lu(1507) - lu(443) * lu(1483) + lu(1509) = lu(1509) - lu(444) * lu(1483) + lu(1510) = lu(1510) - lu(445) * lu(1483) + lu(1511) = lu(1511) - lu(446) * lu(1483) + lu(1513) = lu(1513) - lu(447) * lu(1483) + lu(1514) = lu(1514) - lu(448) * lu(1483) + lu(1515) = lu(1515) - lu(449) * lu(1483) + lu(1552) = - lu(432) * lu(1551) + lu(1553) = - lu(433) * lu(1551) + lu(1556) = - lu(434) * lu(1551) + lu(1557) = lu(1557) - lu(435) * lu(1551) + lu(1562) = lu(1562) - lu(436) * lu(1551) + lu(1563) = lu(1563) - lu(437) * lu(1551) + lu(1566) = lu(1566) - lu(438) * lu(1551) + lu(1567) = lu(1567) - lu(439) * lu(1551) + lu(1568) = lu(1568) - lu(440) * lu(1551) + lu(1569) = lu(1569) - lu(441) * lu(1551) + lu(1572) = lu(1572) - lu(442) * lu(1551) + lu(1574) = lu(1574) - lu(443) * lu(1551) + lu(1576) = lu(1576) - lu(444) * lu(1551) + lu(1577) = lu(1577) - lu(445) * lu(1551) + lu(1578) = lu(1578) - lu(446) * lu(1551) + lu(1580) = lu(1580) - lu(447) * lu(1551) + lu(1581) = - lu(448) * lu(1551) + lu(1582) = lu(1582) - lu(449) * lu(1551) + lu(1629) = lu(1629) - lu(432) * lu(1626) + lu(1630) = - lu(433) * lu(1626) + lu(1633) = lu(1633) - lu(434) * lu(1626) + lu(1634) = lu(1634) - lu(435) * lu(1626) + lu(1639) = lu(1639) - lu(436) * lu(1626) + lu(1640) = lu(1640) - lu(437) * lu(1626) + lu(1643) = lu(1643) - lu(438) * lu(1626) + lu(1644) = lu(1644) - lu(439) * lu(1626) + lu(1645) = lu(1645) - lu(440) * lu(1626) + lu(1646) = lu(1646) - lu(441) * lu(1626) + lu(1649) = lu(1649) - lu(442) * lu(1626) + lu(1651) = - lu(443) * lu(1626) + lu(1653) = - lu(444) * lu(1626) + lu(1654) = - lu(445) * lu(1626) + lu(1655) = lu(1655) - lu(446) * lu(1626) + lu(1657) = lu(1657) - lu(447) * lu(1626) + lu(1658) = lu(1658) - lu(448) * lu(1626) + lu(1659) = lu(1659) - lu(449) * lu(1626) + lu(1715) = lu(1715) - lu(432) * lu(1711) + lu(1716) = lu(1716) - lu(433) * lu(1711) + lu(1719) = lu(1719) - lu(434) * lu(1711) + lu(1720) = lu(1720) - lu(435) * lu(1711) + lu(1725) = lu(1725) - lu(436) * lu(1711) + lu(1726) = lu(1726) - lu(437) * lu(1711) + lu(1729) = lu(1729) - lu(438) * lu(1711) + lu(1730) = lu(1730) - lu(439) * lu(1711) + lu(1731) = lu(1731) - lu(440) * lu(1711) + lu(1732) = lu(1732) - lu(441) * lu(1711) + lu(1735) = lu(1735) - lu(442) * lu(1711) + lu(1737) = lu(1737) - lu(443) * lu(1711) + lu(1739) = lu(1739) - lu(444) * lu(1711) + lu(1740) = lu(1740) - lu(445) * lu(1711) + lu(1741) = lu(1741) - lu(446) * lu(1711) + lu(1743) = lu(1743) - lu(447) * lu(1711) + lu(1744) = lu(1744) - lu(448) * lu(1711) + lu(1745) = lu(1745) - lu(449) * lu(1711) end subroutine lu_fac11 - subroutine lu_fac12( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac12( lu ) 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,438) = 1._r8 / lu(k,438) - lu(k,439) = lu(k,439) * lu(k,438) - lu(k,440) = lu(k,440) * lu(k,438) - lu(k,441) = lu(k,441) * lu(k,438) - lu(k,442) = lu(k,442) * lu(k,438) - lu(k,443) = lu(k,443) * lu(k,438) - lu(k,444) = lu(k,444) * lu(k,438) - lu(k,445) = lu(k,445) * lu(k,438) - lu(k,446) = lu(k,446) * lu(k,438) - lu(k,447) = lu(k,447) * lu(k,438) - lu(k,448) = lu(k,448) * lu(k,438) - lu(k,449) = lu(k,449) * lu(k,438) - lu(k,450) = lu(k,450) * lu(k,438) - lu(k,451) = lu(k,451) * lu(k,438) - lu(k,479) = - lu(k,439) * lu(k,476) - lu(k,480) = lu(k,480) - lu(k,440) * lu(k,476) - lu(k,481) = lu(k,481) - lu(k,441) * lu(k,476) - lu(k,482) = lu(k,482) - lu(k,442) * lu(k,476) - lu(k,484) = lu(k,484) - lu(k,443) * lu(k,476) - lu(k,485) = lu(k,485) - lu(k,444) * lu(k,476) - lu(k,487) = lu(k,487) - lu(k,445) * lu(k,476) - lu(k,488) = lu(k,488) - lu(k,446) * lu(k,476) - lu(k,489) = lu(k,489) - lu(k,447) * lu(k,476) - lu(k,490) = lu(k,490) - lu(k,448) * lu(k,476) - lu(k,491) = lu(k,491) - lu(k,449) * lu(k,476) - lu(k,493) = lu(k,493) - lu(k,450) * lu(k,476) - lu(k,494) = lu(k,494) - lu(k,451) * lu(k,476) - lu(k,520) = lu(k,520) - lu(k,439) * lu(k,517) - lu(k,521) = lu(k,521) - lu(k,440) * lu(k,517) - lu(k,522) = lu(k,522) - lu(k,441) * lu(k,517) - lu(k,523) = lu(k,523) - lu(k,442) * lu(k,517) - lu(k,525) = lu(k,525) - lu(k,443) * lu(k,517) - lu(k,526) = lu(k,526) - lu(k,444) * lu(k,517) - lu(k,528) = lu(k,528) - lu(k,445) * lu(k,517) - lu(k,529) = lu(k,529) - lu(k,446) * lu(k,517) - lu(k,530) = lu(k,530) - lu(k,447) * lu(k,517) - lu(k,531) = lu(k,531) - lu(k,448) * lu(k,517) - lu(k,532) = lu(k,532) - lu(k,449) * lu(k,517) - lu(k,534) = lu(k,534) - lu(k,450) * lu(k,517) - lu(k,535) = lu(k,535) - lu(k,451) * lu(k,517) - lu(k,652) = lu(k,652) - lu(k,439) * lu(k,649) - lu(k,654) = lu(k,654) - lu(k,440) * lu(k,649) - lu(k,655) = lu(k,655) - lu(k,441) * lu(k,649) - lu(k,656) = lu(k,656) - lu(k,442) * lu(k,649) - lu(k,659) = lu(k,659) - lu(k,443) * lu(k,649) - lu(k,660) = lu(k,660) - lu(k,444) * lu(k,649) - lu(k,662) = lu(k,662) - lu(k,445) * lu(k,649) - lu(k,663) = lu(k,663) - lu(k,446) * lu(k,649) - lu(k,664) = lu(k,664) - lu(k,447) * lu(k,649) - lu(k,665) = lu(k,665) - lu(k,448) * lu(k,649) - lu(k,668) = lu(k,668) - lu(k,449) * lu(k,649) - lu(k,671) = lu(k,671) - lu(k,450) * lu(k,649) - lu(k,672) = lu(k,672) - lu(k,451) * lu(k,649) - lu(k,824) = lu(k,824) - lu(k,439) * lu(k,818) - lu(k,829) = lu(k,829) - lu(k,440) * lu(k,818) - lu(k,830) = lu(k,830) - lu(k,441) * lu(k,818) - lu(k,831) = lu(k,831) - lu(k,442) * lu(k,818) - lu(k,834) = lu(k,834) - lu(k,443) * lu(k,818) - lu(k,835) = lu(k,835) - lu(k,444) * lu(k,818) - lu(k,837) = lu(k,837) - lu(k,445) * lu(k,818) - lu(k,838) = lu(k,838) - lu(k,446) * lu(k,818) - lu(k,839) = lu(k,839) - lu(k,447) * lu(k,818) - lu(k,841) = lu(k,841) - lu(k,448) * lu(k,818) - lu(k,846) = lu(k,846) - lu(k,449) * lu(k,818) - lu(k,851) = lu(k,851) - lu(k,450) * lu(k,818) - lu(k,852) = lu(k,852) - lu(k,451) * lu(k,818) - lu(k,872) = lu(k,872) - lu(k,439) * lu(k,865) - lu(k,877) = lu(k,877) - lu(k,440) * lu(k,865) - lu(k,878) = lu(k,878) - lu(k,441) * lu(k,865) - lu(k,879) = lu(k,879) - lu(k,442) * lu(k,865) - lu(k,882) = lu(k,882) - lu(k,443) * lu(k,865) - lu(k,883) = lu(k,883) - lu(k,444) * lu(k,865) - lu(k,885) = lu(k,885) - lu(k,445) * lu(k,865) - lu(k,886) = lu(k,886) - lu(k,446) * lu(k,865) - lu(k,887) = lu(k,887) - lu(k,447) * lu(k,865) - lu(k,889) = lu(k,889) - lu(k,448) * lu(k,865) - lu(k,894) = lu(k,894) - lu(k,449) * lu(k,865) - lu(k,899) = lu(k,899) - lu(k,450) * lu(k,865) - lu(k,900) = lu(k,900) - lu(k,451) * lu(k,865) - lu(k,915) = lu(k,915) - lu(k,439) * lu(k,909) - lu(k,920) = lu(k,920) - lu(k,440) * lu(k,909) - lu(k,921) = lu(k,921) - lu(k,441) * lu(k,909) - lu(k,922) = lu(k,922) - lu(k,442) * lu(k,909) - lu(k,925) = lu(k,925) - lu(k,443) * lu(k,909) - lu(k,926) = lu(k,926) - lu(k,444) * lu(k,909) - lu(k,928) = lu(k,928) - lu(k,445) * lu(k,909) - lu(k,929) = lu(k,929) - lu(k,446) * lu(k,909) - lu(k,930) = lu(k,930) - lu(k,447) * lu(k,909) - lu(k,932) = lu(k,932) - lu(k,448) * lu(k,909) - lu(k,937) = lu(k,937) - lu(k,449) * lu(k,909) - lu(k,942) = lu(k,942) - lu(k,450) * lu(k,909) - lu(k,943) = lu(k,943) - lu(k,451) * lu(k,909) - lu(k,1056) = lu(k,1056) - lu(k,439) * lu(k,1050) - lu(k,1061) = lu(k,1061) - lu(k,440) * lu(k,1050) - lu(k,1062) = lu(k,1062) - lu(k,441) * lu(k,1050) - lu(k,1063) = lu(k,1063) - lu(k,442) * lu(k,1050) - lu(k,1066) = lu(k,1066) - lu(k,443) * lu(k,1050) - lu(k,1067) = lu(k,1067) - lu(k,444) * lu(k,1050) - lu(k,1069) = lu(k,1069) - lu(k,445) * lu(k,1050) - lu(k,1070) = lu(k,1070) - lu(k,446) * lu(k,1050) - lu(k,1071) = lu(k,1071) - lu(k,447) * lu(k,1050) - lu(k,1073) = lu(k,1073) - lu(k,448) * lu(k,1050) - lu(k,1078) = lu(k,1078) - lu(k,449) * lu(k,1050) - lu(k,1083) = lu(k,1083) - lu(k,450) * lu(k,1050) - lu(k,1084) = lu(k,1084) - lu(k,451) * lu(k,1050) - lu(k,1096) = lu(k,1096) - lu(k,439) * lu(k,1091) - lu(k,1101) = lu(k,1101) - lu(k,440) * lu(k,1091) - lu(k,1102) = lu(k,1102) - lu(k,441) * lu(k,1091) - lu(k,1103) = lu(k,1103) - lu(k,442) * lu(k,1091) - lu(k,1106) = lu(k,1106) - lu(k,443) * lu(k,1091) - lu(k,1107) = lu(k,1107) - lu(k,444) * lu(k,1091) - lu(k,1109) = lu(k,1109) - lu(k,445) * lu(k,1091) - lu(k,1110) = lu(k,1110) - lu(k,446) * lu(k,1091) - lu(k,1111) = lu(k,1111) - lu(k,447) * lu(k,1091) - lu(k,1113) = lu(k,1113) - lu(k,448) * lu(k,1091) - lu(k,1118) = lu(k,1118) - lu(k,449) * lu(k,1091) - lu(k,1123) = lu(k,1123) - lu(k,450) * lu(k,1091) - lu(k,1124) = lu(k,1124) - lu(k,451) * lu(k,1091) - lu(k,1141) = lu(k,1141) - lu(k,439) * lu(k,1133) - lu(k,1146) = - lu(k,440) * lu(k,1133) - lu(k,1147) = lu(k,1147) - lu(k,441) * lu(k,1133) - lu(k,1148) = - lu(k,442) * lu(k,1133) - lu(k,1151) = - lu(k,443) * lu(k,1133) - lu(k,1152) = lu(k,1152) - lu(k,444) * lu(k,1133) - lu(k,1154) = lu(k,1154) - lu(k,445) * lu(k,1133) - lu(k,1155) = lu(k,1155) - lu(k,446) * lu(k,1133) - lu(k,1156) = lu(k,1156) - lu(k,447) * lu(k,1133) - lu(k,1158) = lu(k,1158) - lu(k,448) * lu(k,1133) - lu(k,1163) = lu(k,1163) - lu(k,449) * lu(k,1133) - lu(k,1168) = lu(k,1168) - lu(k,450) * lu(k,1133) - lu(k,1169) = lu(k,1169) - lu(k,451) * lu(k,1133) - lu(k,1184) = lu(k,1184) - lu(k,439) * lu(k,1178) - lu(k,1189) = lu(k,1189) - lu(k,440) * lu(k,1178) - lu(k,1190) = lu(k,1190) - lu(k,441) * lu(k,1178) - lu(k,1191) = lu(k,1191) - lu(k,442) * lu(k,1178) - lu(k,1194) = lu(k,1194) - lu(k,443) * lu(k,1178) - lu(k,1195) = lu(k,1195) - lu(k,444) * lu(k,1178) - lu(k,1197) = lu(k,1197) - lu(k,445) * lu(k,1178) - lu(k,1198) = lu(k,1198) - lu(k,446) * lu(k,1178) - lu(k,1199) = lu(k,1199) - lu(k,447) * lu(k,1178) - lu(k,1201) = lu(k,1201) - lu(k,448) * lu(k,1178) - lu(k,1206) = lu(k,1206) - lu(k,449) * lu(k,1178) - lu(k,1211) = lu(k,1211) - lu(k,450) * lu(k,1178) - lu(k,1212) = lu(k,1212) - lu(k,451) * lu(k,1178) - lu(k,1220) = - lu(k,439) * lu(k,1215) - lu(k,1224) = - lu(k,440) * lu(k,1215) - lu(k,1225) = - lu(k,441) * lu(k,1215) - lu(k,1226) = - lu(k,442) * lu(k,1215) - lu(k,1229) = - lu(k,443) * lu(k,1215) - lu(k,1230) = lu(k,1230) - lu(k,444) * lu(k,1215) - lu(k,1232) = lu(k,1232) - lu(k,445) * lu(k,1215) - lu(k,1233) = lu(k,1233) - lu(k,446) * lu(k,1215) - lu(k,1234) = lu(k,1234) - lu(k,447) * lu(k,1215) - lu(k,1236) = - lu(k,448) * lu(k,1215) - lu(k,1241) = lu(k,1241) - lu(k,449) * lu(k,1215) - lu(k,1246) = lu(k,1246) - lu(k,450) * lu(k,1215) - lu(k,1247) = lu(k,1247) - lu(k,451) * lu(k,1215) - lu(k,1343) = lu(k,1343) - lu(k,439) * lu(k,1336) - lu(k,1348) = lu(k,1348) - lu(k,440) * lu(k,1336) - lu(k,1349) = lu(k,1349) - lu(k,441) * lu(k,1336) - lu(k,1350) = lu(k,1350) - lu(k,442) * lu(k,1336) - lu(k,1353) = lu(k,1353) - lu(k,443) * lu(k,1336) - lu(k,1354) = lu(k,1354) - lu(k,444) * lu(k,1336) - lu(k,1356) = lu(k,1356) - lu(k,445) * lu(k,1336) - lu(k,1357) = lu(k,1357) - lu(k,446) * lu(k,1336) - lu(k,1358) = lu(k,1358) - lu(k,447) * lu(k,1336) - lu(k,1360) = lu(k,1360) - lu(k,448) * lu(k,1336) - lu(k,1365) = lu(k,1365) - lu(k,449) * lu(k,1336) - lu(k,1370) = lu(k,1370) - lu(k,450) * lu(k,1336) - lu(k,1371) = lu(k,1371) - lu(k,451) * lu(k,1336) - lu(k,1468) = lu(k,1468) - lu(k,439) * lu(k,1462) - lu(k,1473) = lu(k,1473) - lu(k,440) * lu(k,1462) - lu(k,1474) = lu(k,1474) - lu(k,441) * lu(k,1462) - lu(k,1475) = lu(k,1475) - lu(k,442) * lu(k,1462) - lu(k,1478) = lu(k,1478) - lu(k,443) * lu(k,1462) - lu(k,1479) = lu(k,1479) - lu(k,444) * lu(k,1462) - lu(k,1481) = lu(k,1481) - lu(k,445) * lu(k,1462) - lu(k,1482) = lu(k,1482) - lu(k,446) * lu(k,1462) - lu(k,1483) = lu(k,1483) - lu(k,447) * lu(k,1462) - lu(k,1485) = lu(k,1485) - lu(k,448) * lu(k,1462) - lu(k,1490) = lu(k,1490) - lu(k,449) * lu(k,1462) - lu(k,1495) = lu(k,1495) - lu(k,450) * lu(k,1462) - lu(k,1496) = lu(k,1496) - lu(k,451) * lu(k,1462) - lu(k,1554) = lu(k,1554) - lu(k,439) * lu(k,1548) - lu(k,1559) = lu(k,1559) - lu(k,440) * lu(k,1548) - lu(k,1560) = lu(k,1560) - lu(k,441) * lu(k,1548) - lu(k,1561) = lu(k,1561) - lu(k,442) * lu(k,1548) - lu(k,1564) = lu(k,1564) - lu(k,443) * lu(k,1548) - lu(k,1565) = lu(k,1565) - lu(k,444) * lu(k,1548) - lu(k,1567) = lu(k,1567) - lu(k,445) * lu(k,1548) - lu(k,1568) = lu(k,1568) - lu(k,446) * lu(k,1548) - lu(k,1569) = lu(k,1569) - lu(k,447) * lu(k,1548) - lu(k,1571) = lu(k,1571) - lu(k,448) * lu(k,1548) - lu(k,1576) = lu(k,1576) - lu(k,449) * lu(k,1548) - lu(k,1581) = lu(k,1581) - lu(k,450) * lu(k,1548) - lu(k,1582) = lu(k,1582) - lu(k,451) * lu(k,1548) - 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,463) = lu(k,463) * lu(k,457) - lu(k,464) = lu(k,464) * lu(k,457) - lu(k,465) = lu(k,465) * lu(k,457) - lu(k,466) = lu(k,466) * lu(k,457) - lu(k,467) = lu(k,467) * lu(k,457) - lu(k,468) = lu(k,468) * lu(k,457) - lu(k,469) = lu(k,469) * lu(k,457) - lu(k,470) = lu(k,470) * lu(k,457) - lu(k,471) = lu(k,471) * lu(k,457) - lu(k,472) = lu(k,472) * lu(k,457) - lu(k,473) = lu(k,473) * lu(k,457) - lu(k,474) = lu(k,474) * lu(k,457) - lu(k,541) = lu(k,541) - lu(k,458) * lu(k,540) - lu(k,542) = lu(k,542) - lu(k,459) * lu(k,540) - lu(k,543) = lu(k,543) - lu(k,460) * lu(k,540) - lu(k,544) = lu(k,544) - lu(k,461) * lu(k,540) - lu(k,545) = lu(k,545) - lu(k,462) * lu(k,540) - lu(k,547) = lu(k,547) - lu(k,463) * lu(k,540) - lu(k,548) = lu(k,548) - lu(k,464) * lu(k,540) - lu(k,549) = lu(k,549) - lu(k,465) * lu(k,540) - lu(k,550) = lu(k,550) - lu(k,466) * lu(k,540) - lu(k,551) = lu(k,551) - lu(k,467) * lu(k,540) - lu(k,552) = lu(k,552) - lu(k,468) * lu(k,540) - lu(k,553) = lu(k,553) - lu(k,469) * lu(k,540) - lu(k,554) = lu(k,554) - lu(k,470) * lu(k,540) - lu(k,557) = lu(k,557) - lu(k,471) * lu(k,540) - lu(k,558) = lu(k,558) - lu(k,472) * lu(k,540) - lu(k,559) = lu(k,559) - lu(k,473) * lu(k,540) - lu(k,560) = lu(k,560) - lu(k,474) * lu(k,540) - lu(k,572) = lu(k,572) - lu(k,458) * lu(k,571) - lu(k,573) = lu(k,573) - lu(k,459) * lu(k,571) - lu(k,574) = lu(k,574) - lu(k,460) * lu(k,571) - lu(k,575) = lu(k,575) - lu(k,461) * lu(k,571) - lu(k,577) = lu(k,577) - lu(k,462) * lu(k,571) - lu(k,579) = lu(k,579) - lu(k,463) * lu(k,571) - lu(k,580) = lu(k,580) - lu(k,464) * lu(k,571) - lu(k,581) = lu(k,581) - lu(k,465) * lu(k,571) - lu(k,582) = lu(k,582) - lu(k,466) * lu(k,571) - lu(k,585) = lu(k,585) - lu(k,467) * lu(k,571) - lu(k,586) = lu(k,586) - lu(k,468) * lu(k,571) - lu(k,587) = lu(k,587) - lu(k,469) * lu(k,571) - lu(k,588) = lu(k,588) - lu(k,470) * lu(k,571) - lu(k,591) = lu(k,591) - lu(k,471) * lu(k,571) - lu(k,592) = lu(k,592) - lu(k,472) * lu(k,571) - lu(k,593) = lu(k,593) - lu(k,473) * lu(k,571) - lu(k,594) = lu(k,594) - lu(k,474) * lu(k,571) - lu(k,684) = lu(k,684) - lu(k,458) * lu(k,683) - lu(k,685) = lu(k,685) - lu(k,459) * lu(k,683) - lu(k,686) = lu(k,686) - lu(k,460) * lu(k,683) - lu(k,687) = lu(k,687) - lu(k,461) * lu(k,683) - lu(k,689) = lu(k,689) - lu(k,462) * lu(k,683) - lu(k,692) = lu(k,692) - lu(k,463) * lu(k,683) - lu(k,693) = lu(k,693) - lu(k,464) * lu(k,683) - lu(k,694) = lu(k,694) - lu(k,465) * lu(k,683) - lu(k,695) = lu(k,695) - lu(k,466) * lu(k,683) - lu(k,698) = lu(k,698) - lu(k,467) * lu(k,683) - lu(k,699) = lu(k,699) - lu(k,468) * lu(k,683) - lu(k,700) = lu(k,700) - lu(k,469) * lu(k,683) - lu(k,701) = lu(k,701) - lu(k,470) * lu(k,683) - lu(k,704) = lu(k,704) - lu(k,471) * lu(k,683) - lu(k,705) = lu(k,705) - lu(k,472) * lu(k,683) - lu(k,706) = lu(k,706) - lu(k,473) * lu(k,683) - lu(k,707) = lu(k,707) - lu(k,474) * lu(k,683) - lu(k,752) = lu(k,752) - lu(k,458) * lu(k,751) - lu(k,753) = lu(k,753) - lu(k,459) * lu(k,751) - lu(k,754) = lu(k,754) - lu(k,460) * lu(k,751) - lu(k,755) = lu(k,755) - lu(k,461) * lu(k,751) - lu(k,758) = lu(k,758) - lu(k,462) * lu(k,751) - lu(k,761) = lu(k,761) - lu(k,463) * lu(k,751) - lu(k,762) = lu(k,762) - lu(k,464) * lu(k,751) - lu(k,763) = lu(k,763) - lu(k,465) * lu(k,751) - lu(k,764) = lu(k,764) - lu(k,466) * lu(k,751) - lu(k,767) = lu(k,767) - lu(k,467) * lu(k,751) - lu(k,768) = lu(k,768) - lu(k,468) * lu(k,751) - lu(k,769) = lu(k,769) - lu(k,469) * lu(k,751) - lu(k,770) = lu(k,770) - lu(k,470) * lu(k,751) - lu(k,773) = lu(k,773) - lu(k,471) * lu(k,751) - lu(k,774) = lu(k,774) - lu(k,472) * lu(k,751) - lu(k,775) = lu(k,775) - lu(k,473) * lu(k,751) - lu(k,776) = lu(k,776) - lu(k,474) * lu(k,751) - lu(k,967) = lu(k,967) - lu(k,458) * lu(k,966) - lu(k,968) = lu(k,968) - lu(k,459) * lu(k,966) - lu(k,972) = lu(k,972) - lu(k,460) * lu(k,966) - lu(k,974) = lu(k,974) - lu(k,461) * lu(k,966) - lu(k,979) = lu(k,979) - lu(k,462) * lu(k,966) - lu(k,982) = lu(k,982) - lu(k,463) * lu(k,966) - lu(k,983) = lu(k,983) - lu(k,464) * lu(k,966) - lu(k,985) = lu(k,985) - lu(k,465) * lu(k,966) - lu(k,986) = lu(k,986) - lu(k,466) * lu(k,966) - lu(k,989) = lu(k,989) - lu(k,467) * lu(k,966) - lu(k,990) = lu(k,990) - lu(k,468) * lu(k,966) - lu(k,991) = lu(k,991) - lu(k,469) * lu(k,966) - lu(k,992) = lu(k,992) - lu(k,470) * lu(k,966) - lu(k,996) = lu(k,996) - lu(k,471) * lu(k,966) - lu(k,997) = lu(k,997) - lu(k,472) * lu(k,966) - lu(k,998) = lu(k,998) - lu(k,473) * lu(k,966) - lu(k,999) = lu(k,999) - lu(k,474) * lu(k,966) - lu(k,1138) = lu(k,1138) - lu(k,458) * lu(k,1134) - lu(k,1139) = lu(k,1139) - lu(k,459) * lu(k,1134) - lu(k,1142) = lu(k,1142) - lu(k,460) * lu(k,1134) - lu(k,1144) = lu(k,1144) - lu(k,461) * lu(k,1134) - lu(k,1149) = lu(k,1149) - lu(k,462) * lu(k,1134) - lu(k,1152) = lu(k,1152) - lu(k,463) * lu(k,1134) - lu(k,1153) = lu(k,1153) - lu(k,464) * lu(k,1134) - lu(k,1155) = lu(k,1155) - lu(k,465) * lu(k,1134) - lu(k,1156) = lu(k,1156) - lu(k,466) * lu(k,1134) - lu(k,1159) = lu(k,1159) - lu(k,467) * lu(k,1134) - lu(k,1160) = lu(k,1160) - lu(k,468) * lu(k,1134) - lu(k,1161) = lu(k,1161) - lu(k,469) * lu(k,1134) - lu(k,1162) = lu(k,1162) - lu(k,470) * lu(k,1134) - lu(k,1166) = lu(k,1166) - lu(k,471) * lu(k,1134) - lu(k,1167) = lu(k,1167) - lu(k,472) * lu(k,1134) - lu(k,1168) = lu(k,1168) - lu(k,473) * lu(k,1134) - lu(k,1169) = lu(k,1169) - lu(k,474) * lu(k,1134) - lu(k,1420) = lu(k,1420) - lu(k,458) * lu(k,1419) - lu(k,1421) = lu(k,1421) - lu(k,459) * lu(k,1419) - lu(k,1424) = lu(k,1424) - lu(k,460) * lu(k,1419) - lu(k,1426) = lu(k,1426) - lu(k,461) * lu(k,1419) - lu(k,1431) = lu(k,1431) - lu(k,462) * lu(k,1419) - lu(k,1434) = - lu(k,463) * lu(k,1419) - lu(k,1435) = lu(k,1435) - lu(k,464) * lu(k,1419) - lu(k,1437) = lu(k,1437) - lu(k,465) * lu(k,1419) - lu(k,1438) = lu(k,1438) - lu(k,466) * lu(k,1419) - lu(k,1441) = lu(k,1441) - lu(k,467) * lu(k,1419) - lu(k,1442) = lu(k,1442) - lu(k,468) * lu(k,1419) - lu(k,1443) = - lu(k,469) * lu(k,1419) - lu(k,1444) = lu(k,1444) - lu(k,470) * lu(k,1419) - lu(k,1448) = lu(k,1448) - lu(k,471) * lu(k,1419) - lu(k,1449) = lu(k,1449) - lu(k,472) * lu(k,1419) - lu(k,1450) = lu(k,1450) - lu(k,473) * lu(k,1419) - lu(k,1451) = lu(k,1451) - lu(k,474) * lu(k,1419) - lu(k,1464) = lu(k,1464) - lu(k,458) * lu(k,1463) - lu(k,1465) = lu(k,1465) - lu(k,459) * lu(k,1463) - lu(k,1469) = lu(k,1469) - lu(k,460) * lu(k,1463) - lu(k,1471) = lu(k,1471) - lu(k,461) * lu(k,1463) - lu(k,1476) = lu(k,1476) - lu(k,462) * lu(k,1463) - lu(k,1479) = lu(k,1479) - lu(k,463) * lu(k,1463) - lu(k,1480) = lu(k,1480) - lu(k,464) * lu(k,1463) - lu(k,1482) = lu(k,1482) - lu(k,465) * lu(k,1463) - lu(k,1483) = lu(k,1483) - lu(k,466) * lu(k,1463) - lu(k,1486) = lu(k,1486) - lu(k,467) * lu(k,1463) - lu(k,1487) = lu(k,1487) - lu(k,468) * lu(k,1463) - lu(k,1488) = lu(k,1488) - lu(k,469) * lu(k,1463) - lu(k,1489) = lu(k,1489) - lu(k,470) * lu(k,1463) - lu(k,1493) = lu(k,1493) - lu(k,471) * lu(k,1463) - lu(k,1494) = lu(k,1494) - lu(k,472) * lu(k,1463) - lu(k,1495) = lu(k,1495) - lu(k,473) * lu(k,1463) - lu(k,1496) = lu(k,1496) - lu(k,474) * lu(k,1463) - lu(k,1507) = lu(k,1507) - lu(k,458) * lu(k,1506) - lu(k,1508) = lu(k,1508) - lu(k,459) * lu(k,1506) - lu(k,1512) = lu(k,1512) - lu(k,460) * lu(k,1506) - lu(k,1514) = lu(k,1514) - lu(k,461) * lu(k,1506) - lu(k,1519) = lu(k,1519) - lu(k,462) * lu(k,1506) - lu(k,1522) = lu(k,1522) - lu(k,463) * lu(k,1506) - lu(k,1523) = lu(k,1523) - lu(k,464) * lu(k,1506) - lu(k,1525) = lu(k,1525) - lu(k,465) * lu(k,1506) - lu(k,1526) = lu(k,1526) - lu(k,466) * lu(k,1506) - lu(k,1529) = lu(k,1529) - lu(k,467) * lu(k,1506) - lu(k,1530) = lu(k,1530) - lu(k,468) * lu(k,1506) - lu(k,1531) = lu(k,1531) - lu(k,469) * lu(k,1506) - lu(k,1532) = lu(k,1532) - lu(k,470) * lu(k,1506) - lu(k,1536) = lu(k,1536) - lu(k,471) * lu(k,1506) - lu(k,1537) = lu(k,1537) - lu(k,472) * lu(k,1506) - lu(k,1538) = lu(k,1538) - lu(k,473) * lu(k,1506) - lu(k,1539) = lu(k,1539) - lu(k,474) * lu(k,1506) - lu(k,1662) = lu(k,1662) - lu(k,458) * lu(k,1661) - lu(k,1663) = lu(k,1663) - lu(k,459) * lu(k,1661) - lu(k,1667) = lu(k,1667) - lu(k,460) * lu(k,1661) - lu(k,1669) = lu(k,1669) - lu(k,461) * lu(k,1661) - lu(k,1674) = lu(k,1674) - lu(k,462) * lu(k,1661) - lu(k,1677) = lu(k,1677) - lu(k,463) * lu(k,1661) - lu(k,1678) = lu(k,1678) - lu(k,464) * lu(k,1661) - lu(k,1680) = lu(k,1680) - lu(k,465) * lu(k,1661) - lu(k,1681) = lu(k,1681) - lu(k,466) * lu(k,1661) - lu(k,1684) = lu(k,1684) - lu(k,467) * lu(k,1661) - lu(k,1685) = lu(k,1685) - lu(k,468) * lu(k,1661) - lu(k,1686) = lu(k,1686) - lu(k,469) * lu(k,1661) - lu(k,1687) = lu(k,1687) - lu(k,470) * lu(k,1661) - lu(k,1691) = lu(k,1691) - lu(k,471) * lu(k,1661) - lu(k,1692) = lu(k,1692) - lu(k,472) * lu(k,1661) - lu(k,1693) = lu(k,1693) - lu(k,473) * lu(k,1661) - lu(k,1694) = lu(k,1694) - lu(k,474) * lu(k,1661) - lu(k,1741) = lu(k,1741) - lu(k,458) * lu(k,1738) - lu(k,1742) = lu(k,1742) - lu(k,459) * lu(k,1738) - lu(k,1745) = lu(k,1745) - lu(k,460) * lu(k,1738) - lu(k,1747) = lu(k,1747) - lu(k,461) * lu(k,1738) - lu(k,1752) = lu(k,1752) - lu(k,462) * lu(k,1738) - lu(k,1755) = - lu(k,463) * lu(k,1738) - lu(k,1756) = lu(k,1756) - lu(k,464) * lu(k,1738) - lu(k,1758) = lu(k,1758) - lu(k,465) * lu(k,1738) - lu(k,1759) = lu(k,1759) - lu(k,466) * lu(k,1738) - lu(k,1762) = lu(k,1762) - lu(k,467) * lu(k,1738) - lu(k,1763) = lu(k,1763) - lu(k,468) * lu(k,1738) - lu(k,1764) = - lu(k,469) * lu(k,1738) - lu(k,1765) = lu(k,1765) - lu(k,470) * lu(k,1738) - lu(k,1769) = lu(k,1769) - lu(k,471) * lu(k,1738) - lu(k,1770) = lu(k,1770) - lu(k,472) * lu(k,1738) - lu(k,1771) = lu(k,1771) - lu(k,473) * lu(k,1738) - lu(k,1772) = lu(k,1772) - lu(k,474) * lu(k,1738) - 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,483) = lu(k,483) * lu(k,477) - lu(k,484) = lu(k,484) * lu(k,477) - lu(k,485) = lu(k,485) * lu(k,477) - lu(k,486) = lu(k,486) * lu(k,477) - lu(k,487) = lu(k,487) * lu(k,477) - lu(k,488) = lu(k,488) * lu(k,477) - lu(k,489) = lu(k,489) * lu(k,477) - lu(k,490) = lu(k,490) * lu(k,477) - lu(k,491) = lu(k,491) * lu(k,477) - lu(k,492) = lu(k,492) * lu(k,477) - lu(k,493) = lu(k,493) * lu(k,477) - lu(k,494) = lu(k,494) * lu(k,477) - lu(k,519) = lu(k,519) - lu(k,478) * lu(k,518) - lu(k,520) = lu(k,520) - lu(k,479) * lu(k,518) - lu(k,521) = lu(k,521) - lu(k,480) * lu(k,518) - lu(k,522) = lu(k,522) - lu(k,481) * lu(k,518) - lu(k,523) = lu(k,523) - lu(k,482) * lu(k,518) - lu(k,524) = lu(k,524) - lu(k,483) * lu(k,518) - lu(k,525) = lu(k,525) - lu(k,484) * lu(k,518) - lu(k,526) = lu(k,526) - lu(k,485) * lu(k,518) - lu(k,527) = lu(k,527) - lu(k,486) * lu(k,518) - lu(k,528) = lu(k,528) - lu(k,487) * lu(k,518) - lu(k,529) = lu(k,529) - lu(k,488) * lu(k,518) - lu(k,530) = lu(k,530) - lu(k,489) * lu(k,518) - lu(k,531) = lu(k,531) - lu(k,490) * lu(k,518) - lu(k,532) = lu(k,532) - lu(k,491) * lu(k,518) - lu(k,533) = lu(k,533) - lu(k,492) * lu(k,518) - lu(k,534) = lu(k,534) - lu(k,493) * lu(k,518) - lu(k,535) = lu(k,535) - lu(k,494) * lu(k,518) - lu(k,821) = lu(k,821) - lu(k,478) * lu(k,819) - lu(k,824) = lu(k,824) - lu(k,479) * lu(k,819) - lu(k,829) = lu(k,829) - lu(k,480) * lu(k,819) - lu(k,830) = lu(k,830) - lu(k,481) * lu(k,819) - lu(k,831) = lu(k,831) - lu(k,482) * lu(k,819) - lu(k,832) = lu(k,832) - lu(k,483) * lu(k,819) - lu(k,834) = lu(k,834) - lu(k,484) * lu(k,819) - lu(k,835) = lu(k,835) - lu(k,485) * lu(k,819) - lu(k,836) = lu(k,836) - lu(k,486) * lu(k,819) - lu(k,837) = lu(k,837) - lu(k,487) * lu(k,819) - lu(k,838) = lu(k,838) - lu(k,488) * lu(k,819) - lu(k,839) = lu(k,839) - lu(k,489) * lu(k,819) - lu(k,841) = lu(k,841) - lu(k,490) * lu(k,819) - lu(k,846) = lu(k,846) - lu(k,491) * lu(k,819) - lu(k,850) = lu(k,850) - lu(k,492) * lu(k,819) - lu(k,851) = lu(k,851) - lu(k,493) * lu(k,819) - lu(k,852) = lu(k,852) - lu(k,494) * lu(k,819) - lu(k,868) = lu(k,868) - lu(k,478) * lu(k,866) - lu(k,872) = lu(k,872) - lu(k,479) * lu(k,866) - lu(k,877) = lu(k,877) - lu(k,480) * lu(k,866) - lu(k,878) = lu(k,878) - lu(k,481) * lu(k,866) - lu(k,879) = lu(k,879) - lu(k,482) * lu(k,866) - lu(k,880) = lu(k,880) - lu(k,483) * lu(k,866) - lu(k,882) = lu(k,882) - lu(k,484) * lu(k,866) - lu(k,883) = lu(k,883) - lu(k,485) * lu(k,866) - lu(k,884) = lu(k,884) - lu(k,486) * lu(k,866) - lu(k,885) = lu(k,885) - lu(k,487) * lu(k,866) - lu(k,886) = lu(k,886) - lu(k,488) * lu(k,866) - lu(k,887) = lu(k,887) - lu(k,489) * lu(k,866) - lu(k,889) = lu(k,889) - lu(k,490) * lu(k,866) - lu(k,894) = lu(k,894) - lu(k,491) * lu(k,866) - lu(k,898) = lu(k,898) - lu(k,492) * lu(k,866) - lu(k,899) = lu(k,899) - lu(k,493) * lu(k,866) - lu(k,900) = lu(k,900) - lu(k,494) * lu(k,866) - lu(k,912) = lu(k,912) - lu(k,478) * lu(k,910) - lu(k,915) = lu(k,915) - lu(k,479) * lu(k,910) - lu(k,920) = lu(k,920) - lu(k,480) * lu(k,910) - lu(k,921) = lu(k,921) - lu(k,481) * lu(k,910) - lu(k,922) = lu(k,922) - lu(k,482) * lu(k,910) - lu(k,923) = lu(k,923) - lu(k,483) * lu(k,910) - lu(k,925) = lu(k,925) - lu(k,484) * lu(k,910) - lu(k,926) = lu(k,926) - lu(k,485) * lu(k,910) - lu(k,927) = lu(k,927) - lu(k,486) * lu(k,910) - lu(k,928) = lu(k,928) - lu(k,487) * lu(k,910) - lu(k,929) = lu(k,929) - lu(k,488) * lu(k,910) - lu(k,930) = lu(k,930) - lu(k,489) * lu(k,910) - lu(k,932) = lu(k,932) - lu(k,490) * lu(k,910) - lu(k,937) = lu(k,937) - lu(k,491) * lu(k,910) - lu(k,941) = lu(k,941) - lu(k,492) * lu(k,910) - lu(k,942) = lu(k,942) - lu(k,493) * lu(k,910) - lu(k,943) = lu(k,943) - lu(k,494) * lu(k,910) - lu(k,1053) = lu(k,1053) - lu(k,478) * lu(k,1051) - lu(k,1056) = lu(k,1056) - lu(k,479) * lu(k,1051) - lu(k,1061) = lu(k,1061) - lu(k,480) * lu(k,1051) - lu(k,1062) = lu(k,1062) - lu(k,481) * lu(k,1051) - lu(k,1063) = lu(k,1063) - lu(k,482) * lu(k,1051) - lu(k,1064) = lu(k,1064) - lu(k,483) * lu(k,1051) - lu(k,1066) = lu(k,1066) - lu(k,484) * lu(k,1051) - lu(k,1067) = lu(k,1067) - lu(k,485) * lu(k,1051) - lu(k,1068) = lu(k,1068) - lu(k,486) * lu(k,1051) - lu(k,1069) = lu(k,1069) - lu(k,487) * lu(k,1051) - lu(k,1070) = lu(k,1070) - lu(k,488) * lu(k,1051) - lu(k,1071) = lu(k,1071) - lu(k,489) * lu(k,1051) - lu(k,1073) = lu(k,1073) - lu(k,490) * lu(k,1051) - lu(k,1078) = lu(k,1078) - lu(k,491) * lu(k,1051) - lu(k,1082) = lu(k,1082) - lu(k,492) * lu(k,1051) - lu(k,1083) = lu(k,1083) - lu(k,493) * lu(k,1051) - lu(k,1084) = lu(k,1084) - lu(k,494) * lu(k,1051) - lu(k,1137) = lu(k,1137) - lu(k,478) * lu(k,1135) - lu(k,1141) = lu(k,1141) - lu(k,479) * lu(k,1135) - lu(k,1146) = lu(k,1146) - lu(k,480) * lu(k,1135) - lu(k,1147) = lu(k,1147) - lu(k,481) * lu(k,1135) - lu(k,1148) = lu(k,1148) - lu(k,482) * lu(k,1135) - lu(k,1149) = lu(k,1149) - lu(k,483) * lu(k,1135) - lu(k,1151) = lu(k,1151) - lu(k,484) * lu(k,1135) - lu(k,1152) = lu(k,1152) - lu(k,485) * lu(k,1135) - lu(k,1153) = lu(k,1153) - lu(k,486) * lu(k,1135) - lu(k,1154) = lu(k,1154) - lu(k,487) * lu(k,1135) - lu(k,1155) = lu(k,1155) - lu(k,488) * lu(k,1135) - lu(k,1156) = lu(k,1156) - lu(k,489) * lu(k,1135) - lu(k,1158) = lu(k,1158) - lu(k,490) * lu(k,1135) - lu(k,1163) = lu(k,1163) - lu(k,491) * lu(k,1135) - lu(k,1167) = lu(k,1167) - lu(k,492) * lu(k,1135) - lu(k,1168) = lu(k,1168) - lu(k,493) * lu(k,1135) - lu(k,1169) = lu(k,1169) - lu(k,494) * lu(k,1135) - lu(k,1181) = lu(k,1181) - lu(k,478) * lu(k,1179) - lu(k,1184) = lu(k,1184) - lu(k,479) * lu(k,1179) - lu(k,1189) = lu(k,1189) - lu(k,480) * lu(k,1179) - lu(k,1190) = lu(k,1190) - lu(k,481) * lu(k,1179) - lu(k,1191) = lu(k,1191) - lu(k,482) * lu(k,1179) - lu(k,1192) = lu(k,1192) - lu(k,483) * lu(k,1179) - lu(k,1194) = lu(k,1194) - lu(k,484) * lu(k,1179) - lu(k,1195) = lu(k,1195) - lu(k,485) * lu(k,1179) - lu(k,1196) = lu(k,1196) - lu(k,486) * lu(k,1179) - lu(k,1197) = lu(k,1197) - lu(k,487) * lu(k,1179) - lu(k,1198) = lu(k,1198) - lu(k,488) * lu(k,1179) - lu(k,1199) = lu(k,1199) - lu(k,489) * lu(k,1179) - lu(k,1201) = lu(k,1201) - lu(k,490) * lu(k,1179) - lu(k,1206) = lu(k,1206) - lu(k,491) * lu(k,1179) - lu(k,1210) = lu(k,1210) - lu(k,492) * lu(k,1179) - lu(k,1211) = lu(k,1211) - lu(k,493) * lu(k,1179) - lu(k,1212) = lu(k,1212) - lu(k,494) * lu(k,1179) - lu(k,1217) = lu(k,1217) - lu(k,478) * lu(k,1216) - lu(k,1220) = lu(k,1220) - lu(k,479) * lu(k,1216) - lu(k,1224) = lu(k,1224) - lu(k,480) * lu(k,1216) - lu(k,1225) = lu(k,1225) - lu(k,481) * lu(k,1216) - lu(k,1226) = lu(k,1226) - lu(k,482) * lu(k,1216) - lu(k,1227) = lu(k,1227) - lu(k,483) * lu(k,1216) - lu(k,1229) = lu(k,1229) - lu(k,484) * lu(k,1216) - lu(k,1230) = lu(k,1230) - lu(k,485) * lu(k,1216) - lu(k,1231) = lu(k,1231) - lu(k,486) * lu(k,1216) - lu(k,1232) = lu(k,1232) - lu(k,487) * lu(k,1216) - lu(k,1233) = lu(k,1233) - lu(k,488) * lu(k,1216) - lu(k,1234) = lu(k,1234) - lu(k,489) * lu(k,1216) - lu(k,1236) = lu(k,1236) - lu(k,490) * lu(k,1216) - lu(k,1241) = lu(k,1241) - lu(k,491) * lu(k,1216) - lu(k,1245) = lu(k,1245) - lu(k,492) * lu(k,1216) - lu(k,1246) = lu(k,1246) - lu(k,493) * lu(k,1216) - lu(k,1247) = lu(k,1247) - lu(k,494) * lu(k,1216) - lu(k,1339) = lu(k,1339) - lu(k,478) * lu(k,1337) - lu(k,1343) = lu(k,1343) - lu(k,479) * lu(k,1337) - lu(k,1348) = lu(k,1348) - lu(k,480) * lu(k,1337) - lu(k,1349) = lu(k,1349) - lu(k,481) * lu(k,1337) - lu(k,1350) = lu(k,1350) - lu(k,482) * lu(k,1337) - lu(k,1351) = lu(k,1351) - lu(k,483) * lu(k,1337) - lu(k,1353) = lu(k,1353) - lu(k,484) * lu(k,1337) - lu(k,1354) = lu(k,1354) - lu(k,485) * lu(k,1337) - lu(k,1355) = lu(k,1355) - lu(k,486) * lu(k,1337) - lu(k,1356) = lu(k,1356) - lu(k,487) * lu(k,1337) - lu(k,1357) = lu(k,1357) - lu(k,488) * lu(k,1337) - lu(k,1358) = lu(k,1358) - lu(k,489) * lu(k,1337) - lu(k,1360) = lu(k,1360) - lu(k,490) * lu(k,1337) - lu(k,1365) = lu(k,1365) - lu(k,491) * lu(k,1337) - lu(k,1369) = lu(k,1369) - lu(k,492) * lu(k,1337) - lu(k,1370) = lu(k,1370) - lu(k,493) * lu(k,1337) - lu(k,1371) = lu(k,1371) - lu(k,494) * lu(k,1337) - lu(k,1551) = lu(k,1551) - lu(k,478) * lu(k,1549) - lu(k,1554) = lu(k,1554) - lu(k,479) * lu(k,1549) - lu(k,1559) = lu(k,1559) - lu(k,480) * lu(k,1549) - lu(k,1560) = lu(k,1560) - lu(k,481) * lu(k,1549) - lu(k,1561) = lu(k,1561) - lu(k,482) * lu(k,1549) - lu(k,1562) = lu(k,1562) - lu(k,483) * lu(k,1549) - lu(k,1564) = lu(k,1564) - lu(k,484) * lu(k,1549) - lu(k,1565) = lu(k,1565) - lu(k,485) * lu(k,1549) - lu(k,1566) = lu(k,1566) - lu(k,486) * lu(k,1549) - lu(k,1567) = lu(k,1567) - lu(k,487) * lu(k,1549) - lu(k,1568) = lu(k,1568) - lu(k,488) * lu(k,1549) - lu(k,1569) = lu(k,1569) - lu(k,489) * lu(k,1549) - lu(k,1571) = lu(k,1571) - lu(k,490) * lu(k,1549) - lu(k,1576) = lu(k,1576) - lu(k,491) * lu(k,1549) - lu(k,1580) = lu(k,1580) - lu(k,492) * lu(k,1549) - lu(k,1581) = lu(k,1581) - lu(k,493) * lu(k,1549) - lu(k,1582) = lu(k,1582) - lu(k,494) * lu(k,1549) - lu(k,1793) = lu(k,1793) - lu(k,478) * lu(k,1791) - lu(k,1797) = lu(k,1797) - lu(k,479) * lu(k,1791) - lu(k,1802) = lu(k,1802) - lu(k,480) * lu(k,1791) - lu(k,1803) = lu(k,1803) - lu(k,481) * lu(k,1791) - lu(k,1804) = lu(k,1804) - lu(k,482) * lu(k,1791) - lu(k,1805) = lu(k,1805) - lu(k,483) * lu(k,1791) - lu(k,1807) = lu(k,1807) - lu(k,484) * lu(k,1791) - lu(k,1808) = lu(k,1808) - lu(k,485) * lu(k,1791) - lu(k,1809) = lu(k,1809) - lu(k,486) * lu(k,1791) - lu(k,1810) = lu(k,1810) - lu(k,487) * lu(k,1791) - lu(k,1811) = lu(k,1811) - lu(k,488) * lu(k,1791) - lu(k,1812) = lu(k,1812) - lu(k,489) * lu(k,1791) - lu(k,1814) = lu(k,1814) - lu(k,490) * lu(k,1791) - lu(k,1819) = lu(k,1819) - lu(k,491) * lu(k,1791) - lu(k,1823) = lu(k,1823) - lu(k,492) * lu(k,1791) - lu(k,1824) = lu(k,1824) - lu(k,493) * lu(k,1791) - lu(k,1825) = lu(k,1825) - lu(k,494) * lu(k,1791) - end do + real(r8), intent(inout) :: lu(:) + lu(450) = 1._r8 / lu(450) + lu(451) = lu(451) * lu(450) + lu(452) = lu(452) * lu(450) + lu(453) = lu(453) * lu(450) + lu(454) = lu(454) * lu(450) + lu(455) = lu(455) * lu(450) + lu(456) = lu(456) * lu(450) + lu(457) = lu(457) * lu(450) + lu(458) = lu(458) * lu(450) + lu(459) = lu(459) * lu(450) + lu(460) = lu(460) * lu(450) + lu(461) = lu(461) * lu(450) + lu(462) = lu(462) * lu(450) + lu(463) = lu(463) * lu(450) + lu(468) = - lu(451) * lu(465) + lu(469) = lu(469) - lu(452) * lu(465) + lu(470) = lu(470) - lu(453) * lu(465) + lu(472) = lu(472) - lu(454) * lu(465) + lu(473) = lu(473) - lu(455) * lu(465) + lu(475) = lu(475) - lu(456) * lu(465) + lu(476) = lu(476) - lu(457) * lu(465) + lu(477) = lu(477) - lu(458) * lu(465) + lu(478) = lu(478) - lu(459) * lu(465) + lu(479) = lu(479) - lu(460) * lu(465) + lu(481) = lu(481) - lu(461) * lu(465) + lu(482) = lu(482) - lu(462) * lu(465) + lu(483) = lu(483) - lu(463) * lu(465) + lu(508) = lu(508) - lu(451) * lu(505) + lu(509) = lu(509) - lu(452) * lu(505) + lu(510) = lu(510) - lu(453) * lu(505) + lu(512) = lu(512) - lu(454) * lu(505) + lu(513) = lu(513) - lu(455) * lu(505) + lu(515) = lu(515) - lu(456) * lu(505) + lu(516) = lu(516) - lu(457) * lu(505) + lu(517) = lu(517) - lu(458) * lu(505) + lu(518) = lu(518) - lu(459) * lu(505) + lu(519) = lu(519) - lu(460) * lu(505) + lu(521) = lu(521) - lu(461) * lu(505) + lu(522) = lu(522) - lu(462) * lu(505) + lu(523) = lu(523) - lu(463) * lu(505) + lu(636) = lu(636) - lu(451) * lu(633) + lu(638) = lu(638) - lu(452) * lu(633) + lu(639) = lu(639) - lu(453) * lu(633) + lu(642) = lu(642) - lu(454) * lu(633) + lu(643) = lu(643) - lu(455) * lu(633) + lu(645) = lu(645) - lu(456) * lu(633) + lu(647) = lu(647) - lu(457) * lu(633) + lu(648) = lu(648) - lu(458) * lu(633) + lu(649) = lu(649) - lu(459) * lu(633) + lu(651) = lu(651) - lu(460) * lu(633) + lu(654) = lu(654) - lu(461) * lu(633) + lu(655) = lu(655) - lu(462) * lu(633) + lu(656) = lu(656) - lu(463) * lu(633) + lu(812) = lu(812) - lu(451) * lu(805) + lu(817) = lu(817) - lu(452) * lu(805) + lu(818) = lu(818) - lu(453) * lu(805) + lu(821) = lu(821) - lu(454) * lu(805) + lu(822) = lu(822) - lu(455) * lu(805) + lu(825) = lu(825) - lu(456) * lu(805) + lu(828) = lu(828) - lu(457) * lu(805) + lu(829) = lu(829) - lu(458) * lu(805) + lu(830) = lu(830) - lu(459) * lu(805) + lu(832) = lu(832) - lu(460) * lu(805) + lu(837) = lu(837) - lu(461) * lu(805) + lu(838) = lu(838) - lu(462) * lu(805) + lu(839) = lu(839) - lu(463) * lu(805) + lu(854) = lu(854) - lu(451) * lu(848) + lu(859) = lu(859) - lu(452) * lu(848) + lu(860) = lu(860) - lu(453) * lu(848) + lu(863) = lu(863) - lu(454) * lu(848) + lu(864) = lu(864) - lu(455) * lu(848) + lu(867) = lu(867) - lu(456) * lu(848) + lu(870) = lu(870) - lu(457) * lu(848) + lu(871) = lu(871) - lu(458) * lu(848) + lu(872) = lu(872) - lu(459) * lu(848) + lu(874) = lu(874) - lu(460) * lu(848) + lu(879) = lu(879) - lu(461) * lu(848) + lu(880) = lu(880) - lu(462) * lu(848) + lu(881) = lu(881) - lu(463) * lu(848) + lu(898) = lu(898) - lu(451) * lu(893) + lu(903) = lu(903) - lu(452) * lu(893) + lu(904) = lu(904) - lu(453) * lu(893) + lu(907) = lu(907) - lu(454) * lu(893) + lu(908) = lu(908) - lu(455) * lu(893) + lu(911) = lu(911) - lu(456) * lu(893) + lu(914) = lu(914) - lu(457) * lu(893) + lu(915) = lu(915) - lu(458) * lu(893) + lu(916) = lu(916) - lu(459) * lu(893) + lu(918) = lu(918) - lu(460) * lu(893) + lu(923) = lu(923) - lu(461) * lu(893) + lu(924) = lu(924) - lu(462) * lu(893) + lu(925) = lu(925) - lu(463) * lu(893) + lu(974) = lu(974) - lu(451) * lu(968) + lu(979) = lu(979) - lu(452) * lu(968) + lu(980) = lu(980) - lu(453) * lu(968) + lu(983) = lu(983) - lu(454) * lu(968) + lu(984) = lu(984) - lu(455) * lu(968) + lu(987) = lu(987) - lu(456) * lu(968) + lu(990) = lu(990) - lu(457) * lu(968) + lu(991) = lu(991) - lu(458) * lu(968) + lu(992) = lu(992) - lu(459) * lu(968) + lu(994) = lu(994) - lu(460) * lu(968) + lu(999) = lu(999) - lu(461) * lu(968) + lu(1000) = lu(1000) - lu(462) * lu(968) + lu(1001) = lu(1001) - lu(463) * lu(968) + lu(1016) = lu(1016) - lu(451) * lu(1010) + lu(1021) = lu(1021) - lu(452) * lu(1010) + lu(1022) = lu(1022) - lu(453) * lu(1010) + lu(1025) = lu(1025) - lu(454) * lu(1010) + lu(1026) = lu(1026) - lu(455) * lu(1010) + lu(1029) = lu(1029) - lu(456) * lu(1010) + lu(1032) = lu(1032) - lu(457) * lu(1010) + lu(1033) = lu(1033) - lu(458) * lu(1010) + lu(1034) = lu(1034) - lu(459) * lu(1010) + lu(1036) = lu(1036) - lu(460) * lu(1010) + lu(1041) = lu(1041) - lu(461) * lu(1010) + lu(1042) = lu(1042) - lu(462) * lu(1010) + lu(1043) = lu(1043) - lu(463) * lu(1010) + lu(1060) = lu(1060) - lu(451) * lu(1053) + lu(1065) = lu(1065) - lu(452) * lu(1053) + lu(1066) = - lu(453) * lu(1053) + lu(1069) = - lu(454) * lu(1053) + lu(1070) = - lu(455) * lu(1053) + lu(1073) = lu(1073) - lu(456) * lu(1053) + lu(1076) = lu(1076) - lu(457) * lu(1053) + lu(1077) = lu(1077) - lu(458) * lu(1053) + lu(1078) = lu(1078) - lu(459) * lu(1053) + lu(1080) = lu(1080) - lu(460) * lu(1053) + lu(1085) = lu(1085) - lu(461) * lu(1053) + lu(1086) = lu(1086) - lu(462) * lu(1053) + lu(1087) = lu(1087) - lu(463) * lu(1053) + lu(1266) = lu(1266) - lu(451) * lu(1259) + lu(1271) = lu(1271) - lu(452) * lu(1259) + lu(1272) = lu(1272) - lu(453) * lu(1259) + lu(1275) = lu(1275) - lu(454) * lu(1259) + lu(1276) = lu(1276) - lu(455) * lu(1259) + lu(1279) = lu(1279) - lu(456) * lu(1259) + lu(1282) = lu(1282) - lu(457) * lu(1259) + lu(1283) = lu(1283) - lu(458) * lu(1259) + lu(1284) = lu(1284) - lu(459) * lu(1259) + lu(1286) = lu(1286) - lu(460) * lu(1259) + lu(1291) = lu(1291) - lu(461) * lu(1259) + lu(1292) = lu(1292) - lu(462) * lu(1259) + lu(1293) = lu(1293) - lu(463) * lu(1259) + lu(1349) = lu(1349) - lu(451) * lu(1343) + lu(1354) = lu(1354) - lu(452) * lu(1343) + lu(1355) = lu(1355) - lu(453) * lu(1343) + lu(1358) = lu(1358) - lu(454) * lu(1343) + lu(1359) = lu(1359) - lu(455) * lu(1343) + lu(1362) = lu(1362) - lu(456) * lu(1343) + lu(1365) = lu(1365) - lu(457) * lu(1343) + lu(1366) = lu(1366) - lu(458) * lu(1343) + lu(1367) = lu(1367) - lu(459) * lu(1343) + lu(1369) = lu(1369) - lu(460) * lu(1343) + lu(1374) = lu(1374) - lu(461) * lu(1343) + lu(1375) = lu(1375) - lu(462) * lu(1343) + lu(1376) = lu(1376) - lu(463) * lu(1343) + lu(1433) = lu(1433) - lu(451) * lu(1427) + lu(1438) = lu(1438) - lu(452) * lu(1427) + lu(1439) = lu(1439) - lu(453) * lu(1427) + lu(1442) = lu(1442) - lu(454) * lu(1427) + lu(1443) = lu(1443) - lu(455) * lu(1427) + lu(1446) = lu(1446) - lu(456) * lu(1427) + lu(1449) = lu(1449) - lu(457) * lu(1427) + lu(1450) = lu(1450) - lu(458) * lu(1427) + lu(1451) = lu(1451) - lu(459) * lu(1427) + lu(1453) = lu(1453) - lu(460) * lu(1427) + lu(1458) = lu(1458) - lu(461) * lu(1427) + lu(1459) = lu(1459) - lu(462) * lu(1427) + lu(1460) = lu(1460) - lu(463) * lu(1427) + lu(1632) = lu(1632) - lu(451) * lu(1627) + lu(1637) = lu(1637) - lu(452) * lu(1627) + lu(1638) = lu(1638) - lu(453) * lu(1627) + lu(1641) = lu(1641) - lu(454) * lu(1627) + lu(1642) = lu(1642) - lu(455) * lu(1627) + lu(1645) = lu(1645) - lu(456) * lu(1627) + lu(1648) = lu(1648) - lu(457) * lu(1627) + lu(1649) = lu(1649) - lu(458) * lu(1627) + lu(1650) = lu(1650) - lu(459) * lu(1627) + lu(1652) = lu(1652) - lu(460) * lu(1627) + lu(1657) = lu(1657) - lu(461) * lu(1627) + lu(1658) = lu(1658) - lu(462) * lu(1627) + lu(1659) = lu(1659) - lu(463) * lu(1627) + lu(1667) = - lu(451) * lu(1662) + lu(1671) = - lu(452) * lu(1662) + lu(1672) = - lu(453) * lu(1662) + lu(1675) = - lu(454) * lu(1662) + lu(1676) = - lu(455) * lu(1662) + lu(1679) = lu(1679) - lu(456) * lu(1662) + lu(1682) = - lu(457) * lu(1662) + lu(1683) = lu(1683) - lu(458) * lu(1662) + lu(1684) = lu(1684) - lu(459) * lu(1662) + lu(1686) = lu(1686) - lu(460) * lu(1662) + lu(1691) = lu(1691) - lu(461) * lu(1662) + lu(1692) = lu(1692) - lu(462) * lu(1662) + lu(1693) = lu(1693) - lu(463) * lu(1662) + lu(466) = 1._r8 / lu(466) + lu(467) = lu(467) * lu(466) + lu(468) = lu(468) * lu(466) + lu(469) = lu(469) * lu(466) + lu(470) = lu(470) * lu(466) + lu(471) = lu(471) * lu(466) + lu(472) = lu(472) * lu(466) + lu(473) = lu(473) * lu(466) + lu(474) = lu(474) * lu(466) + lu(475) = lu(475) * lu(466) + lu(476) = lu(476) * lu(466) + lu(477) = lu(477) * lu(466) + lu(478) = lu(478) * lu(466) + lu(479) = lu(479) * lu(466) + lu(480) = lu(480) * lu(466) + lu(481) = lu(481) * lu(466) + lu(482) = lu(482) * lu(466) + lu(483) = lu(483) * lu(466) + lu(507) = lu(507) - lu(467) * lu(506) + lu(508) = lu(508) - lu(468) * lu(506) + lu(509) = lu(509) - lu(469) * lu(506) + lu(510) = lu(510) - lu(470) * lu(506) + lu(511) = lu(511) - lu(471) * lu(506) + lu(512) = lu(512) - lu(472) * lu(506) + lu(513) = lu(513) - lu(473) * lu(506) + lu(514) = lu(514) - lu(474) * lu(506) + lu(515) = lu(515) - lu(475) * lu(506) + lu(516) = lu(516) - lu(476) * lu(506) + lu(517) = lu(517) - lu(477) * lu(506) + lu(518) = lu(518) - lu(478) * lu(506) + lu(519) = lu(519) - lu(479) * lu(506) + lu(520) = lu(520) - lu(480) * lu(506) + lu(521) = lu(521) - lu(481) * lu(506) + lu(522) = lu(522) - lu(482) * lu(506) + lu(523) = lu(523) - lu(483) * lu(506) + lu(808) = lu(808) - lu(467) * lu(806) + lu(812) = lu(812) - lu(468) * lu(806) + lu(817) = lu(817) - lu(469) * lu(806) + lu(818) = lu(818) - lu(470) * lu(806) + lu(820) = lu(820) - lu(471) * lu(806) + lu(821) = lu(821) - lu(472) * lu(806) + lu(822) = lu(822) - lu(473) * lu(806) + lu(823) = lu(823) - lu(474) * lu(806) + lu(825) = lu(825) - lu(475) * lu(806) + lu(828) = lu(828) - lu(476) * lu(806) + lu(829) = lu(829) - lu(477) * lu(806) + lu(830) = lu(830) - lu(478) * lu(806) + lu(832) = lu(832) - lu(479) * lu(806) + lu(833) = lu(833) - lu(480) * lu(806) + lu(837) = lu(837) - lu(481) * lu(806) + lu(838) = lu(838) - lu(482) * lu(806) + lu(839) = lu(839) - lu(483) * lu(806) + lu(851) = lu(851) - lu(467) * lu(849) + lu(854) = lu(854) - lu(468) * lu(849) + lu(859) = lu(859) - lu(469) * lu(849) + lu(860) = lu(860) - lu(470) * lu(849) + lu(862) = lu(862) - lu(471) * lu(849) + lu(863) = lu(863) - lu(472) * lu(849) + lu(864) = lu(864) - lu(473) * lu(849) + lu(865) = lu(865) - lu(474) * lu(849) + lu(867) = lu(867) - lu(475) * lu(849) + lu(870) = lu(870) - lu(476) * lu(849) + lu(871) = lu(871) - lu(477) * lu(849) + lu(872) = lu(872) - lu(478) * lu(849) + lu(874) = lu(874) - lu(479) * lu(849) + lu(875) = lu(875) - lu(480) * lu(849) + lu(879) = lu(879) - lu(481) * lu(849) + lu(880) = lu(880) - lu(482) * lu(849) + lu(881) = lu(881) - lu(483) * lu(849) + lu(971) = lu(971) - lu(467) * lu(969) + lu(974) = lu(974) - lu(468) * lu(969) + lu(979) = lu(979) - lu(469) * lu(969) + lu(980) = lu(980) - lu(470) * lu(969) + lu(982) = lu(982) - lu(471) * lu(969) + lu(983) = lu(983) - lu(472) * lu(969) + lu(984) = lu(984) - lu(473) * lu(969) + lu(985) = lu(985) - lu(474) * lu(969) + lu(987) = lu(987) - lu(475) * lu(969) + lu(990) = lu(990) - lu(476) * lu(969) + lu(991) = lu(991) - lu(477) * lu(969) + lu(992) = lu(992) - lu(478) * lu(969) + lu(994) = lu(994) - lu(479) * lu(969) + lu(995) = lu(995) - lu(480) * lu(969) + lu(999) = lu(999) - lu(481) * lu(969) + lu(1000) = lu(1000) - lu(482) * lu(969) + lu(1001) = lu(1001) - lu(483) * lu(969) + lu(1013) = lu(1013) - lu(467) * lu(1011) + lu(1016) = lu(1016) - lu(468) * lu(1011) + lu(1021) = lu(1021) - lu(469) * lu(1011) + lu(1022) = lu(1022) - lu(470) * lu(1011) + lu(1024) = lu(1024) - lu(471) * lu(1011) + lu(1025) = lu(1025) - lu(472) * lu(1011) + lu(1026) = lu(1026) - lu(473) * lu(1011) + lu(1027) = lu(1027) - lu(474) * lu(1011) + lu(1029) = lu(1029) - lu(475) * lu(1011) + lu(1032) = lu(1032) - lu(476) * lu(1011) + lu(1033) = lu(1033) - lu(477) * lu(1011) + lu(1034) = lu(1034) - lu(478) * lu(1011) + lu(1036) = lu(1036) - lu(479) * lu(1011) + lu(1037) = lu(1037) - lu(480) * lu(1011) + lu(1041) = lu(1041) - lu(481) * lu(1011) + lu(1042) = lu(1042) - lu(482) * lu(1011) + lu(1043) = lu(1043) - lu(483) * lu(1011) + lu(1056) = lu(1056) - lu(467) * lu(1054) + lu(1060) = lu(1060) - lu(468) * lu(1054) + lu(1065) = lu(1065) - lu(469) * lu(1054) + lu(1066) = lu(1066) - lu(470) * lu(1054) + lu(1068) = lu(1068) - lu(471) * lu(1054) + lu(1069) = lu(1069) - lu(472) * lu(1054) + lu(1070) = lu(1070) - lu(473) * lu(1054) + lu(1071) = lu(1071) - lu(474) * lu(1054) + lu(1073) = lu(1073) - lu(475) * lu(1054) + lu(1076) = lu(1076) - lu(476) * lu(1054) + lu(1077) = lu(1077) - lu(477) * lu(1054) + lu(1078) = lu(1078) - lu(478) * lu(1054) + lu(1080) = lu(1080) - lu(479) * lu(1054) + lu(1081) = lu(1081) - lu(480) * lu(1054) + lu(1085) = lu(1085) - lu(481) * lu(1054) + lu(1086) = lu(1086) - lu(482) * lu(1054) + lu(1087) = lu(1087) - lu(483) * lu(1054) + lu(1262) = lu(1262) - lu(467) * lu(1260) + lu(1266) = lu(1266) - lu(468) * lu(1260) + lu(1271) = lu(1271) - lu(469) * lu(1260) + lu(1272) = lu(1272) - lu(470) * lu(1260) + lu(1274) = lu(1274) - lu(471) * lu(1260) + lu(1275) = lu(1275) - lu(472) * lu(1260) + lu(1276) = lu(1276) - lu(473) * lu(1260) + lu(1277) = lu(1277) - lu(474) * lu(1260) + lu(1279) = lu(1279) - lu(475) * lu(1260) + lu(1282) = lu(1282) - lu(476) * lu(1260) + lu(1283) = lu(1283) - lu(477) * lu(1260) + lu(1284) = lu(1284) - lu(478) * lu(1260) + lu(1286) = lu(1286) - lu(479) * lu(1260) + lu(1287) = lu(1287) - lu(480) * lu(1260) + lu(1291) = lu(1291) - lu(481) * lu(1260) + lu(1292) = lu(1292) - lu(482) * lu(1260) + lu(1293) = lu(1293) - lu(483) * lu(1260) + lu(1346) = lu(1346) - lu(467) * lu(1344) + lu(1349) = lu(1349) - lu(468) * lu(1344) + lu(1354) = lu(1354) - lu(469) * lu(1344) + lu(1355) = lu(1355) - lu(470) * lu(1344) + lu(1357) = lu(1357) - lu(471) * lu(1344) + lu(1358) = lu(1358) - lu(472) * lu(1344) + lu(1359) = lu(1359) - lu(473) * lu(1344) + lu(1360) = lu(1360) - lu(474) * lu(1344) + lu(1362) = lu(1362) - lu(475) * lu(1344) + lu(1365) = lu(1365) - lu(476) * lu(1344) + lu(1366) = lu(1366) - lu(477) * lu(1344) + lu(1367) = lu(1367) - lu(478) * lu(1344) + lu(1369) = lu(1369) - lu(479) * lu(1344) + lu(1370) = lu(1370) - lu(480) * lu(1344) + lu(1374) = lu(1374) - lu(481) * lu(1344) + lu(1375) = lu(1375) - lu(482) * lu(1344) + lu(1376) = lu(1376) - lu(483) * lu(1344) + lu(1430) = lu(1430) - lu(467) * lu(1428) + lu(1433) = lu(1433) - lu(468) * lu(1428) + lu(1438) = lu(1438) - lu(469) * lu(1428) + lu(1439) = lu(1439) - lu(470) * lu(1428) + lu(1441) = lu(1441) - lu(471) * lu(1428) + lu(1442) = lu(1442) - lu(472) * lu(1428) + lu(1443) = lu(1443) - lu(473) * lu(1428) + lu(1444) = lu(1444) - lu(474) * lu(1428) + lu(1446) = lu(1446) - lu(475) * lu(1428) + lu(1449) = lu(1449) - lu(476) * lu(1428) + lu(1450) = lu(1450) - lu(477) * lu(1428) + lu(1451) = lu(1451) - lu(478) * lu(1428) + lu(1453) = lu(1453) - lu(479) * lu(1428) + lu(1454) = lu(1454) - lu(480) * lu(1428) + lu(1458) = lu(1458) - lu(481) * lu(1428) + lu(1459) = lu(1459) - lu(482) * lu(1428) + lu(1460) = lu(1460) - lu(483) * lu(1428) + lu(1664) = lu(1664) - lu(467) * lu(1663) + lu(1667) = lu(1667) - lu(468) * lu(1663) + lu(1671) = lu(1671) - lu(469) * lu(1663) + lu(1672) = lu(1672) - lu(470) * lu(1663) + lu(1674) = lu(1674) - lu(471) * lu(1663) + lu(1675) = lu(1675) - lu(472) * lu(1663) + lu(1676) = lu(1676) - lu(473) * lu(1663) + lu(1677) = lu(1677) - lu(474) * lu(1663) + lu(1679) = lu(1679) - lu(475) * lu(1663) + lu(1682) = lu(1682) - lu(476) * lu(1663) + lu(1683) = lu(1683) - lu(477) * lu(1663) + lu(1684) = lu(1684) - lu(478) * lu(1663) + lu(1686) = lu(1686) - lu(479) * lu(1663) + lu(1687) = lu(1687) - lu(480) * lu(1663) + lu(1691) = lu(1691) - lu(481) * lu(1663) + lu(1692) = lu(1692) - lu(482) * lu(1663) + lu(1693) = lu(1693) - lu(483) * lu(1663) + lu(1714) = lu(1714) - lu(467) * lu(1712) + lu(1718) = lu(1718) - lu(468) * lu(1712) + lu(1723) = lu(1723) - lu(469) * lu(1712) + lu(1724) = lu(1724) - lu(470) * lu(1712) + lu(1726) = lu(1726) - lu(471) * lu(1712) + lu(1727) = lu(1727) - lu(472) * lu(1712) + lu(1728) = lu(1728) - lu(473) * lu(1712) + lu(1729) = lu(1729) - lu(474) * lu(1712) + lu(1731) = lu(1731) - lu(475) * lu(1712) + lu(1734) = lu(1734) - lu(476) * lu(1712) + lu(1735) = lu(1735) - lu(477) * lu(1712) + lu(1736) = lu(1736) - lu(478) * lu(1712) + lu(1738) = lu(1738) - lu(479) * lu(1712) + lu(1739) = lu(1739) - lu(480) * lu(1712) + lu(1743) = lu(1743) - lu(481) * lu(1712) + lu(1744) = lu(1744) - lu(482) * lu(1712) + lu(1745) = lu(1745) - lu(483) * lu(1712) + lu(486) = 1._r8 / lu(486) + lu(487) = lu(487) * lu(486) + lu(488) = lu(488) * lu(486) + lu(489) = lu(489) * lu(486) + lu(490) = lu(490) * lu(486) + lu(491) = lu(491) * lu(486) + lu(492) = lu(492) * lu(486) + lu(493) = lu(493) * lu(486) + lu(494) = lu(494) * lu(486) + lu(495) = lu(495) * lu(486) + lu(496) = lu(496) * lu(486) + lu(497) = lu(497) * lu(486) + lu(498) = lu(498) * lu(486) + lu(499) = lu(499) * lu(486) + lu(500) = lu(500) * lu(486) + lu(501) = lu(501) * lu(486) + lu(502) = lu(502) * lu(486) + lu(503) = lu(503) * lu(486) + lu(735) = - lu(487) * lu(734) + lu(737) = lu(737) - lu(488) * lu(734) + lu(739) = lu(739) - lu(489) * lu(734) + lu(740) = lu(740) - lu(490) * lu(734) + lu(741) = lu(741) - lu(491) * lu(734) + lu(742) = lu(742) - lu(492) * lu(734) + lu(744) = lu(744) - lu(493) * lu(734) + lu(745) = lu(745) - lu(494) * lu(734) + lu(746) = lu(746) - lu(495) * lu(734) + lu(747) = lu(747) - lu(496) * lu(734) + lu(749) = lu(749) - lu(497) * lu(734) + lu(752) = lu(752) - lu(498) * lu(734) + lu(753) = lu(753) - lu(499) * lu(734) + lu(754) = lu(754) - lu(500) * lu(734) + lu(756) = lu(756) - lu(501) * lu(734) + lu(757) = lu(757) - lu(502) * lu(734) + lu(763) = lu(763) - lu(503) * lu(734) + lu(808) = lu(808) - lu(487) * lu(807) + lu(812) = lu(812) - lu(488) * lu(807) + lu(815) = lu(815) - lu(489) * lu(807) + lu(816) = lu(816) - lu(490) * lu(807) + lu(817) = lu(817) - lu(491) * lu(807) + lu(818) = lu(818) - lu(492) * lu(807) + lu(820) = lu(820) - lu(493) * lu(807) + lu(821) = lu(821) - lu(494) * lu(807) + lu(822) = lu(822) - lu(495) * lu(807) + lu(823) = lu(823) - lu(496) * lu(807) + lu(825) = lu(825) - lu(497) * lu(807) + lu(828) = lu(828) - lu(498) * lu(807) + lu(829) = lu(829) - lu(499) * lu(807) + lu(830) = lu(830) - lu(500) * lu(807) + lu(832) = lu(832) - lu(501) * lu(807) + lu(833) = lu(833) - lu(502) * lu(807) + lu(839) = lu(839) - lu(503) * lu(807) + lu(851) = lu(851) - lu(487) * lu(850) + lu(854) = lu(854) - lu(488) * lu(850) + lu(857) = lu(857) - lu(489) * lu(850) + lu(858) = lu(858) - lu(490) * lu(850) + lu(859) = lu(859) - lu(491) * lu(850) + lu(860) = lu(860) - lu(492) * lu(850) + lu(862) = lu(862) - lu(493) * lu(850) + lu(863) = lu(863) - lu(494) * lu(850) + lu(864) = lu(864) - lu(495) * lu(850) + lu(865) = lu(865) - lu(496) * lu(850) + lu(867) = lu(867) - lu(497) * lu(850) + lu(870) = lu(870) - lu(498) * lu(850) + lu(871) = lu(871) - lu(499) * lu(850) + lu(872) = lu(872) - lu(500) * lu(850) + lu(874) = lu(874) - lu(501) * lu(850) + lu(875) = lu(875) - lu(502) * lu(850) + lu(881) = lu(881) - lu(503) * lu(850) + lu(971) = lu(971) - lu(487) * lu(970) + lu(974) = lu(974) - lu(488) * lu(970) + lu(977) = lu(977) - lu(489) * lu(970) + lu(978) = lu(978) - lu(490) * lu(970) + lu(979) = lu(979) - lu(491) * lu(970) + lu(980) = lu(980) - lu(492) * lu(970) + lu(982) = lu(982) - lu(493) * lu(970) + lu(983) = lu(983) - lu(494) * lu(970) + lu(984) = lu(984) - lu(495) * lu(970) + lu(985) = lu(985) - lu(496) * lu(970) + lu(987) = lu(987) - lu(497) * lu(970) + lu(990) = lu(990) - lu(498) * lu(970) + lu(991) = lu(991) - lu(499) * lu(970) + lu(992) = lu(992) - lu(500) * lu(970) + lu(994) = lu(994) - lu(501) * lu(970) + lu(995) = lu(995) - lu(502) * lu(970) + lu(1001) = lu(1001) - lu(503) * lu(970) + lu(1013) = lu(1013) - lu(487) * lu(1012) + lu(1016) = lu(1016) - lu(488) * lu(1012) + lu(1019) = lu(1019) - lu(489) * lu(1012) + lu(1020) = lu(1020) - lu(490) * lu(1012) + lu(1021) = lu(1021) - lu(491) * lu(1012) + lu(1022) = lu(1022) - lu(492) * lu(1012) + lu(1024) = lu(1024) - lu(493) * lu(1012) + lu(1025) = lu(1025) - lu(494) * lu(1012) + lu(1026) = lu(1026) - lu(495) * lu(1012) + lu(1027) = lu(1027) - lu(496) * lu(1012) + lu(1029) = lu(1029) - lu(497) * lu(1012) + lu(1032) = lu(1032) - lu(498) * lu(1012) + lu(1033) = lu(1033) - lu(499) * lu(1012) + lu(1034) = lu(1034) - lu(500) * lu(1012) + lu(1036) = lu(1036) - lu(501) * lu(1012) + lu(1037) = lu(1037) - lu(502) * lu(1012) + lu(1043) = lu(1043) - lu(503) * lu(1012) + lu(1056) = lu(1056) - lu(487) * lu(1055) + lu(1060) = lu(1060) - lu(488) * lu(1055) + lu(1063) = lu(1063) - lu(489) * lu(1055) + lu(1064) = lu(1064) - lu(490) * lu(1055) + lu(1065) = lu(1065) - lu(491) * lu(1055) + lu(1066) = lu(1066) - lu(492) * lu(1055) + lu(1068) = lu(1068) - lu(493) * lu(1055) + lu(1069) = lu(1069) - lu(494) * lu(1055) + lu(1070) = lu(1070) - lu(495) * lu(1055) + lu(1071) = lu(1071) - lu(496) * lu(1055) + lu(1073) = lu(1073) - lu(497) * lu(1055) + lu(1076) = lu(1076) - lu(498) * lu(1055) + lu(1077) = lu(1077) - lu(499) * lu(1055) + lu(1078) = lu(1078) - lu(500) * lu(1055) + lu(1080) = lu(1080) - lu(501) * lu(1055) + lu(1081) = lu(1081) - lu(502) * lu(1055) + lu(1087) = lu(1087) - lu(503) * lu(1055) + lu(1262) = lu(1262) - lu(487) * lu(1261) + lu(1266) = lu(1266) - lu(488) * lu(1261) + lu(1269) = lu(1269) - lu(489) * lu(1261) + lu(1270) = lu(1270) - lu(490) * lu(1261) + lu(1271) = lu(1271) - lu(491) * lu(1261) + lu(1272) = lu(1272) - lu(492) * lu(1261) + lu(1274) = lu(1274) - lu(493) * lu(1261) + lu(1275) = lu(1275) - lu(494) * lu(1261) + lu(1276) = lu(1276) - lu(495) * lu(1261) + lu(1277) = lu(1277) - lu(496) * lu(1261) + lu(1279) = lu(1279) - lu(497) * lu(1261) + lu(1282) = lu(1282) - lu(498) * lu(1261) + lu(1283) = lu(1283) - lu(499) * lu(1261) + lu(1284) = lu(1284) - lu(500) * lu(1261) + lu(1286) = lu(1286) - lu(501) * lu(1261) + lu(1287) = lu(1287) - lu(502) * lu(1261) + lu(1293) = lu(1293) - lu(503) * lu(1261) + lu(1303) = - lu(487) * lu(1302) + lu(1307) = lu(1307) - lu(488) * lu(1302) + lu(1310) = lu(1310) - lu(489) * lu(1302) + lu(1311) = lu(1311) - lu(490) * lu(1302) + lu(1312) = lu(1312) - lu(491) * lu(1302) + lu(1313) = lu(1313) - lu(492) * lu(1302) + lu(1315) = lu(1315) - lu(493) * lu(1302) + lu(1316) = lu(1316) - lu(494) * lu(1302) + lu(1317) = lu(1317) - lu(495) * lu(1302) + lu(1318) = lu(1318) - lu(496) * lu(1302) + lu(1320) = lu(1320) - lu(497) * lu(1302) + lu(1323) = lu(1323) - lu(498) * lu(1302) + lu(1324) = lu(1324) - lu(499) * lu(1302) + lu(1325) = lu(1325) - lu(500) * lu(1302) + lu(1327) = lu(1327) - lu(501) * lu(1302) + lu(1328) = lu(1328) - lu(502) * lu(1302) + lu(1334) = lu(1334) - lu(503) * lu(1302) + lu(1346) = lu(1346) - lu(487) * lu(1345) + lu(1349) = lu(1349) - lu(488) * lu(1345) + lu(1352) = lu(1352) - lu(489) * lu(1345) + lu(1353) = lu(1353) - lu(490) * lu(1345) + lu(1354) = lu(1354) - lu(491) * lu(1345) + lu(1355) = lu(1355) - lu(492) * lu(1345) + lu(1357) = lu(1357) - lu(493) * lu(1345) + lu(1358) = lu(1358) - lu(494) * lu(1345) + lu(1359) = lu(1359) - lu(495) * lu(1345) + lu(1360) = lu(1360) - lu(496) * lu(1345) + lu(1362) = lu(1362) - lu(497) * lu(1345) + lu(1365) = lu(1365) - lu(498) * lu(1345) + lu(1366) = lu(1366) - lu(499) * lu(1345) + lu(1367) = lu(1367) - lu(500) * lu(1345) + lu(1369) = lu(1369) - lu(501) * lu(1345) + lu(1370) = lu(1370) - lu(502) * lu(1345) + lu(1376) = lu(1376) - lu(503) * lu(1345) + lu(1430) = lu(1430) - lu(487) * lu(1429) + lu(1433) = lu(1433) - lu(488) * lu(1429) + lu(1436) = lu(1436) - lu(489) * lu(1429) + lu(1437) = lu(1437) - lu(490) * lu(1429) + lu(1438) = lu(1438) - lu(491) * lu(1429) + lu(1439) = lu(1439) - lu(492) * lu(1429) + lu(1441) = lu(1441) - lu(493) * lu(1429) + lu(1442) = lu(1442) - lu(494) * lu(1429) + lu(1443) = lu(1443) - lu(495) * lu(1429) + lu(1444) = lu(1444) - lu(496) * lu(1429) + lu(1446) = lu(1446) - lu(497) * lu(1429) + lu(1449) = lu(1449) - lu(498) * lu(1429) + lu(1450) = lu(1450) - lu(499) * lu(1429) + lu(1451) = lu(1451) - lu(500) * lu(1429) + lu(1453) = lu(1453) - lu(501) * lu(1429) + lu(1454) = lu(1454) - lu(502) * lu(1429) + lu(1460) = lu(1460) - lu(503) * lu(1429) + lu(1714) = lu(1714) - lu(487) * lu(1713) + lu(1718) = lu(1718) - lu(488) * lu(1713) + lu(1721) = lu(1721) - lu(489) * lu(1713) + lu(1722) = lu(1722) - lu(490) * lu(1713) + lu(1723) = lu(1723) - lu(491) * lu(1713) + lu(1724) = lu(1724) - lu(492) * lu(1713) + lu(1726) = lu(1726) - lu(493) * lu(1713) + lu(1727) = lu(1727) - lu(494) * lu(1713) + lu(1728) = lu(1728) - lu(495) * lu(1713) + lu(1729) = lu(1729) - lu(496) * lu(1713) + lu(1731) = lu(1731) - lu(497) * lu(1713) + lu(1734) = lu(1734) - lu(498) * lu(1713) + lu(1735) = lu(1735) - lu(499) * lu(1713) + lu(1736) = lu(1736) - lu(500) * lu(1713) + lu(1738) = lu(1738) - lu(501) * lu(1713) + lu(1739) = lu(1739) - lu(502) * lu(1713) + lu(1745) = lu(1745) - lu(503) * lu(1713) end subroutine lu_fac12 - subroutine lu_fac13( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac13( lu ) 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,497) = 1._r8 / lu(k,497) - lu(k,498) = lu(k,498) * lu(k,497) - lu(k,499) = lu(k,499) * lu(k,497) - lu(k,500) = lu(k,500) * lu(k,497) - lu(k,501) = lu(k,501) * lu(k,497) - lu(k,502) = lu(k,502) * lu(k,497) - lu(k,503) = lu(k,503) * lu(k,497) - lu(k,504) = lu(k,504) * lu(k,497) - lu(k,505) = lu(k,505) * lu(k,497) - lu(k,506) = lu(k,506) * lu(k,497) - lu(k,507) = lu(k,507) * lu(k,497) - lu(k,508) = lu(k,508) * lu(k,497) - lu(k,509) = lu(k,509) * lu(k,497) - lu(k,510) = lu(k,510) * lu(k,497) - lu(k,511) = lu(k,511) * lu(k,497) - lu(k,512) = lu(k,512) * lu(k,497) - lu(k,513) = lu(k,513) * lu(k,497) - lu(k,514) = lu(k,514) * lu(k,497) - lu(k,515) = lu(k,515) * lu(k,497) - lu(k,780) = - lu(k,498) * lu(k,779) - lu(k,782) = lu(k,782) - lu(k,499) * lu(k,779) - lu(k,783) = lu(k,783) - lu(k,500) * lu(k,779) - lu(k,785) = lu(k,785) - lu(k,501) * lu(k,779) - lu(k,786) = lu(k,786) - lu(k,502) * lu(k,779) - lu(k,787) = lu(k,787) - lu(k,503) * lu(k,779) - lu(k,788) = lu(k,788) - lu(k,504) * lu(k,779) - lu(k,789) = lu(k,789) - lu(k,505) * lu(k,779) - lu(k,791) = lu(k,791) - lu(k,506) * lu(k,779) - lu(k,793) = lu(k,793) - lu(k,507) * lu(k,779) - lu(k,794) = lu(k,794) - lu(k,508) * lu(k,779) - lu(k,796) = lu(k,796) - lu(k,509) * lu(k,779) - lu(k,798) = lu(k,798) - lu(k,510) * lu(k,779) - lu(k,799) = lu(k,799) - lu(k,511) * lu(k,779) - lu(k,803) = lu(k,803) - lu(k,512) * lu(k,779) - lu(k,807) = lu(k,807) - lu(k,513) * lu(k,779) - lu(k,808) = lu(k,808) - lu(k,514) * lu(k,779) - lu(k,809) = lu(k,809) - lu(k,515) * lu(k,779) - lu(k,821) = lu(k,821) - lu(k,498) * lu(k,820) - lu(k,824) = lu(k,824) - lu(k,499) * lu(k,820) - lu(k,826) = lu(k,826) - lu(k,500) * lu(k,820) - lu(k,828) = lu(k,828) - lu(k,501) * lu(k,820) - lu(k,829) = lu(k,829) - lu(k,502) * lu(k,820) - lu(k,830) = lu(k,830) - lu(k,503) * lu(k,820) - lu(k,831) = lu(k,831) - lu(k,504) * lu(k,820) - lu(k,832) = lu(k,832) - lu(k,505) * lu(k,820) - lu(k,834) = lu(k,834) - lu(k,506) * lu(k,820) - lu(k,836) = lu(k,836) - lu(k,507) * lu(k,820) - lu(k,837) = lu(k,837) - lu(k,508) * lu(k,820) - lu(k,839) = lu(k,839) - lu(k,509) * lu(k,820) - lu(k,841) = lu(k,841) - lu(k,510) * lu(k,820) - lu(k,842) = lu(k,842) - lu(k,511) * lu(k,820) - lu(k,846) = lu(k,846) - lu(k,512) * lu(k,820) - lu(k,850) = lu(k,850) - lu(k,513) * lu(k,820) - lu(k,851) = lu(k,851) - lu(k,514) * lu(k,820) - lu(k,852) = lu(k,852) - lu(k,515) * lu(k,820) - lu(k,868) = lu(k,868) - lu(k,498) * lu(k,867) - lu(k,872) = lu(k,872) - lu(k,499) * lu(k,867) - lu(k,874) = lu(k,874) - lu(k,500) * lu(k,867) - lu(k,876) = lu(k,876) - lu(k,501) * lu(k,867) - lu(k,877) = lu(k,877) - lu(k,502) * lu(k,867) - lu(k,878) = lu(k,878) - lu(k,503) * lu(k,867) - lu(k,879) = lu(k,879) - lu(k,504) * lu(k,867) - lu(k,880) = lu(k,880) - lu(k,505) * lu(k,867) - lu(k,882) = lu(k,882) - lu(k,506) * lu(k,867) - lu(k,884) = lu(k,884) - lu(k,507) * lu(k,867) - lu(k,885) = lu(k,885) - lu(k,508) * lu(k,867) - lu(k,887) = lu(k,887) - lu(k,509) * lu(k,867) - lu(k,889) = lu(k,889) - lu(k,510) * lu(k,867) - lu(k,890) = lu(k,890) - lu(k,511) * lu(k,867) - lu(k,894) = lu(k,894) - lu(k,512) * lu(k,867) - lu(k,898) = lu(k,898) - lu(k,513) * lu(k,867) - lu(k,899) = lu(k,899) - lu(k,514) * lu(k,867) - lu(k,900) = lu(k,900) - lu(k,515) * lu(k,867) - lu(k,912) = lu(k,912) - lu(k,498) * lu(k,911) - lu(k,915) = lu(k,915) - lu(k,499) * lu(k,911) - lu(k,917) = lu(k,917) - lu(k,500) * lu(k,911) - lu(k,919) = lu(k,919) - lu(k,501) * lu(k,911) - lu(k,920) = lu(k,920) - lu(k,502) * lu(k,911) - lu(k,921) = lu(k,921) - lu(k,503) * lu(k,911) - lu(k,922) = lu(k,922) - lu(k,504) * lu(k,911) - lu(k,923) = lu(k,923) - lu(k,505) * lu(k,911) - lu(k,925) = lu(k,925) - lu(k,506) * lu(k,911) - lu(k,927) = lu(k,927) - lu(k,507) * lu(k,911) - lu(k,928) = lu(k,928) - lu(k,508) * lu(k,911) - lu(k,930) = lu(k,930) - lu(k,509) * lu(k,911) - lu(k,932) = lu(k,932) - lu(k,510) * lu(k,911) - lu(k,933) = lu(k,933) - lu(k,511) * lu(k,911) - lu(k,937) = lu(k,937) - lu(k,512) * lu(k,911) - lu(k,941) = lu(k,941) - lu(k,513) * lu(k,911) - lu(k,942) = lu(k,942) - lu(k,514) * lu(k,911) - lu(k,943) = lu(k,943) - lu(k,515) * lu(k,911) - lu(k,1053) = lu(k,1053) - lu(k,498) * lu(k,1052) - lu(k,1056) = lu(k,1056) - lu(k,499) * lu(k,1052) - lu(k,1058) = lu(k,1058) - lu(k,500) * lu(k,1052) - lu(k,1060) = lu(k,1060) - lu(k,501) * lu(k,1052) - lu(k,1061) = lu(k,1061) - lu(k,502) * lu(k,1052) - lu(k,1062) = lu(k,1062) - lu(k,503) * lu(k,1052) - lu(k,1063) = lu(k,1063) - lu(k,504) * lu(k,1052) - lu(k,1064) = lu(k,1064) - lu(k,505) * lu(k,1052) - lu(k,1066) = lu(k,1066) - lu(k,506) * lu(k,1052) - lu(k,1068) = lu(k,1068) - lu(k,507) * lu(k,1052) - lu(k,1069) = lu(k,1069) - lu(k,508) * lu(k,1052) - lu(k,1071) = lu(k,1071) - lu(k,509) * lu(k,1052) - lu(k,1073) = lu(k,1073) - lu(k,510) * lu(k,1052) - lu(k,1074) = lu(k,1074) - lu(k,511) * lu(k,1052) - lu(k,1078) = lu(k,1078) - lu(k,512) * lu(k,1052) - lu(k,1082) = lu(k,1082) - lu(k,513) * lu(k,1052) - lu(k,1083) = lu(k,1083) - lu(k,514) * lu(k,1052) - lu(k,1084) = lu(k,1084) - lu(k,515) * lu(k,1052) - lu(k,1137) = lu(k,1137) - lu(k,498) * lu(k,1136) - lu(k,1141) = lu(k,1141) - lu(k,499) * lu(k,1136) - lu(k,1143) = lu(k,1143) - lu(k,500) * lu(k,1136) - lu(k,1145) = lu(k,1145) - lu(k,501) * lu(k,1136) - lu(k,1146) = lu(k,1146) - lu(k,502) * lu(k,1136) - lu(k,1147) = lu(k,1147) - lu(k,503) * lu(k,1136) - lu(k,1148) = lu(k,1148) - lu(k,504) * lu(k,1136) - lu(k,1149) = lu(k,1149) - lu(k,505) * lu(k,1136) - lu(k,1151) = lu(k,1151) - lu(k,506) * lu(k,1136) - lu(k,1153) = lu(k,1153) - lu(k,507) * lu(k,1136) - lu(k,1154) = lu(k,1154) - lu(k,508) * lu(k,1136) - lu(k,1156) = lu(k,1156) - lu(k,509) * lu(k,1136) - lu(k,1158) = lu(k,1158) - lu(k,510) * lu(k,1136) - lu(k,1159) = lu(k,1159) - lu(k,511) * lu(k,1136) - lu(k,1163) = lu(k,1163) - lu(k,512) * lu(k,1136) - lu(k,1167) = lu(k,1167) - lu(k,513) * lu(k,1136) - lu(k,1168) = lu(k,1168) - lu(k,514) * lu(k,1136) - lu(k,1169) = lu(k,1169) - lu(k,515) * lu(k,1136) - lu(k,1181) = lu(k,1181) - lu(k,498) * lu(k,1180) - lu(k,1184) = lu(k,1184) - lu(k,499) * lu(k,1180) - lu(k,1186) = lu(k,1186) - lu(k,500) * lu(k,1180) - lu(k,1188) = lu(k,1188) - lu(k,501) * lu(k,1180) - lu(k,1189) = lu(k,1189) - lu(k,502) * lu(k,1180) - lu(k,1190) = lu(k,1190) - lu(k,503) * lu(k,1180) - lu(k,1191) = lu(k,1191) - lu(k,504) * lu(k,1180) - lu(k,1192) = lu(k,1192) - lu(k,505) * lu(k,1180) - lu(k,1194) = lu(k,1194) - lu(k,506) * lu(k,1180) - lu(k,1196) = lu(k,1196) - lu(k,507) * lu(k,1180) - lu(k,1197) = lu(k,1197) - lu(k,508) * lu(k,1180) - lu(k,1199) = lu(k,1199) - lu(k,509) * lu(k,1180) - lu(k,1201) = lu(k,1201) - lu(k,510) * lu(k,1180) - lu(k,1202) = lu(k,1202) - lu(k,511) * lu(k,1180) - lu(k,1206) = lu(k,1206) - lu(k,512) * lu(k,1180) - lu(k,1210) = lu(k,1210) - lu(k,513) * lu(k,1180) - lu(k,1211) = lu(k,1211) - lu(k,514) * lu(k,1180) - lu(k,1212) = lu(k,1212) - lu(k,515) * lu(k,1180) - lu(k,1339) = lu(k,1339) - lu(k,498) * lu(k,1338) - lu(k,1343) = lu(k,1343) - lu(k,499) * lu(k,1338) - lu(k,1345) = lu(k,1345) - lu(k,500) * lu(k,1338) - lu(k,1347) = lu(k,1347) - lu(k,501) * lu(k,1338) - lu(k,1348) = lu(k,1348) - lu(k,502) * lu(k,1338) - lu(k,1349) = lu(k,1349) - lu(k,503) * lu(k,1338) - lu(k,1350) = lu(k,1350) - lu(k,504) * lu(k,1338) - lu(k,1351) = lu(k,1351) - lu(k,505) * lu(k,1338) - lu(k,1353) = lu(k,1353) - lu(k,506) * lu(k,1338) - lu(k,1355) = lu(k,1355) - lu(k,507) * lu(k,1338) - lu(k,1356) = lu(k,1356) - lu(k,508) * lu(k,1338) - lu(k,1358) = lu(k,1358) - lu(k,509) * lu(k,1338) - lu(k,1360) = lu(k,1360) - lu(k,510) * lu(k,1338) - lu(k,1361) = lu(k,1361) - lu(k,511) * lu(k,1338) - lu(k,1365) = lu(k,1365) - lu(k,512) * lu(k,1338) - lu(k,1369) = lu(k,1369) - lu(k,513) * lu(k,1338) - lu(k,1370) = lu(k,1370) - lu(k,514) * lu(k,1338) - lu(k,1371) = lu(k,1371) - lu(k,515) * lu(k,1338) - lu(k,1551) = lu(k,1551) - lu(k,498) * lu(k,1550) - lu(k,1554) = lu(k,1554) - lu(k,499) * lu(k,1550) - lu(k,1556) = lu(k,1556) - lu(k,500) * lu(k,1550) - lu(k,1558) = lu(k,1558) - lu(k,501) * lu(k,1550) - lu(k,1559) = lu(k,1559) - lu(k,502) * lu(k,1550) - lu(k,1560) = lu(k,1560) - lu(k,503) * lu(k,1550) - lu(k,1561) = lu(k,1561) - lu(k,504) * lu(k,1550) - lu(k,1562) = lu(k,1562) - lu(k,505) * lu(k,1550) - lu(k,1564) = lu(k,1564) - lu(k,506) * lu(k,1550) - lu(k,1566) = lu(k,1566) - lu(k,507) * lu(k,1550) - lu(k,1567) = lu(k,1567) - lu(k,508) * lu(k,1550) - lu(k,1569) = lu(k,1569) - lu(k,509) * lu(k,1550) - lu(k,1571) = lu(k,1571) - lu(k,510) * lu(k,1550) - lu(k,1572) = lu(k,1572) - lu(k,511) * lu(k,1550) - lu(k,1576) = lu(k,1576) - lu(k,512) * lu(k,1550) - lu(k,1580) = lu(k,1580) - lu(k,513) * lu(k,1550) - lu(k,1581) = lu(k,1581) - lu(k,514) * lu(k,1550) - lu(k,1582) = lu(k,1582) - lu(k,515) * lu(k,1550) - lu(k,1740) = - lu(k,498) * lu(k,1739) - lu(k,1744) = lu(k,1744) - lu(k,499) * lu(k,1739) - lu(k,1746) = lu(k,1746) - lu(k,500) * lu(k,1739) - lu(k,1748) = lu(k,1748) - lu(k,501) * lu(k,1739) - lu(k,1749) = lu(k,1749) - lu(k,502) * lu(k,1739) - lu(k,1750) = lu(k,1750) - lu(k,503) * lu(k,1739) - lu(k,1751) = lu(k,1751) - lu(k,504) * lu(k,1739) - lu(k,1752) = lu(k,1752) - lu(k,505) * lu(k,1739) - lu(k,1754) = lu(k,1754) - lu(k,506) * lu(k,1739) - lu(k,1756) = lu(k,1756) - lu(k,507) * lu(k,1739) - lu(k,1757) = lu(k,1757) - lu(k,508) * lu(k,1739) - lu(k,1759) = lu(k,1759) - lu(k,509) * lu(k,1739) - lu(k,1761) = lu(k,1761) - lu(k,510) * lu(k,1739) - lu(k,1762) = lu(k,1762) - lu(k,511) * lu(k,1739) - lu(k,1766) = lu(k,1766) - lu(k,512) * lu(k,1739) - lu(k,1770) = lu(k,1770) - lu(k,513) * lu(k,1739) - lu(k,1771) = lu(k,1771) - lu(k,514) * lu(k,1739) - lu(k,1772) = lu(k,1772) - lu(k,515) * lu(k,1739) - lu(k,1793) = lu(k,1793) - lu(k,498) * lu(k,1792) - lu(k,1797) = lu(k,1797) - lu(k,499) * lu(k,1792) - lu(k,1799) = lu(k,1799) - lu(k,500) * lu(k,1792) - lu(k,1801) = lu(k,1801) - lu(k,501) * lu(k,1792) - lu(k,1802) = lu(k,1802) - lu(k,502) * lu(k,1792) - lu(k,1803) = lu(k,1803) - lu(k,503) * lu(k,1792) - lu(k,1804) = lu(k,1804) - lu(k,504) * lu(k,1792) - lu(k,1805) = lu(k,1805) - lu(k,505) * lu(k,1792) - lu(k,1807) = lu(k,1807) - lu(k,506) * lu(k,1792) - lu(k,1809) = lu(k,1809) - lu(k,507) * lu(k,1792) - lu(k,1810) = lu(k,1810) - lu(k,508) * lu(k,1792) - lu(k,1812) = lu(k,1812) - lu(k,509) * lu(k,1792) - lu(k,1814) = lu(k,1814) - lu(k,510) * lu(k,1792) - lu(k,1815) = lu(k,1815) - lu(k,511) * lu(k,1792) - lu(k,1819) = lu(k,1819) - lu(k,512) * lu(k,1792) - lu(k,1823) = lu(k,1823) - lu(k,513) * lu(k,1792) - lu(k,1824) = lu(k,1824) - lu(k,514) * lu(k,1792) - lu(k,1825) = lu(k,1825) - lu(k,515) * lu(k,1792) - 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,534) = lu(k,534) * lu(k,519) - lu(k,535) = lu(k,535) * lu(k,519) - lu(k,652) = lu(k,652) - lu(k,520) * lu(k,650) - lu(k,654) = lu(k,654) - lu(k,521) * lu(k,650) - lu(k,655) = lu(k,655) - lu(k,522) * lu(k,650) - lu(k,656) = lu(k,656) - lu(k,523) * lu(k,650) - lu(k,657) = lu(k,657) - lu(k,524) * lu(k,650) - lu(k,659) = lu(k,659) - lu(k,525) * lu(k,650) - lu(k,660) = lu(k,660) - lu(k,526) * lu(k,650) - lu(k,661) = - lu(k,527) * lu(k,650) - lu(k,662) = lu(k,662) - lu(k,528) * lu(k,650) - lu(k,663) = lu(k,663) - lu(k,529) * lu(k,650) - lu(k,664) = lu(k,664) - lu(k,530) * lu(k,650) - lu(k,665) = lu(k,665) - lu(k,531) * lu(k,650) - lu(k,668) = lu(k,668) - lu(k,532) * lu(k,650) - lu(k,670) = lu(k,670) - lu(k,533) * lu(k,650) - lu(k,671) = lu(k,671) - lu(k,534) * lu(k,650) - lu(k,672) = lu(k,672) - lu(k,535) * lu(k,650) - lu(k,782) = lu(k,782) - lu(k,520) * lu(k,780) - lu(k,786) = lu(k,786) - lu(k,521) * lu(k,780) - lu(k,787) = lu(k,787) - lu(k,522) * lu(k,780) - lu(k,788) = lu(k,788) - lu(k,523) * lu(k,780) - lu(k,789) = lu(k,789) - lu(k,524) * lu(k,780) - lu(k,791) = lu(k,791) - lu(k,525) * lu(k,780) - lu(k,792) = lu(k,792) - lu(k,526) * lu(k,780) - lu(k,793) = lu(k,793) - lu(k,527) * lu(k,780) - lu(k,794) = lu(k,794) - lu(k,528) * lu(k,780) - lu(k,795) = - lu(k,529) * lu(k,780) - lu(k,796) = lu(k,796) - lu(k,530) * lu(k,780) - lu(k,798) = lu(k,798) - lu(k,531) * lu(k,780) - lu(k,803) = lu(k,803) - lu(k,532) * lu(k,780) - lu(k,807) = lu(k,807) - lu(k,533) * lu(k,780) - lu(k,808) = lu(k,808) - lu(k,534) * lu(k,780) - lu(k,809) = lu(k,809) - lu(k,535) * lu(k,780) - lu(k,824) = lu(k,824) - lu(k,520) * lu(k,821) - lu(k,829) = lu(k,829) - lu(k,521) * lu(k,821) - lu(k,830) = lu(k,830) - lu(k,522) * lu(k,821) - lu(k,831) = lu(k,831) - lu(k,523) * lu(k,821) - lu(k,832) = lu(k,832) - lu(k,524) * lu(k,821) - lu(k,834) = lu(k,834) - lu(k,525) * lu(k,821) - lu(k,835) = lu(k,835) - lu(k,526) * lu(k,821) - lu(k,836) = lu(k,836) - lu(k,527) * lu(k,821) - lu(k,837) = lu(k,837) - lu(k,528) * lu(k,821) - lu(k,838) = lu(k,838) - lu(k,529) * lu(k,821) - lu(k,839) = lu(k,839) - lu(k,530) * lu(k,821) - lu(k,841) = lu(k,841) - lu(k,531) * lu(k,821) - lu(k,846) = lu(k,846) - lu(k,532) * lu(k,821) - lu(k,850) = lu(k,850) - lu(k,533) * lu(k,821) - lu(k,851) = lu(k,851) - lu(k,534) * lu(k,821) - lu(k,852) = lu(k,852) - lu(k,535) * lu(k,821) - lu(k,872) = lu(k,872) - lu(k,520) * lu(k,868) - lu(k,877) = lu(k,877) - lu(k,521) * lu(k,868) - lu(k,878) = lu(k,878) - lu(k,522) * lu(k,868) - lu(k,879) = lu(k,879) - lu(k,523) * lu(k,868) - lu(k,880) = lu(k,880) - lu(k,524) * lu(k,868) - lu(k,882) = lu(k,882) - lu(k,525) * lu(k,868) - lu(k,883) = lu(k,883) - lu(k,526) * lu(k,868) - lu(k,884) = lu(k,884) - lu(k,527) * lu(k,868) - lu(k,885) = lu(k,885) - lu(k,528) * lu(k,868) - lu(k,886) = lu(k,886) - lu(k,529) * lu(k,868) - lu(k,887) = lu(k,887) - lu(k,530) * lu(k,868) - lu(k,889) = lu(k,889) - lu(k,531) * lu(k,868) - lu(k,894) = lu(k,894) - lu(k,532) * lu(k,868) - lu(k,898) = lu(k,898) - lu(k,533) * lu(k,868) - lu(k,899) = lu(k,899) - lu(k,534) * lu(k,868) - lu(k,900) = lu(k,900) - lu(k,535) * lu(k,868) - lu(k,915) = lu(k,915) - lu(k,520) * lu(k,912) - lu(k,920) = lu(k,920) - lu(k,521) * lu(k,912) - lu(k,921) = lu(k,921) - lu(k,522) * lu(k,912) - lu(k,922) = lu(k,922) - lu(k,523) * lu(k,912) - lu(k,923) = lu(k,923) - lu(k,524) * lu(k,912) - lu(k,925) = lu(k,925) - lu(k,525) * lu(k,912) - lu(k,926) = lu(k,926) - lu(k,526) * lu(k,912) - lu(k,927) = lu(k,927) - lu(k,527) * lu(k,912) - lu(k,928) = lu(k,928) - lu(k,528) * lu(k,912) - lu(k,929) = lu(k,929) - lu(k,529) * lu(k,912) - lu(k,930) = lu(k,930) - lu(k,530) * lu(k,912) - lu(k,932) = lu(k,932) - lu(k,531) * lu(k,912) - lu(k,937) = lu(k,937) - lu(k,532) * lu(k,912) - lu(k,941) = lu(k,941) - lu(k,533) * lu(k,912) - lu(k,942) = lu(k,942) - lu(k,534) * lu(k,912) - lu(k,943) = lu(k,943) - lu(k,535) * lu(k,912) - lu(k,1056) = lu(k,1056) - lu(k,520) * lu(k,1053) - lu(k,1061) = lu(k,1061) - lu(k,521) * lu(k,1053) - lu(k,1062) = lu(k,1062) - lu(k,522) * lu(k,1053) - lu(k,1063) = lu(k,1063) - lu(k,523) * lu(k,1053) - lu(k,1064) = lu(k,1064) - lu(k,524) * lu(k,1053) - lu(k,1066) = lu(k,1066) - lu(k,525) * lu(k,1053) - lu(k,1067) = lu(k,1067) - lu(k,526) * lu(k,1053) - lu(k,1068) = lu(k,1068) - lu(k,527) * lu(k,1053) - lu(k,1069) = lu(k,1069) - lu(k,528) * lu(k,1053) - lu(k,1070) = lu(k,1070) - lu(k,529) * lu(k,1053) - lu(k,1071) = lu(k,1071) - lu(k,530) * lu(k,1053) - lu(k,1073) = lu(k,1073) - lu(k,531) * lu(k,1053) - lu(k,1078) = lu(k,1078) - lu(k,532) * lu(k,1053) - lu(k,1082) = lu(k,1082) - lu(k,533) * lu(k,1053) - lu(k,1083) = lu(k,1083) - lu(k,534) * lu(k,1053) - lu(k,1084) = lu(k,1084) - lu(k,535) * lu(k,1053) - lu(k,1096) = lu(k,1096) - lu(k,520) * lu(k,1092) - lu(k,1101) = lu(k,1101) - lu(k,521) * lu(k,1092) - lu(k,1102) = lu(k,1102) - lu(k,522) * lu(k,1092) - lu(k,1103) = lu(k,1103) - lu(k,523) * lu(k,1092) - lu(k,1104) = lu(k,1104) - lu(k,524) * lu(k,1092) - lu(k,1106) = lu(k,1106) - lu(k,525) * lu(k,1092) - lu(k,1107) = lu(k,1107) - lu(k,526) * lu(k,1092) - lu(k,1108) = lu(k,1108) - lu(k,527) * lu(k,1092) - lu(k,1109) = lu(k,1109) - lu(k,528) * lu(k,1092) - lu(k,1110) = lu(k,1110) - lu(k,529) * lu(k,1092) - lu(k,1111) = lu(k,1111) - lu(k,530) * lu(k,1092) - lu(k,1113) = lu(k,1113) - lu(k,531) * lu(k,1092) - lu(k,1118) = lu(k,1118) - lu(k,532) * lu(k,1092) - lu(k,1122) = lu(k,1122) - lu(k,533) * lu(k,1092) - lu(k,1123) = lu(k,1123) - lu(k,534) * lu(k,1092) - lu(k,1124) = lu(k,1124) - lu(k,535) * lu(k,1092) - lu(k,1141) = lu(k,1141) - lu(k,520) * lu(k,1137) - lu(k,1146) = lu(k,1146) - lu(k,521) * lu(k,1137) - lu(k,1147) = lu(k,1147) - lu(k,522) * lu(k,1137) - lu(k,1148) = lu(k,1148) - lu(k,523) * lu(k,1137) - lu(k,1149) = lu(k,1149) - lu(k,524) * lu(k,1137) - lu(k,1151) = lu(k,1151) - lu(k,525) * lu(k,1137) - lu(k,1152) = lu(k,1152) - lu(k,526) * lu(k,1137) - lu(k,1153) = lu(k,1153) - lu(k,527) * lu(k,1137) - lu(k,1154) = lu(k,1154) - lu(k,528) * lu(k,1137) - lu(k,1155) = lu(k,1155) - lu(k,529) * lu(k,1137) - lu(k,1156) = lu(k,1156) - lu(k,530) * lu(k,1137) - lu(k,1158) = lu(k,1158) - lu(k,531) * lu(k,1137) - lu(k,1163) = lu(k,1163) - lu(k,532) * lu(k,1137) - lu(k,1167) = lu(k,1167) - lu(k,533) * lu(k,1137) - lu(k,1168) = lu(k,1168) - lu(k,534) * lu(k,1137) - lu(k,1169) = lu(k,1169) - lu(k,535) * lu(k,1137) - lu(k,1184) = lu(k,1184) - lu(k,520) * lu(k,1181) - lu(k,1189) = lu(k,1189) - lu(k,521) * lu(k,1181) - lu(k,1190) = lu(k,1190) - lu(k,522) * lu(k,1181) - lu(k,1191) = lu(k,1191) - lu(k,523) * lu(k,1181) - lu(k,1192) = lu(k,1192) - lu(k,524) * lu(k,1181) - lu(k,1194) = lu(k,1194) - lu(k,525) * lu(k,1181) - lu(k,1195) = lu(k,1195) - lu(k,526) * lu(k,1181) - lu(k,1196) = lu(k,1196) - lu(k,527) * lu(k,1181) - lu(k,1197) = lu(k,1197) - lu(k,528) * lu(k,1181) - lu(k,1198) = lu(k,1198) - lu(k,529) * lu(k,1181) - lu(k,1199) = lu(k,1199) - lu(k,530) * lu(k,1181) - lu(k,1201) = lu(k,1201) - lu(k,531) * lu(k,1181) - lu(k,1206) = lu(k,1206) - lu(k,532) * lu(k,1181) - lu(k,1210) = lu(k,1210) - lu(k,533) * lu(k,1181) - lu(k,1211) = lu(k,1211) - lu(k,534) * lu(k,1181) - lu(k,1212) = lu(k,1212) - lu(k,535) * lu(k,1181) - lu(k,1220) = lu(k,1220) - lu(k,520) * lu(k,1217) - lu(k,1224) = lu(k,1224) - lu(k,521) * lu(k,1217) - lu(k,1225) = lu(k,1225) - lu(k,522) * lu(k,1217) - lu(k,1226) = lu(k,1226) - lu(k,523) * lu(k,1217) - lu(k,1227) = lu(k,1227) - lu(k,524) * lu(k,1217) - lu(k,1229) = lu(k,1229) - lu(k,525) * lu(k,1217) - lu(k,1230) = lu(k,1230) - lu(k,526) * lu(k,1217) - lu(k,1231) = lu(k,1231) - lu(k,527) * lu(k,1217) - lu(k,1232) = lu(k,1232) - lu(k,528) * lu(k,1217) - lu(k,1233) = lu(k,1233) - lu(k,529) * lu(k,1217) - lu(k,1234) = lu(k,1234) - lu(k,530) * lu(k,1217) - lu(k,1236) = lu(k,1236) - lu(k,531) * lu(k,1217) - lu(k,1241) = lu(k,1241) - lu(k,532) * lu(k,1217) - lu(k,1245) = lu(k,1245) - lu(k,533) * lu(k,1217) - lu(k,1246) = lu(k,1246) - lu(k,534) * lu(k,1217) - lu(k,1247) = lu(k,1247) - lu(k,535) * lu(k,1217) - lu(k,1343) = lu(k,1343) - lu(k,520) * lu(k,1339) - lu(k,1348) = lu(k,1348) - lu(k,521) * lu(k,1339) - lu(k,1349) = lu(k,1349) - lu(k,522) * lu(k,1339) - lu(k,1350) = lu(k,1350) - lu(k,523) * lu(k,1339) - lu(k,1351) = lu(k,1351) - lu(k,524) * lu(k,1339) - lu(k,1353) = lu(k,1353) - lu(k,525) * lu(k,1339) - lu(k,1354) = lu(k,1354) - lu(k,526) * lu(k,1339) - lu(k,1355) = lu(k,1355) - lu(k,527) * lu(k,1339) - lu(k,1356) = lu(k,1356) - lu(k,528) * lu(k,1339) - lu(k,1357) = lu(k,1357) - lu(k,529) * lu(k,1339) - lu(k,1358) = lu(k,1358) - lu(k,530) * lu(k,1339) - lu(k,1360) = lu(k,1360) - lu(k,531) * lu(k,1339) - lu(k,1365) = lu(k,1365) - lu(k,532) * lu(k,1339) - lu(k,1369) = lu(k,1369) - lu(k,533) * lu(k,1339) - lu(k,1370) = lu(k,1370) - lu(k,534) * lu(k,1339) - lu(k,1371) = lu(k,1371) - lu(k,535) * lu(k,1339) - lu(k,1554) = lu(k,1554) - lu(k,520) * lu(k,1551) - lu(k,1559) = lu(k,1559) - lu(k,521) * lu(k,1551) - lu(k,1560) = lu(k,1560) - lu(k,522) * lu(k,1551) - lu(k,1561) = lu(k,1561) - lu(k,523) * lu(k,1551) - lu(k,1562) = lu(k,1562) - lu(k,524) * lu(k,1551) - lu(k,1564) = lu(k,1564) - lu(k,525) * lu(k,1551) - lu(k,1565) = lu(k,1565) - lu(k,526) * lu(k,1551) - lu(k,1566) = lu(k,1566) - lu(k,527) * lu(k,1551) - lu(k,1567) = lu(k,1567) - lu(k,528) * lu(k,1551) - lu(k,1568) = lu(k,1568) - lu(k,529) * lu(k,1551) - lu(k,1569) = lu(k,1569) - lu(k,530) * lu(k,1551) - lu(k,1571) = lu(k,1571) - lu(k,531) * lu(k,1551) - lu(k,1576) = lu(k,1576) - lu(k,532) * lu(k,1551) - lu(k,1580) = lu(k,1580) - lu(k,533) * lu(k,1551) - lu(k,1581) = lu(k,1581) - lu(k,534) * lu(k,1551) - lu(k,1582) = lu(k,1582) - lu(k,535) * lu(k,1551) - lu(k,1744) = lu(k,1744) - lu(k,520) * lu(k,1740) - lu(k,1749) = lu(k,1749) - lu(k,521) * lu(k,1740) - lu(k,1750) = lu(k,1750) - lu(k,522) * lu(k,1740) - lu(k,1751) = lu(k,1751) - lu(k,523) * lu(k,1740) - lu(k,1752) = lu(k,1752) - lu(k,524) * lu(k,1740) - lu(k,1754) = lu(k,1754) - lu(k,525) * lu(k,1740) - lu(k,1755) = lu(k,1755) - lu(k,526) * lu(k,1740) - lu(k,1756) = lu(k,1756) - lu(k,527) * lu(k,1740) - lu(k,1757) = lu(k,1757) - lu(k,528) * lu(k,1740) - lu(k,1758) = lu(k,1758) - lu(k,529) * lu(k,1740) - lu(k,1759) = lu(k,1759) - lu(k,530) * lu(k,1740) - lu(k,1761) = lu(k,1761) - lu(k,531) * lu(k,1740) - lu(k,1766) = lu(k,1766) - lu(k,532) * lu(k,1740) - lu(k,1770) = lu(k,1770) - lu(k,533) * lu(k,1740) - lu(k,1771) = lu(k,1771) - lu(k,534) * lu(k,1740) - lu(k,1772) = lu(k,1772) - lu(k,535) * lu(k,1740) - lu(k,1797) = lu(k,1797) - lu(k,520) * lu(k,1793) - lu(k,1802) = lu(k,1802) - lu(k,521) * lu(k,1793) - lu(k,1803) = lu(k,1803) - lu(k,522) * lu(k,1793) - lu(k,1804) = lu(k,1804) - lu(k,523) * lu(k,1793) - lu(k,1805) = lu(k,1805) - lu(k,524) * lu(k,1793) - lu(k,1807) = lu(k,1807) - lu(k,525) * lu(k,1793) - lu(k,1808) = lu(k,1808) - lu(k,526) * lu(k,1793) - lu(k,1809) = lu(k,1809) - lu(k,527) * lu(k,1793) - lu(k,1810) = lu(k,1810) - lu(k,528) * lu(k,1793) - lu(k,1811) = lu(k,1811) - lu(k,529) * lu(k,1793) - lu(k,1812) = lu(k,1812) - lu(k,530) * lu(k,1793) - lu(k,1814) = lu(k,1814) - lu(k,531) * lu(k,1793) - lu(k,1819) = lu(k,1819) - lu(k,532) * lu(k,1793) - lu(k,1823) = lu(k,1823) - lu(k,533) * lu(k,1793) - lu(k,1824) = lu(k,1824) - lu(k,534) * lu(k,1793) - lu(k,1825) = lu(k,1825) - lu(k,535) * lu(k,1793) - 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,548) = lu(k,548) * lu(k,541) - lu(k,549) = lu(k,549) * lu(k,541) - lu(k,550) = lu(k,550) * lu(k,541) - lu(k,551) = lu(k,551) * lu(k,541) - lu(k,552) = lu(k,552) * lu(k,541) - lu(k,553) = lu(k,553) * lu(k,541) - lu(k,554) = lu(k,554) * lu(k,541) - lu(k,555) = lu(k,555) * lu(k,541) - lu(k,556) = lu(k,556) * lu(k,541) - lu(k,557) = lu(k,557) * lu(k,541) - lu(k,558) = lu(k,558) * lu(k,541) - lu(k,559) = lu(k,559) * lu(k,541) - lu(k,560) = lu(k,560) * lu(k,541) - lu(k,573) = lu(k,573) - lu(k,542) * lu(k,572) - lu(k,574) = lu(k,574) - lu(k,543) * lu(k,572) - lu(k,575) = lu(k,575) - lu(k,544) * lu(k,572) - lu(k,577) = lu(k,577) - lu(k,545) * lu(k,572) - lu(k,578) = lu(k,578) - lu(k,546) * lu(k,572) - lu(k,579) = lu(k,579) - lu(k,547) * lu(k,572) - lu(k,580) = lu(k,580) - lu(k,548) * lu(k,572) - lu(k,581) = lu(k,581) - lu(k,549) * lu(k,572) - lu(k,582) = lu(k,582) - lu(k,550) * lu(k,572) - lu(k,585) = lu(k,585) - lu(k,551) * lu(k,572) - lu(k,586) = lu(k,586) - lu(k,552) * lu(k,572) - lu(k,587) = lu(k,587) - lu(k,553) * lu(k,572) - lu(k,588) = lu(k,588) - lu(k,554) * lu(k,572) - lu(k,589) = lu(k,589) - lu(k,555) * lu(k,572) - lu(k,590) = lu(k,590) - lu(k,556) * lu(k,572) - lu(k,591) = lu(k,591) - lu(k,557) * lu(k,572) - lu(k,592) = lu(k,592) - lu(k,558) * lu(k,572) - lu(k,593) = lu(k,593) - lu(k,559) * lu(k,572) - lu(k,594) = lu(k,594) - lu(k,560) * lu(k,572) - lu(k,685) = lu(k,685) - lu(k,542) * lu(k,684) - lu(k,686) = lu(k,686) - lu(k,543) * lu(k,684) - lu(k,687) = lu(k,687) - lu(k,544) * lu(k,684) - lu(k,689) = lu(k,689) - lu(k,545) * lu(k,684) - lu(k,690) = lu(k,690) - lu(k,546) * lu(k,684) - lu(k,692) = lu(k,692) - lu(k,547) * lu(k,684) - lu(k,693) = lu(k,693) - lu(k,548) * lu(k,684) - lu(k,694) = lu(k,694) - lu(k,549) * lu(k,684) - lu(k,695) = lu(k,695) - lu(k,550) * lu(k,684) - lu(k,698) = lu(k,698) - lu(k,551) * lu(k,684) - lu(k,699) = lu(k,699) - lu(k,552) * lu(k,684) - lu(k,700) = lu(k,700) - lu(k,553) * lu(k,684) - lu(k,701) = lu(k,701) - lu(k,554) * lu(k,684) - lu(k,702) = lu(k,702) - lu(k,555) * lu(k,684) - lu(k,703) = lu(k,703) - lu(k,556) * lu(k,684) - lu(k,704) = lu(k,704) - lu(k,557) * lu(k,684) - lu(k,705) = lu(k,705) - lu(k,558) * lu(k,684) - lu(k,706) = lu(k,706) - lu(k,559) * lu(k,684) - lu(k,707) = lu(k,707) - lu(k,560) * lu(k,684) - lu(k,753) = lu(k,753) - lu(k,542) * lu(k,752) - lu(k,754) = lu(k,754) - lu(k,543) * lu(k,752) - lu(k,755) = lu(k,755) - lu(k,544) * lu(k,752) - lu(k,758) = lu(k,758) - lu(k,545) * lu(k,752) - lu(k,759) = lu(k,759) - lu(k,546) * lu(k,752) - lu(k,761) = lu(k,761) - lu(k,547) * lu(k,752) - lu(k,762) = lu(k,762) - lu(k,548) * lu(k,752) - lu(k,763) = lu(k,763) - lu(k,549) * lu(k,752) - lu(k,764) = lu(k,764) - lu(k,550) * lu(k,752) - lu(k,767) = lu(k,767) - lu(k,551) * lu(k,752) - lu(k,768) = lu(k,768) - lu(k,552) * lu(k,752) - lu(k,769) = lu(k,769) - lu(k,553) * lu(k,752) - lu(k,770) = lu(k,770) - lu(k,554) * lu(k,752) - lu(k,771) = lu(k,771) - lu(k,555) * lu(k,752) - lu(k,772) = lu(k,772) - lu(k,556) * lu(k,752) - lu(k,773) = lu(k,773) - lu(k,557) * lu(k,752) - lu(k,774) = lu(k,774) - lu(k,558) * lu(k,752) - lu(k,775) = lu(k,775) - lu(k,559) * lu(k,752) - lu(k,776) = lu(k,776) - lu(k,560) * lu(k,752) - lu(k,968) = lu(k,968) - lu(k,542) * lu(k,967) - lu(k,972) = lu(k,972) - lu(k,543) * lu(k,967) - lu(k,974) = lu(k,974) - lu(k,544) * lu(k,967) - lu(k,979) = lu(k,979) - lu(k,545) * lu(k,967) - lu(k,980) = lu(k,980) - lu(k,546) * lu(k,967) - lu(k,982) = lu(k,982) - lu(k,547) * lu(k,967) - lu(k,983) = lu(k,983) - lu(k,548) * lu(k,967) - lu(k,985) = lu(k,985) - lu(k,549) * lu(k,967) - lu(k,986) = lu(k,986) - lu(k,550) * lu(k,967) - lu(k,989) = lu(k,989) - lu(k,551) * lu(k,967) - lu(k,990) = lu(k,990) - lu(k,552) * lu(k,967) - lu(k,991) = lu(k,991) - lu(k,553) * lu(k,967) - lu(k,992) = lu(k,992) - lu(k,554) * lu(k,967) - lu(k,994) = lu(k,994) - lu(k,555) * lu(k,967) - lu(k,995) = lu(k,995) - lu(k,556) * lu(k,967) - lu(k,996) = lu(k,996) - lu(k,557) * lu(k,967) - lu(k,997) = lu(k,997) - lu(k,558) * lu(k,967) - lu(k,998) = lu(k,998) - lu(k,559) * lu(k,967) - lu(k,999) = lu(k,999) - lu(k,560) * lu(k,967) - lu(k,1094) = lu(k,1094) - lu(k,542) * lu(k,1093) - lu(k,1097) = lu(k,1097) - lu(k,543) * lu(k,1093) - lu(k,1099) = lu(k,1099) - lu(k,544) * lu(k,1093) - lu(k,1104) = lu(k,1104) - lu(k,545) * lu(k,1093) - lu(k,1105) = lu(k,1105) - lu(k,546) * lu(k,1093) - lu(k,1107) = lu(k,1107) - lu(k,547) * lu(k,1093) - lu(k,1108) = lu(k,1108) - lu(k,548) * lu(k,1093) - lu(k,1110) = lu(k,1110) - lu(k,549) * lu(k,1093) - lu(k,1111) = lu(k,1111) - lu(k,550) * lu(k,1093) - lu(k,1114) = lu(k,1114) - lu(k,551) * lu(k,1093) - lu(k,1115) = - lu(k,552) * lu(k,1093) - lu(k,1116) = lu(k,1116) - lu(k,553) * lu(k,1093) - lu(k,1117) = lu(k,1117) - lu(k,554) * lu(k,1093) - lu(k,1119) = lu(k,1119) - lu(k,555) * lu(k,1093) - lu(k,1120) = lu(k,1120) - lu(k,556) * lu(k,1093) - lu(k,1121) = lu(k,1121) - lu(k,557) * lu(k,1093) - lu(k,1122) = lu(k,1122) - lu(k,558) * lu(k,1093) - lu(k,1123) = lu(k,1123) - lu(k,559) * lu(k,1093) - lu(k,1124) = lu(k,1124) - lu(k,560) * lu(k,1093) - lu(k,1139) = lu(k,1139) - lu(k,542) * lu(k,1138) - lu(k,1142) = lu(k,1142) - lu(k,543) * lu(k,1138) - lu(k,1144) = lu(k,1144) - lu(k,544) * lu(k,1138) - lu(k,1149) = lu(k,1149) - lu(k,545) * lu(k,1138) - lu(k,1150) = lu(k,1150) - lu(k,546) * lu(k,1138) - lu(k,1152) = lu(k,1152) - lu(k,547) * lu(k,1138) - lu(k,1153) = lu(k,1153) - lu(k,548) * lu(k,1138) - lu(k,1155) = lu(k,1155) - lu(k,549) * lu(k,1138) - lu(k,1156) = lu(k,1156) - lu(k,550) * lu(k,1138) - lu(k,1159) = lu(k,1159) - lu(k,551) * lu(k,1138) - lu(k,1160) = lu(k,1160) - lu(k,552) * lu(k,1138) - lu(k,1161) = lu(k,1161) - lu(k,553) * lu(k,1138) - lu(k,1162) = lu(k,1162) - lu(k,554) * lu(k,1138) - lu(k,1164) = lu(k,1164) - lu(k,555) * lu(k,1138) - lu(k,1165) = lu(k,1165) - lu(k,556) * lu(k,1138) - lu(k,1166) = lu(k,1166) - lu(k,557) * lu(k,1138) - lu(k,1167) = lu(k,1167) - lu(k,558) * lu(k,1138) - lu(k,1168) = lu(k,1168) - lu(k,559) * lu(k,1138) - lu(k,1169) = lu(k,1169) - lu(k,560) * lu(k,1138) - lu(k,1219) = - lu(k,542) * lu(k,1218) - lu(k,1221) = lu(k,1221) - lu(k,543) * lu(k,1218) - lu(k,1223) = lu(k,1223) - lu(k,544) * lu(k,1218) - lu(k,1227) = lu(k,1227) - lu(k,545) * lu(k,1218) - lu(k,1228) = - lu(k,546) * lu(k,1218) - lu(k,1230) = lu(k,1230) - lu(k,547) * lu(k,1218) - lu(k,1231) = lu(k,1231) - lu(k,548) * lu(k,1218) - lu(k,1233) = lu(k,1233) - lu(k,549) * lu(k,1218) - lu(k,1234) = lu(k,1234) - lu(k,550) * lu(k,1218) - lu(k,1237) = lu(k,1237) - lu(k,551) * lu(k,1218) - lu(k,1238) = - lu(k,552) * lu(k,1218) - lu(k,1239) = - lu(k,553) * lu(k,1218) - lu(k,1240) = - lu(k,554) * lu(k,1218) - lu(k,1242) = - lu(k,555) * lu(k,1218) - lu(k,1243) = - lu(k,556) * lu(k,1218) - lu(k,1244) = - lu(k,557) * lu(k,1218) - lu(k,1245) = lu(k,1245) - lu(k,558) * lu(k,1218) - lu(k,1246) = lu(k,1246) - lu(k,559) * lu(k,1218) - lu(k,1247) = lu(k,1247) - lu(k,560) * lu(k,1218) - lu(k,1421) = lu(k,1421) - lu(k,542) * lu(k,1420) - lu(k,1424) = lu(k,1424) - lu(k,543) * lu(k,1420) - lu(k,1426) = lu(k,1426) - lu(k,544) * lu(k,1420) - lu(k,1431) = lu(k,1431) - lu(k,545) * lu(k,1420) - lu(k,1432) = lu(k,1432) - lu(k,546) * lu(k,1420) - lu(k,1434) = lu(k,1434) - lu(k,547) * lu(k,1420) - lu(k,1435) = lu(k,1435) - lu(k,548) * lu(k,1420) - lu(k,1437) = lu(k,1437) - lu(k,549) * lu(k,1420) - lu(k,1438) = lu(k,1438) - lu(k,550) * lu(k,1420) - lu(k,1441) = lu(k,1441) - lu(k,551) * lu(k,1420) - lu(k,1442) = lu(k,1442) - lu(k,552) * lu(k,1420) - lu(k,1443) = lu(k,1443) - lu(k,553) * lu(k,1420) - lu(k,1444) = lu(k,1444) - lu(k,554) * lu(k,1420) - lu(k,1446) = lu(k,1446) - lu(k,555) * lu(k,1420) - lu(k,1447) = lu(k,1447) - lu(k,556) * lu(k,1420) - lu(k,1448) = lu(k,1448) - lu(k,557) * lu(k,1420) - lu(k,1449) = lu(k,1449) - lu(k,558) * lu(k,1420) - lu(k,1450) = lu(k,1450) - lu(k,559) * lu(k,1420) - lu(k,1451) = lu(k,1451) - lu(k,560) * lu(k,1420) - lu(k,1465) = lu(k,1465) - lu(k,542) * lu(k,1464) - lu(k,1469) = lu(k,1469) - lu(k,543) * lu(k,1464) - lu(k,1471) = lu(k,1471) - lu(k,544) * lu(k,1464) - lu(k,1476) = lu(k,1476) - lu(k,545) * lu(k,1464) - lu(k,1477) = - lu(k,546) * lu(k,1464) - lu(k,1479) = lu(k,1479) - lu(k,547) * lu(k,1464) - lu(k,1480) = lu(k,1480) - lu(k,548) * lu(k,1464) - lu(k,1482) = lu(k,1482) - lu(k,549) * lu(k,1464) - lu(k,1483) = lu(k,1483) - lu(k,550) * lu(k,1464) - lu(k,1486) = lu(k,1486) - lu(k,551) * lu(k,1464) - lu(k,1487) = lu(k,1487) - lu(k,552) * lu(k,1464) - lu(k,1488) = lu(k,1488) - lu(k,553) * lu(k,1464) - lu(k,1489) = lu(k,1489) - lu(k,554) * lu(k,1464) - lu(k,1491) = lu(k,1491) - lu(k,555) * lu(k,1464) - lu(k,1492) = lu(k,1492) - lu(k,556) * lu(k,1464) - lu(k,1493) = lu(k,1493) - lu(k,557) * lu(k,1464) - lu(k,1494) = lu(k,1494) - lu(k,558) * lu(k,1464) - lu(k,1495) = lu(k,1495) - lu(k,559) * lu(k,1464) - lu(k,1496) = lu(k,1496) - lu(k,560) * lu(k,1464) - lu(k,1508) = lu(k,1508) - lu(k,542) * lu(k,1507) - lu(k,1512) = lu(k,1512) - lu(k,543) * lu(k,1507) - lu(k,1514) = lu(k,1514) - lu(k,544) * lu(k,1507) - lu(k,1519) = lu(k,1519) - lu(k,545) * lu(k,1507) - lu(k,1520) = - lu(k,546) * lu(k,1507) - lu(k,1522) = lu(k,1522) - lu(k,547) * lu(k,1507) - lu(k,1523) = lu(k,1523) - lu(k,548) * lu(k,1507) - lu(k,1525) = lu(k,1525) - lu(k,549) * lu(k,1507) - lu(k,1526) = lu(k,1526) - lu(k,550) * lu(k,1507) - lu(k,1529) = lu(k,1529) - lu(k,551) * lu(k,1507) - lu(k,1530) = lu(k,1530) - lu(k,552) * lu(k,1507) - lu(k,1531) = lu(k,1531) - lu(k,553) * lu(k,1507) - lu(k,1532) = lu(k,1532) - lu(k,554) * lu(k,1507) - lu(k,1534) = lu(k,1534) - lu(k,555) * lu(k,1507) - lu(k,1535) = lu(k,1535) - lu(k,556) * lu(k,1507) - lu(k,1536) = lu(k,1536) - lu(k,557) * lu(k,1507) - lu(k,1537) = lu(k,1537) - lu(k,558) * lu(k,1507) - lu(k,1538) = lu(k,1538) - lu(k,559) * lu(k,1507) - lu(k,1539) = lu(k,1539) - lu(k,560) * lu(k,1507) - lu(k,1621) = lu(k,1621) - lu(k,542) * lu(k,1620) - lu(k,1624) = lu(k,1624) - lu(k,543) * lu(k,1620) - lu(k,1626) = lu(k,1626) - lu(k,544) * lu(k,1620) - lu(k,1631) = lu(k,1631) - lu(k,545) * lu(k,1620) - lu(k,1632) = lu(k,1632) - lu(k,546) * lu(k,1620) - lu(k,1634) = lu(k,1634) - lu(k,547) * lu(k,1620) - lu(k,1635) = lu(k,1635) - lu(k,548) * lu(k,1620) - lu(k,1637) = lu(k,1637) - lu(k,549) * lu(k,1620) - lu(k,1638) = lu(k,1638) - lu(k,550) * lu(k,1620) - lu(k,1641) = lu(k,1641) - lu(k,551) * lu(k,1620) - lu(k,1642) = lu(k,1642) - lu(k,552) * lu(k,1620) - lu(k,1643) = lu(k,1643) - lu(k,553) * lu(k,1620) - lu(k,1644) = lu(k,1644) - lu(k,554) * lu(k,1620) - lu(k,1646) = lu(k,1646) - lu(k,555) * lu(k,1620) - lu(k,1647) = lu(k,1647) - lu(k,556) * lu(k,1620) - lu(k,1648) = lu(k,1648) - lu(k,557) * lu(k,1620) - lu(k,1649) = lu(k,1649) - lu(k,558) * lu(k,1620) - lu(k,1650) = lu(k,1650) - lu(k,559) * lu(k,1620) - lu(k,1651) = lu(k,1651) - lu(k,560) * lu(k,1620) - lu(k,1663) = lu(k,1663) - lu(k,542) * lu(k,1662) - lu(k,1667) = lu(k,1667) - lu(k,543) * lu(k,1662) - lu(k,1669) = lu(k,1669) - lu(k,544) * lu(k,1662) - lu(k,1674) = lu(k,1674) - lu(k,545) * lu(k,1662) - lu(k,1675) = lu(k,1675) - lu(k,546) * lu(k,1662) - lu(k,1677) = lu(k,1677) - lu(k,547) * lu(k,1662) - lu(k,1678) = lu(k,1678) - lu(k,548) * lu(k,1662) - lu(k,1680) = lu(k,1680) - lu(k,549) * lu(k,1662) - lu(k,1681) = lu(k,1681) - lu(k,550) * lu(k,1662) - lu(k,1684) = lu(k,1684) - lu(k,551) * lu(k,1662) - lu(k,1685) = lu(k,1685) - lu(k,552) * lu(k,1662) - lu(k,1686) = lu(k,1686) - lu(k,553) * lu(k,1662) - lu(k,1687) = lu(k,1687) - lu(k,554) * lu(k,1662) - lu(k,1689) = lu(k,1689) - lu(k,555) * lu(k,1662) - lu(k,1690) = lu(k,1690) - lu(k,556) * lu(k,1662) - lu(k,1691) = lu(k,1691) - lu(k,557) * lu(k,1662) - lu(k,1692) = lu(k,1692) - lu(k,558) * lu(k,1662) - lu(k,1693) = lu(k,1693) - lu(k,559) * lu(k,1662) - lu(k,1694) = lu(k,1694) - lu(k,560) * lu(k,1662) - lu(k,1699) = lu(k,1699) - lu(k,542) * lu(k,1698) - lu(k,1703) = lu(k,1703) - lu(k,543) * lu(k,1698) - lu(k,1705) = lu(k,1705) - lu(k,544) * lu(k,1698) - lu(k,1710) = lu(k,1710) - lu(k,545) * lu(k,1698) - lu(k,1711) = lu(k,1711) - lu(k,546) * lu(k,1698) - lu(k,1713) = lu(k,1713) - lu(k,547) * lu(k,1698) - lu(k,1714) = lu(k,1714) - lu(k,548) * lu(k,1698) - lu(k,1716) = lu(k,1716) - lu(k,549) * lu(k,1698) - lu(k,1717) = lu(k,1717) - lu(k,550) * lu(k,1698) - lu(k,1720) = lu(k,1720) - lu(k,551) * lu(k,1698) - lu(k,1721) = lu(k,1721) - lu(k,552) * lu(k,1698) - lu(k,1722) = lu(k,1722) - lu(k,553) * lu(k,1698) - lu(k,1723) = lu(k,1723) - lu(k,554) * lu(k,1698) - lu(k,1725) = lu(k,1725) - lu(k,555) * lu(k,1698) - lu(k,1726) = lu(k,1726) - lu(k,556) * lu(k,1698) - lu(k,1727) = lu(k,1727) - lu(k,557) * lu(k,1698) - lu(k,1728) = lu(k,1728) - lu(k,558) * lu(k,1698) - lu(k,1729) = lu(k,1729) - lu(k,559) * lu(k,1698) - lu(k,1730) = lu(k,1730) - lu(k,560) * lu(k,1698) - lu(k,1742) = lu(k,1742) - lu(k,542) * lu(k,1741) - lu(k,1745) = lu(k,1745) - lu(k,543) * lu(k,1741) - lu(k,1747) = lu(k,1747) - lu(k,544) * lu(k,1741) - lu(k,1752) = lu(k,1752) - lu(k,545) * lu(k,1741) - lu(k,1753) = lu(k,1753) - lu(k,546) * lu(k,1741) - lu(k,1755) = lu(k,1755) - lu(k,547) * lu(k,1741) - lu(k,1756) = lu(k,1756) - lu(k,548) * lu(k,1741) - lu(k,1758) = lu(k,1758) - lu(k,549) * lu(k,1741) - lu(k,1759) = lu(k,1759) - lu(k,550) * lu(k,1741) - lu(k,1762) = lu(k,1762) - lu(k,551) * lu(k,1741) - lu(k,1763) = lu(k,1763) - lu(k,552) * lu(k,1741) - lu(k,1764) = lu(k,1764) - lu(k,553) * lu(k,1741) - lu(k,1765) = lu(k,1765) - lu(k,554) * lu(k,1741) - lu(k,1767) = lu(k,1767) - lu(k,555) * lu(k,1741) - lu(k,1768) = lu(k,1768) - lu(k,556) * lu(k,1741) - lu(k,1769) = lu(k,1769) - lu(k,557) * lu(k,1741) - lu(k,1770) = lu(k,1770) - lu(k,558) * lu(k,1741) - lu(k,1771) = lu(k,1771) - lu(k,559) * lu(k,1741) - lu(k,1772) = lu(k,1772) - lu(k,560) * lu(k,1741) - lu(k,1795) = lu(k,1795) - lu(k,542) * lu(k,1794) - lu(k,1798) = lu(k,1798) - lu(k,543) * lu(k,1794) - lu(k,1800) = lu(k,1800) - lu(k,544) * lu(k,1794) - lu(k,1805) = lu(k,1805) - lu(k,545) * lu(k,1794) - lu(k,1806) = lu(k,1806) - lu(k,546) * lu(k,1794) - lu(k,1808) = lu(k,1808) - lu(k,547) * lu(k,1794) - lu(k,1809) = lu(k,1809) - lu(k,548) * lu(k,1794) - lu(k,1811) = lu(k,1811) - lu(k,549) * lu(k,1794) - lu(k,1812) = lu(k,1812) - lu(k,550) * lu(k,1794) - lu(k,1815) = lu(k,1815) - lu(k,551) * lu(k,1794) - lu(k,1816) = lu(k,1816) - lu(k,552) * lu(k,1794) - lu(k,1817) = lu(k,1817) - lu(k,553) * lu(k,1794) - lu(k,1818) = lu(k,1818) - lu(k,554) * lu(k,1794) - lu(k,1820) = lu(k,1820) - lu(k,555) * lu(k,1794) - lu(k,1821) = lu(k,1821) - lu(k,556) * lu(k,1794) - lu(k,1822) = lu(k,1822) - lu(k,557) * lu(k,1794) - lu(k,1823) = lu(k,1823) - lu(k,558) * lu(k,1794) - lu(k,1824) = lu(k,1824) - lu(k,559) * lu(k,1794) - lu(k,1825) = lu(k,1825) - lu(k,560) * lu(k,1794) - end do + real(r8), intent(inout) :: lu(:) + lu(507) = 1._r8 / lu(507) + lu(508) = lu(508) * lu(507) + lu(509) = lu(509) * lu(507) + lu(510) = lu(510) * lu(507) + lu(511) = lu(511) * lu(507) + lu(512) = lu(512) * lu(507) + lu(513) = lu(513) * lu(507) + lu(514) = lu(514) * lu(507) + lu(515) = lu(515) * lu(507) + lu(516) = lu(516) * lu(507) + lu(517) = lu(517) * lu(507) + lu(518) = lu(518) * lu(507) + lu(519) = lu(519) * lu(507) + lu(520) = lu(520) * lu(507) + lu(521) = lu(521) * lu(507) + lu(522) = lu(522) * lu(507) + lu(523) = lu(523) * lu(507) + lu(636) = lu(636) - lu(508) * lu(634) + lu(638) = lu(638) - lu(509) * lu(634) + lu(639) = lu(639) - lu(510) * lu(634) + lu(641) = lu(641) - lu(511) * lu(634) + lu(642) = lu(642) - lu(512) * lu(634) + lu(643) = lu(643) - lu(513) * lu(634) + lu(644) = - lu(514) * lu(634) + lu(645) = lu(645) - lu(515) * lu(634) + lu(647) = lu(647) - lu(516) * lu(634) + lu(648) = lu(648) - lu(517) * lu(634) + lu(649) = lu(649) - lu(518) * lu(634) + lu(651) = lu(651) - lu(519) * lu(634) + lu(652) = lu(652) - lu(520) * lu(634) + lu(654) = lu(654) - lu(521) * lu(634) + lu(655) = lu(655) - lu(522) * lu(634) + lu(656) = lu(656) - lu(523) * lu(634) + lu(737) = lu(737) - lu(508) * lu(735) + lu(741) = lu(741) - lu(509) * lu(735) + lu(742) = lu(742) - lu(510) * lu(735) + lu(744) = lu(744) - lu(511) * lu(735) + lu(745) = lu(745) - lu(512) * lu(735) + lu(746) = lu(746) - lu(513) * lu(735) + lu(747) = lu(747) - lu(514) * lu(735) + lu(749) = lu(749) - lu(515) * lu(735) + lu(752) = lu(752) - lu(516) * lu(735) + lu(753) = lu(753) - lu(517) * lu(735) + lu(754) = lu(754) - lu(518) * lu(735) + lu(756) = lu(756) - lu(519) * lu(735) + lu(757) = lu(757) - lu(520) * lu(735) + lu(761) = lu(761) - lu(521) * lu(735) + lu(762) = - lu(522) * lu(735) + lu(763) = lu(763) - lu(523) * lu(735) + lu(812) = lu(812) - lu(508) * lu(808) + lu(817) = lu(817) - lu(509) * lu(808) + lu(818) = lu(818) - lu(510) * lu(808) + lu(820) = lu(820) - lu(511) * lu(808) + lu(821) = lu(821) - lu(512) * lu(808) + lu(822) = lu(822) - lu(513) * lu(808) + lu(823) = lu(823) - lu(514) * lu(808) + lu(825) = lu(825) - lu(515) * lu(808) + lu(828) = lu(828) - lu(516) * lu(808) + lu(829) = lu(829) - lu(517) * lu(808) + lu(830) = lu(830) - lu(518) * lu(808) + lu(832) = lu(832) - lu(519) * lu(808) + lu(833) = lu(833) - lu(520) * lu(808) + lu(837) = lu(837) - lu(521) * lu(808) + lu(838) = lu(838) - lu(522) * lu(808) + lu(839) = lu(839) - lu(523) * lu(808) + lu(854) = lu(854) - lu(508) * lu(851) + lu(859) = lu(859) - lu(509) * lu(851) + lu(860) = lu(860) - lu(510) * lu(851) + lu(862) = lu(862) - lu(511) * lu(851) + lu(863) = lu(863) - lu(512) * lu(851) + lu(864) = lu(864) - lu(513) * lu(851) + lu(865) = lu(865) - lu(514) * lu(851) + lu(867) = lu(867) - lu(515) * lu(851) + lu(870) = lu(870) - lu(516) * lu(851) + lu(871) = lu(871) - lu(517) * lu(851) + lu(872) = lu(872) - lu(518) * lu(851) + lu(874) = lu(874) - lu(519) * lu(851) + lu(875) = lu(875) - lu(520) * lu(851) + lu(879) = lu(879) - lu(521) * lu(851) + lu(880) = lu(880) - lu(522) * lu(851) + lu(881) = lu(881) - lu(523) * lu(851) + lu(974) = lu(974) - lu(508) * lu(971) + lu(979) = lu(979) - lu(509) * lu(971) + lu(980) = lu(980) - lu(510) * lu(971) + lu(982) = lu(982) - lu(511) * lu(971) + lu(983) = lu(983) - lu(512) * lu(971) + lu(984) = lu(984) - lu(513) * lu(971) + lu(985) = lu(985) - lu(514) * lu(971) + lu(987) = lu(987) - lu(515) * lu(971) + lu(990) = lu(990) - lu(516) * lu(971) + lu(991) = lu(991) - lu(517) * lu(971) + lu(992) = lu(992) - lu(518) * lu(971) + lu(994) = lu(994) - lu(519) * lu(971) + lu(995) = lu(995) - lu(520) * lu(971) + lu(999) = lu(999) - lu(521) * lu(971) + lu(1000) = lu(1000) - lu(522) * lu(971) + lu(1001) = lu(1001) - lu(523) * lu(971) + lu(1016) = lu(1016) - lu(508) * lu(1013) + lu(1021) = lu(1021) - lu(509) * lu(1013) + lu(1022) = lu(1022) - lu(510) * lu(1013) + lu(1024) = lu(1024) - lu(511) * lu(1013) + lu(1025) = lu(1025) - lu(512) * lu(1013) + lu(1026) = lu(1026) - lu(513) * lu(1013) + lu(1027) = lu(1027) - lu(514) * lu(1013) + lu(1029) = lu(1029) - lu(515) * lu(1013) + lu(1032) = lu(1032) - lu(516) * lu(1013) + lu(1033) = lu(1033) - lu(517) * lu(1013) + lu(1034) = lu(1034) - lu(518) * lu(1013) + lu(1036) = lu(1036) - lu(519) * lu(1013) + lu(1037) = lu(1037) - lu(520) * lu(1013) + lu(1041) = lu(1041) - lu(521) * lu(1013) + lu(1042) = lu(1042) - lu(522) * lu(1013) + lu(1043) = lu(1043) - lu(523) * lu(1013) + lu(1060) = lu(1060) - lu(508) * lu(1056) + lu(1065) = lu(1065) - lu(509) * lu(1056) + lu(1066) = lu(1066) - lu(510) * lu(1056) + lu(1068) = lu(1068) - lu(511) * lu(1056) + lu(1069) = lu(1069) - lu(512) * lu(1056) + lu(1070) = lu(1070) - lu(513) * lu(1056) + lu(1071) = lu(1071) - lu(514) * lu(1056) + lu(1073) = lu(1073) - lu(515) * lu(1056) + lu(1076) = lu(1076) - lu(516) * lu(1056) + lu(1077) = lu(1077) - lu(517) * lu(1056) + lu(1078) = lu(1078) - lu(518) * lu(1056) + lu(1080) = lu(1080) - lu(519) * lu(1056) + lu(1081) = lu(1081) - lu(520) * lu(1056) + lu(1085) = lu(1085) - lu(521) * lu(1056) + lu(1086) = lu(1086) - lu(522) * lu(1056) + lu(1087) = lu(1087) - lu(523) * lu(1056) + lu(1266) = lu(1266) - lu(508) * lu(1262) + lu(1271) = lu(1271) - lu(509) * lu(1262) + lu(1272) = lu(1272) - lu(510) * lu(1262) + lu(1274) = lu(1274) - lu(511) * lu(1262) + lu(1275) = lu(1275) - lu(512) * lu(1262) + lu(1276) = lu(1276) - lu(513) * lu(1262) + lu(1277) = lu(1277) - lu(514) * lu(1262) + lu(1279) = lu(1279) - lu(515) * lu(1262) + lu(1282) = lu(1282) - lu(516) * lu(1262) + lu(1283) = lu(1283) - lu(517) * lu(1262) + lu(1284) = lu(1284) - lu(518) * lu(1262) + lu(1286) = lu(1286) - lu(519) * lu(1262) + lu(1287) = lu(1287) - lu(520) * lu(1262) + lu(1291) = lu(1291) - lu(521) * lu(1262) + lu(1292) = lu(1292) - lu(522) * lu(1262) + lu(1293) = lu(1293) - lu(523) * lu(1262) + lu(1307) = lu(1307) - lu(508) * lu(1303) + lu(1312) = lu(1312) - lu(509) * lu(1303) + lu(1313) = lu(1313) - lu(510) * lu(1303) + lu(1315) = lu(1315) - lu(511) * lu(1303) + lu(1316) = lu(1316) - lu(512) * lu(1303) + lu(1317) = lu(1317) - lu(513) * lu(1303) + lu(1318) = lu(1318) - lu(514) * lu(1303) + lu(1320) = lu(1320) - lu(515) * lu(1303) + lu(1323) = lu(1323) - lu(516) * lu(1303) + lu(1324) = lu(1324) - lu(517) * lu(1303) + lu(1325) = lu(1325) - lu(518) * lu(1303) + lu(1327) = lu(1327) - lu(519) * lu(1303) + lu(1328) = lu(1328) - lu(520) * lu(1303) + lu(1332) = lu(1332) - lu(521) * lu(1303) + lu(1333) = lu(1333) - lu(522) * lu(1303) + lu(1334) = lu(1334) - lu(523) * lu(1303) + lu(1349) = lu(1349) - lu(508) * lu(1346) + lu(1354) = lu(1354) - lu(509) * lu(1346) + lu(1355) = lu(1355) - lu(510) * lu(1346) + lu(1357) = lu(1357) - lu(511) * lu(1346) + lu(1358) = lu(1358) - lu(512) * lu(1346) + lu(1359) = lu(1359) - lu(513) * lu(1346) + lu(1360) = lu(1360) - lu(514) * lu(1346) + lu(1362) = lu(1362) - lu(515) * lu(1346) + lu(1365) = lu(1365) - lu(516) * lu(1346) + lu(1366) = lu(1366) - lu(517) * lu(1346) + lu(1367) = lu(1367) - lu(518) * lu(1346) + lu(1369) = lu(1369) - lu(519) * lu(1346) + lu(1370) = lu(1370) - lu(520) * lu(1346) + lu(1374) = lu(1374) - lu(521) * lu(1346) + lu(1375) = lu(1375) - lu(522) * lu(1346) + lu(1376) = lu(1376) - lu(523) * lu(1346) + lu(1433) = lu(1433) - lu(508) * lu(1430) + lu(1438) = lu(1438) - lu(509) * lu(1430) + lu(1439) = lu(1439) - lu(510) * lu(1430) + lu(1441) = lu(1441) - lu(511) * lu(1430) + lu(1442) = lu(1442) - lu(512) * lu(1430) + lu(1443) = lu(1443) - lu(513) * lu(1430) + lu(1444) = lu(1444) - lu(514) * lu(1430) + lu(1446) = lu(1446) - lu(515) * lu(1430) + lu(1449) = lu(1449) - lu(516) * lu(1430) + lu(1450) = lu(1450) - lu(517) * lu(1430) + lu(1451) = lu(1451) - lu(518) * lu(1430) + lu(1453) = lu(1453) - lu(519) * lu(1430) + lu(1454) = lu(1454) - lu(520) * lu(1430) + lu(1458) = lu(1458) - lu(521) * lu(1430) + lu(1459) = lu(1459) - lu(522) * lu(1430) + lu(1460) = lu(1460) - lu(523) * lu(1430) + lu(1632) = lu(1632) - lu(508) * lu(1628) + lu(1637) = lu(1637) - lu(509) * lu(1628) + lu(1638) = lu(1638) - lu(510) * lu(1628) + lu(1640) = lu(1640) - lu(511) * lu(1628) + lu(1641) = lu(1641) - lu(512) * lu(1628) + lu(1642) = lu(1642) - lu(513) * lu(1628) + lu(1643) = lu(1643) - lu(514) * lu(1628) + lu(1645) = lu(1645) - lu(515) * lu(1628) + lu(1648) = lu(1648) - lu(516) * lu(1628) + lu(1649) = lu(1649) - lu(517) * lu(1628) + lu(1650) = lu(1650) - lu(518) * lu(1628) + lu(1652) = lu(1652) - lu(519) * lu(1628) + lu(1653) = lu(1653) - lu(520) * lu(1628) + lu(1657) = lu(1657) - lu(521) * lu(1628) + lu(1658) = lu(1658) - lu(522) * lu(1628) + lu(1659) = lu(1659) - lu(523) * lu(1628) + lu(1667) = lu(1667) - lu(508) * lu(1664) + lu(1671) = lu(1671) - lu(509) * lu(1664) + lu(1672) = lu(1672) - lu(510) * lu(1664) + lu(1674) = lu(1674) - lu(511) * lu(1664) + lu(1675) = lu(1675) - lu(512) * lu(1664) + lu(1676) = lu(1676) - lu(513) * lu(1664) + lu(1677) = lu(1677) - lu(514) * lu(1664) + lu(1679) = lu(1679) - lu(515) * lu(1664) + lu(1682) = lu(1682) - lu(516) * lu(1664) + lu(1683) = lu(1683) - lu(517) * lu(1664) + lu(1684) = lu(1684) - lu(518) * lu(1664) + lu(1686) = lu(1686) - lu(519) * lu(1664) + lu(1687) = lu(1687) - lu(520) * lu(1664) + lu(1691) = lu(1691) - lu(521) * lu(1664) + lu(1692) = lu(1692) - lu(522) * lu(1664) + lu(1693) = lu(1693) - lu(523) * lu(1664) + lu(1718) = lu(1718) - lu(508) * lu(1714) + lu(1723) = lu(1723) - lu(509) * lu(1714) + lu(1724) = lu(1724) - lu(510) * lu(1714) + lu(1726) = lu(1726) - lu(511) * lu(1714) + lu(1727) = lu(1727) - lu(512) * lu(1714) + lu(1728) = lu(1728) - lu(513) * lu(1714) + lu(1729) = lu(1729) - lu(514) * lu(1714) + lu(1731) = lu(1731) - lu(515) * lu(1714) + lu(1734) = lu(1734) - lu(516) * lu(1714) + lu(1735) = lu(1735) - lu(517) * lu(1714) + lu(1736) = lu(1736) - lu(518) * lu(1714) + lu(1738) = lu(1738) - lu(519) * lu(1714) + lu(1739) = lu(1739) - lu(520) * lu(1714) + lu(1743) = lu(1743) - lu(521) * lu(1714) + lu(1744) = lu(1744) - lu(522) * lu(1714) + lu(1745) = lu(1745) - lu(523) * lu(1714) + lu(529) = 1._r8 / lu(529) + lu(530) = lu(530) * lu(529) + lu(531) = lu(531) * lu(529) + lu(532) = lu(532) * lu(529) + lu(533) = lu(533) * lu(529) + lu(534) = lu(534) * lu(529) + lu(535) = lu(535) * lu(529) + lu(536) = lu(536) * lu(529) + lu(537) = lu(537) * lu(529) + lu(538) = lu(538) * lu(529) + lu(539) = lu(539) * lu(529) + lu(540) = lu(540) * lu(529) + lu(541) = lu(541) * lu(529) + lu(542) = lu(542) * lu(529) + lu(543) = lu(543) * lu(529) + lu(544) = lu(544) * lu(529) + lu(545) = lu(545) * lu(529) + lu(546) = lu(546) * lu(529) + lu(547) = lu(547) * lu(529) + lu(560) = lu(560) - lu(530) * lu(559) + lu(561) = lu(561) - lu(531) * lu(559) + lu(562) = lu(562) - lu(532) * lu(559) + lu(563) = lu(563) - lu(533) * lu(559) + lu(564) = lu(564) - lu(534) * lu(559) + lu(566) = lu(566) - lu(535) * lu(559) + lu(567) = lu(567) - lu(536) * lu(559) + lu(568) = lu(568) - lu(537) * lu(559) + lu(569) = lu(569) - lu(538) * lu(559) + lu(572) = lu(572) - lu(539) * lu(559) + lu(573) = lu(573) - lu(540) * lu(559) + lu(574) = lu(574) - lu(541) * lu(559) + lu(575) = lu(575) - lu(542) * lu(559) + lu(576) = lu(576) - lu(543) * lu(559) + lu(577) = lu(577) - lu(544) * lu(559) + lu(578) = lu(578) - lu(545) * lu(559) + lu(579) = lu(579) - lu(546) * lu(559) + lu(580) = lu(580) - lu(547) * lu(559) + lu(669) = lu(669) - lu(530) * lu(668) + lu(670) = lu(670) - lu(531) * lu(668) + lu(671) = lu(671) - lu(532) * lu(668) + lu(672) = lu(672) - lu(533) * lu(668) + lu(673) = lu(673) - lu(534) * lu(668) + lu(676) = lu(676) - lu(535) * lu(668) + lu(677) = lu(677) - lu(536) * lu(668) + lu(678) = lu(678) - lu(537) * lu(668) + lu(679) = lu(679) - lu(538) * lu(668) + lu(682) = lu(682) - lu(539) * lu(668) + lu(683) = lu(683) - lu(540) * lu(668) + lu(684) = lu(684) - lu(541) * lu(668) + lu(685) = lu(685) - lu(542) * lu(668) + lu(686) = lu(686) - lu(543) * lu(668) + lu(687) = lu(687) - lu(544) * lu(668) + lu(688) = lu(688) - lu(545) * lu(668) + lu(689) = lu(689) - lu(546) * lu(668) + lu(690) = lu(690) - lu(547) * lu(668) + lu(709) = lu(709) - lu(530) * lu(708) + lu(710) = lu(710) - lu(531) * lu(708) + lu(711) = lu(711) - lu(532) * lu(708) + lu(713) = lu(713) - lu(533) * lu(708) + lu(714) = lu(714) - lu(534) * lu(708) + lu(717) = lu(717) - lu(535) * lu(708) + lu(718) = lu(718) - lu(536) * lu(708) + lu(719) = lu(719) - lu(537) * lu(708) + lu(720) = lu(720) - lu(538) * lu(708) + lu(723) = lu(723) - lu(539) * lu(708) + lu(724) = lu(724) - lu(540) * lu(708) + lu(725) = lu(725) - lu(541) * lu(708) + lu(726) = lu(726) - lu(542) * lu(708) + lu(727) = lu(727) - lu(543) * lu(708) + lu(728) = lu(728) - lu(544) * lu(708) + lu(729) = lu(729) - lu(545) * lu(708) + lu(730) = lu(730) - lu(546) * lu(708) + lu(731) = lu(731) - lu(547) * lu(708) + lu(895) = lu(895) - lu(530) * lu(894) + lu(899) = lu(899) - lu(531) * lu(894) + lu(900) = lu(900) - lu(532) * lu(894) + lu(905) = lu(905) - lu(533) * lu(894) + lu(906) = lu(906) - lu(534) * lu(894) + lu(909) = lu(909) - lu(535) * lu(894) + lu(910) = lu(910) - lu(536) * lu(894) + lu(911) = lu(911) - lu(537) * lu(894) + lu(912) = lu(912) - lu(538) * lu(894) + lu(915) = lu(915) - lu(539) * lu(894) + lu(917) = - lu(540) * lu(894) + lu(919) = lu(919) - lu(541) * lu(894) + lu(920) = lu(920) - lu(542) * lu(894) + lu(921) = lu(921) - lu(543) * lu(894) + lu(922) = lu(922) - lu(544) * lu(894) + lu(923) = lu(923) - lu(545) * lu(894) + lu(924) = lu(924) - lu(546) * lu(894) + lu(925) = lu(925) - lu(547) * lu(894) + lu(930) = lu(930) - lu(530) * lu(929) + lu(934) = lu(934) - lu(531) * lu(929) + lu(935) = lu(935) - lu(532) * lu(929) + lu(940) = lu(940) - lu(533) * lu(929) + lu(941) = lu(941) - lu(534) * lu(929) + lu(944) = lu(944) - lu(535) * lu(929) + lu(945) = lu(945) - lu(536) * lu(929) + lu(946) = lu(946) - lu(537) * lu(929) + lu(947) = lu(947) - lu(538) * lu(929) + lu(950) = lu(950) - lu(539) * lu(929) + lu(952) = lu(952) - lu(540) * lu(929) + lu(954) = lu(954) - lu(541) * lu(929) + lu(955) = lu(955) - lu(542) * lu(929) + lu(956) = lu(956) - lu(543) * lu(929) + lu(957) = lu(957) - lu(544) * lu(929) + lu(958) = lu(958) - lu(545) * lu(929) + lu(959) = lu(959) - lu(546) * lu(929) + lu(960) = lu(960) - lu(547) * lu(929) + lu(1058) = lu(1058) - lu(530) * lu(1057) + lu(1061) = lu(1061) - lu(531) * lu(1057) + lu(1062) = lu(1062) - lu(532) * lu(1057) + lu(1067) = lu(1067) - lu(533) * lu(1057) + lu(1068) = lu(1068) - lu(534) * lu(1057) + lu(1071) = lu(1071) - lu(535) * lu(1057) + lu(1072) = lu(1072) - lu(536) * lu(1057) + lu(1073) = lu(1073) - lu(537) * lu(1057) + lu(1074) = lu(1074) - lu(538) * lu(1057) + lu(1077) = lu(1077) - lu(539) * lu(1057) + lu(1079) = lu(1079) - lu(540) * lu(1057) + lu(1081) = lu(1081) - lu(541) * lu(1057) + lu(1082) = lu(1082) - lu(542) * lu(1057) + lu(1083) = lu(1083) - lu(543) * lu(1057) + lu(1084) = lu(1084) - lu(544) * lu(1057) + lu(1085) = lu(1085) - lu(545) * lu(1057) + lu(1086) = lu(1086) - lu(546) * lu(1057) + lu(1087) = lu(1087) - lu(547) * lu(1057) + lu(1099) = lu(1099) - lu(530) * lu(1098) + lu(1103) = lu(1103) - lu(531) * lu(1098) + lu(1104) = lu(1104) - lu(532) * lu(1098) + lu(1109) = lu(1109) - lu(533) * lu(1098) + lu(1110) = lu(1110) - lu(534) * lu(1098) + lu(1113) = lu(1113) - lu(535) * lu(1098) + lu(1114) = lu(1114) - lu(536) * lu(1098) + lu(1115) = lu(1115) - lu(537) * lu(1098) + lu(1116) = lu(1116) - lu(538) * lu(1098) + lu(1119) = lu(1119) - lu(539) * lu(1098) + lu(1121) = - lu(540) * lu(1098) + lu(1123) = lu(1123) - lu(541) * lu(1098) + lu(1124) = lu(1124) - lu(542) * lu(1098) + lu(1125) = lu(1125) - lu(543) * lu(1098) + lu(1126) = lu(1126) - lu(544) * lu(1098) + lu(1127) = lu(1127) - lu(545) * lu(1098) + lu(1128) = lu(1128) - lu(546) * lu(1098) + lu(1129) = lu(1129) - lu(547) * lu(1098) + lu(1184) = lu(1184) - lu(530) * lu(1183) + lu(1188) = lu(1188) - lu(531) * lu(1183) + lu(1189) = lu(1189) - lu(532) * lu(1183) + lu(1194) = lu(1194) - lu(533) * lu(1183) + lu(1195) = lu(1195) - lu(534) * lu(1183) + lu(1198) = lu(1198) - lu(535) * lu(1183) + lu(1199) = lu(1199) - lu(536) * lu(1183) + lu(1200) = lu(1200) - lu(537) * lu(1183) + lu(1201) = lu(1201) - lu(538) * lu(1183) + lu(1204) = lu(1204) - lu(539) * lu(1183) + lu(1206) = lu(1206) - lu(540) * lu(1183) + lu(1208) = lu(1208) - lu(541) * lu(1183) + lu(1209) = lu(1209) - lu(542) * lu(1183) + lu(1210) = lu(1210) - lu(543) * lu(1183) + lu(1211) = lu(1211) - lu(544) * lu(1183) + lu(1212) = lu(1212) - lu(545) * lu(1183) + lu(1213) = lu(1213) - lu(546) * lu(1183) + lu(1214) = lu(1214) - lu(547) * lu(1183) + lu(1305) = lu(1305) - lu(530) * lu(1304) + lu(1308) = lu(1308) - lu(531) * lu(1304) + lu(1309) = lu(1309) - lu(532) * lu(1304) + lu(1314) = lu(1314) - lu(533) * lu(1304) + lu(1315) = lu(1315) - lu(534) * lu(1304) + lu(1318) = lu(1318) - lu(535) * lu(1304) + lu(1319) = lu(1319) - lu(536) * lu(1304) + lu(1320) = lu(1320) - lu(537) * lu(1304) + lu(1321) = lu(1321) - lu(538) * lu(1304) + lu(1324) = lu(1324) - lu(539) * lu(1304) + lu(1326) = lu(1326) - lu(540) * lu(1304) + lu(1328) = lu(1328) - lu(541) * lu(1304) + lu(1329) = lu(1329) - lu(542) * lu(1304) + lu(1330) = lu(1330) - lu(543) * lu(1304) + lu(1331) = lu(1331) - lu(544) * lu(1304) + lu(1332) = lu(1332) - lu(545) * lu(1304) + lu(1333) = lu(1333) - lu(546) * lu(1304) + lu(1334) = lu(1334) - lu(547) * lu(1304) + lu(1485) = lu(1485) - lu(530) * lu(1484) + lu(1489) = lu(1489) - lu(531) * lu(1484) + lu(1490) = lu(1490) - lu(532) * lu(1484) + lu(1495) = lu(1495) - lu(533) * lu(1484) + lu(1496) = lu(1496) - lu(534) * lu(1484) + lu(1499) = lu(1499) - lu(535) * lu(1484) + lu(1500) = lu(1500) - lu(536) * lu(1484) + lu(1501) = lu(1501) - lu(537) * lu(1484) + lu(1502) = lu(1502) - lu(538) * lu(1484) + lu(1505) = lu(1505) - lu(539) * lu(1484) + lu(1507) = lu(1507) - lu(540) * lu(1484) + lu(1509) = lu(1509) - lu(541) * lu(1484) + lu(1510) = lu(1510) - lu(542) * lu(1484) + lu(1511) = lu(1511) - lu(543) * lu(1484) + lu(1512) = lu(1512) - lu(544) * lu(1484) + lu(1513) = lu(1513) - lu(545) * lu(1484) + lu(1514) = lu(1514) - lu(546) * lu(1484) + lu(1515) = lu(1515) - lu(547) * lu(1484) + lu(1553) = lu(1553) - lu(530) * lu(1552) + lu(1556) = lu(1556) - lu(531) * lu(1552) + lu(1557) = lu(1557) - lu(532) * lu(1552) + lu(1562) = lu(1562) - lu(533) * lu(1552) + lu(1563) = lu(1563) - lu(534) * lu(1552) + lu(1566) = lu(1566) - lu(535) * lu(1552) + lu(1567) = lu(1567) - lu(536) * lu(1552) + lu(1568) = lu(1568) - lu(537) * lu(1552) + lu(1569) = lu(1569) - lu(538) * lu(1552) + lu(1572) = lu(1572) - lu(539) * lu(1552) + lu(1574) = lu(1574) - lu(540) * lu(1552) + lu(1576) = lu(1576) - lu(541) * lu(1552) + lu(1577) = lu(1577) - lu(542) * lu(1552) + lu(1578) = lu(1578) - lu(543) * lu(1552) + lu(1579) = lu(1579) - lu(544) * lu(1552) + lu(1580) = lu(1580) - lu(545) * lu(1552) + lu(1581) = lu(1581) - lu(546) * lu(1552) + lu(1582) = lu(1582) - lu(547) * lu(1552) + lu(1590) = lu(1590) - lu(530) * lu(1589) + lu(1594) = lu(1594) - lu(531) * lu(1589) + lu(1595) = lu(1595) - lu(532) * lu(1589) + lu(1600) = lu(1600) - lu(533) * lu(1589) + lu(1601) = lu(1601) - lu(534) * lu(1589) + lu(1604) = lu(1604) - lu(535) * lu(1589) + lu(1605) = lu(1605) - lu(536) * lu(1589) + lu(1606) = lu(1606) - lu(537) * lu(1589) + lu(1607) = lu(1607) - lu(538) * lu(1589) + lu(1610) = lu(1610) - lu(539) * lu(1589) + lu(1612) = lu(1612) - lu(540) * lu(1589) + lu(1614) = lu(1614) - lu(541) * lu(1589) + lu(1615) = lu(1615) - lu(542) * lu(1589) + lu(1616) = lu(1616) - lu(543) * lu(1589) + lu(1617) = lu(1617) - lu(544) * lu(1589) + lu(1618) = lu(1618) - lu(545) * lu(1589) + lu(1619) = lu(1619) - lu(546) * lu(1589) + lu(1620) = lu(1620) - lu(547) * lu(1589) + lu(1630) = lu(1630) - lu(530) * lu(1629) + lu(1633) = lu(1633) - lu(531) * lu(1629) + lu(1634) = lu(1634) - lu(532) * lu(1629) + lu(1639) = lu(1639) - lu(533) * lu(1629) + lu(1640) = lu(1640) - lu(534) * lu(1629) + lu(1643) = lu(1643) - lu(535) * lu(1629) + lu(1644) = lu(1644) - lu(536) * lu(1629) + lu(1645) = lu(1645) - lu(537) * lu(1629) + lu(1646) = lu(1646) - lu(538) * lu(1629) + lu(1649) = lu(1649) - lu(539) * lu(1629) + lu(1651) = lu(1651) - lu(540) * lu(1629) + lu(1653) = lu(1653) - lu(541) * lu(1629) + lu(1654) = lu(1654) - lu(542) * lu(1629) + lu(1655) = lu(1655) - lu(543) * lu(1629) + lu(1656) = - lu(544) * lu(1629) + lu(1657) = lu(1657) - lu(545) * lu(1629) + lu(1658) = lu(1658) - lu(546) * lu(1629) + lu(1659) = lu(1659) - lu(547) * lu(1629) + lu(1666) = - lu(530) * lu(1665) + lu(1668) = lu(1668) - lu(531) * lu(1665) + lu(1669) = lu(1669) - lu(532) * lu(1665) + lu(1673) = - lu(533) * lu(1665) + lu(1674) = lu(1674) - lu(534) * lu(1665) + lu(1677) = lu(1677) - lu(535) * lu(1665) + lu(1678) = - lu(536) * lu(1665) + lu(1679) = lu(1679) - lu(537) * lu(1665) + lu(1680) = - lu(538) * lu(1665) + lu(1683) = lu(1683) - lu(539) * lu(1665) + lu(1685) = - lu(540) * lu(1665) + lu(1687) = lu(1687) - lu(541) * lu(1665) + lu(1688) = - lu(542) * lu(1665) + lu(1689) = - lu(543) * lu(1665) + lu(1690) = - lu(544) * lu(1665) + lu(1691) = lu(1691) - lu(545) * lu(1665) + lu(1692) = lu(1692) - lu(546) * lu(1665) + lu(1693) = lu(1693) - lu(547) * lu(1665) + lu(1716) = lu(1716) - lu(530) * lu(1715) + lu(1719) = lu(1719) - lu(531) * lu(1715) + lu(1720) = lu(1720) - lu(532) * lu(1715) + lu(1725) = lu(1725) - lu(533) * lu(1715) + lu(1726) = lu(1726) - lu(534) * lu(1715) + lu(1729) = lu(1729) - lu(535) * lu(1715) + lu(1730) = lu(1730) - lu(536) * lu(1715) + lu(1731) = lu(1731) - lu(537) * lu(1715) + lu(1732) = lu(1732) - lu(538) * lu(1715) + lu(1735) = lu(1735) - lu(539) * lu(1715) + lu(1737) = lu(1737) - lu(540) * lu(1715) + lu(1739) = lu(1739) - lu(541) * lu(1715) + lu(1740) = lu(1740) - lu(542) * lu(1715) + lu(1741) = lu(1741) - lu(543) * lu(1715) + lu(1742) = lu(1742) - lu(544) * lu(1715) + lu(1743) = lu(1743) - lu(545) * lu(1715) + lu(1744) = lu(1744) - lu(546) * lu(1715) + lu(1745) = lu(1745) - lu(547) * lu(1715) + lu(560) = 1._r8 / lu(560) + lu(561) = lu(561) * lu(560) + lu(562) = lu(562) * lu(560) + lu(563) = lu(563) * lu(560) + lu(564) = lu(564) * lu(560) + lu(565) = lu(565) * lu(560) + lu(566) = lu(566) * lu(560) + lu(567) = lu(567) * lu(560) + lu(568) = lu(568) * lu(560) + lu(569) = lu(569) * lu(560) + lu(570) = lu(570) * lu(560) + lu(571) = lu(571) * lu(560) + lu(572) = lu(572) * lu(560) + lu(573) = lu(573) * lu(560) + lu(574) = lu(574) * lu(560) + lu(575) = lu(575) * lu(560) + lu(576) = lu(576) * lu(560) + lu(577) = lu(577) * lu(560) + lu(578) = lu(578) * lu(560) + lu(579) = lu(579) * lu(560) + lu(580) = lu(580) * lu(560) + lu(670) = lu(670) - lu(561) * lu(669) + lu(671) = lu(671) - lu(562) * lu(669) + lu(672) = lu(672) - lu(563) * lu(669) + lu(673) = lu(673) - lu(564) * lu(669) + lu(675) = lu(675) - lu(565) * lu(669) + lu(676) = lu(676) - lu(566) * lu(669) + lu(677) = lu(677) - lu(567) * lu(669) + lu(678) = lu(678) - lu(568) * lu(669) + lu(679) = lu(679) - lu(569) * lu(669) + lu(680) = - lu(570) * lu(669) + lu(681) = - lu(571) * lu(669) + lu(682) = lu(682) - lu(572) * lu(669) + lu(683) = lu(683) - lu(573) * lu(669) + lu(684) = lu(684) - lu(574) * lu(669) + lu(685) = lu(685) - lu(575) * lu(669) + lu(686) = lu(686) - lu(576) * lu(669) + lu(687) = lu(687) - lu(577) * lu(669) + lu(688) = lu(688) - lu(578) * lu(669) + lu(689) = lu(689) - lu(579) * lu(669) + lu(690) = lu(690) - lu(580) * lu(669) + lu(710) = lu(710) - lu(561) * lu(709) + lu(711) = lu(711) - lu(562) * lu(709) + lu(713) = lu(713) - lu(563) * lu(709) + lu(714) = lu(714) - lu(564) * lu(709) + lu(716) = lu(716) - lu(565) * lu(709) + lu(717) = lu(717) - lu(566) * lu(709) + lu(718) = lu(718) - lu(567) * lu(709) + lu(719) = lu(719) - lu(568) * lu(709) + lu(720) = lu(720) - lu(569) * lu(709) + lu(721) = - lu(570) * lu(709) + lu(722) = lu(722) - lu(571) * lu(709) + lu(723) = lu(723) - lu(572) * lu(709) + lu(724) = lu(724) - lu(573) * lu(709) + lu(725) = lu(725) - lu(574) * lu(709) + lu(726) = lu(726) - lu(575) * lu(709) + lu(727) = lu(727) - lu(576) * lu(709) + lu(728) = lu(728) - lu(577) * lu(709) + lu(729) = lu(729) - lu(578) * lu(709) + lu(730) = lu(730) - lu(579) * lu(709) + lu(731) = lu(731) - lu(580) * lu(709) + lu(813) = lu(813) - lu(561) * lu(809) + lu(814) = lu(814) - lu(562) * lu(809) + lu(819) = lu(819) - lu(563) * lu(809) + lu(820) = lu(820) - lu(564) * lu(809) + lu(822) = lu(822) - lu(565) * lu(809) + lu(823) = lu(823) - lu(566) * lu(809) + lu(824) = - lu(567) * lu(809) + lu(825) = lu(825) - lu(568) * lu(809) + lu(826) = lu(826) - lu(569) * lu(809) + lu(827) = lu(827) - lu(570) * lu(809) + lu(828) = lu(828) - lu(571) * lu(809) + lu(829) = lu(829) - lu(572) * lu(809) + lu(831) = lu(831) - lu(573) * lu(809) + lu(833) = lu(833) - lu(574) * lu(809) + lu(834) = - lu(575) * lu(809) + lu(835) = - lu(576) * lu(809) + lu(836) = - lu(577) * lu(809) + lu(837) = lu(837) - lu(578) * lu(809) + lu(838) = lu(838) - lu(579) * lu(809) + lu(839) = lu(839) - lu(580) * lu(809) + lu(899) = lu(899) - lu(561) * lu(895) + lu(900) = lu(900) - lu(562) * lu(895) + lu(905) = lu(905) - lu(563) * lu(895) + lu(906) = lu(906) - lu(564) * lu(895) + lu(908) = lu(908) - lu(565) * lu(895) + lu(909) = lu(909) - lu(566) * lu(895) + lu(910) = lu(910) - lu(567) * lu(895) + lu(911) = lu(911) - lu(568) * lu(895) + lu(912) = lu(912) - lu(569) * lu(895) + lu(913) = lu(913) - lu(570) * lu(895) + lu(914) = lu(914) - lu(571) * lu(895) + lu(915) = lu(915) - lu(572) * lu(895) + lu(917) = lu(917) - lu(573) * lu(895) + lu(919) = lu(919) - lu(574) * lu(895) + lu(920) = lu(920) - lu(575) * lu(895) + lu(921) = lu(921) - lu(576) * lu(895) + lu(922) = lu(922) - lu(577) * lu(895) + lu(923) = lu(923) - lu(578) * lu(895) + lu(924) = lu(924) - lu(579) * lu(895) + lu(925) = lu(925) - lu(580) * lu(895) + lu(934) = lu(934) - lu(561) * lu(930) + lu(935) = lu(935) - lu(562) * lu(930) + lu(940) = lu(940) - lu(563) * lu(930) + lu(941) = lu(941) - lu(564) * lu(930) + lu(943) = lu(943) - lu(565) * lu(930) + lu(944) = lu(944) - lu(566) * lu(930) + lu(945) = lu(945) - lu(567) * lu(930) + lu(946) = lu(946) - lu(568) * lu(930) + lu(947) = lu(947) - lu(569) * lu(930) + lu(948) = lu(948) - lu(570) * lu(930) + lu(949) = - lu(571) * lu(930) + lu(950) = lu(950) - lu(572) * lu(930) + lu(952) = lu(952) - lu(573) * lu(930) + lu(954) = lu(954) - lu(574) * lu(930) + lu(955) = lu(955) - lu(575) * lu(930) + lu(956) = lu(956) - lu(576) * lu(930) + lu(957) = lu(957) - lu(577) * lu(930) + lu(958) = lu(958) - lu(578) * lu(930) + lu(959) = lu(959) - lu(579) * lu(930) + lu(960) = lu(960) - lu(580) * lu(930) + lu(1061) = lu(1061) - lu(561) * lu(1058) + lu(1062) = lu(1062) - lu(562) * lu(1058) + lu(1067) = lu(1067) - lu(563) * lu(1058) + lu(1068) = lu(1068) - lu(564) * lu(1058) + lu(1070) = lu(1070) - lu(565) * lu(1058) + lu(1071) = lu(1071) - lu(566) * lu(1058) + lu(1072) = lu(1072) - lu(567) * lu(1058) + lu(1073) = lu(1073) - lu(568) * lu(1058) + lu(1074) = lu(1074) - lu(569) * lu(1058) + lu(1075) = lu(1075) - lu(570) * lu(1058) + lu(1076) = lu(1076) - lu(571) * lu(1058) + lu(1077) = lu(1077) - lu(572) * lu(1058) + lu(1079) = lu(1079) - lu(573) * lu(1058) + lu(1081) = lu(1081) - lu(574) * lu(1058) + lu(1082) = lu(1082) - lu(575) * lu(1058) + lu(1083) = lu(1083) - lu(576) * lu(1058) + lu(1084) = lu(1084) - lu(577) * lu(1058) + lu(1085) = lu(1085) - lu(578) * lu(1058) + lu(1086) = lu(1086) - lu(579) * lu(1058) + lu(1087) = lu(1087) - lu(580) * lu(1058) + lu(1103) = lu(1103) - lu(561) * lu(1099) + lu(1104) = lu(1104) - lu(562) * lu(1099) + lu(1109) = lu(1109) - lu(563) * lu(1099) + lu(1110) = lu(1110) - lu(564) * lu(1099) + lu(1112) = - lu(565) * lu(1099) + lu(1113) = lu(1113) - lu(566) * lu(1099) + lu(1114) = lu(1114) - lu(567) * lu(1099) + lu(1115) = lu(1115) - lu(568) * lu(1099) + lu(1116) = lu(1116) - lu(569) * lu(1099) + lu(1117) = lu(1117) - lu(570) * lu(1099) + lu(1118) = - lu(571) * lu(1099) + lu(1119) = lu(1119) - lu(572) * lu(1099) + lu(1121) = lu(1121) - lu(573) * lu(1099) + lu(1123) = lu(1123) - lu(574) * lu(1099) + lu(1124) = lu(1124) - lu(575) * lu(1099) + lu(1125) = lu(1125) - lu(576) * lu(1099) + lu(1126) = lu(1126) - lu(577) * lu(1099) + lu(1127) = lu(1127) - lu(578) * lu(1099) + lu(1128) = lu(1128) - lu(579) * lu(1099) + lu(1129) = lu(1129) - lu(580) * lu(1099) + lu(1146) = lu(1146) - lu(561) * lu(1142) + lu(1147) = lu(1147) - lu(562) * lu(1142) + lu(1152) = - lu(563) * lu(1142) + lu(1153) = lu(1153) - lu(564) * lu(1142) + lu(1155) = lu(1155) - lu(565) * lu(1142) + lu(1156) = lu(1156) - lu(566) * lu(1142) + lu(1157) = - lu(567) * lu(1142) + lu(1158) = lu(1158) - lu(568) * lu(1142) + lu(1159) = - lu(569) * lu(1142) + lu(1160) = lu(1160) - lu(570) * lu(1142) + lu(1161) = lu(1161) - lu(571) * lu(1142) + lu(1162) = lu(1162) - lu(572) * lu(1142) + lu(1164) = lu(1164) - lu(573) * lu(1142) + lu(1166) = lu(1166) - lu(574) * lu(1142) + lu(1167) = lu(1167) - lu(575) * lu(1142) + lu(1168) = lu(1168) - lu(576) * lu(1142) + lu(1169) = lu(1169) - lu(577) * lu(1142) + lu(1170) = - lu(578) * lu(1142) + lu(1171) = - lu(579) * lu(1142) + lu(1172) = lu(1172) - lu(580) * lu(1142) + lu(1188) = lu(1188) - lu(561) * lu(1184) + lu(1189) = lu(1189) - lu(562) * lu(1184) + lu(1194) = lu(1194) - lu(563) * lu(1184) + lu(1195) = lu(1195) - lu(564) * lu(1184) + lu(1197) = - lu(565) * lu(1184) + lu(1198) = lu(1198) - lu(566) * lu(1184) + lu(1199) = lu(1199) - lu(567) * lu(1184) + lu(1200) = lu(1200) - lu(568) * lu(1184) + lu(1201) = lu(1201) - lu(569) * lu(1184) + lu(1202) = lu(1202) - lu(570) * lu(1184) + lu(1203) = - lu(571) * lu(1184) + lu(1204) = lu(1204) - lu(572) * lu(1184) + lu(1206) = lu(1206) - lu(573) * lu(1184) + lu(1208) = lu(1208) - lu(574) * lu(1184) + lu(1209) = lu(1209) - lu(575) * lu(1184) + lu(1210) = lu(1210) - lu(576) * lu(1184) + lu(1211) = lu(1211) - lu(577) * lu(1184) + lu(1212) = lu(1212) - lu(578) * lu(1184) + lu(1213) = lu(1213) - lu(579) * lu(1184) + lu(1214) = lu(1214) - lu(580) * lu(1184) + lu(1267) = lu(1267) - lu(561) * lu(1263) + lu(1268) = lu(1268) - lu(562) * lu(1263) + lu(1273) = lu(1273) - lu(563) * lu(1263) + lu(1274) = lu(1274) - lu(564) * lu(1263) + lu(1276) = lu(1276) - lu(565) * lu(1263) + lu(1277) = lu(1277) - lu(566) * lu(1263) + lu(1278) = - lu(567) * lu(1263) + lu(1279) = lu(1279) - lu(568) * lu(1263) + lu(1280) = lu(1280) - lu(569) * lu(1263) + lu(1281) = lu(1281) - lu(570) * lu(1263) + lu(1282) = lu(1282) - lu(571) * lu(1263) + lu(1283) = lu(1283) - lu(572) * lu(1263) + lu(1285) = lu(1285) - lu(573) * lu(1263) + lu(1287) = lu(1287) - lu(574) * lu(1263) + lu(1288) = - lu(575) * lu(1263) + lu(1289) = lu(1289) - lu(576) * lu(1263) + lu(1290) = lu(1290) - lu(577) * lu(1263) + lu(1291) = lu(1291) - lu(578) * lu(1263) + lu(1292) = lu(1292) - lu(579) * lu(1263) + lu(1293) = lu(1293) - lu(580) * lu(1263) + lu(1308) = lu(1308) - lu(561) * lu(1305) + lu(1309) = lu(1309) - lu(562) * lu(1305) + lu(1314) = lu(1314) - lu(563) * lu(1305) + lu(1315) = lu(1315) - lu(564) * lu(1305) + lu(1317) = lu(1317) - lu(565) * lu(1305) + lu(1318) = lu(1318) - lu(566) * lu(1305) + lu(1319) = lu(1319) - lu(567) * lu(1305) + lu(1320) = lu(1320) - lu(568) * lu(1305) + lu(1321) = lu(1321) - lu(569) * lu(1305) + lu(1322) = lu(1322) - lu(570) * lu(1305) + lu(1323) = lu(1323) - lu(571) * lu(1305) + lu(1324) = lu(1324) - lu(572) * lu(1305) + lu(1326) = lu(1326) - lu(573) * lu(1305) + lu(1328) = lu(1328) - lu(574) * lu(1305) + lu(1329) = lu(1329) - lu(575) * lu(1305) + lu(1330) = lu(1330) - lu(576) * lu(1305) + lu(1331) = lu(1331) - lu(577) * lu(1305) + lu(1332) = lu(1332) - lu(578) * lu(1305) + lu(1333) = lu(1333) - lu(579) * lu(1305) + lu(1334) = lu(1334) - lu(580) * lu(1305) + lu(1394) = lu(1394) - lu(561) * lu(1393) + lu(1395) = lu(1395) - lu(562) * lu(1393) + lu(1398) = - lu(563) * lu(1393) + lu(1399) = lu(1399) - lu(564) * lu(1393) + lu(1401) = lu(1401) - lu(565) * lu(1393) + lu(1402) = lu(1402) - lu(566) * lu(1393) + lu(1403) = - lu(567) * lu(1393) + lu(1404) = lu(1404) - lu(568) * lu(1393) + lu(1405) = - lu(569) * lu(1393) + lu(1406) = lu(1406) - lu(570) * lu(1393) + lu(1407) = lu(1407) - lu(571) * lu(1393) + lu(1408) = lu(1408) - lu(572) * lu(1393) + lu(1410) = lu(1410) - lu(573) * lu(1393) + lu(1412) = lu(1412) - lu(574) * lu(1393) + lu(1413) = - lu(575) * lu(1393) + lu(1414) = lu(1414) - lu(576) * lu(1393) + lu(1415) = lu(1415) - lu(577) * lu(1393) + lu(1416) = - lu(578) * lu(1393) + lu(1417) = - lu(579) * lu(1393) + lu(1418) = lu(1418) - lu(580) * lu(1393) + lu(1489) = lu(1489) - lu(561) * lu(1485) + lu(1490) = lu(1490) - lu(562) * lu(1485) + lu(1495) = lu(1495) - lu(563) * lu(1485) + lu(1496) = lu(1496) - lu(564) * lu(1485) + lu(1498) = lu(1498) - lu(565) * lu(1485) + lu(1499) = lu(1499) - lu(566) * lu(1485) + lu(1500) = lu(1500) - lu(567) * lu(1485) + lu(1501) = lu(1501) - lu(568) * lu(1485) + lu(1502) = lu(1502) - lu(569) * lu(1485) + lu(1503) = lu(1503) - lu(570) * lu(1485) + lu(1504) = lu(1504) - lu(571) * lu(1485) + lu(1505) = lu(1505) - lu(572) * lu(1485) + lu(1507) = lu(1507) - lu(573) * lu(1485) + lu(1509) = lu(1509) - lu(574) * lu(1485) + lu(1510) = lu(1510) - lu(575) * lu(1485) + lu(1511) = lu(1511) - lu(576) * lu(1485) + lu(1512) = lu(1512) - lu(577) * lu(1485) + lu(1513) = lu(1513) - lu(578) * lu(1485) + lu(1514) = lu(1514) - lu(579) * lu(1485) + lu(1515) = lu(1515) - lu(580) * lu(1485) + lu(1556) = lu(1556) - lu(561) * lu(1553) + lu(1557) = lu(1557) - lu(562) * lu(1553) + lu(1562) = lu(1562) - lu(563) * lu(1553) + lu(1563) = lu(1563) - lu(564) * lu(1553) + lu(1565) = lu(1565) - lu(565) * lu(1553) + lu(1566) = lu(1566) - lu(566) * lu(1553) + lu(1567) = lu(1567) - lu(567) * lu(1553) + lu(1568) = lu(1568) - lu(568) * lu(1553) + lu(1569) = lu(1569) - lu(569) * lu(1553) + lu(1570) = lu(1570) - lu(570) * lu(1553) + lu(1571) = lu(1571) - lu(571) * lu(1553) + lu(1572) = lu(1572) - lu(572) * lu(1553) + lu(1574) = lu(1574) - lu(573) * lu(1553) + lu(1576) = lu(1576) - lu(574) * lu(1553) + lu(1577) = lu(1577) - lu(575) * lu(1553) + lu(1578) = lu(1578) - lu(576) * lu(1553) + lu(1579) = lu(1579) - lu(577) * lu(1553) + lu(1580) = lu(1580) - lu(578) * lu(1553) + lu(1581) = lu(1581) - lu(579) * lu(1553) + lu(1582) = lu(1582) - lu(580) * lu(1553) + lu(1594) = lu(1594) - lu(561) * lu(1590) + lu(1595) = lu(1595) - lu(562) * lu(1590) + lu(1600) = lu(1600) - lu(563) * lu(1590) + lu(1601) = lu(1601) - lu(564) * lu(1590) + lu(1603) = lu(1603) - lu(565) * lu(1590) + lu(1604) = lu(1604) - lu(566) * lu(1590) + lu(1605) = lu(1605) - lu(567) * lu(1590) + lu(1606) = lu(1606) - lu(568) * lu(1590) + lu(1607) = lu(1607) - lu(569) * lu(1590) + lu(1608) = lu(1608) - lu(570) * lu(1590) + lu(1609) = lu(1609) - lu(571) * lu(1590) + lu(1610) = lu(1610) - lu(572) * lu(1590) + lu(1612) = lu(1612) - lu(573) * lu(1590) + lu(1614) = lu(1614) - lu(574) * lu(1590) + lu(1615) = lu(1615) - lu(575) * lu(1590) + lu(1616) = lu(1616) - lu(576) * lu(1590) + lu(1617) = lu(1617) - lu(577) * lu(1590) + lu(1618) = lu(1618) - lu(578) * lu(1590) + lu(1619) = lu(1619) - lu(579) * lu(1590) + lu(1620) = lu(1620) - lu(580) * lu(1590) + lu(1633) = lu(1633) - lu(561) * lu(1630) + lu(1634) = lu(1634) - lu(562) * lu(1630) + lu(1639) = lu(1639) - lu(563) * lu(1630) + lu(1640) = lu(1640) - lu(564) * lu(1630) + lu(1642) = lu(1642) - lu(565) * lu(1630) + lu(1643) = lu(1643) - lu(566) * lu(1630) + lu(1644) = lu(1644) - lu(567) * lu(1630) + lu(1645) = lu(1645) - lu(568) * lu(1630) + lu(1646) = lu(1646) - lu(569) * lu(1630) + lu(1647) = lu(1647) - lu(570) * lu(1630) + lu(1648) = lu(1648) - lu(571) * lu(1630) + lu(1649) = lu(1649) - lu(572) * lu(1630) + lu(1651) = lu(1651) - lu(573) * lu(1630) + lu(1653) = lu(1653) - lu(574) * lu(1630) + lu(1654) = lu(1654) - lu(575) * lu(1630) + lu(1655) = lu(1655) - lu(576) * lu(1630) + lu(1656) = lu(1656) - lu(577) * lu(1630) + lu(1657) = lu(1657) - lu(578) * lu(1630) + lu(1658) = lu(1658) - lu(579) * lu(1630) + lu(1659) = lu(1659) - lu(580) * lu(1630) + lu(1668) = lu(1668) - lu(561) * lu(1666) + lu(1669) = lu(1669) - lu(562) * lu(1666) + lu(1673) = lu(1673) - lu(563) * lu(1666) + lu(1674) = lu(1674) - lu(564) * lu(1666) + lu(1676) = lu(1676) - lu(565) * lu(1666) + lu(1677) = lu(1677) - lu(566) * lu(1666) + lu(1678) = lu(1678) - lu(567) * lu(1666) + lu(1679) = lu(1679) - lu(568) * lu(1666) + lu(1680) = lu(1680) - lu(569) * lu(1666) + lu(1681) = - lu(570) * lu(1666) + lu(1682) = lu(1682) - lu(571) * lu(1666) + lu(1683) = lu(1683) - lu(572) * lu(1666) + lu(1685) = lu(1685) - lu(573) * lu(1666) + lu(1687) = lu(1687) - lu(574) * lu(1666) + lu(1688) = lu(1688) - lu(575) * lu(1666) + lu(1689) = lu(1689) - lu(576) * lu(1666) + lu(1690) = lu(1690) - lu(577) * lu(1666) + lu(1691) = lu(1691) - lu(578) * lu(1666) + lu(1692) = lu(1692) - lu(579) * lu(1666) + lu(1693) = lu(1693) - lu(580) * lu(1666) + lu(1719) = lu(1719) - lu(561) * lu(1716) + lu(1720) = lu(1720) - lu(562) * lu(1716) + lu(1725) = lu(1725) - lu(563) * lu(1716) + lu(1726) = lu(1726) - lu(564) * lu(1716) + lu(1728) = lu(1728) - lu(565) * lu(1716) + lu(1729) = lu(1729) - lu(566) * lu(1716) + lu(1730) = lu(1730) - lu(567) * lu(1716) + lu(1731) = lu(1731) - lu(568) * lu(1716) + lu(1732) = lu(1732) - lu(569) * lu(1716) + lu(1733) = lu(1733) - lu(570) * lu(1716) + lu(1734) = lu(1734) - lu(571) * lu(1716) + lu(1735) = lu(1735) - lu(572) * lu(1716) + lu(1737) = lu(1737) - lu(573) * lu(1716) + lu(1739) = lu(1739) - lu(574) * lu(1716) + lu(1740) = lu(1740) - lu(575) * lu(1716) + lu(1741) = lu(1741) - lu(576) * lu(1716) + lu(1742) = lu(1742) - lu(577) * lu(1716) + lu(1743) = lu(1743) - lu(578) * lu(1716) + lu(1744) = lu(1744) - lu(579) * lu(1716) + lu(1745) = lu(1745) - lu(580) * lu(1716) end subroutine lu_fac13 - subroutine lu_fac14( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac14( lu ) 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,573) = 1._r8 / lu(k,573) - lu(k,574) = lu(k,574) * lu(k,573) - lu(k,575) = lu(k,575) * lu(k,573) - lu(k,576) = lu(k,576) * lu(k,573) - lu(k,577) = lu(k,577) * lu(k,573) - lu(k,578) = lu(k,578) * lu(k,573) - lu(k,579) = lu(k,579) * lu(k,573) - lu(k,580) = lu(k,580) * lu(k,573) - lu(k,581) = lu(k,581) * lu(k,573) - lu(k,582) = lu(k,582) * lu(k,573) - lu(k,583) = lu(k,583) * lu(k,573) - lu(k,584) = lu(k,584) * lu(k,573) - lu(k,585) = lu(k,585) * lu(k,573) - lu(k,586) = lu(k,586) * lu(k,573) - lu(k,587) = lu(k,587) * lu(k,573) - lu(k,588) = lu(k,588) * lu(k,573) - lu(k,589) = lu(k,589) * lu(k,573) - lu(k,590) = lu(k,590) * lu(k,573) - lu(k,591) = lu(k,591) * lu(k,573) - lu(k,592) = lu(k,592) * lu(k,573) - lu(k,593) = lu(k,593) * lu(k,573) - lu(k,594) = lu(k,594) * lu(k,573) - lu(k,686) = lu(k,686) - lu(k,574) * lu(k,685) - lu(k,687) = lu(k,687) - lu(k,575) * lu(k,685) - lu(k,688) = lu(k,688) - lu(k,576) * lu(k,685) - lu(k,689) = lu(k,689) - lu(k,577) * lu(k,685) - lu(k,690) = lu(k,690) - lu(k,578) * lu(k,685) - lu(k,692) = lu(k,692) - lu(k,579) * lu(k,685) - lu(k,693) = lu(k,693) - lu(k,580) * lu(k,685) - lu(k,694) = lu(k,694) - lu(k,581) * lu(k,685) - lu(k,695) = lu(k,695) - lu(k,582) * lu(k,685) - lu(k,696) = - lu(k,583) * lu(k,685) - lu(k,697) = - lu(k,584) * lu(k,685) - lu(k,698) = lu(k,698) - lu(k,585) * lu(k,685) - lu(k,699) = lu(k,699) - lu(k,586) * lu(k,685) - lu(k,700) = lu(k,700) - lu(k,587) * lu(k,685) - lu(k,701) = lu(k,701) - lu(k,588) * lu(k,685) - lu(k,702) = lu(k,702) - lu(k,589) * lu(k,685) - lu(k,703) = lu(k,703) - lu(k,590) * lu(k,685) - lu(k,704) = lu(k,704) - lu(k,591) * lu(k,685) - lu(k,705) = lu(k,705) - lu(k,592) * lu(k,685) - lu(k,706) = lu(k,706) - lu(k,593) * lu(k,685) - lu(k,707) = lu(k,707) - lu(k,594) * lu(k,685) - lu(k,754) = lu(k,754) - lu(k,574) * lu(k,753) - lu(k,755) = lu(k,755) - lu(k,575) * lu(k,753) - lu(k,756) = lu(k,756) - lu(k,576) * lu(k,753) - lu(k,758) = lu(k,758) - lu(k,577) * lu(k,753) - lu(k,759) = lu(k,759) - lu(k,578) * lu(k,753) - lu(k,761) = lu(k,761) - lu(k,579) * lu(k,753) - lu(k,762) = lu(k,762) - lu(k,580) * lu(k,753) - lu(k,763) = lu(k,763) - lu(k,581) * lu(k,753) - lu(k,764) = lu(k,764) - lu(k,582) * lu(k,753) - lu(k,765) = - lu(k,583) * lu(k,753) - lu(k,766) = lu(k,766) - lu(k,584) * lu(k,753) - lu(k,767) = lu(k,767) - lu(k,585) * lu(k,753) - lu(k,768) = lu(k,768) - lu(k,586) * lu(k,753) - lu(k,769) = lu(k,769) - lu(k,587) * lu(k,753) - lu(k,770) = lu(k,770) - lu(k,588) * lu(k,753) - lu(k,771) = lu(k,771) - lu(k,589) * lu(k,753) - lu(k,772) = lu(k,772) - lu(k,590) * lu(k,753) - lu(k,773) = lu(k,773) - lu(k,591) * lu(k,753) - lu(k,774) = lu(k,774) - lu(k,592) * lu(k,753) - lu(k,775) = lu(k,775) - lu(k,593) * lu(k,753) - lu(k,776) = lu(k,776) - lu(k,594) * lu(k,753) - lu(k,873) = lu(k,873) - lu(k,574) * lu(k,869) - lu(k,875) = lu(k,875) - lu(k,575) * lu(k,869) - lu(k,877) = lu(k,877) - lu(k,576) * lu(k,869) - lu(k,880) = lu(k,880) - lu(k,577) * lu(k,869) - lu(k,881) = lu(k,881) - lu(k,578) * lu(k,869) - lu(k,883) = lu(k,883) - lu(k,579) * lu(k,869) - lu(k,884) = lu(k,884) - lu(k,580) * lu(k,869) - lu(k,886) = lu(k,886) - lu(k,581) * lu(k,869) - lu(k,887) = lu(k,887) - lu(k,582) * lu(k,869) - lu(k,888) = lu(k,888) - lu(k,583) * lu(k,869) - lu(k,889) = lu(k,889) - lu(k,584) * lu(k,869) - lu(k,890) = lu(k,890) - lu(k,585) * lu(k,869) - lu(k,891) = - lu(k,586) * lu(k,869) - lu(k,892) = lu(k,892) - lu(k,587) * lu(k,869) - lu(k,893) = - lu(k,588) * lu(k,869) - lu(k,895) = - lu(k,589) * lu(k,869) - lu(k,896) = - lu(k,590) * lu(k,869) - lu(k,897) = lu(k,897) - lu(k,591) * lu(k,869) - lu(k,898) = lu(k,898) - lu(k,592) * lu(k,869) - lu(k,899) = lu(k,899) - lu(k,593) * lu(k,869) - lu(k,900) = lu(k,900) - lu(k,594) * lu(k,869) - lu(k,972) = lu(k,972) - lu(k,574) * lu(k,968) - lu(k,974) = lu(k,974) - lu(k,575) * lu(k,968) - lu(k,976) = lu(k,976) - lu(k,576) * lu(k,968) - lu(k,979) = lu(k,979) - lu(k,577) * lu(k,968) - lu(k,980) = lu(k,980) - lu(k,578) * lu(k,968) - lu(k,982) = lu(k,982) - lu(k,579) * lu(k,968) - lu(k,983) = lu(k,983) - lu(k,580) * lu(k,968) - lu(k,985) = lu(k,985) - lu(k,581) * lu(k,968) - lu(k,986) = lu(k,986) - lu(k,582) * lu(k,968) - lu(k,987) = lu(k,987) - lu(k,583) * lu(k,968) - lu(k,988) = lu(k,988) - lu(k,584) * lu(k,968) - lu(k,989) = lu(k,989) - lu(k,585) * lu(k,968) - lu(k,990) = lu(k,990) - lu(k,586) * lu(k,968) - lu(k,991) = lu(k,991) - lu(k,587) * lu(k,968) - lu(k,992) = lu(k,992) - lu(k,588) * lu(k,968) - lu(k,994) = lu(k,994) - lu(k,589) * lu(k,968) - lu(k,995) = lu(k,995) - lu(k,590) * lu(k,968) - lu(k,996) = lu(k,996) - lu(k,591) * lu(k,968) - lu(k,997) = lu(k,997) - lu(k,592) * lu(k,968) - lu(k,998) = lu(k,998) - lu(k,593) * lu(k,968) - lu(k,999) = lu(k,999) - lu(k,594) * lu(k,968) - lu(k,1017) = lu(k,1017) - lu(k,574) * lu(k,1016) - lu(k,1018) = lu(k,1018) - lu(k,575) * lu(k,1016) - lu(k,1019) = lu(k,1019) - lu(k,576) * lu(k,1016) - lu(k,1022) = lu(k,1022) - lu(k,577) * lu(k,1016) - lu(k,1023) = lu(k,1023) - lu(k,578) * lu(k,1016) - lu(k,1025) = - lu(k,579) * lu(k,1016) - lu(k,1026) = lu(k,1026) - lu(k,580) * lu(k,1016) - lu(k,1028) = - lu(k,581) * lu(k,1016) - lu(k,1029) = lu(k,1029) - lu(k,582) * lu(k,1016) - lu(k,1030) = lu(k,1030) - lu(k,583) * lu(k,1016) - lu(k,1031) = lu(k,1031) - lu(k,584) * lu(k,1016) - lu(k,1032) = lu(k,1032) - lu(k,585) * lu(k,1016) - lu(k,1033) = lu(k,1033) - lu(k,586) * lu(k,1016) - lu(k,1034) = - lu(k,587) * lu(k,1016) - lu(k,1035) = - lu(k,588) * lu(k,1016) - lu(k,1037) = - lu(k,589) * lu(k,1016) - lu(k,1038) = lu(k,1038) - lu(k,590) * lu(k,1016) - lu(k,1039) = - lu(k,591) * lu(k,1016) - lu(k,1040) = lu(k,1040) - lu(k,592) * lu(k,1016) - lu(k,1041) = lu(k,1041) - lu(k,593) * lu(k,1016) - lu(k,1042) = lu(k,1042) - lu(k,594) * lu(k,1016) - lu(k,1097) = lu(k,1097) - lu(k,574) * lu(k,1094) - lu(k,1099) = lu(k,1099) - lu(k,575) * lu(k,1094) - lu(k,1101) = lu(k,1101) - lu(k,576) * lu(k,1094) - lu(k,1104) = lu(k,1104) - lu(k,577) * lu(k,1094) - lu(k,1105) = lu(k,1105) - lu(k,578) * lu(k,1094) - lu(k,1107) = lu(k,1107) - lu(k,579) * lu(k,1094) - lu(k,1108) = lu(k,1108) - lu(k,580) * lu(k,1094) - lu(k,1110) = lu(k,1110) - lu(k,581) * lu(k,1094) - lu(k,1111) = lu(k,1111) - lu(k,582) * lu(k,1094) - lu(k,1112) = lu(k,1112) - lu(k,583) * lu(k,1094) - lu(k,1113) = lu(k,1113) - lu(k,584) * lu(k,1094) - lu(k,1114) = lu(k,1114) - lu(k,585) * lu(k,1094) - lu(k,1115) = lu(k,1115) - lu(k,586) * lu(k,1094) - lu(k,1116) = lu(k,1116) - lu(k,587) * lu(k,1094) - lu(k,1117) = lu(k,1117) - lu(k,588) * lu(k,1094) - lu(k,1119) = lu(k,1119) - lu(k,589) * lu(k,1094) - lu(k,1120) = lu(k,1120) - lu(k,590) * lu(k,1094) - lu(k,1121) = lu(k,1121) - lu(k,591) * lu(k,1094) - lu(k,1122) = lu(k,1122) - lu(k,592) * lu(k,1094) - lu(k,1123) = lu(k,1123) - lu(k,593) * lu(k,1094) - lu(k,1124) = lu(k,1124) - lu(k,594) * lu(k,1094) - lu(k,1142) = lu(k,1142) - lu(k,574) * lu(k,1139) - lu(k,1144) = lu(k,1144) - lu(k,575) * lu(k,1139) - lu(k,1146) = lu(k,1146) - lu(k,576) * lu(k,1139) - lu(k,1149) = lu(k,1149) - lu(k,577) * lu(k,1139) - lu(k,1150) = lu(k,1150) - lu(k,578) * lu(k,1139) - lu(k,1152) = lu(k,1152) - lu(k,579) * lu(k,1139) - lu(k,1153) = lu(k,1153) - lu(k,580) * lu(k,1139) - lu(k,1155) = lu(k,1155) - lu(k,581) * lu(k,1139) - lu(k,1156) = lu(k,1156) - lu(k,582) * lu(k,1139) - lu(k,1157) = lu(k,1157) - lu(k,583) * lu(k,1139) - lu(k,1158) = lu(k,1158) - lu(k,584) * lu(k,1139) - lu(k,1159) = lu(k,1159) - lu(k,585) * lu(k,1139) - lu(k,1160) = lu(k,1160) - lu(k,586) * lu(k,1139) - lu(k,1161) = lu(k,1161) - lu(k,587) * lu(k,1139) - lu(k,1162) = lu(k,1162) - lu(k,588) * lu(k,1139) - lu(k,1164) = lu(k,1164) - lu(k,589) * lu(k,1139) - lu(k,1165) = lu(k,1165) - lu(k,590) * lu(k,1139) - lu(k,1166) = lu(k,1166) - lu(k,591) * lu(k,1139) - lu(k,1167) = lu(k,1167) - lu(k,592) * lu(k,1139) - lu(k,1168) = lu(k,1168) - lu(k,593) * lu(k,1139) - lu(k,1169) = lu(k,1169) - lu(k,594) * lu(k,1139) - lu(k,1221) = lu(k,1221) - lu(k,574) * lu(k,1219) - lu(k,1223) = lu(k,1223) - lu(k,575) * lu(k,1219) - lu(k,1224) = lu(k,1224) - lu(k,576) * lu(k,1219) - lu(k,1227) = lu(k,1227) - lu(k,577) * lu(k,1219) - lu(k,1228) = lu(k,1228) - lu(k,578) * lu(k,1219) - lu(k,1230) = lu(k,1230) - lu(k,579) * lu(k,1219) - lu(k,1231) = lu(k,1231) - lu(k,580) * lu(k,1219) - lu(k,1233) = lu(k,1233) - lu(k,581) * lu(k,1219) - lu(k,1234) = lu(k,1234) - lu(k,582) * lu(k,1219) - lu(k,1235) = - lu(k,583) * lu(k,1219) - lu(k,1236) = lu(k,1236) - lu(k,584) * lu(k,1219) - lu(k,1237) = lu(k,1237) - lu(k,585) * lu(k,1219) - lu(k,1238) = lu(k,1238) - lu(k,586) * lu(k,1219) - lu(k,1239) = lu(k,1239) - lu(k,587) * lu(k,1219) - lu(k,1240) = lu(k,1240) - lu(k,588) * lu(k,1219) - lu(k,1242) = lu(k,1242) - lu(k,589) * lu(k,1219) - lu(k,1243) = lu(k,1243) - lu(k,590) * lu(k,1219) - lu(k,1244) = lu(k,1244) - lu(k,591) * lu(k,1219) - lu(k,1245) = lu(k,1245) - lu(k,592) * lu(k,1219) - lu(k,1246) = lu(k,1246) - lu(k,593) * lu(k,1219) - lu(k,1247) = lu(k,1247) - lu(k,594) * lu(k,1219) - lu(k,1263) = lu(k,1263) - lu(k,574) * lu(k,1260) - lu(k,1265) = lu(k,1265) - lu(k,575) * lu(k,1260) - lu(k,1267) = lu(k,1267) - lu(k,576) * lu(k,1260) - lu(k,1270) = lu(k,1270) - lu(k,577) * lu(k,1260) - lu(k,1271) = lu(k,1271) - lu(k,578) * lu(k,1260) - lu(k,1273) = - lu(k,579) * lu(k,1260) - lu(k,1274) = lu(k,1274) - lu(k,580) * lu(k,1260) - lu(k,1276) = - lu(k,581) * lu(k,1260) - lu(k,1277) = lu(k,1277) - lu(k,582) * lu(k,1260) - lu(k,1278) = lu(k,1278) - lu(k,583) * lu(k,1260) - lu(k,1279) = lu(k,1279) - lu(k,584) * lu(k,1260) - lu(k,1280) = lu(k,1280) - lu(k,585) * lu(k,1260) - lu(k,1281) = lu(k,1281) - lu(k,586) * lu(k,1260) - lu(k,1282) = - lu(k,587) * lu(k,1260) - lu(k,1283) = - lu(k,588) * lu(k,1260) - lu(k,1285) = lu(k,1285) - lu(k,589) * lu(k,1260) - lu(k,1286) = lu(k,1286) - lu(k,590) * lu(k,1260) - lu(k,1287) = - lu(k,591) * lu(k,1260) - lu(k,1288) = lu(k,1288) - lu(k,592) * lu(k,1260) - lu(k,1289) = lu(k,1289) - lu(k,593) * lu(k,1260) - lu(k,1290) = lu(k,1290) - lu(k,594) * lu(k,1260) - lu(k,1344) = lu(k,1344) - lu(k,574) * lu(k,1340) - lu(k,1346) = lu(k,1346) - lu(k,575) * lu(k,1340) - lu(k,1348) = lu(k,1348) - lu(k,576) * lu(k,1340) - lu(k,1351) = lu(k,1351) - lu(k,577) * lu(k,1340) - lu(k,1352) = lu(k,1352) - lu(k,578) * lu(k,1340) - lu(k,1354) = lu(k,1354) - lu(k,579) * lu(k,1340) - lu(k,1355) = lu(k,1355) - lu(k,580) * lu(k,1340) - lu(k,1357) = lu(k,1357) - lu(k,581) * lu(k,1340) - lu(k,1358) = lu(k,1358) - lu(k,582) * lu(k,1340) - lu(k,1359) = lu(k,1359) - lu(k,583) * lu(k,1340) - lu(k,1360) = lu(k,1360) - lu(k,584) * lu(k,1340) - lu(k,1361) = lu(k,1361) - lu(k,585) * lu(k,1340) - lu(k,1362) = lu(k,1362) - lu(k,586) * lu(k,1340) - lu(k,1363) = lu(k,1363) - lu(k,587) * lu(k,1340) - lu(k,1364) = - lu(k,588) * lu(k,1340) - lu(k,1366) = - lu(k,589) * lu(k,1340) - lu(k,1367) = lu(k,1367) - lu(k,590) * lu(k,1340) - lu(k,1368) = lu(k,1368) - lu(k,591) * lu(k,1340) - lu(k,1369) = lu(k,1369) - lu(k,592) * lu(k,1340) - lu(k,1370) = lu(k,1370) - lu(k,593) * lu(k,1340) - lu(k,1371) = lu(k,1371) - lu(k,594) * lu(k,1340) - lu(k,1386) = lu(k,1386) - lu(k,574) * lu(k,1383) - lu(k,1388) = lu(k,1388) - lu(k,575) * lu(k,1383) - lu(k,1390) = lu(k,1390) - lu(k,576) * lu(k,1383) - lu(k,1393) = lu(k,1393) - lu(k,577) * lu(k,1383) - lu(k,1394) = lu(k,1394) - lu(k,578) * lu(k,1383) - lu(k,1396) = - lu(k,579) * lu(k,1383) - lu(k,1397) = lu(k,1397) - lu(k,580) * lu(k,1383) - lu(k,1399) = - lu(k,581) * lu(k,1383) - lu(k,1400) = lu(k,1400) - lu(k,582) * lu(k,1383) - lu(k,1401) = lu(k,1401) - lu(k,583) * lu(k,1383) - lu(k,1402) = lu(k,1402) - lu(k,584) * lu(k,1383) - lu(k,1403) = lu(k,1403) - lu(k,585) * lu(k,1383) - lu(k,1404) = lu(k,1404) - lu(k,586) * lu(k,1383) - lu(k,1405) = - lu(k,587) * lu(k,1383) - lu(k,1406) = - lu(k,588) * lu(k,1383) - lu(k,1408) = lu(k,1408) - lu(k,589) * lu(k,1383) - lu(k,1409) = lu(k,1409) - lu(k,590) * lu(k,1383) - lu(k,1410) = - lu(k,591) * lu(k,1383) - lu(k,1411) = lu(k,1411) - lu(k,592) * lu(k,1383) - lu(k,1412) = lu(k,1412) - lu(k,593) * lu(k,1383) - lu(k,1413) = lu(k,1413) - lu(k,594) * lu(k,1383) - lu(k,1424) = lu(k,1424) - lu(k,574) * lu(k,1421) - lu(k,1426) = lu(k,1426) - lu(k,575) * lu(k,1421) - lu(k,1428) = lu(k,1428) - lu(k,576) * lu(k,1421) - lu(k,1431) = lu(k,1431) - lu(k,577) * lu(k,1421) - lu(k,1432) = lu(k,1432) - lu(k,578) * lu(k,1421) - lu(k,1434) = lu(k,1434) - lu(k,579) * lu(k,1421) - lu(k,1435) = lu(k,1435) - lu(k,580) * lu(k,1421) - lu(k,1437) = lu(k,1437) - lu(k,581) * lu(k,1421) - lu(k,1438) = lu(k,1438) - lu(k,582) * lu(k,1421) - lu(k,1439) = lu(k,1439) - lu(k,583) * lu(k,1421) - lu(k,1440) = lu(k,1440) - lu(k,584) * lu(k,1421) - lu(k,1441) = lu(k,1441) - lu(k,585) * lu(k,1421) - lu(k,1442) = lu(k,1442) - lu(k,586) * lu(k,1421) - lu(k,1443) = lu(k,1443) - lu(k,587) * lu(k,1421) - lu(k,1444) = lu(k,1444) - lu(k,588) * lu(k,1421) - lu(k,1446) = lu(k,1446) - lu(k,589) * lu(k,1421) - lu(k,1447) = lu(k,1447) - lu(k,590) * lu(k,1421) - lu(k,1448) = lu(k,1448) - lu(k,591) * lu(k,1421) - lu(k,1449) = lu(k,1449) - lu(k,592) * lu(k,1421) - lu(k,1450) = lu(k,1450) - lu(k,593) * lu(k,1421) - lu(k,1451) = lu(k,1451) - lu(k,594) * lu(k,1421) - lu(k,1469) = lu(k,1469) - lu(k,574) * lu(k,1465) - lu(k,1471) = lu(k,1471) - lu(k,575) * lu(k,1465) - lu(k,1473) = lu(k,1473) - lu(k,576) * lu(k,1465) - lu(k,1476) = lu(k,1476) - lu(k,577) * lu(k,1465) - lu(k,1477) = lu(k,1477) - lu(k,578) * lu(k,1465) - lu(k,1479) = lu(k,1479) - lu(k,579) * lu(k,1465) - lu(k,1480) = lu(k,1480) - lu(k,580) * lu(k,1465) - lu(k,1482) = lu(k,1482) - lu(k,581) * lu(k,1465) - lu(k,1483) = lu(k,1483) - lu(k,582) * lu(k,1465) - lu(k,1484) = lu(k,1484) - lu(k,583) * lu(k,1465) - lu(k,1485) = lu(k,1485) - lu(k,584) * lu(k,1465) - lu(k,1486) = lu(k,1486) - lu(k,585) * lu(k,1465) - lu(k,1487) = lu(k,1487) - lu(k,586) * lu(k,1465) - lu(k,1488) = lu(k,1488) - lu(k,587) * lu(k,1465) - lu(k,1489) = lu(k,1489) - lu(k,588) * lu(k,1465) - lu(k,1491) = lu(k,1491) - lu(k,589) * lu(k,1465) - lu(k,1492) = lu(k,1492) - lu(k,590) * lu(k,1465) - lu(k,1493) = lu(k,1493) - lu(k,591) * lu(k,1465) - lu(k,1494) = lu(k,1494) - lu(k,592) * lu(k,1465) - lu(k,1495) = lu(k,1495) - lu(k,593) * lu(k,1465) - lu(k,1496) = lu(k,1496) - lu(k,594) * lu(k,1465) - lu(k,1512) = lu(k,1512) - lu(k,574) * lu(k,1508) - lu(k,1514) = lu(k,1514) - lu(k,575) * lu(k,1508) - lu(k,1516) = - lu(k,576) * lu(k,1508) - lu(k,1519) = lu(k,1519) - lu(k,577) * lu(k,1508) - lu(k,1520) = lu(k,1520) - lu(k,578) * lu(k,1508) - lu(k,1522) = lu(k,1522) - lu(k,579) * lu(k,1508) - lu(k,1523) = lu(k,1523) - lu(k,580) * lu(k,1508) - lu(k,1525) = lu(k,1525) - lu(k,581) * lu(k,1508) - lu(k,1526) = lu(k,1526) - lu(k,582) * lu(k,1508) - lu(k,1527) = lu(k,1527) - lu(k,583) * lu(k,1508) - lu(k,1528) = - lu(k,584) * lu(k,1508) - lu(k,1529) = lu(k,1529) - lu(k,585) * lu(k,1508) - lu(k,1530) = lu(k,1530) - lu(k,586) * lu(k,1508) - lu(k,1531) = lu(k,1531) - lu(k,587) * lu(k,1508) - lu(k,1532) = lu(k,1532) - lu(k,588) * lu(k,1508) - lu(k,1534) = lu(k,1534) - lu(k,589) * lu(k,1508) - lu(k,1535) = lu(k,1535) - lu(k,590) * lu(k,1508) - lu(k,1536) = lu(k,1536) - lu(k,591) * lu(k,1508) - lu(k,1537) = lu(k,1537) - lu(k,592) * lu(k,1508) - lu(k,1538) = lu(k,1538) - lu(k,593) * lu(k,1508) - lu(k,1539) = lu(k,1539) - lu(k,594) * lu(k,1508) - lu(k,1624) = lu(k,1624) - lu(k,574) * lu(k,1621) - lu(k,1626) = lu(k,1626) - lu(k,575) * lu(k,1621) - lu(k,1628) = lu(k,1628) - lu(k,576) * lu(k,1621) - lu(k,1631) = lu(k,1631) - lu(k,577) * lu(k,1621) - lu(k,1632) = lu(k,1632) - lu(k,578) * lu(k,1621) - lu(k,1634) = lu(k,1634) - lu(k,579) * lu(k,1621) - lu(k,1635) = lu(k,1635) - lu(k,580) * lu(k,1621) - lu(k,1637) = lu(k,1637) - lu(k,581) * lu(k,1621) - lu(k,1638) = lu(k,1638) - lu(k,582) * lu(k,1621) - lu(k,1639) = lu(k,1639) - lu(k,583) * lu(k,1621) - lu(k,1640) = lu(k,1640) - lu(k,584) * lu(k,1621) - lu(k,1641) = lu(k,1641) - lu(k,585) * lu(k,1621) - lu(k,1642) = lu(k,1642) - lu(k,586) * lu(k,1621) - lu(k,1643) = lu(k,1643) - lu(k,587) * lu(k,1621) - lu(k,1644) = lu(k,1644) - lu(k,588) * lu(k,1621) - lu(k,1646) = lu(k,1646) - lu(k,589) * lu(k,1621) - lu(k,1647) = lu(k,1647) - lu(k,590) * lu(k,1621) - lu(k,1648) = lu(k,1648) - lu(k,591) * lu(k,1621) - lu(k,1649) = lu(k,1649) - lu(k,592) * lu(k,1621) - lu(k,1650) = lu(k,1650) - lu(k,593) * lu(k,1621) - lu(k,1651) = lu(k,1651) - lu(k,594) * lu(k,1621) - lu(k,1667) = lu(k,1667) - lu(k,574) * lu(k,1663) - lu(k,1669) = lu(k,1669) - lu(k,575) * lu(k,1663) - lu(k,1671) = - lu(k,576) * lu(k,1663) - lu(k,1674) = lu(k,1674) - lu(k,577) * lu(k,1663) - lu(k,1675) = lu(k,1675) - lu(k,578) * lu(k,1663) - lu(k,1677) = lu(k,1677) - lu(k,579) * lu(k,1663) - lu(k,1678) = lu(k,1678) - lu(k,580) * lu(k,1663) - lu(k,1680) = lu(k,1680) - lu(k,581) * lu(k,1663) - lu(k,1681) = lu(k,1681) - lu(k,582) * lu(k,1663) - lu(k,1682) = lu(k,1682) - lu(k,583) * lu(k,1663) - lu(k,1683) = - lu(k,584) * lu(k,1663) - lu(k,1684) = lu(k,1684) - lu(k,585) * lu(k,1663) - lu(k,1685) = lu(k,1685) - lu(k,586) * lu(k,1663) - lu(k,1686) = lu(k,1686) - lu(k,587) * lu(k,1663) - lu(k,1687) = lu(k,1687) - lu(k,588) * lu(k,1663) - lu(k,1689) = lu(k,1689) - lu(k,589) * lu(k,1663) - lu(k,1690) = lu(k,1690) - lu(k,590) * lu(k,1663) - lu(k,1691) = lu(k,1691) - lu(k,591) * lu(k,1663) - lu(k,1692) = lu(k,1692) - lu(k,592) * lu(k,1663) - lu(k,1693) = lu(k,1693) - lu(k,593) * lu(k,1663) - lu(k,1694) = lu(k,1694) - lu(k,594) * lu(k,1663) - lu(k,1703) = lu(k,1703) - lu(k,574) * lu(k,1699) - lu(k,1705) = lu(k,1705) - lu(k,575) * lu(k,1699) - lu(k,1707) = lu(k,1707) - lu(k,576) * lu(k,1699) - lu(k,1710) = lu(k,1710) - lu(k,577) * lu(k,1699) - lu(k,1711) = lu(k,1711) - lu(k,578) * lu(k,1699) - lu(k,1713) = lu(k,1713) - lu(k,579) * lu(k,1699) - lu(k,1714) = lu(k,1714) - lu(k,580) * lu(k,1699) - lu(k,1716) = lu(k,1716) - lu(k,581) * lu(k,1699) - lu(k,1717) = lu(k,1717) - lu(k,582) * lu(k,1699) - lu(k,1718) = lu(k,1718) - lu(k,583) * lu(k,1699) - lu(k,1719) = - lu(k,584) * lu(k,1699) - lu(k,1720) = lu(k,1720) - lu(k,585) * lu(k,1699) - lu(k,1721) = lu(k,1721) - lu(k,586) * lu(k,1699) - lu(k,1722) = lu(k,1722) - lu(k,587) * lu(k,1699) - lu(k,1723) = lu(k,1723) - lu(k,588) * lu(k,1699) - lu(k,1725) = lu(k,1725) - lu(k,589) * lu(k,1699) - lu(k,1726) = lu(k,1726) - lu(k,590) * lu(k,1699) - lu(k,1727) = lu(k,1727) - lu(k,591) * lu(k,1699) - lu(k,1728) = lu(k,1728) - lu(k,592) * lu(k,1699) - lu(k,1729) = lu(k,1729) - lu(k,593) * lu(k,1699) - lu(k,1730) = lu(k,1730) - lu(k,594) * lu(k,1699) - lu(k,1745) = lu(k,1745) - lu(k,574) * lu(k,1742) - lu(k,1747) = lu(k,1747) - lu(k,575) * lu(k,1742) - lu(k,1749) = lu(k,1749) - lu(k,576) * lu(k,1742) - lu(k,1752) = lu(k,1752) - lu(k,577) * lu(k,1742) - lu(k,1753) = lu(k,1753) - lu(k,578) * lu(k,1742) - lu(k,1755) = lu(k,1755) - lu(k,579) * lu(k,1742) - lu(k,1756) = lu(k,1756) - lu(k,580) * lu(k,1742) - lu(k,1758) = lu(k,1758) - lu(k,581) * lu(k,1742) - lu(k,1759) = lu(k,1759) - lu(k,582) * lu(k,1742) - lu(k,1760) = lu(k,1760) - lu(k,583) * lu(k,1742) - lu(k,1761) = lu(k,1761) - lu(k,584) * lu(k,1742) - lu(k,1762) = lu(k,1762) - lu(k,585) * lu(k,1742) - lu(k,1763) = lu(k,1763) - lu(k,586) * lu(k,1742) - lu(k,1764) = lu(k,1764) - lu(k,587) * lu(k,1742) - lu(k,1765) = lu(k,1765) - lu(k,588) * lu(k,1742) - lu(k,1767) = lu(k,1767) - lu(k,589) * lu(k,1742) - lu(k,1768) = lu(k,1768) - lu(k,590) * lu(k,1742) - lu(k,1769) = lu(k,1769) - lu(k,591) * lu(k,1742) - lu(k,1770) = lu(k,1770) - lu(k,592) * lu(k,1742) - lu(k,1771) = lu(k,1771) - lu(k,593) * lu(k,1742) - lu(k,1772) = lu(k,1772) - lu(k,594) * lu(k,1742) - lu(k,1798) = lu(k,1798) - lu(k,574) * lu(k,1795) - lu(k,1800) = lu(k,1800) - lu(k,575) * lu(k,1795) - lu(k,1802) = lu(k,1802) - lu(k,576) * lu(k,1795) - lu(k,1805) = lu(k,1805) - lu(k,577) * lu(k,1795) - lu(k,1806) = lu(k,1806) - lu(k,578) * lu(k,1795) - lu(k,1808) = lu(k,1808) - lu(k,579) * lu(k,1795) - lu(k,1809) = lu(k,1809) - lu(k,580) * lu(k,1795) - lu(k,1811) = lu(k,1811) - lu(k,581) * lu(k,1795) - lu(k,1812) = lu(k,1812) - lu(k,582) * lu(k,1795) - lu(k,1813) = lu(k,1813) - lu(k,583) * lu(k,1795) - lu(k,1814) = lu(k,1814) - lu(k,584) * lu(k,1795) - lu(k,1815) = lu(k,1815) - lu(k,585) * lu(k,1795) - lu(k,1816) = lu(k,1816) - lu(k,586) * lu(k,1795) - lu(k,1817) = lu(k,1817) - lu(k,587) * lu(k,1795) - lu(k,1818) = lu(k,1818) - lu(k,588) * lu(k,1795) - lu(k,1820) = lu(k,1820) - lu(k,589) * lu(k,1795) - lu(k,1821) = lu(k,1821) - lu(k,590) * lu(k,1795) - lu(k,1822) = lu(k,1822) - lu(k,591) * lu(k,1795) - lu(k,1823) = lu(k,1823) - lu(k,592) * lu(k,1795) - lu(k,1824) = lu(k,1824) - lu(k,593) * lu(k,1795) - lu(k,1825) = lu(k,1825) - lu(k,594) * lu(k,1795) - end do + real(r8), intent(inout) :: lu(:) + lu(583) = 1._r8 / lu(583) + lu(584) = lu(584) * lu(583) + lu(585) = lu(585) * lu(583) + lu(586) = lu(586) * lu(583) + lu(587) = lu(587) * lu(583) + lu(588) = lu(588) * lu(583) + lu(589) = lu(589) * lu(583) + lu(590) = lu(590) * lu(583) + lu(591) = lu(591) * lu(583) + lu(592) = lu(592) * lu(583) + lu(593) = lu(593) * lu(583) + lu(594) = lu(594) * lu(583) + lu(595) = lu(595) * lu(583) + lu(596) = lu(596) * lu(583) + lu(597) = lu(597) * lu(583) + lu(598) = lu(598) * lu(583) + lu(599) = lu(599) * lu(583) + lu(600) = lu(600) * lu(583) + lu(601) = lu(601) * lu(583) + lu(602) = lu(602) * lu(583) + lu(603) = lu(603) * lu(583) + lu(604) = lu(604) * lu(583) + lu(605) = lu(605) * lu(583) + lu(606) = lu(606) * lu(583) + lu(607) = lu(607) * lu(583) + lu(608) = lu(608) * lu(583) + lu(609) = lu(609) * lu(583) + lu(610) = lu(610) * lu(583) + lu(811) = lu(811) - lu(584) * lu(810) + lu(812) = lu(812) - lu(585) * lu(810) + lu(813) = lu(813) - lu(586) * lu(810) + lu(814) = lu(814) - lu(587) * lu(810) + lu(815) = lu(815) - lu(588) * lu(810) + lu(816) = lu(816) - lu(589) * lu(810) + lu(817) = lu(817) - lu(590) * lu(810) + lu(818) = lu(818) - lu(591) * lu(810) + lu(819) = lu(819) - lu(592) * lu(810) + lu(820) = lu(820) - lu(593) * lu(810) + lu(821) = lu(821) - lu(594) * lu(810) + lu(822) = lu(822) - lu(595) * lu(810) + lu(823) = lu(823) - lu(596) * lu(810) + lu(824) = lu(824) - lu(597) * lu(810) + lu(825) = lu(825) - lu(598) * lu(810) + lu(826) = lu(826) - lu(599) * lu(810) + lu(827) = lu(827) - lu(600) * lu(810) + lu(828) = lu(828) - lu(601) * lu(810) + lu(829) = lu(829) - lu(602) * lu(810) + lu(830) = lu(830) - lu(603) * lu(810) + lu(831) = lu(831) - lu(604) * lu(810) + lu(832) = lu(832) - lu(605) * lu(810) + lu(833) = lu(833) - lu(606) * lu(810) + lu(834) = lu(834) - lu(607) * lu(810) + lu(835) = lu(835) - lu(608) * lu(810) + lu(836) = lu(836) - lu(609) * lu(810) + lu(839) = lu(839) - lu(610) * lu(810) + lu(853) = lu(853) - lu(584) * lu(852) + lu(854) = lu(854) - lu(585) * lu(852) + lu(855) = - lu(586) * lu(852) + lu(856) = lu(856) - lu(587) * lu(852) + lu(857) = lu(857) - lu(588) * lu(852) + lu(858) = lu(858) - lu(589) * lu(852) + lu(859) = lu(859) - lu(590) * lu(852) + lu(860) = lu(860) - lu(591) * lu(852) + lu(861) = lu(861) - lu(592) * lu(852) + lu(862) = lu(862) - lu(593) * lu(852) + lu(863) = lu(863) - lu(594) * lu(852) + lu(864) = lu(864) - lu(595) * lu(852) + lu(865) = lu(865) - lu(596) * lu(852) + lu(866) = - lu(597) * lu(852) + lu(867) = lu(867) - lu(598) * lu(852) + lu(868) = lu(868) - lu(599) * lu(852) + lu(869) = lu(869) - lu(600) * lu(852) + lu(870) = lu(870) - lu(601) * lu(852) + lu(871) = lu(871) - lu(602) * lu(852) + lu(872) = lu(872) - lu(603) * lu(852) + lu(873) = lu(873) - lu(604) * lu(852) + lu(874) = lu(874) - lu(605) * lu(852) + lu(875) = lu(875) - lu(606) * lu(852) + lu(876) = - lu(607) * lu(852) + lu(877) = - lu(608) * lu(852) + lu(878) = - lu(609) * lu(852) + lu(881) = lu(881) - lu(610) * lu(852) + lu(897) = lu(897) - lu(584) * lu(896) + lu(898) = lu(898) - lu(585) * lu(896) + lu(899) = lu(899) - lu(586) * lu(896) + lu(900) = lu(900) - lu(587) * lu(896) + lu(901) = - lu(588) * lu(896) + lu(902) = lu(902) - lu(589) * lu(896) + lu(903) = lu(903) - lu(590) * lu(896) + lu(904) = lu(904) - lu(591) * lu(896) + lu(905) = lu(905) - lu(592) * lu(896) + lu(906) = lu(906) - lu(593) * lu(896) + lu(907) = lu(907) - lu(594) * lu(896) + lu(908) = lu(908) - lu(595) * lu(896) + lu(909) = lu(909) - lu(596) * lu(896) + lu(910) = lu(910) - lu(597) * lu(896) + lu(911) = lu(911) - lu(598) * lu(896) + lu(912) = lu(912) - lu(599) * lu(896) + lu(913) = lu(913) - lu(600) * lu(896) + lu(914) = lu(914) - lu(601) * lu(896) + lu(915) = lu(915) - lu(602) * lu(896) + lu(916) = lu(916) - lu(603) * lu(896) + lu(917) = lu(917) - lu(604) * lu(896) + lu(918) = lu(918) - lu(605) * lu(896) + lu(919) = lu(919) - lu(606) * lu(896) + lu(920) = lu(920) - lu(607) * lu(896) + lu(921) = lu(921) - lu(608) * lu(896) + lu(922) = lu(922) - lu(609) * lu(896) + lu(925) = lu(925) - lu(610) * lu(896) + lu(932) = lu(932) - lu(584) * lu(931) + lu(933) = lu(933) - lu(585) * lu(931) + lu(934) = lu(934) - lu(586) * lu(931) + lu(935) = lu(935) - lu(587) * lu(931) + lu(936) = lu(936) - lu(588) * lu(931) + lu(937) = lu(937) - lu(589) * lu(931) + lu(938) = - lu(590) * lu(931) + lu(939) = - lu(591) * lu(931) + lu(940) = lu(940) - lu(592) * lu(931) + lu(941) = lu(941) - lu(593) * lu(931) + lu(942) = lu(942) - lu(594) * lu(931) + lu(943) = lu(943) - lu(595) * lu(931) + lu(944) = lu(944) - lu(596) * lu(931) + lu(945) = lu(945) - lu(597) * lu(931) + lu(946) = lu(946) - lu(598) * lu(931) + lu(947) = lu(947) - lu(599) * lu(931) + lu(948) = lu(948) - lu(600) * lu(931) + lu(949) = lu(949) - lu(601) * lu(931) + lu(950) = lu(950) - lu(602) * lu(931) + lu(951) = - lu(603) * lu(931) + lu(952) = lu(952) - lu(604) * lu(931) + lu(953) = - lu(605) * lu(931) + lu(954) = lu(954) - lu(606) * lu(931) + lu(955) = lu(955) - lu(607) * lu(931) + lu(956) = lu(956) - lu(608) * lu(931) + lu(957) = lu(957) - lu(609) * lu(931) + lu(960) = lu(960) - lu(610) * lu(931) + lu(973) = lu(973) - lu(584) * lu(972) + lu(974) = lu(974) - lu(585) * lu(972) + lu(975) = lu(975) - lu(586) * lu(972) + lu(976) = lu(976) - lu(587) * lu(972) + lu(977) = lu(977) - lu(588) * lu(972) + lu(978) = lu(978) - lu(589) * lu(972) + lu(979) = lu(979) - lu(590) * lu(972) + lu(980) = lu(980) - lu(591) * lu(972) + lu(981) = lu(981) - lu(592) * lu(972) + lu(982) = lu(982) - lu(593) * lu(972) + lu(983) = lu(983) - lu(594) * lu(972) + lu(984) = lu(984) - lu(595) * lu(972) + lu(985) = lu(985) - lu(596) * lu(972) + lu(986) = - lu(597) * lu(972) + lu(987) = lu(987) - lu(598) * lu(972) + lu(988) = lu(988) - lu(599) * lu(972) + lu(989) = lu(989) - lu(600) * lu(972) + lu(990) = lu(990) - lu(601) * lu(972) + lu(991) = lu(991) - lu(602) * lu(972) + lu(992) = lu(992) - lu(603) * lu(972) + lu(993) = lu(993) - lu(604) * lu(972) + lu(994) = lu(994) - lu(605) * lu(972) + lu(995) = lu(995) - lu(606) * lu(972) + lu(996) = - lu(607) * lu(972) + lu(997) = - lu(608) * lu(972) + lu(998) = - lu(609) * lu(972) + lu(1001) = lu(1001) - lu(610) * lu(972) + lu(1015) = lu(1015) - lu(584) * lu(1014) + lu(1016) = lu(1016) - lu(585) * lu(1014) + lu(1017) = - lu(586) * lu(1014) + lu(1018) = lu(1018) - lu(587) * lu(1014) + lu(1019) = lu(1019) - lu(588) * lu(1014) + lu(1020) = lu(1020) - lu(589) * lu(1014) + lu(1021) = lu(1021) - lu(590) * lu(1014) + lu(1022) = lu(1022) - lu(591) * lu(1014) + lu(1023) = lu(1023) - lu(592) * lu(1014) + lu(1024) = lu(1024) - lu(593) * lu(1014) + lu(1025) = lu(1025) - lu(594) * lu(1014) + lu(1026) = lu(1026) - lu(595) * lu(1014) + lu(1027) = lu(1027) - lu(596) * lu(1014) + lu(1028) = - lu(597) * lu(1014) + lu(1029) = lu(1029) - lu(598) * lu(1014) + lu(1030) = lu(1030) - lu(599) * lu(1014) + lu(1031) = lu(1031) - lu(600) * lu(1014) + lu(1032) = lu(1032) - lu(601) * lu(1014) + lu(1033) = lu(1033) - lu(602) * lu(1014) + lu(1034) = lu(1034) - lu(603) * lu(1014) + lu(1035) = lu(1035) - lu(604) * lu(1014) + lu(1036) = lu(1036) - lu(605) * lu(1014) + lu(1037) = lu(1037) - lu(606) * lu(1014) + lu(1038) = - lu(607) * lu(1014) + lu(1039) = - lu(608) * lu(1014) + lu(1040) = - lu(609) * lu(1014) + lu(1043) = lu(1043) - lu(610) * lu(1014) + lu(1101) = lu(1101) - lu(584) * lu(1100) + lu(1102) = - lu(585) * lu(1100) + lu(1103) = lu(1103) - lu(586) * lu(1100) + lu(1104) = lu(1104) - lu(587) * lu(1100) + lu(1105) = lu(1105) - lu(588) * lu(1100) + lu(1106) = lu(1106) - lu(589) * lu(1100) + lu(1107) = - lu(590) * lu(1100) + lu(1108) = - lu(591) * lu(1100) + lu(1109) = lu(1109) - lu(592) * lu(1100) + lu(1110) = lu(1110) - lu(593) * lu(1100) + lu(1111) = - lu(594) * lu(1100) + lu(1112) = lu(1112) - lu(595) * lu(1100) + lu(1113) = lu(1113) - lu(596) * lu(1100) + lu(1114) = lu(1114) - lu(597) * lu(1100) + lu(1115) = lu(1115) - lu(598) * lu(1100) + lu(1116) = lu(1116) - lu(599) * lu(1100) + lu(1117) = lu(1117) - lu(600) * lu(1100) + lu(1118) = lu(1118) - lu(601) * lu(1100) + lu(1119) = lu(1119) - lu(602) * lu(1100) + lu(1120) = - lu(603) * lu(1100) + lu(1121) = lu(1121) - lu(604) * lu(1100) + lu(1122) = - lu(605) * lu(1100) + lu(1123) = lu(1123) - lu(606) * lu(1100) + lu(1124) = lu(1124) - lu(607) * lu(1100) + lu(1125) = lu(1125) - lu(608) * lu(1100) + lu(1126) = lu(1126) - lu(609) * lu(1100) + lu(1129) = lu(1129) - lu(610) * lu(1100) + lu(1144) = - lu(584) * lu(1143) + lu(1145) = lu(1145) - lu(585) * lu(1143) + lu(1146) = lu(1146) - lu(586) * lu(1143) + lu(1147) = lu(1147) - lu(587) * lu(1143) + lu(1148) = lu(1148) - lu(588) * lu(1143) + lu(1149) = lu(1149) - lu(589) * lu(1143) + lu(1150) = lu(1150) - lu(590) * lu(1143) + lu(1151) = - lu(591) * lu(1143) + lu(1152) = lu(1152) - lu(592) * lu(1143) + lu(1153) = lu(1153) - lu(593) * lu(1143) + lu(1154) = - lu(594) * lu(1143) + lu(1155) = lu(1155) - lu(595) * lu(1143) + lu(1156) = lu(1156) - lu(596) * lu(1143) + lu(1157) = lu(1157) - lu(597) * lu(1143) + lu(1158) = lu(1158) - lu(598) * lu(1143) + lu(1159) = lu(1159) - lu(599) * lu(1143) + lu(1160) = lu(1160) - lu(600) * lu(1143) + lu(1161) = lu(1161) - lu(601) * lu(1143) + lu(1162) = lu(1162) - lu(602) * lu(1143) + lu(1163) = - lu(603) * lu(1143) + lu(1164) = lu(1164) - lu(604) * lu(1143) + lu(1165) = - lu(605) * lu(1143) + lu(1166) = lu(1166) - lu(606) * lu(1143) + lu(1167) = lu(1167) - lu(607) * lu(1143) + lu(1168) = lu(1168) - lu(608) * lu(1143) + lu(1169) = lu(1169) - lu(609) * lu(1143) + lu(1172) = lu(1172) - lu(610) * lu(1143) + lu(1186) = lu(1186) - lu(584) * lu(1185) + lu(1187) = - lu(585) * lu(1185) + lu(1188) = lu(1188) - lu(586) * lu(1185) + lu(1189) = lu(1189) - lu(587) * lu(1185) + lu(1190) = lu(1190) - lu(588) * lu(1185) + lu(1191) = lu(1191) - lu(589) * lu(1185) + lu(1192) = - lu(590) * lu(1185) + lu(1193) = - lu(591) * lu(1185) + lu(1194) = lu(1194) - lu(592) * lu(1185) + lu(1195) = lu(1195) - lu(593) * lu(1185) + lu(1196) = - lu(594) * lu(1185) + lu(1197) = lu(1197) - lu(595) * lu(1185) + lu(1198) = lu(1198) - lu(596) * lu(1185) + lu(1199) = lu(1199) - lu(597) * lu(1185) + lu(1200) = lu(1200) - lu(598) * lu(1185) + lu(1201) = lu(1201) - lu(599) * lu(1185) + lu(1202) = lu(1202) - lu(600) * lu(1185) + lu(1203) = lu(1203) - lu(601) * lu(1185) + lu(1204) = lu(1204) - lu(602) * lu(1185) + lu(1205) = - lu(603) * lu(1185) + lu(1206) = lu(1206) - lu(604) * lu(1185) + lu(1207) = - lu(605) * lu(1185) + lu(1208) = lu(1208) - lu(606) * lu(1185) + lu(1209) = lu(1209) - lu(607) * lu(1185) + lu(1210) = lu(1210) - lu(608) * lu(1185) + lu(1211) = lu(1211) - lu(609) * lu(1185) + lu(1214) = lu(1214) - lu(610) * lu(1185) + lu(1221) = lu(1221) - lu(584) * lu(1220) + lu(1222) = lu(1222) - lu(585) * lu(1220) + lu(1223) = lu(1223) - lu(586) * lu(1220) + lu(1224) = lu(1224) - lu(587) * lu(1220) + lu(1225) = lu(1225) - lu(588) * lu(1220) + lu(1226) = lu(1226) - lu(589) * lu(1220) + lu(1227) = lu(1227) - lu(590) * lu(1220) + lu(1228) = lu(1228) - lu(591) * lu(1220) + lu(1229) = lu(1229) - lu(592) * lu(1220) + lu(1230) = lu(1230) - lu(593) * lu(1220) + lu(1231) = lu(1231) - lu(594) * lu(1220) + lu(1232) = lu(1232) - lu(595) * lu(1220) + lu(1233) = lu(1233) - lu(596) * lu(1220) + lu(1234) = lu(1234) - lu(597) * lu(1220) + lu(1235) = lu(1235) - lu(598) * lu(1220) + lu(1236) = lu(1236) - lu(599) * lu(1220) + lu(1237) = lu(1237) - lu(600) * lu(1220) + lu(1238) = lu(1238) - lu(601) * lu(1220) + lu(1239) = lu(1239) - lu(602) * lu(1220) + lu(1240) = lu(1240) - lu(603) * lu(1220) + lu(1241) = lu(1241) - lu(604) * lu(1220) + lu(1242) = lu(1242) - lu(605) * lu(1220) + lu(1243) = lu(1243) - lu(606) * lu(1220) + lu(1244) = lu(1244) - lu(607) * lu(1220) + lu(1245) = lu(1245) - lu(608) * lu(1220) + lu(1246) = lu(1246) - lu(609) * lu(1220) + lu(1249) = lu(1249) - lu(610) * lu(1220) + lu(1265) = lu(1265) - lu(584) * lu(1264) + lu(1266) = lu(1266) - lu(585) * lu(1264) + lu(1267) = lu(1267) - lu(586) * lu(1264) + lu(1268) = lu(1268) - lu(587) * lu(1264) + lu(1269) = lu(1269) - lu(588) * lu(1264) + lu(1270) = lu(1270) - lu(589) * lu(1264) + lu(1271) = lu(1271) - lu(590) * lu(1264) + lu(1272) = lu(1272) - lu(591) * lu(1264) + lu(1273) = lu(1273) - lu(592) * lu(1264) + lu(1274) = lu(1274) - lu(593) * lu(1264) + lu(1275) = lu(1275) - lu(594) * lu(1264) + lu(1276) = lu(1276) - lu(595) * lu(1264) + lu(1277) = lu(1277) - lu(596) * lu(1264) + lu(1278) = lu(1278) - lu(597) * lu(1264) + lu(1279) = lu(1279) - lu(598) * lu(1264) + lu(1280) = lu(1280) - lu(599) * lu(1264) + lu(1281) = lu(1281) - lu(600) * lu(1264) + lu(1282) = lu(1282) - lu(601) * lu(1264) + lu(1283) = lu(1283) - lu(602) * lu(1264) + lu(1284) = lu(1284) - lu(603) * lu(1264) + lu(1285) = lu(1285) - lu(604) * lu(1264) + lu(1286) = lu(1286) - lu(605) * lu(1264) + lu(1287) = lu(1287) - lu(606) * lu(1264) + lu(1288) = lu(1288) - lu(607) * lu(1264) + lu(1289) = lu(1289) - lu(608) * lu(1264) + lu(1290) = lu(1290) - lu(609) * lu(1264) + lu(1293) = lu(1293) - lu(610) * lu(1264) + lu(1348) = lu(1348) - lu(584) * lu(1347) + lu(1349) = lu(1349) - lu(585) * lu(1347) + lu(1350) = - lu(586) * lu(1347) + lu(1351) = lu(1351) - lu(587) * lu(1347) + lu(1352) = lu(1352) - lu(588) * lu(1347) + lu(1353) = lu(1353) - lu(589) * lu(1347) + lu(1354) = lu(1354) - lu(590) * lu(1347) + lu(1355) = lu(1355) - lu(591) * lu(1347) + lu(1356) = lu(1356) - lu(592) * lu(1347) + lu(1357) = lu(1357) - lu(593) * lu(1347) + lu(1358) = lu(1358) - lu(594) * lu(1347) + lu(1359) = lu(1359) - lu(595) * lu(1347) + lu(1360) = lu(1360) - lu(596) * lu(1347) + lu(1361) = - lu(597) * lu(1347) + lu(1362) = lu(1362) - lu(598) * lu(1347) + lu(1363) = lu(1363) - lu(599) * lu(1347) + lu(1364) = lu(1364) - lu(600) * lu(1347) + lu(1365) = lu(1365) - lu(601) * lu(1347) + lu(1366) = lu(1366) - lu(602) * lu(1347) + lu(1367) = lu(1367) - lu(603) * lu(1347) + lu(1368) = lu(1368) - lu(604) * lu(1347) + lu(1369) = lu(1369) - lu(605) * lu(1347) + lu(1370) = lu(1370) - lu(606) * lu(1347) + lu(1371) = - lu(607) * lu(1347) + lu(1372) = - lu(608) * lu(1347) + lu(1373) = - lu(609) * lu(1347) + lu(1376) = lu(1376) - lu(610) * lu(1347) + lu(1432) = lu(1432) - lu(584) * lu(1431) + lu(1433) = lu(1433) - lu(585) * lu(1431) + lu(1434) = - lu(586) * lu(1431) + lu(1435) = lu(1435) - lu(587) * lu(1431) + lu(1436) = lu(1436) - lu(588) * lu(1431) + lu(1437) = lu(1437) - lu(589) * lu(1431) + lu(1438) = lu(1438) - lu(590) * lu(1431) + lu(1439) = lu(1439) - lu(591) * lu(1431) + lu(1440) = lu(1440) - lu(592) * lu(1431) + lu(1441) = lu(1441) - lu(593) * lu(1431) + lu(1442) = lu(1442) - lu(594) * lu(1431) + lu(1443) = lu(1443) - lu(595) * lu(1431) + lu(1444) = lu(1444) - lu(596) * lu(1431) + lu(1445) = - lu(597) * lu(1431) + lu(1446) = lu(1446) - lu(598) * lu(1431) + lu(1447) = lu(1447) - lu(599) * lu(1431) + lu(1448) = lu(1448) - lu(600) * lu(1431) + lu(1449) = lu(1449) - lu(601) * lu(1431) + lu(1450) = lu(1450) - lu(602) * lu(1431) + lu(1451) = lu(1451) - lu(603) * lu(1431) + lu(1452) = lu(1452) - lu(604) * lu(1431) + lu(1453) = lu(1453) - lu(605) * lu(1431) + lu(1454) = lu(1454) - lu(606) * lu(1431) + lu(1455) = - lu(607) * lu(1431) + lu(1456) = - lu(608) * lu(1431) + lu(1457) = - lu(609) * lu(1431) + lu(1460) = lu(1460) - lu(610) * lu(1431) + lu(1487) = lu(1487) - lu(584) * lu(1486) + lu(1488) = lu(1488) - lu(585) * lu(1486) + lu(1489) = lu(1489) - lu(586) * lu(1486) + lu(1490) = lu(1490) - lu(587) * lu(1486) + lu(1491) = lu(1491) - lu(588) * lu(1486) + lu(1492) = lu(1492) - lu(589) * lu(1486) + lu(1493) = lu(1493) - lu(590) * lu(1486) + lu(1494) = - lu(591) * lu(1486) + lu(1495) = lu(1495) - lu(592) * lu(1486) + lu(1496) = lu(1496) - lu(593) * lu(1486) + lu(1497) = - lu(594) * lu(1486) + lu(1498) = lu(1498) - lu(595) * lu(1486) + lu(1499) = lu(1499) - lu(596) * lu(1486) + lu(1500) = lu(1500) - lu(597) * lu(1486) + lu(1501) = lu(1501) - lu(598) * lu(1486) + lu(1502) = lu(1502) - lu(599) * lu(1486) + lu(1503) = lu(1503) - lu(600) * lu(1486) + lu(1504) = lu(1504) - lu(601) * lu(1486) + lu(1505) = lu(1505) - lu(602) * lu(1486) + lu(1506) = - lu(603) * lu(1486) + lu(1507) = lu(1507) - lu(604) * lu(1486) + lu(1508) = - lu(605) * lu(1486) + lu(1509) = lu(1509) - lu(606) * lu(1486) + lu(1510) = lu(1510) - lu(607) * lu(1486) + lu(1511) = lu(1511) - lu(608) * lu(1486) + lu(1512) = lu(1512) - lu(609) * lu(1486) + lu(1515) = lu(1515) - lu(610) * lu(1486) + lu(1592) = - lu(584) * lu(1591) + lu(1593) = lu(1593) - lu(585) * lu(1591) + lu(1594) = lu(1594) - lu(586) * lu(1591) + lu(1595) = lu(1595) - lu(587) * lu(1591) + lu(1596) = lu(1596) - lu(588) * lu(1591) + lu(1597) = lu(1597) - lu(589) * lu(1591) + lu(1598) = - lu(590) * lu(1591) + lu(1599) = - lu(591) * lu(1591) + lu(1600) = lu(1600) - lu(592) * lu(1591) + lu(1601) = lu(1601) - lu(593) * lu(1591) + lu(1602) = - lu(594) * lu(1591) + lu(1603) = lu(1603) - lu(595) * lu(1591) + lu(1604) = lu(1604) - lu(596) * lu(1591) + lu(1605) = lu(1605) - lu(597) * lu(1591) + lu(1606) = lu(1606) - lu(598) * lu(1591) + lu(1607) = lu(1607) - lu(599) * lu(1591) + lu(1608) = lu(1608) - lu(600) * lu(1591) + lu(1609) = lu(1609) - lu(601) * lu(1591) + lu(1610) = lu(1610) - lu(602) * lu(1591) + lu(1611) = - lu(603) * lu(1591) + lu(1612) = lu(1612) - lu(604) * lu(1591) + lu(1613) = - lu(605) * lu(1591) + lu(1614) = lu(1614) - lu(606) * lu(1591) + lu(1615) = lu(1615) - lu(607) * lu(1591) + lu(1616) = lu(1616) - lu(608) * lu(1591) + lu(1617) = lu(1617) - lu(609) * lu(1591) + lu(1620) = lu(1620) - lu(610) * lu(1591) end subroutine lu_fac14 - subroutine lu_fac15( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac15( lu ) 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,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,606) = lu(k,606) * lu(k,597) - lu(k,607) = lu(k,607) * lu(k,597) - lu(k,608) = lu(k,608) * lu(k,597) - lu(k,609) = lu(k,609) * lu(k,597) - lu(k,610) = lu(k,610) * lu(k,597) - lu(k,611) = lu(k,611) * lu(k,597) - lu(k,612) = lu(k,612) * lu(k,597) - lu(k,613) = lu(k,613) * lu(k,597) - lu(k,614) = lu(k,614) * lu(k,597) - lu(k,615) = lu(k,615) * lu(k,597) - lu(k,620) = lu(k,620) - lu(k,598) * lu(k,618) - lu(k,622) = lu(k,622) - lu(k,599) * lu(k,618) - lu(k,625) = lu(k,625) - lu(k,600) * lu(k,618) - lu(k,626) = lu(k,626) - lu(k,601) * lu(k,618) - lu(k,627) = lu(k,627) - lu(k,602) * lu(k,618) - lu(k,629) = lu(k,629) - lu(k,603) * lu(k,618) - lu(k,630) = lu(k,630) - lu(k,604) * lu(k,618) - lu(k,631) = - lu(k,605) * lu(k,618) - lu(k,632) = lu(k,632) - lu(k,606) * lu(k,618) - lu(k,633) = lu(k,633) - lu(k,607) * lu(k,618) - lu(k,634) = lu(k,634) - lu(k,608) * lu(k,618) - lu(k,636) = lu(k,636) - lu(k,609) * lu(k,618) - lu(k,639) = lu(k,639) - lu(k,610) * lu(k,618) - lu(k,641) = lu(k,641) - lu(k,611) * lu(k,618) - lu(k,644) = lu(k,644) - lu(k,612) * lu(k,618) - lu(k,645) = lu(k,645) - lu(k,613) * lu(k,618) - lu(k,646) = lu(k,646) - lu(k,614) * lu(k,618) - lu(k,647) = lu(k,647) - lu(k,615) * lu(k,618) - lu(k,652) = lu(k,652) - lu(k,598) * lu(k,651) - lu(k,653) = lu(k,653) - lu(k,599) * lu(k,651) - lu(k,654) = lu(k,654) - lu(k,600) * lu(k,651) - lu(k,655) = lu(k,655) - lu(k,601) * lu(k,651) - lu(k,656) = lu(k,656) - lu(k,602) * lu(k,651) - lu(k,658) = lu(k,658) - lu(k,603) * lu(k,651) - lu(k,659) = lu(k,659) - lu(k,604) * lu(k,651) - lu(k,660) = lu(k,660) - lu(k,605) * lu(k,651) - lu(k,661) = lu(k,661) - lu(k,606) * lu(k,651) - lu(k,662) = lu(k,662) - lu(k,607) * lu(k,651) - lu(k,664) = lu(k,664) - lu(k,608) * lu(k,651) - lu(k,665) = lu(k,665) - lu(k,609) * lu(k,651) - lu(k,667) = lu(k,667) - lu(k,610) * lu(k,651) - lu(k,668) = lu(k,668) - lu(k,611) * lu(k,651) - lu(k,669) = - lu(k,612) * lu(k,651) - lu(k,670) = lu(k,670) - lu(k,613) * lu(k,651) - lu(k,671) = lu(k,671) - lu(k,614) * lu(k,651) - lu(k,672) = lu(k,672) - lu(k,615) * lu(k,651) - lu(k,711) = lu(k,711) - lu(k,598) * lu(k,710) - lu(k,712) = lu(k,712) - lu(k,599) * lu(k,710) - lu(k,714) = lu(k,714) - lu(k,600) * lu(k,710) - lu(k,715) = lu(k,715) - lu(k,601) * lu(k,710) - lu(k,716) = lu(k,716) - lu(k,602) * lu(k,710) - lu(k,718) = lu(k,718) - lu(k,603) * lu(k,710) - lu(k,719) = lu(k,719) - lu(k,604) * lu(k,710) - lu(k,720) = lu(k,720) - lu(k,605) * lu(k,710) - lu(k,721) = lu(k,721) - lu(k,606) * lu(k,710) - lu(k,722) = lu(k,722) - lu(k,607) * lu(k,710) - lu(k,724) = lu(k,724) - lu(k,608) * lu(k,710) - lu(k,725) = lu(k,725) - lu(k,609) * lu(k,710) - lu(k,727) = lu(k,727) - lu(k,610) * lu(k,710) - lu(k,729) = lu(k,729) - lu(k,611) * lu(k,710) - lu(k,731) = lu(k,731) - lu(k,612) * lu(k,710) - lu(k,732) = lu(k,732) - lu(k,613) * lu(k,710) - lu(k,733) = lu(k,733) - lu(k,614) * lu(k,710) - lu(k,734) = lu(k,734) - lu(k,615) * lu(k,710) - lu(k,782) = lu(k,782) - lu(k,598) * lu(k,781) - lu(k,783) = lu(k,783) - lu(k,599) * lu(k,781) - lu(k,786) = lu(k,786) - lu(k,600) * lu(k,781) - lu(k,787) = lu(k,787) - lu(k,601) * lu(k,781) - lu(k,788) = lu(k,788) - lu(k,602) * lu(k,781) - lu(k,790) = lu(k,790) - lu(k,603) * lu(k,781) - lu(k,791) = lu(k,791) - lu(k,604) * lu(k,781) - lu(k,792) = lu(k,792) - lu(k,605) * lu(k,781) - lu(k,793) = lu(k,793) - lu(k,606) * lu(k,781) - lu(k,794) = lu(k,794) - lu(k,607) * lu(k,781) - lu(k,796) = lu(k,796) - lu(k,608) * lu(k,781) - lu(k,798) = lu(k,798) - lu(k,609) * lu(k,781) - lu(k,801) = - lu(k,610) * lu(k,781) - lu(k,803) = lu(k,803) - lu(k,611) * lu(k,781) - lu(k,806) = lu(k,806) - lu(k,612) * lu(k,781) - lu(k,807) = lu(k,807) - lu(k,613) * lu(k,781) - lu(k,808) = lu(k,808) - lu(k,614) * lu(k,781) - lu(k,809) = lu(k,809) - lu(k,615) * lu(k,781) - lu(k,824) = lu(k,824) - lu(k,598) * lu(k,822) - lu(k,826) = lu(k,826) - lu(k,599) * lu(k,822) - lu(k,829) = lu(k,829) - lu(k,600) * lu(k,822) - lu(k,830) = lu(k,830) - lu(k,601) * lu(k,822) - lu(k,831) = lu(k,831) - lu(k,602) * lu(k,822) - lu(k,833) = lu(k,833) - lu(k,603) * lu(k,822) - lu(k,834) = lu(k,834) - lu(k,604) * lu(k,822) - lu(k,835) = lu(k,835) - lu(k,605) * lu(k,822) - lu(k,836) = lu(k,836) - lu(k,606) * lu(k,822) - lu(k,837) = lu(k,837) - lu(k,607) * lu(k,822) - lu(k,839) = lu(k,839) - lu(k,608) * lu(k,822) - lu(k,841) = lu(k,841) - lu(k,609) * lu(k,822) - lu(k,844) = lu(k,844) - lu(k,610) * lu(k,822) - lu(k,846) = lu(k,846) - lu(k,611) * lu(k,822) - lu(k,849) = lu(k,849) - lu(k,612) * lu(k,822) - lu(k,850) = lu(k,850) - lu(k,613) * lu(k,822) - lu(k,851) = lu(k,851) - lu(k,614) * lu(k,822) - lu(k,852) = lu(k,852) - lu(k,615) * lu(k,822) - lu(k,872) = lu(k,872) - lu(k,598) * lu(k,870) - lu(k,874) = lu(k,874) - lu(k,599) * lu(k,870) - lu(k,877) = lu(k,877) - lu(k,600) * lu(k,870) - lu(k,878) = lu(k,878) - lu(k,601) * lu(k,870) - lu(k,879) = lu(k,879) - lu(k,602) * lu(k,870) - lu(k,881) = lu(k,881) - lu(k,603) * lu(k,870) - lu(k,882) = lu(k,882) - lu(k,604) * lu(k,870) - lu(k,883) = lu(k,883) - lu(k,605) * lu(k,870) - lu(k,884) = lu(k,884) - lu(k,606) * lu(k,870) - lu(k,885) = lu(k,885) - lu(k,607) * lu(k,870) - lu(k,887) = lu(k,887) - lu(k,608) * lu(k,870) - lu(k,889) = lu(k,889) - lu(k,609) * lu(k,870) - lu(k,892) = lu(k,892) - lu(k,610) * lu(k,870) - lu(k,894) = lu(k,894) - lu(k,611) * lu(k,870) - lu(k,897) = lu(k,897) - lu(k,612) * lu(k,870) - lu(k,898) = lu(k,898) - lu(k,613) * lu(k,870) - lu(k,899) = lu(k,899) - lu(k,614) * lu(k,870) - lu(k,900) = lu(k,900) - lu(k,615) * lu(k,870) - lu(k,915) = lu(k,915) - lu(k,598) * lu(k,913) - lu(k,917) = lu(k,917) - lu(k,599) * lu(k,913) - lu(k,920) = lu(k,920) - lu(k,600) * lu(k,913) - lu(k,921) = lu(k,921) - lu(k,601) * lu(k,913) - lu(k,922) = lu(k,922) - lu(k,602) * lu(k,913) - lu(k,924) = lu(k,924) - lu(k,603) * lu(k,913) - lu(k,925) = lu(k,925) - lu(k,604) * lu(k,913) - lu(k,926) = lu(k,926) - lu(k,605) * lu(k,913) - lu(k,927) = lu(k,927) - lu(k,606) * lu(k,913) - lu(k,928) = lu(k,928) - lu(k,607) * lu(k,913) - lu(k,930) = lu(k,930) - lu(k,608) * lu(k,913) - lu(k,932) = lu(k,932) - lu(k,609) * lu(k,913) - lu(k,935) = lu(k,935) - lu(k,610) * lu(k,913) - lu(k,937) = lu(k,937) - lu(k,611) * lu(k,913) - lu(k,940) = lu(k,940) - lu(k,612) * lu(k,913) - lu(k,941) = lu(k,941) - lu(k,613) * lu(k,913) - lu(k,942) = lu(k,942) - lu(k,614) * lu(k,913) - lu(k,943) = lu(k,943) - lu(k,615) * lu(k,913) - lu(k,971) = lu(k,971) - lu(k,598) * lu(k,969) - lu(k,973) = lu(k,973) - lu(k,599) * lu(k,969) - lu(k,976) = lu(k,976) - lu(k,600) * lu(k,969) - lu(k,977) = lu(k,977) - lu(k,601) * lu(k,969) - lu(k,978) = - lu(k,602) * lu(k,969) - lu(k,980) = lu(k,980) - lu(k,603) * lu(k,969) - lu(k,981) = - lu(k,604) * lu(k,969) - lu(k,982) = lu(k,982) - lu(k,605) * lu(k,969) - lu(k,983) = lu(k,983) - lu(k,606) * lu(k,969) - lu(k,984) = - lu(k,607) * lu(k,969) - lu(k,986) = lu(k,986) - lu(k,608) * lu(k,969) - lu(k,988) = lu(k,988) - lu(k,609) * lu(k,969) - lu(k,991) = lu(k,991) - lu(k,610) * lu(k,969) - lu(k,993) = - lu(k,611) * lu(k,969) - lu(k,996) = lu(k,996) - lu(k,612) * lu(k,969) - lu(k,997) = lu(k,997) - lu(k,613) * lu(k,969) - lu(k,998) = lu(k,998) - lu(k,614) * lu(k,969) - lu(k,999) = lu(k,999) - lu(k,615) * lu(k,969) - lu(k,1056) = lu(k,1056) - lu(k,598) * lu(k,1054) - lu(k,1058) = lu(k,1058) - lu(k,599) * lu(k,1054) - lu(k,1061) = lu(k,1061) - lu(k,600) * lu(k,1054) - lu(k,1062) = lu(k,1062) - lu(k,601) * lu(k,1054) - lu(k,1063) = lu(k,1063) - lu(k,602) * lu(k,1054) - lu(k,1065) = lu(k,1065) - lu(k,603) * lu(k,1054) - lu(k,1066) = lu(k,1066) - lu(k,604) * lu(k,1054) - lu(k,1067) = lu(k,1067) - lu(k,605) * lu(k,1054) - lu(k,1068) = lu(k,1068) - lu(k,606) * lu(k,1054) - lu(k,1069) = lu(k,1069) - lu(k,607) * lu(k,1054) - lu(k,1071) = lu(k,1071) - lu(k,608) * lu(k,1054) - lu(k,1073) = lu(k,1073) - lu(k,609) * lu(k,1054) - lu(k,1076) = lu(k,1076) - lu(k,610) * lu(k,1054) - lu(k,1078) = lu(k,1078) - lu(k,611) * lu(k,1054) - lu(k,1081) = lu(k,1081) - lu(k,612) * lu(k,1054) - lu(k,1082) = lu(k,1082) - lu(k,613) * lu(k,1054) - lu(k,1083) = lu(k,1083) - lu(k,614) * lu(k,1054) - lu(k,1084) = lu(k,1084) - lu(k,615) * lu(k,1054) - lu(k,1096) = lu(k,1096) - lu(k,598) * lu(k,1095) - lu(k,1098) = lu(k,1098) - lu(k,599) * lu(k,1095) - lu(k,1101) = lu(k,1101) - lu(k,600) * lu(k,1095) - lu(k,1102) = lu(k,1102) - lu(k,601) * lu(k,1095) - lu(k,1103) = lu(k,1103) - lu(k,602) * lu(k,1095) - lu(k,1105) = lu(k,1105) - lu(k,603) * lu(k,1095) - lu(k,1106) = lu(k,1106) - lu(k,604) * lu(k,1095) - lu(k,1107) = lu(k,1107) - lu(k,605) * lu(k,1095) - lu(k,1108) = lu(k,1108) - lu(k,606) * lu(k,1095) - lu(k,1109) = lu(k,1109) - lu(k,607) * lu(k,1095) - lu(k,1111) = lu(k,1111) - lu(k,608) * lu(k,1095) - lu(k,1113) = lu(k,1113) - lu(k,609) * lu(k,1095) - lu(k,1116) = lu(k,1116) - lu(k,610) * lu(k,1095) - lu(k,1118) = lu(k,1118) - lu(k,611) * lu(k,1095) - lu(k,1121) = lu(k,1121) - lu(k,612) * lu(k,1095) - lu(k,1122) = lu(k,1122) - lu(k,613) * lu(k,1095) - lu(k,1123) = lu(k,1123) - lu(k,614) * lu(k,1095) - lu(k,1124) = lu(k,1124) - lu(k,615) * lu(k,1095) - lu(k,1141) = lu(k,1141) - lu(k,598) * lu(k,1140) - lu(k,1143) = lu(k,1143) - lu(k,599) * lu(k,1140) - lu(k,1146) = lu(k,1146) - lu(k,600) * lu(k,1140) - lu(k,1147) = lu(k,1147) - lu(k,601) * lu(k,1140) - lu(k,1148) = lu(k,1148) - lu(k,602) * lu(k,1140) - lu(k,1150) = lu(k,1150) - lu(k,603) * lu(k,1140) - lu(k,1151) = lu(k,1151) - lu(k,604) * lu(k,1140) - lu(k,1152) = lu(k,1152) - lu(k,605) * lu(k,1140) - lu(k,1153) = lu(k,1153) - lu(k,606) * lu(k,1140) - lu(k,1154) = lu(k,1154) - lu(k,607) * lu(k,1140) - lu(k,1156) = lu(k,1156) - lu(k,608) * lu(k,1140) - lu(k,1158) = lu(k,1158) - lu(k,609) * lu(k,1140) - lu(k,1161) = lu(k,1161) - lu(k,610) * lu(k,1140) - lu(k,1163) = lu(k,1163) - lu(k,611) * lu(k,1140) - lu(k,1166) = lu(k,1166) - lu(k,612) * lu(k,1140) - lu(k,1167) = lu(k,1167) - lu(k,613) * lu(k,1140) - lu(k,1168) = lu(k,1168) - lu(k,614) * lu(k,1140) - lu(k,1169) = lu(k,1169) - lu(k,615) * lu(k,1140) - lu(k,1184) = lu(k,1184) - lu(k,598) * lu(k,1182) - lu(k,1186) = lu(k,1186) - lu(k,599) * lu(k,1182) - lu(k,1189) = lu(k,1189) - lu(k,600) * lu(k,1182) - lu(k,1190) = lu(k,1190) - lu(k,601) * lu(k,1182) - lu(k,1191) = lu(k,1191) - lu(k,602) * lu(k,1182) - lu(k,1193) = lu(k,1193) - lu(k,603) * lu(k,1182) - lu(k,1194) = lu(k,1194) - lu(k,604) * lu(k,1182) - lu(k,1195) = lu(k,1195) - lu(k,605) * lu(k,1182) - lu(k,1196) = lu(k,1196) - lu(k,606) * lu(k,1182) - lu(k,1197) = lu(k,1197) - lu(k,607) * lu(k,1182) - lu(k,1199) = lu(k,1199) - lu(k,608) * lu(k,1182) - lu(k,1201) = lu(k,1201) - lu(k,609) * lu(k,1182) - lu(k,1204) = lu(k,1204) - lu(k,610) * lu(k,1182) - lu(k,1206) = lu(k,1206) - lu(k,611) * lu(k,1182) - lu(k,1209) = lu(k,1209) - lu(k,612) * lu(k,1182) - lu(k,1210) = lu(k,1210) - lu(k,613) * lu(k,1182) - lu(k,1211) = lu(k,1211) - lu(k,614) * lu(k,1182) - lu(k,1212) = lu(k,1212) - lu(k,615) * lu(k,1182) - lu(k,1298) = lu(k,1298) - lu(k,598) * lu(k,1296) - lu(k,1300) = lu(k,1300) - lu(k,599) * lu(k,1296) - lu(k,1303) = lu(k,1303) - lu(k,600) * lu(k,1296) - lu(k,1304) = lu(k,1304) - lu(k,601) * lu(k,1296) - lu(k,1305) = lu(k,1305) - lu(k,602) * lu(k,1296) - lu(k,1307) = lu(k,1307) - lu(k,603) * lu(k,1296) - lu(k,1308) = lu(k,1308) - lu(k,604) * lu(k,1296) - lu(k,1309) = lu(k,1309) - lu(k,605) * lu(k,1296) - lu(k,1310) = lu(k,1310) - lu(k,606) * lu(k,1296) - lu(k,1311) = lu(k,1311) - lu(k,607) * lu(k,1296) - lu(k,1313) = lu(k,1313) - lu(k,608) * lu(k,1296) - lu(k,1315) = lu(k,1315) - lu(k,609) * lu(k,1296) - lu(k,1318) = lu(k,1318) - lu(k,610) * lu(k,1296) - lu(k,1320) = lu(k,1320) - lu(k,611) * lu(k,1296) - lu(k,1323) = lu(k,1323) - lu(k,612) * lu(k,1296) - lu(k,1324) = lu(k,1324) - lu(k,613) * lu(k,1296) - lu(k,1325) = lu(k,1325) - lu(k,614) * lu(k,1296) - lu(k,1326) = lu(k,1326) - lu(k,615) * lu(k,1296) - lu(k,1343) = lu(k,1343) - lu(k,598) * lu(k,1341) - lu(k,1345) = lu(k,1345) - lu(k,599) * lu(k,1341) - lu(k,1348) = lu(k,1348) - lu(k,600) * lu(k,1341) - lu(k,1349) = lu(k,1349) - lu(k,601) * lu(k,1341) - lu(k,1350) = lu(k,1350) - lu(k,602) * lu(k,1341) - lu(k,1352) = lu(k,1352) - lu(k,603) * lu(k,1341) - lu(k,1353) = lu(k,1353) - lu(k,604) * lu(k,1341) - lu(k,1354) = lu(k,1354) - lu(k,605) * lu(k,1341) - lu(k,1355) = lu(k,1355) - lu(k,606) * lu(k,1341) - lu(k,1356) = lu(k,1356) - lu(k,607) * lu(k,1341) - lu(k,1358) = lu(k,1358) - lu(k,608) * lu(k,1341) - lu(k,1360) = lu(k,1360) - lu(k,609) * lu(k,1341) - lu(k,1363) = lu(k,1363) - lu(k,610) * lu(k,1341) - lu(k,1365) = lu(k,1365) - lu(k,611) * lu(k,1341) - lu(k,1368) = lu(k,1368) - lu(k,612) * lu(k,1341) - lu(k,1369) = lu(k,1369) - lu(k,613) * lu(k,1341) - lu(k,1370) = lu(k,1370) - lu(k,614) * lu(k,1341) - lu(k,1371) = lu(k,1371) - lu(k,615) * lu(k,1341) - lu(k,1468) = lu(k,1468) - lu(k,598) * lu(k,1466) - lu(k,1470) = lu(k,1470) - lu(k,599) * lu(k,1466) - lu(k,1473) = lu(k,1473) - lu(k,600) * lu(k,1466) - lu(k,1474) = lu(k,1474) - lu(k,601) * lu(k,1466) - lu(k,1475) = lu(k,1475) - lu(k,602) * lu(k,1466) - lu(k,1477) = lu(k,1477) - lu(k,603) * lu(k,1466) - lu(k,1478) = lu(k,1478) - lu(k,604) * lu(k,1466) - lu(k,1479) = lu(k,1479) - lu(k,605) * lu(k,1466) - lu(k,1480) = lu(k,1480) - lu(k,606) * lu(k,1466) - lu(k,1481) = lu(k,1481) - lu(k,607) * lu(k,1466) - lu(k,1483) = lu(k,1483) - lu(k,608) * lu(k,1466) - lu(k,1485) = lu(k,1485) - lu(k,609) * lu(k,1466) - lu(k,1488) = lu(k,1488) - lu(k,610) * lu(k,1466) - lu(k,1490) = lu(k,1490) - lu(k,611) * lu(k,1466) - lu(k,1493) = lu(k,1493) - lu(k,612) * lu(k,1466) - lu(k,1494) = lu(k,1494) - lu(k,613) * lu(k,1466) - lu(k,1495) = lu(k,1495) - lu(k,614) * lu(k,1466) - lu(k,1496) = lu(k,1496) - lu(k,615) * lu(k,1466) - lu(k,1511) = - lu(k,598) * lu(k,1509) - lu(k,1513) = lu(k,1513) - lu(k,599) * lu(k,1509) - lu(k,1516) = lu(k,1516) - lu(k,600) * lu(k,1509) - lu(k,1517) = - lu(k,601) * lu(k,1509) - lu(k,1518) = - lu(k,602) * lu(k,1509) - lu(k,1520) = lu(k,1520) - lu(k,603) * lu(k,1509) - lu(k,1521) = - lu(k,604) * lu(k,1509) - lu(k,1522) = lu(k,1522) - lu(k,605) * lu(k,1509) - lu(k,1523) = lu(k,1523) - lu(k,606) * lu(k,1509) - lu(k,1524) = - lu(k,607) * lu(k,1509) - lu(k,1526) = lu(k,1526) - lu(k,608) * lu(k,1509) - lu(k,1528) = lu(k,1528) - lu(k,609) * lu(k,1509) - lu(k,1531) = lu(k,1531) - lu(k,610) * lu(k,1509) - lu(k,1533) = - lu(k,611) * lu(k,1509) - lu(k,1536) = lu(k,1536) - lu(k,612) * lu(k,1509) - lu(k,1537) = lu(k,1537) - lu(k,613) * lu(k,1509) - lu(k,1538) = lu(k,1538) - lu(k,614) * lu(k,1509) - lu(k,1539) = lu(k,1539) - lu(k,615) * lu(k,1509) - lu(k,1554) = lu(k,1554) - lu(k,598) * lu(k,1552) - lu(k,1556) = lu(k,1556) - lu(k,599) * lu(k,1552) - lu(k,1559) = lu(k,1559) - lu(k,600) * lu(k,1552) - lu(k,1560) = lu(k,1560) - lu(k,601) * lu(k,1552) - lu(k,1561) = lu(k,1561) - lu(k,602) * lu(k,1552) - lu(k,1563) = lu(k,1563) - lu(k,603) * lu(k,1552) - lu(k,1564) = lu(k,1564) - lu(k,604) * lu(k,1552) - lu(k,1565) = lu(k,1565) - lu(k,605) * lu(k,1552) - lu(k,1566) = lu(k,1566) - lu(k,606) * lu(k,1552) - lu(k,1567) = lu(k,1567) - lu(k,607) * lu(k,1552) - lu(k,1569) = lu(k,1569) - lu(k,608) * lu(k,1552) - lu(k,1571) = lu(k,1571) - lu(k,609) * lu(k,1552) - lu(k,1574) = lu(k,1574) - lu(k,610) * lu(k,1552) - lu(k,1576) = lu(k,1576) - lu(k,611) * lu(k,1552) - lu(k,1579) = lu(k,1579) - lu(k,612) * lu(k,1552) - lu(k,1580) = lu(k,1580) - lu(k,613) * lu(k,1552) - lu(k,1581) = lu(k,1581) - lu(k,614) * lu(k,1552) - lu(k,1582) = lu(k,1582) - lu(k,615) * lu(k,1552) - lu(k,1587) = lu(k,1587) - lu(k,598) * lu(k,1586) - lu(k,1589) = lu(k,1589) - lu(k,599) * lu(k,1586) - lu(k,1592) = lu(k,1592) - lu(k,600) * lu(k,1586) - lu(k,1593) = lu(k,1593) - lu(k,601) * lu(k,1586) - lu(k,1594) = lu(k,1594) - lu(k,602) * lu(k,1586) - lu(k,1596) = lu(k,1596) - lu(k,603) * lu(k,1586) - lu(k,1597) = lu(k,1597) - lu(k,604) * lu(k,1586) - lu(k,1598) = - lu(k,605) * lu(k,1586) - lu(k,1599) = lu(k,1599) - lu(k,606) * lu(k,1586) - lu(k,1600) = lu(k,1600) - lu(k,607) * lu(k,1586) - lu(k,1602) = lu(k,1602) - lu(k,608) * lu(k,1586) - lu(k,1604) = lu(k,1604) - lu(k,609) * lu(k,1586) - lu(k,1607) = lu(k,1607) - lu(k,610) * lu(k,1586) - lu(k,1609) = lu(k,1609) - lu(k,611) * lu(k,1586) - lu(k,1612) = lu(k,1612) - lu(k,612) * lu(k,1586) - lu(k,1613) = lu(k,1613) - lu(k,613) * lu(k,1586) - lu(k,1614) = lu(k,1614) - lu(k,614) * lu(k,1586) - lu(k,1615) = lu(k,1615) - lu(k,615) * lu(k,1586) - lu(k,1623) = lu(k,1623) - lu(k,598) * lu(k,1622) - lu(k,1625) = lu(k,1625) - lu(k,599) * lu(k,1622) - lu(k,1628) = lu(k,1628) - lu(k,600) * lu(k,1622) - lu(k,1629) = - lu(k,601) * lu(k,1622) - lu(k,1630) = - lu(k,602) * lu(k,1622) - lu(k,1632) = lu(k,1632) - lu(k,603) * lu(k,1622) - lu(k,1633) = - lu(k,604) * lu(k,1622) - lu(k,1634) = lu(k,1634) - lu(k,605) * lu(k,1622) - lu(k,1635) = lu(k,1635) - lu(k,606) * lu(k,1622) - lu(k,1636) = - lu(k,607) * lu(k,1622) - lu(k,1638) = lu(k,1638) - lu(k,608) * lu(k,1622) - lu(k,1640) = lu(k,1640) - lu(k,609) * lu(k,1622) - lu(k,1643) = lu(k,1643) - lu(k,610) * lu(k,1622) - lu(k,1645) = - lu(k,611) * lu(k,1622) - lu(k,1648) = lu(k,1648) - lu(k,612) * lu(k,1622) - lu(k,1649) = lu(k,1649) - lu(k,613) * lu(k,1622) - lu(k,1650) = lu(k,1650) - lu(k,614) * lu(k,1622) - lu(k,1651) = lu(k,1651) - lu(k,615) * lu(k,1622) - lu(k,1666) = - lu(k,598) * lu(k,1664) - lu(k,1668) = lu(k,1668) - lu(k,599) * lu(k,1664) - lu(k,1671) = lu(k,1671) - lu(k,600) * lu(k,1664) - lu(k,1672) = - lu(k,601) * lu(k,1664) - lu(k,1673) = - lu(k,602) * lu(k,1664) - lu(k,1675) = lu(k,1675) - lu(k,603) * lu(k,1664) - lu(k,1676) = - lu(k,604) * lu(k,1664) - lu(k,1677) = lu(k,1677) - lu(k,605) * lu(k,1664) - lu(k,1678) = lu(k,1678) - lu(k,606) * lu(k,1664) - lu(k,1679) = - lu(k,607) * lu(k,1664) - lu(k,1681) = lu(k,1681) - lu(k,608) * lu(k,1664) - lu(k,1683) = lu(k,1683) - lu(k,609) * lu(k,1664) - lu(k,1686) = lu(k,1686) - lu(k,610) * lu(k,1664) - lu(k,1688) = - lu(k,611) * lu(k,1664) - lu(k,1691) = lu(k,1691) - lu(k,612) * lu(k,1664) - lu(k,1692) = lu(k,1692) - lu(k,613) * lu(k,1664) - lu(k,1693) = lu(k,1693) - lu(k,614) * lu(k,1664) - lu(k,1694) = lu(k,1694) - lu(k,615) * lu(k,1664) - lu(k,1702) = lu(k,1702) - lu(k,598) * lu(k,1700) - lu(k,1704) = lu(k,1704) - lu(k,599) * lu(k,1700) - lu(k,1707) = lu(k,1707) - lu(k,600) * lu(k,1700) - lu(k,1708) = - lu(k,601) * lu(k,1700) - lu(k,1709) = - lu(k,602) * lu(k,1700) - lu(k,1711) = lu(k,1711) - lu(k,603) * lu(k,1700) - lu(k,1712) = lu(k,1712) - lu(k,604) * lu(k,1700) - lu(k,1713) = lu(k,1713) - lu(k,605) * lu(k,1700) - lu(k,1714) = lu(k,1714) - lu(k,606) * lu(k,1700) - lu(k,1715) = - lu(k,607) * lu(k,1700) - lu(k,1717) = lu(k,1717) - lu(k,608) * lu(k,1700) - lu(k,1719) = lu(k,1719) - lu(k,609) * lu(k,1700) - lu(k,1722) = lu(k,1722) - lu(k,610) * lu(k,1700) - lu(k,1724) = - lu(k,611) * lu(k,1700) - lu(k,1727) = lu(k,1727) - lu(k,612) * lu(k,1700) - lu(k,1728) = lu(k,1728) - lu(k,613) * lu(k,1700) - lu(k,1729) = lu(k,1729) - lu(k,614) * lu(k,1700) - lu(k,1730) = lu(k,1730) - lu(k,615) * lu(k,1700) - lu(k,1744) = lu(k,1744) - lu(k,598) * lu(k,1743) - lu(k,1746) = lu(k,1746) - lu(k,599) * lu(k,1743) - lu(k,1749) = lu(k,1749) - lu(k,600) * lu(k,1743) - lu(k,1750) = lu(k,1750) - lu(k,601) * lu(k,1743) - lu(k,1751) = lu(k,1751) - lu(k,602) * lu(k,1743) - lu(k,1753) = lu(k,1753) - lu(k,603) * lu(k,1743) - lu(k,1754) = lu(k,1754) - lu(k,604) * lu(k,1743) - lu(k,1755) = lu(k,1755) - lu(k,605) * lu(k,1743) - lu(k,1756) = lu(k,1756) - lu(k,606) * lu(k,1743) - lu(k,1757) = lu(k,1757) - lu(k,607) * lu(k,1743) - lu(k,1759) = lu(k,1759) - lu(k,608) * lu(k,1743) - lu(k,1761) = lu(k,1761) - lu(k,609) * lu(k,1743) - lu(k,1764) = lu(k,1764) - lu(k,610) * lu(k,1743) - lu(k,1766) = lu(k,1766) - lu(k,611) * lu(k,1743) - lu(k,1769) = lu(k,1769) - lu(k,612) * lu(k,1743) - lu(k,1770) = lu(k,1770) - lu(k,613) * lu(k,1743) - lu(k,1771) = lu(k,1771) - lu(k,614) * lu(k,1743) - lu(k,1772) = lu(k,1772) - lu(k,615) * lu(k,1743) - lu(k,1797) = lu(k,1797) - lu(k,598) * lu(k,1796) - lu(k,1799) = lu(k,1799) - lu(k,599) * lu(k,1796) - lu(k,1802) = lu(k,1802) - lu(k,600) * lu(k,1796) - lu(k,1803) = lu(k,1803) - lu(k,601) * lu(k,1796) - lu(k,1804) = lu(k,1804) - lu(k,602) * lu(k,1796) - lu(k,1806) = lu(k,1806) - lu(k,603) * lu(k,1796) - lu(k,1807) = lu(k,1807) - lu(k,604) * lu(k,1796) - lu(k,1808) = lu(k,1808) - lu(k,605) * lu(k,1796) - lu(k,1809) = lu(k,1809) - lu(k,606) * lu(k,1796) - lu(k,1810) = lu(k,1810) - lu(k,607) * lu(k,1796) - lu(k,1812) = lu(k,1812) - lu(k,608) * lu(k,1796) - lu(k,1814) = lu(k,1814) - lu(k,609) * lu(k,1796) - lu(k,1817) = lu(k,1817) - lu(k,610) * lu(k,1796) - lu(k,1819) = lu(k,1819) - lu(k,611) * lu(k,1796) - lu(k,1822) = lu(k,1822) - lu(k,612) * lu(k,1796) - lu(k,1823) = lu(k,1823) - lu(k,613) * lu(k,1796) - lu(k,1824) = lu(k,1824) - lu(k,614) * lu(k,1796) - lu(k,1825) = lu(k,1825) - lu(k,615) * lu(k,1796) - lu(k,619) = 1._r8 / lu(k,619) - lu(k,620) = lu(k,620) * lu(k,619) - lu(k,621) = lu(k,621) * lu(k,619) - lu(k,622) = lu(k,622) * lu(k,619) - lu(k,623) = lu(k,623) * lu(k,619) - lu(k,624) = lu(k,624) * lu(k,619) - lu(k,625) = lu(k,625) * lu(k,619) - lu(k,626) = lu(k,626) * lu(k,619) - lu(k,627) = lu(k,627) * lu(k,619) - lu(k,628) = lu(k,628) * lu(k,619) - lu(k,629) = lu(k,629) * lu(k,619) - lu(k,630) = lu(k,630) * lu(k,619) - lu(k,631) = lu(k,631) * lu(k,619) - lu(k,632) = lu(k,632) * lu(k,619) - lu(k,633) = lu(k,633) * lu(k,619) - lu(k,634) = lu(k,634) * lu(k,619) - lu(k,635) = lu(k,635) * lu(k,619) - lu(k,636) = lu(k,636) * lu(k,619) - lu(k,637) = lu(k,637) * lu(k,619) - lu(k,638) = lu(k,638) * lu(k,619) - lu(k,639) = lu(k,639) * lu(k,619) - lu(k,640) = lu(k,640) * lu(k,619) - lu(k,641) = lu(k,641) * lu(k,619) - lu(k,642) = lu(k,642) * lu(k,619) - lu(k,643) = lu(k,643) * lu(k,619) - lu(k,644) = lu(k,644) * lu(k,619) - lu(k,645) = lu(k,645) * lu(k,619) - lu(k,646) = lu(k,646) * lu(k,619) - lu(k,647) = lu(k,647) * lu(k,619) - lu(k,824) = lu(k,824) - lu(k,620) * lu(k,823) - lu(k,825) = - lu(k,621) * lu(k,823) - lu(k,826) = lu(k,826) - lu(k,622) * lu(k,823) - lu(k,827) = lu(k,827) - lu(k,623) * lu(k,823) - lu(k,828) = lu(k,828) - lu(k,624) * lu(k,823) - lu(k,829) = lu(k,829) - lu(k,625) * lu(k,823) - lu(k,830) = lu(k,830) - lu(k,626) * lu(k,823) - lu(k,831) = lu(k,831) - lu(k,627) * lu(k,823) - lu(k,832) = lu(k,832) - lu(k,628) * lu(k,823) - lu(k,833) = lu(k,833) - lu(k,629) * lu(k,823) - lu(k,834) = lu(k,834) - lu(k,630) * lu(k,823) - lu(k,835) = lu(k,835) - lu(k,631) * lu(k,823) - lu(k,836) = lu(k,836) - lu(k,632) * lu(k,823) - lu(k,837) = lu(k,837) - lu(k,633) * lu(k,823) - lu(k,839) = lu(k,839) - lu(k,634) * lu(k,823) - lu(k,840) = lu(k,840) - lu(k,635) * lu(k,823) - lu(k,841) = lu(k,841) - lu(k,636) * lu(k,823) - lu(k,842) = lu(k,842) - lu(k,637) * lu(k,823) - lu(k,843) = - lu(k,638) * lu(k,823) - lu(k,844) = lu(k,844) - lu(k,639) * lu(k,823) - lu(k,845) = - lu(k,640) * lu(k,823) - lu(k,846) = lu(k,846) - lu(k,641) * lu(k,823) - lu(k,847) = - lu(k,642) * lu(k,823) - lu(k,848) = - lu(k,643) * lu(k,823) - lu(k,849) = lu(k,849) - lu(k,644) * lu(k,823) - lu(k,850) = lu(k,850) - lu(k,645) * lu(k,823) - lu(k,851) = lu(k,851) - lu(k,646) * lu(k,823) - lu(k,852) = lu(k,852) - lu(k,647) * lu(k,823) - lu(k,872) = lu(k,872) - lu(k,620) * lu(k,871) - lu(k,873) = lu(k,873) - lu(k,621) * lu(k,871) - lu(k,874) = lu(k,874) - lu(k,622) * lu(k,871) - lu(k,875) = lu(k,875) - lu(k,623) * lu(k,871) - lu(k,876) = lu(k,876) - lu(k,624) * lu(k,871) - lu(k,877) = lu(k,877) - lu(k,625) * lu(k,871) - lu(k,878) = lu(k,878) - lu(k,626) * lu(k,871) - lu(k,879) = lu(k,879) - lu(k,627) * lu(k,871) - lu(k,880) = lu(k,880) - lu(k,628) * lu(k,871) - lu(k,881) = lu(k,881) - lu(k,629) * lu(k,871) - lu(k,882) = lu(k,882) - lu(k,630) * lu(k,871) - lu(k,883) = lu(k,883) - lu(k,631) * lu(k,871) - lu(k,884) = lu(k,884) - lu(k,632) * lu(k,871) - lu(k,885) = lu(k,885) - lu(k,633) * lu(k,871) - lu(k,887) = lu(k,887) - lu(k,634) * lu(k,871) - lu(k,888) = lu(k,888) - lu(k,635) * lu(k,871) - lu(k,889) = lu(k,889) - lu(k,636) * lu(k,871) - lu(k,890) = lu(k,890) - lu(k,637) * lu(k,871) - lu(k,891) = lu(k,891) - lu(k,638) * lu(k,871) - lu(k,892) = lu(k,892) - lu(k,639) * lu(k,871) - lu(k,893) = lu(k,893) - lu(k,640) * lu(k,871) - lu(k,894) = lu(k,894) - lu(k,641) * lu(k,871) - lu(k,895) = lu(k,895) - lu(k,642) * lu(k,871) - lu(k,896) = lu(k,896) - lu(k,643) * lu(k,871) - lu(k,897) = lu(k,897) - lu(k,644) * lu(k,871) - lu(k,898) = lu(k,898) - lu(k,645) * lu(k,871) - lu(k,899) = lu(k,899) - lu(k,646) * lu(k,871) - lu(k,900) = lu(k,900) - lu(k,647) * lu(k,871) - lu(k,915) = lu(k,915) - lu(k,620) * lu(k,914) - lu(k,916) = - lu(k,621) * lu(k,914) - lu(k,917) = lu(k,917) - lu(k,622) * lu(k,914) - lu(k,918) = lu(k,918) - lu(k,623) * lu(k,914) - lu(k,919) = lu(k,919) - lu(k,624) * lu(k,914) - lu(k,920) = lu(k,920) - lu(k,625) * lu(k,914) - lu(k,921) = lu(k,921) - lu(k,626) * lu(k,914) - lu(k,922) = lu(k,922) - lu(k,627) * lu(k,914) - lu(k,923) = lu(k,923) - lu(k,628) * lu(k,914) - lu(k,924) = lu(k,924) - lu(k,629) * lu(k,914) - lu(k,925) = lu(k,925) - lu(k,630) * lu(k,914) - lu(k,926) = lu(k,926) - lu(k,631) * lu(k,914) - lu(k,927) = lu(k,927) - lu(k,632) * lu(k,914) - lu(k,928) = lu(k,928) - lu(k,633) * lu(k,914) - lu(k,930) = lu(k,930) - lu(k,634) * lu(k,914) - lu(k,931) = lu(k,931) - lu(k,635) * lu(k,914) - lu(k,932) = lu(k,932) - lu(k,636) * lu(k,914) - lu(k,933) = lu(k,933) - lu(k,637) * lu(k,914) - lu(k,934) = - lu(k,638) * lu(k,914) - lu(k,935) = lu(k,935) - lu(k,639) * lu(k,914) - lu(k,936) = - lu(k,640) * lu(k,914) - lu(k,937) = lu(k,937) - lu(k,641) * lu(k,914) - lu(k,938) = - lu(k,642) * lu(k,914) - lu(k,939) = - lu(k,643) * lu(k,914) - lu(k,940) = lu(k,940) - lu(k,644) * lu(k,914) - lu(k,941) = lu(k,941) - lu(k,645) * lu(k,914) - lu(k,942) = lu(k,942) - lu(k,646) * lu(k,914) - lu(k,943) = lu(k,943) - lu(k,647) * lu(k,914) - lu(k,971) = lu(k,971) - lu(k,620) * lu(k,970) - lu(k,972) = lu(k,972) - lu(k,621) * lu(k,970) - lu(k,973) = lu(k,973) - lu(k,622) * lu(k,970) - lu(k,974) = lu(k,974) - lu(k,623) * lu(k,970) - lu(k,975) = lu(k,975) - lu(k,624) * lu(k,970) - lu(k,976) = lu(k,976) - lu(k,625) * lu(k,970) - lu(k,977) = lu(k,977) - lu(k,626) * lu(k,970) - lu(k,978) = lu(k,978) - lu(k,627) * lu(k,970) - lu(k,979) = lu(k,979) - lu(k,628) * lu(k,970) - lu(k,980) = lu(k,980) - lu(k,629) * lu(k,970) - lu(k,981) = lu(k,981) - lu(k,630) * lu(k,970) - lu(k,982) = lu(k,982) - lu(k,631) * lu(k,970) - lu(k,983) = lu(k,983) - lu(k,632) * lu(k,970) - lu(k,984) = lu(k,984) - lu(k,633) * lu(k,970) - lu(k,986) = lu(k,986) - lu(k,634) * lu(k,970) - lu(k,987) = lu(k,987) - lu(k,635) * lu(k,970) - lu(k,988) = lu(k,988) - lu(k,636) * lu(k,970) - lu(k,989) = lu(k,989) - lu(k,637) * lu(k,970) - lu(k,990) = lu(k,990) - lu(k,638) * lu(k,970) - lu(k,991) = lu(k,991) - lu(k,639) * lu(k,970) - lu(k,992) = lu(k,992) - lu(k,640) * lu(k,970) - lu(k,993) = lu(k,993) - lu(k,641) * lu(k,970) - lu(k,994) = lu(k,994) - lu(k,642) * lu(k,970) - lu(k,995) = lu(k,995) - lu(k,643) * lu(k,970) - lu(k,996) = lu(k,996) - lu(k,644) * lu(k,970) - lu(k,997) = lu(k,997) - lu(k,645) * lu(k,970) - lu(k,998) = lu(k,998) - lu(k,646) * lu(k,970) - lu(k,999) = lu(k,999) - lu(k,647) * lu(k,970) - lu(k,1056) = lu(k,1056) - lu(k,620) * lu(k,1055) - lu(k,1057) = lu(k,1057) - lu(k,621) * lu(k,1055) - lu(k,1058) = lu(k,1058) - lu(k,622) * lu(k,1055) - lu(k,1059) = lu(k,1059) - lu(k,623) * lu(k,1055) - lu(k,1060) = lu(k,1060) - lu(k,624) * lu(k,1055) - lu(k,1061) = lu(k,1061) - lu(k,625) * lu(k,1055) - lu(k,1062) = lu(k,1062) - lu(k,626) * lu(k,1055) - lu(k,1063) = lu(k,1063) - lu(k,627) * lu(k,1055) - lu(k,1064) = lu(k,1064) - lu(k,628) * lu(k,1055) - lu(k,1065) = lu(k,1065) - lu(k,629) * lu(k,1055) - lu(k,1066) = lu(k,1066) - lu(k,630) * lu(k,1055) - lu(k,1067) = lu(k,1067) - lu(k,631) * lu(k,1055) - lu(k,1068) = lu(k,1068) - lu(k,632) * lu(k,1055) - lu(k,1069) = lu(k,1069) - lu(k,633) * lu(k,1055) - lu(k,1071) = lu(k,1071) - lu(k,634) * lu(k,1055) - lu(k,1072) = lu(k,1072) - lu(k,635) * lu(k,1055) - lu(k,1073) = lu(k,1073) - lu(k,636) * lu(k,1055) - lu(k,1074) = lu(k,1074) - lu(k,637) * lu(k,1055) - lu(k,1075) = - lu(k,638) * lu(k,1055) - lu(k,1076) = lu(k,1076) - lu(k,639) * lu(k,1055) - lu(k,1077) = - lu(k,640) * lu(k,1055) - lu(k,1078) = lu(k,1078) - lu(k,641) * lu(k,1055) - lu(k,1079) = - lu(k,642) * lu(k,1055) - lu(k,1080) = - lu(k,643) * lu(k,1055) - lu(k,1081) = lu(k,1081) - lu(k,644) * lu(k,1055) - lu(k,1082) = lu(k,1082) - lu(k,645) * lu(k,1055) - lu(k,1083) = lu(k,1083) - lu(k,646) * lu(k,1055) - lu(k,1084) = lu(k,1084) - lu(k,647) * lu(k,1055) - lu(k,1184) = lu(k,1184) - lu(k,620) * lu(k,1183) - lu(k,1185) = - lu(k,621) * lu(k,1183) - lu(k,1186) = lu(k,1186) - lu(k,622) * lu(k,1183) - lu(k,1187) = lu(k,1187) - lu(k,623) * lu(k,1183) - lu(k,1188) = lu(k,1188) - lu(k,624) * lu(k,1183) - lu(k,1189) = lu(k,1189) - lu(k,625) * lu(k,1183) - lu(k,1190) = lu(k,1190) - lu(k,626) * lu(k,1183) - lu(k,1191) = lu(k,1191) - lu(k,627) * lu(k,1183) - lu(k,1192) = lu(k,1192) - lu(k,628) * lu(k,1183) - lu(k,1193) = lu(k,1193) - lu(k,629) * lu(k,1183) - lu(k,1194) = lu(k,1194) - lu(k,630) * lu(k,1183) - lu(k,1195) = lu(k,1195) - lu(k,631) * lu(k,1183) - lu(k,1196) = lu(k,1196) - lu(k,632) * lu(k,1183) - lu(k,1197) = lu(k,1197) - lu(k,633) * lu(k,1183) - lu(k,1199) = lu(k,1199) - lu(k,634) * lu(k,1183) - lu(k,1200) = lu(k,1200) - lu(k,635) * lu(k,1183) - lu(k,1201) = lu(k,1201) - lu(k,636) * lu(k,1183) - lu(k,1202) = lu(k,1202) - lu(k,637) * lu(k,1183) - lu(k,1203) = - lu(k,638) * lu(k,1183) - lu(k,1204) = lu(k,1204) - lu(k,639) * lu(k,1183) - lu(k,1205) = - lu(k,640) * lu(k,1183) - lu(k,1206) = lu(k,1206) - lu(k,641) * lu(k,1183) - lu(k,1207) = - lu(k,642) * lu(k,1183) - lu(k,1208) = - lu(k,643) * lu(k,1183) - lu(k,1209) = lu(k,1209) - lu(k,644) * lu(k,1183) - lu(k,1210) = lu(k,1210) - lu(k,645) * lu(k,1183) - lu(k,1211) = lu(k,1211) - lu(k,646) * lu(k,1183) - lu(k,1212) = lu(k,1212) - lu(k,647) * lu(k,1183) - lu(k,1262) = lu(k,1262) - lu(k,620) * lu(k,1261) - lu(k,1263) = lu(k,1263) - lu(k,621) * lu(k,1261) - lu(k,1264) = lu(k,1264) - lu(k,622) * lu(k,1261) - lu(k,1265) = lu(k,1265) - lu(k,623) * lu(k,1261) - lu(k,1266) = lu(k,1266) - lu(k,624) * lu(k,1261) - lu(k,1267) = lu(k,1267) - lu(k,625) * lu(k,1261) - lu(k,1268) = lu(k,1268) - lu(k,626) * lu(k,1261) - lu(k,1269) = - lu(k,627) * lu(k,1261) - lu(k,1270) = lu(k,1270) - lu(k,628) * lu(k,1261) - lu(k,1271) = lu(k,1271) - lu(k,629) * lu(k,1261) - lu(k,1272) = - lu(k,630) * lu(k,1261) - lu(k,1273) = lu(k,1273) - lu(k,631) * lu(k,1261) - lu(k,1274) = lu(k,1274) - lu(k,632) * lu(k,1261) - lu(k,1275) = - lu(k,633) * lu(k,1261) - lu(k,1277) = lu(k,1277) - lu(k,634) * lu(k,1261) - lu(k,1278) = lu(k,1278) - lu(k,635) * lu(k,1261) - lu(k,1279) = lu(k,1279) - lu(k,636) * lu(k,1261) - lu(k,1280) = lu(k,1280) - lu(k,637) * lu(k,1261) - lu(k,1281) = lu(k,1281) - lu(k,638) * lu(k,1261) - lu(k,1282) = lu(k,1282) - lu(k,639) * lu(k,1261) - lu(k,1283) = lu(k,1283) - lu(k,640) * lu(k,1261) - lu(k,1284) = - lu(k,641) * lu(k,1261) - lu(k,1285) = lu(k,1285) - lu(k,642) * lu(k,1261) - lu(k,1286) = lu(k,1286) - lu(k,643) * lu(k,1261) - lu(k,1287) = lu(k,1287) - lu(k,644) * lu(k,1261) - lu(k,1288) = lu(k,1288) - lu(k,645) * lu(k,1261) - lu(k,1289) = lu(k,1289) - lu(k,646) * lu(k,1261) - lu(k,1290) = lu(k,1290) - lu(k,647) * lu(k,1261) - lu(k,1298) = lu(k,1298) - lu(k,620) * lu(k,1297) - lu(k,1299) = lu(k,1299) - lu(k,621) * lu(k,1297) - lu(k,1300) = lu(k,1300) - lu(k,622) * lu(k,1297) - lu(k,1301) = lu(k,1301) - lu(k,623) * lu(k,1297) - lu(k,1302) = lu(k,1302) - lu(k,624) * lu(k,1297) - lu(k,1303) = lu(k,1303) - lu(k,625) * lu(k,1297) - lu(k,1304) = lu(k,1304) - lu(k,626) * lu(k,1297) - lu(k,1305) = lu(k,1305) - lu(k,627) * lu(k,1297) - lu(k,1306) = lu(k,1306) - lu(k,628) * lu(k,1297) - lu(k,1307) = lu(k,1307) - lu(k,629) * lu(k,1297) - lu(k,1308) = lu(k,1308) - lu(k,630) * lu(k,1297) - lu(k,1309) = lu(k,1309) - lu(k,631) * lu(k,1297) - lu(k,1310) = lu(k,1310) - lu(k,632) * lu(k,1297) - lu(k,1311) = lu(k,1311) - lu(k,633) * lu(k,1297) - lu(k,1313) = lu(k,1313) - lu(k,634) * lu(k,1297) - lu(k,1314) = lu(k,1314) - lu(k,635) * lu(k,1297) - lu(k,1315) = lu(k,1315) - lu(k,636) * lu(k,1297) - lu(k,1316) = lu(k,1316) - lu(k,637) * lu(k,1297) - lu(k,1317) = lu(k,1317) - lu(k,638) * lu(k,1297) - lu(k,1318) = lu(k,1318) - lu(k,639) * lu(k,1297) - lu(k,1319) = lu(k,1319) - lu(k,640) * lu(k,1297) - lu(k,1320) = lu(k,1320) - lu(k,641) * lu(k,1297) - lu(k,1321) = lu(k,1321) - lu(k,642) * lu(k,1297) - lu(k,1322) = lu(k,1322) - lu(k,643) * lu(k,1297) - lu(k,1323) = lu(k,1323) - lu(k,644) * lu(k,1297) - lu(k,1324) = lu(k,1324) - lu(k,645) * lu(k,1297) - lu(k,1325) = lu(k,1325) - lu(k,646) * lu(k,1297) - lu(k,1326) = lu(k,1326) - lu(k,647) * lu(k,1297) - lu(k,1343) = lu(k,1343) - lu(k,620) * lu(k,1342) - lu(k,1344) = lu(k,1344) - lu(k,621) * lu(k,1342) - lu(k,1345) = lu(k,1345) - lu(k,622) * lu(k,1342) - lu(k,1346) = lu(k,1346) - lu(k,623) * lu(k,1342) - lu(k,1347) = lu(k,1347) - lu(k,624) * lu(k,1342) - lu(k,1348) = lu(k,1348) - lu(k,625) * lu(k,1342) - lu(k,1349) = lu(k,1349) - lu(k,626) * lu(k,1342) - lu(k,1350) = lu(k,1350) - lu(k,627) * lu(k,1342) - lu(k,1351) = lu(k,1351) - lu(k,628) * lu(k,1342) - lu(k,1352) = lu(k,1352) - lu(k,629) * lu(k,1342) - lu(k,1353) = lu(k,1353) - lu(k,630) * lu(k,1342) - lu(k,1354) = lu(k,1354) - lu(k,631) * lu(k,1342) - lu(k,1355) = lu(k,1355) - lu(k,632) * lu(k,1342) - lu(k,1356) = lu(k,1356) - lu(k,633) * lu(k,1342) - lu(k,1358) = lu(k,1358) - lu(k,634) * lu(k,1342) - lu(k,1359) = lu(k,1359) - lu(k,635) * lu(k,1342) - lu(k,1360) = lu(k,1360) - lu(k,636) * lu(k,1342) - lu(k,1361) = lu(k,1361) - lu(k,637) * lu(k,1342) - lu(k,1362) = lu(k,1362) - lu(k,638) * lu(k,1342) - lu(k,1363) = lu(k,1363) - lu(k,639) * lu(k,1342) - lu(k,1364) = lu(k,1364) - lu(k,640) * lu(k,1342) - lu(k,1365) = lu(k,1365) - lu(k,641) * lu(k,1342) - lu(k,1366) = lu(k,1366) - lu(k,642) * lu(k,1342) - lu(k,1367) = lu(k,1367) - lu(k,643) * lu(k,1342) - lu(k,1368) = lu(k,1368) - lu(k,644) * lu(k,1342) - lu(k,1369) = lu(k,1369) - lu(k,645) * lu(k,1342) - lu(k,1370) = lu(k,1370) - lu(k,646) * lu(k,1342) - lu(k,1371) = lu(k,1371) - lu(k,647) * lu(k,1342) - lu(k,1385) = lu(k,1385) - lu(k,620) * lu(k,1384) - lu(k,1386) = lu(k,1386) - lu(k,621) * lu(k,1384) - lu(k,1387) = lu(k,1387) - lu(k,622) * lu(k,1384) - lu(k,1388) = lu(k,1388) - lu(k,623) * lu(k,1384) - lu(k,1389) = lu(k,1389) - lu(k,624) * lu(k,1384) - lu(k,1390) = lu(k,1390) - lu(k,625) * lu(k,1384) - lu(k,1391) = lu(k,1391) - lu(k,626) * lu(k,1384) - lu(k,1392) = lu(k,1392) - lu(k,627) * lu(k,1384) - lu(k,1393) = lu(k,1393) - lu(k,628) * lu(k,1384) - lu(k,1394) = lu(k,1394) - lu(k,629) * lu(k,1384) - lu(k,1395) = lu(k,1395) - lu(k,630) * lu(k,1384) - lu(k,1396) = lu(k,1396) - lu(k,631) * lu(k,1384) - lu(k,1397) = lu(k,1397) - lu(k,632) * lu(k,1384) - lu(k,1398) = lu(k,1398) - lu(k,633) * lu(k,1384) - lu(k,1400) = lu(k,1400) - lu(k,634) * lu(k,1384) - lu(k,1401) = lu(k,1401) - lu(k,635) * lu(k,1384) - lu(k,1402) = lu(k,1402) - lu(k,636) * lu(k,1384) - lu(k,1403) = lu(k,1403) - lu(k,637) * lu(k,1384) - lu(k,1404) = lu(k,1404) - lu(k,638) * lu(k,1384) - lu(k,1405) = lu(k,1405) - lu(k,639) * lu(k,1384) - lu(k,1406) = lu(k,1406) - lu(k,640) * lu(k,1384) - lu(k,1407) = lu(k,1407) - lu(k,641) * lu(k,1384) - lu(k,1408) = lu(k,1408) - lu(k,642) * lu(k,1384) - lu(k,1409) = lu(k,1409) - lu(k,643) * lu(k,1384) - lu(k,1410) = lu(k,1410) - lu(k,644) * lu(k,1384) - lu(k,1411) = lu(k,1411) - lu(k,645) * lu(k,1384) - lu(k,1412) = lu(k,1412) - lu(k,646) * lu(k,1384) - lu(k,1413) = lu(k,1413) - lu(k,647) * lu(k,1384) - lu(k,1423) = lu(k,1423) - lu(k,620) * lu(k,1422) - lu(k,1424) = lu(k,1424) - lu(k,621) * lu(k,1422) - lu(k,1425) = lu(k,1425) - lu(k,622) * lu(k,1422) - lu(k,1426) = lu(k,1426) - lu(k,623) * lu(k,1422) - lu(k,1427) = lu(k,1427) - lu(k,624) * lu(k,1422) - lu(k,1428) = lu(k,1428) - lu(k,625) * lu(k,1422) - lu(k,1429) = - lu(k,626) * lu(k,1422) - lu(k,1430) = - lu(k,627) * lu(k,1422) - lu(k,1431) = lu(k,1431) - lu(k,628) * lu(k,1422) - lu(k,1432) = lu(k,1432) - lu(k,629) * lu(k,1422) - lu(k,1433) = - lu(k,630) * lu(k,1422) - lu(k,1434) = lu(k,1434) - lu(k,631) * lu(k,1422) - lu(k,1435) = lu(k,1435) - lu(k,632) * lu(k,1422) - lu(k,1436) = - lu(k,633) * lu(k,1422) - lu(k,1438) = lu(k,1438) - lu(k,634) * lu(k,1422) - lu(k,1439) = lu(k,1439) - lu(k,635) * lu(k,1422) - lu(k,1440) = lu(k,1440) - lu(k,636) * lu(k,1422) - lu(k,1441) = lu(k,1441) - lu(k,637) * lu(k,1422) - lu(k,1442) = lu(k,1442) - lu(k,638) * lu(k,1422) - lu(k,1443) = lu(k,1443) - lu(k,639) * lu(k,1422) - lu(k,1444) = lu(k,1444) - lu(k,640) * lu(k,1422) - lu(k,1445) = - lu(k,641) * lu(k,1422) - lu(k,1446) = lu(k,1446) - lu(k,642) * lu(k,1422) - lu(k,1447) = lu(k,1447) - lu(k,643) * lu(k,1422) - lu(k,1448) = lu(k,1448) - lu(k,644) * lu(k,1422) - lu(k,1449) = lu(k,1449) - lu(k,645) * lu(k,1422) - lu(k,1450) = lu(k,1450) - lu(k,646) * lu(k,1422) - lu(k,1451) = lu(k,1451) - lu(k,647) * lu(k,1422) - lu(k,1468) = lu(k,1468) - lu(k,620) * lu(k,1467) - lu(k,1469) = lu(k,1469) - lu(k,621) * lu(k,1467) - lu(k,1470) = lu(k,1470) - lu(k,622) * lu(k,1467) - lu(k,1471) = lu(k,1471) - lu(k,623) * lu(k,1467) - lu(k,1472) = - lu(k,624) * lu(k,1467) - lu(k,1473) = lu(k,1473) - lu(k,625) * lu(k,1467) - lu(k,1474) = lu(k,1474) - lu(k,626) * lu(k,1467) - lu(k,1475) = lu(k,1475) - lu(k,627) * lu(k,1467) - lu(k,1476) = lu(k,1476) - lu(k,628) * lu(k,1467) - lu(k,1477) = lu(k,1477) - lu(k,629) * lu(k,1467) - lu(k,1478) = lu(k,1478) - lu(k,630) * lu(k,1467) - lu(k,1479) = lu(k,1479) - lu(k,631) * lu(k,1467) - lu(k,1480) = lu(k,1480) - lu(k,632) * lu(k,1467) - lu(k,1481) = lu(k,1481) - lu(k,633) * lu(k,1467) - lu(k,1483) = lu(k,1483) - lu(k,634) * lu(k,1467) - lu(k,1484) = lu(k,1484) - lu(k,635) * lu(k,1467) - lu(k,1485) = lu(k,1485) - lu(k,636) * lu(k,1467) - lu(k,1486) = lu(k,1486) - lu(k,637) * lu(k,1467) - lu(k,1487) = lu(k,1487) - lu(k,638) * lu(k,1467) - lu(k,1488) = lu(k,1488) - lu(k,639) * lu(k,1467) - lu(k,1489) = lu(k,1489) - lu(k,640) * lu(k,1467) - lu(k,1490) = lu(k,1490) - lu(k,641) * lu(k,1467) - lu(k,1491) = lu(k,1491) - lu(k,642) * lu(k,1467) - lu(k,1492) = lu(k,1492) - lu(k,643) * lu(k,1467) - lu(k,1493) = lu(k,1493) - lu(k,644) * lu(k,1467) - lu(k,1494) = lu(k,1494) - lu(k,645) * lu(k,1467) - lu(k,1495) = lu(k,1495) - lu(k,646) * lu(k,1467) - lu(k,1496) = lu(k,1496) - lu(k,647) * lu(k,1467) - lu(k,1511) = lu(k,1511) - lu(k,620) * lu(k,1510) - lu(k,1512) = lu(k,1512) - lu(k,621) * lu(k,1510) - lu(k,1513) = lu(k,1513) - lu(k,622) * lu(k,1510) - lu(k,1514) = lu(k,1514) - lu(k,623) * lu(k,1510) - lu(k,1515) = lu(k,1515) - lu(k,624) * lu(k,1510) - lu(k,1516) = lu(k,1516) - lu(k,625) * lu(k,1510) - lu(k,1517) = lu(k,1517) - lu(k,626) * lu(k,1510) - lu(k,1518) = lu(k,1518) - lu(k,627) * lu(k,1510) - lu(k,1519) = lu(k,1519) - lu(k,628) * lu(k,1510) - lu(k,1520) = lu(k,1520) - lu(k,629) * lu(k,1510) - lu(k,1521) = lu(k,1521) - lu(k,630) * lu(k,1510) - lu(k,1522) = lu(k,1522) - lu(k,631) * lu(k,1510) - lu(k,1523) = lu(k,1523) - lu(k,632) * lu(k,1510) - lu(k,1524) = lu(k,1524) - lu(k,633) * lu(k,1510) - lu(k,1526) = lu(k,1526) - lu(k,634) * lu(k,1510) - lu(k,1527) = lu(k,1527) - lu(k,635) * lu(k,1510) - lu(k,1528) = lu(k,1528) - lu(k,636) * lu(k,1510) - lu(k,1529) = lu(k,1529) - lu(k,637) * lu(k,1510) - lu(k,1530) = lu(k,1530) - lu(k,638) * lu(k,1510) - lu(k,1531) = lu(k,1531) - lu(k,639) * lu(k,1510) - lu(k,1532) = lu(k,1532) - lu(k,640) * lu(k,1510) - lu(k,1533) = lu(k,1533) - lu(k,641) * lu(k,1510) - lu(k,1534) = lu(k,1534) - lu(k,642) * lu(k,1510) - lu(k,1535) = lu(k,1535) - lu(k,643) * lu(k,1510) - lu(k,1536) = lu(k,1536) - lu(k,644) * lu(k,1510) - lu(k,1537) = lu(k,1537) - lu(k,645) * lu(k,1510) - lu(k,1538) = lu(k,1538) - lu(k,646) * lu(k,1510) - lu(k,1539) = lu(k,1539) - lu(k,647) * lu(k,1510) - lu(k,1554) = lu(k,1554) - lu(k,620) * lu(k,1553) - lu(k,1555) = - lu(k,621) * lu(k,1553) - lu(k,1556) = lu(k,1556) - lu(k,622) * lu(k,1553) - lu(k,1557) = lu(k,1557) - lu(k,623) * lu(k,1553) - lu(k,1558) = lu(k,1558) - lu(k,624) * lu(k,1553) - lu(k,1559) = lu(k,1559) - lu(k,625) * lu(k,1553) - lu(k,1560) = lu(k,1560) - lu(k,626) * lu(k,1553) - lu(k,1561) = lu(k,1561) - lu(k,627) * lu(k,1553) - lu(k,1562) = lu(k,1562) - lu(k,628) * lu(k,1553) - lu(k,1563) = lu(k,1563) - lu(k,629) * lu(k,1553) - lu(k,1564) = lu(k,1564) - lu(k,630) * lu(k,1553) - lu(k,1565) = lu(k,1565) - lu(k,631) * lu(k,1553) - lu(k,1566) = lu(k,1566) - lu(k,632) * lu(k,1553) - lu(k,1567) = lu(k,1567) - lu(k,633) * lu(k,1553) - lu(k,1569) = lu(k,1569) - lu(k,634) * lu(k,1553) - lu(k,1570) = lu(k,1570) - lu(k,635) * lu(k,1553) - lu(k,1571) = lu(k,1571) - lu(k,636) * lu(k,1553) - lu(k,1572) = lu(k,1572) - lu(k,637) * lu(k,1553) - lu(k,1573) = - lu(k,638) * lu(k,1553) - lu(k,1574) = lu(k,1574) - lu(k,639) * lu(k,1553) - lu(k,1575) = - lu(k,640) * lu(k,1553) - lu(k,1576) = lu(k,1576) - lu(k,641) * lu(k,1553) - lu(k,1577) = - lu(k,642) * lu(k,1553) - lu(k,1578) = - lu(k,643) * lu(k,1553) - lu(k,1579) = lu(k,1579) - lu(k,644) * lu(k,1553) - lu(k,1580) = lu(k,1580) - lu(k,645) * lu(k,1553) - lu(k,1581) = lu(k,1581) - lu(k,646) * lu(k,1553) - lu(k,1582) = lu(k,1582) - lu(k,647) * lu(k,1553) - lu(k,1666) = lu(k,1666) - lu(k,620) * lu(k,1665) - lu(k,1667) = lu(k,1667) - lu(k,621) * lu(k,1665) - lu(k,1668) = lu(k,1668) - lu(k,622) * lu(k,1665) - lu(k,1669) = lu(k,1669) - lu(k,623) * lu(k,1665) - lu(k,1670) = lu(k,1670) - lu(k,624) * lu(k,1665) - lu(k,1671) = lu(k,1671) - lu(k,625) * lu(k,1665) - lu(k,1672) = lu(k,1672) - lu(k,626) * lu(k,1665) - lu(k,1673) = lu(k,1673) - lu(k,627) * lu(k,1665) - lu(k,1674) = lu(k,1674) - lu(k,628) * lu(k,1665) - lu(k,1675) = lu(k,1675) - lu(k,629) * lu(k,1665) - lu(k,1676) = lu(k,1676) - lu(k,630) * lu(k,1665) - lu(k,1677) = lu(k,1677) - lu(k,631) * lu(k,1665) - lu(k,1678) = lu(k,1678) - lu(k,632) * lu(k,1665) - lu(k,1679) = lu(k,1679) - lu(k,633) * lu(k,1665) - lu(k,1681) = lu(k,1681) - lu(k,634) * lu(k,1665) - lu(k,1682) = lu(k,1682) - lu(k,635) * lu(k,1665) - lu(k,1683) = lu(k,1683) - lu(k,636) * lu(k,1665) - lu(k,1684) = lu(k,1684) - lu(k,637) * lu(k,1665) - lu(k,1685) = lu(k,1685) - lu(k,638) * lu(k,1665) - lu(k,1686) = lu(k,1686) - lu(k,639) * lu(k,1665) - lu(k,1687) = lu(k,1687) - lu(k,640) * lu(k,1665) - lu(k,1688) = lu(k,1688) - lu(k,641) * lu(k,1665) - lu(k,1689) = lu(k,1689) - lu(k,642) * lu(k,1665) - lu(k,1690) = lu(k,1690) - lu(k,643) * lu(k,1665) - lu(k,1691) = lu(k,1691) - lu(k,644) * lu(k,1665) - lu(k,1692) = lu(k,1692) - lu(k,645) * lu(k,1665) - lu(k,1693) = lu(k,1693) - lu(k,646) * lu(k,1665) - lu(k,1694) = lu(k,1694) - lu(k,647) * lu(k,1665) - lu(k,1702) = lu(k,1702) - lu(k,620) * lu(k,1701) - lu(k,1703) = lu(k,1703) - lu(k,621) * lu(k,1701) - lu(k,1704) = lu(k,1704) - lu(k,622) * lu(k,1701) - lu(k,1705) = lu(k,1705) - lu(k,623) * lu(k,1701) - lu(k,1706) = lu(k,1706) - lu(k,624) * lu(k,1701) - lu(k,1707) = lu(k,1707) - lu(k,625) * lu(k,1701) - lu(k,1708) = lu(k,1708) - lu(k,626) * lu(k,1701) - lu(k,1709) = lu(k,1709) - lu(k,627) * lu(k,1701) - lu(k,1710) = lu(k,1710) - lu(k,628) * lu(k,1701) - lu(k,1711) = lu(k,1711) - lu(k,629) * lu(k,1701) - lu(k,1712) = lu(k,1712) - lu(k,630) * lu(k,1701) - lu(k,1713) = lu(k,1713) - lu(k,631) * lu(k,1701) - lu(k,1714) = lu(k,1714) - lu(k,632) * lu(k,1701) - lu(k,1715) = lu(k,1715) - lu(k,633) * lu(k,1701) - lu(k,1717) = lu(k,1717) - lu(k,634) * lu(k,1701) - lu(k,1718) = lu(k,1718) - lu(k,635) * lu(k,1701) - lu(k,1719) = lu(k,1719) - lu(k,636) * lu(k,1701) - lu(k,1720) = lu(k,1720) - lu(k,637) * lu(k,1701) - lu(k,1721) = lu(k,1721) - lu(k,638) * lu(k,1701) - lu(k,1722) = lu(k,1722) - lu(k,639) * lu(k,1701) - lu(k,1723) = lu(k,1723) - lu(k,640) * lu(k,1701) - lu(k,1724) = lu(k,1724) - lu(k,641) * lu(k,1701) - lu(k,1725) = lu(k,1725) - lu(k,642) * lu(k,1701) - lu(k,1726) = lu(k,1726) - lu(k,643) * lu(k,1701) - lu(k,1727) = lu(k,1727) - lu(k,644) * lu(k,1701) - lu(k,1728) = lu(k,1728) - lu(k,645) * lu(k,1701) - lu(k,1729) = lu(k,1729) - lu(k,646) * lu(k,1701) - lu(k,1730) = lu(k,1730) - lu(k,647) * lu(k,1701) - end do + real(r8), intent(inout) :: lu(:) + lu(613) = 1._r8 / lu(613) + lu(614) = lu(614) * lu(613) + lu(615) = lu(615) * lu(613) + lu(616) = lu(616) * lu(613) + lu(617) = lu(617) * lu(613) + lu(618) = lu(618) * lu(613) + lu(619) = lu(619) * lu(613) + lu(620) = lu(620) * lu(613) + lu(621) = lu(621) * lu(613) + lu(622) = lu(622) * lu(613) + lu(623) = lu(623) * lu(613) + lu(624) = lu(624) * lu(613) + lu(625) = lu(625) * lu(613) + lu(626) = lu(626) * lu(613) + lu(627) = lu(627) * lu(613) + lu(628) = lu(628) * lu(613) + lu(629) = lu(629) * lu(613) + lu(630) = lu(630) * lu(613) + lu(631) = lu(631) * lu(613) + lu(636) = lu(636) - lu(614) * lu(635) + lu(637) = lu(637) - lu(615) * lu(635) + lu(638) = lu(638) - lu(616) * lu(635) + lu(639) = lu(639) - lu(617) * lu(635) + lu(640) = lu(640) - lu(618) * lu(635) + lu(641) = lu(641) - lu(619) * lu(635) + lu(642) = lu(642) - lu(620) * lu(635) + lu(643) = lu(643) - lu(621) * lu(635) + lu(644) = lu(644) - lu(622) * lu(635) + lu(645) = lu(645) - lu(623) * lu(635) + lu(646) = - lu(624) * lu(635) + lu(647) = lu(647) - lu(625) * lu(635) + lu(648) = lu(648) - lu(626) * lu(635) + lu(649) = lu(649) - lu(627) * lu(635) + lu(650) = lu(650) - lu(628) * lu(635) + lu(651) = lu(651) - lu(629) * lu(635) + lu(654) = lu(654) - lu(630) * lu(635) + lu(656) = lu(656) - lu(631) * lu(635) + lu(737) = lu(737) - lu(614) * lu(736) + lu(740) = lu(740) - lu(615) * lu(736) + lu(741) = lu(741) - lu(616) * lu(736) + lu(742) = lu(742) - lu(617) * lu(736) + lu(743) = - lu(618) * lu(736) + lu(744) = lu(744) - lu(619) * lu(736) + lu(745) = lu(745) - lu(620) * lu(736) + lu(746) = lu(746) - lu(621) * lu(736) + lu(747) = lu(747) - lu(622) * lu(736) + lu(749) = lu(749) - lu(623) * lu(736) + lu(750) = lu(750) - lu(624) * lu(736) + lu(752) = lu(752) - lu(625) * lu(736) + lu(753) = lu(753) - lu(626) * lu(736) + lu(754) = lu(754) - lu(627) * lu(736) + lu(755) = lu(755) - lu(628) * lu(736) + lu(756) = lu(756) - lu(629) * lu(736) + lu(761) = lu(761) - lu(630) * lu(736) + lu(763) = lu(763) - lu(631) * lu(736) + lu(767) = lu(767) - lu(614) * lu(766) + lu(769) = lu(769) - lu(615) * lu(766) + lu(770) = lu(770) - lu(616) * lu(766) + lu(771) = lu(771) - lu(617) * lu(766) + lu(772) = lu(772) - lu(618) * lu(766) + lu(773) = lu(773) - lu(619) * lu(766) + lu(774) = lu(774) - lu(620) * lu(766) + lu(775) = lu(775) - lu(621) * lu(766) + lu(776) = lu(776) - lu(622) * lu(766) + lu(778) = lu(778) - lu(623) * lu(766) + lu(779) = lu(779) - lu(624) * lu(766) + lu(781) = lu(781) - lu(625) * lu(766) + lu(782) = lu(782) - lu(626) * lu(766) + lu(783) = lu(783) - lu(627) * lu(766) + lu(784) = lu(784) - lu(628) * lu(766) + lu(785) = lu(785) - lu(629) * lu(766) + lu(790) = lu(790) - lu(630) * lu(766) + lu(792) = lu(792) - lu(631) * lu(766) + lu(812) = lu(812) - lu(614) * lu(811) + lu(816) = lu(816) - lu(615) * lu(811) + lu(817) = lu(817) - lu(616) * lu(811) + lu(818) = lu(818) - lu(617) * lu(811) + lu(819) = lu(819) - lu(618) * lu(811) + lu(820) = lu(820) - lu(619) * lu(811) + lu(821) = lu(821) - lu(620) * lu(811) + lu(822) = lu(822) - lu(621) * lu(811) + lu(823) = lu(823) - lu(622) * lu(811) + lu(825) = lu(825) - lu(623) * lu(811) + lu(826) = lu(826) - lu(624) * lu(811) + lu(828) = lu(828) - lu(625) * lu(811) + lu(829) = lu(829) - lu(626) * lu(811) + lu(830) = lu(830) - lu(627) * lu(811) + lu(831) = lu(831) - lu(628) * lu(811) + lu(832) = lu(832) - lu(629) * lu(811) + lu(837) = lu(837) - lu(630) * lu(811) + lu(839) = lu(839) - lu(631) * lu(811) + lu(854) = lu(854) - lu(614) * lu(853) + lu(858) = lu(858) - lu(615) * lu(853) + lu(859) = lu(859) - lu(616) * lu(853) + lu(860) = lu(860) - lu(617) * lu(853) + lu(861) = lu(861) - lu(618) * lu(853) + lu(862) = lu(862) - lu(619) * lu(853) + lu(863) = lu(863) - lu(620) * lu(853) + lu(864) = lu(864) - lu(621) * lu(853) + lu(865) = lu(865) - lu(622) * lu(853) + lu(867) = lu(867) - lu(623) * lu(853) + lu(868) = lu(868) - lu(624) * lu(853) + lu(870) = lu(870) - lu(625) * lu(853) + lu(871) = lu(871) - lu(626) * lu(853) + lu(872) = lu(872) - lu(627) * lu(853) + lu(873) = lu(873) - lu(628) * lu(853) + lu(874) = lu(874) - lu(629) * lu(853) + lu(879) = lu(879) - lu(630) * lu(853) + lu(881) = lu(881) - lu(631) * lu(853) + lu(898) = lu(898) - lu(614) * lu(897) + lu(902) = lu(902) - lu(615) * lu(897) + lu(903) = lu(903) - lu(616) * lu(897) + lu(904) = lu(904) - lu(617) * lu(897) + lu(905) = lu(905) - lu(618) * lu(897) + lu(906) = lu(906) - lu(619) * lu(897) + lu(907) = lu(907) - lu(620) * lu(897) + lu(908) = lu(908) - lu(621) * lu(897) + lu(909) = lu(909) - lu(622) * lu(897) + lu(911) = lu(911) - lu(623) * lu(897) + lu(912) = lu(912) - lu(624) * lu(897) + lu(914) = lu(914) - lu(625) * lu(897) + lu(915) = lu(915) - lu(626) * lu(897) + lu(916) = lu(916) - lu(627) * lu(897) + lu(917) = lu(917) - lu(628) * lu(897) + lu(918) = lu(918) - lu(629) * lu(897) + lu(923) = lu(923) - lu(630) * lu(897) + lu(925) = lu(925) - lu(631) * lu(897) + lu(933) = lu(933) - lu(614) * lu(932) + lu(937) = lu(937) - lu(615) * lu(932) + lu(938) = lu(938) - lu(616) * lu(932) + lu(939) = lu(939) - lu(617) * lu(932) + lu(940) = lu(940) - lu(618) * lu(932) + lu(941) = lu(941) - lu(619) * lu(932) + lu(942) = lu(942) - lu(620) * lu(932) + lu(943) = lu(943) - lu(621) * lu(932) + lu(944) = lu(944) - lu(622) * lu(932) + lu(946) = lu(946) - lu(623) * lu(932) + lu(947) = lu(947) - lu(624) * lu(932) + lu(949) = lu(949) - lu(625) * lu(932) + lu(950) = lu(950) - lu(626) * lu(932) + lu(951) = lu(951) - lu(627) * lu(932) + lu(952) = lu(952) - lu(628) * lu(932) + lu(953) = lu(953) - lu(629) * lu(932) + lu(958) = lu(958) - lu(630) * lu(932) + lu(960) = lu(960) - lu(631) * lu(932) + lu(974) = lu(974) - lu(614) * lu(973) + lu(978) = lu(978) - lu(615) * lu(973) + lu(979) = lu(979) - lu(616) * lu(973) + lu(980) = lu(980) - lu(617) * lu(973) + lu(981) = lu(981) - lu(618) * lu(973) + lu(982) = lu(982) - lu(619) * lu(973) + lu(983) = lu(983) - lu(620) * lu(973) + lu(984) = lu(984) - lu(621) * lu(973) + lu(985) = lu(985) - lu(622) * lu(973) + lu(987) = lu(987) - lu(623) * lu(973) + lu(988) = lu(988) - lu(624) * lu(973) + lu(990) = lu(990) - lu(625) * lu(973) + lu(991) = lu(991) - lu(626) * lu(973) + lu(992) = lu(992) - lu(627) * lu(973) + lu(993) = lu(993) - lu(628) * lu(973) + lu(994) = lu(994) - lu(629) * lu(973) + lu(999) = lu(999) - lu(630) * lu(973) + lu(1001) = lu(1001) - lu(631) * lu(973) + lu(1016) = lu(1016) - lu(614) * lu(1015) + lu(1020) = lu(1020) - lu(615) * lu(1015) + lu(1021) = lu(1021) - lu(616) * lu(1015) + lu(1022) = lu(1022) - lu(617) * lu(1015) + lu(1023) = lu(1023) - lu(618) * lu(1015) + lu(1024) = lu(1024) - lu(619) * lu(1015) + lu(1025) = lu(1025) - lu(620) * lu(1015) + lu(1026) = lu(1026) - lu(621) * lu(1015) + lu(1027) = lu(1027) - lu(622) * lu(1015) + lu(1029) = lu(1029) - lu(623) * lu(1015) + lu(1030) = lu(1030) - lu(624) * lu(1015) + lu(1032) = lu(1032) - lu(625) * lu(1015) + lu(1033) = lu(1033) - lu(626) * lu(1015) + lu(1034) = lu(1034) - lu(627) * lu(1015) + lu(1035) = lu(1035) - lu(628) * lu(1015) + lu(1036) = lu(1036) - lu(629) * lu(1015) + lu(1041) = lu(1041) - lu(630) * lu(1015) + lu(1043) = lu(1043) - lu(631) * lu(1015) + lu(1060) = lu(1060) - lu(614) * lu(1059) + lu(1064) = lu(1064) - lu(615) * lu(1059) + lu(1065) = lu(1065) - lu(616) * lu(1059) + lu(1066) = lu(1066) - lu(617) * lu(1059) + lu(1067) = lu(1067) - lu(618) * lu(1059) + lu(1068) = lu(1068) - lu(619) * lu(1059) + lu(1069) = lu(1069) - lu(620) * lu(1059) + lu(1070) = lu(1070) - lu(621) * lu(1059) + lu(1071) = lu(1071) - lu(622) * lu(1059) + lu(1073) = lu(1073) - lu(623) * lu(1059) + lu(1074) = lu(1074) - lu(624) * lu(1059) + lu(1076) = lu(1076) - lu(625) * lu(1059) + lu(1077) = lu(1077) - lu(626) * lu(1059) + lu(1078) = lu(1078) - lu(627) * lu(1059) + lu(1079) = lu(1079) - lu(628) * lu(1059) + lu(1080) = lu(1080) - lu(629) * lu(1059) + lu(1085) = lu(1085) - lu(630) * lu(1059) + lu(1087) = lu(1087) - lu(631) * lu(1059) + lu(1102) = lu(1102) - lu(614) * lu(1101) + lu(1106) = lu(1106) - lu(615) * lu(1101) + lu(1107) = lu(1107) - lu(616) * lu(1101) + lu(1108) = lu(1108) - lu(617) * lu(1101) + lu(1109) = lu(1109) - lu(618) * lu(1101) + lu(1110) = lu(1110) - lu(619) * lu(1101) + lu(1111) = lu(1111) - lu(620) * lu(1101) + lu(1112) = lu(1112) - lu(621) * lu(1101) + lu(1113) = lu(1113) - lu(622) * lu(1101) + lu(1115) = lu(1115) - lu(623) * lu(1101) + lu(1116) = lu(1116) - lu(624) * lu(1101) + lu(1118) = lu(1118) - lu(625) * lu(1101) + lu(1119) = lu(1119) - lu(626) * lu(1101) + lu(1120) = lu(1120) - lu(627) * lu(1101) + lu(1121) = lu(1121) - lu(628) * lu(1101) + lu(1122) = lu(1122) - lu(629) * lu(1101) + lu(1127) = lu(1127) - lu(630) * lu(1101) + lu(1129) = lu(1129) - lu(631) * lu(1101) + lu(1145) = lu(1145) - lu(614) * lu(1144) + lu(1149) = lu(1149) - lu(615) * lu(1144) + lu(1150) = lu(1150) - lu(616) * lu(1144) + lu(1151) = lu(1151) - lu(617) * lu(1144) + lu(1152) = lu(1152) - lu(618) * lu(1144) + lu(1153) = lu(1153) - lu(619) * lu(1144) + lu(1154) = lu(1154) - lu(620) * lu(1144) + lu(1155) = lu(1155) - lu(621) * lu(1144) + lu(1156) = lu(1156) - lu(622) * lu(1144) + lu(1158) = lu(1158) - lu(623) * lu(1144) + lu(1159) = lu(1159) - lu(624) * lu(1144) + lu(1161) = lu(1161) - lu(625) * lu(1144) + lu(1162) = lu(1162) - lu(626) * lu(1144) + lu(1163) = lu(1163) - lu(627) * lu(1144) + lu(1164) = lu(1164) - lu(628) * lu(1144) + lu(1165) = lu(1165) - lu(629) * lu(1144) + lu(1170) = lu(1170) - lu(630) * lu(1144) + lu(1172) = lu(1172) - lu(631) * lu(1144) + lu(1187) = lu(1187) - lu(614) * lu(1186) + lu(1191) = lu(1191) - lu(615) * lu(1186) + lu(1192) = lu(1192) - lu(616) * lu(1186) + lu(1193) = lu(1193) - lu(617) * lu(1186) + lu(1194) = lu(1194) - lu(618) * lu(1186) + lu(1195) = lu(1195) - lu(619) * lu(1186) + lu(1196) = lu(1196) - lu(620) * lu(1186) + lu(1197) = lu(1197) - lu(621) * lu(1186) + lu(1198) = lu(1198) - lu(622) * lu(1186) + lu(1200) = lu(1200) - lu(623) * lu(1186) + lu(1201) = lu(1201) - lu(624) * lu(1186) + lu(1203) = lu(1203) - lu(625) * lu(1186) + lu(1204) = lu(1204) - lu(626) * lu(1186) + lu(1205) = lu(1205) - lu(627) * lu(1186) + lu(1206) = lu(1206) - lu(628) * lu(1186) + lu(1207) = lu(1207) - lu(629) * lu(1186) + lu(1212) = lu(1212) - lu(630) * lu(1186) + lu(1214) = lu(1214) - lu(631) * lu(1186) + lu(1222) = lu(1222) - lu(614) * lu(1221) + lu(1226) = lu(1226) - lu(615) * lu(1221) + lu(1227) = lu(1227) - lu(616) * lu(1221) + lu(1228) = lu(1228) - lu(617) * lu(1221) + lu(1229) = lu(1229) - lu(618) * lu(1221) + lu(1230) = lu(1230) - lu(619) * lu(1221) + lu(1231) = lu(1231) - lu(620) * lu(1221) + lu(1232) = lu(1232) - lu(621) * lu(1221) + lu(1233) = lu(1233) - lu(622) * lu(1221) + lu(1235) = lu(1235) - lu(623) * lu(1221) + lu(1236) = lu(1236) - lu(624) * lu(1221) + lu(1238) = lu(1238) - lu(625) * lu(1221) + lu(1239) = lu(1239) - lu(626) * lu(1221) + lu(1240) = lu(1240) - lu(627) * lu(1221) + lu(1241) = lu(1241) - lu(628) * lu(1221) + lu(1242) = lu(1242) - lu(629) * lu(1221) + lu(1247) = lu(1247) - lu(630) * lu(1221) + lu(1249) = lu(1249) - lu(631) * lu(1221) + lu(1266) = lu(1266) - lu(614) * lu(1265) + lu(1270) = lu(1270) - lu(615) * lu(1265) + lu(1271) = lu(1271) - lu(616) * lu(1265) + lu(1272) = lu(1272) - lu(617) * lu(1265) + lu(1273) = lu(1273) - lu(618) * lu(1265) + lu(1274) = lu(1274) - lu(619) * lu(1265) + lu(1275) = lu(1275) - lu(620) * lu(1265) + lu(1276) = lu(1276) - lu(621) * lu(1265) + lu(1277) = lu(1277) - lu(622) * lu(1265) + lu(1279) = lu(1279) - lu(623) * lu(1265) + lu(1280) = lu(1280) - lu(624) * lu(1265) + lu(1282) = lu(1282) - lu(625) * lu(1265) + lu(1283) = lu(1283) - lu(626) * lu(1265) + lu(1284) = lu(1284) - lu(627) * lu(1265) + lu(1285) = lu(1285) - lu(628) * lu(1265) + lu(1286) = lu(1286) - lu(629) * lu(1265) + lu(1291) = lu(1291) - lu(630) * lu(1265) + lu(1293) = lu(1293) - lu(631) * lu(1265) + lu(1307) = lu(1307) - lu(614) * lu(1306) + lu(1311) = lu(1311) - lu(615) * lu(1306) + lu(1312) = lu(1312) - lu(616) * lu(1306) + lu(1313) = lu(1313) - lu(617) * lu(1306) + lu(1314) = lu(1314) - lu(618) * lu(1306) + lu(1315) = lu(1315) - lu(619) * lu(1306) + lu(1316) = lu(1316) - lu(620) * lu(1306) + lu(1317) = lu(1317) - lu(621) * lu(1306) + lu(1318) = lu(1318) - lu(622) * lu(1306) + lu(1320) = lu(1320) - lu(623) * lu(1306) + lu(1321) = lu(1321) - lu(624) * lu(1306) + lu(1323) = lu(1323) - lu(625) * lu(1306) + lu(1324) = lu(1324) - lu(626) * lu(1306) + lu(1325) = lu(1325) - lu(627) * lu(1306) + lu(1326) = lu(1326) - lu(628) * lu(1306) + lu(1327) = lu(1327) - lu(629) * lu(1306) + lu(1332) = lu(1332) - lu(630) * lu(1306) + lu(1334) = lu(1334) - lu(631) * lu(1306) + lu(1349) = lu(1349) - lu(614) * lu(1348) + lu(1353) = lu(1353) - lu(615) * lu(1348) + lu(1354) = lu(1354) - lu(616) * lu(1348) + lu(1355) = lu(1355) - lu(617) * lu(1348) + lu(1356) = lu(1356) - lu(618) * lu(1348) + lu(1357) = lu(1357) - lu(619) * lu(1348) + lu(1358) = lu(1358) - lu(620) * lu(1348) + lu(1359) = lu(1359) - lu(621) * lu(1348) + lu(1360) = lu(1360) - lu(622) * lu(1348) + lu(1362) = lu(1362) - lu(623) * lu(1348) + lu(1363) = lu(1363) - lu(624) * lu(1348) + lu(1365) = lu(1365) - lu(625) * lu(1348) + lu(1366) = lu(1366) - lu(626) * lu(1348) + lu(1367) = lu(1367) - lu(627) * lu(1348) + lu(1368) = lu(1368) - lu(628) * lu(1348) + lu(1369) = lu(1369) - lu(629) * lu(1348) + lu(1374) = lu(1374) - lu(630) * lu(1348) + lu(1376) = lu(1376) - lu(631) * lu(1348) + lu(1433) = lu(1433) - lu(614) * lu(1432) + lu(1437) = lu(1437) - lu(615) * lu(1432) + lu(1438) = lu(1438) - lu(616) * lu(1432) + lu(1439) = lu(1439) - lu(617) * lu(1432) + lu(1440) = lu(1440) - lu(618) * lu(1432) + lu(1441) = lu(1441) - lu(619) * lu(1432) + lu(1442) = lu(1442) - lu(620) * lu(1432) + lu(1443) = lu(1443) - lu(621) * lu(1432) + lu(1444) = lu(1444) - lu(622) * lu(1432) + lu(1446) = lu(1446) - lu(623) * lu(1432) + lu(1447) = lu(1447) - lu(624) * lu(1432) + lu(1449) = lu(1449) - lu(625) * lu(1432) + lu(1450) = lu(1450) - lu(626) * lu(1432) + lu(1451) = lu(1451) - lu(627) * lu(1432) + lu(1452) = lu(1452) - lu(628) * lu(1432) + lu(1453) = lu(1453) - lu(629) * lu(1432) + lu(1458) = lu(1458) - lu(630) * lu(1432) + lu(1460) = lu(1460) - lu(631) * lu(1432) + lu(1488) = lu(1488) - lu(614) * lu(1487) + lu(1492) = lu(1492) - lu(615) * lu(1487) + lu(1493) = lu(1493) - lu(616) * lu(1487) + lu(1494) = lu(1494) - lu(617) * lu(1487) + lu(1495) = lu(1495) - lu(618) * lu(1487) + lu(1496) = lu(1496) - lu(619) * lu(1487) + lu(1497) = lu(1497) - lu(620) * lu(1487) + lu(1498) = lu(1498) - lu(621) * lu(1487) + lu(1499) = lu(1499) - lu(622) * lu(1487) + lu(1501) = lu(1501) - lu(623) * lu(1487) + lu(1502) = lu(1502) - lu(624) * lu(1487) + lu(1504) = lu(1504) - lu(625) * lu(1487) + lu(1505) = lu(1505) - lu(626) * lu(1487) + lu(1506) = lu(1506) - lu(627) * lu(1487) + lu(1507) = lu(1507) - lu(628) * lu(1487) + lu(1508) = lu(1508) - lu(629) * lu(1487) + lu(1513) = lu(1513) - lu(630) * lu(1487) + lu(1515) = lu(1515) - lu(631) * lu(1487) + lu(1520) = lu(1520) - lu(614) * lu(1519) + lu(1524) = lu(1524) - lu(615) * lu(1519) + lu(1525) = lu(1525) - lu(616) * lu(1519) + lu(1526) = lu(1526) - lu(617) * lu(1519) + lu(1527) = lu(1527) - lu(618) * lu(1519) + lu(1528) = lu(1528) - lu(619) * lu(1519) + lu(1529) = lu(1529) - lu(620) * lu(1519) + lu(1530) = lu(1530) - lu(621) * lu(1519) + lu(1531) = lu(1531) - lu(622) * lu(1519) + lu(1533) = lu(1533) - lu(623) * lu(1519) + lu(1534) = lu(1534) - lu(624) * lu(1519) + lu(1536) = lu(1536) - lu(625) * lu(1519) + lu(1537) = lu(1537) - lu(626) * lu(1519) + lu(1538) = lu(1538) - lu(627) * lu(1519) + lu(1539) = lu(1539) - lu(628) * lu(1519) + lu(1540) = lu(1540) - lu(629) * lu(1519) + lu(1545) = - lu(630) * lu(1519) + lu(1547) = lu(1547) - lu(631) * lu(1519) + lu(1555) = lu(1555) - lu(614) * lu(1554) + lu(1559) = lu(1559) - lu(615) * lu(1554) + lu(1560) = - lu(616) * lu(1554) + lu(1561) = - lu(617) * lu(1554) + lu(1562) = lu(1562) - lu(618) * lu(1554) + lu(1563) = lu(1563) - lu(619) * lu(1554) + lu(1564) = - lu(620) * lu(1554) + lu(1565) = lu(1565) - lu(621) * lu(1554) + lu(1566) = lu(1566) - lu(622) * lu(1554) + lu(1568) = lu(1568) - lu(623) * lu(1554) + lu(1569) = lu(1569) - lu(624) * lu(1554) + lu(1571) = lu(1571) - lu(625) * lu(1554) + lu(1572) = lu(1572) - lu(626) * lu(1554) + lu(1573) = - lu(627) * lu(1554) + lu(1574) = lu(1574) - lu(628) * lu(1554) + lu(1575) = - lu(629) * lu(1554) + lu(1580) = lu(1580) - lu(630) * lu(1554) + lu(1582) = lu(1582) - lu(631) * lu(1554) + lu(1593) = lu(1593) - lu(614) * lu(1592) + lu(1597) = lu(1597) - lu(615) * lu(1592) + lu(1598) = lu(1598) - lu(616) * lu(1592) + lu(1599) = lu(1599) - lu(617) * lu(1592) + lu(1600) = lu(1600) - lu(618) * lu(1592) + lu(1601) = lu(1601) - lu(619) * lu(1592) + lu(1602) = lu(1602) - lu(620) * lu(1592) + lu(1603) = lu(1603) - lu(621) * lu(1592) + lu(1604) = lu(1604) - lu(622) * lu(1592) + lu(1606) = lu(1606) - lu(623) * lu(1592) + lu(1607) = lu(1607) - lu(624) * lu(1592) + lu(1609) = lu(1609) - lu(625) * lu(1592) + lu(1610) = lu(1610) - lu(626) * lu(1592) + lu(1611) = lu(1611) - lu(627) * lu(1592) + lu(1612) = lu(1612) - lu(628) * lu(1592) + lu(1613) = lu(1613) - lu(629) * lu(1592) + lu(1618) = lu(1618) - lu(630) * lu(1592) + lu(1620) = lu(1620) - lu(631) * lu(1592) + lu(1632) = lu(1632) - lu(614) * lu(1631) + lu(1636) = lu(1636) - lu(615) * lu(1631) + lu(1637) = lu(1637) - lu(616) * lu(1631) + lu(1638) = lu(1638) - lu(617) * lu(1631) + lu(1639) = lu(1639) - lu(618) * lu(1631) + lu(1640) = lu(1640) - lu(619) * lu(1631) + lu(1641) = lu(1641) - lu(620) * lu(1631) + lu(1642) = lu(1642) - lu(621) * lu(1631) + lu(1643) = lu(1643) - lu(622) * lu(1631) + lu(1645) = lu(1645) - lu(623) * lu(1631) + lu(1646) = lu(1646) - lu(624) * lu(1631) + lu(1648) = lu(1648) - lu(625) * lu(1631) + lu(1649) = lu(1649) - lu(626) * lu(1631) + lu(1650) = lu(1650) - lu(627) * lu(1631) + lu(1651) = lu(1651) - lu(628) * lu(1631) + lu(1652) = lu(1652) - lu(629) * lu(1631) + lu(1657) = lu(1657) - lu(630) * lu(1631) + lu(1659) = lu(1659) - lu(631) * lu(1631) + lu(1718) = lu(1718) - lu(614) * lu(1717) + lu(1722) = lu(1722) - lu(615) * lu(1717) + lu(1723) = lu(1723) - lu(616) * lu(1717) + lu(1724) = lu(1724) - lu(617) * lu(1717) + lu(1725) = lu(1725) - lu(618) * lu(1717) + lu(1726) = lu(1726) - lu(619) * lu(1717) + lu(1727) = lu(1727) - lu(620) * lu(1717) + lu(1728) = lu(1728) - lu(621) * lu(1717) + lu(1729) = lu(1729) - lu(622) * lu(1717) + lu(1731) = lu(1731) - lu(623) * lu(1717) + lu(1732) = lu(1732) - lu(624) * lu(1717) + lu(1734) = lu(1734) - lu(625) * lu(1717) + lu(1735) = lu(1735) - lu(626) * lu(1717) + lu(1736) = lu(1736) - lu(627) * lu(1717) + lu(1737) = lu(1737) - lu(628) * lu(1717) + lu(1738) = lu(1738) - lu(629) * lu(1717) + lu(1743) = lu(1743) - lu(630) * lu(1717) + lu(1745) = lu(1745) - lu(631) * lu(1717) + lu(636) = 1._r8 / lu(636) + lu(637) = lu(637) * lu(636) + lu(638) = lu(638) * lu(636) + lu(639) = lu(639) * lu(636) + lu(640) = lu(640) * lu(636) + lu(641) = lu(641) * lu(636) + lu(642) = lu(642) * lu(636) + lu(643) = lu(643) * lu(636) + lu(644) = lu(644) * lu(636) + lu(645) = lu(645) * lu(636) + lu(646) = lu(646) * lu(636) + lu(647) = lu(647) * lu(636) + lu(648) = lu(648) * lu(636) + lu(649) = lu(649) * lu(636) + lu(650) = lu(650) * lu(636) + lu(651) = lu(651) * lu(636) + lu(652) = lu(652) * lu(636) + lu(653) = lu(653) * lu(636) + lu(654) = lu(654) * lu(636) + lu(655) = lu(655) * lu(636) + lu(656) = lu(656) * lu(636) + lu(740) = lu(740) - lu(637) * lu(737) + lu(741) = lu(741) - lu(638) * lu(737) + lu(742) = lu(742) - lu(639) * lu(737) + lu(743) = lu(743) - lu(640) * lu(737) + lu(744) = lu(744) - lu(641) * lu(737) + lu(745) = lu(745) - lu(642) * lu(737) + lu(746) = lu(746) - lu(643) * lu(737) + lu(747) = lu(747) - lu(644) * lu(737) + lu(749) = lu(749) - lu(645) * lu(737) + lu(750) = lu(750) - lu(646) * lu(737) + lu(752) = lu(752) - lu(647) * lu(737) + lu(753) = lu(753) - lu(648) * lu(737) + lu(754) = lu(754) - lu(649) * lu(737) + lu(755) = lu(755) - lu(650) * lu(737) + lu(756) = lu(756) - lu(651) * lu(737) + lu(757) = lu(757) - lu(652) * lu(737) + lu(760) = lu(760) - lu(653) * lu(737) + lu(761) = lu(761) - lu(654) * lu(737) + lu(762) = lu(762) - lu(655) * lu(737) + lu(763) = lu(763) - lu(656) * lu(737) + lu(769) = lu(769) - lu(637) * lu(767) + lu(770) = lu(770) - lu(638) * lu(767) + lu(771) = lu(771) - lu(639) * lu(767) + lu(772) = lu(772) - lu(640) * lu(767) + lu(773) = lu(773) - lu(641) * lu(767) + lu(774) = lu(774) - lu(642) * lu(767) + lu(775) = lu(775) - lu(643) * lu(767) + lu(776) = lu(776) - lu(644) * lu(767) + lu(778) = lu(778) - lu(645) * lu(767) + lu(779) = lu(779) - lu(646) * lu(767) + lu(781) = lu(781) - lu(647) * lu(767) + lu(782) = lu(782) - lu(648) * lu(767) + lu(783) = lu(783) - lu(649) * lu(767) + lu(784) = lu(784) - lu(650) * lu(767) + lu(785) = lu(785) - lu(651) * lu(767) + lu(786) = - lu(652) * lu(767) + lu(789) = lu(789) - lu(653) * lu(767) + lu(790) = lu(790) - lu(654) * lu(767) + lu(791) = lu(791) - lu(655) * lu(767) + lu(792) = lu(792) - lu(656) * lu(767) + lu(816) = lu(816) - lu(637) * lu(812) + lu(817) = lu(817) - lu(638) * lu(812) + lu(818) = lu(818) - lu(639) * lu(812) + lu(819) = lu(819) - lu(640) * lu(812) + lu(820) = lu(820) - lu(641) * lu(812) + lu(821) = lu(821) - lu(642) * lu(812) + lu(822) = lu(822) - lu(643) * lu(812) + lu(823) = lu(823) - lu(644) * lu(812) + lu(825) = lu(825) - lu(645) * lu(812) + lu(826) = lu(826) - lu(646) * lu(812) + lu(828) = lu(828) - lu(647) * lu(812) + lu(829) = lu(829) - lu(648) * lu(812) + lu(830) = lu(830) - lu(649) * lu(812) + lu(831) = lu(831) - lu(650) * lu(812) + lu(832) = lu(832) - lu(651) * lu(812) + lu(833) = lu(833) - lu(652) * lu(812) + lu(836) = lu(836) - lu(653) * lu(812) + lu(837) = lu(837) - lu(654) * lu(812) + lu(838) = lu(838) - lu(655) * lu(812) + lu(839) = lu(839) - lu(656) * lu(812) + lu(858) = lu(858) - lu(637) * lu(854) + lu(859) = lu(859) - lu(638) * lu(854) + lu(860) = lu(860) - lu(639) * lu(854) + lu(861) = lu(861) - lu(640) * lu(854) + lu(862) = lu(862) - lu(641) * lu(854) + lu(863) = lu(863) - lu(642) * lu(854) + lu(864) = lu(864) - lu(643) * lu(854) + lu(865) = lu(865) - lu(644) * lu(854) + lu(867) = lu(867) - lu(645) * lu(854) + lu(868) = lu(868) - lu(646) * lu(854) + lu(870) = lu(870) - lu(647) * lu(854) + lu(871) = lu(871) - lu(648) * lu(854) + lu(872) = lu(872) - lu(649) * lu(854) + lu(873) = lu(873) - lu(650) * lu(854) + lu(874) = lu(874) - lu(651) * lu(854) + lu(875) = lu(875) - lu(652) * lu(854) + lu(878) = lu(878) - lu(653) * lu(854) + lu(879) = lu(879) - lu(654) * lu(854) + lu(880) = lu(880) - lu(655) * lu(854) + lu(881) = lu(881) - lu(656) * lu(854) + lu(902) = lu(902) - lu(637) * lu(898) + lu(903) = lu(903) - lu(638) * lu(898) + lu(904) = lu(904) - lu(639) * lu(898) + lu(905) = lu(905) - lu(640) * lu(898) + lu(906) = lu(906) - lu(641) * lu(898) + lu(907) = lu(907) - lu(642) * lu(898) + lu(908) = lu(908) - lu(643) * lu(898) + lu(909) = lu(909) - lu(644) * lu(898) + lu(911) = lu(911) - lu(645) * lu(898) + lu(912) = lu(912) - lu(646) * lu(898) + lu(914) = lu(914) - lu(647) * lu(898) + lu(915) = lu(915) - lu(648) * lu(898) + lu(916) = lu(916) - lu(649) * lu(898) + lu(917) = lu(917) - lu(650) * lu(898) + lu(918) = lu(918) - lu(651) * lu(898) + lu(919) = lu(919) - lu(652) * lu(898) + lu(922) = lu(922) - lu(653) * lu(898) + lu(923) = lu(923) - lu(654) * lu(898) + lu(924) = lu(924) - lu(655) * lu(898) + lu(925) = lu(925) - lu(656) * lu(898) + lu(937) = lu(937) - lu(637) * lu(933) + lu(938) = lu(938) - lu(638) * lu(933) + lu(939) = lu(939) - lu(639) * lu(933) + lu(940) = lu(940) - lu(640) * lu(933) + lu(941) = lu(941) - lu(641) * lu(933) + lu(942) = lu(942) - lu(642) * lu(933) + lu(943) = lu(943) - lu(643) * lu(933) + lu(944) = lu(944) - lu(644) * lu(933) + lu(946) = lu(946) - lu(645) * lu(933) + lu(947) = lu(947) - lu(646) * lu(933) + lu(949) = lu(949) - lu(647) * lu(933) + lu(950) = lu(950) - lu(648) * lu(933) + lu(951) = lu(951) - lu(649) * lu(933) + lu(952) = lu(952) - lu(650) * lu(933) + lu(953) = lu(953) - lu(651) * lu(933) + lu(954) = lu(954) - lu(652) * lu(933) + lu(957) = lu(957) - lu(653) * lu(933) + lu(958) = lu(958) - lu(654) * lu(933) + lu(959) = lu(959) - lu(655) * lu(933) + lu(960) = lu(960) - lu(656) * lu(933) + lu(978) = lu(978) - lu(637) * lu(974) + lu(979) = lu(979) - lu(638) * lu(974) + lu(980) = lu(980) - lu(639) * lu(974) + lu(981) = lu(981) - lu(640) * lu(974) + lu(982) = lu(982) - lu(641) * lu(974) + lu(983) = lu(983) - lu(642) * lu(974) + lu(984) = lu(984) - lu(643) * lu(974) + lu(985) = lu(985) - lu(644) * lu(974) + lu(987) = lu(987) - lu(645) * lu(974) + lu(988) = lu(988) - lu(646) * lu(974) + lu(990) = lu(990) - lu(647) * lu(974) + lu(991) = lu(991) - lu(648) * lu(974) + lu(992) = lu(992) - lu(649) * lu(974) + lu(993) = lu(993) - lu(650) * lu(974) + lu(994) = lu(994) - lu(651) * lu(974) + lu(995) = lu(995) - lu(652) * lu(974) + lu(998) = lu(998) - lu(653) * lu(974) + lu(999) = lu(999) - lu(654) * lu(974) + lu(1000) = lu(1000) - lu(655) * lu(974) + lu(1001) = lu(1001) - lu(656) * lu(974) + lu(1020) = lu(1020) - lu(637) * lu(1016) + lu(1021) = lu(1021) - lu(638) * lu(1016) + lu(1022) = lu(1022) - lu(639) * lu(1016) + lu(1023) = lu(1023) - lu(640) * lu(1016) + lu(1024) = lu(1024) - lu(641) * lu(1016) + lu(1025) = lu(1025) - lu(642) * lu(1016) + lu(1026) = lu(1026) - lu(643) * lu(1016) + lu(1027) = lu(1027) - lu(644) * lu(1016) + lu(1029) = lu(1029) - lu(645) * lu(1016) + lu(1030) = lu(1030) - lu(646) * lu(1016) + lu(1032) = lu(1032) - lu(647) * lu(1016) + lu(1033) = lu(1033) - lu(648) * lu(1016) + lu(1034) = lu(1034) - lu(649) * lu(1016) + lu(1035) = lu(1035) - lu(650) * lu(1016) + lu(1036) = lu(1036) - lu(651) * lu(1016) + lu(1037) = lu(1037) - lu(652) * lu(1016) + lu(1040) = lu(1040) - lu(653) * lu(1016) + lu(1041) = lu(1041) - lu(654) * lu(1016) + lu(1042) = lu(1042) - lu(655) * lu(1016) + lu(1043) = lu(1043) - lu(656) * lu(1016) + lu(1064) = lu(1064) - lu(637) * lu(1060) + lu(1065) = lu(1065) - lu(638) * lu(1060) + lu(1066) = lu(1066) - lu(639) * lu(1060) + lu(1067) = lu(1067) - lu(640) * lu(1060) + lu(1068) = lu(1068) - lu(641) * lu(1060) + lu(1069) = lu(1069) - lu(642) * lu(1060) + lu(1070) = lu(1070) - lu(643) * lu(1060) + lu(1071) = lu(1071) - lu(644) * lu(1060) + lu(1073) = lu(1073) - lu(645) * lu(1060) + lu(1074) = lu(1074) - lu(646) * lu(1060) + lu(1076) = lu(1076) - lu(647) * lu(1060) + lu(1077) = lu(1077) - lu(648) * lu(1060) + lu(1078) = lu(1078) - lu(649) * lu(1060) + lu(1079) = lu(1079) - lu(650) * lu(1060) + lu(1080) = lu(1080) - lu(651) * lu(1060) + lu(1081) = lu(1081) - lu(652) * lu(1060) + lu(1084) = lu(1084) - lu(653) * lu(1060) + lu(1085) = lu(1085) - lu(654) * lu(1060) + lu(1086) = lu(1086) - lu(655) * lu(1060) + lu(1087) = lu(1087) - lu(656) * lu(1060) + lu(1106) = lu(1106) - lu(637) * lu(1102) + lu(1107) = lu(1107) - lu(638) * lu(1102) + lu(1108) = lu(1108) - lu(639) * lu(1102) + lu(1109) = lu(1109) - lu(640) * lu(1102) + lu(1110) = lu(1110) - lu(641) * lu(1102) + lu(1111) = lu(1111) - lu(642) * lu(1102) + lu(1112) = lu(1112) - lu(643) * lu(1102) + lu(1113) = lu(1113) - lu(644) * lu(1102) + lu(1115) = lu(1115) - lu(645) * lu(1102) + lu(1116) = lu(1116) - lu(646) * lu(1102) + lu(1118) = lu(1118) - lu(647) * lu(1102) + lu(1119) = lu(1119) - lu(648) * lu(1102) + lu(1120) = lu(1120) - lu(649) * lu(1102) + lu(1121) = lu(1121) - lu(650) * lu(1102) + lu(1122) = lu(1122) - lu(651) * lu(1102) + lu(1123) = lu(1123) - lu(652) * lu(1102) + lu(1126) = lu(1126) - lu(653) * lu(1102) + lu(1127) = lu(1127) - lu(654) * lu(1102) + lu(1128) = lu(1128) - lu(655) * lu(1102) + lu(1129) = lu(1129) - lu(656) * lu(1102) + lu(1149) = lu(1149) - lu(637) * lu(1145) + lu(1150) = lu(1150) - lu(638) * lu(1145) + lu(1151) = lu(1151) - lu(639) * lu(1145) + lu(1152) = lu(1152) - lu(640) * lu(1145) + lu(1153) = lu(1153) - lu(641) * lu(1145) + lu(1154) = lu(1154) - lu(642) * lu(1145) + lu(1155) = lu(1155) - lu(643) * lu(1145) + lu(1156) = lu(1156) - lu(644) * lu(1145) + lu(1158) = lu(1158) - lu(645) * lu(1145) + lu(1159) = lu(1159) - lu(646) * lu(1145) + lu(1161) = lu(1161) - lu(647) * lu(1145) + lu(1162) = lu(1162) - lu(648) * lu(1145) + lu(1163) = lu(1163) - lu(649) * lu(1145) + lu(1164) = lu(1164) - lu(650) * lu(1145) + lu(1165) = lu(1165) - lu(651) * lu(1145) + lu(1166) = lu(1166) - lu(652) * lu(1145) + lu(1169) = lu(1169) - lu(653) * lu(1145) + lu(1170) = lu(1170) - lu(654) * lu(1145) + lu(1171) = lu(1171) - lu(655) * lu(1145) + lu(1172) = lu(1172) - lu(656) * lu(1145) + lu(1191) = lu(1191) - lu(637) * lu(1187) + lu(1192) = lu(1192) - lu(638) * lu(1187) + lu(1193) = lu(1193) - lu(639) * lu(1187) + lu(1194) = lu(1194) - lu(640) * lu(1187) + lu(1195) = lu(1195) - lu(641) * lu(1187) + lu(1196) = lu(1196) - lu(642) * lu(1187) + lu(1197) = lu(1197) - lu(643) * lu(1187) + lu(1198) = lu(1198) - lu(644) * lu(1187) + lu(1200) = lu(1200) - lu(645) * lu(1187) + lu(1201) = lu(1201) - lu(646) * lu(1187) + lu(1203) = lu(1203) - lu(647) * lu(1187) + lu(1204) = lu(1204) - lu(648) * lu(1187) + lu(1205) = lu(1205) - lu(649) * lu(1187) + lu(1206) = lu(1206) - lu(650) * lu(1187) + lu(1207) = lu(1207) - lu(651) * lu(1187) + lu(1208) = lu(1208) - lu(652) * lu(1187) + lu(1211) = lu(1211) - lu(653) * lu(1187) + lu(1212) = lu(1212) - lu(654) * lu(1187) + lu(1213) = lu(1213) - lu(655) * lu(1187) + lu(1214) = lu(1214) - lu(656) * lu(1187) + lu(1226) = lu(1226) - lu(637) * lu(1222) + lu(1227) = lu(1227) - lu(638) * lu(1222) + lu(1228) = lu(1228) - lu(639) * lu(1222) + lu(1229) = lu(1229) - lu(640) * lu(1222) + lu(1230) = lu(1230) - lu(641) * lu(1222) + lu(1231) = lu(1231) - lu(642) * lu(1222) + lu(1232) = lu(1232) - lu(643) * lu(1222) + lu(1233) = lu(1233) - lu(644) * lu(1222) + lu(1235) = lu(1235) - lu(645) * lu(1222) + lu(1236) = lu(1236) - lu(646) * lu(1222) + lu(1238) = lu(1238) - lu(647) * lu(1222) + lu(1239) = lu(1239) - lu(648) * lu(1222) + lu(1240) = lu(1240) - lu(649) * lu(1222) + lu(1241) = lu(1241) - lu(650) * lu(1222) + lu(1242) = lu(1242) - lu(651) * lu(1222) + lu(1243) = lu(1243) - lu(652) * lu(1222) + lu(1246) = lu(1246) - lu(653) * lu(1222) + lu(1247) = lu(1247) - lu(654) * lu(1222) + lu(1248) = - lu(655) * lu(1222) + lu(1249) = lu(1249) - lu(656) * lu(1222) + lu(1270) = lu(1270) - lu(637) * lu(1266) + lu(1271) = lu(1271) - lu(638) * lu(1266) + lu(1272) = lu(1272) - lu(639) * lu(1266) + lu(1273) = lu(1273) - lu(640) * lu(1266) + lu(1274) = lu(1274) - lu(641) * lu(1266) + lu(1275) = lu(1275) - lu(642) * lu(1266) + lu(1276) = lu(1276) - lu(643) * lu(1266) + lu(1277) = lu(1277) - lu(644) * lu(1266) + lu(1279) = lu(1279) - lu(645) * lu(1266) + lu(1280) = lu(1280) - lu(646) * lu(1266) + lu(1282) = lu(1282) - lu(647) * lu(1266) + lu(1283) = lu(1283) - lu(648) * lu(1266) + lu(1284) = lu(1284) - lu(649) * lu(1266) + lu(1285) = lu(1285) - lu(650) * lu(1266) + lu(1286) = lu(1286) - lu(651) * lu(1266) + lu(1287) = lu(1287) - lu(652) * lu(1266) + lu(1290) = lu(1290) - lu(653) * lu(1266) + lu(1291) = lu(1291) - lu(654) * lu(1266) + lu(1292) = lu(1292) - lu(655) * lu(1266) + lu(1293) = lu(1293) - lu(656) * lu(1266) + lu(1311) = lu(1311) - lu(637) * lu(1307) + lu(1312) = lu(1312) - lu(638) * lu(1307) + lu(1313) = lu(1313) - lu(639) * lu(1307) + lu(1314) = lu(1314) - lu(640) * lu(1307) + lu(1315) = lu(1315) - lu(641) * lu(1307) + lu(1316) = lu(1316) - lu(642) * lu(1307) + lu(1317) = lu(1317) - lu(643) * lu(1307) + lu(1318) = lu(1318) - lu(644) * lu(1307) + lu(1320) = lu(1320) - lu(645) * lu(1307) + lu(1321) = lu(1321) - lu(646) * lu(1307) + lu(1323) = lu(1323) - lu(647) * lu(1307) + lu(1324) = lu(1324) - lu(648) * lu(1307) + lu(1325) = lu(1325) - lu(649) * lu(1307) + lu(1326) = lu(1326) - lu(650) * lu(1307) + lu(1327) = lu(1327) - lu(651) * lu(1307) + lu(1328) = lu(1328) - lu(652) * lu(1307) + lu(1331) = lu(1331) - lu(653) * lu(1307) + lu(1332) = lu(1332) - lu(654) * lu(1307) + lu(1333) = lu(1333) - lu(655) * lu(1307) + lu(1334) = lu(1334) - lu(656) * lu(1307) + lu(1353) = lu(1353) - lu(637) * lu(1349) + lu(1354) = lu(1354) - lu(638) * lu(1349) + lu(1355) = lu(1355) - lu(639) * lu(1349) + lu(1356) = lu(1356) - lu(640) * lu(1349) + lu(1357) = lu(1357) - lu(641) * lu(1349) + lu(1358) = lu(1358) - lu(642) * lu(1349) + lu(1359) = lu(1359) - lu(643) * lu(1349) + lu(1360) = lu(1360) - lu(644) * lu(1349) + lu(1362) = lu(1362) - lu(645) * lu(1349) + lu(1363) = lu(1363) - lu(646) * lu(1349) + lu(1365) = lu(1365) - lu(647) * lu(1349) + lu(1366) = lu(1366) - lu(648) * lu(1349) + lu(1367) = lu(1367) - lu(649) * lu(1349) + lu(1368) = lu(1368) - lu(650) * lu(1349) + lu(1369) = lu(1369) - lu(651) * lu(1349) + lu(1370) = lu(1370) - lu(652) * lu(1349) + lu(1373) = lu(1373) - lu(653) * lu(1349) + lu(1374) = lu(1374) - lu(654) * lu(1349) + lu(1375) = lu(1375) - lu(655) * lu(1349) + lu(1376) = lu(1376) - lu(656) * lu(1349) + lu(1437) = lu(1437) - lu(637) * lu(1433) + lu(1438) = lu(1438) - lu(638) * lu(1433) + lu(1439) = lu(1439) - lu(639) * lu(1433) + lu(1440) = lu(1440) - lu(640) * lu(1433) + lu(1441) = lu(1441) - lu(641) * lu(1433) + lu(1442) = lu(1442) - lu(642) * lu(1433) + lu(1443) = lu(1443) - lu(643) * lu(1433) + lu(1444) = lu(1444) - lu(644) * lu(1433) + lu(1446) = lu(1446) - lu(645) * lu(1433) + lu(1447) = lu(1447) - lu(646) * lu(1433) + lu(1449) = lu(1449) - lu(647) * lu(1433) + lu(1450) = lu(1450) - lu(648) * lu(1433) + lu(1451) = lu(1451) - lu(649) * lu(1433) + lu(1452) = lu(1452) - lu(650) * lu(1433) + lu(1453) = lu(1453) - lu(651) * lu(1433) + lu(1454) = lu(1454) - lu(652) * lu(1433) + lu(1457) = lu(1457) - lu(653) * lu(1433) + lu(1458) = lu(1458) - lu(654) * lu(1433) + lu(1459) = lu(1459) - lu(655) * lu(1433) + lu(1460) = lu(1460) - lu(656) * lu(1433) + lu(1492) = lu(1492) - lu(637) * lu(1488) + lu(1493) = lu(1493) - lu(638) * lu(1488) + lu(1494) = lu(1494) - lu(639) * lu(1488) + lu(1495) = lu(1495) - lu(640) * lu(1488) + lu(1496) = lu(1496) - lu(641) * lu(1488) + lu(1497) = lu(1497) - lu(642) * lu(1488) + lu(1498) = lu(1498) - lu(643) * lu(1488) + lu(1499) = lu(1499) - lu(644) * lu(1488) + lu(1501) = lu(1501) - lu(645) * lu(1488) + lu(1502) = lu(1502) - lu(646) * lu(1488) + lu(1504) = lu(1504) - lu(647) * lu(1488) + lu(1505) = lu(1505) - lu(648) * lu(1488) + lu(1506) = lu(1506) - lu(649) * lu(1488) + lu(1507) = lu(1507) - lu(650) * lu(1488) + lu(1508) = lu(1508) - lu(651) * lu(1488) + lu(1509) = lu(1509) - lu(652) * lu(1488) + lu(1512) = lu(1512) - lu(653) * lu(1488) + lu(1513) = lu(1513) - lu(654) * lu(1488) + lu(1514) = lu(1514) - lu(655) * lu(1488) + lu(1515) = lu(1515) - lu(656) * lu(1488) + lu(1524) = lu(1524) - lu(637) * lu(1520) + lu(1525) = lu(1525) - lu(638) * lu(1520) + lu(1526) = lu(1526) - lu(639) * lu(1520) + lu(1527) = lu(1527) - lu(640) * lu(1520) + lu(1528) = lu(1528) - lu(641) * lu(1520) + lu(1529) = lu(1529) - lu(642) * lu(1520) + lu(1530) = lu(1530) - lu(643) * lu(1520) + lu(1531) = lu(1531) - lu(644) * lu(1520) + lu(1533) = lu(1533) - lu(645) * lu(1520) + lu(1534) = lu(1534) - lu(646) * lu(1520) + lu(1536) = lu(1536) - lu(647) * lu(1520) + lu(1537) = lu(1537) - lu(648) * lu(1520) + lu(1538) = lu(1538) - lu(649) * lu(1520) + lu(1539) = lu(1539) - lu(650) * lu(1520) + lu(1540) = lu(1540) - lu(651) * lu(1520) + lu(1541) = lu(1541) - lu(652) * lu(1520) + lu(1544) = lu(1544) - lu(653) * lu(1520) + lu(1545) = lu(1545) - lu(654) * lu(1520) + lu(1546) = - lu(655) * lu(1520) + lu(1547) = lu(1547) - lu(656) * lu(1520) + lu(1559) = lu(1559) - lu(637) * lu(1555) + lu(1560) = lu(1560) - lu(638) * lu(1555) + lu(1561) = lu(1561) - lu(639) * lu(1555) + lu(1562) = lu(1562) - lu(640) * lu(1555) + lu(1563) = lu(1563) - lu(641) * lu(1555) + lu(1564) = lu(1564) - lu(642) * lu(1555) + lu(1565) = lu(1565) - lu(643) * lu(1555) + lu(1566) = lu(1566) - lu(644) * lu(1555) + lu(1568) = lu(1568) - lu(645) * lu(1555) + lu(1569) = lu(1569) - lu(646) * lu(1555) + lu(1571) = lu(1571) - lu(647) * lu(1555) + lu(1572) = lu(1572) - lu(648) * lu(1555) + lu(1573) = lu(1573) - lu(649) * lu(1555) + lu(1574) = lu(1574) - lu(650) * lu(1555) + lu(1575) = lu(1575) - lu(651) * lu(1555) + lu(1576) = lu(1576) - lu(652) * lu(1555) + lu(1579) = lu(1579) - lu(653) * lu(1555) + lu(1580) = lu(1580) - lu(654) * lu(1555) + lu(1581) = lu(1581) - lu(655) * lu(1555) + lu(1582) = lu(1582) - lu(656) * lu(1555) + lu(1597) = lu(1597) - lu(637) * lu(1593) + lu(1598) = lu(1598) - lu(638) * lu(1593) + lu(1599) = lu(1599) - lu(639) * lu(1593) + lu(1600) = lu(1600) - lu(640) * lu(1593) + lu(1601) = lu(1601) - lu(641) * lu(1593) + lu(1602) = lu(1602) - lu(642) * lu(1593) + lu(1603) = lu(1603) - lu(643) * lu(1593) + lu(1604) = lu(1604) - lu(644) * lu(1593) + lu(1606) = lu(1606) - lu(645) * lu(1593) + lu(1607) = lu(1607) - lu(646) * lu(1593) + lu(1609) = lu(1609) - lu(647) * lu(1593) + lu(1610) = lu(1610) - lu(648) * lu(1593) + lu(1611) = lu(1611) - lu(649) * lu(1593) + lu(1612) = lu(1612) - lu(650) * lu(1593) + lu(1613) = lu(1613) - lu(651) * lu(1593) + lu(1614) = lu(1614) - lu(652) * lu(1593) + lu(1617) = lu(1617) - lu(653) * lu(1593) + lu(1618) = lu(1618) - lu(654) * lu(1593) + lu(1619) = lu(1619) - lu(655) * lu(1593) + lu(1620) = lu(1620) - lu(656) * lu(1593) + lu(1636) = lu(1636) - lu(637) * lu(1632) + lu(1637) = lu(1637) - lu(638) * lu(1632) + lu(1638) = lu(1638) - lu(639) * lu(1632) + lu(1639) = lu(1639) - lu(640) * lu(1632) + lu(1640) = lu(1640) - lu(641) * lu(1632) + lu(1641) = lu(1641) - lu(642) * lu(1632) + lu(1642) = lu(1642) - lu(643) * lu(1632) + lu(1643) = lu(1643) - lu(644) * lu(1632) + lu(1645) = lu(1645) - lu(645) * lu(1632) + lu(1646) = lu(1646) - lu(646) * lu(1632) + lu(1648) = lu(1648) - lu(647) * lu(1632) + lu(1649) = lu(1649) - lu(648) * lu(1632) + lu(1650) = lu(1650) - lu(649) * lu(1632) + lu(1651) = lu(1651) - lu(650) * lu(1632) + lu(1652) = lu(1652) - lu(651) * lu(1632) + lu(1653) = lu(1653) - lu(652) * lu(1632) + lu(1656) = lu(1656) - lu(653) * lu(1632) + lu(1657) = lu(1657) - lu(654) * lu(1632) + lu(1658) = lu(1658) - lu(655) * lu(1632) + lu(1659) = lu(1659) - lu(656) * lu(1632) + lu(1670) = - lu(637) * lu(1667) + lu(1671) = lu(1671) - lu(638) * lu(1667) + lu(1672) = lu(1672) - lu(639) * lu(1667) + lu(1673) = lu(1673) - lu(640) * lu(1667) + lu(1674) = lu(1674) - lu(641) * lu(1667) + lu(1675) = lu(1675) - lu(642) * lu(1667) + lu(1676) = lu(1676) - lu(643) * lu(1667) + lu(1677) = lu(1677) - lu(644) * lu(1667) + lu(1679) = lu(1679) - lu(645) * lu(1667) + lu(1680) = lu(1680) - lu(646) * lu(1667) + lu(1682) = lu(1682) - lu(647) * lu(1667) + lu(1683) = lu(1683) - lu(648) * lu(1667) + lu(1684) = lu(1684) - lu(649) * lu(1667) + lu(1685) = lu(1685) - lu(650) * lu(1667) + lu(1686) = lu(1686) - lu(651) * lu(1667) + lu(1687) = lu(1687) - lu(652) * lu(1667) + lu(1690) = lu(1690) - lu(653) * lu(1667) + lu(1691) = lu(1691) - lu(654) * lu(1667) + lu(1692) = lu(1692) - lu(655) * lu(1667) + lu(1693) = lu(1693) - lu(656) * lu(1667) + lu(1722) = lu(1722) - lu(637) * lu(1718) + lu(1723) = lu(1723) - lu(638) * lu(1718) + lu(1724) = lu(1724) - lu(639) * lu(1718) + lu(1725) = lu(1725) - lu(640) * lu(1718) + lu(1726) = lu(1726) - lu(641) * lu(1718) + lu(1727) = lu(1727) - lu(642) * lu(1718) + lu(1728) = lu(1728) - lu(643) * lu(1718) + lu(1729) = lu(1729) - lu(644) * lu(1718) + lu(1731) = lu(1731) - lu(645) * lu(1718) + lu(1732) = lu(1732) - lu(646) * lu(1718) + lu(1734) = lu(1734) - lu(647) * lu(1718) + lu(1735) = lu(1735) - lu(648) * lu(1718) + lu(1736) = lu(1736) - lu(649) * lu(1718) + lu(1737) = lu(1737) - lu(650) * lu(1718) + lu(1738) = lu(1738) - lu(651) * lu(1718) + lu(1739) = lu(1739) - lu(652) * lu(1718) + lu(1742) = lu(1742) - lu(653) * lu(1718) + lu(1743) = lu(1743) - lu(654) * lu(1718) + lu(1744) = lu(1744) - lu(655) * lu(1718) + lu(1745) = lu(1745) - lu(656) * lu(1718) end subroutine lu_fac15 - subroutine lu_fac16( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac16( lu ) 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,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,661) = lu(k,661) * lu(k,652) - lu(k,662) = lu(k,662) * lu(k,652) - lu(k,663) = lu(k,663) * lu(k,652) - lu(k,664) = lu(k,664) * lu(k,652) - lu(k,665) = lu(k,665) * lu(k,652) - lu(k,666) = lu(k,666) * lu(k,652) - lu(k,667) = lu(k,667) * lu(k,652) - lu(k,668) = lu(k,668) * lu(k,652) - lu(k,669) = lu(k,669) * lu(k,652) - lu(k,670) = lu(k,670) * lu(k,652) - lu(k,671) = lu(k,671) * lu(k,652) - lu(k,672) = lu(k,672) * lu(k,652) - lu(k,712) = lu(k,712) - lu(k,653) * lu(k,711) - lu(k,714) = lu(k,714) - lu(k,654) * lu(k,711) - lu(k,715) = lu(k,715) - lu(k,655) * lu(k,711) - lu(k,716) = lu(k,716) - lu(k,656) * lu(k,711) - lu(k,717) = - lu(k,657) * lu(k,711) - lu(k,718) = lu(k,718) - lu(k,658) * lu(k,711) - lu(k,719) = lu(k,719) - lu(k,659) * lu(k,711) - lu(k,720) = lu(k,720) - lu(k,660) * lu(k,711) - lu(k,721) = lu(k,721) - lu(k,661) * lu(k,711) - lu(k,722) = lu(k,722) - lu(k,662) * lu(k,711) - lu(k,723) = lu(k,723) - lu(k,663) * lu(k,711) - lu(k,724) = lu(k,724) - lu(k,664) * lu(k,711) - lu(k,725) = lu(k,725) - lu(k,665) * lu(k,711) - lu(k,726) = lu(k,726) - lu(k,666) * lu(k,711) - lu(k,727) = lu(k,727) - lu(k,667) * lu(k,711) - lu(k,729) = lu(k,729) - lu(k,668) * lu(k,711) - lu(k,731) = lu(k,731) - lu(k,669) * lu(k,711) - lu(k,732) = lu(k,732) - lu(k,670) * lu(k,711) - lu(k,733) = lu(k,733) - lu(k,671) * lu(k,711) - lu(k,734) = lu(k,734) - lu(k,672) * lu(k,711) - lu(k,783) = lu(k,783) - lu(k,653) * lu(k,782) - lu(k,786) = lu(k,786) - lu(k,654) * lu(k,782) - lu(k,787) = lu(k,787) - lu(k,655) * lu(k,782) - lu(k,788) = lu(k,788) - lu(k,656) * lu(k,782) - lu(k,789) = lu(k,789) - lu(k,657) * lu(k,782) - lu(k,790) = lu(k,790) - lu(k,658) * lu(k,782) - lu(k,791) = lu(k,791) - lu(k,659) * lu(k,782) - lu(k,792) = lu(k,792) - lu(k,660) * lu(k,782) - lu(k,793) = lu(k,793) - lu(k,661) * lu(k,782) - lu(k,794) = lu(k,794) - lu(k,662) * lu(k,782) - lu(k,795) = lu(k,795) - lu(k,663) * lu(k,782) - lu(k,796) = lu(k,796) - lu(k,664) * lu(k,782) - lu(k,798) = lu(k,798) - lu(k,665) * lu(k,782) - lu(k,800) = lu(k,800) - lu(k,666) * lu(k,782) - lu(k,801) = lu(k,801) - lu(k,667) * lu(k,782) - lu(k,803) = lu(k,803) - lu(k,668) * lu(k,782) - lu(k,806) = lu(k,806) - lu(k,669) * lu(k,782) - lu(k,807) = lu(k,807) - lu(k,670) * lu(k,782) - lu(k,808) = lu(k,808) - lu(k,671) * lu(k,782) - lu(k,809) = lu(k,809) - lu(k,672) * lu(k,782) - lu(k,826) = lu(k,826) - lu(k,653) * lu(k,824) - lu(k,829) = lu(k,829) - lu(k,654) * lu(k,824) - lu(k,830) = lu(k,830) - lu(k,655) * lu(k,824) - lu(k,831) = lu(k,831) - lu(k,656) * lu(k,824) - lu(k,832) = lu(k,832) - lu(k,657) * lu(k,824) - lu(k,833) = lu(k,833) - lu(k,658) * lu(k,824) - lu(k,834) = lu(k,834) - lu(k,659) * lu(k,824) - lu(k,835) = lu(k,835) - lu(k,660) * lu(k,824) - lu(k,836) = lu(k,836) - lu(k,661) * lu(k,824) - lu(k,837) = lu(k,837) - lu(k,662) * lu(k,824) - lu(k,838) = lu(k,838) - lu(k,663) * lu(k,824) - lu(k,839) = lu(k,839) - lu(k,664) * lu(k,824) - lu(k,841) = lu(k,841) - lu(k,665) * lu(k,824) - lu(k,843) = lu(k,843) - lu(k,666) * lu(k,824) - lu(k,844) = lu(k,844) - lu(k,667) * lu(k,824) - lu(k,846) = lu(k,846) - lu(k,668) * lu(k,824) - lu(k,849) = lu(k,849) - lu(k,669) * lu(k,824) - lu(k,850) = lu(k,850) - lu(k,670) * lu(k,824) - lu(k,851) = lu(k,851) - lu(k,671) * lu(k,824) - lu(k,852) = lu(k,852) - lu(k,672) * lu(k,824) - lu(k,874) = lu(k,874) - lu(k,653) * lu(k,872) - lu(k,877) = lu(k,877) - lu(k,654) * lu(k,872) - lu(k,878) = lu(k,878) - lu(k,655) * lu(k,872) - lu(k,879) = lu(k,879) - lu(k,656) * lu(k,872) - lu(k,880) = lu(k,880) - lu(k,657) * lu(k,872) - lu(k,881) = lu(k,881) - lu(k,658) * lu(k,872) - lu(k,882) = lu(k,882) - lu(k,659) * lu(k,872) - lu(k,883) = lu(k,883) - lu(k,660) * lu(k,872) - lu(k,884) = lu(k,884) - lu(k,661) * lu(k,872) - lu(k,885) = lu(k,885) - lu(k,662) * lu(k,872) - lu(k,886) = lu(k,886) - lu(k,663) * lu(k,872) - lu(k,887) = lu(k,887) - lu(k,664) * lu(k,872) - lu(k,889) = lu(k,889) - lu(k,665) * lu(k,872) - lu(k,891) = lu(k,891) - lu(k,666) * lu(k,872) - lu(k,892) = lu(k,892) - lu(k,667) * lu(k,872) - lu(k,894) = lu(k,894) - lu(k,668) * lu(k,872) - lu(k,897) = lu(k,897) - lu(k,669) * lu(k,872) - lu(k,898) = lu(k,898) - lu(k,670) * lu(k,872) - lu(k,899) = lu(k,899) - lu(k,671) * lu(k,872) - lu(k,900) = lu(k,900) - lu(k,672) * lu(k,872) - lu(k,917) = lu(k,917) - lu(k,653) * lu(k,915) - lu(k,920) = lu(k,920) - lu(k,654) * lu(k,915) - lu(k,921) = lu(k,921) - lu(k,655) * lu(k,915) - lu(k,922) = lu(k,922) - lu(k,656) * lu(k,915) - lu(k,923) = lu(k,923) - lu(k,657) * lu(k,915) - lu(k,924) = lu(k,924) - lu(k,658) * lu(k,915) - lu(k,925) = lu(k,925) - lu(k,659) * lu(k,915) - lu(k,926) = lu(k,926) - lu(k,660) * lu(k,915) - lu(k,927) = lu(k,927) - lu(k,661) * lu(k,915) - lu(k,928) = lu(k,928) - lu(k,662) * lu(k,915) - lu(k,929) = lu(k,929) - lu(k,663) * lu(k,915) - lu(k,930) = lu(k,930) - lu(k,664) * lu(k,915) - lu(k,932) = lu(k,932) - lu(k,665) * lu(k,915) - lu(k,934) = lu(k,934) - lu(k,666) * lu(k,915) - lu(k,935) = lu(k,935) - lu(k,667) * lu(k,915) - lu(k,937) = lu(k,937) - lu(k,668) * lu(k,915) - lu(k,940) = lu(k,940) - lu(k,669) * lu(k,915) - lu(k,941) = lu(k,941) - lu(k,670) * lu(k,915) - lu(k,942) = lu(k,942) - lu(k,671) * lu(k,915) - lu(k,943) = lu(k,943) - lu(k,672) * lu(k,915) - lu(k,973) = lu(k,973) - lu(k,653) * lu(k,971) - lu(k,976) = lu(k,976) - lu(k,654) * lu(k,971) - lu(k,977) = lu(k,977) - lu(k,655) * lu(k,971) - lu(k,978) = lu(k,978) - lu(k,656) * lu(k,971) - lu(k,979) = lu(k,979) - lu(k,657) * lu(k,971) - lu(k,980) = lu(k,980) - lu(k,658) * lu(k,971) - lu(k,981) = lu(k,981) - lu(k,659) * lu(k,971) - lu(k,982) = lu(k,982) - lu(k,660) * lu(k,971) - lu(k,983) = lu(k,983) - lu(k,661) * lu(k,971) - lu(k,984) = lu(k,984) - lu(k,662) * lu(k,971) - lu(k,985) = lu(k,985) - lu(k,663) * lu(k,971) - lu(k,986) = lu(k,986) - lu(k,664) * lu(k,971) - lu(k,988) = lu(k,988) - lu(k,665) * lu(k,971) - lu(k,990) = lu(k,990) - lu(k,666) * lu(k,971) - lu(k,991) = lu(k,991) - lu(k,667) * lu(k,971) - lu(k,993) = lu(k,993) - lu(k,668) * lu(k,971) - lu(k,996) = lu(k,996) - lu(k,669) * lu(k,971) - lu(k,997) = lu(k,997) - lu(k,670) * lu(k,971) - lu(k,998) = lu(k,998) - lu(k,671) * lu(k,971) - lu(k,999) = lu(k,999) - lu(k,672) * lu(k,971) - lu(k,1058) = lu(k,1058) - lu(k,653) * lu(k,1056) - lu(k,1061) = lu(k,1061) - lu(k,654) * lu(k,1056) - lu(k,1062) = lu(k,1062) - lu(k,655) * lu(k,1056) - lu(k,1063) = lu(k,1063) - lu(k,656) * lu(k,1056) - lu(k,1064) = lu(k,1064) - lu(k,657) * lu(k,1056) - lu(k,1065) = lu(k,1065) - lu(k,658) * lu(k,1056) - lu(k,1066) = lu(k,1066) - lu(k,659) * lu(k,1056) - lu(k,1067) = lu(k,1067) - lu(k,660) * lu(k,1056) - lu(k,1068) = lu(k,1068) - lu(k,661) * lu(k,1056) - lu(k,1069) = lu(k,1069) - lu(k,662) * lu(k,1056) - lu(k,1070) = lu(k,1070) - lu(k,663) * lu(k,1056) - lu(k,1071) = lu(k,1071) - lu(k,664) * lu(k,1056) - lu(k,1073) = lu(k,1073) - lu(k,665) * lu(k,1056) - lu(k,1075) = lu(k,1075) - lu(k,666) * lu(k,1056) - lu(k,1076) = lu(k,1076) - lu(k,667) * lu(k,1056) - lu(k,1078) = lu(k,1078) - lu(k,668) * lu(k,1056) - lu(k,1081) = lu(k,1081) - lu(k,669) * lu(k,1056) - lu(k,1082) = lu(k,1082) - lu(k,670) * lu(k,1056) - lu(k,1083) = lu(k,1083) - lu(k,671) * lu(k,1056) - lu(k,1084) = lu(k,1084) - lu(k,672) * lu(k,1056) - lu(k,1098) = lu(k,1098) - lu(k,653) * lu(k,1096) - lu(k,1101) = lu(k,1101) - lu(k,654) * lu(k,1096) - lu(k,1102) = lu(k,1102) - lu(k,655) * lu(k,1096) - lu(k,1103) = lu(k,1103) - lu(k,656) * lu(k,1096) - lu(k,1104) = lu(k,1104) - lu(k,657) * lu(k,1096) - lu(k,1105) = lu(k,1105) - lu(k,658) * lu(k,1096) - lu(k,1106) = lu(k,1106) - lu(k,659) * lu(k,1096) - lu(k,1107) = lu(k,1107) - lu(k,660) * lu(k,1096) - lu(k,1108) = lu(k,1108) - lu(k,661) * lu(k,1096) - lu(k,1109) = lu(k,1109) - lu(k,662) * lu(k,1096) - lu(k,1110) = lu(k,1110) - lu(k,663) * lu(k,1096) - lu(k,1111) = lu(k,1111) - lu(k,664) * lu(k,1096) - lu(k,1113) = lu(k,1113) - lu(k,665) * lu(k,1096) - lu(k,1115) = lu(k,1115) - lu(k,666) * lu(k,1096) - lu(k,1116) = lu(k,1116) - lu(k,667) * lu(k,1096) - lu(k,1118) = lu(k,1118) - lu(k,668) * lu(k,1096) - lu(k,1121) = lu(k,1121) - lu(k,669) * lu(k,1096) - lu(k,1122) = lu(k,1122) - lu(k,670) * lu(k,1096) - lu(k,1123) = lu(k,1123) - lu(k,671) * lu(k,1096) - lu(k,1124) = lu(k,1124) - lu(k,672) * lu(k,1096) - lu(k,1143) = lu(k,1143) - lu(k,653) * lu(k,1141) - lu(k,1146) = lu(k,1146) - lu(k,654) * lu(k,1141) - lu(k,1147) = lu(k,1147) - lu(k,655) * lu(k,1141) - lu(k,1148) = lu(k,1148) - lu(k,656) * lu(k,1141) - lu(k,1149) = lu(k,1149) - lu(k,657) * lu(k,1141) - lu(k,1150) = lu(k,1150) - lu(k,658) * lu(k,1141) - lu(k,1151) = lu(k,1151) - lu(k,659) * lu(k,1141) - lu(k,1152) = lu(k,1152) - lu(k,660) * lu(k,1141) - lu(k,1153) = lu(k,1153) - lu(k,661) * lu(k,1141) - lu(k,1154) = lu(k,1154) - lu(k,662) * lu(k,1141) - lu(k,1155) = lu(k,1155) - lu(k,663) * lu(k,1141) - lu(k,1156) = lu(k,1156) - lu(k,664) * lu(k,1141) - lu(k,1158) = lu(k,1158) - lu(k,665) * lu(k,1141) - lu(k,1160) = lu(k,1160) - lu(k,666) * lu(k,1141) - lu(k,1161) = lu(k,1161) - lu(k,667) * lu(k,1141) - lu(k,1163) = lu(k,1163) - lu(k,668) * lu(k,1141) - lu(k,1166) = lu(k,1166) - lu(k,669) * lu(k,1141) - lu(k,1167) = lu(k,1167) - lu(k,670) * lu(k,1141) - lu(k,1168) = lu(k,1168) - lu(k,671) * lu(k,1141) - lu(k,1169) = lu(k,1169) - lu(k,672) * lu(k,1141) - lu(k,1186) = lu(k,1186) - lu(k,653) * lu(k,1184) - lu(k,1189) = lu(k,1189) - lu(k,654) * lu(k,1184) - lu(k,1190) = lu(k,1190) - lu(k,655) * lu(k,1184) - lu(k,1191) = lu(k,1191) - lu(k,656) * lu(k,1184) - lu(k,1192) = lu(k,1192) - lu(k,657) * lu(k,1184) - lu(k,1193) = lu(k,1193) - lu(k,658) * lu(k,1184) - lu(k,1194) = lu(k,1194) - lu(k,659) * lu(k,1184) - lu(k,1195) = lu(k,1195) - lu(k,660) * lu(k,1184) - lu(k,1196) = lu(k,1196) - lu(k,661) * lu(k,1184) - lu(k,1197) = lu(k,1197) - lu(k,662) * lu(k,1184) - lu(k,1198) = lu(k,1198) - lu(k,663) * lu(k,1184) - lu(k,1199) = lu(k,1199) - lu(k,664) * lu(k,1184) - lu(k,1201) = lu(k,1201) - lu(k,665) * lu(k,1184) - lu(k,1203) = lu(k,1203) - lu(k,666) * lu(k,1184) - lu(k,1204) = lu(k,1204) - lu(k,667) * lu(k,1184) - lu(k,1206) = lu(k,1206) - lu(k,668) * lu(k,1184) - lu(k,1209) = lu(k,1209) - lu(k,669) * lu(k,1184) - lu(k,1210) = lu(k,1210) - lu(k,670) * lu(k,1184) - lu(k,1211) = lu(k,1211) - lu(k,671) * lu(k,1184) - lu(k,1212) = lu(k,1212) - lu(k,672) * lu(k,1184) - lu(k,1222) = - lu(k,653) * lu(k,1220) - lu(k,1224) = lu(k,1224) - lu(k,654) * lu(k,1220) - lu(k,1225) = lu(k,1225) - lu(k,655) * lu(k,1220) - lu(k,1226) = lu(k,1226) - lu(k,656) * lu(k,1220) - lu(k,1227) = lu(k,1227) - lu(k,657) * lu(k,1220) - lu(k,1228) = lu(k,1228) - lu(k,658) * lu(k,1220) - lu(k,1229) = lu(k,1229) - lu(k,659) * lu(k,1220) - lu(k,1230) = lu(k,1230) - lu(k,660) * lu(k,1220) - lu(k,1231) = lu(k,1231) - lu(k,661) * lu(k,1220) - lu(k,1232) = lu(k,1232) - lu(k,662) * lu(k,1220) - lu(k,1233) = lu(k,1233) - lu(k,663) * lu(k,1220) - lu(k,1234) = lu(k,1234) - lu(k,664) * lu(k,1220) - lu(k,1236) = lu(k,1236) - lu(k,665) * lu(k,1220) - lu(k,1238) = lu(k,1238) - lu(k,666) * lu(k,1220) - lu(k,1239) = lu(k,1239) - lu(k,667) * lu(k,1220) - lu(k,1241) = lu(k,1241) - lu(k,668) * lu(k,1220) - lu(k,1244) = lu(k,1244) - lu(k,669) * lu(k,1220) - lu(k,1245) = lu(k,1245) - lu(k,670) * lu(k,1220) - lu(k,1246) = lu(k,1246) - lu(k,671) * lu(k,1220) - lu(k,1247) = lu(k,1247) - lu(k,672) * lu(k,1220) - lu(k,1264) = lu(k,1264) - lu(k,653) * lu(k,1262) - lu(k,1267) = lu(k,1267) - lu(k,654) * lu(k,1262) - lu(k,1268) = lu(k,1268) - lu(k,655) * lu(k,1262) - lu(k,1269) = lu(k,1269) - lu(k,656) * lu(k,1262) - lu(k,1270) = lu(k,1270) - lu(k,657) * lu(k,1262) - lu(k,1271) = lu(k,1271) - lu(k,658) * lu(k,1262) - lu(k,1272) = lu(k,1272) - lu(k,659) * lu(k,1262) - lu(k,1273) = lu(k,1273) - lu(k,660) * lu(k,1262) - lu(k,1274) = lu(k,1274) - lu(k,661) * lu(k,1262) - lu(k,1275) = lu(k,1275) - lu(k,662) * lu(k,1262) - lu(k,1276) = lu(k,1276) - lu(k,663) * lu(k,1262) - lu(k,1277) = lu(k,1277) - lu(k,664) * lu(k,1262) - lu(k,1279) = lu(k,1279) - lu(k,665) * lu(k,1262) - lu(k,1281) = lu(k,1281) - lu(k,666) * lu(k,1262) - lu(k,1282) = lu(k,1282) - lu(k,667) * lu(k,1262) - lu(k,1284) = lu(k,1284) - lu(k,668) * lu(k,1262) - lu(k,1287) = lu(k,1287) - lu(k,669) * lu(k,1262) - lu(k,1288) = lu(k,1288) - lu(k,670) * lu(k,1262) - lu(k,1289) = lu(k,1289) - lu(k,671) * lu(k,1262) - lu(k,1290) = lu(k,1290) - lu(k,672) * lu(k,1262) - lu(k,1300) = lu(k,1300) - lu(k,653) * lu(k,1298) - lu(k,1303) = lu(k,1303) - lu(k,654) * lu(k,1298) - lu(k,1304) = lu(k,1304) - lu(k,655) * lu(k,1298) - lu(k,1305) = lu(k,1305) - lu(k,656) * lu(k,1298) - lu(k,1306) = lu(k,1306) - lu(k,657) * lu(k,1298) - lu(k,1307) = lu(k,1307) - lu(k,658) * lu(k,1298) - lu(k,1308) = lu(k,1308) - lu(k,659) * lu(k,1298) - lu(k,1309) = lu(k,1309) - lu(k,660) * lu(k,1298) - lu(k,1310) = lu(k,1310) - lu(k,661) * lu(k,1298) - lu(k,1311) = lu(k,1311) - lu(k,662) * lu(k,1298) - lu(k,1312) = - lu(k,663) * lu(k,1298) - lu(k,1313) = lu(k,1313) - lu(k,664) * lu(k,1298) - lu(k,1315) = lu(k,1315) - lu(k,665) * lu(k,1298) - lu(k,1317) = lu(k,1317) - lu(k,666) * lu(k,1298) - lu(k,1318) = lu(k,1318) - lu(k,667) * lu(k,1298) - lu(k,1320) = lu(k,1320) - lu(k,668) * lu(k,1298) - lu(k,1323) = lu(k,1323) - lu(k,669) * lu(k,1298) - lu(k,1324) = lu(k,1324) - lu(k,670) * lu(k,1298) - lu(k,1325) = lu(k,1325) - lu(k,671) * lu(k,1298) - lu(k,1326) = lu(k,1326) - lu(k,672) * lu(k,1298) - lu(k,1345) = lu(k,1345) - lu(k,653) * lu(k,1343) - lu(k,1348) = lu(k,1348) - lu(k,654) * lu(k,1343) - lu(k,1349) = lu(k,1349) - lu(k,655) * lu(k,1343) - lu(k,1350) = lu(k,1350) - lu(k,656) * lu(k,1343) - lu(k,1351) = lu(k,1351) - lu(k,657) * lu(k,1343) - lu(k,1352) = lu(k,1352) - lu(k,658) * lu(k,1343) - lu(k,1353) = lu(k,1353) - lu(k,659) * lu(k,1343) - lu(k,1354) = lu(k,1354) - lu(k,660) * lu(k,1343) - lu(k,1355) = lu(k,1355) - lu(k,661) * lu(k,1343) - lu(k,1356) = lu(k,1356) - lu(k,662) * lu(k,1343) - lu(k,1357) = lu(k,1357) - lu(k,663) * lu(k,1343) - lu(k,1358) = lu(k,1358) - lu(k,664) * lu(k,1343) - lu(k,1360) = lu(k,1360) - lu(k,665) * lu(k,1343) - lu(k,1362) = lu(k,1362) - lu(k,666) * lu(k,1343) - lu(k,1363) = lu(k,1363) - lu(k,667) * lu(k,1343) - lu(k,1365) = lu(k,1365) - lu(k,668) * lu(k,1343) - lu(k,1368) = lu(k,1368) - lu(k,669) * lu(k,1343) - lu(k,1369) = lu(k,1369) - lu(k,670) * lu(k,1343) - lu(k,1370) = lu(k,1370) - lu(k,671) * lu(k,1343) - lu(k,1371) = lu(k,1371) - lu(k,672) * lu(k,1343) - lu(k,1387) = lu(k,1387) - lu(k,653) * lu(k,1385) - lu(k,1390) = lu(k,1390) - lu(k,654) * lu(k,1385) - lu(k,1391) = lu(k,1391) - lu(k,655) * lu(k,1385) - lu(k,1392) = lu(k,1392) - lu(k,656) * lu(k,1385) - lu(k,1393) = lu(k,1393) - lu(k,657) * lu(k,1385) - lu(k,1394) = lu(k,1394) - lu(k,658) * lu(k,1385) - lu(k,1395) = lu(k,1395) - lu(k,659) * lu(k,1385) - lu(k,1396) = lu(k,1396) - lu(k,660) * lu(k,1385) - lu(k,1397) = lu(k,1397) - lu(k,661) * lu(k,1385) - lu(k,1398) = lu(k,1398) - lu(k,662) * lu(k,1385) - lu(k,1399) = lu(k,1399) - lu(k,663) * lu(k,1385) - lu(k,1400) = lu(k,1400) - lu(k,664) * lu(k,1385) - lu(k,1402) = lu(k,1402) - lu(k,665) * lu(k,1385) - lu(k,1404) = lu(k,1404) - lu(k,666) * lu(k,1385) - lu(k,1405) = lu(k,1405) - lu(k,667) * lu(k,1385) - lu(k,1407) = lu(k,1407) - lu(k,668) * lu(k,1385) - lu(k,1410) = lu(k,1410) - lu(k,669) * lu(k,1385) - lu(k,1411) = lu(k,1411) - lu(k,670) * lu(k,1385) - lu(k,1412) = lu(k,1412) - lu(k,671) * lu(k,1385) - lu(k,1413) = lu(k,1413) - lu(k,672) * lu(k,1385) - lu(k,1425) = lu(k,1425) - lu(k,653) * lu(k,1423) - lu(k,1428) = lu(k,1428) - lu(k,654) * lu(k,1423) - lu(k,1429) = lu(k,1429) - lu(k,655) * lu(k,1423) - lu(k,1430) = lu(k,1430) - lu(k,656) * lu(k,1423) - lu(k,1431) = lu(k,1431) - lu(k,657) * lu(k,1423) - lu(k,1432) = lu(k,1432) - lu(k,658) * lu(k,1423) - lu(k,1433) = lu(k,1433) - lu(k,659) * lu(k,1423) - lu(k,1434) = lu(k,1434) - lu(k,660) * lu(k,1423) - lu(k,1435) = lu(k,1435) - lu(k,661) * lu(k,1423) - lu(k,1436) = lu(k,1436) - lu(k,662) * lu(k,1423) - lu(k,1437) = lu(k,1437) - lu(k,663) * lu(k,1423) - lu(k,1438) = lu(k,1438) - lu(k,664) * lu(k,1423) - lu(k,1440) = lu(k,1440) - lu(k,665) * lu(k,1423) - lu(k,1442) = lu(k,1442) - lu(k,666) * lu(k,1423) - lu(k,1443) = lu(k,1443) - lu(k,667) * lu(k,1423) - lu(k,1445) = lu(k,1445) - lu(k,668) * lu(k,1423) - lu(k,1448) = lu(k,1448) - lu(k,669) * lu(k,1423) - lu(k,1449) = lu(k,1449) - lu(k,670) * lu(k,1423) - lu(k,1450) = lu(k,1450) - lu(k,671) * lu(k,1423) - lu(k,1451) = lu(k,1451) - lu(k,672) * lu(k,1423) - lu(k,1470) = lu(k,1470) - lu(k,653) * lu(k,1468) - lu(k,1473) = lu(k,1473) - lu(k,654) * lu(k,1468) - lu(k,1474) = lu(k,1474) - lu(k,655) * lu(k,1468) - lu(k,1475) = lu(k,1475) - lu(k,656) * lu(k,1468) - lu(k,1476) = lu(k,1476) - lu(k,657) * lu(k,1468) - lu(k,1477) = lu(k,1477) - lu(k,658) * lu(k,1468) - lu(k,1478) = lu(k,1478) - lu(k,659) * lu(k,1468) - lu(k,1479) = lu(k,1479) - lu(k,660) * lu(k,1468) - lu(k,1480) = lu(k,1480) - lu(k,661) * lu(k,1468) - lu(k,1481) = lu(k,1481) - lu(k,662) * lu(k,1468) - lu(k,1482) = lu(k,1482) - lu(k,663) * lu(k,1468) - lu(k,1483) = lu(k,1483) - lu(k,664) * lu(k,1468) - lu(k,1485) = lu(k,1485) - lu(k,665) * lu(k,1468) - lu(k,1487) = lu(k,1487) - lu(k,666) * lu(k,1468) - lu(k,1488) = lu(k,1488) - lu(k,667) * lu(k,1468) - lu(k,1490) = lu(k,1490) - lu(k,668) * lu(k,1468) - lu(k,1493) = lu(k,1493) - lu(k,669) * lu(k,1468) - lu(k,1494) = lu(k,1494) - lu(k,670) * lu(k,1468) - lu(k,1495) = lu(k,1495) - lu(k,671) * lu(k,1468) - lu(k,1496) = lu(k,1496) - lu(k,672) * lu(k,1468) - lu(k,1513) = lu(k,1513) - lu(k,653) * lu(k,1511) - lu(k,1516) = lu(k,1516) - lu(k,654) * lu(k,1511) - lu(k,1517) = lu(k,1517) - lu(k,655) * lu(k,1511) - lu(k,1518) = lu(k,1518) - lu(k,656) * lu(k,1511) - lu(k,1519) = lu(k,1519) - lu(k,657) * lu(k,1511) - lu(k,1520) = lu(k,1520) - lu(k,658) * lu(k,1511) - lu(k,1521) = lu(k,1521) - lu(k,659) * lu(k,1511) - lu(k,1522) = lu(k,1522) - lu(k,660) * lu(k,1511) - lu(k,1523) = lu(k,1523) - lu(k,661) * lu(k,1511) - lu(k,1524) = lu(k,1524) - lu(k,662) * lu(k,1511) - lu(k,1525) = lu(k,1525) - lu(k,663) * lu(k,1511) - lu(k,1526) = lu(k,1526) - lu(k,664) * lu(k,1511) - lu(k,1528) = lu(k,1528) - lu(k,665) * lu(k,1511) - lu(k,1530) = lu(k,1530) - lu(k,666) * lu(k,1511) - lu(k,1531) = lu(k,1531) - lu(k,667) * lu(k,1511) - lu(k,1533) = lu(k,1533) - lu(k,668) * lu(k,1511) - lu(k,1536) = lu(k,1536) - lu(k,669) * lu(k,1511) - lu(k,1537) = lu(k,1537) - lu(k,670) * lu(k,1511) - lu(k,1538) = lu(k,1538) - lu(k,671) * lu(k,1511) - lu(k,1539) = lu(k,1539) - lu(k,672) * lu(k,1511) - lu(k,1556) = lu(k,1556) - lu(k,653) * lu(k,1554) - lu(k,1559) = lu(k,1559) - lu(k,654) * lu(k,1554) - lu(k,1560) = lu(k,1560) - lu(k,655) * lu(k,1554) - lu(k,1561) = lu(k,1561) - lu(k,656) * lu(k,1554) - lu(k,1562) = lu(k,1562) - lu(k,657) * lu(k,1554) - lu(k,1563) = lu(k,1563) - lu(k,658) * lu(k,1554) - lu(k,1564) = lu(k,1564) - lu(k,659) * lu(k,1554) - lu(k,1565) = lu(k,1565) - lu(k,660) * lu(k,1554) - lu(k,1566) = lu(k,1566) - lu(k,661) * lu(k,1554) - lu(k,1567) = lu(k,1567) - lu(k,662) * lu(k,1554) - lu(k,1568) = lu(k,1568) - lu(k,663) * lu(k,1554) - lu(k,1569) = lu(k,1569) - lu(k,664) * lu(k,1554) - lu(k,1571) = lu(k,1571) - lu(k,665) * lu(k,1554) - lu(k,1573) = lu(k,1573) - lu(k,666) * lu(k,1554) - lu(k,1574) = lu(k,1574) - lu(k,667) * lu(k,1554) - lu(k,1576) = lu(k,1576) - lu(k,668) * lu(k,1554) - lu(k,1579) = lu(k,1579) - lu(k,669) * lu(k,1554) - lu(k,1580) = lu(k,1580) - lu(k,670) * lu(k,1554) - lu(k,1581) = lu(k,1581) - lu(k,671) * lu(k,1554) - lu(k,1582) = lu(k,1582) - lu(k,672) * lu(k,1554) - lu(k,1589) = lu(k,1589) - lu(k,653) * lu(k,1587) - lu(k,1592) = lu(k,1592) - lu(k,654) * lu(k,1587) - lu(k,1593) = lu(k,1593) - lu(k,655) * lu(k,1587) - lu(k,1594) = lu(k,1594) - lu(k,656) * lu(k,1587) - lu(k,1595) = lu(k,1595) - lu(k,657) * lu(k,1587) - lu(k,1596) = lu(k,1596) - lu(k,658) * lu(k,1587) - lu(k,1597) = lu(k,1597) - lu(k,659) * lu(k,1587) - lu(k,1598) = lu(k,1598) - lu(k,660) * lu(k,1587) - lu(k,1599) = lu(k,1599) - lu(k,661) * lu(k,1587) - lu(k,1600) = lu(k,1600) - lu(k,662) * lu(k,1587) - lu(k,1601) = - lu(k,663) * lu(k,1587) - lu(k,1602) = lu(k,1602) - lu(k,664) * lu(k,1587) - lu(k,1604) = lu(k,1604) - lu(k,665) * lu(k,1587) - lu(k,1606) = lu(k,1606) - lu(k,666) * lu(k,1587) - lu(k,1607) = lu(k,1607) - lu(k,667) * lu(k,1587) - lu(k,1609) = lu(k,1609) - lu(k,668) * lu(k,1587) - lu(k,1612) = lu(k,1612) - lu(k,669) * lu(k,1587) - lu(k,1613) = lu(k,1613) - lu(k,670) * lu(k,1587) - lu(k,1614) = lu(k,1614) - lu(k,671) * lu(k,1587) - lu(k,1615) = lu(k,1615) - lu(k,672) * lu(k,1587) - lu(k,1625) = lu(k,1625) - lu(k,653) * lu(k,1623) - lu(k,1628) = lu(k,1628) - lu(k,654) * lu(k,1623) - lu(k,1629) = lu(k,1629) - lu(k,655) * lu(k,1623) - lu(k,1630) = lu(k,1630) - lu(k,656) * lu(k,1623) - lu(k,1631) = lu(k,1631) - lu(k,657) * lu(k,1623) - lu(k,1632) = lu(k,1632) - lu(k,658) * lu(k,1623) - lu(k,1633) = lu(k,1633) - lu(k,659) * lu(k,1623) - lu(k,1634) = lu(k,1634) - lu(k,660) * lu(k,1623) - lu(k,1635) = lu(k,1635) - lu(k,661) * lu(k,1623) - lu(k,1636) = lu(k,1636) - lu(k,662) * lu(k,1623) - lu(k,1637) = lu(k,1637) - lu(k,663) * lu(k,1623) - lu(k,1638) = lu(k,1638) - lu(k,664) * lu(k,1623) - lu(k,1640) = lu(k,1640) - lu(k,665) * lu(k,1623) - lu(k,1642) = lu(k,1642) - lu(k,666) * lu(k,1623) - lu(k,1643) = lu(k,1643) - lu(k,667) * lu(k,1623) - lu(k,1645) = lu(k,1645) - lu(k,668) * lu(k,1623) - lu(k,1648) = lu(k,1648) - lu(k,669) * lu(k,1623) - lu(k,1649) = lu(k,1649) - lu(k,670) * lu(k,1623) - lu(k,1650) = lu(k,1650) - lu(k,671) * lu(k,1623) - lu(k,1651) = lu(k,1651) - lu(k,672) * lu(k,1623) - lu(k,1668) = lu(k,1668) - lu(k,653) * lu(k,1666) - lu(k,1671) = lu(k,1671) - lu(k,654) * lu(k,1666) - lu(k,1672) = lu(k,1672) - lu(k,655) * lu(k,1666) - lu(k,1673) = lu(k,1673) - lu(k,656) * lu(k,1666) - lu(k,1674) = lu(k,1674) - lu(k,657) * lu(k,1666) - lu(k,1675) = lu(k,1675) - lu(k,658) * lu(k,1666) - lu(k,1676) = lu(k,1676) - lu(k,659) * lu(k,1666) - lu(k,1677) = lu(k,1677) - lu(k,660) * lu(k,1666) - lu(k,1678) = lu(k,1678) - lu(k,661) * lu(k,1666) - lu(k,1679) = lu(k,1679) - lu(k,662) * lu(k,1666) - lu(k,1680) = lu(k,1680) - lu(k,663) * lu(k,1666) - lu(k,1681) = lu(k,1681) - lu(k,664) * lu(k,1666) - lu(k,1683) = lu(k,1683) - lu(k,665) * lu(k,1666) - lu(k,1685) = lu(k,1685) - lu(k,666) * lu(k,1666) - lu(k,1686) = lu(k,1686) - lu(k,667) * lu(k,1666) - lu(k,1688) = lu(k,1688) - lu(k,668) * lu(k,1666) - lu(k,1691) = lu(k,1691) - lu(k,669) * lu(k,1666) - lu(k,1692) = lu(k,1692) - lu(k,670) * lu(k,1666) - lu(k,1693) = lu(k,1693) - lu(k,671) * lu(k,1666) - lu(k,1694) = lu(k,1694) - lu(k,672) * lu(k,1666) - lu(k,1704) = lu(k,1704) - lu(k,653) * lu(k,1702) - lu(k,1707) = lu(k,1707) - lu(k,654) * lu(k,1702) - lu(k,1708) = lu(k,1708) - lu(k,655) * lu(k,1702) - lu(k,1709) = lu(k,1709) - lu(k,656) * lu(k,1702) - lu(k,1710) = lu(k,1710) - lu(k,657) * lu(k,1702) - lu(k,1711) = lu(k,1711) - lu(k,658) * lu(k,1702) - lu(k,1712) = lu(k,1712) - lu(k,659) * lu(k,1702) - lu(k,1713) = lu(k,1713) - lu(k,660) * lu(k,1702) - lu(k,1714) = lu(k,1714) - lu(k,661) * lu(k,1702) - lu(k,1715) = lu(k,1715) - lu(k,662) * lu(k,1702) - lu(k,1716) = lu(k,1716) - lu(k,663) * lu(k,1702) - lu(k,1717) = lu(k,1717) - lu(k,664) * lu(k,1702) - lu(k,1719) = lu(k,1719) - lu(k,665) * lu(k,1702) - lu(k,1721) = lu(k,1721) - lu(k,666) * lu(k,1702) - lu(k,1722) = lu(k,1722) - lu(k,667) * lu(k,1702) - lu(k,1724) = lu(k,1724) - lu(k,668) * lu(k,1702) - lu(k,1727) = lu(k,1727) - lu(k,669) * lu(k,1702) - lu(k,1728) = lu(k,1728) - lu(k,670) * lu(k,1702) - lu(k,1729) = lu(k,1729) - lu(k,671) * lu(k,1702) - lu(k,1730) = lu(k,1730) - lu(k,672) * lu(k,1702) - lu(k,1746) = lu(k,1746) - lu(k,653) * lu(k,1744) - lu(k,1749) = lu(k,1749) - lu(k,654) * lu(k,1744) - lu(k,1750) = lu(k,1750) - lu(k,655) * lu(k,1744) - lu(k,1751) = lu(k,1751) - lu(k,656) * lu(k,1744) - lu(k,1752) = lu(k,1752) - lu(k,657) * lu(k,1744) - lu(k,1753) = lu(k,1753) - lu(k,658) * lu(k,1744) - lu(k,1754) = lu(k,1754) - lu(k,659) * lu(k,1744) - lu(k,1755) = lu(k,1755) - lu(k,660) * lu(k,1744) - lu(k,1756) = lu(k,1756) - lu(k,661) * lu(k,1744) - lu(k,1757) = lu(k,1757) - lu(k,662) * lu(k,1744) - lu(k,1758) = lu(k,1758) - lu(k,663) * lu(k,1744) - lu(k,1759) = lu(k,1759) - lu(k,664) * lu(k,1744) - lu(k,1761) = lu(k,1761) - lu(k,665) * lu(k,1744) - lu(k,1763) = lu(k,1763) - lu(k,666) * lu(k,1744) - lu(k,1764) = lu(k,1764) - lu(k,667) * lu(k,1744) - lu(k,1766) = lu(k,1766) - lu(k,668) * lu(k,1744) - lu(k,1769) = lu(k,1769) - lu(k,669) * lu(k,1744) - lu(k,1770) = lu(k,1770) - lu(k,670) * lu(k,1744) - lu(k,1771) = lu(k,1771) - lu(k,671) * lu(k,1744) - lu(k,1772) = lu(k,1772) - lu(k,672) * lu(k,1744) - lu(k,1799) = lu(k,1799) - lu(k,653) * lu(k,1797) - lu(k,1802) = lu(k,1802) - lu(k,654) * lu(k,1797) - lu(k,1803) = lu(k,1803) - lu(k,655) * lu(k,1797) - lu(k,1804) = lu(k,1804) - lu(k,656) * lu(k,1797) - lu(k,1805) = lu(k,1805) - lu(k,657) * lu(k,1797) - lu(k,1806) = lu(k,1806) - lu(k,658) * lu(k,1797) - lu(k,1807) = lu(k,1807) - lu(k,659) * lu(k,1797) - lu(k,1808) = lu(k,1808) - lu(k,660) * lu(k,1797) - lu(k,1809) = lu(k,1809) - lu(k,661) * lu(k,1797) - lu(k,1810) = lu(k,1810) - lu(k,662) * lu(k,1797) - lu(k,1811) = lu(k,1811) - lu(k,663) * lu(k,1797) - lu(k,1812) = lu(k,1812) - lu(k,664) * lu(k,1797) - lu(k,1814) = lu(k,1814) - lu(k,665) * lu(k,1797) - lu(k,1816) = lu(k,1816) - lu(k,666) * lu(k,1797) - lu(k,1817) = lu(k,1817) - lu(k,667) * lu(k,1797) - lu(k,1819) = lu(k,1819) - lu(k,668) * lu(k,1797) - lu(k,1822) = lu(k,1822) - lu(k,669) * lu(k,1797) - lu(k,1823) = lu(k,1823) - lu(k,670) * lu(k,1797) - lu(k,1824) = lu(k,1824) - lu(k,671) * lu(k,1797) - lu(k,1825) = lu(k,1825) - lu(k,672) * lu(k,1797) - 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,696) = lu(k,696) * lu(k,686) - lu(k,697) = lu(k,697) * lu(k,686) - lu(k,698) = lu(k,698) * lu(k,686) - lu(k,699) = lu(k,699) * lu(k,686) - lu(k,700) = lu(k,700) * lu(k,686) - lu(k,701) = lu(k,701) * lu(k,686) - lu(k,702) = lu(k,702) * lu(k,686) - lu(k,703) = lu(k,703) * lu(k,686) - lu(k,704) = lu(k,704) * lu(k,686) - lu(k,705) = lu(k,705) * lu(k,686) - lu(k,706) = lu(k,706) * lu(k,686) - lu(k,707) = lu(k,707) * lu(k,686) - lu(k,755) = lu(k,755) - lu(k,687) * lu(k,754) - lu(k,756) = lu(k,756) - lu(k,688) * lu(k,754) - lu(k,758) = lu(k,758) - lu(k,689) * lu(k,754) - lu(k,759) = lu(k,759) - lu(k,690) * lu(k,754) - lu(k,760) = lu(k,760) - lu(k,691) * lu(k,754) - lu(k,761) = lu(k,761) - lu(k,692) * lu(k,754) - lu(k,762) = lu(k,762) - lu(k,693) * lu(k,754) - lu(k,763) = lu(k,763) - lu(k,694) * lu(k,754) - lu(k,764) = lu(k,764) - lu(k,695) * lu(k,754) - lu(k,765) = lu(k,765) - lu(k,696) * lu(k,754) - lu(k,766) = lu(k,766) - lu(k,697) * lu(k,754) - lu(k,767) = lu(k,767) - lu(k,698) * lu(k,754) - lu(k,768) = lu(k,768) - lu(k,699) * lu(k,754) - lu(k,769) = lu(k,769) - lu(k,700) * lu(k,754) - lu(k,770) = lu(k,770) - lu(k,701) * lu(k,754) - lu(k,771) = lu(k,771) - lu(k,702) * lu(k,754) - lu(k,772) = lu(k,772) - lu(k,703) * lu(k,754) - lu(k,773) = lu(k,773) - lu(k,704) * lu(k,754) - lu(k,774) = lu(k,774) - lu(k,705) * lu(k,754) - lu(k,775) = lu(k,775) - lu(k,706) * lu(k,754) - lu(k,776) = lu(k,776) - lu(k,707) * lu(k,754) - lu(k,827) = lu(k,827) - lu(k,687) * lu(k,825) - lu(k,829) = lu(k,829) - lu(k,688) * lu(k,825) - lu(k,832) = lu(k,832) - lu(k,689) * lu(k,825) - lu(k,833) = lu(k,833) - lu(k,690) * lu(k,825) - lu(k,834) = lu(k,834) - lu(k,691) * lu(k,825) - lu(k,835) = lu(k,835) - lu(k,692) * lu(k,825) - lu(k,836) = lu(k,836) - lu(k,693) * lu(k,825) - lu(k,838) = lu(k,838) - lu(k,694) * lu(k,825) - lu(k,839) = lu(k,839) - lu(k,695) * lu(k,825) - lu(k,840) = lu(k,840) - lu(k,696) * lu(k,825) - lu(k,841) = lu(k,841) - lu(k,697) * lu(k,825) - lu(k,842) = lu(k,842) - lu(k,698) * lu(k,825) - lu(k,843) = lu(k,843) - lu(k,699) * lu(k,825) - lu(k,844) = lu(k,844) - lu(k,700) * lu(k,825) - lu(k,845) = lu(k,845) - lu(k,701) * lu(k,825) - lu(k,847) = lu(k,847) - lu(k,702) * lu(k,825) - lu(k,848) = lu(k,848) - lu(k,703) * lu(k,825) - lu(k,849) = lu(k,849) - lu(k,704) * lu(k,825) - lu(k,850) = lu(k,850) - lu(k,705) * lu(k,825) - lu(k,851) = lu(k,851) - lu(k,706) * lu(k,825) - lu(k,852) = lu(k,852) - lu(k,707) * lu(k,825) - lu(k,875) = lu(k,875) - lu(k,687) * lu(k,873) - lu(k,877) = lu(k,877) - lu(k,688) * lu(k,873) - lu(k,880) = lu(k,880) - lu(k,689) * lu(k,873) - lu(k,881) = lu(k,881) - lu(k,690) * lu(k,873) - lu(k,882) = lu(k,882) - lu(k,691) * lu(k,873) - lu(k,883) = lu(k,883) - lu(k,692) * lu(k,873) - lu(k,884) = lu(k,884) - lu(k,693) * lu(k,873) - lu(k,886) = lu(k,886) - lu(k,694) * lu(k,873) - lu(k,887) = lu(k,887) - lu(k,695) * lu(k,873) - lu(k,888) = lu(k,888) - lu(k,696) * lu(k,873) - lu(k,889) = lu(k,889) - lu(k,697) * lu(k,873) - lu(k,890) = lu(k,890) - lu(k,698) * lu(k,873) - lu(k,891) = lu(k,891) - lu(k,699) * lu(k,873) - lu(k,892) = lu(k,892) - lu(k,700) * lu(k,873) - lu(k,893) = lu(k,893) - lu(k,701) * lu(k,873) - lu(k,895) = lu(k,895) - lu(k,702) * lu(k,873) - lu(k,896) = lu(k,896) - lu(k,703) * lu(k,873) - lu(k,897) = lu(k,897) - lu(k,704) * lu(k,873) - lu(k,898) = lu(k,898) - lu(k,705) * lu(k,873) - lu(k,899) = lu(k,899) - lu(k,706) * lu(k,873) - lu(k,900) = lu(k,900) - lu(k,707) * lu(k,873) - lu(k,918) = lu(k,918) - lu(k,687) * lu(k,916) - lu(k,920) = lu(k,920) - lu(k,688) * lu(k,916) - lu(k,923) = lu(k,923) - lu(k,689) * lu(k,916) - lu(k,924) = lu(k,924) - lu(k,690) * lu(k,916) - lu(k,925) = lu(k,925) - lu(k,691) * lu(k,916) - lu(k,926) = lu(k,926) - lu(k,692) * lu(k,916) - lu(k,927) = lu(k,927) - lu(k,693) * lu(k,916) - lu(k,929) = lu(k,929) - lu(k,694) * lu(k,916) - lu(k,930) = lu(k,930) - lu(k,695) * lu(k,916) - lu(k,931) = lu(k,931) - lu(k,696) * lu(k,916) - lu(k,932) = lu(k,932) - lu(k,697) * lu(k,916) - lu(k,933) = lu(k,933) - lu(k,698) * lu(k,916) - lu(k,934) = lu(k,934) - lu(k,699) * lu(k,916) - lu(k,935) = lu(k,935) - lu(k,700) * lu(k,916) - lu(k,936) = lu(k,936) - lu(k,701) * lu(k,916) - lu(k,938) = lu(k,938) - lu(k,702) * lu(k,916) - lu(k,939) = lu(k,939) - lu(k,703) * lu(k,916) - lu(k,940) = lu(k,940) - lu(k,704) * lu(k,916) - lu(k,941) = lu(k,941) - lu(k,705) * lu(k,916) - lu(k,942) = lu(k,942) - lu(k,706) * lu(k,916) - lu(k,943) = lu(k,943) - lu(k,707) * lu(k,916) - lu(k,974) = lu(k,974) - lu(k,687) * lu(k,972) - lu(k,976) = lu(k,976) - lu(k,688) * lu(k,972) - lu(k,979) = lu(k,979) - lu(k,689) * lu(k,972) - lu(k,980) = lu(k,980) - lu(k,690) * lu(k,972) - lu(k,981) = lu(k,981) - lu(k,691) * lu(k,972) - lu(k,982) = lu(k,982) - lu(k,692) * lu(k,972) - lu(k,983) = lu(k,983) - lu(k,693) * lu(k,972) - lu(k,985) = lu(k,985) - lu(k,694) * lu(k,972) - lu(k,986) = lu(k,986) - lu(k,695) * lu(k,972) - lu(k,987) = lu(k,987) - lu(k,696) * lu(k,972) - lu(k,988) = lu(k,988) - lu(k,697) * lu(k,972) - lu(k,989) = lu(k,989) - lu(k,698) * lu(k,972) - lu(k,990) = lu(k,990) - lu(k,699) * lu(k,972) - lu(k,991) = lu(k,991) - lu(k,700) * lu(k,972) - lu(k,992) = lu(k,992) - lu(k,701) * lu(k,972) - lu(k,994) = lu(k,994) - lu(k,702) * lu(k,972) - lu(k,995) = lu(k,995) - lu(k,703) * lu(k,972) - lu(k,996) = lu(k,996) - lu(k,704) * lu(k,972) - lu(k,997) = lu(k,997) - lu(k,705) * lu(k,972) - lu(k,998) = lu(k,998) - lu(k,706) * lu(k,972) - lu(k,999) = lu(k,999) - lu(k,707) * lu(k,972) - lu(k,1018) = lu(k,1018) - lu(k,687) * lu(k,1017) - lu(k,1019) = lu(k,1019) - lu(k,688) * lu(k,1017) - lu(k,1022) = lu(k,1022) - lu(k,689) * lu(k,1017) - lu(k,1023) = lu(k,1023) - lu(k,690) * lu(k,1017) - lu(k,1024) = lu(k,1024) - lu(k,691) * lu(k,1017) - lu(k,1025) = lu(k,1025) - lu(k,692) * lu(k,1017) - lu(k,1026) = lu(k,1026) - lu(k,693) * lu(k,1017) - lu(k,1028) = lu(k,1028) - lu(k,694) * lu(k,1017) - lu(k,1029) = lu(k,1029) - lu(k,695) * lu(k,1017) - lu(k,1030) = lu(k,1030) - lu(k,696) * lu(k,1017) - lu(k,1031) = lu(k,1031) - lu(k,697) * lu(k,1017) - lu(k,1032) = lu(k,1032) - lu(k,698) * lu(k,1017) - lu(k,1033) = lu(k,1033) - lu(k,699) * lu(k,1017) - lu(k,1034) = lu(k,1034) - lu(k,700) * lu(k,1017) - lu(k,1035) = lu(k,1035) - lu(k,701) * lu(k,1017) - lu(k,1037) = lu(k,1037) - lu(k,702) * lu(k,1017) - lu(k,1038) = lu(k,1038) - lu(k,703) * lu(k,1017) - lu(k,1039) = lu(k,1039) - lu(k,704) * lu(k,1017) - lu(k,1040) = lu(k,1040) - lu(k,705) * lu(k,1017) - lu(k,1041) = lu(k,1041) - lu(k,706) * lu(k,1017) - lu(k,1042) = lu(k,1042) - lu(k,707) * lu(k,1017) - lu(k,1059) = lu(k,1059) - lu(k,687) * lu(k,1057) - lu(k,1061) = lu(k,1061) - lu(k,688) * lu(k,1057) - lu(k,1064) = lu(k,1064) - lu(k,689) * lu(k,1057) - lu(k,1065) = lu(k,1065) - lu(k,690) * lu(k,1057) - lu(k,1066) = lu(k,1066) - lu(k,691) * lu(k,1057) - lu(k,1067) = lu(k,1067) - lu(k,692) * lu(k,1057) - lu(k,1068) = lu(k,1068) - lu(k,693) * lu(k,1057) - lu(k,1070) = lu(k,1070) - lu(k,694) * lu(k,1057) - lu(k,1071) = lu(k,1071) - lu(k,695) * lu(k,1057) - lu(k,1072) = lu(k,1072) - lu(k,696) * lu(k,1057) - lu(k,1073) = lu(k,1073) - lu(k,697) * lu(k,1057) - lu(k,1074) = lu(k,1074) - lu(k,698) * lu(k,1057) - lu(k,1075) = lu(k,1075) - lu(k,699) * lu(k,1057) - lu(k,1076) = lu(k,1076) - lu(k,700) * lu(k,1057) - lu(k,1077) = lu(k,1077) - lu(k,701) * lu(k,1057) - lu(k,1079) = lu(k,1079) - lu(k,702) * lu(k,1057) - lu(k,1080) = lu(k,1080) - lu(k,703) * lu(k,1057) - lu(k,1081) = lu(k,1081) - lu(k,704) * lu(k,1057) - lu(k,1082) = lu(k,1082) - lu(k,705) * lu(k,1057) - lu(k,1083) = lu(k,1083) - lu(k,706) * lu(k,1057) - lu(k,1084) = lu(k,1084) - lu(k,707) * lu(k,1057) - lu(k,1099) = lu(k,1099) - lu(k,687) * lu(k,1097) - lu(k,1101) = lu(k,1101) - lu(k,688) * lu(k,1097) - lu(k,1104) = lu(k,1104) - lu(k,689) * lu(k,1097) - lu(k,1105) = lu(k,1105) - lu(k,690) * lu(k,1097) - lu(k,1106) = lu(k,1106) - lu(k,691) * lu(k,1097) - lu(k,1107) = lu(k,1107) - lu(k,692) * lu(k,1097) - lu(k,1108) = lu(k,1108) - lu(k,693) * lu(k,1097) - lu(k,1110) = lu(k,1110) - lu(k,694) * lu(k,1097) - lu(k,1111) = lu(k,1111) - lu(k,695) * lu(k,1097) - lu(k,1112) = lu(k,1112) - lu(k,696) * lu(k,1097) - lu(k,1113) = lu(k,1113) - lu(k,697) * lu(k,1097) - lu(k,1114) = lu(k,1114) - lu(k,698) * lu(k,1097) - lu(k,1115) = lu(k,1115) - lu(k,699) * lu(k,1097) - lu(k,1116) = lu(k,1116) - lu(k,700) * lu(k,1097) - lu(k,1117) = lu(k,1117) - lu(k,701) * lu(k,1097) - lu(k,1119) = lu(k,1119) - lu(k,702) * lu(k,1097) - lu(k,1120) = lu(k,1120) - lu(k,703) * lu(k,1097) - lu(k,1121) = lu(k,1121) - lu(k,704) * lu(k,1097) - lu(k,1122) = lu(k,1122) - lu(k,705) * lu(k,1097) - lu(k,1123) = lu(k,1123) - lu(k,706) * lu(k,1097) - lu(k,1124) = lu(k,1124) - lu(k,707) * lu(k,1097) - lu(k,1144) = lu(k,1144) - lu(k,687) * lu(k,1142) - lu(k,1146) = lu(k,1146) - lu(k,688) * lu(k,1142) - lu(k,1149) = lu(k,1149) - lu(k,689) * lu(k,1142) - lu(k,1150) = lu(k,1150) - lu(k,690) * lu(k,1142) - lu(k,1151) = lu(k,1151) - lu(k,691) * lu(k,1142) - lu(k,1152) = lu(k,1152) - lu(k,692) * lu(k,1142) - lu(k,1153) = lu(k,1153) - lu(k,693) * lu(k,1142) - lu(k,1155) = lu(k,1155) - lu(k,694) * lu(k,1142) - lu(k,1156) = lu(k,1156) - 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,1160) = lu(k,1160) - lu(k,699) * lu(k,1142) - lu(k,1161) = lu(k,1161) - lu(k,700) * lu(k,1142) - lu(k,1162) = lu(k,1162) - lu(k,701) * lu(k,1142) - lu(k,1164) = lu(k,1164) - lu(k,702) * lu(k,1142) - lu(k,1165) = lu(k,1165) - lu(k,703) * lu(k,1142) - lu(k,1166) = lu(k,1166) - lu(k,704) * lu(k,1142) - lu(k,1167) = lu(k,1167) - lu(k,705) * lu(k,1142) - lu(k,1168) = lu(k,1168) - lu(k,706) * lu(k,1142) - lu(k,1169) = lu(k,1169) - lu(k,707) * lu(k,1142) - lu(k,1187) = lu(k,1187) - lu(k,687) * lu(k,1185) - lu(k,1189) = lu(k,1189) - lu(k,688) * lu(k,1185) - lu(k,1192) = lu(k,1192) - lu(k,689) * lu(k,1185) - lu(k,1193) = lu(k,1193) - lu(k,690) * lu(k,1185) - lu(k,1194) = lu(k,1194) - lu(k,691) * lu(k,1185) - lu(k,1195) = lu(k,1195) - lu(k,692) * lu(k,1185) - lu(k,1196) = lu(k,1196) - lu(k,693) * lu(k,1185) - lu(k,1198) = lu(k,1198) - lu(k,694) * lu(k,1185) - lu(k,1199) = lu(k,1199) - lu(k,695) * lu(k,1185) - lu(k,1200) = lu(k,1200) - lu(k,696) * lu(k,1185) - lu(k,1201) = lu(k,1201) - lu(k,697) * lu(k,1185) - lu(k,1202) = lu(k,1202) - lu(k,698) * lu(k,1185) - lu(k,1203) = lu(k,1203) - lu(k,699) * lu(k,1185) - lu(k,1204) = lu(k,1204) - lu(k,700) * lu(k,1185) - lu(k,1205) = lu(k,1205) - lu(k,701) * lu(k,1185) - lu(k,1207) = lu(k,1207) - lu(k,702) * lu(k,1185) - lu(k,1208) = lu(k,1208) - lu(k,703) * lu(k,1185) - lu(k,1209) = lu(k,1209) - lu(k,704) * lu(k,1185) - lu(k,1210) = lu(k,1210) - lu(k,705) * lu(k,1185) - lu(k,1211) = lu(k,1211) - lu(k,706) * lu(k,1185) - lu(k,1212) = lu(k,1212) - lu(k,707) * lu(k,1185) - lu(k,1223) = lu(k,1223) - lu(k,687) * lu(k,1221) - lu(k,1224) = lu(k,1224) - lu(k,688) * lu(k,1221) - lu(k,1227) = lu(k,1227) - lu(k,689) * lu(k,1221) - lu(k,1228) = lu(k,1228) - lu(k,690) * lu(k,1221) - lu(k,1229) = lu(k,1229) - lu(k,691) * lu(k,1221) - lu(k,1230) = lu(k,1230) - lu(k,692) * lu(k,1221) - lu(k,1231) = lu(k,1231) - lu(k,693) * lu(k,1221) - lu(k,1233) = lu(k,1233) - lu(k,694) * lu(k,1221) - lu(k,1234) = lu(k,1234) - lu(k,695) * lu(k,1221) - lu(k,1235) = lu(k,1235) - lu(k,696) * lu(k,1221) - lu(k,1236) = lu(k,1236) - lu(k,697) * lu(k,1221) - lu(k,1237) = lu(k,1237) - lu(k,698) * lu(k,1221) - lu(k,1238) = lu(k,1238) - lu(k,699) * lu(k,1221) - lu(k,1239) = lu(k,1239) - lu(k,700) * lu(k,1221) - lu(k,1240) = lu(k,1240) - lu(k,701) * lu(k,1221) - lu(k,1242) = lu(k,1242) - lu(k,702) * lu(k,1221) - lu(k,1243) = lu(k,1243) - lu(k,703) * lu(k,1221) - lu(k,1244) = lu(k,1244) - lu(k,704) * lu(k,1221) - lu(k,1245) = lu(k,1245) - lu(k,705) * lu(k,1221) - lu(k,1246) = lu(k,1246) - lu(k,706) * lu(k,1221) - lu(k,1247) = lu(k,1247) - lu(k,707) * lu(k,1221) - lu(k,1265) = lu(k,1265) - lu(k,687) * lu(k,1263) - lu(k,1267) = lu(k,1267) - lu(k,688) * lu(k,1263) - lu(k,1270) = lu(k,1270) - lu(k,689) * lu(k,1263) - lu(k,1271) = lu(k,1271) - lu(k,690) * lu(k,1263) - lu(k,1272) = lu(k,1272) - lu(k,691) * lu(k,1263) - lu(k,1273) = lu(k,1273) - lu(k,692) * lu(k,1263) - lu(k,1274) = lu(k,1274) - lu(k,693) * lu(k,1263) - lu(k,1276) = lu(k,1276) - lu(k,694) * lu(k,1263) - lu(k,1277) = lu(k,1277) - lu(k,695) * lu(k,1263) - lu(k,1278) = lu(k,1278) - lu(k,696) * lu(k,1263) - lu(k,1279) = lu(k,1279) - lu(k,697) * lu(k,1263) - lu(k,1280) = lu(k,1280) - lu(k,698) * lu(k,1263) - lu(k,1281) = lu(k,1281) - lu(k,699) * lu(k,1263) - lu(k,1282) = lu(k,1282) - lu(k,700) * lu(k,1263) - lu(k,1283) = lu(k,1283) - lu(k,701) * lu(k,1263) - lu(k,1285) = lu(k,1285) - lu(k,702) * lu(k,1263) - lu(k,1286) = lu(k,1286) - lu(k,703) * lu(k,1263) - lu(k,1287) = lu(k,1287) - lu(k,704) * lu(k,1263) - lu(k,1288) = lu(k,1288) - lu(k,705) * lu(k,1263) - lu(k,1289) = lu(k,1289) - lu(k,706) * lu(k,1263) - lu(k,1290) = lu(k,1290) - lu(k,707) * lu(k,1263) - lu(k,1301) = lu(k,1301) - lu(k,687) * lu(k,1299) - lu(k,1303) = lu(k,1303) - lu(k,688) * lu(k,1299) - lu(k,1306) = lu(k,1306) - lu(k,689) * lu(k,1299) - lu(k,1307) = lu(k,1307) - lu(k,690) * lu(k,1299) - lu(k,1308) = lu(k,1308) - lu(k,691) * lu(k,1299) - lu(k,1309) = lu(k,1309) - lu(k,692) * lu(k,1299) - lu(k,1310) = lu(k,1310) - lu(k,693) * lu(k,1299) - lu(k,1312) = lu(k,1312) - lu(k,694) * lu(k,1299) - lu(k,1313) = lu(k,1313) - lu(k,695) * lu(k,1299) - lu(k,1314) = lu(k,1314) - lu(k,696) * lu(k,1299) - lu(k,1315) = lu(k,1315) - lu(k,697) * lu(k,1299) - lu(k,1316) = lu(k,1316) - lu(k,698) * lu(k,1299) - lu(k,1317) = lu(k,1317) - lu(k,699) * lu(k,1299) - lu(k,1318) = lu(k,1318) - lu(k,700) * lu(k,1299) - lu(k,1319) = lu(k,1319) - lu(k,701) * lu(k,1299) - lu(k,1321) = lu(k,1321) - lu(k,702) * lu(k,1299) - lu(k,1322) = lu(k,1322) - lu(k,703) * lu(k,1299) - lu(k,1323) = lu(k,1323) - lu(k,704) * lu(k,1299) - lu(k,1324) = lu(k,1324) - lu(k,705) * lu(k,1299) - lu(k,1325) = lu(k,1325) - lu(k,706) * lu(k,1299) - lu(k,1326) = lu(k,1326) - lu(k,707) * lu(k,1299) - lu(k,1346) = lu(k,1346) - lu(k,687) * lu(k,1344) - lu(k,1348) = lu(k,1348) - lu(k,688) * lu(k,1344) - lu(k,1351) = lu(k,1351) - lu(k,689) * lu(k,1344) - lu(k,1352) = lu(k,1352) - lu(k,690) * lu(k,1344) - lu(k,1353) = lu(k,1353) - lu(k,691) * lu(k,1344) - lu(k,1354) = lu(k,1354) - lu(k,692) * lu(k,1344) - lu(k,1355) = lu(k,1355) - lu(k,693) * lu(k,1344) - lu(k,1357) = lu(k,1357) - lu(k,694) * lu(k,1344) - lu(k,1358) = lu(k,1358) - lu(k,695) * lu(k,1344) - lu(k,1359) = lu(k,1359) - lu(k,696) * lu(k,1344) - lu(k,1360) = lu(k,1360) - lu(k,697) * lu(k,1344) - lu(k,1361) = lu(k,1361) - lu(k,698) * lu(k,1344) - lu(k,1362) = lu(k,1362) - lu(k,699) * lu(k,1344) - lu(k,1363) = lu(k,1363) - lu(k,700) * lu(k,1344) - lu(k,1364) = lu(k,1364) - lu(k,701) * lu(k,1344) - lu(k,1366) = lu(k,1366) - lu(k,702) * lu(k,1344) - lu(k,1367) = lu(k,1367) - lu(k,703) * lu(k,1344) - lu(k,1368) = lu(k,1368) - lu(k,704) * lu(k,1344) - lu(k,1369) = lu(k,1369) - lu(k,705) * lu(k,1344) - lu(k,1370) = lu(k,1370) - lu(k,706) * lu(k,1344) - lu(k,1371) = lu(k,1371) - lu(k,707) * lu(k,1344) - lu(k,1388) = lu(k,1388) - lu(k,687) * lu(k,1386) - lu(k,1390) = lu(k,1390) - lu(k,688) * lu(k,1386) - lu(k,1393) = lu(k,1393) - lu(k,689) * lu(k,1386) - lu(k,1394) = lu(k,1394) - lu(k,690) * lu(k,1386) - lu(k,1395) = lu(k,1395) - lu(k,691) * lu(k,1386) - lu(k,1396) = lu(k,1396) - lu(k,692) * lu(k,1386) - lu(k,1397) = lu(k,1397) - lu(k,693) * lu(k,1386) - lu(k,1399) = lu(k,1399) - lu(k,694) * lu(k,1386) - lu(k,1400) = lu(k,1400) - lu(k,695) * lu(k,1386) - lu(k,1401) = lu(k,1401) - lu(k,696) * lu(k,1386) - lu(k,1402) = lu(k,1402) - lu(k,697) * lu(k,1386) - lu(k,1403) = lu(k,1403) - lu(k,698) * lu(k,1386) - lu(k,1404) = lu(k,1404) - lu(k,699) * lu(k,1386) - lu(k,1405) = lu(k,1405) - lu(k,700) * lu(k,1386) - lu(k,1406) = lu(k,1406) - lu(k,701) * lu(k,1386) - lu(k,1408) = lu(k,1408) - lu(k,702) * lu(k,1386) - lu(k,1409) = lu(k,1409) - lu(k,703) * lu(k,1386) - lu(k,1410) = lu(k,1410) - lu(k,704) * lu(k,1386) - lu(k,1411) = lu(k,1411) - lu(k,705) * lu(k,1386) - lu(k,1412) = lu(k,1412) - lu(k,706) * lu(k,1386) - lu(k,1413) = lu(k,1413) - lu(k,707) * lu(k,1386) - lu(k,1426) = lu(k,1426) - lu(k,687) * lu(k,1424) - lu(k,1428) = lu(k,1428) - lu(k,688) * lu(k,1424) - lu(k,1431) = lu(k,1431) - lu(k,689) * lu(k,1424) - lu(k,1432) = lu(k,1432) - lu(k,690) * lu(k,1424) - lu(k,1433) = lu(k,1433) - lu(k,691) * lu(k,1424) - lu(k,1434) = lu(k,1434) - lu(k,692) * lu(k,1424) - lu(k,1435) = lu(k,1435) - lu(k,693) * lu(k,1424) - lu(k,1437) = lu(k,1437) - lu(k,694) * lu(k,1424) - lu(k,1438) = lu(k,1438) - lu(k,695) * lu(k,1424) - lu(k,1439) = lu(k,1439) - lu(k,696) * lu(k,1424) - lu(k,1440) = lu(k,1440) - lu(k,697) * lu(k,1424) - lu(k,1441) = lu(k,1441) - lu(k,698) * lu(k,1424) - lu(k,1442) = lu(k,1442) - lu(k,699) * lu(k,1424) - lu(k,1443) = lu(k,1443) - lu(k,700) * lu(k,1424) - lu(k,1444) = lu(k,1444) - lu(k,701) * lu(k,1424) - lu(k,1446) = lu(k,1446) - lu(k,702) * lu(k,1424) - lu(k,1447) = lu(k,1447) - lu(k,703) * lu(k,1424) - lu(k,1448) = lu(k,1448) - lu(k,704) * lu(k,1424) - lu(k,1449) = lu(k,1449) - lu(k,705) * lu(k,1424) - lu(k,1450) = lu(k,1450) - lu(k,706) * lu(k,1424) - lu(k,1451) = lu(k,1451) - lu(k,707) * lu(k,1424) - lu(k,1471) = lu(k,1471) - lu(k,687) * lu(k,1469) - lu(k,1473) = lu(k,1473) - lu(k,688) * lu(k,1469) - lu(k,1476) = lu(k,1476) - lu(k,689) * lu(k,1469) - lu(k,1477) = lu(k,1477) - lu(k,690) * lu(k,1469) - lu(k,1478) = lu(k,1478) - lu(k,691) * lu(k,1469) - lu(k,1479) = lu(k,1479) - lu(k,692) * lu(k,1469) - lu(k,1480) = lu(k,1480) - lu(k,693) * lu(k,1469) - lu(k,1482) = lu(k,1482) - lu(k,694) * lu(k,1469) - lu(k,1483) = lu(k,1483) - lu(k,695) * lu(k,1469) - lu(k,1484) = lu(k,1484) - lu(k,696) * lu(k,1469) - lu(k,1485) = lu(k,1485) - lu(k,697) * lu(k,1469) - lu(k,1486) = lu(k,1486) - lu(k,698) * lu(k,1469) - lu(k,1487) = lu(k,1487) - lu(k,699) * lu(k,1469) - lu(k,1488) = lu(k,1488) - lu(k,700) * lu(k,1469) - lu(k,1489) = lu(k,1489) - lu(k,701) * lu(k,1469) - lu(k,1491) = lu(k,1491) - lu(k,702) * lu(k,1469) - lu(k,1492) = lu(k,1492) - lu(k,703) * lu(k,1469) - lu(k,1493) = lu(k,1493) - lu(k,704) * lu(k,1469) - lu(k,1494) = lu(k,1494) - lu(k,705) * lu(k,1469) - lu(k,1495) = lu(k,1495) - lu(k,706) * lu(k,1469) - lu(k,1496) = lu(k,1496) - lu(k,707) * lu(k,1469) - lu(k,1514) = lu(k,1514) - lu(k,687) * lu(k,1512) - lu(k,1516) = lu(k,1516) - lu(k,688) * lu(k,1512) - lu(k,1519) = lu(k,1519) - lu(k,689) * lu(k,1512) - lu(k,1520) = lu(k,1520) - lu(k,690) * lu(k,1512) - lu(k,1521) = lu(k,1521) - lu(k,691) * lu(k,1512) - lu(k,1522) = lu(k,1522) - lu(k,692) * lu(k,1512) - lu(k,1523) = lu(k,1523) - lu(k,693) * lu(k,1512) - lu(k,1525) = lu(k,1525) - lu(k,694) * lu(k,1512) - lu(k,1526) = lu(k,1526) - lu(k,695) * lu(k,1512) - lu(k,1527) = lu(k,1527) - lu(k,696) * lu(k,1512) - lu(k,1528) = lu(k,1528) - lu(k,697) * lu(k,1512) - lu(k,1529) = lu(k,1529) - lu(k,698) * lu(k,1512) - lu(k,1530) = lu(k,1530) - lu(k,699) * lu(k,1512) - lu(k,1531) = lu(k,1531) - lu(k,700) * lu(k,1512) - lu(k,1532) = lu(k,1532) - lu(k,701) * lu(k,1512) - lu(k,1534) = lu(k,1534) - lu(k,702) * lu(k,1512) - lu(k,1535) = lu(k,1535) - lu(k,703) * lu(k,1512) - lu(k,1536) = lu(k,1536) - lu(k,704) * lu(k,1512) - lu(k,1537) = lu(k,1537) - lu(k,705) * lu(k,1512) - lu(k,1538) = lu(k,1538) - lu(k,706) * lu(k,1512) - lu(k,1539) = lu(k,1539) - lu(k,707) * lu(k,1512) - lu(k,1557) = lu(k,1557) - lu(k,687) * lu(k,1555) - lu(k,1559) = lu(k,1559) - lu(k,688) * lu(k,1555) - lu(k,1562) = lu(k,1562) - lu(k,689) * lu(k,1555) - lu(k,1563) = lu(k,1563) - lu(k,690) * lu(k,1555) - lu(k,1564) = lu(k,1564) - lu(k,691) * lu(k,1555) - lu(k,1565) = lu(k,1565) - lu(k,692) * lu(k,1555) - lu(k,1566) = lu(k,1566) - lu(k,693) * lu(k,1555) - lu(k,1568) = lu(k,1568) - lu(k,694) * lu(k,1555) - lu(k,1569) = lu(k,1569) - lu(k,695) * lu(k,1555) - lu(k,1570) = lu(k,1570) - lu(k,696) * lu(k,1555) - lu(k,1571) = lu(k,1571) - lu(k,697) * lu(k,1555) - lu(k,1572) = lu(k,1572) - lu(k,698) * lu(k,1555) - lu(k,1573) = lu(k,1573) - lu(k,699) * lu(k,1555) - lu(k,1574) = lu(k,1574) - lu(k,700) * lu(k,1555) - lu(k,1575) = lu(k,1575) - lu(k,701) * lu(k,1555) - lu(k,1577) = lu(k,1577) - lu(k,702) * lu(k,1555) - lu(k,1578) = lu(k,1578) - lu(k,703) * lu(k,1555) - lu(k,1579) = lu(k,1579) - lu(k,704) * lu(k,1555) - lu(k,1580) = lu(k,1580) - lu(k,705) * lu(k,1555) - lu(k,1581) = lu(k,1581) - lu(k,706) * lu(k,1555) - lu(k,1582) = lu(k,1582) - lu(k,707) * lu(k,1555) - lu(k,1590) = lu(k,1590) - lu(k,687) * lu(k,1588) - lu(k,1592) = lu(k,1592) - lu(k,688) * lu(k,1588) - lu(k,1595) = lu(k,1595) - lu(k,689) * lu(k,1588) - lu(k,1596) = lu(k,1596) - lu(k,690) * lu(k,1588) - lu(k,1597) = lu(k,1597) - lu(k,691) * lu(k,1588) - lu(k,1598) = lu(k,1598) - lu(k,692) * lu(k,1588) - lu(k,1599) = lu(k,1599) - lu(k,693) * lu(k,1588) - lu(k,1601) = lu(k,1601) - lu(k,694) * lu(k,1588) - lu(k,1602) = lu(k,1602) - lu(k,695) * lu(k,1588) - lu(k,1603) = lu(k,1603) - lu(k,696) * lu(k,1588) - lu(k,1604) = lu(k,1604) - lu(k,697) * lu(k,1588) - lu(k,1605) = lu(k,1605) - lu(k,698) * lu(k,1588) - lu(k,1606) = lu(k,1606) - lu(k,699) * lu(k,1588) - lu(k,1607) = lu(k,1607) - lu(k,700) * lu(k,1588) - lu(k,1608) = lu(k,1608) - lu(k,701) * lu(k,1588) - lu(k,1610) = lu(k,1610) - lu(k,702) * lu(k,1588) - lu(k,1611) = lu(k,1611) - lu(k,703) * lu(k,1588) - lu(k,1612) = lu(k,1612) - lu(k,704) * lu(k,1588) - lu(k,1613) = lu(k,1613) - lu(k,705) * lu(k,1588) - lu(k,1614) = lu(k,1614) - lu(k,706) * lu(k,1588) - lu(k,1615) = lu(k,1615) - lu(k,707) * lu(k,1588) - lu(k,1626) = lu(k,1626) - lu(k,687) * lu(k,1624) - lu(k,1628) = lu(k,1628) - lu(k,688) * lu(k,1624) - lu(k,1631) = lu(k,1631) - lu(k,689) * lu(k,1624) - lu(k,1632) = lu(k,1632) - lu(k,690) * lu(k,1624) - lu(k,1633) = lu(k,1633) - lu(k,691) * lu(k,1624) - lu(k,1634) = lu(k,1634) - lu(k,692) * lu(k,1624) - lu(k,1635) = lu(k,1635) - lu(k,693) * lu(k,1624) - lu(k,1637) = lu(k,1637) - lu(k,694) * lu(k,1624) - lu(k,1638) = lu(k,1638) - lu(k,695) * lu(k,1624) - lu(k,1639) = lu(k,1639) - lu(k,696) * lu(k,1624) - lu(k,1640) = lu(k,1640) - lu(k,697) * lu(k,1624) - lu(k,1641) = lu(k,1641) - lu(k,698) * lu(k,1624) - lu(k,1642) = lu(k,1642) - lu(k,699) * lu(k,1624) - lu(k,1643) = lu(k,1643) - lu(k,700) * lu(k,1624) - lu(k,1644) = lu(k,1644) - lu(k,701) * lu(k,1624) - lu(k,1646) = lu(k,1646) - lu(k,702) * lu(k,1624) - lu(k,1647) = lu(k,1647) - lu(k,703) * lu(k,1624) - lu(k,1648) = lu(k,1648) - lu(k,704) * lu(k,1624) - lu(k,1649) = lu(k,1649) - lu(k,705) * lu(k,1624) - lu(k,1650) = lu(k,1650) - lu(k,706) * lu(k,1624) - lu(k,1651) = lu(k,1651) - lu(k,707) * lu(k,1624) - lu(k,1669) = lu(k,1669) - lu(k,687) * lu(k,1667) - lu(k,1671) = lu(k,1671) - lu(k,688) * lu(k,1667) - lu(k,1674) = lu(k,1674) - lu(k,689) * lu(k,1667) - lu(k,1675) = lu(k,1675) - lu(k,690) * lu(k,1667) - lu(k,1676) = lu(k,1676) - lu(k,691) * lu(k,1667) - lu(k,1677) = lu(k,1677) - lu(k,692) * lu(k,1667) - lu(k,1678) = lu(k,1678) - lu(k,693) * lu(k,1667) - lu(k,1680) = lu(k,1680) - lu(k,694) * lu(k,1667) - lu(k,1681) = lu(k,1681) - lu(k,695) * lu(k,1667) - lu(k,1682) = lu(k,1682) - lu(k,696) * lu(k,1667) - lu(k,1683) = lu(k,1683) - lu(k,697) * lu(k,1667) - lu(k,1684) = lu(k,1684) - lu(k,698) * lu(k,1667) - lu(k,1685) = lu(k,1685) - lu(k,699) * lu(k,1667) - lu(k,1686) = lu(k,1686) - lu(k,700) * lu(k,1667) - lu(k,1687) = lu(k,1687) - lu(k,701) * lu(k,1667) - lu(k,1689) = lu(k,1689) - lu(k,702) * lu(k,1667) - lu(k,1690) = lu(k,1690) - lu(k,703) * lu(k,1667) - lu(k,1691) = lu(k,1691) - lu(k,704) * lu(k,1667) - lu(k,1692) = lu(k,1692) - lu(k,705) * lu(k,1667) - lu(k,1693) = lu(k,1693) - lu(k,706) * lu(k,1667) - lu(k,1694) = lu(k,1694) - lu(k,707) * lu(k,1667) - lu(k,1705) = lu(k,1705) - lu(k,687) * lu(k,1703) - lu(k,1707) = lu(k,1707) - lu(k,688) * lu(k,1703) - lu(k,1710) = lu(k,1710) - lu(k,689) * lu(k,1703) - lu(k,1711) = lu(k,1711) - lu(k,690) * lu(k,1703) - lu(k,1712) = lu(k,1712) - lu(k,691) * lu(k,1703) - lu(k,1713) = lu(k,1713) - lu(k,692) * lu(k,1703) - lu(k,1714) = lu(k,1714) - lu(k,693) * lu(k,1703) - lu(k,1716) = lu(k,1716) - lu(k,694) * lu(k,1703) - lu(k,1717) = lu(k,1717) - lu(k,695) * lu(k,1703) - lu(k,1718) = lu(k,1718) - lu(k,696) * lu(k,1703) - lu(k,1719) = lu(k,1719) - lu(k,697) * lu(k,1703) - lu(k,1720) = lu(k,1720) - lu(k,698) * lu(k,1703) - lu(k,1721) = lu(k,1721) - lu(k,699) * lu(k,1703) - lu(k,1722) = lu(k,1722) - lu(k,700) * lu(k,1703) - lu(k,1723) = lu(k,1723) - lu(k,701) * lu(k,1703) - lu(k,1725) = lu(k,1725) - lu(k,702) * lu(k,1703) - lu(k,1726) = lu(k,1726) - lu(k,703) * lu(k,1703) - lu(k,1727) = lu(k,1727) - lu(k,704) * lu(k,1703) - lu(k,1728) = lu(k,1728) - lu(k,705) * lu(k,1703) - lu(k,1729) = lu(k,1729) - lu(k,706) * lu(k,1703) - lu(k,1730) = lu(k,1730) - lu(k,707) * lu(k,1703) - lu(k,1747) = lu(k,1747) - lu(k,687) * lu(k,1745) - lu(k,1749) = lu(k,1749) - lu(k,688) * lu(k,1745) - lu(k,1752) = lu(k,1752) - lu(k,689) * lu(k,1745) - lu(k,1753) = lu(k,1753) - lu(k,690) * lu(k,1745) - lu(k,1754) = lu(k,1754) - lu(k,691) * lu(k,1745) - lu(k,1755) = lu(k,1755) - lu(k,692) * lu(k,1745) - lu(k,1756) = lu(k,1756) - lu(k,693) * lu(k,1745) - lu(k,1758) = lu(k,1758) - lu(k,694) * lu(k,1745) - lu(k,1759) = lu(k,1759) - lu(k,695) * lu(k,1745) - lu(k,1760) = lu(k,1760) - lu(k,696) * lu(k,1745) - lu(k,1761) = lu(k,1761) - lu(k,697) * lu(k,1745) - lu(k,1762) = lu(k,1762) - lu(k,698) * lu(k,1745) - lu(k,1763) = lu(k,1763) - lu(k,699) * lu(k,1745) - lu(k,1764) = lu(k,1764) - lu(k,700) * lu(k,1745) - lu(k,1765) = lu(k,1765) - lu(k,701) * lu(k,1745) - lu(k,1767) = lu(k,1767) - lu(k,702) * lu(k,1745) - lu(k,1768) = lu(k,1768) - lu(k,703) * lu(k,1745) - lu(k,1769) = lu(k,1769) - lu(k,704) * lu(k,1745) - lu(k,1770) = lu(k,1770) - lu(k,705) * lu(k,1745) - lu(k,1771) = lu(k,1771) - lu(k,706) * lu(k,1745) - lu(k,1772) = lu(k,1772) - lu(k,707) * lu(k,1745) - lu(k,1800) = lu(k,1800) - lu(k,687) * lu(k,1798) - lu(k,1802) = lu(k,1802) - lu(k,688) * lu(k,1798) - lu(k,1805) = lu(k,1805) - lu(k,689) * lu(k,1798) - lu(k,1806) = lu(k,1806) - lu(k,690) * lu(k,1798) - lu(k,1807) = lu(k,1807) - lu(k,691) * lu(k,1798) - lu(k,1808) = lu(k,1808) - lu(k,692) * lu(k,1798) - lu(k,1809) = lu(k,1809) - lu(k,693) * lu(k,1798) - lu(k,1811) = lu(k,1811) - lu(k,694) * lu(k,1798) - lu(k,1812) = lu(k,1812) - lu(k,695) * lu(k,1798) - lu(k,1813) = lu(k,1813) - lu(k,696) * lu(k,1798) - lu(k,1814) = lu(k,1814) - lu(k,697) * lu(k,1798) - lu(k,1815) = lu(k,1815) - lu(k,698) * lu(k,1798) - lu(k,1816) = lu(k,1816) - lu(k,699) * lu(k,1798) - lu(k,1817) = lu(k,1817) - lu(k,700) * lu(k,1798) - lu(k,1818) = lu(k,1818) - lu(k,701) * lu(k,1798) - lu(k,1820) = lu(k,1820) - lu(k,702) * lu(k,1798) - lu(k,1821) = lu(k,1821) - lu(k,703) * lu(k,1798) - lu(k,1822) = lu(k,1822) - lu(k,704) * lu(k,1798) - lu(k,1823) = lu(k,1823) - lu(k,705) * lu(k,1798) - lu(k,1824) = lu(k,1824) - lu(k,706) * lu(k,1798) - lu(k,1825) = lu(k,1825) - lu(k,707) * lu(k,1798) - lu(k,712) = 1._r8 / lu(k,712) - lu(k,713) = lu(k,713) * lu(k,712) - lu(k,714) = lu(k,714) * lu(k,712) - lu(k,715) = lu(k,715) * lu(k,712) - lu(k,716) = lu(k,716) * lu(k,712) - lu(k,717) = lu(k,717) * lu(k,712) - lu(k,718) = lu(k,718) * lu(k,712) - lu(k,719) = lu(k,719) * lu(k,712) - lu(k,720) = lu(k,720) * lu(k,712) - lu(k,721) = lu(k,721) * lu(k,712) - lu(k,722) = lu(k,722) * lu(k,712) - lu(k,723) = lu(k,723) * lu(k,712) - lu(k,724) = lu(k,724) * lu(k,712) - lu(k,725) = lu(k,725) * lu(k,712) - lu(k,726) = lu(k,726) * lu(k,712) - lu(k,727) = lu(k,727) * lu(k,712) - lu(k,728) = lu(k,728) * lu(k,712) - lu(k,729) = lu(k,729) * lu(k,712) - lu(k,730) = lu(k,730) * lu(k,712) - lu(k,731) = lu(k,731) * lu(k,712) - lu(k,732) = lu(k,732) * lu(k,712) - lu(k,733) = lu(k,733) * lu(k,712) - lu(k,734) = lu(k,734) * lu(k,712) - lu(k,784) = lu(k,784) - lu(k,713) * lu(k,783) - lu(k,786) = lu(k,786) - lu(k,714) * lu(k,783) - lu(k,787) = lu(k,787) - lu(k,715) * lu(k,783) - lu(k,788) = lu(k,788) - lu(k,716) * lu(k,783) - lu(k,789) = lu(k,789) - lu(k,717) * lu(k,783) - lu(k,790) = lu(k,790) - lu(k,718) * lu(k,783) - lu(k,791) = lu(k,791) - lu(k,719) * lu(k,783) - lu(k,792) = lu(k,792) - lu(k,720) * lu(k,783) - lu(k,793) = lu(k,793) - lu(k,721) * lu(k,783) - lu(k,794) = lu(k,794) - lu(k,722) * lu(k,783) - lu(k,795) = lu(k,795) - lu(k,723) * lu(k,783) - lu(k,796) = lu(k,796) - lu(k,724) * lu(k,783) - lu(k,798) = lu(k,798) - lu(k,725) * lu(k,783) - lu(k,800) = lu(k,800) - lu(k,726) * lu(k,783) - lu(k,801) = lu(k,801) - lu(k,727) * lu(k,783) - lu(k,802) = lu(k,802) - lu(k,728) * lu(k,783) - lu(k,803) = lu(k,803) - lu(k,729) * lu(k,783) - lu(k,804) = lu(k,804) - lu(k,730) * lu(k,783) - lu(k,806) = lu(k,806) - lu(k,731) * lu(k,783) - lu(k,807) = lu(k,807) - lu(k,732) * lu(k,783) - lu(k,808) = lu(k,808) - lu(k,733) * lu(k,783) - lu(k,809) = lu(k,809) - lu(k,734) * lu(k,783) - lu(k,827) = lu(k,827) - lu(k,713) * lu(k,826) - lu(k,829) = lu(k,829) - lu(k,714) * lu(k,826) - lu(k,830) = lu(k,830) - lu(k,715) * lu(k,826) - lu(k,831) = lu(k,831) - lu(k,716) * lu(k,826) - lu(k,832) = lu(k,832) - lu(k,717) * lu(k,826) - lu(k,833) = lu(k,833) - lu(k,718) * lu(k,826) - lu(k,834) = lu(k,834) - lu(k,719) * lu(k,826) - lu(k,835) = lu(k,835) - lu(k,720) * lu(k,826) - lu(k,836) = lu(k,836) - lu(k,721) * lu(k,826) - lu(k,837) = lu(k,837) - lu(k,722) * lu(k,826) - lu(k,838) = lu(k,838) - lu(k,723) * lu(k,826) - lu(k,839) = lu(k,839) - lu(k,724) * lu(k,826) - lu(k,841) = lu(k,841) - lu(k,725) * lu(k,826) - lu(k,843) = lu(k,843) - lu(k,726) * lu(k,826) - lu(k,844) = lu(k,844) - lu(k,727) * lu(k,826) - lu(k,845) = lu(k,845) - lu(k,728) * lu(k,826) - lu(k,846) = lu(k,846) - lu(k,729) * lu(k,826) - lu(k,847) = lu(k,847) - lu(k,730) * lu(k,826) - lu(k,849) = lu(k,849) - lu(k,731) * lu(k,826) - lu(k,850) = lu(k,850) - lu(k,732) * lu(k,826) - lu(k,851) = lu(k,851) - lu(k,733) * lu(k,826) - lu(k,852) = lu(k,852) - lu(k,734) * lu(k,826) - lu(k,875) = lu(k,875) - lu(k,713) * lu(k,874) - lu(k,877) = lu(k,877) - lu(k,714) * lu(k,874) - lu(k,878) = lu(k,878) - lu(k,715) * lu(k,874) - lu(k,879) = lu(k,879) - lu(k,716) * lu(k,874) - lu(k,880) = lu(k,880) - lu(k,717) * lu(k,874) - lu(k,881) = lu(k,881) - lu(k,718) * lu(k,874) - lu(k,882) = lu(k,882) - lu(k,719) * lu(k,874) - lu(k,883) = lu(k,883) - lu(k,720) * lu(k,874) - lu(k,884) = lu(k,884) - lu(k,721) * lu(k,874) - lu(k,885) = lu(k,885) - lu(k,722) * lu(k,874) - lu(k,886) = lu(k,886) - lu(k,723) * lu(k,874) - lu(k,887) = lu(k,887) - lu(k,724) * lu(k,874) - lu(k,889) = lu(k,889) - lu(k,725) * lu(k,874) - lu(k,891) = lu(k,891) - lu(k,726) * lu(k,874) - lu(k,892) = lu(k,892) - lu(k,727) * lu(k,874) - lu(k,893) = lu(k,893) - lu(k,728) * lu(k,874) - lu(k,894) = lu(k,894) - lu(k,729) * lu(k,874) - lu(k,895) = lu(k,895) - lu(k,730) * lu(k,874) - lu(k,897) = lu(k,897) - lu(k,731) * lu(k,874) - lu(k,898) = lu(k,898) - lu(k,732) * lu(k,874) - lu(k,899) = lu(k,899) - lu(k,733) * lu(k,874) - lu(k,900) = lu(k,900) - lu(k,734) * lu(k,874) - lu(k,918) = lu(k,918) - lu(k,713) * lu(k,917) - lu(k,920) = lu(k,920) - lu(k,714) * lu(k,917) - lu(k,921) = lu(k,921) - lu(k,715) * lu(k,917) - lu(k,922) = lu(k,922) - lu(k,716) * lu(k,917) - lu(k,923) = lu(k,923) - lu(k,717) * lu(k,917) - lu(k,924) = lu(k,924) - lu(k,718) * lu(k,917) - lu(k,925) = lu(k,925) - lu(k,719) * lu(k,917) - lu(k,926) = lu(k,926) - lu(k,720) * lu(k,917) - lu(k,927) = lu(k,927) - lu(k,721) * lu(k,917) - lu(k,928) = lu(k,928) - lu(k,722) * lu(k,917) - lu(k,929) = lu(k,929) - lu(k,723) * lu(k,917) - lu(k,930) = lu(k,930) - lu(k,724) * lu(k,917) - lu(k,932) = lu(k,932) - lu(k,725) * lu(k,917) - lu(k,934) = lu(k,934) - lu(k,726) * lu(k,917) - lu(k,935) = lu(k,935) - lu(k,727) * lu(k,917) - lu(k,936) = lu(k,936) - lu(k,728) * lu(k,917) - lu(k,937) = lu(k,937) - lu(k,729) * lu(k,917) - lu(k,938) = lu(k,938) - lu(k,730) * lu(k,917) - lu(k,940) = lu(k,940) - lu(k,731) * lu(k,917) - lu(k,941) = lu(k,941) - lu(k,732) * lu(k,917) - lu(k,942) = lu(k,942) - lu(k,733) * lu(k,917) - lu(k,943) = lu(k,943) - lu(k,734) * lu(k,917) - lu(k,974) = lu(k,974) - lu(k,713) * lu(k,973) - lu(k,976) = lu(k,976) - lu(k,714) * lu(k,973) - lu(k,977) = lu(k,977) - lu(k,715) * lu(k,973) - lu(k,978) = lu(k,978) - lu(k,716) * lu(k,973) - lu(k,979) = lu(k,979) - lu(k,717) * lu(k,973) - lu(k,980) = lu(k,980) - lu(k,718) * lu(k,973) - lu(k,981) = lu(k,981) - lu(k,719) * lu(k,973) - lu(k,982) = lu(k,982) - lu(k,720) * lu(k,973) - lu(k,983) = lu(k,983) - lu(k,721) * lu(k,973) - lu(k,984) = lu(k,984) - lu(k,722) * lu(k,973) - lu(k,985) = lu(k,985) - lu(k,723) * lu(k,973) - lu(k,986) = lu(k,986) - lu(k,724) * lu(k,973) - lu(k,988) = lu(k,988) - lu(k,725) * lu(k,973) - lu(k,990) = lu(k,990) - lu(k,726) * lu(k,973) - lu(k,991) = lu(k,991) - lu(k,727) * lu(k,973) - lu(k,992) = lu(k,992) - lu(k,728) * lu(k,973) - lu(k,993) = lu(k,993) - lu(k,729) * lu(k,973) - lu(k,994) = lu(k,994) - lu(k,730) * lu(k,973) - lu(k,996) = lu(k,996) - lu(k,731) * lu(k,973) - lu(k,997) = lu(k,997) - lu(k,732) * lu(k,973) - lu(k,998) = lu(k,998) - lu(k,733) * lu(k,973) - lu(k,999) = lu(k,999) - lu(k,734) * lu(k,973) - lu(k,1059) = lu(k,1059) - lu(k,713) * lu(k,1058) - lu(k,1061) = lu(k,1061) - lu(k,714) * lu(k,1058) - lu(k,1062) = lu(k,1062) - lu(k,715) * lu(k,1058) - lu(k,1063) = lu(k,1063) - lu(k,716) * lu(k,1058) - lu(k,1064) = lu(k,1064) - lu(k,717) * lu(k,1058) - lu(k,1065) = lu(k,1065) - lu(k,718) * lu(k,1058) - lu(k,1066) = lu(k,1066) - lu(k,719) * lu(k,1058) - lu(k,1067) = lu(k,1067) - lu(k,720) * lu(k,1058) - lu(k,1068) = lu(k,1068) - lu(k,721) * lu(k,1058) - lu(k,1069) = lu(k,1069) - lu(k,722) * lu(k,1058) - lu(k,1070) = lu(k,1070) - lu(k,723) * lu(k,1058) - lu(k,1071) = lu(k,1071) - lu(k,724) * lu(k,1058) - lu(k,1073) = lu(k,1073) - lu(k,725) * lu(k,1058) - lu(k,1075) = lu(k,1075) - lu(k,726) * lu(k,1058) - lu(k,1076) = lu(k,1076) - lu(k,727) * lu(k,1058) - lu(k,1077) = lu(k,1077) - lu(k,728) * lu(k,1058) - lu(k,1078) = lu(k,1078) - lu(k,729) * lu(k,1058) - lu(k,1079) = lu(k,1079) - lu(k,730) * lu(k,1058) - lu(k,1081) = lu(k,1081) - lu(k,731) * lu(k,1058) - lu(k,1082) = lu(k,1082) - lu(k,732) * lu(k,1058) - lu(k,1083) = lu(k,1083) - lu(k,733) * lu(k,1058) - lu(k,1084) = lu(k,1084) - lu(k,734) * lu(k,1058) - lu(k,1099) = lu(k,1099) - lu(k,713) * lu(k,1098) - lu(k,1101) = lu(k,1101) - lu(k,714) * lu(k,1098) - lu(k,1102) = lu(k,1102) - lu(k,715) * lu(k,1098) - lu(k,1103) = lu(k,1103) - lu(k,716) * lu(k,1098) - lu(k,1104) = lu(k,1104) - lu(k,717) * lu(k,1098) - lu(k,1105) = lu(k,1105) - lu(k,718) * lu(k,1098) - lu(k,1106) = lu(k,1106) - lu(k,719) * lu(k,1098) - lu(k,1107) = lu(k,1107) - lu(k,720) * lu(k,1098) - lu(k,1108) = lu(k,1108) - lu(k,721) * lu(k,1098) - lu(k,1109) = lu(k,1109) - lu(k,722) * lu(k,1098) - lu(k,1110) = lu(k,1110) - lu(k,723) * lu(k,1098) - lu(k,1111) = lu(k,1111) - lu(k,724) * lu(k,1098) - lu(k,1113) = lu(k,1113) - lu(k,725) * lu(k,1098) - lu(k,1115) = lu(k,1115) - lu(k,726) * lu(k,1098) - lu(k,1116) = lu(k,1116) - lu(k,727) * lu(k,1098) - lu(k,1117) = lu(k,1117) - lu(k,728) * lu(k,1098) - lu(k,1118) = lu(k,1118) - lu(k,729) * lu(k,1098) - lu(k,1119) = lu(k,1119) - lu(k,730) * lu(k,1098) - lu(k,1121) = lu(k,1121) - lu(k,731) * lu(k,1098) - lu(k,1122) = lu(k,1122) - lu(k,732) * lu(k,1098) - lu(k,1123) = lu(k,1123) - lu(k,733) * lu(k,1098) - lu(k,1124) = lu(k,1124) - lu(k,734) * lu(k,1098) - lu(k,1144) = lu(k,1144) - lu(k,713) * lu(k,1143) - lu(k,1146) = lu(k,1146) - lu(k,714) * lu(k,1143) - lu(k,1147) = lu(k,1147) - lu(k,715) * lu(k,1143) - lu(k,1148) = lu(k,1148) - lu(k,716) * lu(k,1143) - lu(k,1149) = lu(k,1149) - lu(k,717) * lu(k,1143) - lu(k,1150) = lu(k,1150) - lu(k,718) * lu(k,1143) - lu(k,1151) = lu(k,1151) - lu(k,719) * lu(k,1143) - lu(k,1152) = lu(k,1152) - lu(k,720) * lu(k,1143) - lu(k,1153) = lu(k,1153) - lu(k,721) * lu(k,1143) - lu(k,1154) = lu(k,1154) - lu(k,722) * lu(k,1143) - lu(k,1155) = lu(k,1155) - lu(k,723) * lu(k,1143) - lu(k,1156) = lu(k,1156) - lu(k,724) * lu(k,1143) - lu(k,1158) = lu(k,1158) - lu(k,725) * lu(k,1143) - lu(k,1160) = lu(k,1160) - lu(k,726) * lu(k,1143) - lu(k,1161) = lu(k,1161) - lu(k,727) * lu(k,1143) - lu(k,1162) = lu(k,1162) - lu(k,728) * lu(k,1143) - lu(k,1163) = lu(k,1163) - lu(k,729) * lu(k,1143) - lu(k,1164) = lu(k,1164) - lu(k,730) * lu(k,1143) - lu(k,1166) = lu(k,1166) - lu(k,731) * lu(k,1143) - lu(k,1167) = lu(k,1167) - lu(k,732) * lu(k,1143) - lu(k,1168) = lu(k,1168) - lu(k,733) * lu(k,1143) - lu(k,1169) = lu(k,1169) - lu(k,734) * lu(k,1143) - lu(k,1187) = lu(k,1187) - lu(k,713) * lu(k,1186) - lu(k,1189) = lu(k,1189) - lu(k,714) * lu(k,1186) - lu(k,1190) = lu(k,1190) - lu(k,715) * lu(k,1186) - lu(k,1191) = lu(k,1191) - lu(k,716) * lu(k,1186) - lu(k,1192) = lu(k,1192) - lu(k,717) * lu(k,1186) - lu(k,1193) = lu(k,1193) - lu(k,718) * lu(k,1186) - lu(k,1194) = lu(k,1194) - lu(k,719) * lu(k,1186) - lu(k,1195) = lu(k,1195) - lu(k,720) * lu(k,1186) - lu(k,1196) = lu(k,1196) - lu(k,721) * lu(k,1186) - lu(k,1197) = lu(k,1197) - lu(k,722) * lu(k,1186) - lu(k,1198) = lu(k,1198) - lu(k,723) * lu(k,1186) - lu(k,1199) = lu(k,1199) - lu(k,724) * lu(k,1186) - lu(k,1201) = lu(k,1201) - lu(k,725) * lu(k,1186) - lu(k,1203) = lu(k,1203) - lu(k,726) * lu(k,1186) - lu(k,1204) = lu(k,1204) - lu(k,727) * lu(k,1186) - lu(k,1205) = lu(k,1205) - lu(k,728) * lu(k,1186) - lu(k,1206) = lu(k,1206) - lu(k,729) * lu(k,1186) - lu(k,1207) = lu(k,1207) - lu(k,730) * lu(k,1186) - lu(k,1209) = lu(k,1209) - lu(k,731) * lu(k,1186) - lu(k,1210) = lu(k,1210) - lu(k,732) * lu(k,1186) - lu(k,1211) = lu(k,1211) - lu(k,733) * lu(k,1186) - lu(k,1212) = lu(k,1212) - lu(k,734) * lu(k,1186) - lu(k,1223) = lu(k,1223) - lu(k,713) * lu(k,1222) - lu(k,1224) = lu(k,1224) - lu(k,714) * lu(k,1222) - lu(k,1225) = lu(k,1225) - lu(k,715) * lu(k,1222) - lu(k,1226) = lu(k,1226) - lu(k,716) * lu(k,1222) - lu(k,1227) = lu(k,1227) - lu(k,717) * lu(k,1222) - lu(k,1228) = lu(k,1228) - lu(k,718) * lu(k,1222) - lu(k,1229) = lu(k,1229) - lu(k,719) * lu(k,1222) - lu(k,1230) = lu(k,1230) - lu(k,720) * lu(k,1222) - lu(k,1231) = lu(k,1231) - lu(k,721) * lu(k,1222) - lu(k,1232) = lu(k,1232) - lu(k,722) * lu(k,1222) - lu(k,1233) = lu(k,1233) - lu(k,723) * lu(k,1222) - lu(k,1234) = lu(k,1234) - lu(k,724) * lu(k,1222) - lu(k,1236) = lu(k,1236) - lu(k,725) * lu(k,1222) - lu(k,1238) = lu(k,1238) - lu(k,726) * lu(k,1222) - lu(k,1239) = lu(k,1239) - lu(k,727) * lu(k,1222) - lu(k,1240) = lu(k,1240) - lu(k,728) * lu(k,1222) - lu(k,1241) = lu(k,1241) - lu(k,729) * lu(k,1222) - lu(k,1242) = lu(k,1242) - lu(k,730) * lu(k,1222) - lu(k,1244) = lu(k,1244) - lu(k,731) * lu(k,1222) - lu(k,1245) = lu(k,1245) - lu(k,732) * lu(k,1222) - lu(k,1246) = lu(k,1246) - lu(k,733) * lu(k,1222) - lu(k,1247) = lu(k,1247) - lu(k,734) * lu(k,1222) - lu(k,1265) = lu(k,1265) - lu(k,713) * lu(k,1264) - lu(k,1267) = lu(k,1267) - lu(k,714) * lu(k,1264) - lu(k,1268) = lu(k,1268) - lu(k,715) * lu(k,1264) - lu(k,1269) = lu(k,1269) - lu(k,716) * lu(k,1264) - lu(k,1270) = lu(k,1270) - lu(k,717) * lu(k,1264) - lu(k,1271) = lu(k,1271) - lu(k,718) * lu(k,1264) - lu(k,1272) = lu(k,1272) - lu(k,719) * lu(k,1264) - lu(k,1273) = lu(k,1273) - lu(k,720) * lu(k,1264) - lu(k,1274) = lu(k,1274) - lu(k,721) * lu(k,1264) - lu(k,1275) = lu(k,1275) - lu(k,722) * lu(k,1264) - lu(k,1276) = lu(k,1276) - lu(k,723) * lu(k,1264) - lu(k,1277) = lu(k,1277) - lu(k,724) * lu(k,1264) - lu(k,1279) = lu(k,1279) - lu(k,725) * lu(k,1264) - lu(k,1281) = lu(k,1281) - lu(k,726) * lu(k,1264) - lu(k,1282) = lu(k,1282) - lu(k,727) * lu(k,1264) - lu(k,1283) = lu(k,1283) - lu(k,728) * lu(k,1264) - lu(k,1284) = lu(k,1284) - lu(k,729) * lu(k,1264) - lu(k,1285) = lu(k,1285) - lu(k,730) * lu(k,1264) - lu(k,1287) = lu(k,1287) - lu(k,731) * lu(k,1264) - lu(k,1288) = lu(k,1288) - lu(k,732) * lu(k,1264) - lu(k,1289) = lu(k,1289) - lu(k,733) * lu(k,1264) - lu(k,1290) = lu(k,1290) - lu(k,734) * lu(k,1264) - lu(k,1301) = lu(k,1301) - lu(k,713) * lu(k,1300) - lu(k,1303) = lu(k,1303) - lu(k,714) * lu(k,1300) - lu(k,1304) = lu(k,1304) - lu(k,715) * lu(k,1300) - lu(k,1305) = lu(k,1305) - lu(k,716) * lu(k,1300) - lu(k,1306) = lu(k,1306) - lu(k,717) * lu(k,1300) - lu(k,1307) = lu(k,1307) - lu(k,718) * lu(k,1300) - lu(k,1308) = lu(k,1308) - lu(k,719) * lu(k,1300) - lu(k,1309) = lu(k,1309) - lu(k,720) * lu(k,1300) - lu(k,1310) = lu(k,1310) - lu(k,721) * lu(k,1300) - lu(k,1311) = lu(k,1311) - lu(k,722) * lu(k,1300) - lu(k,1312) = lu(k,1312) - lu(k,723) * lu(k,1300) - lu(k,1313) = lu(k,1313) - lu(k,724) * lu(k,1300) - lu(k,1315) = lu(k,1315) - lu(k,725) * lu(k,1300) - lu(k,1317) = lu(k,1317) - lu(k,726) * lu(k,1300) - lu(k,1318) = lu(k,1318) - lu(k,727) * lu(k,1300) - lu(k,1319) = lu(k,1319) - lu(k,728) * lu(k,1300) - lu(k,1320) = lu(k,1320) - lu(k,729) * lu(k,1300) - lu(k,1321) = lu(k,1321) - lu(k,730) * lu(k,1300) - lu(k,1323) = lu(k,1323) - lu(k,731) * lu(k,1300) - lu(k,1324) = lu(k,1324) - lu(k,732) * lu(k,1300) - lu(k,1325) = lu(k,1325) - lu(k,733) * lu(k,1300) - lu(k,1326) = lu(k,1326) - lu(k,734) * lu(k,1300) - lu(k,1346) = lu(k,1346) - lu(k,713) * lu(k,1345) - lu(k,1348) = lu(k,1348) - lu(k,714) * lu(k,1345) - lu(k,1349) = lu(k,1349) - lu(k,715) * lu(k,1345) - lu(k,1350) = lu(k,1350) - lu(k,716) * lu(k,1345) - lu(k,1351) = lu(k,1351) - lu(k,717) * lu(k,1345) - lu(k,1352) = lu(k,1352) - lu(k,718) * lu(k,1345) - lu(k,1353) = lu(k,1353) - lu(k,719) * lu(k,1345) - lu(k,1354) = lu(k,1354) - lu(k,720) * lu(k,1345) - lu(k,1355) = lu(k,1355) - lu(k,721) * lu(k,1345) - lu(k,1356) = lu(k,1356) - lu(k,722) * lu(k,1345) - lu(k,1357) = lu(k,1357) - lu(k,723) * lu(k,1345) - lu(k,1358) = lu(k,1358) - lu(k,724) * lu(k,1345) - lu(k,1360) = lu(k,1360) - lu(k,725) * lu(k,1345) - lu(k,1362) = lu(k,1362) - lu(k,726) * lu(k,1345) - lu(k,1363) = lu(k,1363) - lu(k,727) * lu(k,1345) - lu(k,1364) = lu(k,1364) - lu(k,728) * lu(k,1345) - lu(k,1365) = lu(k,1365) - lu(k,729) * lu(k,1345) - lu(k,1366) = lu(k,1366) - lu(k,730) * lu(k,1345) - lu(k,1368) = lu(k,1368) - lu(k,731) * lu(k,1345) - lu(k,1369) = lu(k,1369) - lu(k,732) * lu(k,1345) - lu(k,1370) = lu(k,1370) - lu(k,733) * lu(k,1345) - lu(k,1371) = lu(k,1371) - lu(k,734) * lu(k,1345) - lu(k,1388) = lu(k,1388) - lu(k,713) * lu(k,1387) - lu(k,1390) = lu(k,1390) - lu(k,714) * lu(k,1387) - lu(k,1391) = lu(k,1391) - lu(k,715) * lu(k,1387) - lu(k,1392) = lu(k,1392) - lu(k,716) * lu(k,1387) - lu(k,1393) = lu(k,1393) - lu(k,717) * lu(k,1387) - lu(k,1394) = lu(k,1394) - lu(k,718) * lu(k,1387) - lu(k,1395) = lu(k,1395) - lu(k,719) * lu(k,1387) - lu(k,1396) = lu(k,1396) - lu(k,720) * lu(k,1387) - lu(k,1397) = lu(k,1397) - lu(k,721) * lu(k,1387) - lu(k,1398) = lu(k,1398) - lu(k,722) * lu(k,1387) - lu(k,1399) = lu(k,1399) - lu(k,723) * lu(k,1387) - lu(k,1400) = lu(k,1400) - lu(k,724) * lu(k,1387) - lu(k,1402) = lu(k,1402) - lu(k,725) * lu(k,1387) - lu(k,1404) = lu(k,1404) - lu(k,726) * lu(k,1387) - lu(k,1405) = lu(k,1405) - lu(k,727) * lu(k,1387) - lu(k,1406) = lu(k,1406) - lu(k,728) * lu(k,1387) - lu(k,1407) = lu(k,1407) - lu(k,729) * lu(k,1387) - lu(k,1408) = lu(k,1408) - lu(k,730) * lu(k,1387) - lu(k,1410) = lu(k,1410) - lu(k,731) * lu(k,1387) - lu(k,1411) = lu(k,1411) - lu(k,732) * lu(k,1387) - lu(k,1412) = lu(k,1412) - lu(k,733) * lu(k,1387) - lu(k,1413) = lu(k,1413) - lu(k,734) * lu(k,1387) - lu(k,1426) = lu(k,1426) - lu(k,713) * lu(k,1425) - lu(k,1428) = lu(k,1428) - lu(k,714) * lu(k,1425) - lu(k,1429) = lu(k,1429) - lu(k,715) * lu(k,1425) - lu(k,1430) = lu(k,1430) - lu(k,716) * lu(k,1425) - lu(k,1431) = lu(k,1431) - lu(k,717) * lu(k,1425) - lu(k,1432) = lu(k,1432) - lu(k,718) * lu(k,1425) - lu(k,1433) = lu(k,1433) - lu(k,719) * lu(k,1425) - lu(k,1434) = lu(k,1434) - lu(k,720) * lu(k,1425) - lu(k,1435) = lu(k,1435) - lu(k,721) * lu(k,1425) - lu(k,1436) = lu(k,1436) - lu(k,722) * lu(k,1425) - lu(k,1437) = lu(k,1437) - lu(k,723) * lu(k,1425) - lu(k,1438) = lu(k,1438) - lu(k,724) * lu(k,1425) - lu(k,1440) = lu(k,1440) - lu(k,725) * lu(k,1425) - lu(k,1442) = lu(k,1442) - lu(k,726) * lu(k,1425) - lu(k,1443) = lu(k,1443) - lu(k,727) * lu(k,1425) - lu(k,1444) = lu(k,1444) - lu(k,728) * lu(k,1425) - lu(k,1445) = lu(k,1445) - lu(k,729) * lu(k,1425) - lu(k,1446) = lu(k,1446) - lu(k,730) * lu(k,1425) - lu(k,1448) = lu(k,1448) - lu(k,731) * lu(k,1425) - lu(k,1449) = lu(k,1449) - lu(k,732) * lu(k,1425) - lu(k,1450) = lu(k,1450) - lu(k,733) * lu(k,1425) - lu(k,1451) = lu(k,1451) - lu(k,734) * lu(k,1425) - lu(k,1471) = lu(k,1471) - lu(k,713) * lu(k,1470) - lu(k,1473) = lu(k,1473) - lu(k,714) * lu(k,1470) - lu(k,1474) = lu(k,1474) - lu(k,715) * lu(k,1470) - lu(k,1475) = lu(k,1475) - lu(k,716) * lu(k,1470) - lu(k,1476) = lu(k,1476) - lu(k,717) * lu(k,1470) - lu(k,1477) = lu(k,1477) - lu(k,718) * lu(k,1470) - lu(k,1478) = lu(k,1478) - lu(k,719) * lu(k,1470) - lu(k,1479) = lu(k,1479) - lu(k,720) * lu(k,1470) - lu(k,1480) = lu(k,1480) - lu(k,721) * lu(k,1470) - lu(k,1481) = lu(k,1481) - lu(k,722) * lu(k,1470) - lu(k,1482) = lu(k,1482) - lu(k,723) * lu(k,1470) - lu(k,1483) = lu(k,1483) - lu(k,724) * lu(k,1470) - lu(k,1485) = lu(k,1485) - lu(k,725) * lu(k,1470) - lu(k,1487) = lu(k,1487) - lu(k,726) * lu(k,1470) - lu(k,1488) = lu(k,1488) - lu(k,727) * lu(k,1470) - lu(k,1489) = lu(k,1489) - lu(k,728) * lu(k,1470) - lu(k,1490) = lu(k,1490) - lu(k,729) * lu(k,1470) - lu(k,1491) = lu(k,1491) - lu(k,730) * lu(k,1470) - lu(k,1493) = lu(k,1493) - lu(k,731) * lu(k,1470) - lu(k,1494) = lu(k,1494) - lu(k,732) * lu(k,1470) - lu(k,1495) = lu(k,1495) - lu(k,733) * lu(k,1470) - lu(k,1496) = lu(k,1496) - lu(k,734) * lu(k,1470) - lu(k,1514) = lu(k,1514) - lu(k,713) * lu(k,1513) - lu(k,1516) = lu(k,1516) - lu(k,714) * lu(k,1513) - lu(k,1517) = lu(k,1517) - lu(k,715) * lu(k,1513) - lu(k,1518) = lu(k,1518) - lu(k,716) * lu(k,1513) - lu(k,1519) = lu(k,1519) - lu(k,717) * lu(k,1513) - lu(k,1520) = lu(k,1520) - lu(k,718) * lu(k,1513) - lu(k,1521) = lu(k,1521) - lu(k,719) * lu(k,1513) - lu(k,1522) = lu(k,1522) - lu(k,720) * lu(k,1513) - lu(k,1523) = lu(k,1523) - lu(k,721) * lu(k,1513) - lu(k,1524) = lu(k,1524) - lu(k,722) * lu(k,1513) - lu(k,1525) = lu(k,1525) - lu(k,723) * lu(k,1513) - lu(k,1526) = lu(k,1526) - lu(k,724) * lu(k,1513) - lu(k,1528) = lu(k,1528) - lu(k,725) * lu(k,1513) - lu(k,1530) = lu(k,1530) - lu(k,726) * lu(k,1513) - lu(k,1531) = lu(k,1531) - lu(k,727) * lu(k,1513) - lu(k,1532) = lu(k,1532) - lu(k,728) * lu(k,1513) - lu(k,1533) = lu(k,1533) - lu(k,729) * lu(k,1513) - lu(k,1534) = lu(k,1534) - lu(k,730) * lu(k,1513) - lu(k,1536) = lu(k,1536) - lu(k,731) * lu(k,1513) - lu(k,1537) = lu(k,1537) - lu(k,732) * lu(k,1513) - lu(k,1538) = lu(k,1538) - lu(k,733) * lu(k,1513) - lu(k,1539) = lu(k,1539) - lu(k,734) * lu(k,1513) - lu(k,1557) = lu(k,1557) - lu(k,713) * lu(k,1556) - lu(k,1559) = lu(k,1559) - lu(k,714) * lu(k,1556) - lu(k,1560) = lu(k,1560) - lu(k,715) * lu(k,1556) - lu(k,1561) = lu(k,1561) - lu(k,716) * lu(k,1556) - lu(k,1562) = lu(k,1562) - lu(k,717) * lu(k,1556) - lu(k,1563) = lu(k,1563) - lu(k,718) * lu(k,1556) - lu(k,1564) = lu(k,1564) - lu(k,719) * lu(k,1556) - lu(k,1565) = lu(k,1565) - lu(k,720) * lu(k,1556) - lu(k,1566) = lu(k,1566) - lu(k,721) * lu(k,1556) - lu(k,1567) = lu(k,1567) - lu(k,722) * lu(k,1556) - lu(k,1568) = lu(k,1568) - lu(k,723) * lu(k,1556) - lu(k,1569) = lu(k,1569) - lu(k,724) * lu(k,1556) - lu(k,1571) = lu(k,1571) - lu(k,725) * lu(k,1556) - lu(k,1573) = lu(k,1573) - lu(k,726) * lu(k,1556) - lu(k,1574) = lu(k,1574) - lu(k,727) * lu(k,1556) - lu(k,1575) = lu(k,1575) - lu(k,728) * lu(k,1556) - lu(k,1576) = lu(k,1576) - lu(k,729) * lu(k,1556) - lu(k,1577) = lu(k,1577) - lu(k,730) * lu(k,1556) - lu(k,1579) = lu(k,1579) - lu(k,731) * lu(k,1556) - lu(k,1580) = lu(k,1580) - lu(k,732) * lu(k,1556) - lu(k,1581) = lu(k,1581) - lu(k,733) * lu(k,1556) - lu(k,1582) = lu(k,1582) - lu(k,734) * lu(k,1556) - lu(k,1590) = lu(k,1590) - lu(k,713) * lu(k,1589) - lu(k,1592) = lu(k,1592) - lu(k,714) * lu(k,1589) - lu(k,1593) = lu(k,1593) - lu(k,715) * lu(k,1589) - lu(k,1594) = lu(k,1594) - lu(k,716) * lu(k,1589) - lu(k,1595) = lu(k,1595) - lu(k,717) * lu(k,1589) - lu(k,1596) = lu(k,1596) - lu(k,718) * lu(k,1589) - lu(k,1597) = lu(k,1597) - lu(k,719) * lu(k,1589) - lu(k,1598) = lu(k,1598) - lu(k,720) * lu(k,1589) - lu(k,1599) = lu(k,1599) - lu(k,721) * lu(k,1589) - lu(k,1600) = lu(k,1600) - lu(k,722) * lu(k,1589) - lu(k,1601) = lu(k,1601) - lu(k,723) * lu(k,1589) - lu(k,1602) = lu(k,1602) - lu(k,724) * lu(k,1589) - lu(k,1604) = lu(k,1604) - lu(k,725) * lu(k,1589) - lu(k,1606) = lu(k,1606) - lu(k,726) * lu(k,1589) - lu(k,1607) = lu(k,1607) - lu(k,727) * lu(k,1589) - lu(k,1608) = lu(k,1608) - lu(k,728) * lu(k,1589) - lu(k,1609) = lu(k,1609) - lu(k,729) * lu(k,1589) - lu(k,1610) = lu(k,1610) - lu(k,730) * lu(k,1589) - lu(k,1612) = lu(k,1612) - lu(k,731) * lu(k,1589) - lu(k,1613) = lu(k,1613) - lu(k,732) * lu(k,1589) - lu(k,1614) = lu(k,1614) - lu(k,733) * lu(k,1589) - lu(k,1615) = lu(k,1615) - lu(k,734) * lu(k,1589) - lu(k,1626) = lu(k,1626) - lu(k,713) * lu(k,1625) - lu(k,1628) = lu(k,1628) - lu(k,714) * lu(k,1625) - lu(k,1629) = lu(k,1629) - lu(k,715) * lu(k,1625) - lu(k,1630) = lu(k,1630) - lu(k,716) * lu(k,1625) - lu(k,1631) = lu(k,1631) - lu(k,717) * lu(k,1625) - lu(k,1632) = lu(k,1632) - lu(k,718) * lu(k,1625) - lu(k,1633) = lu(k,1633) - lu(k,719) * lu(k,1625) - lu(k,1634) = lu(k,1634) - lu(k,720) * lu(k,1625) - lu(k,1635) = lu(k,1635) - lu(k,721) * lu(k,1625) - lu(k,1636) = lu(k,1636) - lu(k,722) * lu(k,1625) - lu(k,1637) = lu(k,1637) - lu(k,723) * lu(k,1625) - lu(k,1638) = lu(k,1638) - lu(k,724) * lu(k,1625) - lu(k,1640) = lu(k,1640) - lu(k,725) * lu(k,1625) - lu(k,1642) = lu(k,1642) - lu(k,726) * lu(k,1625) - lu(k,1643) = lu(k,1643) - lu(k,727) * lu(k,1625) - lu(k,1644) = lu(k,1644) - lu(k,728) * lu(k,1625) - lu(k,1645) = lu(k,1645) - lu(k,729) * lu(k,1625) - lu(k,1646) = lu(k,1646) - lu(k,730) * lu(k,1625) - lu(k,1648) = lu(k,1648) - lu(k,731) * lu(k,1625) - lu(k,1649) = lu(k,1649) - lu(k,732) * lu(k,1625) - lu(k,1650) = lu(k,1650) - lu(k,733) * lu(k,1625) - lu(k,1651) = lu(k,1651) - lu(k,734) * lu(k,1625) - lu(k,1669) = lu(k,1669) - lu(k,713) * lu(k,1668) - lu(k,1671) = lu(k,1671) - lu(k,714) * lu(k,1668) - lu(k,1672) = lu(k,1672) - lu(k,715) * lu(k,1668) - lu(k,1673) = lu(k,1673) - lu(k,716) * lu(k,1668) - lu(k,1674) = lu(k,1674) - lu(k,717) * lu(k,1668) - lu(k,1675) = lu(k,1675) - lu(k,718) * lu(k,1668) - lu(k,1676) = lu(k,1676) - lu(k,719) * lu(k,1668) - lu(k,1677) = lu(k,1677) - lu(k,720) * lu(k,1668) - lu(k,1678) = lu(k,1678) - lu(k,721) * lu(k,1668) - lu(k,1679) = lu(k,1679) - lu(k,722) * lu(k,1668) - lu(k,1680) = lu(k,1680) - lu(k,723) * lu(k,1668) - lu(k,1681) = lu(k,1681) - lu(k,724) * lu(k,1668) - lu(k,1683) = lu(k,1683) - lu(k,725) * lu(k,1668) - lu(k,1685) = lu(k,1685) - lu(k,726) * lu(k,1668) - lu(k,1686) = lu(k,1686) - lu(k,727) * lu(k,1668) - lu(k,1687) = lu(k,1687) - lu(k,728) * lu(k,1668) - lu(k,1688) = lu(k,1688) - lu(k,729) * lu(k,1668) - lu(k,1689) = lu(k,1689) - lu(k,730) * lu(k,1668) - lu(k,1691) = lu(k,1691) - lu(k,731) * lu(k,1668) - lu(k,1692) = lu(k,1692) - lu(k,732) * lu(k,1668) - lu(k,1693) = lu(k,1693) - lu(k,733) * lu(k,1668) - lu(k,1694) = lu(k,1694) - lu(k,734) * lu(k,1668) - lu(k,1705) = lu(k,1705) - lu(k,713) * lu(k,1704) - lu(k,1707) = lu(k,1707) - lu(k,714) * lu(k,1704) - lu(k,1708) = lu(k,1708) - lu(k,715) * lu(k,1704) - lu(k,1709) = lu(k,1709) - lu(k,716) * lu(k,1704) - lu(k,1710) = lu(k,1710) - lu(k,717) * lu(k,1704) - lu(k,1711) = lu(k,1711) - lu(k,718) * lu(k,1704) - lu(k,1712) = lu(k,1712) - lu(k,719) * lu(k,1704) - lu(k,1713) = lu(k,1713) - lu(k,720) * lu(k,1704) - lu(k,1714) = lu(k,1714) - lu(k,721) * lu(k,1704) - lu(k,1715) = lu(k,1715) - lu(k,722) * lu(k,1704) - lu(k,1716) = lu(k,1716) - lu(k,723) * lu(k,1704) - lu(k,1717) = lu(k,1717) - lu(k,724) * lu(k,1704) - lu(k,1719) = lu(k,1719) - lu(k,725) * lu(k,1704) - lu(k,1721) = lu(k,1721) - lu(k,726) * lu(k,1704) - lu(k,1722) = lu(k,1722) - lu(k,727) * lu(k,1704) - lu(k,1723) = lu(k,1723) - lu(k,728) * lu(k,1704) - lu(k,1724) = lu(k,1724) - lu(k,729) * lu(k,1704) - lu(k,1725) = lu(k,1725) - lu(k,730) * lu(k,1704) - lu(k,1727) = lu(k,1727) - lu(k,731) * lu(k,1704) - lu(k,1728) = lu(k,1728) - lu(k,732) * lu(k,1704) - lu(k,1729) = lu(k,1729) - lu(k,733) * lu(k,1704) - lu(k,1730) = lu(k,1730) - lu(k,734) * lu(k,1704) - lu(k,1747) = lu(k,1747) - lu(k,713) * lu(k,1746) - lu(k,1749) = lu(k,1749) - lu(k,714) * lu(k,1746) - lu(k,1750) = lu(k,1750) - lu(k,715) * lu(k,1746) - lu(k,1751) = lu(k,1751) - lu(k,716) * lu(k,1746) - lu(k,1752) = lu(k,1752) - lu(k,717) * lu(k,1746) - lu(k,1753) = lu(k,1753) - lu(k,718) * lu(k,1746) - lu(k,1754) = lu(k,1754) - lu(k,719) * lu(k,1746) - lu(k,1755) = lu(k,1755) - lu(k,720) * lu(k,1746) - lu(k,1756) = lu(k,1756) - lu(k,721) * lu(k,1746) - lu(k,1757) = lu(k,1757) - lu(k,722) * lu(k,1746) - lu(k,1758) = lu(k,1758) - lu(k,723) * lu(k,1746) - lu(k,1759) = lu(k,1759) - lu(k,724) * lu(k,1746) - lu(k,1761) = lu(k,1761) - lu(k,725) * lu(k,1746) - lu(k,1763) = lu(k,1763) - lu(k,726) * lu(k,1746) - lu(k,1764) = lu(k,1764) - lu(k,727) * lu(k,1746) - lu(k,1765) = lu(k,1765) - lu(k,728) * lu(k,1746) - lu(k,1766) = lu(k,1766) - lu(k,729) * lu(k,1746) - lu(k,1767) = lu(k,1767) - lu(k,730) * lu(k,1746) - lu(k,1769) = lu(k,1769) - lu(k,731) * lu(k,1746) - lu(k,1770) = lu(k,1770) - lu(k,732) * lu(k,1746) - lu(k,1771) = lu(k,1771) - lu(k,733) * lu(k,1746) - lu(k,1772) = lu(k,1772) - lu(k,734) * lu(k,1746) - lu(k,1800) = lu(k,1800) - lu(k,713) * lu(k,1799) - lu(k,1802) = lu(k,1802) - lu(k,714) * lu(k,1799) - lu(k,1803) = lu(k,1803) - lu(k,715) * lu(k,1799) - lu(k,1804) = lu(k,1804) - lu(k,716) * lu(k,1799) - lu(k,1805) = lu(k,1805) - lu(k,717) * lu(k,1799) - lu(k,1806) = lu(k,1806) - lu(k,718) * lu(k,1799) - lu(k,1807) = lu(k,1807) - lu(k,719) * lu(k,1799) - lu(k,1808) = lu(k,1808) - lu(k,720) * lu(k,1799) - lu(k,1809) = lu(k,1809) - lu(k,721) * lu(k,1799) - lu(k,1810) = lu(k,1810) - lu(k,722) * lu(k,1799) - lu(k,1811) = lu(k,1811) - lu(k,723) * lu(k,1799) - lu(k,1812) = lu(k,1812) - lu(k,724) * lu(k,1799) - lu(k,1814) = lu(k,1814) - lu(k,725) * lu(k,1799) - lu(k,1816) = lu(k,1816) - lu(k,726) * lu(k,1799) - lu(k,1817) = lu(k,1817) - lu(k,727) * lu(k,1799) - lu(k,1818) = lu(k,1818) - lu(k,728) * lu(k,1799) - lu(k,1819) = lu(k,1819) - lu(k,729) * lu(k,1799) - lu(k,1820) = lu(k,1820) - lu(k,730) * lu(k,1799) - lu(k,1822) = lu(k,1822) - lu(k,731) * lu(k,1799) - lu(k,1823) = lu(k,1823) - lu(k,732) * lu(k,1799) - lu(k,1824) = lu(k,1824) - lu(k,733) * lu(k,1799) - lu(k,1825) = lu(k,1825) - lu(k,734) * lu(k,1799) - end do + real(r8), intent(inout) :: lu(:) + lu(670) = 1._r8 / lu(670) + lu(671) = lu(671) * lu(670) + lu(672) = lu(672) * lu(670) + lu(673) = lu(673) * lu(670) + lu(674) = lu(674) * lu(670) + lu(675) = lu(675) * lu(670) + lu(676) = lu(676) * lu(670) + lu(677) = lu(677) * lu(670) + lu(678) = lu(678) * lu(670) + lu(679) = lu(679) * lu(670) + lu(680) = lu(680) * lu(670) + lu(681) = lu(681) * lu(670) + lu(682) = lu(682) * lu(670) + lu(683) = lu(683) * lu(670) + lu(684) = lu(684) * lu(670) + lu(685) = lu(685) * lu(670) + lu(686) = lu(686) * lu(670) + lu(687) = lu(687) * lu(670) + lu(688) = lu(688) * lu(670) + lu(689) = lu(689) * lu(670) + lu(690) = lu(690) * lu(670) + lu(711) = lu(711) - lu(671) * lu(710) + lu(713) = lu(713) - lu(672) * lu(710) + lu(714) = lu(714) - lu(673) * lu(710) + lu(715) = lu(715) - lu(674) * lu(710) + lu(716) = lu(716) - lu(675) * lu(710) + lu(717) = lu(717) - lu(676) * lu(710) + lu(718) = lu(718) - lu(677) * lu(710) + lu(719) = lu(719) - lu(678) * lu(710) + lu(720) = lu(720) - lu(679) * lu(710) + lu(721) = lu(721) - lu(680) * lu(710) + lu(722) = lu(722) - lu(681) * lu(710) + lu(723) = lu(723) - lu(682) * lu(710) + lu(724) = lu(724) - lu(683) * lu(710) + lu(725) = lu(725) - lu(684) * lu(710) + lu(726) = lu(726) - lu(685) * lu(710) + lu(727) = lu(727) - lu(686) * lu(710) + lu(728) = lu(728) - lu(687) * lu(710) + lu(729) = lu(729) - lu(688) * lu(710) + lu(730) = lu(730) - lu(689) * lu(710) + lu(731) = lu(731) - lu(690) * lu(710) + lu(814) = lu(814) - lu(671) * lu(813) + lu(819) = lu(819) - lu(672) * lu(813) + lu(820) = lu(820) - lu(673) * lu(813) + lu(821) = lu(821) - lu(674) * lu(813) + lu(822) = lu(822) - lu(675) * lu(813) + lu(823) = lu(823) - lu(676) * lu(813) + lu(824) = lu(824) - lu(677) * lu(813) + lu(825) = lu(825) - lu(678) * lu(813) + lu(826) = lu(826) - lu(679) * lu(813) + lu(827) = lu(827) - lu(680) * lu(813) + lu(828) = lu(828) - lu(681) * lu(813) + lu(829) = lu(829) - lu(682) * lu(813) + lu(831) = lu(831) - lu(683) * lu(813) + lu(833) = lu(833) - lu(684) * lu(813) + lu(834) = lu(834) - lu(685) * lu(813) + lu(835) = lu(835) - lu(686) * lu(813) + lu(836) = lu(836) - lu(687) * lu(813) + lu(837) = lu(837) - lu(688) * lu(813) + lu(838) = lu(838) - lu(689) * lu(813) + lu(839) = lu(839) - lu(690) * lu(813) + lu(856) = lu(856) - lu(671) * lu(855) + lu(861) = lu(861) - lu(672) * lu(855) + lu(862) = lu(862) - lu(673) * lu(855) + lu(863) = lu(863) - lu(674) * lu(855) + lu(864) = lu(864) - lu(675) * lu(855) + lu(865) = lu(865) - lu(676) * lu(855) + lu(866) = lu(866) - lu(677) * lu(855) + lu(867) = lu(867) - lu(678) * lu(855) + lu(868) = lu(868) - lu(679) * lu(855) + lu(869) = lu(869) - lu(680) * lu(855) + lu(870) = lu(870) - lu(681) * lu(855) + lu(871) = lu(871) - lu(682) * lu(855) + lu(873) = lu(873) - lu(683) * lu(855) + lu(875) = lu(875) - lu(684) * lu(855) + lu(876) = lu(876) - lu(685) * lu(855) + lu(877) = lu(877) - lu(686) * lu(855) + lu(878) = lu(878) - lu(687) * lu(855) + lu(879) = lu(879) - lu(688) * lu(855) + lu(880) = lu(880) - lu(689) * lu(855) + lu(881) = lu(881) - lu(690) * lu(855) + lu(900) = lu(900) - lu(671) * lu(899) + lu(905) = lu(905) - lu(672) * lu(899) + lu(906) = lu(906) - lu(673) * lu(899) + lu(907) = lu(907) - lu(674) * lu(899) + lu(908) = lu(908) - lu(675) * lu(899) + lu(909) = lu(909) - lu(676) * lu(899) + lu(910) = lu(910) - lu(677) * lu(899) + lu(911) = lu(911) - lu(678) * lu(899) + lu(912) = lu(912) - lu(679) * lu(899) + lu(913) = lu(913) - lu(680) * lu(899) + lu(914) = lu(914) - lu(681) * lu(899) + lu(915) = lu(915) - lu(682) * lu(899) + lu(917) = lu(917) - lu(683) * lu(899) + lu(919) = lu(919) - lu(684) * lu(899) + lu(920) = lu(920) - lu(685) * lu(899) + lu(921) = lu(921) - lu(686) * lu(899) + lu(922) = lu(922) - lu(687) * lu(899) + lu(923) = lu(923) - lu(688) * lu(899) + lu(924) = lu(924) - lu(689) * lu(899) + lu(925) = lu(925) - lu(690) * lu(899) + lu(935) = lu(935) - lu(671) * lu(934) + lu(940) = lu(940) - lu(672) * lu(934) + lu(941) = lu(941) - lu(673) * lu(934) + lu(942) = lu(942) - lu(674) * lu(934) + lu(943) = lu(943) - lu(675) * lu(934) + lu(944) = lu(944) - lu(676) * lu(934) + lu(945) = lu(945) - lu(677) * lu(934) + lu(946) = lu(946) - lu(678) * lu(934) + lu(947) = lu(947) - lu(679) * lu(934) + lu(948) = lu(948) - lu(680) * lu(934) + lu(949) = lu(949) - lu(681) * lu(934) + lu(950) = lu(950) - lu(682) * lu(934) + lu(952) = lu(952) - lu(683) * lu(934) + lu(954) = lu(954) - lu(684) * lu(934) + lu(955) = lu(955) - lu(685) * lu(934) + lu(956) = lu(956) - lu(686) * lu(934) + lu(957) = lu(957) - lu(687) * lu(934) + lu(958) = lu(958) - lu(688) * lu(934) + lu(959) = lu(959) - lu(689) * lu(934) + lu(960) = lu(960) - lu(690) * lu(934) + lu(976) = lu(976) - lu(671) * lu(975) + lu(981) = lu(981) - lu(672) * lu(975) + lu(982) = lu(982) - lu(673) * lu(975) + lu(983) = lu(983) - lu(674) * lu(975) + lu(984) = lu(984) - lu(675) * lu(975) + lu(985) = lu(985) - lu(676) * lu(975) + lu(986) = lu(986) - lu(677) * lu(975) + lu(987) = lu(987) - lu(678) * lu(975) + lu(988) = lu(988) - lu(679) * lu(975) + lu(989) = lu(989) - lu(680) * lu(975) + lu(990) = lu(990) - lu(681) * lu(975) + lu(991) = lu(991) - lu(682) * lu(975) + lu(993) = lu(993) - lu(683) * lu(975) + lu(995) = lu(995) - lu(684) * lu(975) + lu(996) = lu(996) - lu(685) * lu(975) + lu(997) = lu(997) - lu(686) * lu(975) + lu(998) = lu(998) - lu(687) * lu(975) + lu(999) = lu(999) - lu(688) * lu(975) + lu(1000) = lu(1000) - lu(689) * lu(975) + lu(1001) = lu(1001) - lu(690) * lu(975) + lu(1018) = lu(1018) - lu(671) * lu(1017) + lu(1023) = lu(1023) - lu(672) * lu(1017) + lu(1024) = lu(1024) - lu(673) * lu(1017) + lu(1025) = lu(1025) - lu(674) * lu(1017) + lu(1026) = lu(1026) - lu(675) * lu(1017) + lu(1027) = lu(1027) - lu(676) * lu(1017) + lu(1028) = lu(1028) - lu(677) * lu(1017) + lu(1029) = lu(1029) - lu(678) * lu(1017) + lu(1030) = lu(1030) - lu(679) * lu(1017) + lu(1031) = lu(1031) - lu(680) * lu(1017) + lu(1032) = lu(1032) - lu(681) * lu(1017) + lu(1033) = lu(1033) - lu(682) * lu(1017) + lu(1035) = lu(1035) - lu(683) * lu(1017) + lu(1037) = lu(1037) - lu(684) * lu(1017) + lu(1038) = lu(1038) - lu(685) * lu(1017) + lu(1039) = lu(1039) - lu(686) * lu(1017) + lu(1040) = lu(1040) - lu(687) * lu(1017) + lu(1041) = lu(1041) - lu(688) * lu(1017) + lu(1042) = lu(1042) - lu(689) * lu(1017) + lu(1043) = lu(1043) - lu(690) * lu(1017) + lu(1062) = lu(1062) - lu(671) * lu(1061) + lu(1067) = lu(1067) - lu(672) * lu(1061) + lu(1068) = lu(1068) - lu(673) * lu(1061) + lu(1069) = lu(1069) - lu(674) * lu(1061) + lu(1070) = lu(1070) - lu(675) * lu(1061) + lu(1071) = lu(1071) - lu(676) * lu(1061) + lu(1072) = lu(1072) - lu(677) * lu(1061) + lu(1073) = lu(1073) - lu(678) * lu(1061) + lu(1074) = lu(1074) - lu(679) * lu(1061) + lu(1075) = lu(1075) - lu(680) * lu(1061) + lu(1076) = lu(1076) - lu(681) * lu(1061) + lu(1077) = lu(1077) - lu(682) * lu(1061) + lu(1079) = lu(1079) - lu(683) * lu(1061) + lu(1081) = lu(1081) - lu(684) * lu(1061) + lu(1082) = lu(1082) - lu(685) * lu(1061) + lu(1083) = lu(1083) - lu(686) * lu(1061) + lu(1084) = lu(1084) - lu(687) * lu(1061) + lu(1085) = lu(1085) - lu(688) * lu(1061) + lu(1086) = lu(1086) - lu(689) * lu(1061) + lu(1087) = lu(1087) - lu(690) * lu(1061) + lu(1104) = lu(1104) - lu(671) * lu(1103) + lu(1109) = lu(1109) - lu(672) * lu(1103) + lu(1110) = lu(1110) - lu(673) * lu(1103) + lu(1111) = lu(1111) - lu(674) * lu(1103) + lu(1112) = lu(1112) - lu(675) * lu(1103) + lu(1113) = lu(1113) - lu(676) * lu(1103) + lu(1114) = lu(1114) - lu(677) * lu(1103) + lu(1115) = lu(1115) - lu(678) * lu(1103) + lu(1116) = lu(1116) - lu(679) * lu(1103) + lu(1117) = lu(1117) - lu(680) * lu(1103) + lu(1118) = lu(1118) - lu(681) * lu(1103) + lu(1119) = lu(1119) - lu(682) * lu(1103) + lu(1121) = lu(1121) - lu(683) * lu(1103) + lu(1123) = lu(1123) - lu(684) * lu(1103) + lu(1124) = lu(1124) - lu(685) * lu(1103) + lu(1125) = lu(1125) - lu(686) * lu(1103) + lu(1126) = lu(1126) - lu(687) * lu(1103) + lu(1127) = lu(1127) - lu(688) * lu(1103) + lu(1128) = lu(1128) - lu(689) * lu(1103) + lu(1129) = lu(1129) - lu(690) * lu(1103) + lu(1147) = lu(1147) - lu(671) * lu(1146) + lu(1152) = lu(1152) - lu(672) * lu(1146) + lu(1153) = lu(1153) - lu(673) * lu(1146) + lu(1154) = lu(1154) - lu(674) * lu(1146) + lu(1155) = lu(1155) - lu(675) * lu(1146) + lu(1156) = lu(1156) - lu(676) * lu(1146) + lu(1157) = lu(1157) - lu(677) * lu(1146) + lu(1158) = lu(1158) - lu(678) * lu(1146) + lu(1159) = lu(1159) - lu(679) * lu(1146) + lu(1160) = lu(1160) - lu(680) * lu(1146) + lu(1161) = lu(1161) - lu(681) * lu(1146) + lu(1162) = lu(1162) - lu(682) * lu(1146) + lu(1164) = lu(1164) - lu(683) * lu(1146) + lu(1166) = lu(1166) - lu(684) * lu(1146) + lu(1167) = lu(1167) - lu(685) * lu(1146) + lu(1168) = lu(1168) - lu(686) * lu(1146) + lu(1169) = lu(1169) - lu(687) * lu(1146) + lu(1170) = lu(1170) - lu(688) * lu(1146) + lu(1171) = lu(1171) - lu(689) * lu(1146) + lu(1172) = lu(1172) - lu(690) * lu(1146) + lu(1189) = lu(1189) - lu(671) * lu(1188) + lu(1194) = lu(1194) - lu(672) * lu(1188) + lu(1195) = lu(1195) - lu(673) * lu(1188) + lu(1196) = lu(1196) - lu(674) * lu(1188) + lu(1197) = lu(1197) - lu(675) * lu(1188) + lu(1198) = lu(1198) - lu(676) * lu(1188) + lu(1199) = lu(1199) - lu(677) * lu(1188) + lu(1200) = lu(1200) - lu(678) * lu(1188) + lu(1201) = lu(1201) - lu(679) * lu(1188) + lu(1202) = lu(1202) - lu(680) * lu(1188) + lu(1203) = lu(1203) - lu(681) * lu(1188) + lu(1204) = lu(1204) - lu(682) * lu(1188) + lu(1206) = lu(1206) - lu(683) * lu(1188) + lu(1208) = lu(1208) - lu(684) * lu(1188) + lu(1209) = lu(1209) - lu(685) * lu(1188) + lu(1210) = lu(1210) - lu(686) * lu(1188) + lu(1211) = lu(1211) - lu(687) * lu(1188) + lu(1212) = lu(1212) - lu(688) * lu(1188) + lu(1213) = lu(1213) - lu(689) * lu(1188) + lu(1214) = lu(1214) - lu(690) * lu(1188) + lu(1224) = lu(1224) - lu(671) * lu(1223) + lu(1229) = lu(1229) - lu(672) * lu(1223) + lu(1230) = lu(1230) - lu(673) * lu(1223) + lu(1231) = lu(1231) - lu(674) * lu(1223) + lu(1232) = lu(1232) - lu(675) * lu(1223) + lu(1233) = lu(1233) - lu(676) * lu(1223) + lu(1234) = lu(1234) - lu(677) * lu(1223) + lu(1235) = lu(1235) - lu(678) * lu(1223) + lu(1236) = lu(1236) - lu(679) * lu(1223) + lu(1237) = lu(1237) - lu(680) * lu(1223) + lu(1238) = lu(1238) - lu(681) * lu(1223) + lu(1239) = lu(1239) - lu(682) * lu(1223) + lu(1241) = lu(1241) - lu(683) * lu(1223) + lu(1243) = lu(1243) - lu(684) * lu(1223) + lu(1244) = lu(1244) - lu(685) * lu(1223) + lu(1245) = lu(1245) - lu(686) * lu(1223) + lu(1246) = lu(1246) - lu(687) * lu(1223) + lu(1247) = lu(1247) - lu(688) * lu(1223) + lu(1248) = lu(1248) - lu(689) * lu(1223) + lu(1249) = lu(1249) - lu(690) * lu(1223) + lu(1268) = lu(1268) - lu(671) * lu(1267) + lu(1273) = lu(1273) - lu(672) * lu(1267) + lu(1274) = lu(1274) - lu(673) * lu(1267) + lu(1275) = lu(1275) - lu(674) * lu(1267) + lu(1276) = lu(1276) - lu(675) * lu(1267) + lu(1277) = lu(1277) - lu(676) * lu(1267) + lu(1278) = lu(1278) - lu(677) * lu(1267) + lu(1279) = lu(1279) - lu(678) * lu(1267) + lu(1280) = lu(1280) - lu(679) * lu(1267) + lu(1281) = lu(1281) - lu(680) * lu(1267) + lu(1282) = lu(1282) - lu(681) * lu(1267) + lu(1283) = lu(1283) - lu(682) * lu(1267) + lu(1285) = lu(1285) - lu(683) * lu(1267) + lu(1287) = lu(1287) - lu(684) * lu(1267) + lu(1288) = lu(1288) - lu(685) * lu(1267) + lu(1289) = lu(1289) - lu(686) * lu(1267) + lu(1290) = lu(1290) - lu(687) * lu(1267) + lu(1291) = lu(1291) - lu(688) * lu(1267) + lu(1292) = lu(1292) - lu(689) * lu(1267) + lu(1293) = lu(1293) - lu(690) * lu(1267) + lu(1309) = lu(1309) - lu(671) * lu(1308) + lu(1314) = lu(1314) - lu(672) * lu(1308) + lu(1315) = lu(1315) - lu(673) * lu(1308) + lu(1316) = lu(1316) - lu(674) * lu(1308) + lu(1317) = lu(1317) - lu(675) * lu(1308) + lu(1318) = lu(1318) - lu(676) * lu(1308) + lu(1319) = lu(1319) - lu(677) * lu(1308) + lu(1320) = lu(1320) - lu(678) * lu(1308) + lu(1321) = lu(1321) - lu(679) * lu(1308) + lu(1322) = lu(1322) - lu(680) * lu(1308) + lu(1323) = lu(1323) - lu(681) * lu(1308) + lu(1324) = lu(1324) - lu(682) * lu(1308) + lu(1326) = lu(1326) - lu(683) * lu(1308) + lu(1328) = lu(1328) - lu(684) * lu(1308) + lu(1329) = lu(1329) - lu(685) * lu(1308) + lu(1330) = lu(1330) - lu(686) * lu(1308) + lu(1331) = lu(1331) - lu(687) * lu(1308) + lu(1332) = lu(1332) - lu(688) * lu(1308) + lu(1333) = lu(1333) - lu(689) * lu(1308) + lu(1334) = lu(1334) - lu(690) * lu(1308) + lu(1351) = lu(1351) - lu(671) * lu(1350) + lu(1356) = lu(1356) - lu(672) * lu(1350) + lu(1357) = lu(1357) - lu(673) * lu(1350) + lu(1358) = lu(1358) - lu(674) * lu(1350) + lu(1359) = lu(1359) - lu(675) * lu(1350) + lu(1360) = lu(1360) - lu(676) * lu(1350) + lu(1361) = lu(1361) - lu(677) * lu(1350) + lu(1362) = lu(1362) - lu(678) * lu(1350) + lu(1363) = lu(1363) - lu(679) * lu(1350) + lu(1364) = lu(1364) - lu(680) * lu(1350) + lu(1365) = lu(1365) - lu(681) * lu(1350) + lu(1366) = lu(1366) - lu(682) * lu(1350) + lu(1368) = lu(1368) - lu(683) * lu(1350) + lu(1370) = lu(1370) - lu(684) * lu(1350) + lu(1371) = lu(1371) - lu(685) * lu(1350) + lu(1372) = lu(1372) - lu(686) * lu(1350) + lu(1373) = lu(1373) - lu(687) * lu(1350) + lu(1374) = lu(1374) - lu(688) * lu(1350) + lu(1375) = lu(1375) - lu(689) * lu(1350) + lu(1376) = lu(1376) - lu(690) * lu(1350) + lu(1395) = lu(1395) - lu(671) * lu(1394) + lu(1398) = lu(1398) - lu(672) * lu(1394) + lu(1399) = lu(1399) - lu(673) * lu(1394) + lu(1400) = lu(1400) - lu(674) * lu(1394) + lu(1401) = lu(1401) - lu(675) * lu(1394) + lu(1402) = lu(1402) - lu(676) * lu(1394) + lu(1403) = lu(1403) - lu(677) * lu(1394) + lu(1404) = lu(1404) - lu(678) * lu(1394) + lu(1405) = lu(1405) - lu(679) * lu(1394) + lu(1406) = lu(1406) - lu(680) * lu(1394) + lu(1407) = lu(1407) - lu(681) * lu(1394) + lu(1408) = lu(1408) - lu(682) * lu(1394) + lu(1410) = lu(1410) - lu(683) * lu(1394) + lu(1412) = lu(1412) - lu(684) * lu(1394) + lu(1413) = lu(1413) - lu(685) * lu(1394) + lu(1414) = lu(1414) - lu(686) * lu(1394) + lu(1415) = lu(1415) - lu(687) * lu(1394) + lu(1416) = lu(1416) - lu(688) * lu(1394) + lu(1417) = lu(1417) - lu(689) * lu(1394) + lu(1418) = lu(1418) - lu(690) * lu(1394) + lu(1435) = lu(1435) - lu(671) * lu(1434) + lu(1440) = lu(1440) - lu(672) * lu(1434) + lu(1441) = lu(1441) - lu(673) * lu(1434) + lu(1442) = lu(1442) - lu(674) * lu(1434) + lu(1443) = lu(1443) - lu(675) * lu(1434) + lu(1444) = lu(1444) - lu(676) * lu(1434) + lu(1445) = lu(1445) - lu(677) * lu(1434) + lu(1446) = lu(1446) - lu(678) * lu(1434) + lu(1447) = lu(1447) - lu(679) * lu(1434) + lu(1448) = lu(1448) - lu(680) * lu(1434) + lu(1449) = lu(1449) - lu(681) * lu(1434) + lu(1450) = lu(1450) - lu(682) * lu(1434) + lu(1452) = lu(1452) - lu(683) * lu(1434) + lu(1454) = lu(1454) - lu(684) * lu(1434) + lu(1455) = lu(1455) - lu(685) * lu(1434) + lu(1456) = lu(1456) - lu(686) * lu(1434) + lu(1457) = lu(1457) - lu(687) * lu(1434) + lu(1458) = lu(1458) - lu(688) * lu(1434) + lu(1459) = lu(1459) - lu(689) * lu(1434) + lu(1460) = lu(1460) - lu(690) * lu(1434) + lu(1490) = lu(1490) - lu(671) * lu(1489) + lu(1495) = lu(1495) - lu(672) * lu(1489) + lu(1496) = lu(1496) - lu(673) * lu(1489) + lu(1497) = lu(1497) - lu(674) * lu(1489) + lu(1498) = lu(1498) - lu(675) * lu(1489) + lu(1499) = lu(1499) - lu(676) * lu(1489) + lu(1500) = lu(1500) - lu(677) * lu(1489) + lu(1501) = lu(1501) - lu(678) * lu(1489) + lu(1502) = lu(1502) - lu(679) * lu(1489) + lu(1503) = lu(1503) - lu(680) * lu(1489) + lu(1504) = lu(1504) - lu(681) * lu(1489) + lu(1505) = lu(1505) - lu(682) * lu(1489) + lu(1507) = lu(1507) - lu(683) * lu(1489) + lu(1509) = lu(1509) - lu(684) * lu(1489) + lu(1510) = lu(1510) - lu(685) * lu(1489) + lu(1511) = lu(1511) - lu(686) * lu(1489) + lu(1512) = lu(1512) - lu(687) * lu(1489) + lu(1513) = lu(1513) - lu(688) * lu(1489) + lu(1514) = lu(1514) - lu(689) * lu(1489) + lu(1515) = lu(1515) - lu(690) * lu(1489) + lu(1522) = lu(1522) - lu(671) * lu(1521) + lu(1527) = lu(1527) - lu(672) * lu(1521) + lu(1528) = lu(1528) - lu(673) * lu(1521) + lu(1529) = lu(1529) - lu(674) * lu(1521) + lu(1530) = lu(1530) - lu(675) * lu(1521) + lu(1531) = lu(1531) - lu(676) * lu(1521) + lu(1532) = lu(1532) - lu(677) * lu(1521) + lu(1533) = lu(1533) - lu(678) * lu(1521) + lu(1534) = lu(1534) - lu(679) * lu(1521) + lu(1535) = lu(1535) - lu(680) * lu(1521) + lu(1536) = lu(1536) - lu(681) * lu(1521) + lu(1537) = lu(1537) - lu(682) * lu(1521) + lu(1539) = lu(1539) - lu(683) * lu(1521) + lu(1541) = lu(1541) - lu(684) * lu(1521) + lu(1542) = lu(1542) - lu(685) * lu(1521) + lu(1543) = lu(1543) - lu(686) * lu(1521) + lu(1544) = lu(1544) - lu(687) * lu(1521) + lu(1545) = lu(1545) - lu(688) * lu(1521) + lu(1546) = lu(1546) - lu(689) * lu(1521) + lu(1547) = lu(1547) - lu(690) * lu(1521) + lu(1557) = lu(1557) - lu(671) * lu(1556) + lu(1562) = lu(1562) - lu(672) * lu(1556) + lu(1563) = lu(1563) - lu(673) * lu(1556) + lu(1564) = lu(1564) - lu(674) * lu(1556) + lu(1565) = lu(1565) - lu(675) * lu(1556) + lu(1566) = lu(1566) - lu(676) * lu(1556) + lu(1567) = lu(1567) - lu(677) * lu(1556) + lu(1568) = lu(1568) - lu(678) * lu(1556) + lu(1569) = lu(1569) - lu(679) * lu(1556) + lu(1570) = lu(1570) - lu(680) * lu(1556) + lu(1571) = lu(1571) - lu(681) * lu(1556) + lu(1572) = lu(1572) - lu(682) * lu(1556) + lu(1574) = lu(1574) - lu(683) * lu(1556) + lu(1576) = lu(1576) - lu(684) * lu(1556) + lu(1577) = lu(1577) - lu(685) * lu(1556) + lu(1578) = lu(1578) - lu(686) * lu(1556) + lu(1579) = lu(1579) - lu(687) * lu(1556) + lu(1580) = lu(1580) - lu(688) * lu(1556) + lu(1581) = lu(1581) - lu(689) * lu(1556) + lu(1582) = lu(1582) - lu(690) * lu(1556) + lu(1595) = lu(1595) - lu(671) * lu(1594) + lu(1600) = lu(1600) - lu(672) * lu(1594) + lu(1601) = lu(1601) - lu(673) * lu(1594) + lu(1602) = lu(1602) - lu(674) * lu(1594) + lu(1603) = lu(1603) - lu(675) * lu(1594) + lu(1604) = lu(1604) - lu(676) * lu(1594) + lu(1605) = lu(1605) - lu(677) * lu(1594) + lu(1606) = lu(1606) - lu(678) * lu(1594) + lu(1607) = lu(1607) - lu(679) * lu(1594) + lu(1608) = lu(1608) - lu(680) * lu(1594) + lu(1609) = lu(1609) - lu(681) * lu(1594) + lu(1610) = lu(1610) - lu(682) * lu(1594) + lu(1612) = lu(1612) - lu(683) * lu(1594) + lu(1614) = lu(1614) - lu(684) * lu(1594) + lu(1615) = lu(1615) - lu(685) * lu(1594) + lu(1616) = lu(1616) - lu(686) * lu(1594) + lu(1617) = lu(1617) - lu(687) * lu(1594) + lu(1618) = lu(1618) - lu(688) * lu(1594) + lu(1619) = lu(1619) - lu(689) * lu(1594) + lu(1620) = lu(1620) - lu(690) * lu(1594) + lu(1634) = lu(1634) - lu(671) * lu(1633) + lu(1639) = lu(1639) - lu(672) * lu(1633) + lu(1640) = lu(1640) - lu(673) * lu(1633) + lu(1641) = lu(1641) - lu(674) * lu(1633) + lu(1642) = lu(1642) - lu(675) * lu(1633) + lu(1643) = lu(1643) - lu(676) * lu(1633) + lu(1644) = lu(1644) - lu(677) * lu(1633) + lu(1645) = lu(1645) - lu(678) * lu(1633) + lu(1646) = lu(1646) - lu(679) * lu(1633) + lu(1647) = lu(1647) - lu(680) * lu(1633) + lu(1648) = lu(1648) - lu(681) * lu(1633) + lu(1649) = lu(1649) - lu(682) * lu(1633) + lu(1651) = lu(1651) - lu(683) * lu(1633) + lu(1653) = lu(1653) - lu(684) * lu(1633) + lu(1654) = lu(1654) - lu(685) * lu(1633) + lu(1655) = lu(1655) - lu(686) * lu(1633) + lu(1656) = lu(1656) - lu(687) * lu(1633) + lu(1657) = lu(1657) - lu(688) * lu(1633) + lu(1658) = lu(1658) - lu(689) * lu(1633) + lu(1659) = lu(1659) - lu(690) * lu(1633) + lu(1669) = lu(1669) - lu(671) * lu(1668) + lu(1673) = lu(1673) - lu(672) * lu(1668) + lu(1674) = lu(1674) - lu(673) * lu(1668) + lu(1675) = lu(1675) - lu(674) * lu(1668) + lu(1676) = lu(1676) - lu(675) * lu(1668) + lu(1677) = lu(1677) - lu(676) * lu(1668) + lu(1678) = lu(1678) - lu(677) * lu(1668) + lu(1679) = lu(1679) - lu(678) * lu(1668) + lu(1680) = lu(1680) - lu(679) * lu(1668) + lu(1681) = lu(1681) - lu(680) * lu(1668) + lu(1682) = lu(1682) - lu(681) * lu(1668) + lu(1683) = lu(1683) - lu(682) * lu(1668) + lu(1685) = lu(1685) - lu(683) * lu(1668) + lu(1687) = lu(1687) - lu(684) * lu(1668) + lu(1688) = lu(1688) - lu(685) * lu(1668) + lu(1689) = lu(1689) - lu(686) * lu(1668) + lu(1690) = lu(1690) - lu(687) * lu(1668) + lu(1691) = lu(1691) - lu(688) * lu(1668) + lu(1692) = lu(1692) - lu(689) * lu(1668) + lu(1693) = lu(1693) - lu(690) * lu(1668) + lu(1720) = lu(1720) - lu(671) * lu(1719) + lu(1725) = lu(1725) - lu(672) * lu(1719) + lu(1726) = lu(1726) - lu(673) * lu(1719) + lu(1727) = lu(1727) - lu(674) * lu(1719) + lu(1728) = lu(1728) - lu(675) * lu(1719) + lu(1729) = lu(1729) - lu(676) * lu(1719) + lu(1730) = lu(1730) - lu(677) * lu(1719) + lu(1731) = lu(1731) - lu(678) * lu(1719) + lu(1732) = lu(1732) - lu(679) * lu(1719) + lu(1733) = lu(1733) - lu(680) * lu(1719) + lu(1734) = lu(1734) - lu(681) * lu(1719) + lu(1735) = lu(1735) - lu(682) * lu(1719) + lu(1737) = lu(1737) - lu(683) * lu(1719) + lu(1739) = lu(1739) - lu(684) * lu(1719) + lu(1740) = lu(1740) - lu(685) * lu(1719) + lu(1741) = lu(1741) - lu(686) * lu(1719) + lu(1742) = lu(1742) - lu(687) * lu(1719) + lu(1743) = lu(1743) - lu(688) * lu(1719) + lu(1744) = lu(1744) - lu(689) * lu(1719) + lu(1745) = lu(1745) - lu(690) * lu(1719) + lu(711) = 1._r8 / lu(711) + lu(712) = lu(712) * lu(711) + lu(713) = lu(713) * lu(711) + lu(714) = lu(714) * lu(711) + lu(715) = lu(715) * lu(711) + lu(716) = lu(716) * lu(711) + lu(717) = lu(717) * lu(711) + lu(718) = lu(718) * lu(711) + lu(719) = lu(719) * lu(711) + lu(720) = lu(720) * lu(711) + lu(721) = lu(721) * lu(711) + lu(722) = lu(722) * lu(711) + lu(723) = lu(723) * lu(711) + lu(724) = lu(724) * lu(711) + lu(725) = lu(725) * lu(711) + lu(726) = lu(726) * lu(711) + lu(727) = lu(727) * lu(711) + lu(728) = lu(728) * lu(711) + lu(729) = lu(729) * lu(711) + lu(730) = lu(730) * lu(711) + lu(731) = lu(731) * lu(711) + lu(741) = lu(741) - lu(712) * lu(738) + lu(743) = lu(743) - lu(713) * lu(738) + lu(744) = lu(744) - lu(714) * lu(738) + lu(745) = lu(745) - lu(715) * lu(738) + lu(746) = lu(746) - lu(716) * lu(738) + lu(747) = lu(747) - lu(717) * lu(738) + lu(748) = lu(748) - lu(718) * lu(738) + lu(749) = lu(749) - lu(719) * lu(738) + lu(750) = lu(750) - lu(720) * lu(738) + lu(751) = lu(751) - lu(721) * lu(738) + lu(752) = lu(752) - lu(722) * lu(738) + lu(753) = lu(753) - lu(723) * lu(738) + lu(755) = lu(755) - lu(724) * lu(738) + lu(757) = lu(757) - lu(725) * lu(738) + lu(758) = lu(758) - lu(726) * lu(738) + lu(759) = lu(759) - lu(727) * lu(738) + lu(760) = lu(760) - lu(728) * lu(738) + lu(761) = lu(761) - lu(729) * lu(738) + lu(762) = lu(762) - lu(730) * lu(738) + lu(763) = lu(763) - lu(731) * lu(738) + lu(770) = lu(770) - lu(712) * lu(768) + lu(772) = lu(772) - lu(713) * lu(768) + lu(773) = lu(773) - lu(714) * lu(768) + lu(774) = lu(774) - lu(715) * lu(768) + lu(775) = lu(775) - lu(716) * lu(768) + lu(776) = lu(776) - lu(717) * lu(768) + lu(777) = lu(777) - lu(718) * lu(768) + lu(778) = lu(778) - lu(719) * lu(768) + lu(779) = lu(779) - lu(720) * lu(768) + lu(780) = - lu(721) * lu(768) + lu(781) = lu(781) - lu(722) * lu(768) + lu(782) = lu(782) - lu(723) * lu(768) + lu(784) = lu(784) - lu(724) * lu(768) + lu(786) = lu(786) - lu(725) * lu(768) + lu(787) = lu(787) - lu(726) * lu(768) + lu(788) = - lu(727) * lu(768) + lu(789) = lu(789) - lu(728) * lu(768) + lu(790) = lu(790) - lu(729) * lu(768) + lu(791) = lu(791) - lu(730) * lu(768) + lu(792) = lu(792) - lu(731) * lu(768) + lu(817) = lu(817) - lu(712) * lu(814) + lu(819) = lu(819) - lu(713) * lu(814) + lu(820) = lu(820) - lu(714) * lu(814) + lu(821) = lu(821) - lu(715) * lu(814) + lu(822) = lu(822) - lu(716) * lu(814) + lu(823) = lu(823) - lu(717) * lu(814) + lu(824) = lu(824) - lu(718) * lu(814) + lu(825) = lu(825) - lu(719) * lu(814) + lu(826) = lu(826) - lu(720) * lu(814) + lu(827) = lu(827) - lu(721) * lu(814) + lu(828) = lu(828) - lu(722) * lu(814) + lu(829) = lu(829) - lu(723) * lu(814) + lu(831) = lu(831) - lu(724) * lu(814) + lu(833) = lu(833) - lu(725) * lu(814) + lu(834) = lu(834) - lu(726) * lu(814) + lu(835) = lu(835) - lu(727) * lu(814) + lu(836) = lu(836) - lu(728) * lu(814) + lu(837) = lu(837) - lu(729) * lu(814) + lu(838) = lu(838) - lu(730) * lu(814) + lu(839) = lu(839) - lu(731) * lu(814) + lu(859) = lu(859) - lu(712) * lu(856) + lu(861) = lu(861) - lu(713) * lu(856) + lu(862) = lu(862) - lu(714) * lu(856) + lu(863) = lu(863) - lu(715) * lu(856) + lu(864) = lu(864) - lu(716) * lu(856) + lu(865) = lu(865) - lu(717) * lu(856) + lu(866) = lu(866) - lu(718) * lu(856) + lu(867) = lu(867) - lu(719) * lu(856) + lu(868) = lu(868) - lu(720) * lu(856) + lu(869) = lu(869) - lu(721) * lu(856) + lu(870) = lu(870) - lu(722) * lu(856) + lu(871) = lu(871) - lu(723) * lu(856) + lu(873) = lu(873) - lu(724) * lu(856) + lu(875) = lu(875) - lu(725) * lu(856) + lu(876) = lu(876) - lu(726) * lu(856) + lu(877) = lu(877) - lu(727) * lu(856) + lu(878) = lu(878) - lu(728) * lu(856) + lu(879) = lu(879) - lu(729) * lu(856) + lu(880) = lu(880) - lu(730) * lu(856) + lu(881) = lu(881) - lu(731) * lu(856) + lu(903) = lu(903) - lu(712) * lu(900) + lu(905) = lu(905) - lu(713) * lu(900) + lu(906) = lu(906) - lu(714) * lu(900) + lu(907) = lu(907) - lu(715) * lu(900) + lu(908) = lu(908) - lu(716) * lu(900) + lu(909) = lu(909) - lu(717) * lu(900) + lu(910) = lu(910) - lu(718) * lu(900) + lu(911) = lu(911) - lu(719) * lu(900) + lu(912) = lu(912) - lu(720) * lu(900) + lu(913) = lu(913) - lu(721) * lu(900) + lu(914) = lu(914) - lu(722) * lu(900) + lu(915) = lu(915) - lu(723) * lu(900) + lu(917) = lu(917) - lu(724) * lu(900) + lu(919) = lu(919) - lu(725) * lu(900) + lu(920) = lu(920) - lu(726) * lu(900) + lu(921) = lu(921) - lu(727) * lu(900) + lu(922) = lu(922) - lu(728) * lu(900) + lu(923) = lu(923) - lu(729) * lu(900) + lu(924) = lu(924) - lu(730) * lu(900) + lu(925) = lu(925) - lu(731) * lu(900) + lu(938) = lu(938) - lu(712) * lu(935) + lu(940) = lu(940) - lu(713) * lu(935) + lu(941) = lu(941) - lu(714) * lu(935) + lu(942) = lu(942) - lu(715) * lu(935) + lu(943) = lu(943) - lu(716) * lu(935) + lu(944) = lu(944) - lu(717) * lu(935) + lu(945) = lu(945) - lu(718) * lu(935) + lu(946) = lu(946) - lu(719) * lu(935) + lu(947) = lu(947) - lu(720) * lu(935) + lu(948) = lu(948) - lu(721) * lu(935) + lu(949) = lu(949) - lu(722) * lu(935) + lu(950) = lu(950) - lu(723) * lu(935) + lu(952) = lu(952) - lu(724) * lu(935) + lu(954) = lu(954) - lu(725) * lu(935) + lu(955) = lu(955) - lu(726) * lu(935) + lu(956) = lu(956) - lu(727) * lu(935) + lu(957) = lu(957) - lu(728) * lu(935) + lu(958) = lu(958) - lu(729) * lu(935) + lu(959) = lu(959) - lu(730) * lu(935) + lu(960) = lu(960) - lu(731) * lu(935) + lu(979) = lu(979) - lu(712) * lu(976) + lu(981) = lu(981) - lu(713) * lu(976) + lu(982) = lu(982) - lu(714) * lu(976) + lu(983) = lu(983) - lu(715) * lu(976) + lu(984) = lu(984) - lu(716) * lu(976) + lu(985) = lu(985) - lu(717) * lu(976) + lu(986) = lu(986) - lu(718) * lu(976) + lu(987) = lu(987) - lu(719) * lu(976) + lu(988) = lu(988) - lu(720) * lu(976) + lu(989) = lu(989) - lu(721) * lu(976) + lu(990) = lu(990) - lu(722) * lu(976) + lu(991) = lu(991) - lu(723) * lu(976) + lu(993) = lu(993) - lu(724) * lu(976) + lu(995) = lu(995) - lu(725) * lu(976) + lu(996) = lu(996) - lu(726) * lu(976) + lu(997) = lu(997) - lu(727) * lu(976) + lu(998) = lu(998) - lu(728) * lu(976) + lu(999) = lu(999) - lu(729) * lu(976) + lu(1000) = lu(1000) - lu(730) * lu(976) + lu(1001) = lu(1001) - lu(731) * lu(976) + lu(1021) = lu(1021) - lu(712) * lu(1018) + lu(1023) = lu(1023) - lu(713) * lu(1018) + lu(1024) = lu(1024) - lu(714) * lu(1018) + lu(1025) = lu(1025) - lu(715) * lu(1018) + lu(1026) = lu(1026) - lu(716) * lu(1018) + lu(1027) = lu(1027) - lu(717) * lu(1018) + lu(1028) = lu(1028) - lu(718) * lu(1018) + lu(1029) = lu(1029) - lu(719) * lu(1018) + lu(1030) = lu(1030) - lu(720) * lu(1018) + lu(1031) = lu(1031) - lu(721) * lu(1018) + lu(1032) = lu(1032) - lu(722) * lu(1018) + lu(1033) = lu(1033) - lu(723) * lu(1018) + lu(1035) = lu(1035) - lu(724) * lu(1018) + lu(1037) = lu(1037) - lu(725) * lu(1018) + lu(1038) = lu(1038) - lu(726) * lu(1018) + lu(1039) = lu(1039) - lu(727) * lu(1018) + lu(1040) = lu(1040) - lu(728) * lu(1018) + lu(1041) = lu(1041) - lu(729) * lu(1018) + lu(1042) = lu(1042) - lu(730) * lu(1018) + lu(1043) = lu(1043) - lu(731) * lu(1018) + lu(1065) = lu(1065) - lu(712) * lu(1062) + lu(1067) = lu(1067) - lu(713) * lu(1062) + lu(1068) = lu(1068) - lu(714) * lu(1062) + lu(1069) = lu(1069) - lu(715) * lu(1062) + lu(1070) = lu(1070) - lu(716) * lu(1062) + lu(1071) = lu(1071) - lu(717) * lu(1062) + lu(1072) = lu(1072) - lu(718) * lu(1062) + lu(1073) = lu(1073) - lu(719) * lu(1062) + lu(1074) = lu(1074) - lu(720) * lu(1062) + lu(1075) = lu(1075) - lu(721) * lu(1062) + lu(1076) = lu(1076) - lu(722) * lu(1062) + lu(1077) = lu(1077) - lu(723) * lu(1062) + lu(1079) = lu(1079) - lu(724) * lu(1062) + lu(1081) = lu(1081) - lu(725) * lu(1062) + lu(1082) = lu(1082) - lu(726) * lu(1062) + lu(1083) = lu(1083) - lu(727) * lu(1062) + lu(1084) = lu(1084) - lu(728) * lu(1062) + lu(1085) = lu(1085) - lu(729) * lu(1062) + lu(1086) = lu(1086) - lu(730) * lu(1062) + lu(1087) = lu(1087) - lu(731) * lu(1062) + lu(1107) = lu(1107) - lu(712) * lu(1104) + lu(1109) = lu(1109) - lu(713) * lu(1104) + lu(1110) = lu(1110) - lu(714) * lu(1104) + lu(1111) = lu(1111) - lu(715) * lu(1104) + lu(1112) = lu(1112) - lu(716) * lu(1104) + lu(1113) = lu(1113) - lu(717) * lu(1104) + lu(1114) = lu(1114) - lu(718) * lu(1104) + lu(1115) = lu(1115) - lu(719) * lu(1104) + lu(1116) = lu(1116) - lu(720) * lu(1104) + lu(1117) = lu(1117) - lu(721) * lu(1104) + lu(1118) = lu(1118) - lu(722) * lu(1104) + lu(1119) = lu(1119) - lu(723) * lu(1104) + lu(1121) = lu(1121) - lu(724) * lu(1104) + lu(1123) = lu(1123) - lu(725) * lu(1104) + lu(1124) = lu(1124) - lu(726) * lu(1104) + lu(1125) = lu(1125) - lu(727) * lu(1104) + lu(1126) = lu(1126) - lu(728) * lu(1104) + lu(1127) = lu(1127) - lu(729) * lu(1104) + lu(1128) = lu(1128) - lu(730) * lu(1104) + lu(1129) = lu(1129) - lu(731) * lu(1104) + lu(1150) = lu(1150) - lu(712) * lu(1147) + lu(1152) = lu(1152) - lu(713) * lu(1147) + lu(1153) = lu(1153) - lu(714) * lu(1147) + lu(1154) = lu(1154) - lu(715) * lu(1147) + lu(1155) = lu(1155) - lu(716) * lu(1147) + lu(1156) = lu(1156) - lu(717) * lu(1147) + lu(1157) = lu(1157) - lu(718) * lu(1147) + lu(1158) = lu(1158) - lu(719) * lu(1147) + lu(1159) = lu(1159) - lu(720) * lu(1147) + lu(1160) = lu(1160) - lu(721) * lu(1147) + lu(1161) = lu(1161) - lu(722) * lu(1147) + lu(1162) = lu(1162) - lu(723) * lu(1147) + lu(1164) = lu(1164) - lu(724) * lu(1147) + lu(1166) = lu(1166) - lu(725) * lu(1147) + lu(1167) = lu(1167) - lu(726) * lu(1147) + lu(1168) = lu(1168) - lu(727) * lu(1147) + lu(1169) = lu(1169) - lu(728) * lu(1147) + lu(1170) = lu(1170) - lu(729) * lu(1147) + lu(1171) = lu(1171) - lu(730) * lu(1147) + lu(1172) = lu(1172) - lu(731) * lu(1147) + lu(1192) = lu(1192) - lu(712) * lu(1189) + lu(1194) = lu(1194) - lu(713) * lu(1189) + lu(1195) = lu(1195) - lu(714) * lu(1189) + lu(1196) = lu(1196) - lu(715) * lu(1189) + lu(1197) = lu(1197) - lu(716) * lu(1189) + lu(1198) = lu(1198) - lu(717) * lu(1189) + lu(1199) = lu(1199) - lu(718) * lu(1189) + lu(1200) = lu(1200) - lu(719) * lu(1189) + lu(1201) = lu(1201) - lu(720) * lu(1189) + lu(1202) = lu(1202) - lu(721) * lu(1189) + lu(1203) = lu(1203) - lu(722) * lu(1189) + lu(1204) = lu(1204) - lu(723) * lu(1189) + lu(1206) = lu(1206) - lu(724) * lu(1189) + lu(1208) = lu(1208) - lu(725) * lu(1189) + lu(1209) = lu(1209) - lu(726) * lu(1189) + lu(1210) = lu(1210) - lu(727) * lu(1189) + lu(1211) = lu(1211) - lu(728) * lu(1189) + lu(1212) = lu(1212) - lu(729) * lu(1189) + lu(1213) = lu(1213) - lu(730) * lu(1189) + lu(1214) = lu(1214) - lu(731) * lu(1189) + lu(1227) = lu(1227) - lu(712) * lu(1224) + lu(1229) = lu(1229) - lu(713) * lu(1224) + lu(1230) = lu(1230) - lu(714) * lu(1224) + lu(1231) = lu(1231) - lu(715) * lu(1224) + lu(1232) = lu(1232) - lu(716) * lu(1224) + lu(1233) = lu(1233) - lu(717) * lu(1224) + lu(1234) = lu(1234) - lu(718) * lu(1224) + lu(1235) = lu(1235) - lu(719) * lu(1224) + lu(1236) = lu(1236) - lu(720) * lu(1224) + lu(1237) = lu(1237) - lu(721) * lu(1224) + lu(1238) = lu(1238) - lu(722) * lu(1224) + lu(1239) = lu(1239) - lu(723) * lu(1224) + lu(1241) = lu(1241) - lu(724) * lu(1224) + lu(1243) = lu(1243) - lu(725) * lu(1224) + lu(1244) = lu(1244) - lu(726) * lu(1224) + lu(1245) = lu(1245) - lu(727) * lu(1224) + lu(1246) = lu(1246) - lu(728) * lu(1224) + lu(1247) = lu(1247) - lu(729) * lu(1224) + lu(1248) = lu(1248) - lu(730) * lu(1224) + lu(1249) = lu(1249) - lu(731) * lu(1224) + lu(1271) = lu(1271) - lu(712) * lu(1268) + lu(1273) = lu(1273) - lu(713) * lu(1268) + lu(1274) = lu(1274) - lu(714) * lu(1268) + lu(1275) = lu(1275) - lu(715) * lu(1268) + lu(1276) = lu(1276) - lu(716) * lu(1268) + lu(1277) = lu(1277) - lu(717) * lu(1268) + lu(1278) = lu(1278) - lu(718) * lu(1268) + lu(1279) = lu(1279) - lu(719) * lu(1268) + lu(1280) = lu(1280) - lu(720) * lu(1268) + lu(1281) = lu(1281) - lu(721) * lu(1268) + lu(1282) = lu(1282) - lu(722) * lu(1268) + lu(1283) = lu(1283) - lu(723) * lu(1268) + lu(1285) = lu(1285) - lu(724) * lu(1268) + lu(1287) = lu(1287) - lu(725) * lu(1268) + lu(1288) = lu(1288) - lu(726) * lu(1268) + lu(1289) = lu(1289) - lu(727) * lu(1268) + lu(1290) = lu(1290) - lu(728) * lu(1268) + lu(1291) = lu(1291) - lu(729) * lu(1268) + lu(1292) = lu(1292) - lu(730) * lu(1268) + lu(1293) = lu(1293) - lu(731) * lu(1268) + lu(1312) = lu(1312) - lu(712) * lu(1309) + lu(1314) = lu(1314) - lu(713) * lu(1309) + lu(1315) = lu(1315) - lu(714) * lu(1309) + lu(1316) = lu(1316) - lu(715) * lu(1309) + lu(1317) = lu(1317) - lu(716) * lu(1309) + lu(1318) = lu(1318) - lu(717) * lu(1309) + lu(1319) = lu(1319) - lu(718) * lu(1309) + lu(1320) = lu(1320) - lu(719) * lu(1309) + lu(1321) = lu(1321) - lu(720) * lu(1309) + lu(1322) = lu(1322) - lu(721) * lu(1309) + lu(1323) = lu(1323) - lu(722) * lu(1309) + lu(1324) = lu(1324) - lu(723) * lu(1309) + lu(1326) = lu(1326) - lu(724) * lu(1309) + lu(1328) = lu(1328) - lu(725) * lu(1309) + lu(1329) = lu(1329) - lu(726) * lu(1309) + lu(1330) = lu(1330) - lu(727) * lu(1309) + lu(1331) = lu(1331) - lu(728) * lu(1309) + lu(1332) = lu(1332) - lu(729) * lu(1309) + lu(1333) = lu(1333) - lu(730) * lu(1309) + lu(1334) = lu(1334) - lu(731) * lu(1309) + lu(1354) = lu(1354) - lu(712) * lu(1351) + lu(1356) = lu(1356) - lu(713) * lu(1351) + lu(1357) = lu(1357) - lu(714) * lu(1351) + lu(1358) = lu(1358) - lu(715) * lu(1351) + lu(1359) = lu(1359) - lu(716) * lu(1351) + lu(1360) = lu(1360) - lu(717) * lu(1351) + lu(1361) = lu(1361) - lu(718) * lu(1351) + lu(1362) = lu(1362) - lu(719) * lu(1351) + lu(1363) = lu(1363) - lu(720) * lu(1351) + lu(1364) = lu(1364) - lu(721) * lu(1351) + lu(1365) = lu(1365) - lu(722) * lu(1351) + lu(1366) = lu(1366) - lu(723) * lu(1351) + lu(1368) = lu(1368) - lu(724) * lu(1351) + lu(1370) = lu(1370) - lu(725) * lu(1351) + lu(1371) = lu(1371) - lu(726) * lu(1351) + lu(1372) = lu(1372) - lu(727) * lu(1351) + lu(1373) = lu(1373) - lu(728) * lu(1351) + lu(1374) = lu(1374) - lu(729) * lu(1351) + lu(1375) = lu(1375) - lu(730) * lu(1351) + lu(1376) = lu(1376) - lu(731) * lu(1351) + lu(1396) = lu(1396) - lu(712) * lu(1395) + lu(1398) = lu(1398) - lu(713) * lu(1395) + lu(1399) = lu(1399) - lu(714) * lu(1395) + lu(1400) = lu(1400) - lu(715) * lu(1395) + lu(1401) = lu(1401) - lu(716) * lu(1395) + lu(1402) = lu(1402) - lu(717) * lu(1395) + lu(1403) = lu(1403) - lu(718) * lu(1395) + lu(1404) = lu(1404) - lu(719) * lu(1395) + lu(1405) = lu(1405) - lu(720) * lu(1395) + lu(1406) = lu(1406) - lu(721) * lu(1395) + lu(1407) = lu(1407) - lu(722) * lu(1395) + lu(1408) = lu(1408) - lu(723) * lu(1395) + lu(1410) = lu(1410) - lu(724) * lu(1395) + lu(1412) = lu(1412) - lu(725) * lu(1395) + lu(1413) = lu(1413) - lu(726) * lu(1395) + lu(1414) = lu(1414) - lu(727) * lu(1395) + lu(1415) = lu(1415) - lu(728) * lu(1395) + lu(1416) = lu(1416) - lu(729) * lu(1395) + lu(1417) = lu(1417) - lu(730) * lu(1395) + lu(1418) = lu(1418) - lu(731) * lu(1395) + lu(1438) = lu(1438) - lu(712) * lu(1435) + lu(1440) = lu(1440) - lu(713) * lu(1435) + lu(1441) = lu(1441) - lu(714) * lu(1435) + lu(1442) = lu(1442) - lu(715) * lu(1435) + lu(1443) = lu(1443) - lu(716) * lu(1435) + lu(1444) = lu(1444) - lu(717) * lu(1435) + lu(1445) = lu(1445) - lu(718) * lu(1435) + lu(1446) = lu(1446) - lu(719) * lu(1435) + lu(1447) = lu(1447) - lu(720) * lu(1435) + lu(1448) = lu(1448) - lu(721) * lu(1435) + lu(1449) = lu(1449) - lu(722) * lu(1435) + lu(1450) = lu(1450) - lu(723) * lu(1435) + lu(1452) = lu(1452) - lu(724) * lu(1435) + lu(1454) = lu(1454) - lu(725) * lu(1435) + lu(1455) = lu(1455) - lu(726) * lu(1435) + lu(1456) = lu(1456) - lu(727) * lu(1435) + lu(1457) = lu(1457) - lu(728) * lu(1435) + lu(1458) = lu(1458) - lu(729) * lu(1435) + lu(1459) = lu(1459) - lu(730) * lu(1435) + lu(1460) = lu(1460) - lu(731) * lu(1435) + lu(1493) = lu(1493) - lu(712) * lu(1490) + lu(1495) = lu(1495) - lu(713) * lu(1490) + lu(1496) = lu(1496) - lu(714) * lu(1490) + lu(1497) = lu(1497) - lu(715) * lu(1490) + lu(1498) = lu(1498) - lu(716) * lu(1490) + lu(1499) = lu(1499) - lu(717) * lu(1490) + lu(1500) = lu(1500) - lu(718) * lu(1490) + lu(1501) = lu(1501) - lu(719) * lu(1490) + lu(1502) = lu(1502) - lu(720) * lu(1490) + lu(1503) = lu(1503) - lu(721) * lu(1490) + lu(1504) = lu(1504) - lu(722) * lu(1490) + lu(1505) = lu(1505) - lu(723) * lu(1490) + lu(1507) = lu(1507) - lu(724) * lu(1490) + lu(1509) = lu(1509) - lu(725) * lu(1490) + lu(1510) = lu(1510) - lu(726) * lu(1490) + lu(1511) = lu(1511) - lu(727) * lu(1490) + lu(1512) = lu(1512) - lu(728) * lu(1490) + lu(1513) = lu(1513) - lu(729) * lu(1490) + lu(1514) = lu(1514) - lu(730) * lu(1490) + lu(1515) = lu(1515) - lu(731) * lu(1490) + lu(1525) = lu(1525) - lu(712) * lu(1522) + lu(1527) = lu(1527) - lu(713) * lu(1522) + lu(1528) = lu(1528) - lu(714) * lu(1522) + lu(1529) = lu(1529) - lu(715) * lu(1522) + lu(1530) = lu(1530) - lu(716) * lu(1522) + lu(1531) = lu(1531) - lu(717) * lu(1522) + lu(1532) = lu(1532) - lu(718) * lu(1522) + lu(1533) = lu(1533) - lu(719) * lu(1522) + lu(1534) = lu(1534) - lu(720) * lu(1522) + lu(1535) = lu(1535) - lu(721) * lu(1522) + lu(1536) = lu(1536) - lu(722) * lu(1522) + lu(1537) = lu(1537) - lu(723) * lu(1522) + lu(1539) = lu(1539) - lu(724) * lu(1522) + lu(1541) = lu(1541) - lu(725) * lu(1522) + lu(1542) = lu(1542) - lu(726) * lu(1522) + lu(1543) = lu(1543) - lu(727) * lu(1522) + lu(1544) = lu(1544) - lu(728) * lu(1522) + lu(1545) = lu(1545) - lu(729) * lu(1522) + lu(1546) = lu(1546) - lu(730) * lu(1522) + lu(1547) = lu(1547) - lu(731) * lu(1522) + lu(1560) = lu(1560) - lu(712) * lu(1557) + lu(1562) = lu(1562) - lu(713) * lu(1557) + lu(1563) = lu(1563) - lu(714) * lu(1557) + lu(1564) = lu(1564) - lu(715) * lu(1557) + lu(1565) = lu(1565) - lu(716) * lu(1557) + lu(1566) = lu(1566) - lu(717) * lu(1557) + lu(1567) = lu(1567) - lu(718) * lu(1557) + lu(1568) = lu(1568) - lu(719) * lu(1557) + lu(1569) = lu(1569) - lu(720) * lu(1557) + lu(1570) = lu(1570) - lu(721) * lu(1557) + lu(1571) = lu(1571) - lu(722) * lu(1557) + lu(1572) = lu(1572) - lu(723) * lu(1557) + lu(1574) = lu(1574) - lu(724) * lu(1557) + lu(1576) = lu(1576) - lu(725) * lu(1557) + lu(1577) = lu(1577) - lu(726) * lu(1557) + lu(1578) = lu(1578) - lu(727) * lu(1557) + lu(1579) = lu(1579) - lu(728) * lu(1557) + lu(1580) = lu(1580) - lu(729) * lu(1557) + lu(1581) = lu(1581) - lu(730) * lu(1557) + lu(1582) = lu(1582) - lu(731) * lu(1557) + lu(1598) = lu(1598) - lu(712) * lu(1595) + lu(1600) = lu(1600) - lu(713) * lu(1595) + lu(1601) = lu(1601) - lu(714) * lu(1595) + lu(1602) = lu(1602) - lu(715) * lu(1595) + lu(1603) = lu(1603) - lu(716) * lu(1595) + lu(1604) = lu(1604) - lu(717) * lu(1595) + lu(1605) = lu(1605) - lu(718) * lu(1595) + lu(1606) = lu(1606) - lu(719) * lu(1595) + lu(1607) = lu(1607) - lu(720) * lu(1595) + lu(1608) = lu(1608) - lu(721) * lu(1595) + lu(1609) = lu(1609) - lu(722) * lu(1595) + lu(1610) = lu(1610) - lu(723) * lu(1595) + lu(1612) = lu(1612) - lu(724) * lu(1595) + lu(1614) = lu(1614) - lu(725) * lu(1595) + lu(1615) = lu(1615) - lu(726) * lu(1595) + lu(1616) = lu(1616) - lu(727) * lu(1595) + lu(1617) = lu(1617) - lu(728) * lu(1595) + lu(1618) = lu(1618) - lu(729) * lu(1595) + lu(1619) = lu(1619) - lu(730) * lu(1595) + lu(1620) = lu(1620) - lu(731) * lu(1595) + lu(1637) = lu(1637) - lu(712) * lu(1634) + lu(1639) = lu(1639) - lu(713) * lu(1634) + lu(1640) = lu(1640) - lu(714) * lu(1634) + lu(1641) = lu(1641) - lu(715) * lu(1634) + lu(1642) = lu(1642) - lu(716) * lu(1634) + lu(1643) = lu(1643) - lu(717) * lu(1634) + lu(1644) = lu(1644) - lu(718) * lu(1634) + lu(1645) = lu(1645) - lu(719) * lu(1634) + lu(1646) = lu(1646) - lu(720) * lu(1634) + lu(1647) = lu(1647) - lu(721) * lu(1634) + lu(1648) = lu(1648) - lu(722) * lu(1634) + lu(1649) = lu(1649) - lu(723) * lu(1634) + lu(1651) = lu(1651) - lu(724) * lu(1634) + lu(1653) = lu(1653) - lu(725) * lu(1634) + lu(1654) = lu(1654) - lu(726) * lu(1634) + lu(1655) = lu(1655) - lu(727) * lu(1634) + lu(1656) = lu(1656) - lu(728) * lu(1634) + lu(1657) = lu(1657) - lu(729) * lu(1634) + lu(1658) = lu(1658) - lu(730) * lu(1634) + lu(1659) = lu(1659) - lu(731) * lu(1634) + lu(1671) = lu(1671) - lu(712) * lu(1669) + lu(1673) = lu(1673) - lu(713) * lu(1669) + lu(1674) = lu(1674) - lu(714) * lu(1669) + lu(1675) = lu(1675) - lu(715) * lu(1669) + lu(1676) = lu(1676) - lu(716) * lu(1669) + lu(1677) = lu(1677) - lu(717) * lu(1669) + lu(1678) = lu(1678) - lu(718) * lu(1669) + lu(1679) = lu(1679) - lu(719) * lu(1669) + lu(1680) = lu(1680) - lu(720) * lu(1669) + lu(1681) = lu(1681) - lu(721) * lu(1669) + lu(1682) = lu(1682) - lu(722) * lu(1669) + lu(1683) = lu(1683) - lu(723) * lu(1669) + lu(1685) = lu(1685) - lu(724) * lu(1669) + lu(1687) = lu(1687) - lu(725) * lu(1669) + lu(1688) = lu(1688) - lu(726) * lu(1669) + lu(1689) = lu(1689) - lu(727) * lu(1669) + lu(1690) = lu(1690) - lu(728) * lu(1669) + lu(1691) = lu(1691) - lu(729) * lu(1669) + lu(1692) = lu(1692) - lu(730) * lu(1669) + lu(1693) = lu(1693) - lu(731) * lu(1669) + lu(1723) = lu(1723) - lu(712) * lu(1720) + lu(1725) = lu(1725) - lu(713) * lu(1720) + lu(1726) = lu(1726) - lu(714) * lu(1720) + lu(1727) = lu(1727) - lu(715) * lu(1720) + lu(1728) = lu(1728) - lu(716) * lu(1720) + lu(1729) = lu(1729) - lu(717) * lu(1720) + lu(1730) = lu(1730) - lu(718) * lu(1720) + lu(1731) = lu(1731) - lu(719) * lu(1720) + lu(1732) = lu(1732) - lu(720) * lu(1720) + lu(1733) = lu(1733) - lu(721) * lu(1720) + lu(1734) = lu(1734) - lu(722) * lu(1720) + lu(1735) = lu(1735) - lu(723) * lu(1720) + lu(1737) = lu(1737) - lu(724) * lu(1720) + lu(1739) = lu(1739) - lu(725) * lu(1720) + lu(1740) = lu(1740) - lu(726) * lu(1720) + lu(1741) = lu(1741) - lu(727) * lu(1720) + lu(1742) = lu(1742) - lu(728) * lu(1720) + lu(1743) = lu(1743) - lu(729) * lu(1720) + lu(1744) = lu(1744) - lu(730) * lu(1720) + lu(1745) = lu(1745) - lu(731) * lu(1720) + lu(739) = 1._r8 / lu(739) + lu(740) = lu(740) * lu(739) + lu(741) = lu(741) * lu(739) + lu(742) = lu(742) * lu(739) + lu(743) = lu(743) * lu(739) + lu(744) = lu(744) * lu(739) + lu(745) = lu(745) * lu(739) + lu(746) = lu(746) * lu(739) + lu(747) = lu(747) * lu(739) + lu(748) = lu(748) * lu(739) + lu(749) = lu(749) * lu(739) + lu(750) = lu(750) * lu(739) + lu(751) = lu(751) * lu(739) + lu(752) = lu(752) * lu(739) + lu(753) = lu(753) * lu(739) + lu(754) = lu(754) * lu(739) + lu(755) = lu(755) * lu(739) + lu(756) = lu(756) * lu(739) + lu(757) = lu(757) * lu(739) + lu(758) = lu(758) * lu(739) + lu(759) = lu(759) * lu(739) + lu(760) = lu(760) * lu(739) + lu(761) = lu(761) * lu(739) + lu(762) = lu(762) * lu(739) + lu(763) = lu(763) * lu(739) + lu(816) = lu(816) - lu(740) * lu(815) + lu(817) = lu(817) - lu(741) * lu(815) + lu(818) = lu(818) - lu(742) * lu(815) + lu(819) = lu(819) - lu(743) * lu(815) + lu(820) = lu(820) - lu(744) * lu(815) + lu(821) = lu(821) - lu(745) * lu(815) + lu(822) = lu(822) - lu(746) * lu(815) + lu(823) = lu(823) - lu(747) * lu(815) + lu(824) = lu(824) - lu(748) * lu(815) + lu(825) = lu(825) - lu(749) * lu(815) + lu(826) = lu(826) - lu(750) * lu(815) + lu(827) = lu(827) - lu(751) * lu(815) + lu(828) = lu(828) - lu(752) * lu(815) + lu(829) = lu(829) - lu(753) * lu(815) + lu(830) = lu(830) - lu(754) * lu(815) + lu(831) = lu(831) - lu(755) * lu(815) + lu(832) = lu(832) - lu(756) * lu(815) + lu(833) = lu(833) - lu(757) * lu(815) + lu(834) = lu(834) - lu(758) * lu(815) + lu(835) = lu(835) - lu(759) * lu(815) + lu(836) = lu(836) - lu(760) * lu(815) + lu(837) = lu(837) - lu(761) * lu(815) + lu(838) = lu(838) - lu(762) * lu(815) + lu(839) = lu(839) - lu(763) * lu(815) + lu(858) = lu(858) - lu(740) * lu(857) + lu(859) = lu(859) - lu(741) * lu(857) + lu(860) = lu(860) - lu(742) * lu(857) + lu(861) = lu(861) - lu(743) * lu(857) + lu(862) = lu(862) - lu(744) * lu(857) + lu(863) = lu(863) - lu(745) * lu(857) + lu(864) = lu(864) - lu(746) * lu(857) + lu(865) = lu(865) - lu(747) * lu(857) + lu(866) = lu(866) - lu(748) * lu(857) + lu(867) = lu(867) - lu(749) * lu(857) + lu(868) = lu(868) - lu(750) * lu(857) + lu(869) = lu(869) - lu(751) * lu(857) + lu(870) = lu(870) - lu(752) * lu(857) + lu(871) = lu(871) - lu(753) * lu(857) + lu(872) = lu(872) - lu(754) * lu(857) + lu(873) = lu(873) - lu(755) * lu(857) + lu(874) = lu(874) - lu(756) * lu(857) + lu(875) = lu(875) - lu(757) * lu(857) + lu(876) = lu(876) - lu(758) * lu(857) + lu(877) = lu(877) - lu(759) * lu(857) + lu(878) = lu(878) - lu(760) * lu(857) + lu(879) = lu(879) - lu(761) * lu(857) + lu(880) = lu(880) - lu(762) * lu(857) + lu(881) = lu(881) - lu(763) * lu(857) + lu(902) = lu(902) - lu(740) * lu(901) + lu(903) = lu(903) - lu(741) * lu(901) + lu(904) = lu(904) - lu(742) * lu(901) + lu(905) = lu(905) - lu(743) * lu(901) + lu(906) = lu(906) - lu(744) * lu(901) + lu(907) = lu(907) - lu(745) * lu(901) + lu(908) = lu(908) - lu(746) * lu(901) + lu(909) = lu(909) - lu(747) * lu(901) + lu(910) = lu(910) - lu(748) * lu(901) + lu(911) = lu(911) - lu(749) * lu(901) + lu(912) = lu(912) - lu(750) * lu(901) + lu(913) = lu(913) - lu(751) * lu(901) + lu(914) = lu(914) - lu(752) * lu(901) + lu(915) = lu(915) - lu(753) * lu(901) + lu(916) = lu(916) - lu(754) * lu(901) + lu(917) = lu(917) - lu(755) * lu(901) + lu(918) = lu(918) - lu(756) * lu(901) + lu(919) = lu(919) - lu(757) * lu(901) + lu(920) = lu(920) - lu(758) * lu(901) + lu(921) = lu(921) - lu(759) * lu(901) + lu(922) = lu(922) - lu(760) * lu(901) + lu(923) = lu(923) - lu(761) * lu(901) + lu(924) = lu(924) - lu(762) * lu(901) + lu(925) = lu(925) - lu(763) * lu(901) + lu(937) = lu(937) - lu(740) * lu(936) + lu(938) = lu(938) - lu(741) * lu(936) + lu(939) = lu(939) - lu(742) * lu(936) + lu(940) = lu(940) - lu(743) * lu(936) + lu(941) = lu(941) - lu(744) * lu(936) + lu(942) = lu(942) - lu(745) * lu(936) + lu(943) = lu(943) - lu(746) * lu(936) + lu(944) = lu(944) - lu(747) * lu(936) + lu(945) = lu(945) - lu(748) * lu(936) + lu(946) = lu(946) - lu(749) * lu(936) + lu(947) = lu(947) - lu(750) * lu(936) + lu(948) = lu(948) - lu(751) * lu(936) + lu(949) = lu(949) - lu(752) * lu(936) + lu(950) = lu(950) - lu(753) * lu(936) + lu(951) = lu(951) - lu(754) * lu(936) + lu(952) = lu(952) - lu(755) * lu(936) + lu(953) = lu(953) - lu(756) * lu(936) + lu(954) = lu(954) - lu(757) * lu(936) + lu(955) = lu(955) - lu(758) * lu(936) + lu(956) = lu(956) - lu(759) * lu(936) + lu(957) = lu(957) - lu(760) * lu(936) + lu(958) = lu(958) - lu(761) * lu(936) + lu(959) = lu(959) - lu(762) * lu(936) + lu(960) = lu(960) - lu(763) * lu(936) + lu(978) = lu(978) - lu(740) * lu(977) + lu(979) = lu(979) - lu(741) * lu(977) + lu(980) = lu(980) - lu(742) * lu(977) + lu(981) = lu(981) - lu(743) * lu(977) + lu(982) = lu(982) - lu(744) * lu(977) + lu(983) = lu(983) - lu(745) * lu(977) + lu(984) = lu(984) - lu(746) * lu(977) + lu(985) = lu(985) - lu(747) * lu(977) + lu(986) = lu(986) - lu(748) * lu(977) + lu(987) = lu(987) - lu(749) * lu(977) + lu(988) = lu(988) - lu(750) * lu(977) + lu(989) = lu(989) - lu(751) * lu(977) + lu(990) = lu(990) - lu(752) * lu(977) + lu(991) = lu(991) - lu(753) * lu(977) + lu(992) = lu(992) - lu(754) * lu(977) + lu(993) = lu(993) - lu(755) * lu(977) + lu(994) = lu(994) - lu(756) * lu(977) + lu(995) = lu(995) - lu(757) * lu(977) + lu(996) = lu(996) - lu(758) * lu(977) + lu(997) = lu(997) - lu(759) * lu(977) + lu(998) = lu(998) - lu(760) * lu(977) + lu(999) = lu(999) - lu(761) * lu(977) + lu(1000) = lu(1000) - lu(762) * lu(977) + lu(1001) = lu(1001) - lu(763) * lu(977) + lu(1020) = lu(1020) - lu(740) * lu(1019) + lu(1021) = lu(1021) - lu(741) * lu(1019) + lu(1022) = lu(1022) - lu(742) * lu(1019) + lu(1023) = lu(1023) - lu(743) * lu(1019) + lu(1024) = lu(1024) - lu(744) * lu(1019) + lu(1025) = lu(1025) - lu(745) * lu(1019) + lu(1026) = lu(1026) - lu(746) * lu(1019) + lu(1027) = lu(1027) - lu(747) * lu(1019) + lu(1028) = lu(1028) - lu(748) * lu(1019) + lu(1029) = lu(1029) - lu(749) * lu(1019) + lu(1030) = lu(1030) - lu(750) * lu(1019) + lu(1031) = lu(1031) - lu(751) * lu(1019) + lu(1032) = lu(1032) - lu(752) * lu(1019) + lu(1033) = lu(1033) - lu(753) * lu(1019) + lu(1034) = lu(1034) - lu(754) * lu(1019) + lu(1035) = lu(1035) - lu(755) * lu(1019) + lu(1036) = lu(1036) - lu(756) * lu(1019) + lu(1037) = lu(1037) - lu(757) * lu(1019) + lu(1038) = lu(1038) - lu(758) * lu(1019) + lu(1039) = lu(1039) - lu(759) * lu(1019) + lu(1040) = lu(1040) - lu(760) * lu(1019) + lu(1041) = lu(1041) - lu(761) * lu(1019) + lu(1042) = lu(1042) - lu(762) * lu(1019) + lu(1043) = lu(1043) - lu(763) * lu(1019) + lu(1064) = lu(1064) - lu(740) * lu(1063) + lu(1065) = lu(1065) - lu(741) * lu(1063) + lu(1066) = lu(1066) - lu(742) * lu(1063) + lu(1067) = lu(1067) - lu(743) * lu(1063) + lu(1068) = lu(1068) - lu(744) * lu(1063) + lu(1069) = lu(1069) - lu(745) * lu(1063) + lu(1070) = lu(1070) - lu(746) * lu(1063) + lu(1071) = lu(1071) - lu(747) * lu(1063) + lu(1072) = lu(1072) - lu(748) * lu(1063) + lu(1073) = lu(1073) - lu(749) * lu(1063) + lu(1074) = lu(1074) - lu(750) * lu(1063) + lu(1075) = lu(1075) - lu(751) * lu(1063) + lu(1076) = lu(1076) - lu(752) * lu(1063) + lu(1077) = lu(1077) - lu(753) * lu(1063) + lu(1078) = lu(1078) - lu(754) * lu(1063) + lu(1079) = lu(1079) - lu(755) * lu(1063) + lu(1080) = lu(1080) - lu(756) * lu(1063) + lu(1081) = lu(1081) - lu(757) * lu(1063) + lu(1082) = lu(1082) - lu(758) * lu(1063) + lu(1083) = lu(1083) - lu(759) * lu(1063) + lu(1084) = lu(1084) - lu(760) * lu(1063) + lu(1085) = lu(1085) - lu(761) * lu(1063) + lu(1086) = lu(1086) - lu(762) * lu(1063) + lu(1087) = lu(1087) - lu(763) * lu(1063) + lu(1106) = lu(1106) - lu(740) * lu(1105) + lu(1107) = lu(1107) - lu(741) * lu(1105) + lu(1108) = lu(1108) - lu(742) * lu(1105) + lu(1109) = lu(1109) - lu(743) * lu(1105) + lu(1110) = lu(1110) - lu(744) * lu(1105) + lu(1111) = lu(1111) - lu(745) * lu(1105) + lu(1112) = lu(1112) - lu(746) * lu(1105) + lu(1113) = lu(1113) - lu(747) * lu(1105) + lu(1114) = lu(1114) - lu(748) * lu(1105) + lu(1115) = lu(1115) - lu(749) * lu(1105) + lu(1116) = lu(1116) - lu(750) * lu(1105) + lu(1117) = lu(1117) - lu(751) * lu(1105) + lu(1118) = lu(1118) - lu(752) * lu(1105) + lu(1119) = lu(1119) - lu(753) * lu(1105) + lu(1120) = lu(1120) - lu(754) * lu(1105) + lu(1121) = lu(1121) - lu(755) * lu(1105) + lu(1122) = lu(1122) - lu(756) * lu(1105) + lu(1123) = lu(1123) - lu(757) * lu(1105) + lu(1124) = lu(1124) - lu(758) * lu(1105) + lu(1125) = lu(1125) - lu(759) * lu(1105) + lu(1126) = lu(1126) - lu(760) * lu(1105) + lu(1127) = lu(1127) - lu(761) * lu(1105) + lu(1128) = lu(1128) - lu(762) * lu(1105) + lu(1129) = lu(1129) - lu(763) * lu(1105) + lu(1149) = lu(1149) - lu(740) * lu(1148) + lu(1150) = lu(1150) - lu(741) * lu(1148) + lu(1151) = lu(1151) - lu(742) * lu(1148) + lu(1152) = lu(1152) - lu(743) * lu(1148) + lu(1153) = lu(1153) - lu(744) * lu(1148) + lu(1154) = lu(1154) - lu(745) * lu(1148) + lu(1155) = lu(1155) - lu(746) * lu(1148) + lu(1156) = lu(1156) - lu(747) * lu(1148) + lu(1157) = lu(1157) - lu(748) * lu(1148) + lu(1158) = lu(1158) - lu(749) * lu(1148) + lu(1159) = lu(1159) - lu(750) * lu(1148) + lu(1160) = lu(1160) - lu(751) * lu(1148) + lu(1161) = lu(1161) - lu(752) * lu(1148) + lu(1162) = lu(1162) - lu(753) * lu(1148) + lu(1163) = lu(1163) - lu(754) * lu(1148) + lu(1164) = lu(1164) - lu(755) * lu(1148) + lu(1165) = lu(1165) - lu(756) * lu(1148) + lu(1166) = lu(1166) - lu(757) * lu(1148) + lu(1167) = lu(1167) - lu(758) * lu(1148) + lu(1168) = lu(1168) - lu(759) * lu(1148) + lu(1169) = lu(1169) - lu(760) * lu(1148) + lu(1170) = lu(1170) - lu(761) * lu(1148) + lu(1171) = lu(1171) - lu(762) * lu(1148) + lu(1172) = lu(1172) - lu(763) * lu(1148) + lu(1191) = lu(1191) - lu(740) * lu(1190) + lu(1192) = lu(1192) - lu(741) * lu(1190) + lu(1193) = lu(1193) - lu(742) * lu(1190) + lu(1194) = lu(1194) - lu(743) * lu(1190) + lu(1195) = lu(1195) - lu(744) * lu(1190) + lu(1196) = lu(1196) - lu(745) * lu(1190) + lu(1197) = lu(1197) - lu(746) * lu(1190) + lu(1198) = lu(1198) - lu(747) * lu(1190) + lu(1199) = lu(1199) - lu(748) * lu(1190) + lu(1200) = lu(1200) - lu(749) * lu(1190) + lu(1201) = lu(1201) - lu(750) * lu(1190) + lu(1202) = lu(1202) - lu(751) * lu(1190) + lu(1203) = lu(1203) - lu(752) * lu(1190) + lu(1204) = lu(1204) - lu(753) * lu(1190) + lu(1205) = lu(1205) - lu(754) * lu(1190) + lu(1206) = lu(1206) - lu(755) * lu(1190) + lu(1207) = lu(1207) - lu(756) * lu(1190) + lu(1208) = lu(1208) - lu(757) * lu(1190) + lu(1209) = lu(1209) - lu(758) * lu(1190) + lu(1210) = lu(1210) - lu(759) * lu(1190) + lu(1211) = lu(1211) - lu(760) * lu(1190) + lu(1212) = lu(1212) - lu(761) * lu(1190) + lu(1213) = lu(1213) - lu(762) * lu(1190) + lu(1214) = lu(1214) - lu(763) * lu(1190) + lu(1226) = lu(1226) - lu(740) * lu(1225) + lu(1227) = lu(1227) - lu(741) * lu(1225) + lu(1228) = lu(1228) - lu(742) * lu(1225) + lu(1229) = lu(1229) - lu(743) * lu(1225) + lu(1230) = lu(1230) - lu(744) * lu(1225) + lu(1231) = lu(1231) - lu(745) * lu(1225) + lu(1232) = lu(1232) - lu(746) * lu(1225) + lu(1233) = lu(1233) - lu(747) * lu(1225) + lu(1234) = lu(1234) - lu(748) * lu(1225) + lu(1235) = lu(1235) - lu(749) * lu(1225) + lu(1236) = lu(1236) - lu(750) * lu(1225) + lu(1237) = lu(1237) - lu(751) * lu(1225) + lu(1238) = lu(1238) - lu(752) * lu(1225) + lu(1239) = lu(1239) - lu(753) * lu(1225) + lu(1240) = lu(1240) - lu(754) * lu(1225) + lu(1241) = lu(1241) - lu(755) * lu(1225) + lu(1242) = lu(1242) - lu(756) * lu(1225) + lu(1243) = lu(1243) - lu(757) * lu(1225) + lu(1244) = lu(1244) - lu(758) * lu(1225) + lu(1245) = lu(1245) - lu(759) * lu(1225) + lu(1246) = lu(1246) - lu(760) * lu(1225) + lu(1247) = lu(1247) - lu(761) * lu(1225) + lu(1248) = lu(1248) - lu(762) * lu(1225) + lu(1249) = lu(1249) - lu(763) * lu(1225) + lu(1270) = lu(1270) - lu(740) * lu(1269) + lu(1271) = lu(1271) - lu(741) * lu(1269) + lu(1272) = lu(1272) - lu(742) * lu(1269) + lu(1273) = lu(1273) - lu(743) * lu(1269) + lu(1274) = lu(1274) - lu(744) * lu(1269) + lu(1275) = lu(1275) - lu(745) * lu(1269) + lu(1276) = lu(1276) - lu(746) * lu(1269) + lu(1277) = lu(1277) - lu(747) * lu(1269) + lu(1278) = lu(1278) - lu(748) * lu(1269) + lu(1279) = lu(1279) - lu(749) * lu(1269) + lu(1280) = lu(1280) - lu(750) * lu(1269) + lu(1281) = lu(1281) - lu(751) * lu(1269) + lu(1282) = lu(1282) - lu(752) * lu(1269) + lu(1283) = lu(1283) - lu(753) * lu(1269) + lu(1284) = lu(1284) - lu(754) * lu(1269) + lu(1285) = lu(1285) - lu(755) * lu(1269) + lu(1286) = lu(1286) - lu(756) * lu(1269) + lu(1287) = lu(1287) - lu(757) * lu(1269) + lu(1288) = lu(1288) - lu(758) * lu(1269) + lu(1289) = lu(1289) - lu(759) * lu(1269) + lu(1290) = lu(1290) - lu(760) * lu(1269) + lu(1291) = lu(1291) - lu(761) * lu(1269) + lu(1292) = lu(1292) - lu(762) * lu(1269) + lu(1293) = lu(1293) - lu(763) * lu(1269) + lu(1311) = lu(1311) - lu(740) * lu(1310) + lu(1312) = lu(1312) - lu(741) * lu(1310) + lu(1313) = lu(1313) - lu(742) * lu(1310) + lu(1314) = lu(1314) - lu(743) * lu(1310) + lu(1315) = lu(1315) - lu(744) * lu(1310) + lu(1316) = lu(1316) - lu(745) * lu(1310) + lu(1317) = lu(1317) - lu(746) * lu(1310) + lu(1318) = lu(1318) - lu(747) * lu(1310) + lu(1319) = lu(1319) - lu(748) * lu(1310) + lu(1320) = lu(1320) - lu(749) * lu(1310) + lu(1321) = lu(1321) - lu(750) * lu(1310) + lu(1322) = lu(1322) - lu(751) * lu(1310) + lu(1323) = lu(1323) - lu(752) * lu(1310) + lu(1324) = lu(1324) - lu(753) * lu(1310) + lu(1325) = lu(1325) - lu(754) * lu(1310) + lu(1326) = lu(1326) - lu(755) * lu(1310) + lu(1327) = lu(1327) - lu(756) * lu(1310) + lu(1328) = lu(1328) - lu(757) * lu(1310) + lu(1329) = lu(1329) - lu(758) * lu(1310) + lu(1330) = lu(1330) - lu(759) * lu(1310) + lu(1331) = lu(1331) - lu(760) * lu(1310) + lu(1332) = lu(1332) - lu(761) * lu(1310) + lu(1333) = lu(1333) - lu(762) * lu(1310) + lu(1334) = lu(1334) - lu(763) * lu(1310) + lu(1353) = lu(1353) - lu(740) * lu(1352) + lu(1354) = lu(1354) - lu(741) * lu(1352) + lu(1355) = lu(1355) - lu(742) * lu(1352) + lu(1356) = lu(1356) - lu(743) * lu(1352) + lu(1357) = lu(1357) - lu(744) * lu(1352) + lu(1358) = lu(1358) - lu(745) * lu(1352) + lu(1359) = lu(1359) - lu(746) * lu(1352) + lu(1360) = lu(1360) - lu(747) * lu(1352) + lu(1361) = lu(1361) - lu(748) * lu(1352) + lu(1362) = lu(1362) - lu(749) * lu(1352) + lu(1363) = lu(1363) - lu(750) * lu(1352) + lu(1364) = lu(1364) - lu(751) * lu(1352) + lu(1365) = lu(1365) - lu(752) * lu(1352) + lu(1366) = lu(1366) - lu(753) * lu(1352) + lu(1367) = lu(1367) - lu(754) * lu(1352) + lu(1368) = lu(1368) - lu(755) * lu(1352) + lu(1369) = lu(1369) - lu(756) * lu(1352) + lu(1370) = lu(1370) - lu(757) * lu(1352) + lu(1371) = lu(1371) - lu(758) * lu(1352) + lu(1372) = lu(1372) - lu(759) * lu(1352) + lu(1373) = lu(1373) - lu(760) * lu(1352) + lu(1374) = lu(1374) - lu(761) * lu(1352) + lu(1375) = lu(1375) - lu(762) * lu(1352) + lu(1376) = lu(1376) - lu(763) * lu(1352) + lu(1437) = lu(1437) - lu(740) * lu(1436) + lu(1438) = lu(1438) - lu(741) * lu(1436) + lu(1439) = lu(1439) - lu(742) * lu(1436) + lu(1440) = lu(1440) - lu(743) * lu(1436) + lu(1441) = lu(1441) - lu(744) * lu(1436) + lu(1442) = lu(1442) - lu(745) * lu(1436) + lu(1443) = lu(1443) - lu(746) * lu(1436) + lu(1444) = lu(1444) - lu(747) * lu(1436) + lu(1445) = lu(1445) - lu(748) * lu(1436) + lu(1446) = lu(1446) - lu(749) * lu(1436) + lu(1447) = lu(1447) - lu(750) * lu(1436) + lu(1448) = lu(1448) - lu(751) * lu(1436) + lu(1449) = lu(1449) - lu(752) * lu(1436) + lu(1450) = lu(1450) - lu(753) * lu(1436) + lu(1451) = lu(1451) - lu(754) * lu(1436) + lu(1452) = lu(1452) - lu(755) * lu(1436) + lu(1453) = lu(1453) - lu(756) * lu(1436) + lu(1454) = lu(1454) - lu(757) * lu(1436) + lu(1455) = lu(1455) - lu(758) * lu(1436) + lu(1456) = lu(1456) - lu(759) * lu(1436) + lu(1457) = lu(1457) - lu(760) * lu(1436) + lu(1458) = lu(1458) - lu(761) * lu(1436) + lu(1459) = lu(1459) - lu(762) * lu(1436) + lu(1460) = lu(1460) - lu(763) * lu(1436) + lu(1492) = lu(1492) - lu(740) * lu(1491) + lu(1493) = lu(1493) - lu(741) * lu(1491) + lu(1494) = lu(1494) - lu(742) * lu(1491) + lu(1495) = lu(1495) - lu(743) * lu(1491) + lu(1496) = lu(1496) - lu(744) * lu(1491) + lu(1497) = lu(1497) - lu(745) * lu(1491) + lu(1498) = lu(1498) - lu(746) * lu(1491) + lu(1499) = lu(1499) - lu(747) * lu(1491) + lu(1500) = lu(1500) - lu(748) * lu(1491) + lu(1501) = lu(1501) - lu(749) * lu(1491) + lu(1502) = lu(1502) - lu(750) * lu(1491) + lu(1503) = lu(1503) - lu(751) * lu(1491) + lu(1504) = lu(1504) - lu(752) * lu(1491) + lu(1505) = lu(1505) - lu(753) * lu(1491) + lu(1506) = lu(1506) - lu(754) * lu(1491) + lu(1507) = lu(1507) - lu(755) * lu(1491) + lu(1508) = lu(1508) - lu(756) * lu(1491) + lu(1509) = lu(1509) - lu(757) * lu(1491) + lu(1510) = lu(1510) - lu(758) * lu(1491) + lu(1511) = lu(1511) - lu(759) * lu(1491) + lu(1512) = lu(1512) - lu(760) * lu(1491) + lu(1513) = lu(1513) - lu(761) * lu(1491) + lu(1514) = lu(1514) - lu(762) * lu(1491) + lu(1515) = lu(1515) - lu(763) * lu(1491) + lu(1524) = lu(1524) - lu(740) * lu(1523) + lu(1525) = lu(1525) - lu(741) * lu(1523) + lu(1526) = lu(1526) - lu(742) * lu(1523) + lu(1527) = lu(1527) - lu(743) * lu(1523) + lu(1528) = lu(1528) - lu(744) * lu(1523) + lu(1529) = lu(1529) - lu(745) * lu(1523) + lu(1530) = lu(1530) - lu(746) * lu(1523) + lu(1531) = lu(1531) - lu(747) * lu(1523) + lu(1532) = lu(1532) - lu(748) * lu(1523) + lu(1533) = lu(1533) - lu(749) * lu(1523) + lu(1534) = lu(1534) - lu(750) * lu(1523) + lu(1535) = lu(1535) - lu(751) * lu(1523) + lu(1536) = lu(1536) - lu(752) * lu(1523) + lu(1537) = lu(1537) - lu(753) * lu(1523) + lu(1538) = lu(1538) - lu(754) * lu(1523) + lu(1539) = lu(1539) - lu(755) * lu(1523) + lu(1540) = lu(1540) - lu(756) * lu(1523) + lu(1541) = lu(1541) - lu(757) * lu(1523) + lu(1542) = lu(1542) - lu(758) * lu(1523) + lu(1543) = lu(1543) - lu(759) * lu(1523) + lu(1544) = lu(1544) - lu(760) * lu(1523) + lu(1545) = lu(1545) - lu(761) * lu(1523) + lu(1546) = lu(1546) - lu(762) * lu(1523) + lu(1547) = lu(1547) - lu(763) * lu(1523) + lu(1559) = lu(1559) - lu(740) * lu(1558) + lu(1560) = lu(1560) - lu(741) * lu(1558) + lu(1561) = lu(1561) - lu(742) * lu(1558) + lu(1562) = lu(1562) - lu(743) * lu(1558) + lu(1563) = lu(1563) - lu(744) * lu(1558) + lu(1564) = lu(1564) - lu(745) * lu(1558) + lu(1565) = lu(1565) - lu(746) * lu(1558) + lu(1566) = lu(1566) - lu(747) * lu(1558) + lu(1567) = lu(1567) - lu(748) * lu(1558) + lu(1568) = lu(1568) - lu(749) * lu(1558) + lu(1569) = lu(1569) - lu(750) * lu(1558) + lu(1570) = lu(1570) - lu(751) * lu(1558) + lu(1571) = lu(1571) - lu(752) * lu(1558) + lu(1572) = lu(1572) - lu(753) * lu(1558) + lu(1573) = lu(1573) - lu(754) * lu(1558) + lu(1574) = lu(1574) - lu(755) * lu(1558) + lu(1575) = lu(1575) - lu(756) * lu(1558) + lu(1576) = lu(1576) - lu(757) * lu(1558) + lu(1577) = lu(1577) - lu(758) * lu(1558) + lu(1578) = lu(1578) - lu(759) * lu(1558) + lu(1579) = lu(1579) - lu(760) * lu(1558) + lu(1580) = lu(1580) - lu(761) * lu(1558) + lu(1581) = lu(1581) - lu(762) * lu(1558) + lu(1582) = lu(1582) - lu(763) * lu(1558) + lu(1597) = lu(1597) - lu(740) * lu(1596) + lu(1598) = lu(1598) - lu(741) * lu(1596) + lu(1599) = lu(1599) - lu(742) * lu(1596) + lu(1600) = lu(1600) - lu(743) * lu(1596) + lu(1601) = lu(1601) - lu(744) * lu(1596) + lu(1602) = lu(1602) - lu(745) * lu(1596) + lu(1603) = lu(1603) - lu(746) * lu(1596) + lu(1604) = lu(1604) - lu(747) * lu(1596) + lu(1605) = lu(1605) - lu(748) * lu(1596) + lu(1606) = lu(1606) - lu(749) * lu(1596) + lu(1607) = lu(1607) - lu(750) * lu(1596) + lu(1608) = lu(1608) - lu(751) * lu(1596) + lu(1609) = lu(1609) - lu(752) * lu(1596) + lu(1610) = lu(1610) - lu(753) * lu(1596) + lu(1611) = lu(1611) - lu(754) * lu(1596) + lu(1612) = lu(1612) - lu(755) * lu(1596) + lu(1613) = lu(1613) - lu(756) * lu(1596) + lu(1614) = lu(1614) - lu(757) * lu(1596) + lu(1615) = lu(1615) - lu(758) * lu(1596) + lu(1616) = lu(1616) - lu(759) * lu(1596) + lu(1617) = lu(1617) - lu(760) * lu(1596) + lu(1618) = lu(1618) - lu(761) * lu(1596) + lu(1619) = lu(1619) - lu(762) * lu(1596) + lu(1620) = lu(1620) - lu(763) * lu(1596) + lu(1636) = lu(1636) - lu(740) * lu(1635) + lu(1637) = lu(1637) - lu(741) * lu(1635) + lu(1638) = lu(1638) - lu(742) * lu(1635) + lu(1639) = lu(1639) - lu(743) * lu(1635) + lu(1640) = lu(1640) - lu(744) * lu(1635) + lu(1641) = lu(1641) - lu(745) * lu(1635) + lu(1642) = lu(1642) - lu(746) * lu(1635) + lu(1643) = lu(1643) - lu(747) * lu(1635) + lu(1644) = lu(1644) - lu(748) * lu(1635) + lu(1645) = lu(1645) - lu(749) * lu(1635) + lu(1646) = lu(1646) - lu(750) * lu(1635) + lu(1647) = lu(1647) - lu(751) * lu(1635) + lu(1648) = lu(1648) - lu(752) * lu(1635) + lu(1649) = lu(1649) - lu(753) * lu(1635) + lu(1650) = lu(1650) - lu(754) * lu(1635) + lu(1651) = lu(1651) - lu(755) * lu(1635) + lu(1652) = lu(1652) - lu(756) * lu(1635) + lu(1653) = lu(1653) - lu(757) * lu(1635) + lu(1654) = lu(1654) - lu(758) * lu(1635) + lu(1655) = lu(1655) - lu(759) * lu(1635) + lu(1656) = lu(1656) - lu(760) * lu(1635) + lu(1657) = lu(1657) - lu(761) * lu(1635) + lu(1658) = lu(1658) - lu(762) * lu(1635) + lu(1659) = lu(1659) - lu(763) * lu(1635) + lu(1722) = lu(1722) - lu(740) * lu(1721) + lu(1723) = lu(1723) - lu(741) * lu(1721) + lu(1724) = lu(1724) - lu(742) * lu(1721) + lu(1725) = lu(1725) - lu(743) * lu(1721) + lu(1726) = lu(1726) - lu(744) * lu(1721) + lu(1727) = lu(1727) - lu(745) * lu(1721) + lu(1728) = lu(1728) - lu(746) * lu(1721) + lu(1729) = lu(1729) - lu(747) * lu(1721) + lu(1730) = lu(1730) - lu(748) * lu(1721) + lu(1731) = lu(1731) - lu(749) * lu(1721) + lu(1732) = lu(1732) - lu(750) * lu(1721) + lu(1733) = lu(1733) - lu(751) * lu(1721) + lu(1734) = lu(1734) - lu(752) * lu(1721) + lu(1735) = lu(1735) - lu(753) * lu(1721) + lu(1736) = lu(1736) - lu(754) * lu(1721) + lu(1737) = lu(1737) - lu(755) * lu(1721) + lu(1738) = lu(1738) - lu(756) * lu(1721) + lu(1739) = lu(1739) - lu(757) * lu(1721) + lu(1740) = lu(1740) - lu(758) * lu(1721) + lu(1741) = lu(1741) - lu(759) * lu(1721) + lu(1742) = lu(1742) - lu(760) * lu(1721) + lu(1743) = lu(1743) - lu(761) * lu(1721) + lu(1744) = lu(1744) - lu(762) * lu(1721) + lu(1745) = lu(1745) - lu(763) * lu(1721) end subroutine lu_fac16 - subroutine lu_fac17( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac17( lu ) 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,755) = 1._r8 / lu(k,755) - lu(k,756) = lu(k,756) * lu(k,755) - lu(k,757) = lu(k,757) * lu(k,755) - lu(k,758) = lu(k,758) * lu(k,755) - 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,762) = lu(k,762) * lu(k,755) - lu(k,763) = lu(k,763) * lu(k,755) - lu(k,764) = lu(k,764) * lu(k,755) - lu(k,765) = lu(k,765) * lu(k,755) - lu(k,766) = lu(k,766) * lu(k,755) - lu(k,767) = lu(k,767) * lu(k,755) - lu(k,768) = lu(k,768) * lu(k,755) - lu(k,769) = lu(k,769) * lu(k,755) - lu(k,770) = lu(k,770) * lu(k,755) - lu(k,771) = lu(k,771) * lu(k,755) - lu(k,772) = lu(k,772) * lu(k,755) - lu(k,773) = lu(k,773) * lu(k,755) - lu(k,774) = lu(k,774) * lu(k,755) - lu(k,775) = lu(k,775) * lu(k,755) - lu(k,776) = lu(k,776) * lu(k,755) - lu(k,786) = lu(k,786) - lu(k,756) * lu(k,784) - lu(k,787) = lu(k,787) - lu(k,757) * lu(k,784) - lu(k,789) = lu(k,789) - lu(k,758) * lu(k,784) - lu(k,790) = lu(k,790) - lu(k,759) * lu(k,784) - lu(k,791) = lu(k,791) - lu(k,760) * lu(k,784) - lu(k,792) = lu(k,792) - lu(k,761) * lu(k,784) - lu(k,793) = lu(k,793) - lu(k,762) * lu(k,784) - lu(k,795) = lu(k,795) - lu(k,763) * lu(k,784) - lu(k,796) = lu(k,796) - lu(k,764) * lu(k,784) - lu(k,797) = lu(k,797) - lu(k,765) * lu(k,784) - lu(k,798) = lu(k,798) - lu(k,766) * lu(k,784) - lu(k,799) = lu(k,799) - lu(k,767) * lu(k,784) - lu(k,800) = lu(k,800) - lu(k,768) * lu(k,784) - lu(k,801) = lu(k,801) - lu(k,769) * lu(k,784) - lu(k,802) = lu(k,802) - lu(k,770) * lu(k,784) - lu(k,804) = lu(k,804) - lu(k,771) * lu(k,784) - lu(k,805) = lu(k,805) - lu(k,772) * lu(k,784) - lu(k,806) = lu(k,806) - lu(k,773) * lu(k,784) - lu(k,807) = lu(k,807) - lu(k,774) * lu(k,784) - lu(k,808) = lu(k,808) - lu(k,775) * lu(k,784) - lu(k,809) = lu(k,809) - lu(k,776) * lu(k,784) - lu(k,829) = lu(k,829) - lu(k,756) * lu(k,827) - lu(k,830) = lu(k,830) - lu(k,757) * lu(k,827) - lu(k,832) = lu(k,832) - lu(k,758) * lu(k,827) - lu(k,833) = lu(k,833) - lu(k,759) * lu(k,827) - lu(k,834) = lu(k,834) - lu(k,760) * lu(k,827) - lu(k,835) = lu(k,835) - lu(k,761) * lu(k,827) - lu(k,836) = lu(k,836) - lu(k,762) * lu(k,827) - lu(k,838) = lu(k,838) - lu(k,763) * lu(k,827) - lu(k,839) = lu(k,839) - lu(k,764) * lu(k,827) - lu(k,840) = lu(k,840) - lu(k,765) * lu(k,827) - lu(k,841) = lu(k,841) - lu(k,766) * lu(k,827) - lu(k,842) = lu(k,842) - lu(k,767) * lu(k,827) - lu(k,843) = lu(k,843) - lu(k,768) * lu(k,827) - lu(k,844) = lu(k,844) - lu(k,769) * lu(k,827) - lu(k,845) = lu(k,845) - lu(k,770) * lu(k,827) - lu(k,847) = lu(k,847) - lu(k,771) * lu(k,827) - lu(k,848) = lu(k,848) - lu(k,772) * lu(k,827) - lu(k,849) = lu(k,849) - lu(k,773) * lu(k,827) - lu(k,850) = lu(k,850) - lu(k,774) * lu(k,827) - lu(k,851) = lu(k,851) - lu(k,775) * lu(k,827) - lu(k,852) = lu(k,852) - lu(k,776) * lu(k,827) - lu(k,877) = lu(k,877) - lu(k,756) * lu(k,875) - lu(k,878) = lu(k,878) - lu(k,757) * lu(k,875) - lu(k,880) = lu(k,880) - lu(k,758) * lu(k,875) - lu(k,881) = lu(k,881) - lu(k,759) * lu(k,875) - lu(k,882) = lu(k,882) - lu(k,760) * lu(k,875) - lu(k,883) = lu(k,883) - lu(k,761) * lu(k,875) - lu(k,884) = lu(k,884) - lu(k,762) * lu(k,875) - lu(k,886) = lu(k,886) - lu(k,763) * lu(k,875) - lu(k,887) = lu(k,887) - lu(k,764) * lu(k,875) - lu(k,888) = lu(k,888) - lu(k,765) * lu(k,875) - lu(k,889) = lu(k,889) - lu(k,766) * lu(k,875) - lu(k,890) = lu(k,890) - lu(k,767) * lu(k,875) - lu(k,891) = lu(k,891) - lu(k,768) * lu(k,875) - lu(k,892) = lu(k,892) - lu(k,769) * lu(k,875) - lu(k,893) = lu(k,893) - lu(k,770) * lu(k,875) - lu(k,895) = lu(k,895) - lu(k,771) * lu(k,875) - lu(k,896) = lu(k,896) - lu(k,772) * lu(k,875) - lu(k,897) = lu(k,897) - lu(k,773) * lu(k,875) - lu(k,898) = lu(k,898) - lu(k,774) * lu(k,875) - lu(k,899) = lu(k,899) - lu(k,775) * lu(k,875) - lu(k,900) = lu(k,900) - lu(k,776) * lu(k,875) - lu(k,920) = lu(k,920) - lu(k,756) * lu(k,918) - lu(k,921) = lu(k,921) - lu(k,757) * lu(k,918) - lu(k,923) = lu(k,923) - lu(k,758) * lu(k,918) - lu(k,924) = lu(k,924) - lu(k,759) * lu(k,918) - lu(k,925) = lu(k,925) - lu(k,760) * lu(k,918) - lu(k,926) = lu(k,926) - lu(k,761) * lu(k,918) - lu(k,927) = lu(k,927) - lu(k,762) * lu(k,918) - lu(k,929) = lu(k,929) - lu(k,763) * lu(k,918) - lu(k,930) = lu(k,930) - lu(k,764) * lu(k,918) - lu(k,931) = lu(k,931) - lu(k,765) * lu(k,918) - lu(k,932) = lu(k,932) - lu(k,766) * lu(k,918) - lu(k,933) = lu(k,933) - lu(k,767) * lu(k,918) - lu(k,934) = lu(k,934) - lu(k,768) * lu(k,918) - lu(k,935) = lu(k,935) - lu(k,769) * lu(k,918) - lu(k,936) = lu(k,936) - lu(k,770) * lu(k,918) - lu(k,938) = lu(k,938) - lu(k,771) * lu(k,918) - lu(k,939) = lu(k,939) - lu(k,772) * lu(k,918) - lu(k,940) = lu(k,940) - lu(k,773) * lu(k,918) - lu(k,941) = lu(k,941) - lu(k,774) * lu(k,918) - lu(k,942) = lu(k,942) - lu(k,775) * lu(k,918) - lu(k,943) = lu(k,943) - lu(k,776) * lu(k,918) - lu(k,976) = lu(k,976) - lu(k,756) * lu(k,974) - lu(k,977) = lu(k,977) - lu(k,757) * lu(k,974) - lu(k,979) = lu(k,979) - lu(k,758) * lu(k,974) - lu(k,980) = lu(k,980) - lu(k,759) * lu(k,974) - lu(k,981) = lu(k,981) - lu(k,760) * lu(k,974) - lu(k,982) = lu(k,982) - lu(k,761) * lu(k,974) - lu(k,983) = lu(k,983) - lu(k,762) * lu(k,974) - lu(k,985) = lu(k,985) - lu(k,763) * lu(k,974) - lu(k,986) = lu(k,986) - lu(k,764) * lu(k,974) - lu(k,987) = lu(k,987) - lu(k,765) * lu(k,974) - lu(k,988) = lu(k,988) - lu(k,766) * lu(k,974) - lu(k,989) = lu(k,989) - lu(k,767) * lu(k,974) - lu(k,990) = lu(k,990) - lu(k,768) * lu(k,974) - lu(k,991) = lu(k,991) - lu(k,769) * lu(k,974) - lu(k,992) = lu(k,992) - lu(k,770) * lu(k,974) - lu(k,994) = lu(k,994) - lu(k,771) * lu(k,974) - lu(k,995) = lu(k,995) - lu(k,772) * lu(k,974) - lu(k,996) = lu(k,996) - lu(k,773) * lu(k,974) - lu(k,997) = lu(k,997) - lu(k,774) * lu(k,974) - lu(k,998) = lu(k,998) - lu(k,775) * lu(k,974) - lu(k,999) = lu(k,999) - lu(k,776) * lu(k,974) - lu(k,1019) = lu(k,1019) - lu(k,756) * lu(k,1018) - lu(k,1020) = lu(k,1020) - lu(k,757) * lu(k,1018) - lu(k,1022) = lu(k,1022) - lu(k,758) * lu(k,1018) - lu(k,1023) = lu(k,1023) - lu(k,759) * lu(k,1018) - lu(k,1024) = lu(k,1024) - lu(k,760) * lu(k,1018) - lu(k,1025) = lu(k,1025) - lu(k,761) * lu(k,1018) - lu(k,1026) = lu(k,1026) - lu(k,762) * lu(k,1018) - lu(k,1028) = lu(k,1028) - lu(k,763) * lu(k,1018) - lu(k,1029) = lu(k,1029) - lu(k,764) * lu(k,1018) - lu(k,1030) = lu(k,1030) - lu(k,765) * lu(k,1018) - lu(k,1031) = lu(k,1031) - lu(k,766) * lu(k,1018) - lu(k,1032) = lu(k,1032) - lu(k,767) * lu(k,1018) - lu(k,1033) = lu(k,1033) - lu(k,768) * lu(k,1018) - lu(k,1034) = lu(k,1034) - lu(k,769) * lu(k,1018) - lu(k,1035) = lu(k,1035) - lu(k,770) * lu(k,1018) - lu(k,1037) = lu(k,1037) - lu(k,771) * lu(k,1018) - lu(k,1038) = lu(k,1038) - lu(k,772) * lu(k,1018) - lu(k,1039) = lu(k,1039) - lu(k,773) * lu(k,1018) - lu(k,1040) = lu(k,1040) - lu(k,774) * lu(k,1018) - lu(k,1041) = lu(k,1041) - lu(k,775) * lu(k,1018) - lu(k,1042) = lu(k,1042) - lu(k,776) * lu(k,1018) - lu(k,1061) = lu(k,1061) - lu(k,756) * lu(k,1059) - lu(k,1062) = lu(k,1062) - lu(k,757) * lu(k,1059) - lu(k,1064) = lu(k,1064) - lu(k,758) * lu(k,1059) - lu(k,1065) = lu(k,1065) - lu(k,759) * lu(k,1059) - lu(k,1066) = lu(k,1066) - lu(k,760) * lu(k,1059) - lu(k,1067) = lu(k,1067) - lu(k,761) * lu(k,1059) - lu(k,1068) = lu(k,1068) - lu(k,762) * lu(k,1059) - lu(k,1070) = lu(k,1070) - lu(k,763) * lu(k,1059) - lu(k,1071) = lu(k,1071) - lu(k,764) * lu(k,1059) - lu(k,1072) = lu(k,1072) - lu(k,765) * lu(k,1059) - lu(k,1073) = lu(k,1073) - lu(k,766) * lu(k,1059) - lu(k,1074) = lu(k,1074) - lu(k,767) * lu(k,1059) - lu(k,1075) = lu(k,1075) - lu(k,768) * lu(k,1059) - lu(k,1076) = lu(k,1076) - lu(k,769) * lu(k,1059) - lu(k,1077) = lu(k,1077) - lu(k,770) * lu(k,1059) - lu(k,1079) = lu(k,1079) - lu(k,771) * lu(k,1059) - lu(k,1080) = lu(k,1080) - lu(k,772) * lu(k,1059) - lu(k,1081) = lu(k,1081) - lu(k,773) * lu(k,1059) - lu(k,1082) = lu(k,1082) - lu(k,774) * lu(k,1059) - lu(k,1083) = lu(k,1083) - lu(k,775) * lu(k,1059) - lu(k,1084) = lu(k,1084) - lu(k,776) * lu(k,1059) - lu(k,1101) = lu(k,1101) - lu(k,756) * lu(k,1099) - lu(k,1102) = lu(k,1102) - lu(k,757) * lu(k,1099) - lu(k,1104) = lu(k,1104) - lu(k,758) * lu(k,1099) - lu(k,1105) = lu(k,1105) - lu(k,759) * lu(k,1099) - lu(k,1106) = lu(k,1106) - lu(k,760) * lu(k,1099) - lu(k,1107) = lu(k,1107) - lu(k,761) * lu(k,1099) - lu(k,1108) = lu(k,1108) - lu(k,762) * lu(k,1099) - lu(k,1110) = lu(k,1110) - lu(k,763) * lu(k,1099) - lu(k,1111) = lu(k,1111) - lu(k,764) * lu(k,1099) - lu(k,1112) = lu(k,1112) - lu(k,765) * lu(k,1099) - lu(k,1113) = lu(k,1113) - lu(k,766) * lu(k,1099) - lu(k,1114) = lu(k,1114) - lu(k,767) * lu(k,1099) - lu(k,1115) = lu(k,1115) - lu(k,768) * lu(k,1099) - lu(k,1116) = lu(k,1116) - lu(k,769) * lu(k,1099) - lu(k,1117) = lu(k,1117) - lu(k,770) * lu(k,1099) - lu(k,1119) = lu(k,1119) - lu(k,771) * lu(k,1099) - lu(k,1120) = lu(k,1120) - lu(k,772) * lu(k,1099) - lu(k,1121) = lu(k,1121) - lu(k,773) * lu(k,1099) - lu(k,1122) = lu(k,1122) - lu(k,774) * lu(k,1099) - lu(k,1123) = lu(k,1123) - lu(k,775) * lu(k,1099) - lu(k,1124) = lu(k,1124) - lu(k,776) * lu(k,1099) - lu(k,1146) = lu(k,1146) - lu(k,756) * lu(k,1144) - lu(k,1147) = lu(k,1147) - lu(k,757) * lu(k,1144) - lu(k,1149) = lu(k,1149) - lu(k,758) * lu(k,1144) - lu(k,1150) = lu(k,1150) - lu(k,759) * lu(k,1144) - lu(k,1151) = lu(k,1151) - lu(k,760) * lu(k,1144) - lu(k,1152) = lu(k,1152) - lu(k,761) * lu(k,1144) - lu(k,1153) = lu(k,1153) - lu(k,762) * lu(k,1144) - lu(k,1155) = lu(k,1155) - lu(k,763) * lu(k,1144) - lu(k,1156) = lu(k,1156) - lu(k,764) * lu(k,1144) - lu(k,1157) = lu(k,1157) - lu(k,765) * lu(k,1144) - lu(k,1158) = lu(k,1158) - lu(k,766) * lu(k,1144) - lu(k,1159) = lu(k,1159) - lu(k,767) * lu(k,1144) - lu(k,1160) = lu(k,1160) - lu(k,768) * lu(k,1144) - lu(k,1161) = lu(k,1161) - lu(k,769) * lu(k,1144) - lu(k,1162) = lu(k,1162) - lu(k,770) * lu(k,1144) - lu(k,1164) = lu(k,1164) - lu(k,771) * lu(k,1144) - lu(k,1165) = lu(k,1165) - lu(k,772) * lu(k,1144) - lu(k,1166) = lu(k,1166) - lu(k,773) * lu(k,1144) - lu(k,1167) = lu(k,1167) - lu(k,774) * lu(k,1144) - lu(k,1168) = lu(k,1168) - lu(k,775) * lu(k,1144) - lu(k,1169) = lu(k,1169) - lu(k,776) * lu(k,1144) - lu(k,1189) = lu(k,1189) - lu(k,756) * lu(k,1187) - lu(k,1190) = lu(k,1190) - lu(k,757) * lu(k,1187) - lu(k,1192) = lu(k,1192) - lu(k,758) * lu(k,1187) - lu(k,1193) = lu(k,1193) - lu(k,759) * lu(k,1187) - lu(k,1194) = lu(k,1194) - lu(k,760) * lu(k,1187) - lu(k,1195) = lu(k,1195) - lu(k,761) * lu(k,1187) - lu(k,1196) = lu(k,1196) - lu(k,762) * lu(k,1187) - lu(k,1198) = lu(k,1198) - lu(k,763) * lu(k,1187) - lu(k,1199) = lu(k,1199) - lu(k,764) * lu(k,1187) - lu(k,1200) = lu(k,1200) - lu(k,765) * lu(k,1187) - lu(k,1201) = lu(k,1201) - lu(k,766) * lu(k,1187) - lu(k,1202) = lu(k,1202) - lu(k,767) * lu(k,1187) - lu(k,1203) = lu(k,1203) - lu(k,768) * lu(k,1187) - lu(k,1204) = lu(k,1204) - lu(k,769) * lu(k,1187) - lu(k,1205) = lu(k,1205) - lu(k,770) * lu(k,1187) - lu(k,1207) = lu(k,1207) - lu(k,771) * lu(k,1187) - lu(k,1208) = lu(k,1208) - lu(k,772) * lu(k,1187) - lu(k,1209) = lu(k,1209) - lu(k,773) * lu(k,1187) - lu(k,1210) = lu(k,1210) - lu(k,774) * lu(k,1187) - lu(k,1211) = lu(k,1211) - lu(k,775) * lu(k,1187) - lu(k,1212) = lu(k,1212) - lu(k,776) * lu(k,1187) - lu(k,1224) = lu(k,1224) - lu(k,756) * lu(k,1223) - lu(k,1225) = lu(k,1225) - lu(k,757) * lu(k,1223) - lu(k,1227) = lu(k,1227) - lu(k,758) * lu(k,1223) - lu(k,1228) = lu(k,1228) - lu(k,759) * lu(k,1223) - lu(k,1229) = lu(k,1229) - lu(k,760) * lu(k,1223) - lu(k,1230) = lu(k,1230) - lu(k,761) * lu(k,1223) - lu(k,1231) = lu(k,1231) - lu(k,762) * lu(k,1223) - lu(k,1233) = lu(k,1233) - lu(k,763) * lu(k,1223) - lu(k,1234) = lu(k,1234) - lu(k,764) * lu(k,1223) - lu(k,1235) = lu(k,1235) - lu(k,765) * lu(k,1223) - lu(k,1236) = lu(k,1236) - lu(k,766) * lu(k,1223) - lu(k,1237) = lu(k,1237) - lu(k,767) * lu(k,1223) - lu(k,1238) = lu(k,1238) - lu(k,768) * lu(k,1223) - lu(k,1239) = lu(k,1239) - lu(k,769) * lu(k,1223) - lu(k,1240) = lu(k,1240) - lu(k,770) * lu(k,1223) - lu(k,1242) = lu(k,1242) - lu(k,771) * lu(k,1223) - lu(k,1243) = lu(k,1243) - lu(k,772) * lu(k,1223) - lu(k,1244) = lu(k,1244) - lu(k,773) * lu(k,1223) - lu(k,1245) = lu(k,1245) - lu(k,774) * lu(k,1223) - lu(k,1246) = lu(k,1246) - lu(k,775) * lu(k,1223) - lu(k,1247) = lu(k,1247) - lu(k,776) * lu(k,1223) - lu(k,1267) = lu(k,1267) - lu(k,756) * lu(k,1265) - lu(k,1268) = lu(k,1268) - lu(k,757) * lu(k,1265) - lu(k,1270) = lu(k,1270) - lu(k,758) * lu(k,1265) - lu(k,1271) = lu(k,1271) - lu(k,759) * lu(k,1265) - lu(k,1272) = lu(k,1272) - lu(k,760) * lu(k,1265) - lu(k,1273) = lu(k,1273) - lu(k,761) * lu(k,1265) - lu(k,1274) = lu(k,1274) - lu(k,762) * lu(k,1265) - lu(k,1276) = lu(k,1276) - lu(k,763) * lu(k,1265) - lu(k,1277) = lu(k,1277) - lu(k,764) * lu(k,1265) - lu(k,1278) = lu(k,1278) - lu(k,765) * lu(k,1265) - lu(k,1279) = lu(k,1279) - lu(k,766) * lu(k,1265) - lu(k,1280) = lu(k,1280) - lu(k,767) * lu(k,1265) - lu(k,1281) = lu(k,1281) - lu(k,768) * lu(k,1265) - lu(k,1282) = lu(k,1282) - lu(k,769) * lu(k,1265) - lu(k,1283) = lu(k,1283) - lu(k,770) * lu(k,1265) - lu(k,1285) = lu(k,1285) - lu(k,771) * lu(k,1265) - lu(k,1286) = lu(k,1286) - lu(k,772) * lu(k,1265) - lu(k,1287) = lu(k,1287) - lu(k,773) * lu(k,1265) - lu(k,1288) = lu(k,1288) - lu(k,774) * lu(k,1265) - lu(k,1289) = lu(k,1289) - lu(k,775) * lu(k,1265) - lu(k,1290) = lu(k,1290) - lu(k,776) * lu(k,1265) - lu(k,1303) = lu(k,1303) - lu(k,756) * lu(k,1301) - lu(k,1304) = lu(k,1304) - lu(k,757) * lu(k,1301) - lu(k,1306) = lu(k,1306) - lu(k,758) * lu(k,1301) - lu(k,1307) = lu(k,1307) - lu(k,759) * lu(k,1301) - lu(k,1308) = lu(k,1308) - lu(k,760) * lu(k,1301) - lu(k,1309) = lu(k,1309) - lu(k,761) * lu(k,1301) - lu(k,1310) = lu(k,1310) - lu(k,762) * lu(k,1301) - lu(k,1312) = lu(k,1312) - lu(k,763) * lu(k,1301) - lu(k,1313) = lu(k,1313) - lu(k,764) * lu(k,1301) - lu(k,1314) = lu(k,1314) - lu(k,765) * lu(k,1301) - lu(k,1315) = lu(k,1315) - lu(k,766) * lu(k,1301) - lu(k,1316) = lu(k,1316) - lu(k,767) * lu(k,1301) - lu(k,1317) = lu(k,1317) - lu(k,768) * lu(k,1301) - lu(k,1318) = lu(k,1318) - lu(k,769) * lu(k,1301) - lu(k,1319) = lu(k,1319) - lu(k,770) * lu(k,1301) - lu(k,1321) = lu(k,1321) - lu(k,771) * lu(k,1301) - lu(k,1322) = lu(k,1322) - lu(k,772) * lu(k,1301) - lu(k,1323) = lu(k,1323) - lu(k,773) * lu(k,1301) - lu(k,1324) = lu(k,1324) - lu(k,774) * lu(k,1301) - lu(k,1325) = lu(k,1325) - lu(k,775) * lu(k,1301) - lu(k,1326) = lu(k,1326) - lu(k,776) * lu(k,1301) - lu(k,1348) = lu(k,1348) - lu(k,756) * lu(k,1346) - lu(k,1349) = lu(k,1349) - lu(k,757) * lu(k,1346) - lu(k,1351) = lu(k,1351) - lu(k,758) * lu(k,1346) - lu(k,1352) = lu(k,1352) - lu(k,759) * lu(k,1346) - lu(k,1353) = lu(k,1353) - lu(k,760) * lu(k,1346) - lu(k,1354) = lu(k,1354) - lu(k,761) * lu(k,1346) - lu(k,1355) = lu(k,1355) - lu(k,762) * lu(k,1346) - lu(k,1357) = lu(k,1357) - lu(k,763) * lu(k,1346) - lu(k,1358) = lu(k,1358) - lu(k,764) * lu(k,1346) - lu(k,1359) = lu(k,1359) - lu(k,765) * lu(k,1346) - lu(k,1360) = lu(k,1360) - lu(k,766) * lu(k,1346) - lu(k,1361) = lu(k,1361) - lu(k,767) * lu(k,1346) - lu(k,1362) = lu(k,1362) - lu(k,768) * lu(k,1346) - lu(k,1363) = lu(k,1363) - lu(k,769) * lu(k,1346) - lu(k,1364) = lu(k,1364) - lu(k,770) * lu(k,1346) - lu(k,1366) = lu(k,1366) - lu(k,771) * lu(k,1346) - lu(k,1367) = lu(k,1367) - lu(k,772) * lu(k,1346) - lu(k,1368) = lu(k,1368) - lu(k,773) * lu(k,1346) - lu(k,1369) = lu(k,1369) - lu(k,774) * lu(k,1346) - lu(k,1370) = lu(k,1370) - lu(k,775) * lu(k,1346) - lu(k,1371) = lu(k,1371) - lu(k,776) * lu(k,1346) - lu(k,1390) = lu(k,1390) - lu(k,756) * lu(k,1388) - lu(k,1391) = lu(k,1391) - lu(k,757) * lu(k,1388) - lu(k,1393) = lu(k,1393) - lu(k,758) * lu(k,1388) - lu(k,1394) = lu(k,1394) - lu(k,759) * lu(k,1388) - lu(k,1395) = lu(k,1395) - lu(k,760) * lu(k,1388) - lu(k,1396) = lu(k,1396) - lu(k,761) * lu(k,1388) - lu(k,1397) = lu(k,1397) - lu(k,762) * lu(k,1388) - lu(k,1399) = lu(k,1399) - lu(k,763) * lu(k,1388) - lu(k,1400) = lu(k,1400) - lu(k,764) * lu(k,1388) - lu(k,1401) = lu(k,1401) - lu(k,765) * lu(k,1388) - lu(k,1402) = lu(k,1402) - lu(k,766) * lu(k,1388) - lu(k,1403) = lu(k,1403) - lu(k,767) * lu(k,1388) - lu(k,1404) = lu(k,1404) - lu(k,768) * lu(k,1388) - lu(k,1405) = lu(k,1405) - lu(k,769) * lu(k,1388) - lu(k,1406) = lu(k,1406) - lu(k,770) * lu(k,1388) - lu(k,1408) = lu(k,1408) - lu(k,771) * lu(k,1388) - lu(k,1409) = lu(k,1409) - lu(k,772) * lu(k,1388) - lu(k,1410) = lu(k,1410) - lu(k,773) * lu(k,1388) - lu(k,1411) = lu(k,1411) - lu(k,774) * lu(k,1388) - lu(k,1412) = lu(k,1412) - lu(k,775) * lu(k,1388) - lu(k,1413) = lu(k,1413) - lu(k,776) * lu(k,1388) - lu(k,1428) = lu(k,1428) - lu(k,756) * lu(k,1426) - lu(k,1429) = lu(k,1429) - lu(k,757) * lu(k,1426) - lu(k,1431) = lu(k,1431) - lu(k,758) * lu(k,1426) - lu(k,1432) = lu(k,1432) - lu(k,759) * lu(k,1426) - lu(k,1433) = lu(k,1433) - lu(k,760) * lu(k,1426) - lu(k,1434) = lu(k,1434) - lu(k,761) * lu(k,1426) - lu(k,1435) = lu(k,1435) - lu(k,762) * lu(k,1426) - lu(k,1437) = lu(k,1437) - lu(k,763) * lu(k,1426) - lu(k,1438) = lu(k,1438) - lu(k,764) * lu(k,1426) - lu(k,1439) = lu(k,1439) - lu(k,765) * lu(k,1426) - lu(k,1440) = lu(k,1440) - lu(k,766) * lu(k,1426) - lu(k,1441) = lu(k,1441) - lu(k,767) * lu(k,1426) - lu(k,1442) = lu(k,1442) - lu(k,768) * lu(k,1426) - lu(k,1443) = lu(k,1443) - lu(k,769) * lu(k,1426) - lu(k,1444) = lu(k,1444) - lu(k,770) * lu(k,1426) - lu(k,1446) = lu(k,1446) - lu(k,771) * lu(k,1426) - lu(k,1447) = lu(k,1447) - lu(k,772) * lu(k,1426) - lu(k,1448) = lu(k,1448) - lu(k,773) * lu(k,1426) - lu(k,1449) = lu(k,1449) - lu(k,774) * lu(k,1426) - lu(k,1450) = lu(k,1450) - lu(k,775) * lu(k,1426) - lu(k,1451) = lu(k,1451) - lu(k,776) * lu(k,1426) - lu(k,1473) = lu(k,1473) - lu(k,756) * lu(k,1471) - lu(k,1474) = lu(k,1474) - lu(k,757) * lu(k,1471) - lu(k,1476) = lu(k,1476) - lu(k,758) * lu(k,1471) - lu(k,1477) = lu(k,1477) - lu(k,759) * lu(k,1471) - lu(k,1478) = lu(k,1478) - lu(k,760) * lu(k,1471) - lu(k,1479) = lu(k,1479) - lu(k,761) * lu(k,1471) - lu(k,1480) = lu(k,1480) - lu(k,762) * lu(k,1471) - lu(k,1482) = lu(k,1482) - lu(k,763) * lu(k,1471) - lu(k,1483) = lu(k,1483) - lu(k,764) * lu(k,1471) - lu(k,1484) = lu(k,1484) - lu(k,765) * lu(k,1471) - lu(k,1485) = lu(k,1485) - lu(k,766) * lu(k,1471) - lu(k,1486) = lu(k,1486) - lu(k,767) * lu(k,1471) - lu(k,1487) = lu(k,1487) - lu(k,768) * lu(k,1471) - lu(k,1488) = lu(k,1488) - lu(k,769) * lu(k,1471) - lu(k,1489) = lu(k,1489) - lu(k,770) * lu(k,1471) - lu(k,1491) = lu(k,1491) - lu(k,771) * lu(k,1471) - lu(k,1492) = lu(k,1492) - lu(k,772) * lu(k,1471) - lu(k,1493) = lu(k,1493) - lu(k,773) * lu(k,1471) - lu(k,1494) = lu(k,1494) - lu(k,774) * lu(k,1471) - lu(k,1495) = lu(k,1495) - lu(k,775) * lu(k,1471) - lu(k,1496) = lu(k,1496) - lu(k,776) * lu(k,1471) - lu(k,1516) = lu(k,1516) - lu(k,756) * lu(k,1514) - lu(k,1517) = lu(k,1517) - lu(k,757) * lu(k,1514) - lu(k,1519) = lu(k,1519) - lu(k,758) * lu(k,1514) - lu(k,1520) = lu(k,1520) - lu(k,759) * lu(k,1514) - lu(k,1521) = lu(k,1521) - lu(k,760) * lu(k,1514) - lu(k,1522) = lu(k,1522) - lu(k,761) * lu(k,1514) - lu(k,1523) = lu(k,1523) - lu(k,762) * lu(k,1514) - lu(k,1525) = lu(k,1525) - lu(k,763) * lu(k,1514) - lu(k,1526) = lu(k,1526) - lu(k,764) * lu(k,1514) - lu(k,1527) = lu(k,1527) - lu(k,765) * lu(k,1514) - lu(k,1528) = lu(k,1528) - lu(k,766) * lu(k,1514) - lu(k,1529) = lu(k,1529) - lu(k,767) * lu(k,1514) - lu(k,1530) = lu(k,1530) - lu(k,768) * lu(k,1514) - lu(k,1531) = lu(k,1531) - lu(k,769) * lu(k,1514) - lu(k,1532) = lu(k,1532) - lu(k,770) * lu(k,1514) - lu(k,1534) = lu(k,1534) - lu(k,771) * lu(k,1514) - lu(k,1535) = lu(k,1535) - lu(k,772) * lu(k,1514) - lu(k,1536) = lu(k,1536) - lu(k,773) * lu(k,1514) - lu(k,1537) = lu(k,1537) - lu(k,774) * lu(k,1514) - lu(k,1538) = lu(k,1538) - lu(k,775) * lu(k,1514) - lu(k,1539) = lu(k,1539) - lu(k,776) * lu(k,1514) - lu(k,1559) = lu(k,1559) - lu(k,756) * lu(k,1557) - lu(k,1560) = lu(k,1560) - lu(k,757) * lu(k,1557) - lu(k,1562) = lu(k,1562) - lu(k,758) * lu(k,1557) - lu(k,1563) = lu(k,1563) - lu(k,759) * lu(k,1557) - lu(k,1564) = lu(k,1564) - lu(k,760) * lu(k,1557) - lu(k,1565) = lu(k,1565) - lu(k,761) * lu(k,1557) - lu(k,1566) = lu(k,1566) - lu(k,762) * lu(k,1557) - lu(k,1568) = lu(k,1568) - lu(k,763) * lu(k,1557) - lu(k,1569) = lu(k,1569) - lu(k,764) * lu(k,1557) - lu(k,1570) = lu(k,1570) - lu(k,765) * lu(k,1557) - lu(k,1571) = lu(k,1571) - lu(k,766) * lu(k,1557) - lu(k,1572) = lu(k,1572) - lu(k,767) * lu(k,1557) - lu(k,1573) = lu(k,1573) - lu(k,768) * lu(k,1557) - lu(k,1574) = lu(k,1574) - lu(k,769) * lu(k,1557) - lu(k,1575) = lu(k,1575) - lu(k,770) * lu(k,1557) - lu(k,1577) = lu(k,1577) - lu(k,771) * lu(k,1557) - lu(k,1578) = lu(k,1578) - lu(k,772) * lu(k,1557) - lu(k,1579) = lu(k,1579) - lu(k,773) * lu(k,1557) - lu(k,1580) = lu(k,1580) - lu(k,774) * lu(k,1557) - lu(k,1581) = lu(k,1581) - lu(k,775) * lu(k,1557) - lu(k,1582) = lu(k,1582) - lu(k,776) * lu(k,1557) - lu(k,1592) = lu(k,1592) - lu(k,756) * lu(k,1590) - lu(k,1593) = lu(k,1593) - lu(k,757) * lu(k,1590) - lu(k,1595) = lu(k,1595) - lu(k,758) * lu(k,1590) - lu(k,1596) = lu(k,1596) - lu(k,759) * lu(k,1590) - lu(k,1597) = lu(k,1597) - lu(k,760) * lu(k,1590) - lu(k,1598) = lu(k,1598) - lu(k,761) * lu(k,1590) - lu(k,1599) = lu(k,1599) - lu(k,762) * lu(k,1590) - lu(k,1601) = lu(k,1601) - lu(k,763) * lu(k,1590) - lu(k,1602) = lu(k,1602) - lu(k,764) * lu(k,1590) - lu(k,1603) = lu(k,1603) - lu(k,765) * lu(k,1590) - lu(k,1604) = lu(k,1604) - lu(k,766) * lu(k,1590) - lu(k,1605) = lu(k,1605) - lu(k,767) * lu(k,1590) - lu(k,1606) = lu(k,1606) - lu(k,768) * lu(k,1590) - lu(k,1607) = lu(k,1607) - lu(k,769) * lu(k,1590) - lu(k,1608) = lu(k,1608) - lu(k,770) * lu(k,1590) - lu(k,1610) = lu(k,1610) - lu(k,771) * lu(k,1590) - lu(k,1611) = lu(k,1611) - lu(k,772) * lu(k,1590) - lu(k,1612) = lu(k,1612) - lu(k,773) * lu(k,1590) - lu(k,1613) = lu(k,1613) - lu(k,774) * lu(k,1590) - lu(k,1614) = lu(k,1614) - lu(k,775) * lu(k,1590) - lu(k,1615) = lu(k,1615) - lu(k,776) * lu(k,1590) - lu(k,1628) = lu(k,1628) - lu(k,756) * lu(k,1626) - lu(k,1629) = lu(k,1629) - lu(k,757) * lu(k,1626) - lu(k,1631) = lu(k,1631) - lu(k,758) * lu(k,1626) - lu(k,1632) = lu(k,1632) - lu(k,759) * lu(k,1626) - lu(k,1633) = lu(k,1633) - lu(k,760) * lu(k,1626) - lu(k,1634) = lu(k,1634) - lu(k,761) * lu(k,1626) - lu(k,1635) = lu(k,1635) - lu(k,762) * lu(k,1626) - lu(k,1637) = lu(k,1637) - lu(k,763) * lu(k,1626) - lu(k,1638) = lu(k,1638) - lu(k,764) * lu(k,1626) - lu(k,1639) = lu(k,1639) - lu(k,765) * lu(k,1626) - lu(k,1640) = lu(k,1640) - lu(k,766) * lu(k,1626) - lu(k,1641) = lu(k,1641) - lu(k,767) * lu(k,1626) - lu(k,1642) = lu(k,1642) - lu(k,768) * lu(k,1626) - lu(k,1643) = lu(k,1643) - lu(k,769) * lu(k,1626) - lu(k,1644) = lu(k,1644) - lu(k,770) * lu(k,1626) - lu(k,1646) = lu(k,1646) - lu(k,771) * lu(k,1626) - lu(k,1647) = lu(k,1647) - lu(k,772) * lu(k,1626) - lu(k,1648) = lu(k,1648) - lu(k,773) * lu(k,1626) - lu(k,1649) = lu(k,1649) - lu(k,774) * lu(k,1626) - lu(k,1650) = lu(k,1650) - lu(k,775) * lu(k,1626) - lu(k,1651) = lu(k,1651) - lu(k,776) * lu(k,1626) - lu(k,1671) = lu(k,1671) - lu(k,756) * lu(k,1669) - lu(k,1672) = lu(k,1672) - lu(k,757) * lu(k,1669) - lu(k,1674) = lu(k,1674) - lu(k,758) * lu(k,1669) - lu(k,1675) = lu(k,1675) - lu(k,759) * lu(k,1669) - lu(k,1676) = lu(k,1676) - lu(k,760) * lu(k,1669) - lu(k,1677) = lu(k,1677) - lu(k,761) * lu(k,1669) - lu(k,1678) = lu(k,1678) - lu(k,762) * lu(k,1669) - lu(k,1680) = lu(k,1680) - lu(k,763) * lu(k,1669) - lu(k,1681) = lu(k,1681) - lu(k,764) * lu(k,1669) - lu(k,1682) = lu(k,1682) - lu(k,765) * lu(k,1669) - lu(k,1683) = lu(k,1683) - lu(k,766) * lu(k,1669) - lu(k,1684) = lu(k,1684) - lu(k,767) * lu(k,1669) - lu(k,1685) = lu(k,1685) - lu(k,768) * lu(k,1669) - lu(k,1686) = lu(k,1686) - lu(k,769) * lu(k,1669) - lu(k,1687) = lu(k,1687) - lu(k,770) * lu(k,1669) - lu(k,1689) = lu(k,1689) - lu(k,771) * lu(k,1669) - lu(k,1690) = lu(k,1690) - lu(k,772) * lu(k,1669) - lu(k,1691) = lu(k,1691) - lu(k,773) * lu(k,1669) - lu(k,1692) = lu(k,1692) - lu(k,774) * lu(k,1669) - lu(k,1693) = lu(k,1693) - lu(k,775) * lu(k,1669) - lu(k,1694) = lu(k,1694) - lu(k,776) * lu(k,1669) - lu(k,1707) = lu(k,1707) - lu(k,756) * lu(k,1705) - lu(k,1708) = lu(k,1708) - lu(k,757) * lu(k,1705) - lu(k,1710) = lu(k,1710) - lu(k,758) * lu(k,1705) - lu(k,1711) = lu(k,1711) - lu(k,759) * lu(k,1705) - lu(k,1712) = lu(k,1712) - lu(k,760) * lu(k,1705) - lu(k,1713) = lu(k,1713) - lu(k,761) * lu(k,1705) - lu(k,1714) = lu(k,1714) - lu(k,762) * lu(k,1705) - lu(k,1716) = lu(k,1716) - lu(k,763) * lu(k,1705) - lu(k,1717) = lu(k,1717) - lu(k,764) * lu(k,1705) - lu(k,1718) = lu(k,1718) - lu(k,765) * lu(k,1705) - lu(k,1719) = lu(k,1719) - lu(k,766) * lu(k,1705) - lu(k,1720) = lu(k,1720) - lu(k,767) * lu(k,1705) - lu(k,1721) = lu(k,1721) - lu(k,768) * lu(k,1705) - lu(k,1722) = lu(k,1722) - lu(k,769) * lu(k,1705) - lu(k,1723) = lu(k,1723) - lu(k,770) * lu(k,1705) - lu(k,1725) = lu(k,1725) - lu(k,771) * lu(k,1705) - lu(k,1726) = lu(k,1726) - lu(k,772) * lu(k,1705) - lu(k,1727) = lu(k,1727) - lu(k,773) * lu(k,1705) - lu(k,1728) = lu(k,1728) - lu(k,774) * lu(k,1705) - lu(k,1729) = lu(k,1729) - lu(k,775) * lu(k,1705) - lu(k,1730) = lu(k,1730) - lu(k,776) * lu(k,1705) - lu(k,1749) = lu(k,1749) - lu(k,756) * lu(k,1747) - lu(k,1750) = lu(k,1750) - lu(k,757) * lu(k,1747) - lu(k,1752) = lu(k,1752) - lu(k,758) * lu(k,1747) - lu(k,1753) = lu(k,1753) - lu(k,759) * lu(k,1747) - lu(k,1754) = lu(k,1754) - lu(k,760) * lu(k,1747) - lu(k,1755) = lu(k,1755) - lu(k,761) * lu(k,1747) - lu(k,1756) = lu(k,1756) - lu(k,762) * lu(k,1747) - lu(k,1758) = lu(k,1758) - lu(k,763) * lu(k,1747) - lu(k,1759) = lu(k,1759) - lu(k,764) * lu(k,1747) - lu(k,1760) = lu(k,1760) - lu(k,765) * lu(k,1747) - lu(k,1761) = lu(k,1761) - lu(k,766) * lu(k,1747) - lu(k,1762) = lu(k,1762) - lu(k,767) * lu(k,1747) - lu(k,1763) = lu(k,1763) - lu(k,768) * lu(k,1747) - lu(k,1764) = lu(k,1764) - lu(k,769) * lu(k,1747) - lu(k,1765) = lu(k,1765) - lu(k,770) * lu(k,1747) - lu(k,1767) = lu(k,1767) - lu(k,771) * lu(k,1747) - lu(k,1768) = lu(k,1768) - lu(k,772) * lu(k,1747) - lu(k,1769) = lu(k,1769) - lu(k,773) * lu(k,1747) - lu(k,1770) = lu(k,1770) - lu(k,774) * lu(k,1747) - lu(k,1771) = lu(k,1771) - lu(k,775) * lu(k,1747) - lu(k,1772) = lu(k,1772) - lu(k,776) * lu(k,1747) - lu(k,1802) = lu(k,1802) - lu(k,756) * lu(k,1800) - lu(k,1803) = lu(k,1803) - lu(k,757) * lu(k,1800) - lu(k,1805) = lu(k,1805) - lu(k,758) * lu(k,1800) - lu(k,1806) = lu(k,1806) - lu(k,759) * lu(k,1800) - lu(k,1807) = lu(k,1807) - lu(k,760) * lu(k,1800) - lu(k,1808) = lu(k,1808) - lu(k,761) * lu(k,1800) - lu(k,1809) = lu(k,1809) - lu(k,762) * lu(k,1800) - lu(k,1811) = lu(k,1811) - lu(k,763) * lu(k,1800) - lu(k,1812) = lu(k,1812) - lu(k,764) * lu(k,1800) - lu(k,1813) = lu(k,1813) - lu(k,765) * lu(k,1800) - lu(k,1814) = lu(k,1814) - lu(k,766) * lu(k,1800) - lu(k,1815) = lu(k,1815) - lu(k,767) * lu(k,1800) - lu(k,1816) = lu(k,1816) - lu(k,768) * lu(k,1800) - lu(k,1817) = lu(k,1817) - lu(k,769) * lu(k,1800) - lu(k,1818) = lu(k,1818) - lu(k,770) * lu(k,1800) - lu(k,1820) = lu(k,1820) - lu(k,771) * lu(k,1800) - lu(k,1821) = lu(k,1821) - lu(k,772) * lu(k,1800) - lu(k,1822) = lu(k,1822) - lu(k,773) * lu(k,1800) - lu(k,1823) = lu(k,1823) - lu(k,774) * lu(k,1800) - lu(k,1824) = lu(k,1824) - lu(k,775) * lu(k,1800) - lu(k,1825) = lu(k,1825) - lu(k,776) * lu(k,1800) - lu(k,785) = 1._r8 / lu(k,785) - lu(k,786) = lu(k,786) * lu(k,785) - lu(k,787) = lu(k,787) * lu(k,785) - lu(k,788) = lu(k,788) * lu(k,785) - lu(k,789) = lu(k,789) * lu(k,785) - lu(k,790) = lu(k,790) * lu(k,785) - lu(k,791) = lu(k,791) * lu(k,785) - lu(k,792) = lu(k,792) * lu(k,785) - lu(k,793) = lu(k,793) * lu(k,785) - lu(k,794) = lu(k,794) * lu(k,785) - lu(k,795) = lu(k,795) * lu(k,785) - lu(k,796) = lu(k,796) * lu(k,785) - lu(k,797) = lu(k,797) * lu(k,785) - lu(k,798) = lu(k,798) * lu(k,785) - lu(k,799) = lu(k,799) * lu(k,785) - lu(k,800) = lu(k,800) * lu(k,785) - lu(k,801) = lu(k,801) * lu(k,785) - lu(k,802) = lu(k,802) * lu(k,785) - lu(k,803) = lu(k,803) * lu(k,785) - lu(k,804) = lu(k,804) * lu(k,785) - lu(k,805) = lu(k,805) * lu(k,785) - lu(k,806) = lu(k,806) * lu(k,785) - lu(k,807) = lu(k,807) * lu(k,785) - lu(k,808) = lu(k,808) * lu(k,785) - lu(k,809) = lu(k,809) * lu(k,785) - lu(k,829) = lu(k,829) - lu(k,786) * lu(k,828) - lu(k,830) = lu(k,830) - lu(k,787) * lu(k,828) - lu(k,831) = lu(k,831) - lu(k,788) * lu(k,828) - lu(k,832) = lu(k,832) - lu(k,789) * lu(k,828) - lu(k,833) = lu(k,833) - lu(k,790) * lu(k,828) - lu(k,834) = lu(k,834) - lu(k,791) * lu(k,828) - lu(k,835) = lu(k,835) - lu(k,792) * lu(k,828) - lu(k,836) = lu(k,836) - lu(k,793) * lu(k,828) - lu(k,837) = lu(k,837) - lu(k,794) * lu(k,828) - lu(k,838) = lu(k,838) - lu(k,795) * lu(k,828) - lu(k,839) = lu(k,839) - lu(k,796) * lu(k,828) - lu(k,840) = lu(k,840) - lu(k,797) * lu(k,828) - lu(k,841) = lu(k,841) - lu(k,798) * lu(k,828) - lu(k,842) = lu(k,842) - lu(k,799) * lu(k,828) - lu(k,843) = lu(k,843) - lu(k,800) * lu(k,828) - lu(k,844) = lu(k,844) - lu(k,801) * lu(k,828) - lu(k,845) = lu(k,845) - lu(k,802) * lu(k,828) - lu(k,846) = lu(k,846) - lu(k,803) * lu(k,828) - lu(k,847) = lu(k,847) - lu(k,804) * lu(k,828) - lu(k,848) = lu(k,848) - lu(k,805) * lu(k,828) - lu(k,849) = lu(k,849) - lu(k,806) * lu(k,828) - lu(k,850) = lu(k,850) - lu(k,807) * lu(k,828) - lu(k,851) = lu(k,851) - lu(k,808) * lu(k,828) - lu(k,852) = lu(k,852) - lu(k,809) * lu(k,828) - lu(k,877) = lu(k,877) - lu(k,786) * lu(k,876) - lu(k,878) = lu(k,878) - lu(k,787) * lu(k,876) - lu(k,879) = lu(k,879) - lu(k,788) * lu(k,876) - lu(k,880) = lu(k,880) - lu(k,789) * lu(k,876) - lu(k,881) = lu(k,881) - lu(k,790) * lu(k,876) - lu(k,882) = lu(k,882) - lu(k,791) * lu(k,876) - lu(k,883) = lu(k,883) - lu(k,792) * lu(k,876) - lu(k,884) = lu(k,884) - lu(k,793) * lu(k,876) - lu(k,885) = lu(k,885) - lu(k,794) * lu(k,876) - lu(k,886) = lu(k,886) - lu(k,795) * lu(k,876) - lu(k,887) = lu(k,887) - lu(k,796) * lu(k,876) - lu(k,888) = lu(k,888) - lu(k,797) * lu(k,876) - lu(k,889) = lu(k,889) - lu(k,798) * lu(k,876) - lu(k,890) = lu(k,890) - lu(k,799) * lu(k,876) - lu(k,891) = lu(k,891) - lu(k,800) * lu(k,876) - lu(k,892) = lu(k,892) - lu(k,801) * lu(k,876) - lu(k,893) = lu(k,893) - lu(k,802) * lu(k,876) - lu(k,894) = lu(k,894) - lu(k,803) * lu(k,876) - lu(k,895) = lu(k,895) - lu(k,804) * lu(k,876) - lu(k,896) = lu(k,896) - lu(k,805) * lu(k,876) - lu(k,897) = lu(k,897) - lu(k,806) * lu(k,876) - lu(k,898) = lu(k,898) - lu(k,807) * lu(k,876) - lu(k,899) = lu(k,899) - lu(k,808) * lu(k,876) - lu(k,900) = lu(k,900) - lu(k,809) * lu(k,876) - lu(k,920) = lu(k,920) - lu(k,786) * lu(k,919) - lu(k,921) = lu(k,921) - lu(k,787) * lu(k,919) - lu(k,922) = lu(k,922) - lu(k,788) * lu(k,919) - lu(k,923) = lu(k,923) - lu(k,789) * lu(k,919) - lu(k,924) = lu(k,924) - lu(k,790) * lu(k,919) - lu(k,925) = lu(k,925) - lu(k,791) * lu(k,919) - lu(k,926) = lu(k,926) - lu(k,792) * lu(k,919) - lu(k,927) = lu(k,927) - lu(k,793) * lu(k,919) - lu(k,928) = lu(k,928) - lu(k,794) * lu(k,919) - lu(k,929) = lu(k,929) - lu(k,795) * lu(k,919) - lu(k,930) = lu(k,930) - lu(k,796) * lu(k,919) - lu(k,931) = lu(k,931) - lu(k,797) * lu(k,919) - lu(k,932) = lu(k,932) - lu(k,798) * lu(k,919) - lu(k,933) = lu(k,933) - lu(k,799) * lu(k,919) - lu(k,934) = lu(k,934) - lu(k,800) * lu(k,919) - lu(k,935) = lu(k,935) - lu(k,801) * lu(k,919) - lu(k,936) = lu(k,936) - lu(k,802) * lu(k,919) - lu(k,937) = lu(k,937) - lu(k,803) * lu(k,919) - lu(k,938) = lu(k,938) - lu(k,804) * lu(k,919) - lu(k,939) = lu(k,939) - lu(k,805) * lu(k,919) - lu(k,940) = lu(k,940) - lu(k,806) * lu(k,919) - lu(k,941) = lu(k,941) - lu(k,807) * lu(k,919) - lu(k,942) = lu(k,942) - lu(k,808) * lu(k,919) - lu(k,943) = lu(k,943) - lu(k,809) * lu(k,919) - lu(k,976) = lu(k,976) - lu(k,786) * lu(k,975) - lu(k,977) = lu(k,977) - lu(k,787) * lu(k,975) - lu(k,978) = lu(k,978) - lu(k,788) * lu(k,975) - lu(k,979) = lu(k,979) - lu(k,789) * lu(k,975) - lu(k,980) = lu(k,980) - lu(k,790) * lu(k,975) - lu(k,981) = lu(k,981) - lu(k,791) * lu(k,975) - lu(k,982) = lu(k,982) - lu(k,792) * lu(k,975) - lu(k,983) = lu(k,983) - lu(k,793) * lu(k,975) - lu(k,984) = lu(k,984) - lu(k,794) * lu(k,975) - lu(k,985) = lu(k,985) - lu(k,795) * lu(k,975) - lu(k,986) = lu(k,986) - lu(k,796) * lu(k,975) - lu(k,987) = lu(k,987) - lu(k,797) * lu(k,975) - lu(k,988) = lu(k,988) - lu(k,798) * lu(k,975) - lu(k,989) = lu(k,989) - lu(k,799) * lu(k,975) - lu(k,990) = lu(k,990) - lu(k,800) * lu(k,975) - lu(k,991) = lu(k,991) - lu(k,801) * lu(k,975) - lu(k,992) = lu(k,992) - lu(k,802) * lu(k,975) - lu(k,993) = lu(k,993) - lu(k,803) * lu(k,975) - lu(k,994) = lu(k,994) - lu(k,804) * lu(k,975) - lu(k,995) = lu(k,995) - lu(k,805) * lu(k,975) - lu(k,996) = lu(k,996) - lu(k,806) * lu(k,975) - lu(k,997) = lu(k,997) - lu(k,807) * lu(k,975) - lu(k,998) = lu(k,998) - lu(k,808) * lu(k,975) - lu(k,999) = lu(k,999) - lu(k,809) * lu(k,975) - lu(k,1061) = lu(k,1061) - lu(k,786) * lu(k,1060) - lu(k,1062) = lu(k,1062) - lu(k,787) * lu(k,1060) - lu(k,1063) = lu(k,1063) - lu(k,788) * lu(k,1060) - lu(k,1064) = lu(k,1064) - lu(k,789) * lu(k,1060) - lu(k,1065) = lu(k,1065) - lu(k,790) * lu(k,1060) - lu(k,1066) = lu(k,1066) - lu(k,791) * lu(k,1060) - lu(k,1067) = lu(k,1067) - lu(k,792) * lu(k,1060) - lu(k,1068) = lu(k,1068) - lu(k,793) * lu(k,1060) - lu(k,1069) = lu(k,1069) - lu(k,794) * lu(k,1060) - lu(k,1070) = lu(k,1070) - lu(k,795) * lu(k,1060) - lu(k,1071) = lu(k,1071) - lu(k,796) * lu(k,1060) - lu(k,1072) = lu(k,1072) - lu(k,797) * lu(k,1060) - lu(k,1073) = lu(k,1073) - lu(k,798) * lu(k,1060) - lu(k,1074) = lu(k,1074) - lu(k,799) * lu(k,1060) - lu(k,1075) = lu(k,1075) - lu(k,800) * lu(k,1060) - lu(k,1076) = lu(k,1076) - lu(k,801) * lu(k,1060) - lu(k,1077) = lu(k,1077) - lu(k,802) * lu(k,1060) - lu(k,1078) = lu(k,1078) - lu(k,803) * lu(k,1060) - lu(k,1079) = lu(k,1079) - lu(k,804) * lu(k,1060) - lu(k,1080) = lu(k,1080) - lu(k,805) * lu(k,1060) - lu(k,1081) = lu(k,1081) - lu(k,806) * lu(k,1060) - lu(k,1082) = lu(k,1082) - lu(k,807) * lu(k,1060) - lu(k,1083) = lu(k,1083) - lu(k,808) * lu(k,1060) - lu(k,1084) = lu(k,1084) - lu(k,809) * lu(k,1060) - lu(k,1101) = lu(k,1101) - lu(k,786) * lu(k,1100) - lu(k,1102) = lu(k,1102) - lu(k,787) * lu(k,1100) - lu(k,1103) = lu(k,1103) - lu(k,788) * lu(k,1100) - lu(k,1104) = lu(k,1104) - lu(k,789) * lu(k,1100) - lu(k,1105) = lu(k,1105) - lu(k,790) * lu(k,1100) - lu(k,1106) = lu(k,1106) - lu(k,791) * lu(k,1100) - lu(k,1107) = lu(k,1107) - lu(k,792) * lu(k,1100) - lu(k,1108) = lu(k,1108) - lu(k,793) * lu(k,1100) - lu(k,1109) = lu(k,1109) - lu(k,794) * lu(k,1100) - lu(k,1110) = lu(k,1110) - lu(k,795) * lu(k,1100) - lu(k,1111) = lu(k,1111) - lu(k,796) * lu(k,1100) - lu(k,1112) = lu(k,1112) - lu(k,797) * lu(k,1100) - lu(k,1113) = lu(k,1113) - lu(k,798) * lu(k,1100) - lu(k,1114) = lu(k,1114) - lu(k,799) * lu(k,1100) - lu(k,1115) = lu(k,1115) - lu(k,800) * lu(k,1100) - lu(k,1116) = lu(k,1116) - lu(k,801) * lu(k,1100) - lu(k,1117) = lu(k,1117) - lu(k,802) * lu(k,1100) - lu(k,1118) = lu(k,1118) - lu(k,803) * lu(k,1100) - lu(k,1119) = lu(k,1119) - lu(k,804) * lu(k,1100) - lu(k,1120) = lu(k,1120) - lu(k,805) * lu(k,1100) - lu(k,1121) = lu(k,1121) - lu(k,806) * lu(k,1100) - lu(k,1122) = lu(k,1122) - lu(k,807) * lu(k,1100) - lu(k,1123) = lu(k,1123) - lu(k,808) * lu(k,1100) - lu(k,1124) = lu(k,1124) - lu(k,809) * lu(k,1100) - lu(k,1146) = lu(k,1146) - lu(k,786) * lu(k,1145) - lu(k,1147) = lu(k,1147) - lu(k,787) * lu(k,1145) - lu(k,1148) = lu(k,1148) - lu(k,788) * lu(k,1145) - lu(k,1149) = lu(k,1149) - lu(k,789) * lu(k,1145) - lu(k,1150) = lu(k,1150) - lu(k,790) * lu(k,1145) - lu(k,1151) = lu(k,1151) - lu(k,791) * lu(k,1145) - lu(k,1152) = lu(k,1152) - lu(k,792) * lu(k,1145) - lu(k,1153) = lu(k,1153) - lu(k,793) * lu(k,1145) - lu(k,1154) = lu(k,1154) - lu(k,794) * lu(k,1145) - lu(k,1155) = lu(k,1155) - lu(k,795) * lu(k,1145) - lu(k,1156) = lu(k,1156) - lu(k,796) * lu(k,1145) - lu(k,1157) = lu(k,1157) - lu(k,797) * lu(k,1145) - lu(k,1158) = lu(k,1158) - lu(k,798) * lu(k,1145) - lu(k,1159) = lu(k,1159) - lu(k,799) * lu(k,1145) - lu(k,1160) = lu(k,1160) - lu(k,800) * lu(k,1145) - lu(k,1161) = lu(k,1161) - lu(k,801) * lu(k,1145) - lu(k,1162) = lu(k,1162) - lu(k,802) * lu(k,1145) - lu(k,1163) = lu(k,1163) - lu(k,803) * lu(k,1145) - lu(k,1164) = lu(k,1164) - lu(k,804) * lu(k,1145) - lu(k,1165) = lu(k,1165) - lu(k,805) * lu(k,1145) - lu(k,1166) = lu(k,1166) - lu(k,806) * lu(k,1145) - lu(k,1167) = lu(k,1167) - lu(k,807) * lu(k,1145) - lu(k,1168) = lu(k,1168) - lu(k,808) * lu(k,1145) - lu(k,1169) = lu(k,1169) - lu(k,809) * lu(k,1145) - lu(k,1189) = lu(k,1189) - lu(k,786) * lu(k,1188) - lu(k,1190) = lu(k,1190) - lu(k,787) * lu(k,1188) - lu(k,1191) = lu(k,1191) - lu(k,788) * lu(k,1188) - lu(k,1192) = lu(k,1192) - lu(k,789) * lu(k,1188) - lu(k,1193) = lu(k,1193) - lu(k,790) * lu(k,1188) - lu(k,1194) = lu(k,1194) - lu(k,791) * lu(k,1188) - lu(k,1195) = lu(k,1195) - lu(k,792) * lu(k,1188) - lu(k,1196) = lu(k,1196) - lu(k,793) * lu(k,1188) - lu(k,1197) = lu(k,1197) - lu(k,794) * lu(k,1188) - lu(k,1198) = lu(k,1198) - lu(k,795) * lu(k,1188) - lu(k,1199) = lu(k,1199) - lu(k,796) * lu(k,1188) - lu(k,1200) = lu(k,1200) - lu(k,797) * lu(k,1188) - lu(k,1201) = lu(k,1201) - lu(k,798) * lu(k,1188) - lu(k,1202) = lu(k,1202) - lu(k,799) * lu(k,1188) - lu(k,1203) = lu(k,1203) - lu(k,800) * lu(k,1188) - lu(k,1204) = lu(k,1204) - lu(k,801) * lu(k,1188) - lu(k,1205) = lu(k,1205) - lu(k,802) * lu(k,1188) - lu(k,1206) = lu(k,1206) - lu(k,803) * lu(k,1188) - lu(k,1207) = lu(k,1207) - lu(k,804) * lu(k,1188) - lu(k,1208) = lu(k,1208) - lu(k,805) * lu(k,1188) - lu(k,1209) = lu(k,1209) - lu(k,806) * lu(k,1188) - lu(k,1210) = lu(k,1210) - lu(k,807) * lu(k,1188) - lu(k,1211) = lu(k,1211) - lu(k,808) * lu(k,1188) - lu(k,1212) = lu(k,1212) - lu(k,809) * lu(k,1188) - lu(k,1267) = lu(k,1267) - lu(k,786) * lu(k,1266) - lu(k,1268) = lu(k,1268) - lu(k,787) * lu(k,1266) - lu(k,1269) = lu(k,1269) - lu(k,788) * lu(k,1266) - lu(k,1270) = lu(k,1270) - lu(k,789) * lu(k,1266) - lu(k,1271) = lu(k,1271) - lu(k,790) * lu(k,1266) - lu(k,1272) = lu(k,1272) - lu(k,791) * lu(k,1266) - lu(k,1273) = lu(k,1273) - lu(k,792) * lu(k,1266) - lu(k,1274) = lu(k,1274) - lu(k,793) * lu(k,1266) - lu(k,1275) = lu(k,1275) - lu(k,794) * lu(k,1266) - lu(k,1276) = lu(k,1276) - lu(k,795) * lu(k,1266) - lu(k,1277) = lu(k,1277) - lu(k,796) * lu(k,1266) - lu(k,1278) = lu(k,1278) - lu(k,797) * lu(k,1266) - lu(k,1279) = lu(k,1279) - lu(k,798) * lu(k,1266) - lu(k,1280) = lu(k,1280) - lu(k,799) * lu(k,1266) - lu(k,1281) = lu(k,1281) - lu(k,800) * lu(k,1266) - lu(k,1282) = lu(k,1282) - lu(k,801) * lu(k,1266) - lu(k,1283) = lu(k,1283) - lu(k,802) * lu(k,1266) - lu(k,1284) = lu(k,1284) - lu(k,803) * lu(k,1266) - lu(k,1285) = lu(k,1285) - lu(k,804) * lu(k,1266) - lu(k,1286) = lu(k,1286) - lu(k,805) * lu(k,1266) - lu(k,1287) = lu(k,1287) - lu(k,806) * lu(k,1266) - lu(k,1288) = lu(k,1288) - lu(k,807) * lu(k,1266) - lu(k,1289) = lu(k,1289) - lu(k,808) * lu(k,1266) - lu(k,1290) = lu(k,1290) - lu(k,809) * lu(k,1266) - lu(k,1303) = lu(k,1303) - lu(k,786) * lu(k,1302) - lu(k,1304) = lu(k,1304) - lu(k,787) * lu(k,1302) - lu(k,1305) = lu(k,1305) - lu(k,788) * lu(k,1302) - lu(k,1306) = lu(k,1306) - lu(k,789) * lu(k,1302) - lu(k,1307) = lu(k,1307) - lu(k,790) * lu(k,1302) - lu(k,1308) = lu(k,1308) - lu(k,791) * lu(k,1302) - lu(k,1309) = lu(k,1309) - lu(k,792) * lu(k,1302) - lu(k,1310) = lu(k,1310) - lu(k,793) * lu(k,1302) - lu(k,1311) = lu(k,1311) - lu(k,794) * lu(k,1302) - lu(k,1312) = lu(k,1312) - lu(k,795) * lu(k,1302) - lu(k,1313) = lu(k,1313) - lu(k,796) * lu(k,1302) - lu(k,1314) = lu(k,1314) - lu(k,797) * lu(k,1302) - lu(k,1315) = lu(k,1315) - lu(k,798) * lu(k,1302) - lu(k,1316) = lu(k,1316) - lu(k,799) * lu(k,1302) - lu(k,1317) = lu(k,1317) - lu(k,800) * lu(k,1302) - lu(k,1318) = lu(k,1318) - lu(k,801) * lu(k,1302) - lu(k,1319) = lu(k,1319) - lu(k,802) * lu(k,1302) - lu(k,1320) = lu(k,1320) - lu(k,803) * lu(k,1302) - lu(k,1321) = lu(k,1321) - lu(k,804) * lu(k,1302) - lu(k,1322) = lu(k,1322) - lu(k,805) * lu(k,1302) - lu(k,1323) = lu(k,1323) - lu(k,806) * lu(k,1302) - lu(k,1324) = lu(k,1324) - lu(k,807) * lu(k,1302) - lu(k,1325) = lu(k,1325) - lu(k,808) * lu(k,1302) - lu(k,1326) = lu(k,1326) - lu(k,809) * lu(k,1302) - lu(k,1348) = lu(k,1348) - lu(k,786) * lu(k,1347) - lu(k,1349) = lu(k,1349) - lu(k,787) * lu(k,1347) - lu(k,1350) = lu(k,1350) - lu(k,788) * lu(k,1347) - lu(k,1351) = lu(k,1351) - lu(k,789) * lu(k,1347) - lu(k,1352) = lu(k,1352) - lu(k,790) * lu(k,1347) - lu(k,1353) = lu(k,1353) - lu(k,791) * lu(k,1347) - lu(k,1354) = lu(k,1354) - lu(k,792) * lu(k,1347) - lu(k,1355) = lu(k,1355) - lu(k,793) * lu(k,1347) - lu(k,1356) = lu(k,1356) - lu(k,794) * lu(k,1347) - lu(k,1357) = lu(k,1357) - lu(k,795) * lu(k,1347) - lu(k,1358) = lu(k,1358) - lu(k,796) * lu(k,1347) - lu(k,1359) = lu(k,1359) - lu(k,797) * lu(k,1347) - lu(k,1360) = lu(k,1360) - lu(k,798) * lu(k,1347) - lu(k,1361) = lu(k,1361) - lu(k,799) * lu(k,1347) - lu(k,1362) = lu(k,1362) - lu(k,800) * lu(k,1347) - lu(k,1363) = lu(k,1363) - lu(k,801) * lu(k,1347) - lu(k,1364) = lu(k,1364) - lu(k,802) * lu(k,1347) - lu(k,1365) = lu(k,1365) - lu(k,803) * lu(k,1347) - lu(k,1366) = lu(k,1366) - lu(k,804) * lu(k,1347) - lu(k,1367) = lu(k,1367) - lu(k,805) * lu(k,1347) - lu(k,1368) = lu(k,1368) - lu(k,806) * lu(k,1347) - lu(k,1369) = lu(k,1369) - lu(k,807) * lu(k,1347) - lu(k,1370) = lu(k,1370) - lu(k,808) * lu(k,1347) - lu(k,1371) = lu(k,1371) - lu(k,809) * lu(k,1347) - lu(k,1390) = lu(k,1390) - lu(k,786) * lu(k,1389) - lu(k,1391) = lu(k,1391) - lu(k,787) * lu(k,1389) - lu(k,1392) = lu(k,1392) - lu(k,788) * lu(k,1389) - lu(k,1393) = lu(k,1393) - lu(k,789) * lu(k,1389) - lu(k,1394) = lu(k,1394) - lu(k,790) * lu(k,1389) - lu(k,1395) = lu(k,1395) - lu(k,791) * lu(k,1389) - lu(k,1396) = lu(k,1396) - lu(k,792) * lu(k,1389) - lu(k,1397) = lu(k,1397) - lu(k,793) * lu(k,1389) - lu(k,1398) = lu(k,1398) - lu(k,794) * lu(k,1389) - lu(k,1399) = lu(k,1399) - lu(k,795) * lu(k,1389) - lu(k,1400) = lu(k,1400) - lu(k,796) * lu(k,1389) - lu(k,1401) = lu(k,1401) - lu(k,797) * lu(k,1389) - lu(k,1402) = lu(k,1402) - lu(k,798) * lu(k,1389) - lu(k,1403) = lu(k,1403) - lu(k,799) * lu(k,1389) - lu(k,1404) = lu(k,1404) - lu(k,800) * lu(k,1389) - lu(k,1405) = lu(k,1405) - lu(k,801) * lu(k,1389) - lu(k,1406) = lu(k,1406) - lu(k,802) * lu(k,1389) - lu(k,1407) = lu(k,1407) - lu(k,803) * lu(k,1389) - lu(k,1408) = lu(k,1408) - lu(k,804) * lu(k,1389) - lu(k,1409) = lu(k,1409) - lu(k,805) * lu(k,1389) - lu(k,1410) = lu(k,1410) - lu(k,806) * lu(k,1389) - lu(k,1411) = lu(k,1411) - lu(k,807) * lu(k,1389) - lu(k,1412) = lu(k,1412) - lu(k,808) * lu(k,1389) - lu(k,1413) = lu(k,1413) - lu(k,809) * lu(k,1389) - lu(k,1428) = lu(k,1428) - lu(k,786) * lu(k,1427) - lu(k,1429) = lu(k,1429) - lu(k,787) * lu(k,1427) - lu(k,1430) = lu(k,1430) - lu(k,788) * lu(k,1427) - lu(k,1431) = lu(k,1431) - lu(k,789) * lu(k,1427) - lu(k,1432) = lu(k,1432) - lu(k,790) * lu(k,1427) - lu(k,1433) = lu(k,1433) - lu(k,791) * lu(k,1427) - lu(k,1434) = lu(k,1434) - lu(k,792) * lu(k,1427) - lu(k,1435) = lu(k,1435) - lu(k,793) * lu(k,1427) - lu(k,1436) = lu(k,1436) - lu(k,794) * lu(k,1427) - lu(k,1437) = lu(k,1437) - lu(k,795) * lu(k,1427) - lu(k,1438) = lu(k,1438) - lu(k,796) * lu(k,1427) - lu(k,1439) = lu(k,1439) - lu(k,797) * lu(k,1427) - lu(k,1440) = lu(k,1440) - lu(k,798) * lu(k,1427) - lu(k,1441) = lu(k,1441) - lu(k,799) * lu(k,1427) - lu(k,1442) = lu(k,1442) - lu(k,800) * lu(k,1427) - lu(k,1443) = lu(k,1443) - lu(k,801) * lu(k,1427) - lu(k,1444) = lu(k,1444) - lu(k,802) * lu(k,1427) - lu(k,1445) = lu(k,1445) - lu(k,803) * lu(k,1427) - lu(k,1446) = lu(k,1446) - lu(k,804) * lu(k,1427) - lu(k,1447) = lu(k,1447) - lu(k,805) * lu(k,1427) - lu(k,1448) = lu(k,1448) - lu(k,806) * lu(k,1427) - lu(k,1449) = lu(k,1449) - lu(k,807) * lu(k,1427) - lu(k,1450) = lu(k,1450) - lu(k,808) * lu(k,1427) - lu(k,1451) = lu(k,1451) - lu(k,809) * lu(k,1427) - lu(k,1473) = lu(k,1473) - lu(k,786) * lu(k,1472) - lu(k,1474) = lu(k,1474) - lu(k,787) * lu(k,1472) - lu(k,1475) = lu(k,1475) - lu(k,788) * lu(k,1472) - lu(k,1476) = lu(k,1476) - lu(k,789) * lu(k,1472) - lu(k,1477) = lu(k,1477) - lu(k,790) * lu(k,1472) - lu(k,1478) = lu(k,1478) - lu(k,791) * lu(k,1472) - lu(k,1479) = lu(k,1479) - lu(k,792) * lu(k,1472) - lu(k,1480) = lu(k,1480) - lu(k,793) * lu(k,1472) - lu(k,1481) = lu(k,1481) - lu(k,794) * lu(k,1472) - lu(k,1482) = lu(k,1482) - lu(k,795) * lu(k,1472) - lu(k,1483) = lu(k,1483) - lu(k,796) * lu(k,1472) - lu(k,1484) = lu(k,1484) - lu(k,797) * lu(k,1472) - lu(k,1485) = lu(k,1485) - lu(k,798) * lu(k,1472) - lu(k,1486) = lu(k,1486) - lu(k,799) * lu(k,1472) - lu(k,1487) = lu(k,1487) - lu(k,800) * lu(k,1472) - lu(k,1488) = lu(k,1488) - lu(k,801) * lu(k,1472) - lu(k,1489) = lu(k,1489) - lu(k,802) * lu(k,1472) - lu(k,1490) = lu(k,1490) - lu(k,803) * lu(k,1472) - lu(k,1491) = lu(k,1491) - lu(k,804) * lu(k,1472) - lu(k,1492) = lu(k,1492) - lu(k,805) * lu(k,1472) - lu(k,1493) = lu(k,1493) - lu(k,806) * lu(k,1472) - lu(k,1494) = lu(k,1494) - lu(k,807) * lu(k,1472) - lu(k,1495) = lu(k,1495) - lu(k,808) * lu(k,1472) - lu(k,1496) = lu(k,1496) - lu(k,809) * lu(k,1472) - lu(k,1516) = lu(k,1516) - lu(k,786) * lu(k,1515) - lu(k,1517) = lu(k,1517) - lu(k,787) * lu(k,1515) - lu(k,1518) = lu(k,1518) - lu(k,788) * lu(k,1515) - lu(k,1519) = lu(k,1519) - lu(k,789) * lu(k,1515) - lu(k,1520) = lu(k,1520) - lu(k,790) * lu(k,1515) - lu(k,1521) = lu(k,1521) - lu(k,791) * lu(k,1515) - lu(k,1522) = lu(k,1522) - lu(k,792) * lu(k,1515) - lu(k,1523) = lu(k,1523) - lu(k,793) * lu(k,1515) - lu(k,1524) = lu(k,1524) - lu(k,794) * lu(k,1515) - lu(k,1525) = lu(k,1525) - lu(k,795) * lu(k,1515) - lu(k,1526) = lu(k,1526) - lu(k,796) * lu(k,1515) - lu(k,1527) = lu(k,1527) - lu(k,797) * lu(k,1515) - lu(k,1528) = lu(k,1528) - lu(k,798) * lu(k,1515) - lu(k,1529) = lu(k,1529) - lu(k,799) * lu(k,1515) - lu(k,1530) = lu(k,1530) - lu(k,800) * lu(k,1515) - lu(k,1531) = lu(k,1531) - lu(k,801) * lu(k,1515) - lu(k,1532) = lu(k,1532) - lu(k,802) * lu(k,1515) - lu(k,1533) = lu(k,1533) - lu(k,803) * lu(k,1515) - lu(k,1534) = lu(k,1534) - lu(k,804) * lu(k,1515) - lu(k,1535) = lu(k,1535) - lu(k,805) * lu(k,1515) - lu(k,1536) = lu(k,1536) - lu(k,806) * lu(k,1515) - lu(k,1537) = lu(k,1537) - lu(k,807) * lu(k,1515) - lu(k,1538) = lu(k,1538) - lu(k,808) * lu(k,1515) - lu(k,1539) = lu(k,1539) - lu(k,809) * lu(k,1515) - lu(k,1559) = lu(k,1559) - lu(k,786) * lu(k,1558) - lu(k,1560) = lu(k,1560) - lu(k,787) * lu(k,1558) - lu(k,1561) = lu(k,1561) - lu(k,788) * lu(k,1558) - lu(k,1562) = lu(k,1562) - lu(k,789) * lu(k,1558) - lu(k,1563) = lu(k,1563) - lu(k,790) * lu(k,1558) - lu(k,1564) = lu(k,1564) - lu(k,791) * lu(k,1558) - lu(k,1565) = lu(k,1565) - lu(k,792) * lu(k,1558) - lu(k,1566) = lu(k,1566) - lu(k,793) * lu(k,1558) - lu(k,1567) = lu(k,1567) - lu(k,794) * lu(k,1558) - lu(k,1568) = lu(k,1568) - lu(k,795) * lu(k,1558) - lu(k,1569) = lu(k,1569) - lu(k,796) * lu(k,1558) - lu(k,1570) = lu(k,1570) - lu(k,797) * lu(k,1558) - lu(k,1571) = lu(k,1571) - lu(k,798) * lu(k,1558) - lu(k,1572) = lu(k,1572) - lu(k,799) * lu(k,1558) - lu(k,1573) = lu(k,1573) - lu(k,800) * lu(k,1558) - lu(k,1574) = lu(k,1574) - lu(k,801) * lu(k,1558) - lu(k,1575) = lu(k,1575) - lu(k,802) * lu(k,1558) - lu(k,1576) = lu(k,1576) - lu(k,803) * lu(k,1558) - lu(k,1577) = lu(k,1577) - lu(k,804) * lu(k,1558) - lu(k,1578) = lu(k,1578) - lu(k,805) * lu(k,1558) - lu(k,1579) = lu(k,1579) - lu(k,806) * lu(k,1558) - lu(k,1580) = lu(k,1580) - lu(k,807) * lu(k,1558) - lu(k,1581) = lu(k,1581) - lu(k,808) * lu(k,1558) - lu(k,1582) = lu(k,1582) - lu(k,809) * lu(k,1558) - lu(k,1592) = lu(k,1592) - lu(k,786) * lu(k,1591) - lu(k,1593) = lu(k,1593) - lu(k,787) * lu(k,1591) - lu(k,1594) = lu(k,1594) - lu(k,788) * lu(k,1591) - lu(k,1595) = lu(k,1595) - lu(k,789) * lu(k,1591) - lu(k,1596) = lu(k,1596) - lu(k,790) * lu(k,1591) - lu(k,1597) = lu(k,1597) - lu(k,791) * lu(k,1591) - lu(k,1598) = lu(k,1598) - lu(k,792) * lu(k,1591) - lu(k,1599) = lu(k,1599) - lu(k,793) * lu(k,1591) - lu(k,1600) = lu(k,1600) - lu(k,794) * lu(k,1591) - lu(k,1601) = lu(k,1601) - lu(k,795) * lu(k,1591) - lu(k,1602) = lu(k,1602) - lu(k,796) * lu(k,1591) - lu(k,1603) = lu(k,1603) - lu(k,797) * lu(k,1591) - lu(k,1604) = lu(k,1604) - lu(k,798) * lu(k,1591) - lu(k,1605) = lu(k,1605) - lu(k,799) * lu(k,1591) - lu(k,1606) = lu(k,1606) - lu(k,800) * lu(k,1591) - lu(k,1607) = lu(k,1607) - lu(k,801) * lu(k,1591) - lu(k,1608) = lu(k,1608) - lu(k,802) * lu(k,1591) - lu(k,1609) = lu(k,1609) - lu(k,803) * lu(k,1591) - lu(k,1610) = lu(k,1610) - lu(k,804) * lu(k,1591) - lu(k,1611) = lu(k,1611) - lu(k,805) * lu(k,1591) - lu(k,1612) = lu(k,1612) - lu(k,806) * lu(k,1591) - lu(k,1613) = lu(k,1613) - lu(k,807) * lu(k,1591) - lu(k,1614) = lu(k,1614) - lu(k,808) * lu(k,1591) - lu(k,1615) = lu(k,1615) - lu(k,809) * lu(k,1591) - lu(k,1628) = lu(k,1628) - lu(k,786) * lu(k,1627) - lu(k,1629) = lu(k,1629) - lu(k,787) * lu(k,1627) - lu(k,1630) = lu(k,1630) - lu(k,788) * lu(k,1627) - lu(k,1631) = lu(k,1631) - lu(k,789) * lu(k,1627) - lu(k,1632) = lu(k,1632) - lu(k,790) * lu(k,1627) - lu(k,1633) = lu(k,1633) - lu(k,791) * lu(k,1627) - lu(k,1634) = lu(k,1634) - lu(k,792) * lu(k,1627) - lu(k,1635) = lu(k,1635) - lu(k,793) * lu(k,1627) - lu(k,1636) = lu(k,1636) - lu(k,794) * lu(k,1627) - lu(k,1637) = lu(k,1637) - lu(k,795) * lu(k,1627) - lu(k,1638) = lu(k,1638) - lu(k,796) * lu(k,1627) - lu(k,1639) = lu(k,1639) - lu(k,797) * lu(k,1627) - lu(k,1640) = lu(k,1640) - lu(k,798) * lu(k,1627) - lu(k,1641) = lu(k,1641) - lu(k,799) * lu(k,1627) - lu(k,1642) = lu(k,1642) - lu(k,800) * lu(k,1627) - lu(k,1643) = lu(k,1643) - lu(k,801) * lu(k,1627) - lu(k,1644) = lu(k,1644) - lu(k,802) * lu(k,1627) - lu(k,1645) = lu(k,1645) - lu(k,803) * lu(k,1627) - lu(k,1646) = lu(k,1646) - lu(k,804) * lu(k,1627) - lu(k,1647) = lu(k,1647) - lu(k,805) * lu(k,1627) - lu(k,1648) = lu(k,1648) - lu(k,806) * lu(k,1627) - lu(k,1649) = lu(k,1649) - lu(k,807) * lu(k,1627) - lu(k,1650) = lu(k,1650) - lu(k,808) * lu(k,1627) - lu(k,1651) = lu(k,1651) - lu(k,809) * lu(k,1627) - lu(k,1671) = lu(k,1671) - lu(k,786) * lu(k,1670) - lu(k,1672) = lu(k,1672) - lu(k,787) * lu(k,1670) - lu(k,1673) = lu(k,1673) - lu(k,788) * lu(k,1670) - lu(k,1674) = lu(k,1674) - lu(k,789) * lu(k,1670) - lu(k,1675) = lu(k,1675) - lu(k,790) * lu(k,1670) - lu(k,1676) = lu(k,1676) - lu(k,791) * lu(k,1670) - lu(k,1677) = lu(k,1677) - lu(k,792) * lu(k,1670) - lu(k,1678) = lu(k,1678) - lu(k,793) * lu(k,1670) - lu(k,1679) = lu(k,1679) - lu(k,794) * lu(k,1670) - lu(k,1680) = lu(k,1680) - lu(k,795) * lu(k,1670) - lu(k,1681) = lu(k,1681) - lu(k,796) * lu(k,1670) - lu(k,1682) = lu(k,1682) - lu(k,797) * lu(k,1670) - lu(k,1683) = lu(k,1683) - lu(k,798) * lu(k,1670) - lu(k,1684) = lu(k,1684) - lu(k,799) * lu(k,1670) - lu(k,1685) = lu(k,1685) - lu(k,800) * lu(k,1670) - lu(k,1686) = lu(k,1686) - lu(k,801) * lu(k,1670) - lu(k,1687) = lu(k,1687) - lu(k,802) * lu(k,1670) - lu(k,1688) = lu(k,1688) - lu(k,803) * lu(k,1670) - lu(k,1689) = lu(k,1689) - lu(k,804) * lu(k,1670) - lu(k,1690) = lu(k,1690) - lu(k,805) * lu(k,1670) - lu(k,1691) = lu(k,1691) - lu(k,806) * lu(k,1670) - lu(k,1692) = lu(k,1692) - lu(k,807) * lu(k,1670) - lu(k,1693) = lu(k,1693) - lu(k,808) * lu(k,1670) - lu(k,1694) = lu(k,1694) - lu(k,809) * lu(k,1670) - lu(k,1707) = lu(k,1707) - lu(k,786) * lu(k,1706) - lu(k,1708) = lu(k,1708) - lu(k,787) * lu(k,1706) - lu(k,1709) = lu(k,1709) - lu(k,788) * lu(k,1706) - lu(k,1710) = lu(k,1710) - lu(k,789) * lu(k,1706) - lu(k,1711) = lu(k,1711) - lu(k,790) * lu(k,1706) - lu(k,1712) = lu(k,1712) - lu(k,791) * lu(k,1706) - lu(k,1713) = lu(k,1713) - lu(k,792) * lu(k,1706) - lu(k,1714) = lu(k,1714) - lu(k,793) * lu(k,1706) - lu(k,1715) = lu(k,1715) - lu(k,794) * lu(k,1706) - lu(k,1716) = lu(k,1716) - lu(k,795) * lu(k,1706) - lu(k,1717) = lu(k,1717) - lu(k,796) * lu(k,1706) - lu(k,1718) = lu(k,1718) - lu(k,797) * lu(k,1706) - lu(k,1719) = lu(k,1719) - lu(k,798) * lu(k,1706) - lu(k,1720) = lu(k,1720) - lu(k,799) * lu(k,1706) - lu(k,1721) = lu(k,1721) - lu(k,800) * lu(k,1706) - lu(k,1722) = lu(k,1722) - lu(k,801) * lu(k,1706) - lu(k,1723) = lu(k,1723) - lu(k,802) * lu(k,1706) - lu(k,1724) = lu(k,1724) - lu(k,803) * lu(k,1706) - lu(k,1725) = lu(k,1725) - lu(k,804) * lu(k,1706) - lu(k,1726) = lu(k,1726) - lu(k,805) * lu(k,1706) - lu(k,1727) = lu(k,1727) - lu(k,806) * lu(k,1706) - lu(k,1728) = lu(k,1728) - lu(k,807) * lu(k,1706) - lu(k,1729) = lu(k,1729) - lu(k,808) * lu(k,1706) - lu(k,1730) = lu(k,1730) - lu(k,809) * lu(k,1706) - lu(k,1749) = lu(k,1749) - lu(k,786) * lu(k,1748) - lu(k,1750) = lu(k,1750) - lu(k,787) * lu(k,1748) - lu(k,1751) = lu(k,1751) - lu(k,788) * lu(k,1748) - lu(k,1752) = lu(k,1752) - lu(k,789) * lu(k,1748) - lu(k,1753) = lu(k,1753) - lu(k,790) * lu(k,1748) - lu(k,1754) = lu(k,1754) - lu(k,791) * lu(k,1748) - lu(k,1755) = lu(k,1755) - lu(k,792) * lu(k,1748) - lu(k,1756) = lu(k,1756) - lu(k,793) * lu(k,1748) - lu(k,1757) = lu(k,1757) - lu(k,794) * lu(k,1748) - lu(k,1758) = lu(k,1758) - lu(k,795) * lu(k,1748) - lu(k,1759) = lu(k,1759) - lu(k,796) * lu(k,1748) - lu(k,1760) = lu(k,1760) - lu(k,797) * lu(k,1748) - lu(k,1761) = lu(k,1761) - lu(k,798) * lu(k,1748) - lu(k,1762) = lu(k,1762) - lu(k,799) * lu(k,1748) - lu(k,1763) = lu(k,1763) - lu(k,800) * lu(k,1748) - lu(k,1764) = lu(k,1764) - lu(k,801) * lu(k,1748) - lu(k,1765) = lu(k,1765) - lu(k,802) * lu(k,1748) - lu(k,1766) = lu(k,1766) - lu(k,803) * lu(k,1748) - lu(k,1767) = lu(k,1767) - lu(k,804) * lu(k,1748) - lu(k,1768) = lu(k,1768) - lu(k,805) * lu(k,1748) - lu(k,1769) = lu(k,1769) - lu(k,806) * lu(k,1748) - lu(k,1770) = lu(k,1770) - lu(k,807) * lu(k,1748) - lu(k,1771) = lu(k,1771) - lu(k,808) * lu(k,1748) - lu(k,1772) = lu(k,1772) - lu(k,809) * lu(k,1748) - lu(k,1802) = lu(k,1802) - lu(k,786) * lu(k,1801) - lu(k,1803) = lu(k,1803) - lu(k,787) * lu(k,1801) - lu(k,1804) = lu(k,1804) - lu(k,788) * lu(k,1801) - lu(k,1805) = lu(k,1805) - lu(k,789) * lu(k,1801) - lu(k,1806) = lu(k,1806) - lu(k,790) * lu(k,1801) - lu(k,1807) = lu(k,1807) - lu(k,791) * lu(k,1801) - lu(k,1808) = lu(k,1808) - lu(k,792) * lu(k,1801) - lu(k,1809) = lu(k,1809) - lu(k,793) * lu(k,1801) - lu(k,1810) = lu(k,1810) - lu(k,794) * lu(k,1801) - lu(k,1811) = lu(k,1811) - lu(k,795) * lu(k,1801) - lu(k,1812) = lu(k,1812) - lu(k,796) * lu(k,1801) - lu(k,1813) = lu(k,1813) - lu(k,797) * lu(k,1801) - lu(k,1814) = lu(k,1814) - lu(k,798) * lu(k,1801) - lu(k,1815) = lu(k,1815) - lu(k,799) * lu(k,1801) - lu(k,1816) = lu(k,1816) - lu(k,800) * lu(k,1801) - lu(k,1817) = lu(k,1817) - lu(k,801) * lu(k,1801) - lu(k,1818) = lu(k,1818) - lu(k,802) * lu(k,1801) - lu(k,1819) = lu(k,1819) - lu(k,803) * lu(k,1801) - lu(k,1820) = lu(k,1820) - lu(k,804) * lu(k,1801) - lu(k,1821) = lu(k,1821) - lu(k,805) * lu(k,1801) - lu(k,1822) = lu(k,1822) - lu(k,806) * lu(k,1801) - lu(k,1823) = lu(k,1823) - lu(k,807) * lu(k,1801) - lu(k,1824) = lu(k,1824) - lu(k,808) * lu(k,1801) - lu(k,1825) = lu(k,1825) - lu(k,809) * lu(k,1801) - lu(k,829) = 1._r8 / lu(k,829) - lu(k,830) = lu(k,830) * lu(k,829) - lu(k,831) = lu(k,831) * lu(k,829) - lu(k,832) = lu(k,832) * lu(k,829) - lu(k,833) = lu(k,833) * lu(k,829) - lu(k,834) = lu(k,834) * lu(k,829) - lu(k,835) = lu(k,835) * lu(k,829) - lu(k,836) = lu(k,836) * lu(k,829) - lu(k,837) = lu(k,837) * lu(k,829) - lu(k,838) = lu(k,838) * lu(k,829) - lu(k,839) = lu(k,839) * lu(k,829) - lu(k,840) = lu(k,840) * lu(k,829) - lu(k,841) = lu(k,841) * lu(k,829) - lu(k,842) = lu(k,842) * lu(k,829) - lu(k,843) = lu(k,843) * lu(k,829) - lu(k,844) = lu(k,844) * lu(k,829) - lu(k,845) = lu(k,845) * lu(k,829) - lu(k,846) = lu(k,846) * lu(k,829) - lu(k,847) = lu(k,847) * lu(k,829) - lu(k,848) = lu(k,848) * lu(k,829) - lu(k,849) = lu(k,849) * lu(k,829) - lu(k,850) = lu(k,850) * lu(k,829) - lu(k,851) = lu(k,851) * lu(k,829) - lu(k,852) = lu(k,852) * lu(k,829) - lu(k,878) = lu(k,878) - lu(k,830) * lu(k,877) - lu(k,879) = lu(k,879) - lu(k,831) * lu(k,877) - lu(k,880) = lu(k,880) - lu(k,832) * lu(k,877) - lu(k,881) = lu(k,881) - lu(k,833) * lu(k,877) - lu(k,882) = lu(k,882) - lu(k,834) * lu(k,877) - lu(k,883) = lu(k,883) - lu(k,835) * lu(k,877) - lu(k,884) = lu(k,884) - lu(k,836) * lu(k,877) - lu(k,885) = lu(k,885) - lu(k,837) * lu(k,877) - lu(k,886) = lu(k,886) - lu(k,838) * lu(k,877) - lu(k,887) = lu(k,887) - lu(k,839) * lu(k,877) - lu(k,888) = lu(k,888) - lu(k,840) * lu(k,877) - lu(k,889) = lu(k,889) - lu(k,841) * lu(k,877) - lu(k,890) = lu(k,890) - lu(k,842) * lu(k,877) - lu(k,891) = lu(k,891) - lu(k,843) * lu(k,877) - lu(k,892) = lu(k,892) - lu(k,844) * lu(k,877) - lu(k,893) = lu(k,893) - lu(k,845) * lu(k,877) - lu(k,894) = lu(k,894) - lu(k,846) * lu(k,877) - lu(k,895) = lu(k,895) - lu(k,847) * lu(k,877) - lu(k,896) = lu(k,896) - lu(k,848) * lu(k,877) - lu(k,897) = lu(k,897) - lu(k,849) * lu(k,877) - lu(k,898) = lu(k,898) - lu(k,850) * lu(k,877) - lu(k,899) = lu(k,899) - lu(k,851) * lu(k,877) - lu(k,900) = lu(k,900) - lu(k,852) * lu(k,877) - lu(k,921) = lu(k,921) - lu(k,830) * lu(k,920) - lu(k,922) = lu(k,922) - lu(k,831) * lu(k,920) - lu(k,923) = lu(k,923) - lu(k,832) * lu(k,920) - lu(k,924) = lu(k,924) - lu(k,833) * lu(k,920) - lu(k,925) = lu(k,925) - lu(k,834) * lu(k,920) - lu(k,926) = lu(k,926) - lu(k,835) * lu(k,920) - lu(k,927) = lu(k,927) - lu(k,836) * lu(k,920) - lu(k,928) = lu(k,928) - lu(k,837) * lu(k,920) - lu(k,929) = lu(k,929) - lu(k,838) * lu(k,920) - lu(k,930) = lu(k,930) - lu(k,839) * lu(k,920) - lu(k,931) = lu(k,931) - lu(k,840) * lu(k,920) - lu(k,932) = lu(k,932) - lu(k,841) * lu(k,920) - lu(k,933) = lu(k,933) - lu(k,842) * lu(k,920) - lu(k,934) = lu(k,934) - lu(k,843) * lu(k,920) - lu(k,935) = lu(k,935) - lu(k,844) * lu(k,920) - lu(k,936) = lu(k,936) - lu(k,845) * lu(k,920) - lu(k,937) = lu(k,937) - lu(k,846) * lu(k,920) - lu(k,938) = lu(k,938) - lu(k,847) * lu(k,920) - lu(k,939) = lu(k,939) - lu(k,848) * lu(k,920) - lu(k,940) = lu(k,940) - lu(k,849) * lu(k,920) - lu(k,941) = lu(k,941) - lu(k,850) * lu(k,920) - lu(k,942) = lu(k,942) - lu(k,851) * lu(k,920) - lu(k,943) = lu(k,943) - lu(k,852) * lu(k,920) - lu(k,977) = lu(k,977) - lu(k,830) * lu(k,976) - lu(k,978) = lu(k,978) - lu(k,831) * lu(k,976) - lu(k,979) = lu(k,979) - lu(k,832) * lu(k,976) - lu(k,980) = lu(k,980) - lu(k,833) * lu(k,976) - lu(k,981) = lu(k,981) - lu(k,834) * lu(k,976) - lu(k,982) = lu(k,982) - lu(k,835) * lu(k,976) - lu(k,983) = lu(k,983) - lu(k,836) * lu(k,976) - lu(k,984) = lu(k,984) - lu(k,837) * lu(k,976) - lu(k,985) = lu(k,985) - lu(k,838) * lu(k,976) - lu(k,986) = lu(k,986) - lu(k,839) * lu(k,976) - lu(k,987) = lu(k,987) - lu(k,840) * lu(k,976) - lu(k,988) = lu(k,988) - lu(k,841) * lu(k,976) - lu(k,989) = lu(k,989) - lu(k,842) * lu(k,976) - lu(k,990) = lu(k,990) - lu(k,843) * lu(k,976) - lu(k,991) = lu(k,991) - lu(k,844) * lu(k,976) - lu(k,992) = lu(k,992) - lu(k,845) * lu(k,976) - lu(k,993) = lu(k,993) - lu(k,846) * lu(k,976) - lu(k,994) = lu(k,994) - lu(k,847) * lu(k,976) - lu(k,995) = lu(k,995) - lu(k,848) * lu(k,976) - lu(k,996) = lu(k,996) - lu(k,849) * lu(k,976) - lu(k,997) = lu(k,997) - lu(k,850) * lu(k,976) - lu(k,998) = lu(k,998) - lu(k,851) * lu(k,976) - lu(k,999) = lu(k,999) - lu(k,852) * lu(k,976) - lu(k,1020) = lu(k,1020) - lu(k,830) * lu(k,1019) - lu(k,1021) = lu(k,1021) - lu(k,831) * lu(k,1019) - lu(k,1022) = lu(k,1022) - lu(k,832) * lu(k,1019) - lu(k,1023) = lu(k,1023) - lu(k,833) * lu(k,1019) - lu(k,1024) = lu(k,1024) - lu(k,834) * lu(k,1019) - lu(k,1025) = lu(k,1025) - lu(k,835) * lu(k,1019) - lu(k,1026) = lu(k,1026) - lu(k,836) * lu(k,1019) - lu(k,1027) = lu(k,1027) - lu(k,837) * lu(k,1019) - lu(k,1028) = lu(k,1028) - lu(k,838) * lu(k,1019) - lu(k,1029) = lu(k,1029) - lu(k,839) * lu(k,1019) - lu(k,1030) = lu(k,1030) - lu(k,840) * lu(k,1019) - lu(k,1031) = lu(k,1031) - lu(k,841) * lu(k,1019) - lu(k,1032) = lu(k,1032) - lu(k,842) * lu(k,1019) - lu(k,1033) = lu(k,1033) - lu(k,843) * lu(k,1019) - lu(k,1034) = lu(k,1034) - lu(k,844) * lu(k,1019) - lu(k,1035) = lu(k,1035) - lu(k,845) * lu(k,1019) - lu(k,1036) = lu(k,1036) - lu(k,846) * lu(k,1019) - lu(k,1037) = lu(k,1037) - lu(k,847) * lu(k,1019) - lu(k,1038) = lu(k,1038) - lu(k,848) * lu(k,1019) - lu(k,1039) = lu(k,1039) - lu(k,849) * lu(k,1019) - lu(k,1040) = lu(k,1040) - lu(k,850) * lu(k,1019) - lu(k,1041) = lu(k,1041) - lu(k,851) * lu(k,1019) - lu(k,1042) = lu(k,1042) - lu(k,852) * lu(k,1019) - lu(k,1062) = lu(k,1062) - lu(k,830) * lu(k,1061) - lu(k,1063) = lu(k,1063) - lu(k,831) * lu(k,1061) - lu(k,1064) = lu(k,1064) - lu(k,832) * lu(k,1061) - lu(k,1065) = lu(k,1065) - lu(k,833) * lu(k,1061) - lu(k,1066) = lu(k,1066) - lu(k,834) * lu(k,1061) - lu(k,1067) = lu(k,1067) - lu(k,835) * lu(k,1061) - lu(k,1068) = lu(k,1068) - lu(k,836) * lu(k,1061) - lu(k,1069) = lu(k,1069) - lu(k,837) * lu(k,1061) - lu(k,1070) = lu(k,1070) - lu(k,838) * lu(k,1061) - lu(k,1071) = lu(k,1071) - lu(k,839) * lu(k,1061) - lu(k,1072) = lu(k,1072) - lu(k,840) * lu(k,1061) - lu(k,1073) = lu(k,1073) - lu(k,841) * lu(k,1061) - lu(k,1074) = lu(k,1074) - lu(k,842) * lu(k,1061) - lu(k,1075) = lu(k,1075) - lu(k,843) * lu(k,1061) - lu(k,1076) = lu(k,1076) - lu(k,844) * lu(k,1061) - lu(k,1077) = lu(k,1077) - lu(k,845) * lu(k,1061) - lu(k,1078) = lu(k,1078) - lu(k,846) * lu(k,1061) - lu(k,1079) = lu(k,1079) - lu(k,847) * lu(k,1061) - lu(k,1080) = lu(k,1080) - lu(k,848) * lu(k,1061) - lu(k,1081) = lu(k,1081) - lu(k,849) * lu(k,1061) - lu(k,1082) = lu(k,1082) - lu(k,850) * lu(k,1061) - lu(k,1083) = lu(k,1083) - lu(k,851) * lu(k,1061) - lu(k,1084) = lu(k,1084) - lu(k,852) * lu(k,1061) - lu(k,1102) = lu(k,1102) - lu(k,830) * lu(k,1101) - lu(k,1103) = lu(k,1103) - lu(k,831) * lu(k,1101) - lu(k,1104) = lu(k,1104) - lu(k,832) * lu(k,1101) - lu(k,1105) = lu(k,1105) - lu(k,833) * lu(k,1101) - lu(k,1106) = lu(k,1106) - lu(k,834) * lu(k,1101) - lu(k,1107) = lu(k,1107) - lu(k,835) * lu(k,1101) - lu(k,1108) = lu(k,1108) - lu(k,836) * lu(k,1101) - lu(k,1109) = lu(k,1109) - lu(k,837) * lu(k,1101) - lu(k,1110) = lu(k,1110) - lu(k,838) * lu(k,1101) - lu(k,1111) = lu(k,1111) - lu(k,839) * lu(k,1101) - lu(k,1112) = lu(k,1112) - lu(k,840) * lu(k,1101) - lu(k,1113) = lu(k,1113) - lu(k,841) * lu(k,1101) - lu(k,1114) = lu(k,1114) - lu(k,842) * lu(k,1101) - lu(k,1115) = lu(k,1115) - lu(k,843) * lu(k,1101) - lu(k,1116) = lu(k,1116) - lu(k,844) * lu(k,1101) - lu(k,1117) = lu(k,1117) - lu(k,845) * lu(k,1101) - lu(k,1118) = lu(k,1118) - lu(k,846) * lu(k,1101) - lu(k,1119) = lu(k,1119) - lu(k,847) * lu(k,1101) - lu(k,1120) = lu(k,1120) - lu(k,848) * lu(k,1101) - lu(k,1121) = lu(k,1121) - lu(k,849) * lu(k,1101) - lu(k,1122) = lu(k,1122) - lu(k,850) * lu(k,1101) - lu(k,1123) = lu(k,1123) - lu(k,851) * lu(k,1101) - lu(k,1124) = lu(k,1124) - lu(k,852) * lu(k,1101) - lu(k,1147) = lu(k,1147) - lu(k,830) * lu(k,1146) - lu(k,1148) = lu(k,1148) - lu(k,831) * lu(k,1146) - lu(k,1149) = lu(k,1149) - lu(k,832) * lu(k,1146) - lu(k,1150) = lu(k,1150) - lu(k,833) * lu(k,1146) - lu(k,1151) = lu(k,1151) - lu(k,834) * lu(k,1146) - lu(k,1152) = lu(k,1152) - lu(k,835) * lu(k,1146) - lu(k,1153) = lu(k,1153) - lu(k,836) * lu(k,1146) - lu(k,1154) = lu(k,1154) - lu(k,837) * lu(k,1146) - lu(k,1155) = lu(k,1155) - lu(k,838) * lu(k,1146) - lu(k,1156) = lu(k,1156) - lu(k,839) * lu(k,1146) - lu(k,1157) = lu(k,1157) - lu(k,840) * lu(k,1146) - lu(k,1158) = lu(k,1158) - lu(k,841) * lu(k,1146) - lu(k,1159) = lu(k,1159) - lu(k,842) * lu(k,1146) - lu(k,1160) = lu(k,1160) - lu(k,843) * lu(k,1146) - lu(k,1161) = lu(k,1161) - lu(k,844) * lu(k,1146) - lu(k,1162) = lu(k,1162) - lu(k,845) * lu(k,1146) - lu(k,1163) = lu(k,1163) - lu(k,846) * lu(k,1146) - lu(k,1164) = lu(k,1164) - lu(k,847) * lu(k,1146) - lu(k,1165) = lu(k,1165) - lu(k,848) * lu(k,1146) - lu(k,1166) = lu(k,1166) - lu(k,849) * lu(k,1146) - lu(k,1167) = lu(k,1167) - lu(k,850) * lu(k,1146) - lu(k,1168) = lu(k,1168) - lu(k,851) * lu(k,1146) - lu(k,1169) = lu(k,1169) - lu(k,852) * lu(k,1146) - lu(k,1190) = lu(k,1190) - lu(k,830) * lu(k,1189) - lu(k,1191) = lu(k,1191) - lu(k,831) * lu(k,1189) - lu(k,1192) = lu(k,1192) - lu(k,832) * lu(k,1189) - lu(k,1193) = lu(k,1193) - lu(k,833) * lu(k,1189) - lu(k,1194) = lu(k,1194) - lu(k,834) * lu(k,1189) - lu(k,1195) = lu(k,1195) - lu(k,835) * lu(k,1189) - lu(k,1196) = lu(k,1196) - lu(k,836) * lu(k,1189) - lu(k,1197) = lu(k,1197) - lu(k,837) * lu(k,1189) - lu(k,1198) = lu(k,1198) - lu(k,838) * lu(k,1189) - lu(k,1199) = lu(k,1199) - lu(k,839) * lu(k,1189) - lu(k,1200) = lu(k,1200) - lu(k,840) * lu(k,1189) - lu(k,1201) = lu(k,1201) - lu(k,841) * lu(k,1189) - lu(k,1202) = lu(k,1202) - lu(k,842) * lu(k,1189) - lu(k,1203) = lu(k,1203) - lu(k,843) * lu(k,1189) - lu(k,1204) = lu(k,1204) - lu(k,844) * lu(k,1189) - lu(k,1205) = lu(k,1205) - lu(k,845) * lu(k,1189) - lu(k,1206) = lu(k,1206) - lu(k,846) * lu(k,1189) - lu(k,1207) = lu(k,1207) - lu(k,847) * lu(k,1189) - lu(k,1208) = lu(k,1208) - lu(k,848) * lu(k,1189) - lu(k,1209) = lu(k,1209) - lu(k,849) * lu(k,1189) - lu(k,1210) = lu(k,1210) - lu(k,850) * lu(k,1189) - lu(k,1211) = lu(k,1211) - lu(k,851) * lu(k,1189) - lu(k,1212) = lu(k,1212) - lu(k,852) * lu(k,1189) - lu(k,1225) = lu(k,1225) - lu(k,830) * lu(k,1224) - lu(k,1226) = lu(k,1226) - lu(k,831) * lu(k,1224) - lu(k,1227) = lu(k,1227) - lu(k,832) * lu(k,1224) - lu(k,1228) = lu(k,1228) - lu(k,833) * lu(k,1224) - lu(k,1229) = lu(k,1229) - lu(k,834) * lu(k,1224) - lu(k,1230) = lu(k,1230) - lu(k,835) * lu(k,1224) - lu(k,1231) = lu(k,1231) - lu(k,836) * lu(k,1224) - lu(k,1232) = lu(k,1232) - lu(k,837) * lu(k,1224) - lu(k,1233) = lu(k,1233) - lu(k,838) * lu(k,1224) - lu(k,1234) = lu(k,1234) - lu(k,839) * lu(k,1224) - lu(k,1235) = lu(k,1235) - lu(k,840) * lu(k,1224) - lu(k,1236) = lu(k,1236) - lu(k,841) * lu(k,1224) - lu(k,1237) = lu(k,1237) - lu(k,842) * lu(k,1224) - lu(k,1238) = lu(k,1238) - lu(k,843) * lu(k,1224) - lu(k,1239) = lu(k,1239) - lu(k,844) * lu(k,1224) - lu(k,1240) = lu(k,1240) - lu(k,845) * lu(k,1224) - lu(k,1241) = lu(k,1241) - lu(k,846) * lu(k,1224) - lu(k,1242) = lu(k,1242) - lu(k,847) * lu(k,1224) - lu(k,1243) = lu(k,1243) - lu(k,848) * lu(k,1224) - lu(k,1244) = lu(k,1244) - lu(k,849) * lu(k,1224) - lu(k,1245) = lu(k,1245) - lu(k,850) * lu(k,1224) - lu(k,1246) = lu(k,1246) - lu(k,851) * lu(k,1224) - lu(k,1247) = lu(k,1247) - lu(k,852) * lu(k,1224) - lu(k,1268) = lu(k,1268) - lu(k,830) * lu(k,1267) - lu(k,1269) = lu(k,1269) - lu(k,831) * lu(k,1267) - lu(k,1270) = lu(k,1270) - lu(k,832) * lu(k,1267) - lu(k,1271) = lu(k,1271) - lu(k,833) * lu(k,1267) - lu(k,1272) = lu(k,1272) - lu(k,834) * lu(k,1267) - lu(k,1273) = lu(k,1273) - lu(k,835) * lu(k,1267) - lu(k,1274) = lu(k,1274) - lu(k,836) * lu(k,1267) - lu(k,1275) = lu(k,1275) - lu(k,837) * lu(k,1267) - lu(k,1276) = lu(k,1276) - lu(k,838) * lu(k,1267) - lu(k,1277) = lu(k,1277) - lu(k,839) * lu(k,1267) - lu(k,1278) = lu(k,1278) - lu(k,840) * lu(k,1267) - lu(k,1279) = lu(k,1279) - lu(k,841) * lu(k,1267) - lu(k,1280) = lu(k,1280) - lu(k,842) * lu(k,1267) - lu(k,1281) = lu(k,1281) - lu(k,843) * lu(k,1267) - lu(k,1282) = lu(k,1282) - lu(k,844) * lu(k,1267) - lu(k,1283) = lu(k,1283) - lu(k,845) * lu(k,1267) - lu(k,1284) = lu(k,1284) - lu(k,846) * lu(k,1267) - lu(k,1285) = lu(k,1285) - lu(k,847) * lu(k,1267) - lu(k,1286) = lu(k,1286) - lu(k,848) * lu(k,1267) - lu(k,1287) = lu(k,1287) - lu(k,849) * lu(k,1267) - lu(k,1288) = lu(k,1288) - lu(k,850) * lu(k,1267) - lu(k,1289) = lu(k,1289) - lu(k,851) * lu(k,1267) - lu(k,1290) = lu(k,1290) - lu(k,852) * lu(k,1267) - lu(k,1304) = lu(k,1304) - lu(k,830) * lu(k,1303) - lu(k,1305) = lu(k,1305) - lu(k,831) * lu(k,1303) - lu(k,1306) = lu(k,1306) - lu(k,832) * lu(k,1303) - lu(k,1307) = lu(k,1307) - lu(k,833) * lu(k,1303) - lu(k,1308) = lu(k,1308) - lu(k,834) * lu(k,1303) - lu(k,1309) = lu(k,1309) - lu(k,835) * lu(k,1303) - lu(k,1310) = lu(k,1310) - lu(k,836) * lu(k,1303) - lu(k,1311) = lu(k,1311) - lu(k,837) * lu(k,1303) - lu(k,1312) = lu(k,1312) - lu(k,838) * lu(k,1303) - lu(k,1313) = lu(k,1313) - lu(k,839) * lu(k,1303) - lu(k,1314) = lu(k,1314) - lu(k,840) * lu(k,1303) - lu(k,1315) = lu(k,1315) - lu(k,841) * lu(k,1303) - lu(k,1316) = lu(k,1316) - lu(k,842) * lu(k,1303) - lu(k,1317) = lu(k,1317) - lu(k,843) * lu(k,1303) - lu(k,1318) = lu(k,1318) - lu(k,844) * lu(k,1303) - lu(k,1319) = lu(k,1319) - lu(k,845) * lu(k,1303) - lu(k,1320) = lu(k,1320) - lu(k,846) * lu(k,1303) - lu(k,1321) = lu(k,1321) - lu(k,847) * lu(k,1303) - lu(k,1322) = lu(k,1322) - lu(k,848) * lu(k,1303) - lu(k,1323) = lu(k,1323) - lu(k,849) * lu(k,1303) - lu(k,1324) = lu(k,1324) - lu(k,850) * lu(k,1303) - lu(k,1325) = lu(k,1325) - lu(k,851) * lu(k,1303) - lu(k,1326) = lu(k,1326) - lu(k,852) * lu(k,1303) - lu(k,1349) = lu(k,1349) - lu(k,830) * lu(k,1348) - lu(k,1350) = lu(k,1350) - lu(k,831) * lu(k,1348) - lu(k,1351) = lu(k,1351) - lu(k,832) * lu(k,1348) - lu(k,1352) = lu(k,1352) - lu(k,833) * lu(k,1348) - lu(k,1353) = lu(k,1353) - lu(k,834) * lu(k,1348) - lu(k,1354) = lu(k,1354) - lu(k,835) * lu(k,1348) - lu(k,1355) = lu(k,1355) - lu(k,836) * lu(k,1348) - lu(k,1356) = lu(k,1356) - lu(k,837) * lu(k,1348) - lu(k,1357) = lu(k,1357) - lu(k,838) * lu(k,1348) - lu(k,1358) = lu(k,1358) - lu(k,839) * lu(k,1348) - lu(k,1359) = lu(k,1359) - lu(k,840) * lu(k,1348) - lu(k,1360) = lu(k,1360) - lu(k,841) * lu(k,1348) - lu(k,1361) = lu(k,1361) - lu(k,842) * lu(k,1348) - lu(k,1362) = lu(k,1362) - lu(k,843) * lu(k,1348) - lu(k,1363) = lu(k,1363) - lu(k,844) * lu(k,1348) - lu(k,1364) = lu(k,1364) - lu(k,845) * lu(k,1348) - lu(k,1365) = lu(k,1365) - lu(k,846) * lu(k,1348) - lu(k,1366) = lu(k,1366) - lu(k,847) * lu(k,1348) - lu(k,1367) = lu(k,1367) - lu(k,848) * lu(k,1348) - lu(k,1368) = lu(k,1368) - lu(k,849) * lu(k,1348) - lu(k,1369) = lu(k,1369) - lu(k,850) * lu(k,1348) - lu(k,1370) = lu(k,1370) - lu(k,851) * lu(k,1348) - lu(k,1371) = lu(k,1371) - lu(k,852) * lu(k,1348) - lu(k,1391) = lu(k,1391) - lu(k,830) * lu(k,1390) - lu(k,1392) = lu(k,1392) - lu(k,831) * lu(k,1390) - lu(k,1393) = lu(k,1393) - lu(k,832) * lu(k,1390) - lu(k,1394) = lu(k,1394) - lu(k,833) * lu(k,1390) - lu(k,1395) = lu(k,1395) - lu(k,834) * lu(k,1390) - lu(k,1396) = lu(k,1396) - lu(k,835) * lu(k,1390) - lu(k,1397) = lu(k,1397) - lu(k,836) * lu(k,1390) - lu(k,1398) = lu(k,1398) - lu(k,837) * lu(k,1390) - lu(k,1399) = lu(k,1399) - lu(k,838) * lu(k,1390) - lu(k,1400) = lu(k,1400) - lu(k,839) * lu(k,1390) - lu(k,1401) = lu(k,1401) - lu(k,840) * lu(k,1390) - lu(k,1402) = lu(k,1402) - lu(k,841) * lu(k,1390) - lu(k,1403) = lu(k,1403) - lu(k,842) * lu(k,1390) - lu(k,1404) = lu(k,1404) - lu(k,843) * lu(k,1390) - lu(k,1405) = lu(k,1405) - lu(k,844) * lu(k,1390) - lu(k,1406) = lu(k,1406) - lu(k,845) * lu(k,1390) - lu(k,1407) = lu(k,1407) - lu(k,846) * lu(k,1390) - lu(k,1408) = lu(k,1408) - lu(k,847) * lu(k,1390) - lu(k,1409) = lu(k,1409) - lu(k,848) * lu(k,1390) - lu(k,1410) = lu(k,1410) - lu(k,849) * lu(k,1390) - lu(k,1411) = lu(k,1411) - lu(k,850) * lu(k,1390) - lu(k,1412) = lu(k,1412) - lu(k,851) * lu(k,1390) - lu(k,1413) = lu(k,1413) - lu(k,852) * lu(k,1390) - lu(k,1429) = lu(k,1429) - lu(k,830) * lu(k,1428) - lu(k,1430) = lu(k,1430) - lu(k,831) * lu(k,1428) - lu(k,1431) = lu(k,1431) - lu(k,832) * lu(k,1428) - lu(k,1432) = lu(k,1432) - lu(k,833) * lu(k,1428) - lu(k,1433) = lu(k,1433) - lu(k,834) * lu(k,1428) - lu(k,1434) = lu(k,1434) - lu(k,835) * lu(k,1428) - lu(k,1435) = lu(k,1435) - lu(k,836) * lu(k,1428) - lu(k,1436) = lu(k,1436) - lu(k,837) * lu(k,1428) - lu(k,1437) = lu(k,1437) - lu(k,838) * lu(k,1428) - lu(k,1438) = lu(k,1438) - lu(k,839) * lu(k,1428) - lu(k,1439) = lu(k,1439) - lu(k,840) * lu(k,1428) - lu(k,1440) = lu(k,1440) - lu(k,841) * lu(k,1428) - lu(k,1441) = lu(k,1441) - lu(k,842) * lu(k,1428) - lu(k,1442) = lu(k,1442) - lu(k,843) * lu(k,1428) - lu(k,1443) = lu(k,1443) - lu(k,844) * lu(k,1428) - lu(k,1444) = lu(k,1444) - lu(k,845) * lu(k,1428) - lu(k,1445) = lu(k,1445) - lu(k,846) * lu(k,1428) - lu(k,1446) = lu(k,1446) - lu(k,847) * lu(k,1428) - lu(k,1447) = lu(k,1447) - lu(k,848) * lu(k,1428) - lu(k,1448) = lu(k,1448) - lu(k,849) * lu(k,1428) - lu(k,1449) = lu(k,1449) - lu(k,850) * lu(k,1428) - lu(k,1450) = lu(k,1450) - lu(k,851) * lu(k,1428) - lu(k,1451) = lu(k,1451) - lu(k,852) * lu(k,1428) - lu(k,1474) = lu(k,1474) - lu(k,830) * lu(k,1473) - lu(k,1475) = lu(k,1475) - lu(k,831) * lu(k,1473) - lu(k,1476) = lu(k,1476) - lu(k,832) * lu(k,1473) - lu(k,1477) = lu(k,1477) - lu(k,833) * lu(k,1473) - lu(k,1478) = lu(k,1478) - lu(k,834) * lu(k,1473) - lu(k,1479) = lu(k,1479) - lu(k,835) * lu(k,1473) - lu(k,1480) = lu(k,1480) - lu(k,836) * lu(k,1473) - lu(k,1481) = lu(k,1481) - lu(k,837) * lu(k,1473) - lu(k,1482) = lu(k,1482) - lu(k,838) * lu(k,1473) - lu(k,1483) = lu(k,1483) - lu(k,839) * lu(k,1473) - lu(k,1484) = lu(k,1484) - lu(k,840) * lu(k,1473) - lu(k,1485) = lu(k,1485) - lu(k,841) * lu(k,1473) - lu(k,1486) = lu(k,1486) - lu(k,842) * lu(k,1473) - lu(k,1487) = lu(k,1487) - lu(k,843) * lu(k,1473) - lu(k,1488) = lu(k,1488) - lu(k,844) * lu(k,1473) - lu(k,1489) = lu(k,1489) - lu(k,845) * lu(k,1473) - lu(k,1490) = lu(k,1490) - lu(k,846) * lu(k,1473) - lu(k,1491) = lu(k,1491) - lu(k,847) * lu(k,1473) - lu(k,1492) = lu(k,1492) - lu(k,848) * lu(k,1473) - lu(k,1493) = lu(k,1493) - lu(k,849) * lu(k,1473) - lu(k,1494) = lu(k,1494) - lu(k,850) * lu(k,1473) - lu(k,1495) = lu(k,1495) - lu(k,851) * lu(k,1473) - lu(k,1496) = lu(k,1496) - lu(k,852) * lu(k,1473) - lu(k,1517) = lu(k,1517) - lu(k,830) * lu(k,1516) - lu(k,1518) = lu(k,1518) - lu(k,831) * lu(k,1516) - lu(k,1519) = lu(k,1519) - lu(k,832) * lu(k,1516) - lu(k,1520) = lu(k,1520) - lu(k,833) * lu(k,1516) - lu(k,1521) = lu(k,1521) - lu(k,834) * lu(k,1516) - lu(k,1522) = lu(k,1522) - lu(k,835) * lu(k,1516) - lu(k,1523) = lu(k,1523) - lu(k,836) * lu(k,1516) - lu(k,1524) = lu(k,1524) - lu(k,837) * lu(k,1516) - lu(k,1525) = lu(k,1525) - lu(k,838) * lu(k,1516) - lu(k,1526) = lu(k,1526) - lu(k,839) * lu(k,1516) - lu(k,1527) = lu(k,1527) - lu(k,840) * lu(k,1516) - lu(k,1528) = lu(k,1528) - lu(k,841) * lu(k,1516) - lu(k,1529) = lu(k,1529) - lu(k,842) * lu(k,1516) - lu(k,1530) = lu(k,1530) - lu(k,843) * lu(k,1516) - lu(k,1531) = lu(k,1531) - lu(k,844) * lu(k,1516) - lu(k,1532) = lu(k,1532) - lu(k,845) * lu(k,1516) - lu(k,1533) = lu(k,1533) - lu(k,846) * lu(k,1516) - lu(k,1534) = lu(k,1534) - lu(k,847) * lu(k,1516) - lu(k,1535) = lu(k,1535) - lu(k,848) * lu(k,1516) - lu(k,1536) = lu(k,1536) - lu(k,849) * lu(k,1516) - lu(k,1537) = lu(k,1537) - lu(k,850) * lu(k,1516) - lu(k,1538) = lu(k,1538) - lu(k,851) * lu(k,1516) - lu(k,1539) = lu(k,1539) - lu(k,852) * lu(k,1516) - lu(k,1560) = lu(k,1560) - lu(k,830) * lu(k,1559) - lu(k,1561) = lu(k,1561) - lu(k,831) * lu(k,1559) - lu(k,1562) = lu(k,1562) - lu(k,832) * lu(k,1559) - lu(k,1563) = lu(k,1563) - lu(k,833) * lu(k,1559) - lu(k,1564) = lu(k,1564) - lu(k,834) * lu(k,1559) - lu(k,1565) = lu(k,1565) - lu(k,835) * lu(k,1559) - lu(k,1566) = lu(k,1566) - lu(k,836) * lu(k,1559) - lu(k,1567) = lu(k,1567) - lu(k,837) * lu(k,1559) - lu(k,1568) = lu(k,1568) - lu(k,838) * lu(k,1559) - lu(k,1569) = lu(k,1569) - lu(k,839) * lu(k,1559) - lu(k,1570) = lu(k,1570) - lu(k,840) * lu(k,1559) - lu(k,1571) = lu(k,1571) - lu(k,841) * lu(k,1559) - lu(k,1572) = lu(k,1572) - lu(k,842) * lu(k,1559) - lu(k,1573) = lu(k,1573) - lu(k,843) * lu(k,1559) - lu(k,1574) = lu(k,1574) - lu(k,844) * lu(k,1559) - lu(k,1575) = lu(k,1575) - lu(k,845) * lu(k,1559) - lu(k,1576) = lu(k,1576) - lu(k,846) * lu(k,1559) - lu(k,1577) = lu(k,1577) - lu(k,847) * lu(k,1559) - lu(k,1578) = lu(k,1578) - lu(k,848) * lu(k,1559) - lu(k,1579) = lu(k,1579) - lu(k,849) * lu(k,1559) - lu(k,1580) = lu(k,1580) - lu(k,850) * lu(k,1559) - lu(k,1581) = lu(k,1581) - lu(k,851) * lu(k,1559) - lu(k,1582) = lu(k,1582) - lu(k,852) * lu(k,1559) - lu(k,1593) = lu(k,1593) - lu(k,830) * lu(k,1592) - lu(k,1594) = lu(k,1594) - lu(k,831) * lu(k,1592) - lu(k,1595) = lu(k,1595) - lu(k,832) * lu(k,1592) - lu(k,1596) = lu(k,1596) - lu(k,833) * lu(k,1592) - lu(k,1597) = lu(k,1597) - lu(k,834) * lu(k,1592) - lu(k,1598) = lu(k,1598) - lu(k,835) * lu(k,1592) - lu(k,1599) = lu(k,1599) - lu(k,836) * lu(k,1592) - lu(k,1600) = lu(k,1600) - lu(k,837) * lu(k,1592) - lu(k,1601) = lu(k,1601) - lu(k,838) * lu(k,1592) - lu(k,1602) = lu(k,1602) - lu(k,839) * lu(k,1592) - lu(k,1603) = lu(k,1603) - lu(k,840) * lu(k,1592) - lu(k,1604) = lu(k,1604) - lu(k,841) * lu(k,1592) - lu(k,1605) = lu(k,1605) - lu(k,842) * lu(k,1592) - lu(k,1606) = lu(k,1606) - lu(k,843) * lu(k,1592) - lu(k,1607) = lu(k,1607) - lu(k,844) * lu(k,1592) - lu(k,1608) = lu(k,1608) - lu(k,845) * lu(k,1592) - lu(k,1609) = lu(k,1609) - lu(k,846) * lu(k,1592) - lu(k,1610) = lu(k,1610) - lu(k,847) * lu(k,1592) - lu(k,1611) = lu(k,1611) - lu(k,848) * lu(k,1592) - lu(k,1612) = lu(k,1612) - lu(k,849) * lu(k,1592) - lu(k,1613) = lu(k,1613) - lu(k,850) * lu(k,1592) - lu(k,1614) = lu(k,1614) - lu(k,851) * lu(k,1592) - lu(k,1615) = lu(k,1615) - lu(k,852) * lu(k,1592) - lu(k,1629) = lu(k,1629) - lu(k,830) * lu(k,1628) - lu(k,1630) = lu(k,1630) - lu(k,831) * lu(k,1628) - lu(k,1631) = lu(k,1631) - lu(k,832) * lu(k,1628) - lu(k,1632) = lu(k,1632) - lu(k,833) * lu(k,1628) - lu(k,1633) = lu(k,1633) - lu(k,834) * lu(k,1628) - lu(k,1634) = lu(k,1634) - lu(k,835) * lu(k,1628) - lu(k,1635) = lu(k,1635) - lu(k,836) * lu(k,1628) - lu(k,1636) = lu(k,1636) - lu(k,837) * lu(k,1628) - lu(k,1637) = lu(k,1637) - lu(k,838) * lu(k,1628) - lu(k,1638) = lu(k,1638) - lu(k,839) * lu(k,1628) - lu(k,1639) = lu(k,1639) - lu(k,840) * lu(k,1628) - lu(k,1640) = lu(k,1640) - lu(k,841) * lu(k,1628) - lu(k,1641) = lu(k,1641) - lu(k,842) * lu(k,1628) - lu(k,1642) = lu(k,1642) - lu(k,843) * lu(k,1628) - lu(k,1643) = lu(k,1643) - lu(k,844) * lu(k,1628) - lu(k,1644) = lu(k,1644) - lu(k,845) * lu(k,1628) - lu(k,1645) = lu(k,1645) - lu(k,846) * lu(k,1628) - lu(k,1646) = lu(k,1646) - lu(k,847) * lu(k,1628) - lu(k,1647) = lu(k,1647) - lu(k,848) * lu(k,1628) - lu(k,1648) = lu(k,1648) - lu(k,849) * lu(k,1628) - lu(k,1649) = lu(k,1649) - lu(k,850) * lu(k,1628) - lu(k,1650) = lu(k,1650) - lu(k,851) * lu(k,1628) - lu(k,1651) = lu(k,1651) - lu(k,852) * lu(k,1628) - lu(k,1672) = lu(k,1672) - lu(k,830) * lu(k,1671) - lu(k,1673) = lu(k,1673) - lu(k,831) * lu(k,1671) - lu(k,1674) = lu(k,1674) - lu(k,832) * lu(k,1671) - lu(k,1675) = lu(k,1675) - lu(k,833) * lu(k,1671) - lu(k,1676) = lu(k,1676) - lu(k,834) * lu(k,1671) - lu(k,1677) = lu(k,1677) - lu(k,835) * lu(k,1671) - lu(k,1678) = lu(k,1678) - lu(k,836) * lu(k,1671) - lu(k,1679) = lu(k,1679) - lu(k,837) * lu(k,1671) - lu(k,1680) = lu(k,1680) - lu(k,838) * lu(k,1671) - lu(k,1681) = lu(k,1681) - lu(k,839) * lu(k,1671) - lu(k,1682) = lu(k,1682) - lu(k,840) * lu(k,1671) - lu(k,1683) = lu(k,1683) - lu(k,841) * lu(k,1671) - lu(k,1684) = lu(k,1684) - lu(k,842) * lu(k,1671) - lu(k,1685) = lu(k,1685) - lu(k,843) * lu(k,1671) - lu(k,1686) = lu(k,1686) - lu(k,844) * lu(k,1671) - lu(k,1687) = lu(k,1687) - lu(k,845) * lu(k,1671) - lu(k,1688) = lu(k,1688) - lu(k,846) * lu(k,1671) - lu(k,1689) = lu(k,1689) - lu(k,847) * lu(k,1671) - lu(k,1690) = lu(k,1690) - lu(k,848) * lu(k,1671) - lu(k,1691) = lu(k,1691) - lu(k,849) * lu(k,1671) - lu(k,1692) = lu(k,1692) - lu(k,850) * lu(k,1671) - lu(k,1693) = lu(k,1693) - lu(k,851) * lu(k,1671) - lu(k,1694) = lu(k,1694) - lu(k,852) * lu(k,1671) - lu(k,1708) = lu(k,1708) - lu(k,830) * lu(k,1707) - lu(k,1709) = lu(k,1709) - lu(k,831) * lu(k,1707) - lu(k,1710) = lu(k,1710) - lu(k,832) * lu(k,1707) - lu(k,1711) = lu(k,1711) - lu(k,833) * lu(k,1707) - lu(k,1712) = lu(k,1712) - lu(k,834) * lu(k,1707) - lu(k,1713) = lu(k,1713) - lu(k,835) * lu(k,1707) - lu(k,1714) = lu(k,1714) - lu(k,836) * lu(k,1707) - lu(k,1715) = lu(k,1715) - lu(k,837) * lu(k,1707) - lu(k,1716) = lu(k,1716) - lu(k,838) * lu(k,1707) - lu(k,1717) = lu(k,1717) - lu(k,839) * lu(k,1707) - lu(k,1718) = lu(k,1718) - lu(k,840) * lu(k,1707) - lu(k,1719) = lu(k,1719) - lu(k,841) * lu(k,1707) - lu(k,1720) = lu(k,1720) - lu(k,842) * lu(k,1707) - lu(k,1721) = lu(k,1721) - lu(k,843) * lu(k,1707) - lu(k,1722) = lu(k,1722) - lu(k,844) * lu(k,1707) - lu(k,1723) = lu(k,1723) - lu(k,845) * lu(k,1707) - lu(k,1724) = lu(k,1724) - lu(k,846) * lu(k,1707) - lu(k,1725) = lu(k,1725) - lu(k,847) * lu(k,1707) - lu(k,1726) = lu(k,1726) - lu(k,848) * lu(k,1707) - lu(k,1727) = lu(k,1727) - lu(k,849) * lu(k,1707) - lu(k,1728) = lu(k,1728) - lu(k,850) * lu(k,1707) - lu(k,1729) = lu(k,1729) - lu(k,851) * lu(k,1707) - lu(k,1730) = lu(k,1730) - lu(k,852) * lu(k,1707) - lu(k,1750) = lu(k,1750) - lu(k,830) * lu(k,1749) - lu(k,1751) = lu(k,1751) - lu(k,831) * lu(k,1749) - lu(k,1752) = lu(k,1752) - lu(k,832) * lu(k,1749) - lu(k,1753) = lu(k,1753) - lu(k,833) * lu(k,1749) - lu(k,1754) = lu(k,1754) - lu(k,834) * lu(k,1749) - lu(k,1755) = lu(k,1755) - lu(k,835) * lu(k,1749) - lu(k,1756) = lu(k,1756) - lu(k,836) * lu(k,1749) - lu(k,1757) = lu(k,1757) - lu(k,837) * lu(k,1749) - lu(k,1758) = lu(k,1758) - lu(k,838) * lu(k,1749) - lu(k,1759) = lu(k,1759) - lu(k,839) * lu(k,1749) - lu(k,1760) = lu(k,1760) - lu(k,840) * lu(k,1749) - lu(k,1761) = lu(k,1761) - lu(k,841) * lu(k,1749) - lu(k,1762) = lu(k,1762) - lu(k,842) * lu(k,1749) - lu(k,1763) = lu(k,1763) - lu(k,843) * lu(k,1749) - lu(k,1764) = lu(k,1764) - lu(k,844) * lu(k,1749) - lu(k,1765) = lu(k,1765) - lu(k,845) * lu(k,1749) - lu(k,1766) = lu(k,1766) - lu(k,846) * lu(k,1749) - lu(k,1767) = lu(k,1767) - lu(k,847) * lu(k,1749) - lu(k,1768) = lu(k,1768) - lu(k,848) * lu(k,1749) - lu(k,1769) = lu(k,1769) - lu(k,849) * lu(k,1749) - lu(k,1770) = lu(k,1770) - lu(k,850) * lu(k,1749) - lu(k,1771) = lu(k,1771) - lu(k,851) * lu(k,1749) - lu(k,1772) = lu(k,1772) - lu(k,852) * lu(k,1749) - lu(k,1803) = lu(k,1803) - lu(k,830) * lu(k,1802) - lu(k,1804) = lu(k,1804) - lu(k,831) * lu(k,1802) - lu(k,1805) = lu(k,1805) - lu(k,832) * lu(k,1802) - lu(k,1806) = lu(k,1806) - lu(k,833) * lu(k,1802) - lu(k,1807) = lu(k,1807) - lu(k,834) * lu(k,1802) - lu(k,1808) = lu(k,1808) - lu(k,835) * lu(k,1802) - lu(k,1809) = lu(k,1809) - lu(k,836) * lu(k,1802) - lu(k,1810) = lu(k,1810) - lu(k,837) * lu(k,1802) - lu(k,1811) = lu(k,1811) - lu(k,838) * lu(k,1802) - lu(k,1812) = lu(k,1812) - lu(k,839) * lu(k,1802) - lu(k,1813) = lu(k,1813) - lu(k,840) * lu(k,1802) - lu(k,1814) = lu(k,1814) - lu(k,841) * lu(k,1802) - lu(k,1815) = lu(k,1815) - lu(k,842) * lu(k,1802) - lu(k,1816) = lu(k,1816) - lu(k,843) * lu(k,1802) - lu(k,1817) = lu(k,1817) - lu(k,844) * lu(k,1802) - lu(k,1818) = lu(k,1818) - lu(k,845) * lu(k,1802) - lu(k,1819) = lu(k,1819) - lu(k,846) * lu(k,1802) - lu(k,1820) = lu(k,1820) - lu(k,847) * lu(k,1802) - lu(k,1821) = lu(k,1821) - lu(k,848) * lu(k,1802) - lu(k,1822) = lu(k,1822) - lu(k,849) * lu(k,1802) - lu(k,1823) = lu(k,1823) - lu(k,850) * lu(k,1802) - lu(k,1824) = lu(k,1824) - lu(k,851) * lu(k,1802) - lu(k,1825) = lu(k,1825) - lu(k,852) * lu(k,1802) - end do + real(r8), intent(inout) :: lu(:) + lu(769) = 1._r8 / lu(769) + lu(770) = lu(770) * lu(769) + lu(771) = lu(771) * lu(769) + lu(772) = lu(772) * lu(769) + lu(773) = lu(773) * lu(769) + lu(774) = lu(774) * lu(769) + lu(775) = lu(775) * lu(769) + lu(776) = lu(776) * lu(769) + lu(777) = lu(777) * lu(769) + lu(778) = lu(778) * lu(769) + lu(779) = lu(779) * lu(769) + lu(780) = lu(780) * lu(769) + lu(781) = lu(781) * lu(769) + lu(782) = lu(782) * lu(769) + lu(783) = lu(783) * lu(769) + lu(784) = lu(784) * lu(769) + lu(785) = lu(785) * lu(769) + lu(786) = lu(786) * lu(769) + lu(787) = lu(787) * lu(769) + lu(788) = lu(788) * lu(769) + lu(789) = lu(789) * lu(769) + lu(790) = lu(790) * lu(769) + lu(791) = lu(791) * lu(769) + lu(792) = lu(792) * lu(769) + lu(817) = lu(817) - lu(770) * lu(816) + lu(818) = lu(818) - lu(771) * lu(816) + lu(819) = lu(819) - lu(772) * lu(816) + lu(820) = lu(820) - lu(773) * lu(816) + lu(821) = lu(821) - lu(774) * lu(816) + lu(822) = lu(822) - lu(775) * lu(816) + lu(823) = lu(823) - lu(776) * lu(816) + lu(824) = lu(824) - lu(777) * lu(816) + lu(825) = lu(825) - lu(778) * lu(816) + lu(826) = lu(826) - lu(779) * lu(816) + lu(827) = lu(827) - lu(780) * lu(816) + lu(828) = lu(828) - lu(781) * lu(816) + lu(829) = lu(829) - lu(782) * lu(816) + lu(830) = lu(830) - lu(783) * lu(816) + lu(831) = lu(831) - lu(784) * lu(816) + lu(832) = lu(832) - lu(785) * lu(816) + lu(833) = lu(833) - lu(786) * lu(816) + lu(834) = lu(834) - lu(787) * lu(816) + lu(835) = lu(835) - lu(788) * lu(816) + lu(836) = lu(836) - lu(789) * lu(816) + lu(837) = lu(837) - lu(790) * lu(816) + lu(838) = lu(838) - lu(791) * lu(816) + lu(839) = lu(839) - lu(792) * lu(816) + lu(859) = lu(859) - lu(770) * lu(858) + lu(860) = lu(860) - lu(771) * lu(858) + lu(861) = lu(861) - lu(772) * lu(858) + lu(862) = lu(862) - lu(773) * lu(858) + lu(863) = lu(863) - lu(774) * lu(858) + lu(864) = lu(864) - lu(775) * lu(858) + lu(865) = lu(865) - lu(776) * lu(858) + lu(866) = lu(866) - lu(777) * lu(858) + lu(867) = lu(867) - lu(778) * lu(858) + lu(868) = lu(868) - lu(779) * lu(858) + lu(869) = lu(869) - lu(780) * lu(858) + lu(870) = lu(870) - lu(781) * lu(858) + lu(871) = lu(871) - lu(782) * lu(858) + lu(872) = lu(872) - lu(783) * lu(858) + lu(873) = lu(873) - lu(784) * lu(858) + lu(874) = lu(874) - lu(785) * lu(858) + lu(875) = lu(875) - lu(786) * lu(858) + lu(876) = lu(876) - lu(787) * lu(858) + lu(877) = lu(877) - lu(788) * lu(858) + lu(878) = lu(878) - lu(789) * lu(858) + lu(879) = lu(879) - lu(790) * lu(858) + lu(880) = lu(880) - lu(791) * lu(858) + lu(881) = lu(881) - lu(792) * lu(858) + lu(903) = lu(903) - lu(770) * lu(902) + lu(904) = lu(904) - lu(771) * lu(902) + lu(905) = lu(905) - lu(772) * lu(902) + lu(906) = lu(906) - lu(773) * lu(902) + lu(907) = lu(907) - lu(774) * lu(902) + lu(908) = lu(908) - lu(775) * lu(902) + lu(909) = lu(909) - lu(776) * lu(902) + lu(910) = lu(910) - lu(777) * lu(902) + lu(911) = lu(911) - lu(778) * lu(902) + lu(912) = lu(912) - lu(779) * lu(902) + lu(913) = lu(913) - lu(780) * lu(902) + lu(914) = lu(914) - lu(781) * lu(902) + lu(915) = lu(915) - lu(782) * lu(902) + lu(916) = lu(916) - lu(783) * lu(902) + lu(917) = lu(917) - lu(784) * lu(902) + lu(918) = lu(918) - lu(785) * lu(902) + lu(919) = lu(919) - lu(786) * lu(902) + lu(920) = lu(920) - lu(787) * lu(902) + lu(921) = lu(921) - lu(788) * lu(902) + lu(922) = lu(922) - lu(789) * lu(902) + lu(923) = lu(923) - lu(790) * lu(902) + lu(924) = lu(924) - lu(791) * lu(902) + lu(925) = lu(925) - lu(792) * lu(902) + lu(938) = lu(938) - lu(770) * lu(937) + lu(939) = lu(939) - lu(771) * lu(937) + lu(940) = lu(940) - lu(772) * lu(937) + lu(941) = lu(941) - lu(773) * lu(937) + lu(942) = lu(942) - lu(774) * lu(937) + lu(943) = lu(943) - lu(775) * lu(937) + lu(944) = lu(944) - lu(776) * lu(937) + lu(945) = lu(945) - lu(777) * lu(937) + lu(946) = lu(946) - lu(778) * lu(937) + lu(947) = lu(947) - lu(779) * lu(937) + lu(948) = lu(948) - lu(780) * lu(937) + lu(949) = lu(949) - lu(781) * lu(937) + lu(950) = lu(950) - lu(782) * lu(937) + lu(951) = lu(951) - lu(783) * lu(937) + lu(952) = lu(952) - lu(784) * lu(937) + lu(953) = lu(953) - lu(785) * lu(937) + lu(954) = lu(954) - lu(786) * lu(937) + lu(955) = lu(955) - lu(787) * lu(937) + lu(956) = lu(956) - lu(788) * lu(937) + lu(957) = lu(957) - lu(789) * lu(937) + lu(958) = lu(958) - lu(790) * lu(937) + lu(959) = lu(959) - lu(791) * lu(937) + lu(960) = lu(960) - lu(792) * lu(937) + lu(979) = lu(979) - lu(770) * lu(978) + lu(980) = lu(980) - lu(771) * lu(978) + lu(981) = lu(981) - lu(772) * lu(978) + lu(982) = lu(982) - lu(773) * lu(978) + lu(983) = lu(983) - lu(774) * lu(978) + lu(984) = lu(984) - lu(775) * lu(978) + lu(985) = lu(985) - lu(776) * lu(978) + lu(986) = lu(986) - lu(777) * lu(978) + lu(987) = lu(987) - lu(778) * lu(978) + lu(988) = lu(988) - lu(779) * lu(978) + lu(989) = lu(989) - lu(780) * lu(978) + lu(990) = lu(990) - lu(781) * lu(978) + lu(991) = lu(991) - lu(782) * lu(978) + lu(992) = lu(992) - lu(783) * lu(978) + lu(993) = lu(993) - lu(784) * lu(978) + lu(994) = lu(994) - lu(785) * lu(978) + lu(995) = lu(995) - lu(786) * lu(978) + lu(996) = lu(996) - lu(787) * lu(978) + lu(997) = lu(997) - lu(788) * lu(978) + lu(998) = lu(998) - lu(789) * lu(978) + lu(999) = lu(999) - lu(790) * lu(978) + lu(1000) = lu(1000) - lu(791) * lu(978) + lu(1001) = lu(1001) - lu(792) * lu(978) + lu(1021) = lu(1021) - lu(770) * lu(1020) + lu(1022) = lu(1022) - lu(771) * lu(1020) + lu(1023) = lu(1023) - lu(772) * lu(1020) + lu(1024) = lu(1024) - lu(773) * lu(1020) + lu(1025) = lu(1025) - lu(774) * lu(1020) + lu(1026) = lu(1026) - lu(775) * lu(1020) + lu(1027) = lu(1027) - lu(776) * lu(1020) + lu(1028) = lu(1028) - lu(777) * lu(1020) + lu(1029) = lu(1029) - lu(778) * lu(1020) + lu(1030) = lu(1030) - lu(779) * lu(1020) + lu(1031) = lu(1031) - lu(780) * lu(1020) + lu(1032) = lu(1032) - lu(781) * lu(1020) + lu(1033) = lu(1033) - lu(782) * lu(1020) + lu(1034) = lu(1034) - lu(783) * lu(1020) + lu(1035) = lu(1035) - lu(784) * lu(1020) + lu(1036) = lu(1036) - lu(785) * lu(1020) + lu(1037) = lu(1037) - lu(786) * lu(1020) + lu(1038) = lu(1038) - lu(787) * lu(1020) + lu(1039) = lu(1039) - lu(788) * lu(1020) + lu(1040) = lu(1040) - lu(789) * lu(1020) + lu(1041) = lu(1041) - lu(790) * lu(1020) + lu(1042) = lu(1042) - lu(791) * lu(1020) + lu(1043) = lu(1043) - lu(792) * lu(1020) + lu(1065) = lu(1065) - lu(770) * lu(1064) + lu(1066) = lu(1066) - lu(771) * lu(1064) + lu(1067) = lu(1067) - lu(772) * lu(1064) + lu(1068) = lu(1068) - lu(773) * lu(1064) + lu(1069) = lu(1069) - lu(774) * lu(1064) + lu(1070) = lu(1070) - lu(775) * lu(1064) + lu(1071) = lu(1071) - lu(776) * lu(1064) + lu(1072) = lu(1072) - lu(777) * lu(1064) + lu(1073) = lu(1073) - lu(778) * lu(1064) + lu(1074) = lu(1074) - lu(779) * lu(1064) + lu(1075) = lu(1075) - lu(780) * lu(1064) + lu(1076) = lu(1076) - lu(781) * lu(1064) + lu(1077) = lu(1077) - lu(782) * lu(1064) + lu(1078) = lu(1078) - lu(783) * lu(1064) + lu(1079) = lu(1079) - lu(784) * lu(1064) + lu(1080) = lu(1080) - lu(785) * lu(1064) + lu(1081) = lu(1081) - lu(786) * lu(1064) + lu(1082) = lu(1082) - lu(787) * lu(1064) + lu(1083) = lu(1083) - lu(788) * lu(1064) + lu(1084) = lu(1084) - lu(789) * lu(1064) + lu(1085) = lu(1085) - lu(790) * lu(1064) + lu(1086) = lu(1086) - lu(791) * lu(1064) + lu(1087) = lu(1087) - lu(792) * lu(1064) + lu(1107) = lu(1107) - lu(770) * lu(1106) + lu(1108) = lu(1108) - lu(771) * lu(1106) + lu(1109) = lu(1109) - lu(772) * lu(1106) + lu(1110) = lu(1110) - lu(773) * lu(1106) + lu(1111) = lu(1111) - lu(774) * lu(1106) + lu(1112) = lu(1112) - lu(775) * lu(1106) + lu(1113) = lu(1113) - lu(776) * lu(1106) + lu(1114) = lu(1114) - lu(777) * lu(1106) + lu(1115) = lu(1115) - lu(778) * lu(1106) + lu(1116) = lu(1116) - lu(779) * lu(1106) + lu(1117) = lu(1117) - lu(780) * lu(1106) + lu(1118) = lu(1118) - lu(781) * lu(1106) + lu(1119) = lu(1119) - lu(782) * lu(1106) + lu(1120) = lu(1120) - lu(783) * lu(1106) + lu(1121) = lu(1121) - lu(784) * lu(1106) + lu(1122) = lu(1122) - lu(785) * lu(1106) + lu(1123) = lu(1123) - lu(786) * lu(1106) + lu(1124) = lu(1124) - lu(787) * lu(1106) + lu(1125) = lu(1125) - lu(788) * lu(1106) + lu(1126) = lu(1126) - lu(789) * lu(1106) + lu(1127) = lu(1127) - lu(790) * lu(1106) + lu(1128) = lu(1128) - lu(791) * lu(1106) + lu(1129) = lu(1129) - lu(792) * lu(1106) + lu(1150) = lu(1150) - lu(770) * lu(1149) + lu(1151) = lu(1151) - lu(771) * lu(1149) + lu(1152) = lu(1152) - lu(772) * lu(1149) + lu(1153) = lu(1153) - lu(773) * lu(1149) + lu(1154) = lu(1154) - lu(774) * lu(1149) + lu(1155) = lu(1155) - lu(775) * lu(1149) + lu(1156) = lu(1156) - lu(776) * lu(1149) + lu(1157) = lu(1157) - lu(777) * lu(1149) + lu(1158) = lu(1158) - lu(778) * lu(1149) + lu(1159) = lu(1159) - lu(779) * lu(1149) + lu(1160) = lu(1160) - lu(780) * lu(1149) + lu(1161) = lu(1161) - lu(781) * lu(1149) + lu(1162) = lu(1162) - lu(782) * lu(1149) + lu(1163) = lu(1163) - lu(783) * lu(1149) + lu(1164) = lu(1164) - lu(784) * lu(1149) + lu(1165) = lu(1165) - lu(785) * lu(1149) + lu(1166) = lu(1166) - lu(786) * lu(1149) + lu(1167) = lu(1167) - lu(787) * lu(1149) + lu(1168) = lu(1168) - lu(788) * lu(1149) + lu(1169) = lu(1169) - lu(789) * lu(1149) + lu(1170) = lu(1170) - lu(790) * lu(1149) + lu(1171) = lu(1171) - lu(791) * lu(1149) + lu(1172) = lu(1172) - lu(792) * lu(1149) + lu(1192) = lu(1192) - lu(770) * lu(1191) + lu(1193) = lu(1193) - lu(771) * lu(1191) + lu(1194) = lu(1194) - lu(772) * lu(1191) + lu(1195) = lu(1195) - lu(773) * lu(1191) + lu(1196) = lu(1196) - lu(774) * lu(1191) + lu(1197) = lu(1197) - lu(775) * lu(1191) + lu(1198) = lu(1198) - lu(776) * lu(1191) + lu(1199) = lu(1199) - lu(777) * lu(1191) + lu(1200) = lu(1200) - lu(778) * lu(1191) + lu(1201) = lu(1201) - lu(779) * lu(1191) + lu(1202) = lu(1202) - lu(780) * lu(1191) + lu(1203) = lu(1203) - lu(781) * lu(1191) + lu(1204) = lu(1204) - lu(782) * lu(1191) + lu(1205) = lu(1205) - lu(783) * lu(1191) + lu(1206) = lu(1206) - lu(784) * lu(1191) + lu(1207) = lu(1207) - lu(785) * lu(1191) + lu(1208) = lu(1208) - lu(786) * lu(1191) + lu(1209) = lu(1209) - lu(787) * lu(1191) + lu(1210) = lu(1210) - lu(788) * lu(1191) + lu(1211) = lu(1211) - lu(789) * lu(1191) + lu(1212) = lu(1212) - lu(790) * lu(1191) + lu(1213) = lu(1213) - lu(791) * lu(1191) + lu(1214) = lu(1214) - lu(792) * lu(1191) + lu(1227) = lu(1227) - lu(770) * lu(1226) + lu(1228) = lu(1228) - lu(771) * lu(1226) + lu(1229) = lu(1229) - lu(772) * lu(1226) + lu(1230) = lu(1230) - lu(773) * lu(1226) + lu(1231) = lu(1231) - lu(774) * lu(1226) + lu(1232) = lu(1232) - lu(775) * lu(1226) + lu(1233) = lu(1233) - lu(776) * lu(1226) + lu(1234) = lu(1234) - lu(777) * lu(1226) + lu(1235) = lu(1235) - lu(778) * lu(1226) + lu(1236) = lu(1236) - lu(779) * lu(1226) + lu(1237) = lu(1237) - lu(780) * lu(1226) + lu(1238) = lu(1238) - lu(781) * lu(1226) + lu(1239) = lu(1239) - lu(782) * lu(1226) + lu(1240) = lu(1240) - lu(783) * lu(1226) + lu(1241) = lu(1241) - lu(784) * lu(1226) + lu(1242) = lu(1242) - lu(785) * lu(1226) + lu(1243) = lu(1243) - lu(786) * lu(1226) + lu(1244) = lu(1244) - lu(787) * lu(1226) + lu(1245) = lu(1245) - lu(788) * lu(1226) + lu(1246) = lu(1246) - lu(789) * lu(1226) + lu(1247) = lu(1247) - lu(790) * lu(1226) + lu(1248) = lu(1248) - lu(791) * lu(1226) + lu(1249) = lu(1249) - lu(792) * lu(1226) + lu(1271) = lu(1271) - lu(770) * lu(1270) + lu(1272) = lu(1272) - lu(771) * lu(1270) + lu(1273) = lu(1273) - lu(772) * lu(1270) + lu(1274) = lu(1274) - lu(773) * lu(1270) + lu(1275) = lu(1275) - lu(774) * lu(1270) + lu(1276) = lu(1276) - lu(775) * lu(1270) + lu(1277) = lu(1277) - lu(776) * lu(1270) + lu(1278) = lu(1278) - lu(777) * lu(1270) + lu(1279) = lu(1279) - lu(778) * lu(1270) + lu(1280) = lu(1280) - lu(779) * lu(1270) + lu(1281) = lu(1281) - lu(780) * lu(1270) + lu(1282) = lu(1282) - lu(781) * lu(1270) + lu(1283) = lu(1283) - lu(782) * lu(1270) + lu(1284) = lu(1284) - lu(783) * lu(1270) + lu(1285) = lu(1285) - lu(784) * lu(1270) + lu(1286) = lu(1286) - lu(785) * lu(1270) + lu(1287) = lu(1287) - lu(786) * lu(1270) + lu(1288) = lu(1288) - lu(787) * lu(1270) + lu(1289) = lu(1289) - lu(788) * lu(1270) + lu(1290) = lu(1290) - lu(789) * lu(1270) + lu(1291) = lu(1291) - lu(790) * lu(1270) + lu(1292) = lu(1292) - lu(791) * lu(1270) + lu(1293) = lu(1293) - lu(792) * lu(1270) + lu(1312) = lu(1312) - lu(770) * lu(1311) + lu(1313) = lu(1313) - lu(771) * lu(1311) + lu(1314) = lu(1314) - lu(772) * lu(1311) + lu(1315) = lu(1315) - lu(773) * lu(1311) + lu(1316) = lu(1316) - lu(774) * lu(1311) + lu(1317) = lu(1317) - lu(775) * lu(1311) + lu(1318) = lu(1318) - lu(776) * lu(1311) + lu(1319) = lu(1319) - lu(777) * lu(1311) + lu(1320) = lu(1320) - lu(778) * lu(1311) + lu(1321) = lu(1321) - lu(779) * lu(1311) + lu(1322) = lu(1322) - lu(780) * lu(1311) + lu(1323) = lu(1323) - lu(781) * lu(1311) + lu(1324) = lu(1324) - lu(782) * lu(1311) + lu(1325) = lu(1325) - lu(783) * lu(1311) + lu(1326) = lu(1326) - lu(784) * lu(1311) + lu(1327) = lu(1327) - lu(785) * lu(1311) + lu(1328) = lu(1328) - lu(786) * lu(1311) + lu(1329) = lu(1329) - lu(787) * lu(1311) + lu(1330) = lu(1330) - lu(788) * lu(1311) + lu(1331) = lu(1331) - lu(789) * lu(1311) + lu(1332) = lu(1332) - lu(790) * lu(1311) + lu(1333) = lu(1333) - lu(791) * lu(1311) + lu(1334) = lu(1334) - lu(792) * lu(1311) + lu(1354) = lu(1354) - lu(770) * lu(1353) + lu(1355) = lu(1355) - lu(771) * lu(1353) + lu(1356) = lu(1356) - lu(772) * lu(1353) + lu(1357) = lu(1357) - lu(773) * lu(1353) + lu(1358) = lu(1358) - lu(774) * lu(1353) + lu(1359) = lu(1359) - lu(775) * lu(1353) + lu(1360) = lu(1360) - lu(776) * lu(1353) + lu(1361) = lu(1361) - lu(777) * lu(1353) + lu(1362) = lu(1362) - lu(778) * lu(1353) + lu(1363) = lu(1363) - lu(779) * lu(1353) + lu(1364) = lu(1364) - lu(780) * lu(1353) + lu(1365) = lu(1365) - lu(781) * lu(1353) + lu(1366) = lu(1366) - lu(782) * lu(1353) + lu(1367) = lu(1367) - lu(783) * lu(1353) + lu(1368) = lu(1368) - lu(784) * lu(1353) + lu(1369) = lu(1369) - lu(785) * lu(1353) + lu(1370) = lu(1370) - lu(786) * lu(1353) + lu(1371) = lu(1371) - lu(787) * lu(1353) + lu(1372) = lu(1372) - lu(788) * lu(1353) + lu(1373) = lu(1373) - lu(789) * lu(1353) + lu(1374) = lu(1374) - lu(790) * lu(1353) + lu(1375) = lu(1375) - lu(791) * lu(1353) + lu(1376) = lu(1376) - lu(792) * lu(1353) + lu(1438) = lu(1438) - lu(770) * lu(1437) + lu(1439) = lu(1439) - lu(771) * lu(1437) + lu(1440) = lu(1440) - lu(772) * lu(1437) + lu(1441) = lu(1441) - lu(773) * lu(1437) + lu(1442) = lu(1442) - lu(774) * lu(1437) + lu(1443) = lu(1443) - lu(775) * lu(1437) + lu(1444) = lu(1444) - lu(776) * lu(1437) + lu(1445) = lu(1445) - lu(777) * lu(1437) + lu(1446) = lu(1446) - lu(778) * lu(1437) + lu(1447) = lu(1447) - lu(779) * lu(1437) + lu(1448) = lu(1448) - lu(780) * lu(1437) + lu(1449) = lu(1449) - lu(781) * lu(1437) + lu(1450) = lu(1450) - lu(782) * lu(1437) + lu(1451) = lu(1451) - lu(783) * lu(1437) + lu(1452) = lu(1452) - lu(784) * lu(1437) + lu(1453) = lu(1453) - lu(785) * lu(1437) + lu(1454) = lu(1454) - lu(786) * lu(1437) + lu(1455) = lu(1455) - lu(787) * lu(1437) + lu(1456) = lu(1456) - lu(788) * lu(1437) + lu(1457) = lu(1457) - lu(789) * lu(1437) + lu(1458) = lu(1458) - lu(790) * lu(1437) + lu(1459) = lu(1459) - lu(791) * lu(1437) + lu(1460) = lu(1460) - lu(792) * lu(1437) + lu(1493) = lu(1493) - lu(770) * lu(1492) + lu(1494) = lu(1494) - lu(771) * lu(1492) + lu(1495) = lu(1495) - lu(772) * lu(1492) + lu(1496) = lu(1496) - lu(773) * lu(1492) + lu(1497) = lu(1497) - lu(774) * lu(1492) + lu(1498) = lu(1498) - lu(775) * lu(1492) + lu(1499) = lu(1499) - lu(776) * lu(1492) + lu(1500) = lu(1500) - lu(777) * lu(1492) + lu(1501) = lu(1501) - lu(778) * lu(1492) + lu(1502) = lu(1502) - lu(779) * lu(1492) + lu(1503) = lu(1503) - lu(780) * lu(1492) + lu(1504) = lu(1504) - lu(781) * lu(1492) + lu(1505) = lu(1505) - lu(782) * lu(1492) + lu(1506) = lu(1506) - lu(783) * lu(1492) + lu(1507) = lu(1507) - lu(784) * lu(1492) + lu(1508) = lu(1508) - lu(785) * lu(1492) + lu(1509) = lu(1509) - lu(786) * lu(1492) + lu(1510) = lu(1510) - lu(787) * lu(1492) + lu(1511) = lu(1511) - lu(788) * lu(1492) + lu(1512) = lu(1512) - lu(789) * lu(1492) + lu(1513) = lu(1513) - lu(790) * lu(1492) + lu(1514) = lu(1514) - lu(791) * lu(1492) + lu(1515) = lu(1515) - lu(792) * lu(1492) + lu(1525) = lu(1525) - lu(770) * lu(1524) + lu(1526) = lu(1526) - lu(771) * lu(1524) + lu(1527) = lu(1527) - lu(772) * lu(1524) + lu(1528) = lu(1528) - lu(773) * lu(1524) + lu(1529) = lu(1529) - lu(774) * lu(1524) + lu(1530) = lu(1530) - lu(775) * lu(1524) + lu(1531) = lu(1531) - lu(776) * lu(1524) + lu(1532) = lu(1532) - lu(777) * lu(1524) + lu(1533) = lu(1533) - lu(778) * lu(1524) + lu(1534) = lu(1534) - lu(779) * lu(1524) + lu(1535) = lu(1535) - lu(780) * lu(1524) + lu(1536) = lu(1536) - lu(781) * lu(1524) + lu(1537) = lu(1537) - lu(782) * lu(1524) + lu(1538) = lu(1538) - lu(783) * lu(1524) + lu(1539) = lu(1539) - lu(784) * lu(1524) + lu(1540) = lu(1540) - lu(785) * lu(1524) + lu(1541) = lu(1541) - lu(786) * lu(1524) + lu(1542) = lu(1542) - lu(787) * lu(1524) + lu(1543) = lu(1543) - lu(788) * lu(1524) + lu(1544) = lu(1544) - lu(789) * lu(1524) + lu(1545) = lu(1545) - lu(790) * lu(1524) + lu(1546) = lu(1546) - lu(791) * lu(1524) + lu(1547) = lu(1547) - lu(792) * lu(1524) + lu(1560) = lu(1560) - lu(770) * lu(1559) + lu(1561) = lu(1561) - lu(771) * lu(1559) + lu(1562) = lu(1562) - lu(772) * lu(1559) + lu(1563) = lu(1563) - lu(773) * lu(1559) + lu(1564) = lu(1564) - lu(774) * lu(1559) + lu(1565) = lu(1565) - lu(775) * lu(1559) + lu(1566) = lu(1566) - lu(776) * lu(1559) + lu(1567) = lu(1567) - lu(777) * lu(1559) + lu(1568) = lu(1568) - lu(778) * lu(1559) + lu(1569) = lu(1569) - lu(779) * lu(1559) + lu(1570) = lu(1570) - lu(780) * lu(1559) + lu(1571) = lu(1571) - lu(781) * lu(1559) + lu(1572) = lu(1572) - lu(782) * lu(1559) + lu(1573) = lu(1573) - lu(783) * lu(1559) + lu(1574) = lu(1574) - lu(784) * lu(1559) + lu(1575) = lu(1575) - lu(785) * lu(1559) + lu(1576) = lu(1576) - lu(786) * lu(1559) + lu(1577) = lu(1577) - lu(787) * lu(1559) + lu(1578) = lu(1578) - lu(788) * lu(1559) + lu(1579) = lu(1579) - lu(789) * lu(1559) + lu(1580) = lu(1580) - lu(790) * lu(1559) + lu(1581) = lu(1581) - lu(791) * lu(1559) + lu(1582) = lu(1582) - lu(792) * lu(1559) + lu(1598) = lu(1598) - lu(770) * lu(1597) + lu(1599) = lu(1599) - lu(771) * lu(1597) + lu(1600) = lu(1600) - lu(772) * lu(1597) + lu(1601) = lu(1601) - lu(773) * lu(1597) + lu(1602) = lu(1602) - lu(774) * lu(1597) + lu(1603) = lu(1603) - lu(775) * lu(1597) + lu(1604) = lu(1604) - lu(776) * lu(1597) + lu(1605) = lu(1605) - lu(777) * lu(1597) + lu(1606) = lu(1606) - lu(778) * lu(1597) + lu(1607) = lu(1607) - lu(779) * lu(1597) + lu(1608) = lu(1608) - lu(780) * lu(1597) + lu(1609) = lu(1609) - lu(781) * lu(1597) + lu(1610) = lu(1610) - lu(782) * lu(1597) + lu(1611) = lu(1611) - lu(783) * lu(1597) + lu(1612) = lu(1612) - lu(784) * lu(1597) + lu(1613) = lu(1613) - lu(785) * lu(1597) + lu(1614) = lu(1614) - lu(786) * lu(1597) + lu(1615) = lu(1615) - lu(787) * lu(1597) + lu(1616) = lu(1616) - lu(788) * lu(1597) + lu(1617) = lu(1617) - lu(789) * lu(1597) + lu(1618) = lu(1618) - lu(790) * lu(1597) + lu(1619) = lu(1619) - lu(791) * lu(1597) + lu(1620) = lu(1620) - lu(792) * lu(1597) + lu(1637) = lu(1637) - lu(770) * lu(1636) + lu(1638) = lu(1638) - lu(771) * lu(1636) + lu(1639) = lu(1639) - lu(772) * lu(1636) + lu(1640) = lu(1640) - lu(773) * lu(1636) + lu(1641) = lu(1641) - lu(774) * lu(1636) + lu(1642) = lu(1642) - lu(775) * lu(1636) + lu(1643) = lu(1643) - lu(776) * lu(1636) + lu(1644) = lu(1644) - lu(777) * lu(1636) + lu(1645) = lu(1645) - lu(778) * lu(1636) + lu(1646) = lu(1646) - lu(779) * lu(1636) + lu(1647) = lu(1647) - lu(780) * lu(1636) + lu(1648) = lu(1648) - lu(781) * lu(1636) + lu(1649) = lu(1649) - lu(782) * lu(1636) + lu(1650) = lu(1650) - lu(783) * lu(1636) + lu(1651) = lu(1651) - lu(784) * lu(1636) + lu(1652) = lu(1652) - lu(785) * lu(1636) + lu(1653) = lu(1653) - lu(786) * lu(1636) + lu(1654) = lu(1654) - lu(787) * lu(1636) + lu(1655) = lu(1655) - lu(788) * lu(1636) + lu(1656) = lu(1656) - lu(789) * lu(1636) + lu(1657) = lu(1657) - lu(790) * lu(1636) + lu(1658) = lu(1658) - lu(791) * lu(1636) + lu(1659) = lu(1659) - lu(792) * lu(1636) + lu(1671) = lu(1671) - lu(770) * lu(1670) + lu(1672) = lu(1672) - lu(771) * lu(1670) + lu(1673) = lu(1673) - lu(772) * lu(1670) + lu(1674) = lu(1674) - lu(773) * lu(1670) + lu(1675) = lu(1675) - lu(774) * lu(1670) + lu(1676) = lu(1676) - lu(775) * lu(1670) + lu(1677) = lu(1677) - lu(776) * lu(1670) + lu(1678) = lu(1678) - lu(777) * lu(1670) + lu(1679) = lu(1679) - lu(778) * lu(1670) + lu(1680) = lu(1680) - lu(779) * lu(1670) + lu(1681) = lu(1681) - lu(780) * lu(1670) + lu(1682) = lu(1682) - lu(781) * lu(1670) + lu(1683) = lu(1683) - lu(782) * lu(1670) + lu(1684) = lu(1684) - lu(783) * lu(1670) + lu(1685) = lu(1685) - lu(784) * lu(1670) + lu(1686) = lu(1686) - lu(785) * lu(1670) + lu(1687) = lu(1687) - lu(786) * lu(1670) + lu(1688) = lu(1688) - lu(787) * lu(1670) + lu(1689) = lu(1689) - lu(788) * lu(1670) + lu(1690) = lu(1690) - lu(789) * lu(1670) + lu(1691) = lu(1691) - lu(790) * lu(1670) + lu(1692) = lu(1692) - lu(791) * lu(1670) + lu(1693) = lu(1693) - lu(792) * lu(1670) + lu(1723) = lu(1723) - lu(770) * lu(1722) + lu(1724) = lu(1724) - lu(771) * lu(1722) + lu(1725) = lu(1725) - lu(772) * lu(1722) + lu(1726) = lu(1726) - lu(773) * lu(1722) + lu(1727) = lu(1727) - lu(774) * lu(1722) + lu(1728) = lu(1728) - lu(775) * lu(1722) + lu(1729) = lu(1729) - lu(776) * lu(1722) + lu(1730) = lu(1730) - lu(777) * lu(1722) + lu(1731) = lu(1731) - lu(778) * lu(1722) + lu(1732) = lu(1732) - lu(779) * lu(1722) + lu(1733) = lu(1733) - lu(780) * lu(1722) + lu(1734) = lu(1734) - lu(781) * lu(1722) + lu(1735) = lu(1735) - lu(782) * lu(1722) + lu(1736) = lu(1736) - lu(783) * lu(1722) + lu(1737) = lu(1737) - lu(784) * lu(1722) + lu(1738) = lu(1738) - lu(785) * lu(1722) + lu(1739) = lu(1739) - lu(786) * lu(1722) + lu(1740) = lu(1740) - lu(787) * lu(1722) + lu(1741) = lu(1741) - lu(788) * lu(1722) + lu(1742) = lu(1742) - lu(789) * lu(1722) + lu(1743) = lu(1743) - lu(790) * lu(1722) + lu(1744) = lu(1744) - lu(791) * lu(1722) + lu(1745) = lu(1745) - lu(792) * lu(1722) + lu(817) = 1._r8 / lu(817) + lu(818) = lu(818) * lu(817) + lu(819) = lu(819) * lu(817) + lu(820) = lu(820) * lu(817) + lu(821) = lu(821) * lu(817) + lu(822) = lu(822) * lu(817) + lu(823) = lu(823) * lu(817) + lu(824) = lu(824) * lu(817) + lu(825) = lu(825) * lu(817) + lu(826) = lu(826) * lu(817) + lu(827) = lu(827) * lu(817) + lu(828) = lu(828) * lu(817) + lu(829) = lu(829) * lu(817) + lu(830) = lu(830) * lu(817) + lu(831) = lu(831) * lu(817) + lu(832) = lu(832) * lu(817) + lu(833) = lu(833) * lu(817) + lu(834) = lu(834) * lu(817) + lu(835) = lu(835) * lu(817) + lu(836) = lu(836) * lu(817) + lu(837) = lu(837) * lu(817) + lu(838) = lu(838) * lu(817) + lu(839) = lu(839) * lu(817) + lu(860) = lu(860) - lu(818) * lu(859) + lu(861) = lu(861) - lu(819) * lu(859) + lu(862) = lu(862) - lu(820) * lu(859) + lu(863) = lu(863) - lu(821) * lu(859) + lu(864) = lu(864) - lu(822) * lu(859) + lu(865) = lu(865) - lu(823) * lu(859) + lu(866) = lu(866) - lu(824) * lu(859) + lu(867) = lu(867) - lu(825) * lu(859) + lu(868) = lu(868) - lu(826) * lu(859) + lu(869) = lu(869) - lu(827) * lu(859) + lu(870) = lu(870) - lu(828) * lu(859) + lu(871) = lu(871) - lu(829) * lu(859) + lu(872) = lu(872) - lu(830) * lu(859) + lu(873) = lu(873) - lu(831) * lu(859) + lu(874) = lu(874) - lu(832) * lu(859) + lu(875) = lu(875) - lu(833) * lu(859) + lu(876) = lu(876) - lu(834) * lu(859) + lu(877) = lu(877) - lu(835) * lu(859) + lu(878) = lu(878) - lu(836) * lu(859) + lu(879) = lu(879) - lu(837) * lu(859) + lu(880) = lu(880) - lu(838) * lu(859) + lu(881) = lu(881) - lu(839) * lu(859) + lu(904) = lu(904) - lu(818) * lu(903) + lu(905) = lu(905) - lu(819) * lu(903) + lu(906) = lu(906) - lu(820) * lu(903) + lu(907) = lu(907) - lu(821) * lu(903) + lu(908) = lu(908) - lu(822) * lu(903) + lu(909) = lu(909) - lu(823) * lu(903) + lu(910) = lu(910) - lu(824) * lu(903) + lu(911) = lu(911) - lu(825) * lu(903) + lu(912) = lu(912) - lu(826) * lu(903) + lu(913) = lu(913) - lu(827) * lu(903) + lu(914) = lu(914) - lu(828) * lu(903) + lu(915) = lu(915) - lu(829) * lu(903) + lu(916) = lu(916) - lu(830) * lu(903) + lu(917) = lu(917) - lu(831) * lu(903) + lu(918) = lu(918) - lu(832) * lu(903) + lu(919) = lu(919) - lu(833) * lu(903) + lu(920) = lu(920) - lu(834) * lu(903) + lu(921) = lu(921) - lu(835) * lu(903) + lu(922) = lu(922) - lu(836) * lu(903) + lu(923) = lu(923) - lu(837) * lu(903) + lu(924) = lu(924) - lu(838) * lu(903) + lu(925) = lu(925) - lu(839) * lu(903) + lu(939) = lu(939) - lu(818) * lu(938) + lu(940) = lu(940) - lu(819) * lu(938) + lu(941) = lu(941) - lu(820) * lu(938) + lu(942) = lu(942) - lu(821) * lu(938) + lu(943) = lu(943) - lu(822) * lu(938) + lu(944) = lu(944) - lu(823) * lu(938) + lu(945) = lu(945) - lu(824) * lu(938) + lu(946) = lu(946) - lu(825) * lu(938) + lu(947) = lu(947) - lu(826) * lu(938) + lu(948) = lu(948) - lu(827) * lu(938) + lu(949) = lu(949) - lu(828) * lu(938) + lu(950) = lu(950) - lu(829) * lu(938) + lu(951) = lu(951) - lu(830) * lu(938) + lu(952) = lu(952) - lu(831) * lu(938) + lu(953) = lu(953) - lu(832) * lu(938) + lu(954) = lu(954) - lu(833) * lu(938) + lu(955) = lu(955) - lu(834) * lu(938) + lu(956) = lu(956) - lu(835) * lu(938) + lu(957) = lu(957) - lu(836) * lu(938) + lu(958) = lu(958) - lu(837) * lu(938) + lu(959) = lu(959) - lu(838) * lu(938) + lu(960) = lu(960) - lu(839) * lu(938) + lu(980) = lu(980) - lu(818) * lu(979) + lu(981) = lu(981) - lu(819) * lu(979) + lu(982) = lu(982) - lu(820) * lu(979) + lu(983) = lu(983) - lu(821) * lu(979) + lu(984) = lu(984) - lu(822) * lu(979) + lu(985) = lu(985) - lu(823) * lu(979) + lu(986) = lu(986) - lu(824) * lu(979) + lu(987) = lu(987) - lu(825) * lu(979) + lu(988) = lu(988) - lu(826) * lu(979) + lu(989) = lu(989) - lu(827) * lu(979) + lu(990) = lu(990) - lu(828) * lu(979) + lu(991) = lu(991) - lu(829) * lu(979) + lu(992) = lu(992) - lu(830) * lu(979) + lu(993) = lu(993) - lu(831) * lu(979) + lu(994) = lu(994) - lu(832) * lu(979) + lu(995) = lu(995) - lu(833) * lu(979) + lu(996) = lu(996) - lu(834) * lu(979) + lu(997) = lu(997) - lu(835) * lu(979) + lu(998) = lu(998) - lu(836) * lu(979) + lu(999) = lu(999) - lu(837) * lu(979) + lu(1000) = lu(1000) - lu(838) * lu(979) + lu(1001) = lu(1001) - lu(839) * lu(979) + lu(1022) = lu(1022) - lu(818) * lu(1021) + lu(1023) = lu(1023) - lu(819) * lu(1021) + lu(1024) = lu(1024) - lu(820) * lu(1021) + lu(1025) = lu(1025) - lu(821) * lu(1021) + lu(1026) = lu(1026) - lu(822) * lu(1021) + lu(1027) = lu(1027) - lu(823) * lu(1021) + lu(1028) = lu(1028) - lu(824) * lu(1021) + lu(1029) = lu(1029) - lu(825) * lu(1021) + lu(1030) = lu(1030) - lu(826) * lu(1021) + lu(1031) = lu(1031) - lu(827) * lu(1021) + lu(1032) = lu(1032) - lu(828) * lu(1021) + lu(1033) = lu(1033) - lu(829) * lu(1021) + lu(1034) = lu(1034) - lu(830) * lu(1021) + lu(1035) = lu(1035) - lu(831) * lu(1021) + lu(1036) = lu(1036) - lu(832) * lu(1021) + lu(1037) = lu(1037) - lu(833) * lu(1021) + lu(1038) = lu(1038) - lu(834) * lu(1021) + lu(1039) = lu(1039) - lu(835) * lu(1021) + lu(1040) = lu(1040) - lu(836) * lu(1021) + lu(1041) = lu(1041) - lu(837) * lu(1021) + lu(1042) = lu(1042) - lu(838) * lu(1021) + lu(1043) = lu(1043) - lu(839) * lu(1021) + lu(1066) = lu(1066) - lu(818) * lu(1065) + lu(1067) = lu(1067) - lu(819) * lu(1065) + lu(1068) = lu(1068) - lu(820) * lu(1065) + lu(1069) = lu(1069) - lu(821) * lu(1065) + lu(1070) = lu(1070) - lu(822) * lu(1065) + lu(1071) = lu(1071) - lu(823) * lu(1065) + lu(1072) = lu(1072) - lu(824) * lu(1065) + lu(1073) = lu(1073) - lu(825) * lu(1065) + lu(1074) = lu(1074) - lu(826) * lu(1065) + lu(1075) = lu(1075) - lu(827) * lu(1065) + lu(1076) = lu(1076) - lu(828) * lu(1065) + lu(1077) = lu(1077) - lu(829) * lu(1065) + lu(1078) = lu(1078) - lu(830) * lu(1065) + lu(1079) = lu(1079) - lu(831) * lu(1065) + lu(1080) = lu(1080) - lu(832) * lu(1065) + lu(1081) = lu(1081) - lu(833) * lu(1065) + lu(1082) = lu(1082) - lu(834) * lu(1065) + lu(1083) = lu(1083) - lu(835) * lu(1065) + lu(1084) = lu(1084) - lu(836) * lu(1065) + lu(1085) = lu(1085) - lu(837) * lu(1065) + lu(1086) = lu(1086) - lu(838) * lu(1065) + lu(1087) = lu(1087) - lu(839) * lu(1065) + lu(1108) = lu(1108) - lu(818) * lu(1107) + lu(1109) = lu(1109) - lu(819) * lu(1107) + lu(1110) = lu(1110) - lu(820) * lu(1107) + lu(1111) = lu(1111) - lu(821) * lu(1107) + lu(1112) = lu(1112) - lu(822) * lu(1107) + lu(1113) = lu(1113) - lu(823) * lu(1107) + lu(1114) = lu(1114) - lu(824) * lu(1107) + lu(1115) = lu(1115) - lu(825) * lu(1107) + lu(1116) = lu(1116) - lu(826) * lu(1107) + lu(1117) = lu(1117) - lu(827) * lu(1107) + lu(1118) = lu(1118) - lu(828) * lu(1107) + lu(1119) = lu(1119) - lu(829) * lu(1107) + lu(1120) = lu(1120) - lu(830) * lu(1107) + lu(1121) = lu(1121) - lu(831) * lu(1107) + lu(1122) = lu(1122) - lu(832) * lu(1107) + lu(1123) = lu(1123) - lu(833) * lu(1107) + lu(1124) = lu(1124) - lu(834) * lu(1107) + lu(1125) = lu(1125) - lu(835) * lu(1107) + lu(1126) = lu(1126) - lu(836) * lu(1107) + lu(1127) = lu(1127) - lu(837) * lu(1107) + lu(1128) = lu(1128) - lu(838) * lu(1107) + lu(1129) = lu(1129) - lu(839) * lu(1107) + lu(1151) = lu(1151) - lu(818) * lu(1150) + lu(1152) = lu(1152) - lu(819) * lu(1150) + lu(1153) = lu(1153) - lu(820) * lu(1150) + lu(1154) = lu(1154) - lu(821) * lu(1150) + lu(1155) = lu(1155) - lu(822) * lu(1150) + lu(1156) = lu(1156) - lu(823) * lu(1150) + lu(1157) = lu(1157) - lu(824) * lu(1150) + lu(1158) = lu(1158) - lu(825) * lu(1150) + lu(1159) = lu(1159) - lu(826) * lu(1150) + lu(1160) = lu(1160) - lu(827) * lu(1150) + lu(1161) = lu(1161) - lu(828) * lu(1150) + lu(1162) = lu(1162) - lu(829) * lu(1150) + lu(1163) = lu(1163) - lu(830) * lu(1150) + lu(1164) = lu(1164) - lu(831) * lu(1150) + lu(1165) = lu(1165) - lu(832) * lu(1150) + lu(1166) = lu(1166) - lu(833) * lu(1150) + lu(1167) = lu(1167) - lu(834) * lu(1150) + lu(1168) = lu(1168) - lu(835) * lu(1150) + lu(1169) = lu(1169) - lu(836) * lu(1150) + lu(1170) = lu(1170) - lu(837) * lu(1150) + lu(1171) = lu(1171) - lu(838) * lu(1150) + lu(1172) = lu(1172) - lu(839) * lu(1150) + lu(1193) = lu(1193) - lu(818) * lu(1192) + lu(1194) = lu(1194) - lu(819) * lu(1192) + lu(1195) = lu(1195) - lu(820) * lu(1192) + lu(1196) = lu(1196) - lu(821) * lu(1192) + lu(1197) = lu(1197) - lu(822) * lu(1192) + lu(1198) = lu(1198) - lu(823) * lu(1192) + lu(1199) = lu(1199) - lu(824) * lu(1192) + lu(1200) = lu(1200) - lu(825) * lu(1192) + lu(1201) = lu(1201) - lu(826) * lu(1192) + lu(1202) = lu(1202) - lu(827) * lu(1192) + lu(1203) = lu(1203) - lu(828) * lu(1192) + lu(1204) = lu(1204) - lu(829) * lu(1192) + lu(1205) = lu(1205) - lu(830) * lu(1192) + lu(1206) = lu(1206) - lu(831) * lu(1192) + lu(1207) = lu(1207) - lu(832) * lu(1192) + lu(1208) = lu(1208) - lu(833) * lu(1192) + lu(1209) = lu(1209) - lu(834) * lu(1192) + lu(1210) = lu(1210) - lu(835) * lu(1192) + lu(1211) = lu(1211) - lu(836) * lu(1192) + lu(1212) = lu(1212) - lu(837) * lu(1192) + lu(1213) = lu(1213) - lu(838) * lu(1192) + lu(1214) = lu(1214) - lu(839) * lu(1192) + lu(1228) = lu(1228) - lu(818) * lu(1227) + lu(1229) = lu(1229) - lu(819) * lu(1227) + lu(1230) = lu(1230) - lu(820) * lu(1227) + lu(1231) = lu(1231) - lu(821) * lu(1227) + lu(1232) = lu(1232) - lu(822) * lu(1227) + lu(1233) = lu(1233) - lu(823) * lu(1227) + lu(1234) = lu(1234) - lu(824) * lu(1227) + lu(1235) = lu(1235) - lu(825) * lu(1227) + lu(1236) = lu(1236) - lu(826) * lu(1227) + lu(1237) = lu(1237) - lu(827) * lu(1227) + lu(1238) = lu(1238) - lu(828) * lu(1227) + lu(1239) = lu(1239) - lu(829) * lu(1227) + lu(1240) = lu(1240) - lu(830) * lu(1227) + lu(1241) = lu(1241) - lu(831) * lu(1227) + lu(1242) = lu(1242) - lu(832) * lu(1227) + lu(1243) = lu(1243) - lu(833) * lu(1227) + lu(1244) = lu(1244) - lu(834) * lu(1227) + lu(1245) = lu(1245) - lu(835) * lu(1227) + lu(1246) = lu(1246) - lu(836) * lu(1227) + lu(1247) = lu(1247) - lu(837) * lu(1227) + lu(1248) = lu(1248) - lu(838) * lu(1227) + lu(1249) = lu(1249) - lu(839) * lu(1227) + lu(1272) = lu(1272) - lu(818) * lu(1271) + lu(1273) = lu(1273) - lu(819) * lu(1271) + lu(1274) = lu(1274) - lu(820) * lu(1271) + lu(1275) = lu(1275) - lu(821) * lu(1271) + lu(1276) = lu(1276) - lu(822) * lu(1271) + lu(1277) = lu(1277) - lu(823) * lu(1271) + lu(1278) = lu(1278) - lu(824) * lu(1271) + lu(1279) = lu(1279) - lu(825) * lu(1271) + lu(1280) = lu(1280) - lu(826) * lu(1271) + lu(1281) = lu(1281) - lu(827) * lu(1271) + lu(1282) = lu(1282) - lu(828) * lu(1271) + lu(1283) = lu(1283) - lu(829) * lu(1271) + lu(1284) = lu(1284) - lu(830) * lu(1271) + lu(1285) = lu(1285) - lu(831) * lu(1271) + lu(1286) = lu(1286) - lu(832) * lu(1271) + lu(1287) = lu(1287) - lu(833) * lu(1271) + lu(1288) = lu(1288) - lu(834) * lu(1271) + lu(1289) = lu(1289) - lu(835) * lu(1271) + lu(1290) = lu(1290) - lu(836) * lu(1271) + lu(1291) = lu(1291) - lu(837) * lu(1271) + lu(1292) = lu(1292) - lu(838) * lu(1271) + lu(1293) = lu(1293) - lu(839) * lu(1271) + lu(1313) = lu(1313) - lu(818) * lu(1312) + lu(1314) = lu(1314) - lu(819) * lu(1312) + lu(1315) = lu(1315) - lu(820) * lu(1312) + lu(1316) = lu(1316) - lu(821) * lu(1312) + lu(1317) = lu(1317) - lu(822) * lu(1312) + lu(1318) = lu(1318) - lu(823) * lu(1312) + lu(1319) = lu(1319) - lu(824) * lu(1312) + lu(1320) = lu(1320) - lu(825) * lu(1312) + lu(1321) = lu(1321) - lu(826) * lu(1312) + lu(1322) = lu(1322) - lu(827) * lu(1312) + lu(1323) = lu(1323) - lu(828) * lu(1312) + lu(1324) = lu(1324) - lu(829) * lu(1312) + lu(1325) = lu(1325) - lu(830) * lu(1312) + lu(1326) = lu(1326) - lu(831) * lu(1312) + lu(1327) = lu(1327) - lu(832) * lu(1312) + lu(1328) = lu(1328) - lu(833) * lu(1312) + lu(1329) = lu(1329) - lu(834) * lu(1312) + lu(1330) = lu(1330) - lu(835) * lu(1312) + lu(1331) = lu(1331) - lu(836) * lu(1312) + lu(1332) = lu(1332) - lu(837) * lu(1312) + lu(1333) = lu(1333) - lu(838) * lu(1312) + lu(1334) = lu(1334) - lu(839) * lu(1312) + lu(1355) = lu(1355) - lu(818) * lu(1354) + lu(1356) = lu(1356) - lu(819) * lu(1354) + lu(1357) = lu(1357) - lu(820) * lu(1354) + lu(1358) = lu(1358) - lu(821) * lu(1354) + lu(1359) = lu(1359) - lu(822) * lu(1354) + lu(1360) = lu(1360) - lu(823) * lu(1354) + lu(1361) = lu(1361) - lu(824) * lu(1354) + lu(1362) = lu(1362) - lu(825) * lu(1354) + lu(1363) = lu(1363) - lu(826) * lu(1354) + lu(1364) = lu(1364) - lu(827) * lu(1354) + lu(1365) = lu(1365) - lu(828) * lu(1354) + lu(1366) = lu(1366) - lu(829) * lu(1354) + lu(1367) = lu(1367) - lu(830) * lu(1354) + lu(1368) = lu(1368) - lu(831) * lu(1354) + lu(1369) = lu(1369) - lu(832) * lu(1354) + lu(1370) = lu(1370) - lu(833) * lu(1354) + lu(1371) = lu(1371) - lu(834) * lu(1354) + lu(1372) = lu(1372) - lu(835) * lu(1354) + lu(1373) = lu(1373) - lu(836) * lu(1354) + lu(1374) = lu(1374) - lu(837) * lu(1354) + lu(1375) = lu(1375) - lu(838) * lu(1354) + lu(1376) = lu(1376) - lu(839) * lu(1354) + lu(1397) = lu(1397) - lu(818) * lu(1396) + lu(1398) = lu(1398) - lu(819) * lu(1396) + lu(1399) = lu(1399) - lu(820) * lu(1396) + lu(1400) = lu(1400) - lu(821) * lu(1396) + lu(1401) = lu(1401) - lu(822) * lu(1396) + lu(1402) = lu(1402) - lu(823) * lu(1396) + lu(1403) = lu(1403) - lu(824) * lu(1396) + lu(1404) = lu(1404) - lu(825) * lu(1396) + lu(1405) = lu(1405) - lu(826) * lu(1396) + lu(1406) = lu(1406) - lu(827) * lu(1396) + lu(1407) = lu(1407) - lu(828) * lu(1396) + lu(1408) = lu(1408) - lu(829) * lu(1396) + lu(1409) = lu(1409) - lu(830) * lu(1396) + lu(1410) = lu(1410) - lu(831) * lu(1396) + lu(1411) = lu(1411) - lu(832) * lu(1396) + lu(1412) = lu(1412) - lu(833) * lu(1396) + lu(1413) = lu(1413) - lu(834) * lu(1396) + lu(1414) = lu(1414) - lu(835) * lu(1396) + lu(1415) = lu(1415) - lu(836) * lu(1396) + lu(1416) = lu(1416) - lu(837) * lu(1396) + lu(1417) = lu(1417) - lu(838) * lu(1396) + lu(1418) = lu(1418) - lu(839) * lu(1396) + lu(1439) = lu(1439) - lu(818) * lu(1438) + lu(1440) = lu(1440) - lu(819) * lu(1438) + lu(1441) = lu(1441) - lu(820) * lu(1438) + lu(1442) = lu(1442) - lu(821) * lu(1438) + lu(1443) = lu(1443) - lu(822) * lu(1438) + lu(1444) = lu(1444) - lu(823) * lu(1438) + lu(1445) = lu(1445) - lu(824) * lu(1438) + lu(1446) = lu(1446) - lu(825) * lu(1438) + lu(1447) = lu(1447) - lu(826) * lu(1438) + lu(1448) = lu(1448) - lu(827) * lu(1438) + lu(1449) = lu(1449) - lu(828) * lu(1438) + lu(1450) = lu(1450) - lu(829) * lu(1438) + lu(1451) = lu(1451) - lu(830) * lu(1438) + lu(1452) = lu(1452) - lu(831) * lu(1438) + lu(1453) = lu(1453) - lu(832) * lu(1438) + lu(1454) = lu(1454) - lu(833) * lu(1438) + lu(1455) = lu(1455) - lu(834) * lu(1438) + lu(1456) = lu(1456) - lu(835) * lu(1438) + lu(1457) = lu(1457) - lu(836) * lu(1438) + lu(1458) = lu(1458) - lu(837) * lu(1438) + lu(1459) = lu(1459) - lu(838) * lu(1438) + lu(1460) = lu(1460) - lu(839) * lu(1438) + lu(1494) = lu(1494) - lu(818) * lu(1493) + lu(1495) = lu(1495) - lu(819) * lu(1493) + lu(1496) = lu(1496) - lu(820) * lu(1493) + lu(1497) = lu(1497) - lu(821) * lu(1493) + lu(1498) = lu(1498) - lu(822) * lu(1493) + lu(1499) = lu(1499) - lu(823) * lu(1493) + lu(1500) = lu(1500) - lu(824) * lu(1493) + lu(1501) = lu(1501) - lu(825) * lu(1493) + lu(1502) = lu(1502) - lu(826) * lu(1493) + lu(1503) = lu(1503) - lu(827) * lu(1493) + lu(1504) = lu(1504) - lu(828) * lu(1493) + lu(1505) = lu(1505) - lu(829) * lu(1493) + lu(1506) = lu(1506) - lu(830) * lu(1493) + lu(1507) = lu(1507) - lu(831) * lu(1493) + lu(1508) = lu(1508) - lu(832) * lu(1493) + lu(1509) = lu(1509) - lu(833) * lu(1493) + lu(1510) = lu(1510) - lu(834) * lu(1493) + lu(1511) = lu(1511) - lu(835) * lu(1493) + lu(1512) = lu(1512) - lu(836) * lu(1493) + lu(1513) = lu(1513) - lu(837) * lu(1493) + lu(1514) = lu(1514) - lu(838) * lu(1493) + lu(1515) = lu(1515) - lu(839) * lu(1493) + lu(1526) = lu(1526) - lu(818) * lu(1525) + lu(1527) = lu(1527) - lu(819) * lu(1525) + lu(1528) = lu(1528) - lu(820) * lu(1525) + lu(1529) = lu(1529) - lu(821) * lu(1525) + lu(1530) = lu(1530) - lu(822) * lu(1525) + lu(1531) = lu(1531) - lu(823) * lu(1525) + lu(1532) = lu(1532) - lu(824) * lu(1525) + lu(1533) = lu(1533) - lu(825) * lu(1525) + lu(1534) = lu(1534) - lu(826) * lu(1525) + lu(1535) = lu(1535) - lu(827) * lu(1525) + lu(1536) = lu(1536) - lu(828) * lu(1525) + lu(1537) = lu(1537) - lu(829) * lu(1525) + lu(1538) = lu(1538) - lu(830) * lu(1525) + lu(1539) = lu(1539) - lu(831) * lu(1525) + lu(1540) = lu(1540) - lu(832) * lu(1525) + lu(1541) = lu(1541) - lu(833) * lu(1525) + lu(1542) = lu(1542) - lu(834) * lu(1525) + lu(1543) = lu(1543) - lu(835) * lu(1525) + lu(1544) = lu(1544) - lu(836) * lu(1525) + lu(1545) = lu(1545) - lu(837) * lu(1525) + lu(1546) = lu(1546) - lu(838) * lu(1525) + lu(1547) = lu(1547) - lu(839) * lu(1525) + lu(1561) = lu(1561) - lu(818) * lu(1560) + lu(1562) = lu(1562) - lu(819) * lu(1560) + lu(1563) = lu(1563) - lu(820) * lu(1560) + lu(1564) = lu(1564) - lu(821) * lu(1560) + lu(1565) = lu(1565) - lu(822) * lu(1560) + lu(1566) = lu(1566) - lu(823) * lu(1560) + lu(1567) = lu(1567) - lu(824) * lu(1560) + lu(1568) = lu(1568) - lu(825) * lu(1560) + lu(1569) = lu(1569) - lu(826) * lu(1560) + lu(1570) = lu(1570) - lu(827) * lu(1560) + lu(1571) = lu(1571) - lu(828) * lu(1560) + lu(1572) = lu(1572) - lu(829) * lu(1560) + lu(1573) = lu(1573) - lu(830) * lu(1560) + lu(1574) = lu(1574) - lu(831) * lu(1560) + lu(1575) = lu(1575) - lu(832) * lu(1560) + lu(1576) = lu(1576) - lu(833) * lu(1560) + lu(1577) = lu(1577) - lu(834) * lu(1560) + lu(1578) = lu(1578) - lu(835) * lu(1560) + lu(1579) = lu(1579) - lu(836) * lu(1560) + lu(1580) = lu(1580) - lu(837) * lu(1560) + lu(1581) = lu(1581) - lu(838) * lu(1560) + lu(1582) = lu(1582) - lu(839) * lu(1560) + lu(1599) = lu(1599) - lu(818) * lu(1598) + lu(1600) = lu(1600) - lu(819) * lu(1598) + lu(1601) = lu(1601) - lu(820) * lu(1598) + lu(1602) = lu(1602) - lu(821) * lu(1598) + lu(1603) = lu(1603) - lu(822) * lu(1598) + lu(1604) = lu(1604) - lu(823) * lu(1598) + lu(1605) = lu(1605) - lu(824) * lu(1598) + lu(1606) = lu(1606) - lu(825) * lu(1598) + lu(1607) = lu(1607) - lu(826) * lu(1598) + lu(1608) = lu(1608) - lu(827) * lu(1598) + lu(1609) = lu(1609) - lu(828) * lu(1598) + lu(1610) = lu(1610) - lu(829) * lu(1598) + lu(1611) = lu(1611) - lu(830) * lu(1598) + lu(1612) = lu(1612) - lu(831) * lu(1598) + lu(1613) = lu(1613) - lu(832) * lu(1598) + lu(1614) = lu(1614) - lu(833) * lu(1598) + lu(1615) = lu(1615) - lu(834) * lu(1598) + lu(1616) = lu(1616) - lu(835) * lu(1598) + lu(1617) = lu(1617) - lu(836) * lu(1598) + lu(1618) = lu(1618) - lu(837) * lu(1598) + lu(1619) = lu(1619) - lu(838) * lu(1598) + lu(1620) = lu(1620) - lu(839) * lu(1598) + lu(1638) = lu(1638) - lu(818) * lu(1637) + lu(1639) = lu(1639) - lu(819) * lu(1637) + lu(1640) = lu(1640) - lu(820) * lu(1637) + lu(1641) = lu(1641) - lu(821) * lu(1637) + lu(1642) = lu(1642) - lu(822) * lu(1637) + lu(1643) = lu(1643) - lu(823) * lu(1637) + lu(1644) = lu(1644) - lu(824) * lu(1637) + lu(1645) = lu(1645) - lu(825) * lu(1637) + lu(1646) = lu(1646) - lu(826) * lu(1637) + lu(1647) = lu(1647) - lu(827) * lu(1637) + lu(1648) = lu(1648) - lu(828) * lu(1637) + lu(1649) = lu(1649) - lu(829) * lu(1637) + lu(1650) = lu(1650) - lu(830) * lu(1637) + lu(1651) = lu(1651) - lu(831) * lu(1637) + lu(1652) = lu(1652) - lu(832) * lu(1637) + lu(1653) = lu(1653) - lu(833) * lu(1637) + lu(1654) = lu(1654) - lu(834) * lu(1637) + lu(1655) = lu(1655) - lu(835) * lu(1637) + lu(1656) = lu(1656) - lu(836) * lu(1637) + lu(1657) = lu(1657) - lu(837) * lu(1637) + lu(1658) = lu(1658) - lu(838) * lu(1637) + lu(1659) = lu(1659) - lu(839) * lu(1637) + lu(1672) = lu(1672) - lu(818) * lu(1671) + lu(1673) = lu(1673) - lu(819) * lu(1671) + lu(1674) = lu(1674) - lu(820) * lu(1671) + lu(1675) = lu(1675) - lu(821) * lu(1671) + lu(1676) = lu(1676) - lu(822) * lu(1671) + lu(1677) = lu(1677) - lu(823) * lu(1671) + lu(1678) = lu(1678) - lu(824) * lu(1671) + lu(1679) = lu(1679) - lu(825) * lu(1671) + lu(1680) = lu(1680) - lu(826) * lu(1671) + lu(1681) = lu(1681) - lu(827) * lu(1671) + lu(1682) = lu(1682) - lu(828) * lu(1671) + lu(1683) = lu(1683) - lu(829) * lu(1671) + lu(1684) = lu(1684) - lu(830) * lu(1671) + lu(1685) = lu(1685) - lu(831) * lu(1671) + lu(1686) = lu(1686) - lu(832) * lu(1671) + lu(1687) = lu(1687) - lu(833) * lu(1671) + lu(1688) = lu(1688) - lu(834) * lu(1671) + lu(1689) = lu(1689) - lu(835) * lu(1671) + lu(1690) = lu(1690) - lu(836) * lu(1671) + lu(1691) = lu(1691) - lu(837) * lu(1671) + lu(1692) = lu(1692) - lu(838) * lu(1671) + lu(1693) = lu(1693) - lu(839) * lu(1671) + lu(1724) = lu(1724) - lu(818) * lu(1723) + lu(1725) = lu(1725) - lu(819) * lu(1723) + lu(1726) = lu(1726) - lu(820) * lu(1723) + lu(1727) = lu(1727) - lu(821) * lu(1723) + lu(1728) = lu(1728) - lu(822) * lu(1723) + lu(1729) = lu(1729) - lu(823) * lu(1723) + lu(1730) = lu(1730) - lu(824) * lu(1723) + lu(1731) = lu(1731) - lu(825) * lu(1723) + lu(1732) = lu(1732) - lu(826) * lu(1723) + lu(1733) = lu(1733) - lu(827) * lu(1723) + lu(1734) = lu(1734) - lu(828) * lu(1723) + lu(1735) = lu(1735) - lu(829) * lu(1723) + lu(1736) = lu(1736) - lu(830) * lu(1723) + lu(1737) = lu(1737) - lu(831) * lu(1723) + lu(1738) = lu(1738) - lu(832) * lu(1723) + lu(1739) = lu(1739) - lu(833) * lu(1723) + lu(1740) = lu(1740) - lu(834) * lu(1723) + lu(1741) = lu(1741) - lu(835) * lu(1723) + lu(1742) = lu(1742) - lu(836) * lu(1723) + lu(1743) = lu(1743) - lu(837) * lu(1723) + lu(1744) = lu(1744) - lu(838) * lu(1723) + lu(1745) = lu(1745) - lu(839) * lu(1723) + lu(860) = 1._r8 / lu(860) + lu(861) = lu(861) * lu(860) + lu(862) = lu(862) * lu(860) + lu(863) = lu(863) * lu(860) + lu(864) = lu(864) * lu(860) + lu(865) = lu(865) * lu(860) + lu(866) = lu(866) * lu(860) + lu(867) = lu(867) * lu(860) + lu(868) = lu(868) * lu(860) + lu(869) = lu(869) * lu(860) + lu(870) = lu(870) * lu(860) + lu(871) = lu(871) * lu(860) + lu(872) = lu(872) * lu(860) + lu(873) = lu(873) * lu(860) + lu(874) = lu(874) * lu(860) + lu(875) = lu(875) * lu(860) + lu(876) = lu(876) * lu(860) + lu(877) = lu(877) * lu(860) + lu(878) = lu(878) * lu(860) + lu(879) = lu(879) * lu(860) + lu(880) = lu(880) * lu(860) + lu(881) = lu(881) * lu(860) + lu(905) = lu(905) - lu(861) * lu(904) + lu(906) = lu(906) - lu(862) * lu(904) + lu(907) = lu(907) - lu(863) * lu(904) + lu(908) = lu(908) - lu(864) * lu(904) + lu(909) = lu(909) - lu(865) * lu(904) + lu(910) = lu(910) - lu(866) * lu(904) + lu(911) = lu(911) - lu(867) * lu(904) + lu(912) = lu(912) - lu(868) * lu(904) + lu(913) = lu(913) - lu(869) * lu(904) + lu(914) = lu(914) - lu(870) * lu(904) + lu(915) = lu(915) - lu(871) * lu(904) + lu(916) = lu(916) - lu(872) * lu(904) + lu(917) = lu(917) - lu(873) * lu(904) + lu(918) = lu(918) - lu(874) * lu(904) + lu(919) = lu(919) - lu(875) * lu(904) + lu(920) = lu(920) - lu(876) * lu(904) + lu(921) = lu(921) - lu(877) * lu(904) + lu(922) = lu(922) - lu(878) * lu(904) + lu(923) = lu(923) - lu(879) * lu(904) + lu(924) = lu(924) - lu(880) * lu(904) + lu(925) = lu(925) - lu(881) * lu(904) + lu(940) = lu(940) - lu(861) * lu(939) + lu(941) = lu(941) - lu(862) * lu(939) + lu(942) = lu(942) - lu(863) * lu(939) + lu(943) = lu(943) - lu(864) * lu(939) + lu(944) = lu(944) - lu(865) * lu(939) + lu(945) = lu(945) - lu(866) * lu(939) + lu(946) = lu(946) - lu(867) * lu(939) + lu(947) = lu(947) - lu(868) * lu(939) + lu(948) = lu(948) - lu(869) * lu(939) + lu(949) = lu(949) - lu(870) * lu(939) + lu(950) = lu(950) - lu(871) * lu(939) + lu(951) = lu(951) - lu(872) * lu(939) + lu(952) = lu(952) - lu(873) * lu(939) + lu(953) = lu(953) - lu(874) * lu(939) + lu(954) = lu(954) - lu(875) * lu(939) + lu(955) = lu(955) - lu(876) * lu(939) + lu(956) = lu(956) - lu(877) * lu(939) + lu(957) = lu(957) - lu(878) * lu(939) + lu(958) = lu(958) - lu(879) * lu(939) + lu(959) = lu(959) - lu(880) * lu(939) + lu(960) = lu(960) - lu(881) * lu(939) + lu(981) = lu(981) - lu(861) * lu(980) + lu(982) = lu(982) - lu(862) * lu(980) + lu(983) = lu(983) - lu(863) * lu(980) + lu(984) = lu(984) - lu(864) * lu(980) + lu(985) = lu(985) - lu(865) * lu(980) + lu(986) = lu(986) - lu(866) * lu(980) + lu(987) = lu(987) - lu(867) * lu(980) + lu(988) = lu(988) - lu(868) * lu(980) + lu(989) = lu(989) - lu(869) * lu(980) + lu(990) = lu(990) - lu(870) * lu(980) + lu(991) = lu(991) - lu(871) * lu(980) + lu(992) = lu(992) - lu(872) * lu(980) + lu(993) = lu(993) - lu(873) * lu(980) + lu(994) = lu(994) - lu(874) * lu(980) + lu(995) = lu(995) - lu(875) * lu(980) + lu(996) = lu(996) - lu(876) * lu(980) + lu(997) = lu(997) - lu(877) * lu(980) + lu(998) = lu(998) - lu(878) * lu(980) + lu(999) = lu(999) - lu(879) * lu(980) + lu(1000) = lu(1000) - lu(880) * lu(980) + lu(1001) = lu(1001) - lu(881) * lu(980) + lu(1023) = lu(1023) - lu(861) * lu(1022) + lu(1024) = lu(1024) - lu(862) * lu(1022) + lu(1025) = lu(1025) - lu(863) * lu(1022) + lu(1026) = lu(1026) - lu(864) * lu(1022) + lu(1027) = lu(1027) - lu(865) * lu(1022) + lu(1028) = lu(1028) - lu(866) * lu(1022) + lu(1029) = lu(1029) - lu(867) * lu(1022) + lu(1030) = lu(1030) - lu(868) * lu(1022) + lu(1031) = lu(1031) - lu(869) * lu(1022) + lu(1032) = lu(1032) - lu(870) * lu(1022) + lu(1033) = lu(1033) - lu(871) * lu(1022) + lu(1034) = lu(1034) - lu(872) * lu(1022) + lu(1035) = lu(1035) - lu(873) * lu(1022) + lu(1036) = lu(1036) - lu(874) * lu(1022) + lu(1037) = lu(1037) - lu(875) * lu(1022) + lu(1038) = lu(1038) - lu(876) * lu(1022) + lu(1039) = lu(1039) - lu(877) * lu(1022) + lu(1040) = lu(1040) - lu(878) * lu(1022) + lu(1041) = lu(1041) - lu(879) * lu(1022) + lu(1042) = lu(1042) - lu(880) * lu(1022) + lu(1043) = lu(1043) - lu(881) * lu(1022) + lu(1067) = lu(1067) - lu(861) * lu(1066) + lu(1068) = lu(1068) - lu(862) * lu(1066) + lu(1069) = lu(1069) - lu(863) * lu(1066) + lu(1070) = lu(1070) - lu(864) * lu(1066) + lu(1071) = lu(1071) - lu(865) * lu(1066) + lu(1072) = lu(1072) - lu(866) * lu(1066) + lu(1073) = lu(1073) - lu(867) * lu(1066) + lu(1074) = lu(1074) - lu(868) * lu(1066) + lu(1075) = lu(1075) - lu(869) * lu(1066) + lu(1076) = lu(1076) - lu(870) * lu(1066) + lu(1077) = lu(1077) - lu(871) * lu(1066) + lu(1078) = lu(1078) - lu(872) * lu(1066) + lu(1079) = lu(1079) - lu(873) * lu(1066) + lu(1080) = lu(1080) - lu(874) * lu(1066) + lu(1081) = lu(1081) - lu(875) * lu(1066) + lu(1082) = lu(1082) - lu(876) * lu(1066) + lu(1083) = lu(1083) - lu(877) * lu(1066) + lu(1084) = lu(1084) - lu(878) * lu(1066) + lu(1085) = lu(1085) - lu(879) * lu(1066) + lu(1086) = lu(1086) - lu(880) * lu(1066) + lu(1087) = lu(1087) - lu(881) * lu(1066) + lu(1109) = lu(1109) - lu(861) * lu(1108) + lu(1110) = lu(1110) - lu(862) * lu(1108) + lu(1111) = lu(1111) - lu(863) * lu(1108) + lu(1112) = lu(1112) - lu(864) * lu(1108) + lu(1113) = lu(1113) - lu(865) * lu(1108) + lu(1114) = lu(1114) - lu(866) * lu(1108) + lu(1115) = lu(1115) - lu(867) * lu(1108) + lu(1116) = lu(1116) - lu(868) * lu(1108) + lu(1117) = lu(1117) - lu(869) * lu(1108) + lu(1118) = lu(1118) - lu(870) * lu(1108) + lu(1119) = lu(1119) - lu(871) * lu(1108) + lu(1120) = lu(1120) - lu(872) * lu(1108) + lu(1121) = lu(1121) - lu(873) * lu(1108) + lu(1122) = lu(1122) - lu(874) * lu(1108) + lu(1123) = lu(1123) - lu(875) * lu(1108) + lu(1124) = lu(1124) - lu(876) * lu(1108) + lu(1125) = lu(1125) - lu(877) * lu(1108) + lu(1126) = lu(1126) - lu(878) * lu(1108) + lu(1127) = lu(1127) - lu(879) * lu(1108) + lu(1128) = lu(1128) - lu(880) * lu(1108) + lu(1129) = lu(1129) - lu(881) * lu(1108) + lu(1152) = lu(1152) - lu(861) * lu(1151) + lu(1153) = lu(1153) - lu(862) * lu(1151) + lu(1154) = lu(1154) - lu(863) * lu(1151) + lu(1155) = lu(1155) - lu(864) * lu(1151) + lu(1156) = lu(1156) - lu(865) * lu(1151) + lu(1157) = lu(1157) - lu(866) * lu(1151) + lu(1158) = lu(1158) - lu(867) * lu(1151) + lu(1159) = lu(1159) - lu(868) * lu(1151) + lu(1160) = lu(1160) - lu(869) * lu(1151) + lu(1161) = lu(1161) - lu(870) * lu(1151) + lu(1162) = lu(1162) - lu(871) * lu(1151) + lu(1163) = lu(1163) - lu(872) * lu(1151) + lu(1164) = lu(1164) - lu(873) * lu(1151) + lu(1165) = lu(1165) - lu(874) * lu(1151) + lu(1166) = lu(1166) - lu(875) * lu(1151) + lu(1167) = lu(1167) - lu(876) * lu(1151) + lu(1168) = lu(1168) - lu(877) * lu(1151) + lu(1169) = lu(1169) - lu(878) * lu(1151) + lu(1170) = lu(1170) - lu(879) * lu(1151) + lu(1171) = lu(1171) - lu(880) * lu(1151) + lu(1172) = lu(1172) - lu(881) * lu(1151) + lu(1194) = lu(1194) - lu(861) * lu(1193) + lu(1195) = lu(1195) - lu(862) * lu(1193) + lu(1196) = lu(1196) - lu(863) * lu(1193) + lu(1197) = lu(1197) - lu(864) * lu(1193) + lu(1198) = lu(1198) - lu(865) * lu(1193) + lu(1199) = lu(1199) - lu(866) * lu(1193) + lu(1200) = lu(1200) - lu(867) * lu(1193) + lu(1201) = lu(1201) - lu(868) * lu(1193) + lu(1202) = lu(1202) - lu(869) * lu(1193) + lu(1203) = lu(1203) - lu(870) * lu(1193) + lu(1204) = lu(1204) - lu(871) * lu(1193) + lu(1205) = lu(1205) - lu(872) * lu(1193) + lu(1206) = lu(1206) - lu(873) * lu(1193) + lu(1207) = lu(1207) - lu(874) * lu(1193) + lu(1208) = lu(1208) - lu(875) * lu(1193) + lu(1209) = lu(1209) - lu(876) * lu(1193) + lu(1210) = lu(1210) - lu(877) * lu(1193) + lu(1211) = lu(1211) - lu(878) * lu(1193) + lu(1212) = lu(1212) - lu(879) * lu(1193) + lu(1213) = lu(1213) - lu(880) * lu(1193) + lu(1214) = lu(1214) - lu(881) * lu(1193) + lu(1229) = lu(1229) - lu(861) * lu(1228) + lu(1230) = lu(1230) - lu(862) * lu(1228) + lu(1231) = lu(1231) - lu(863) * lu(1228) + lu(1232) = lu(1232) - lu(864) * lu(1228) + lu(1233) = lu(1233) - lu(865) * lu(1228) + lu(1234) = lu(1234) - lu(866) * lu(1228) + lu(1235) = lu(1235) - lu(867) * lu(1228) + lu(1236) = lu(1236) - lu(868) * lu(1228) + lu(1237) = lu(1237) - lu(869) * lu(1228) + lu(1238) = lu(1238) - lu(870) * lu(1228) + lu(1239) = lu(1239) - lu(871) * lu(1228) + lu(1240) = lu(1240) - lu(872) * lu(1228) + lu(1241) = lu(1241) - lu(873) * lu(1228) + lu(1242) = lu(1242) - lu(874) * lu(1228) + lu(1243) = lu(1243) - lu(875) * lu(1228) + lu(1244) = lu(1244) - lu(876) * lu(1228) + lu(1245) = lu(1245) - lu(877) * lu(1228) + lu(1246) = lu(1246) - lu(878) * lu(1228) + lu(1247) = lu(1247) - lu(879) * lu(1228) + lu(1248) = lu(1248) - lu(880) * lu(1228) + lu(1249) = lu(1249) - lu(881) * lu(1228) + lu(1273) = lu(1273) - lu(861) * lu(1272) + lu(1274) = lu(1274) - lu(862) * lu(1272) + lu(1275) = lu(1275) - lu(863) * lu(1272) + lu(1276) = lu(1276) - lu(864) * lu(1272) + lu(1277) = lu(1277) - lu(865) * lu(1272) + lu(1278) = lu(1278) - lu(866) * lu(1272) + lu(1279) = lu(1279) - lu(867) * lu(1272) + lu(1280) = lu(1280) - lu(868) * lu(1272) + lu(1281) = lu(1281) - lu(869) * lu(1272) + lu(1282) = lu(1282) - lu(870) * lu(1272) + lu(1283) = lu(1283) - lu(871) * lu(1272) + lu(1284) = lu(1284) - lu(872) * lu(1272) + lu(1285) = lu(1285) - lu(873) * lu(1272) + lu(1286) = lu(1286) - lu(874) * lu(1272) + lu(1287) = lu(1287) - lu(875) * lu(1272) + lu(1288) = lu(1288) - lu(876) * lu(1272) + lu(1289) = lu(1289) - lu(877) * lu(1272) + lu(1290) = lu(1290) - lu(878) * lu(1272) + lu(1291) = lu(1291) - lu(879) * lu(1272) + lu(1292) = lu(1292) - lu(880) * lu(1272) + lu(1293) = lu(1293) - lu(881) * lu(1272) + lu(1314) = lu(1314) - lu(861) * lu(1313) + lu(1315) = lu(1315) - lu(862) * lu(1313) + lu(1316) = lu(1316) - lu(863) * lu(1313) + lu(1317) = lu(1317) - lu(864) * lu(1313) + lu(1318) = lu(1318) - lu(865) * lu(1313) + lu(1319) = lu(1319) - lu(866) * lu(1313) + lu(1320) = lu(1320) - lu(867) * lu(1313) + lu(1321) = lu(1321) - lu(868) * lu(1313) + lu(1322) = lu(1322) - lu(869) * lu(1313) + lu(1323) = lu(1323) - lu(870) * lu(1313) + lu(1324) = lu(1324) - lu(871) * lu(1313) + lu(1325) = lu(1325) - lu(872) * lu(1313) + lu(1326) = lu(1326) - lu(873) * lu(1313) + lu(1327) = lu(1327) - lu(874) * lu(1313) + lu(1328) = lu(1328) - lu(875) * lu(1313) + lu(1329) = lu(1329) - lu(876) * lu(1313) + lu(1330) = lu(1330) - lu(877) * lu(1313) + lu(1331) = lu(1331) - lu(878) * lu(1313) + lu(1332) = lu(1332) - lu(879) * lu(1313) + lu(1333) = lu(1333) - lu(880) * lu(1313) + lu(1334) = lu(1334) - lu(881) * lu(1313) + lu(1356) = lu(1356) - lu(861) * lu(1355) + lu(1357) = lu(1357) - lu(862) * lu(1355) + lu(1358) = lu(1358) - lu(863) * lu(1355) + lu(1359) = lu(1359) - lu(864) * lu(1355) + lu(1360) = lu(1360) - lu(865) * lu(1355) + lu(1361) = lu(1361) - lu(866) * lu(1355) + lu(1362) = lu(1362) - lu(867) * lu(1355) + lu(1363) = lu(1363) - lu(868) * lu(1355) + lu(1364) = lu(1364) - lu(869) * lu(1355) + lu(1365) = lu(1365) - lu(870) * lu(1355) + lu(1366) = lu(1366) - lu(871) * lu(1355) + lu(1367) = lu(1367) - lu(872) * lu(1355) + lu(1368) = lu(1368) - lu(873) * lu(1355) + lu(1369) = lu(1369) - lu(874) * lu(1355) + lu(1370) = lu(1370) - lu(875) * lu(1355) + lu(1371) = lu(1371) - lu(876) * lu(1355) + lu(1372) = lu(1372) - lu(877) * lu(1355) + lu(1373) = lu(1373) - lu(878) * lu(1355) + lu(1374) = lu(1374) - lu(879) * lu(1355) + lu(1375) = lu(1375) - lu(880) * lu(1355) + lu(1376) = lu(1376) - lu(881) * lu(1355) + lu(1398) = lu(1398) - lu(861) * lu(1397) + lu(1399) = lu(1399) - lu(862) * lu(1397) + lu(1400) = lu(1400) - lu(863) * lu(1397) + lu(1401) = lu(1401) - lu(864) * lu(1397) + lu(1402) = lu(1402) - lu(865) * lu(1397) + lu(1403) = lu(1403) - lu(866) * lu(1397) + lu(1404) = lu(1404) - lu(867) * lu(1397) + lu(1405) = lu(1405) - lu(868) * lu(1397) + lu(1406) = lu(1406) - lu(869) * lu(1397) + lu(1407) = lu(1407) - lu(870) * lu(1397) + lu(1408) = lu(1408) - lu(871) * lu(1397) + lu(1409) = lu(1409) - lu(872) * lu(1397) + lu(1410) = lu(1410) - lu(873) * lu(1397) + lu(1411) = lu(1411) - lu(874) * lu(1397) + lu(1412) = lu(1412) - lu(875) * lu(1397) + lu(1413) = lu(1413) - lu(876) * lu(1397) + lu(1414) = lu(1414) - lu(877) * lu(1397) + lu(1415) = lu(1415) - lu(878) * lu(1397) + lu(1416) = lu(1416) - lu(879) * lu(1397) + lu(1417) = lu(1417) - lu(880) * lu(1397) + lu(1418) = lu(1418) - lu(881) * lu(1397) + lu(1440) = lu(1440) - lu(861) * lu(1439) + lu(1441) = lu(1441) - lu(862) * lu(1439) + lu(1442) = lu(1442) - lu(863) * lu(1439) + lu(1443) = lu(1443) - lu(864) * lu(1439) + lu(1444) = lu(1444) - lu(865) * lu(1439) + lu(1445) = lu(1445) - lu(866) * lu(1439) + lu(1446) = lu(1446) - lu(867) * lu(1439) + lu(1447) = lu(1447) - lu(868) * lu(1439) + lu(1448) = lu(1448) - lu(869) * lu(1439) + lu(1449) = lu(1449) - lu(870) * lu(1439) + lu(1450) = lu(1450) - lu(871) * lu(1439) + lu(1451) = lu(1451) - lu(872) * lu(1439) + lu(1452) = lu(1452) - lu(873) * lu(1439) + lu(1453) = lu(1453) - lu(874) * lu(1439) + lu(1454) = lu(1454) - lu(875) * lu(1439) + lu(1455) = lu(1455) - lu(876) * lu(1439) + lu(1456) = lu(1456) - lu(877) * lu(1439) + lu(1457) = lu(1457) - lu(878) * lu(1439) + lu(1458) = lu(1458) - lu(879) * lu(1439) + lu(1459) = lu(1459) - lu(880) * lu(1439) + lu(1460) = lu(1460) - lu(881) * lu(1439) + lu(1495) = lu(1495) - lu(861) * lu(1494) + lu(1496) = lu(1496) - lu(862) * lu(1494) + lu(1497) = lu(1497) - lu(863) * lu(1494) + lu(1498) = lu(1498) - lu(864) * lu(1494) + lu(1499) = lu(1499) - lu(865) * lu(1494) + lu(1500) = lu(1500) - lu(866) * lu(1494) + lu(1501) = lu(1501) - lu(867) * lu(1494) + lu(1502) = lu(1502) - lu(868) * lu(1494) + lu(1503) = lu(1503) - lu(869) * lu(1494) + lu(1504) = lu(1504) - lu(870) * lu(1494) + lu(1505) = lu(1505) - lu(871) * lu(1494) + lu(1506) = lu(1506) - lu(872) * lu(1494) + lu(1507) = lu(1507) - lu(873) * lu(1494) + lu(1508) = lu(1508) - lu(874) * lu(1494) + lu(1509) = lu(1509) - lu(875) * lu(1494) + lu(1510) = lu(1510) - lu(876) * lu(1494) + lu(1511) = lu(1511) - lu(877) * lu(1494) + lu(1512) = lu(1512) - lu(878) * lu(1494) + lu(1513) = lu(1513) - lu(879) * lu(1494) + lu(1514) = lu(1514) - lu(880) * lu(1494) + lu(1515) = lu(1515) - lu(881) * lu(1494) + lu(1527) = lu(1527) - lu(861) * lu(1526) + lu(1528) = lu(1528) - lu(862) * lu(1526) + lu(1529) = lu(1529) - lu(863) * lu(1526) + lu(1530) = lu(1530) - lu(864) * lu(1526) + lu(1531) = lu(1531) - lu(865) * lu(1526) + lu(1532) = lu(1532) - lu(866) * lu(1526) + lu(1533) = lu(1533) - lu(867) * lu(1526) + lu(1534) = lu(1534) - lu(868) * lu(1526) + lu(1535) = lu(1535) - lu(869) * lu(1526) + lu(1536) = lu(1536) - lu(870) * lu(1526) + lu(1537) = lu(1537) - lu(871) * lu(1526) + lu(1538) = lu(1538) - lu(872) * lu(1526) + lu(1539) = lu(1539) - lu(873) * lu(1526) + lu(1540) = lu(1540) - lu(874) * lu(1526) + lu(1541) = lu(1541) - lu(875) * lu(1526) + lu(1542) = lu(1542) - lu(876) * lu(1526) + lu(1543) = lu(1543) - lu(877) * lu(1526) + lu(1544) = lu(1544) - lu(878) * lu(1526) + lu(1545) = lu(1545) - lu(879) * lu(1526) + lu(1546) = lu(1546) - lu(880) * lu(1526) + lu(1547) = lu(1547) - lu(881) * lu(1526) + lu(1562) = lu(1562) - lu(861) * lu(1561) + lu(1563) = lu(1563) - lu(862) * lu(1561) + lu(1564) = lu(1564) - lu(863) * lu(1561) + lu(1565) = lu(1565) - lu(864) * lu(1561) + lu(1566) = lu(1566) - lu(865) * lu(1561) + lu(1567) = lu(1567) - lu(866) * lu(1561) + lu(1568) = lu(1568) - lu(867) * lu(1561) + lu(1569) = lu(1569) - lu(868) * lu(1561) + lu(1570) = lu(1570) - lu(869) * lu(1561) + lu(1571) = lu(1571) - lu(870) * lu(1561) + lu(1572) = lu(1572) - lu(871) * lu(1561) + lu(1573) = lu(1573) - lu(872) * lu(1561) + lu(1574) = lu(1574) - lu(873) * lu(1561) + lu(1575) = lu(1575) - lu(874) * lu(1561) + lu(1576) = lu(1576) - lu(875) * lu(1561) + lu(1577) = lu(1577) - lu(876) * lu(1561) + lu(1578) = lu(1578) - lu(877) * lu(1561) + lu(1579) = lu(1579) - lu(878) * lu(1561) + lu(1580) = lu(1580) - lu(879) * lu(1561) + lu(1581) = lu(1581) - lu(880) * lu(1561) + lu(1582) = lu(1582) - lu(881) * lu(1561) + lu(1600) = lu(1600) - lu(861) * lu(1599) + lu(1601) = lu(1601) - lu(862) * lu(1599) + lu(1602) = lu(1602) - lu(863) * lu(1599) + lu(1603) = lu(1603) - lu(864) * lu(1599) + lu(1604) = lu(1604) - lu(865) * lu(1599) + lu(1605) = lu(1605) - lu(866) * lu(1599) + lu(1606) = lu(1606) - lu(867) * lu(1599) + lu(1607) = lu(1607) - lu(868) * lu(1599) + lu(1608) = lu(1608) - lu(869) * lu(1599) + lu(1609) = lu(1609) - lu(870) * lu(1599) + lu(1610) = lu(1610) - lu(871) * lu(1599) + lu(1611) = lu(1611) - lu(872) * lu(1599) + lu(1612) = lu(1612) - lu(873) * lu(1599) + lu(1613) = lu(1613) - lu(874) * lu(1599) + lu(1614) = lu(1614) - lu(875) * lu(1599) + lu(1615) = lu(1615) - lu(876) * lu(1599) + lu(1616) = lu(1616) - lu(877) * lu(1599) + lu(1617) = lu(1617) - lu(878) * lu(1599) + lu(1618) = lu(1618) - lu(879) * lu(1599) + lu(1619) = lu(1619) - lu(880) * lu(1599) + lu(1620) = lu(1620) - lu(881) * lu(1599) + lu(1639) = lu(1639) - lu(861) * lu(1638) + lu(1640) = lu(1640) - lu(862) * lu(1638) + lu(1641) = lu(1641) - lu(863) * lu(1638) + lu(1642) = lu(1642) - lu(864) * lu(1638) + lu(1643) = lu(1643) - lu(865) * lu(1638) + lu(1644) = lu(1644) - lu(866) * lu(1638) + lu(1645) = lu(1645) - lu(867) * lu(1638) + lu(1646) = lu(1646) - lu(868) * lu(1638) + lu(1647) = lu(1647) - lu(869) * lu(1638) + lu(1648) = lu(1648) - lu(870) * lu(1638) + lu(1649) = lu(1649) - lu(871) * lu(1638) + lu(1650) = lu(1650) - lu(872) * lu(1638) + lu(1651) = lu(1651) - lu(873) * lu(1638) + lu(1652) = lu(1652) - lu(874) * lu(1638) + lu(1653) = lu(1653) - lu(875) * lu(1638) + lu(1654) = lu(1654) - lu(876) * lu(1638) + lu(1655) = lu(1655) - lu(877) * lu(1638) + lu(1656) = lu(1656) - lu(878) * lu(1638) + lu(1657) = lu(1657) - lu(879) * lu(1638) + lu(1658) = lu(1658) - lu(880) * lu(1638) + lu(1659) = lu(1659) - lu(881) * lu(1638) + lu(1673) = lu(1673) - lu(861) * lu(1672) + lu(1674) = lu(1674) - lu(862) * lu(1672) + lu(1675) = lu(1675) - lu(863) * lu(1672) + lu(1676) = lu(1676) - lu(864) * lu(1672) + lu(1677) = lu(1677) - lu(865) * lu(1672) + lu(1678) = lu(1678) - lu(866) * lu(1672) + lu(1679) = lu(1679) - lu(867) * lu(1672) + lu(1680) = lu(1680) - lu(868) * lu(1672) + lu(1681) = lu(1681) - lu(869) * lu(1672) + lu(1682) = lu(1682) - lu(870) * lu(1672) + lu(1683) = lu(1683) - lu(871) * lu(1672) + lu(1684) = lu(1684) - lu(872) * lu(1672) + lu(1685) = lu(1685) - lu(873) * lu(1672) + lu(1686) = lu(1686) - lu(874) * lu(1672) + lu(1687) = lu(1687) - lu(875) * lu(1672) + lu(1688) = lu(1688) - lu(876) * lu(1672) + lu(1689) = lu(1689) - lu(877) * lu(1672) + lu(1690) = lu(1690) - lu(878) * lu(1672) + lu(1691) = lu(1691) - lu(879) * lu(1672) + lu(1692) = lu(1692) - lu(880) * lu(1672) + lu(1693) = lu(1693) - lu(881) * lu(1672) + lu(1725) = lu(1725) - lu(861) * lu(1724) + lu(1726) = lu(1726) - lu(862) * lu(1724) + lu(1727) = lu(1727) - lu(863) * lu(1724) + lu(1728) = lu(1728) - lu(864) * lu(1724) + lu(1729) = lu(1729) - lu(865) * lu(1724) + lu(1730) = lu(1730) - lu(866) * lu(1724) + lu(1731) = lu(1731) - lu(867) * lu(1724) + lu(1732) = lu(1732) - lu(868) * lu(1724) + lu(1733) = lu(1733) - lu(869) * lu(1724) + lu(1734) = lu(1734) - lu(870) * lu(1724) + lu(1735) = lu(1735) - lu(871) * lu(1724) + lu(1736) = lu(1736) - lu(872) * lu(1724) + lu(1737) = lu(1737) - lu(873) * lu(1724) + lu(1738) = lu(1738) - lu(874) * lu(1724) + lu(1739) = lu(1739) - lu(875) * lu(1724) + lu(1740) = lu(1740) - lu(876) * lu(1724) + lu(1741) = lu(1741) - lu(877) * lu(1724) + lu(1742) = lu(1742) - lu(878) * lu(1724) + lu(1743) = lu(1743) - lu(879) * lu(1724) + lu(1744) = lu(1744) - lu(880) * lu(1724) + lu(1745) = lu(1745) - lu(881) * lu(1724) end subroutine lu_fac17 - subroutine lu_fac18( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac18( lu ) 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,878) = 1._r8 / lu(k,878) - lu(k,879) = lu(k,879) * lu(k,878) - lu(k,880) = lu(k,880) * lu(k,878) - lu(k,881) = lu(k,881) * lu(k,878) - lu(k,882) = lu(k,882) * lu(k,878) - lu(k,883) = lu(k,883) * lu(k,878) - lu(k,884) = lu(k,884) * lu(k,878) - lu(k,885) = lu(k,885) * lu(k,878) - lu(k,886) = lu(k,886) * lu(k,878) - lu(k,887) = lu(k,887) * lu(k,878) - lu(k,888) = lu(k,888) * lu(k,878) - lu(k,889) = lu(k,889) * lu(k,878) - lu(k,890) = lu(k,890) * lu(k,878) - lu(k,891) = lu(k,891) * lu(k,878) - lu(k,892) = lu(k,892) * lu(k,878) - lu(k,893) = lu(k,893) * lu(k,878) - lu(k,894) = lu(k,894) * lu(k,878) - lu(k,895) = lu(k,895) * lu(k,878) - lu(k,896) = lu(k,896) * lu(k,878) - lu(k,897) = lu(k,897) * lu(k,878) - lu(k,898) = lu(k,898) * lu(k,878) - lu(k,899) = lu(k,899) * lu(k,878) - lu(k,900) = lu(k,900) * lu(k,878) - lu(k,922) = lu(k,922) - lu(k,879) * lu(k,921) - lu(k,923) = lu(k,923) - lu(k,880) * lu(k,921) - lu(k,924) = lu(k,924) - lu(k,881) * lu(k,921) - lu(k,925) = lu(k,925) - lu(k,882) * lu(k,921) - lu(k,926) = lu(k,926) - lu(k,883) * lu(k,921) - lu(k,927) = lu(k,927) - lu(k,884) * lu(k,921) - lu(k,928) = lu(k,928) - lu(k,885) * lu(k,921) - lu(k,929) = lu(k,929) - lu(k,886) * lu(k,921) - lu(k,930) = lu(k,930) - lu(k,887) * lu(k,921) - lu(k,931) = lu(k,931) - lu(k,888) * lu(k,921) - lu(k,932) = lu(k,932) - lu(k,889) * lu(k,921) - lu(k,933) = lu(k,933) - lu(k,890) * lu(k,921) - lu(k,934) = lu(k,934) - lu(k,891) * lu(k,921) - lu(k,935) = lu(k,935) - lu(k,892) * lu(k,921) - lu(k,936) = lu(k,936) - lu(k,893) * lu(k,921) - lu(k,937) = lu(k,937) - lu(k,894) * lu(k,921) - lu(k,938) = lu(k,938) - lu(k,895) * lu(k,921) - lu(k,939) = lu(k,939) - lu(k,896) * lu(k,921) - lu(k,940) = lu(k,940) - lu(k,897) * lu(k,921) - lu(k,941) = lu(k,941) - lu(k,898) * lu(k,921) - lu(k,942) = lu(k,942) - lu(k,899) * lu(k,921) - lu(k,943) = lu(k,943) - lu(k,900) * lu(k,921) - lu(k,978) = lu(k,978) - lu(k,879) * lu(k,977) - lu(k,979) = lu(k,979) - lu(k,880) * lu(k,977) - lu(k,980) = lu(k,980) - lu(k,881) * lu(k,977) - lu(k,981) = lu(k,981) - lu(k,882) * lu(k,977) - lu(k,982) = lu(k,982) - lu(k,883) * lu(k,977) - lu(k,983) = lu(k,983) - lu(k,884) * lu(k,977) - lu(k,984) = lu(k,984) - lu(k,885) * lu(k,977) - lu(k,985) = lu(k,985) - lu(k,886) * lu(k,977) - lu(k,986) = lu(k,986) - lu(k,887) * lu(k,977) - lu(k,987) = lu(k,987) - lu(k,888) * lu(k,977) - lu(k,988) = lu(k,988) - lu(k,889) * lu(k,977) - lu(k,989) = lu(k,989) - lu(k,890) * lu(k,977) - lu(k,990) = lu(k,990) - lu(k,891) * lu(k,977) - lu(k,991) = lu(k,991) - lu(k,892) * lu(k,977) - lu(k,992) = lu(k,992) - lu(k,893) * lu(k,977) - lu(k,993) = lu(k,993) - lu(k,894) * lu(k,977) - lu(k,994) = lu(k,994) - lu(k,895) * lu(k,977) - lu(k,995) = lu(k,995) - lu(k,896) * lu(k,977) - lu(k,996) = lu(k,996) - lu(k,897) * lu(k,977) - lu(k,997) = lu(k,997) - lu(k,898) * lu(k,977) - lu(k,998) = lu(k,998) - lu(k,899) * lu(k,977) - lu(k,999) = lu(k,999) - lu(k,900) * lu(k,977) - lu(k,1021) = lu(k,1021) - lu(k,879) * lu(k,1020) - lu(k,1022) = lu(k,1022) - lu(k,880) * lu(k,1020) - lu(k,1023) = lu(k,1023) - lu(k,881) * lu(k,1020) - lu(k,1024) = lu(k,1024) - lu(k,882) * lu(k,1020) - lu(k,1025) = lu(k,1025) - lu(k,883) * lu(k,1020) - lu(k,1026) = lu(k,1026) - lu(k,884) * lu(k,1020) - lu(k,1027) = lu(k,1027) - lu(k,885) * lu(k,1020) - lu(k,1028) = lu(k,1028) - lu(k,886) * lu(k,1020) - lu(k,1029) = lu(k,1029) - lu(k,887) * lu(k,1020) - lu(k,1030) = lu(k,1030) - lu(k,888) * lu(k,1020) - lu(k,1031) = lu(k,1031) - lu(k,889) * lu(k,1020) - lu(k,1032) = lu(k,1032) - lu(k,890) * lu(k,1020) - lu(k,1033) = lu(k,1033) - lu(k,891) * lu(k,1020) - lu(k,1034) = lu(k,1034) - lu(k,892) * lu(k,1020) - lu(k,1035) = lu(k,1035) - lu(k,893) * lu(k,1020) - lu(k,1036) = lu(k,1036) - lu(k,894) * lu(k,1020) - lu(k,1037) = lu(k,1037) - lu(k,895) * lu(k,1020) - lu(k,1038) = lu(k,1038) - lu(k,896) * lu(k,1020) - lu(k,1039) = lu(k,1039) - lu(k,897) * lu(k,1020) - lu(k,1040) = lu(k,1040) - lu(k,898) * lu(k,1020) - lu(k,1041) = lu(k,1041) - lu(k,899) * lu(k,1020) - lu(k,1042) = lu(k,1042) - lu(k,900) * lu(k,1020) - lu(k,1063) = lu(k,1063) - lu(k,879) * lu(k,1062) - lu(k,1064) = lu(k,1064) - lu(k,880) * lu(k,1062) - lu(k,1065) = lu(k,1065) - lu(k,881) * lu(k,1062) - lu(k,1066) = lu(k,1066) - lu(k,882) * lu(k,1062) - lu(k,1067) = lu(k,1067) - lu(k,883) * lu(k,1062) - lu(k,1068) = lu(k,1068) - lu(k,884) * lu(k,1062) - lu(k,1069) = lu(k,1069) - lu(k,885) * lu(k,1062) - lu(k,1070) = lu(k,1070) - lu(k,886) * lu(k,1062) - lu(k,1071) = lu(k,1071) - lu(k,887) * lu(k,1062) - lu(k,1072) = lu(k,1072) - lu(k,888) * lu(k,1062) - lu(k,1073) = lu(k,1073) - lu(k,889) * lu(k,1062) - lu(k,1074) = lu(k,1074) - lu(k,890) * lu(k,1062) - lu(k,1075) = lu(k,1075) - lu(k,891) * lu(k,1062) - lu(k,1076) = lu(k,1076) - lu(k,892) * lu(k,1062) - lu(k,1077) = lu(k,1077) - lu(k,893) * lu(k,1062) - lu(k,1078) = lu(k,1078) - lu(k,894) * lu(k,1062) - lu(k,1079) = lu(k,1079) - lu(k,895) * lu(k,1062) - lu(k,1080) = lu(k,1080) - lu(k,896) * lu(k,1062) - lu(k,1081) = lu(k,1081) - lu(k,897) * lu(k,1062) - lu(k,1082) = lu(k,1082) - lu(k,898) * lu(k,1062) - lu(k,1083) = lu(k,1083) - lu(k,899) * lu(k,1062) - lu(k,1084) = lu(k,1084) - lu(k,900) * lu(k,1062) - lu(k,1103) = lu(k,1103) - lu(k,879) * lu(k,1102) - lu(k,1104) = lu(k,1104) - lu(k,880) * lu(k,1102) - lu(k,1105) = lu(k,1105) - lu(k,881) * lu(k,1102) - lu(k,1106) = lu(k,1106) - lu(k,882) * lu(k,1102) - lu(k,1107) = lu(k,1107) - lu(k,883) * lu(k,1102) - lu(k,1108) = lu(k,1108) - lu(k,884) * lu(k,1102) - lu(k,1109) = lu(k,1109) - lu(k,885) * lu(k,1102) - lu(k,1110) = lu(k,1110) - lu(k,886) * lu(k,1102) - lu(k,1111) = lu(k,1111) - lu(k,887) * lu(k,1102) - lu(k,1112) = lu(k,1112) - lu(k,888) * lu(k,1102) - lu(k,1113) = lu(k,1113) - lu(k,889) * lu(k,1102) - lu(k,1114) = lu(k,1114) - lu(k,890) * lu(k,1102) - lu(k,1115) = lu(k,1115) - lu(k,891) * lu(k,1102) - lu(k,1116) = lu(k,1116) - lu(k,892) * lu(k,1102) - lu(k,1117) = lu(k,1117) - lu(k,893) * lu(k,1102) - lu(k,1118) = lu(k,1118) - lu(k,894) * lu(k,1102) - lu(k,1119) = lu(k,1119) - lu(k,895) * lu(k,1102) - lu(k,1120) = lu(k,1120) - lu(k,896) * lu(k,1102) - lu(k,1121) = lu(k,1121) - lu(k,897) * lu(k,1102) - lu(k,1122) = lu(k,1122) - lu(k,898) * lu(k,1102) - lu(k,1123) = lu(k,1123) - lu(k,899) * lu(k,1102) - lu(k,1124) = lu(k,1124) - lu(k,900) * lu(k,1102) - lu(k,1148) = lu(k,1148) - lu(k,879) * lu(k,1147) - lu(k,1149) = lu(k,1149) - lu(k,880) * lu(k,1147) - lu(k,1150) = lu(k,1150) - lu(k,881) * lu(k,1147) - lu(k,1151) = lu(k,1151) - lu(k,882) * lu(k,1147) - lu(k,1152) = lu(k,1152) - lu(k,883) * lu(k,1147) - lu(k,1153) = lu(k,1153) - lu(k,884) * lu(k,1147) - lu(k,1154) = lu(k,1154) - lu(k,885) * lu(k,1147) - lu(k,1155) = lu(k,1155) - lu(k,886) * lu(k,1147) - lu(k,1156) = lu(k,1156) - lu(k,887) * lu(k,1147) - lu(k,1157) = lu(k,1157) - lu(k,888) * lu(k,1147) - lu(k,1158) = lu(k,1158) - lu(k,889) * lu(k,1147) - lu(k,1159) = lu(k,1159) - lu(k,890) * lu(k,1147) - lu(k,1160) = lu(k,1160) - lu(k,891) * lu(k,1147) - lu(k,1161) = lu(k,1161) - lu(k,892) * lu(k,1147) - lu(k,1162) = lu(k,1162) - lu(k,893) * lu(k,1147) - lu(k,1163) = lu(k,1163) - lu(k,894) * lu(k,1147) - lu(k,1164) = lu(k,1164) - lu(k,895) * lu(k,1147) - lu(k,1165) = lu(k,1165) - lu(k,896) * lu(k,1147) - lu(k,1166) = lu(k,1166) - lu(k,897) * lu(k,1147) - lu(k,1167) = lu(k,1167) - lu(k,898) * lu(k,1147) - lu(k,1168) = lu(k,1168) - lu(k,899) * lu(k,1147) - lu(k,1169) = lu(k,1169) - lu(k,900) * lu(k,1147) - lu(k,1191) = lu(k,1191) - lu(k,879) * lu(k,1190) - lu(k,1192) = lu(k,1192) - lu(k,880) * lu(k,1190) - lu(k,1193) = lu(k,1193) - lu(k,881) * lu(k,1190) - lu(k,1194) = lu(k,1194) - lu(k,882) * lu(k,1190) - lu(k,1195) = lu(k,1195) - lu(k,883) * lu(k,1190) - lu(k,1196) = lu(k,1196) - lu(k,884) * lu(k,1190) - lu(k,1197) = lu(k,1197) - lu(k,885) * lu(k,1190) - lu(k,1198) = lu(k,1198) - lu(k,886) * lu(k,1190) - lu(k,1199) = lu(k,1199) - lu(k,887) * lu(k,1190) - lu(k,1200) = lu(k,1200) - lu(k,888) * lu(k,1190) - lu(k,1201) = lu(k,1201) - lu(k,889) * lu(k,1190) - lu(k,1202) = lu(k,1202) - lu(k,890) * lu(k,1190) - lu(k,1203) = lu(k,1203) - lu(k,891) * lu(k,1190) - lu(k,1204) = lu(k,1204) - lu(k,892) * lu(k,1190) - lu(k,1205) = lu(k,1205) - lu(k,893) * lu(k,1190) - lu(k,1206) = lu(k,1206) - lu(k,894) * lu(k,1190) - lu(k,1207) = lu(k,1207) - lu(k,895) * lu(k,1190) - lu(k,1208) = lu(k,1208) - lu(k,896) * lu(k,1190) - lu(k,1209) = lu(k,1209) - lu(k,897) * lu(k,1190) - lu(k,1210) = lu(k,1210) - lu(k,898) * lu(k,1190) - lu(k,1211) = lu(k,1211) - lu(k,899) * lu(k,1190) - lu(k,1212) = lu(k,1212) - lu(k,900) * lu(k,1190) - lu(k,1226) = lu(k,1226) - lu(k,879) * lu(k,1225) - lu(k,1227) = lu(k,1227) - lu(k,880) * lu(k,1225) - lu(k,1228) = lu(k,1228) - lu(k,881) * lu(k,1225) - lu(k,1229) = lu(k,1229) - lu(k,882) * lu(k,1225) - lu(k,1230) = lu(k,1230) - lu(k,883) * lu(k,1225) - lu(k,1231) = lu(k,1231) - lu(k,884) * lu(k,1225) - lu(k,1232) = lu(k,1232) - lu(k,885) * lu(k,1225) - lu(k,1233) = lu(k,1233) - lu(k,886) * lu(k,1225) - lu(k,1234) = lu(k,1234) - lu(k,887) * lu(k,1225) - lu(k,1235) = lu(k,1235) - lu(k,888) * lu(k,1225) - lu(k,1236) = lu(k,1236) - lu(k,889) * lu(k,1225) - lu(k,1237) = lu(k,1237) - lu(k,890) * lu(k,1225) - lu(k,1238) = lu(k,1238) - lu(k,891) * lu(k,1225) - lu(k,1239) = lu(k,1239) - lu(k,892) * lu(k,1225) - lu(k,1240) = lu(k,1240) - lu(k,893) * lu(k,1225) - lu(k,1241) = lu(k,1241) - lu(k,894) * lu(k,1225) - lu(k,1242) = lu(k,1242) - lu(k,895) * lu(k,1225) - lu(k,1243) = lu(k,1243) - lu(k,896) * lu(k,1225) - lu(k,1244) = lu(k,1244) - lu(k,897) * lu(k,1225) - lu(k,1245) = lu(k,1245) - lu(k,898) * lu(k,1225) - lu(k,1246) = lu(k,1246) - lu(k,899) * lu(k,1225) - lu(k,1247) = lu(k,1247) - lu(k,900) * lu(k,1225) - lu(k,1269) = lu(k,1269) - lu(k,879) * lu(k,1268) - lu(k,1270) = lu(k,1270) - lu(k,880) * lu(k,1268) - lu(k,1271) = lu(k,1271) - lu(k,881) * lu(k,1268) - lu(k,1272) = lu(k,1272) - lu(k,882) * lu(k,1268) - lu(k,1273) = lu(k,1273) - lu(k,883) * lu(k,1268) - lu(k,1274) = lu(k,1274) - lu(k,884) * lu(k,1268) - lu(k,1275) = lu(k,1275) - lu(k,885) * lu(k,1268) - lu(k,1276) = lu(k,1276) - lu(k,886) * lu(k,1268) - lu(k,1277) = lu(k,1277) - lu(k,887) * lu(k,1268) - lu(k,1278) = lu(k,1278) - lu(k,888) * lu(k,1268) - lu(k,1279) = lu(k,1279) - lu(k,889) * lu(k,1268) - lu(k,1280) = lu(k,1280) - lu(k,890) * lu(k,1268) - lu(k,1281) = lu(k,1281) - lu(k,891) * lu(k,1268) - lu(k,1282) = lu(k,1282) - lu(k,892) * lu(k,1268) - lu(k,1283) = lu(k,1283) - lu(k,893) * lu(k,1268) - lu(k,1284) = lu(k,1284) - lu(k,894) * lu(k,1268) - lu(k,1285) = lu(k,1285) - lu(k,895) * lu(k,1268) - lu(k,1286) = lu(k,1286) - lu(k,896) * lu(k,1268) - lu(k,1287) = lu(k,1287) - lu(k,897) * lu(k,1268) - lu(k,1288) = lu(k,1288) - lu(k,898) * lu(k,1268) - lu(k,1289) = lu(k,1289) - lu(k,899) * lu(k,1268) - lu(k,1290) = lu(k,1290) - lu(k,900) * lu(k,1268) - lu(k,1305) = lu(k,1305) - lu(k,879) * lu(k,1304) - lu(k,1306) = lu(k,1306) - lu(k,880) * lu(k,1304) - lu(k,1307) = lu(k,1307) - lu(k,881) * lu(k,1304) - lu(k,1308) = lu(k,1308) - lu(k,882) * lu(k,1304) - lu(k,1309) = lu(k,1309) - lu(k,883) * lu(k,1304) - lu(k,1310) = lu(k,1310) - lu(k,884) * lu(k,1304) - lu(k,1311) = lu(k,1311) - lu(k,885) * lu(k,1304) - lu(k,1312) = lu(k,1312) - lu(k,886) * lu(k,1304) - lu(k,1313) = lu(k,1313) - lu(k,887) * lu(k,1304) - lu(k,1314) = lu(k,1314) - lu(k,888) * lu(k,1304) - lu(k,1315) = lu(k,1315) - lu(k,889) * lu(k,1304) - lu(k,1316) = lu(k,1316) - lu(k,890) * lu(k,1304) - lu(k,1317) = lu(k,1317) - lu(k,891) * lu(k,1304) - lu(k,1318) = lu(k,1318) - lu(k,892) * lu(k,1304) - lu(k,1319) = lu(k,1319) - lu(k,893) * lu(k,1304) - lu(k,1320) = lu(k,1320) - lu(k,894) * lu(k,1304) - lu(k,1321) = lu(k,1321) - lu(k,895) * lu(k,1304) - lu(k,1322) = lu(k,1322) - lu(k,896) * lu(k,1304) - lu(k,1323) = lu(k,1323) - lu(k,897) * lu(k,1304) - lu(k,1324) = lu(k,1324) - lu(k,898) * lu(k,1304) - lu(k,1325) = lu(k,1325) - lu(k,899) * lu(k,1304) - lu(k,1326) = lu(k,1326) - lu(k,900) * lu(k,1304) - lu(k,1350) = lu(k,1350) - lu(k,879) * lu(k,1349) - lu(k,1351) = lu(k,1351) - lu(k,880) * lu(k,1349) - lu(k,1352) = lu(k,1352) - lu(k,881) * lu(k,1349) - lu(k,1353) = lu(k,1353) - lu(k,882) * lu(k,1349) - lu(k,1354) = lu(k,1354) - lu(k,883) * lu(k,1349) - lu(k,1355) = lu(k,1355) - lu(k,884) * lu(k,1349) - lu(k,1356) = lu(k,1356) - lu(k,885) * lu(k,1349) - lu(k,1357) = lu(k,1357) - lu(k,886) * lu(k,1349) - lu(k,1358) = lu(k,1358) - lu(k,887) * lu(k,1349) - lu(k,1359) = lu(k,1359) - lu(k,888) * lu(k,1349) - lu(k,1360) = lu(k,1360) - lu(k,889) * lu(k,1349) - lu(k,1361) = lu(k,1361) - lu(k,890) * lu(k,1349) - lu(k,1362) = lu(k,1362) - lu(k,891) * lu(k,1349) - lu(k,1363) = lu(k,1363) - lu(k,892) * lu(k,1349) - lu(k,1364) = lu(k,1364) - lu(k,893) * lu(k,1349) - lu(k,1365) = lu(k,1365) - lu(k,894) * lu(k,1349) - lu(k,1366) = lu(k,1366) - lu(k,895) * lu(k,1349) - lu(k,1367) = lu(k,1367) - lu(k,896) * lu(k,1349) - lu(k,1368) = lu(k,1368) - lu(k,897) * lu(k,1349) - lu(k,1369) = lu(k,1369) - lu(k,898) * lu(k,1349) - lu(k,1370) = lu(k,1370) - lu(k,899) * lu(k,1349) - lu(k,1371) = lu(k,1371) - lu(k,900) * lu(k,1349) - lu(k,1392) = lu(k,1392) - lu(k,879) * lu(k,1391) - lu(k,1393) = lu(k,1393) - lu(k,880) * lu(k,1391) - lu(k,1394) = lu(k,1394) - lu(k,881) * lu(k,1391) - lu(k,1395) = lu(k,1395) - lu(k,882) * lu(k,1391) - lu(k,1396) = lu(k,1396) - lu(k,883) * lu(k,1391) - lu(k,1397) = lu(k,1397) - lu(k,884) * lu(k,1391) - lu(k,1398) = lu(k,1398) - lu(k,885) * lu(k,1391) - lu(k,1399) = lu(k,1399) - lu(k,886) * lu(k,1391) - lu(k,1400) = lu(k,1400) - lu(k,887) * lu(k,1391) - lu(k,1401) = lu(k,1401) - lu(k,888) * lu(k,1391) - lu(k,1402) = lu(k,1402) - lu(k,889) * lu(k,1391) - lu(k,1403) = lu(k,1403) - lu(k,890) * lu(k,1391) - lu(k,1404) = lu(k,1404) - lu(k,891) * lu(k,1391) - lu(k,1405) = lu(k,1405) - lu(k,892) * lu(k,1391) - lu(k,1406) = lu(k,1406) - lu(k,893) * lu(k,1391) - lu(k,1407) = lu(k,1407) - lu(k,894) * lu(k,1391) - lu(k,1408) = lu(k,1408) - lu(k,895) * lu(k,1391) - lu(k,1409) = lu(k,1409) - lu(k,896) * lu(k,1391) - lu(k,1410) = lu(k,1410) - lu(k,897) * lu(k,1391) - lu(k,1411) = lu(k,1411) - lu(k,898) * lu(k,1391) - lu(k,1412) = lu(k,1412) - lu(k,899) * lu(k,1391) - lu(k,1413) = lu(k,1413) - lu(k,900) * lu(k,1391) - lu(k,1430) = lu(k,1430) - lu(k,879) * lu(k,1429) - lu(k,1431) = lu(k,1431) - lu(k,880) * lu(k,1429) - lu(k,1432) = lu(k,1432) - lu(k,881) * lu(k,1429) - lu(k,1433) = lu(k,1433) - lu(k,882) * lu(k,1429) - lu(k,1434) = lu(k,1434) - lu(k,883) * lu(k,1429) - lu(k,1435) = lu(k,1435) - lu(k,884) * lu(k,1429) - lu(k,1436) = lu(k,1436) - lu(k,885) * lu(k,1429) - lu(k,1437) = lu(k,1437) - lu(k,886) * lu(k,1429) - lu(k,1438) = lu(k,1438) - lu(k,887) * lu(k,1429) - lu(k,1439) = lu(k,1439) - lu(k,888) * lu(k,1429) - lu(k,1440) = lu(k,1440) - lu(k,889) * lu(k,1429) - lu(k,1441) = lu(k,1441) - lu(k,890) * lu(k,1429) - lu(k,1442) = lu(k,1442) - lu(k,891) * lu(k,1429) - lu(k,1443) = lu(k,1443) - lu(k,892) * lu(k,1429) - lu(k,1444) = lu(k,1444) - lu(k,893) * lu(k,1429) - lu(k,1445) = lu(k,1445) - lu(k,894) * lu(k,1429) - lu(k,1446) = lu(k,1446) - lu(k,895) * lu(k,1429) - lu(k,1447) = lu(k,1447) - lu(k,896) * lu(k,1429) - lu(k,1448) = lu(k,1448) - lu(k,897) * lu(k,1429) - lu(k,1449) = lu(k,1449) - lu(k,898) * lu(k,1429) - lu(k,1450) = lu(k,1450) - lu(k,899) * lu(k,1429) - lu(k,1451) = lu(k,1451) - lu(k,900) * lu(k,1429) - lu(k,1475) = lu(k,1475) - lu(k,879) * lu(k,1474) - lu(k,1476) = lu(k,1476) - lu(k,880) * lu(k,1474) - lu(k,1477) = lu(k,1477) - lu(k,881) * lu(k,1474) - lu(k,1478) = lu(k,1478) - lu(k,882) * lu(k,1474) - lu(k,1479) = lu(k,1479) - lu(k,883) * lu(k,1474) - lu(k,1480) = lu(k,1480) - lu(k,884) * lu(k,1474) - lu(k,1481) = lu(k,1481) - lu(k,885) * lu(k,1474) - lu(k,1482) = lu(k,1482) - lu(k,886) * lu(k,1474) - lu(k,1483) = lu(k,1483) - lu(k,887) * lu(k,1474) - lu(k,1484) = lu(k,1484) - lu(k,888) * lu(k,1474) - lu(k,1485) = lu(k,1485) - lu(k,889) * lu(k,1474) - lu(k,1486) = lu(k,1486) - lu(k,890) * lu(k,1474) - lu(k,1487) = lu(k,1487) - lu(k,891) * lu(k,1474) - lu(k,1488) = lu(k,1488) - lu(k,892) * lu(k,1474) - lu(k,1489) = lu(k,1489) - lu(k,893) * lu(k,1474) - lu(k,1490) = lu(k,1490) - lu(k,894) * lu(k,1474) - lu(k,1491) = lu(k,1491) - lu(k,895) * lu(k,1474) - lu(k,1492) = lu(k,1492) - lu(k,896) * lu(k,1474) - lu(k,1493) = lu(k,1493) - lu(k,897) * lu(k,1474) - lu(k,1494) = lu(k,1494) - lu(k,898) * lu(k,1474) - lu(k,1495) = lu(k,1495) - lu(k,899) * lu(k,1474) - lu(k,1496) = lu(k,1496) - lu(k,900) * lu(k,1474) - lu(k,1518) = lu(k,1518) - lu(k,879) * lu(k,1517) - lu(k,1519) = lu(k,1519) - lu(k,880) * lu(k,1517) - lu(k,1520) = lu(k,1520) - lu(k,881) * lu(k,1517) - lu(k,1521) = lu(k,1521) - lu(k,882) * lu(k,1517) - lu(k,1522) = lu(k,1522) - lu(k,883) * lu(k,1517) - lu(k,1523) = lu(k,1523) - lu(k,884) * lu(k,1517) - lu(k,1524) = lu(k,1524) - lu(k,885) * lu(k,1517) - lu(k,1525) = lu(k,1525) - lu(k,886) * lu(k,1517) - lu(k,1526) = lu(k,1526) - lu(k,887) * lu(k,1517) - lu(k,1527) = lu(k,1527) - lu(k,888) * lu(k,1517) - lu(k,1528) = lu(k,1528) - lu(k,889) * lu(k,1517) - lu(k,1529) = lu(k,1529) - lu(k,890) * lu(k,1517) - lu(k,1530) = lu(k,1530) - lu(k,891) * lu(k,1517) - lu(k,1531) = lu(k,1531) - lu(k,892) * lu(k,1517) - lu(k,1532) = lu(k,1532) - lu(k,893) * lu(k,1517) - lu(k,1533) = lu(k,1533) - lu(k,894) * lu(k,1517) - lu(k,1534) = lu(k,1534) - lu(k,895) * lu(k,1517) - lu(k,1535) = lu(k,1535) - lu(k,896) * lu(k,1517) - lu(k,1536) = lu(k,1536) - lu(k,897) * lu(k,1517) - lu(k,1537) = lu(k,1537) - lu(k,898) * lu(k,1517) - lu(k,1538) = lu(k,1538) - lu(k,899) * lu(k,1517) - lu(k,1539) = lu(k,1539) - lu(k,900) * lu(k,1517) - lu(k,1561) = lu(k,1561) - lu(k,879) * lu(k,1560) - lu(k,1562) = lu(k,1562) - lu(k,880) * lu(k,1560) - lu(k,1563) = lu(k,1563) - lu(k,881) * lu(k,1560) - lu(k,1564) = lu(k,1564) - lu(k,882) * lu(k,1560) - lu(k,1565) = lu(k,1565) - lu(k,883) * lu(k,1560) - lu(k,1566) = lu(k,1566) - lu(k,884) * lu(k,1560) - lu(k,1567) = lu(k,1567) - lu(k,885) * lu(k,1560) - lu(k,1568) = lu(k,1568) - lu(k,886) * lu(k,1560) - lu(k,1569) = lu(k,1569) - lu(k,887) * lu(k,1560) - lu(k,1570) = lu(k,1570) - lu(k,888) * lu(k,1560) - lu(k,1571) = lu(k,1571) - lu(k,889) * lu(k,1560) - lu(k,1572) = lu(k,1572) - lu(k,890) * lu(k,1560) - lu(k,1573) = lu(k,1573) - lu(k,891) * lu(k,1560) - lu(k,1574) = lu(k,1574) - lu(k,892) * lu(k,1560) - lu(k,1575) = lu(k,1575) - lu(k,893) * lu(k,1560) - lu(k,1576) = lu(k,1576) - lu(k,894) * lu(k,1560) - lu(k,1577) = lu(k,1577) - lu(k,895) * lu(k,1560) - lu(k,1578) = lu(k,1578) - lu(k,896) * lu(k,1560) - lu(k,1579) = lu(k,1579) - lu(k,897) * lu(k,1560) - lu(k,1580) = lu(k,1580) - lu(k,898) * lu(k,1560) - lu(k,1581) = lu(k,1581) - lu(k,899) * lu(k,1560) - lu(k,1582) = lu(k,1582) - lu(k,900) * lu(k,1560) - lu(k,1594) = lu(k,1594) - lu(k,879) * lu(k,1593) - lu(k,1595) = lu(k,1595) - lu(k,880) * lu(k,1593) - lu(k,1596) = lu(k,1596) - lu(k,881) * lu(k,1593) - lu(k,1597) = lu(k,1597) - lu(k,882) * lu(k,1593) - lu(k,1598) = lu(k,1598) - lu(k,883) * lu(k,1593) - lu(k,1599) = lu(k,1599) - lu(k,884) * lu(k,1593) - lu(k,1600) = lu(k,1600) - lu(k,885) * lu(k,1593) - lu(k,1601) = lu(k,1601) - lu(k,886) * lu(k,1593) - lu(k,1602) = lu(k,1602) - lu(k,887) * lu(k,1593) - lu(k,1603) = lu(k,1603) - lu(k,888) * lu(k,1593) - lu(k,1604) = lu(k,1604) - lu(k,889) * lu(k,1593) - lu(k,1605) = lu(k,1605) - lu(k,890) * lu(k,1593) - lu(k,1606) = lu(k,1606) - lu(k,891) * lu(k,1593) - lu(k,1607) = lu(k,1607) - lu(k,892) * lu(k,1593) - lu(k,1608) = lu(k,1608) - lu(k,893) * lu(k,1593) - lu(k,1609) = lu(k,1609) - lu(k,894) * lu(k,1593) - lu(k,1610) = lu(k,1610) - lu(k,895) * lu(k,1593) - lu(k,1611) = lu(k,1611) - lu(k,896) * lu(k,1593) - lu(k,1612) = lu(k,1612) - lu(k,897) * lu(k,1593) - lu(k,1613) = lu(k,1613) - lu(k,898) * lu(k,1593) - lu(k,1614) = lu(k,1614) - lu(k,899) * lu(k,1593) - lu(k,1615) = lu(k,1615) - lu(k,900) * lu(k,1593) - lu(k,1630) = lu(k,1630) - lu(k,879) * lu(k,1629) - lu(k,1631) = lu(k,1631) - lu(k,880) * lu(k,1629) - lu(k,1632) = lu(k,1632) - lu(k,881) * lu(k,1629) - lu(k,1633) = lu(k,1633) - lu(k,882) * lu(k,1629) - lu(k,1634) = lu(k,1634) - lu(k,883) * lu(k,1629) - lu(k,1635) = lu(k,1635) - lu(k,884) * lu(k,1629) - lu(k,1636) = lu(k,1636) - lu(k,885) * lu(k,1629) - lu(k,1637) = lu(k,1637) - lu(k,886) * lu(k,1629) - lu(k,1638) = lu(k,1638) - lu(k,887) * lu(k,1629) - lu(k,1639) = lu(k,1639) - lu(k,888) * lu(k,1629) - lu(k,1640) = lu(k,1640) - lu(k,889) * lu(k,1629) - lu(k,1641) = lu(k,1641) - lu(k,890) * lu(k,1629) - lu(k,1642) = lu(k,1642) - lu(k,891) * lu(k,1629) - lu(k,1643) = lu(k,1643) - lu(k,892) * lu(k,1629) - lu(k,1644) = lu(k,1644) - lu(k,893) * lu(k,1629) - lu(k,1645) = lu(k,1645) - lu(k,894) * lu(k,1629) - lu(k,1646) = lu(k,1646) - lu(k,895) * lu(k,1629) - lu(k,1647) = lu(k,1647) - lu(k,896) * lu(k,1629) - lu(k,1648) = lu(k,1648) - lu(k,897) * lu(k,1629) - lu(k,1649) = lu(k,1649) - lu(k,898) * lu(k,1629) - lu(k,1650) = lu(k,1650) - lu(k,899) * lu(k,1629) - lu(k,1651) = lu(k,1651) - lu(k,900) * lu(k,1629) - lu(k,1673) = lu(k,1673) - lu(k,879) * lu(k,1672) - lu(k,1674) = lu(k,1674) - lu(k,880) * lu(k,1672) - lu(k,1675) = lu(k,1675) - lu(k,881) * lu(k,1672) - lu(k,1676) = lu(k,1676) - lu(k,882) * lu(k,1672) - lu(k,1677) = lu(k,1677) - lu(k,883) * lu(k,1672) - lu(k,1678) = lu(k,1678) - lu(k,884) * lu(k,1672) - lu(k,1679) = lu(k,1679) - lu(k,885) * lu(k,1672) - lu(k,1680) = lu(k,1680) - lu(k,886) * lu(k,1672) - lu(k,1681) = lu(k,1681) - lu(k,887) * lu(k,1672) - lu(k,1682) = lu(k,1682) - lu(k,888) * lu(k,1672) - lu(k,1683) = lu(k,1683) - lu(k,889) * lu(k,1672) - lu(k,1684) = lu(k,1684) - lu(k,890) * lu(k,1672) - lu(k,1685) = lu(k,1685) - lu(k,891) * lu(k,1672) - lu(k,1686) = lu(k,1686) - lu(k,892) * lu(k,1672) - lu(k,1687) = lu(k,1687) - lu(k,893) * lu(k,1672) - lu(k,1688) = lu(k,1688) - lu(k,894) * lu(k,1672) - lu(k,1689) = lu(k,1689) - lu(k,895) * lu(k,1672) - lu(k,1690) = lu(k,1690) - lu(k,896) * lu(k,1672) - lu(k,1691) = lu(k,1691) - lu(k,897) * lu(k,1672) - lu(k,1692) = lu(k,1692) - lu(k,898) * lu(k,1672) - lu(k,1693) = lu(k,1693) - lu(k,899) * lu(k,1672) - lu(k,1694) = lu(k,1694) - lu(k,900) * lu(k,1672) - lu(k,1709) = lu(k,1709) - lu(k,879) * lu(k,1708) - lu(k,1710) = lu(k,1710) - lu(k,880) * lu(k,1708) - lu(k,1711) = lu(k,1711) - lu(k,881) * lu(k,1708) - lu(k,1712) = lu(k,1712) - lu(k,882) * lu(k,1708) - lu(k,1713) = lu(k,1713) - lu(k,883) * lu(k,1708) - lu(k,1714) = lu(k,1714) - lu(k,884) * lu(k,1708) - lu(k,1715) = lu(k,1715) - lu(k,885) * lu(k,1708) - lu(k,1716) = lu(k,1716) - lu(k,886) * lu(k,1708) - lu(k,1717) = lu(k,1717) - lu(k,887) * lu(k,1708) - lu(k,1718) = lu(k,1718) - lu(k,888) * lu(k,1708) - lu(k,1719) = lu(k,1719) - lu(k,889) * lu(k,1708) - lu(k,1720) = lu(k,1720) - lu(k,890) * lu(k,1708) - lu(k,1721) = lu(k,1721) - lu(k,891) * lu(k,1708) - lu(k,1722) = lu(k,1722) - lu(k,892) * lu(k,1708) - lu(k,1723) = lu(k,1723) - lu(k,893) * lu(k,1708) - lu(k,1724) = lu(k,1724) - lu(k,894) * lu(k,1708) - lu(k,1725) = lu(k,1725) - lu(k,895) * lu(k,1708) - lu(k,1726) = lu(k,1726) - lu(k,896) * lu(k,1708) - lu(k,1727) = lu(k,1727) - lu(k,897) * lu(k,1708) - lu(k,1728) = lu(k,1728) - lu(k,898) * lu(k,1708) - lu(k,1729) = lu(k,1729) - lu(k,899) * lu(k,1708) - lu(k,1730) = lu(k,1730) - lu(k,900) * lu(k,1708) - lu(k,1751) = lu(k,1751) - lu(k,879) * lu(k,1750) - lu(k,1752) = lu(k,1752) - lu(k,880) * lu(k,1750) - lu(k,1753) = lu(k,1753) - lu(k,881) * lu(k,1750) - lu(k,1754) = lu(k,1754) - lu(k,882) * lu(k,1750) - lu(k,1755) = lu(k,1755) - lu(k,883) * lu(k,1750) - lu(k,1756) = lu(k,1756) - lu(k,884) * lu(k,1750) - lu(k,1757) = lu(k,1757) - lu(k,885) * lu(k,1750) - lu(k,1758) = lu(k,1758) - lu(k,886) * lu(k,1750) - lu(k,1759) = lu(k,1759) - lu(k,887) * lu(k,1750) - lu(k,1760) = lu(k,1760) - lu(k,888) * lu(k,1750) - lu(k,1761) = lu(k,1761) - lu(k,889) * lu(k,1750) - lu(k,1762) = lu(k,1762) - lu(k,890) * lu(k,1750) - lu(k,1763) = lu(k,1763) - lu(k,891) * lu(k,1750) - lu(k,1764) = lu(k,1764) - lu(k,892) * lu(k,1750) - lu(k,1765) = lu(k,1765) - lu(k,893) * lu(k,1750) - lu(k,1766) = lu(k,1766) - lu(k,894) * lu(k,1750) - lu(k,1767) = lu(k,1767) - lu(k,895) * lu(k,1750) - lu(k,1768) = lu(k,1768) - lu(k,896) * lu(k,1750) - lu(k,1769) = lu(k,1769) - lu(k,897) * lu(k,1750) - lu(k,1770) = lu(k,1770) - lu(k,898) * lu(k,1750) - lu(k,1771) = lu(k,1771) - lu(k,899) * lu(k,1750) - lu(k,1772) = lu(k,1772) - lu(k,900) * lu(k,1750) - lu(k,1804) = lu(k,1804) - lu(k,879) * lu(k,1803) - lu(k,1805) = lu(k,1805) - lu(k,880) * lu(k,1803) - lu(k,1806) = lu(k,1806) - lu(k,881) * lu(k,1803) - lu(k,1807) = lu(k,1807) - lu(k,882) * lu(k,1803) - lu(k,1808) = lu(k,1808) - lu(k,883) * lu(k,1803) - lu(k,1809) = lu(k,1809) - lu(k,884) * lu(k,1803) - lu(k,1810) = lu(k,1810) - lu(k,885) * lu(k,1803) - lu(k,1811) = lu(k,1811) - lu(k,886) * lu(k,1803) - lu(k,1812) = lu(k,1812) - lu(k,887) * lu(k,1803) - lu(k,1813) = lu(k,1813) - lu(k,888) * lu(k,1803) - lu(k,1814) = lu(k,1814) - lu(k,889) * lu(k,1803) - lu(k,1815) = lu(k,1815) - lu(k,890) * lu(k,1803) - lu(k,1816) = lu(k,1816) - lu(k,891) * lu(k,1803) - lu(k,1817) = lu(k,1817) - lu(k,892) * lu(k,1803) - lu(k,1818) = lu(k,1818) - lu(k,893) * lu(k,1803) - lu(k,1819) = lu(k,1819) - lu(k,894) * lu(k,1803) - lu(k,1820) = lu(k,1820) - lu(k,895) * lu(k,1803) - lu(k,1821) = lu(k,1821) - lu(k,896) * lu(k,1803) - lu(k,1822) = lu(k,1822) - lu(k,897) * lu(k,1803) - lu(k,1823) = lu(k,1823) - lu(k,898) * lu(k,1803) - lu(k,1824) = lu(k,1824) - lu(k,899) * lu(k,1803) - lu(k,1825) = lu(k,1825) - lu(k,900) * lu(k,1803) - lu(k,922) = 1._r8 / lu(k,922) - lu(k,923) = lu(k,923) * lu(k,922) - lu(k,924) = lu(k,924) * lu(k,922) - lu(k,925) = lu(k,925) * lu(k,922) - lu(k,926) = lu(k,926) * lu(k,922) - lu(k,927) = lu(k,927) * lu(k,922) - lu(k,928) = lu(k,928) * lu(k,922) - lu(k,929) = lu(k,929) * lu(k,922) - lu(k,930) = lu(k,930) * lu(k,922) - lu(k,931) = lu(k,931) * lu(k,922) - lu(k,932) = lu(k,932) * lu(k,922) - lu(k,933) = lu(k,933) * lu(k,922) - lu(k,934) = lu(k,934) * lu(k,922) - lu(k,935) = lu(k,935) * lu(k,922) - lu(k,936) = lu(k,936) * lu(k,922) - lu(k,937) = lu(k,937) * lu(k,922) - lu(k,938) = lu(k,938) * lu(k,922) - lu(k,939) = lu(k,939) * lu(k,922) - lu(k,940) = lu(k,940) * lu(k,922) - lu(k,941) = lu(k,941) * lu(k,922) - lu(k,942) = lu(k,942) * lu(k,922) - lu(k,943) = lu(k,943) * lu(k,922) - lu(k,979) = lu(k,979) - lu(k,923) * lu(k,978) - lu(k,980) = lu(k,980) - lu(k,924) * lu(k,978) - lu(k,981) = lu(k,981) - lu(k,925) * lu(k,978) - lu(k,982) = lu(k,982) - lu(k,926) * lu(k,978) - lu(k,983) = lu(k,983) - lu(k,927) * lu(k,978) - lu(k,984) = lu(k,984) - lu(k,928) * lu(k,978) - lu(k,985) = lu(k,985) - lu(k,929) * lu(k,978) - lu(k,986) = lu(k,986) - lu(k,930) * lu(k,978) - lu(k,987) = lu(k,987) - lu(k,931) * lu(k,978) - lu(k,988) = lu(k,988) - lu(k,932) * lu(k,978) - lu(k,989) = lu(k,989) - lu(k,933) * lu(k,978) - lu(k,990) = lu(k,990) - lu(k,934) * lu(k,978) - lu(k,991) = lu(k,991) - lu(k,935) * lu(k,978) - lu(k,992) = lu(k,992) - lu(k,936) * lu(k,978) - lu(k,993) = lu(k,993) - lu(k,937) * lu(k,978) - lu(k,994) = lu(k,994) - lu(k,938) * lu(k,978) - lu(k,995) = lu(k,995) - lu(k,939) * lu(k,978) - lu(k,996) = lu(k,996) - lu(k,940) * lu(k,978) - lu(k,997) = lu(k,997) - lu(k,941) * lu(k,978) - lu(k,998) = lu(k,998) - lu(k,942) * lu(k,978) - lu(k,999) = lu(k,999) - lu(k,943) * lu(k,978) - lu(k,1022) = lu(k,1022) - lu(k,923) * lu(k,1021) - lu(k,1023) = lu(k,1023) - lu(k,924) * lu(k,1021) - lu(k,1024) = lu(k,1024) - lu(k,925) * lu(k,1021) - lu(k,1025) = lu(k,1025) - lu(k,926) * lu(k,1021) - lu(k,1026) = lu(k,1026) - lu(k,927) * lu(k,1021) - lu(k,1027) = lu(k,1027) - lu(k,928) * lu(k,1021) - lu(k,1028) = lu(k,1028) - lu(k,929) * lu(k,1021) - lu(k,1029) = lu(k,1029) - lu(k,930) * lu(k,1021) - lu(k,1030) = lu(k,1030) - lu(k,931) * lu(k,1021) - lu(k,1031) = lu(k,1031) - lu(k,932) * lu(k,1021) - lu(k,1032) = lu(k,1032) - lu(k,933) * lu(k,1021) - lu(k,1033) = lu(k,1033) - lu(k,934) * lu(k,1021) - lu(k,1034) = lu(k,1034) - lu(k,935) * lu(k,1021) - lu(k,1035) = lu(k,1035) - lu(k,936) * lu(k,1021) - lu(k,1036) = lu(k,1036) - lu(k,937) * lu(k,1021) - lu(k,1037) = lu(k,1037) - lu(k,938) * lu(k,1021) - lu(k,1038) = lu(k,1038) - lu(k,939) * lu(k,1021) - lu(k,1039) = lu(k,1039) - lu(k,940) * lu(k,1021) - lu(k,1040) = lu(k,1040) - lu(k,941) * lu(k,1021) - lu(k,1041) = lu(k,1041) - lu(k,942) * lu(k,1021) - lu(k,1042) = lu(k,1042) - lu(k,943) * lu(k,1021) - lu(k,1064) = lu(k,1064) - lu(k,923) * lu(k,1063) - lu(k,1065) = lu(k,1065) - lu(k,924) * lu(k,1063) - lu(k,1066) = lu(k,1066) - lu(k,925) * lu(k,1063) - lu(k,1067) = lu(k,1067) - lu(k,926) * lu(k,1063) - lu(k,1068) = lu(k,1068) - lu(k,927) * lu(k,1063) - lu(k,1069) = lu(k,1069) - lu(k,928) * lu(k,1063) - lu(k,1070) = lu(k,1070) - lu(k,929) * lu(k,1063) - lu(k,1071) = lu(k,1071) - lu(k,930) * lu(k,1063) - lu(k,1072) = lu(k,1072) - lu(k,931) * lu(k,1063) - lu(k,1073) = lu(k,1073) - lu(k,932) * lu(k,1063) - lu(k,1074) = lu(k,1074) - lu(k,933) * lu(k,1063) - lu(k,1075) = lu(k,1075) - lu(k,934) * lu(k,1063) - lu(k,1076) = lu(k,1076) - lu(k,935) * lu(k,1063) - lu(k,1077) = lu(k,1077) - lu(k,936) * lu(k,1063) - lu(k,1078) = lu(k,1078) - lu(k,937) * lu(k,1063) - lu(k,1079) = lu(k,1079) - lu(k,938) * lu(k,1063) - lu(k,1080) = lu(k,1080) - lu(k,939) * lu(k,1063) - lu(k,1081) = lu(k,1081) - lu(k,940) * lu(k,1063) - lu(k,1082) = lu(k,1082) - lu(k,941) * lu(k,1063) - lu(k,1083) = lu(k,1083) - lu(k,942) * lu(k,1063) - lu(k,1084) = lu(k,1084) - lu(k,943) * lu(k,1063) - lu(k,1104) = lu(k,1104) - lu(k,923) * lu(k,1103) - lu(k,1105) = lu(k,1105) - lu(k,924) * lu(k,1103) - lu(k,1106) = lu(k,1106) - lu(k,925) * lu(k,1103) - lu(k,1107) = lu(k,1107) - lu(k,926) * lu(k,1103) - lu(k,1108) = lu(k,1108) - lu(k,927) * lu(k,1103) - lu(k,1109) = lu(k,1109) - lu(k,928) * lu(k,1103) - lu(k,1110) = lu(k,1110) - lu(k,929) * lu(k,1103) - lu(k,1111) = lu(k,1111) - lu(k,930) * lu(k,1103) - lu(k,1112) = lu(k,1112) - lu(k,931) * lu(k,1103) - lu(k,1113) = lu(k,1113) - lu(k,932) * lu(k,1103) - lu(k,1114) = lu(k,1114) - lu(k,933) * lu(k,1103) - lu(k,1115) = lu(k,1115) - lu(k,934) * lu(k,1103) - lu(k,1116) = lu(k,1116) - lu(k,935) * lu(k,1103) - lu(k,1117) = lu(k,1117) - lu(k,936) * lu(k,1103) - lu(k,1118) = lu(k,1118) - lu(k,937) * lu(k,1103) - lu(k,1119) = lu(k,1119) - lu(k,938) * lu(k,1103) - lu(k,1120) = lu(k,1120) - lu(k,939) * lu(k,1103) - lu(k,1121) = lu(k,1121) - lu(k,940) * lu(k,1103) - lu(k,1122) = lu(k,1122) - lu(k,941) * lu(k,1103) - lu(k,1123) = lu(k,1123) - lu(k,942) * lu(k,1103) - lu(k,1124) = lu(k,1124) - lu(k,943) * lu(k,1103) - lu(k,1149) = lu(k,1149) - lu(k,923) * lu(k,1148) - lu(k,1150) = lu(k,1150) - lu(k,924) * lu(k,1148) - lu(k,1151) = lu(k,1151) - lu(k,925) * lu(k,1148) - lu(k,1152) = lu(k,1152) - lu(k,926) * lu(k,1148) - lu(k,1153) = lu(k,1153) - lu(k,927) * lu(k,1148) - lu(k,1154) = lu(k,1154) - lu(k,928) * lu(k,1148) - lu(k,1155) = lu(k,1155) - lu(k,929) * lu(k,1148) - lu(k,1156) = lu(k,1156) - lu(k,930) * lu(k,1148) - lu(k,1157) = lu(k,1157) - lu(k,931) * lu(k,1148) - lu(k,1158) = lu(k,1158) - lu(k,932) * lu(k,1148) - lu(k,1159) = lu(k,1159) - lu(k,933) * lu(k,1148) - lu(k,1160) = lu(k,1160) - lu(k,934) * lu(k,1148) - lu(k,1161) = lu(k,1161) - lu(k,935) * lu(k,1148) - lu(k,1162) = lu(k,1162) - lu(k,936) * lu(k,1148) - lu(k,1163) = lu(k,1163) - lu(k,937) * lu(k,1148) - lu(k,1164) = lu(k,1164) - lu(k,938) * lu(k,1148) - lu(k,1165) = lu(k,1165) - lu(k,939) * lu(k,1148) - lu(k,1166) = lu(k,1166) - lu(k,940) * lu(k,1148) - lu(k,1167) = lu(k,1167) - lu(k,941) * lu(k,1148) - lu(k,1168) = lu(k,1168) - lu(k,942) * lu(k,1148) - lu(k,1169) = lu(k,1169) - lu(k,943) * lu(k,1148) - lu(k,1192) = lu(k,1192) - lu(k,923) * lu(k,1191) - lu(k,1193) = lu(k,1193) - lu(k,924) * lu(k,1191) - lu(k,1194) = lu(k,1194) - lu(k,925) * lu(k,1191) - lu(k,1195) = lu(k,1195) - lu(k,926) * lu(k,1191) - lu(k,1196) = lu(k,1196) - lu(k,927) * lu(k,1191) - lu(k,1197) = lu(k,1197) - lu(k,928) * lu(k,1191) - lu(k,1198) = lu(k,1198) - lu(k,929) * lu(k,1191) - lu(k,1199) = lu(k,1199) - lu(k,930) * lu(k,1191) - lu(k,1200) = lu(k,1200) - lu(k,931) * lu(k,1191) - lu(k,1201) = lu(k,1201) - lu(k,932) * lu(k,1191) - lu(k,1202) = lu(k,1202) - lu(k,933) * lu(k,1191) - lu(k,1203) = lu(k,1203) - lu(k,934) * lu(k,1191) - lu(k,1204) = lu(k,1204) - lu(k,935) * lu(k,1191) - lu(k,1205) = lu(k,1205) - lu(k,936) * lu(k,1191) - lu(k,1206) = lu(k,1206) - lu(k,937) * lu(k,1191) - lu(k,1207) = lu(k,1207) - lu(k,938) * lu(k,1191) - lu(k,1208) = lu(k,1208) - lu(k,939) * lu(k,1191) - lu(k,1209) = lu(k,1209) - lu(k,940) * lu(k,1191) - lu(k,1210) = lu(k,1210) - lu(k,941) * lu(k,1191) - lu(k,1211) = lu(k,1211) - lu(k,942) * lu(k,1191) - lu(k,1212) = lu(k,1212) - lu(k,943) * lu(k,1191) - lu(k,1227) = lu(k,1227) - lu(k,923) * lu(k,1226) - lu(k,1228) = lu(k,1228) - lu(k,924) * lu(k,1226) - lu(k,1229) = lu(k,1229) - lu(k,925) * lu(k,1226) - lu(k,1230) = lu(k,1230) - lu(k,926) * lu(k,1226) - lu(k,1231) = lu(k,1231) - lu(k,927) * lu(k,1226) - lu(k,1232) = lu(k,1232) - lu(k,928) * lu(k,1226) - lu(k,1233) = lu(k,1233) - lu(k,929) * lu(k,1226) - lu(k,1234) = lu(k,1234) - lu(k,930) * lu(k,1226) - lu(k,1235) = lu(k,1235) - lu(k,931) * lu(k,1226) - lu(k,1236) = lu(k,1236) - lu(k,932) * lu(k,1226) - lu(k,1237) = lu(k,1237) - lu(k,933) * lu(k,1226) - lu(k,1238) = lu(k,1238) - lu(k,934) * lu(k,1226) - lu(k,1239) = lu(k,1239) - lu(k,935) * lu(k,1226) - lu(k,1240) = lu(k,1240) - lu(k,936) * lu(k,1226) - lu(k,1241) = lu(k,1241) - lu(k,937) * lu(k,1226) - lu(k,1242) = lu(k,1242) - lu(k,938) * lu(k,1226) - lu(k,1243) = lu(k,1243) - lu(k,939) * lu(k,1226) - lu(k,1244) = lu(k,1244) - lu(k,940) * lu(k,1226) - lu(k,1245) = lu(k,1245) - lu(k,941) * lu(k,1226) - lu(k,1246) = lu(k,1246) - lu(k,942) * lu(k,1226) - lu(k,1247) = lu(k,1247) - lu(k,943) * lu(k,1226) - lu(k,1270) = lu(k,1270) - lu(k,923) * lu(k,1269) - lu(k,1271) = lu(k,1271) - lu(k,924) * lu(k,1269) - lu(k,1272) = lu(k,1272) - lu(k,925) * lu(k,1269) - lu(k,1273) = lu(k,1273) - lu(k,926) * lu(k,1269) - lu(k,1274) = lu(k,1274) - lu(k,927) * lu(k,1269) - lu(k,1275) = lu(k,1275) - lu(k,928) * lu(k,1269) - lu(k,1276) = lu(k,1276) - lu(k,929) * lu(k,1269) - lu(k,1277) = lu(k,1277) - lu(k,930) * lu(k,1269) - lu(k,1278) = lu(k,1278) - lu(k,931) * lu(k,1269) - lu(k,1279) = lu(k,1279) - lu(k,932) * lu(k,1269) - lu(k,1280) = lu(k,1280) - lu(k,933) * lu(k,1269) - lu(k,1281) = lu(k,1281) - lu(k,934) * lu(k,1269) - lu(k,1282) = lu(k,1282) - lu(k,935) * lu(k,1269) - lu(k,1283) = lu(k,1283) - lu(k,936) * lu(k,1269) - lu(k,1284) = lu(k,1284) - lu(k,937) * lu(k,1269) - lu(k,1285) = lu(k,1285) - lu(k,938) * lu(k,1269) - lu(k,1286) = lu(k,1286) - lu(k,939) * lu(k,1269) - lu(k,1287) = lu(k,1287) - lu(k,940) * lu(k,1269) - lu(k,1288) = lu(k,1288) - lu(k,941) * lu(k,1269) - lu(k,1289) = lu(k,1289) - lu(k,942) * lu(k,1269) - lu(k,1290) = lu(k,1290) - lu(k,943) * lu(k,1269) - lu(k,1306) = lu(k,1306) - lu(k,923) * lu(k,1305) - lu(k,1307) = lu(k,1307) - lu(k,924) * lu(k,1305) - lu(k,1308) = lu(k,1308) - lu(k,925) * lu(k,1305) - lu(k,1309) = lu(k,1309) - lu(k,926) * lu(k,1305) - lu(k,1310) = lu(k,1310) - lu(k,927) * lu(k,1305) - lu(k,1311) = lu(k,1311) - lu(k,928) * lu(k,1305) - lu(k,1312) = lu(k,1312) - lu(k,929) * lu(k,1305) - lu(k,1313) = lu(k,1313) - lu(k,930) * lu(k,1305) - lu(k,1314) = lu(k,1314) - lu(k,931) * lu(k,1305) - lu(k,1315) = lu(k,1315) - lu(k,932) * lu(k,1305) - lu(k,1316) = lu(k,1316) - lu(k,933) * lu(k,1305) - lu(k,1317) = lu(k,1317) - lu(k,934) * lu(k,1305) - lu(k,1318) = lu(k,1318) - lu(k,935) * lu(k,1305) - lu(k,1319) = lu(k,1319) - lu(k,936) * lu(k,1305) - lu(k,1320) = lu(k,1320) - lu(k,937) * lu(k,1305) - lu(k,1321) = lu(k,1321) - lu(k,938) * lu(k,1305) - lu(k,1322) = lu(k,1322) - lu(k,939) * lu(k,1305) - lu(k,1323) = lu(k,1323) - lu(k,940) * lu(k,1305) - lu(k,1324) = lu(k,1324) - lu(k,941) * lu(k,1305) - lu(k,1325) = lu(k,1325) - lu(k,942) * lu(k,1305) - lu(k,1326) = lu(k,1326) - lu(k,943) * lu(k,1305) - lu(k,1351) = lu(k,1351) - lu(k,923) * lu(k,1350) - lu(k,1352) = lu(k,1352) - lu(k,924) * lu(k,1350) - lu(k,1353) = lu(k,1353) - lu(k,925) * lu(k,1350) - lu(k,1354) = lu(k,1354) - lu(k,926) * lu(k,1350) - lu(k,1355) = lu(k,1355) - lu(k,927) * lu(k,1350) - lu(k,1356) = lu(k,1356) - lu(k,928) * lu(k,1350) - lu(k,1357) = lu(k,1357) - lu(k,929) * lu(k,1350) - lu(k,1358) = lu(k,1358) - lu(k,930) * lu(k,1350) - lu(k,1359) = lu(k,1359) - lu(k,931) * lu(k,1350) - lu(k,1360) = lu(k,1360) - lu(k,932) * lu(k,1350) - lu(k,1361) = lu(k,1361) - lu(k,933) * lu(k,1350) - lu(k,1362) = lu(k,1362) - lu(k,934) * lu(k,1350) - lu(k,1363) = lu(k,1363) - lu(k,935) * lu(k,1350) - lu(k,1364) = lu(k,1364) - lu(k,936) * lu(k,1350) - lu(k,1365) = lu(k,1365) - lu(k,937) * lu(k,1350) - lu(k,1366) = lu(k,1366) - lu(k,938) * lu(k,1350) - lu(k,1367) = lu(k,1367) - lu(k,939) * lu(k,1350) - lu(k,1368) = lu(k,1368) - lu(k,940) * lu(k,1350) - lu(k,1369) = lu(k,1369) - lu(k,941) * lu(k,1350) - lu(k,1370) = lu(k,1370) - lu(k,942) * lu(k,1350) - lu(k,1371) = lu(k,1371) - lu(k,943) * lu(k,1350) - lu(k,1393) = lu(k,1393) - lu(k,923) * lu(k,1392) - lu(k,1394) = lu(k,1394) - lu(k,924) * lu(k,1392) - lu(k,1395) = lu(k,1395) - lu(k,925) * lu(k,1392) - lu(k,1396) = lu(k,1396) - lu(k,926) * lu(k,1392) - lu(k,1397) = lu(k,1397) - lu(k,927) * lu(k,1392) - lu(k,1398) = lu(k,1398) - lu(k,928) * lu(k,1392) - lu(k,1399) = lu(k,1399) - lu(k,929) * lu(k,1392) - lu(k,1400) = lu(k,1400) - lu(k,930) * lu(k,1392) - lu(k,1401) = lu(k,1401) - lu(k,931) * lu(k,1392) - lu(k,1402) = lu(k,1402) - lu(k,932) * lu(k,1392) - lu(k,1403) = lu(k,1403) - lu(k,933) * lu(k,1392) - lu(k,1404) = lu(k,1404) - lu(k,934) * lu(k,1392) - lu(k,1405) = lu(k,1405) - lu(k,935) * lu(k,1392) - lu(k,1406) = lu(k,1406) - lu(k,936) * lu(k,1392) - lu(k,1407) = lu(k,1407) - lu(k,937) * lu(k,1392) - lu(k,1408) = lu(k,1408) - lu(k,938) * lu(k,1392) - lu(k,1409) = lu(k,1409) - lu(k,939) * lu(k,1392) - lu(k,1410) = lu(k,1410) - lu(k,940) * lu(k,1392) - lu(k,1411) = lu(k,1411) - lu(k,941) * lu(k,1392) - lu(k,1412) = lu(k,1412) - lu(k,942) * lu(k,1392) - lu(k,1413) = lu(k,1413) - lu(k,943) * lu(k,1392) - lu(k,1431) = lu(k,1431) - lu(k,923) * lu(k,1430) - lu(k,1432) = lu(k,1432) - lu(k,924) * lu(k,1430) - lu(k,1433) = lu(k,1433) - lu(k,925) * lu(k,1430) - lu(k,1434) = lu(k,1434) - lu(k,926) * lu(k,1430) - lu(k,1435) = lu(k,1435) - lu(k,927) * lu(k,1430) - lu(k,1436) = lu(k,1436) - lu(k,928) * lu(k,1430) - lu(k,1437) = lu(k,1437) - lu(k,929) * lu(k,1430) - lu(k,1438) = lu(k,1438) - lu(k,930) * lu(k,1430) - lu(k,1439) = lu(k,1439) - lu(k,931) * lu(k,1430) - lu(k,1440) = lu(k,1440) - lu(k,932) * lu(k,1430) - lu(k,1441) = lu(k,1441) - lu(k,933) * lu(k,1430) - lu(k,1442) = lu(k,1442) - lu(k,934) * lu(k,1430) - lu(k,1443) = lu(k,1443) - lu(k,935) * lu(k,1430) - lu(k,1444) = lu(k,1444) - lu(k,936) * lu(k,1430) - lu(k,1445) = lu(k,1445) - lu(k,937) * lu(k,1430) - lu(k,1446) = lu(k,1446) - lu(k,938) * lu(k,1430) - lu(k,1447) = lu(k,1447) - lu(k,939) * lu(k,1430) - lu(k,1448) = lu(k,1448) - lu(k,940) * lu(k,1430) - lu(k,1449) = lu(k,1449) - lu(k,941) * lu(k,1430) - lu(k,1450) = lu(k,1450) - lu(k,942) * lu(k,1430) - lu(k,1451) = lu(k,1451) - lu(k,943) * lu(k,1430) - lu(k,1476) = lu(k,1476) - lu(k,923) * lu(k,1475) - lu(k,1477) = lu(k,1477) - lu(k,924) * lu(k,1475) - lu(k,1478) = lu(k,1478) - lu(k,925) * lu(k,1475) - lu(k,1479) = lu(k,1479) - lu(k,926) * lu(k,1475) - lu(k,1480) = lu(k,1480) - lu(k,927) * lu(k,1475) - lu(k,1481) = lu(k,1481) - lu(k,928) * lu(k,1475) - lu(k,1482) = lu(k,1482) - lu(k,929) * lu(k,1475) - lu(k,1483) = lu(k,1483) - lu(k,930) * lu(k,1475) - lu(k,1484) = lu(k,1484) - lu(k,931) * lu(k,1475) - lu(k,1485) = lu(k,1485) - lu(k,932) * lu(k,1475) - lu(k,1486) = lu(k,1486) - lu(k,933) * lu(k,1475) - lu(k,1487) = lu(k,1487) - lu(k,934) * lu(k,1475) - lu(k,1488) = lu(k,1488) - lu(k,935) * lu(k,1475) - lu(k,1489) = lu(k,1489) - lu(k,936) * lu(k,1475) - lu(k,1490) = lu(k,1490) - lu(k,937) * lu(k,1475) - lu(k,1491) = lu(k,1491) - lu(k,938) * lu(k,1475) - lu(k,1492) = lu(k,1492) - lu(k,939) * lu(k,1475) - lu(k,1493) = lu(k,1493) - lu(k,940) * lu(k,1475) - lu(k,1494) = lu(k,1494) - lu(k,941) * lu(k,1475) - lu(k,1495) = lu(k,1495) - lu(k,942) * lu(k,1475) - lu(k,1496) = lu(k,1496) - lu(k,943) * lu(k,1475) - lu(k,1519) = lu(k,1519) - lu(k,923) * lu(k,1518) - lu(k,1520) = lu(k,1520) - lu(k,924) * lu(k,1518) - lu(k,1521) = lu(k,1521) - lu(k,925) * lu(k,1518) - lu(k,1522) = lu(k,1522) - lu(k,926) * lu(k,1518) - lu(k,1523) = lu(k,1523) - lu(k,927) * lu(k,1518) - lu(k,1524) = lu(k,1524) - lu(k,928) * lu(k,1518) - lu(k,1525) = lu(k,1525) - lu(k,929) * lu(k,1518) - lu(k,1526) = lu(k,1526) - lu(k,930) * lu(k,1518) - lu(k,1527) = lu(k,1527) - lu(k,931) * lu(k,1518) - lu(k,1528) = lu(k,1528) - lu(k,932) * lu(k,1518) - lu(k,1529) = lu(k,1529) - lu(k,933) * lu(k,1518) - lu(k,1530) = lu(k,1530) - lu(k,934) * lu(k,1518) - lu(k,1531) = lu(k,1531) - lu(k,935) * lu(k,1518) - lu(k,1532) = lu(k,1532) - lu(k,936) * lu(k,1518) - lu(k,1533) = lu(k,1533) - lu(k,937) * lu(k,1518) - lu(k,1534) = lu(k,1534) - lu(k,938) * lu(k,1518) - lu(k,1535) = lu(k,1535) - lu(k,939) * lu(k,1518) - lu(k,1536) = lu(k,1536) - lu(k,940) * lu(k,1518) - lu(k,1537) = lu(k,1537) - lu(k,941) * lu(k,1518) - lu(k,1538) = lu(k,1538) - lu(k,942) * lu(k,1518) - lu(k,1539) = lu(k,1539) - lu(k,943) * lu(k,1518) - lu(k,1562) = lu(k,1562) - lu(k,923) * lu(k,1561) - lu(k,1563) = lu(k,1563) - lu(k,924) * lu(k,1561) - lu(k,1564) = lu(k,1564) - lu(k,925) * lu(k,1561) - lu(k,1565) = lu(k,1565) - lu(k,926) * lu(k,1561) - lu(k,1566) = lu(k,1566) - lu(k,927) * lu(k,1561) - lu(k,1567) = lu(k,1567) - lu(k,928) * lu(k,1561) - lu(k,1568) = lu(k,1568) - lu(k,929) * lu(k,1561) - lu(k,1569) = lu(k,1569) - lu(k,930) * lu(k,1561) - lu(k,1570) = lu(k,1570) - lu(k,931) * lu(k,1561) - lu(k,1571) = lu(k,1571) - lu(k,932) * lu(k,1561) - lu(k,1572) = lu(k,1572) - lu(k,933) * lu(k,1561) - lu(k,1573) = lu(k,1573) - lu(k,934) * lu(k,1561) - lu(k,1574) = lu(k,1574) - lu(k,935) * lu(k,1561) - lu(k,1575) = lu(k,1575) - lu(k,936) * lu(k,1561) - lu(k,1576) = lu(k,1576) - lu(k,937) * lu(k,1561) - lu(k,1577) = lu(k,1577) - lu(k,938) * lu(k,1561) - lu(k,1578) = lu(k,1578) - lu(k,939) * lu(k,1561) - lu(k,1579) = lu(k,1579) - lu(k,940) * lu(k,1561) - lu(k,1580) = lu(k,1580) - lu(k,941) * lu(k,1561) - lu(k,1581) = lu(k,1581) - lu(k,942) * lu(k,1561) - lu(k,1582) = lu(k,1582) - lu(k,943) * lu(k,1561) - lu(k,1595) = lu(k,1595) - lu(k,923) * lu(k,1594) - lu(k,1596) = lu(k,1596) - lu(k,924) * lu(k,1594) - lu(k,1597) = lu(k,1597) - lu(k,925) * lu(k,1594) - lu(k,1598) = lu(k,1598) - lu(k,926) * lu(k,1594) - lu(k,1599) = lu(k,1599) - lu(k,927) * lu(k,1594) - lu(k,1600) = lu(k,1600) - lu(k,928) * lu(k,1594) - lu(k,1601) = lu(k,1601) - lu(k,929) * lu(k,1594) - lu(k,1602) = lu(k,1602) - lu(k,930) * lu(k,1594) - lu(k,1603) = lu(k,1603) - lu(k,931) * lu(k,1594) - lu(k,1604) = lu(k,1604) - lu(k,932) * lu(k,1594) - lu(k,1605) = lu(k,1605) - lu(k,933) * lu(k,1594) - lu(k,1606) = lu(k,1606) - lu(k,934) * lu(k,1594) - lu(k,1607) = lu(k,1607) - lu(k,935) * lu(k,1594) - lu(k,1608) = lu(k,1608) - lu(k,936) * lu(k,1594) - lu(k,1609) = lu(k,1609) - lu(k,937) * lu(k,1594) - lu(k,1610) = lu(k,1610) - lu(k,938) * lu(k,1594) - lu(k,1611) = lu(k,1611) - lu(k,939) * lu(k,1594) - lu(k,1612) = lu(k,1612) - lu(k,940) * lu(k,1594) - lu(k,1613) = lu(k,1613) - lu(k,941) * lu(k,1594) - lu(k,1614) = lu(k,1614) - lu(k,942) * lu(k,1594) - lu(k,1615) = lu(k,1615) - lu(k,943) * lu(k,1594) - lu(k,1631) = lu(k,1631) - lu(k,923) * lu(k,1630) - lu(k,1632) = lu(k,1632) - lu(k,924) * lu(k,1630) - lu(k,1633) = lu(k,1633) - lu(k,925) * lu(k,1630) - lu(k,1634) = lu(k,1634) - lu(k,926) * lu(k,1630) - lu(k,1635) = lu(k,1635) - lu(k,927) * lu(k,1630) - lu(k,1636) = lu(k,1636) - lu(k,928) * lu(k,1630) - lu(k,1637) = lu(k,1637) - lu(k,929) * lu(k,1630) - lu(k,1638) = lu(k,1638) - lu(k,930) * lu(k,1630) - lu(k,1639) = lu(k,1639) - lu(k,931) * lu(k,1630) - lu(k,1640) = lu(k,1640) - lu(k,932) * lu(k,1630) - lu(k,1641) = lu(k,1641) - lu(k,933) * lu(k,1630) - lu(k,1642) = lu(k,1642) - lu(k,934) * lu(k,1630) - lu(k,1643) = lu(k,1643) - lu(k,935) * lu(k,1630) - lu(k,1644) = lu(k,1644) - lu(k,936) * lu(k,1630) - lu(k,1645) = lu(k,1645) - lu(k,937) * lu(k,1630) - lu(k,1646) = lu(k,1646) - lu(k,938) * lu(k,1630) - lu(k,1647) = lu(k,1647) - lu(k,939) * lu(k,1630) - lu(k,1648) = lu(k,1648) - lu(k,940) * lu(k,1630) - lu(k,1649) = lu(k,1649) - lu(k,941) * lu(k,1630) - lu(k,1650) = lu(k,1650) - lu(k,942) * lu(k,1630) - lu(k,1651) = lu(k,1651) - lu(k,943) * lu(k,1630) - lu(k,1674) = lu(k,1674) - lu(k,923) * lu(k,1673) - lu(k,1675) = lu(k,1675) - lu(k,924) * lu(k,1673) - lu(k,1676) = lu(k,1676) - lu(k,925) * lu(k,1673) - lu(k,1677) = lu(k,1677) - lu(k,926) * lu(k,1673) - lu(k,1678) = lu(k,1678) - lu(k,927) * lu(k,1673) - lu(k,1679) = lu(k,1679) - lu(k,928) * lu(k,1673) - lu(k,1680) = lu(k,1680) - lu(k,929) * lu(k,1673) - lu(k,1681) = lu(k,1681) - lu(k,930) * lu(k,1673) - lu(k,1682) = lu(k,1682) - lu(k,931) * lu(k,1673) - lu(k,1683) = lu(k,1683) - lu(k,932) * lu(k,1673) - lu(k,1684) = lu(k,1684) - lu(k,933) * lu(k,1673) - lu(k,1685) = lu(k,1685) - lu(k,934) * lu(k,1673) - lu(k,1686) = lu(k,1686) - lu(k,935) * lu(k,1673) - lu(k,1687) = lu(k,1687) - lu(k,936) * lu(k,1673) - lu(k,1688) = lu(k,1688) - lu(k,937) * lu(k,1673) - lu(k,1689) = lu(k,1689) - lu(k,938) * lu(k,1673) - lu(k,1690) = lu(k,1690) - lu(k,939) * lu(k,1673) - lu(k,1691) = lu(k,1691) - lu(k,940) * lu(k,1673) - lu(k,1692) = lu(k,1692) - lu(k,941) * lu(k,1673) - lu(k,1693) = lu(k,1693) - lu(k,942) * lu(k,1673) - lu(k,1694) = lu(k,1694) - lu(k,943) * lu(k,1673) - lu(k,1710) = lu(k,1710) - lu(k,923) * lu(k,1709) - lu(k,1711) = lu(k,1711) - lu(k,924) * lu(k,1709) - lu(k,1712) = lu(k,1712) - lu(k,925) * lu(k,1709) - lu(k,1713) = lu(k,1713) - lu(k,926) * lu(k,1709) - lu(k,1714) = lu(k,1714) - lu(k,927) * lu(k,1709) - lu(k,1715) = lu(k,1715) - lu(k,928) * lu(k,1709) - lu(k,1716) = lu(k,1716) - lu(k,929) * lu(k,1709) - lu(k,1717) = lu(k,1717) - lu(k,930) * lu(k,1709) - lu(k,1718) = lu(k,1718) - lu(k,931) * lu(k,1709) - lu(k,1719) = lu(k,1719) - lu(k,932) * lu(k,1709) - lu(k,1720) = lu(k,1720) - lu(k,933) * lu(k,1709) - lu(k,1721) = lu(k,1721) - lu(k,934) * lu(k,1709) - lu(k,1722) = lu(k,1722) - lu(k,935) * lu(k,1709) - lu(k,1723) = lu(k,1723) - lu(k,936) * lu(k,1709) - lu(k,1724) = lu(k,1724) - lu(k,937) * lu(k,1709) - lu(k,1725) = lu(k,1725) - lu(k,938) * lu(k,1709) - lu(k,1726) = lu(k,1726) - lu(k,939) * lu(k,1709) - lu(k,1727) = lu(k,1727) - lu(k,940) * lu(k,1709) - lu(k,1728) = lu(k,1728) - lu(k,941) * lu(k,1709) - lu(k,1729) = lu(k,1729) - lu(k,942) * lu(k,1709) - lu(k,1730) = lu(k,1730) - lu(k,943) * lu(k,1709) - lu(k,1752) = lu(k,1752) - lu(k,923) * lu(k,1751) - lu(k,1753) = lu(k,1753) - lu(k,924) * lu(k,1751) - lu(k,1754) = lu(k,1754) - lu(k,925) * lu(k,1751) - lu(k,1755) = lu(k,1755) - lu(k,926) * lu(k,1751) - lu(k,1756) = lu(k,1756) - lu(k,927) * lu(k,1751) - lu(k,1757) = lu(k,1757) - lu(k,928) * lu(k,1751) - lu(k,1758) = lu(k,1758) - lu(k,929) * lu(k,1751) - lu(k,1759) = lu(k,1759) - lu(k,930) * lu(k,1751) - lu(k,1760) = lu(k,1760) - lu(k,931) * lu(k,1751) - lu(k,1761) = lu(k,1761) - lu(k,932) * lu(k,1751) - lu(k,1762) = lu(k,1762) - lu(k,933) * lu(k,1751) - lu(k,1763) = lu(k,1763) - lu(k,934) * lu(k,1751) - lu(k,1764) = lu(k,1764) - lu(k,935) * lu(k,1751) - lu(k,1765) = lu(k,1765) - lu(k,936) * lu(k,1751) - lu(k,1766) = lu(k,1766) - lu(k,937) * lu(k,1751) - lu(k,1767) = lu(k,1767) - lu(k,938) * lu(k,1751) - lu(k,1768) = lu(k,1768) - lu(k,939) * lu(k,1751) - lu(k,1769) = lu(k,1769) - lu(k,940) * lu(k,1751) - lu(k,1770) = lu(k,1770) - lu(k,941) * lu(k,1751) - lu(k,1771) = lu(k,1771) - lu(k,942) * lu(k,1751) - lu(k,1772) = lu(k,1772) - lu(k,943) * lu(k,1751) - lu(k,1805) = lu(k,1805) - lu(k,923) * lu(k,1804) - lu(k,1806) = lu(k,1806) - lu(k,924) * lu(k,1804) - lu(k,1807) = lu(k,1807) - lu(k,925) * lu(k,1804) - lu(k,1808) = lu(k,1808) - lu(k,926) * lu(k,1804) - lu(k,1809) = lu(k,1809) - lu(k,927) * lu(k,1804) - lu(k,1810) = lu(k,1810) - lu(k,928) * lu(k,1804) - lu(k,1811) = lu(k,1811) - lu(k,929) * lu(k,1804) - lu(k,1812) = lu(k,1812) - lu(k,930) * lu(k,1804) - lu(k,1813) = lu(k,1813) - lu(k,931) * lu(k,1804) - lu(k,1814) = lu(k,1814) - lu(k,932) * lu(k,1804) - lu(k,1815) = lu(k,1815) - lu(k,933) * lu(k,1804) - lu(k,1816) = lu(k,1816) - lu(k,934) * lu(k,1804) - lu(k,1817) = lu(k,1817) - lu(k,935) * lu(k,1804) - lu(k,1818) = lu(k,1818) - lu(k,936) * lu(k,1804) - lu(k,1819) = lu(k,1819) - lu(k,937) * lu(k,1804) - lu(k,1820) = lu(k,1820) - lu(k,938) * lu(k,1804) - lu(k,1821) = lu(k,1821) - lu(k,939) * lu(k,1804) - lu(k,1822) = lu(k,1822) - lu(k,940) * lu(k,1804) - lu(k,1823) = lu(k,1823) - lu(k,941) * lu(k,1804) - lu(k,1824) = lu(k,1824) - lu(k,942) * lu(k,1804) - lu(k,1825) = lu(k,1825) - lu(k,943) * lu(k,1804) - 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,990) = lu(k,990) * lu(k,979) - lu(k,991) = lu(k,991) * lu(k,979) - lu(k,992) = lu(k,992) * lu(k,979) - lu(k,993) = lu(k,993) * lu(k,979) - lu(k,994) = lu(k,994) * lu(k,979) - lu(k,995) = lu(k,995) * lu(k,979) - lu(k,996) = lu(k,996) * lu(k,979) - lu(k,997) = lu(k,997) * lu(k,979) - lu(k,998) = lu(k,998) * lu(k,979) - lu(k,999) = lu(k,999) * lu(k,979) - lu(k,1023) = lu(k,1023) - lu(k,980) * lu(k,1022) - lu(k,1024) = lu(k,1024) - lu(k,981) * lu(k,1022) - lu(k,1025) = lu(k,1025) - lu(k,982) * lu(k,1022) - lu(k,1026) = lu(k,1026) - lu(k,983) * lu(k,1022) - lu(k,1027) = lu(k,1027) - lu(k,984) * lu(k,1022) - lu(k,1028) = lu(k,1028) - lu(k,985) * lu(k,1022) - lu(k,1029) = lu(k,1029) - lu(k,986) * lu(k,1022) - lu(k,1030) = lu(k,1030) - lu(k,987) * lu(k,1022) - lu(k,1031) = lu(k,1031) - lu(k,988) * lu(k,1022) - lu(k,1032) = lu(k,1032) - lu(k,989) * lu(k,1022) - lu(k,1033) = lu(k,1033) - lu(k,990) * lu(k,1022) - lu(k,1034) = lu(k,1034) - lu(k,991) * lu(k,1022) - lu(k,1035) = lu(k,1035) - lu(k,992) * lu(k,1022) - lu(k,1036) = lu(k,1036) - lu(k,993) * lu(k,1022) - lu(k,1037) = lu(k,1037) - lu(k,994) * lu(k,1022) - lu(k,1038) = lu(k,1038) - lu(k,995) * lu(k,1022) - lu(k,1039) = lu(k,1039) - lu(k,996) * lu(k,1022) - lu(k,1040) = lu(k,1040) - lu(k,997) * lu(k,1022) - lu(k,1041) = lu(k,1041) - lu(k,998) * lu(k,1022) - lu(k,1042) = lu(k,1042) - lu(k,999) * lu(k,1022) - lu(k,1065) = lu(k,1065) - lu(k,980) * lu(k,1064) - lu(k,1066) = lu(k,1066) - lu(k,981) * lu(k,1064) - lu(k,1067) = lu(k,1067) - lu(k,982) * lu(k,1064) - lu(k,1068) = lu(k,1068) - lu(k,983) * lu(k,1064) - lu(k,1069) = lu(k,1069) - lu(k,984) * lu(k,1064) - lu(k,1070) = lu(k,1070) - lu(k,985) * lu(k,1064) - lu(k,1071) = lu(k,1071) - lu(k,986) * lu(k,1064) - lu(k,1072) = lu(k,1072) - lu(k,987) * lu(k,1064) - lu(k,1073) = lu(k,1073) - lu(k,988) * lu(k,1064) - lu(k,1074) = lu(k,1074) - lu(k,989) * lu(k,1064) - lu(k,1075) = lu(k,1075) - lu(k,990) * lu(k,1064) - lu(k,1076) = lu(k,1076) - lu(k,991) * lu(k,1064) - lu(k,1077) = lu(k,1077) - lu(k,992) * lu(k,1064) - lu(k,1078) = lu(k,1078) - lu(k,993) * lu(k,1064) - lu(k,1079) = lu(k,1079) - lu(k,994) * lu(k,1064) - lu(k,1080) = lu(k,1080) - lu(k,995) * lu(k,1064) - lu(k,1081) = lu(k,1081) - lu(k,996) * lu(k,1064) - lu(k,1082) = lu(k,1082) - lu(k,997) * lu(k,1064) - lu(k,1083) = lu(k,1083) - lu(k,998) * lu(k,1064) - lu(k,1084) = lu(k,1084) - lu(k,999) * lu(k,1064) - lu(k,1105) = lu(k,1105) - lu(k,980) * lu(k,1104) - lu(k,1106) = lu(k,1106) - lu(k,981) * lu(k,1104) - lu(k,1107) = lu(k,1107) - lu(k,982) * lu(k,1104) - lu(k,1108) = lu(k,1108) - lu(k,983) * lu(k,1104) - lu(k,1109) = lu(k,1109) - lu(k,984) * lu(k,1104) - lu(k,1110) = lu(k,1110) - lu(k,985) * lu(k,1104) - lu(k,1111) = lu(k,1111) - lu(k,986) * lu(k,1104) - lu(k,1112) = lu(k,1112) - lu(k,987) * lu(k,1104) - lu(k,1113) = lu(k,1113) - lu(k,988) * lu(k,1104) - lu(k,1114) = lu(k,1114) - lu(k,989) * lu(k,1104) - lu(k,1115) = lu(k,1115) - lu(k,990) * lu(k,1104) - lu(k,1116) = lu(k,1116) - lu(k,991) * lu(k,1104) - lu(k,1117) = lu(k,1117) - lu(k,992) * lu(k,1104) - lu(k,1118) = lu(k,1118) - lu(k,993) * lu(k,1104) - lu(k,1119) = lu(k,1119) - lu(k,994) * lu(k,1104) - lu(k,1120) = lu(k,1120) - lu(k,995) * lu(k,1104) - lu(k,1121) = lu(k,1121) - lu(k,996) * lu(k,1104) - lu(k,1122) = lu(k,1122) - lu(k,997) * lu(k,1104) - lu(k,1123) = lu(k,1123) - lu(k,998) * lu(k,1104) - lu(k,1124) = lu(k,1124) - lu(k,999) * lu(k,1104) - lu(k,1150) = lu(k,1150) - lu(k,980) * lu(k,1149) - lu(k,1151) = lu(k,1151) - lu(k,981) * lu(k,1149) - lu(k,1152) = lu(k,1152) - lu(k,982) * lu(k,1149) - lu(k,1153) = lu(k,1153) - lu(k,983) * lu(k,1149) - lu(k,1154) = lu(k,1154) - lu(k,984) * lu(k,1149) - lu(k,1155) = lu(k,1155) - lu(k,985) * lu(k,1149) - lu(k,1156) = lu(k,1156) - lu(k,986) * lu(k,1149) - lu(k,1157) = lu(k,1157) - lu(k,987) * lu(k,1149) - lu(k,1158) = lu(k,1158) - lu(k,988) * lu(k,1149) - lu(k,1159) = lu(k,1159) - lu(k,989) * lu(k,1149) - lu(k,1160) = lu(k,1160) - lu(k,990) * lu(k,1149) - lu(k,1161) = lu(k,1161) - lu(k,991) * lu(k,1149) - lu(k,1162) = lu(k,1162) - lu(k,992) * lu(k,1149) - lu(k,1163) = lu(k,1163) - lu(k,993) * lu(k,1149) - lu(k,1164) = lu(k,1164) - lu(k,994) * lu(k,1149) - lu(k,1165) = lu(k,1165) - lu(k,995) * lu(k,1149) - lu(k,1166) = lu(k,1166) - lu(k,996) * lu(k,1149) - lu(k,1167) = lu(k,1167) - lu(k,997) * lu(k,1149) - lu(k,1168) = lu(k,1168) - lu(k,998) * lu(k,1149) - lu(k,1169) = lu(k,1169) - lu(k,999) * lu(k,1149) - lu(k,1193) = lu(k,1193) - lu(k,980) * lu(k,1192) - lu(k,1194) = lu(k,1194) - lu(k,981) * lu(k,1192) - lu(k,1195) = lu(k,1195) - lu(k,982) * lu(k,1192) - lu(k,1196) = lu(k,1196) - lu(k,983) * lu(k,1192) - lu(k,1197) = lu(k,1197) - lu(k,984) * lu(k,1192) - lu(k,1198) = lu(k,1198) - lu(k,985) * lu(k,1192) - lu(k,1199) = lu(k,1199) - lu(k,986) * lu(k,1192) - lu(k,1200) = lu(k,1200) - lu(k,987) * lu(k,1192) - lu(k,1201) = lu(k,1201) - lu(k,988) * lu(k,1192) - lu(k,1202) = lu(k,1202) - lu(k,989) * lu(k,1192) - lu(k,1203) = lu(k,1203) - lu(k,990) * lu(k,1192) - lu(k,1204) = lu(k,1204) - lu(k,991) * lu(k,1192) - lu(k,1205) = lu(k,1205) - lu(k,992) * lu(k,1192) - lu(k,1206) = lu(k,1206) - lu(k,993) * lu(k,1192) - lu(k,1207) = lu(k,1207) - lu(k,994) * lu(k,1192) - lu(k,1208) = lu(k,1208) - lu(k,995) * lu(k,1192) - lu(k,1209) = lu(k,1209) - lu(k,996) * lu(k,1192) - lu(k,1210) = lu(k,1210) - lu(k,997) * lu(k,1192) - lu(k,1211) = lu(k,1211) - lu(k,998) * lu(k,1192) - lu(k,1212) = lu(k,1212) - lu(k,999) * lu(k,1192) - lu(k,1228) = lu(k,1228) - lu(k,980) * lu(k,1227) - lu(k,1229) = lu(k,1229) - lu(k,981) * lu(k,1227) - lu(k,1230) = lu(k,1230) - lu(k,982) * lu(k,1227) - lu(k,1231) = lu(k,1231) - lu(k,983) * lu(k,1227) - lu(k,1232) = lu(k,1232) - lu(k,984) * lu(k,1227) - lu(k,1233) = lu(k,1233) - lu(k,985) * lu(k,1227) - lu(k,1234) = lu(k,1234) - lu(k,986) * lu(k,1227) - lu(k,1235) = lu(k,1235) - lu(k,987) * lu(k,1227) - lu(k,1236) = lu(k,1236) - lu(k,988) * lu(k,1227) - lu(k,1237) = lu(k,1237) - lu(k,989) * lu(k,1227) - lu(k,1238) = lu(k,1238) - lu(k,990) * lu(k,1227) - lu(k,1239) = lu(k,1239) - lu(k,991) * lu(k,1227) - lu(k,1240) = lu(k,1240) - lu(k,992) * lu(k,1227) - lu(k,1241) = lu(k,1241) - lu(k,993) * lu(k,1227) - lu(k,1242) = lu(k,1242) - lu(k,994) * lu(k,1227) - lu(k,1243) = lu(k,1243) - lu(k,995) * lu(k,1227) - lu(k,1244) = lu(k,1244) - lu(k,996) * lu(k,1227) - lu(k,1245) = lu(k,1245) - lu(k,997) * lu(k,1227) - lu(k,1246) = lu(k,1246) - lu(k,998) * lu(k,1227) - lu(k,1247) = lu(k,1247) - lu(k,999) * lu(k,1227) - lu(k,1271) = lu(k,1271) - lu(k,980) * lu(k,1270) - lu(k,1272) = lu(k,1272) - lu(k,981) * lu(k,1270) - lu(k,1273) = lu(k,1273) - lu(k,982) * lu(k,1270) - lu(k,1274) = lu(k,1274) - lu(k,983) * lu(k,1270) - lu(k,1275) = lu(k,1275) - lu(k,984) * lu(k,1270) - lu(k,1276) = lu(k,1276) - lu(k,985) * lu(k,1270) - lu(k,1277) = lu(k,1277) - lu(k,986) * lu(k,1270) - lu(k,1278) = lu(k,1278) - lu(k,987) * lu(k,1270) - lu(k,1279) = lu(k,1279) - lu(k,988) * lu(k,1270) - lu(k,1280) = lu(k,1280) - lu(k,989) * lu(k,1270) - lu(k,1281) = lu(k,1281) - lu(k,990) * lu(k,1270) - lu(k,1282) = lu(k,1282) - lu(k,991) * lu(k,1270) - lu(k,1283) = lu(k,1283) - lu(k,992) * lu(k,1270) - lu(k,1284) = lu(k,1284) - lu(k,993) * lu(k,1270) - lu(k,1285) = lu(k,1285) - lu(k,994) * lu(k,1270) - lu(k,1286) = lu(k,1286) - lu(k,995) * lu(k,1270) - lu(k,1287) = lu(k,1287) - lu(k,996) * lu(k,1270) - lu(k,1288) = lu(k,1288) - lu(k,997) * lu(k,1270) - lu(k,1289) = lu(k,1289) - lu(k,998) * lu(k,1270) - lu(k,1290) = lu(k,1290) - lu(k,999) * lu(k,1270) - lu(k,1307) = lu(k,1307) - lu(k,980) * lu(k,1306) - lu(k,1308) = lu(k,1308) - lu(k,981) * lu(k,1306) - lu(k,1309) = lu(k,1309) - lu(k,982) * lu(k,1306) - lu(k,1310) = lu(k,1310) - lu(k,983) * lu(k,1306) - lu(k,1311) = lu(k,1311) - lu(k,984) * lu(k,1306) - lu(k,1312) = lu(k,1312) - lu(k,985) * lu(k,1306) - lu(k,1313) = lu(k,1313) - lu(k,986) * lu(k,1306) - lu(k,1314) = lu(k,1314) - lu(k,987) * lu(k,1306) - lu(k,1315) = lu(k,1315) - lu(k,988) * lu(k,1306) - lu(k,1316) = lu(k,1316) - lu(k,989) * lu(k,1306) - lu(k,1317) = lu(k,1317) - lu(k,990) * lu(k,1306) - lu(k,1318) = lu(k,1318) - lu(k,991) * lu(k,1306) - lu(k,1319) = lu(k,1319) - lu(k,992) * lu(k,1306) - lu(k,1320) = lu(k,1320) - lu(k,993) * lu(k,1306) - lu(k,1321) = lu(k,1321) - lu(k,994) * lu(k,1306) - lu(k,1322) = lu(k,1322) - lu(k,995) * lu(k,1306) - lu(k,1323) = lu(k,1323) - lu(k,996) * lu(k,1306) - lu(k,1324) = lu(k,1324) - lu(k,997) * lu(k,1306) - lu(k,1325) = lu(k,1325) - lu(k,998) * lu(k,1306) - lu(k,1326) = lu(k,1326) - lu(k,999) * lu(k,1306) - lu(k,1352) = lu(k,1352) - lu(k,980) * lu(k,1351) - lu(k,1353) = lu(k,1353) - lu(k,981) * lu(k,1351) - lu(k,1354) = lu(k,1354) - lu(k,982) * lu(k,1351) - lu(k,1355) = lu(k,1355) - lu(k,983) * lu(k,1351) - lu(k,1356) = lu(k,1356) - lu(k,984) * lu(k,1351) - lu(k,1357) = lu(k,1357) - lu(k,985) * lu(k,1351) - lu(k,1358) = lu(k,1358) - lu(k,986) * lu(k,1351) - lu(k,1359) = lu(k,1359) - lu(k,987) * lu(k,1351) - lu(k,1360) = lu(k,1360) - lu(k,988) * lu(k,1351) - lu(k,1361) = lu(k,1361) - lu(k,989) * lu(k,1351) - lu(k,1362) = lu(k,1362) - lu(k,990) * lu(k,1351) - lu(k,1363) = lu(k,1363) - lu(k,991) * lu(k,1351) - lu(k,1364) = lu(k,1364) - lu(k,992) * lu(k,1351) - lu(k,1365) = lu(k,1365) - lu(k,993) * lu(k,1351) - lu(k,1366) = lu(k,1366) - lu(k,994) * lu(k,1351) - lu(k,1367) = lu(k,1367) - lu(k,995) * lu(k,1351) - lu(k,1368) = lu(k,1368) - lu(k,996) * lu(k,1351) - lu(k,1369) = lu(k,1369) - lu(k,997) * lu(k,1351) - lu(k,1370) = lu(k,1370) - lu(k,998) * lu(k,1351) - lu(k,1371) = lu(k,1371) - lu(k,999) * lu(k,1351) - lu(k,1394) = lu(k,1394) - lu(k,980) * lu(k,1393) - lu(k,1395) = lu(k,1395) - lu(k,981) * lu(k,1393) - lu(k,1396) = lu(k,1396) - lu(k,982) * lu(k,1393) - lu(k,1397) = lu(k,1397) - lu(k,983) * lu(k,1393) - lu(k,1398) = lu(k,1398) - lu(k,984) * lu(k,1393) - lu(k,1399) = lu(k,1399) - lu(k,985) * lu(k,1393) - lu(k,1400) = lu(k,1400) - lu(k,986) * lu(k,1393) - lu(k,1401) = lu(k,1401) - lu(k,987) * lu(k,1393) - lu(k,1402) = lu(k,1402) - lu(k,988) * lu(k,1393) - lu(k,1403) = lu(k,1403) - lu(k,989) * lu(k,1393) - lu(k,1404) = lu(k,1404) - lu(k,990) * lu(k,1393) - lu(k,1405) = lu(k,1405) - lu(k,991) * lu(k,1393) - lu(k,1406) = lu(k,1406) - lu(k,992) * lu(k,1393) - lu(k,1407) = lu(k,1407) - lu(k,993) * lu(k,1393) - lu(k,1408) = lu(k,1408) - lu(k,994) * lu(k,1393) - lu(k,1409) = lu(k,1409) - lu(k,995) * lu(k,1393) - lu(k,1410) = lu(k,1410) - lu(k,996) * lu(k,1393) - lu(k,1411) = lu(k,1411) - lu(k,997) * lu(k,1393) - lu(k,1412) = lu(k,1412) - lu(k,998) * lu(k,1393) - lu(k,1413) = lu(k,1413) - lu(k,999) * lu(k,1393) - lu(k,1432) = lu(k,1432) - lu(k,980) * lu(k,1431) - lu(k,1433) = lu(k,1433) - lu(k,981) * lu(k,1431) - lu(k,1434) = lu(k,1434) - lu(k,982) * lu(k,1431) - lu(k,1435) = lu(k,1435) - lu(k,983) * lu(k,1431) - lu(k,1436) = lu(k,1436) - lu(k,984) * lu(k,1431) - lu(k,1437) = lu(k,1437) - lu(k,985) * lu(k,1431) - lu(k,1438) = lu(k,1438) - lu(k,986) * lu(k,1431) - lu(k,1439) = lu(k,1439) - lu(k,987) * lu(k,1431) - lu(k,1440) = lu(k,1440) - lu(k,988) * lu(k,1431) - lu(k,1441) = lu(k,1441) - lu(k,989) * lu(k,1431) - lu(k,1442) = lu(k,1442) - lu(k,990) * lu(k,1431) - lu(k,1443) = lu(k,1443) - lu(k,991) * lu(k,1431) - lu(k,1444) = lu(k,1444) - lu(k,992) * lu(k,1431) - lu(k,1445) = lu(k,1445) - lu(k,993) * lu(k,1431) - lu(k,1446) = lu(k,1446) - lu(k,994) * lu(k,1431) - lu(k,1447) = lu(k,1447) - lu(k,995) * lu(k,1431) - lu(k,1448) = lu(k,1448) - lu(k,996) * lu(k,1431) - lu(k,1449) = lu(k,1449) - lu(k,997) * lu(k,1431) - lu(k,1450) = lu(k,1450) - lu(k,998) * lu(k,1431) - lu(k,1451) = lu(k,1451) - lu(k,999) * lu(k,1431) - lu(k,1477) = lu(k,1477) - lu(k,980) * lu(k,1476) - lu(k,1478) = lu(k,1478) - lu(k,981) * lu(k,1476) - lu(k,1479) = lu(k,1479) - lu(k,982) * lu(k,1476) - lu(k,1480) = lu(k,1480) - lu(k,983) * lu(k,1476) - lu(k,1481) = lu(k,1481) - lu(k,984) * lu(k,1476) - lu(k,1482) = lu(k,1482) - lu(k,985) * lu(k,1476) - lu(k,1483) = lu(k,1483) - lu(k,986) * lu(k,1476) - lu(k,1484) = lu(k,1484) - lu(k,987) * lu(k,1476) - lu(k,1485) = lu(k,1485) - lu(k,988) * lu(k,1476) - lu(k,1486) = lu(k,1486) - lu(k,989) * lu(k,1476) - lu(k,1487) = lu(k,1487) - lu(k,990) * lu(k,1476) - lu(k,1488) = lu(k,1488) - lu(k,991) * lu(k,1476) - lu(k,1489) = lu(k,1489) - lu(k,992) * lu(k,1476) - lu(k,1490) = lu(k,1490) - lu(k,993) * lu(k,1476) - lu(k,1491) = lu(k,1491) - lu(k,994) * lu(k,1476) - lu(k,1492) = lu(k,1492) - lu(k,995) * lu(k,1476) - lu(k,1493) = lu(k,1493) - lu(k,996) * lu(k,1476) - lu(k,1494) = lu(k,1494) - lu(k,997) * lu(k,1476) - lu(k,1495) = lu(k,1495) - lu(k,998) * lu(k,1476) - lu(k,1496) = lu(k,1496) - lu(k,999) * lu(k,1476) - lu(k,1520) = lu(k,1520) - lu(k,980) * lu(k,1519) - lu(k,1521) = lu(k,1521) - lu(k,981) * lu(k,1519) - lu(k,1522) = lu(k,1522) - lu(k,982) * lu(k,1519) - lu(k,1523) = lu(k,1523) - lu(k,983) * lu(k,1519) - lu(k,1524) = lu(k,1524) - lu(k,984) * lu(k,1519) - lu(k,1525) = lu(k,1525) - lu(k,985) * lu(k,1519) - lu(k,1526) = lu(k,1526) - lu(k,986) * lu(k,1519) - lu(k,1527) = lu(k,1527) - lu(k,987) * lu(k,1519) - lu(k,1528) = lu(k,1528) - lu(k,988) * lu(k,1519) - lu(k,1529) = lu(k,1529) - lu(k,989) * lu(k,1519) - lu(k,1530) = lu(k,1530) - lu(k,990) * lu(k,1519) - lu(k,1531) = lu(k,1531) - lu(k,991) * lu(k,1519) - lu(k,1532) = lu(k,1532) - lu(k,992) * lu(k,1519) - lu(k,1533) = lu(k,1533) - lu(k,993) * lu(k,1519) - lu(k,1534) = lu(k,1534) - lu(k,994) * lu(k,1519) - lu(k,1535) = lu(k,1535) - lu(k,995) * lu(k,1519) - lu(k,1536) = lu(k,1536) - lu(k,996) * lu(k,1519) - lu(k,1537) = lu(k,1537) - lu(k,997) * lu(k,1519) - lu(k,1538) = lu(k,1538) - lu(k,998) * lu(k,1519) - lu(k,1539) = lu(k,1539) - lu(k,999) * lu(k,1519) - lu(k,1563) = lu(k,1563) - lu(k,980) * lu(k,1562) - lu(k,1564) = lu(k,1564) - lu(k,981) * lu(k,1562) - lu(k,1565) = lu(k,1565) - lu(k,982) * lu(k,1562) - lu(k,1566) = lu(k,1566) - lu(k,983) * lu(k,1562) - lu(k,1567) = lu(k,1567) - lu(k,984) * lu(k,1562) - lu(k,1568) = lu(k,1568) - lu(k,985) * lu(k,1562) - lu(k,1569) = lu(k,1569) - lu(k,986) * lu(k,1562) - lu(k,1570) = lu(k,1570) - lu(k,987) * lu(k,1562) - lu(k,1571) = lu(k,1571) - lu(k,988) * lu(k,1562) - lu(k,1572) = lu(k,1572) - lu(k,989) * lu(k,1562) - lu(k,1573) = lu(k,1573) - lu(k,990) * lu(k,1562) - lu(k,1574) = lu(k,1574) - lu(k,991) * lu(k,1562) - lu(k,1575) = lu(k,1575) - lu(k,992) * lu(k,1562) - lu(k,1576) = lu(k,1576) - lu(k,993) * lu(k,1562) - lu(k,1577) = lu(k,1577) - lu(k,994) * lu(k,1562) - lu(k,1578) = lu(k,1578) - lu(k,995) * lu(k,1562) - lu(k,1579) = lu(k,1579) - lu(k,996) * lu(k,1562) - lu(k,1580) = lu(k,1580) - lu(k,997) * lu(k,1562) - lu(k,1581) = lu(k,1581) - lu(k,998) * lu(k,1562) - lu(k,1582) = lu(k,1582) - lu(k,999) * lu(k,1562) - lu(k,1596) = lu(k,1596) - lu(k,980) * lu(k,1595) - lu(k,1597) = lu(k,1597) - lu(k,981) * lu(k,1595) - lu(k,1598) = lu(k,1598) - lu(k,982) * lu(k,1595) - lu(k,1599) = lu(k,1599) - lu(k,983) * lu(k,1595) - lu(k,1600) = lu(k,1600) - lu(k,984) * lu(k,1595) - lu(k,1601) = lu(k,1601) - lu(k,985) * lu(k,1595) - lu(k,1602) = lu(k,1602) - lu(k,986) * lu(k,1595) - lu(k,1603) = lu(k,1603) - lu(k,987) * lu(k,1595) - lu(k,1604) = lu(k,1604) - lu(k,988) * lu(k,1595) - lu(k,1605) = lu(k,1605) - lu(k,989) * lu(k,1595) - lu(k,1606) = lu(k,1606) - lu(k,990) * lu(k,1595) - lu(k,1607) = lu(k,1607) - lu(k,991) * lu(k,1595) - lu(k,1608) = lu(k,1608) - lu(k,992) * lu(k,1595) - lu(k,1609) = lu(k,1609) - lu(k,993) * lu(k,1595) - lu(k,1610) = lu(k,1610) - lu(k,994) * lu(k,1595) - lu(k,1611) = lu(k,1611) - lu(k,995) * lu(k,1595) - lu(k,1612) = lu(k,1612) - lu(k,996) * lu(k,1595) - lu(k,1613) = lu(k,1613) - lu(k,997) * lu(k,1595) - lu(k,1614) = lu(k,1614) - lu(k,998) * lu(k,1595) - lu(k,1615) = lu(k,1615) - lu(k,999) * lu(k,1595) - lu(k,1632) = lu(k,1632) - lu(k,980) * lu(k,1631) - lu(k,1633) = lu(k,1633) - lu(k,981) * lu(k,1631) - lu(k,1634) = lu(k,1634) - lu(k,982) * lu(k,1631) - lu(k,1635) = lu(k,1635) - lu(k,983) * lu(k,1631) - lu(k,1636) = lu(k,1636) - lu(k,984) * lu(k,1631) - lu(k,1637) = lu(k,1637) - lu(k,985) * lu(k,1631) - lu(k,1638) = lu(k,1638) - lu(k,986) * lu(k,1631) - lu(k,1639) = lu(k,1639) - lu(k,987) * lu(k,1631) - lu(k,1640) = lu(k,1640) - lu(k,988) * lu(k,1631) - lu(k,1641) = lu(k,1641) - lu(k,989) * lu(k,1631) - lu(k,1642) = lu(k,1642) - lu(k,990) * lu(k,1631) - lu(k,1643) = lu(k,1643) - lu(k,991) * lu(k,1631) - lu(k,1644) = lu(k,1644) - lu(k,992) * lu(k,1631) - lu(k,1645) = lu(k,1645) - lu(k,993) * lu(k,1631) - lu(k,1646) = lu(k,1646) - lu(k,994) * lu(k,1631) - lu(k,1647) = lu(k,1647) - lu(k,995) * lu(k,1631) - lu(k,1648) = lu(k,1648) - lu(k,996) * lu(k,1631) - lu(k,1649) = lu(k,1649) - lu(k,997) * lu(k,1631) - lu(k,1650) = lu(k,1650) - lu(k,998) * lu(k,1631) - lu(k,1651) = lu(k,1651) - lu(k,999) * lu(k,1631) - lu(k,1675) = lu(k,1675) - lu(k,980) * lu(k,1674) - lu(k,1676) = lu(k,1676) - lu(k,981) * lu(k,1674) - lu(k,1677) = lu(k,1677) - lu(k,982) * lu(k,1674) - lu(k,1678) = lu(k,1678) - lu(k,983) * lu(k,1674) - lu(k,1679) = lu(k,1679) - lu(k,984) * lu(k,1674) - lu(k,1680) = lu(k,1680) - lu(k,985) * lu(k,1674) - lu(k,1681) = lu(k,1681) - lu(k,986) * lu(k,1674) - lu(k,1682) = lu(k,1682) - lu(k,987) * lu(k,1674) - lu(k,1683) = lu(k,1683) - lu(k,988) * lu(k,1674) - lu(k,1684) = lu(k,1684) - lu(k,989) * lu(k,1674) - lu(k,1685) = lu(k,1685) - lu(k,990) * lu(k,1674) - lu(k,1686) = lu(k,1686) - lu(k,991) * lu(k,1674) - lu(k,1687) = lu(k,1687) - lu(k,992) * lu(k,1674) - lu(k,1688) = lu(k,1688) - lu(k,993) * lu(k,1674) - lu(k,1689) = lu(k,1689) - lu(k,994) * lu(k,1674) - lu(k,1690) = lu(k,1690) - lu(k,995) * lu(k,1674) - lu(k,1691) = lu(k,1691) - lu(k,996) * lu(k,1674) - lu(k,1692) = lu(k,1692) - lu(k,997) * lu(k,1674) - lu(k,1693) = lu(k,1693) - lu(k,998) * lu(k,1674) - lu(k,1694) = lu(k,1694) - lu(k,999) * lu(k,1674) - lu(k,1711) = lu(k,1711) - lu(k,980) * lu(k,1710) - lu(k,1712) = lu(k,1712) - lu(k,981) * lu(k,1710) - lu(k,1713) = lu(k,1713) - lu(k,982) * lu(k,1710) - lu(k,1714) = lu(k,1714) - lu(k,983) * lu(k,1710) - lu(k,1715) = lu(k,1715) - lu(k,984) * lu(k,1710) - lu(k,1716) = lu(k,1716) - lu(k,985) * lu(k,1710) - lu(k,1717) = lu(k,1717) - lu(k,986) * lu(k,1710) - lu(k,1718) = lu(k,1718) - lu(k,987) * lu(k,1710) - lu(k,1719) = lu(k,1719) - lu(k,988) * lu(k,1710) - lu(k,1720) = lu(k,1720) - lu(k,989) * lu(k,1710) - lu(k,1721) = lu(k,1721) - lu(k,990) * lu(k,1710) - lu(k,1722) = lu(k,1722) - lu(k,991) * lu(k,1710) - lu(k,1723) = lu(k,1723) - lu(k,992) * lu(k,1710) - lu(k,1724) = lu(k,1724) - lu(k,993) * lu(k,1710) - lu(k,1725) = lu(k,1725) - lu(k,994) * lu(k,1710) - lu(k,1726) = lu(k,1726) - lu(k,995) * lu(k,1710) - lu(k,1727) = lu(k,1727) - lu(k,996) * lu(k,1710) - lu(k,1728) = lu(k,1728) - lu(k,997) * lu(k,1710) - lu(k,1729) = lu(k,1729) - lu(k,998) * lu(k,1710) - lu(k,1730) = lu(k,1730) - lu(k,999) * lu(k,1710) - lu(k,1753) = lu(k,1753) - lu(k,980) * lu(k,1752) - lu(k,1754) = lu(k,1754) - lu(k,981) * lu(k,1752) - lu(k,1755) = lu(k,1755) - lu(k,982) * lu(k,1752) - lu(k,1756) = lu(k,1756) - lu(k,983) * lu(k,1752) - lu(k,1757) = lu(k,1757) - lu(k,984) * lu(k,1752) - lu(k,1758) = lu(k,1758) - lu(k,985) * lu(k,1752) - lu(k,1759) = lu(k,1759) - lu(k,986) * lu(k,1752) - lu(k,1760) = lu(k,1760) - lu(k,987) * lu(k,1752) - lu(k,1761) = lu(k,1761) - lu(k,988) * lu(k,1752) - lu(k,1762) = lu(k,1762) - lu(k,989) * lu(k,1752) - lu(k,1763) = lu(k,1763) - lu(k,990) * lu(k,1752) - lu(k,1764) = lu(k,1764) - lu(k,991) * lu(k,1752) - lu(k,1765) = lu(k,1765) - lu(k,992) * lu(k,1752) - lu(k,1766) = lu(k,1766) - lu(k,993) * lu(k,1752) - lu(k,1767) = lu(k,1767) - lu(k,994) * lu(k,1752) - lu(k,1768) = lu(k,1768) - lu(k,995) * lu(k,1752) - lu(k,1769) = lu(k,1769) - lu(k,996) * lu(k,1752) - lu(k,1770) = lu(k,1770) - lu(k,997) * lu(k,1752) - lu(k,1771) = lu(k,1771) - lu(k,998) * lu(k,1752) - lu(k,1772) = lu(k,1772) - lu(k,999) * lu(k,1752) - lu(k,1806) = lu(k,1806) - lu(k,980) * lu(k,1805) - lu(k,1807) = lu(k,1807) - lu(k,981) * lu(k,1805) - lu(k,1808) = lu(k,1808) - lu(k,982) * lu(k,1805) - lu(k,1809) = lu(k,1809) - lu(k,983) * lu(k,1805) - lu(k,1810) = lu(k,1810) - lu(k,984) * lu(k,1805) - lu(k,1811) = lu(k,1811) - lu(k,985) * lu(k,1805) - lu(k,1812) = lu(k,1812) - lu(k,986) * lu(k,1805) - lu(k,1813) = lu(k,1813) - lu(k,987) * lu(k,1805) - lu(k,1814) = lu(k,1814) - lu(k,988) * lu(k,1805) - lu(k,1815) = lu(k,1815) - lu(k,989) * lu(k,1805) - lu(k,1816) = lu(k,1816) - lu(k,990) * lu(k,1805) - lu(k,1817) = lu(k,1817) - lu(k,991) * lu(k,1805) - lu(k,1818) = lu(k,1818) - lu(k,992) * lu(k,1805) - lu(k,1819) = lu(k,1819) - lu(k,993) * lu(k,1805) - lu(k,1820) = lu(k,1820) - lu(k,994) * lu(k,1805) - lu(k,1821) = lu(k,1821) - lu(k,995) * lu(k,1805) - lu(k,1822) = lu(k,1822) - lu(k,996) * lu(k,1805) - lu(k,1823) = lu(k,1823) - lu(k,997) * lu(k,1805) - lu(k,1824) = lu(k,1824) - lu(k,998) * lu(k,1805) - lu(k,1825) = lu(k,1825) - lu(k,999) * lu(k,1805) - end do + real(r8), intent(inout) :: lu(:) + lu(905) = 1._r8 / lu(905) + lu(906) = lu(906) * lu(905) + lu(907) = lu(907) * lu(905) + lu(908) = lu(908) * lu(905) + lu(909) = lu(909) * lu(905) + lu(910) = lu(910) * lu(905) + lu(911) = lu(911) * lu(905) + lu(912) = lu(912) * lu(905) + lu(913) = lu(913) * lu(905) + lu(914) = lu(914) * lu(905) + lu(915) = lu(915) * lu(905) + lu(916) = lu(916) * lu(905) + lu(917) = lu(917) * lu(905) + lu(918) = lu(918) * lu(905) + lu(919) = lu(919) * lu(905) + lu(920) = lu(920) * lu(905) + lu(921) = lu(921) * lu(905) + lu(922) = lu(922) * lu(905) + lu(923) = lu(923) * lu(905) + lu(924) = lu(924) * lu(905) + lu(925) = lu(925) * lu(905) + lu(941) = lu(941) - lu(906) * lu(940) + lu(942) = lu(942) - lu(907) * lu(940) + lu(943) = lu(943) - lu(908) * lu(940) + lu(944) = lu(944) - lu(909) * lu(940) + lu(945) = lu(945) - lu(910) * lu(940) + lu(946) = lu(946) - lu(911) * lu(940) + lu(947) = lu(947) - lu(912) * lu(940) + lu(948) = lu(948) - lu(913) * lu(940) + lu(949) = lu(949) - lu(914) * lu(940) + lu(950) = lu(950) - lu(915) * lu(940) + lu(951) = lu(951) - lu(916) * lu(940) + lu(952) = lu(952) - lu(917) * lu(940) + lu(953) = lu(953) - lu(918) * lu(940) + lu(954) = lu(954) - lu(919) * lu(940) + lu(955) = lu(955) - lu(920) * lu(940) + lu(956) = lu(956) - lu(921) * lu(940) + lu(957) = lu(957) - lu(922) * lu(940) + lu(958) = lu(958) - lu(923) * lu(940) + lu(959) = lu(959) - lu(924) * lu(940) + lu(960) = lu(960) - lu(925) * lu(940) + lu(982) = lu(982) - lu(906) * lu(981) + lu(983) = lu(983) - lu(907) * lu(981) + lu(984) = lu(984) - lu(908) * lu(981) + lu(985) = lu(985) - lu(909) * lu(981) + lu(986) = lu(986) - lu(910) * lu(981) + lu(987) = lu(987) - lu(911) * lu(981) + lu(988) = lu(988) - lu(912) * lu(981) + lu(989) = lu(989) - lu(913) * lu(981) + lu(990) = lu(990) - lu(914) * lu(981) + lu(991) = lu(991) - lu(915) * lu(981) + lu(992) = lu(992) - lu(916) * lu(981) + lu(993) = lu(993) - lu(917) * lu(981) + lu(994) = lu(994) - lu(918) * lu(981) + lu(995) = lu(995) - lu(919) * lu(981) + lu(996) = lu(996) - lu(920) * lu(981) + lu(997) = lu(997) - lu(921) * lu(981) + lu(998) = lu(998) - lu(922) * lu(981) + lu(999) = lu(999) - lu(923) * lu(981) + lu(1000) = lu(1000) - lu(924) * lu(981) + lu(1001) = lu(1001) - lu(925) * lu(981) + lu(1024) = lu(1024) - lu(906) * lu(1023) + lu(1025) = lu(1025) - lu(907) * lu(1023) + lu(1026) = lu(1026) - lu(908) * lu(1023) + lu(1027) = lu(1027) - lu(909) * lu(1023) + lu(1028) = lu(1028) - lu(910) * lu(1023) + lu(1029) = lu(1029) - lu(911) * lu(1023) + lu(1030) = lu(1030) - lu(912) * lu(1023) + lu(1031) = lu(1031) - lu(913) * lu(1023) + lu(1032) = lu(1032) - lu(914) * lu(1023) + lu(1033) = lu(1033) - lu(915) * lu(1023) + lu(1034) = lu(1034) - lu(916) * lu(1023) + lu(1035) = lu(1035) - lu(917) * lu(1023) + lu(1036) = lu(1036) - lu(918) * lu(1023) + lu(1037) = lu(1037) - lu(919) * lu(1023) + lu(1038) = lu(1038) - lu(920) * lu(1023) + lu(1039) = lu(1039) - lu(921) * lu(1023) + lu(1040) = lu(1040) - lu(922) * lu(1023) + lu(1041) = lu(1041) - lu(923) * lu(1023) + lu(1042) = lu(1042) - lu(924) * lu(1023) + lu(1043) = lu(1043) - lu(925) * lu(1023) + lu(1068) = lu(1068) - lu(906) * lu(1067) + lu(1069) = lu(1069) - lu(907) * lu(1067) + lu(1070) = lu(1070) - lu(908) * lu(1067) + lu(1071) = lu(1071) - lu(909) * lu(1067) + lu(1072) = lu(1072) - lu(910) * lu(1067) + lu(1073) = lu(1073) - lu(911) * lu(1067) + lu(1074) = lu(1074) - lu(912) * lu(1067) + lu(1075) = lu(1075) - lu(913) * lu(1067) + lu(1076) = lu(1076) - lu(914) * lu(1067) + lu(1077) = lu(1077) - lu(915) * lu(1067) + lu(1078) = lu(1078) - lu(916) * lu(1067) + lu(1079) = lu(1079) - lu(917) * lu(1067) + lu(1080) = lu(1080) - lu(918) * lu(1067) + lu(1081) = lu(1081) - lu(919) * lu(1067) + lu(1082) = lu(1082) - lu(920) * lu(1067) + lu(1083) = lu(1083) - lu(921) * lu(1067) + lu(1084) = lu(1084) - lu(922) * lu(1067) + lu(1085) = lu(1085) - lu(923) * lu(1067) + lu(1086) = lu(1086) - lu(924) * lu(1067) + lu(1087) = lu(1087) - lu(925) * lu(1067) + lu(1110) = lu(1110) - lu(906) * lu(1109) + lu(1111) = lu(1111) - lu(907) * lu(1109) + lu(1112) = lu(1112) - lu(908) * lu(1109) + lu(1113) = lu(1113) - lu(909) * lu(1109) + lu(1114) = lu(1114) - lu(910) * lu(1109) + lu(1115) = lu(1115) - lu(911) * lu(1109) + lu(1116) = lu(1116) - lu(912) * lu(1109) + lu(1117) = lu(1117) - lu(913) * lu(1109) + lu(1118) = lu(1118) - lu(914) * lu(1109) + lu(1119) = lu(1119) - lu(915) * lu(1109) + lu(1120) = lu(1120) - lu(916) * lu(1109) + lu(1121) = lu(1121) - lu(917) * lu(1109) + lu(1122) = lu(1122) - lu(918) * lu(1109) + lu(1123) = lu(1123) - lu(919) * lu(1109) + lu(1124) = lu(1124) - lu(920) * lu(1109) + lu(1125) = lu(1125) - lu(921) * lu(1109) + lu(1126) = lu(1126) - lu(922) * lu(1109) + lu(1127) = lu(1127) - lu(923) * lu(1109) + lu(1128) = lu(1128) - lu(924) * lu(1109) + lu(1129) = lu(1129) - lu(925) * lu(1109) + lu(1153) = lu(1153) - lu(906) * lu(1152) + lu(1154) = lu(1154) - lu(907) * lu(1152) + lu(1155) = lu(1155) - lu(908) * lu(1152) + lu(1156) = lu(1156) - lu(909) * lu(1152) + lu(1157) = lu(1157) - lu(910) * lu(1152) + lu(1158) = lu(1158) - lu(911) * lu(1152) + lu(1159) = lu(1159) - lu(912) * lu(1152) + lu(1160) = lu(1160) - lu(913) * lu(1152) + lu(1161) = lu(1161) - lu(914) * lu(1152) + lu(1162) = lu(1162) - lu(915) * lu(1152) + lu(1163) = lu(1163) - lu(916) * lu(1152) + lu(1164) = lu(1164) - lu(917) * lu(1152) + lu(1165) = lu(1165) - lu(918) * lu(1152) + lu(1166) = lu(1166) - lu(919) * lu(1152) + lu(1167) = lu(1167) - lu(920) * lu(1152) + lu(1168) = lu(1168) - lu(921) * lu(1152) + lu(1169) = lu(1169) - lu(922) * lu(1152) + lu(1170) = lu(1170) - lu(923) * lu(1152) + lu(1171) = lu(1171) - lu(924) * lu(1152) + lu(1172) = lu(1172) - lu(925) * lu(1152) + lu(1195) = lu(1195) - lu(906) * lu(1194) + lu(1196) = lu(1196) - lu(907) * lu(1194) + lu(1197) = lu(1197) - lu(908) * lu(1194) + lu(1198) = lu(1198) - lu(909) * lu(1194) + lu(1199) = lu(1199) - lu(910) * lu(1194) + lu(1200) = lu(1200) - lu(911) * lu(1194) + lu(1201) = lu(1201) - lu(912) * lu(1194) + lu(1202) = lu(1202) - lu(913) * lu(1194) + lu(1203) = lu(1203) - lu(914) * lu(1194) + lu(1204) = lu(1204) - lu(915) * lu(1194) + lu(1205) = lu(1205) - lu(916) * lu(1194) + lu(1206) = lu(1206) - lu(917) * lu(1194) + lu(1207) = lu(1207) - lu(918) * lu(1194) + lu(1208) = lu(1208) - lu(919) * lu(1194) + lu(1209) = lu(1209) - lu(920) * lu(1194) + lu(1210) = lu(1210) - lu(921) * lu(1194) + lu(1211) = lu(1211) - lu(922) * lu(1194) + lu(1212) = lu(1212) - lu(923) * lu(1194) + lu(1213) = lu(1213) - lu(924) * lu(1194) + lu(1214) = lu(1214) - lu(925) * lu(1194) + lu(1230) = lu(1230) - lu(906) * lu(1229) + lu(1231) = lu(1231) - lu(907) * lu(1229) + lu(1232) = lu(1232) - lu(908) * lu(1229) + lu(1233) = lu(1233) - lu(909) * lu(1229) + lu(1234) = lu(1234) - lu(910) * lu(1229) + lu(1235) = lu(1235) - lu(911) * lu(1229) + lu(1236) = lu(1236) - lu(912) * lu(1229) + lu(1237) = lu(1237) - lu(913) * lu(1229) + lu(1238) = lu(1238) - lu(914) * lu(1229) + lu(1239) = lu(1239) - lu(915) * lu(1229) + lu(1240) = lu(1240) - lu(916) * lu(1229) + lu(1241) = lu(1241) - lu(917) * lu(1229) + lu(1242) = lu(1242) - lu(918) * lu(1229) + lu(1243) = lu(1243) - lu(919) * lu(1229) + lu(1244) = lu(1244) - lu(920) * lu(1229) + lu(1245) = lu(1245) - lu(921) * lu(1229) + lu(1246) = lu(1246) - lu(922) * lu(1229) + lu(1247) = lu(1247) - lu(923) * lu(1229) + lu(1248) = lu(1248) - lu(924) * lu(1229) + lu(1249) = lu(1249) - lu(925) * lu(1229) + lu(1274) = lu(1274) - lu(906) * lu(1273) + lu(1275) = lu(1275) - lu(907) * lu(1273) + lu(1276) = lu(1276) - lu(908) * lu(1273) + lu(1277) = lu(1277) - lu(909) * lu(1273) + lu(1278) = lu(1278) - lu(910) * lu(1273) + lu(1279) = lu(1279) - lu(911) * lu(1273) + lu(1280) = lu(1280) - lu(912) * lu(1273) + lu(1281) = lu(1281) - lu(913) * lu(1273) + lu(1282) = lu(1282) - lu(914) * lu(1273) + lu(1283) = lu(1283) - lu(915) * lu(1273) + lu(1284) = lu(1284) - lu(916) * lu(1273) + lu(1285) = lu(1285) - lu(917) * lu(1273) + lu(1286) = lu(1286) - lu(918) * lu(1273) + lu(1287) = lu(1287) - lu(919) * lu(1273) + lu(1288) = lu(1288) - lu(920) * lu(1273) + lu(1289) = lu(1289) - lu(921) * lu(1273) + lu(1290) = lu(1290) - lu(922) * lu(1273) + lu(1291) = lu(1291) - lu(923) * lu(1273) + lu(1292) = lu(1292) - lu(924) * lu(1273) + lu(1293) = lu(1293) - lu(925) * lu(1273) + lu(1315) = lu(1315) - lu(906) * lu(1314) + lu(1316) = lu(1316) - lu(907) * lu(1314) + lu(1317) = lu(1317) - lu(908) * lu(1314) + lu(1318) = lu(1318) - lu(909) * lu(1314) + lu(1319) = lu(1319) - lu(910) * lu(1314) + lu(1320) = lu(1320) - lu(911) * lu(1314) + lu(1321) = lu(1321) - lu(912) * lu(1314) + lu(1322) = lu(1322) - lu(913) * lu(1314) + lu(1323) = lu(1323) - lu(914) * lu(1314) + lu(1324) = lu(1324) - lu(915) * lu(1314) + lu(1325) = lu(1325) - lu(916) * lu(1314) + lu(1326) = lu(1326) - lu(917) * lu(1314) + lu(1327) = lu(1327) - lu(918) * lu(1314) + lu(1328) = lu(1328) - lu(919) * lu(1314) + lu(1329) = lu(1329) - lu(920) * lu(1314) + lu(1330) = lu(1330) - lu(921) * lu(1314) + lu(1331) = lu(1331) - lu(922) * lu(1314) + lu(1332) = lu(1332) - lu(923) * lu(1314) + lu(1333) = lu(1333) - lu(924) * lu(1314) + lu(1334) = lu(1334) - lu(925) * lu(1314) + lu(1357) = lu(1357) - lu(906) * lu(1356) + lu(1358) = lu(1358) - lu(907) * lu(1356) + lu(1359) = lu(1359) - lu(908) * lu(1356) + lu(1360) = lu(1360) - lu(909) * lu(1356) + lu(1361) = lu(1361) - lu(910) * lu(1356) + lu(1362) = lu(1362) - lu(911) * lu(1356) + lu(1363) = lu(1363) - lu(912) * lu(1356) + lu(1364) = lu(1364) - lu(913) * lu(1356) + lu(1365) = lu(1365) - lu(914) * lu(1356) + lu(1366) = lu(1366) - lu(915) * lu(1356) + lu(1367) = lu(1367) - lu(916) * lu(1356) + lu(1368) = lu(1368) - lu(917) * lu(1356) + lu(1369) = lu(1369) - lu(918) * lu(1356) + lu(1370) = lu(1370) - lu(919) * lu(1356) + lu(1371) = lu(1371) - lu(920) * lu(1356) + lu(1372) = lu(1372) - lu(921) * lu(1356) + lu(1373) = lu(1373) - lu(922) * lu(1356) + lu(1374) = lu(1374) - lu(923) * lu(1356) + lu(1375) = lu(1375) - lu(924) * lu(1356) + lu(1376) = lu(1376) - lu(925) * lu(1356) + lu(1399) = lu(1399) - lu(906) * lu(1398) + lu(1400) = lu(1400) - lu(907) * lu(1398) + lu(1401) = lu(1401) - lu(908) * lu(1398) + lu(1402) = lu(1402) - lu(909) * lu(1398) + lu(1403) = lu(1403) - lu(910) * lu(1398) + lu(1404) = lu(1404) - lu(911) * lu(1398) + lu(1405) = lu(1405) - lu(912) * lu(1398) + lu(1406) = lu(1406) - lu(913) * lu(1398) + lu(1407) = lu(1407) - lu(914) * lu(1398) + lu(1408) = lu(1408) - lu(915) * lu(1398) + lu(1409) = lu(1409) - lu(916) * lu(1398) + lu(1410) = lu(1410) - lu(917) * lu(1398) + lu(1411) = lu(1411) - lu(918) * lu(1398) + lu(1412) = lu(1412) - lu(919) * lu(1398) + lu(1413) = lu(1413) - lu(920) * lu(1398) + lu(1414) = lu(1414) - lu(921) * lu(1398) + lu(1415) = lu(1415) - lu(922) * lu(1398) + lu(1416) = lu(1416) - lu(923) * lu(1398) + lu(1417) = lu(1417) - lu(924) * lu(1398) + lu(1418) = lu(1418) - lu(925) * lu(1398) + lu(1441) = lu(1441) - lu(906) * lu(1440) + lu(1442) = lu(1442) - lu(907) * lu(1440) + lu(1443) = lu(1443) - lu(908) * lu(1440) + lu(1444) = lu(1444) - lu(909) * lu(1440) + lu(1445) = lu(1445) - lu(910) * lu(1440) + lu(1446) = lu(1446) - lu(911) * lu(1440) + lu(1447) = lu(1447) - lu(912) * lu(1440) + lu(1448) = lu(1448) - lu(913) * lu(1440) + lu(1449) = lu(1449) - lu(914) * lu(1440) + lu(1450) = lu(1450) - lu(915) * lu(1440) + lu(1451) = lu(1451) - lu(916) * lu(1440) + lu(1452) = lu(1452) - lu(917) * lu(1440) + lu(1453) = lu(1453) - lu(918) * lu(1440) + lu(1454) = lu(1454) - lu(919) * lu(1440) + lu(1455) = lu(1455) - lu(920) * lu(1440) + lu(1456) = lu(1456) - lu(921) * lu(1440) + lu(1457) = lu(1457) - lu(922) * lu(1440) + lu(1458) = lu(1458) - lu(923) * lu(1440) + lu(1459) = lu(1459) - lu(924) * lu(1440) + lu(1460) = lu(1460) - lu(925) * lu(1440) + lu(1496) = lu(1496) - lu(906) * lu(1495) + lu(1497) = lu(1497) - lu(907) * lu(1495) + lu(1498) = lu(1498) - lu(908) * lu(1495) + lu(1499) = lu(1499) - lu(909) * lu(1495) + lu(1500) = lu(1500) - lu(910) * lu(1495) + lu(1501) = lu(1501) - lu(911) * lu(1495) + lu(1502) = lu(1502) - lu(912) * lu(1495) + lu(1503) = lu(1503) - lu(913) * lu(1495) + lu(1504) = lu(1504) - lu(914) * lu(1495) + lu(1505) = lu(1505) - lu(915) * lu(1495) + lu(1506) = lu(1506) - lu(916) * lu(1495) + lu(1507) = lu(1507) - lu(917) * lu(1495) + lu(1508) = lu(1508) - lu(918) * lu(1495) + lu(1509) = lu(1509) - lu(919) * lu(1495) + lu(1510) = lu(1510) - lu(920) * lu(1495) + lu(1511) = lu(1511) - lu(921) * lu(1495) + lu(1512) = lu(1512) - lu(922) * lu(1495) + lu(1513) = lu(1513) - lu(923) * lu(1495) + lu(1514) = lu(1514) - lu(924) * lu(1495) + lu(1515) = lu(1515) - lu(925) * lu(1495) + lu(1528) = lu(1528) - lu(906) * lu(1527) + lu(1529) = lu(1529) - lu(907) * lu(1527) + lu(1530) = lu(1530) - lu(908) * lu(1527) + lu(1531) = lu(1531) - lu(909) * lu(1527) + lu(1532) = lu(1532) - lu(910) * lu(1527) + lu(1533) = lu(1533) - lu(911) * lu(1527) + lu(1534) = lu(1534) - lu(912) * lu(1527) + lu(1535) = lu(1535) - lu(913) * lu(1527) + lu(1536) = lu(1536) - lu(914) * lu(1527) + lu(1537) = lu(1537) - lu(915) * lu(1527) + lu(1538) = lu(1538) - lu(916) * lu(1527) + lu(1539) = lu(1539) - lu(917) * lu(1527) + lu(1540) = lu(1540) - lu(918) * lu(1527) + lu(1541) = lu(1541) - lu(919) * lu(1527) + lu(1542) = lu(1542) - lu(920) * lu(1527) + lu(1543) = lu(1543) - lu(921) * lu(1527) + lu(1544) = lu(1544) - lu(922) * lu(1527) + lu(1545) = lu(1545) - lu(923) * lu(1527) + lu(1546) = lu(1546) - lu(924) * lu(1527) + lu(1547) = lu(1547) - lu(925) * lu(1527) + lu(1563) = lu(1563) - lu(906) * lu(1562) + lu(1564) = lu(1564) - lu(907) * lu(1562) + lu(1565) = lu(1565) - lu(908) * lu(1562) + lu(1566) = lu(1566) - lu(909) * lu(1562) + lu(1567) = lu(1567) - lu(910) * lu(1562) + lu(1568) = lu(1568) - lu(911) * lu(1562) + lu(1569) = lu(1569) - lu(912) * lu(1562) + lu(1570) = lu(1570) - lu(913) * lu(1562) + lu(1571) = lu(1571) - lu(914) * lu(1562) + lu(1572) = lu(1572) - lu(915) * lu(1562) + lu(1573) = lu(1573) - lu(916) * lu(1562) + lu(1574) = lu(1574) - lu(917) * lu(1562) + lu(1575) = lu(1575) - lu(918) * lu(1562) + lu(1576) = lu(1576) - lu(919) * lu(1562) + lu(1577) = lu(1577) - lu(920) * lu(1562) + lu(1578) = lu(1578) - lu(921) * lu(1562) + lu(1579) = lu(1579) - lu(922) * lu(1562) + lu(1580) = lu(1580) - lu(923) * lu(1562) + lu(1581) = lu(1581) - lu(924) * lu(1562) + lu(1582) = lu(1582) - lu(925) * lu(1562) + lu(1601) = lu(1601) - lu(906) * lu(1600) + lu(1602) = lu(1602) - lu(907) * lu(1600) + lu(1603) = lu(1603) - lu(908) * lu(1600) + lu(1604) = lu(1604) - lu(909) * lu(1600) + lu(1605) = lu(1605) - lu(910) * lu(1600) + lu(1606) = lu(1606) - lu(911) * lu(1600) + lu(1607) = lu(1607) - lu(912) * lu(1600) + lu(1608) = lu(1608) - lu(913) * lu(1600) + lu(1609) = lu(1609) - lu(914) * lu(1600) + lu(1610) = lu(1610) - lu(915) * lu(1600) + lu(1611) = lu(1611) - lu(916) * lu(1600) + lu(1612) = lu(1612) - lu(917) * lu(1600) + lu(1613) = lu(1613) - lu(918) * lu(1600) + lu(1614) = lu(1614) - lu(919) * lu(1600) + lu(1615) = lu(1615) - lu(920) * lu(1600) + lu(1616) = lu(1616) - lu(921) * lu(1600) + lu(1617) = lu(1617) - lu(922) * lu(1600) + lu(1618) = lu(1618) - lu(923) * lu(1600) + lu(1619) = lu(1619) - lu(924) * lu(1600) + lu(1620) = lu(1620) - lu(925) * lu(1600) + lu(1640) = lu(1640) - lu(906) * lu(1639) + lu(1641) = lu(1641) - lu(907) * lu(1639) + lu(1642) = lu(1642) - lu(908) * lu(1639) + lu(1643) = lu(1643) - lu(909) * lu(1639) + lu(1644) = lu(1644) - lu(910) * lu(1639) + lu(1645) = lu(1645) - lu(911) * lu(1639) + lu(1646) = lu(1646) - lu(912) * lu(1639) + lu(1647) = lu(1647) - lu(913) * lu(1639) + lu(1648) = lu(1648) - lu(914) * lu(1639) + lu(1649) = lu(1649) - lu(915) * lu(1639) + lu(1650) = lu(1650) - lu(916) * lu(1639) + lu(1651) = lu(1651) - lu(917) * lu(1639) + lu(1652) = lu(1652) - lu(918) * lu(1639) + lu(1653) = lu(1653) - lu(919) * lu(1639) + lu(1654) = lu(1654) - lu(920) * lu(1639) + lu(1655) = lu(1655) - lu(921) * lu(1639) + lu(1656) = lu(1656) - lu(922) * lu(1639) + lu(1657) = lu(1657) - lu(923) * lu(1639) + lu(1658) = lu(1658) - lu(924) * lu(1639) + lu(1659) = lu(1659) - lu(925) * lu(1639) + lu(1674) = lu(1674) - lu(906) * lu(1673) + lu(1675) = lu(1675) - lu(907) * lu(1673) + lu(1676) = lu(1676) - lu(908) * lu(1673) + lu(1677) = lu(1677) - lu(909) * lu(1673) + lu(1678) = lu(1678) - lu(910) * lu(1673) + lu(1679) = lu(1679) - lu(911) * lu(1673) + lu(1680) = lu(1680) - lu(912) * lu(1673) + lu(1681) = lu(1681) - lu(913) * lu(1673) + lu(1682) = lu(1682) - lu(914) * lu(1673) + lu(1683) = lu(1683) - lu(915) * lu(1673) + lu(1684) = lu(1684) - lu(916) * lu(1673) + lu(1685) = lu(1685) - lu(917) * lu(1673) + lu(1686) = lu(1686) - lu(918) * lu(1673) + lu(1687) = lu(1687) - lu(919) * lu(1673) + lu(1688) = lu(1688) - lu(920) * lu(1673) + lu(1689) = lu(1689) - lu(921) * lu(1673) + lu(1690) = lu(1690) - lu(922) * lu(1673) + lu(1691) = lu(1691) - lu(923) * lu(1673) + lu(1692) = lu(1692) - lu(924) * lu(1673) + lu(1693) = lu(1693) - lu(925) * lu(1673) + lu(1726) = lu(1726) - lu(906) * lu(1725) + lu(1727) = lu(1727) - lu(907) * lu(1725) + lu(1728) = lu(1728) - lu(908) * lu(1725) + lu(1729) = lu(1729) - lu(909) * lu(1725) + lu(1730) = lu(1730) - lu(910) * lu(1725) + lu(1731) = lu(1731) - lu(911) * lu(1725) + lu(1732) = lu(1732) - lu(912) * lu(1725) + lu(1733) = lu(1733) - lu(913) * lu(1725) + lu(1734) = lu(1734) - lu(914) * lu(1725) + lu(1735) = lu(1735) - lu(915) * lu(1725) + lu(1736) = lu(1736) - lu(916) * lu(1725) + lu(1737) = lu(1737) - lu(917) * lu(1725) + lu(1738) = lu(1738) - lu(918) * lu(1725) + lu(1739) = lu(1739) - lu(919) * lu(1725) + lu(1740) = lu(1740) - lu(920) * lu(1725) + lu(1741) = lu(1741) - lu(921) * lu(1725) + lu(1742) = lu(1742) - lu(922) * lu(1725) + lu(1743) = lu(1743) - lu(923) * lu(1725) + lu(1744) = lu(1744) - lu(924) * lu(1725) + lu(1745) = lu(1745) - lu(925) * lu(1725) + lu(941) = 1._r8 / lu(941) + lu(942) = lu(942) * lu(941) + lu(943) = lu(943) * lu(941) + lu(944) = lu(944) * lu(941) + lu(945) = lu(945) * lu(941) + lu(946) = lu(946) * lu(941) + lu(947) = lu(947) * lu(941) + lu(948) = lu(948) * lu(941) + lu(949) = lu(949) * lu(941) + lu(950) = lu(950) * lu(941) + lu(951) = lu(951) * lu(941) + lu(952) = lu(952) * lu(941) + lu(953) = lu(953) * lu(941) + lu(954) = lu(954) * lu(941) + lu(955) = lu(955) * lu(941) + lu(956) = lu(956) * lu(941) + lu(957) = lu(957) * lu(941) + lu(958) = lu(958) * lu(941) + lu(959) = lu(959) * lu(941) + lu(960) = lu(960) * lu(941) + lu(983) = lu(983) - lu(942) * lu(982) + lu(984) = lu(984) - lu(943) * lu(982) + lu(985) = lu(985) - lu(944) * lu(982) + lu(986) = lu(986) - lu(945) * lu(982) + lu(987) = lu(987) - lu(946) * lu(982) + lu(988) = lu(988) - lu(947) * lu(982) + lu(989) = lu(989) - lu(948) * lu(982) + lu(990) = lu(990) - lu(949) * lu(982) + lu(991) = lu(991) - lu(950) * lu(982) + lu(992) = lu(992) - lu(951) * lu(982) + lu(993) = lu(993) - lu(952) * lu(982) + lu(994) = lu(994) - lu(953) * lu(982) + lu(995) = lu(995) - lu(954) * lu(982) + lu(996) = lu(996) - lu(955) * lu(982) + lu(997) = lu(997) - lu(956) * lu(982) + lu(998) = lu(998) - lu(957) * lu(982) + lu(999) = lu(999) - lu(958) * lu(982) + lu(1000) = lu(1000) - lu(959) * lu(982) + lu(1001) = lu(1001) - lu(960) * lu(982) + lu(1025) = lu(1025) - lu(942) * lu(1024) + lu(1026) = lu(1026) - lu(943) * lu(1024) + lu(1027) = lu(1027) - lu(944) * lu(1024) + lu(1028) = lu(1028) - lu(945) * lu(1024) + lu(1029) = lu(1029) - lu(946) * lu(1024) + lu(1030) = lu(1030) - lu(947) * lu(1024) + lu(1031) = lu(1031) - lu(948) * lu(1024) + lu(1032) = lu(1032) - lu(949) * lu(1024) + lu(1033) = lu(1033) - lu(950) * lu(1024) + lu(1034) = lu(1034) - lu(951) * lu(1024) + lu(1035) = lu(1035) - lu(952) * lu(1024) + lu(1036) = lu(1036) - lu(953) * lu(1024) + lu(1037) = lu(1037) - lu(954) * lu(1024) + lu(1038) = lu(1038) - lu(955) * lu(1024) + lu(1039) = lu(1039) - lu(956) * lu(1024) + lu(1040) = lu(1040) - lu(957) * lu(1024) + lu(1041) = lu(1041) - lu(958) * lu(1024) + lu(1042) = lu(1042) - lu(959) * lu(1024) + lu(1043) = lu(1043) - lu(960) * lu(1024) + lu(1069) = lu(1069) - lu(942) * lu(1068) + lu(1070) = lu(1070) - lu(943) * lu(1068) + lu(1071) = lu(1071) - lu(944) * lu(1068) + lu(1072) = lu(1072) - lu(945) * lu(1068) + lu(1073) = lu(1073) - lu(946) * lu(1068) + lu(1074) = lu(1074) - lu(947) * lu(1068) + lu(1075) = lu(1075) - lu(948) * lu(1068) + lu(1076) = lu(1076) - lu(949) * lu(1068) + lu(1077) = lu(1077) - lu(950) * lu(1068) + lu(1078) = lu(1078) - lu(951) * lu(1068) + lu(1079) = lu(1079) - lu(952) * lu(1068) + lu(1080) = lu(1080) - lu(953) * lu(1068) + lu(1081) = lu(1081) - lu(954) * lu(1068) + lu(1082) = lu(1082) - lu(955) * lu(1068) + lu(1083) = lu(1083) - lu(956) * lu(1068) + lu(1084) = lu(1084) - lu(957) * lu(1068) + lu(1085) = lu(1085) - lu(958) * lu(1068) + lu(1086) = lu(1086) - lu(959) * lu(1068) + lu(1087) = lu(1087) - lu(960) * lu(1068) + lu(1111) = lu(1111) - lu(942) * lu(1110) + lu(1112) = lu(1112) - lu(943) * lu(1110) + lu(1113) = lu(1113) - lu(944) * lu(1110) + lu(1114) = lu(1114) - lu(945) * lu(1110) + lu(1115) = lu(1115) - lu(946) * lu(1110) + lu(1116) = lu(1116) - lu(947) * lu(1110) + lu(1117) = lu(1117) - lu(948) * lu(1110) + lu(1118) = lu(1118) - lu(949) * lu(1110) + lu(1119) = lu(1119) - lu(950) * lu(1110) + lu(1120) = lu(1120) - lu(951) * lu(1110) + lu(1121) = lu(1121) - lu(952) * lu(1110) + lu(1122) = lu(1122) - lu(953) * lu(1110) + lu(1123) = lu(1123) - lu(954) * lu(1110) + lu(1124) = lu(1124) - lu(955) * lu(1110) + lu(1125) = lu(1125) - lu(956) * lu(1110) + lu(1126) = lu(1126) - lu(957) * lu(1110) + lu(1127) = lu(1127) - lu(958) * lu(1110) + lu(1128) = lu(1128) - lu(959) * lu(1110) + lu(1129) = lu(1129) - lu(960) * lu(1110) + lu(1154) = lu(1154) - lu(942) * lu(1153) + lu(1155) = lu(1155) - lu(943) * lu(1153) + lu(1156) = lu(1156) - lu(944) * lu(1153) + lu(1157) = lu(1157) - lu(945) * lu(1153) + lu(1158) = lu(1158) - lu(946) * lu(1153) + lu(1159) = lu(1159) - lu(947) * lu(1153) + lu(1160) = lu(1160) - lu(948) * lu(1153) + lu(1161) = lu(1161) - lu(949) * lu(1153) + lu(1162) = lu(1162) - lu(950) * lu(1153) + lu(1163) = lu(1163) - lu(951) * lu(1153) + lu(1164) = lu(1164) - lu(952) * lu(1153) + lu(1165) = lu(1165) - lu(953) * lu(1153) + lu(1166) = lu(1166) - lu(954) * lu(1153) + lu(1167) = lu(1167) - lu(955) * lu(1153) + lu(1168) = lu(1168) - lu(956) * lu(1153) + lu(1169) = lu(1169) - lu(957) * lu(1153) + lu(1170) = lu(1170) - lu(958) * lu(1153) + lu(1171) = lu(1171) - lu(959) * lu(1153) + lu(1172) = lu(1172) - lu(960) * lu(1153) + lu(1196) = lu(1196) - lu(942) * lu(1195) + lu(1197) = lu(1197) - lu(943) * lu(1195) + lu(1198) = lu(1198) - lu(944) * lu(1195) + lu(1199) = lu(1199) - lu(945) * lu(1195) + lu(1200) = lu(1200) - lu(946) * lu(1195) + lu(1201) = lu(1201) - lu(947) * lu(1195) + lu(1202) = lu(1202) - lu(948) * lu(1195) + lu(1203) = lu(1203) - lu(949) * lu(1195) + lu(1204) = lu(1204) - lu(950) * lu(1195) + lu(1205) = lu(1205) - lu(951) * lu(1195) + lu(1206) = lu(1206) - lu(952) * lu(1195) + lu(1207) = lu(1207) - lu(953) * lu(1195) + lu(1208) = lu(1208) - lu(954) * lu(1195) + lu(1209) = lu(1209) - lu(955) * lu(1195) + lu(1210) = lu(1210) - lu(956) * lu(1195) + lu(1211) = lu(1211) - lu(957) * lu(1195) + lu(1212) = lu(1212) - lu(958) * lu(1195) + lu(1213) = lu(1213) - lu(959) * lu(1195) + lu(1214) = lu(1214) - lu(960) * lu(1195) + lu(1231) = lu(1231) - lu(942) * lu(1230) + lu(1232) = lu(1232) - lu(943) * lu(1230) + lu(1233) = lu(1233) - lu(944) * lu(1230) + lu(1234) = lu(1234) - lu(945) * lu(1230) + lu(1235) = lu(1235) - lu(946) * lu(1230) + lu(1236) = lu(1236) - lu(947) * lu(1230) + lu(1237) = lu(1237) - lu(948) * lu(1230) + lu(1238) = lu(1238) - lu(949) * lu(1230) + lu(1239) = lu(1239) - lu(950) * lu(1230) + lu(1240) = lu(1240) - lu(951) * lu(1230) + lu(1241) = lu(1241) - lu(952) * lu(1230) + lu(1242) = lu(1242) - lu(953) * lu(1230) + lu(1243) = lu(1243) - lu(954) * lu(1230) + lu(1244) = lu(1244) - lu(955) * lu(1230) + lu(1245) = lu(1245) - lu(956) * lu(1230) + lu(1246) = lu(1246) - lu(957) * lu(1230) + lu(1247) = lu(1247) - lu(958) * lu(1230) + lu(1248) = lu(1248) - lu(959) * lu(1230) + lu(1249) = lu(1249) - lu(960) * lu(1230) + lu(1275) = lu(1275) - lu(942) * lu(1274) + lu(1276) = lu(1276) - lu(943) * lu(1274) + lu(1277) = lu(1277) - lu(944) * lu(1274) + lu(1278) = lu(1278) - lu(945) * lu(1274) + lu(1279) = lu(1279) - lu(946) * lu(1274) + lu(1280) = lu(1280) - lu(947) * lu(1274) + lu(1281) = lu(1281) - lu(948) * lu(1274) + lu(1282) = lu(1282) - lu(949) * lu(1274) + lu(1283) = lu(1283) - lu(950) * lu(1274) + lu(1284) = lu(1284) - lu(951) * lu(1274) + lu(1285) = lu(1285) - lu(952) * lu(1274) + lu(1286) = lu(1286) - lu(953) * lu(1274) + lu(1287) = lu(1287) - lu(954) * lu(1274) + lu(1288) = lu(1288) - lu(955) * lu(1274) + lu(1289) = lu(1289) - lu(956) * lu(1274) + lu(1290) = lu(1290) - lu(957) * lu(1274) + lu(1291) = lu(1291) - lu(958) * lu(1274) + lu(1292) = lu(1292) - lu(959) * lu(1274) + lu(1293) = lu(1293) - lu(960) * lu(1274) + lu(1316) = lu(1316) - lu(942) * lu(1315) + lu(1317) = lu(1317) - lu(943) * lu(1315) + lu(1318) = lu(1318) - lu(944) * lu(1315) + lu(1319) = lu(1319) - lu(945) * lu(1315) + lu(1320) = lu(1320) - lu(946) * lu(1315) + lu(1321) = lu(1321) - lu(947) * lu(1315) + lu(1322) = lu(1322) - lu(948) * lu(1315) + lu(1323) = lu(1323) - lu(949) * lu(1315) + lu(1324) = lu(1324) - lu(950) * lu(1315) + lu(1325) = lu(1325) - lu(951) * lu(1315) + lu(1326) = lu(1326) - lu(952) * lu(1315) + lu(1327) = lu(1327) - lu(953) * lu(1315) + lu(1328) = lu(1328) - lu(954) * lu(1315) + lu(1329) = lu(1329) - lu(955) * lu(1315) + lu(1330) = lu(1330) - lu(956) * lu(1315) + lu(1331) = lu(1331) - lu(957) * lu(1315) + lu(1332) = lu(1332) - lu(958) * lu(1315) + lu(1333) = lu(1333) - lu(959) * lu(1315) + lu(1334) = lu(1334) - lu(960) * lu(1315) + lu(1358) = lu(1358) - lu(942) * lu(1357) + lu(1359) = lu(1359) - lu(943) * lu(1357) + lu(1360) = lu(1360) - lu(944) * lu(1357) + lu(1361) = lu(1361) - lu(945) * lu(1357) + lu(1362) = lu(1362) - lu(946) * lu(1357) + lu(1363) = lu(1363) - lu(947) * lu(1357) + lu(1364) = lu(1364) - lu(948) * lu(1357) + lu(1365) = lu(1365) - lu(949) * lu(1357) + lu(1366) = lu(1366) - lu(950) * lu(1357) + lu(1367) = lu(1367) - lu(951) * lu(1357) + lu(1368) = lu(1368) - lu(952) * lu(1357) + lu(1369) = lu(1369) - lu(953) * lu(1357) + lu(1370) = lu(1370) - lu(954) * lu(1357) + lu(1371) = lu(1371) - lu(955) * lu(1357) + lu(1372) = lu(1372) - lu(956) * lu(1357) + lu(1373) = lu(1373) - lu(957) * lu(1357) + lu(1374) = lu(1374) - lu(958) * lu(1357) + lu(1375) = lu(1375) - lu(959) * lu(1357) + lu(1376) = lu(1376) - lu(960) * lu(1357) + lu(1400) = lu(1400) - lu(942) * lu(1399) + lu(1401) = lu(1401) - lu(943) * lu(1399) + lu(1402) = lu(1402) - lu(944) * lu(1399) + lu(1403) = lu(1403) - lu(945) * lu(1399) + lu(1404) = lu(1404) - lu(946) * lu(1399) + lu(1405) = lu(1405) - lu(947) * lu(1399) + lu(1406) = lu(1406) - lu(948) * lu(1399) + lu(1407) = lu(1407) - lu(949) * lu(1399) + lu(1408) = lu(1408) - lu(950) * lu(1399) + lu(1409) = lu(1409) - lu(951) * lu(1399) + lu(1410) = lu(1410) - lu(952) * lu(1399) + lu(1411) = lu(1411) - lu(953) * lu(1399) + lu(1412) = lu(1412) - lu(954) * lu(1399) + lu(1413) = lu(1413) - lu(955) * lu(1399) + lu(1414) = lu(1414) - lu(956) * lu(1399) + lu(1415) = lu(1415) - lu(957) * lu(1399) + lu(1416) = lu(1416) - lu(958) * lu(1399) + lu(1417) = lu(1417) - lu(959) * lu(1399) + lu(1418) = lu(1418) - lu(960) * lu(1399) + lu(1442) = lu(1442) - lu(942) * lu(1441) + lu(1443) = lu(1443) - lu(943) * lu(1441) + lu(1444) = lu(1444) - lu(944) * lu(1441) + lu(1445) = lu(1445) - lu(945) * lu(1441) + lu(1446) = lu(1446) - lu(946) * lu(1441) + lu(1447) = lu(1447) - lu(947) * lu(1441) + lu(1448) = lu(1448) - lu(948) * lu(1441) + lu(1449) = lu(1449) - lu(949) * lu(1441) + lu(1450) = lu(1450) - lu(950) * lu(1441) + lu(1451) = lu(1451) - lu(951) * lu(1441) + lu(1452) = lu(1452) - lu(952) * lu(1441) + lu(1453) = lu(1453) - lu(953) * lu(1441) + lu(1454) = lu(1454) - lu(954) * lu(1441) + lu(1455) = lu(1455) - lu(955) * lu(1441) + lu(1456) = lu(1456) - lu(956) * lu(1441) + lu(1457) = lu(1457) - lu(957) * lu(1441) + lu(1458) = lu(1458) - lu(958) * lu(1441) + lu(1459) = lu(1459) - lu(959) * lu(1441) + lu(1460) = lu(1460) - lu(960) * lu(1441) + lu(1497) = lu(1497) - lu(942) * lu(1496) + lu(1498) = lu(1498) - lu(943) * lu(1496) + lu(1499) = lu(1499) - lu(944) * lu(1496) + lu(1500) = lu(1500) - lu(945) * lu(1496) + lu(1501) = lu(1501) - lu(946) * lu(1496) + lu(1502) = lu(1502) - lu(947) * lu(1496) + lu(1503) = lu(1503) - lu(948) * lu(1496) + lu(1504) = lu(1504) - lu(949) * lu(1496) + lu(1505) = lu(1505) - lu(950) * lu(1496) + lu(1506) = lu(1506) - lu(951) * lu(1496) + lu(1507) = lu(1507) - lu(952) * lu(1496) + lu(1508) = lu(1508) - lu(953) * lu(1496) + lu(1509) = lu(1509) - lu(954) * lu(1496) + lu(1510) = lu(1510) - lu(955) * lu(1496) + lu(1511) = lu(1511) - lu(956) * lu(1496) + lu(1512) = lu(1512) - lu(957) * lu(1496) + lu(1513) = lu(1513) - lu(958) * lu(1496) + lu(1514) = lu(1514) - lu(959) * lu(1496) + lu(1515) = lu(1515) - lu(960) * lu(1496) + lu(1529) = lu(1529) - lu(942) * lu(1528) + lu(1530) = lu(1530) - lu(943) * lu(1528) + lu(1531) = lu(1531) - lu(944) * lu(1528) + lu(1532) = lu(1532) - lu(945) * lu(1528) + lu(1533) = lu(1533) - lu(946) * lu(1528) + lu(1534) = lu(1534) - lu(947) * lu(1528) + lu(1535) = lu(1535) - lu(948) * lu(1528) + lu(1536) = lu(1536) - lu(949) * lu(1528) + lu(1537) = lu(1537) - lu(950) * lu(1528) + lu(1538) = lu(1538) - lu(951) * lu(1528) + lu(1539) = lu(1539) - lu(952) * lu(1528) + lu(1540) = lu(1540) - lu(953) * lu(1528) + lu(1541) = lu(1541) - lu(954) * lu(1528) + lu(1542) = lu(1542) - lu(955) * lu(1528) + lu(1543) = lu(1543) - lu(956) * lu(1528) + lu(1544) = lu(1544) - lu(957) * lu(1528) + lu(1545) = lu(1545) - lu(958) * lu(1528) + lu(1546) = lu(1546) - lu(959) * lu(1528) + lu(1547) = lu(1547) - lu(960) * lu(1528) + lu(1564) = lu(1564) - lu(942) * lu(1563) + lu(1565) = lu(1565) - lu(943) * lu(1563) + lu(1566) = lu(1566) - lu(944) * lu(1563) + lu(1567) = lu(1567) - lu(945) * lu(1563) + lu(1568) = lu(1568) - lu(946) * lu(1563) + lu(1569) = lu(1569) - lu(947) * lu(1563) + lu(1570) = lu(1570) - lu(948) * lu(1563) + lu(1571) = lu(1571) - lu(949) * lu(1563) + lu(1572) = lu(1572) - lu(950) * lu(1563) + lu(1573) = lu(1573) - lu(951) * lu(1563) + lu(1574) = lu(1574) - lu(952) * lu(1563) + lu(1575) = lu(1575) - lu(953) * lu(1563) + lu(1576) = lu(1576) - lu(954) * lu(1563) + lu(1577) = lu(1577) - lu(955) * lu(1563) + lu(1578) = lu(1578) - lu(956) * lu(1563) + lu(1579) = lu(1579) - lu(957) * lu(1563) + lu(1580) = lu(1580) - lu(958) * lu(1563) + lu(1581) = lu(1581) - lu(959) * lu(1563) + lu(1582) = lu(1582) - lu(960) * lu(1563) + lu(1602) = lu(1602) - lu(942) * lu(1601) + lu(1603) = lu(1603) - lu(943) * lu(1601) + lu(1604) = lu(1604) - lu(944) * lu(1601) + lu(1605) = lu(1605) - lu(945) * lu(1601) + lu(1606) = lu(1606) - lu(946) * lu(1601) + lu(1607) = lu(1607) - lu(947) * lu(1601) + lu(1608) = lu(1608) - lu(948) * lu(1601) + lu(1609) = lu(1609) - lu(949) * lu(1601) + lu(1610) = lu(1610) - lu(950) * lu(1601) + lu(1611) = lu(1611) - lu(951) * lu(1601) + lu(1612) = lu(1612) - lu(952) * lu(1601) + lu(1613) = lu(1613) - lu(953) * lu(1601) + lu(1614) = lu(1614) - lu(954) * lu(1601) + lu(1615) = lu(1615) - lu(955) * lu(1601) + lu(1616) = lu(1616) - lu(956) * lu(1601) + lu(1617) = lu(1617) - lu(957) * lu(1601) + lu(1618) = lu(1618) - lu(958) * lu(1601) + lu(1619) = lu(1619) - lu(959) * lu(1601) + lu(1620) = lu(1620) - lu(960) * lu(1601) + lu(1641) = lu(1641) - lu(942) * lu(1640) + lu(1642) = lu(1642) - lu(943) * lu(1640) + lu(1643) = lu(1643) - lu(944) * lu(1640) + lu(1644) = lu(1644) - lu(945) * lu(1640) + lu(1645) = lu(1645) - lu(946) * lu(1640) + lu(1646) = lu(1646) - lu(947) * lu(1640) + lu(1647) = lu(1647) - lu(948) * lu(1640) + lu(1648) = lu(1648) - lu(949) * lu(1640) + lu(1649) = lu(1649) - lu(950) * lu(1640) + lu(1650) = lu(1650) - lu(951) * lu(1640) + lu(1651) = lu(1651) - lu(952) * lu(1640) + lu(1652) = lu(1652) - lu(953) * lu(1640) + lu(1653) = lu(1653) - lu(954) * lu(1640) + lu(1654) = lu(1654) - lu(955) * lu(1640) + lu(1655) = lu(1655) - lu(956) * lu(1640) + lu(1656) = lu(1656) - lu(957) * lu(1640) + lu(1657) = lu(1657) - lu(958) * lu(1640) + lu(1658) = lu(1658) - lu(959) * lu(1640) + lu(1659) = lu(1659) - lu(960) * lu(1640) + lu(1675) = lu(1675) - lu(942) * lu(1674) + lu(1676) = lu(1676) - lu(943) * lu(1674) + lu(1677) = lu(1677) - lu(944) * lu(1674) + lu(1678) = lu(1678) - lu(945) * lu(1674) + lu(1679) = lu(1679) - lu(946) * lu(1674) + lu(1680) = lu(1680) - lu(947) * lu(1674) + lu(1681) = lu(1681) - lu(948) * lu(1674) + lu(1682) = lu(1682) - lu(949) * lu(1674) + lu(1683) = lu(1683) - lu(950) * lu(1674) + lu(1684) = lu(1684) - lu(951) * lu(1674) + lu(1685) = lu(1685) - lu(952) * lu(1674) + lu(1686) = lu(1686) - lu(953) * lu(1674) + lu(1687) = lu(1687) - lu(954) * lu(1674) + lu(1688) = lu(1688) - lu(955) * lu(1674) + lu(1689) = lu(1689) - lu(956) * lu(1674) + lu(1690) = lu(1690) - lu(957) * lu(1674) + lu(1691) = lu(1691) - lu(958) * lu(1674) + lu(1692) = lu(1692) - lu(959) * lu(1674) + lu(1693) = lu(1693) - lu(960) * lu(1674) + lu(1727) = lu(1727) - lu(942) * lu(1726) + lu(1728) = lu(1728) - lu(943) * lu(1726) + lu(1729) = lu(1729) - lu(944) * lu(1726) + lu(1730) = lu(1730) - lu(945) * lu(1726) + lu(1731) = lu(1731) - lu(946) * lu(1726) + lu(1732) = lu(1732) - lu(947) * lu(1726) + lu(1733) = lu(1733) - lu(948) * lu(1726) + lu(1734) = lu(1734) - lu(949) * lu(1726) + lu(1735) = lu(1735) - lu(950) * lu(1726) + lu(1736) = lu(1736) - lu(951) * lu(1726) + lu(1737) = lu(1737) - lu(952) * lu(1726) + lu(1738) = lu(1738) - lu(953) * lu(1726) + lu(1739) = lu(1739) - lu(954) * lu(1726) + lu(1740) = lu(1740) - lu(955) * lu(1726) + lu(1741) = lu(1741) - lu(956) * lu(1726) + lu(1742) = lu(1742) - lu(957) * lu(1726) + lu(1743) = lu(1743) - lu(958) * lu(1726) + lu(1744) = lu(1744) - lu(959) * lu(1726) + lu(1745) = lu(1745) - lu(960) * lu(1726) + lu(983) = 1._r8 / lu(983) + lu(984) = lu(984) * lu(983) + lu(985) = lu(985) * lu(983) + lu(986) = lu(986) * lu(983) + lu(987) = lu(987) * lu(983) + lu(988) = lu(988) * lu(983) + lu(989) = lu(989) * lu(983) + lu(990) = lu(990) * lu(983) + lu(991) = lu(991) * lu(983) + lu(992) = lu(992) * lu(983) + lu(993) = lu(993) * lu(983) + lu(994) = lu(994) * lu(983) + lu(995) = lu(995) * lu(983) + lu(996) = lu(996) * lu(983) + lu(997) = lu(997) * lu(983) + lu(998) = lu(998) * lu(983) + lu(999) = lu(999) * lu(983) + lu(1000) = lu(1000) * lu(983) + lu(1001) = lu(1001) * lu(983) + lu(1026) = lu(1026) - lu(984) * lu(1025) + lu(1027) = lu(1027) - lu(985) * lu(1025) + lu(1028) = lu(1028) - lu(986) * lu(1025) + lu(1029) = lu(1029) - lu(987) * lu(1025) + lu(1030) = lu(1030) - lu(988) * lu(1025) + lu(1031) = lu(1031) - lu(989) * lu(1025) + lu(1032) = lu(1032) - lu(990) * lu(1025) + lu(1033) = lu(1033) - lu(991) * lu(1025) + lu(1034) = lu(1034) - lu(992) * lu(1025) + lu(1035) = lu(1035) - lu(993) * lu(1025) + lu(1036) = lu(1036) - lu(994) * lu(1025) + lu(1037) = lu(1037) - lu(995) * lu(1025) + lu(1038) = lu(1038) - lu(996) * lu(1025) + lu(1039) = lu(1039) - lu(997) * lu(1025) + lu(1040) = lu(1040) - lu(998) * lu(1025) + lu(1041) = lu(1041) - lu(999) * lu(1025) + lu(1042) = lu(1042) - lu(1000) * lu(1025) + lu(1043) = lu(1043) - lu(1001) * lu(1025) + lu(1070) = lu(1070) - lu(984) * lu(1069) + lu(1071) = lu(1071) - lu(985) * lu(1069) + lu(1072) = lu(1072) - lu(986) * lu(1069) + lu(1073) = lu(1073) - lu(987) * lu(1069) + lu(1074) = lu(1074) - lu(988) * lu(1069) + lu(1075) = lu(1075) - lu(989) * lu(1069) + lu(1076) = lu(1076) - lu(990) * lu(1069) + lu(1077) = lu(1077) - lu(991) * lu(1069) + lu(1078) = lu(1078) - lu(992) * lu(1069) + lu(1079) = lu(1079) - lu(993) * lu(1069) + lu(1080) = lu(1080) - lu(994) * lu(1069) + lu(1081) = lu(1081) - lu(995) * lu(1069) + lu(1082) = lu(1082) - lu(996) * lu(1069) + lu(1083) = lu(1083) - lu(997) * lu(1069) + lu(1084) = lu(1084) - lu(998) * lu(1069) + lu(1085) = lu(1085) - lu(999) * lu(1069) + lu(1086) = lu(1086) - lu(1000) * lu(1069) + lu(1087) = lu(1087) - lu(1001) * lu(1069) + lu(1112) = lu(1112) - lu(984) * lu(1111) + lu(1113) = lu(1113) - lu(985) * lu(1111) + lu(1114) = lu(1114) - lu(986) * lu(1111) + lu(1115) = lu(1115) - lu(987) * lu(1111) + lu(1116) = lu(1116) - lu(988) * lu(1111) + lu(1117) = lu(1117) - lu(989) * lu(1111) + lu(1118) = lu(1118) - lu(990) * lu(1111) + lu(1119) = lu(1119) - lu(991) * lu(1111) + lu(1120) = lu(1120) - lu(992) * lu(1111) + lu(1121) = lu(1121) - lu(993) * lu(1111) + lu(1122) = lu(1122) - lu(994) * lu(1111) + lu(1123) = lu(1123) - lu(995) * lu(1111) + lu(1124) = lu(1124) - lu(996) * lu(1111) + lu(1125) = lu(1125) - lu(997) * lu(1111) + lu(1126) = lu(1126) - lu(998) * lu(1111) + lu(1127) = lu(1127) - lu(999) * lu(1111) + lu(1128) = lu(1128) - lu(1000) * lu(1111) + lu(1129) = lu(1129) - lu(1001) * lu(1111) + lu(1155) = lu(1155) - lu(984) * lu(1154) + lu(1156) = lu(1156) - lu(985) * lu(1154) + lu(1157) = lu(1157) - lu(986) * lu(1154) + lu(1158) = lu(1158) - lu(987) * lu(1154) + lu(1159) = lu(1159) - lu(988) * lu(1154) + lu(1160) = lu(1160) - lu(989) * lu(1154) + lu(1161) = lu(1161) - lu(990) * lu(1154) + lu(1162) = lu(1162) - lu(991) * lu(1154) + lu(1163) = lu(1163) - lu(992) * lu(1154) + lu(1164) = lu(1164) - lu(993) * lu(1154) + lu(1165) = lu(1165) - lu(994) * lu(1154) + lu(1166) = lu(1166) - lu(995) * lu(1154) + lu(1167) = lu(1167) - lu(996) * lu(1154) + lu(1168) = lu(1168) - lu(997) * lu(1154) + lu(1169) = lu(1169) - lu(998) * lu(1154) + lu(1170) = lu(1170) - lu(999) * lu(1154) + lu(1171) = lu(1171) - lu(1000) * lu(1154) + lu(1172) = lu(1172) - lu(1001) * lu(1154) + lu(1197) = lu(1197) - lu(984) * lu(1196) + lu(1198) = lu(1198) - lu(985) * lu(1196) + lu(1199) = lu(1199) - lu(986) * lu(1196) + lu(1200) = lu(1200) - lu(987) * lu(1196) + lu(1201) = lu(1201) - lu(988) * lu(1196) + lu(1202) = lu(1202) - lu(989) * lu(1196) + lu(1203) = lu(1203) - lu(990) * lu(1196) + lu(1204) = lu(1204) - lu(991) * lu(1196) + lu(1205) = lu(1205) - lu(992) * lu(1196) + lu(1206) = lu(1206) - lu(993) * lu(1196) + lu(1207) = lu(1207) - lu(994) * lu(1196) + lu(1208) = lu(1208) - lu(995) * lu(1196) + lu(1209) = lu(1209) - lu(996) * lu(1196) + lu(1210) = lu(1210) - lu(997) * lu(1196) + lu(1211) = lu(1211) - lu(998) * lu(1196) + lu(1212) = lu(1212) - lu(999) * lu(1196) + lu(1213) = lu(1213) - lu(1000) * lu(1196) + lu(1214) = lu(1214) - lu(1001) * lu(1196) + lu(1232) = lu(1232) - lu(984) * lu(1231) + lu(1233) = lu(1233) - lu(985) * lu(1231) + lu(1234) = lu(1234) - lu(986) * lu(1231) + lu(1235) = lu(1235) - lu(987) * lu(1231) + lu(1236) = lu(1236) - lu(988) * lu(1231) + lu(1237) = lu(1237) - lu(989) * lu(1231) + lu(1238) = lu(1238) - lu(990) * lu(1231) + lu(1239) = lu(1239) - lu(991) * lu(1231) + lu(1240) = lu(1240) - lu(992) * lu(1231) + lu(1241) = lu(1241) - lu(993) * lu(1231) + lu(1242) = lu(1242) - lu(994) * lu(1231) + lu(1243) = lu(1243) - lu(995) * lu(1231) + lu(1244) = lu(1244) - lu(996) * lu(1231) + lu(1245) = lu(1245) - lu(997) * lu(1231) + lu(1246) = lu(1246) - lu(998) * lu(1231) + lu(1247) = lu(1247) - lu(999) * lu(1231) + lu(1248) = lu(1248) - lu(1000) * lu(1231) + lu(1249) = lu(1249) - lu(1001) * lu(1231) + lu(1276) = lu(1276) - lu(984) * lu(1275) + lu(1277) = lu(1277) - lu(985) * lu(1275) + lu(1278) = lu(1278) - lu(986) * lu(1275) + lu(1279) = lu(1279) - lu(987) * lu(1275) + lu(1280) = lu(1280) - lu(988) * lu(1275) + lu(1281) = lu(1281) - lu(989) * lu(1275) + lu(1282) = lu(1282) - lu(990) * lu(1275) + lu(1283) = lu(1283) - lu(991) * lu(1275) + lu(1284) = lu(1284) - lu(992) * lu(1275) + lu(1285) = lu(1285) - lu(993) * lu(1275) + lu(1286) = lu(1286) - lu(994) * lu(1275) + lu(1287) = lu(1287) - lu(995) * lu(1275) + lu(1288) = lu(1288) - lu(996) * lu(1275) + lu(1289) = lu(1289) - lu(997) * lu(1275) + lu(1290) = lu(1290) - lu(998) * lu(1275) + lu(1291) = lu(1291) - lu(999) * lu(1275) + lu(1292) = lu(1292) - lu(1000) * lu(1275) + lu(1293) = lu(1293) - lu(1001) * lu(1275) + lu(1317) = lu(1317) - lu(984) * lu(1316) + lu(1318) = lu(1318) - lu(985) * lu(1316) + lu(1319) = lu(1319) - lu(986) * lu(1316) + lu(1320) = lu(1320) - lu(987) * lu(1316) + lu(1321) = lu(1321) - lu(988) * lu(1316) + lu(1322) = lu(1322) - lu(989) * lu(1316) + lu(1323) = lu(1323) - lu(990) * lu(1316) + lu(1324) = lu(1324) - lu(991) * lu(1316) + lu(1325) = lu(1325) - lu(992) * lu(1316) + lu(1326) = lu(1326) - lu(993) * lu(1316) + lu(1327) = lu(1327) - lu(994) * lu(1316) + lu(1328) = lu(1328) - lu(995) * lu(1316) + lu(1329) = lu(1329) - lu(996) * lu(1316) + lu(1330) = lu(1330) - lu(997) * lu(1316) + lu(1331) = lu(1331) - lu(998) * lu(1316) + lu(1332) = lu(1332) - lu(999) * lu(1316) + lu(1333) = lu(1333) - lu(1000) * lu(1316) + lu(1334) = lu(1334) - lu(1001) * lu(1316) + lu(1359) = lu(1359) - lu(984) * lu(1358) + lu(1360) = lu(1360) - lu(985) * lu(1358) + lu(1361) = lu(1361) - lu(986) * lu(1358) + lu(1362) = lu(1362) - lu(987) * lu(1358) + lu(1363) = lu(1363) - lu(988) * lu(1358) + lu(1364) = lu(1364) - lu(989) * lu(1358) + lu(1365) = lu(1365) - lu(990) * lu(1358) + lu(1366) = lu(1366) - lu(991) * lu(1358) + lu(1367) = lu(1367) - lu(992) * lu(1358) + lu(1368) = lu(1368) - lu(993) * lu(1358) + lu(1369) = lu(1369) - lu(994) * lu(1358) + lu(1370) = lu(1370) - lu(995) * lu(1358) + lu(1371) = lu(1371) - lu(996) * lu(1358) + lu(1372) = lu(1372) - lu(997) * lu(1358) + lu(1373) = lu(1373) - lu(998) * lu(1358) + lu(1374) = lu(1374) - lu(999) * lu(1358) + lu(1375) = lu(1375) - lu(1000) * lu(1358) + lu(1376) = lu(1376) - lu(1001) * lu(1358) + lu(1401) = lu(1401) - lu(984) * lu(1400) + lu(1402) = lu(1402) - lu(985) * lu(1400) + lu(1403) = lu(1403) - lu(986) * lu(1400) + lu(1404) = lu(1404) - lu(987) * lu(1400) + lu(1405) = lu(1405) - lu(988) * lu(1400) + lu(1406) = lu(1406) - lu(989) * lu(1400) + lu(1407) = lu(1407) - lu(990) * lu(1400) + lu(1408) = lu(1408) - lu(991) * lu(1400) + lu(1409) = lu(1409) - lu(992) * lu(1400) + lu(1410) = lu(1410) - lu(993) * lu(1400) + lu(1411) = lu(1411) - lu(994) * lu(1400) + lu(1412) = lu(1412) - lu(995) * lu(1400) + lu(1413) = lu(1413) - lu(996) * lu(1400) + lu(1414) = lu(1414) - lu(997) * lu(1400) + lu(1415) = lu(1415) - lu(998) * lu(1400) + lu(1416) = lu(1416) - lu(999) * lu(1400) + lu(1417) = lu(1417) - lu(1000) * lu(1400) + lu(1418) = lu(1418) - lu(1001) * lu(1400) + lu(1443) = lu(1443) - lu(984) * lu(1442) + lu(1444) = lu(1444) - lu(985) * lu(1442) + lu(1445) = lu(1445) - lu(986) * lu(1442) + lu(1446) = lu(1446) - lu(987) * lu(1442) + lu(1447) = lu(1447) - lu(988) * lu(1442) + lu(1448) = lu(1448) - lu(989) * lu(1442) + lu(1449) = lu(1449) - lu(990) * lu(1442) + lu(1450) = lu(1450) - lu(991) * lu(1442) + lu(1451) = lu(1451) - lu(992) * lu(1442) + lu(1452) = lu(1452) - lu(993) * lu(1442) + lu(1453) = lu(1453) - lu(994) * lu(1442) + lu(1454) = lu(1454) - lu(995) * lu(1442) + lu(1455) = lu(1455) - lu(996) * lu(1442) + lu(1456) = lu(1456) - lu(997) * lu(1442) + lu(1457) = lu(1457) - lu(998) * lu(1442) + lu(1458) = lu(1458) - lu(999) * lu(1442) + lu(1459) = lu(1459) - lu(1000) * lu(1442) + lu(1460) = lu(1460) - lu(1001) * lu(1442) + lu(1498) = lu(1498) - lu(984) * lu(1497) + lu(1499) = lu(1499) - lu(985) * lu(1497) + lu(1500) = lu(1500) - lu(986) * lu(1497) + lu(1501) = lu(1501) - lu(987) * lu(1497) + lu(1502) = lu(1502) - lu(988) * lu(1497) + lu(1503) = lu(1503) - lu(989) * lu(1497) + lu(1504) = lu(1504) - lu(990) * lu(1497) + lu(1505) = lu(1505) - lu(991) * lu(1497) + lu(1506) = lu(1506) - lu(992) * lu(1497) + lu(1507) = lu(1507) - lu(993) * lu(1497) + lu(1508) = lu(1508) - lu(994) * lu(1497) + lu(1509) = lu(1509) - lu(995) * lu(1497) + lu(1510) = lu(1510) - lu(996) * lu(1497) + lu(1511) = lu(1511) - lu(997) * lu(1497) + lu(1512) = lu(1512) - lu(998) * lu(1497) + lu(1513) = lu(1513) - lu(999) * lu(1497) + lu(1514) = lu(1514) - lu(1000) * lu(1497) + lu(1515) = lu(1515) - lu(1001) * lu(1497) + lu(1530) = lu(1530) - lu(984) * lu(1529) + lu(1531) = lu(1531) - lu(985) * lu(1529) + lu(1532) = lu(1532) - lu(986) * lu(1529) + lu(1533) = lu(1533) - lu(987) * lu(1529) + lu(1534) = lu(1534) - lu(988) * lu(1529) + lu(1535) = lu(1535) - lu(989) * lu(1529) + lu(1536) = lu(1536) - lu(990) * lu(1529) + lu(1537) = lu(1537) - lu(991) * lu(1529) + lu(1538) = lu(1538) - lu(992) * lu(1529) + lu(1539) = lu(1539) - lu(993) * lu(1529) + lu(1540) = lu(1540) - lu(994) * lu(1529) + lu(1541) = lu(1541) - lu(995) * lu(1529) + lu(1542) = lu(1542) - lu(996) * lu(1529) + lu(1543) = lu(1543) - lu(997) * lu(1529) + lu(1544) = lu(1544) - lu(998) * lu(1529) + lu(1545) = lu(1545) - lu(999) * lu(1529) + lu(1546) = lu(1546) - lu(1000) * lu(1529) + lu(1547) = lu(1547) - lu(1001) * lu(1529) + lu(1565) = lu(1565) - lu(984) * lu(1564) + lu(1566) = lu(1566) - lu(985) * lu(1564) + lu(1567) = lu(1567) - lu(986) * lu(1564) + lu(1568) = lu(1568) - lu(987) * lu(1564) + lu(1569) = lu(1569) - lu(988) * lu(1564) + lu(1570) = lu(1570) - lu(989) * lu(1564) + lu(1571) = lu(1571) - lu(990) * lu(1564) + lu(1572) = lu(1572) - lu(991) * lu(1564) + lu(1573) = lu(1573) - lu(992) * lu(1564) + lu(1574) = lu(1574) - lu(993) * lu(1564) + lu(1575) = lu(1575) - lu(994) * lu(1564) + lu(1576) = lu(1576) - lu(995) * lu(1564) + lu(1577) = lu(1577) - lu(996) * lu(1564) + lu(1578) = lu(1578) - lu(997) * lu(1564) + lu(1579) = lu(1579) - lu(998) * lu(1564) + lu(1580) = lu(1580) - lu(999) * lu(1564) + lu(1581) = lu(1581) - lu(1000) * lu(1564) + lu(1582) = lu(1582) - lu(1001) * lu(1564) + lu(1603) = lu(1603) - lu(984) * lu(1602) + lu(1604) = lu(1604) - lu(985) * lu(1602) + lu(1605) = lu(1605) - lu(986) * lu(1602) + lu(1606) = lu(1606) - lu(987) * lu(1602) + lu(1607) = lu(1607) - lu(988) * lu(1602) + lu(1608) = lu(1608) - lu(989) * lu(1602) + lu(1609) = lu(1609) - lu(990) * lu(1602) + lu(1610) = lu(1610) - lu(991) * lu(1602) + lu(1611) = lu(1611) - lu(992) * lu(1602) + lu(1612) = lu(1612) - lu(993) * lu(1602) + lu(1613) = lu(1613) - lu(994) * lu(1602) + lu(1614) = lu(1614) - lu(995) * lu(1602) + lu(1615) = lu(1615) - lu(996) * lu(1602) + lu(1616) = lu(1616) - lu(997) * lu(1602) + lu(1617) = lu(1617) - lu(998) * lu(1602) + lu(1618) = lu(1618) - lu(999) * lu(1602) + lu(1619) = lu(1619) - lu(1000) * lu(1602) + lu(1620) = lu(1620) - lu(1001) * lu(1602) + lu(1642) = lu(1642) - lu(984) * lu(1641) + lu(1643) = lu(1643) - lu(985) * lu(1641) + lu(1644) = lu(1644) - lu(986) * lu(1641) + lu(1645) = lu(1645) - lu(987) * lu(1641) + lu(1646) = lu(1646) - lu(988) * lu(1641) + lu(1647) = lu(1647) - lu(989) * lu(1641) + lu(1648) = lu(1648) - lu(990) * lu(1641) + lu(1649) = lu(1649) - lu(991) * lu(1641) + lu(1650) = lu(1650) - lu(992) * lu(1641) + lu(1651) = lu(1651) - lu(993) * lu(1641) + lu(1652) = lu(1652) - lu(994) * lu(1641) + lu(1653) = lu(1653) - lu(995) * lu(1641) + lu(1654) = lu(1654) - lu(996) * lu(1641) + lu(1655) = lu(1655) - lu(997) * lu(1641) + lu(1656) = lu(1656) - lu(998) * lu(1641) + lu(1657) = lu(1657) - lu(999) * lu(1641) + lu(1658) = lu(1658) - lu(1000) * lu(1641) + lu(1659) = lu(1659) - lu(1001) * lu(1641) + lu(1676) = lu(1676) - lu(984) * lu(1675) + lu(1677) = lu(1677) - lu(985) * lu(1675) + lu(1678) = lu(1678) - lu(986) * lu(1675) + lu(1679) = lu(1679) - lu(987) * lu(1675) + lu(1680) = lu(1680) - lu(988) * lu(1675) + lu(1681) = lu(1681) - lu(989) * lu(1675) + lu(1682) = lu(1682) - lu(990) * lu(1675) + lu(1683) = lu(1683) - lu(991) * lu(1675) + lu(1684) = lu(1684) - lu(992) * lu(1675) + lu(1685) = lu(1685) - lu(993) * lu(1675) + lu(1686) = lu(1686) - lu(994) * lu(1675) + lu(1687) = lu(1687) - lu(995) * lu(1675) + lu(1688) = lu(1688) - lu(996) * lu(1675) + lu(1689) = lu(1689) - lu(997) * lu(1675) + lu(1690) = lu(1690) - lu(998) * lu(1675) + lu(1691) = lu(1691) - lu(999) * lu(1675) + lu(1692) = lu(1692) - lu(1000) * lu(1675) + lu(1693) = lu(1693) - lu(1001) * lu(1675) + lu(1728) = lu(1728) - lu(984) * lu(1727) + lu(1729) = lu(1729) - lu(985) * lu(1727) + lu(1730) = lu(1730) - lu(986) * lu(1727) + lu(1731) = lu(1731) - lu(987) * lu(1727) + lu(1732) = lu(1732) - lu(988) * lu(1727) + lu(1733) = lu(1733) - lu(989) * lu(1727) + lu(1734) = lu(1734) - lu(990) * lu(1727) + lu(1735) = lu(1735) - lu(991) * lu(1727) + lu(1736) = lu(1736) - lu(992) * lu(1727) + lu(1737) = lu(1737) - lu(993) * lu(1727) + lu(1738) = lu(1738) - lu(994) * lu(1727) + lu(1739) = lu(1739) - lu(995) * lu(1727) + lu(1740) = lu(1740) - lu(996) * lu(1727) + lu(1741) = lu(1741) - lu(997) * lu(1727) + lu(1742) = lu(1742) - lu(998) * lu(1727) + lu(1743) = lu(1743) - lu(999) * lu(1727) + lu(1744) = lu(1744) - lu(1000) * lu(1727) + lu(1745) = lu(1745) - lu(1001) * lu(1727) end subroutine lu_fac18 - subroutine lu_fac19( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac19( lu ) 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,1023) = 1._r8 / lu(k,1023) - lu(k,1024) = lu(k,1024) * lu(k,1023) - lu(k,1025) = lu(k,1025) * lu(k,1023) - lu(k,1026) = lu(k,1026) * lu(k,1023) - lu(k,1027) = lu(k,1027) * lu(k,1023) - lu(k,1028) = lu(k,1028) * lu(k,1023) - lu(k,1029) = lu(k,1029) * lu(k,1023) - lu(k,1030) = lu(k,1030) * lu(k,1023) - lu(k,1031) = lu(k,1031) * lu(k,1023) - lu(k,1032) = lu(k,1032) * lu(k,1023) - lu(k,1033) = lu(k,1033) * lu(k,1023) - lu(k,1034) = lu(k,1034) * lu(k,1023) - lu(k,1035) = lu(k,1035) * lu(k,1023) - lu(k,1036) = lu(k,1036) * lu(k,1023) - lu(k,1037) = lu(k,1037) * lu(k,1023) - lu(k,1038) = lu(k,1038) * lu(k,1023) - lu(k,1039) = lu(k,1039) * lu(k,1023) - lu(k,1040) = lu(k,1040) * lu(k,1023) - lu(k,1041) = lu(k,1041) * lu(k,1023) - lu(k,1042) = lu(k,1042) * lu(k,1023) - lu(k,1066) = lu(k,1066) - lu(k,1024) * lu(k,1065) - lu(k,1067) = lu(k,1067) - lu(k,1025) * lu(k,1065) - lu(k,1068) = lu(k,1068) - lu(k,1026) * lu(k,1065) - lu(k,1069) = lu(k,1069) - lu(k,1027) * lu(k,1065) - lu(k,1070) = lu(k,1070) - lu(k,1028) * lu(k,1065) - lu(k,1071) = lu(k,1071) - lu(k,1029) * lu(k,1065) - lu(k,1072) = lu(k,1072) - lu(k,1030) * lu(k,1065) - lu(k,1073) = lu(k,1073) - lu(k,1031) * lu(k,1065) - lu(k,1074) = lu(k,1074) - lu(k,1032) * lu(k,1065) - lu(k,1075) = lu(k,1075) - lu(k,1033) * lu(k,1065) - lu(k,1076) = lu(k,1076) - lu(k,1034) * lu(k,1065) - lu(k,1077) = lu(k,1077) - lu(k,1035) * lu(k,1065) - lu(k,1078) = lu(k,1078) - lu(k,1036) * lu(k,1065) - lu(k,1079) = lu(k,1079) - lu(k,1037) * lu(k,1065) - lu(k,1080) = lu(k,1080) - lu(k,1038) * lu(k,1065) - lu(k,1081) = lu(k,1081) - lu(k,1039) * lu(k,1065) - lu(k,1082) = lu(k,1082) - lu(k,1040) * lu(k,1065) - lu(k,1083) = lu(k,1083) - lu(k,1041) * lu(k,1065) - lu(k,1084) = lu(k,1084) - lu(k,1042) * lu(k,1065) - lu(k,1106) = lu(k,1106) - lu(k,1024) * lu(k,1105) - lu(k,1107) = lu(k,1107) - lu(k,1025) * lu(k,1105) - lu(k,1108) = lu(k,1108) - lu(k,1026) * lu(k,1105) - lu(k,1109) = lu(k,1109) - lu(k,1027) * lu(k,1105) - lu(k,1110) = lu(k,1110) - lu(k,1028) * lu(k,1105) - lu(k,1111) = lu(k,1111) - lu(k,1029) * lu(k,1105) - lu(k,1112) = lu(k,1112) - lu(k,1030) * lu(k,1105) - lu(k,1113) = lu(k,1113) - lu(k,1031) * lu(k,1105) - lu(k,1114) = lu(k,1114) - lu(k,1032) * lu(k,1105) - lu(k,1115) = lu(k,1115) - lu(k,1033) * lu(k,1105) - lu(k,1116) = lu(k,1116) - lu(k,1034) * lu(k,1105) - lu(k,1117) = lu(k,1117) - lu(k,1035) * lu(k,1105) - lu(k,1118) = lu(k,1118) - lu(k,1036) * lu(k,1105) - lu(k,1119) = lu(k,1119) - lu(k,1037) * lu(k,1105) - lu(k,1120) = lu(k,1120) - lu(k,1038) * lu(k,1105) - lu(k,1121) = lu(k,1121) - lu(k,1039) * lu(k,1105) - lu(k,1122) = lu(k,1122) - lu(k,1040) * lu(k,1105) - lu(k,1123) = lu(k,1123) - lu(k,1041) * lu(k,1105) - lu(k,1124) = lu(k,1124) - lu(k,1042) * lu(k,1105) - lu(k,1151) = lu(k,1151) - lu(k,1024) * lu(k,1150) - lu(k,1152) = lu(k,1152) - lu(k,1025) * lu(k,1150) - lu(k,1153) = lu(k,1153) - lu(k,1026) * lu(k,1150) - lu(k,1154) = lu(k,1154) - lu(k,1027) * lu(k,1150) - lu(k,1155) = lu(k,1155) - lu(k,1028) * lu(k,1150) - lu(k,1156) = lu(k,1156) - lu(k,1029) * lu(k,1150) - lu(k,1157) = lu(k,1157) - lu(k,1030) * lu(k,1150) - lu(k,1158) = lu(k,1158) - lu(k,1031) * lu(k,1150) - lu(k,1159) = lu(k,1159) - lu(k,1032) * lu(k,1150) - lu(k,1160) = lu(k,1160) - lu(k,1033) * lu(k,1150) - lu(k,1161) = lu(k,1161) - lu(k,1034) * lu(k,1150) - lu(k,1162) = lu(k,1162) - lu(k,1035) * lu(k,1150) - lu(k,1163) = lu(k,1163) - lu(k,1036) * lu(k,1150) - lu(k,1164) = lu(k,1164) - lu(k,1037) * lu(k,1150) - lu(k,1165) = lu(k,1165) - lu(k,1038) * lu(k,1150) - lu(k,1166) = lu(k,1166) - lu(k,1039) * lu(k,1150) - lu(k,1167) = lu(k,1167) - lu(k,1040) * lu(k,1150) - lu(k,1168) = lu(k,1168) - lu(k,1041) * lu(k,1150) - lu(k,1169) = lu(k,1169) - lu(k,1042) * lu(k,1150) - lu(k,1194) = lu(k,1194) - lu(k,1024) * lu(k,1193) - lu(k,1195) = lu(k,1195) - lu(k,1025) * lu(k,1193) - lu(k,1196) = lu(k,1196) - lu(k,1026) * lu(k,1193) - lu(k,1197) = lu(k,1197) - lu(k,1027) * lu(k,1193) - lu(k,1198) = lu(k,1198) - lu(k,1028) * lu(k,1193) - lu(k,1199) = lu(k,1199) - lu(k,1029) * lu(k,1193) - lu(k,1200) = lu(k,1200) - lu(k,1030) * lu(k,1193) - lu(k,1201) = lu(k,1201) - lu(k,1031) * lu(k,1193) - lu(k,1202) = lu(k,1202) - lu(k,1032) * lu(k,1193) - lu(k,1203) = lu(k,1203) - lu(k,1033) * lu(k,1193) - lu(k,1204) = lu(k,1204) - lu(k,1034) * lu(k,1193) - lu(k,1205) = lu(k,1205) - lu(k,1035) * lu(k,1193) - lu(k,1206) = lu(k,1206) - lu(k,1036) * lu(k,1193) - lu(k,1207) = lu(k,1207) - lu(k,1037) * lu(k,1193) - lu(k,1208) = lu(k,1208) - lu(k,1038) * lu(k,1193) - lu(k,1209) = lu(k,1209) - lu(k,1039) * lu(k,1193) - lu(k,1210) = lu(k,1210) - lu(k,1040) * lu(k,1193) - lu(k,1211) = lu(k,1211) - lu(k,1041) * lu(k,1193) - lu(k,1212) = lu(k,1212) - lu(k,1042) * lu(k,1193) - lu(k,1229) = lu(k,1229) - lu(k,1024) * lu(k,1228) - lu(k,1230) = lu(k,1230) - lu(k,1025) * lu(k,1228) - lu(k,1231) = lu(k,1231) - lu(k,1026) * lu(k,1228) - lu(k,1232) = lu(k,1232) - lu(k,1027) * lu(k,1228) - lu(k,1233) = lu(k,1233) - lu(k,1028) * lu(k,1228) - lu(k,1234) = lu(k,1234) - lu(k,1029) * lu(k,1228) - lu(k,1235) = lu(k,1235) - lu(k,1030) * lu(k,1228) - lu(k,1236) = lu(k,1236) - lu(k,1031) * lu(k,1228) - lu(k,1237) = lu(k,1237) - lu(k,1032) * lu(k,1228) - lu(k,1238) = lu(k,1238) - lu(k,1033) * lu(k,1228) - lu(k,1239) = lu(k,1239) - lu(k,1034) * lu(k,1228) - lu(k,1240) = lu(k,1240) - lu(k,1035) * lu(k,1228) - lu(k,1241) = lu(k,1241) - lu(k,1036) * lu(k,1228) - lu(k,1242) = lu(k,1242) - lu(k,1037) * lu(k,1228) - lu(k,1243) = lu(k,1243) - lu(k,1038) * lu(k,1228) - lu(k,1244) = lu(k,1244) - lu(k,1039) * lu(k,1228) - lu(k,1245) = lu(k,1245) - lu(k,1040) * lu(k,1228) - lu(k,1246) = lu(k,1246) - lu(k,1041) * lu(k,1228) - lu(k,1247) = lu(k,1247) - lu(k,1042) * lu(k,1228) - lu(k,1272) = lu(k,1272) - lu(k,1024) * lu(k,1271) - lu(k,1273) = lu(k,1273) - lu(k,1025) * lu(k,1271) - lu(k,1274) = lu(k,1274) - lu(k,1026) * lu(k,1271) - lu(k,1275) = lu(k,1275) - lu(k,1027) * lu(k,1271) - lu(k,1276) = lu(k,1276) - lu(k,1028) * lu(k,1271) - lu(k,1277) = lu(k,1277) - lu(k,1029) * lu(k,1271) - lu(k,1278) = lu(k,1278) - lu(k,1030) * lu(k,1271) - lu(k,1279) = lu(k,1279) - lu(k,1031) * lu(k,1271) - lu(k,1280) = lu(k,1280) - lu(k,1032) * lu(k,1271) - lu(k,1281) = lu(k,1281) - lu(k,1033) * lu(k,1271) - lu(k,1282) = lu(k,1282) - lu(k,1034) * lu(k,1271) - lu(k,1283) = lu(k,1283) - lu(k,1035) * lu(k,1271) - lu(k,1284) = lu(k,1284) - lu(k,1036) * lu(k,1271) - lu(k,1285) = lu(k,1285) - lu(k,1037) * lu(k,1271) - lu(k,1286) = lu(k,1286) - lu(k,1038) * lu(k,1271) - lu(k,1287) = lu(k,1287) - lu(k,1039) * lu(k,1271) - lu(k,1288) = lu(k,1288) - lu(k,1040) * lu(k,1271) - lu(k,1289) = lu(k,1289) - lu(k,1041) * lu(k,1271) - lu(k,1290) = lu(k,1290) - lu(k,1042) * lu(k,1271) - lu(k,1308) = lu(k,1308) - lu(k,1024) * lu(k,1307) - lu(k,1309) = lu(k,1309) - lu(k,1025) * lu(k,1307) - lu(k,1310) = lu(k,1310) - lu(k,1026) * lu(k,1307) - lu(k,1311) = lu(k,1311) - lu(k,1027) * lu(k,1307) - lu(k,1312) = lu(k,1312) - lu(k,1028) * lu(k,1307) - lu(k,1313) = lu(k,1313) - lu(k,1029) * lu(k,1307) - lu(k,1314) = lu(k,1314) - lu(k,1030) * lu(k,1307) - lu(k,1315) = lu(k,1315) - lu(k,1031) * lu(k,1307) - lu(k,1316) = lu(k,1316) - lu(k,1032) * lu(k,1307) - lu(k,1317) = lu(k,1317) - lu(k,1033) * lu(k,1307) - lu(k,1318) = lu(k,1318) - lu(k,1034) * lu(k,1307) - lu(k,1319) = lu(k,1319) - lu(k,1035) * lu(k,1307) - lu(k,1320) = lu(k,1320) - lu(k,1036) * lu(k,1307) - lu(k,1321) = lu(k,1321) - lu(k,1037) * lu(k,1307) - lu(k,1322) = lu(k,1322) - lu(k,1038) * lu(k,1307) - lu(k,1323) = lu(k,1323) - lu(k,1039) * lu(k,1307) - lu(k,1324) = lu(k,1324) - lu(k,1040) * lu(k,1307) - lu(k,1325) = lu(k,1325) - lu(k,1041) * lu(k,1307) - lu(k,1326) = lu(k,1326) - lu(k,1042) * lu(k,1307) - lu(k,1353) = lu(k,1353) - lu(k,1024) * lu(k,1352) - lu(k,1354) = lu(k,1354) - lu(k,1025) * lu(k,1352) - lu(k,1355) = lu(k,1355) - lu(k,1026) * lu(k,1352) - lu(k,1356) = lu(k,1356) - lu(k,1027) * lu(k,1352) - lu(k,1357) = lu(k,1357) - lu(k,1028) * lu(k,1352) - lu(k,1358) = lu(k,1358) - lu(k,1029) * lu(k,1352) - lu(k,1359) = lu(k,1359) - lu(k,1030) * lu(k,1352) - lu(k,1360) = lu(k,1360) - lu(k,1031) * lu(k,1352) - lu(k,1361) = lu(k,1361) - lu(k,1032) * lu(k,1352) - lu(k,1362) = lu(k,1362) - lu(k,1033) * lu(k,1352) - lu(k,1363) = lu(k,1363) - lu(k,1034) * lu(k,1352) - lu(k,1364) = lu(k,1364) - lu(k,1035) * lu(k,1352) - lu(k,1365) = lu(k,1365) - lu(k,1036) * lu(k,1352) - lu(k,1366) = lu(k,1366) - lu(k,1037) * lu(k,1352) - lu(k,1367) = lu(k,1367) - lu(k,1038) * lu(k,1352) - lu(k,1368) = lu(k,1368) - lu(k,1039) * lu(k,1352) - lu(k,1369) = lu(k,1369) - lu(k,1040) * lu(k,1352) - lu(k,1370) = lu(k,1370) - lu(k,1041) * lu(k,1352) - lu(k,1371) = lu(k,1371) - lu(k,1042) * lu(k,1352) - lu(k,1395) = lu(k,1395) - lu(k,1024) * lu(k,1394) - lu(k,1396) = lu(k,1396) - lu(k,1025) * lu(k,1394) - lu(k,1397) = lu(k,1397) - lu(k,1026) * lu(k,1394) - lu(k,1398) = lu(k,1398) - lu(k,1027) * lu(k,1394) - lu(k,1399) = lu(k,1399) - lu(k,1028) * lu(k,1394) - lu(k,1400) = lu(k,1400) - lu(k,1029) * lu(k,1394) - lu(k,1401) = lu(k,1401) - lu(k,1030) * lu(k,1394) - lu(k,1402) = lu(k,1402) - lu(k,1031) * lu(k,1394) - lu(k,1403) = lu(k,1403) - lu(k,1032) * lu(k,1394) - lu(k,1404) = lu(k,1404) - lu(k,1033) * lu(k,1394) - lu(k,1405) = lu(k,1405) - lu(k,1034) * lu(k,1394) - lu(k,1406) = lu(k,1406) - lu(k,1035) * lu(k,1394) - lu(k,1407) = lu(k,1407) - lu(k,1036) * lu(k,1394) - lu(k,1408) = lu(k,1408) - lu(k,1037) * lu(k,1394) - lu(k,1409) = lu(k,1409) - lu(k,1038) * lu(k,1394) - lu(k,1410) = lu(k,1410) - lu(k,1039) * lu(k,1394) - lu(k,1411) = lu(k,1411) - lu(k,1040) * lu(k,1394) - lu(k,1412) = lu(k,1412) - lu(k,1041) * lu(k,1394) - lu(k,1413) = lu(k,1413) - lu(k,1042) * lu(k,1394) - lu(k,1433) = lu(k,1433) - lu(k,1024) * lu(k,1432) - lu(k,1434) = lu(k,1434) - lu(k,1025) * lu(k,1432) - lu(k,1435) = lu(k,1435) - lu(k,1026) * lu(k,1432) - lu(k,1436) = lu(k,1436) - lu(k,1027) * lu(k,1432) - lu(k,1437) = lu(k,1437) - lu(k,1028) * lu(k,1432) - lu(k,1438) = lu(k,1438) - lu(k,1029) * lu(k,1432) - lu(k,1439) = lu(k,1439) - lu(k,1030) * lu(k,1432) - lu(k,1440) = lu(k,1440) - lu(k,1031) * lu(k,1432) - lu(k,1441) = lu(k,1441) - lu(k,1032) * lu(k,1432) - lu(k,1442) = lu(k,1442) - lu(k,1033) * lu(k,1432) - lu(k,1443) = lu(k,1443) - lu(k,1034) * lu(k,1432) - lu(k,1444) = lu(k,1444) - lu(k,1035) * lu(k,1432) - lu(k,1445) = lu(k,1445) - lu(k,1036) * lu(k,1432) - lu(k,1446) = lu(k,1446) - lu(k,1037) * lu(k,1432) - lu(k,1447) = lu(k,1447) - lu(k,1038) * lu(k,1432) - lu(k,1448) = lu(k,1448) - lu(k,1039) * lu(k,1432) - lu(k,1449) = lu(k,1449) - lu(k,1040) * lu(k,1432) - lu(k,1450) = lu(k,1450) - lu(k,1041) * lu(k,1432) - lu(k,1451) = lu(k,1451) - lu(k,1042) * lu(k,1432) - lu(k,1478) = lu(k,1478) - lu(k,1024) * lu(k,1477) - lu(k,1479) = lu(k,1479) - lu(k,1025) * lu(k,1477) - lu(k,1480) = lu(k,1480) - lu(k,1026) * lu(k,1477) - lu(k,1481) = lu(k,1481) - lu(k,1027) * lu(k,1477) - lu(k,1482) = lu(k,1482) - lu(k,1028) * lu(k,1477) - lu(k,1483) = lu(k,1483) - lu(k,1029) * lu(k,1477) - lu(k,1484) = lu(k,1484) - lu(k,1030) * lu(k,1477) - lu(k,1485) = lu(k,1485) - lu(k,1031) * lu(k,1477) - lu(k,1486) = lu(k,1486) - lu(k,1032) * lu(k,1477) - lu(k,1487) = lu(k,1487) - lu(k,1033) * lu(k,1477) - lu(k,1488) = lu(k,1488) - lu(k,1034) * lu(k,1477) - lu(k,1489) = lu(k,1489) - lu(k,1035) * lu(k,1477) - lu(k,1490) = lu(k,1490) - lu(k,1036) * lu(k,1477) - lu(k,1491) = lu(k,1491) - lu(k,1037) * lu(k,1477) - lu(k,1492) = lu(k,1492) - lu(k,1038) * lu(k,1477) - lu(k,1493) = lu(k,1493) - lu(k,1039) * lu(k,1477) - lu(k,1494) = lu(k,1494) - lu(k,1040) * lu(k,1477) - lu(k,1495) = lu(k,1495) - lu(k,1041) * lu(k,1477) - lu(k,1496) = lu(k,1496) - lu(k,1042) * lu(k,1477) - lu(k,1521) = lu(k,1521) - lu(k,1024) * lu(k,1520) - lu(k,1522) = lu(k,1522) - lu(k,1025) * lu(k,1520) - lu(k,1523) = lu(k,1523) - lu(k,1026) * lu(k,1520) - lu(k,1524) = lu(k,1524) - lu(k,1027) * lu(k,1520) - lu(k,1525) = lu(k,1525) - lu(k,1028) * lu(k,1520) - lu(k,1526) = lu(k,1526) - lu(k,1029) * lu(k,1520) - lu(k,1527) = lu(k,1527) - lu(k,1030) * lu(k,1520) - lu(k,1528) = lu(k,1528) - lu(k,1031) * lu(k,1520) - lu(k,1529) = lu(k,1529) - lu(k,1032) * lu(k,1520) - lu(k,1530) = lu(k,1530) - lu(k,1033) * lu(k,1520) - lu(k,1531) = lu(k,1531) - lu(k,1034) * lu(k,1520) - lu(k,1532) = lu(k,1532) - lu(k,1035) * lu(k,1520) - lu(k,1533) = lu(k,1533) - lu(k,1036) * lu(k,1520) - lu(k,1534) = lu(k,1534) - lu(k,1037) * lu(k,1520) - lu(k,1535) = lu(k,1535) - lu(k,1038) * lu(k,1520) - lu(k,1536) = lu(k,1536) - lu(k,1039) * lu(k,1520) - lu(k,1537) = lu(k,1537) - lu(k,1040) * lu(k,1520) - lu(k,1538) = lu(k,1538) - lu(k,1041) * lu(k,1520) - lu(k,1539) = lu(k,1539) - lu(k,1042) * lu(k,1520) - lu(k,1564) = lu(k,1564) - lu(k,1024) * lu(k,1563) - lu(k,1565) = lu(k,1565) - lu(k,1025) * lu(k,1563) - lu(k,1566) = lu(k,1566) - lu(k,1026) * lu(k,1563) - lu(k,1567) = lu(k,1567) - lu(k,1027) * lu(k,1563) - lu(k,1568) = lu(k,1568) - lu(k,1028) * lu(k,1563) - lu(k,1569) = lu(k,1569) - lu(k,1029) * lu(k,1563) - lu(k,1570) = lu(k,1570) - lu(k,1030) * lu(k,1563) - lu(k,1571) = lu(k,1571) - lu(k,1031) * lu(k,1563) - lu(k,1572) = lu(k,1572) - lu(k,1032) * lu(k,1563) - lu(k,1573) = lu(k,1573) - lu(k,1033) * lu(k,1563) - lu(k,1574) = lu(k,1574) - lu(k,1034) * lu(k,1563) - lu(k,1575) = lu(k,1575) - lu(k,1035) * lu(k,1563) - lu(k,1576) = lu(k,1576) - lu(k,1036) * lu(k,1563) - lu(k,1577) = lu(k,1577) - lu(k,1037) * lu(k,1563) - lu(k,1578) = lu(k,1578) - lu(k,1038) * lu(k,1563) - lu(k,1579) = lu(k,1579) - lu(k,1039) * lu(k,1563) - lu(k,1580) = lu(k,1580) - lu(k,1040) * lu(k,1563) - lu(k,1581) = lu(k,1581) - lu(k,1041) * lu(k,1563) - lu(k,1582) = lu(k,1582) - lu(k,1042) * lu(k,1563) - lu(k,1597) = lu(k,1597) - lu(k,1024) * lu(k,1596) - lu(k,1598) = lu(k,1598) - lu(k,1025) * lu(k,1596) - lu(k,1599) = lu(k,1599) - lu(k,1026) * lu(k,1596) - lu(k,1600) = lu(k,1600) - lu(k,1027) * lu(k,1596) - lu(k,1601) = lu(k,1601) - lu(k,1028) * lu(k,1596) - lu(k,1602) = lu(k,1602) - lu(k,1029) * lu(k,1596) - lu(k,1603) = lu(k,1603) - lu(k,1030) * lu(k,1596) - lu(k,1604) = lu(k,1604) - lu(k,1031) * lu(k,1596) - lu(k,1605) = lu(k,1605) - lu(k,1032) * lu(k,1596) - lu(k,1606) = lu(k,1606) - lu(k,1033) * lu(k,1596) - lu(k,1607) = lu(k,1607) - lu(k,1034) * lu(k,1596) - lu(k,1608) = lu(k,1608) - lu(k,1035) * lu(k,1596) - lu(k,1609) = lu(k,1609) - lu(k,1036) * lu(k,1596) - lu(k,1610) = lu(k,1610) - lu(k,1037) * lu(k,1596) - lu(k,1611) = lu(k,1611) - lu(k,1038) * lu(k,1596) - lu(k,1612) = lu(k,1612) - lu(k,1039) * lu(k,1596) - lu(k,1613) = lu(k,1613) - lu(k,1040) * lu(k,1596) - lu(k,1614) = lu(k,1614) - lu(k,1041) * lu(k,1596) - lu(k,1615) = lu(k,1615) - lu(k,1042) * lu(k,1596) - lu(k,1633) = lu(k,1633) - lu(k,1024) * lu(k,1632) - lu(k,1634) = lu(k,1634) - lu(k,1025) * lu(k,1632) - lu(k,1635) = lu(k,1635) - lu(k,1026) * lu(k,1632) - lu(k,1636) = lu(k,1636) - lu(k,1027) * lu(k,1632) - lu(k,1637) = lu(k,1637) - lu(k,1028) * lu(k,1632) - lu(k,1638) = lu(k,1638) - lu(k,1029) * lu(k,1632) - lu(k,1639) = lu(k,1639) - lu(k,1030) * lu(k,1632) - lu(k,1640) = lu(k,1640) - lu(k,1031) * lu(k,1632) - lu(k,1641) = lu(k,1641) - lu(k,1032) * lu(k,1632) - lu(k,1642) = lu(k,1642) - lu(k,1033) * lu(k,1632) - lu(k,1643) = lu(k,1643) - lu(k,1034) * lu(k,1632) - lu(k,1644) = lu(k,1644) - lu(k,1035) * lu(k,1632) - lu(k,1645) = lu(k,1645) - lu(k,1036) * lu(k,1632) - lu(k,1646) = lu(k,1646) - lu(k,1037) * lu(k,1632) - lu(k,1647) = lu(k,1647) - lu(k,1038) * lu(k,1632) - lu(k,1648) = lu(k,1648) - lu(k,1039) * lu(k,1632) - lu(k,1649) = lu(k,1649) - lu(k,1040) * lu(k,1632) - lu(k,1650) = lu(k,1650) - lu(k,1041) * lu(k,1632) - lu(k,1651) = lu(k,1651) - lu(k,1042) * lu(k,1632) - lu(k,1676) = lu(k,1676) - lu(k,1024) * lu(k,1675) - lu(k,1677) = lu(k,1677) - lu(k,1025) * lu(k,1675) - lu(k,1678) = lu(k,1678) - lu(k,1026) * lu(k,1675) - lu(k,1679) = lu(k,1679) - lu(k,1027) * lu(k,1675) - lu(k,1680) = lu(k,1680) - lu(k,1028) * lu(k,1675) - lu(k,1681) = lu(k,1681) - lu(k,1029) * lu(k,1675) - lu(k,1682) = lu(k,1682) - lu(k,1030) * lu(k,1675) - lu(k,1683) = lu(k,1683) - lu(k,1031) * lu(k,1675) - lu(k,1684) = lu(k,1684) - lu(k,1032) * lu(k,1675) - lu(k,1685) = lu(k,1685) - lu(k,1033) * lu(k,1675) - lu(k,1686) = lu(k,1686) - lu(k,1034) * lu(k,1675) - lu(k,1687) = lu(k,1687) - lu(k,1035) * lu(k,1675) - lu(k,1688) = lu(k,1688) - lu(k,1036) * lu(k,1675) - lu(k,1689) = lu(k,1689) - lu(k,1037) * lu(k,1675) - lu(k,1690) = lu(k,1690) - lu(k,1038) * lu(k,1675) - lu(k,1691) = lu(k,1691) - lu(k,1039) * lu(k,1675) - lu(k,1692) = lu(k,1692) - lu(k,1040) * lu(k,1675) - lu(k,1693) = lu(k,1693) - lu(k,1041) * lu(k,1675) - lu(k,1694) = lu(k,1694) - lu(k,1042) * lu(k,1675) - lu(k,1712) = lu(k,1712) - lu(k,1024) * lu(k,1711) - lu(k,1713) = lu(k,1713) - lu(k,1025) * lu(k,1711) - lu(k,1714) = lu(k,1714) - lu(k,1026) * lu(k,1711) - lu(k,1715) = lu(k,1715) - lu(k,1027) * lu(k,1711) - lu(k,1716) = lu(k,1716) - lu(k,1028) * lu(k,1711) - lu(k,1717) = lu(k,1717) - lu(k,1029) * lu(k,1711) - lu(k,1718) = lu(k,1718) - lu(k,1030) * lu(k,1711) - lu(k,1719) = lu(k,1719) - lu(k,1031) * lu(k,1711) - lu(k,1720) = lu(k,1720) - lu(k,1032) * lu(k,1711) - lu(k,1721) = lu(k,1721) - lu(k,1033) * lu(k,1711) - lu(k,1722) = lu(k,1722) - lu(k,1034) * lu(k,1711) - lu(k,1723) = lu(k,1723) - lu(k,1035) * lu(k,1711) - lu(k,1724) = lu(k,1724) - lu(k,1036) * lu(k,1711) - lu(k,1725) = lu(k,1725) - lu(k,1037) * lu(k,1711) - lu(k,1726) = lu(k,1726) - lu(k,1038) * lu(k,1711) - lu(k,1727) = lu(k,1727) - lu(k,1039) * lu(k,1711) - lu(k,1728) = lu(k,1728) - lu(k,1040) * lu(k,1711) - lu(k,1729) = lu(k,1729) - lu(k,1041) * lu(k,1711) - lu(k,1730) = lu(k,1730) - lu(k,1042) * lu(k,1711) - lu(k,1754) = lu(k,1754) - lu(k,1024) * lu(k,1753) - lu(k,1755) = lu(k,1755) - lu(k,1025) * lu(k,1753) - lu(k,1756) = lu(k,1756) - lu(k,1026) * lu(k,1753) - lu(k,1757) = lu(k,1757) - lu(k,1027) * lu(k,1753) - lu(k,1758) = lu(k,1758) - lu(k,1028) * lu(k,1753) - lu(k,1759) = lu(k,1759) - lu(k,1029) * lu(k,1753) - lu(k,1760) = lu(k,1760) - lu(k,1030) * lu(k,1753) - lu(k,1761) = lu(k,1761) - lu(k,1031) * lu(k,1753) - lu(k,1762) = lu(k,1762) - lu(k,1032) * lu(k,1753) - lu(k,1763) = lu(k,1763) - lu(k,1033) * lu(k,1753) - lu(k,1764) = lu(k,1764) - lu(k,1034) * lu(k,1753) - lu(k,1765) = lu(k,1765) - lu(k,1035) * lu(k,1753) - lu(k,1766) = lu(k,1766) - lu(k,1036) * lu(k,1753) - lu(k,1767) = lu(k,1767) - lu(k,1037) * lu(k,1753) - lu(k,1768) = lu(k,1768) - lu(k,1038) * lu(k,1753) - lu(k,1769) = lu(k,1769) - lu(k,1039) * lu(k,1753) - lu(k,1770) = lu(k,1770) - lu(k,1040) * lu(k,1753) - lu(k,1771) = lu(k,1771) - lu(k,1041) * lu(k,1753) - lu(k,1772) = lu(k,1772) - lu(k,1042) * lu(k,1753) - lu(k,1807) = lu(k,1807) - lu(k,1024) * lu(k,1806) - lu(k,1808) = lu(k,1808) - lu(k,1025) * lu(k,1806) - lu(k,1809) = lu(k,1809) - lu(k,1026) * lu(k,1806) - lu(k,1810) = lu(k,1810) - lu(k,1027) * lu(k,1806) - lu(k,1811) = lu(k,1811) - lu(k,1028) * lu(k,1806) - lu(k,1812) = lu(k,1812) - lu(k,1029) * lu(k,1806) - lu(k,1813) = lu(k,1813) - lu(k,1030) * lu(k,1806) - lu(k,1814) = lu(k,1814) - lu(k,1031) * lu(k,1806) - lu(k,1815) = lu(k,1815) - lu(k,1032) * lu(k,1806) - lu(k,1816) = lu(k,1816) - lu(k,1033) * lu(k,1806) - lu(k,1817) = lu(k,1817) - lu(k,1034) * lu(k,1806) - lu(k,1818) = lu(k,1818) - lu(k,1035) * lu(k,1806) - lu(k,1819) = lu(k,1819) - lu(k,1036) * lu(k,1806) - lu(k,1820) = lu(k,1820) - lu(k,1037) * lu(k,1806) - lu(k,1821) = lu(k,1821) - lu(k,1038) * lu(k,1806) - lu(k,1822) = lu(k,1822) - lu(k,1039) * lu(k,1806) - lu(k,1823) = lu(k,1823) - lu(k,1040) * lu(k,1806) - lu(k,1824) = lu(k,1824) - lu(k,1041) * lu(k,1806) - lu(k,1825) = lu(k,1825) - lu(k,1042) * lu(k,1806) - lu(k,1066) = 1._r8 / lu(k,1066) - lu(k,1067) = lu(k,1067) * lu(k,1066) - lu(k,1068) = lu(k,1068) * lu(k,1066) - lu(k,1069) = lu(k,1069) * lu(k,1066) - lu(k,1070) = lu(k,1070) * lu(k,1066) - lu(k,1071) = lu(k,1071) * lu(k,1066) - lu(k,1072) = lu(k,1072) * lu(k,1066) - lu(k,1073) = lu(k,1073) * lu(k,1066) - lu(k,1074) = lu(k,1074) * lu(k,1066) - lu(k,1075) = lu(k,1075) * lu(k,1066) - lu(k,1076) = lu(k,1076) * lu(k,1066) - lu(k,1077) = lu(k,1077) * lu(k,1066) - lu(k,1078) = lu(k,1078) * lu(k,1066) - lu(k,1079) = lu(k,1079) * lu(k,1066) - lu(k,1080) = lu(k,1080) * lu(k,1066) - lu(k,1081) = lu(k,1081) * lu(k,1066) - lu(k,1082) = lu(k,1082) * lu(k,1066) - lu(k,1083) = lu(k,1083) * lu(k,1066) - lu(k,1084) = lu(k,1084) * lu(k,1066) - lu(k,1107) = lu(k,1107) - lu(k,1067) * lu(k,1106) - lu(k,1108) = lu(k,1108) - lu(k,1068) * lu(k,1106) - lu(k,1109) = lu(k,1109) - lu(k,1069) * lu(k,1106) - lu(k,1110) = lu(k,1110) - lu(k,1070) * lu(k,1106) - lu(k,1111) = lu(k,1111) - lu(k,1071) * lu(k,1106) - lu(k,1112) = lu(k,1112) - lu(k,1072) * lu(k,1106) - lu(k,1113) = lu(k,1113) - lu(k,1073) * lu(k,1106) - lu(k,1114) = lu(k,1114) - lu(k,1074) * lu(k,1106) - lu(k,1115) = lu(k,1115) - lu(k,1075) * lu(k,1106) - lu(k,1116) = lu(k,1116) - lu(k,1076) * lu(k,1106) - lu(k,1117) = lu(k,1117) - lu(k,1077) * lu(k,1106) - lu(k,1118) = lu(k,1118) - lu(k,1078) * lu(k,1106) - lu(k,1119) = lu(k,1119) - lu(k,1079) * lu(k,1106) - lu(k,1120) = lu(k,1120) - lu(k,1080) * lu(k,1106) - lu(k,1121) = lu(k,1121) - lu(k,1081) * lu(k,1106) - lu(k,1122) = lu(k,1122) - lu(k,1082) * lu(k,1106) - lu(k,1123) = lu(k,1123) - lu(k,1083) * lu(k,1106) - lu(k,1124) = lu(k,1124) - lu(k,1084) * lu(k,1106) - lu(k,1152) = lu(k,1152) - lu(k,1067) * lu(k,1151) - lu(k,1153) = lu(k,1153) - lu(k,1068) * lu(k,1151) - lu(k,1154) = lu(k,1154) - lu(k,1069) * lu(k,1151) - lu(k,1155) = lu(k,1155) - lu(k,1070) * lu(k,1151) - lu(k,1156) = lu(k,1156) - lu(k,1071) * lu(k,1151) - lu(k,1157) = lu(k,1157) - lu(k,1072) * lu(k,1151) - lu(k,1158) = lu(k,1158) - lu(k,1073) * lu(k,1151) - lu(k,1159) = lu(k,1159) - lu(k,1074) * lu(k,1151) - lu(k,1160) = lu(k,1160) - lu(k,1075) * lu(k,1151) - lu(k,1161) = lu(k,1161) - lu(k,1076) * lu(k,1151) - lu(k,1162) = lu(k,1162) - lu(k,1077) * lu(k,1151) - lu(k,1163) = lu(k,1163) - lu(k,1078) * lu(k,1151) - lu(k,1164) = lu(k,1164) - lu(k,1079) * lu(k,1151) - lu(k,1165) = lu(k,1165) - lu(k,1080) * lu(k,1151) - lu(k,1166) = lu(k,1166) - lu(k,1081) * lu(k,1151) - lu(k,1167) = lu(k,1167) - lu(k,1082) * lu(k,1151) - lu(k,1168) = lu(k,1168) - lu(k,1083) * lu(k,1151) - lu(k,1169) = lu(k,1169) - lu(k,1084) * lu(k,1151) - lu(k,1195) = lu(k,1195) - lu(k,1067) * lu(k,1194) - lu(k,1196) = lu(k,1196) - lu(k,1068) * lu(k,1194) - lu(k,1197) = lu(k,1197) - lu(k,1069) * lu(k,1194) - lu(k,1198) = lu(k,1198) - lu(k,1070) * lu(k,1194) - lu(k,1199) = lu(k,1199) - lu(k,1071) * lu(k,1194) - lu(k,1200) = lu(k,1200) - lu(k,1072) * lu(k,1194) - lu(k,1201) = lu(k,1201) - lu(k,1073) * lu(k,1194) - lu(k,1202) = lu(k,1202) - lu(k,1074) * lu(k,1194) - lu(k,1203) = lu(k,1203) - lu(k,1075) * lu(k,1194) - lu(k,1204) = lu(k,1204) - lu(k,1076) * lu(k,1194) - lu(k,1205) = lu(k,1205) - lu(k,1077) * lu(k,1194) - lu(k,1206) = lu(k,1206) - lu(k,1078) * lu(k,1194) - lu(k,1207) = lu(k,1207) - lu(k,1079) * lu(k,1194) - lu(k,1208) = lu(k,1208) - lu(k,1080) * lu(k,1194) - lu(k,1209) = lu(k,1209) - lu(k,1081) * lu(k,1194) - lu(k,1210) = lu(k,1210) - lu(k,1082) * lu(k,1194) - lu(k,1211) = lu(k,1211) - lu(k,1083) * lu(k,1194) - lu(k,1212) = lu(k,1212) - lu(k,1084) * lu(k,1194) - lu(k,1230) = lu(k,1230) - lu(k,1067) * lu(k,1229) - lu(k,1231) = lu(k,1231) - lu(k,1068) * lu(k,1229) - lu(k,1232) = lu(k,1232) - lu(k,1069) * lu(k,1229) - lu(k,1233) = lu(k,1233) - lu(k,1070) * lu(k,1229) - lu(k,1234) = lu(k,1234) - lu(k,1071) * lu(k,1229) - lu(k,1235) = lu(k,1235) - lu(k,1072) * lu(k,1229) - lu(k,1236) = lu(k,1236) - lu(k,1073) * lu(k,1229) - lu(k,1237) = lu(k,1237) - lu(k,1074) * lu(k,1229) - lu(k,1238) = lu(k,1238) - lu(k,1075) * lu(k,1229) - lu(k,1239) = lu(k,1239) - lu(k,1076) * lu(k,1229) - lu(k,1240) = lu(k,1240) - lu(k,1077) * lu(k,1229) - lu(k,1241) = lu(k,1241) - lu(k,1078) * lu(k,1229) - lu(k,1242) = lu(k,1242) - lu(k,1079) * lu(k,1229) - lu(k,1243) = lu(k,1243) - lu(k,1080) * lu(k,1229) - lu(k,1244) = lu(k,1244) - lu(k,1081) * lu(k,1229) - lu(k,1245) = lu(k,1245) - lu(k,1082) * lu(k,1229) - lu(k,1246) = lu(k,1246) - lu(k,1083) * lu(k,1229) - lu(k,1247) = lu(k,1247) - lu(k,1084) * lu(k,1229) - lu(k,1273) = lu(k,1273) - lu(k,1067) * lu(k,1272) - lu(k,1274) = lu(k,1274) - lu(k,1068) * lu(k,1272) - lu(k,1275) = lu(k,1275) - lu(k,1069) * lu(k,1272) - lu(k,1276) = lu(k,1276) - lu(k,1070) * lu(k,1272) - lu(k,1277) = lu(k,1277) - lu(k,1071) * lu(k,1272) - lu(k,1278) = lu(k,1278) - lu(k,1072) * lu(k,1272) - lu(k,1279) = lu(k,1279) - lu(k,1073) * lu(k,1272) - lu(k,1280) = lu(k,1280) - lu(k,1074) * lu(k,1272) - lu(k,1281) = lu(k,1281) - lu(k,1075) * lu(k,1272) - lu(k,1282) = lu(k,1282) - lu(k,1076) * lu(k,1272) - lu(k,1283) = lu(k,1283) - lu(k,1077) * lu(k,1272) - lu(k,1284) = lu(k,1284) - lu(k,1078) * lu(k,1272) - lu(k,1285) = lu(k,1285) - lu(k,1079) * lu(k,1272) - lu(k,1286) = lu(k,1286) - lu(k,1080) * lu(k,1272) - lu(k,1287) = lu(k,1287) - lu(k,1081) * lu(k,1272) - lu(k,1288) = lu(k,1288) - lu(k,1082) * lu(k,1272) - lu(k,1289) = lu(k,1289) - lu(k,1083) * lu(k,1272) - lu(k,1290) = lu(k,1290) - lu(k,1084) * lu(k,1272) - lu(k,1309) = lu(k,1309) - lu(k,1067) * lu(k,1308) - lu(k,1310) = lu(k,1310) - lu(k,1068) * lu(k,1308) - lu(k,1311) = lu(k,1311) - lu(k,1069) * lu(k,1308) - lu(k,1312) = lu(k,1312) - lu(k,1070) * lu(k,1308) - lu(k,1313) = lu(k,1313) - lu(k,1071) * lu(k,1308) - lu(k,1314) = lu(k,1314) - lu(k,1072) * lu(k,1308) - lu(k,1315) = lu(k,1315) - lu(k,1073) * lu(k,1308) - lu(k,1316) = lu(k,1316) - lu(k,1074) * lu(k,1308) - lu(k,1317) = lu(k,1317) - lu(k,1075) * lu(k,1308) - lu(k,1318) = lu(k,1318) - lu(k,1076) * lu(k,1308) - lu(k,1319) = lu(k,1319) - lu(k,1077) * lu(k,1308) - lu(k,1320) = lu(k,1320) - lu(k,1078) * lu(k,1308) - lu(k,1321) = lu(k,1321) - lu(k,1079) * lu(k,1308) - lu(k,1322) = lu(k,1322) - lu(k,1080) * lu(k,1308) - lu(k,1323) = lu(k,1323) - lu(k,1081) * lu(k,1308) - lu(k,1324) = lu(k,1324) - lu(k,1082) * lu(k,1308) - lu(k,1325) = lu(k,1325) - lu(k,1083) * lu(k,1308) - lu(k,1326) = lu(k,1326) - lu(k,1084) * lu(k,1308) - lu(k,1354) = lu(k,1354) - lu(k,1067) * lu(k,1353) - lu(k,1355) = lu(k,1355) - lu(k,1068) * lu(k,1353) - lu(k,1356) = lu(k,1356) - lu(k,1069) * lu(k,1353) - lu(k,1357) = lu(k,1357) - lu(k,1070) * lu(k,1353) - lu(k,1358) = lu(k,1358) - lu(k,1071) * lu(k,1353) - lu(k,1359) = lu(k,1359) - lu(k,1072) * lu(k,1353) - lu(k,1360) = lu(k,1360) - lu(k,1073) * lu(k,1353) - lu(k,1361) = lu(k,1361) - lu(k,1074) * lu(k,1353) - lu(k,1362) = lu(k,1362) - lu(k,1075) * lu(k,1353) - lu(k,1363) = lu(k,1363) - lu(k,1076) * lu(k,1353) - lu(k,1364) = lu(k,1364) - lu(k,1077) * lu(k,1353) - lu(k,1365) = lu(k,1365) - lu(k,1078) * lu(k,1353) - lu(k,1366) = lu(k,1366) - lu(k,1079) * lu(k,1353) - lu(k,1367) = lu(k,1367) - lu(k,1080) * lu(k,1353) - lu(k,1368) = lu(k,1368) - lu(k,1081) * lu(k,1353) - lu(k,1369) = lu(k,1369) - lu(k,1082) * lu(k,1353) - lu(k,1370) = lu(k,1370) - lu(k,1083) * lu(k,1353) - lu(k,1371) = lu(k,1371) - lu(k,1084) * lu(k,1353) - lu(k,1396) = lu(k,1396) - lu(k,1067) * lu(k,1395) - lu(k,1397) = lu(k,1397) - lu(k,1068) * lu(k,1395) - lu(k,1398) = lu(k,1398) - lu(k,1069) * lu(k,1395) - lu(k,1399) = lu(k,1399) - lu(k,1070) * lu(k,1395) - lu(k,1400) = lu(k,1400) - lu(k,1071) * lu(k,1395) - lu(k,1401) = lu(k,1401) - lu(k,1072) * lu(k,1395) - lu(k,1402) = lu(k,1402) - lu(k,1073) * lu(k,1395) - lu(k,1403) = lu(k,1403) - lu(k,1074) * lu(k,1395) - lu(k,1404) = lu(k,1404) - lu(k,1075) * lu(k,1395) - lu(k,1405) = lu(k,1405) - lu(k,1076) * lu(k,1395) - lu(k,1406) = lu(k,1406) - lu(k,1077) * lu(k,1395) - lu(k,1407) = lu(k,1407) - lu(k,1078) * lu(k,1395) - lu(k,1408) = lu(k,1408) - lu(k,1079) * lu(k,1395) - lu(k,1409) = lu(k,1409) - lu(k,1080) * lu(k,1395) - lu(k,1410) = lu(k,1410) - lu(k,1081) * lu(k,1395) - lu(k,1411) = lu(k,1411) - lu(k,1082) * lu(k,1395) - lu(k,1412) = lu(k,1412) - lu(k,1083) * lu(k,1395) - lu(k,1413) = lu(k,1413) - lu(k,1084) * lu(k,1395) - lu(k,1434) = lu(k,1434) - lu(k,1067) * lu(k,1433) - lu(k,1435) = lu(k,1435) - lu(k,1068) * lu(k,1433) - lu(k,1436) = lu(k,1436) - lu(k,1069) * lu(k,1433) - lu(k,1437) = lu(k,1437) - lu(k,1070) * lu(k,1433) - lu(k,1438) = lu(k,1438) - lu(k,1071) * lu(k,1433) - lu(k,1439) = lu(k,1439) - lu(k,1072) * lu(k,1433) - lu(k,1440) = lu(k,1440) - lu(k,1073) * lu(k,1433) - lu(k,1441) = lu(k,1441) - lu(k,1074) * lu(k,1433) - lu(k,1442) = lu(k,1442) - lu(k,1075) * lu(k,1433) - lu(k,1443) = lu(k,1443) - lu(k,1076) * lu(k,1433) - lu(k,1444) = lu(k,1444) - lu(k,1077) * lu(k,1433) - lu(k,1445) = lu(k,1445) - lu(k,1078) * lu(k,1433) - lu(k,1446) = lu(k,1446) - lu(k,1079) * lu(k,1433) - lu(k,1447) = lu(k,1447) - lu(k,1080) * lu(k,1433) - lu(k,1448) = lu(k,1448) - lu(k,1081) * lu(k,1433) - lu(k,1449) = lu(k,1449) - lu(k,1082) * lu(k,1433) - lu(k,1450) = lu(k,1450) - lu(k,1083) * lu(k,1433) - lu(k,1451) = lu(k,1451) - lu(k,1084) * lu(k,1433) - lu(k,1479) = lu(k,1479) - lu(k,1067) * lu(k,1478) - lu(k,1480) = lu(k,1480) - lu(k,1068) * lu(k,1478) - lu(k,1481) = lu(k,1481) - lu(k,1069) * lu(k,1478) - lu(k,1482) = lu(k,1482) - lu(k,1070) * lu(k,1478) - lu(k,1483) = lu(k,1483) - lu(k,1071) * lu(k,1478) - lu(k,1484) = lu(k,1484) - lu(k,1072) * lu(k,1478) - lu(k,1485) = lu(k,1485) - lu(k,1073) * lu(k,1478) - lu(k,1486) = lu(k,1486) - lu(k,1074) * lu(k,1478) - lu(k,1487) = lu(k,1487) - lu(k,1075) * lu(k,1478) - lu(k,1488) = lu(k,1488) - lu(k,1076) * lu(k,1478) - lu(k,1489) = lu(k,1489) - lu(k,1077) * lu(k,1478) - lu(k,1490) = lu(k,1490) - lu(k,1078) * lu(k,1478) - lu(k,1491) = lu(k,1491) - lu(k,1079) * lu(k,1478) - lu(k,1492) = lu(k,1492) - lu(k,1080) * lu(k,1478) - lu(k,1493) = lu(k,1493) - lu(k,1081) * lu(k,1478) - lu(k,1494) = lu(k,1494) - lu(k,1082) * lu(k,1478) - lu(k,1495) = lu(k,1495) - lu(k,1083) * lu(k,1478) - lu(k,1496) = lu(k,1496) - lu(k,1084) * lu(k,1478) - lu(k,1522) = lu(k,1522) - lu(k,1067) * lu(k,1521) - lu(k,1523) = lu(k,1523) - lu(k,1068) * lu(k,1521) - lu(k,1524) = lu(k,1524) - lu(k,1069) * lu(k,1521) - lu(k,1525) = lu(k,1525) - lu(k,1070) * lu(k,1521) - lu(k,1526) = lu(k,1526) - lu(k,1071) * lu(k,1521) - lu(k,1527) = lu(k,1527) - lu(k,1072) * lu(k,1521) - lu(k,1528) = lu(k,1528) - lu(k,1073) * lu(k,1521) - lu(k,1529) = lu(k,1529) - lu(k,1074) * lu(k,1521) - lu(k,1530) = lu(k,1530) - lu(k,1075) * lu(k,1521) - lu(k,1531) = lu(k,1531) - lu(k,1076) * lu(k,1521) - lu(k,1532) = lu(k,1532) - lu(k,1077) * lu(k,1521) - lu(k,1533) = lu(k,1533) - lu(k,1078) * lu(k,1521) - lu(k,1534) = lu(k,1534) - lu(k,1079) * lu(k,1521) - lu(k,1535) = lu(k,1535) - lu(k,1080) * lu(k,1521) - lu(k,1536) = lu(k,1536) - lu(k,1081) * lu(k,1521) - lu(k,1537) = lu(k,1537) - lu(k,1082) * lu(k,1521) - lu(k,1538) = lu(k,1538) - lu(k,1083) * lu(k,1521) - lu(k,1539) = lu(k,1539) - lu(k,1084) * lu(k,1521) - lu(k,1565) = lu(k,1565) - lu(k,1067) * lu(k,1564) - lu(k,1566) = lu(k,1566) - lu(k,1068) * lu(k,1564) - lu(k,1567) = lu(k,1567) - lu(k,1069) * lu(k,1564) - lu(k,1568) = lu(k,1568) - lu(k,1070) * lu(k,1564) - lu(k,1569) = lu(k,1569) - lu(k,1071) * lu(k,1564) - lu(k,1570) = lu(k,1570) - lu(k,1072) * lu(k,1564) - lu(k,1571) = lu(k,1571) - lu(k,1073) * lu(k,1564) - lu(k,1572) = lu(k,1572) - lu(k,1074) * lu(k,1564) - lu(k,1573) = lu(k,1573) - lu(k,1075) * lu(k,1564) - lu(k,1574) = lu(k,1574) - lu(k,1076) * lu(k,1564) - lu(k,1575) = lu(k,1575) - lu(k,1077) * lu(k,1564) - lu(k,1576) = lu(k,1576) - lu(k,1078) * lu(k,1564) - lu(k,1577) = lu(k,1577) - lu(k,1079) * lu(k,1564) - lu(k,1578) = lu(k,1578) - lu(k,1080) * lu(k,1564) - lu(k,1579) = lu(k,1579) - lu(k,1081) * lu(k,1564) - lu(k,1580) = lu(k,1580) - lu(k,1082) * lu(k,1564) - lu(k,1581) = lu(k,1581) - lu(k,1083) * lu(k,1564) - lu(k,1582) = lu(k,1582) - lu(k,1084) * lu(k,1564) - lu(k,1598) = lu(k,1598) - lu(k,1067) * lu(k,1597) - lu(k,1599) = lu(k,1599) - lu(k,1068) * lu(k,1597) - lu(k,1600) = lu(k,1600) - lu(k,1069) * lu(k,1597) - lu(k,1601) = lu(k,1601) - lu(k,1070) * lu(k,1597) - lu(k,1602) = lu(k,1602) - lu(k,1071) * lu(k,1597) - lu(k,1603) = lu(k,1603) - lu(k,1072) * lu(k,1597) - lu(k,1604) = lu(k,1604) - lu(k,1073) * lu(k,1597) - lu(k,1605) = lu(k,1605) - lu(k,1074) * lu(k,1597) - lu(k,1606) = lu(k,1606) - lu(k,1075) * lu(k,1597) - lu(k,1607) = lu(k,1607) - lu(k,1076) * lu(k,1597) - lu(k,1608) = lu(k,1608) - lu(k,1077) * lu(k,1597) - lu(k,1609) = lu(k,1609) - lu(k,1078) * lu(k,1597) - lu(k,1610) = lu(k,1610) - lu(k,1079) * lu(k,1597) - lu(k,1611) = lu(k,1611) - lu(k,1080) * lu(k,1597) - lu(k,1612) = lu(k,1612) - lu(k,1081) * lu(k,1597) - lu(k,1613) = lu(k,1613) - lu(k,1082) * lu(k,1597) - lu(k,1614) = lu(k,1614) - lu(k,1083) * lu(k,1597) - lu(k,1615) = lu(k,1615) - lu(k,1084) * lu(k,1597) - lu(k,1634) = lu(k,1634) - lu(k,1067) * lu(k,1633) - lu(k,1635) = lu(k,1635) - lu(k,1068) * lu(k,1633) - lu(k,1636) = lu(k,1636) - lu(k,1069) * lu(k,1633) - lu(k,1637) = lu(k,1637) - lu(k,1070) * lu(k,1633) - lu(k,1638) = lu(k,1638) - lu(k,1071) * lu(k,1633) - lu(k,1639) = lu(k,1639) - lu(k,1072) * lu(k,1633) - lu(k,1640) = lu(k,1640) - lu(k,1073) * lu(k,1633) - lu(k,1641) = lu(k,1641) - lu(k,1074) * lu(k,1633) - lu(k,1642) = lu(k,1642) - lu(k,1075) * lu(k,1633) - lu(k,1643) = lu(k,1643) - lu(k,1076) * lu(k,1633) - lu(k,1644) = lu(k,1644) - lu(k,1077) * lu(k,1633) - lu(k,1645) = lu(k,1645) - lu(k,1078) * lu(k,1633) - lu(k,1646) = lu(k,1646) - lu(k,1079) * lu(k,1633) - lu(k,1647) = lu(k,1647) - lu(k,1080) * lu(k,1633) - lu(k,1648) = lu(k,1648) - lu(k,1081) * lu(k,1633) - lu(k,1649) = lu(k,1649) - lu(k,1082) * lu(k,1633) - lu(k,1650) = lu(k,1650) - lu(k,1083) * lu(k,1633) - lu(k,1651) = lu(k,1651) - lu(k,1084) * lu(k,1633) - lu(k,1677) = lu(k,1677) - lu(k,1067) * lu(k,1676) - lu(k,1678) = lu(k,1678) - lu(k,1068) * lu(k,1676) - lu(k,1679) = lu(k,1679) - lu(k,1069) * lu(k,1676) - lu(k,1680) = lu(k,1680) - lu(k,1070) * lu(k,1676) - lu(k,1681) = lu(k,1681) - lu(k,1071) * lu(k,1676) - lu(k,1682) = lu(k,1682) - lu(k,1072) * lu(k,1676) - lu(k,1683) = lu(k,1683) - lu(k,1073) * lu(k,1676) - lu(k,1684) = lu(k,1684) - lu(k,1074) * lu(k,1676) - lu(k,1685) = lu(k,1685) - lu(k,1075) * lu(k,1676) - lu(k,1686) = lu(k,1686) - lu(k,1076) * lu(k,1676) - lu(k,1687) = lu(k,1687) - lu(k,1077) * lu(k,1676) - lu(k,1688) = lu(k,1688) - lu(k,1078) * lu(k,1676) - lu(k,1689) = lu(k,1689) - lu(k,1079) * lu(k,1676) - lu(k,1690) = lu(k,1690) - lu(k,1080) * lu(k,1676) - lu(k,1691) = lu(k,1691) - lu(k,1081) * lu(k,1676) - lu(k,1692) = lu(k,1692) - lu(k,1082) * lu(k,1676) - lu(k,1693) = lu(k,1693) - lu(k,1083) * lu(k,1676) - lu(k,1694) = lu(k,1694) - lu(k,1084) * lu(k,1676) - lu(k,1713) = lu(k,1713) - lu(k,1067) * lu(k,1712) - lu(k,1714) = lu(k,1714) - lu(k,1068) * lu(k,1712) - lu(k,1715) = lu(k,1715) - lu(k,1069) * lu(k,1712) - lu(k,1716) = lu(k,1716) - lu(k,1070) * lu(k,1712) - lu(k,1717) = lu(k,1717) - lu(k,1071) * lu(k,1712) - lu(k,1718) = lu(k,1718) - lu(k,1072) * lu(k,1712) - lu(k,1719) = lu(k,1719) - lu(k,1073) * lu(k,1712) - lu(k,1720) = lu(k,1720) - lu(k,1074) * lu(k,1712) - lu(k,1721) = lu(k,1721) - lu(k,1075) * lu(k,1712) - lu(k,1722) = lu(k,1722) - lu(k,1076) * lu(k,1712) - lu(k,1723) = lu(k,1723) - lu(k,1077) * lu(k,1712) - lu(k,1724) = lu(k,1724) - lu(k,1078) * lu(k,1712) - lu(k,1725) = lu(k,1725) - lu(k,1079) * lu(k,1712) - lu(k,1726) = lu(k,1726) - lu(k,1080) * lu(k,1712) - lu(k,1727) = lu(k,1727) - lu(k,1081) * lu(k,1712) - lu(k,1728) = lu(k,1728) - lu(k,1082) * lu(k,1712) - lu(k,1729) = lu(k,1729) - lu(k,1083) * lu(k,1712) - lu(k,1730) = lu(k,1730) - lu(k,1084) * lu(k,1712) - lu(k,1755) = lu(k,1755) - lu(k,1067) * lu(k,1754) - lu(k,1756) = lu(k,1756) - lu(k,1068) * lu(k,1754) - lu(k,1757) = lu(k,1757) - lu(k,1069) * lu(k,1754) - lu(k,1758) = lu(k,1758) - lu(k,1070) * lu(k,1754) - lu(k,1759) = lu(k,1759) - lu(k,1071) * lu(k,1754) - lu(k,1760) = lu(k,1760) - lu(k,1072) * lu(k,1754) - lu(k,1761) = lu(k,1761) - lu(k,1073) * lu(k,1754) - lu(k,1762) = lu(k,1762) - lu(k,1074) * lu(k,1754) - lu(k,1763) = lu(k,1763) - lu(k,1075) * lu(k,1754) - lu(k,1764) = lu(k,1764) - lu(k,1076) * lu(k,1754) - lu(k,1765) = lu(k,1765) - lu(k,1077) * lu(k,1754) - lu(k,1766) = lu(k,1766) - lu(k,1078) * lu(k,1754) - lu(k,1767) = lu(k,1767) - lu(k,1079) * lu(k,1754) - lu(k,1768) = lu(k,1768) - lu(k,1080) * lu(k,1754) - lu(k,1769) = lu(k,1769) - lu(k,1081) * lu(k,1754) - lu(k,1770) = lu(k,1770) - lu(k,1082) * lu(k,1754) - lu(k,1771) = lu(k,1771) - lu(k,1083) * lu(k,1754) - lu(k,1772) = lu(k,1772) - lu(k,1084) * lu(k,1754) - lu(k,1808) = lu(k,1808) - lu(k,1067) * lu(k,1807) - lu(k,1809) = lu(k,1809) - lu(k,1068) * lu(k,1807) - lu(k,1810) = lu(k,1810) - lu(k,1069) * lu(k,1807) - lu(k,1811) = lu(k,1811) - lu(k,1070) * lu(k,1807) - lu(k,1812) = lu(k,1812) - lu(k,1071) * lu(k,1807) - lu(k,1813) = lu(k,1813) - lu(k,1072) * lu(k,1807) - lu(k,1814) = lu(k,1814) - lu(k,1073) * lu(k,1807) - lu(k,1815) = lu(k,1815) - lu(k,1074) * lu(k,1807) - lu(k,1816) = lu(k,1816) - lu(k,1075) * lu(k,1807) - lu(k,1817) = lu(k,1817) - lu(k,1076) * lu(k,1807) - lu(k,1818) = lu(k,1818) - lu(k,1077) * lu(k,1807) - lu(k,1819) = lu(k,1819) - lu(k,1078) * lu(k,1807) - lu(k,1820) = lu(k,1820) - lu(k,1079) * lu(k,1807) - lu(k,1821) = lu(k,1821) - lu(k,1080) * lu(k,1807) - lu(k,1822) = lu(k,1822) - lu(k,1081) * lu(k,1807) - lu(k,1823) = lu(k,1823) - lu(k,1082) * lu(k,1807) - lu(k,1824) = lu(k,1824) - lu(k,1083) * lu(k,1807) - lu(k,1825) = lu(k,1825) - lu(k,1084) * lu(k,1807) - 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,1117) = lu(k,1117) * lu(k,1107) - lu(k,1118) = lu(k,1118) * lu(k,1107) - lu(k,1119) = lu(k,1119) * lu(k,1107) - lu(k,1120) = lu(k,1120) * lu(k,1107) - lu(k,1121) = lu(k,1121) * lu(k,1107) - lu(k,1122) = lu(k,1122) * lu(k,1107) - lu(k,1123) = lu(k,1123) * lu(k,1107) - lu(k,1124) = lu(k,1124) * lu(k,1107) - lu(k,1153) = lu(k,1153) - lu(k,1108) * lu(k,1152) - lu(k,1154) = lu(k,1154) - lu(k,1109) * lu(k,1152) - lu(k,1155) = lu(k,1155) - lu(k,1110) * lu(k,1152) - lu(k,1156) = lu(k,1156) - lu(k,1111) * lu(k,1152) - lu(k,1157) = lu(k,1157) - lu(k,1112) * lu(k,1152) - lu(k,1158) = lu(k,1158) - lu(k,1113) * lu(k,1152) - lu(k,1159) = lu(k,1159) - lu(k,1114) * lu(k,1152) - lu(k,1160) = lu(k,1160) - lu(k,1115) * lu(k,1152) - lu(k,1161) = lu(k,1161) - lu(k,1116) * lu(k,1152) - lu(k,1162) = lu(k,1162) - lu(k,1117) * lu(k,1152) - lu(k,1163) = lu(k,1163) - lu(k,1118) * lu(k,1152) - lu(k,1164) = lu(k,1164) - lu(k,1119) * lu(k,1152) - lu(k,1165) = lu(k,1165) - lu(k,1120) * lu(k,1152) - lu(k,1166) = lu(k,1166) - lu(k,1121) * lu(k,1152) - lu(k,1167) = lu(k,1167) - lu(k,1122) * lu(k,1152) - lu(k,1168) = lu(k,1168) - lu(k,1123) * lu(k,1152) - lu(k,1169) = lu(k,1169) - lu(k,1124) * lu(k,1152) - lu(k,1196) = lu(k,1196) - lu(k,1108) * lu(k,1195) - lu(k,1197) = lu(k,1197) - lu(k,1109) * lu(k,1195) - lu(k,1198) = lu(k,1198) - lu(k,1110) * lu(k,1195) - lu(k,1199) = lu(k,1199) - lu(k,1111) * lu(k,1195) - lu(k,1200) = lu(k,1200) - lu(k,1112) * lu(k,1195) - lu(k,1201) = lu(k,1201) - lu(k,1113) * lu(k,1195) - lu(k,1202) = lu(k,1202) - lu(k,1114) * lu(k,1195) - lu(k,1203) = lu(k,1203) - lu(k,1115) * lu(k,1195) - lu(k,1204) = lu(k,1204) - lu(k,1116) * lu(k,1195) - lu(k,1205) = lu(k,1205) - lu(k,1117) * lu(k,1195) - lu(k,1206) = lu(k,1206) - lu(k,1118) * lu(k,1195) - lu(k,1207) = lu(k,1207) - lu(k,1119) * lu(k,1195) - lu(k,1208) = lu(k,1208) - lu(k,1120) * lu(k,1195) - lu(k,1209) = lu(k,1209) - lu(k,1121) * lu(k,1195) - lu(k,1210) = lu(k,1210) - lu(k,1122) * lu(k,1195) - lu(k,1211) = lu(k,1211) - lu(k,1123) * lu(k,1195) - lu(k,1212) = lu(k,1212) - lu(k,1124) * lu(k,1195) - lu(k,1231) = lu(k,1231) - lu(k,1108) * lu(k,1230) - lu(k,1232) = lu(k,1232) - lu(k,1109) * lu(k,1230) - lu(k,1233) = lu(k,1233) - lu(k,1110) * lu(k,1230) - lu(k,1234) = lu(k,1234) - lu(k,1111) * lu(k,1230) - lu(k,1235) = lu(k,1235) - lu(k,1112) * lu(k,1230) - lu(k,1236) = lu(k,1236) - lu(k,1113) * lu(k,1230) - lu(k,1237) = lu(k,1237) - lu(k,1114) * lu(k,1230) - lu(k,1238) = lu(k,1238) - lu(k,1115) * lu(k,1230) - lu(k,1239) = lu(k,1239) - lu(k,1116) * lu(k,1230) - lu(k,1240) = lu(k,1240) - lu(k,1117) * lu(k,1230) - lu(k,1241) = lu(k,1241) - lu(k,1118) * lu(k,1230) - lu(k,1242) = lu(k,1242) - lu(k,1119) * lu(k,1230) - lu(k,1243) = lu(k,1243) - lu(k,1120) * lu(k,1230) - lu(k,1244) = lu(k,1244) - lu(k,1121) * lu(k,1230) - lu(k,1245) = lu(k,1245) - lu(k,1122) * lu(k,1230) - lu(k,1246) = lu(k,1246) - lu(k,1123) * lu(k,1230) - lu(k,1247) = lu(k,1247) - lu(k,1124) * lu(k,1230) - lu(k,1274) = lu(k,1274) - lu(k,1108) * lu(k,1273) - lu(k,1275) = lu(k,1275) - lu(k,1109) * lu(k,1273) - lu(k,1276) = lu(k,1276) - lu(k,1110) * lu(k,1273) - lu(k,1277) = lu(k,1277) - lu(k,1111) * lu(k,1273) - lu(k,1278) = lu(k,1278) - lu(k,1112) * lu(k,1273) - lu(k,1279) = lu(k,1279) - lu(k,1113) * lu(k,1273) - lu(k,1280) = lu(k,1280) - lu(k,1114) * lu(k,1273) - lu(k,1281) = lu(k,1281) - lu(k,1115) * lu(k,1273) - lu(k,1282) = lu(k,1282) - lu(k,1116) * lu(k,1273) - lu(k,1283) = lu(k,1283) - lu(k,1117) * lu(k,1273) - lu(k,1284) = lu(k,1284) - lu(k,1118) * lu(k,1273) - lu(k,1285) = lu(k,1285) - lu(k,1119) * lu(k,1273) - lu(k,1286) = lu(k,1286) - lu(k,1120) * lu(k,1273) - lu(k,1287) = lu(k,1287) - lu(k,1121) * lu(k,1273) - lu(k,1288) = lu(k,1288) - lu(k,1122) * lu(k,1273) - lu(k,1289) = lu(k,1289) - lu(k,1123) * lu(k,1273) - lu(k,1290) = lu(k,1290) - lu(k,1124) * lu(k,1273) - lu(k,1310) = lu(k,1310) - lu(k,1108) * lu(k,1309) - lu(k,1311) = lu(k,1311) - lu(k,1109) * lu(k,1309) - lu(k,1312) = lu(k,1312) - lu(k,1110) * lu(k,1309) - lu(k,1313) = lu(k,1313) - lu(k,1111) * lu(k,1309) - lu(k,1314) = lu(k,1314) - lu(k,1112) * lu(k,1309) - lu(k,1315) = lu(k,1315) - lu(k,1113) * lu(k,1309) - lu(k,1316) = lu(k,1316) - lu(k,1114) * lu(k,1309) - lu(k,1317) = lu(k,1317) - lu(k,1115) * lu(k,1309) - lu(k,1318) = lu(k,1318) - lu(k,1116) * lu(k,1309) - lu(k,1319) = lu(k,1319) - lu(k,1117) * lu(k,1309) - lu(k,1320) = lu(k,1320) - lu(k,1118) * lu(k,1309) - lu(k,1321) = lu(k,1321) - lu(k,1119) * lu(k,1309) - lu(k,1322) = lu(k,1322) - lu(k,1120) * lu(k,1309) - lu(k,1323) = lu(k,1323) - lu(k,1121) * lu(k,1309) - lu(k,1324) = lu(k,1324) - lu(k,1122) * lu(k,1309) - lu(k,1325) = lu(k,1325) - lu(k,1123) * lu(k,1309) - lu(k,1326) = lu(k,1326) - lu(k,1124) * lu(k,1309) - lu(k,1355) = lu(k,1355) - lu(k,1108) * lu(k,1354) - lu(k,1356) = lu(k,1356) - lu(k,1109) * lu(k,1354) - lu(k,1357) = lu(k,1357) - lu(k,1110) * lu(k,1354) - lu(k,1358) = lu(k,1358) - lu(k,1111) * lu(k,1354) - lu(k,1359) = lu(k,1359) - lu(k,1112) * lu(k,1354) - lu(k,1360) = lu(k,1360) - lu(k,1113) * lu(k,1354) - lu(k,1361) = lu(k,1361) - lu(k,1114) * lu(k,1354) - lu(k,1362) = lu(k,1362) - lu(k,1115) * lu(k,1354) - lu(k,1363) = lu(k,1363) - lu(k,1116) * lu(k,1354) - lu(k,1364) = lu(k,1364) - lu(k,1117) * lu(k,1354) - lu(k,1365) = lu(k,1365) - lu(k,1118) * lu(k,1354) - lu(k,1366) = lu(k,1366) - lu(k,1119) * lu(k,1354) - lu(k,1367) = lu(k,1367) - lu(k,1120) * lu(k,1354) - lu(k,1368) = lu(k,1368) - lu(k,1121) * lu(k,1354) - lu(k,1369) = lu(k,1369) - lu(k,1122) * lu(k,1354) - lu(k,1370) = lu(k,1370) - lu(k,1123) * lu(k,1354) - lu(k,1371) = lu(k,1371) - lu(k,1124) * lu(k,1354) - lu(k,1397) = lu(k,1397) - lu(k,1108) * lu(k,1396) - lu(k,1398) = lu(k,1398) - lu(k,1109) * lu(k,1396) - lu(k,1399) = lu(k,1399) - lu(k,1110) * lu(k,1396) - lu(k,1400) = lu(k,1400) - lu(k,1111) * lu(k,1396) - lu(k,1401) = lu(k,1401) - lu(k,1112) * lu(k,1396) - lu(k,1402) = lu(k,1402) - lu(k,1113) * lu(k,1396) - lu(k,1403) = lu(k,1403) - lu(k,1114) * lu(k,1396) - lu(k,1404) = lu(k,1404) - lu(k,1115) * lu(k,1396) - lu(k,1405) = lu(k,1405) - lu(k,1116) * lu(k,1396) - lu(k,1406) = lu(k,1406) - lu(k,1117) * lu(k,1396) - lu(k,1407) = lu(k,1407) - lu(k,1118) * lu(k,1396) - lu(k,1408) = lu(k,1408) - lu(k,1119) * lu(k,1396) - lu(k,1409) = lu(k,1409) - lu(k,1120) * lu(k,1396) - lu(k,1410) = lu(k,1410) - lu(k,1121) * lu(k,1396) - lu(k,1411) = lu(k,1411) - lu(k,1122) * lu(k,1396) - lu(k,1412) = lu(k,1412) - lu(k,1123) * lu(k,1396) - lu(k,1413) = lu(k,1413) - lu(k,1124) * lu(k,1396) - lu(k,1435) = lu(k,1435) - lu(k,1108) * lu(k,1434) - lu(k,1436) = lu(k,1436) - lu(k,1109) * lu(k,1434) - lu(k,1437) = lu(k,1437) - lu(k,1110) * lu(k,1434) - lu(k,1438) = lu(k,1438) - lu(k,1111) * lu(k,1434) - lu(k,1439) = lu(k,1439) - lu(k,1112) * lu(k,1434) - lu(k,1440) = lu(k,1440) - lu(k,1113) * lu(k,1434) - lu(k,1441) = lu(k,1441) - lu(k,1114) * lu(k,1434) - lu(k,1442) = lu(k,1442) - lu(k,1115) * lu(k,1434) - lu(k,1443) = lu(k,1443) - lu(k,1116) * lu(k,1434) - lu(k,1444) = lu(k,1444) - lu(k,1117) * lu(k,1434) - lu(k,1445) = lu(k,1445) - lu(k,1118) * lu(k,1434) - lu(k,1446) = lu(k,1446) - lu(k,1119) * lu(k,1434) - lu(k,1447) = lu(k,1447) - lu(k,1120) * lu(k,1434) - lu(k,1448) = lu(k,1448) - lu(k,1121) * lu(k,1434) - lu(k,1449) = lu(k,1449) - lu(k,1122) * lu(k,1434) - lu(k,1450) = lu(k,1450) - lu(k,1123) * lu(k,1434) - lu(k,1451) = lu(k,1451) - lu(k,1124) * lu(k,1434) - lu(k,1480) = lu(k,1480) - lu(k,1108) * lu(k,1479) - lu(k,1481) = lu(k,1481) - lu(k,1109) * lu(k,1479) - lu(k,1482) = lu(k,1482) - lu(k,1110) * lu(k,1479) - lu(k,1483) = lu(k,1483) - lu(k,1111) * lu(k,1479) - lu(k,1484) = lu(k,1484) - lu(k,1112) * lu(k,1479) - lu(k,1485) = lu(k,1485) - lu(k,1113) * lu(k,1479) - lu(k,1486) = lu(k,1486) - lu(k,1114) * lu(k,1479) - lu(k,1487) = lu(k,1487) - lu(k,1115) * lu(k,1479) - lu(k,1488) = lu(k,1488) - lu(k,1116) * lu(k,1479) - lu(k,1489) = lu(k,1489) - lu(k,1117) * lu(k,1479) - lu(k,1490) = lu(k,1490) - lu(k,1118) * lu(k,1479) - lu(k,1491) = lu(k,1491) - lu(k,1119) * lu(k,1479) - lu(k,1492) = lu(k,1492) - lu(k,1120) * lu(k,1479) - lu(k,1493) = lu(k,1493) - lu(k,1121) * lu(k,1479) - lu(k,1494) = lu(k,1494) - lu(k,1122) * lu(k,1479) - lu(k,1495) = lu(k,1495) - lu(k,1123) * lu(k,1479) - lu(k,1496) = lu(k,1496) - lu(k,1124) * lu(k,1479) - lu(k,1523) = lu(k,1523) - lu(k,1108) * lu(k,1522) - lu(k,1524) = lu(k,1524) - lu(k,1109) * lu(k,1522) - lu(k,1525) = lu(k,1525) - lu(k,1110) * lu(k,1522) - lu(k,1526) = lu(k,1526) - lu(k,1111) * lu(k,1522) - lu(k,1527) = lu(k,1527) - lu(k,1112) * lu(k,1522) - lu(k,1528) = lu(k,1528) - lu(k,1113) * lu(k,1522) - lu(k,1529) = lu(k,1529) - lu(k,1114) * lu(k,1522) - lu(k,1530) = lu(k,1530) - lu(k,1115) * lu(k,1522) - lu(k,1531) = lu(k,1531) - lu(k,1116) * lu(k,1522) - lu(k,1532) = lu(k,1532) - lu(k,1117) * lu(k,1522) - lu(k,1533) = lu(k,1533) - lu(k,1118) * lu(k,1522) - lu(k,1534) = lu(k,1534) - lu(k,1119) * lu(k,1522) - lu(k,1535) = lu(k,1535) - lu(k,1120) * lu(k,1522) - lu(k,1536) = lu(k,1536) - lu(k,1121) * lu(k,1522) - lu(k,1537) = lu(k,1537) - lu(k,1122) * lu(k,1522) - lu(k,1538) = lu(k,1538) - lu(k,1123) * lu(k,1522) - lu(k,1539) = lu(k,1539) - lu(k,1124) * lu(k,1522) - lu(k,1566) = lu(k,1566) - lu(k,1108) * lu(k,1565) - lu(k,1567) = lu(k,1567) - lu(k,1109) * lu(k,1565) - lu(k,1568) = lu(k,1568) - lu(k,1110) * lu(k,1565) - lu(k,1569) = lu(k,1569) - lu(k,1111) * lu(k,1565) - lu(k,1570) = lu(k,1570) - lu(k,1112) * lu(k,1565) - lu(k,1571) = lu(k,1571) - lu(k,1113) * lu(k,1565) - lu(k,1572) = lu(k,1572) - lu(k,1114) * lu(k,1565) - lu(k,1573) = lu(k,1573) - lu(k,1115) * lu(k,1565) - lu(k,1574) = lu(k,1574) - lu(k,1116) * lu(k,1565) - lu(k,1575) = lu(k,1575) - lu(k,1117) * lu(k,1565) - lu(k,1576) = lu(k,1576) - lu(k,1118) * lu(k,1565) - lu(k,1577) = lu(k,1577) - lu(k,1119) * lu(k,1565) - lu(k,1578) = lu(k,1578) - lu(k,1120) * lu(k,1565) - lu(k,1579) = lu(k,1579) - lu(k,1121) * lu(k,1565) - lu(k,1580) = lu(k,1580) - lu(k,1122) * lu(k,1565) - lu(k,1581) = lu(k,1581) - lu(k,1123) * lu(k,1565) - lu(k,1582) = lu(k,1582) - lu(k,1124) * lu(k,1565) - lu(k,1599) = lu(k,1599) - lu(k,1108) * lu(k,1598) - lu(k,1600) = lu(k,1600) - lu(k,1109) * lu(k,1598) - lu(k,1601) = lu(k,1601) - lu(k,1110) * lu(k,1598) - lu(k,1602) = lu(k,1602) - lu(k,1111) * lu(k,1598) - lu(k,1603) = lu(k,1603) - lu(k,1112) * lu(k,1598) - lu(k,1604) = lu(k,1604) - lu(k,1113) * lu(k,1598) - lu(k,1605) = lu(k,1605) - lu(k,1114) * lu(k,1598) - lu(k,1606) = lu(k,1606) - lu(k,1115) * lu(k,1598) - lu(k,1607) = lu(k,1607) - lu(k,1116) * lu(k,1598) - lu(k,1608) = lu(k,1608) - lu(k,1117) * lu(k,1598) - lu(k,1609) = lu(k,1609) - lu(k,1118) * lu(k,1598) - lu(k,1610) = lu(k,1610) - lu(k,1119) * lu(k,1598) - lu(k,1611) = lu(k,1611) - lu(k,1120) * lu(k,1598) - lu(k,1612) = lu(k,1612) - lu(k,1121) * lu(k,1598) - lu(k,1613) = lu(k,1613) - lu(k,1122) * lu(k,1598) - lu(k,1614) = lu(k,1614) - lu(k,1123) * lu(k,1598) - lu(k,1615) = lu(k,1615) - lu(k,1124) * lu(k,1598) - lu(k,1635) = lu(k,1635) - lu(k,1108) * lu(k,1634) - lu(k,1636) = lu(k,1636) - lu(k,1109) * lu(k,1634) - lu(k,1637) = lu(k,1637) - lu(k,1110) * lu(k,1634) - lu(k,1638) = lu(k,1638) - lu(k,1111) * lu(k,1634) - lu(k,1639) = lu(k,1639) - lu(k,1112) * lu(k,1634) - lu(k,1640) = lu(k,1640) - lu(k,1113) * lu(k,1634) - lu(k,1641) = lu(k,1641) - lu(k,1114) * lu(k,1634) - lu(k,1642) = lu(k,1642) - lu(k,1115) * lu(k,1634) - lu(k,1643) = lu(k,1643) - lu(k,1116) * lu(k,1634) - lu(k,1644) = lu(k,1644) - lu(k,1117) * lu(k,1634) - lu(k,1645) = lu(k,1645) - lu(k,1118) * lu(k,1634) - lu(k,1646) = lu(k,1646) - lu(k,1119) * lu(k,1634) - lu(k,1647) = lu(k,1647) - lu(k,1120) * lu(k,1634) - lu(k,1648) = lu(k,1648) - lu(k,1121) * lu(k,1634) - lu(k,1649) = lu(k,1649) - lu(k,1122) * lu(k,1634) - lu(k,1650) = lu(k,1650) - lu(k,1123) * lu(k,1634) - lu(k,1651) = lu(k,1651) - lu(k,1124) * lu(k,1634) - lu(k,1678) = lu(k,1678) - lu(k,1108) * lu(k,1677) - lu(k,1679) = lu(k,1679) - lu(k,1109) * lu(k,1677) - lu(k,1680) = lu(k,1680) - lu(k,1110) * lu(k,1677) - lu(k,1681) = lu(k,1681) - lu(k,1111) * lu(k,1677) - lu(k,1682) = lu(k,1682) - lu(k,1112) * lu(k,1677) - lu(k,1683) = lu(k,1683) - lu(k,1113) * lu(k,1677) - lu(k,1684) = lu(k,1684) - lu(k,1114) * lu(k,1677) - lu(k,1685) = lu(k,1685) - lu(k,1115) * lu(k,1677) - lu(k,1686) = lu(k,1686) - lu(k,1116) * lu(k,1677) - lu(k,1687) = lu(k,1687) - lu(k,1117) * lu(k,1677) - lu(k,1688) = lu(k,1688) - lu(k,1118) * lu(k,1677) - lu(k,1689) = lu(k,1689) - lu(k,1119) * lu(k,1677) - lu(k,1690) = lu(k,1690) - lu(k,1120) * lu(k,1677) - lu(k,1691) = lu(k,1691) - lu(k,1121) * lu(k,1677) - lu(k,1692) = lu(k,1692) - lu(k,1122) * lu(k,1677) - lu(k,1693) = lu(k,1693) - lu(k,1123) * lu(k,1677) - lu(k,1694) = lu(k,1694) - lu(k,1124) * lu(k,1677) - lu(k,1714) = lu(k,1714) - lu(k,1108) * lu(k,1713) - lu(k,1715) = lu(k,1715) - lu(k,1109) * lu(k,1713) - lu(k,1716) = lu(k,1716) - lu(k,1110) * lu(k,1713) - lu(k,1717) = lu(k,1717) - lu(k,1111) * lu(k,1713) - lu(k,1718) = lu(k,1718) - lu(k,1112) * lu(k,1713) - lu(k,1719) = lu(k,1719) - lu(k,1113) * lu(k,1713) - lu(k,1720) = lu(k,1720) - lu(k,1114) * lu(k,1713) - lu(k,1721) = lu(k,1721) - lu(k,1115) * lu(k,1713) - lu(k,1722) = lu(k,1722) - lu(k,1116) * lu(k,1713) - lu(k,1723) = lu(k,1723) - lu(k,1117) * lu(k,1713) - lu(k,1724) = lu(k,1724) - lu(k,1118) * lu(k,1713) - lu(k,1725) = lu(k,1725) - lu(k,1119) * lu(k,1713) - lu(k,1726) = lu(k,1726) - lu(k,1120) * lu(k,1713) - lu(k,1727) = lu(k,1727) - lu(k,1121) * lu(k,1713) - lu(k,1728) = lu(k,1728) - lu(k,1122) * lu(k,1713) - lu(k,1729) = lu(k,1729) - lu(k,1123) * lu(k,1713) - lu(k,1730) = lu(k,1730) - lu(k,1124) * lu(k,1713) - lu(k,1756) = lu(k,1756) - lu(k,1108) * lu(k,1755) - lu(k,1757) = lu(k,1757) - lu(k,1109) * lu(k,1755) - lu(k,1758) = lu(k,1758) - lu(k,1110) * lu(k,1755) - lu(k,1759) = lu(k,1759) - lu(k,1111) * lu(k,1755) - lu(k,1760) = lu(k,1760) - lu(k,1112) * lu(k,1755) - lu(k,1761) = lu(k,1761) - lu(k,1113) * lu(k,1755) - lu(k,1762) = lu(k,1762) - lu(k,1114) * lu(k,1755) - lu(k,1763) = lu(k,1763) - lu(k,1115) * lu(k,1755) - lu(k,1764) = lu(k,1764) - lu(k,1116) * lu(k,1755) - lu(k,1765) = lu(k,1765) - lu(k,1117) * lu(k,1755) - lu(k,1766) = lu(k,1766) - lu(k,1118) * lu(k,1755) - lu(k,1767) = lu(k,1767) - lu(k,1119) * lu(k,1755) - lu(k,1768) = lu(k,1768) - lu(k,1120) * lu(k,1755) - lu(k,1769) = lu(k,1769) - lu(k,1121) * lu(k,1755) - lu(k,1770) = lu(k,1770) - lu(k,1122) * lu(k,1755) - lu(k,1771) = lu(k,1771) - lu(k,1123) * lu(k,1755) - lu(k,1772) = lu(k,1772) - lu(k,1124) * lu(k,1755) - lu(k,1809) = lu(k,1809) - lu(k,1108) * lu(k,1808) - lu(k,1810) = lu(k,1810) - lu(k,1109) * lu(k,1808) - lu(k,1811) = lu(k,1811) - lu(k,1110) * lu(k,1808) - lu(k,1812) = lu(k,1812) - lu(k,1111) * lu(k,1808) - lu(k,1813) = lu(k,1813) - lu(k,1112) * lu(k,1808) - lu(k,1814) = lu(k,1814) - lu(k,1113) * lu(k,1808) - lu(k,1815) = lu(k,1815) - lu(k,1114) * lu(k,1808) - lu(k,1816) = lu(k,1816) - lu(k,1115) * lu(k,1808) - lu(k,1817) = lu(k,1817) - lu(k,1116) * lu(k,1808) - lu(k,1818) = lu(k,1818) - lu(k,1117) * lu(k,1808) - lu(k,1819) = lu(k,1819) - lu(k,1118) * lu(k,1808) - lu(k,1820) = lu(k,1820) - lu(k,1119) * lu(k,1808) - lu(k,1821) = lu(k,1821) - lu(k,1120) * lu(k,1808) - lu(k,1822) = lu(k,1822) - lu(k,1121) * lu(k,1808) - lu(k,1823) = lu(k,1823) - lu(k,1122) * lu(k,1808) - lu(k,1824) = lu(k,1824) - lu(k,1123) * lu(k,1808) - lu(k,1825) = lu(k,1825) - lu(k,1124) * lu(k,1808) - end do + real(r8), intent(inout) :: lu(:) + lu(1026) = 1._r8 / lu(1026) + lu(1027) = lu(1027) * lu(1026) + lu(1028) = lu(1028) * lu(1026) + lu(1029) = lu(1029) * lu(1026) + lu(1030) = lu(1030) * lu(1026) + lu(1031) = lu(1031) * lu(1026) + lu(1032) = lu(1032) * lu(1026) + lu(1033) = lu(1033) * lu(1026) + lu(1034) = lu(1034) * lu(1026) + lu(1035) = lu(1035) * lu(1026) + lu(1036) = lu(1036) * lu(1026) + lu(1037) = lu(1037) * lu(1026) + lu(1038) = lu(1038) * lu(1026) + lu(1039) = lu(1039) * lu(1026) + lu(1040) = lu(1040) * lu(1026) + lu(1041) = lu(1041) * lu(1026) + lu(1042) = lu(1042) * lu(1026) + lu(1043) = lu(1043) * lu(1026) + lu(1071) = lu(1071) - lu(1027) * lu(1070) + lu(1072) = lu(1072) - lu(1028) * lu(1070) + lu(1073) = lu(1073) - lu(1029) * lu(1070) + lu(1074) = lu(1074) - lu(1030) * lu(1070) + lu(1075) = lu(1075) - lu(1031) * lu(1070) + lu(1076) = lu(1076) - lu(1032) * lu(1070) + lu(1077) = lu(1077) - lu(1033) * lu(1070) + lu(1078) = lu(1078) - lu(1034) * lu(1070) + lu(1079) = lu(1079) - lu(1035) * lu(1070) + lu(1080) = lu(1080) - lu(1036) * lu(1070) + lu(1081) = lu(1081) - lu(1037) * lu(1070) + lu(1082) = lu(1082) - lu(1038) * lu(1070) + lu(1083) = lu(1083) - lu(1039) * lu(1070) + lu(1084) = lu(1084) - lu(1040) * lu(1070) + lu(1085) = lu(1085) - lu(1041) * lu(1070) + lu(1086) = lu(1086) - lu(1042) * lu(1070) + lu(1087) = lu(1087) - lu(1043) * lu(1070) + lu(1113) = lu(1113) - lu(1027) * lu(1112) + lu(1114) = lu(1114) - lu(1028) * lu(1112) + lu(1115) = lu(1115) - lu(1029) * lu(1112) + lu(1116) = lu(1116) - lu(1030) * lu(1112) + lu(1117) = lu(1117) - lu(1031) * lu(1112) + lu(1118) = lu(1118) - lu(1032) * lu(1112) + lu(1119) = lu(1119) - lu(1033) * lu(1112) + lu(1120) = lu(1120) - lu(1034) * lu(1112) + lu(1121) = lu(1121) - lu(1035) * lu(1112) + lu(1122) = lu(1122) - lu(1036) * lu(1112) + lu(1123) = lu(1123) - lu(1037) * lu(1112) + lu(1124) = lu(1124) - lu(1038) * lu(1112) + lu(1125) = lu(1125) - lu(1039) * lu(1112) + lu(1126) = lu(1126) - lu(1040) * lu(1112) + lu(1127) = lu(1127) - lu(1041) * lu(1112) + lu(1128) = lu(1128) - lu(1042) * lu(1112) + lu(1129) = lu(1129) - lu(1043) * lu(1112) + lu(1156) = lu(1156) - lu(1027) * lu(1155) + lu(1157) = lu(1157) - lu(1028) * lu(1155) + lu(1158) = lu(1158) - lu(1029) * lu(1155) + lu(1159) = lu(1159) - lu(1030) * lu(1155) + lu(1160) = lu(1160) - lu(1031) * lu(1155) + lu(1161) = lu(1161) - lu(1032) * lu(1155) + lu(1162) = lu(1162) - lu(1033) * lu(1155) + lu(1163) = lu(1163) - lu(1034) * lu(1155) + lu(1164) = lu(1164) - lu(1035) * lu(1155) + lu(1165) = lu(1165) - lu(1036) * lu(1155) + lu(1166) = lu(1166) - lu(1037) * lu(1155) + lu(1167) = lu(1167) - lu(1038) * lu(1155) + lu(1168) = lu(1168) - lu(1039) * lu(1155) + lu(1169) = lu(1169) - lu(1040) * lu(1155) + lu(1170) = lu(1170) - lu(1041) * lu(1155) + lu(1171) = lu(1171) - lu(1042) * lu(1155) + lu(1172) = lu(1172) - lu(1043) * lu(1155) + lu(1198) = lu(1198) - lu(1027) * lu(1197) + lu(1199) = lu(1199) - lu(1028) * lu(1197) + lu(1200) = lu(1200) - lu(1029) * lu(1197) + lu(1201) = lu(1201) - lu(1030) * lu(1197) + lu(1202) = lu(1202) - lu(1031) * lu(1197) + lu(1203) = lu(1203) - lu(1032) * lu(1197) + lu(1204) = lu(1204) - lu(1033) * lu(1197) + lu(1205) = lu(1205) - lu(1034) * lu(1197) + lu(1206) = lu(1206) - lu(1035) * lu(1197) + lu(1207) = lu(1207) - lu(1036) * lu(1197) + lu(1208) = lu(1208) - lu(1037) * lu(1197) + lu(1209) = lu(1209) - lu(1038) * lu(1197) + lu(1210) = lu(1210) - lu(1039) * lu(1197) + lu(1211) = lu(1211) - lu(1040) * lu(1197) + lu(1212) = lu(1212) - lu(1041) * lu(1197) + lu(1213) = lu(1213) - lu(1042) * lu(1197) + lu(1214) = lu(1214) - lu(1043) * lu(1197) + lu(1233) = lu(1233) - lu(1027) * lu(1232) + lu(1234) = lu(1234) - lu(1028) * lu(1232) + lu(1235) = lu(1235) - lu(1029) * lu(1232) + lu(1236) = lu(1236) - lu(1030) * lu(1232) + lu(1237) = lu(1237) - lu(1031) * lu(1232) + lu(1238) = lu(1238) - lu(1032) * lu(1232) + lu(1239) = lu(1239) - lu(1033) * lu(1232) + lu(1240) = lu(1240) - lu(1034) * lu(1232) + lu(1241) = lu(1241) - lu(1035) * lu(1232) + lu(1242) = lu(1242) - lu(1036) * lu(1232) + lu(1243) = lu(1243) - lu(1037) * lu(1232) + lu(1244) = lu(1244) - lu(1038) * lu(1232) + lu(1245) = lu(1245) - lu(1039) * lu(1232) + lu(1246) = lu(1246) - lu(1040) * lu(1232) + lu(1247) = lu(1247) - lu(1041) * lu(1232) + lu(1248) = lu(1248) - lu(1042) * lu(1232) + lu(1249) = lu(1249) - lu(1043) * lu(1232) + lu(1277) = lu(1277) - lu(1027) * lu(1276) + lu(1278) = lu(1278) - lu(1028) * lu(1276) + lu(1279) = lu(1279) - lu(1029) * lu(1276) + lu(1280) = lu(1280) - lu(1030) * lu(1276) + lu(1281) = lu(1281) - lu(1031) * lu(1276) + lu(1282) = lu(1282) - lu(1032) * lu(1276) + lu(1283) = lu(1283) - lu(1033) * lu(1276) + lu(1284) = lu(1284) - lu(1034) * lu(1276) + lu(1285) = lu(1285) - lu(1035) * lu(1276) + lu(1286) = lu(1286) - lu(1036) * lu(1276) + lu(1287) = lu(1287) - lu(1037) * lu(1276) + lu(1288) = lu(1288) - lu(1038) * lu(1276) + lu(1289) = lu(1289) - lu(1039) * lu(1276) + lu(1290) = lu(1290) - lu(1040) * lu(1276) + lu(1291) = lu(1291) - lu(1041) * lu(1276) + lu(1292) = lu(1292) - lu(1042) * lu(1276) + lu(1293) = lu(1293) - lu(1043) * lu(1276) + lu(1318) = lu(1318) - lu(1027) * lu(1317) + lu(1319) = lu(1319) - lu(1028) * lu(1317) + lu(1320) = lu(1320) - lu(1029) * lu(1317) + lu(1321) = lu(1321) - lu(1030) * lu(1317) + lu(1322) = lu(1322) - lu(1031) * lu(1317) + lu(1323) = lu(1323) - lu(1032) * lu(1317) + lu(1324) = lu(1324) - lu(1033) * lu(1317) + lu(1325) = lu(1325) - lu(1034) * lu(1317) + lu(1326) = lu(1326) - lu(1035) * lu(1317) + lu(1327) = lu(1327) - lu(1036) * lu(1317) + lu(1328) = lu(1328) - lu(1037) * lu(1317) + lu(1329) = lu(1329) - lu(1038) * lu(1317) + lu(1330) = lu(1330) - lu(1039) * lu(1317) + lu(1331) = lu(1331) - lu(1040) * lu(1317) + lu(1332) = lu(1332) - lu(1041) * lu(1317) + lu(1333) = lu(1333) - lu(1042) * lu(1317) + lu(1334) = lu(1334) - lu(1043) * lu(1317) + lu(1360) = lu(1360) - lu(1027) * lu(1359) + lu(1361) = lu(1361) - lu(1028) * lu(1359) + lu(1362) = lu(1362) - lu(1029) * lu(1359) + lu(1363) = lu(1363) - lu(1030) * lu(1359) + lu(1364) = lu(1364) - lu(1031) * lu(1359) + lu(1365) = lu(1365) - lu(1032) * lu(1359) + lu(1366) = lu(1366) - lu(1033) * lu(1359) + lu(1367) = lu(1367) - lu(1034) * lu(1359) + lu(1368) = lu(1368) - lu(1035) * lu(1359) + lu(1369) = lu(1369) - lu(1036) * lu(1359) + lu(1370) = lu(1370) - lu(1037) * lu(1359) + lu(1371) = lu(1371) - lu(1038) * lu(1359) + lu(1372) = lu(1372) - lu(1039) * lu(1359) + lu(1373) = lu(1373) - lu(1040) * lu(1359) + lu(1374) = lu(1374) - lu(1041) * lu(1359) + lu(1375) = lu(1375) - lu(1042) * lu(1359) + lu(1376) = lu(1376) - lu(1043) * lu(1359) + lu(1402) = lu(1402) - lu(1027) * lu(1401) + lu(1403) = lu(1403) - lu(1028) * lu(1401) + lu(1404) = lu(1404) - lu(1029) * lu(1401) + lu(1405) = lu(1405) - lu(1030) * lu(1401) + lu(1406) = lu(1406) - lu(1031) * lu(1401) + lu(1407) = lu(1407) - lu(1032) * lu(1401) + lu(1408) = lu(1408) - lu(1033) * lu(1401) + lu(1409) = lu(1409) - lu(1034) * lu(1401) + lu(1410) = lu(1410) - lu(1035) * lu(1401) + lu(1411) = lu(1411) - lu(1036) * lu(1401) + lu(1412) = lu(1412) - lu(1037) * lu(1401) + lu(1413) = lu(1413) - lu(1038) * lu(1401) + lu(1414) = lu(1414) - lu(1039) * lu(1401) + lu(1415) = lu(1415) - lu(1040) * lu(1401) + lu(1416) = lu(1416) - lu(1041) * lu(1401) + lu(1417) = lu(1417) - lu(1042) * lu(1401) + lu(1418) = lu(1418) - lu(1043) * lu(1401) + lu(1444) = lu(1444) - lu(1027) * lu(1443) + lu(1445) = lu(1445) - lu(1028) * lu(1443) + lu(1446) = lu(1446) - lu(1029) * lu(1443) + lu(1447) = lu(1447) - lu(1030) * lu(1443) + lu(1448) = lu(1448) - lu(1031) * lu(1443) + lu(1449) = lu(1449) - lu(1032) * lu(1443) + lu(1450) = lu(1450) - lu(1033) * lu(1443) + lu(1451) = lu(1451) - lu(1034) * lu(1443) + lu(1452) = lu(1452) - lu(1035) * lu(1443) + lu(1453) = lu(1453) - lu(1036) * lu(1443) + lu(1454) = lu(1454) - lu(1037) * lu(1443) + lu(1455) = lu(1455) - lu(1038) * lu(1443) + lu(1456) = lu(1456) - lu(1039) * lu(1443) + lu(1457) = lu(1457) - lu(1040) * lu(1443) + lu(1458) = lu(1458) - lu(1041) * lu(1443) + lu(1459) = lu(1459) - lu(1042) * lu(1443) + lu(1460) = lu(1460) - lu(1043) * lu(1443) + lu(1499) = lu(1499) - lu(1027) * lu(1498) + lu(1500) = lu(1500) - lu(1028) * lu(1498) + lu(1501) = lu(1501) - lu(1029) * lu(1498) + lu(1502) = lu(1502) - lu(1030) * lu(1498) + lu(1503) = lu(1503) - lu(1031) * lu(1498) + lu(1504) = lu(1504) - lu(1032) * lu(1498) + lu(1505) = lu(1505) - lu(1033) * lu(1498) + lu(1506) = lu(1506) - lu(1034) * lu(1498) + lu(1507) = lu(1507) - lu(1035) * lu(1498) + lu(1508) = lu(1508) - lu(1036) * lu(1498) + lu(1509) = lu(1509) - lu(1037) * lu(1498) + lu(1510) = lu(1510) - lu(1038) * lu(1498) + lu(1511) = lu(1511) - lu(1039) * lu(1498) + lu(1512) = lu(1512) - lu(1040) * lu(1498) + lu(1513) = lu(1513) - lu(1041) * lu(1498) + lu(1514) = lu(1514) - lu(1042) * lu(1498) + lu(1515) = lu(1515) - lu(1043) * lu(1498) + lu(1531) = lu(1531) - lu(1027) * lu(1530) + lu(1532) = lu(1532) - lu(1028) * lu(1530) + lu(1533) = lu(1533) - lu(1029) * lu(1530) + lu(1534) = lu(1534) - lu(1030) * lu(1530) + lu(1535) = lu(1535) - lu(1031) * lu(1530) + lu(1536) = lu(1536) - lu(1032) * lu(1530) + lu(1537) = lu(1537) - lu(1033) * lu(1530) + lu(1538) = lu(1538) - lu(1034) * lu(1530) + lu(1539) = lu(1539) - lu(1035) * lu(1530) + lu(1540) = lu(1540) - lu(1036) * lu(1530) + lu(1541) = lu(1541) - lu(1037) * lu(1530) + lu(1542) = lu(1542) - lu(1038) * lu(1530) + lu(1543) = lu(1543) - lu(1039) * lu(1530) + lu(1544) = lu(1544) - lu(1040) * lu(1530) + lu(1545) = lu(1545) - lu(1041) * lu(1530) + lu(1546) = lu(1546) - lu(1042) * lu(1530) + lu(1547) = lu(1547) - lu(1043) * lu(1530) + lu(1566) = lu(1566) - lu(1027) * lu(1565) + lu(1567) = lu(1567) - lu(1028) * lu(1565) + lu(1568) = lu(1568) - lu(1029) * lu(1565) + lu(1569) = lu(1569) - lu(1030) * lu(1565) + lu(1570) = lu(1570) - lu(1031) * lu(1565) + lu(1571) = lu(1571) - lu(1032) * lu(1565) + lu(1572) = lu(1572) - lu(1033) * lu(1565) + lu(1573) = lu(1573) - lu(1034) * lu(1565) + lu(1574) = lu(1574) - lu(1035) * lu(1565) + lu(1575) = lu(1575) - lu(1036) * lu(1565) + lu(1576) = lu(1576) - lu(1037) * lu(1565) + lu(1577) = lu(1577) - lu(1038) * lu(1565) + lu(1578) = lu(1578) - lu(1039) * lu(1565) + lu(1579) = lu(1579) - lu(1040) * lu(1565) + lu(1580) = lu(1580) - lu(1041) * lu(1565) + lu(1581) = lu(1581) - lu(1042) * lu(1565) + lu(1582) = lu(1582) - lu(1043) * lu(1565) + lu(1604) = lu(1604) - lu(1027) * lu(1603) + lu(1605) = lu(1605) - lu(1028) * lu(1603) + lu(1606) = lu(1606) - lu(1029) * lu(1603) + lu(1607) = lu(1607) - lu(1030) * lu(1603) + lu(1608) = lu(1608) - lu(1031) * lu(1603) + lu(1609) = lu(1609) - lu(1032) * lu(1603) + lu(1610) = lu(1610) - lu(1033) * lu(1603) + lu(1611) = lu(1611) - lu(1034) * lu(1603) + lu(1612) = lu(1612) - lu(1035) * lu(1603) + lu(1613) = lu(1613) - lu(1036) * lu(1603) + lu(1614) = lu(1614) - lu(1037) * lu(1603) + lu(1615) = lu(1615) - lu(1038) * lu(1603) + lu(1616) = lu(1616) - lu(1039) * lu(1603) + lu(1617) = lu(1617) - lu(1040) * lu(1603) + lu(1618) = lu(1618) - lu(1041) * lu(1603) + lu(1619) = lu(1619) - lu(1042) * lu(1603) + lu(1620) = lu(1620) - lu(1043) * lu(1603) + lu(1643) = lu(1643) - lu(1027) * lu(1642) + lu(1644) = lu(1644) - lu(1028) * lu(1642) + lu(1645) = lu(1645) - lu(1029) * lu(1642) + lu(1646) = lu(1646) - lu(1030) * lu(1642) + lu(1647) = lu(1647) - lu(1031) * lu(1642) + lu(1648) = lu(1648) - lu(1032) * lu(1642) + lu(1649) = lu(1649) - lu(1033) * lu(1642) + lu(1650) = lu(1650) - lu(1034) * lu(1642) + lu(1651) = lu(1651) - lu(1035) * lu(1642) + lu(1652) = lu(1652) - lu(1036) * lu(1642) + lu(1653) = lu(1653) - lu(1037) * lu(1642) + lu(1654) = lu(1654) - lu(1038) * lu(1642) + lu(1655) = lu(1655) - lu(1039) * lu(1642) + lu(1656) = lu(1656) - lu(1040) * lu(1642) + lu(1657) = lu(1657) - lu(1041) * lu(1642) + lu(1658) = lu(1658) - lu(1042) * lu(1642) + lu(1659) = lu(1659) - lu(1043) * lu(1642) + lu(1677) = lu(1677) - lu(1027) * lu(1676) + lu(1678) = lu(1678) - lu(1028) * lu(1676) + lu(1679) = lu(1679) - lu(1029) * lu(1676) + lu(1680) = lu(1680) - lu(1030) * lu(1676) + lu(1681) = lu(1681) - lu(1031) * lu(1676) + lu(1682) = lu(1682) - lu(1032) * lu(1676) + lu(1683) = lu(1683) - lu(1033) * lu(1676) + lu(1684) = lu(1684) - lu(1034) * lu(1676) + lu(1685) = lu(1685) - lu(1035) * lu(1676) + lu(1686) = lu(1686) - lu(1036) * lu(1676) + lu(1687) = lu(1687) - lu(1037) * lu(1676) + lu(1688) = lu(1688) - lu(1038) * lu(1676) + lu(1689) = lu(1689) - lu(1039) * lu(1676) + lu(1690) = lu(1690) - lu(1040) * lu(1676) + lu(1691) = lu(1691) - lu(1041) * lu(1676) + lu(1692) = lu(1692) - lu(1042) * lu(1676) + lu(1693) = lu(1693) - lu(1043) * lu(1676) + lu(1729) = lu(1729) - lu(1027) * lu(1728) + lu(1730) = lu(1730) - lu(1028) * lu(1728) + lu(1731) = lu(1731) - lu(1029) * lu(1728) + lu(1732) = lu(1732) - lu(1030) * lu(1728) + lu(1733) = lu(1733) - lu(1031) * lu(1728) + lu(1734) = lu(1734) - lu(1032) * lu(1728) + lu(1735) = lu(1735) - lu(1033) * lu(1728) + lu(1736) = lu(1736) - lu(1034) * lu(1728) + lu(1737) = lu(1737) - lu(1035) * lu(1728) + lu(1738) = lu(1738) - lu(1036) * lu(1728) + lu(1739) = lu(1739) - lu(1037) * lu(1728) + lu(1740) = lu(1740) - lu(1038) * lu(1728) + lu(1741) = lu(1741) - lu(1039) * lu(1728) + lu(1742) = lu(1742) - lu(1040) * lu(1728) + lu(1743) = lu(1743) - lu(1041) * lu(1728) + lu(1744) = lu(1744) - lu(1042) * lu(1728) + lu(1745) = lu(1745) - lu(1043) * lu(1728) + lu(1071) = 1._r8 / lu(1071) + lu(1072) = lu(1072) * lu(1071) + lu(1073) = lu(1073) * lu(1071) + lu(1074) = lu(1074) * lu(1071) + lu(1075) = lu(1075) * lu(1071) + lu(1076) = lu(1076) * lu(1071) + lu(1077) = lu(1077) * lu(1071) + lu(1078) = lu(1078) * lu(1071) + lu(1079) = lu(1079) * lu(1071) + lu(1080) = lu(1080) * lu(1071) + lu(1081) = lu(1081) * lu(1071) + lu(1082) = lu(1082) * lu(1071) + lu(1083) = lu(1083) * lu(1071) + lu(1084) = lu(1084) * lu(1071) + lu(1085) = lu(1085) * lu(1071) + lu(1086) = lu(1086) * lu(1071) + lu(1087) = lu(1087) * lu(1071) + lu(1114) = lu(1114) - lu(1072) * lu(1113) + lu(1115) = lu(1115) - lu(1073) * lu(1113) + lu(1116) = lu(1116) - lu(1074) * lu(1113) + lu(1117) = lu(1117) - lu(1075) * lu(1113) + lu(1118) = lu(1118) - lu(1076) * lu(1113) + lu(1119) = lu(1119) - lu(1077) * lu(1113) + lu(1120) = lu(1120) - lu(1078) * lu(1113) + lu(1121) = lu(1121) - lu(1079) * lu(1113) + lu(1122) = lu(1122) - lu(1080) * lu(1113) + lu(1123) = lu(1123) - lu(1081) * lu(1113) + lu(1124) = lu(1124) - lu(1082) * lu(1113) + lu(1125) = lu(1125) - lu(1083) * lu(1113) + lu(1126) = lu(1126) - lu(1084) * lu(1113) + lu(1127) = lu(1127) - lu(1085) * lu(1113) + lu(1128) = lu(1128) - lu(1086) * lu(1113) + lu(1129) = lu(1129) - lu(1087) * lu(1113) + lu(1157) = lu(1157) - lu(1072) * lu(1156) + lu(1158) = lu(1158) - lu(1073) * lu(1156) + lu(1159) = lu(1159) - lu(1074) * lu(1156) + lu(1160) = lu(1160) - lu(1075) * lu(1156) + lu(1161) = lu(1161) - lu(1076) * lu(1156) + lu(1162) = lu(1162) - lu(1077) * lu(1156) + lu(1163) = lu(1163) - lu(1078) * lu(1156) + lu(1164) = lu(1164) - lu(1079) * lu(1156) + lu(1165) = lu(1165) - lu(1080) * lu(1156) + lu(1166) = lu(1166) - lu(1081) * lu(1156) + lu(1167) = lu(1167) - lu(1082) * lu(1156) + lu(1168) = lu(1168) - lu(1083) * lu(1156) + lu(1169) = lu(1169) - lu(1084) * lu(1156) + lu(1170) = lu(1170) - lu(1085) * lu(1156) + lu(1171) = lu(1171) - lu(1086) * lu(1156) + lu(1172) = lu(1172) - lu(1087) * lu(1156) + lu(1199) = lu(1199) - lu(1072) * lu(1198) + lu(1200) = lu(1200) - lu(1073) * lu(1198) + lu(1201) = lu(1201) - lu(1074) * lu(1198) + lu(1202) = lu(1202) - lu(1075) * lu(1198) + lu(1203) = lu(1203) - lu(1076) * lu(1198) + lu(1204) = lu(1204) - lu(1077) * lu(1198) + lu(1205) = lu(1205) - lu(1078) * lu(1198) + lu(1206) = lu(1206) - lu(1079) * lu(1198) + lu(1207) = lu(1207) - lu(1080) * lu(1198) + lu(1208) = lu(1208) - lu(1081) * lu(1198) + lu(1209) = lu(1209) - lu(1082) * lu(1198) + lu(1210) = lu(1210) - lu(1083) * lu(1198) + lu(1211) = lu(1211) - lu(1084) * lu(1198) + lu(1212) = lu(1212) - lu(1085) * lu(1198) + lu(1213) = lu(1213) - lu(1086) * lu(1198) + lu(1214) = lu(1214) - lu(1087) * lu(1198) + lu(1234) = lu(1234) - lu(1072) * lu(1233) + lu(1235) = lu(1235) - lu(1073) * lu(1233) + lu(1236) = lu(1236) - lu(1074) * lu(1233) + lu(1237) = lu(1237) - lu(1075) * lu(1233) + lu(1238) = lu(1238) - lu(1076) * lu(1233) + lu(1239) = lu(1239) - lu(1077) * lu(1233) + lu(1240) = lu(1240) - lu(1078) * lu(1233) + lu(1241) = lu(1241) - lu(1079) * lu(1233) + lu(1242) = lu(1242) - lu(1080) * lu(1233) + lu(1243) = lu(1243) - lu(1081) * lu(1233) + lu(1244) = lu(1244) - lu(1082) * lu(1233) + lu(1245) = lu(1245) - lu(1083) * lu(1233) + lu(1246) = lu(1246) - lu(1084) * lu(1233) + lu(1247) = lu(1247) - lu(1085) * lu(1233) + lu(1248) = lu(1248) - lu(1086) * lu(1233) + lu(1249) = lu(1249) - lu(1087) * lu(1233) + lu(1278) = lu(1278) - lu(1072) * lu(1277) + lu(1279) = lu(1279) - lu(1073) * lu(1277) + lu(1280) = lu(1280) - lu(1074) * lu(1277) + lu(1281) = lu(1281) - lu(1075) * lu(1277) + lu(1282) = lu(1282) - lu(1076) * lu(1277) + lu(1283) = lu(1283) - lu(1077) * lu(1277) + lu(1284) = lu(1284) - lu(1078) * lu(1277) + lu(1285) = lu(1285) - lu(1079) * lu(1277) + lu(1286) = lu(1286) - lu(1080) * lu(1277) + lu(1287) = lu(1287) - lu(1081) * lu(1277) + lu(1288) = lu(1288) - lu(1082) * lu(1277) + lu(1289) = lu(1289) - lu(1083) * lu(1277) + lu(1290) = lu(1290) - lu(1084) * lu(1277) + lu(1291) = lu(1291) - lu(1085) * lu(1277) + lu(1292) = lu(1292) - lu(1086) * lu(1277) + lu(1293) = lu(1293) - lu(1087) * lu(1277) + lu(1319) = lu(1319) - lu(1072) * lu(1318) + lu(1320) = lu(1320) - lu(1073) * lu(1318) + lu(1321) = lu(1321) - lu(1074) * lu(1318) + lu(1322) = lu(1322) - lu(1075) * lu(1318) + lu(1323) = lu(1323) - lu(1076) * lu(1318) + lu(1324) = lu(1324) - lu(1077) * lu(1318) + lu(1325) = lu(1325) - lu(1078) * lu(1318) + lu(1326) = lu(1326) - lu(1079) * lu(1318) + lu(1327) = lu(1327) - lu(1080) * lu(1318) + lu(1328) = lu(1328) - lu(1081) * lu(1318) + lu(1329) = lu(1329) - lu(1082) * lu(1318) + lu(1330) = lu(1330) - lu(1083) * lu(1318) + lu(1331) = lu(1331) - lu(1084) * lu(1318) + lu(1332) = lu(1332) - lu(1085) * lu(1318) + lu(1333) = lu(1333) - lu(1086) * lu(1318) + lu(1334) = lu(1334) - lu(1087) * lu(1318) + lu(1361) = lu(1361) - lu(1072) * lu(1360) + lu(1362) = lu(1362) - lu(1073) * lu(1360) + lu(1363) = lu(1363) - lu(1074) * lu(1360) + lu(1364) = lu(1364) - lu(1075) * lu(1360) + lu(1365) = lu(1365) - lu(1076) * lu(1360) + lu(1366) = lu(1366) - lu(1077) * lu(1360) + lu(1367) = lu(1367) - lu(1078) * lu(1360) + lu(1368) = lu(1368) - lu(1079) * lu(1360) + lu(1369) = lu(1369) - lu(1080) * lu(1360) + lu(1370) = lu(1370) - lu(1081) * lu(1360) + lu(1371) = lu(1371) - lu(1082) * lu(1360) + lu(1372) = lu(1372) - lu(1083) * lu(1360) + lu(1373) = lu(1373) - lu(1084) * lu(1360) + lu(1374) = lu(1374) - lu(1085) * lu(1360) + lu(1375) = lu(1375) - lu(1086) * lu(1360) + lu(1376) = lu(1376) - lu(1087) * lu(1360) + lu(1403) = lu(1403) - lu(1072) * lu(1402) + lu(1404) = lu(1404) - lu(1073) * lu(1402) + lu(1405) = lu(1405) - lu(1074) * lu(1402) + lu(1406) = lu(1406) - lu(1075) * lu(1402) + lu(1407) = lu(1407) - lu(1076) * lu(1402) + lu(1408) = lu(1408) - lu(1077) * lu(1402) + lu(1409) = lu(1409) - lu(1078) * lu(1402) + lu(1410) = lu(1410) - lu(1079) * lu(1402) + lu(1411) = lu(1411) - lu(1080) * lu(1402) + lu(1412) = lu(1412) - lu(1081) * lu(1402) + lu(1413) = lu(1413) - lu(1082) * lu(1402) + lu(1414) = lu(1414) - lu(1083) * lu(1402) + lu(1415) = lu(1415) - lu(1084) * lu(1402) + lu(1416) = lu(1416) - lu(1085) * lu(1402) + lu(1417) = lu(1417) - lu(1086) * lu(1402) + lu(1418) = lu(1418) - lu(1087) * lu(1402) + lu(1445) = lu(1445) - lu(1072) * lu(1444) + lu(1446) = lu(1446) - lu(1073) * lu(1444) + lu(1447) = lu(1447) - lu(1074) * lu(1444) + lu(1448) = lu(1448) - lu(1075) * lu(1444) + lu(1449) = lu(1449) - lu(1076) * lu(1444) + lu(1450) = lu(1450) - lu(1077) * lu(1444) + lu(1451) = lu(1451) - lu(1078) * lu(1444) + lu(1452) = lu(1452) - lu(1079) * lu(1444) + lu(1453) = lu(1453) - lu(1080) * lu(1444) + lu(1454) = lu(1454) - lu(1081) * lu(1444) + lu(1455) = lu(1455) - lu(1082) * lu(1444) + lu(1456) = lu(1456) - lu(1083) * lu(1444) + lu(1457) = lu(1457) - lu(1084) * lu(1444) + lu(1458) = lu(1458) - lu(1085) * lu(1444) + lu(1459) = lu(1459) - lu(1086) * lu(1444) + lu(1460) = lu(1460) - lu(1087) * lu(1444) + lu(1500) = lu(1500) - lu(1072) * lu(1499) + lu(1501) = lu(1501) - lu(1073) * lu(1499) + lu(1502) = lu(1502) - lu(1074) * lu(1499) + lu(1503) = lu(1503) - lu(1075) * lu(1499) + lu(1504) = lu(1504) - lu(1076) * lu(1499) + lu(1505) = lu(1505) - lu(1077) * lu(1499) + lu(1506) = lu(1506) - lu(1078) * lu(1499) + lu(1507) = lu(1507) - lu(1079) * lu(1499) + lu(1508) = lu(1508) - lu(1080) * lu(1499) + lu(1509) = lu(1509) - lu(1081) * lu(1499) + lu(1510) = lu(1510) - lu(1082) * lu(1499) + lu(1511) = lu(1511) - lu(1083) * lu(1499) + lu(1512) = lu(1512) - lu(1084) * lu(1499) + lu(1513) = lu(1513) - lu(1085) * lu(1499) + lu(1514) = lu(1514) - lu(1086) * lu(1499) + lu(1515) = lu(1515) - lu(1087) * lu(1499) + lu(1532) = lu(1532) - lu(1072) * lu(1531) + lu(1533) = lu(1533) - lu(1073) * lu(1531) + lu(1534) = lu(1534) - lu(1074) * lu(1531) + lu(1535) = lu(1535) - lu(1075) * lu(1531) + lu(1536) = lu(1536) - lu(1076) * lu(1531) + lu(1537) = lu(1537) - lu(1077) * lu(1531) + lu(1538) = lu(1538) - lu(1078) * lu(1531) + lu(1539) = lu(1539) - lu(1079) * lu(1531) + lu(1540) = lu(1540) - lu(1080) * lu(1531) + lu(1541) = lu(1541) - lu(1081) * lu(1531) + lu(1542) = lu(1542) - lu(1082) * lu(1531) + lu(1543) = lu(1543) - lu(1083) * lu(1531) + lu(1544) = lu(1544) - lu(1084) * lu(1531) + lu(1545) = lu(1545) - lu(1085) * lu(1531) + lu(1546) = lu(1546) - lu(1086) * lu(1531) + lu(1547) = lu(1547) - lu(1087) * lu(1531) + lu(1567) = lu(1567) - lu(1072) * lu(1566) + lu(1568) = lu(1568) - lu(1073) * lu(1566) + lu(1569) = lu(1569) - lu(1074) * lu(1566) + lu(1570) = lu(1570) - lu(1075) * lu(1566) + lu(1571) = lu(1571) - lu(1076) * lu(1566) + lu(1572) = lu(1572) - lu(1077) * lu(1566) + lu(1573) = lu(1573) - lu(1078) * lu(1566) + lu(1574) = lu(1574) - lu(1079) * lu(1566) + lu(1575) = lu(1575) - lu(1080) * lu(1566) + lu(1576) = lu(1576) - lu(1081) * lu(1566) + lu(1577) = lu(1577) - lu(1082) * lu(1566) + lu(1578) = lu(1578) - lu(1083) * lu(1566) + lu(1579) = lu(1579) - lu(1084) * lu(1566) + lu(1580) = lu(1580) - lu(1085) * lu(1566) + lu(1581) = lu(1581) - lu(1086) * lu(1566) + lu(1582) = lu(1582) - lu(1087) * lu(1566) + lu(1605) = lu(1605) - lu(1072) * lu(1604) + lu(1606) = lu(1606) - lu(1073) * lu(1604) + lu(1607) = lu(1607) - lu(1074) * lu(1604) + lu(1608) = lu(1608) - lu(1075) * lu(1604) + lu(1609) = lu(1609) - lu(1076) * lu(1604) + lu(1610) = lu(1610) - lu(1077) * lu(1604) + lu(1611) = lu(1611) - lu(1078) * lu(1604) + lu(1612) = lu(1612) - lu(1079) * lu(1604) + lu(1613) = lu(1613) - lu(1080) * lu(1604) + lu(1614) = lu(1614) - lu(1081) * lu(1604) + lu(1615) = lu(1615) - lu(1082) * lu(1604) + lu(1616) = lu(1616) - lu(1083) * lu(1604) + lu(1617) = lu(1617) - lu(1084) * lu(1604) + lu(1618) = lu(1618) - lu(1085) * lu(1604) + lu(1619) = lu(1619) - lu(1086) * lu(1604) + lu(1620) = lu(1620) - lu(1087) * lu(1604) + lu(1644) = lu(1644) - lu(1072) * lu(1643) + lu(1645) = lu(1645) - lu(1073) * lu(1643) + lu(1646) = lu(1646) - lu(1074) * lu(1643) + lu(1647) = lu(1647) - lu(1075) * lu(1643) + lu(1648) = lu(1648) - lu(1076) * lu(1643) + lu(1649) = lu(1649) - lu(1077) * lu(1643) + lu(1650) = lu(1650) - lu(1078) * lu(1643) + lu(1651) = lu(1651) - lu(1079) * lu(1643) + lu(1652) = lu(1652) - lu(1080) * lu(1643) + lu(1653) = lu(1653) - lu(1081) * lu(1643) + lu(1654) = lu(1654) - lu(1082) * lu(1643) + lu(1655) = lu(1655) - lu(1083) * lu(1643) + lu(1656) = lu(1656) - lu(1084) * lu(1643) + lu(1657) = lu(1657) - lu(1085) * lu(1643) + lu(1658) = lu(1658) - lu(1086) * lu(1643) + lu(1659) = lu(1659) - lu(1087) * lu(1643) + lu(1678) = lu(1678) - lu(1072) * lu(1677) + lu(1679) = lu(1679) - lu(1073) * lu(1677) + lu(1680) = lu(1680) - lu(1074) * lu(1677) + lu(1681) = lu(1681) - lu(1075) * lu(1677) + lu(1682) = lu(1682) - lu(1076) * lu(1677) + lu(1683) = lu(1683) - lu(1077) * lu(1677) + lu(1684) = lu(1684) - lu(1078) * lu(1677) + lu(1685) = lu(1685) - lu(1079) * lu(1677) + lu(1686) = lu(1686) - lu(1080) * lu(1677) + lu(1687) = lu(1687) - lu(1081) * lu(1677) + lu(1688) = lu(1688) - lu(1082) * lu(1677) + lu(1689) = lu(1689) - lu(1083) * lu(1677) + lu(1690) = lu(1690) - lu(1084) * lu(1677) + lu(1691) = lu(1691) - lu(1085) * lu(1677) + lu(1692) = lu(1692) - lu(1086) * lu(1677) + lu(1693) = lu(1693) - lu(1087) * lu(1677) + lu(1730) = lu(1730) - lu(1072) * lu(1729) + lu(1731) = lu(1731) - lu(1073) * lu(1729) + lu(1732) = lu(1732) - lu(1074) * lu(1729) + lu(1733) = lu(1733) - lu(1075) * lu(1729) + lu(1734) = lu(1734) - lu(1076) * lu(1729) + lu(1735) = lu(1735) - lu(1077) * lu(1729) + lu(1736) = lu(1736) - lu(1078) * lu(1729) + lu(1737) = lu(1737) - lu(1079) * lu(1729) + lu(1738) = lu(1738) - lu(1080) * lu(1729) + lu(1739) = lu(1739) - lu(1081) * lu(1729) + lu(1740) = lu(1740) - lu(1082) * lu(1729) + lu(1741) = lu(1741) - lu(1083) * lu(1729) + lu(1742) = lu(1742) - lu(1084) * lu(1729) + lu(1743) = lu(1743) - lu(1085) * lu(1729) + lu(1744) = lu(1744) - lu(1086) * lu(1729) + lu(1745) = lu(1745) - lu(1087) * lu(1729) + lu(1114) = 1._r8 / lu(1114) + lu(1115) = lu(1115) * lu(1114) + lu(1116) = lu(1116) * lu(1114) + lu(1117) = lu(1117) * lu(1114) + lu(1118) = lu(1118) * lu(1114) + lu(1119) = lu(1119) * lu(1114) + lu(1120) = lu(1120) * lu(1114) + lu(1121) = lu(1121) * lu(1114) + lu(1122) = lu(1122) * lu(1114) + lu(1123) = lu(1123) * lu(1114) + lu(1124) = lu(1124) * lu(1114) + lu(1125) = lu(1125) * lu(1114) + lu(1126) = lu(1126) * lu(1114) + lu(1127) = lu(1127) * lu(1114) + lu(1128) = lu(1128) * lu(1114) + lu(1129) = lu(1129) * lu(1114) + lu(1158) = lu(1158) - lu(1115) * lu(1157) + lu(1159) = lu(1159) - lu(1116) * lu(1157) + lu(1160) = lu(1160) - lu(1117) * lu(1157) + lu(1161) = lu(1161) - lu(1118) * lu(1157) + lu(1162) = lu(1162) - lu(1119) * lu(1157) + lu(1163) = lu(1163) - lu(1120) * lu(1157) + lu(1164) = lu(1164) - lu(1121) * lu(1157) + lu(1165) = lu(1165) - lu(1122) * lu(1157) + lu(1166) = lu(1166) - lu(1123) * lu(1157) + lu(1167) = lu(1167) - lu(1124) * lu(1157) + lu(1168) = lu(1168) - lu(1125) * lu(1157) + lu(1169) = lu(1169) - lu(1126) * lu(1157) + lu(1170) = lu(1170) - lu(1127) * lu(1157) + lu(1171) = lu(1171) - lu(1128) * lu(1157) + lu(1172) = lu(1172) - lu(1129) * lu(1157) + lu(1200) = lu(1200) - lu(1115) * lu(1199) + lu(1201) = lu(1201) - lu(1116) * lu(1199) + lu(1202) = lu(1202) - lu(1117) * lu(1199) + lu(1203) = lu(1203) - lu(1118) * lu(1199) + lu(1204) = lu(1204) - lu(1119) * lu(1199) + lu(1205) = lu(1205) - lu(1120) * lu(1199) + lu(1206) = lu(1206) - lu(1121) * lu(1199) + lu(1207) = lu(1207) - lu(1122) * lu(1199) + lu(1208) = lu(1208) - lu(1123) * lu(1199) + lu(1209) = lu(1209) - lu(1124) * lu(1199) + lu(1210) = lu(1210) - lu(1125) * lu(1199) + lu(1211) = lu(1211) - lu(1126) * lu(1199) + lu(1212) = lu(1212) - lu(1127) * lu(1199) + lu(1213) = lu(1213) - lu(1128) * lu(1199) + lu(1214) = lu(1214) - lu(1129) * lu(1199) + lu(1235) = lu(1235) - lu(1115) * lu(1234) + lu(1236) = lu(1236) - lu(1116) * lu(1234) + lu(1237) = lu(1237) - lu(1117) * lu(1234) + lu(1238) = lu(1238) - lu(1118) * lu(1234) + lu(1239) = lu(1239) - lu(1119) * lu(1234) + lu(1240) = lu(1240) - lu(1120) * lu(1234) + lu(1241) = lu(1241) - lu(1121) * lu(1234) + lu(1242) = lu(1242) - lu(1122) * lu(1234) + lu(1243) = lu(1243) - lu(1123) * lu(1234) + lu(1244) = lu(1244) - lu(1124) * lu(1234) + lu(1245) = lu(1245) - lu(1125) * lu(1234) + lu(1246) = lu(1246) - lu(1126) * lu(1234) + lu(1247) = lu(1247) - lu(1127) * lu(1234) + lu(1248) = lu(1248) - lu(1128) * lu(1234) + lu(1249) = lu(1249) - lu(1129) * lu(1234) + lu(1279) = lu(1279) - lu(1115) * lu(1278) + lu(1280) = lu(1280) - lu(1116) * lu(1278) + lu(1281) = lu(1281) - lu(1117) * lu(1278) + lu(1282) = lu(1282) - lu(1118) * lu(1278) + lu(1283) = lu(1283) - lu(1119) * lu(1278) + lu(1284) = lu(1284) - lu(1120) * lu(1278) + lu(1285) = lu(1285) - lu(1121) * lu(1278) + lu(1286) = lu(1286) - lu(1122) * lu(1278) + lu(1287) = lu(1287) - lu(1123) * lu(1278) + lu(1288) = lu(1288) - lu(1124) * lu(1278) + lu(1289) = lu(1289) - lu(1125) * lu(1278) + lu(1290) = lu(1290) - lu(1126) * lu(1278) + lu(1291) = lu(1291) - lu(1127) * lu(1278) + lu(1292) = lu(1292) - lu(1128) * lu(1278) + lu(1293) = lu(1293) - lu(1129) * lu(1278) + lu(1320) = lu(1320) - lu(1115) * lu(1319) + lu(1321) = lu(1321) - lu(1116) * lu(1319) + lu(1322) = lu(1322) - lu(1117) * lu(1319) + lu(1323) = lu(1323) - lu(1118) * lu(1319) + lu(1324) = lu(1324) - lu(1119) * lu(1319) + lu(1325) = lu(1325) - lu(1120) * lu(1319) + lu(1326) = lu(1326) - lu(1121) * lu(1319) + lu(1327) = lu(1327) - lu(1122) * lu(1319) + lu(1328) = lu(1328) - lu(1123) * lu(1319) + lu(1329) = lu(1329) - lu(1124) * lu(1319) + lu(1330) = lu(1330) - lu(1125) * lu(1319) + lu(1331) = lu(1331) - lu(1126) * lu(1319) + lu(1332) = lu(1332) - lu(1127) * lu(1319) + lu(1333) = lu(1333) - lu(1128) * lu(1319) + lu(1334) = lu(1334) - lu(1129) * lu(1319) + lu(1362) = lu(1362) - lu(1115) * lu(1361) + lu(1363) = lu(1363) - lu(1116) * lu(1361) + lu(1364) = lu(1364) - lu(1117) * lu(1361) + lu(1365) = lu(1365) - lu(1118) * lu(1361) + lu(1366) = lu(1366) - lu(1119) * lu(1361) + lu(1367) = lu(1367) - lu(1120) * lu(1361) + lu(1368) = lu(1368) - lu(1121) * lu(1361) + lu(1369) = lu(1369) - lu(1122) * lu(1361) + lu(1370) = lu(1370) - lu(1123) * lu(1361) + lu(1371) = lu(1371) - lu(1124) * lu(1361) + lu(1372) = lu(1372) - lu(1125) * lu(1361) + lu(1373) = lu(1373) - lu(1126) * lu(1361) + lu(1374) = lu(1374) - lu(1127) * lu(1361) + lu(1375) = lu(1375) - lu(1128) * lu(1361) + lu(1376) = lu(1376) - lu(1129) * lu(1361) + lu(1404) = lu(1404) - lu(1115) * lu(1403) + lu(1405) = lu(1405) - lu(1116) * lu(1403) + lu(1406) = lu(1406) - lu(1117) * lu(1403) + lu(1407) = lu(1407) - lu(1118) * lu(1403) + lu(1408) = lu(1408) - lu(1119) * lu(1403) + lu(1409) = lu(1409) - lu(1120) * lu(1403) + lu(1410) = lu(1410) - lu(1121) * lu(1403) + lu(1411) = lu(1411) - lu(1122) * lu(1403) + lu(1412) = lu(1412) - lu(1123) * lu(1403) + lu(1413) = lu(1413) - lu(1124) * lu(1403) + lu(1414) = lu(1414) - lu(1125) * lu(1403) + lu(1415) = lu(1415) - lu(1126) * lu(1403) + lu(1416) = lu(1416) - lu(1127) * lu(1403) + lu(1417) = lu(1417) - lu(1128) * lu(1403) + lu(1418) = lu(1418) - lu(1129) * lu(1403) + lu(1446) = lu(1446) - lu(1115) * lu(1445) + lu(1447) = lu(1447) - lu(1116) * lu(1445) + lu(1448) = lu(1448) - lu(1117) * lu(1445) + lu(1449) = lu(1449) - lu(1118) * lu(1445) + lu(1450) = lu(1450) - lu(1119) * lu(1445) + lu(1451) = lu(1451) - lu(1120) * lu(1445) + lu(1452) = lu(1452) - lu(1121) * lu(1445) + lu(1453) = lu(1453) - lu(1122) * lu(1445) + lu(1454) = lu(1454) - lu(1123) * lu(1445) + lu(1455) = lu(1455) - lu(1124) * lu(1445) + lu(1456) = lu(1456) - lu(1125) * lu(1445) + lu(1457) = lu(1457) - lu(1126) * lu(1445) + lu(1458) = lu(1458) - lu(1127) * lu(1445) + lu(1459) = lu(1459) - lu(1128) * lu(1445) + lu(1460) = lu(1460) - lu(1129) * lu(1445) + lu(1501) = lu(1501) - lu(1115) * lu(1500) + lu(1502) = lu(1502) - lu(1116) * lu(1500) + lu(1503) = lu(1503) - lu(1117) * lu(1500) + lu(1504) = lu(1504) - lu(1118) * lu(1500) + lu(1505) = lu(1505) - lu(1119) * lu(1500) + lu(1506) = lu(1506) - lu(1120) * lu(1500) + lu(1507) = lu(1507) - lu(1121) * lu(1500) + lu(1508) = lu(1508) - lu(1122) * lu(1500) + lu(1509) = lu(1509) - lu(1123) * lu(1500) + lu(1510) = lu(1510) - lu(1124) * lu(1500) + lu(1511) = lu(1511) - lu(1125) * lu(1500) + lu(1512) = lu(1512) - lu(1126) * lu(1500) + lu(1513) = lu(1513) - lu(1127) * lu(1500) + lu(1514) = lu(1514) - lu(1128) * lu(1500) + lu(1515) = lu(1515) - lu(1129) * lu(1500) + lu(1533) = lu(1533) - lu(1115) * lu(1532) + lu(1534) = lu(1534) - lu(1116) * lu(1532) + lu(1535) = lu(1535) - lu(1117) * lu(1532) + lu(1536) = lu(1536) - lu(1118) * lu(1532) + lu(1537) = lu(1537) - lu(1119) * lu(1532) + lu(1538) = lu(1538) - lu(1120) * lu(1532) + lu(1539) = lu(1539) - lu(1121) * lu(1532) + lu(1540) = lu(1540) - lu(1122) * lu(1532) + lu(1541) = lu(1541) - lu(1123) * lu(1532) + lu(1542) = lu(1542) - lu(1124) * lu(1532) + lu(1543) = lu(1543) - lu(1125) * lu(1532) + lu(1544) = lu(1544) - lu(1126) * lu(1532) + lu(1545) = lu(1545) - lu(1127) * lu(1532) + lu(1546) = lu(1546) - lu(1128) * lu(1532) + lu(1547) = lu(1547) - lu(1129) * lu(1532) + lu(1568) = lu(1568) - lu(1115) * lu(1567) + lu(1569) = lu(1569) - lu(1116) * lu(1567) + lu(1570) = lu(1570) - lu(1117) * lu(1567) + lu(1571) = lu(1571) - lu(1118) * lu(1567) + lu(1572) = lu(1572) - lu(1119) * lu(1567) + lu(1573) = lu(1573) - lu(1120) * lu(1567) + lu(1574) = lu(1574) - lu(1121) * lu(1567) + lu(1575) = lu(1575) - lu(1122) * lu(1567) + lu(1576) = lu(1576) - lu(1123) * lu(1567) + lu(1577) = lu(1577) - lu(1124) * lu(1567) + lu(1578) = lu(1578) - lu(1125) * lu(1567) + lu(1579) = lu(1579) - lu(1126) * lu(1567) + lu(1580) = lu(1580) - lu(1127) * lu(1567) + lu(1581) = lu(1581) - lu(1128) * lu(1567) + lu(1582) = lu(1582) - lu(1129) * lu(1567) + lu(1606) = lu(1606) - lu(1115) * lu(1605) + lu(1607) = lu(1607) - lu(1116) * lu(1605) + lu(1608) = lu(1608) - lu(1117) * lu(1605) + lu(1609) = lu(1609) - lu(1118) * lu(1605) + lu(1610) = lu(1610) - lu(1119) * lu(1605) + lu(1611) = lu(1611) - lu(1120) * lu(1605) + lu(1612) = lu(1612) - lu(1121) * lu(1605) + lu(1613) = lu(1613) - lu(1122) * lu(1605) + lu(1614) = lu(1614) - lu(1123) * lu(1605) + lu(1615) = lu(1615) - lu(1124) * lu(1605) + lu(1616) = lu(1616) - lu(1125) * lu(1605) + lu(1617) = lu(1617) - lu(1126) * lu(1605) + lu(1618) = lu(1618) - lu(1127) * lu(1605) + lu(1619) = lu(1619) - lu(1128) * lu(1605) + lu(1620) = lu(1620) - lu(1129) * lu(1605) + lu(1645) = lu(1645) - lu(1115) * lu(1644) + lu(1646) = lu(1646) - lu(1116) * lu(1644) + lu(1647) = lu(1647) - lu(1117) * lu(1644) + lu(1648) = lu(1648) - lu(1118) * lu(1644) + lu(1649) = lu(1649) - lu(1119) * lu(1644) + lu(1650) = lu(1650) - lu(1120) * lu(1644) + lu(1651) = lu(1651) - lu(1121) * lu(1644) + lu(1652) = lu(1652) - lu(1122) * lu(1644) + lu(1653) = lu(1653) - lu(1123) * lu(1644) + lu(1654) = lu(1654) - lu(1124) * lu(1644) + lu(1655) = lu(1655) - lu(1125) * lu(1644) + lu(1656) = lu(1656) - lu(1126) * lu(1644) + lu(1657) = lu(1657) - lu(1127) * lu(1644) + lu(1658) = lu(1658) - lu(1128) * lu(1644) + lu(1659) = lu(1659) - lu(1129) * lu(1644) + lu(1679) = lu(1679) - lu(1115) * lu(1678) + lu(1680) = lu(1680) - lu(1116) * lu(1678) + lu(1681) = lu(1681) - lu(1117) * lu(1678) + lu(1682) = lu(1682) - lu(1118) * lu(1678) + lu(1683) = lu(1683) - lu(1119) * lu(1678) + lu(1684) = lu(1684) - lu(1120) * lu(1678) + lu(1685) = lu(1685) - lu(1121) * lu(1678) + lu(1686) = lu(1686) - lu(1122) * lu(1678) + lu(1687) = lu(1687) - lu(1123) * lu(1678) + lu(1688) = lu(1688) - lu(1124) * lu(1678) + lu(1689) = lu(1689) - lu(1125) * lu(1678) + lu(1690) = lu(1690) - lu(1126) * lu(1678) + lu(1691) = lu(1691) - lu(1127) * lu(1678) + lu(1692) = lu(1692) - lu(1128) * lu(1678) + lu(1693) = lu(1693) - lu(1129) * lu(1678) + lu(1731) = lu(1731) - lu(1115) * lu(1730) + lu(1732) = lu(1732) - lu(1116) * lu(1730) + lu(1733) = lu(1733) - lu(1117) * lu(1730) + lu(1734) = lu(1734) - lu(1118) * lu(1730) + lu(1735) = lu(1735) - lu(1119) * lu(1730) + lu(1736) = lu(1736) - lu(1120) * lu(1730) + lu(1737) = lu(1737) - lu(1121) * lu(1730) + lu(1738) = lu(1738) - lu(1122) * lu(1730) + lu(1739) = lu(1739) - lu(1123) * lu(1730) + lu(1740) = lu(1740) - lu(1124) * lu(1730) + lu(1741) = lu(1741) - lu(1125) * lu(1730) + lu(1742) = lu(1742) - lu(1126) * lu(1730) + lu(1743) = lu(1743) - lu(1127) * lu(1730) + lu(1744) = lu(1744) - lu(1128) * lu(1730) + lu(1745) = lu(1745) - lu(1129) * lu(1730) end subroutine lu_fac19 - subroutine lu_fac20( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac20( lu ) 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,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,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,1232) = lu(k,1232) - lu(k,1154) * lu(k,1231) - lu(k,1233) = lu(k,1233) - lu(k,1155) * lu(k,1231) - lu(k,1234) = lu(k,1234) - lu(k,1156) * lu(k,1231) - lu(k,1235) = lu(k,1235) - lu(k,1157) * lu(k,1231) - lu(k,1236) = lu(k,1236) - lu(k,1158) * lu(k,1231) - lu(k,1237) = lu(k,1237) - lu(k,1159) * lu(k,1231) - lu(k,1238) = lu(k,1238) - lu(k,1160) * lu(k,1231) - lu(k,1239) = lu(k,1239) - lu(k,1161) * lu(k,1231) - lu(k,1240) = lu(k,1240) - lu(k,1162) * lu(k,1231) - lu(k,1241) = lu(k,1241) - lu(k,1163) * lu(k,1231) - lu(k,1242) = lu(k,1242) - lu(k,1164) * lu(k,1231) - lu(k,1243) = lu(k,1243) - lu(k,1165) * lu(k,1231) - lu(k,1244) = lu(k,1244) - lu(k,1166) * lu(k,1231) - lu(k,1245) = lu(k,1245) - lu(k,1167) * lu(k,1231) - lu(k,1246) = lu(k,1246) - lu(k,1168) * lu(k,1231) - lu(k,1247) = lu(k,1247) - lu(k,1169) * lu(k,1231) - lu(k,1275) = lu(k,1275) - lu(k,1154) * lu(k,1274) - lu(k,1276) = lu(k,1276) - lu(k,1155) * lu(k,1274) - lu(k,1277) = lu(k,1277) - lu(k,1156) * lu(k,1274) - lu(k,1278) = lu(k,1278) - lu(k,1157) * lu(k,1274) - lu(k,1279) = lu(k,1279) - lu(k,1158) * lu(k,1274) - lu(k,1280) = lu(k,1280) - lu(k,1159) * lu(k,1274) - lu(k,1281) = lu(k,1281) - lu(k,1160) * lu(k,1274) - lu(k,1282) = lu(k,1282) - lu(k,1161) * lu(k,1274) - lu(k,1283) = lu(k,1283) - lu(k,1162) * lu(k,1274) - lu(k,1284) = lu(k,1284) - lu(k,1163) * lu(k,1274) - lu(k,1285) = lu(k,1285) - lu(k,1164) * lu(k,1274) - lu(k,1286) = lu(k,1286) - lu(k,1165) * lu(k,1274) - lu(k,1287) = lu(k,1287) - lu(k,1166) * lu(k,1274) - lu(k,1288) = lu(k,1288) - lu(k,1167) * lu(k,1274) - lu(k,1289) = lu(k,1289) - lu(k,1168) * lu(k,1274) - lu(k,1290) = lu(k,1290) - lu(k,1169) * lu(k,1274) - lu(k,1311) = lu(k,1311) - lu(k,1154) * lu(k,1310) - lu(k,1312) = lu(k,1312) - lu(k,1155) * lu(k,1310) - lu(k,1313) = lu(k,1313) - lu(k,1156) * lu(k,1310) - lu(k,1314) = lu(k,1314) - lu(k,1157) * lu(k,1310) - lu(k,1315) = lu(k,1315) - lu(k,1158) * lu(k,1310) - lu(k,1316) = lu(k,1316) - lu(k,1159) * lu(k,1310) - lu(k,1317) = lu(k,1317) - lu(k,1160) * lu(k,1310) - lu(k,1318) = lu(k,1318) - lu(k,1161) * lu(k,1310) - lu(k,1319) = lu(k,1319) - lu(k,1162) * lu(k,1310) - lu(k,1320) = lu(k,1320) - lu(k,1163) * lu(k,1310) - lu(k,1321) = lu(k,1321) - lu(k,1164) * lu(k,1310) - lu(k,1322) = lu(k,1322) - lu(k,1165) * lu(k,1310) - lu(k,1323) = lu(k,1323) - lu(k,1166) * lu(k,1310) - lu(k,1324) = lu(k,1324) - lu(k,1167) * lu(k,1310) - lu(k,1325) = lu(k,1325) - lu(k,1168) * lu(k,1310) - lu(k,1326) = lu(k,1326) - lu(k,1169) * lu(k,1310) - lu(k,1356) = lu(k,1356) - lu(k,1154) * lu(k,1355) - lu(k,1357) = lu(k,1357) - lu(k,1155) * lu(k,1355) - lu(k,1358) = lu(k,1358) - lu(k,1156) * lu(k,1355) - lu(k,1359) = lu(k,1359) - lu(k,1157) * lu(k,1355) - lu(k,1360) = lu(k,1360) - lu(k,1158) * lu(k,1355) - lu(k,1361) = lu(k,1361) - lu(k,1159) * lu(k,1355) - lu(k,1362) = lu(k,1362) - lu(k,1160) * lu(k,1355) - lu(k,1363) = lu(k,1363) - lu(k,1161) * lu(k,1355) - lu(k,1364) = lu(k,1364) - lu(k,1162) * lu(k,1355) - lu(k,1365) = lu(k,1365) - lu(k,1163) * lu(k,1355) - lu(k,1366) = lu(k,1366) - lu(k,1164) * lu(k,1355) - lu(k,1367) = lu(k,1367) - lu(k,1165) * lu(k,1355) - lu(k,1368) = lu(k,1368) - lu(k,1166) * lu(k,1355) - lu(k,1369) = lu(k,1369) - lu(k,1167) * lu(k,1355) - lu(k,1370) = lu(k,1370) - lu(k,1168) * lu(k,1355) - lu(k,1371) = lu(k,1371) - lu(k,1169) * lu(k,1355) - lu(k,1398) = lu(k,1398) - lu(k,1154) * lu(k,1397) - lu(k,1399) = lu(k,1399) - lu(k,1155) * lu(k,1397) - lu(k,1400) = lu(k,1400) - lu(k,1156) * lu(k,1397) - lu(k,1401) = lu(k,1401) - lu(k,1157) * lu(k,1397) - lu(k,1402) = lu(k,1402) - lu(k,1158) * lu(k,1397) - lu(k,1403) = lu(k,1403) - lu(k,1159) * lu(k,1397) - lu(k,1404) = lu(k,1404) - lu(k,1160) * lu(k,1397) - lu(k,1405) = lu(k,1405) - lu(k,1161) * lu(k,1397) - lu(k,1406) = lu(k,1406) - lu(k,1162) * lu(k,1397) - lu(k,1407) = lu(k,1407) - lu(k,1163) * lu(k,1397) - lu(k,1408) = lu(k,1408) - lu(k,1164) * lu(k,1397) - lu(k,1409) = lu(k,1409) - lu(k,1165) * lu(k,1397) - lu(k,1410) = lu(k,1410) - lu(k,1166) * lu(k,1397) - lu(k,1411) = lu(k,1411) - lu(k,1167) * lu(k,1397) - lu(k,1412) = lu(k,1412) - lu(k,1168) * lu(k,1397) - lu(k,1413) = lu(k,1413) - lu(k,1169) * lu(k,1397) - lu(k,1436) = lu(k,1436) - lu(k,1154) * lu(k,1435) - lu(k,1437) = lu(k,1437) - lu(k,1155) * lu(k,1435) - lu(k,1438) = lu(k,1438) - lu(k,1156) * lu(k,1435) - lu(k,1439) = lu(k,1439) - lu(k,1157) * lu(k,1435) - lu(k,1440) = lu(k,1440) - lu(k,1158) * lu(k,1435) - lu(k,1441) = lu(k,1441) - lu(k,1159) * lu(k,1435) - lu(k,1442) = lu(k,1442) - lu(k,1160) * lu(k,1435) - lu(k,1443) = lu(k,1443) - lu(k,1161) * lu(k,1435) - lu(k,1444) = lu(k,1444) - lu(k,1162) * lu(k,1435) - lu(k,1445) = lu(k,1445) - lu(k,1163) * lu(k,1435) - lu(k,1446) = lu(k,1446) - lu(k,1164) * lu(k,1435) - lu(k,1447) = lu(k,1447) - lu(k,1165) * lu(k,1435) - lu(k,1448) = lu(k,1448) - lu(k,1166) * lu(k,1435) - lu(k,1449) = lu(k,1449) - lu(k,1167) * lu(k,1435) - lu(k,1450) = lu(k,1450) - lu(k,1168) * lu(k,1435) - lu(k,1451) = lu(k,1451) - lu(k,1169) * lu(k,1435) - 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,1524) = lu(k,1524) - lu(k,1154) * lu(k,1523) - lu(k,1525) = lu(k,1525) - lu(k,1155) * lu(k,1523) - lu(k,1526) = lu(k,1526) - lu(k,1156) * lu(k,1523) - lu(k,1527) = lu(k,1527) - lu(k,1157) * lu(k,1523) - lu(k,1528) = lu(k,1528) - lu(k,1158) * lu(k,1523) - lu(k,1529) = lu(k,1529) - lu(k,1159) * lu(k,1523) - lu(k,1530) = lu(k,1530) - lu(k,1160) * lu(k,1523) - lu(k,1531) = lu(k,1531) - lu(k,1161) * lu(k,1523) - lu(k,1532) = lu(k,1532) - lu(k,1162) * lu(k,1523) - lu(k,1533) = lu(k,1533) - lu(k,1163) * lu(k,1523) - lu(k,1534) = lu(k,1534) - lu(k,1164) * lu(k,1523) - lu(k,1535) = lu(k,1535) - lu(k,1165) * lu(k,1523) - lu(k,1536) = lu(k,1536) - lu(k,1166) * lu(k,1523) - lu(k,1537) = lu(k,1537) - lu(k,1167) * lu(k,1523) - lu(k,1538) = lu(k,1538) - lu(k,1168) * lu(k,1523) - lu(k,1539) = lu(k,1539) - lu(k,1169) * lu(k,1523) - lu(k,1567) = lu(k,1567) - lu(k,1154) * lu(k,1566) - lu(k,1568) = lu(k,1568) - lu(k,1155) * lu(k,1566) - lu(k,1569) = lu(k,1569) - lu(k,1156) * lu(k,1566) - lu(k,1570) = lu(k,1570) - lu(k,1157) * lu(k,1566) - lu(k,1571) = lu(k,1571) - lu(k,1158) * lu(k,1566) - lu(k,1572) = lu(k,1572) - lu(k,1159) * lu(k,1566) - lu(k,1573) = lu(k,1573) - lu(k,1160) * lu(k,1566) - lu(k,1574) = lu(k,1574) - lu(k,1161) * lu(k,1566) - lu(k,1575) = lu(k,1575) - lu(k,1162) * lu(k,1566) - lu(k,1576) = lu(k,1576) - lu(k,1163) * lu(k,1566) - lu(k,1577) = lu(k,1577) - lu(k,1164) * lu(k,1566) - lu(k,1578) = lu(k,1578) - lu(k,1165) * lu(k,1566) - lu(k,1579) = lu(k,1579) - lu(k,1166) * lu(k,1566) - lu(k,1580) = lu(k,1580) - lu(k,1167) * lu(k,1566) - lu(k,1581) = lu(k,1581) - lu(k,1168) * lu(k,1566) - lu(k,1582) = lu(k,1582) - lu(k,1169) * lu(k,1566) - lu(k,1600) = lu(k,1600) - lu(k,1154) * lu(k,1599) - lu(k,1601) = lu(k,1601) - lu(k,1155) * lu(k,1599) - lu(k,1602) = lu(k,1602) - lu(k,1156) * lu(k,1599) - lu(k,1603) = lu(k,1603) - lu(k,1157) * lu(k,1599) - lu(k,1604) = lu(k,1604) - lu(k,1158) * lu(k,1599) - lu(k,1605) = lu(k,1605) - lu(k,1159) * lu(k,1599) - lu(k,1606) = lu(k,1606) - lu(k,1160) * lu(k,1599) - lu(k,1607) = lu(k,1607) - lu(k,1161) * lu(k,1599) - lu(k,1608) = lu(k,1608) - lu(k,1162) * lu(k,1599) - lu(k,1609) = lu(k,1609) - lu(k,1163) * lu(k,1599) - lu(k,1610) = lu(k,1610) - lu(k,1164) * lu(k,1599) - lu(k,1611) = lu(k,1611) - lu(k,1165) * lu(k,1599) - lu(k,1612) = lu(k,1612) - lu(k,1166) * lu(k,1599) - lu(k,1613) = lu(k,1613) - lu(k,1167) * lu(k,1599) - lu(k,1614) = lu(k,1614) - lu(k,1168) * lu(k,1599) - lu(k,1615) = lu(k,1615) - lu(k,1169) * lu(k,1599) - lu(k,1636) = lu(k,1636) - lu(k,1154) * lu(k,1635) - lu(k,1637) = lu(k,1637) - lu(k,1155) * lu(k,1635) - lu(k,1638) = lu(k,1638) - lu(k,1156) * lu(k,1635) - lu(k,1639) = lu(k,1639) - lu(k,1157) * lu(k,1635) - lu(k,1640) = lu(k,1640) - lu(k,1158) * lu(k,1635) - lu(k,1641) = lu(k,1641) - lu(k,1159) * lu(k,1635) - lu(k,1642) = lu(k,1642) - lu(k,1160) * lu(k,1635) - lu(k,1643) = lu(k,1643) - lu(k,1161) * lu(k,1635) - lu(k,1644) = lu(k,1644) - lu(k,1162) * lu(k,1635) - lu(k,1645) = lu(k,1645) - lu(k,1163) * lu(k,1635) - lu(k,1646) = lu(k,1646) - lu(k,1164) * lu(k,1635) - lu(k,1647) = lu(k,1647) - lu(k,1165) * lu(k,1635) - lu(k,1648) = lu(k,1648) - lu(k,1166) * lu(k,1635) - lu(k,1649) = lu(k,1649) - lu(k,1167) * lu(k,1635) - lu(k,1650) = lu(k,1650) - lu(k,1168) * lu(k,1635) - lu(k,1651) = lu(k,1651) - lu(k,1169) * lu(k,1635) - lu(k,1679) = lu(k,1679) - lu(k,1154) * lu(k,1678) - lu(k,1680) = lu(k,1680) - lu(k,1155) * lu(k,1678) - lu(k,1681) = lu(k,1681) - lu(k,1156) * lu(k,1678) - lu(k,1682) = lu(k,1682) - lu(k,1157) * lu(k,1678) - lu(k,1683) = lu(k,1683) - lu(k,1158) * lu(k,1678) - lu(k,1684) = lu(k,1684) - lu(k,1159) * lu(k,1678) - lu(k,1685) = lu(k,1685) - lu(k,1160) * lu(k,1678) - lu(k,1686) = lu(k,1686) - lu(k,1161) * lu(k,1678) - lu(k,1687) = lu(k,1687) - lu(k,1162) * lu(k,1678) - lu(k,1688) = lu(k,1688) - lu(k,1163) * lu(k,1678) - lu(k,1689) = lu(k,1689) - lu(k,1164) * lu(k,1678) - lu(k,1690) = lu(k,1690) - lu(k,1165) * lu(k,1678) - lu(k,1691) = lu(k,1691) - lu(k,1166) * lu(k,1678) - lu(k,1692) = lu(k,1692) - lu(k,1167) * lu(k,1678) - lu(k,1693) = lu(k,1693) - lu(k,1168) * lu(k,1678) - lu(k,1694) = lu(k,1694) - lu(k,1169) * lu(k,1678) - lu(k,1715) = lu(k,1715) - lu(k,1154) * lu(k,1714) - lu(k,1716) = lu(k,1716) - lu(k,1155) * lu(k,1714) - lu(k,1717) = lu(k,1717) - lu(k,1156) * lu(k,1714) - lu(k,1718) = lu(k,1718) - lu(k,1157) * lu(k,1714) - lu(k,1719) = lu(k,1719) - lu(k,1158) * lu(k,1714) - lu(k,1720) = lu(k,1720) - lu(k,1159) * lu(k,1714) - lu(k,1721) = lu(k,1721) - lu(k,1160) * lu(k,1714) - lu(k,1722) = lu(k,1722) - lu(k,1161) * lu(k,1714) - lu(k,1723) = lu(k,1723) - lu(k,1162) * lu(k,1714) - lu(k,1724) = lu(k,1724) - lu(k,1163) * lu(k,1714) - lu(k,1725) = lu(k,1725) - lu(k,1164) * lu(k,1714) - lu(k,1726) = lu(k,1726) - lu(k,1165) * lu(k,1714) - lu(k,1727) = lu(k,1727) - lu(k,1166) * lu(k,1714) - lu(k,1728) = lu(k,1728) - lu(k,1167) * lu(k,1714) - lu(k,1729) = lu(k,1729) - lu(k,1168) * lu(k,1714) - lu(k,1730) = lu(k,1730) - lu(k,1169) * lu(k,1714) - lu(k,1757) = lu(k,1757) - lu(k,1154) * lu(k,1756) - lu(k,1758) = lu(k,1758) - lu(k,1155) * lu(k,1756) - lu(k,1759) = lu(k,1759) - lu(k,1156) * lu(k,1756) - lu(k,1760) = lu(k,1760) - lu(k,1157) * lu(k,1756) - lu(k,1761) = lu(k,1761) - lu(k,1158) * lu(k,1756) - lu(k,1762) = lu(k,1762) - lu(k,1159) * lu(k,1756) - lu(k,1763) = lu(k,1763) - lu(k,1160) * lu(k,1756) - lu(k,1764) = lu(k,1764) - lu(k,1161) * lu(k,1756) - lu(k,1765) = lu(k,1765) - lu(k,1162) * lu(k,1756) - lu(k,1766) = lu(k,1766) - lu(k,1163) * lu(k,1756) - lu(k,1767) = lu(k,1767) - lu(k,1164) * lu(k,1756) - lu(k,1768) = lu(k,1768) - lu(k,1165) * lu(k,1756) - lu(k,1769) = lu(k,1769) - lu(k,1166) * lu(k,1756) - lu(k,1770) = lu(k,1770) - lu(k,1167) * lu(k,1756) - lu(k,1771) = lu(k,1771) - lu(k,1168) * lu(k,1756) - lu(k,1772) = lu(k,1772) - lu(k,1169) * lu(k,1756) - lu(k,1810) = lu(k,1810) - lu(k,1154) * lu(k,1809) - lu(k,1811) = lu(k,1811) - lu(k,1155) * lu(k,1809) - lu(k,1812) = lu(k,1812) - lu(k,1156) * lu(k,1809) - lu(k,1813) = lu(k,1813) - lu(k,1157) * lu(k,1809) - lu(k,1814) = lu(k,1814) - lu(k,1158) * lu(k,1809) - lu(k,1815) = lu(k,1815) - lu(k,1159) * lu(k,1809) - lu(k,1816) = lu(k,1816) - lu(k,1160) * lu(k,1809) - lu(k,1817) = lu(k,1817) - lu(k,1161) * lu(k,1809) - lu(k,1818) = lu(k,1818) - lu(k,1162) * lu(k,1809) - lu(k,1819) = lu(k,1819) - lu(k,1163) * lu(k,1809) - lu(k,1820) = lu(k,1820) - lu(k,1164) * lu(k,1809) - lu(k,1821) = lu(k,1821) - lu(k,1165) * lu(k,1809) - lu(k,1822) = lu(k,1822) - lu(k,1166) * lu(k,1809) - lu(k,1823) = lu(k,1823) - lu(k,1167) * lu(k,1809) - lu(k,1824) = lu(k,1824) - lu(k,1168) * lu(k,1809) - lu(k,1825) = lu(k,1825) - lu(k,1169) * lu(k,1809) - 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,1233) = lu(k,1233) - lu(k,1198) * lu(k,1232) - lu(k,1234) = lu(k,1234) - lu(k,1199) * lu(k,1232) - lu(k,1235) = lu(k,1235) - lu(k,1200) * lu(k,1232) - lu(k,1236) = lu(k,1236) - lu(k,1201) * lu(k,1232) - lu(k,1237) = lu(k,1237) - lu(k,1202) * lu(k,1232) - lu(k,1238) = lu(k,1238) - lu(k,1203) * lu(k,1232) - lu(k,1239) = lu(k,1239) - lu(k,1204) * lu(k,1232) - lu(k,1240) = lu(k,1240) - lu(k,1205) * lu(k,1232) - lu(k,1241) = lu(k,1241) - lu(k,1206) * lu(k,1232) - lu(k,1242) = lu(k,1242) - lu(k,1207) * lu(k,1232) - lu(k,1243) = lu(k,1243) - lu(k,1208) * lu(k,1232) - lu(k,1244) = lu(k,1244) - lu(k,1209) * lu(k,1232) - lu(k,1245) = lu(k,1245) - lu(k,1210) * lu(k,1232) - lu(k,1246) = lu(k,1246) - lu(k,1211) * lu(k,1232) - lu(k,1247) = lu(k,1247) - lu(k,1212) * lu(k,1232) - lu(k,1276) = lu(k,1276) - lu(k,1198) * lu(k,1275) - lu(k,1277) = lu(k,1277) - lu(k,1199) * lu(k,1275) - lu(k,1278) = lu(k,1278) - lu(k,1200) * lu(k,1275) - lu(k,1279) = lu(k,1279) - lu(k,1201) * lu(k,1275) - lu(k,1280) = lu(k,1280) - lu(k,1202) * lu(k,1275) - lu(k,1281) = lu(k,1281) - lu(k,1203) * lu(k,1275) - lu(k,1282) = lu(k,1282) - lu(k,1204) * lu(k,1275) - lu(k,1283) = lu(k,1283) - lu(k,1205) * lu(k,1275) - lu(k,1284) = lu(k,1284) - lu(k,1206) * lu(k,1275) - lu(k,1285) = lu(k,1285) - lu(k,1207) * lu(k,1275) - lu(k,1286) = lu(k,1286) - lu(k,1208) * lu(k,1275) - lu(k,1287) = lu(k,1287) - lu(k,1209) * lu(k,1275) - lu(k,1288) = lu(k,1288) - lu(k,1210) * lu(k,1275) - lu(k,1289) = lu(k,1289) - lu(k,1211) * lu(k,1275) - lu(k,1290) = lu(k,1290) - lu(k,1212) * lu(k,1275) - lu(k,1312) = lu(k,1312) - lu(k,1198) * lu(k,1311) - lu(k,1313) = lu(k,1313) - lu(k,1199) * lu(k,1311) - lu(k,1314) = lu(k,1314) - lu(k,1200) * lu(k,1311) - lu(k,1315) = lu(k,1315) - lu(k,1201) * lu(k,1311) - lu(k,1316) = lu(k,1316) - lu(k,1202) * lu(k,1311) - lu(k,1317) = lu(k,1317) - lu(k,1203) * lu(k,1311) - lu(k,1318) = lu(k,1318) - lu(k,1204) * lu(k,1311) - lu(k,1319) = lu(k,1319) - lu(k,1205) * lu(k,1311) - lu(k,1320) = lu(k,1320) - lu(k,1206) * lu(k,1311) - lu(k,1321) = lu(k,1321) - lu(k,1207) * lu(k,1311) - lu(k,1322) = lu(k,1322) - lu(k,1208) * lu(k,1311) - lu(k,1323) = lu(k,1323) - lu(k,1209) * lu(k,1311) - lu(k,1324) = lu(k,1324) - lu(k,1210) * lu(k,1311) - lu(k,1325) = lu(k,1325) - lu(k,1211) * lu(k,1311) - lu(k,1326) = lu(k,1326) - lu(k,1212) * lu(k,1311) - lu(k,1357) = lu(k,1357) - lu(k,1198) * lu(k,1356) - lu(k,1358) = lu(k,1358) - lu(k,1199) * lu(k,1356) - lu(k,1359) = lu(k,1359) - lu(k,1200) * lu(k,1356) - lu(k,1360) = lu(k,1360) - lu(k,1201) * lu(k,1356) - lu(k,1361) = lu(k,1361) - lu(k,1202) * lu(k,1356) - lu(k,1362) = lu(k,1362) - lu(k,1203) * lu(k,1356) - lu(k,1363) = lu(k,1363) - lu(k,1204) * lu(k,1356) - lu(k,1364) = lu(k,1364) - lu(k,1205) * lu(k,1356) - lu(k,1365) = lu(k,1365) - lu(k,1206) * lu(k,1356) - lu(k,1366) = lu(k,1366) - lu(k,1207) * lu(k,1356) - lu(k,1367) = lu(k,1367) - lu(k,1208) * lu(k,1356) - lu(k,1368) = lu(k,1368) - lu(k,1209) * lu(k,1356) - lu(k,1369) = lu(k,1369) - lu(k,1210) * lu(k,1356) - lu(k,1370) = lu(k,1370) - lu(k,1211) * lu(k,1356) - lu(k,1371) = lu(k,1371) - lu(k,1212) * lu(k,1356) - lu(k,1399) = lu(k,1399) - lu(k,1198) * lu(k,1398) - lu(k,1400) = lu(k,1400) - lu(k,1199) * lu(k,1398) - lu(k,1401) = lu(k,1401) - lu(k,1200) * lu(k,1398) - lu(k,1402) = lu(k,1402) - lu(k,1201) * lu(k,1398) - lu(k,1403) = lu(k,1403) - lu(k,1202) * lu(k,1398) - lu(k,1404) = lu(k,1404) - lu(k,1203) * lu(k,1398) - lu(k,1405) = lu(k,1405) - lu(k,1204) * lu(k,1398) - lu(k,1406) = lu(k,1406) - lu(k,1205) * lu(k,1398) - lu(k,1407) = lu(k,1407) - lu(k,1206) * lu(k,1398) - lu(k,1408) = lu(k,1408) - lu(k,1207) * lu(k,1398) - lu(k,1409) = lu(k,1409) - lu(k,1208) * lu(k,1398) - lu(k,1410) = lu(k,1410) - lu(k,1209) * lu(k,1398) - lu(k,1411) = lu(k,1411) - lu(k,1210) * lu(k,1398) - lu(k,1412) = lu(k,1412) - lu(k,1211) * lu(k,1398) - lu(k,1413) = lu(k,1413) - lu(k,1212) * lu(k,1398) - lu(k,1437) = lu(k,1437) - lu(k,1198) * lu(k,1436) - lu(k,1438) = lu(k,1438) - lu(k,1199) * lu(k,1436) - lu(k,1439) = lu(k,1439) - lu(k,1200) * lu(k,1436) - lu(k,1440) = lu(k,1440) - lu(k,1201) * lu(k,1436) - lu(k,1441) = lu(k,1441) - lu(k,1202) * lu(k,1436) - lu(k,1442) = lu(k,1442) - lu(k,1203) * lu(k,1436) - lu(k,1443) = lu(k,1443) - lu(k,1204) * lu(k,1436) - lu(k,1444) = lu(k,1444) - lu(k,1205) * lu(k,1436) - lu(k,1445) = lu(k,1445) - lu(k,1206) * lu(k,1436) - lu(k,1446) = lu(k,1446) - lu(k,1207) * lu(k,1436) - lu(k,1447) = lu(k,1447) - lu(k,1208) * lu(k,1436) - lu(k,1448) = lu(k,1448) - lu(k,1209) * lu(k,1436) - lu(k,1449) = lu(k,1449) - lu(k,1210) * lu(k,1436) - lu(k,1450) = lu(k,1450) - lu(k,1211) * lu(k,1436) - lu(k,1451) = lu(k,1451) - lu(k,1212) * lu(k,1436) - 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,1525) = lu(k,1525) - lu(k,1198) * lu(k,1524) - lu(k,1526) = lu(k,1526) - lu(k,1199) * lu(k,1524) - lu(k,1527) = lu(k,1527) - lu(k,1200) * lu(k,1524) - lu(k,1528) = lu(k,1528) - lu(k,1201) * lu(k,1524) - lu(k,1529) = lu(k,1529) - lu(k,1202) * lu(k,1524) - lu(k,1530) = lu(k,1530) - lu(k,1203) * lu(k,1524) - lu(k,1531) = lu(k,1531) - lu(k,1204) * lu(k,1524) - lu(k,1532) = lu(k,1532) - lu(k,1205) * lu(k,1524) - lu(k,1533) = lu(k,1533) - lu(k,1206) * lu(k,1524) - lu(k,1534) = lu(k,1534) - lu(k,1207) * lu(k,1524) - lu(k,1535) = lu(k,1535) - lu(k,1208) * lu(k,1524) - lu(k,1536) = lu(k,1536) - lu(k,1209) * lu(k,1524) - lu(k,1537) = lu(k,1537) - lu(k,1210) * lu(k,1524) - lu(k,1538) = lu(k,1538) - lu(k,1211) * lu(k,1524) - lu(k,1539) = lu(k,1539) - lu(k,1212) * lu(k,1524) - lu(k,1568) = lu(k,1568) - lu(k,1198) * lu(k,1567) - lu(k,1569) = lu(k,1569) - lu(k,1199) * lu(k,1567) - lu(k,1570) = lu(k,1570) - lu(k,1200) * lu(k,1567) - lu(k,1571) = lu(k,1571) - lu(k,1201) * lu(k,1567) - lu(k,1572) = lu(k,1572) - lu(k,1202) * lu(k,1567) - lu(k,1573) = lu(k,1573) - lu(k,1203) * lu(k,1567) - lu(k,1574) = lu(k,1574) - lu(k,1204) * lu(k,1567) - lu(k,1575) = lu(k,1575) - lu(k,1205) * lu(k,1567) - lu(k,1576) = lu(k,1576) - lu(k,1206) * lu(k,1567) - lu(k,1577) = lu(k,1577) - lu(k,1207) * lu(k,1567) - lu(k,1578) = lu(k,1578) - lu(k,1208) * lu(k,1567) - lu(k,1579) = lu(k,1579) - lu(k,1209) * lu(k,1567) - lu(k,1580) = lu(k,1580) - lu(k,1210) * lu(k,1567) - lu(k,1581) = lu(k,1581) - lu(k,1211) * lu(k,1567) - lu(k,1582) = lu(k,1582) - lu(k,1212) * lu(k,1567) - lu(k,1601) = lu(k,1601) - lu(k,1198) * lu(k,1600) - lu(k,1602) = lu(k,1602) - lu(k,1199) * lu(k,1600) - lu(k,1603) = lu(k,1603) - lu(k,1200) * lu(k,1600) - lu(k,1604) = lu(k,1604) - lu(k,1201) * lu(k,1600) - lu(k,1605) = lu(k,1605) - lu(k,1202) * lu(k,1600) - lu(k,1606) = lu(k,1606) - lu(k,1203) * lu(k,1600) - lu(k,1607) = lu(k,1607) - lu(k,1204) * lu(k,1600) - lu(k,1608) = lu(k,1608) - lu(k,1205) * lu(k,1600) - lu(k,1609) = lu(k,1609) - lu(k,1206) * lu(k,1600) - lu(k,1610) = lu(k,1610) - lu(k,1207) * lu(k,1600) - lu(k,1611) = lu(k,1611) - lu(k,1208) * lu(k,1600) - lu(k,1612) = lu(k,1612) - lu(k,1209) * lu(k,1600) - lu(k,1613) = lu(k,1613) - lu(k,1210) * lu(k,1600) - lu(k,1614) = lu(k,1614) - lu(k,1211) * lu(k,1600) - lu(k,1615) = lu(k,1615) - lu(k,1212) * lu(k,1600) - lu(k,1637) = lu(k,1637) - lu(k,1198) * lu(k,1636) - lu(k,1638) = lu(k,1638) - lu(k,1199) * lu(k,1636) - lu(k,1639) = lu(k,1639) - lu(k,1200) * lu(k,1636) - lu(k,1640) = lu(k,1640) - lu(k,1201) * lu(k,1636) - lu(k,1641) = lu(k,1641) - lu(k,1202) * lu(k,1636) - lu(k,1642) = lu(k,1642) - lu(k,1203) * lu(k,1636) - lu(k,1643) = lu(k,1643) - lu(k,1204) * lu(k,1636) - lu(k,1644) = lu(k,1644) - lu(k,1205) * lu(k,1636) - lu(k,1645) = lu(k,1645) - lu(k,1206) * lu(k,1636) - lu(k,1646) = lu(k,1646) - lu(k,1207) * lu(k,1636) - lu(k,1647) = lu(k,1647) - lu(k,1208) * lu(k,1636) - lu(k,1648) = lu(k,1648) - lu(k,1209) * lu(k,1636) - lu(k,1649) = lu(k,1649) - lu(k,1210) * lu(k,1636) - lu(k,1650) = lu(k,1650) - lu(k,1211) * lu(k,1636) - lu(k,1651) = lu(k,1651) - lu(k,1212) * lu(k,1636) - lu(k,1680) = lu(k,1680) - lu(k,1198) * lu(k,1679) - lu(k,1681) = lu(k,1681) - lu(k,1199) * lu(k,1679) - lu(k,1682) = lu(k,1682) - lu(k,1200) * lu(k,1679) - lu(k,1683) = lu(k,1683) - lu(k,1201) * lu(k,1679) - lu(k,1684) = lu(k,1684) - lu(k,1202) * lu(k,1679) - lu(k,1685) = lu(k,1685) - lu(k,1203) * lu(k,1679) - lu(k,1686) = lu(k,1686) - lu(k,1204) * lu(k,1679) - lu(k,1687) = lu(k,1687) - lu(k,1205) * lu(k,1679) - lu(k,1688) = lu(k,1688) - lu(k,1206) * lu(k,1679) - lu(k,1689) = lu(k,1689) - lu(k,1207) * lu(k,1679) - lu(k,1690) = lu(k,1690) - lu(k,1208) * lu(k,1679) - lu(k,1691) = lu(k,1691) - lu(k,1209) * lu(k,1679) - lu(k,1692) = lu(k,1692) - lu(k,1210) * lu(k,1679) - lu(k,1693) = lu(k,1693) - lu(k,1211) * lu(k,1679) - lu(k,1694) = lu(k,1694) - lu(k,1212) * lu(k,1679) - lu(k,1716) = lu(k,1716) - lu(k,1198) * lu(k,1715) - lu(k,1717) = lu(k,1717) - lu(k,1199) * lu(k,1715) - lu(k,1718) = lu(k,1718) - lu(k,1200) * lu(k,1715) - lu(k,1719) = lu(k,1719) - lu(k,1201) * lu(k,1715) - lu(k,1720) = lu(k,1720) - lu(k,1202) * lu(k,1715) - lu(k,1721) = lu(k,1721) - lu(k,1203) * lu(k,1715) - lu(k,1722) = lu(k,1722) - lu(k,1204) * lu(k,1715) - lu(k,1723) = lu(k,1723) - lu(k,1205) * lu(k,1715) - lu(k,1724) = lu(k,1724) - lu(k,1206) * lu(k,1715) - lu(k,1725) = lu(k,1725) - lu(k,1207) * lu(k,1715) - lu(k,1726) = lu(k,1726) - lu(k,1208) * lu(k,1715) - lu(k,1727) = lu(k,1727) - lu(k,1209) * lu(k,1715) - lu(k,1728) = lu(k,1728) - lu(k,1210) * lu(k,1715) - lu(k,1729) = lu(k,1729) - lu(k,1211) * lu(k,1715) - lu(k,1730) = lu(k,1730) - lu(k,1212) * lu(k,1715) - lu(k,1758) = lu(k,1758) - lu(k,1198) * lu(k,1757) - lu(k,1759) = lu(k,1759) - lu(k,1199) * lu(k,1757) - lu(k,1760) = lu(k,1760) - lu(k,1200) * lu(k,1757) - lu(k,1761) = lu(k,1761) - lu(k,1201) * lu(k,1757) - lu(k,1762) = lu(k,1762) - lu(k,1202) * lu(k,1757) - lu(k,1763) = lu(k,1763) - lu(k,1203) * lu(k,1757) - lu(k,1764) = lu(k,1764) - lu(k,1204) * lu(k,1757) - lu(k,1765) = lu(k,1765) - lu(k,1205) * lu(k,1757) - lu(k,1766) = lu(k,1766) - lu(k,1206) * lu(k,1757) - lu(k,1767) = lu(k,1767) - lu(k,1207) * lu(k,1757) - lu(k,1768) = lu(k,1768) - lu(k,1208) * lu(k,1757) - lu(k,1769) = lu(k,1769) - lu(k,1209) * lu(k,1757) - lu(k,1770) = lu(k,1770) - lu(k,1210) * lu(k,1757) - lu(k,1771) = lu(k,1771) - lu(k,1211) * lu(k,1757) - lu(k,1772) = lu(k,1772) - lu(k,1212) * lu(k,1757) - lu(k,1811) = lu(k,1811) - lu(k,1198) * lu(k,1810) - lu(k,1812) = lu(k,1812) - lu(k,1199) * lu(k,1810) - lu(k,1813) = lu(k,1813) - lu(k,1200) * lu(k,1810) - lu(k,1814) = lu(k,1814) - lu(k,1201) * lu(k,1810) - lu(k,1815) = lu(k,1815) - lu(k,1202) * lu(k,1810) - lu(k,1816) = lu(k,1816) - lu(k,1203) * lu(k,1810) - lu(k,1817) = lu(k,1817) - lu(k,1204) * lu(k,1810) - lu(k,1818) = lu(k,1818) - lu(k,1205) * lu(k,1810) - lu(k,1819) = lu(k,1819) - lu(k,1206) * lu(k,1810) - lu(k,1820) = lu(k,1820) - lu(k,1207) * lu(k,1810) - lu(k,1821) = lu(k,1821) - lu(k,1208) * lu(k,1810) - lu(k,1822) = lu(k,1822) - lu(k,1209) * lu(k,1810) - lu(k,1823) = lu(k,1823) - lu(k,1210) * lu(k,1810) - lu(k,1824) = lu(k,1824) - lu(k,1211) * lu(k,1810) - lu(k,1825) = lu(k,1825) - lu(k,1212) * lu(k,1810) - 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,1244) = lu(k,1244) * lu(k,1233) - lu(k,1245) = lu(k,1245) * lu(k,1233) - lu(k,1246) = lu(k,1246) * lu(k,1233) - lu(k,1247) = lu(k,1247) * lu(k,1233) - lu(k,1277) = lu(k,1277) - lu(k,1234) * lu(k,1276) - lu(k,1278) = lu(k,1278) - lu(k,1235) * lu(k,1276) - lu(k,1279) = lu(k,1279) - lu(k,1236) * lu(k,1276) - lu(k,1280) = lu(k,1280) - lu(k,1237) * lu(k,1276) - lu(k,1281) = lu(k,1281) - lu(k,1238) * lu(k,1276) - lu(k,1282) = lu(k,1282) - lu(k,1239) * lu(k,1276) - lu(k,1283) = lu(k,1283) - lu(k,1240) * lu(k,1276) - lu(k,1284) = lu(k,1284) - lu(k,1241) * lu(k,1276) - lu(k,1285) = lu(k,1285) - lu(k,1242) * lu(k,1276) - lu(k,1286) = lu(k,1286) - lu(k,1243) * lu(k,1276) - lu(k,1287) = lu(k,1287) - lu(k,1244) * lu(k,1276) - lu(k,1288) = lu(k,1288) - lu(k,1245) * lu(k,1276) - lu(k,1289) = lu(k,1289) - lu(k,1246) * lu(k,1276) - lu(k,1290) = lu(k,1290) - lu(k,1247) * lu(k,1276) - lu(k,1313) = lu(k,1313) - lu(k,1234) * lu(k,1312) - lu(k,1314) = lu(k,1314) - lu(k,1235) * lu(k,1312) - lu(k,1315) = lu(k,1315) - lu(k,1236) * lu(k,1312) - lu(k,1316) = lu(k,1316) - lu(k,1237) * lu(k,1312) - lu(k,1317) = lu(k,1317) - lu(k,1238) * lu(k,1312) - lu(k,1318) = lu(k,1318) - lu(k,1239) * lu(k,1312) - lu(k,1319) = lu(k,1319) - lu(k,1240) * lu(k,1312) - lu(k,1320) = lu(k,1320) - lu(k,1241) * lu(k,1312) - lu(k,1321) = lu(k,1321) - lu(k,1242) * lu(k,1312) - lu(k,1322) = lu(k,1322) - lu(k,1243) * lu(k,1312) - lu(k,1323) = lu(k,1323) - lu(k,1244) * lu(k,1312) - lu(k,1324) = lu(k,1324) - lu(k,1245) * lu(k,1312) - lu(k,1325) = lu(k,1325) - lu(k,1246) * lu(k,1312) - lu(k,1326) = lu(k,1326) - lu(k,1247) * lu(k,1312) - lu(k,1358) = lu(k,1358) - lu(k,1234) * lu(k,1357) - lu(k,1359) = lu(k,1359) - lu(k,1235) * lu(k,1357) - lu(k,1360) = lu(k,1360) - lu(k,1236) * lu(k,1357) - lu(k,1361) = lu(k,1361) - lu(k,1237) * lu(k,1357) - lu(k,1362) = lu(k,1362) - lu(k,1238) * lu(k,1357) - lu(k,1363) = lu(k,1363) - lu(k,1239) * lu(k,1357) - lu(k,1364) = lu(k,1364) - lu(k,1240) * lu(k,1357) - lu(k,1365) = lu(k,1365) - lu(k,1241) * lu(k,1357) - lu(k,1366) = lu(k,1366) - lu(k,1242) * lu(k,1357) - lu(k,1367) = lu(k,1367) - lu(k,1243) * lu(k,1357) - lu(k,1368) = lu(k,1368) - lu(k,1244) * lu(k,1357) - lu(k,1369) = lu(k,1369) - lu(k,1245) * lu(k,1357) - lu(k,1370) = lu(k,1370) - lu(k,1246) * lu(k,1357) - lu(k,1371) = lu(k,1371) - lu(k,1247) * lu(k,1357) - lu(k,1400) = lu(k,1400) - lu(k,1234) * lu(k,1399) - lu(k,1401) = lu(k,1401) - lu(k,1235) * lu(k,1399) - lu(k,1402) = lu(k,1402) - lu(k,1236) * lu(k,1399) - lu(k,1403) = lu(k,1403) - lu(k,1237) * lu(k,1399) - lu(k,1404) = lu(k,1404) - lu(k,1238) * lu(k,1399) - lu(k,1405) = lu(k,1405) - lu(k,1239) * lu(k,1399) - lu(k,1406) = lu(k,1406) - lu(k,1240) * lu(k,1399) - lu(k,1407) = lu(k,1407) - lu(k,1241) * lu(k,1399) - lu(k,1408) = lu(k,1408) - lu(k,1242) * lu(k,1399) - lu(k,1409) = lu(k,1409) - lu(k,1243) * lu(k,1399) - lu(k,1410) = lu(k,1410) - lu(k,1244) * lu(k,1399) - lu(k,1411) = lu(k,1411) - lu(k,1245) * lu(k,1399) - lu(k,1412) = lu(k,1412) - lu(k,1246) * lu(k,1399) - lu(k,1413) = lu(k,1413) - lu(k,1247) * lu(k,1399) - lu(k,1438) = lu(k,1438) - lu(k,1234) * lu(k,1437) - lu(k,1439) = lu(k,1439) - lu(k,1235) * lu(k,1437) - lu(k,1440) = lu(k,1440) - lu(k,1236) * lu(k,1437) - lu(k,1441) = lu(k,1441) - lu(k,1237) * lu(k,1437) - lu(k,1442) = lu(k,1442) - lu(k,1238) * lu(k,1437) - lu(k,1443) = lu(k,1443) - lu(k,1239) * lu(k,1437) - lu(k,1444) = lu(k,1444) - lu(k,1240) * lu(k,1437) - lu(k,1445) = lu(k,1445) - lu(k,1241) * lu(k,1437) - lu(k,1446) = lu(k,1446) - lu(k,1242) * lu(k,1437) - lu(k,1447) = lu(k,1447) - lu(k,1243) * lu(k,1437) - lu(k,1448) = lu(k,1448) - lu(k,1244) * lu(k,1437) - lu(k,1449) = lu(k,1449) - lu(k,1245) * lu(k,1437) - lu(k,1450) = lu(k,1450) - lu(k,1246) * lu(k,1437) - lu(k,1451) = lu(k,1451) - lu(k,1247) * lu(k,1437) - lu(k,1483) = lu(k,1483) - lu(k,1234) * lu(k,1482) - lu(k,1484) = lu(k,1484) - lu(k,1235) * lu(k,1482) - lu(k,1485) = lu(k,1485) - lu(k,1236) * lu(k,1482) - lu(k,1486) = lu(k,1486) - lu(k,1237) * lu(k,1482) - lu(k,1487) = lu(k,1487) - lu(k,1238) * lu(k,1482) - lu(k,1488) = lu(k,1488) - lu(k,1239) * lu(k,1482) - lu(k,1489) = lu(k,1489) - lu(k,1240) * lu(k,1482) - lu(k,1490) = lu(k,1490) - lu(k,1241) * lu(k,1482) - lu(k,1491) = lu(k,1491) - lu(k,1242) * lu(k,1482) - lu(k,1492) = lu(k,1492) - lu(k,1243) * lu(k,1482) - lu(k,1493) = lu(k,1493) - lu(k,1244) * lu(k,1482) - lu(k,1494) = lu(k,1494) - lu(k,1245) * lu(k,1482) - lu(k,1495) = lu(k,1495) - lu(k,1246) * lu(k,1482) - lu(k,1496) = lu(k,1496) - lu(k,1247) * lu(k,1482) - lu(k,1526) = lu(k,1526) - lu(k,1234) * lu(k,1525) - lu(k,1527) = lu(k,1527) - lu(k,1235) * lu(k,1525) - lu(k,1528) = lu(k,1528) - lu(k,1236) * lu(k,1525) - lu(k,1529) = lu(k,1529) - lu(k,1237) * lu(k,1525) - lu(k,1530) = lu(k,1530) - lu(k,1238) * lu(k,1525) - lu(k,1531) = lu(k,1531) - lu(k,1239) * lu(k,1525) - lu(k,1532) = lu(k,1532) - lu(k,1240) * lu(k,1525) - lu(k,1533) = lu(k,1533) - lu(k,1241) * lu(k,1525) - lu(k,1534) = lu(k,1534) - lu(k,1242) * lu(k,1525) - lu(k,1535) = lu(k,1535) - lu(k,1243) * lu(k,1525) - lu(k,1536) = lu(k,1536) - lu(k,1244) * lu(k,1525) - lu(k,1537) = lu(k,1537) - lu(k,1245) * lu(k,1525) - lu(k,1538) = lu(k,1538) - lu(k,1246) * lu(k,1525) - lu(k,1539) = lu(k,1539) - lu(k,1247) * lu(k,1525) - lu(k,1569) = lu(k,1569) - lu(k,1234) * lu(k,1568) - lu(k,1570) = lu(k,1570) - lu(k,1235) * lu(k,1568) - lu(k,1571) = lu(k,1571) - lu(k,1236) * lu(k,1568) - lu(k,1572) = lu(k,1572) - lu(k,1237) * lu(k,1568) - lu(k,1573) = lu(k,1573) - lu(k,1238) * lu(k,1568) - lu(k,1574) = lu(k,1574) - lu(k,1239) * lu(k,1568) - lu(k,1575) = lu(k,1575) - lu(k,1240) * lu(k,1568) - lu(k,1576) = lu(k,1576) - lu(k,1241) * lu(k,1568) - lu(k,1577) = lu(k,1577) - lu(k,1242) * lu(k,1568) - lu(k,1578) = lu(k,1578) - lu(k,1243) * lu(k,1568) - lu(k,1579) = lu(k,1579) - lu(k,1244) * lu(k,1568) - lu(k,1580) = lu(k,1580) - lu(k,1245) * lu(k,1568) - lu(k,1581) = lu(k,1581) - lu(k,1246) * lu(k,1568) - lu(k,1582) = lu(k,1582) - lu(k,1247) * lu(k,1568) - lu(k,1602) = lu(k,1602) - lu(k,1234) * lu(k,1601) - lu(k,1603) = lu(k,1603) - lu(k,1235) * lu(k,1601) - lu(k,1604) = lu(k,1604) - lu(k,1236) * lu(k,1601) - lu(k,1605) = lu(k,1605) - lu(k,1237) * lu(k,1601) - lu(k,1606) = lu(k,1606) - lu(k,1238) * lu(k,1601) - lu(k,1607) = lu(k,1607) - lu(k,1239) * lu(k,1601) - lu(k,1608) = lu(k,1608) - lu(k,1240) * lu(k,1601) - lu(k,1609) = lu(k,1609) - lu(k,1241) * lu(k,1601) - lu(k,1610) = lu(k,1610) - lu(k,1242) * lu(k,1601) - lu(k,1611) = lu(k,1611) - lu(k,1243) * lu(k,1601) - lu(k,1612) = lu(k,1612) - lu(k,1244) * lu(k,1601) - lu(k,1613) = lu(k,1613) - lu(k,1245) * lu(k,1601) - lu(k,1614) = lu(k,1614) - lu(k,1246) * lu(k,1601) - lu(k,1615) = lu(k,1615) - lu(k,1247) * lu(k,1601) - lu(k,1638) = lu(k,1638) - lu(k,1234) * lu(k,1637) - lu(k,1639) = lu(k,1639) - lu(k,1235) * lu(k,1637) - lu(k,1640) = lu(k,1640) - lu(k,1236) * lu(k,1637) - lu(k,1641) = lu(k,1641) - lu(k,1237) * lu(k,1637) - lu(k,1642) = lu(k,1642) - lu(k,1238) * lu(k,1637) - lu(k,1643) = lu(k,1643) - lu(k,1239) * lu(k,1637) - lu(k,1644) = lu(k,1644) - lu(k,1240) * lu(k,1637) - lu(k,1645) = lu(k,1645) - lu(k,1241) * lu(k,1637) - lu(k,1646) = lu(k,1646) - lu(k,1242) * lu(k,1637) - lu(k,1647) = lu(k,1647) - lu(k,1243) * lu(k,1637) - lu(k,1648) = lu(k,1648) - lu(k,1244) * lu(k,1637) - lu(k,1649) = lu(k,1649) - lu(k,1245) * lu(k,1637) - lu(k,1650) = lu(k,1650) - lu(k,1246) * lu(k,1637) - lu(k,1651) = lu(k,1651) - lu(k,1247) * lu(k,1637) - lu(k,1681) = lu(k,1681) - lu(k,1234) * lu(k,1680) - lu(k,1682) = lu(k,1682) - lu(k,1235) * lu(k,1680) - lu(k,1683) = lu(k,1683) - lu(k,1236) * lu(k,1680) - lu(k,1684) = lu(k,1684) - lu(k,1237) * lu(k,1680) - lu(k,1685) = lu(k,1685) - lu(k,1238) * lu(k,1680) - lu(k,1686) = lu(k,1686) - lu(k,1239) * lu(k,1680) - lu(k,1687) = lu(k,1687) - lu(k,1240) * lu(k,1680) - lu(k,1688) = lu(k,1688) - lu(k,1241) * lu(k,1680) - lu(k,1689) = lu(k,1689) - lu(k,1242) * lu(k,1680) - lu(k,1690) = lu(k,1690) - lu(k,1243) * lu(k,1680) - lu(k,1691) = lu(k,1691) - lu(k,1244) * lu(k,1680) - lu(k,1692) = lu(k,1692) - lu(k,1245) * lu(k,1680) - lu(k,1693) = lu(k,1693) - lu(k,1246) * lu(k,1680) - lu(k,1694) = lu(k,1694) - lu(k,1247) * lu(k,1680) - lu(k,1717) = lu(k,1717) - lu(k,1234) * lu(k,1716) - lu(k,1718) = lu(k,1718) - lu(k,1235) * lu(k,1716) - lu(k,1719) = lu(k,1719) - lu(k,1236) * lu(k,1716) - lu(k,1720) = lu(k,1720) - lu(k,1237) * lu(k,1716) - lu(k,1721) = lu(k,1721) - lu(k,1238) * lu(k,1716) - lu(k,1722) = lu(k,1722) - lu(k,1239) * lu(k,1716) - lu(k,1723) = lu(k,1723) - lu(k,1240) * lu(k,1716) - lu(k,1724) = lu(k,1724) - lu(k,1241) * lu(k,1716) - lu(k,1725) = lu(k,1725) - lu(k,1242) * lu(k,1716) - lu(k,1726) = lu(k,1726) - lu(k,1243) * lu(k,1716) - lu(k,1727) = lu(k,1727) - lu(k,1244) * lu(k,1716) - lu(k,1728) = lu(k,1728) - lu(k,1245) * lu(k,1716) - lu(k,1729) = lu(k,1729) - lu(k,1246) * lu(k,1716) - lu(k,1730) = lu(k,1730) - lu(k,1247) * lu(k,1716) - lu(k,1759) = lu(k,1759) - lu(k,1234) * lu(k,1758) - lu(k,1760) = lu(k,1760) - lu(k,1235) * lu(k,1758) - lu(k,1761) = lu(k,1761) - lu(k,1236) * lu(k,1758) - lu(k,1762) = lu(k,1762) - lu(k,1237) * lu(k,1758) - lu(k,1763) = lu(k,1763) - lu(k,1238) * lu(k,1758) - lu(k,1764) = lu(k,1764) - lu(k,1239) * lu(k,1758) - lu(k,1765) = lu(k,1765) - lu(k,1240) * lu(k,1758) - lu(k,1766) = lu(k,1766) - lu(k,1241) * lu(k,1758) - lu(k,1767) = lu(k,1767) - lu(k,1242) * lu(k,1758) - lu(k,1768) = lu(k,1768) - lu(k,1243) * lu(k,1758) - lu(k,1769) = lu(k,1769) - lu(k,1244) * lu(k,1758) - lu(k,1770) = lu(k,1770) - lu(k,1245) * lu(k,1758) - lu(k,1771) = lu(k,1771) - lu(k,1246) * lu(k,1758) - lu(k,1772) = lu(k,1772) - lu(k,1247) * lu(k,1758) - lu(k,1812) = lu(k,1812) - lu(k,1234) * lu(k,1811) - lu(k,1813) = lu(k,1813) - lu(k,1235) * lu(k,1811) - lu(k,1814) = lu(k,1814) - lu(k,1236) * lu(k,1811) - lu(k,1815) = lu(k,1815) - lu(k,1237) * lu(k,1811) - lu(k,1816) = lu(k,1816) - lu(k,1238) * lu(k,1811) - lu(k,1817) = lu(k,1817) - lu(k,1239) * lu(k,1811) - lu(k,1818) = lu(k,1818) - lu(k,1240) * lu(k,1811) - lu(k,1819) = lu(k,1819) - lu(k,1241) * lu(k,1811) - lu(k,1820) = lu(k,1820) - lu(k,1242) * lu(k,1811) - lu(k,1821) = lu(k,1821) - lu(k,1243) * lu(k,1811) - lu(k,1822) = lu(k,1822) - lu(k,1244) * lu(k,1811) - lu(k,1823) = lu(k,1823) - lu(k,1245) * lu(k,1811) - lu(k,1824) = lu(k,1824) - lu(k,1246) * lu(k,1811) - lu(k,1825) = lu(k,1825) - lu(k,1247) * lu(k,1811) - 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,1288) = lu(k,1288) * lu(k,1277) - lu(k,1289) = lu(k,1289) * lu(k,1277) - lu(k,1290) = lu(k,1290) * lu(k,1277) - lu(k,1314) = lu(k,1314) - lu(k,1278) * lu(k,1313) - lu(k,1315) = lu(k,1315) - lu(k,1279) * lu(k,1313) - lu(k,1316) = lu(k,1316) - lu(k,1280) * lu(k,1313) - lu(k,1317) = lu(k,1317) - lu(k,1281) * lu(k,1313) - lu(k,1318) = lu(k,1318) - lu(k,1282) * lu(k,1313) - lu(k,1319) = lu(k,1319) - lu(k,1283) * lu(k,1313) - lu(k,1320) = lu(k,1320) - lu(k,1284) * lu(k,1313) - lu(k,1321) = lu(k,1321) - lu(k,1285) * lu(k,1313) - lu(k,1322) = lu(k,1322) - lu(k,1286) * lu(k,1313) - lu(k,1323) = lu(k,1323) - lu(k,1287) * lu(k,1313) - lu(k,1324) = lu(k,1324) - lu(k,1288) * lu(k,1313) - lu(k,1325) = lu(k,1325) - lu(k,1289) * lu(k,1313) - lu(k,1326) = lu(k,1326) - lu(k,1290) * lu(k,1313) - lu(k,1359) = lu(k,1359) - lu(k,1278) * lu(k,1358) - lu(k,1360) = lu(k,1360) - lu(k,1279) * lu(k,1358) - lu(k,1361) = lu(k,1361) - lu(k,1280) * lu(k,1358) - lu(k,1362) = lu(k,1362) - lu(k,1281) * lu(k,1358) - lu(k,1363) = lu(k,1363) - lu(k,1282) * lu(k,1358) - lu(k,1364) = lu(k,1364) - lu(k,1283) * lu(k,1358) - lu(k,1365) = lu(k,1365) - lu(k,1284) * lu(k,1358) - lu(k,1366) = lu(k,1366) - lu(k,1285) * lu(k,1358) - lu(k,1367) = lu(k,1367) - lu(k,1286) * lu(k,1358) - lu(k,1368) = lu(k,1368) - lu(k,1287) * lu(k,1358) - lu(k,1369) = lu(k,1369) - lu(k,1288) * lu(k,1358) - lu(k,1370) = lu(k,1370) - lu(k,1289) * lu(k,1358) - lu(k,1371) = lu(k,1371) - lu(k,1290) * lu(k,1358) - lu(k,1401) = lu(k,1401) - lu(k,1278) * lu(k,1400) - lu(k,1402) = lu(k,1402) - lu(k,1279) * lu(k,1400) - lu(k,1403) = lu(k,1403) - lu(k,1280) * lu(k,1400) - lu(k,1404) = lu(k,1404) - lu(k,1281) * lu(k,1400) - lu(k,1405) = lu(k,1405) - lu(k,1282) * lu(k,1400) - lu(k,1406) = lu(k,1406) - lu(k,1283) * lu(k,1400) - lu(k,1407) = lu(k,1407) - lu(k,1284) * lu(k,1400) - lu(k,1408) = lu(k,1408) - lu(k,1285) * lu(k,1400) - lu(k,1409) = lu(k,1409) - lu(k,1286) * lu(k,1400) - lu(k,1410) = lu(k,1410) - lu(k,1287) * lu(k,1400) - lu(k,1411) = lu(k,1411) - lu(k,1288) * lu(k,1400) - lu(k,1412) = lu(k,1412) - lu(k,1289) * lu(k,1400) - lu(k,1413) = lu(k,1413) - lu(k,1290) * lu(k,1400) - lu(k,1439) = lu(k,1439) - lu(k,1278) * lu(k,1438) - lu(k,1440) = lu(k,1440) - lu(k,1279) * lu(k,1438) - lu(k,1441) = lu(k,1441) - lu(k,1280) * lu(k,1438) - lu(k,1442) = lu(k,1442) - lu(k,1281) * lu(k,1438) - lu(k,1443) = lu(k,1443) - lu(k,1282) * lu(k,1438) - lu(k,1444) = lu(k,1444) - lu(k,1283) * lu(k,1438) - lu(k,1445) = lu(k,1445) - lu(k,1284) * lu(k,1438) - lu(k,1446) = lu(k,1446) - lu(k,1285) * lu(k,1438) - lu(k,1447) = lu(k,1447) - lu(k,1286) * lu(k,1438) - lu(k,1448) = lu(k,1448) - lu(k,1287) * lu(k,1438) - lu(k,1449) = lu(k,1449) - lu(k,1288) * lu(k,1438) - lu(k,1450) = lu(k,1450) - lu(k,1289) * lu(k,1438) - lu(k,1451) = lu(k,1451) - lu(k,1290) * lu(k,1438) - lu(k,1484) = lu(k,1484) - lu(k,1278) * lu(k,1483) - lu(k,1485) = lu(k,1485) - lu(k,1279) * lu(k,1483) - lu(k,1486) = lu(k,1486) - lu(k,1280) * lu(k,1483) - lu(k,1487) = lu(k,1487) - lu(k,1281) * lu(k,1483) - lu(k,1488) = lu(k,1488) - lu(k,1282) * lu(k,1483) - lu(k,1489) = lu(k,1489) - lu(k,1283) * lu(k,1483) - lu(k,1490) = lu(k,1490) - lu(k,1284) * lu(k,1483) - lu(k,1491) = lu(k,1491) - lu(k,1285) * lu(k,1483) - lu(k,1492) = lu(k,1492) - lu(k,1286) * lu(k,1483) - lu(k,1493) = lu(k,1493) - lu(k,1287) * lu(k,1483) - lu(k,1494) = lu(k,1494) - lu(k,1288) * lu(k,1483) - lu(k,1495) = lu(k,1495) - lu(k,1289) * lu(k,1483) - lu(k,1496) = lu(k,1496) - lu(k,1290) * lu(k,1483) - lu(k,1527) = lu(k,1527) - lu(k,1278) * lu(k,1526) - lu(k,1528) = lu(k,1528) - lu(k,1279) * lu(k,1526) - lu(k,1529) = lu(k,1529) - lu(k,1280) * lu(k,1526) - lu(k,1530) = lu(k,1530) - lu(k,1281) * lu(k,1526) - lu(k,1531) = lu(k,1531) - lu(k,1282) * lu(k,1526) - lu(k,1532) = lu(k,1532) - lu(k,1283) * lu(k,1526) - lu(k,1533) = lu(k,1533) - lu(k,1284) * lu(k,1526) - lu(k,1534) = lu(k,1534) - lu(k,1285) * lu(k,1526) - lu(k,1535) = lu(k,1535) - lu(k,1286) * lu(k,1526) - lu(k,1536) = lu(k,1536) - lu(k,1287) * lu(k,1526) - lu(k,1537) = lu(k,1537) - lu(k,1288) * lu(k,1526) - lu(k,1538) = lu(k,1538) - lu(k,1289) * lu(k,1526) - lu(k,1539) = lu(k,1539) - lu(k,1290) * lu(k,1526) - lu(k,1570) = lu(k,1570) - lu(k,1278) * lu(k,1569) - lu(k,1571) = lu(k,1571) - lu(k,1279) * lu(k,1569) - lu(k,1572) = lu(k,1572) - lu(k,1280) * lu(k,1569) - lu(k,1573) = lu(k,1573) - lu(k,1281) * lu(k,1569) - lu(k,1574) = lu(k,1574) - lu(k,1282) * lu(k,1569) - lu(k,1575) = lu(k,1575) - lu(k,1283) * lu(k,1569) - lu(k,1576) = lu(k,1576) - lu(k,1284) * lu(k,1569) - lu(k,1577) = lu(k,1577) - lu(k,1285) * lu(k,1569) - lu(k,1578) = lu(k,1578) - lu(k,1286) * lu(k,1569) - lu(k,1579) = lu(k,1579) - lu(k,1287) * lu(k,1569) - lu(k,1580) = lu(k,1580) - lu(k,1288) * lu(k,1569) - lu(k,1581) = lu(k,1581) - lu(k,1289) * lu(k,1569) - lu(k,1582) = lu(k,1582) - lu(k,1290) * lu(k,1569) - lu(k,1603) = lu(k,1603) - lu(k,1278) * lu(k,1602) - lu(k,1604) = lu(k,1604) - lu(k,1279) * lu(k,1602) - lu(k,1605) = lu(k,1605) - lu(k,1280) * lu(k,1602) - lu(k,1606) = lu(k,1606) - lu(k,1281) * lu(k,1602) - lu(k,1607) = lu(k,1607) - lu(k,1282) * lu(k,1602) - lu(k,1608) = lu(k,1608) - lu(k,1283) * lu(k,1602) - lu(k,1609) = lu(k,1609) - lu(k,1284) * lu(k,1602) - lu(k,1610) = lu(k,1610) - lu(k,1285) * lu(k,1602) - lu(k,1611) = lu(k,1611) - lu(k,1286) * lu(k,1602) - lu(k,1612) = lu(k,1612) - lu(k,1287) * lu(k,1602) - lu(k,1613) = lu(k,1613) - lu(k,1288) * lu(k,1602) - lu(k,1614) = lu(k,1614) - lu(k,1289) * lu(k,1602) - lu(k,1615) = lu(k,1615) - lu(k,1290) * lu(k,1602) - lu(k,1639) = lu(k,1639) - lu(k,1278) * lu(k,1638) - lu(k,1640) = lu(k,1640) - lu(k,1279) * lu(k,1638) - lu(k,1641) = lu(k,1641) - lu(k,1280) * lu(k,1638) - lu(k,1642) = lu(k,1642) - lu(k,1281) * lu(k,1638) - lu(k,1643) = lu(k,1643) - lu(k,1282) * lu(k,1638) - lu(k,1644) = lu(k,1644) - lu(k,1283) * lu(k,1638) - lu(k,1645) = lu(k,1645) - lu(k,1284) * lu(k,1638) - lu(k,1646) = lu(k,1646) - lu(k,1285) * lu(k,1638) - lu(k,1647) = lu(k,1647) - lu(k,1286) * lu(k,1638) - lu(k,1648) = lu(k,1648) - lu(k,1287) * lu(k,1638) - lu(k,1649) = lu(k,1649) - lu(k,1288) * lu(k,1638) - lu(k,1650) = lu(k,1650) - lu(k,1289) * lu(k,1638) - lu(k,1651) = lu(k,1651) - lu(k,1290) * lu(k,1638) - lu(k,1682) = lu(k,1682) - lu(k,1278) * lu(k,1681) - lu(k,1683) = lu(k,1683) - lu(k,1279) * lu(k,1681) - lu(k,1684) = lu(k,1684) - lu(k,1280) * lu(k,1681) - lu(k,1685) = lu(k,1685) - lu(k,1281) * lu(k,1681) - lu(k,1686) = lu(k,1686) - lu(k,1282) * lu(k,1681) - lu(k,1687) = lu(k,1687) - lu(k,1283) * lu(k,1681) - lu(k,1688) = lu(k,1688) - lu(k,1284) * lu(k,1681) - lu(k,1689) = lu(k,1689) - lu(k,1285) * lu(k,1681) - lu(k,1690) = lu(k,1690) - lu(k,1286) * lu(k,1681) - lu(k,1691) = lu(k,1691) - lu(k,1287) * lu(k,1681) - lu(k,1692) = lu(k,1692) - lu(k,1288) * lu(k,1681) - lu(k,1693) = lu(k,1693) - lu(k,1289) * lu(k,1681) - lu(k,1694) = lu(k,1694) - lu(k,1290) * lu(k,1681) - lu(k,1718) = lu(k,1718) - lu(k,1278) * lu(k,1717) - lu(k,1719) = lu(k,1719) - lu(k,1279) * lu(k,1717) - lu(k,1720) = lu(k,1720) - lu(k,1280) * lu(k,1717) - lu(k,1721) = lu(k,1721) - lu(k,1281) * lu(k,1717) - lu(k,1722) = lu(k,1722) - lu(k,1282) * lu(k,1717) - lu(k,1723) = lu(k,1723) - lu(k,1283) * lu(k,1717) - lu(k,1724) = lu(k,1724) - lu(k,1284) * lu(k,1717) - lu(k,1725) = lu(k,1725) - lu(k,1285) * lu(k,1717) - lu(k,1726) = lu(k,1726) - lu(k,1286) * lu(k,1717) - lu(k,1727) = lu(k,1727) - lu(k,1287) * lu(k,1717) - lu(k,1728) = lu(k,1728) - lu(k,1288) * lu(k,1717) - lu(k,1729) = lu(k,1729) - lu(k,1289) * lu(k,1717) - lu(k,1730) = lu(k,1730) - lu(k,1290) * lu(k,1717) - lu(k,1760) = lu(k,1760) - lu(k,1278) * lu(k,1759) - lu(k,1761) = lu(k,1761) - lu(k,1279) * lu(k,1759) - lu(k,1762) = lu(k,1762) - lu(k,1280) * lu(k,1759) - lu(k,1763) = lu(k,1763) - lu(k,1281) * lu(k,1759) - lu(k,1764) = lu(k,1764) - lu(k,1282) * lu(k,1759) - lu(k,1765) = lu(k,1765) - lu(k,1283) * lu(k,1759) - lu(k,1766) = lu(k,1766) - lu(k,1284) * lu(k,1759) - lu(k,1767) = lu(k,1767) - lu(k,1285) * lu(k,1759) - lu(k,1768) = lu(k,1768) - lu(k,1286) * lu(k,1759) - lu(k,1769) = lu(k,1769) - lu(k,1287) * lu(k,1759) - lu(k,1770) = lu(k,1770) - lu(k,1288) * lu(k,1759) - lu(k,1771) = lu(k,1771) - lu(k,1289) * lu(k,1759) - lu(k,1772) = lu(k,1772) - lu(k,1290) * lu(k,1759) - lu(k,1813) = lu(k,1813) - lu(k,1278) * lu(k,1812) - lu(k,1814) = lu(k,1814) - lu(k,1279) * lu(k,1812) - lu(k,1815) = lu(k,1815) - lu(k,1280) * lu(k,1812) - lu(k,1816) = lu(k,1816) - lu(k,1281) * lu(k,1812) - lu(k,1817) = lu(k,1817) - lu(k,1282) * lu(k,1812) - lu(k,1818) = lu(k,1818) - lu(k,1283) * lu(k,1812) - lu(k,1819) = lu(k,1819) - lu(k,1284) * lu(k,1812) - lu(k,1820) = lu(k,1820) - lu(k,1285) * lu(k,1812) - lu(k,1821) = lu(k,1821) - lu(k,1286) * lu(k,1812) - lu(k,1822) = lu(k,1822) - lu(k,1287) * lu(k,1812) - lu(k,1823) = lu(k,1823) - lu(k,1288) * lu(k,1812) - lu(k,1824) = lu(k,1824) - lu(k,1289) * lu(k,1812) - lu(k,1825) = lu(k,1825) - lu(k,1290) * lu(k,1812) - end do + real(r8), intent(inout) :: lu(:) + lu(1158) = 1._r8 / lu(1158) + lu(1159) = lu(1159) * lu(1158) + lu(1160) = lu(1160) * lu(1158) + lu(1161) = lu(1161) * lu(1158) + lu(1162) = lu(1162) * lu(1158) + lu(1163) = lu(1163) * lu(1158) + lu(1164) = lu(1164) * lu(1158) + lu(1165) = lu(1165) * lu(1158) + lu(1166) = lu(1166) * lu(1158) + lu(1167) = lu(1167) * lu(1158) + lu(1168) = lu(1168) * lu(1158) + lu(1169) = lu(1169) * lu(1158) + lu(1170) = lu(1170) * lu(1158) + lu(1171) = lu(1171) * lu(1158) + lu(1172) = lu(1172) * lu(1158) + lu(1201) = lu(1201) - lu(1159) * lu(1200) + lu(1202) = lu(1202) - lu(1160) * lu(1200) + lu(1203) = lu(1203) - lu(1161) * lu(1200) + lu(1204) = lu(1204) - lu(1162) * lu(1200) + lu(1205) = lu(1205) - lu(1163) * lu(1200) + lu(1206) = lu(1206) - lu(1164) * lu(1200) + lu(1207) = lu(1207) - lu(1165) * lu(1200) + lu(1208) = lu(1208) - lu(1166) * lu(1200) + lu(1209) = lu(1209) - lu(1167) * lu(1200) + lu(1210) = lu(1210) - lu(1168) * lu(1200) + lu(1211) = lu(1211) - lu(1169) * lu(1200) + lu(1212) = lu(1212) - lu(1170) * lu(1200) + lu(1213) = lu(1213) - lu(1171) * lu(1200) + lu(1214) = lu(1214) - lu(1172) * lu(1200) + lu(1236) = lu(1236) - lu(1159) * lu(1235) + lu(1237) = lu(1237) - lu(1160) * lu(1235) + lu(1238) = lu(1238) - lu(1161) * lu(1235) + lu(1239) = lu(1239) - lu(1162) * lu(1235) + lu(1240) = lu(1240) - lu(1163) * lu(1235) + lu(1241) = lu(1241) - lu(1164) * lu(1235) + lu(1242) = lu(1242) - lu(1165) * lu(1235) + lu(1243) = lu(1243) - lu(1166) * lu(1235) + lu(1244) = lu(1244) - lu(1167) * lu(1235) + lu(1245) = lu(1245) - lu(1168) * lu(1235) + lu(1246) = lu(1246) - lu(1169) * lu(1235) + lu(1247) = lu(1247) - lu(1170) * lu(1235) + lu(1248) = lu(1248) - lu(1171) * lu(1235) + lu(1249) = lu(1249) - lu(1172) * lu(1235) + lu(1280) = lu(1280) - lu(1159) * lu(1279) + lu(1281) = lu(1281) - lu(1160) * lu(1279) + lu(1282) = lu(1282) - lu(1161) * lu(1279) + lu(1283) = lu(1283) - lu(1162) * lu(1279) + lu(1284) = lu(1284) - lu(1163) * lu(1279) + lu(1285) = lu(1285) - lu(1164) * lu(1279) + lu(1286) = lu(1286) - lu(1165) * lu(1279) + lu(1287) = lu(1287) - lu(1166) * lu(1279) + lu(1288) = lu(1288) - lu(1167) * lu(1279) + lu(1289) = lu(1289) - lu(1168) * lu(1279) + lu(1290) = lu(1290) - lu(1169) * lu(1279) + lu(1291) = lu(1291) - lu(1170) * lu(1279) + lu(1292) = lu(1292) - lu(1171) * lu(1279) + lu(1293) = lu(1293) - lu(1172) * lu(1279) + lu(1321) = lu(1321) - lu(1159) * lu(1320) + lu(1322) = lu(1322) - lu(1160) * lu(1320) + lu(1323) = lu(1323) - lu(1161) * lu(1320) + lu(1324) = lu(1324) - lu(1162) * lu(1320) + lu(1325) = lu(1325) - lu(1163) * lu(1320) + lu(1326) = lu(1326) - lu(1164) * lu(1320) + lu(1327) = lu(1327) - lu(1165) * lu(1320) + lu(1328) = lu(1328) - lu(1166) * lu(1320) + lu(1329) = lu(1329) - lu(1167) * lu(1320) + lu(1330) = lu(1330) - lu(1168) * lu(1320) + lu(1331) = lu(1331) - lu(1169) * lu(1320) + lu(1332) = lu(1332) - lu(1170) * lu(1320) + lu(1333) = lu(1333) - lu(1171) * lu(1320) + lu(1334) = lu(1334) - lu(1172) * lu(1320) + lu(1363) = lu(1363) - lu(1159) * lu(1362) + lu(1364) = lu(1364) - lu(1160) * lu(1362) + lu(1365) = lu(1365) - lu(1161) * lu(1362) + lu(1366) = lu(1366) - lu(1162) * lu(1362) + lu(1367) = lu(1367) - lu(1163) * lu(1362) + lu(1368) = lu(1368) - lu(1164) * lu(1362) + lu(1369) = lu(1369) - lu(1165) * lu(1362) + lu(1370) = lu(1370) - lu(1166) * lu(1362) + lu(1371) = lu(1371) - lu(1167) * lu(1362) + lu(1372) = lu(1372) - lu(1168) * lu(1362) + lu(1373) = lu(1373) - lu(1169) * lu(1362) + lu(1374) = lu(1374) - lu(1170) * lu(1362) + lu(1375) = lu(1375) - lu(1171) * lu(1362) + lu(1376) = lu(1376) - lu(1172) * lu(1362) + lu(1405) = lu(1405) - lu(1159) * lu(1404) + lu(1406) = lu(1406) - lu(1160) * lu(1404) + lu(1407) = lu(1407) - lu(1161) * lu(1404) + lu(1408) = lu(1408) - lu(1162) * lu(1404) + lu(1409) = lu(1409) - lu(1163) * lu(1404) + lu(1410) = lu(1410) - lu(1164) * lu(1404) + lu(1411) = lu(1411) - lu(1165) * lu(1404) + lu(1412) = lu(1412) - lu(1166) * lu(1404) + lu(1413) = lu(1413) - lu(1167) * lu(1404) + lu(1414) = lu(1414) - lu(1168) * lu(1404) + lu(1415) = lu(1415) - lu(1169) * lu(1404) + lu(1416) = lu(1416) - lu(1170) * lu(1404) + lu(1417) = lu(1417) - lu(1171) * lu(1404) + lu(1418) = lu(1418) - lu(1172) * lu(1404) + lu(1447) = lu(1447) - lu(1159) * lu(1446) + lu(1448) = lu(1448) - lu(1160) * lu(1446) + lu(1449) = lu(1449) - lu(1161) * lu(1446) + lu(1450) = lu(1450) - lu(1162) * lu(1446) + lu(1451) = lu(1451) - lu(1163) * lu(1446) + lu(1452) = lu(1452) - lu(1164) * lu(1446) + lu(1453) = lu(1453) - lu(1165) * lu(1446) + lu(1454) = lu(1454) - lu(1166) * lu(1446) + lu(1455) = lu(1455) - lu(1167) * lu(1446) + lu(1456) = lu(1456) - lu(1168) * lu(1446) + lu(1457) = lu(1457) - lu(1169) * lu(1446) + lu(1458) = lu(1458) - lu(1170) * lu(1446) + lu(1459) = lu(1459) - lu(1171) * lu(1446) + lu(1460) = lu(1460) - lu(1172) * lu(1446) + lu(1502) = lu(1502) - lu(1159) * lu(1501) + lu(1503) = lu(1503) - lu(1160) * lu(1501) + lu(1504) = lu(1504) - lu(1161) * lu(1501) + lu(1505) = lu(1505) - lu(1162) * lu(1501) + lu(1506) = lu(1506) - lu(1163) * lu(1501) + lu(1507) = lu(1507) - lu(1164) * lu(1501) + lu(1508) = lu(1508) - lu(1165) * lu(1501) + lu(1509) = lu(1509) - lu(1166) * lu(1501) + lu(1510) = lu(1510) - lu(1167) * lu(1501) + lu(1511) = lu(1511) - lu(1168) * lu(1501) + lu(1512) = lu(1512) - lu(1169) * lu(1501) + lu(1513) = lu(1513) - lu(1170) * lu(1501) + lu(1514) = lu(1514) - lu(1171) * lu(1501) + lu(1515) = lu(1515) - lu(1172) * lu(1501) + lu(1534) = lu(1534) - lu(1159) * lu(1533) + lu(1535) = lu(1535) - lu(1160) * lu(1533) + lu(1536) = lu(1536) - lu(1161) * lu(1533) + lu(1537) = lu(1537) - lu(1162) * lu(1533) + lu(1538) = lu(1538) - lu(1163) * lu(1533) + lu(1539) = lu(1539) - lu(1164) * lu(1533) + lu(1540) = lu(1540) - lu(1165) * lu(1533) + lu(1541) = lu(1541) - lu(1166) * lu(1533) + lu(1542) = lu(1542) - lu(1167) * lu(1533) + lu(1543) = lu(1543) - lu(1168) * lu(1533) + lu(1544) = lu(1544) - lu(1169) * lu(1533) + lu(1545) = lu(1545) - lu(1170) * lu(1533) + lu(1546) = lu(1546) - lu(1171) * lu(1533) + lu(1547) = lu(1547) - lu(1172) * lu(1533) + lu(1569) = lu(1569) - lu(1159) * lu(1568) + lu(1570) = lu(1570) - lu(1160) * lu(1568) + lu(1571) = lu(1571) - lu(1161) * lu(1568) + lu(1572) = lu(1572) - lu(1162) * lu(1568) + lu(1573) = lu(1573) - lu(1163) * lu(1568) + lu(1574) = lu(1574) - lu(1164) * lu(1568) + lu(1575) = lu(1575) - lu(1165) * lu(1568) + lu(1576) = lu(1576) - lu(1166) * lu(1568) + lu(1577) = lu(1577) - lu(1167) * lu(1568) + lu(1578) = lu(1578) - lu(1168) * lu(1568) + lu(1579) = lu(1579) - lu(1169) * lu(1568) + lu(1580) = lu(1580) - lu(1170) * lu(1568) + lu(1581) = lu(1581) - lu(1171) * lu(1568) + lu(1582) = lu(1582) - lu(1172) * lu(1568) + lu(1607) = lu(1607) - lu(1159) * lu(1606) + lu(1608) = lu(1608) - lu(1160) * lu(1606) + lu(1609) = lu(1609) - lu(1161) * lu(1606) + lu(1610) = lu(1610) - lu(1162) * lu(1606) + lu(1611) = lu(1611) - lu(1163) * lu(1606) + lu(1612) = lu(1612) - lu(1164) * lu(1606) + lu(1613) = lu(1613) - lu(1165) * lu(1606) + lu(1614) = lu(1614) - lu(1166) * lu(1606) + lu(1615) = lu(1615) - lu(1167) * lu(1606) + lu(1616) = lu(1616) - lu(1168) * lu(1606) + lu(1617) = lu(1617) - lu(1169) * lu(1606) + lu(1618) = lu(1618) - lu(1170) * lu(1606) + lu(1619) = lu(1619) - lu(1171) * lu(1606) + lu(1620) = lu(1620) - lu(1172) * lu(1606) + lu(1646) = lu(1646) - lu(1159) * lu(1645) + lu(1647) = lu(1647) - lu(1160) * lu(1645) + lu(1648) = lu(1648) - lu(1161) * lu(1645) + lu(1649) = lu(1649) - lu(1162) * lu(1645) + lu(1650) = lu(1650) - lu(1163) * lu(1645) + lu(1651) = lu(1651) - lu(1164) * lu(1645) + lu(1652) = lu(1652) - lu(1165) * lu(1645) + lu(1653) = lu(1653) - lu(1166) * lu(1645) + lu(1654) = lu(1654) - lu(1167) * lu(1645) + lu(1655) = lu(1655) - lu(1168) * lu(1645) + lu(1656) = lu(1656) - lu(1169) * lu(1645) + lu(1657) = lu(1657) - lu(1170) * lu(1645) + lu(1658) = lu(1658) - lu(1171) * lu(1645) + lu(1659) = lu(1659) - lu(1172) * lu(1645) + lu(1680) = lu(1680) - lu(1159) * lu(1679) + lu(1681) = lu(1681) - lu(1160) * lu(1679) + lu(1682) = lu(1682) - lu(1161) * lu(1679) + lu(1683) = lu(1683) - lu(1162) * lu(1679) + lu(1684) = lu(1684) - lu(1163) * lu(1679) + lu(1685) = lu(1685) - lu(1164) * lu(1679) + lu(1686) = lu(1686) - lu(1165) * lu(1679) + lu(1687) = lu(1687) - lu(1166) * lu(1679) + lu(1688) = lu(1688) - lu(1167) * lu(1679) + lu(1689) = lu(1689) - lu(1168) * lu(1679) + lu(1690) = lu(1690) - lu(1169) * lu(1679) + lu(1691) = lu(1691) - lu(1170) * lu(1679) + lu(1692) = lu(1692) - lu(1171) * lu(1679) + lu(1693) = lu(1693) - lu(1172) * lu(1679) + lu(1732) = lu(1732) - lu(1159) * lu(1731) + lu(1733) = lu(1733) - lu(1160) * lu(1731) + lu(1734) = lu(1734) - lu(1161) * lu(1731) + lu(1735) = lu(1735) - lu(1162) * lu(1731) + lu(1736) = lu(1736) - lu(1163) * lu(1731) + lu(1737) = lu(1737) - lu(1164) * lu(1731) + lu(1738) = lu(1738) - lu(1165) * lu(1731) + lu(1739) = lu(1739) - lu(1166) * lu(1731) + lu(1740) = lu(1740) - lu(1167) * lu(1731) + lu(1741) = lu(1741) - lu(1168) * lu(1731) + lu(1742) = lu(1742) - lu(1169) * lu(1731) + lu(1743) = lu(1743) - lu(1170) * lu(1731) + lu(1744) = lu(1744) - lu(1171) * lu(1731) + lu(1745) = lu(1745) - lu(1172) * lu(1731) + lu(1201) = 1._r8 / lu(1201) + lu(1202) = lu(1202) * lu(1201) + lu(1203) = lu(1203) * lu(1201) + lu(1204) = lu(1204) * lu(1201) + lu(1205) = lu(1205) * lu(1201) + lu(1206) = lu(1206) * lu(1201) + lu(1207) = lu(1207) * lu(1201) + lu(1208) = lu(1208) * lu(1201) + lu(1209) = lu(1209) * lu(1201) + lu(1210) = lu(1210) * lu(1201) + lu(1211) = lu(1211) * lu(1201) + lu(1212) = lu(1212) * lu(1201) + lu(1213) = lu(1213) * lu(1201) + lu(1214) = lu(1214) * lu(1201) + lu(1237) = lu(1237) - lu(1202) * lu(1236) + lu(1238) = lu(1238) - lu(1203) * lu(1236) + lu(1239) = lu(1239) - lu(1204) * lu(1236) + lu(1240) = lu(1240) - lu(1205) * lu(1236) + lu(1241) = lu(1241) - lu(1206) * lu(1236) + lu(1242) = lu(1242) - lu(1207) * lu(1236) + lu(1243) = lu(1243) - lu(1208) * lu(1236) + lu(1244) = lu(1244) - lu(1209) * lu(1236) + lu(1245) = lu(1245) - lu(1210) * lu(1236) + lu(1246) = lu(1246) - lu(1211) * lu(1236) + lu(1247) = lu(1247) - lu(1212) * lu(1236) + lu(1248) = lu(1248) - lu(1213) * lu(1236) + lu(1249) = lu(1249) - lu(1214) * lu(1236) + lu(1281) = lu(1281) - lu(1202) * lu(1280) + lu(1282) = lu(1282) - lu(1203) * lu(1280) + lu(1283) = lu(1283) - lu(1204) * lu(1280) + lu(1284) = lu(1284) - lu(1205) * lu(1280) + lu(1285) = lu(1285) - lu(1206) * lu(1280) + lu(1286) = lu(1286) - lu(1207) * lu(1280) + lu(1287) = lu(1287) - lu(1208) * lu(1280) + lu(1288) = lu(1288) - lu(1209) * lu(1280) + lu(1289) = lu(1289) - lu(1210) * lu(1280) + lu(1290) = lu(1290) - lu(1211) * lu(1280) + lu(1291) = lu(1291) - lu(1212) * lu(1280) + lu(1292) = lu(1292) - lu(1213) * lu(1280) + lu(1293) = lu(1293) - lu(1214) * lu(1280) + lu(1322) = lu(1322) - lu(1202) * lu(1321) + lu(1323) = lu(1323) - lu(1203) * lu(1321) + lu(1324) = lu(1324) - lu(1204) * lu(1321) + lu(1325) = lu(1325) - lu(1205) * lu(1321) + lu(1326) = lu(1326) - lu(1206) * lu(1321) + lu(1327) = lu(1327) - lu(1207) * lu(1321) + lu(1328) = lu(1328) - lu(1208) * lu(1321) + lu(1329) = lu(1329) - lu(1209) * lu(1321) + lu(1330) = lu(1330) - lu(1210) * lu(1321) + lu(1331) = lu(1331) - lu(1211) * lu(1321) + lu(1332) = lu(1332) - lu(1212) * lu(1321) + lu(1333) = lu(1333) - lu(1213) * lu(1321) + lu(1334) = lu(1334) - lu(1214) * lu(1321) + lu(1364) = lu(1364) - lu(1202) * lu(1363) + lu(1365) = lu(1365) - lu(1203) * lu(1363) + lu(1366) = lu(1366) - lu(1204) * lu(1363) + lu(1367) = lu(1367) - lu(1205) * lu(1363) + lu(1368) = lu(1368) - lu(1206) * lu(1363) + lu(1369) = lu(1369) - lu(1207) * lu(1363) + lu(1370) = lu(1370) - lu(1208) * lu(1363) + lu(1371) = lu(1371) - lu(1209) * lu(1363) + lu(1372) = lu(1372) - lu(1210) * lu(1363) + lu(1373) = lu(1373) - lu(1211) * lu(1363) + lu(1374) = lu(1374) - lu(1212) * lu(1363) + lu(1375) = lu(1375) - lu(1213) * lu(1363) + lu(1376) = lu(1376) - lu(1214) * lu(1363) + lu(1406) = lu(1406) - lu(1202) * lu(1405) + lu(1407) = lu(1407) - lu(1203) * lu(1405) + lu(1408) = lu(1408) - lu(1204) * lu(1405) + lu(1409) = lu(1409) - lu(1205) * lu(1405) + lu(1410) = lu(1410) - lu(1206) * lu(1405) + lu(1411) = lu(1411) - lu(1207) * lu(1405) + lu(1412) = lu(1412) - lu(1208) * lu(1405) + lu(1413) = lu(1413) - lu(1209) * lu(1405) + lu(1414) = lu(1414) - lu(1210) * lu(1405) + lu(1415) = lu(1415) - lu(1211) * lu(1405) + lu(1416) = lu(1416) - lu(1212) * lu(1405) + lu(1417) = lu(1417) - lu(1213) * lu(1405) + lu(1418) = lu(1418) - lu(1214) * lu(1405) + lu(1448) = lu(1448) - lu(1202) * lu(1447) + lu(1449) = lu(1449) - lu(1203) * lu(1447) + lu(1450) = lu(1450) - lu(1204) * lu(1447) + lu(1451) = lu(1451) - lu(1205) * lu(1447) + lu(1452) = lu(1452) - lu(1206) * lu(1447) + lu(1453) = lu(1453) - lu(1207) * lu(1447) + lu(1454) = lu(1454) - lu(1208) * lu(1447) + lu(1455) = lu(1455) - lu(1209) * lu(1447) + lu(1456) = lu(1456) - lu(1210) * lu(1447) + lu(1457) = lu(1457) - lu(1211) * lu(1447) + lu(1458) = lu(1458) - lu(1212) * lu(1447) + lu(1459) = lu(1459) - lu(1213) * lu(1447) + lu(1460) = lu(1460) - lu(1214) * lu(1447) + lu(1503) = lu(1503) - lu(1202) * lu(1502) + lu(1504) = lu(1504) - lu(1203) * lu(1502) + lu(1505) = lu(1505) - lu(1204) * lu(1502) + lu(1506) = lu(1506) - lu(1205) * lu(1502) + lu(1507) = lu(1507) - lu(1206) * lu(1502) + lu(1508) = lu(1508) - lu(1207) * lu(1502) + lu(1509) = lu(1509) - lu(1208) * lu(1502) + lu(1510) = lu(1510) - lu(1209) * lu(1502) + lu(1511) = lu(1511) - lu(1210) * lu(1502) + lu(1512) = lu(1512) - lu(1211) * lu(1502) + lu(1513) = lu(1513) - lu(1212) * lu(1502) + lu(1514) = lu(1514) - lu(1213) * lu(1502) + lu(1515) = lu(1515) - lu(1214) * lu(1502) + lu(1535) = lu(1535) - lu(1202) * lu(1534) + lu(1536) = lu(1536) - lu(1203) * lu(1534) + lu(1537) = lu(1537) - lu(1204) * lu(1534) + lu(1538) = lu(1538) - lu(1205) * lu(1534) + lu(1539) = lu(1539) - lu(1206) * lu(1534) + lu(1540) = lu(1540) - lu(1207) * lu(1534) + lu(1541) = lu(1541) - lu(1208) * lu(1534) + lu(1542) = lu(1542) - lu(1209) * lu(1534) + lu(1543) = lu(1543) - lu(1210) * lu(1534) + lu(1544) = lu(1544) - lu(1211) * lu(1534) + lu(1545) = lu(1545) - lu(1212) * lu(1534) + lu(1546) = lu(1546) - lu(1213) * lu(1534) + lu(1547) = lu(1547) - lu(1214) * lu(1534) + lu(1570) = lu(1570) - lu(1202) * lu(1569) + lu(1571) = lu(1571) - lu(1203) * lu(1569) + lu(1572) = lu(1572) - lu(1204) * lu(1569) + lu(1573) = lu(1573) - lu(1205) * lu(1569) + lu(1574) = lu(1574) - lu(1206) * lu(1569) + lu(1575) = lu(1575) - lu(1207) * lu(1569) + lu(1576) = lu(1576) - lu(1208) * lu(1569) + lu(1577) = lu(1577) - lu(1209) * lu(1569) + lu(1578) = lu(1578) - lu(1210) * lu(1569) + lu(1579) = lu(1579) - lu(1211) * lu(1569) + lu(1580) = lu(1580) - lu(1212) * lu(1569) + lu(1581) = lu(1581) - lu(1213) * lu(1569) + lu(1582) = lu(1582) - lu(1214) * lu(1569) + lu(1608) = lu(1608) - lu(1202) * lu(1607) + lu(1609) = lu(1609) - lu(1203) * lu(1607) + lu(1610) = lu(1610) - lu(1204) * lu(1607) + lu(1611) = lu(1611) - lu(1205) * lu(1607) + lu(1612) = lu(1612) - lu(1206) * lu(1607) + lu(1613) = lu(1613) - lu(1207) * lu(1607) + lu(1614) = lu(1614) - lu(1208) * lu(1607) + lu(1615) = lu(1615) - lu(1209) * lu(1607) + lu(1616) = lu(1616) - lu(1210) * lu(1607) + lu(1617) = lu(1617) - lu(1211) * lu(1607) + lu(1618) = lu(1618) - lu(1212) * lu(1607) + lu(1619) = lu(1619) - lu(1213) * lu(1607) + lu(1620) = lu(1620) - lu(1214) * lu(1607) + lu(1647) = lu(1647) - lu(1202) * lu(1646) + lu(1648) = lu(1648) - lu(1203) * lu(1646) + lu(1649) = lu(1649) - lu(1204) * lu(1646) + lu(1650) = lu(1650) - lu(1205) * lu(1646) + lu(1651) = lu(1651) - lu(1206) * lu(1646) + lu(1652) = lu(1652) - lu(1207) * lu(1646) + lu(1653) = lu(1653) - lu(1208) * lu(1646) + lu(1654) = lu(1654) - lu(1209) * lu(1646) + lu(1655) = lu(1655) - lu(1210) * lu(1646) + lu(1656) = lu(1656) - lu(1211) * lu(1646) + lu(1657) = lu(1657) - lu(1212) * lu(1646) + lu(1658) = lu(1658) - lu(1213) * lu(1646) + lu(1659) = lu(1659) - lu(1214) * lu(1646) + lu(1681) = lu(1681) - lu(1202) * lu(1680) + lu(1682) = lu(1682) - lu(1203) * lu(1680) + lu(1683) = lu(1683) - lu(1204) * lu(1680) + lu(1684) = lu(1684) - lu(1205) * lu(1680) + lu(1685) = lu(1685) - lu(1206) * lu(1680) + lu(1686) = lu(1686) - lu(1207) * lu(1680) + lu(1687) = lu(1687) - lu(1208) * lu(1680) + lu(1688) = lu(1688) - lu(1209) * lu(1680) + lu(1689) = lu(1689) - lu(1210) * lu(1680) + lu(1690) = lu(1690) - lu(1211) * lu(1680) + lu(1691) = lu(1691) - lu(1212) * lu(1680) + lu(1692) = lu(1692) - lu(1213) * lu(1680) + lu(1693) = lu(1693) - lu(1214) * lu(1680) + lu(1733) = lu(1733) - lu(1202) * lu(1732) + lu(1734) = lu(1734) - lu(1203) * lu(1732) + lu(1735) = lu(1735) - lu(1204) * lu(1732) + lu(1736) = lu(1736) - lu(1205) * lu(1732) + lu(1737) = lu(1737) - lu(1206) * lu(1732) + lu(1738) = lu(1738) - lu(1207) * lu(1732) + lu(1739) = lu(1739) - lu(1208) * lu(1732) + lu(1740) = lu(1740) - lu(1209) * lu(1732) + lu(1741) = lu(1741) - lu(1210) * lu(1732) + lu(1742) = lu(1742) - lu(1211) * lu(1732) + lu(1743) = lu(1743) - lu(1212) * lu(1732) + lu(1744) = lu(1744) - lu(1213) * lu(1732) + lu(1745) = lu(1745) - lu(1214) * lu(1732) + lu(1237) = 1._r8 / lu(1237) + lu(1238) = lu(1238) * lu(1237) + lu(1239) = lu(1239) * lu(1237) + lu(1240) = lu(1240) * lu(1237) + lu(1241) = lu(1241) * lu(1237) + lu(1242) = lu(1242) * lu(1237) + lu(1243) = lu(1243) * lu(1237) + lu(1244) = lu(1244) * lu(1237) + lu(1245) = lu(1245) * lu(1237) + lu(1246) = lu(1246) * lu(1237) + lu(1247) = lu(1247) * lu(1237) + lu(1248) = lu(1248) * lu(1237) + lu(1249) = lu(1249) * lu(1237) + lu(1282) = lu(1282) - lu(1238) * lu(1281) + lu(1283) = lu(1283) - lu(1239) * lu(1281) + lu(1284) = lu(1284) - lu(1240) * lu(1281) + lu(1285) = lu(1285) - lu(1241) * lu(1281) + lu(1286) = lu(1286) - lu(1242) * lu(1281) + lu(1287) = lu(1287) - lu(1243) * lu(1281) + lu(1288) = lu(1288) - lu(1244) * lu(1281) + lu(1289) = lu(1289) - lu(1245) * lu(1281) + lu(1290) = lu(1290) - lu(1246) * lu(1281) + lu(1291) = lu(1291) - lu(1247) * lu(1281) + lu(1292) = lu(1292) - lu(1248) * lu(1281) + lu(1293) = lu(1293) - lu(1249) * lu(1281) + lu(1323) = lu(1323) - lu(1238) * lu(1322) + lu(1324) = lu(1324) - lu(1239) * lu(1322) + lu(1325) = lu(1325) - lu(1240) * lu(1322) + lu(1326) = lu(1326) - lu(1241) * lu(1322) + lu(1327) = lu(1327) - lu(1242) * lu(1322) + lu(1328) = lu(1328) - lu(1243) * lu(1322) + lu(1329) = lu(1329) - lu(1244) * lu(1322) + lu(1330) = lu(1330) - lu(1245) * lu(1322) + lu(1331) = lu(1331) - lu(1246) * lu(1322) + lu(1332) = lu(1332) - lu(1247) * lu(1322) + lu(1333) = lu(1333) - lu(1248) * lu(1322) + lu(1334) = lu(1334) - lu(1249) * lu(1322) + lu(1365) = lu(1365) - lu(1238) * lu(1364) + lu(1366) = lu(1366) - lu(1239) * lu(1364) + lu(1367) = lu(1367) - lu(1240) * lu(1364) + lu(1368) = lu(1368) - lu(1241) * lu(1364) + lu(1369) = lu(1369) - lu(1242) * lu(1364) + lu(1370) = lu(1370) - lu(1243) * lu(1364) + lu(1371) = lu(1371) - lu(1244) * lu(1364) + lu(1372) = lu(1372) - lu(1245) * lu(1364) + lu(1373) = lu(1373) - lu(1246) * lu(1364) + lu(1374) = lu(1374) - lu(1247) * lu(1364) + lu(1375) = lu(1375) - lu(1248) * lu(1364) + lu(1376) = lu(1376) - lu(1249) * lu(1364) + lu(1407) = lu(1407) - lu(1238) * lu(1406) + lu(1408) = lu(1408) - lu(1239) * lu(1406) + lu(1409) = lu(1409) - lu(1240) * lu(1406) + lu(1410) = lu(1410) - lu(1241) * lu(1406) + lu(1411) = lu(1411) - lu(1242) * lu(1406) + lu(1412) = lu(1412) - lu(1243) * lu(1406) + lu(1413) = lu(1413) - lu(1244) * lu(1406) + lu(1414) = lu(1414) - lu(1245) * lu(1406) + lu(1415) = lu(1415) - lu(1246) * lu(1406) + lu(1416) = lu(1416) - lu(1247) * lu(1406) + lu(1417) = lu(1417) - lu(1248) * lu(1406) + lu(1418) = lu(1418) - lu(1249) * lu(1406) + lu(1449) = lu(1449) - lu(1238) * lu(1448) + lu(1450) = lu(1450) - lu(1239) * lu(1448) + lu(1451) = lu(1451) - lu(1240) * lu(1448) + lu(1452) = lu(1452) - lu(1241) * lu(1448) + lu(1453) = lu(1453) - lu(1242) * lu(1448) + lu(1454) = lu(1454) - lu(1243) * lu(1448) + lu(1455) = lu(1455) - lu(1244) * lu(1448) + lu(1456) = lu(1456) - lu(1245) * lu(1448) + lu(1457) = lu(1457) - lu(1246) * lu(1448) + lu(1458) = lu(1458) - lu(1247) * lu(1448) + lu(1459) = lu(1459) - lu(1248) * lu(1448) + lu(1460) = lu(1460) - lu(1249) * lu(1448) + lu(1504) = lu(1504) - lu(1238) * lu(1503) + lu(1505) = lu(1505) - lu(1239) * lu(1503) + lu(1506) = lu(1506) - lu(1240) * lu(1503) + lu(1507) = lu(1507) - lu(1241) * lu(1503) + lu(1508) = lu(1508) - lu(1242) * lu(1503) + lu(1509) = lu(1509) - lu(1243) * lu(1503) + lu(1510) = lu(1510) - lu(1244) * lu(1503) + lu(1511) = lu(1511) - lu(1245) * lu(1503) + lu(1512) = lu(1512) - lu(1246) * lu(1503) + lu(1513) = lu(1513) - lu(1247) * lu(1503) + lu(1514) = lu(1514) - lu(1248) * lu(1503) + lu(1515) = lu(1515) - lu(1249) * lu(1503) + lu(1536) = lu(1536) - lu(1238) * lu(1535) + lu(1537) = lu(1537) - lu(1239) * lu(1535) + lu(1538) = lu(1538) - lu(1240) * lu(1535) + lu(1539) = lu(1539) - lu(1241) * lu(1535) + lu(1540) = lu(1540) - lu(1242) * lu(1535) + lu(1541) = lu(1541) - lu(1243) * lu(1535) + lu(1542) = lu(1542) - lu(1244) * lu(1535) + lu(1543) = lu(1543) - lu(1245) * lu(1535) + lu(1544) = lu(1544) - lu(1246) * lu(1535) + lu(1545) = lu(1545) - lu(1247) * lu(1535) + lu(1546) = lu(1546) - lu(1248) * lu(1535) + lu(1547) = lu(1547) - lu(1249) * lu(1535) + lu(1571) = lu(1571) - lu(1238) * lu(1570) + lu(1572) = lu(1572) - lu(1239) * lu(1570) + lu(1573) = lu(1573) - lu(1240) * lu(1570) + lu(1574) = lu(1574) - lu(1241) * lu(1570) + lu(1575) = lu(1575) - lu(1242) * lu(1570) + lu(1576) = lu(1576) - lu(1243) * lu(1570) + lu(1577) = lu(1577) - lu(1244) * lu(1570) + lu(1578) = lu(1578) - lu(1245) * lu(1570) + lu(1579) = lu(1579) - lu(1246) * lu(1570) + lu(1580) = lu(1580) - lu(1247) * lu(1570) + lu(1581) = lu(1581) - lu(1248) * lu(1570) + lu(1582) = lu(1582) - lu(1249) * lu(1570) + lu(1609) = lu(1609) - lu(1238) * lu(1608) + lu(1610) = lu(1610) - lu(1239) * lu(1608) + lu(1611) = lu(1611) - lu(1240) * lu(1608) + lu(1612) = lu(1612) - lu(1241) * lu(1608) + lu(1613) = lu(1613) - lu(1242) * lu(1608) + lu(1614) = lu(1614) - lu(1243) * lu(1608) + lu(1615) = lu(1615) - lu(1244) * lu(1608) + lu(1616) = lu(1616) - lu(1245) * lu(1608) + lu(1617) = lu(1617) - lu(1246) * lu(1608) + lu(1618) = lu(1618) - lu(1247) * lu(1608) + lu(1619) = lu(1619) - lu(1248) * lu(1608) + lu(1620) = lu(1620) - lu(1249) * lu(1608) + lu(1648) = lu(1648) - lu(1238) * lu(1647) + lu(1649) = lu(1649) - lu(1239) * lu(1647) + lu(1650) = lu(1650) - lu(1240) * lu(1647) + lu(1651) = lu(1651) - lu(1241) * lu(1647) + lu(1652) = lu(1652) - lu(1242) * lu(1647) + lu(1653) = lu(1653) - lu(1243) * lu(1647) + lu(1654) = lu(1654) - lu(1244) * lu(1647) + lu(1655) = lu(1655) - lu(1245) * lu(1647) + lu(1656) = lu(1656) - lu(1246) * lu(1647) + lu(1657) = lu(1657) - lu(1247) * lu(1647) + lu(1658) = lu(1658) - lu(1248) * lu(1647) + lu(1659) = lu(1659) - lu(1249) * lu(1647) + lu(1682) = lu(1682) - lu(1238) * lu(1681) + lu(1683) = lu(1683) - lu(1239) * lu(1681) + lu(1684) = lu(1684) - lu(1240) * lu(1681) + lu(1685) = lu(1685) - lu(1241) * lu(1681) + lu(1686) = lu(1686) - lu(1242) * lu(1681) + lu(1687) = lu(1687) - lu(1243) * lu(1681) + lu(1688) = lu(1688) - lu(1244) * lu(1681) + lu(1689) = lu(1689) - lu(1245) * lu(1681) + lu(1690) = lu(1690) - lu(1246) * lu(1681) + lu(1691) = lu(1691) - lu(1247) * lu(1681) + lu(1692) = lu(1692) - lu(1248) * lu(1681) + lu(1693) = lu(1693) - lu(1249) * lu(1681) + lu(1734) = lu(1734) - lu(1238) * lu(1733) + lu(1735) = lu(1735) - lu(1239) * lu(1733) + lu(1736) = lu(1736) - lu(1240) * lu(1733) + lu(1737) = lu(1737) - lu(1241) * lu(1733) + lu(1738) = lu(1738) - lu(1242) * lu(1733) + lu(1739) = lu(1739) - lu(1243) * lu(1733) + lu(1740) = lu(1740) - lu(1244) * lu(1733) + lu(1741) = lu(1741) - lu(1245) * lu(1733) + lu(1742) = lu(1742) - lu(1246) * lu(1733) + lu(1743) = lu(1743) - lu(1247) * lu(1733) + lu(1744) = lu(1744) - lu(1248) * lu(1733) + lu(1745) = lu(1745) - lu(1249) * lu(1733) + lu(1282) = 1._r8 / lu(1282) + lu(1283) = lu(1283) * lu(1282) + lu(1284) = lu(1284) * lu(1282) + lu(1285) = lu(1285) * lu(1282) + lu(1286) = lu(1286) * lu(1282) + lu(1287) = lu(1287) * lu(1282) + lu(1288) = lu(1288) * lu(1282) + lu(1289) = lu(1289) * lu(1282) + lu(1290) = lu(1290) * lu(1282) + lu(1291) = lu(1291) * lu(1282) + lu(1292) = lu(1292) * lu(1282) + lu(1293) = lu(1293) * lu(1282) + lu(1324) = lu(1324) - lu(1283) * lu(1323) + lu(1325) = lu(1325) - lu(1284) * lu(1323) + lu(1326) = lu(1326) - lu(1285) * lu(1323) + lu(1327) = lu(1327) - lu(1286) * lu(1323) + lu(1328) = lu(1328) - lu(1287) * lu(1323) + lu(1329) = lu(1329) - lu(1288) * lu(1323) + lu(1330) = lu(1330) - lu(1289) * lu(1323) + lu(1331) = lu(1331) - lu(1290) * lu(1323) + lu(1332) = lu(1332) - lu(1291) * lu(1323) + lu(1333) = lu(1333) - lu(1292) * lu(1323) + lu(1334) = lu(1334) - lu(1293) * lu(1323) + lu(1366) = lu(1366) - lu(1283) * lu(1365) + lu(1367) = lu(1367) - lu(1284) * lu(1365) + lu(1368) = lu(1368) - lu(1285) * lu(1365) + lu(1369) = lu(1369) - lu(1286) * lu(1365) + lu(1370) = lu(1370) - lu(1287) * lu(1365) + lu(1371) = lu(1371) - lu(1288) * lu(1365) + lu(1372) = lu(1372) - lu(1289) * lu(1365) + lu(1373) = lu(1373) - lu(1290) * lu(1365) + lu(1374) = lu(1374) - lu(1291) * lu(1365) + lu(1375) = lu(1375) - lu(1292) * lu(1365) + lu(1376) = lu(1376) - lu(1293) * lu(1365) + lu(1408) = lu(1408) - lu(1283) * lu(1407) + lu(1409) = lu(1409) - lu(1284) * lu(1407) + lu(1410) = lu(1410) - lu(1285) * lu(1407) + lu(1411) = lu(1411) - lu(1286) * lu(1407) + lu(1412) = lu(1412) - lu(1287) * lu(1407) + lu(1413) = lu(1413) - lu(1288) * lu(1407) + lu(1414) = lu(1414) - lu(1289) * lu(1407) + lu(1415) = lu(1415) - lu(1290) * lu(1407) + lu(1416) = lu(1416) - lu(1291) * lu(1407) + lu(1417) = lu(1417) - lu(1292) * lu(1407) + lu(1418) = lu(1418) - lu(1293) * lu(1407) + lu(1450) = lu(1450) - lu(1283) * lu(1449) + lu(1451) = lu(1451) - lu(1284) * lu(1449) + lu(1452) = lu(1452) - lu(1285) * lu(1449) + lu(1453) = lu(1453) - lu(1286) * lu(1449) + lu(1454) = lu(1454) - lu(1287) * lu(1449) + lu(1455) = lu(1455) - lu(1288) * lu(1449) + lu(1456) = lu(1456) - lu(1289) * lu(1449) + lu(1457) = lu(1457) - lu(1290) * lu(1449) + lu(1458) = lu(1458) - lu(1291) * lu(1449) + lu(1459) = lu(1459) - lu(1292) * lu(1449) + lu(1460) = lu(1460) - lu(1293) * lu(1449) + lu(1505) = lu(1505) - lu(1283) * lu(1504) + lu(1506) = lu(1506) - lu(1284) * lu(1504) + lu(1507) = lu(1507) - lu(1285) * lu(1504) + lu(1508) = lu(1508) - lu(1286) * lu(1504) + lu(1509) = lu(1509) - lu(1287) * lu(1504) + lu(1510) = lu(1510) - lu(1288) * lu(1504) + lu(1511) = lu(1511) - lu(1289) * lu(1504) + lu(1512) = lu(1512) - lu(1290) * lu(1504) + lu(1513) = lu(1513) - lu(1291) * lu(1504) + lu(1514) = lu(1514) - lu(1292) * lu(1504) + lu(1515) = lu(1515) - lu(1293) * lu(1504) + lu(1537) = lu(1537) - lu(1283) * lu(1536) + lu(1538) = lu(1538) - lu(1284) * lu(1536) + lu(1539) = lu(1539) - lu(1285) * lu(1536) + lu(1540) = lu(1540) - lu(1286) * lu(1536) + lu(1541) = lu(1541) - lu(1287) * lu(1536) + lu(1542) = lu(1542) - lu(1288) * lu(1536) + lu(1543) = lu(1543) - lu(1289) * lu(1536) + lu(1544) = lu(1544) - lu(1290) * lu(1536) + lu(1545) = lu(1545) - lu(1291) * lu(1536) + lu(1546) = lu(1546) - lu(1292) * lu(1536) + lu(1547) = lu(1547) - lu(1293) * lu(1536) + lu(1572) = lu(1572) - lu(1283) * lu(1571) + lu(1573) = lu(1573) - lu(1284) * lu(1571) + lu(1574) = lu(1574) - lu(1285) * lu(1571) + lu(1575) = lu(1575) - lu(1286) * lu(1571) + lu(1576) = lu(1576) - lu(1287) * lu(1571) + lu(1577) = lu(1577) - lu(1288) * lu(1571) + lu(1578) = lu(1578) - lu(1289) * lu(1571) + lu(1579) = lu(1579) - lu(1290) * lu(1571) + lu(1580) = lu(1580) - lu(1291) * lu(1571) + lu(1581) = lu(1581) - lu(1292) * lu(1571) + lu(1582) = lu(1582) - lu(1293) * lu(1571) + lu(1610) = lu(1610) - lu(1283) * lu(1609) + lu(1611) = lu(1611) - lu(1284) * lu(1609) + lu(1612) = lu(1612) - lu(1285) * lu(1609) + lu(1613) = lu(1613) - lu(1286) * lu(1609) + lu(1614) = lu(1614) - lu(1287) * lu(1609) + lu(1615) = lu(1615) - lu(1288) * lu(1609) + lu(1616) = lu(1616) - lu(1289) * lu(1609) + lu(1617) = lu(1617) - lu(1290) * lu(1609) + lu(1618) = lu(1618) - lu(1291) * lu(1609) + lu(1619) = lu(1619) - lu(1292) * lu(1609) + lu(1620) = lu(1620) - lu(1293) * lu(1609) + lu(1649) = lu(1649) - lu(1283) * lu(1648) + lu(1650) = lu(1650) - lu(1284) * lu(1648) + lu(1651) = lu(1651) - lu(1285) * lu(1648) + lu(1652) = lu(1652) - lu(1286) * lu(1648) + lu(1653) = lu(1653) - lu(1287) * lu(1648) + lu(1654) = lu(1654) - lu(1288) * lu(1648) + lu(1655) = lu(1655) - lu(1289) * lu(1648) + lu(1656) = lu(1656) - lu(1290) * lu(1648) + lu(1657) = lu(1657) - lu(1291) * lu(1648) + lu(1658) = lu(1658) - lu(1292) * lu(1648) + lu(1659) = lu(1659) - lu(1293) * lu(1648) + lu(1683) = lu(1683) - lu(1283) * lu(1682) + lu(1684) = lu(1684) - lu(1284) * lu(1682) + lu(1685) = lu(1685) - lu(1285) * lu(1682) + lu(1686) = lu(1686) - lu(1286) * lu(1682) + lu(1687) = lu(1687) - lu(1287) * lu(1682) + lu(1688) = lu(1688) - lu(1288) * lu(1682) + lu(1689) = lu(1689) - lu(1289) * lu(1682) + lu(1690) = lu(1690) - lu(1290) * lu(1682) + lu(1691) = lu(1691) - lu(1291) * lu(1682) + lu(1692) = lu(1692) - lu(1292) * lu(1682) + lu(1693) = lu(1693) - lu(1293) * lu(1682) + lu(1735) = lu(1735) - lu(1283) * lu(1734) + lu(1736) = lu(1736) - lu(1284) * lu(1734) + lu(1737) = lu(1737) - lu(1285) * lu(1734) + lu(1738) = lu(1738) - lu(1286) * lu(1734) + lu(1739) = lu(1739) - lu(1287) * lu(1734) + lu(1740) = lu(1740) - lu(1288) * lu(1734) + lu(1741) = lu(1741) - lu(1289) * lu(1734) + lu(1742) = lu(1742) - lu(1290) * lu(1734) + lu(1743) = lu(1743) - lu(1291) * lu(1734) + lu(1744) = lu(1744) - lu(1292) * lu(1734) + lu(1745) = lu(1745) - lu(1293) * lu(1734) end subroutine lu_fac20 - subroutine lu_fac21( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac21( lu ) 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,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,1325) = lu(k,1325) * lu(k,1314) - lu(k,1326) = lu(k,1326) * lu(k,1314) - lu(k,1360) = lu(k,1360) - lu(k,1315) * lu(k,1359) - lu(k,1361) = lu(k,1361) - lu(k,1316) * lu(k,1359) - lu(k,1362) = lu(k,1362) - lu(k,1317) * lu(k,1359) - lu(k,1363) = lu(k,1363) - lu(k,1318) * lu(k,1359) - lu(k,1364) = lu(k,1364) - lu(k,1319) * lu(k,1359) - lu(k,1365) = lu(k,1365) - lu(k,1320) * lu(k,1359) - lu(k,1366) = lu(k,1366) - lu(k,1321) * lu(k,1359) - lu(k,1367) = lu(k,1367) - lu(k,1322) * lu(k,1359) - lu(k,1368) = lu(k,1368) - lu(k,1323) * lu(k,1359) - lu(k,1369) = lu(k,1369) - lu(k,1324) * lu(k,1359) - lu(k,1370) = lu(k,1370) - lu(k,1325) * lu(k,1359) - lu(k,1371) = lu(k,1371) - lu(k,1326) * lu(k,1359) - lu(k,1402) = lu(k,1402) - lu(k,1315) * lu(k,1401) - lu(k,1403) = lu(k,1403) - lu(k,1316) * lu(k,1401) - lu(k,1404) = lu(k,1404) - lu(k,1317) * lu(k,1401) - lu(k,1405) = lu(k,1405) - lu(k,1318) * lu(k,1401) - lu(k,1406) = lu(k,1406) - lu(k,1319) * lu(k,1401) - lu(k,1407) = lu(k,1407) - lu(k,1320) * lu(k,1401) - lu(k,1408) = lu(k,1408) - lu(k,1321) * lu(k,1401) - lu(k,1409) = lu(k,1409) - lu(k,1322) * lu(k,1401) - lu(k,1410) = lu(k,1410) - lu(k,1323) * lu(k,1401) - lu(k,1411) = lu(k,1411) - lu(k,1324) * lu(k,1401) - lu(k,1412) = lu(k,1412) - lu(k,1325) * lu(k,1401) - lu(k,1413) = lu(k,1413) - lu(k,1326) * lu(k,1401) - lu(k,1440) = lu(k,1440) - lu(k,1315) * lu(k,1439) - lu(k,1441) = lu(k,1441) - lu(k,1316) * lu(k,1439) - lu(k,1442) = lu(k,1442) - lu(k,1317) * lu(k,1439) - lu(k,1443) = lu(k,1443) - lu(k,1318) * lu(k,1439) - lu(k,1444) = lu(k,1444) - lu(k,1319) * lu(k,1439) - lu(k,1445) = lu(k,1445) - lu(k,1320) * lu(k,1439) - lu(k,1446) = lu(k,1446) - lu(k,1321) * lu(k,1439) - lu(k,1447) = lu(k,1447) - lu(k,1322) * lu(k,1439) - lu(k,1448) = lu(k,1448) - lu(k,1323) * lu(k,1439) - lu(k,1449) = lu(k,1449) - lu(k,1324) * lu(k,1439) - lu(k,1450) = lu(k,1450) - lu(k,1325) * lu(k,1439) - lu(k,1451) = lu(k,1451) - lu(k,1326) * lu(k,1439) - lu(k,1485) = lu(k,1485) - lu(k,1315) * lu(k,1484) - lu(k,1486) = lu(k,1486) - lu(k,1316) * lu(k,1484) - lu(k,1487) = lu(k,1487) - lu(k,1317) * lu(k,1484) - lu(k,1488) = lu(k,1488) - lu(k,1318) * lu(k,1484) - lu(k,1489) = lu(k,1489) - lu(k,1319) * lu(k,1484) - lu(k,1490) = lu(k,1490) - lu(k,1320) * lu(k,1484) - lu(k,1491) = lu(k,1491) - lu(k,1321) * lu(k,1484) - lu(k,1492) = lu(k,1492) - lu(k,1322) * lu(k,1484) - lu(k,1493) = lu(k,1493) - lu(k,1323) * lu(k,1484) - lu(k,1494) = lu(k,1494) - lu(k,1324) * lu(k,1484) - lu(k,1495) = lu(k,1495) - lu(k,1325) * lu(k,1484) - lu(k,1496) = lu(k,1496) - lu(k,1326) * lu(k,1484) - lu(k,1528) = lu(k,1528) - lu(k,1315) * lu(k,1527) - lu(k,1529) = lu(k,1529) - lu(k,1316) * lu(k,1527) - lu(k,1530) = lu(k,1530) - lu(k,1317) * lu(k,1527) - lu(k,1531) = lu(k,1531) - lu(k,1318) * lu(k,1527) - lu(k,1532) = lu(k,1532) - lu(k,1319) * lu(k,1527) - lu(k,1533) = lu(k,1533) - lu(k,1320) * lu(k,1527) - lu(k,1534) = lu(k,1534) - lu(k,1321) * lu(k,1527) - lu(k,1535) = lu(k,1535) - lu(k,1322) * lu(k,1527) - lu(k,1536) = lu(k,1536) - lu(k,1323) * lu(k,1527) - lu(k,1537) = lu(k,1537) - lu(k,1324) * lu(k,1527) - lu(k,1538) = lu(k,1538) - lu(k,1325) * lu(k,1527) - lu(k,1539) = lu(k,1539) - lu(k,1326) * lu(k,1527) - lu(k,1571) = lu(k,1571) - lu(k,1315) * lu(k,1570) - lu(k,1572) = lu(k,1572) - lu(k,1316) * lu(k,1570) - lu(k,1573) = lu(k,1573) - lu(k,1317) * lu(k,1570) - lu(k,1574) = lu(k,1574) - lu(k,1318) * lu(k,1570) - lu(k,1575) = lu(k,1575) - lu(k,1319) * lu(k,1570) - lu(k,1576) = lu(k,1576) - lu(k,1320) * lu(k,1570) - lu(k,1577) = lu(k,1577) - lu(k,1321) * lu(k,1570) - lu(k,1578) = lu(k,1578) - lu(k,1322) * lu(k,1570) - lu(k,1579) = lu(k,1579) - lu(k,1323) * lu(k,1570) - lu(k,1580) = lu(k,1580) - lu(k,1324) * lu(k,1570) - lu(k,1581) = lu(k,1581) - lu(k,1325) * lu(k,1570) - lu(k,1582) = lu(k,1582) - lu(k,1326) * lu(k,1570) - lu(k,1604) = lu(k,1604) - lu(k,1315) * lu(k,1603) - lu(k,1605) = lu(k,1605) - lu(k,1316) * lu(k,1603) - lu(k,1606) = lu(k,1606) - lu(k,1317) * lu(k,1603) - lu(k,1607) = lu(k,1607) - lu(k,1318) * lu(k,1603) - lu(k,1608) = lu(k,1608) - lu(k,1319) * lu(k,1603) - lu(k,1609) = lu(k,1609) - lu(k,1320) * lu(k,1603) - lu(k,1610) = lu(k,1610) - lu(k,1321) * lu(k,1603) - lu(k,1611) = lu(k,1611) - lu(k,1322) * lu(k,1603) - lu(k,1612) = lu(k,1612) - lu(k,1323) * lu(k,1603) - lu(k,1613) = lu(k,1613) - lu(k,1324) * lu(k,1603) - lu(k,1614) = lu(k,1614) - lu(k,1325) * lu(k,1603) - lu(k,1615) = lu(k,1615) - lu(k,1326) * lu(k,1603) - lu(k,1640) = lu(k,1640) - lu(k,1315) * lu(k,1639) - lu(k,1641) = lu(k,1641) - lu(k,1316) * lu(k,1639) - lu(k,1642) = lu(k,1642) - lu(k,1317) * lu(k,1639) - lu(k,1643) = lu(k,1643) - lu(k,1318) * lu(k,1639) - lu(k,1644) = lu(k,1644) - lu(k,1319) * lu(k,1639) - lu(k,1645) = lu(k,1645) - lu(k,1320) * lu(k,1639) - lu(k,1646) = lu(k,1646) - lu(k,1321) * lu(k,1639) - lu(k,1647) = lu(k,1647) - lu(k,1322) * lu(k,1639) - lu(k,1648) = lu(k,1648) - lu(k,1323) * lu(k,1639) - lu(k,1649) = lu(k,1649) - lu(k,1324) * lu(k,1639) - lu(k,1650) = lu(k,1650) - lu(k,1325) * lu(k,1639) - lu(k,1651) = lu(k,1651) - lu(k,1326) * lu(k,1639) - lu(k,1683) = lu(k,1683) - lu(k,1315) * lu(k,1682) - lu(k,1684) = lu(k,1684) - lu(k,1316) * lu(k,1682) - lu(k,1685) = lu(k,1685) - lu(k,1317) * lu(k,1682) - lu(k,1686) = lu(k,1686) - lu(k,1318) * lu(k,1682) - lu(k,1687) = lu(k,1687) - lu(k,1319) * lu(k,1682) - lu(k,1688) = lu(k,1688) - lu(k,1320) * lu(k,1682) - lu(k,1689) = lu(k,1689) - lu(k,1321) * lu(k,1682) - lu(k,1690) = lu(k,1690) - lu(k,1322) * lu(k,1682) - lu(k,1691) = lu(k,1691) - lu(k,1323) * lu(k,1682) - lu(k,1692) = lu(k,1692) - lu(k,1324) * lu(k,1682) - lu(k,1693) = lu(k,1693) - lu(k,1325) * lu(k,1682) - lu(k,1694) = lu(k,1694) - lu(k,1326) * lu(k,1682) - lu(k,1719) = lu(k,1719) - lu(k,1315) * lu(k,1718) - lu(k,1720) = lu(k,1720) - lu(k,1316) * lu(k,1718) - lu(k,1721) = lu(k,1721) - lu(k,1317) * lu(k,1718) - lu(k,1722) = lu(k,1722) - lu(k,1318) * lu(k,1718) - lu(k,1723) = lu(k,1723) - lu(k,1319) * lu(k,1718) - lu(k,1724) = lu(k,1724) - lu(k,1320) * lu(k,1718) - lu(k,1725) = lu(k,1725) - lu(k,1321) * lu(k,1718) - lu(k,1726) = lu(k,1726) - lu(k,1322) * lu(k,1718) - lu(k,1727) = lu(k,1727) - lu(k,1323) * lu(k,1718) - lu(k,1728) = lu(k,1728) - lu(k,1324) * lu(k,1718) - lu(k,1729) = lu(k,1729) - lu(k,1325) * lu(k,1718) - lu(k,1730) = lu(k,1730) - lu(k,1326) * lu(k,1718) - lu(k,1761) = lu(k,1761) - lu(k,1315) * lu(k,1760) - lu(k,1762) = lu(k,1762) - lu(k,1316) * lu(k,1760) - lu(k,1763) = lu(k,1763) - lu(k,1317) * lu(k,1760) - lu(k,1764) = lu(k,1764) - lu(k,1318) * lu(k,1760) - lu(k,1765) = lu(k,1765) - lu(k,1319) * lu(k,1760) - lu(k,1766) = lu(k,1766) - lu(k,1320) * lu(k,1760) - lu(k,1767) = lu(k,1767) - lu(k,1321) * lu(k,1760) - lu(k,1768) = lu(k,1768) - lu(k,1322) * lu(k,1760) - lu(k,1769) = lu(k,1769) - lu(k,1323) * lu(k,1760) - lu(k,1770) = lu(k,1770) - lu(k,1324) * lu(k,1760) - lu(k,1771) = lu(k,1771) - lu(k,1325) * lu(k,1760) - lu(k,1772) = lu(k,1772) - lu(k,1326) * lu(k,1760) - lu(k,1814) = lu(k,1814) - lu(k,1315) * lu(k,1813) - lu(k,1815) = lu(k,1815) - lu(k,1316) * lu(k,1813) - lu(k,1816) = lu(k,1816) - lu(k,1317) * lu(k,1813) - lu(k,1817) = lu(k,1817) - lu(k,1318) * lu(k,1813) - lu(k,1818) = lu(k,1818) - lu(k,1319) * lu(k,1813) - lu(k,1819) = lu(k,1819) - lu(k,1320) * lu(k,1813) - lu(k,1820) = lu(k,1820) - lu(k,1321) * lu(k,1813) - lu(k,1821) = lu(k,1821) - lu(k,1322) * lu(k,1813) - lu(k,1822) = lu(k,1822) - lu(k,1323) * lu(k,1813) - lu(k,1823) = lu(k,1823) - lu(k,1324) * lu(k,1813) - lu(k,1824) = lu(k,1824) - lu(k,1325) * lu(k,1813) - lu(k,1825) = lu(k,1825) - lu(k,1326) * lu(k,1813) - lu(k,1360) = 1._r8 / lu(k,1360) - lu(k,1361) = lu(k,1361) * lu(k,1360) - lu(k,1362) = lu(k,1362) * lu(k,1360) - lu(k,1363) = lu(k,1363) * lu(k,1360) - lu(k,1364) = lu(k,1364) * lu(k,1360) - lu(k,1365) = lu(k,1365) * lu(k,1360) - lu(k,1366) = lu(k,1366) * lu(k,1360) - lu(k,1367) = lu(k,1367) * lu(k,1360) - lu(k,1368) = lu(k,1368) * lu(k,1360) - lu(k,1369) = lu(k,1369) * lu(k,1360) - lu(k,1370) = lu(k,1370) * lu(k,1360) - lu(k,1371) = lu(k,1371) * lu(k,1360) - lu(k,1403) = lu(k,1403) - lu(k,1361) * lu(k,1402) - lu(k,1404) = lu(k,1404) - lu(k,1362) * lu(k,1402) - lu(k,1405) = lu(k,1405) - lu(k,1363) * lu(k,1402) - lu(k,1406) = lu(k,1406) - lu(k,1364) * lu(k,1402) - lu(k,1407) = lu(k,1407) - lu(k,1365) * lu(k,1402) - lu(k,1408) = lu(k,1408) - lu(k,1366) * lu(k,1402) - lu(k,1409) = lu(k,1409) - lu(k,1367) * lu(k,1402) - lu(k,1410) = lu(k,1410) - lu(k,1368) * lu(k,1402) - lu(k,1411) = lu(k,1411) - lu(k,1369) * lu(k,1402) - lu(k,1412) = lu(k,1412) - lu(k,1370) * lu(k,1402) - lu(k,1413) = lu(k,1413) - lu(k,1371) * lu(k,1402) - lu(k,1441) = lu(k,1441) - lu(k,1361) * lu(k,1440) - lu(k,1442) = lu(k,1442) - lu(k,1362) * lu(k,1440) - lu(k,1443) = lu(k,1443) - lu(k,1363) * lu(k,1440) - lu(k,1444) = lu(k,1444) - lu(k,1364) * lu(k,1440) - lu(k,1445) = lu(k,1445) - lu(k,1365) * lu(k,1440) - lu(k,1446) = lu(k,1446) - lu(k,1366) * lu(k,1440) - lu(k,1447) = lu(k,1447) - lu(k,1367) * lu(k,1440) - lu(k,1448) = lu(k,1448) - lu(k,1368) * lu(k,1440) - lu(k,1449) = lu(k,1449) - lu(k,1369) * lu(k,1440) - lu(k,1450) = lu(k,1450) - lu(k,1370) * lu(k,1440) - lu(k,1451) = lu(k,1451) - lu(k,1371) * lu(k,1440) - lu(k,1486) = lu(k,1486) - lu(k,1361) * lu(k,1485) - lu(k,1487) = lu(k,1487) - lu(k,1362) * lu(k,1485) - lu(k,1488) = lu(k,1488) - lu(k,1363) * lu(k,1485) - lu(k,1489) = lu(k,1489) - lu(k,1364) * lu(k,1485) - lu(k,1490) = lu(k,1490) - lu(k,1365) * lu(k,1485) - lu(k,1491) = lu(k,1491) - lu(k,1366) * lu(k,1485) - lu(k,1492) = lu(k,1492) - lu(k,1367) * lu(k,1485) - lu(k,1493) = lu(k,1493) - lu(k,1368) * lu(k,1485) - lu(k,1494) = lu(k,1494) - lu(k,1369) * lu(k,1485) - lu(k,1495) = lu(k,1495) - lu(k,1370) * lu(k,1485) - lu(k,1496) = lu(k,1496) - lu(k,1371) * lu(k,1485) - lu(k,1529) = lu(k,1529) - lu(k,1361) * lu(k,1528) - lu(k,1530) = lu(k,1530) - lu(k,1362) * lu(k,1528) - lu(k,1531) = lu(k,1531) - lu(k,1363) * lu(k,1528) - lu(k,1532) = lu(k,1532) - lu(k,1364) * lu(k,1528) - lu(k,1533) = lu(k,1533) - lu(k,1365) * lu(k,1528) - lu(k,1534) = lu(k,1534) - lu(k,1366) * lu(k,1528) - lu(k,1535) = lu(k,1535) - lu(k,1367) * lu(k,1528) - lu(k,1536) = lu(k,1536) - lu(k,1368) * lu(k,1528) - lu(k,1537) = lu(k,1537) - lu(k,1369) * lu(k,1528) - lu(k,1538) = lu(k,1538) - lu(k,1370) * lu(k,1528) - lu(k,1539) = lu(k,1539) - lu(k,1371) * lu(k,1528) - lu(k,1572) = lu(k,1572) - lu(k,1361) * lu(k,1571) - lu(k,1573) = lu(k,1573) - lu(k,1362) * lu(k,1571) - lu(k,1574) = lu(k,1574) - lu(k,1363) * lu(k,1571) - lu(k,1575) = lu(k,1575) - lu(k,1364) * lu(k,1571) - lu(k,1576) = lu(k,1576) - lu(k,1365) * lu(k,1571) - lu(k,1577) = lu(k,1577) - lu(k,1366) * lu(k,1571) - lu(k,1578) = lu(k,1578) - lu(k,1367) * lu(k,1571) - lu(k,1579) = lu(k,1579) - lu(k,1368) * lu(k,1571) - lu(k,1580) = lu(k,1580) - lu(k,1369) * lu(k,1571) - lu(k,1581) = lu(k,1581) - lu(k,1370) * lu(k,1571) - lu(k,1582) = lu(k,1582) - lu(k,1371) * lu(k,1571) - lu(k,1605) = lu(k,1605) - lu(k,1361) * lu(k,1604) - lu(k,1606) = lu(k,1606) - lu(k,1362) * lu(k,1604) - lu(k,1607) = lu(k,1607) - lu(k,1363) * lu(k,1604) - lu(k,1608) = lu(k,1608) - lu(k,1364) * lu(k,1604) - lu(k,1609) = lu(k,1609) - lu(k,1365) * lu(k,1604) - lu(k,1610) = lu(k,1610) - lu(k,1366) * lu(k,1604) - lu(k,1611) = lu(k,1611) - lu(k,1367) * lu(k,1604) - lu(k,1612) = lu(k,1612) - lu(k,1368) * lu(k,1604) - lu(k,1613) = lu(k,1613) - lu(k,1369) * lu(k,1604) - lu(k,1614) = lu(k,1614) - lu(k,1370) * lu(k,1604) - lu(k,1615) = lu(k,1615) - lu(k,1371) * lu(k,1604) - lu(k,1641) = lu(k,1641) - lu(k,1361) * lu(k,1640) - lu(k,1642) = lu(k,1642) - lu(k,1362) * lu(k,1640) - lu(k,1643) = lu(k,1643) - lu(k,1363) * lu(k,1640) - lu(k,1644) = lu(k,1644) - lu(k,1364) * lu(k,1640) - lu(k,1645) = lu(k,1645) - lu(k,1365) * lu(k,1640) - lu(k,1646) = lu(k,1646) - lu(k,1366) * lu(k,1640) - lu(k,1647) = lu(k,1647) - lu(k,1367) * lu(k,1640) - lu(k,1648) = lu(k,1648) - lu(k,1368) * lu(k,1640) - lu(k,1649) = lu(k,1649) - lu(k,1369) * lu(k,1640) - lu(k,1650) = lu(k,1650) - lu(k,1370) * lu(k,1640) - lu(k,1651) = lu(k,1651) - lu(k,1371) * lu(k,1640) - lu(k,1684) = lu(k,1684) - lu(k,1361) * lu(k,1683) - lu(k,1685) = lu(k,1685) - lu(k,1362) * lu(k,1683) - lu(k,1686) = lu(k,1686) - lu(k,1363) * lu(k,1683) - lu(k,1687) = lu(k,1687) - lu(k,1364) * lu(k,1683) - lu(k,1688) = lu(k,1688) - lu(k,1365) * lu(k,1683) - lu(k,1689) = lu(k,1689) - lu(k,1366) * lu(k,1683) - lu(k,1690) = lu(k,1690) - lu(k,1367) * lu(k,1683) - lu(k,1691) = lu(k,1691) - lu(k,1368) * lu(k,1683) - lu(k,1692) = lu(k,1692) - lu(k,1369) * lu(k,1683) - lu(k,1693) = lu(k,1693) - lu(k,1370) * lu(k,1683) - lu(k,1694) = lu(k,1694) - lu(k,1371) * lu(k,1683) - lu(k,1720) = lu(k,1720) - lu(k,1361) * lu(k,1719) - lu(k,1721) = lu(k,1721) - lu(k,1362) * lu(k,1719) - lu(k,1722) = lu(k,1722) - lu(k,1363) * lu(k,1719) - lu(k,1723) = lu(k,1723) - lu(k,1364) * lu(k,1719) - lu(k,1724) = lu(k,1724) - lu(k,1365) * lu(k,1719) - lu(k,1725) = lu(k,1725) - lu(k,1366) * lu(k,1719) - lu(k,1726) = lu(k,1726) - lu(k,1367) * lu(k,1719) - lu(k,1727) = lu(k,1727) - lu(k,1368) * lu(k,1719) - lu(k,1728) = lu(k,1728) - lu(k,1369) * lu(k,1719) - lu(k,1729) = lu(k,1729) - lu(k,1370) * lu(k,1719) - lu(k,1730) = lu(k,1730) - lu(k,1371) * lu(k,1719) - lu(k,1762) = lu(k,1762) - lu(k,1361) * lu(k,1761) - lu(k,1763) = lu(k,1763) - lu(k,1362) * lu(k,1761) - lu(k,1764) = lu(k,1764) - lu(k,1363) * lu(k,1761) - lu(k,1765) = lu(k,1765) - lu(k,1364) * lu(k,1761) - lu(k,1766) = lu(k,1766) - lu(k,1365) * lu(k,1761) - lu(k,1767) = lu(k,1767) - lu(k,1366) * lu(k,1761) - lu(k,1768) = lu(k,1768) - lu(k,1367) * lu(k,1761) - lu(k,1769) = lu(k,1769) - lu(k,1368) * lu(k,1761) - lu(k,1770) = lu(k,1770) - lu(k,1369) * lu(k,1761) - lu(k,1771) = lu(k,1771) - lu(k,1370) * lu(k,1761) - lu(k,1772) = lu(k,1772) - lu(k,1371) * lu(k,1761) - lu(k,1815) = lu(k,1815) - lu(k,1361) * lu(k,1814) - lu(k,1816) = lu(k,1816) - lu(k,1362) * lu(k,1814) - lu(k,1817) = lu(k,1817) - lu(k,1363) * lu(k,1814) - lu(k,1818) = lu(k,1818) - lu(k,1364) * lu(k,1814) - lu(k,1819) = lu(k,1819) - lu(k,1365) * lu(k,1814) - lu(k,1820) = lu(k,1820) - lu(k,1366) * lu(k,1814) - lu(k,1821) = lu(k,1821) - lu(k,1367) * lu(k,1814) - lu(k,1822) = lu(k,1822) - lu(k,1368) * lu(k,1814) - lu(k,1823) = lu(k,1823) - lu(k,1369) * lu(k,1814) - lu(k,1824) = lu(k,1824) - lu(k,1370) * lu(k,1814) - lu(k,1825) = lu(k,1825) - lu(k,1371) * lu(k,1814) - lu(k,1403) = 1._r8 / lu(k,1403) - lu(k,1404) = lu(k,1404) * lu(k,1403) - lu(k,1405) = lu(k,1405) * lu(k,1403) - lu(k,1406) = lu(k,1406) * lu(k,1403) - lu(k,1407) = lu(k,1407) * lu(k,1403) - lu(k,1408) = lu(k,1408) * lu(k,1403) - lu(k,1409) = lu(k,1409) * lu(k,1403) - lu(k,1410) = lu(k,1410) * lu(k,1403) - lu(k,1411) = lu(k,1411) * lu(k,1403) - lu(k,1412) = lu(k,1412) * lu(k,1403) - lu(k,1413) = lu(k,1413) * lu(k,1403) - lu(k,1442) = lu(k,1442) - lu(k,1404) * lu(k,1441) - lu(k,1443) = lu(k,1443) - lu(k,1405) * lu(k,1441) - lu(k,1444) = lu(k,1444) - lu(k,1406) * lu(k,1441) - lu(k,1445) = lu(k,1445) - lu(k,1407) * lu(k,1441) - lu(k,1446) = lu(k,1446) - lu(k,1408) * lu(k,1441) - lu(k,1447) = lu(k,1447) - lu(k,1409) * lu(k,1441) - lu(k,1448) = lu(k,1448) - lu(k,1410) * lu(k,1441) - lu(k,1449) = lu(k,1449) - lu(k,1411) * lu(k,1441) - lu(k,1450) = lu(k,1450) - lu(k,1412) * lu(k,1441) - lu(k,1451) = lu(k,1451) - lu(k,1413) * lu(k,1441) - lu(k,1487) = lu(k,1487) - lu(k,1404) * lu(k,1486) - lu(k,1488) = lu(k,1488) - lu(k,1405) * lu(k,1486) - lu(k,1489) = lu(k,1489) - lu(k,1406) * lu(k,1486) - lu(k,1490) = lu(k,1490) - lu(k,1407) * lu(k,1486) - lu(k,1491) = lu(k,1491) - lu(k,1408) * lu(k,1486) - lu(k,1492) = lu(k,1492) - lu(k,1409) * lu(k,1486) - lu(k,1493) = lu(k,1493) - lu(k,1410) * lu(k,1486) - lu(k,1494) = lu(k,1494) - lu(k,1411) * lu(k,1486) - lu(k,1495) = lu(k,1495) - lu(k,1412) * lu(k,1486) - lu(k,1496) = lu(k,1496) - lu(k,1413) * lu(k,1486) - lu(k,1530) = lu(k,1530) - lu(k,1404) * lu(k,1529) - lu(k,1531) = lu(k,1531) - lu(k,1405) * lu(k,1529) - lu(k,1532) = lu(k,1532) - lu(k,1406) * lu(k,1529) - lu(k,1533) = lu(k,1533) - lu(k,1407) * lu(k,1529) - lu(k,1534) = lu(k,1534) - lu(k,1408) * lu(k,1529) - lu(k,1535) = lu(k,1535) - lu(k,1409) * lu(k,1529) - lu(k,1536) = lu(k,1536) - lu(k,1410) * lu(k,1529) - lu(k,1537) = lu(k,1537) - lu(k,1411) * lu(k,1529) - lu(k,1538) = lu(k,1538) - lu(k,1412) * lu(k,1529) - lu(k,1539) = lu(k,1539) - lu(k,1413) * lu(k,1529) - lu(k,1573) = lu(k,1573) - lu(k,1404) * lu(k,1572) - lu(k,1574) = lu(k,1574) - lu(k,1405) * lu(k,1572) - lu(k,1575) = lu(k,1575) - lu(k,1406) * lu(k,1572) - lu(k,1576) = lu(k,1576) - lu(k,1407) * lu(k,1572) - lu(k,1577) = lu(k,1577) - lu(k,1408) * lu(k,1572) - lu(k,1578) = lu(k,1578) - lu(k,1409) * lu(k,1572) - lu(k,1579) = lu(k,1579) - lu(k,1410) * lu(k,1572) - lu(k,1580) = lu(k,1580) - lu(k,1411) * lu(k,1572) - lu(k,1581) = lu(k,1581) - lu(k,1412) * lu(k,1572) - lu(k,1582) = lu(k,1582) - lu(k,1413) * lu(k,1572) - lu(k,1606) = lu(k,1606) - lu(k,1404) * lu(k,1605) - lu(k,1607) = lu(k,1607) - lu(k,1405) * lu(k,1605) - lu(k,1608) = lu(k,1608) - lu(k,1406) * lu(k,1605) - lu(k,1609) = lu(k,1609) - lu(k,1407) * lu(k,1605) - lu(k,1610) = lu(k,1610) - lu(k,1408) * lu(k,1605) - lu(k,1611) = lu(k,1611) - lu(k,1409) * lu(k,1605) - lu(k,1612) = lu(k,1612) - lu(k,1410) * lu(k,1605) - lu(k,1613) = lu(k,1613) - lu(k,1411) * lu(k,1605) - lu(k,1614) = lu(k,1614) - lu(k,1412) * lu(k,1605) - lu(k,1615) = lu(k,1615) - lu(k,1413) * lu(k,1605) - lu(k,1642) = lu(k,1642) - lu(k,1404) * lu(k,1641) - lu(k,1643) = lu(k,1643) - lu(k,1405) * lu(k,1641) - lu(k,1644) = lu(k,1644) - lu(k,1406) * lu(k,1641) - lu(k,1645) = lu(k,1645) - lu(k,1407) * lu(k,1641) - lu(k,1646) = lu(k,1646) - lu(k,1408) * lu(k,1641) - lu(k,1647) = lu(k,1647) - lu(k,1409) * lu(k,1641) - lu(k,1648) = lu(k,1648) - lu(k,1410) * lu(k,1641) - lu(k,1649) = lu(k,1649) - lu(k,1411) * lu(k,1641) - lu(k,1650) = lu(k,1650) - lu(k,1412) * lu(k,1641) - lu(k,1651) = lu(k,1651) - lu(k,1413) * lu(k,1641) - lu(k,1685) = lu(k,1685) - lu(k,1404) * lu(k,1684) - lu(k,1686) = lu(k,1686) - lu(k,1405) * lu(k,1684) - lu(k,1687) = lu(k,1687) - lu(k,1406) * lu(k,1684) - lu(k,1688) = lu(k,1688) - lu(k,1407) * lu(k,1684) - lu(k,1689) = lu(k,1689) - lu(k,1408) * lu(k,1684) - lu(k,1690) = lu(k,1690) - lu(k,1409) * lu(k,1684) - lu(k,1691) = lu(k,1691) - lu(k,1410) * lu(k,1684) - lu(k,1692) = lu(k,1692) - lu(k,1411) * lu(k,1684) - lu(k,1693) = lu(k,1693) - lu(k,1412) * lu(k,1684) - lu(k,1694) = lu(k,1694) - lu(k,1413) * lu(k,1684) - lu(k,1721) = lu(k,1721) - lu(k,1404) * lu(k,1720) - lu(k,1722) = lu(k,1722) - lu(k,1405) * lu(k,1720) - lu(k,1723) = lu(k,1723) - lu(k,1406) * lu(k,1720) - lu(k,1724) = lu(k,1724) - lu(k,1407) * lu(k,1720) - lu(k,1725) = lu(k,1725) - lu(k,1408) * lu(k,1720) - lu(k,1726) = lu(k,1726) - lu(k,1409) * lu(k,1720) - lu(k,1727) = lu(k,1727) - lu(k,1410) * lu(k,1720) - lu(k,1728) = lu(k,1728) - lu(k,1411) * lu(k,1720) - lu(k,1729) = lu(k,1729) - lu(k,1412) * lu(k,1720) - lu(k,1730) = lu(k,1730) - lu(k,1413) * lu(k,1720) - lu(k,1763) = lu(k,1763) - lu(k,1404) * lu(k,1762) - lu(k,1764) = lu(k,1764) - lu(k,1405) * lu(k,1762) - lu(k,1765) = lu(k,1765) - lu(k,1406) * lu(k,1762) - lu(k,1766) = lu(k,1766) - lu(k,1407) * lu(k,1762) - lu(k,1767) = lu(k,1767) - lu(k,1408) * lu(k,1762) - lu(k,1768) = lu(k,1768) - lu(k,1409) * lu(k,1762) - lu(k,1769) = lu(k,1769) - lu(k,1410) * lu(k,1762) - lu(k,1770) = lu(k,1770) - lu(k,1411) * lu(k,1762) - lu(k,1771) = lu(k,1771) - lu(k,1412) * lu(k,1762) - lu(k,1772) = lu(k,1772) - lu(k,1413) * lu(k,1762) - lu(k,1816) = lu(k,1816) - lu(k,1404) * lu(k,1815) - lu(k,1817) = lu(k,1817) - lu(k,1405) * lu(k,1815) - lu(k,1818) = lu(k,1818) - lu(k,1406) * lu(k,1815) - lu(k,1819) = lu(k,1819) - lu(k,1407) * lu(k,1815) - lu(k,1820) = lu(k,1820) - lu(k,1408) * lu(k,1815) - lu(k,1821) = lu(k,1821) - lu(k,1409) * lu(k,1815) - lu(k,1822) = lu(k,1822) - lu(k,1410) * lu(k,1815) - lu(k,1823) = lu(k,1823) - lu(k,1411) * lu(k,1815) - lu(k,1824) = lu(k,1824) - lu(k,1412) * lu(k,1815) - lu(k,1825) = lu(k,1825) - lu(k,1413) * lu(k,1815) - 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,1488) = lu(k,1488) - lu(k,1443) * lu(k,1487) - lu(k,1489) = lu(k,1489) - lu(k,1444) * lu(k,1487) - lu(k,1490) = lu(k,1490) - lu(k,1445) * lu(k,1487) - lu(k,1491) = lu(k,1491) - lu(k,1446) * lu(k,1487) - lu(k,1492) = lu(k,1492) - lu(k,1447) * lu(k,1487) - lu(k,1493) = lu(k,1493) - lu(k,1448) * lu(k,1487) - lu(k,1494) = lu(k,1494) - lu(k,1449) * lu(k,1487) - lu(k,1495) = lu(k,1495) - lu(k,1450) * lu(k,1487) - lu(k,1496) = lu(k,1496) - lu(k,1451) * lu(k,1487) - lu(k,1531) = lu(k,1531) - lu(k,1443) * lu(k,1530) - lu(k,1532) = lu(k,1532) - lu(k,1444) * lu(k,1530) - lu(k,1533) = lu(k,1533) - lu(k,1445) * lu(k,1530) - lu(k,1534) = lu(k,1534) - lu(k,1446) * lu(k,1530) - lu(k,1535) = lu(k,1535) - lu(k,1447) * lu(k,1530) - lu(k,1536) = lu(k,1536) - lu(k,1448) * lu(k,1530) - lu(k,1537) = lu(k,1537) - lu(k,1449) * lu(k,1530) - lu(k,1538) = lu(k,1538) - lu(k,1450) * lu(k,1530) - lu(k,1539) = lu(k,1539) - lu(k,1451) * lu(k,1530) - lu(k,1574) = lu(k,1574) - lu(k,1443) * lu(k,1573) - lu(k,1575) = lu(k,1575) - lu(k,1444) * lu(k,1573) - lu(k,1576) = lu(k,1576) - lu(k,1445) * lu(k,1573) - lu(k,1577) = lu(k,1577) - lu(k,1446) * lu(k,1573) - lu(k,1578) = lu(k,1578) - lu(k,1447) * lu(k,1573) - lu(k,1579) = lu(k,1579) - lu(k,1448) * lu(k,1573) - lu(k,1580) = lu(k,1580) - lu(k,1449) * lu(k,1573) - lu(k,1581) = lu(k,1581) - lu(k,1450) * lu(k,1573) - lu(k,1582) = lu(k,1582) - lu(k,1451) * lu(k,1573) - lu(k,1607) = lu(k,1607) - lu(k,1443) * lu(k,1606) - lu(k,1608) = lu(k,1608) - lu(k,1444) * lu(k,1606) - lu(k,1609) = lu(k,1609) - lu(k,1445) * lu(k,1606) - lu(k,1610) = lu(k,1610) - lu(k,1446) * lu(k,1606) - lu(k,1611) = lu(k,1611) - lu(k,1447) * lu(k,1606) - lu(k,1612) = lu(k,1612) - lu(k,1448) * lu(k,1606) - lu(k,1613) = lu(k,1613) - lu(k,1449) * lu(k,1606) - lu(k,1614) = lu(k,1614) - lu(k,1450) * lu(k,1606) - lu(k,1615) = lu(k,1615) - lu(k,1451) * lu(k,1606) - lu(k,1643) = lu(k,1643) - lu(k,1443) * lu(k,1642) - lu(k,1644) = lu(k,1644) - lu(k,1444) * lu(k,1642) - lu(k,1645) = lu(k,1645) - lu(k,1445) * lu(k,1642) - lu(k,1646) = lu(k,1646) - lu(k,1446) * lu(k,1642) - lu(k,1647) = lu(k,1647) - lu(k,1447) * lu(k,1642) - lu(k,1648) = lu(k,1648) - lu(k,1448) * lu(k,1642) - lu(k,1649) = lu(k,1649) - lu(k,1449) * lu(k,1642) - lu(k,1650) = lu(k,1650) - lu(k,1450) * lu(k,1642) - lu(k,1651) = lu(k,1651) - lu(k,1451) * lu(k,1642) - lu(k,1686) = lu(k,1686) - lu(k,1443) * lu(k,1685) - lu(k,1687) = lu(k,1687) - lu(k,1444) * lu(k,1685) - lu(k,1688) = lu(k,1688) - lu(k,1445) * lu(k,1685) - lu(k,1689) = lu(k,1689) - lu(k,1446) * lu(k,1685) - lu(k,1690) = lu(k,1690) - lu(k,1447) * lu(k,1685) - lu(k,1691) = lu(k,1691) - lu(k,1448) * lu(k,1685) - lu(k,1692) = lu(k,1692) - lu(k,1449) * lu(k,1685) - lu(k,1693) = lu(k,1693) - lu(k,1450) * lu(k,1685) - lu(k,1694) = lu(k,1694) - lu(k,1451) * lu(k,1685) - lu(k,1722) = lu(k,1722) - lu(k,1443) * lu(k,1721) - lu(k,1723) = lu(k,1723) - lu(k,1444) * lu(k,1721) - lu(k,1724) = lu(k,1724) - lu(k,1445) * lu(k,1721) - lu(k,1725) = lu(k,1725) - lu(k,1446) * lu(k,1721) - lu(k,1726) = lu(k,1726) - lu(k,1447) * lu(k,1721) - lu(k,1727) = lu(k,1727) - lu(k,1448) * lu(k,1721) - lu(k,1728) = lu(k,1728) - lu(k,1449) * lu(k,1721) - lu(k,1729) = lu(k,1729) - lu(k,1450) * lu(k,1721) - lu(k,1730) = lu(k,1730) - lu(k,1451) * lu(k,1721) - lu(k,1764) = lu(k,1764) - lu(k,1443) * lu(k,1763) - lu(k,1765) = lu(k,1765) - lu(k,1444) * lu(k,1763) - lu(k,1766) = lu(k,1766) - lu(k,1445) * lu(k,1763) - lu(k,1767) = lu(k,1767) - lu(k,1446) * lu(k,1763) - lu(k,1768) = lu(k,1768) - lu(k,1447) * lu(k,1763) - lu(k,1769) = lu(k,1769) - lu(k,1448) * lu(k,1763) - lu(k,1770) = lu(k,1770) - lu(k,1449) * lu(k,1763) - lu(k,1771) = lu(k,1771) - lu(k,1450) * lu(k,1763) - lu(k,1772) = lu(k,1772) - lu(k,1451) * lu(k,1763) - lu(k,1817) = lu(k,1817) - lu(k,1443) * lu(k,1816) - lu(k,1818) = lu(k,1818) - lu(k,1444) * lu(k,1816) - lu(k,1819) = lu(k,1819) - lu(k,1445) * lu(k,1816) - lu(k,1820) = lu(k,1820) - lu(k,1446) * lu(k,1816) - lu(k,1821) = lu(k,1821) - lu(k,1447) * lu(k,1816) - lu(k,1822) = lu(k,1822) - lu(k,1448) * lu(k,1816) - lu(k,1823) = lu(k,1823) - lu(k,1449) * lu(k,1816) - lu(k,1824) = lu(k,1824) - lu(k,1450) * lu(k,1816) - lu(k,1825) = lu(k,1825) - lu(k,1451) * lu(k,1816) - lu(k,1488) = 1._r8 / lu(k,1488) - lu(k,1489) = lu(k,1489) * lu(k,1488) - lu(k,1490) = lu(k,1490) * lu(k,1488) - lu(k,1491) = lu(k,1491) * lu(k,1488) - lu(k,1492) = lu(k,1492) * lu(k,1488) - lu(k,1493) = lu(k,1493) * lu(k,1488) - lu(k,1494) = lu(k,1494) * lu(k,1488) - lu(k,1495) = lu(k,1495) * lu(k,1488) - lu(k,1496) = lu(k,1496) * lu(k,1488) - lu(k,1532) = lu(k,1532) - lu(k,1489) * lu(k,1531) - lu(k,1533) = lu(k,1533) - lu(k,1490) * lu(k,1531) - lu(k,1534) = lu(k,1534) - lu(k,1491) * lu(k,1531) - lu(k,1535) = lu(k,1535) - lu(k,1492) * lu(k,1531) - lu(k,1536) = lu(k,1536) - lu(k,1493) * lu(k,1531) - lu(k,1537) = lu(k,1537) - lu(k,1494) * lu(k,1531) - lu(k,1538) = lu(k,1538) - lu(k,1495) * lu(k,1531) - lu(k,1539) = lu(k,1539) - lu(k,1496) * lu(k,1531) - lu(k,1575) = lu(k,1575) - lu(k,1489) * lu(k,1574) - lu(k,1576) = lu(k,1576) - lu(k,1490) * lu(k,1574) - lu(k,1577) = lu(k,1577) - lu(k,1491) * lu(k,1574) - lu(k,1578) = lu(k,1578) - lu(k,1492) * lu(k,1574) - lu(k,1579) = lu(k,1579) - lu(k,1493) * lu(k,1574) - lu(k,1580) = lu(k,1580) - lu(k,1494) * lu(k,1574) - lu(k,1581) = lu(k,1581) - lu(k,1495) * lu(k,1574) - lu(k,1582) = lu(k,1582) - lu(k,1496) * lu(k,1574) - lu(k,1608) = lu(k,1608) - lu(k,1489) * lu(k,1607) - lu(k,1609) = lu(k,1609) - lu(k,1490) * lu(k,1607) - lu(k,1610) = lu(k,1610) - lu(k,1491) * lu(k,1607) - lu(k,1611) = lu(k,1611) - lu(k,1492) * lu(k,1607) - lu(k,1612) = lu(k,1612) - lu(k,1493) * lu(k,1607) - lu(k,1613) = lu(k,1613) - lu(k,1494) * lu(k,1607) - lu(k,1614) = lu(k,1614) - lu(k,1495) * lu(k,1607) - lu(k,1615) = lu(k,1615) - lu(k,1496) * lu(k,1607) - lu(k,1644) = lu(k,1644) - lu(k,1489) * lu(k,1643) - lu(k,1645) = lu(k,1645) - lu(k,1490) * lu(k,1643) - lu(k,1646) = lu(k,1646) - lu(k,1491) * lu(k,1643) - lu(k,1647) = lu(k,1647) - lu(k,1492) * lu(k,1643) - lu(k,1648) = lu(k,1648) - lu(k,1493) * lu(k,1643) - lu(k,1649) = lu(k,1649) - lu(k,1494) * lu(k,1643) - lu(k,1650) = lu(k,1650) - lu(k,1495) * lu(k,1643) - lu(k,1651) = lu(k,1651) - lu(k,1496) * lu(k,1643) - lu(k,1687) = lu(k,1687) - lu(k,1489) * lu(k,1686) - lu(k,1688) = lu(k,1688) - lu(k,1490) * lu(k,1686) - lu(k,1689) = lu(k,1689) - lu(k,1491) * lu(k,1686) - lu(k,1690) = lu(k,1690) - lu(k,1492) * lu(k,1686) - lu(k,1691) = lu(k,1691) - lu(k,1493) * lu(k,1686) - lu(k,1692) = lu(k,1692) - lu(k,1494) * lu(k,1686) - lu(k,1693) = lu(k,1693) - lu(k,1495) * lu(k,1686) - lu(k,1694) = lu(k,1694) - lu(k,1496) * lu(k,1686) - lu(k,1723) = lu(k,1723) - lu(k,1489) * lu(k,1722) - lu(k,1724) = lu(k,1724) - lu(k,1490) * lu(k,1722) - lu(k,1725) = lu(k,1725) - lu(k,1491) * lu(k,1722) - lu(k,1726) = lu(k,1726) - lu(k,1492) * lu(k,1722) - lu(k,1727) = lu(k,1727) - lu(k,1493) * lu(k,1722) - lu(k,1728) = lu(k,1728) - lu(k,1494) * lu(k,1722) - lu(k,1729) = lu(k,1729) - lu(k,1495) * lu(k,1722) - lu(k,1730) = lu(k,1730) - lu(k,1496) * lu(k,1722) - lu(k,1765) = lu(k,1765) - lu(k,1489) * lu(k,1764) - lu(k,1766) = lu(k,1766) - lu(k,1490) * lu(k,1764) - lu(k,1767) = lu(k,1767) - lu(k,1491) * lu(k,1764) - lu(k,1768) = lu(k,1768) - lu(k,1492) * lu(k,1764) - lu(k,1769) = lu(k,1769) - lu(k,1493) * lu(k,1764) - lu(k,1770) = lu(k,1770) - lu(k,1494) * lu(k,1764) - lu(k,1771) = lu(k,1771) - lu(k,1495) * lu(k,1764) - lu(k,1772) = lu(k,1772) - lu(k,1496) * lu(k,1764) - lu(k,1818) = lu(k,1818) - lu(k,1489) * lu(k,1817) - lu(k,1819) = lu(k,1819) - lu(k,1490) * lu(k,1817) - lu(k,1820) = lu(k,1820) - lu(k,1491) * lu(k,1817) - lu(k,1821) = lu(k,1821) - lu(k,1492) * lu(k,1817) - lu(k,1822) = lu(k,1822) - lu(k,1493) * lu(k,1817) - lu(k,1823) = lu(k,1823) - lu(k,1494) * lu(k,1817) - lu(k,1824) = lu(k,1824) - lu(k,1495) * lu(k,1817) - lu(k,1825) = lu(k,1825) - lu(k,1496) * lu(k,1817) - end do + real(r8), intent(inout) :: lu(:) + lu(1324) = 1._r8 / lu(1324) + lu(1325) = lu(1325) * lu(1324) + lu(1326) = lu(1326) * lu(1324) + lu(1327) = lu(1327) * lu(1324) + lu(1328) = lu(1328) * lu(1324) + lu(1329) = lu(1329) * lu(1324) + lu(1330) = lu(1330) * lu(1324) + lu(1331) = lu(1331) * lu(1324) + lu(1332) = lu(1332) * lu(1324) + lu(1333) = lu(1333) * lu(1324) + lu(1334) = lu(1334) * lu(1324) + lu(1367) = lu(1367) - lu(1325) * lu(1366) + lu(1368) = lu(1368) - lu(1326) * lu(1366) + lu(1369) = lu(1369) - lu(1327) * lu(1366) + lu(1370) = lu(1370) - lu(1328) * lu(1366) + lu(1371) = lu(1371) - lu(1329) * lu(1366) + lu(1372) = lu(1372) - lu(1330) * lu(1366) + lu(1373) = lu(1373) - lu(1331) * lu(1366) + lu(1374) = lu(1374) - lu(1332) * lu(1366) + lu(1375) = lu(1375) - lu(1333) * lu(1366) + lu(1376) = lu(1376) - lu(1334) * lu(1366) + lu(1409) = lu(1409) - lu(1325) * lu(1408) + lu(1410) = lu(1410) - lu(1326) * lu(1408) + lu(1411) = lu(1411) - lu(1327) * lu(1408) + lu(1412) = lu(1412) - lu(1328) * lu(1408) + lu(1413) = lu(1413) - lu(1329) * lu(1408) + lu(1414) = lu(1414) - lu(1330) * lu(1408) + lu(1415) = lu(1415) - lu(1331) * lu(1408) + lu(1416) = lu(1416) - lu(1332) * lu(1408) + lu(1417) = lu(1417) - lu(1333) * lu(1408) + lu(1418) = lu(1418) - lu(1334) * lu(1408) + lu(1451) = lu(1451) - lu(1325) * lu(1450) + lu(1452) = lu(1452) - lu(1326) * lu(1450) + lu(1453) = lu(1453) - lu(1327) * lu(1450) + lu(1454) = lu(1454) - lu(1328) * lu(1450) + lu(1455) = lu(1455) - lu(1329) * lu(1450) + lu(1456) = lu(1456) - lu(1330) * lu(1450) + lu(1457) = lu(1457) - lu(1331) * lu(1450) + lu(1458) = lu(1458) - lu(1332) * lu(1450) + lu(1459) = lu(1459) - lu(1333) * lu(1450) + lu(1460) = lu(1460) - lu(1334) * lu(1450) + lu(1506) = lu(1506) - lu(1325) * lu(1505) + lu(1507) = lu(1507) - lu(1326) * lu(1505) + lu(1508) = lu(1508) - lu(1327) * lu(1505) + lu(1509) = lu(1509) - lu(1328) * lu(1505) + lu(1510) = lu(1510) - lu(1329) * lu(1505) + lu(1511) = lu(1511) - lu(1330) * lu(1505) + lu(1512) = lu(1512) - lu(1331) * lu(1505) + lu(1513) = lu(1513) - lu(1332) * lu(1505) + lu(1514) = lu(1514) - lu(1333) * lu(1505) + lu(1515) = lu(1515) - lu(1334) * lu(1505) + lu(1538) = lu(1538) - lu(1325) * lu(1537) + lu(1539) = lu(1539) - lu(1326) * lu(1537) + lu(1540) = lu(1540) - lu(1327) * lu(1537) + lu(1541) = lu(1541) - lu(1328) * lu(1537) + lu(1542) = lu(1542) - lu(1329) * lu(1537) + lu(1543) = lu(1543) - lu(1330) * lu(1537) + lu(1544) = lu(1544) - lu(1331) * lu(1537) + lu(1545) = lu(1545) - lu(1332) * lu(1537) + lu(1546) = lu(1546) - lu(1333) * lu(1537) + lu(1547) = lu(1547) - lu(1334) * lu(1537) + lu(1573) = lu(1573) - lu(1325) * lu(1572) + lu(1574) = lu(1574) - lu(1326) * lu(1572) + lu(1575) = lu(1575) - lu(1327) * lu(1572) + lu(1576) = lu(1576) - lu(1328) * lu(1572) + lu(1577) = lu(1577) - lu(1329) * lu(1572) + lu(1578) = lu(1578) - lu(1330) * lu(1572) + lu(1579) = lu(1579) - lu(1331) * lu(1572) + lu(1580) = lu(1580) - lu(1332) * lu(1572) + lu(1581) = lu(1581) - lu(1333) * lu(1572) + lu(1582) = lu(1582) - lu(1334) * lu(1572) + lu(1611) = lu(1611) - lu(1325) * lu(1610) + lu(1612) = lu(1612) - lu(1326) * lu(1610) + lu(1613) = lu(1613) - lu(1327) * lu(1610) + lu(1614) = lu(1614) - lu(1328) * lu(1610) + lu(1615) = lu(1615) - lu(1329) * lu(1610) + lu(1616) = lu(1616) - lu(1330) * lu(1610) + lu(1617) = lu(1617) - lu(1331) * lu(1610) + lu(1618) = lu(1618) - lu(1332) * lu(1610) + lu(1619) = lu(1619) - lu(1333) * lu(1610) + lu(1620) = lu(1620) - lu(1334) * lu(1610) + lu(1650) = lu(1650) - lu(1325) * lu(1649) + lu(1651) = lu(1651) - lu(1326) * lu(1649) + lu(1652) = lu(1652) - lu(1327) * lu(1649) + lu(1653) = lu(1653) - lu(1328) * lu(1649) + lu(1654) = lu(1654) - lu(1329) * lu(1649) + lu(1655) = lu(1655) - lu(1330) * lu(1649) + lu(1656) = lu(1656) - lu(1331) * lu(1649) + lu(1657) = lu(1657) - lu(1332) * lu(1649) + lu(1658) = lu(1658) - lu(1333) * lu(1649) + lu(1659) = lu(1659) - lu(1334) * lu(1649) + lu(1684) = lu(1684) - lu(1325) * lu(1683) + lu(1685) = lu(1685) - lu(1326) * lu(1683) + lu(1686) = lu(1686) - lu(1327) * lu(1683) + lu(1687) = lu(1687) - lu(1328) * lu(1683) + lu(1688) = lu(1688) - lu(1329) * lu(1683) + lu(1689) = lu(1689) - lu(1330) * lu(1683) + lu(1690) = lu(1690) - lu(1331) * lu(1683) + lu(1691) = lu(1691) - lu(1332) * lu(1683) + lu(1692) = lu(1692) - lu(1333) * lu(1683) + lu(1693) = lu(1693) - lu(1334) * lu(1683) + lu(1736) = lu(1736) - lu(1325) * lu(1735) + lu(1737) = lu(1737) - lu(1326) * lu(1735) + lu(1738) = lu(1738) - lu(1327) * lu(1735) + lu(1739) = lu(1739) - lu(1328) * lu(1735) + lu(1740) = lu(1740) - lu(1329) * lu(1735) + lu(1741) = lu(1741) - lu(1330) * lu(1735) + lu(1742) = lu(1742) - lu(1331) * lu(1735) + lu(1743) = lu(1743) - lu(1332) * lu(1735) + lu(1744) = lu(1744) - lu(1333) * lu(1735) + lu(1745) = lu(1745) - lu(1334) * lu(1735) + lu(1367) = 1._r8 / lu(1367) + lu(1368) = lu(1368) * lu(1367) + lu(1369) = lu(1369) * lu(1367) + lu(1370) = lu(1370) * lu(1367) + lu(1371) = lu(1371) * lu(1367) + lu(1372) = lu(1372) * lu(1367) + lu(1373) = lu(1373) * lu(1367) + lu(1374) = lu(1374) * lu(1367) + lu(1375) = lu(1375) * lu(1367) + lu(1376) = lu(1376) * lu(1367) + lu(1410) = lu(1410) - lu(1368) * lu(1409) + lu(1411) = lu(1411) - lu(1369) * lu(1409) + lu(1412) = lu(1412) - lu(1370) * lu(1409) + lu(1413) = lu(1413) - lu(1371) * lu(1409) + lu(1414) = lu(1414) - lu(1372) * lu(1409) + lu(1415) = lu(1415) - lu(1373) * lu(1409) + lu(1416) = lu(1416) - lu(1374) * lu(1409) + lu(1417) = lu(1417) - lu(1375) * lu(1409) + lu(1418) = lu(1418) - lu(1376) * lu(1409) + lu(1452) = lu(1452) - lu(1368) * lu(1451) + lu(1453) = lu(1453) - lu(1369) * lu(1451) + lu(1454) = lu(1454) - lu(1370) * lu(1451) + lu(1455) = lu(1455) - lu(1371) * lu(1451) + lu(1456) = lu(1456) - lu(1372) * lu(1451) + lu(1457) = lu(1457) - lu(1373) * lu(1451) + lu(1458) = lu(1458) - lu(1374) * lu(1451) + lu(1459) = lu(1459) - lu(1375) * lu(1451) + lu(1460) = lu(1460) - lu(1376) * lu(1451) + lu(1507) = lu(1507) - lu(1368) * lu(1506) + lu(1508) = lu(1508) - lu(1369) * lu(1506) + lu(1509) = lu(1509) - lu(1370) * lu(1506) + lu(1510) = lu(1510) - lu(1371) * lu(1506) + lu(1511) = lu(1511) - lu(1372) * lu(1506) + lu(1512) = lu(1512) - lu(1373) * lu(1506) + lu(1513) = lu(1513) - lu(1374) * lu(1506) + lu(1514) = lu(1514) - lu(1375) * lu(1506) + lu(1515) = lu(1515) - lu(1376) * lu(1506) + lu(1539) = lu(1539) - lu(1368) * lu(1538) + lu(1540) = lu(1540) - lu(1369) * lu(1538) + lu(1541) = lu(1541) - lu(1370) * lu(1538) + lu(1542) = lu(1542) - lu(1371) * lu(1538) + lu(1543) = lu(1543) - lu(1372) * lu(1538) + lu(1544) = lu(1544) - lu(1373) * lu(1538) + lu(1545) = lu(1545) - lu(1374) * lu(1538) + lu(1546) = lu(1546) - lu(1375) * lu(1538) + lu(1547) = lu(1547) - lu(1376) * lu(1538) + lu(1574) = lu(1574) - lu(1368) * lu(1573) + lu(1575) = lu(1575) - lu(1369) * lu(1573) + lu(1576) = lu(1576) - lu(1370) * lu(1573) + lu(1577) = lu(1577) - lu(1371) * lu(1573) + lu(1578) = lu(1578) - lu(1372) * lu(1573) + lu(1579) = lu(1579) - lu(1373) * lu(1573) + lu(1580) = lu(1580) - lu(1374) * lu(1573) + lu(1581) = lu(1581) - lu(1375) * lu(1573) + lu(1582) = lu(1582) - lu(1376) * lu(1573) + lu(1612) = lu(1612) - lu(1368) * lu(1611) + lu(1613) = lu(1613) - lu(1369) * lu(1611) + lu(1614) = lu(1614) - lu(1370) * lu(1611) + lu(1615) = lu(1615) - lu(1371) * lu(1611) + lu(1616) = lu(1616) - lu(1372) * lu(1611) + lu(1617) = lu(1617) - lu(1373) * lu(1611) + lu(1618) = lu(1618) - lu(1374) * lu(1611) + lu(1619) = lu(1619) - lu(1375) * lu(1611) + lu(1620) = lu(1620) - lu(1376) * lu(1611) + lu(1651) = lu(1651) - lu(1368) * lu(1650) + lu(1652) = lu(1652) - lu(1369) * lu(1650) + lu(1653) = lu(1653) - lu(1370) * lu(1650) + lu(1654) = lu(1654) - lu(1371) * lu(1650) + lu(1655) = lu(1655) - lu(1372) * lu(1650) + lu(1656) = lu(1656) - lu(1373) * lu(1650) + lu(1657) = lu(1657) - lu(1374) * lu(1650) + lu(1658) = lu(1658) - lu(1375) * lu(1650) + lu(1659) = lu(1659) - lu(1376) * lu(1650) + lu(1685) = lu(1685) - lu(1368) * lu(1684) + lu(1686) = lu(1686) - lu(1369) * lu(1684) + lu(1687) = lu(1687) - lu(1370) * lu(1684) + lu(1688) = lu(1688) - lu(1371) * lu(1684) + lu(1689) = lu(1689) - lu(1372) * lu(1684) + lu(1690) = lu(1690) - lu(1373) * lu(1684) + lu(1691) = lu(1691) - lu(1374) * lu(1684) + lu(1692) = lu(1692) - lu(1375) * lu(1684) + lu(1693) = lu(1693) - lu(1376) * lu(1684) + lu(1737) = lu(1737) - lu(1368) * lu(1736) + lu(1738) = lu(1738) - lu(1369) * lu(1736) + lu(1739) = lu(1739) - lu(1370) * lu(1736) + lu(1740) = lu(1740) - lu(1371) * lu(1736) + lu(1741) = lu(1741) - lu(1372) * lu(1736) + lu(1742) = lu(1742) - lu(1373) * lu(1736) + lu(1743) = lu(1743) - lu(1374) * lu(1736) + lu(1744) = lu(1744) - lu(1375) * lu(1736) + lu(1745) = lu(1745) - lu(1376) * lu(1736) + lu(1410) = 1._r8 / lu(1410) + lu(1411) = lu(1411) * lu(1410) + lu(1412) = lu(1412) * lu(1410) + lu(1413) = lu(1413) * lu(1410) + lu(1414) = lu(1414) * lu(1410) + lu(1415) = lu(1415) * lu(1410) + lu(1416) = lu(1416) * lu(1410) + lu(1417) = lu(1417) * lu(1410) + lu(1418) = lu(1418) * lu(1410) + lu(1453) = lu(1453) - lu(1411) * lu(1452) + lu(1454) = lu(1454) - lu(1412) * lu(1452) + lu(1455) = lu(1455) - lu(1413) * lu(1452) + lu(1456) = lu(1456) - lu(1414) * lu(1452) + lu(1457) = lu(1457) - lu(1415) * lu(1452) + lu(1458) = lu(1458) - lu(1416) * lu(1452) + lu(1459) = lu(1459) - lu(1417) * lu(1452) + lu(1460) = lu(1460) - lu(1418) * lu(1452) + lu(1508) = lu(1508) - lu(1411) * lu(1507) + lu(1509) = lu(1509) - lu(1412) * lu(1507) + lu(1510) = lu(1510) - lu(1413) * lu(1507) + lu(1511) = lu(1511) - lu(1414) * lu(1507) + lu(1512) = lu(1512) - lu(1415) * lu(1507) + lu(1513) = lu(1513) - lu(1416) * lu(1507) + lu(1514) = lu(1514) - lu(1417) * lu(1507) + lu(1515) = lu(1515) - lu(1418) * lu(1507) + lu(1540) = lu(1540) - lu(1411) * lu(1539) + lu(1541) = lu(1541) - lu(1412) * lu(1539) + lu(1542) = lu(1542) - lu(1413) * lu(1539) + lu(1543) = lu(1543) - lu(1414) * lu(1539) + lu(1544) = lu(1544) - lu(1415) * lu(1539) + lu(1545) = lu(1545) - lu(1416) * lu(1539) + lu(1546) = lu(1546) - lu(1417) * lu(1539) + lu(1547) = lu(1547) - lu(1418) * lu(1539) + lu(1575) = lu(1575) - lu(1411) * lu(1574) + lu(1576) = lu(1576) - lu(1412) * lu(1574) + lu(1577) = lu(1577) - lu(1413) * lu(1574) + lu(1578) = lu(1578) - lu(1414) * lu(1574) + lu(1579) = lu(1579) - lu(1415) * lu(1574) + lu(1580) = lu(1580) - lu(1416) * lu(1574) + lu(1581) = lu(1581) - lu(1417) * lu(1574) + lu(1582) = lu(1582) - lu(1418) * lu(1574) + lu(1613) = lu(1613) - lu(1411) * lu(1612) + lu(1614) = lu(1614) - lu(1412) * lu(1612) + lu(1615) = lu(1615) - lu(1413) * lu(1612) + lu(1616) = lu(1616) - lu(1414) * lu(1612) + lu(1617) = lu(1617) - lu(1415) * lu(1612) + lu(1618) = lu(1618) - lu(1416) * lu(1612) + lu(1619) = lu(1619) - lu(1417) * lu(1612) + lu(1620) = lu(1620) - lu(1418) * lu(1612) + lu(1652) = lu(1652) - lu(1411) * lu(1651) + lu(1653) = lu(1653) - lu(1412) * lu(1651) + lu(1654) = lu(1654) - lu(1413) * lu(1651) + lu(1655) = lu(1655) - lu(1414) * lu(1651) + lu(1656) = lu(1656) - lu(1415) * lu(1651) + lu(1657) = lu(1657) - lu(1416) * lu(1651) + lu(1658) = lu(1658) - lu(1417) * lu(1651) + lu(1659) = lu(1659) - lu(1418) * lu(1651) + lu(1686) = lu(1686) - lu(1411) * lu(1685) + lu(1687) = lu(1687) - lu(1412) * lu(1685) + lu(1688) = lu(1688) - lu(1413) * lu(1685) + lu(1689) = lu(1689) - lu(1414) * lu(1685) + lu(1690) = lu(1690) - lu(1415) * lu(1685) + lu(1691) = lu(1691) - lu(1416) * lu(1685) + lu(1692) = lu(1692) - lu(1417) * lu(1685) + lu(1693) = lu(1693) - lu(1418) * lu(1685) + lu(1738) = lu(1738) - lu(1411) * lu(1737) + lu(1739) = lu(1739) - lu(1412) * lu(1737) + lu(1740) = lu(1740) - lu(1413) * lu(1737) + lu(1741) = lu(1741) - lu(1414) * lu(1737) + lu(1742) = lu(1742) - lu(1415) * lu(1737) + lu(1743) = lu(1743) - lu(1416) * lu(1737) + lu(1744) = lu(1744) - lu(1417) * lu(1737) + lu(1745) = lu(1745) - lu(1418) * lu(1737) + lu(1453) = 1._r8 / lu(1453) + lu(1454) = lu(1454) * lu(1453) + lu(1455) = lu(1455) * lu(1453) + lu(1456) = lu(1456) * lu(1453) + lu(1457) = lu(1457) * lu(1453) + lu(1458) = lu(1458) * lu(1453) + lu(1459) = lu(1459) * lu(1453) + lu(1460) = lu(1460) * lu(1453) + lu(1509) = lu(1509) - lu(1454) * lu(1508) + lu(1510) = lu(1510) - lu(1455) * lu(1508) + lu(1511) = lu(1511) - lu(1456) * lu(1508) + lu(1512) = lu(1512) - lu(1457) * lu(1508) + lu(1513) = lu(1513) - lu(1458) * lu(1508) + lu(1514) = lu(1514) - lu(1459) * lu(1508) + lu(1515) = lu(1515) - lu(1460) * lu(1508) + lu(1541) = lu(1541) - lu(1454) * lu(1540) + lu(1542) = lu(1542) - lu(1455) * lu(1540) + lu(1543) = lu(1543) - lu(1456) * lu(1540) + lu(1544) = lu(1544) - lu(1457) * lu(1540) + lu(1545) = lu(1545) - lu(1458) * lu(1540) + lu(1546) = lu(1546) - lu(1459) * lu(1540) + lu(1547) = lu(1547) - lu(1460) * lu(1540) + lu(1576) = lu(1576) - lu(1454) * lu(1575) + lu(1577) = lu(1577) - lu(1455) * lu(1575) + lu(1578) = lu(1578) - lu(1456) * lu(1575) + lu(1579) = lu(1579) - lu(1457) * lu(1575) + lu(1580) = lu(1580) - lu(1458) * lu(1575) + lu(1581) = lu(1581) - lu(1459) * lu(1575) + lu(1582) = lu(1582) - lu(1460) * lu(1575) + lu(1614) = lu(1614) - lu(1454) * lu(1613) + lu(1615) = lu(1615) - lu(1455) * lu(1613) + lu(1616) = lu(1616) - lu(1456) * lu(1613) + lu(1617) = lu(1617) - lu(1457) * lu(1613) + lu(1618) = lu(1618) - lu(1458) * lu(1613) + lu(1619) = lu(1619) - lu(1459) * lu(1613) + lu(1620) = lu(1620) - lu(1460) * lu(1613) + lu(1653) = lu(1653) - lu(1454) * lu(1652) + lu(1654) = lu(1654) - lu(1455) * lu(1652) + lu(1655) = lu(1655) - lu(1456) * lu(1652) + lu(1656) = lu(1656) - lu(1457) * lu(1652) + lu(1657) = lu(1657) - lu(1458) * lu(1652) + lu(1658) = lu(1658) - lu(1459) * lu(1652) + lu(1659) = lu(1659) - lu(1460) * lu(1652) + lu(1687) = lu(1687) - lu(1454) * lu(1686) + lu(1688) = lu(1688) - lu(1455) * lu(1686) + lu(1689) = lu(1689) - lu(1456) * lu(1686) + lu(1690) = lu(1690) - lu(1457) * lu(1686) + lu(1691) = lu(1691) - lu(1458) * lu(1686) + lu(1692) = lu(1692) - lu(1459) * lu(1686) + lu(1693) = lu(1693) - lu(1460) * lu(1686) + lu(1739) = lu(1739) - lu(1454) * lu(1738) + lu(1740) = lu(1740) - lu(1455) * lu(1738) + lu(1741) = lu(1741) - lu(1456) * lu(1738) + lu(1742) = lu(1742) - lu(1457) * lu(1738) + lu(1743) = lu(1743) - lu(1458) * lu(1738) + lu(1744) = lu(1744) - lu(1459) * lu(1738) + lu(1745) = lu(1745) - lu(1460) * lu(1738) + lu(1509) = 1._r8 / lu(1509) + lu(1510) = lu(1510) * lu(1509) + lu(1511) = lu(1511) * lu(1509) + lu(1512) = lu(1512) * lu(1509) + lu(1513) = lu(1513) * lu(1509) + lu(1514) = lu(1514) * lu(1509) + lu(1515) = lu(1515) * lu(1509) + lu(1542) = lu(1542) - lu(1510) * lu(1541) + lu(1543) = lu(1543) - lu(1511) * lu(1541) + lu(1544) = lu(1544) - lu(1512) * lu(1541) + lu(1545) = lu(1545) - lu(1513) * lu(1541) + lu(1546) = lu(1546) - lu(1514) * lu(1541) + lu(1547) = lu(1547) - lu(1515) * lu(1541) + lu(1577) = lu(1577) - lu(1510) * lu(1576) + lu(1578) = lu(1578) - lu(1511) * lu(1576) + lu(1579) = lu(1579) - lu(1512) * lu(1576) + lu(1580) = lu(1580) - lu(1513) * lu(1576) + lu(1581) = lu(1581) - lu(1514) * lu(1576) + lu(1582) = lu(1582) - lu(1515) * lu(1576) + lu(1615) = lu(1615) - lu(1510) * lu(1614) + lu(1616) = lu(1616) - lu(1511) * lu(1614) + lu(1617) = lu(1617) - lu(1512) * lu(1614) + lu(1618) = lu(1618) - lu(1513) * lu(1614) + lu(1619) = lu(1619) - lu(1514) * lu(1614) + lu(1620) = lu(1620) - lu(1515) * lu(1614) + lu(1654) = lu(1654) - lu(1510) * lu(1653) + lu(1655) = lu(1655) - lu(1511) * lu(1653) + lu(1656) = lu(1656) - lu(1512) * lu(1653) + lu(1657) = lu(1657) - lu(1513) * lu(1653) + lu(1658) = lu(1658) - lu(1514) * lu(1653) + lu(1659) = lu(1659) - lu(1515) * lu(1653) + lu(1688) = lu(1688) - lu(1510) * lu(1687) + lu(1689) = lu(1689) - lu(1511) * lu(1687) + lu(1690) = lu(1690) - lu(1512) * lu(1687) + lu(1691) = lu(1691) - lu(1513) * lu(1687) + lu(1692) = lu(1692) - lu(1514) * lu(1687) + lu(1693) = lu(1693) - lu(1515) * lu(1687) + lu(1740) = lu(1740) - lu(1510) * lu(1739) + lu(1741) = lu(1741) - lu(1511) * lu(1739) + lu(1742) = lu(1742) - lu(1512) * lu(1739) + lu(1743) = lu(1743) - lu(1513) * lu(1739) + lu(1744) = lu(1744) - lu(1514) * lu(1739) + lu(1745) = lu(1745) - lu(1515) * lu(1739) + lu(1542) = 1._r8 / lu(1542) + lu(1543) = lu(1543) * lu(1542) + lu(1544) = lu(1544) * lu(1542) + lu(1545) = lu(1545) * lu(1542) + lu(1546) = lu(1546) * lu(1542) + lu(1547) = lu(1547) * lu(1542) + lu(1578) = lu(1578) - lu(1543) * lu(1577) + lu(1579) = lu(1579) - lu(1544) * lu(1577) + lu(1580) = lu(1580) - lu(1545) * lu(1577) + lu(1581) = lu(1581) - lu(1546) * lu(1577) + lu(1582) = lu(1582) - lu(1547) * lu(1577) + lu(1616) = lu(1616) - lu(1543) * lu(1615) + lu(1617) = lu(1617) - lu(1544) * lu(1615) + lu(1618) = lu(1618) - lu(1545) * lu(1615) + lu(1619) = lu(1619) - lu(1546) * lu(1615) + lu(1620) = lu(1620) - lu(1547) * lu(1615) + lu(1655) = lu(1655) - lu(1543) * lu(1654) + lu(1656) = lu(1656) - lu(1544) * lu(1654) + lu(1657) = lu(1657) - lu(1545) * lu(1654) + lu(1658) = lu(1658) - lu(1546) * lu(1654) + lu(1659) = lu(1659) - lu(1547) * lu(1654) + lu(1689) = lu(1689) - lu(1543) * lu(1688) + lu(1690) = lu(1690) - lu(1544) * lu(1688) + lu(1691) = lu(1691) - lu(1545) * lu(1688) + lu(1692) = lu(1692) - lu(1546) * lu(1688) + lu(1693) = lu(1693) - lu(1547) * lu(1688) + lu(1741) = lu(1741) - lu(1543) * lu(1740) + lu(1742) = lu(1742) - lu(1544) * lu(1740) + lu(1743) = lu(1743) - lu(1545) * lu(1740) + lu(1744) = lu(1744) - lu(1546) * lu(1740) + lu(1745) = lu(1745) - lu(1547) * lu(1740) end subroutine lu_fac21 - subroutine lu_fac22( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac22( lu ) 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,1532) = 1._r8 / lu(k,1532) - lu(k,1533) = lu(k,1533) * lu(k,1532) - lu(k,1534) = lu(k,1534) * lu(k,1532) - lu(k,1535) = lu(k,1535) * lu(k,1532) - lu(k,1536) = lu(k,1536) * lu(k,1532) - lu(k,1537) = lu(k,1537) * lu(k,1532) - lu(k,1538) = lu(k,1538) * lu(k,1532) - lu(k,1539) = lu(k,1539) * lu(k,1532) - lu(k,1576) = lu(k,1576) - lu(k,1533) * lu(k,1575) - lu(k,1577) = lu(k,1577) - lu(k,1534) * lu(k,1575) - lu(k,1578) = lu(k,1578) - lu(k,1535) * lu(k,1575) - lu(k,1579) = lu(k,1579) - lu(k,1536) * lu(k,1575) - lu(k,1580) = lu(k,1580) - lu(k,1537) * lu(k,1575) - lu(k,1581) = lu(k,1581) - lu(k,1538) * lu(k,1575) - lu(k,1582) = lu(k,1582) - lu(k,1539) * lu(k,1575) - lu(k,1609) = lu(k,1609) - lu(k,1533) * lu(k,1608) - lu(k,1610) = lu(k,1610) - lu(k,1534) * lu(k,1608) - lu(k,1611) = lu(k,1611) - lu(k,1535) * lu(k,1608) - lu(k,1612) = lu(k,1612) - lu(k,1536) * lu(k,1608) - lu(k,1613) = lu(k,1613) - lu(k,1537) * lu(k,1608) - lu(k,1614) = lu(k,1614) - lu(k,1538) * lu(k,1608) - lu(k,1615) = lu(k,1615) - lu(k,1539) * lu(k,1608) - lu(k,1645) = lu(k,1645) - lu(k,1533) * lu(k,1644) - lu(k,1646) = lu(k,1646) - lu(k,1534) * lu(k,1644) - lu(k,1647) = lu(k,1647) - lu(k,1535) * lu(k,1644) - lu(k,1648) = lu(k,1648) - lu(k,1536) * lu(k,1644) - lu(k,1649) = lu(k,1649) - lu(k,1537) * lu(k,1644) - lu(k,1650) = lu(k,1650) - lu(k,1538) * lu(k,1644) - lu(k,1651) = lu(k,1651) - lu(k,1539) * lu(k,1644) - lu(k,1688) = lu(k,1688) - lu(k,1533) * lu(k,1687) - lu(k,1689) = lu(k,1689) - lu(k,1534) * lu(k,1687) - lu(k,1690) = lu(k,1690) - lu(k,1535) * lu(k,1687) - lu(k,1691) = lu(k,1691) - lu(k,1536) * lu(k,1687) - lu(k,1692) = lu(k,1692) - lu(k,1537) * lu(k,1687) - lu(k,1693) = lu(k,1693) - lu(k,1538) * lu(k,1687) - lu(k,1694) = lu(k,1694) - lu(k,1539) * lu(k,1687) - lu(k,1724) = lu(k,1724) - lu(k,1533) * lu(k,1723) - lu(k,1725) = lu(k,1725) - lu(k,1534) * lu(k,1723) - lu(k,1726) = lu(k,1726) - lu(k,1535) * lu(k,1723) - lu(k,1727) = lu(k,1727) - lu(k,1536) * lu(k,1723) - lu(k,1728) = lu(k,1728) - lu(k,1537) * lu(k,1723) - lu(k,1729) = lu(k,1729) - lu(k,1538) * lu(k,1723) - lu(k,1730) = lu(k,1730) - lu(k,1539) * lu(k,1723) - lu(k,1766) = lu(k,1766) - lu(k,1533) * lu(k,1765) - lu(k,1767) = lu(k,1767) - lu(k,1534) * lu(k,1765) - lu(k,1768) = lu(k,1768) - lu(k,1535) * lu(k,1765) - lu(k,1769) = lu(k,1769) - lu(k,1536) * lu(k,1765) - lu(k,1770) = lu(k,1770) - lu(k,1537) * lu(k,1765) - lu(k,1771) = lu(k,1771) - lu(k,1538) * lu(k,1765) - lu(k,1772) = lu(k,1772) - lu(k,1539) * lu(k,1765) - lu(k,1819) = lu(k,1819) - lu(k,1533) * lu(k,1818) - lu(k,1820) = lu(k,1820) - lu(k,1534) * lu(k,1818) - lu(k,1821) = lu(k,1821) - lu(k,1535) * lu(k,1818) - lu(k,1822) = lu(k,1822) - lu(k,1536) * lu(k,1818) - lu(k,1823) = lu(k,1823) - lu(k,1537) * lu(k,1818) - lu(k,1824) = lu(k,1824) - lu(k,1538) * lu(k,1818) - lu(k,1825) = lu(k,1825) - lu(k,1539) * lu(k,1818) - lu(k,1576) = 1._r8 / lu(k,1576) - lu(k,1577) = lu(k,1577) * lu(k,1576) - lu(k,1578) = lu(k,1578) * lu(k,1576) - lu(k,1579) = lu(k,1579) * lu(k,1576) - lu(k,1580) = lu(k,1580) * lu(k,1576) - lu(k,1581) = lu(k,1581) * lu(k,1576) - lu(k,1582) = lu(k,1582) * lu(k,1576) - lu(k,1610) = lu(k,1610) - lu(k,1577) * lu(k,1609) - lu(k,1611) = lu(k,1611) - lu(k,1578) * lu(k,1609) - lu(k,1612) = lu(k,1612) - lu(k,1579) * lu(k,1609) - lu(k,1613) = lu(k,1613) - lu(k,1580) * lu(k,1609) - lu(k,1614) = lu(k,1614) - lu(k,1581) * lu(k,1609) - lu(k,1615) = lu(k,1615) - lu(k,1582) * lu(k,1609) - lu(k,1646) = lu(k,1646) - lu(k,1577) * lu(k,1645) - lu(k,1647) = lu(k,1647) - lu(k,1578) * lu(k,1645) - lu(k,1648) = lu(k,1648) - lu(k,1579) * lu(k,1645) - lu(k,1649) = lu(k,1649) - lu(k,1580) * lu(k,1645) - lu(k,1650) = lu(k,1650) - lu(k,1581) * lu(k,1645) - lu(k,1651) = lu(k,1651) - lu(k,1582) * lu(k,1645) - lu(k,1689) = lu(k,1689) - lu(k,1577) * lu(k,1688) - lu(k,1690) = lu(k,1690) - lu(k,1578) * lu(k,1688) - lu(k,1691) = lu(k,1691) - lu(k,1579) * lu(k,1688) - lu(k,1692) = lu(k,1692) - lu(k,1580) * lu(k,1688) - lu(k,1693) = lu(k,1693) - lu(k,1581) * lu(k,1688) - lu(k,1694) = lu(k,1694) - lu(k,1582) * lu(k,1688) - lu(k,1725) = lu(k,1725) - lu(k,1577) * lu(k,1724) - lu(k,1726) = lu(k,1726) - lu(k,1578) * lu(k,1724) - lu(k,1727) = lu(k,1727) - lu(k,1579) * lu(k,1724) - lu(k,1728) = lu(k,1728) - lu(k,1580) * lu(k,1724) - lu(k,1729) = lu(k,1729) - lu(k,1581) * lu(k,1724) - lu(k,1730) = lu(k,1730) - lu(k,1582) * lu(k,1724) - lu(k,1767) = lu(k,1767) - lu(k,1577) * lu(k,1766) - lu(k,1768) = lu(k,1768) - lu(k,1578) * lu(k,1766) - lu(k,1769) = lu(k,1769) - lu(k,1579) * lu(k,1766) - lu(k,1770) = lu(k,1770) - lu(k,1580) * lu(k,1766) - lu(k,1771) = lu(k,1771) - lu(k,1581) * lu(k,1766) - lu(k,1772) = lu(k,1772) - lu(k,1582) * lu(k,1766) - lu(k,1820) = lu(k,1820) - lu(k,1577) * lu(k,1819) - lu(k,1821) = lu(k,1821) - lu(k,1578) * lu(k,1819) - lu(k,1822) = lu(k,1822) - lu(k,1579) * lu(k,1819) - lu(k,1823) = lu(k,1823) - lu(k,1580) * lu(k,1819) - lu(k,1824) = lu(k,1824) - lu(k,1581) * lu(k,1819) - lu(k,1825) = lu(k,1825) - lu(k,1582) * lu(k,1819) - 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,1647) = lu(k,1647) - lu(k,1611) * lu(k,1646) - lu(k,1648) = lu(k,1648) - lu(k,1612) * lu(k,1646) - lu(k,1649) = lu(k,1649) - lu(k,1613) * lu(k,1646) - lu(k,1650) = lu(k,1650) - lu(k,1614) * lu(k,1646) - lu(k,1651) = lu(k,1651) - lu(k,1615) * lu(k,1646) - lu(k,1690) = lu(k,1690) - lu(k,1611) * lu(k,1689) - lu(k,1691) = lu(k,1691) - lu(k,1612) * lu(k,1689) - lu(k,1692) = lu(k,1692) - lu(k,1613) * lu(k,1689) - lu(k,1693) = lu(k,1693) - lu(k,1614) * lu(k,1689) - lu(k,1694) = lu(k,1694) - lu(k,1615) * lu(k,1689) - lu(k,1726) = lu(k,1726) - lu(k,1611) * lu(k,1725) - lu(k,1727) = lu(k,1727) - lu(k,1612) * lu(k,1725) - lu(k,1728) = lu(k,1728) - lu(k,1613) * lu(k,1725) - lu(k,1729) = lu(k,1729) - lu(k,1614) * lu(k,1725) - lu(k,1730) = lu(k,1730) - lu(k,1615) * lu(k,1725) - lu(k,1768) = lu(k,1768) - lu(k,1611) * lu(k,1767) - lu(k,1769) = lu(k,1769) - lu(k,1612) * lu(k,1767) - lu(k,1770) = lu(k,1770) - lu(k,1613) * lu(k,1767) - lu(k,1771) = lu(k,1771) - lu(k,1614) * lu(k,1767) - lu(k,1772) = lu(k,1772) - lu(k,1615) * lu(k,1767) - lu(k,1821) = lu(k,1821) - lu(k,1611) * lu(k,1820) - lu(k,1822) = lu(k,1822) - lu(k,1612) * lu(k,1820) - lu(k,1823) = lu(k,1823) - lu(k,1613) * lu(k,1820) - lu(k,1824) = lu(k,1824) - lu(k,1614) * lu(k,1820) - lu(k,1825) = lu(k,1825) - lu(k,1615) * lu(k,1820) - lu(k,1647) = 1._r8 / lu(k,1647) - lu(k,1648) = lu(k,1648) * lu(k,1647) - lu(k,1649) = lu(k,1649) * lu(k,1647) - lu(k,1650) = lu(k,1650) * lu(k,1647) - lu(k,1651) = lu(k,1651) * lu(k,1647) - lu(k,1691) = lu(k,1691) - lu(k,1648) * lu(k,1690) - lu(k,1692) = lu(k,1692) - lu(k,1649) * lu(k,1690) - lu(k,1693) = lu(k,1693) - lu(k,1650) * lu(k,1690) - lu(k,1694) = lu(k,1694) - lu(k,1651) * lu(k,1690) - lu(k,1727) = lu(k,1727) - lu(k,1648) * lu(k,1726) - lu(k,1728) = lu(k,1728) - lu(k,1649) * lu(k,1726) - lu(k,1729) = lu(k,1729) - lu(k,1650) * lu(k,1726) - lu(k,1730) = lu(k,1730) - lu(k,1651) * lu(k,1726) - lu(k,1769) = lu(k,1769) - lu(k,1648) * lu(k,1768) - lu(k,1770) = lu(k,1770) - lu(k,1649) * lu(k,1768) - lu(k,1771) = lu(k,1771) - lu(k,1650) * lu(k,1768) - lu(k,1772) = lu(k,1772) - lu(k,1651) * lu(k,1768) - lu(k,1822) = lu(k,1822) - lu(k,1648) * lu(k,1821) - lu(k,1823) = lu(k,1823) - lu(k,1649) * lu(k,1821) - lu(k,1824) = lu(k,1824) - lu(k,1650) * lu(k,1821) - lu(k,1825) = lu(k,1825) - lu(k,1651) * lu(k,1821) - lu(k,1691) = 1._r8 / lu(k,1691) - lu(k,1692) = lu(k,1692) * lu(k,1691) - lu(k,1693) = lu(k,1693) * lu(k,1691) - lu(k,1694) = lu(k,1694) * lu(k,1691) - lu(k,1728) = lu(k,1728) - lu(k,1692) * lu(k,1727) - lu(k,1729) = lu(k,1729) - lu(k,1693) * lu(k,1727) - lu(k,1730) = lu(k,1730) - lu(k,1694) * lu(k,1727) - lu(k,1770) = lu(k,1770) - lu(k,1692) * lu(k,1769) - lu(k,1771) = lu(k,1771) - lu(k,1693) * lu(k,1769) - lu(k,1772) = lu(k,1772) - lu(k,1694) * lu(k,1769) - lu(k,1823) = lu(k,1823) - lu(k,1692) * lu(k,1822) - lu(k,1824) = lu(k,1824) - lu(k,1693) * lu(k,1822) - lu(k,1825) = lu(k,1825) - lu(k,1694) * lu(k,1822) - lu(k,1728) = 1._r8 / lu(k,1728) - lu(k,1729) = lu(k,1729) * lu(k,1728) - lu(k,1730) = lu(k,1730) * lu(k,1728) - lu(k,1771) = lu(k,1771) - lu(k,1729) * lu(k,1770) - lu(k,1772) = lu(k,1772) - lu(k,1730) * lu(k,1770) - lu(k,1824) = lu(k,1824) - lu(k,1729) * lu(k,1823) - lu(k,1825) = lu(k,1825) - lu(k,1730) * lu(k,1823) - lu(k,1771) = 1._r8 / lu(k,1771) - lu(k,1772) = lu(k,1772) * lu(k,1771) - lu(k,1825) = lu(k,1825) - lu(k,1772) * lu(k,1824) - lu(k,1825) = 1._r8 / lu(k,1825) - end do + real(r8), intent(inout) :: lu(:) + lu(1578) = 1._r8 / lu(1578) + lu(1579) = lu(1579) * lu(1578) + lu(1580) = lu(1580) * lu(1578) + lu(1581) = lu(1581) * lu(1578) + lu(1582) = lu(1582) * lu(1578) + lu(1617) = lu(1617) - lu(1579) * lu(1616) + lu(1618) = lu(1618) - lu(1580) * lu(1616) + lu(1619) = lu(1619) - lu(1581) * lu(1616) + lu(1620) = lu(1620) - lu(1582) * lu(1616) + lu(1656) = lu(1656) - lu(1579) * lu(1655) + lu(1657) = lu(1657) - lu(1580) * lu(1655) + lu(1658) = lu(1658) - lu(1581) * lu(1655) + lu(1659) = lu(1659) - lu(1582) * lu(1655) + lu(1690) = lu(1690) - lu(1579) * lu(1689) + lu(1691) = lu(1691) - lu(1580) * lu(1689) + lu(1692) = lu(1692) - lu(1581) * lu(1689) + lu(1693) = lu(1693) - lu(1582) * lu(1689) + lu(1742) = lu(1742) - lu(1579) * lu(1741) + lu(1743) = lu(1743) - lu(1580) * lu(1741) + lu(1744) = lu(1744) - lu(1581) * lu(1741) + lu(1745) = lu(1745) - lu(1582) * lu(1741) + lu(1617) = 1._r8 / lu(1617) + lu(1618) = lu(1618) * lu(1617) + lu(1619) = lu(1619) * lu(1617) + lu(1620) = lu(1620) * lu(1617) + lu(1657) = lu(1657) - lu(1618) * lu(1656) + lu(1658) = lu(1658) - lu(1619) * lu(1656) + lu(1659) = lu(1659) - lu(1620) * lu(1656) + lu(1691) = lu(1691) - lu(1618) * lu(1690) + lu(1692) = lu(1692) - lu(1619) * lu(1690) + lu(1693) = lu(1693) - lu(1620) * lu(1690) + lu(1743) = lu(1743) - lu(1618) * lu(1742) + lu(1744) = lu(1744) - lu(1619) * lu(1742) + lu(1745) = lu(1745) - lu(1620) * lu(1742) + lu(1657) = 1._r8 / lu(1657) + lu(1658) = lu(1658) * lu(1657) + lu(1659) = lu(1659) * lu(1657) + lu(1692) = lu(1692) - lu(1658) * lu(1691) + lu(1693) = lu(1693) - lu(1659) * lu(1691) + lu(1744) = lu(1744) - lu(1658) * lu(1743) + lu(1745) = lu(1745) - lu(1659) * lu(1743) + lu(1692) = 1._r8 / lu(1692) + lu(1693) = lu(1693) * lu(1692) + lu(1745) = lu(1745) - lu(1693) * lu(1744) + lu(1745) = 1._r8 / lu(1745) end subroutine lu_fac22 - subroutine lu_fac( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac( lu ) 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) - call lu_fac01( avec_len, lu ) - call lu_fac02( avec_len, lu ) - call lu_fac03( avec_len, lu ) - call lu_fac04( avec_len, lu ) - call lu_fac05( avec_len, lu ) - call lu_fac06( avec_len, lu ) - call lu_fac07( avec_len, lu ) - call lu_fac08( avec_len, lu ) - call lu_fac09( avec_len, lu ) - call lu_fac10( avec_len, lu ) - call lu_fac11( avec_len, lu ) - call lu_fac12( avec_len, lu ) - call lu_fac13( avec_len, lu ) - call lu_fac14( avec_len, lu ) - call lu_fac15( avec_len, lu ) - call lu_fac16( avec_len, lu ) - call lu_fac17( avec_len, lu ) - call lu_fac18( avec_len, lu ) - call lu_fac19( avec_len, lu ) - call lu_fac20( avec_len, lu ) - call lu_fac21( avec_len, lu ) - call lu_fac22( avec_len, lu ) + real(r8), intent(inout) :: lu(:) + call lu_fac01( lu ) + call lu_fac02( lu ) + call lu_fac03( lu ) + call lu_fac04( lu ) + call lu_fac05( lu ) + call lu_fac06( lu ) + call lu_fac07( lu ) + call lu_fac08( lu ) + call lu_fac09( lu ) + call lu_fac10( lu ) + call lu_fac11( lu ) + call lu_fac12( lu ) + call lu_fac13( lu ) + call lu_fac14( lu ) + call lu_fac15( lu ) + call lu_fac16( lu ) + call lu_fac17( lu ) + call lu_fac18( lu ) + call lu_fac19( lu ) + call lu_fac20( lu ) + call lu_fac21( lu ) + call lu_fac22( lu ) end subroutine lu_fac end module mo_lu_factor diff --git a/src/chemistry/pp_waccm_mad/mo_lu_solve.F90 b/src/chemistry/pp_waccm_mad/mo_lu_solve.F90 index 2e836d6031..8a583fcd40 100644 --- a/src/chemistry/pp_waccm_mad/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_mad/mo_lu_solve.F90 @@ -1,2055 +1,1933 @@ module mo_lu_solve - use chem_mods, only: veclen private public :: lu_slv contains - subroutine lu_slv01( avec_len, lu, b ) + subroutine lu_slv01( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,81) = b(k,81) - lu(k,2) * b(k,1) - b(k,85) = b(k,85) - lu(k,3) * b(k,1) - b(k,30) = b(k,30) - lu(k,5) * b(k,2) - b(k,57) = b(k,57) - lu(k,6) * b(k,2) - b(k,68) = b(k,68) - lu(k,8) * b(k,3) - b(k,81) = b(k,81) - lu(k,9) * b(k,3) - b(k,85) = b(k,85) - lu(k,11) * b(k,4) - b(k,30) = b(k,30) - lu(k,13) * b(k,5) - b(k,57) = b(k,57) - lu(k,14) * b(k,5) - b(k,85) = b(k,85) - lu(k,15) * b(k,5) - b(k,44) = b(k,44) - lu(k,17) * b(k,6) - b(k,85) = b(k,85) - lu(k,18) * b(k,6) - b(k,30) = b(k,30) - lu(k,20) * b(k,7) - b(k,86) = b(k,86) - lu(k,21) * b(k,7) - b(k,71) = b(k,71) - lu(k,23) * b(k,8) - b(k,73) = b(k,73) - lu(k,24) * b(k,8) - b(k,88) = b(k,88) - lu(k,25) * b(k,8) - b(k,71) = b(k,71) - lu(k,27) * b(k,9) - b(k,82) = b(k,82) - lu(k,28) * b(k,9) - b(k,88) = b(k,88) - lu(k,29) * b(k,9) - b(k,36) = b(k,36) - lu(k,31) * b(k,10) - b(k,75) = b(k,75) - lu(k,32) * b(k,10) - b(k,21) = b(k,21) - lu(k,34) * b(k,11) - b(k,63) = b(k,63) - lu(k,35) * b(k,11) - b(k,69) = b(k,69) - lu(k,36) * b(k,11) - b(k,86) = b(k,86) - lu(k,37) * b(k,11) - b(k,88) = b(k,88) - lu(k,38) * b(k,11) - b(k,39) = b(k,39) - lu(k,40) * b(k,12) - b(k,56) = b(k,56) - lu(k,41) * b(k,12) - b(k,63) = b(k,63) - lu(k,42) * b(k,12) - b(k,86) = b(k,86) - lu(k,43) * b(k,12) - b(k,88) = b(k,88) - lu(k,44) * b(k,12) - b(k,24) = b(k,24) - lu(k,46) * b(k,13) - b(k,65) = b(k,65) - lu(k,47) * b(k,13) - b(k,69) = b(k,69) - lu(k,48) * b(k,13) - b(k,87) = b(k,87) - lu(k,49) * b(k,13) - b(k,88) = b(k,88) - lu(k,50) * b(k,13) - b(k,61) = b(k,61) - lu(k,52) * b(k,14) - b(k,63) = b(k,63) - lu(k,53) * b(k,14) - b(k,72) = b(k,72) - lu(k,54) * b(k,14) - b(k,74) = b(k,74) - lu(k,55) * b(k,14) - b(k,75) = b(k,75) - lu(k,56) * b(k,14) - b(k,88) = b(k,88) - lu(k,57) * b(k,14) - b(k,16) = b(k,16) - lu(k,59) * b(k,15) - b(k,19) = b(k,19) - lu(k,60) * b(k,15) - b(k,31) = b(k,31) - lu(k,61) * b(k,15) - b(k,38) = b(k,38) - lu(k,62) * b(k,15) - b(k,68) = b(k,68) - lu(k,63) * b(k,15) - b(k,87) = b(k,87) - lu(k,64) * b(k,15) - b(k,19) = b(k,19) - lu(k,66) * b(k,16) - b(k,38) = b(k,38) - lu(k,67) * b(k,16) - b(k,68) = b(k,68) - lu(k,68) * b(k,16) - b(k,75) = b(k,75) - lu(k,69) * b(k,16) - b(k,77) = b(k,77) - lu(k,70) * b(k,16) - b(k,28) = b(k,28) - lu(k,72) * b(k,17) - b(k,44) = b(k,44) - lu(k,73) * b(k,17) - b(k,52) = b(k,52) - lu(k,74) * b(k,17) - b(k,68) = b(k,68) - lu(k,75) * b(k,17) - b(k,71) = b(k,71) - lu(k,76) * b(k,17) - b(k,72) = b(k,72) - lu(k,77) * b(k,17) - b(k,74) = b(k,74) - lu(k,78) * b(k,17) - b(k,61) = b(k,61) - lu(k,80) * b(k,18) - b(k,63) = b(k,63) - lu(k,81) * b(k,18) - b(k,68) = b(k,68) - lu(k,82) * b(k,18) - b(k,80) = b(k,80) - lu(k,83) * b(k,18) - b(k,85) = b(k,85) - lu(k,84) * b(k,18) - b(k,88) = b(k,88) - lu(k,85) * b(k,18) - b(k,29) = b(k,29) - lu(k,87) * b(k,19) - b(k,38) = b(k,38) - lu(k,88) * b(k,19) - b(k,40) = b(k,40) - lu(k,89) * b(k,19) - b(k,66) = b(k,66) - lu(k,90) * b(k,19) - b(k,68) = b(k,68) - lu(k,91) * b(k,19) - b(k,69) = b(k,69) - lu(k,92) * b(k,19) - b(k,75) = b(k,75) - lu(k,93) * b(k,19) - b(k,77) = b(k,77) - lu(k,94) * b(k,19) - b(k,49) = b(k,49) - lu(k,96) * b(k,20) - b(k,59) = b(k,59) - lu(k,97) * b(k,20) - b(k,68) = b(k,68) - lu(k,98) * b(k,20) - b(k,75) = b(k,75) - lu(k,99) * b(k,20) - b(k,76) = b(k,76) - lu(k,100) * b(k,20) - b(k,78) = b(k,78) - lu(k,101) * b(k,20) - b(k,26) = b(k,26) - lu(k,103) * b(k,21) - b(k,65) = b(k,65) - lu(k,104) * b(k,21) - b(k,69) = b(k,69) - lu(k,105) * b(k,21) - b(k,86) = b(k,86) - lu(k,106) * b(k,21) - b(k,88) = b(k,88) - lu(k,107) * b(k,21) - b(k,23) = b(k,23) - lu(k,109) * b(k,22) - b(k,66) = b(k,66) - lu(k,110) * b(k,22) - b(k,69) = b(k,69) - lu(k,111) * b(k,22) - b(k,70) = b(k,70) - lu(k,112) * b(k,22) - b(k,78) = b(k,78) - lu(k,113) * b(k,22) - b(k,87) = b(k,87) - lu(k,114) * b(k,22) - b(k,88) = b(k,88) - lu(k,115) * b(k,22) - b(k,66) = b(k,66) - lu(k,117) * b(k,23) - b(k,69) = b(k,69) - lu(k,118) * b(k,23) - b(k,70) = b(k,70) - lu(k,119) * b(k,23) - b(k,78) = b(k,78) - lu(k,120) * b(k,23) - b(k,87) = b(k,87) - lu(k,121) * b(k,23) - b(k,88) = b(k,88) - lu(k,122) * b(k,23) - b(k,63) = b(k,63) - lu(k,124) * b(k,24) - b(k,72) = b(k,72) - lu(k,125) * b(k,24) - b(k,87) = b(k,87) - lu(k,126) * b(k,24) - b(k,88) = b(k,88) - lu(k,127) * b(k,24) - b(k,61) = b(k,61) - lu(k,129) * b(k,25) - b(k,63) = b(k,63) - lu(k,130) * b(k,25) - b(k,78) = b(k,78) - lu(k,131) * b(k,25) - b(k,86) = b(k,86) - lu(k,132) * b(k,25) - b(k,65) = b(k,65) - lu(k,135) * b(k,26) - b(k,69) = b(k,69) - lu(k,136) * b(k,26) - b(k,86) = b(k,86) - lu(k,137) * b(k,26) - b(k,88) = b(k,88) - lu(k,138) * b(k,26) - b(k,63) = b(k,63) - lu(k,143) * b(k,27) - b(k,65) = b(k,65) - lu(k,144) * b(k,27) - b(k,69) = b(k,69) - lu(k,145) * b(k,27) - b(k,75) = b(k,75) - lu(k,146) * b(k,27) - b(k,77) = b(k,77) - lu(k,147) * b(k,27) - b(k,86) = b(k,86) - lu(k,148) * b(k,27) - b(k,88) = b(k,88) - lu(k,149) * b(k,27) - b(k,44) = b(k,44) - lu(k,152) * b(k,28) - b(k,52) = b(k,52) - lu(k,153) * b(k,28) - b(k,63) = b(k,63) - lu(k,154) * b(k,28) - b(k,68) = b(k,68) - lu(k,155) * b(k,28) - b(k,80) = b(k,80) - lu(k,156) * b(k,28) - b(k,85) = b(k,85) - lu(k,157) * b(k,28) - b(k,88) = b(k,88) - lu(k,158) * b(k,28) - b(k,31) = b(k,31) - lu(k,160) * b(k,29) - b(k,38) = b(k,38) - lu(k,161) * b(k,29) - b(k,40) = b(k,40) - lu(k,162) * b(k,29) - b(k,57) = b(k,57) - lu(k,163) * b(k,29) - b(k,68) = b(k,68) - lu(k,164) * b(k,29) - b(k,75) = b(k,75) - lu(k,165) * b(k,29) - b(k,87) = b(k,87) - lu(k,166) * b(k,29) - b(k,39) = b(k,39) - lu(k,169) * b(k,30) - b(k,50) = b(k,50) - lu(k,170) * b(k,30) - b(k,63) = b(k,63) - lu(k,171) * b(k,30) - b(k,71) = b(k,71) - lu(k,172) * b(k,30) - b(k,74) = b(k,74) - lu(k,173) * b(k,30) - b(k,86) = b(k,86) - lu(k,174) * b(k,30) - b(k,88) = b(k,88) - lu(k,175) * b(k,30) - b(k,38) = b(k,38) - lu(k,177) * b(k,31) - b(k,40) = b(k,40) - lu(k,178) * b(k,31) - b(k,66) = b(k,66) - lu(k,179) * b(k,31) - b(k,68) = b(k,68) - lu(k,180) * b(k,31) - b(k,75) = b(k,75) - lu(k,181) * b(k,31) - b(k,77) = b(k,77) - lu(k,182) * b(k,31) - b(k,63) = b(k,63) - lu(k,185) * b(k,32) - b(k,68) = b(k,68) - lu(k,186) * b(k,32) - b(k,80) = b(k,80) - lu(k,187) * b(k,32) - b(k,81) = b(k,81) - lu(k,188) * b(k,32) - b(k,85) = b(k,85) - lu(k,189) * b(k,32) - b(k,88) = b(k,88) - lu(k,190) * b(k,32) - b(k,44) = b(k,44) - lu(k,192) * b(k,33) - b(k,52) = b(k,52) - lu(k,193) * b(k,33) - b(k,57) = b(k,57) - lu(k,194) * b(k,33) - b(k,63) = b(k,63) - lu(k,195) * b(k,33) - b(k,68) = b(k,68) - lu(k,196) * b(k,33) - b(k,86) = b(k,86) - lu(k,197) * b(k,33) - b(k,88) = b(k,88) - lu(k,198) * b(k,33) - b(k,63) = b(k,63) - lu(k,202) * b(k,34) - b(k,68) = b(k,68) - lu(k,203) * b(k,34) - b(k,71) = b(k,71) - lu(k,204) * b(k,34) - b(k,72) = b(k,72) - lu(k,205) * b(k,34) - b(k,74) = b(k,74) - lu(k,206) * b(k,34) - b(k,80) = b(k,80) - lu(k,207) * b(k,34) - b(k,81) = b(k,81) - lu(k,208) * b(k,34) - b(k,85) = b(k,85) - lu(k,209) * b(k,34) - b(k,88) = b(k,88) - lu(k,210) * b(k,34) - b(k,58) = b(k,58) - lu(k,212) * b(k,35) - b(k,62) = b(k,62) - lu(k,213) * b(k,35) - b(k,68) = b(k,68) - lu(k,214) * b(k,35) - b(k,72) = b(k,72) - lu(k,215) * b(k,35) - b(k,75) = b(k,75) - lu(k,216) * b(k,35) - b(k,85) = b(k,85) - lu(k,217) * b(k,35) - b(k,87) = b(k,87) - lu(k,218) * b(k,35) - b(k,41) = b(k,41) - lu(k,220) * b(k,36) - b(k,69) = b(k,69) - lu(k,221) * b(k,36) - b(k,75) = b(k,75) - lu(k,222) * b(k,36) - b(k,76) = b(k,76) - lu(k,223) * b(k,36) - b(k,77) = b(k,77) - lu(k,224) * b(k,36) - b(k,79) = b(k,79) - lu(k,225) * b(k,36) - b(k,84) = b(k,84) - lu(k,226) * b(k,36) - b(k,51) = b(k,51) - lu(k,230) * b(k,37) - b(k,53) = b(k,53) - lu(k,231) * b(k,37) - b(k,55) = b(k,55) - lu(k,232) * b(k,37) - b(k,68) = b(k,68) - lu(k,233) * b(k,37) - b(k,71) = b(k,71) - lu(k,234) * b(k,37) - b(k,72) = b(k,72) - lu(k,235) * b(k,37) - b(k,73) = b(k,73) - lu(k,236) * b(k,37) - b(k,74) = b(k,74) - lu(k,237) * b(k,37) - b(k,82) = b(k,82) - lu(k,238) * b(k,37) - b(k,87) = b(k,87) - lu(k,239) * b(k,37) - b(k,88) = b(k,88) - lu(k,240) * b(k,37) - b(k,40) = b(k,40) - lu(k,245) * b(k,38) - b(k,57) = b(k,57) - lu(k,246) * b(k,38) - b(k,61) = b(k,61) - lu(k,247) * b(k,38) - b(k,63) = b(k,63) - lu(k,248) * b(k,38) - b(k,66) = b(k,66) - lu(k,249) * b(k,38) - b(k,68) = b(k,68) - lu(k,250) * b(k,38) - b(k,75) = b(k,75) - lu(k,251) * b(k,38) - b(k,77) = b(k,77) - lu(k,252) * b(k,38) - b(k,78) = b(k,78) - lu(k,253) * b(k,38) - b(k,86) = b(k,86) - lu(k,254) * b(k,38) - b(k,87) = b(k,87) - lu(k,255) * b(k,38) - end do + b(72) = b(72) - lu(2) * b(1) + b(74) = b(74) - lu(3) * b(1) + b(29) = b(29) - lu(5) * b(2) + b(57) = b(57) - lu(6) * b(2) + b(72) = b(72) - lu(8) * b(3) + b(81) = b(81) - lu(9) * b(3) + b(74) = b(74) - lu(11) * b(4) + b(29) = b(29) - lu(13) * b(5) + b(57) = b(57) - lu(14) * b(5) + b(74) = b(74) - lu(15) * b(5) + b(44) = b(44) - lu(17) * b(6) + b(74) = b(74) - lu(18) * b(6) + b(29) = b(29) - lu(20) * b(7) + b(68) = b(68) - lu(21) * b(7) + b(34) = b(34) - lu(23) * b(8) + b(73) = b(73) - lu(24) * b(8) + b(78) = b(78) - lu(26) * b(9) + b(85) = b(85) - lu(27) * b(9) + b(87) = b(87) - lu(28) * b(9) + b(80) = b(80) - lu(30) * b(10) + b(85) = b(85) - lu(31) * b(10) + b(87) = b(87) - lu(32) * b(10) + b(40) = b(40) - lu(34) * b(11) + b(56) = b(56) - lu(35) * b(11) + b(62) = b(62) - lu(36) * b(11) + b(68) = b(68) - lu(37) * b(11) + b(87) = b(87) - lu(38) * b(11) + b(24) = b(24) - lu(40) * b(12) + b(62) = b(62) - lu(41) * b(12) + b(68) = b(68) - lu(42) * b(12) + b(79) = b(79) - lu(43) * b(12) + b(87) = b(87) - lu(44) * b(12) + b(25) = b(25) - lu(46) * b(13) + b(70) = b(70) - lu(47) * b(13) + b(77) = b(77) - lu(48) * b(13) + b(79) = b(79) - lu(49) * b(13) + b(87) = b(87) - lu(50) * b(13) + b(48) = b(48) - lu(52) * b(14) + b(58) = b(58) - lu(53) * b(14) + b(73) = b(73) - lu(54) * b(14) + b(75) = b(75) - lu(55) * b(14) + b(81) = b(81) - lu(56) * b(14) + b(61) = b(61) - lu(58) * b(15) + b(62) = b(62) - lu(59) * b(15) + b(71) = b(71) - lu(60) * b(15) + b(73) = b(73) - lu(61) * b(15) + b(86) = b(86) - lu(62) * b(15) + b(87) = b(87) - lu(63) * b(15) + b(17) = b(17) - lu(65) * b(16) + b(65) = b(65) - lu(66) * b(16) + b(69) = b(69) - lu(67) * b(16) + b(77) = b(77) - lu(68) * b(16) + b(79) = b(79) - lu(69) * b(16) + b(87) = b(87) - lu(70) * b(16) + b(65) = b(65) - lu(72) * b(17) + b(69) = b(69) - lu(73) * b(17) + b(77) = b(77) - lu(74) * b(17) + b(79) = b(79) - lu(75) * b(17) + b(87) = b(87) - lu(76) * b(17) + b(19) = b(19) - lu(78) * b(18) + b(22) = b(22) - lu(79) * b(18) + b(31) = b(31) - lu(80) * b(18) + b(35) = b(35) - lu(81) * b(18) + b(77) = b(77) - lu(82) * b(18) + b(81) = b(81) - lu(83) * b(18) + b(22) = b(22) - lu(85) * b(19) + b(35) = b(35) - lu(86) * b(19) + b(73) = b(73) - lu(87) * b(19) + b(76) = b(76) - lu(88) * b(19) + b(81) = b(81) - lu(89) * b(19) + b(30) = b(30) - lu(91) * b(20) + b(44) = b(44) - lu(92) * b(20) + b(50) = b(50) - lu(93) * b(20) + b(71) = b(71) - lu(94) * b(20) + b(81) = b(81) - lu(95) * b(20) + b(85) = b(85) - lu(96) * b(20) + b(86) = b(86) - lu(97) * b(20) + b(61) = b(61) - lu(99) * b(21) + b(62) = b(62) - lu(100) * b(21) + b(68) = b(68) - lu(101) * b(21) + b(28) = b(28) - lu(103) * b(22) + b(35) = b(35) - lu(104) * b(22) + b(39) = b(39) - lu(105) * b(22) + b(65) = b(65) - lu(106) * b(22) + b(73) = b(73) - lu(107) * b(22) + b(76) = b(76) - lu(108) * b(22) + b(79) = b(79) - lu(109) * b(22) + b(81) = b(81) - lu(110) * b(22) + b(61) = b(61) - lu(112) * b(23) + b(62) = b(62) - lu(113) * b(23) + b(67) = b(67) - lu(114) * b(23) + b(74) = b(74) - lu(115) * b(23) + b(81) = b(81) - lu(116) * b(23) + b(87) = b(87) - lu(117) * b(23) + b(26) = b(26) - lu(119) * b(24) + b(68) = b(68) - lu(120) * b(24) + b(70) = b(70) - lu(121) * b(24) + b(79) = b(79) - lu(122) * b(24) + b(87) = b(87) - lu(123) * b(24) + b(62) = b(62) - lu(125) * b(25) + b(71) = b(71) - lu(126) * b(25) + b(77) = b(77) - lu(127) * b(25) + b(87) = b(87) - lu(128) * b(25) + b(68) = b(68) - lu(131) * b(26) + b(70) = b(70) - lu(132) * b(26) + b(79) = b(79) - lu(133) * b(26) + b(87) = b(87) - lu(134) * b(26) + b(62) = b(62) - lu(139) * b(27) + b(68) = b(68) - lu(140) * b(27) + b(70) = b(70) - lu(141) * b(27) + b(73) = b(73) - lu(142) * b(27) + b(76) = b(76) - lu(143) * b(27) + b(79) = b(79) - lu(144) * b(27) + b(87) = b(87) - lu(145) * b(27) + b(31) = b(31) - lu(147) * b(28) + b(35) = b(35) - lu(148) * b(28) + b(39) = b(39) - lu(149) * b(28) + b(57) = b(57) - lu(150) * b(28) + b(73) = b(73) - lu(151) * b(28) + b(77) = b(77) - lu(152) * b(28) + b(81) = b(81) - lu(153) * b(28) + b(40) = b(40) - lu(156) * b(29) + b(51) = b(51) - lu(157) * b(29) + b(62) = b(62) - lu(158) * b(29) + b(68) = b(68) - lu(159) * b(29) + b(85) = b(85) - lu(160) * b(29) + b(86) = b(86) - lu(161) * b(29) + b(87) = b(87) - lu(162) * b(29) + b(44) = b(44) - lu(165) * b(30) + b(50) = b(50) - lu(166) * b(30) + b(62) = b(62) - lu(167) * b(30) + b(67) = b(67) - lu(168) * b(30) + b(74) = b(74) - lu(169) * b(30) + b(81) = b(81) - lu(170) * b(30) + b(87) = b(87) - lu(171) * b(30) + b(35) = b(35) - lu(173) * b(31) + b(39) = b(39) - lu(174) * b(31) + b(65) = b(65) - lu(175) * b(31) + b(73) = b(73) - lu(176) * b(31) + b(76) = b(76) - lu(177) * b(31) + b(81) = b(81) - lu(178) * b(31) + b(44) = b(44) - lu(180) * b(32) + b(50) = b(50) - lu(181) * b(32) + b(57) = b(57) - lu(182) * b(32) + b(62) = b(62) - lu(183) * b(32) + b(68) = b(68) - lu(184) * b(32) + b(81) = b(81) - lu(185) * b(32) + b(87) = b(87) - lu(186) * b(32) + b(62) = b(62) - lu(189) * b(33) + b(67) = b(67) - lu(190) * b(33) + b(72) = b(72) - lu(191) * b(33) + b(74) = b(74) - lu(192) * b(33) + b(81) = b(81) - lu(193) * b(33) + b(87) = b(87) - lu(194) * b(33) + b(42) = b(42) - lu(196) * b(34) + b(73) = b(73) - lu(197) * b(34) + b(75) = b(75) - lu(198) * b(34) + b(76) = b(76) - lu(199) * b(34) + b(79) = b(79) - lu(200) * b(34) + b(83) = b(83) - lu(201) * b(34) + b(84) = b(84) - lu(202) * b(34) + b(39) = b(39) - lu(207) * b(35) + b(57) = b(57) - lu(208) * b(35) + b(61) = b(61) - lu(209) * b(35) + b(62) = b(62) - lu(210) * b(35) + b(65) = b(65) - lu(211) * b(35) + b(68) = b(68) - lu(212) * b(35) + b(73) = b(73) - lu(213) * b(35) + b(76) = b(76) - lu(214) * b(35) + b(77) = b(77) - lu(215) * b(35) + b(81) = b(81) - lu(216) * b(35) + b(62) = b(62) - lu(220) * b(36) + b(67) = b(67) - lu(221) * b(36) + b(71) = b(71) - lu(222) * b(36) + b(72) = b(72) - lu(223) * b(36) + b(74) = b(74) - lu(224) * b(36) + b(81) = b(81) - lu(225) * b(36) + b(85) = b(85) - lu(226) * b(36) + b(86) = b(86) - lu(227) * b(36) + b(87) = b(87) - lu(228) * b(36) + b(59) = b(59) - lu(230) * b(37) + b(64) = b(64) - lu(231) * b(37) + b(71) = b(71) - lu(232) * b(37) + b(73) = b(73) - lu(233) * b(37) + b(74) = b(74) - lu(234) * b(37) + b(77) = b(77) - lu(235) * b(37) + b(81) = b(81) - lu(236) * b(37) + b(52) = b(52) - lu(240) * b(38) + b(53) = b(53) - lu(241) * b(38) + b(55) = b(55) - lu(242) * b(38) + b(71) = b(71) - lu(243) * b(38) + b(77) = b(77) - lu(244) * b(38) + b(78) = b(78) - lu(245) * b(38) + b(80) = b(80) - lu(246) * b(38) + b(81) = b(81) - lu(247) * b(38) + b(85) = b(85) - lu(248) * b(38) + b(86) = b(86) - lu(249) * b(38) + b(87) = b(87) - lu(250) * b(38) + b(57) = b(57) - lu(254) * b(39) + b(61) = b(61) - lu(255) * b(39) + b(62) = b(62) - lu(256) * b(39) + b(65) = b(65) - lu(257) * b(39) + b(68) = b(68) - lu(258) * b(39) + b(71) = b(71) - lu(259) * b(39) + b(73) = b(73) - lu(260) * b(39) + b(76) = b(76) - lu(261) * b(39) + b(77) = b(77) - lu(262) * b(39) + b(79) = b(79) - lu(263) * b(39) + b(81) = b(81) - lu(264) * b(39) end subroutine lu_slv01 - subroutine lu_slv02( avec_len, lu, b ) + subroutine lu_slv02( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,56) = b(k,56) - lu(k,258) * b(k,39) - b(k,61) = b(k,61) - lu(k,259) * b(k,39) - b(k,63) = b(k,63) - lu(k,260) * b(k,39) - b(k,72) = b(k,72) - lu(k,261) * b(k,39) - b(k,75) = b(k,75) - lu(k,262) * b(k,39) - b(k,81) = b(k,81) - lu(k,263) * b(k,39) - b(k,85) = b(k,85) - lu(k,264) * b(k,39) - b(k,86) = b(k,86) - lu(k,265) * b(k,39) - b(k,87) = b(k,87) - lu(k,266) * b(k,39) - b(k,88) = b(k,88) - lu(k,267) * b(k,39) - b(k,57) = b(k,57) - lu(k,271) * b(k,40) - b(k,61) = b(k,61) - lu(k,272) * b(k,40) - b(k,63) = b(k,63) - lu(k,273) * b(k,40) - b(k,66) = b(k,66) - lu(k,274) * b(k,40) - b(k,68) = b(k,68) - lu(k,275) * b(k,40) - b(k,69) = b(k,69) - lu(k,276) * b(k,40) - b(k,72) = b(k,72) - lu(k,277) * b(k,40) - b(k,75) = b(k,75) - lu(k,278) * b(k,40) - b(k,77) = b(k,77) - lu(k,279) * b(k,40) - b(k,78) = b(k,78) - lu(k,280) * b(k,40) - b(k,86) = b(k,86) - lu(k,281) * b(k,40) - b(k,87) = b(k,87) - lu(k,282) * b(k,40) - b(k,63) = b(k,63) - lu(k,286) * b(k,41) - b(k,65) = b(k,65) - lu(k,287) * b(k,41) - b(k,68) = b(k,68) - lu(k,288) * b(k,41) - b(k,69) = b(k,69) - lu(k,289) * b(k,41) - b(k,75) = b(k,75) - lu(k,290) * b(k,41) - b(k,76) = b(k,76) - lu(k,291) * b(k,41) - b(k,77) = b(k,77) - lu(k,292) * b(k,41) - b(k,79) = b(k,79) - lu(k,293) * b(k,41) - b(k,84) = b(k,84) - lu(k,294) * b(k,41) - b(k,86) = b(k,86) - lu(k,295) * b(k,41) - b(k,88) = b(k,88) - lu(k,296) * b(k,41) - b(k,63) = b(k,63) - lu(k,298) * b(k,42) - b(k,65) = b(k,65) - lu(k,299) * b(k,42) - b(k,66) = b(k,66) - lu(k,300) * b(k,42) - b(k,67) = b(k,67) - lu(k,301) * b(k,42) - b(k,70) = b(k,70) - lu(k,302) * b(k,42) - b(k,73) = b(k,73) - lu(k,303) * b(k,42) - b(k,75) = b(k,75) - lu(k,304) * b(k,42) - b(k,77) = b(k,77) - lu(k,305) * b(k,42) - b(k,78) = b(k,78) - lu(k,306) * b(k,42) - b(k,82) = b(k,82) - lu(k,307) * b(k,42) - b(k,86) = b(k,86) - lu(k,308) * b(k,42) - b(k,87) = b(k,87) - lu(k,309) * b(k,42) - b(k,88) = b(k,88) - lu(k,310) * b(k,42) - b(k,54) = b(k,54) - lu(k,312) * b(k,43) - b(k,65) = b(k,65) - lu(k,313) * b(k,43) - b(k,66) = b(k,66) - lu(k,314) * b(k,43) - b(k,67) = b(k,67) - lu(k,315) * b(k,43) - b(k,68) = b(k,68) - lu(k,316) * b(k,43) - b(k,70) = b(k,70) - lu(k,317) * b(k,43) - b(k,73) = b(k,73) - lu(k,318) * b(k,43) - b(k,75) = b(k,75) - lu(k,319) * b(k,43) - b(k,77) = b(k,77) - lu(k,320) * b(k,43) - b(k,78) = b(k,78) - lu(k,321) * b(k,43) - b(k,82) = b(k,82) - lu(k,322) * b(k,43) - b(k,86) = b(k,86) - lu(k,323) * b(k,43) - b(k,87) = b(k,87) - lu(k,324) * b(k,43) - b(k,88) = b(k,88) - lu(k,325) * b(k,43) - b(k,52) = b(k,52) - lu(k,329) * b(k,44) - b(k,56) = b(k,56) - lu(k,330) * b(k,44) - b(k,57) = b(k,57) - lu(k,331) * b(k,44) - b(k,61) = b(k,61) - lu(k,332) * b(k,44) - b(k,63) = b(k,63) - lu(k,333) * b(k,44) - b(k,68) = b(k,68) - lu(k,334) * b(k,44) - b(k,75) = b(k,75) - lu(k,335) * b(k,44) - b(k,78) = b(k,78) - lu(k,336) * b(k,44) - b(k,79) = b(k,79) - lu(k,337) * b(k,44) - b(k,86) = b(k,86) - lu(k,338) * b(k,44) - b(k,88) = b(k,88) - lu(k,339) * b(k,44) - b(k,58) = b(k,58) - lu(k,341) * b(k,45) - b(k,65) = b(k,65) - lu(k,342) * b(k,45) - b(k,66) = b(k,66) - lu(k,343) * b(k,45) - b(k,67) = b(k,67) - lu(k,344) * b(k,45) - b(k,70) = b(k,70) - lu(k,345) * b(k,45) - b(k,73) = b(k,73) - lu(k,346) * b(k,45) - b(k,75) = b(k,75) - lu(k,347) * b(k,45) - b(k,77) = b(k,77) - lu(k,348) * b(k,45) - b(k,80) = b(k,80) - lu(k,349) * b(k,45) - b(k,82) = b(k,82) - lu(k,350) * b(k,45) - b(k,85) = b(k,85) - lu(k,351) * b(k,45) - b(k,86) = b(k,86) - lu(k,352) * b(k,45) - b(k,87) = b(k,87) - lu(k,353) * b(k,45) - b(k,88) = b(k,88) - lu(k,354) * b(k,45) - b(k,58) = b(k,58) - lu(k,357) * b(k,46) - b(k,65) = b(k,65) - lu(k,358) * b(k,46) - b(k,66) = b(k,66) - lu(k,359) * b(k,46) - b(k,67) = b(k,67) - lu(k,360) * b(k,46) - b(k,70) = b(k,70) - lu(k,361) * b(k,46) - b(k,73) = b(k,73) - lu(k,362) * b(k,46) - b(k,75) = b(k,75) - lu(k,363) * b(k,46) - b(k,77) = b(k,77) - lu(k,364) * b(k,46) - b(k,80) = b(k,80) - lu(k,365) * b(k,46) - b(k,82) = b(k,82) - lu(k,366) * b(k,46) - b(k,85) = b(k,85) - lu(k,367) * b(k,46) - b(k,86) = b(k,86) - lu(k,368) * b(k,46) - b(k,87) = b(k,87) - lu(k,369) * b(k,46) - b(k,88) = b(k,88) - lu(k,370) * b(k,46) - b(k,62) = b(k,62) - lu(k,372) * b(k,47) - b(k,65) = b(k,65) - lu(k,373) * b(k,47) - b(k,66) = b(k,66) - lu(k,374) * b(k,47) - b(k,67) = b(k,67) - lu(k,375) * b(k,47) - b(k,70) = b(k,70) - lu(k,376) * b(k,47) - b(k,72) = b(k,72) - lu(k,377) * b(k,47) - b(k,73) = b(k,73) - lu(k,378) * b(k,47) - b(k,75) = b(k,75) - lu(k,379) * b(k,47) - b(k,77) = b(k,77) - lu(k,380) * b(k,47) - b(k,82) = b(k,82) - lu(k,381) * b(k,47) - b(k,86) = b(k,86) - lu(k,382) * b(k,47) - b(k,87) = b(k,87) - lu(k,383) * b(k,47) - b(k,88) = b(k,88) - lu(k,384) * b(k,47) - b(k,51) = b(k,51) - lu(k,386) * b(k,48) - b(k,65) = b(k,65) - lu(k,387) * b(k,48) - b(k,66) = b(k,66) - lu(k,388) * b(k,48) - b(k,67) = b(k,67) - lu(k,389) * b(k,48) - b(k,70) = b(k,70) - lu(k,390) * b(k,48) - b(k,71) = b(k,71) - lu(k,391) * b(k,48) - b(k,73) = b(k,73) - lu(k,392) * b(k,48) - b(k,74) = b(k,74) - lu(k,393) * b(k,48) - b(k,75) = b(k,75) - lu(k,394) * b(k,48) - b(k,77) = b(k,77) - lu(k,395) * b(k,48) - b(k,80) = b(k,80) - lu(k,396) * b(k,48) - b(k,82) = b(k,82) - lu(k,397) * b(k,48) - b(k,86) = b(k,86) - lu(k,398) * b(k,48) - b(k,87) = b(k,87) - lu(k,399) * b(k,48) - b(k,88) = b(k,88) - lu(k,400) * b(k,48) - b(k,60) = b(k,60) - lu(k,402) * b(k,49) - b(k,62) = b(k,62) - lu(k,403) * b(k,49) - b(k,64) = b(k,64) - lu(k,404) * b(k,49) - b(k,68) = b(k,68) - lu(k,405) * b(k,49) - b(k,69) = b(k,69) - lu(k,406) * b(k,49) - b(k,72) = b(k,72) - lu(k,407) * b(k,49) - b(k,75) = b(k,75) - lu(k,408) * b(k,49) - b(k,76) = b(k,76) - lu(k,409) * b(k,49) - b(k,78) = b(k,78) - lu(k,410) * b(k,49) - b(k,79) = b(k,79) - lu(k,411) * b(k,49) - b(k,83) = b(k,83) - lu(k,412) * b(k,49) - b(k,84) = b(k,84) - lu(k,413) * b(k,49) - b(k,86) = b(k,86) - lu(k,414) * b(k,49) - b(k,87) = b(k,87) - lu(k,415) * b(k,49) - b(k,56) = b(k,56) - lu(k,420) * b(k,50) - b(k,57) = b(k,57) - lu(k,421) * b(k,50) - b(k,61) = b(k,61) - lu(k,422) * b(k,50) - b(k,63) = b(k,63) - lu(k,423) * b(k,50) - b(k,68) = b(k,68) - lu(k,424) * b(k,50) - b(k,69) = b(k,69) - lu(k,425) * b(k,50) - b(k,71) = b(k,71) - lu(k,426) * b(k,50) - b(k,72) = b(k,72) - lu(k,427) * b(k,50) - b(k,74) = b(k,74) - lu(k,428) * b(k,50) - b(k,75) = b(k,75) - lu(k,429) * b(k,50) - b(k,80) = b(k,80) - lu(k,430) * b(k,50) - b(k,81) = b(k,81) - lu(k,431) * b(k,50) - b(k,83) = b(k,83) - lu(k,432) * b(k,50) - b(k,84) = b(k,84) - lu(k,433) * b(k,50) - b(k,85) = b(k,85) - lu(k,434) * b(k,50) - b(k,86) = b(k,86) - lu(k,435) * b(k,50) - b(k,87) = b(k,87) - lu(k,436) * b(k,50) - b(k,88) = b(k,88) - lu(k,437) * b(k,50) - b(k,60) = b(k,60) - lu(k,439) * b(k,51) - b(k,65) = b(k,65) - lu(k,440) * b(k,51) - b(k,66) = b(k,66) - lu(k,441) * b(k,51) - b(k,67) = b(k,67) - lu(k,442) * b(k,51) - b(k,70) = b(k,70) - lu(k,443) * b(k,51) - b(k,71) = b(k,71) - lu(k,444) * b(k,51) - b(k,73) = b(k,73) - lu(k,445) * b(k,51) - b(k,74) = b(k,74) - lu(k,446) * b(k,51) - b(k,75) = b(k,75) - lu(k,447) * b(k,51) - b(k,77) = b(k,77) - lu(k,448) * b(k,51) - b(k,82) = b(k,82) - lu(k,449) * b(k,51) - b(k,87) = b(k,87) - lu(k,450) * b(k,51) - b(k,88) = b(k,88) - lu(k,451) * b(k,51) - b(k,56) = b(k,56) - lu(k,458) * b(k,52) - b(k,57) = b(k,57) - lu(k,459) * b(k,52) - b(k,61) = b(k,61) - lu(k,460) * b(k,52) - b(k,63) = b(k,63) - lu(k,461) * b(k,52) - b(k,68) = b(k,68) - lu(k,462) * b(k,52) - b(k,71) = b(k,71) - lu(k,463) * b(k,52) - b(k,72) = b(k,72) - lu(k,464) * b(k,52) - b(k,74) = b(k,74) - lu(k,465) * b(k,52) - b(k,75) = b(k,75) - lu(k,466) * b(k,52) - b(k,78) = b(k,78) - lu(k,467) * b(k,52) - b(k,79) = b(k,79) - lu(k,468) * b(k,52) - b(k,80) = b(k,80) - lu(k,469) * b(k,52) - b(k,81) = b(k,81) - lu(k,470) * b(k,52) - b(k,85) = b(k,85) - lu(k,471) * b(k,52) - b(k,86) = b(k,86) - lu(k,472) * b(k,52) - b(k,87) = b(k,87) - lu(k,473) * b(k,52) - b(k,88) = b(k,88) - lu(k,474) * b(k,52) - b(k,55) = b(k,55) - lu(k,478) * b(k,53) - b(k,60) = b(k,60) - lu(k,479) * b(k,53) - b(k,65) = b(k,65) - lu(k,480) * b(k,53) - b(k,66) = b(k,66) - lu(k,481) * b(k,53) - b(k,67) = b(k,67) - lu(k,482) * b(k,53) - b(k,68) = b(k,68) - lu(k,483) * b(k,53) - b(k,70) = b(k,70) - lu(k,484) * b(k,53) - b(k,71) = b(k,71) - lu(k,485) * b(k,53) - b(k,72) = b(k,72) - lu(k,486) * b(k,53) - b(k,73) = b(k,73) - lu(k,487) * b(k,53) - b(k,74) = b(k,74) - lu(k,488) * b(k,53) - b(k,75) = b(k,75) - lu(k,489) * b(k,53) - b(k,77) = b(k,77) - lu(k,490) * b(k,53) - b(k,82) = b(k,82) - lu(k,491) * b(k,53) - b(k,86) = b(k,86) - lu(k,492) * b(k,53) - b(k,87) = b(k,87) - lu(k,493) * b(k,53) - b(k,88) = b(k,88) - lu(k,494) * b(k,53) - end do + b(56) = b(56) - lu(267) * b(40) + b(61) = b(61) - lu(268) * b(40) + b(62) = b(62) - lu(269) * b(40) + b(68) = b(68) - lu(270) * b(40) + b(71) = b(71) - lu(271) * b(40) + b(72) = b(72) - lu(272) * b(40) + b(73) = b(73) - lu(273) * b(40) + b(74) = b(74) - lu(274) * b(40) + b(77) = b(77) - lu(275) * b(40) + b(87) = b(87) - lu(276) * b(40) + b(62) = b(62) - lu(278) * b(41) + b(65) = b(65) - lu(279) * b(41) + b(66) = b(66) - lu(280) * b(41) + b(68) = b(68) - lu(281) * b(41) + b(69) = b(69) - lu(282) * b(41) + b(70) = b(70) - lu(283) * b(41) + b(73) = b(73) - lu(284) * b(41) + b(76) = b(76) - lu(285) * b(41) + b(77) = b(77) - lu(286) * b(41) + b(78) = b(78) - lu(287) * b(41) + b(80) = b(80) - lu(288) * b(41) + b(87) = b(87) - lu(289) * b(41) + b(62) = b(62) - lu(293) * b(42) + b(68) = b(68) - lu(294) * b(42) + b(70) = b(70) - lu(295) * b(42) + b(73) = b(73) - lu(296) * b(42) + b(75) = b(75) - lu(297) * b(42) + b(76) = b(76) - lu(298) * b(42) + b(79) = b(79) - lu(299) * b(42) + b(81) = b(81) - lu(300) * b(42) + b(83) = b(83) - lu(301) * b(42) + b(84) = b(84) - lu(302) * b(42) + b(87) = b(87) - lu(303) * b(42) + b(54) = b(54) - lu(305) * b(43) + b(65) = b(65) - lu(306) * b(43) + b(66) = b(66) - lu(307) * b(43) + b(68) = b(68) - lu(308) * b(43) + b(69) = b(69) - lu(309) * b(43) + b(70) = b(70) - lu(310) * b(43) + b(73) = b(73) - lu(311) * b(43) + b(76) = b(76) - lu(312) * b(43) + b(77) = b(77) - lu(313) * b(43) + b(78) = b(78) - lu(314) * b(43) + b(80) = b(80) - lu(315) * b(43) + b(81) = b(81) - lu(316) * b(43) + b(87) = b(87) - lu(317) * b(43) + b(50) = b(50) - lu(321) * b(44) + b(56) = b(56) - lu(322) * b(44) + b(57) = b(57) - lu(323) * b(44) + b(61) = b(61) - lu(324) * b(44) + b(62) = b(62) - lu(325) * b(44) + b(68) = b(68) - lu(326) * b(44) + b(73) = b(73) - lu(327) * b(44) + b(81) = b(81) - lu(328) * b(44) + b(84) = b(84) - lu(329) * b(44) + b(87) = b(87) - lu(330) * b(44) + b(59) = b(59) - lu(332) * b(45) + b(65) = b(65) - lu(333) * b(45) + b(66) = b(66) - lu(334) * b(45) + b(67) = b(67) - lu(335) * b(45) + b(68) = b(68) - lu(336) * b(45) + b(69) = b(69) - lu(337) * b(45) + b(70) = b(70) - lu(338) * b(45) + b(73) = b(73) - lu(339) * b(45) + b(74) = b(74) - lu(340) * b(45) + b(76) = b(76) - lu(341) * b(45) + b(77) = b(77) - lu(342) * b(45) + b(78) = b(78) - lu(343) * b(45) + b(80) = b(80) - lu(344) * b(45) + b(87) = b(87) - lu(345) * b(45) + b(59) = b(59) - lu(348) * b(46) + b(65) = b(65) - lu(349) * b(46) + b(66) = b(66) - lu(350) * b(46) + b(67) = b(67) - lu(351) * b(46) + b(68) = b(68) - lu(352) * b(46) + b(69) = b(69) - lu(353) * b(46) + b(70) = b(70) - lu(354) * b(46) + b(73) = b(73) - lu(355) * b(46) + b(74) = b(74) - lu(356) * b(46) + b(76) = b(76) - lu(357) * b(46) + b(77) = b(77) - lu(358) * b(46) + b(78) = b(78) - lu(359) * b(46) + b(80) = b(80) - lu(360) * b(46) + b(87) = b(87) - lu(361) * b(46) + b(64) = b(64) - lu(363) * b(47) + b(65) = b(65) - lu(364) * b(47) + b(66) = b(66) - lu(365) * b(47) + b(68) = b(68) - lu(366) * b(47) + b(69) = b(69) - lu(367) * b(47) + b(70) = b(70) - lu(368) * b(47) + b(71) = b(71) - lu(369) * b(47) + b(73) = b(73) - lu(370) * b(47) + b(76) = b(76) - lu(371) * b(47) + b(77) = b(77) - lu(372) * b(47) + b(78) = b(78) - lu(373) * b(47) + b(80) = b(80) - lu(374) * b(47) + b(87) = b(87) - lu(375) * b(47) + b(60) = b(60) - lu(377) * b(48) + b(63) = b(63) - lu(378) * b(48) + b(64) = b(64) - lu(379) * b(48) + b(68) = b(68) - lu(380) * b(48) + b(71) = b(71) - lu(381) * b(48) + b(73) = b(73) - lu(382) * b(48) + b(75) = b(75) - lu(383) * b(48) + b(77) = b(77) - lu(384) * b(48) + b(79) = b(79) - lu(385) * b(48) + b(81) = b(81) - lu(386) * b(48) + b(82) = b(82) - lu(387) * b(48) + b(83) = b(83) - lu(388) * b(48) + b(84) = b(84) - lu(389) * b(48) + b(52) = b(52) - lu(391) * b(49) + b(65) = b(65) - lu(392) * b(49) + b(66) = b(66) - lu(393) * b(49) + b(67) = b(67) - lu(394) * b(49) + b(68) = b(68) - lu(395) * b(49) + b(69) = b(69) - lu(396) * b(49) + b(70) = b(70) - lu(397) * b(49) + b(73) = b(73) - lu(398) * b(49) + b(76) = b(76) - lu(399) * b(49) + b(77) = b(77) - lu(400) * b(49) + b(78) = b(78) - lu(401) * b(49) + b(80) = b(80) - lu(402) * b(49) + b(85) = b(85) - lu(403) * b(49) + b(86) = b(86) - lu(404) * b(49) + b(87) = b(87) - lu(405) * b(49) + b(56) = b(56) - lu(412) * b(50) + b(57) = b(57) - lu(413) * b(50) + b(61) = b(61) - lu(414) * b(50) + b(62) = b(62) - lu(415) * b(50) + b(67) = b(67) - lu(416) * b(50) + b(68) = b(68) - lu(417) * b(50) + b(71) = b(71) - lu(418) * b(50) + b(72) = b(72) - lu(419) * b(50) + b(73) = b(73) - lu(420) * b(50) + b(74) = b(74) - lu(421) * b(50) + b(77) = b(77) - lu(422) * b(50) + b(81) = b(81) - lu(423) * b(50) + b(84) = b(84) - lu(424) * b(50) + b(85) = b(85) - lu(425) * b(50) + b(86) = b(86) - lu(426) * b(50) + b(87) = b(87) - lu(427) * b(50) + b(56) = b(56) - lu(432) * b(51) + b(57) = b(57) - lu(433) * b(51) + b(61) = b(61) - lu(434) * b(51) + b(62) = b(62) - lu(435) * b(51) + b(67) = b(67) - lu(436) * b(51) + b(68) = b(68) - lu(437) * b(51) + b(71) = b(71) - lu(438) * b(51) + b(72) = b(72) - lu(439) * b(51) + b(73) = b(73) - lu(440) * b(51) + b(74) = b(74) - lu(441) * b(51) + b(77) = b(77) - lu(442) * b(51) + b(79) = b(79) - lu(443) * b(51) + b(81) = b(81) - lu(444) * b(51) + b(82) = b(82) - lu(445) * b(51) + b(83) = b(83) - lu(446) * b(51) + b(85) = b(85) - lu(447) * b(51) + b(86) = b(86) - lu(448) * b(51) + b(87) = b(87) - lu(449) * b(51) + b(60) = b(60) - lu(451) * b(52) + b(65) = b(65) - lu(452) * b(52) + b(66) = b(66) - lu(453) * b(52) + b(69) = b(69) - lu(454) * b(52) + b(70) = b(70) - lu(455) * b(52) + b(73) = b(73) - lu(456) * b(52) + b(76) = b(76) - lu(457) * b(52) + b(77) = b(77) - lu(458) * b(52) + b(78) = b(78) - lu(459) * b(52) + b(80) = b(80) - lu(460) * b(52) + b(85) = b(85) - lu(461) * b(52) + b(86) = b(86) - lu(462) * b(52) + b(87) = b(87) - lu(463) * b(52) + b(55) = b(55) - lu(467) * b(53) + b(60) = b(60) - lu(468) * b(53) + b(65) = b(65) - lu(469) * b(53) + b(66) = b(66) - lu(470) * b(53) + b(68) = b(68) - lu(471) * b(53) + b(69) = b(69) - lu(472) * b(53) + b(70) = b(70) - lu(473) * b(53) + b(71) = b(71) - lu(474) * b(53) + b(73) = b(73) - lu(475) * b(53) + b(76) = b(76) - lu(476) * b(53) + b(77) = b(77) - lu(477) * b(53) + b(78) = b(78) - lu(478) * b(53) + b(80) = b(80) - lu(479) * b(53) + b(81) = b(81) - lu(480) * b(53) + b(85) = b(85) - lu(481) * b(53) + b(86) = b(86) - lu(482) * b(53) + b(87) = b(87) - lu(483) * b(53) + b(55) = b(55) - lu(487) * b(54) + b(60) = b(60) - lu(488) * b(54) + b(63) = b(63) - lu(489) * b(54) + b(64) = b(64) - lu(490) * b(54) + b(65) = b(65) - lu(491) * b(54) + b(66) = b(66) - lu(492) * b(54) + b(68) = b(68) - lu(493) * b(54) + b(69) = b(69) - lu(494) * b(54) + b(70) = b(70) - lu(495) * b(54) + b(71) = b(71) - lu(496) * b(54) + b(73) = b(73) - lu(497) * b(54) + b(76) = b(76) - lu(498) * b(54) + b(77) = b(77) - lu(499) * b(54) + b(78) = b(78) - lu(500) * b(54) + b(80) = b(80) - lu(501) * b(54) + b(81) = b(81) - lu(502) * b(54) + b(87) = b(87) - lu(503) * b(54) end subroutine lu_slv02 - subroutine lu_slv03( avec_len, lu, b ) + subroutine lu_slv03( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,55) = b(k,55) - lu(k,498) * b(k,54) - b(k,60) = b(k,60) - lu(k,499) * b(k,54) - b(k,62) = b(k,62) - lu(k,500) * b(k,54) - b(k,64) = b(k,64) - lu(k,501) * b(k,54) - b(k,65) = b(k,65) - lu(k,502) * b(k,54) - b(k,66) = b(k,66) - lu(k,503) * b(k,54) - b(k,67) = b(k,67) - lu(k,504) * b(k,54) - b(k,68) = b(k,68) - lu(k,505) * b(k,54) - b(k,70) = b(k,70) - lu(k,506) * b(k,54) - b(k,72) = b(k,72) - lu(k,507) * b(k,54) - b(k,73) = b(k,73) - lu(k,508) * b(k,54) - b(k,75) = b(k,75) - lu(k,509) * b(k,54) - b(k,77) = b(k,77) - lu(k,510) * b(k,54) - b(k,78) = b(k,78) - lu(k,511) * b(k,54) - b(k,82) = b(k,82) - lu(k,512) * b(k,54) - b(k,86) = b(k,86) - lu(k,513) * b(k,54) - b(k,87) = b(k,87) - lu(k,514) * b(k,54) - b(k,88) = b(k,88) - lu(k,515) * b(k,54) - b(k,60) = b(k,60) - lu(k,520) * b(k,55) - b(k,65) = b(k,65) - lu(k,521) * b(k,55) - b(k,66) = b(k,66) - lu(k,522) * b(k,55) - b(k,67) = b(k,67) - lu(k,523) * b(k,55) - b(k,68) = b(k,68) - lu(k,524) * b(k,55) - b(k,70) = b(k,70) - lu(k,525) * b(k,55) - b(k,71) = b(k,71) - lu(k,526) * b(k,55) - b(k,72) = b(k,72) - lu(k,527) * b(k,55) - b(k,73) = b(k,73) - lu(k,528) * b(k,55) - b(k,74) = b(k,74) - lu(k,529) * b(k,55) - b(k,75) = b(k,75) - lu(k,530) * b(k,55) - b(k,77) = b(k,77) - lu(k,531) * b(k,55) - b(k,82) = b(k,82) - lu(k,532) * b(k,55) - b(k,86) = b(k,86) - lu(k,533) * b(k,55) - b(k,87) = b(k,87) - lu(k,534) * b(k,55) - b(k,88) = b(k,88) - lu(k,535) * b(k,55) - b(k,57) = b(k,57) - lu(k,542) * b(k,56) - b(k,61) = b(k,61) - lu(k,543) * b(k,56) - b(k,63) = b(k,63) - lu(k,544) * b(k,56) - b(k,68) = b(k,68) - lu(k,545) * b(k,56) - b(k,69) = b(k,69) - lu(k,546) * b(k,56) - b(k,71) = b(k,71) - lu(k,547) * b(k,56) - b(k,72) = b(k,72) - lu(k,548) * b(k,56) - b(k,74) = b(k,74) - lu(k,549) * b(k,56) - b(k,75) = b(k,75) - lu(k,550) * b(k,56) - b(k,78) = b(k,78) - lu(k,551) * b(k,56) - b(k,79) = b(k,79) - lu(k,552) * b(k,56) - b(k,80) = b(k,80) - lu(k,553) * b(k,56) - b(k,81) = b(k,81) - lu(k,554) * b(k,56) - b(k,83) = b(k,83) - lu(k,555) * b(k,56) - b(k,84) = b(k,84) - lu(k,556) * b(k,56) - b(k,85) = b(k,85) - lu(k,557) * b(k,56) - b(k,86) = b(k,86) - lu(k,558) * b(k,56) - b(k,87) = b(k,87) - lu(k,559) * b(k,56) - b(k,88) = b(k,88) - lu(k,560) * b(k,56) - b(k,61) = b(k,61) - lu(k,574) * b(k,57) - b(k,63) = b(k,63) - lu(k,575) * b(k,57) - b(k,65) = b(k,65) - lu(k,576) * b(k,57) - b(k,68) = b(k,68) - lu(k,577) * b(k,57) - b(k,69) = b(k,69) - lu(k,578) * b(k,57) - b(k,71) = b(k,71) - lu(k,579) * b(k,57) - b(k,72) = b(k,72) - lu(k,580) * b(k,57) - b(k,74) = b(k,74) - lu(k,581) * b(k,57) - b(k,75) = b(k,75) - lu(k,582) * b(k,57) - b(k,76) = b(k,76) - lu(k,583) * b(k,57) - b(k,77) = b(k,77) - lu(k,584) * b(k,57) - b(k,78) = b(k,78) - lu(k,585) * b(k,57) - b(k,79) = b(k,79) - lu(k,586) * b(k,57) - b(k,80) = b(k,80) - lu(k,587) * b(k,57) - b(k,81) = b(k,81) - lu(k,588) * b(k,57) - b(k,83) = b(k,83) - lu(k,589) * b(k,57) - b(k,84) = b(k,84) - lu(k,590) * b(k,57) - b(k,85) = b(k,85) - lu(k,591) * b(k,57) - b(k,86) = b(k,86) - lu(k,592) * b(k,57) - b(k,87) = b(k,87) - lu(k,593) * b(k,57) - b(k,88) = b(k,88) - lu(k,594) * b(k,57) - b(k,60) = b(k,60) - lu(k,598) * b(k,58) - b(k,62) = b(k,62) - lu(k,599) * b(k,58) - b(k,65) = b(k,65) - lu(k,600) * b(k,58) - b(k,66) = b(k,66) - lu(k,601) * b(k,58) - b(k,67) = b(k,67) - lu(k,602) * b(k,58) - b(k,69) = b(k,69) - lu(k,603) * b(k,58) - b(k,70) = b(k,70) - lu(k,604) * b(k,58) - b(k,71) = b(k,71) - lu(k,605) * b(k,58) - b(k,72) = b(k,72) - lu(k,606) * b(k,58) - b(k,73) = b(k,73) - lu(k,607) * b(k,58) - b(k,75) = b(k,75) - lu(k,608) * b(k,58) - b(k,77) = b(k,77) - lu(k,609) * b(k,58) - b(k,80) = b(k,80) - lu(k,610) * b(k,58) - b(k,82) = b(k,82) - lu(k,611) * b(k,58) - b(k,85) = b(k,85) - lu(k,612) * b(k,58) - b(k,86) = b(k,86) - lu(k,613) * b(k,58) - b(k,87) = b(k,87) - lu(k,614) * b(k,58) - b(k,88) = b(k,88) - lu(k,615) * b(k,58) - b(k,60) = b(k,60) - lu(k,620) * b(k,59) - b(k,61) = b(k,61) - lu(k,621) * b(k,59) - b(k,62) = b(k,62) - lu(k,622) * b(k,59) - b(k,63) = b(k,63) - lu(k,623) * b(k,59) - b(k,64) = b(k,64) - lu(k,624) * b(k,59) - b(k,65) = b(k,65) - lu(k,625) * b(k,59) - b(k,66) = b(k,66) - lu(k,626) * b(k,59) - b(k,67) = b(k,67) - lu(k,627) * b(k,59) - b(k,68) = b(k,68) - lu(k,628) * b(k,59) - b(k,69) = b(k,69) - lu(k,629) * b(k,59) - b(k,70) = b(k,70) - lu(k,630) * b(k,59) - b(k,71) = b(k,71) - lu(k,631) * b(k,59) - b(k,72) = b(k,72) - lu(k,632) * b(k,59) - b(k,73) = b(k,73) - lu(k,633) * b(k,59) - b(k,75) = b(k,75) - lu(k,634) * b(k,59) - b(k,76) = b(k,76) - lu(k,635) * b(k,59) - b(k,77) = b(k,77) - lu(k,636) * b(k,59) - b(k,78) = b(k,78) - lu(k,637) * b(k,59) - b(k,79) = b(k,79) - lu(k,638) * b(k,59) - b(k,80) = b(k,80) - lu(k,639) * b(k,59) - b(k,81) = b(k,81) - lu(k,640) * b(k,59) - b(k,82) = b(k,82) - lu(k,641) * b(k,59) - b(k,83) = b(k,83) - lu(k,642) * b(k,59) - b(k,84) = b(k,84) - lu(k,643) * b(k,59) - b(k,85) = b(k,85) - lu(k,644) * b(k,59) - b(k,86) = b(k,86) - lu(k,645) * b(k,59) - b(k,87) = b(k,87) - lu(k,646) * b(k,59) - b(k,88) = b(k,88) - lu(k,647) * b(k,59) - b(k,62) = b(k,62) - lu(k,653) * b(k,60) - b(k,65) = b(k,65) - lu(k,654) * b(k,60) - b(k,66) = b(k,66) - lu(k,655) * b(k,60) - b(k,67) = b(k,67) - lu(k,656) * b(k,60) - b(k,68) = b(k,68) - lu(k,657) * b(k,60) - b(k,69) = b(k,69) - lu(k,658) * b(k,60) - b(k,70) = b(k,70) - lu(k,659) * b(k,60) - b(k,71) = b(k,71) - lu(k,660) * b(k,60) - b(k,72) = b(k,72) - lu(k,661) * b(k,60) - b(k,73) = b(k,73) - lu(k,662) * b(k,60) - b(k,74) = b(k,74) - lu(k,663) * b(k,60) - b(k,75) = b(k,75) - lu(k,664) * b(k,60) - b(k,77) = b(k,77) - lu(k,665) * b(k,60) - b(k,79) = b(k,79) - lu(k,666) * b(k,60) - b(k,80) = b(k,80) - lu(k,667) * b(k,60) - b(k,82) = b(k,82) - lu(k,668) * b(k,60) - b(k,85) = b(k,85) - lu(k,669) * b(k,60) - b(k,86) = b(k,86) - lu(k,670) * b(k,60) - b(k,87) = b(k,87) - lu(k,671) * b(k,60) - b(k,88) = b(k,88) - lu(k,672) * b(k,60) - b(k,63) = b(k,63) - lu(k,687) * b(k,61) - b(k,65) = b(k,65) - lu(k,688) * b(k,61) - b(k,68) = b(k,68) - lu(k,689) * b(k,61) - b(k,69) = b(k,69) - lu(k,690) * b(k,61) - b(k,70) = b(k,70) - lu(k,691) * b(k,61) - b(k,71) = b(k,71) - lu(k,692) * b(k,61) - b(k,72) = b(k,72) - lu(k,693) * b(k,61) - b(k,74) = b(k,74) - lu(k,694) * b(k,61) - b(k,75) = b(k,75) - lu(k,695) * b(k,61) - b(k,76) = b(k,76) - lu(k,696) * b(k,61) - b(k,77) = b(k,77) - lu(k,697) * b(k,61) - b(k,78) = b(k,78) - lu(k,698) * b(k,61) - b(k,79) = b(k,79) - lu(k,699) * b(k,61) - b(k,80) = b(k,80) - lu(k,700) * b(k,61) - b(k,81) = b(k,81) - lu(k,701) * b(k,61) - b(k,83) = b(k,83) - lu(k,702) * b(k,61) - b(k,84) = b(k,84) - lu(k,703) * b(k,61) - b(k,85) = b(k,85) - lu(k,704) * b(k,61) - b(k,86) = b(k,86) - lu(k,705) * b(k,61) - b(k,87) = b(k,87) - lu(k,706) * b(k,61) - b(k,88) = b(k,88) - lu(k,707) * b(k,61) - b(k,63) = b(k,63) - lu(k,713) * b(k,62) - b(k,65) = b(k,65) - lu(k,714) * b(k,62) - b(k,66) = b(k,66) - lu(k,715) * b(k,62) - b(k,67) = b(k,67) - lu(k,716) * b(k,62) - b(k,68) = b(k,68) - lu(k,717) * b(k,62) - b(k,69) = b(k,69) - lu(k,718) * b(k,62) - b(k,70) = b(k,70) - lu(k,719) * b(k,62) - b(k,71) = b(k,71) - lu(k,720) * b(k,62) - b(k,72) = b(k,72) - lu(k,721) * b(k,62) - b(k,73) = b(k,73) - lu(k,722) * b(k,62) - b(k,74) = b(k,74) - lu(k,723) * b(k,62) - b(k,75) = b(k,75) - lu(k,724) * b(k,62) - b(k,77) = b(k,77) - lu(k,725) * b(k,62) - b(k,79) = b(k,79) - lu(k,726) * b(k,62) - b(k,80) = b(k,80) - lu(k,727) * b(k,62) - b(k,81) = b(k,81) - lu(k,728) * b(k,62) - b(k,82) = b(k,82) - lu(k,729) * b(k,62) - b(k,83) = b(k,83) - lu(k,730) * b(k,62) - b(k,85) = b(k,85) - lu(k,731) * b(k,62) - b(k,86) = b(k,86) - lu(k,732) * b(k,62) - b(k,87) = b(k,87) - lu(k,733) * b(k,62) - b(k,88) = b(k,88) - lu(k,734) * b(k,62) - b(k,65) = b(k,65) - lu(k,756) * b(k,63) - b(k,66) = b(k,66) - lu(k,757) * b(k,63) - b(k,68) = b(k,68) - lu(k,758) * b(k,63) - b(k,69) = b(k,69) - lu(k,759) * b(k,63) - b(k,70) = b(k,70) - lu(k,760) * b(k,63) - b(k,71) = b(k,71) - lu(k,761) * b(k,63) - b(k,72) = b(k,72) - lu(k,762) * b(k,63) - b(k,74) = b(k,74) - lu(k,763) * b(k,63) - b(k,75) = b(k,75) - lu(k,764) * b(k,63) - b(k,76) = b(k,76) - lu(k,765) * b(k,63) - b(k,77) = b(k,77) - lu(k,766) * b(k,63) - b(k,78) = b(k,78) - lu(k,767) * b(k,63) - b(k,79) = b(k,79) - lu(k,768) * b(k,63) - b(k,80) = b(k,80) - lu(k,769) * b(k,63) - b(k,81) = b(k,81) - lu(k,770) * b(k,63) - b(k,83) = b(k,83) - lu(k,771) * b(k,63) - b(k,84) = b(k,84) - lu(k,772) * b(k,63) - b(k,85) = b(k,85) - lu(k,773) * b(k,63) - b(k,86) = b(k,86) - lu(k,774) * b(k,63) - b(k,87) = b(k,87) - lu(k,775) * b(k,63) - b(k,88) = b(k,88) - lu(k,776) * b(k,63) - end do + b(60) = b(60) - lu(508) * b(55) + b(65) = b(65) - lu(509) * b(55) + b(66) = b(66) - lu(510) * b(55) + b(68) = b(68) - lu(511) * b(55) + b(69) = b(69) - lu(512) * b(55) + b(70) = b(70) - lu(513) * b(55) + b(71) = b(71) - lu(514) * b(55) + b(73) = b(73) - lu(515) * b(55) + b(76) = b(76) - lu(516) * b(55) + b(77) = b(77) - lu(517) * b(55) + b(78) = b(78) - lu(518) * b(55) + b(80) = b(80) - lu(519) * b(55) + b(81) = b(81) - lu(520) * b(55) + b(85) = b(85) - lu(521) * b(55) + b(86) = b(86) - lu(522) * b(55) + b(87) = b(87) - lu(523) * b(55) + b(57) = b(57) - lu(530) * b(56) + b(61) = b(61) - lu(531) * b(56) + b(62) = b(62) - lu(532) * b(56) + b(67) = b(67) - lu(533) * b(56) + b(68) = b(68) - lu(534) * b(56) + b(71) = b(71) - lu(535) * b(56) + b(72) = b(72) - lu(536) * b(56) + b(73) = b(73) - lu(537) * b(56) + b(74) = b(74) - lu(538) * b(56) + b(77) = b(77) - lu(539) * b(56) + b(79) = b(79) - lu(540) * b(56) + b(81) = b(81) - lu(541) * b(56) + b(82) = b(82) - lu(542) * b(56) + b(83) = b(83) - lu(543) * b(56) + b(84) = b(84) - lu(544) * b(56) + b(85) = b(85) - lu(545) * b(56) + b(86) = b(86) - lu(546) * b(56) + b(87) = b(87) - lu(547) * b(56) + b(61) = b(61) - lu(561) * b(57) + b(62) = b(62) - lu(562) * b(57) + b(67) = b(67) - lu(563) * b(57) + b(68) = b(68) - lu(564) * b(57) + b(70) = b(70) - lu(565) * b(57) + b(71) = b(71) - lu(566) * b(57) + b(72) = b(72) - lu(567) * b(57) + b(73) = b(73) - lu(568) * b(57) + b(74) = b(74) - lu(569) * b(57) + b(75) = b(75) - lu(570) * b(57) + b(76) = b(76) - lu(571) * b(57) + b(77) = b(77) - lu(572) * b(57) + b(79) = b(79) - lu(573) * b(57) + b(81) = b(81) - lu(574) * b(57) + b(82) = b(82) - lu(575) * b(57) + b(83) = b(83) - lu(576) * b(57) + b(84) = b(84) - lu(577) * b(57) + b(85) = b(85) - lu(578) * b(57) + b(86) = b(86) - lu(579) * b(57) + b(87) = b(87) - lu(580) * b(57) + b(59) = b(59) - lu(584) * b(58) + b(60) = b(60) - lu(585) * b(58) + b(61) = b(61) - lu(586) * b(58) + b(62) = b(62) - lu(587) * b(58) + b(63) = b(63) - lu(588) * b(58) + b(64) = b(64) - lu(589) * b(58) + b(65) = b(65) - lu(590) * b(58) + b(66) = b(66) - lu(591) * b(58) + b(67) = b(67) - lu(592) * b(58) + b(68) = b(68) - lu(593) * b(58) + b(69) = b(69) - lu(594) * b(58) + b(70) = b(70) - lu(595) * b(58) + b(71) = b(71) - lu(596) * b(58) + b(72) = b(72) - lu(597) * b(58) + b(73) = b(73) - lu(598) * b(58) + b(74) = b(74) - lu(599) * b(58) + b(75) = b(75) - lu(600) * b(58) + b(76) = b(76) - lu(601) * b(58) + b(77) = b(77) - lu(602) * b(58) + b(78) = b(78) - lu(603) * b(58) + b(79) = b(79) - lu(604) * b(58) + b(80) = b(80) - lu(605) * b(58) + b(81) = b(81) - lu(606) * b(58) + b(82) = b(82) - lu(607) * b(58) + b(83) = b(83) - lu(608) * b(58) + b(84) = b(84) - lu(609) * b(58) + b(87) = b(87) - lu(610) * b(58) + b(60) = b(60) - lu(614) * b(59) + b(64) = b(64) - lu(615) * b(59) + b(65) = b(65) - lu(616) * b(59) + b(66) = b(66) - lu(617) * b(59) + b(67) = b(67) - lu(618) * b(59) + b(68) = b(68) - lu(619) * b(59) + b(69) = b(69) - lu(620) * b(59) + b(70) = b(70) - lu(621) * b(59) + b(71) = b(71) - lu(622) * b(59) + b(73) = b(73) - lu(623) * b(59) + b(74) = b(74) - lu(624) * b(59) + b(76) = b(76) - lu(625) * b(59) + b(77) = b(77) - lu(626) * b(59) + b(78) = b(78) - lu(627) * b(59) + b(79) = b(79) - lu(628) * b(59) + b(80) = b(80) - lu(629) * b(59) + b(85) = b(85) - lu(630) * b(59) + b(87) = b(87) - lu(631) * b(59) + b(64) = b(64) - lu(637) * b(60) + b(65) = b(65) - lu(638) * b(60) + b(66) = b(66) - lu(639) * b(60) + b(67) = b(67) - lu(640) * b(60) + b(68) = b(68) - lu(641) * b(60) + b(69) = b(69) - lu(642) * b(60) + b(70) = b(70) - lu(643) * b(60) + b(71) = b(71) - lu(644) * b(60) + b(73) = b(73) - lu(645) * b(60) + b(74) = b(74) - lu(646) * b(60) + b(76) = b(76) - lu(647) * b(60) + b(77) = b(77) - lu(648) * b(60) + b(78) = b(78) - lu(649) * b(60) + b(79) = b(79) - lu(650) * b(60) + b(80) = b(80) - lu(651) * b(60) + b(81) = b(81) - lu(652) * b(60) + b(84) = b(84) - lu(653) * b(60) + b(85) = b(85) - lu(654) * b(60) + b(86) = b(86) - lu(655) * b(60) + b(87) = b(87) - lu(656) * b(60) + b(62) = b(62) - lu(671) * b(61) + b(67) = b(67) - lu(672) * b(61) + b(68) = b(68) - lu(673) * b(61) + b(69) = b(69) - lu(674) * b(61) + b(70) = b(70) - lu(675) * b(61) + b(71) = b(71) - lu(676) * b(61) + b(72) = b(72) - lu(677) * b(61) + b(73) = b(73) - lu(678) * b(61) + b(74) = b(74) - lu(679) * b(61) + b(75) = b(75) - lu(680) * b(61) + b(76) = b(76) - lu(681) * b(61) + b(77) = b(77) - lu(682) * b(61) + b(79) = b(79) - lu(683) * b(61) + b(81) = b(81) - lu(684) * b(61) + b(82) = b(82) - lu(685) * b(61) + b(83) = b(83) - lu(686) * b(61) + b(84) = b(84) - lu(687) * b(61) + b(85) = b(85) - lu(688) * b(61) + b(86) = b(86) - lu(689) * b(61) + b(87) = b(87) - lu(690) * b(61) + b(65) = b(65) - lu(712) * b(62) + b(67) = b(67) - lu(713) * b(62) + b(68) = b(68) - lu(714) * b(62) + b(69) = b(69) - lu(715) * b(62) + b(70) = b(70) - lu(716) * b(62) + b(71) = b(71) - lu(717) * b(62) + b(72) = b(72) - lu(718) * b(62) + b(73) = b(73) - lu(719) * b(62) + b(74) = b(74) - lu(720) * b(62) + b(75) = b(75) - lu(721) * b(62) + b(76) = b(76) - lu(722) * b(62) + b(77) = b(77) - lu(723) * b(62) + b(79) = b(79) - lu(724) * b(62) + b(81) = b(81) - lu(725) * b(62) + b(82) = b(82) - lu(726) * b(62) + b(83) = b(83) - lu(727) * b(62) + b(84) = b(84) - lu(728) * b(62) + b(85) = b(85) - lu(729) * b(62) + b(86) = b(86) - lu(730) * b(62) + b(87) = b(87) - lu(731) * b(62) + b(64) = b(64) - lu(740) * b(63) + b(65) = b(65) - lu(741) * b(63) + b(66) = b(66) - lu(742) * b(63) + b(67) = b(67) - lu(743) * b(63) + b(68) = b(68) - lu(744) * b(63) + b(69) = b(69) - lu(745) * b(63) + b(70) = b(70) - lu(746) * b(63) + b(71) = b(71) - lu(747) * b(63) + b(72) = b(72) - lu(748) * b(63) + b(73) = b(73) - lu(749) * b(63) + b(74) = b(74) - lu(750) * b(63) + b(75) = b(75) - lu(751) * b(63) + b(76) = b(76) - lu(752) * b(63) + b(77) = b(77) - lu(753) * b(63) + b(78) = b(78) - lu(754) * b(63) + b(79) = b(79) - lu(755) * b(63) + b(80) = b(80) - lu(756) * b(63) + b(81) = b(81) - lu(757) * b(63) + b(82) = b(82) - lu(758) * b(63) + b(83) = b(83) - lu(759) * b(63) + b(84) = b(84) - lu(760) * b(63) + b(85) = b(85) - lu(761) * b(63) + b(86) = b(86) - lu(762) * b(63) + b(87) = b(87) - lu(763) * b(63) + b(65) = b(65) - lu(770) * b(64) + b(66) = b(66) - lu(771) * b(64) + b(67) = b(67) - lu(772) * b(64) + b(68) = b(68) - lu(773) * b(64) + b(69) = b(69) - lu(774) * b(64) + b(70) = b(70) - lu(775) * b(64) + b(71) = b(71) - lu(776) * b(64) + b(72) = b(72) - lu(777) * b(64) + b(73) = b(73) - lu(778) * b(64) + b(74) = b(74) - lu(779) * b(64) + b(75) = b(75) - lu(780) * b(64) + b(76) = b(76) - lu(781) * b(64) + b(77) = b(77) - lu(782) * b(64) + b(78) = b(78) - lu(783) * b(64) + b(79) = b(79) - lu(784) * b(64) + b(80) = b(80) - lu(785) * b(64) + b(81) = b(81) - lu(786) * b(64) + b(82) = b(82) - lu(787) * b(64) + b(83) = b(83) - lu(788) * b(64) + b(84) = b(84) - lu(789) * b(64) + b(85) = b(85) - lu(790) * b(64) + b(86) = b(86) - lu(791) * b(64) + b(87) = b(87) - lu(792) * b(64) end subroutine lu_slv03 - subroutine lu_slv04( avec_len, lu, b ) + subroutine lu_slv04( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,65) = b(k,65) - lu(k,786) * b(k,64) - b(k,66) = b(k,66) - lu(k,787) * b(k,64) - b(k,67) = b(k,67) - lu(k,788) * b(k,64) - b(k,68) = b(k,68) - lu(k,789) * b(k,64) - b(k,69) = b(k,69) - lu(k,790) * b(k,64) - b(k,70) = b(k,70) - lu(k,791) * b(k,64) - b(k,71) = b(k,71) - lu(k,792) * b(k,64) - b(k,72) = b(k,72) - lu(k,793) * b(k,64) - b(k,73) = b(k,73) - lu(k,794) * b(k,64) - b(k,74) = b(k,74) - lu(k,795) * b(k,64) - b(k,75) = b(k,75) - lu(k,796) * b(k,64) - b(k,76) = b(k,76) - lu(k,797) * b(k,64) - b(k,77) = b(k,77) - lu(k,798) * b(k,64) - b(k,78) = b(k,78) - lu(k,799) * b(k,64) - b(k,79) = b(k,79) - lu(k,800) * b(k,64) - b(k,80) = b(k,80) - lu(k,801) * b(k,64) - b(k,81) = b(k,81) - lu(k,802) * b(k,64) - b(k,82) = b(k,82) - lu(k,803) * b(k,64) - b(k,83) = b(k,83) - lu(k,804) * b(k,64) - b(k,84) = b(k,84) - lu(k,805) * b(k,64) - b(k,85) = b(k,85) - lu(k,806) * b(k,64) - b(k,86) = b(k,86) - lu(k,807) * b(k,64) - b(k,87) = b(k,87) - lu(k,808) * b(k,64) - b(k,88) = b(k,88) - lu(k,809) * b(k,64) - b(k,66) = b(k,66) - lu(k,830) * b(k,65) - b(k,67) = b(k,67) - lu(k,831) * b(k,65) - b(k,68) = b(k,68) - lu(k,832) * b(k,65) - b(k,69) = b(k,69) - lu(k,833) * b(k,65) - b(k,70) = b(k,70) - lu(k,834) * b(k,65) - b(k,71) = b(k,71) - lu(k,835) * b(k,65) - b(k,72) = b(k,72) - lu(k,836) * b(k,65) - b(k,73) = b(k,73) - lu(k,837) * b(k,65) - b(k,74) = b(k,74) - lu(k,838) * b(k,65) - b(k,75) = b(k,75) - lu(k,839) * b(k,65) - b(k,76) = b(k,76) - lu(k,840) * b(k,65) - b(k,77) = b(k,77) - lu(k,841) * b(k,65) - b(k,78) = b(k,78) - lu(k,842) * b(k,65) - b(k,79) = b(k,79) - lu(k,843) * b(k,65) - b(k,80) = b(k,80) - lu(k,844) * b(k,65) - b(k,81) = b(k,81) - lu(k,845) * b(k,65) - b(k,82) = b(k,82) - lu(k,846) * b(k,65) - b(k,83) = b(k,83) - lu(k,847) * b(k,65) - b(k,84) = b(k,84) - lu(k,848) * b(k,65) - b(k,85) = b(k,85) - lu(k,849) * b(k,65) - b(k,86) = b(k,86) - lu(k,850) * b(k,65) - b(k,87) = b(k,87) - lu(k,851) * b(k,65) - b(k,88) = b(k,88) - lu(k,852) * b(k,65) - b(k,67) = b(k,67) - lu(k,879) * b(k,66) - b(k,68) = b(k,68) - lu(k,880) * b(k,66) - b(k,69) = b(k,69) - lu(k,881) * b(k,66) - b(k,70) = b(k,70) - lu(k,882) * b(k,66) - b(k,71) = b(k,71) - lu(k,883) * b(k,66) - b(k,72) = b(k,72) - lu(k,884) * b(k,66) - b(k,73) = b(k,73) - lu(k,885) * b(k,66) - b(k,74) = b(k,74) - lu(k,886) * b(k,66) - b(k,75) = b(k,75) - lu(k,887) * b(k,66) - b(k,76) = b(k,76) - lu(k,888) * b(k,66) - b(k,77) = b(k,77) - lu(k,889) * b(k,66) - b(k,78) = b(k,78) - lu(k,890) * b(k,66) - b(k,79) = b(k,79) - lu(k,891) * b(k,66) - b(k,80) = b(k,80) - lu(k,892) * b(k,66) - b(k,81) = b(k,81) - lu(k,893) * b(k,66) - b(k,82) = b(k,82) - lu(k,894) * b(k,66) - b(k,83) = b(k,83) - lu(k,895) * b(k,66) - b(k,84) = b(k,84) - lu(k,896) * b(k,66) - b(k,85) = b(k,85) - lu(k,897) * b(k,66) - b(k,86) = b(k,86) - lu(k,898) * b(k,66) - b(k,87) = b(k,87) - lu(k,899) * b(k,66) - b(k,88) = b(k,88) - lu(k,900) * b(k,66) - b(k,68) = b(k,68) - lu(k,923) * b(k,67) - b(k,69) = b(k,69) - lu(k,924) * b(k,67) - b(k,70) = b(k,70) - lu(k,925) * b(k,67) - b(k,71) = b(k,71) - lu(k,926) * b(k,67) - b(k,72) = b(k,72) - lu(k,927) * b(k,67) - b(k,73) = b(k,73) - lu(k,928) * b(k,67) - b(k,74) = b(k,74) - lu(k,929) * b(k,67) - b(k,75) = b(k,75) - lu(k,930) * b(k,67) - b(k,76) = b(k,76) - lu(k,931) * b(k,67) - b(k,77) = b(k,77) - lu(k,932) * b(k,67) - b(k,78) = b(k,78) - lu(k,933) * b(k,67) - b(k,79) = b(k,79) - lu(k,934) * b(k,67) - b(k,80) = b(k,80) - lu(k,935) * b(k,67) - b(k,81) = b(k,81) - lu(k,936) * b(k,67) - b(k,82) = b(k,82) - lu(k,937) * b(k,67) - b(k,83) = b(k,83) - lu(k,938) * b(k,67) - b(k,84) = b(k,84) - lu(k,939) * b(k,67) - b(k,85) = b(k,85) - lu(k,940) * b(k,67) - b(k,86) = b(k,86) - lu(k,941) * b(k,67) - b(k,87) = b(k,87) - lu(k,942) * b(k,67) - b(k,88) = b(k,88) - lu(k,943) * b(k,67) - b(k,69) = b(k,69) - lu(k,980) * b(k,68) - b(k,70) = b(k,70) - lu(k,981) * b(k,68) - b(k,71) = b(k,71) - lu(k,982) * b(k,68) - b(k,72) = b(k,72) - lu(k,983) * b(k,68) - b(k,73) = b(k,73) - lu(k,984) * b(k,68) - b(k,74) = b(k,74) - lu(k,985) * b(k,68) - b(k,75) = b(k,75) - lu(k,986) * b(k,68) - b(k,76) = b(k,76) - lu(k,987) * b(k,68) - b(k,77) = b(k,77) - lu(k,988) * b(k,68) - b(k,78) = b(k,78) - lu(k,989) * b(k,68) - b(k,79) = b(k,79) - lu(k,990) * b(k,68) - b(k,80) = b(k,80) - lu(k,991) * b(k,68) - b(k,81) = b(k,81) - lu(k,992) * b(k,68) - b(k,82) = b(k,82) - lu(k,993) * b(k,68) - b(k,83) = b(k,83) - lu(k,994) * b(k,68) - b(k,84) = b(k,84) - lu(k,995) * b(k,68) - b(k,85) = b(k,85) - lu(k,996) * b(k,68) - b(k,86) = b(k,86) - lu(k,997) * b(k,68) - b(k,87) = b(k,87) - lu(k,998) * b(k,68) - b(k,88) = b(k,88) - lu(k,999) * b(k,68) - b(k,70) = b(k,70) - lu(k,1024) * b(k,69) - b(k,71) = b(k,71) - lu(k,1025) * b(k,69) - b(k,72) = b(k,72) - lu(k,1026) * b(k,69) - b(k,73) = b(k,73) - lu(k,1027) * b(k,69) - b(k,74) = b(k,74) - lu(k,1028) * b(k,69) - b(k,75) = b(k,75) - lu(k,1029) * b(k,69) - b(k,76) = b(k,76) - lu(k,1030) * b(k,69) - b(k,77) = b(k,77) - lu(k,1031) * b(k,69) - b(k,78) = b(k,78) - lu(k,1032) * b(k,69) - b(k,79) = b(k,79) - lu(k,1033) * b(k,69) - b(k,80) = b(k,80) - lu(k,1034) * b(k,69) - b(k,81) = b(k,81) - lu(k,1035) * b(k,69) - b(k,82) = b(k,82) - lu(k,1036) * b(k,69) - b(k,83) = b(k,83) - lu(k,1037) * b(k,69) - b(k,84) = b(k,84) - lu(k,1038) * b(k,69) - b(k,85) = b(k,85) - lu(k,1039) * b(k,69) - b(k,86) = b(k,86) - lu(k,1040) * b(k,69) - b(k,87) = b(k,87) - lu(k,1041) * b(k,69) - b(k,88) = b(k,88) - lu(k,1042) * b(k,69) - b(k,71) = b(k,71) - lu(k,1067) * b(k,70) - b(k,72) = b(k,72) - lu(k,1068) * b(k,70) - b(k,73) = b(k,73) - lu(k,1069) * b(k,70) - b(k,74) = b(k,74) - lu(k,1070) * b(k,70) - b(k,75) = b(k,75) - lu(k,1071) * b(k,70) - b(k,76) = b(k,76) - lu(k,1072) * b(k,70) - b(k,77) = b(k,77) - lu(k,1073) * b(k,70) - b(k,78) = b(k,78) - lu(k,1074) * b(k,70) - b(k,79) = b(k,79) - lu(k,1075) * b(k,70) - b(k,80) = b(k,80) - lu(k,1076) * b(k,70) - b(k,81) = b(k,81) - lu(k,1077) * b(k,70) - b(k,82) = b(k,82) - lu(k,1078) * b(k,70) - b(k,83) = b(k,83) - lu(k,1079) * b(k,70) - b(k,84) = b(k,84) - lu(k,1080) * b(k,70) - b(k,85) = b(k,85) - lu(k,1081) * b(k,70) - b(k,86) = b(k,86) - lu(k,1082) * b(k,70) - b(k,87) = b(k,87) - lu(k,1083) * b(k,70) - b(k,88) = b(k,88) - lu(k,1084) * b(k,70) - b(k,72) = b(k,72) - lu(k,1108) * b(k,71) - b(k,73) = b(k,73) - lu(k,1109) * b(k,71) - b(k,74) = b(k,74) - lu(k,1110) * b(k,71) - b(k,75) = b(k,75) - lu(k,1111) * b(k,71) - b(k,76) = b(k,76) - lu(k,1112) * b(k,71) - b(k,77) = b(k,77) - lu(k,1113) * b(k,71) - b(k,78) = b(k,78) - lu(k,1114) * b(k,71) - b(k,79) = b(k,79) - lu(k,1115) * b(k,71) - b(k,80) = b(k,80) - lu(k,1116) * b(k,71) - b(k,81) = b(k,81) - lu(k,1117) * b(k,71) - b(k,82) = b(k,82) - lu(k,1118) * b(k,71) - b(k,83) = b(k,83) - lu(k,1119) * b(k,71) - b(k,84) = b(k,84) - lu(k,1120) * b(k,71) - b(k,85) = b(k,85) - lu(k,1121) * b(k,71) - b(k,86) = b(k,86) - lu(k,1122) * b(k,71) - b(k,87) = b(k,87) - lu(k,1123) * b(k,71) - b(k,88) = b(k,88) - lu(k,1124) * b(k,71) - b(k,73) = b(k,73) - lu(k,1154) * b(k,72) - b(k,74) = b(k,74) - lu(k,1155) * b(k,72) - b(k,75) = b(k,75) - lu(k,1156) * b(k,72) - b(k,76) = b(k,76) - lu(k,1157) * b(k,72) - b(k,77) = b(k,77) - lu(k,1158) * b(k,72) - b(k,78) = b(k,78) - lu(k,1159) * b(k,72) - b(k,79) = b(k,79) - lu(k,1160) * b(k,72) - b(k,80) = b(k,80) - lu(k,1161) * b(k,72) - b(k,81) = b(k,81) - lu(k,1162) * b(k,72) - b(k,82) = b(k,82) - lu(k,1163) * b(k,72) - b(k,83) = b(k,83) - lu(k,1164) * b(k,72) - b(k,84) = b(k,84) - lu(k,1165) * b(k,72) - b(k,85) = b(k,85) - lu(k,1166) * b(k,72) - b(k,86) = b(k,86) - lu(k,1167) * b(k,72) - b(k,87) = b(k,87) - lu(k,1168) * b(k,72) - b(k,88) = b(k,88) - lu(k,1169) * b(k,72) - b(k,74) = b(k,74) - lu(k,1198) * b(k,73) - b(k,75) = b(k,75) - lu(k,1199) * b(k,73) - b(k,76) = b(k,76) - lu(k,1200) * b(k,73) - b(k,77) = b(k,77) - lu(k,1201) * b(k,73) - b(k,78) = b(k,78) - lu(k,1202) * b(k,73) - b(k,79) = b(k,79) - lu(k,1203) * b(k,73) - b(k,80) = b(k,80) - lu(k,1204) * b(k,73) - b(k,81) = b(k,81) - lu(k,1205) * b(k,73) - b(k,82) = b(k,82) - lu(k,1206) * b(k,73) - b(k,83) = b(k,83) - lu(k,1207) * b(k,73) - b(k,84) = b(k,84) - lu(k,1208) * b(k,73) - b(k,85) = b(k,85) - lu(k,1209) * b(k,73) - b(k,86) = b(k,86) - lu(k,1210) * b(k,73) - b(k,87) = b(k,87) - lu(k,1211) * b(k,73) - b(k,88) = b(k,88) - lu(k,1212) * b(k,73) - b(k,75) = b(k,75) - lu(k,1234) * b(k,74) - b(k,76) = b(k,76) - lu(k,1235) * b(k,74) - b(k,77) = b(k,77) - lu(k,1236) * b(k,74) - b(k,78) = b(k,78) - lu(k,1237) * b(k,74) - b(k,79) = b(k,79) - lu(k,1238) * b(k,74) - b(k,80) = b(k,80) - lu(k,1239) * b(k,74) - b(k,81) = b(k,81) - lu(k,1240) * b(k,74) - b(k,82) = b(k,82) - lu(k,1241) * b(k,74) - b(k,83) = b(k,83) - lu(k,1242) * b(k,74) - b(k,84) = b(k,84) - lu(k,1243) * b(k,74) - b(k,85) = b(k,85) - lu(k,1244) * b(k,74) - b(k,86) = b(k,86) - lu(k,1245) * b(k,74) - b(k,87) = b(k,87) - lu(k,1246) * b(k,74) - b(k,88) = b(k,88) - lu(k,1247) * b(k,74) - end do + b(66) = b(66) - lu(818) * b(65) + b(67) = b(67) - lu(819) * b(65) + b(68) = b(68) - lu(820) * b(65) + b(69) = b(69) - lu(821) * b(65) + b(70) = b(70) - lu(822) * b(65) + b(71) = b(71) - lu(823) * b(65) + b(72) = b(72) - lu(824) * b(65) + b(73) = b(73) - lu(825) * b(65) + b(74) = b(74) - lu(826) * b(65) + b(75) = b(75) - lu(827) * b(65) + b(76) = b(76) - lu(828) * b(65) + b(77) = b(77) - lu(829) * b(65) + b(78) = b(78) - lu(830) * b(65) + b(79) = b(79) - lu(831) * b(65) + b(80) = b(80) - lu(832) * b(65) + b(81) = b(81) - lu(833) * b(65) + b(82) = b(82) - lu(834) * b(65) + b(83) = b(83) - lu(835) * b(65) + b(84) = b(84) - lu(836) * b(65) + b(85) = b(85) - lu(837) * b(65) + b(86) = b(86) - lu(838) * b(65) + b(87) = b(87) - lu(839) * b(65) + b(67) = b(67) - lu(861) * b(66) + b(68) = b(68) - lu(862) * b(66) + b(69) = b(69) - lu(863) * b(66) + b(70) = b(70) - lu(864) * b(66) + b(71) = b(71) - lu(865) * b(66) + b(72) = b(72) - lu(866) * b(66) + b(73) = b(73) - lu(867) * b(66) + b(74) = b(74) - lu(868) * b(66) + b(75) = b(75) - lu(869) * b(66) + b(76) = b(76) - lu(870) * b(66) + b(77) = b(77) - lu(871) * b(66) + b(78) = b(78) - lu(872) * b(66) + b(79) = b(79) - lu(873) * b(66) + b(80) = b(80) - lu(874) * b(66) + b(81) = b(81) - lu(875) * b(66) + b(82) = b(82) - lu(876) * b(66) + b(83) = b(83) - lu(877) * b(66) + b(84) = b(84) - lu(878) * b(66) + b(85) = b(85) - lu(879) * b(66) + b(86) = b(86) - lu(880) * b(66) + b(87) = b(87) - lu(881) * b(66) + b(68) = b(68) - lu(906) * b(67) + b(69) = b(69) - lu(907) * b(67) + b(70) = b(70) - lu(908) * b(67) + b(71) = b(71) - lu(909) * b(67) + b(72) = b(72) - lu(910) * b(67) + b(73) = b(73) - lu(911) * b(67) + b(74) = b(74) - lu(912) * b(67) + b(75) = b(75) - lu(913) * b(67) + b(76) = b(76) - lu(914) * b(67) + b(77) = b(77) - lu(915) * b(67) + b(78) = b(78) - lu(916) * b(67) + b(79) = b(79) - lu(917) * b(67) + b(80) = b(80) - lu(918) * b(67) + b(81) = b(81) - lu(919) * b(67) + b(82) = b(82) - lu(920) * b(67) + b(83) = b(83) - lu(921) * b(67) + b(84) = b(84) - lu(922) * b(67) + b(85) = b(85) - lu(923) * b(67) + b(86) = b(86) - lu(924) * b(67) + b(87) = b(87) - lu(925) * b(67) + b(69) = b(69) - lu(942) * b(68) + b(70) = b(70) - lu(943) * b(68) + b(71) = b(71) - lu(944) * b(68) + b(72) = b(72) - lu(945) * b(68) + b(73) = b(73) - lu(946) * b(68) + b(74) = b(74) - lu(947) * b(68) + b(75) = b(75) - lu(948) * b(68) + b(76) = b(76) - lu(949) * b(68) + b(77) = b(77) - lu(950) * b(68) + b(78) = b(78) - lu(951) * b(68) + b(79) = b(79) - lu(952) * b(68) + b(80) = b(80) - lu(953) * b(68) + b(81) = b(81) - lu(954) * b(68) + b(82) = b(82) - lu(955) * b(68) + b(83) = b(83) - lu(956) * b(68) + b(84) = b(84) - lu(957) * b(68) + b(85) = b(85) - lu(958) * b(68) + b(86) = b(86) - lu(959) * b(68) + b(87) = b(87) - lu(960) * b(68) + b(70) = b(70) - lu(984) * b(69) + b(71) = b(71) - lu(985) * b(69) + b(72) = b(72) - lu(986) * b(69) + b(73) = b(73) - lu(987) * b(69) + b(74) = b(74) - lu(988) * b(69) + b(75) = b(75) - lu(989) * b(69) + b(76) = b(76) - lu(990) * b(69) + b(77) = b(77) - lu(991) * b(69) + b(78) = b(78) - lu(992) * b(69) + b(79) = b(79) - lu(993) * b(69) + b(80) = b(80) - lu(994) * b(69) + b(81) = b(81) - lu(995) * b(69) + b(82) = b(82) - lu(996) * b(69) + b(83) = b(83) - lu(997) * b(69) + b(84) = b(84) - lu(998) * b(69) + b(85) = b(85) - lu(999) * b(69) + b(86) = b(86) - lu(1000) * b(69) + b(87) = b(87) - lu(1001) * b(69) + b(71) = b(71) - lu(1027) * b(70) + b(72) = b(72) - lu(1028) * b(70) + b(73) = b(73) - lu(1029) * b(70) + b(74) = b(74) - lu(1030) * b(70) + b(75) = b(75) - lu(1031) * b(70) + b(76) = b(76) - lu(1032) * b(70) + b(77) = b(77) - lu(1033) * b(70) + b(78) = b(78) - lu(1034) * b(70) + b(79) = b(79) - lu(1035) * b(70) + b(80) = b(80) - lu(1036) * b(70) + b(81) = b(81) - lu(1037) * b(70) + b(82) = b(82) - lu(1038) * b(70) + b(83) = b(83) - lu(1039) * b(70) + b(84) = b(84) - lu(1040) * b(70) + b(85) = b(85) - lu(1041) * b(70) + b(86) = b(86) - lu(1042) * b(70) + b(87) = b(87) - lu(1043) * b(70) + b(72) = b(72) - lu(1072) * b(71) + b(73) = b(73) - lu(1073) * b(71) + b(74) = b(74) - lu(1074) * b(71) + b(75) = b(75) - lu(1075) * b(71) + b(76) = b(76) - lu(1076) * b(71) + b(77) = b(77) - lu(1077) * b(71) + b(78) = b(78) - lu(1078) * b(71) + b(79) = b(79) - lu(1079) * b(71) + b(80) = b(80) - lu(1080) * b(71) + b(81) = b(81) - lu(1081) * b(71) + b(82) = b(82) - lu(1082) * b(71) + b(83) = b(83) - lu(1083) * b(71) + b(84) = b(84) - lu(1084) * b(71) + b(85) = b(85) - lu(1085) * b(71) + b(86) = b(86) - lu(1086) * b(71) + b(87) = b(87) - lu(1087) * b(71) + b(73) = b(73) - lu(1115) * b(72) + b(74) = b(74) - lu(1116) * b(72) + b(75) = b(75) - lu(1117) * b(72) + b(76) = b(76) - lu(1118) * b(72) + b(77) = b(77) - lu(1119) * b(72) + b(78) = b(78) - lu(1120) * b(72) + b(79) = b(79) - lu(1121) * b(72) + b(80) = b(80) - lu(1122) * b(72) + b(81) = b(81) - lu(1123) * b(72) + b(82) = b(82) - lu(1124) * b(72) + b(83) = b(83) - lu(1125) * b(72) + b(84) = b(84) - lu(1126) * b(72) + b(85) = b(85) - lu(1127) * b(72) + b(86) = b(86) - lu(1128) * b(72) + b(87) = b(87) - lu(1129) * b(72) + b(74) = b(74) - lu(1159) * b(73) + b(75) = b(75) - lu(1160) * b(73) + b(76) = b(76) - lu(1161) * b(73) + b(77) = b(77) - lu(1162) * b(73) + b(78) = b(78) - lu(1163) * b(73) + b(79) = b(79) - lu(1164) * b(73) + b(80) = b(80) - lu(1165) * b(73) + b(81) = b(81) - lu(1166) * b(73) + b(82) = b(82) - lu(1167) * b(73) + b(83) = b(83) - lu(1168) * b(73) + b(84) = b(84) - lu(1169) * b(73) + b(85) = b(85) - lu(1170) * b(73) + b(86) = b(86) - lu(1171) * b(73) + b(87) = b(87) - lu(1172) * b(73) + b(75) = b(75) - lu(1202) * b(74) + b(76) = b(76) - lu(1203) * b(74) + b(77) = b(77) - lu(1204) * b(74) + b(78) = b(78) - lu(1205) * b(74) + b(79) = b(79) - lu(1206) * b(74) + b(80) = b(80) - lu(1207) * b(74) + b(81) = b(81) - lu(1208) * b(74) + b(82) = b(82) - lu(1209) * b(74) + b(83) = b(83) - lu(1210) * b(74) + b(84) = b(84) - lu(1211) * b(74) + b(85) = b(85) - lu(1212) * b(74) + b(86) = b(86) - lu(1213) * b(74) + b(87) = b(87) - lu(1214) * b(74) + b(76) = b(76) - lu(1238) * b(75) + b(77) = b(77) - lu(1239) * b(75) + b(78) = b(78) - lu(1240) * b(75) + b(79) = b(79) - lu(1241) * b(75) + b(80) = b(80) - lu(1242) * b(75) + b(81) = b(81) - lu(1243) * b(75) + b(82) = b(82) - lu(1244) * b(75) + b(83) = b(83) - lu(1245) * b(75) + b(84) = b(84) - lu(1246) * b(75) + b(85) = b(85) - lu(1247) * b(75) + b(86) = b(86) - lu(1248) * b(75) + b(87) = b(87) - lu(1249) * b(75) + b(77) = b(77) - lu(1283) * b(76) + b(78) = b(78) - lu(1284) * b(76) + b(79) = b(79) - lu(1285) * b(76) + b(80) = b(80) - lu(1286) * b(76) + b(81) = b(81) - lu(1287) * b(76) + b(82) = b(82) - lu(1288) * b(76) + b(83) = b(83) - lu(1289) * b(76) + b(84) = b(84) - lu(1290) * b(76) + b(85) = b(85) - lu(1291) * b(76) + b(86) = b(86) - lu(1292) * b(76) + b(87) = b(87) - lu(1293) * b(76) + b(78) = b(78) - lu(1325) * b(77) + b(79) = b(79) - lu(1326) * b(77) + b(80) = b(80) - lu(1327) * b(77) + b(81) = b(81) - lu(1328) * b(77) + b(82) = b(82) - lu(1329) * b(77) + b(83) = b(83) - lu(1330) * b(77) + b(84) = b(84) - lu(1331) * b(77) + b(85) = b(85) - lu(1332) * b(77) + b(86) = b(86) - lu(1333) * b(77) + b(87) = b(87) - lu(1334) * b(77) end subroutine lu_slv04 - subroutine lu_slv05( avec_len, lu, b ) + subroutine lu_slv05( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,76) = b(k,76) - lu(k,1278) * b(k,75) - b(k,77) = b(k,77) - lu(k,1279) * b(k,75) - b(k,78) = b(k,78) - lu(k,1280) * b(k,75) - b(k,79) = b(k,79) - lu(k,1281) * b(k,75) - b(k,80) = b(k,80) - lu(k,1282) * b(k,75) - b(k,81) = b(k,81) - lu(k,1283) * b(k,75) - b(k,82) = b(k,82) - lu(k,1284) * b(k,75) - b(k,83) = b(k,83) - lu(k,1285) * b(k,75) - b(k,84) = b(k,84) - lu(k,1286) * b(k,75) - b(k,85) = b(k,85) - lu(k,1287) * b(k,75) - b(k,86) = b(k,86) - lu(k,1288) * b(k,75) - b(k,87) = b(k,87) - lu(k,1289) * b(k,75) - b(k,88) = b(k,88) - lu(k,1290) * b(k,75) - b(k,77) = b(k,77) - lu(k,1315) * b(k,76) - b(k,78) = b(k,78) - lu(k,1316) * b(k,76) - b(k,79) = b(k,79) - lu(k,1317) * b(k,76) - b(k,80) = b(k,80) - lu(k,1318) * b(k,76) - b(k,81) = b(k,81) - lu(k,1319) * b(k,76) - b(k,82) = b(k,82) - lu(k,1320) * b(k,76) - b(k,83) = b(k,83) - lu(k,1321) * b(k,76) - b(k,84) = b(k,84) - lu(k,1322) * b(k,76) - b(k,85) = b(k,85) - lu(k,1323) * b(k,76) - b(k,86) = b(k,86) - lu(k,1324) * b(k,76) - b(k,87) = b(k,87) - lu(k,1325) * b(k,76) - b(k,88) = b(k,88) - lu(k,1326) * b(k,76) - b(k,78) = b(k,78) - lu(k,1361) * b(k,77) - b(k,79) = b(k,79) - lu(k,1362) * b(k,77) - b(k,80) = b(k,80) - lu(k,1363) * b(k,77) - b(k,81) = b(k,81) - lu(k,1364) * b(k,77) - b(k,82) = b(k,82) - lu(k,1365) * b(k,77) - b(k,83) = b(k,83) - lu(k,1366) * b(k,77) - b(k,84) = b(k,84) - lu(k,1367) * b(k,77) - b(k,85) = b(k,85) - lu(k,1368) * b(k,77) - b(k,86) = b(k,86) - lu(k,1369) * b(k,77) - b(k,87) = b(k,87) - lu(k,1370) * b(k,77) - b(k,88) = b(k,88) - lu(k,1371) * b(k,77) - b(k,79) = b(k,79) - lu(k,1404) * b(k,78) - b(k,80) = b(k,80) - lu(k,1405) * b(k,78) - b(k,81) = b(k,81) - lu(k,1406) * b(k,78) - b(k,82) = b(k,82) - lu(k,1407) * b(k,78) - b(k,83) = b(k,83) - lu(k,1408) * b(k,78) - b(k,84) = b(k,84) - lu(k,1409) * b(k,78) - b(k,85) = b(k,85) - lu(k,1410) * b(k,78) - b(k,86) = b(k,86) - lu(k,1411) * b(k,78) - b(k,87) = b(k,87) - lu(k,1412) * b(k,78) - b(k,88) = b(k,88) - lu(k,1413) * b(k,78) - b(k,80) = b(k,80) - lu(k,1443) * b(k,79) - b(k,81) = b(k,81) - lu(k,1444) * b(k,79) - b(k,82) = b(k,82) - lu(k,1445) * b(k,79) - b(k,83) = b(k,83) - lu(k,1446) * b(k,79) - b(k,84) = b(k,84) - lu(k,1447) * b(k,79) - b(k,85) = b(k,85) - lu(k,1448) * b(k,79) - b(k,86) = b(k,86) - lu(k,1449) * b(k,79) - b(k,87) = b(k,87) - lu(k,1450) * b(k,79) - b(k,88) = b(k,88) - lu(k,1451) * b(k,79) - b(k,81) = b(k,81) - lu(k,1489) * b(k,80) - b(k,82) = b(k,82) - lu(k,1490) * b(k,80) - b(k,83) = b(k,83) - lu(k,1491) * b(k,80) - b(k,84) = b(k,84) - lu(k,1492) * b(k,80) - b(k,85) = b(k,85) - lu(k,1493) * b(k,80) - b(k,86) = b(k,86) - lu(k,1494) * b(k,80) - b(k,87) = b(k,87) - lu(k,1495) * b(k,80) - b(k,88) = b(k,88) - lu(k,1496) * b(k,80) - b(k,82) = b(k,82) - lu(k,1533) * b(k,81) - b(k,83) = b(k,83) - lu(k,1534) * b(k,81) - b(k,84) = b(k,84) - lu(k,1535) * b(k,81) - b(k,85) = b(k,85) - lu(k,1536) * b(k,81) - b(k,86) = b(k,86) - lu(k,1537) * b(k,81) - b(k,87) = b(k,87) - lu(k,1538) * b(k,81) - b(k,88) = b(k,88) - lu(k,1539) * b(k,81) - b(k,83) = b(k,83) - lu(k,1577) * b(k,82) - b(k,84) = b(k,84) - lu(k,1578) * b(k,82) - b(k,85) = b(k,85) - lu(k,1579) * b(k,82) - b(k,86) = b(k,86) - lu(k,1580) * b(k,82) - b(k,87) = b(k,87) - lu(k,1581) * b(k,82) - b(k,88) = b(k,88) - lu(k,1582) * b(k,82) - b(k,84) = b(k,84) - lu(k,1611) * b(k,83) - b(k,85) = b(k,85) - lu(k,1612) * b(k,83) - b(k,86) = b(k,86) - lu(k,1613) * b(k,83) - b(k,87) = b(k,87) - lu(k,1614) * b(k,83) - b(k,88) = b(k,88) - lu(k,1615) * b(k,83) - b(k,85) = b(k,85) - lu(k,1648) * b(k,84) - b(k,86) = b(k,86) - lu(k,1649) * b(k,84) - b(k,87) = b(k,87) - lu(k,1650) * b(k,84) - b(k,88) = b(k,88) - lu(k,1651) * b(k,84) - b(k,86) = b(k,86) - lu(k,1692) * b(k,85) - b(k,87) = b(k,87) - lu(k,1693) * b(k,85) - b(k,88) = b(k,88) - lu(k,1694) * b(k,85) - b(k,87) = b(k,87) - lu(k,1729) * b(k,86) - b(k,88) = b(k,88) - lu(k,1730) * b(k,86) - b(k,88) = b(k,88) - lu(k,1772) * b(k,87) - end do + b(79) = b(79) - lu(1368) * b(78) + b(80) = b(80) - lu(1369) * b(78) + b(81) = b(81) - lu(1370) * b(78) + b(82) = b(82) - lu(1371) * b(78) + b(83) = b(83) - lu(1372) * b(78) + b(84) = b(84) - lu(1373) * b(78) + b(85) = b(85) - lu(1374) * b(78) + b(86) = b(86) - lu(1375) * b(78) + b(87) = b(87) - lu(1376) * b(78) + b(80) = b(80) - lu(1411) * b(79) + b(81) = b(81) - lu(1412) * b(79) + b(82) = b(82) - lu(1413) * b(79) + b(83) = b(83) - lu(1414) * b(79) + b(84) = b(84) - lu(1415) * b(79) + b(85) = b(85) - lu(1416) * b(79) + b(86) = b(86) - lu(1417) * b(79) + b(87) = b(87) - lu(1418) * b(79) + b(81) = b(81) - lu(1454) * b(80) + b(82) = b(82) - lu(1455) * b(80) + b(83) = b(83) - lu(1456) * b(80) + b(84) = b(84) - lu(1457) * b(80) + b(85) = b(85) - lu(1458) * b(80) + b(86) = b(86) - lu(1459) * b(80) + b(87) = b(87) - lu(1460) * b(80) + b(82) = b(82) - lu(1510) * b(81) + b(83) = b(83) - lu(1511) * b(81) + b(84) = b(84) - lu(1512) * b(81) + b(85) = b(85) - lu(1513) * b(81) + b(86) = b(86) - lu(1514) * b(81) + b(87) = b(87) - lu(1515) * b(81) + b(83) = b(83) - lu(1543) * b(82) + b(84) = b(84) - lu(1544) * b(82) + b(85) = b(85) - lu(1545) * b(82) + b(86) = b(86) - lu(1546) * b(82) + b(87) = b(87) - lu(1547) * b(82) + b(84) = b(84) - lu(1579) * b(83) + b(85) = b(85) - lu(1580) * b(83) + b(86) = b(86) - lu(1581) * b(83) + b(87) = b(87) - lu(1582) * b(83) + b(85) = b(85) - lu(1618) * b(84) + b(86) = b(86) - lu(1619) * b(84) + b(87) = b(87) - lu(1620) * b(84) + b(86) = b(86) - lu(1658) * b(85) + b(87) = b(87) - lu(1659) * b(85) + b(87) = b(87) - lu(1693) * b(86) end subroutine lu_slv05 - subroutine lu_slv06( avec_len, lu, b ) + subroutine lu_slv06( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len !----------------------------------------------------------------------- ! ... Solve U * x = y !----------------------------------------------------------------------- - b(k,88) = b(k,88) * lu(k,1825) - b(k,87) = b(k,87) - lu(k,1824) * b(k,88) - b(k,86) = b(k,86) - lu(k,1823) * b(k,88) - b(k,85) = b(k,85) - lu(k,1822) * b(k,88) - b(k,84) = b(k,84) - lu(k,1821) * b(k,88) - b(k,83) = b(k,83) - lu(k,1820) * b(k,88) - b(k,82) = b(k,82) - lu(k,1819) * b(k,88) - b(k,81) = b(k,81) - lu(k,1818) * b(k,88) - b(k,80) = b(k,80) - lu(k,1817) * b(k,88) - b(k,79) = b(k,79) - lu(k,1816) * b(k,88) - b(k,78) = b(k,78) - lu(k,1815) * b(k,88) - b(k,77) = b(k,77) - lu(k,1814) * b(k,88) - b(k,76) = b(k,76) - lu(k,1813) * b(k,88) - b(k,75) = b(k,75) - lu(k,1812) * b(k,88) - b(k,74) = b(k,74) - lu(k,1811) * b(k,88) - b(k,73) = b(k,73) - lu(k,1810) * b(k,88) - b(k,72) = b(k,72) - lu(k,1809) * b(k,88) - b(k,71) = b(k,71) - lu(k,1808) * b(k,88) - b(k,70) = b(k,70) - lu(k,1807) * b(k,88) - b(k,69) = b(k,69) - lu(k,1806) * b(k,88) - b(k,68) = b(k,68) - lu(k,1805) * b(k,88) - b(k,67) = b(k,67) - lu(k,1804) * b(k,88) - b(k,66) = b(k,66) - lu(k,1803) * b(k,88) - b(k,65) = b(k,65) - lu(k,1802) * b(k,88) - b(k,64) = b(k,64) - lu(k,1801) * b(k,88) - b(k,63) = b(k,63) - lu(k,1800) * b(k,88) - b(k,62) = b(k,62) - lu(k,1799) * b(k,88) - b(k,61) = b(k,61) - lu(k,1798) * b(k,88) - b(k,60) = b(k,60) - lu(k,1797) * b(k,88) - b(k,58) = b(k,58) - lu(k,1796) * b(k,88) - b(k,57) = b(k,57) - lu(k,1795) * b(k,88) - b(k,56) = b(k,56) - lu(k,1794) * b(k,88) - b(k,55) = b(k,55) - lu(k,1793) * b(k,88) - b(k,54) = b(k,54) - lu(k,1792) * b(k,88) - b(k,53) = b(k,53) - lu(k,1791) * b(k,88) - b(k,50) = b(k,50) - lu(k,1790) * b(k,88) - b(k,47) = b(k,47) - lu(k,1789) * b(k,88) - b(k,46) = b(k,46) - lu(k,1788) * b(k,88) - b(k,43) = b(k,43) - lu(k,1787) * b(k,88) - b(k,41) = b(k,41) - lu(k,1786) * b(k,88) - b(k,39) = b(k,39) - lu(k,1785) * b(k,88) - b(k,30) = b(k,30) - lu(k,1784) * b(k,88) - b(k,27) = b(k,27) - lu(k,1783) * b(k,88) - b(k,26) = b(k,26) - lu(k,1782) * b(k,88) - b(k,24) = b(k,24) - lu(k,1781) * b(k,88) - b(k,23) = b(k,23) - lu(k,1780) * b(k,88) - b(k,22) = b(k,22) - lu(k,1779) * b(k,88) - b(k,21) = b(k,21) - lu(k,1778) * b(k,88) - b(k,13) = b(k,13) - lu(k,1777) * b(k,88) - b(k,11) = b(k,11) - lu(k,1776) * b(k,88) - b(k,9) = b(k,9) - lu(k,1775) * b(k,88) - b(k,8) = b(k,8) - lu(k,1774) * b(k,88) - b(k,7) = b(k,7) - lu(k,1773) * b(k,88) - b(k,87) = b(k,87) * lu(k,1771) - b(k,86) = b(k,86) - lu(k,1770) * b(k,87) - b(k,85) = b(k,85) - lu(k,1769) * b(k,87) - b(k,84) = b(k,84) - lu(k,1768) * b(k,87) - b(k,83) = b(k,83) - lu(k,1767) * b(k,87) - b(k,82) = b(k,82) - lu(k,1766) * b(k,87) - b(k,81) = b(k,81) - lu(k,1765) * b(k,87) - b(k,80) = b(k,80) - lu(k,1764) * b(k,87) - b(k,79) = b(k,79) - lu(k,1763) * b(k,87) - b(k,78) = b(k,78) - lu(k,1762) * b(k,87) - b(k,77) = b(k,77) - lu(k,1761) * b(k,87) - b(k,76) = b(k,76) - lu(k,1760) * b(k,87) - b(k,75) = b(k,75) - lu(k,1759) * b(k,87) - b(k,74) = b(k,74) - lu(k,1758) * b(k,87) - b(k,73) = b(k,73) - lu(k,1757) * b(k,87) - b(k,72) = b(k,72) - lu(k,1756) * b(k,87) - b(k,71) = b(k,71) - lu(k,1755) * b(k,87) - b(k,70) = b(k,70) - lu(k,1754) * b(k,87) - b(k,69) = b(k,69) - lu(k,1753) * b(k,87) - b(k,68) = b(k,68) - lu(k,1752) * b(k,87) - b(k,67) = b(k,67) - lu(k,1751) * b(k,87) - b(k,66) = b(k,66) - lu(k,1750) * b(k,87) - b(k,65) = b(k,65) - lu(k,1749) * b(k,87) - b(k,64) = b(k,64) - lu(k,1748) * b(k,87) - b(k,63) = b(k,63) - lu(k,1747) * b(k,87) - b(k,62) = b(k,62) - lu(k,1746) * b(k,87) - b(k,61) = b(k,61) - lu(k,1745) * b(k,87) - b(k,60) = b(k,60) - lu(k,1744) * b(k,87) - b(k,58) = b(k,58) - lu(k,1743) * b(k,87) - b(k,57) = b(k,57) - lu(k,1742) * b(k,87) - b(k,56) = b(k,56) - lu(k,1741) * b(k,87) - b(k,55) = b(k,55) - lu(k,1740) * b(k,87) - b(k,54) = b(k,54) - lu(k,1739) * b(k,87) - b(k,52) = b(k,52) - lu(k,1738) * b(k,87) - b(k,49) = b(k,49) - lu(k,1737) * b(k,87) - b(k,47) = b(k,47) - lu(k,1736) * b(k,87) - b(k,44) = b(k,44) - lu(k,1735) * b(k,87) - b(k,40) = b(k,40) - lu(k,1734) * b(k,87) - b(k,39) = b(k,39) - lu(k,1733) * b(k,87) - b(k,35) = b(k,35) - lu(k,1732) * b(k,87) - b(k,24) = b(k,24) - lu(k,1731) * b(k,87) - b(k,86) = b(k,86) * lu(k,1728) - b(k,85) = b(k,85) - lu(k,1727) * b(k,86) - b(k,84) = b(k,84) - lu(k,1726) * b(k,86) - b(k,83) = b(k,83) - lu(k,1725) * b(k,86) - b(k,82) = b(k,82) - lu(k,1724) * b(k,86) - b(k,81) = b(k,81) - lu(k,1723) * b(k,86) - b(k,80) = b(k,80) - lu(k,1722) * b(k,86) - b(k,79) = b(k,79) - lu(k,1721) * b(k,86) - b(k,78) = b(k,78) - lu(k,1720) * b(k,86) - b(k,77) = b(k,77) - lu(k,1719) * b(k,86) - b(k,76) = b(k,76) - lu(k,1718) * b(k,86) - b(k,75) = b(k,75) - lu(k,1717) * b(k,86) - b(k,74) = b(k,74) - lu(k,1716) * b(k,86) - b(k,73) = b(k,73) - lu(k,1715) * b(k,86) - b(k,72) = b(k,72) - lu(k,1714) * b(k,86) - b(k,71) = b(k,71) - lu(k,1713) * b(k,86) - b(k,70) = b(k,70) - lu(k,1712) * b(k,86) - b(k,69) = b(k,69) - lu(k,1711) * b(k,86) - b(k,68) = b(k,68) - lu(k,1710) * b(k,86) - b(k,67) = b(k,67) - lu(k,1709) * b(k,86) - b(k,66) = b(k,66) - lu(k,1708) * b(k,86) - b(k,65) = b(k,65) - lu(k,1707) * b(k,86) - b(k,64) = b(k,64) - lu(k,1706) * b(k,86) - b(k,63) = b(k,63) - lu(k,1705) * b(k,86) - b(k,62) = b(k,62) - lu(k,1704) * b(k,86) - b(k,61) = b(k,61) - lu(k,1703) * b(k,86) - b(k,60) = b(k,60) - lu(k,1702) * b(k,86) - b(k,59) = b(k,59) - lu(k,1701) * b(k,86) - b(k,58) = b(k,58) - lu(k,1700) * b(k,86) - b(k,57) = b(k,57) - lu(k,1699) * b(k,86) - b(k,56) = b(k,56) - lu(k,1698) * b(k,86) - b(k,50) = b(k,50) - lu(k,1697) * b(k,86) - b(k,49) = b(k,49) - lu(k,1696) * b(k,86) - b(k,26) = b(k,26) - lu(k,1695) * b(k,86) - b(k,85) = b(k,85) * lu(k,1691) - b(k,84) = b(k,84) - lu(k,1690) * b(k,85) - b(k,83) = b(k,83) - lu(k,1689) * b(k,85) - b(k,82) = b(k,82) - lu(k,1688) * b(k,85) - b(k,81) = b(k,81) - lu(k,1687) * b(k,85) - b(k,80) = b(k,80) - lu(k,1686) * b(k,85) - b(k,79) = b(k,79) - lu(k,1685) * b(k,85) - b(k,78) = b(k,78) - lu(k,1684) * b(k,85) - b(k,77) = b(k,77) - lu(k,1683) * b(k,85) - b(k,76) = b(k,76) - lu(k,1682) * b(k,85) - b(k,75) = b(k,75) - lu(k,1681) * b(k,85) - b(k,74) = b(k,74) - lu(k,1680) * b(k,85) - b(k,73) = b(k,73) - lu(k,1679) * b(k,85) - b(k,72) = b(k,72) - lu(k,1678) * b(k,85) - b(k,71) = b(k,71) - lu(k,1677) * b(k,85) - b(k,70) = b(k,70) - lu(k,1676) * b(k,85) - b(k,69) = b(k,69) - lu(k,1675) * b(k,85) - b(k,68) = b(k,68) - lu(k,1674) * b(k,85) - b(k,67) = b(k,67) - lu(k,1673) * b(k,85) - b(k,66) = b(k,66) - lu(k,1672) * b(k,85) - b(k,65) = b(k,65) - lu(k,1671) * b(k,85) - b(k,64) = b(k,64) - lu(k,1670) * b(k,85) - b(k,63) = b(k,63) - lu(k,1669) * b(k,85) - b(k,62) = b(k,62) - lu(k,1668) * b(k,85) - b(k,61) = b(k,61) - lu(k,1667) * b(k,85) - b(k,60) = b(k,60) - lu(k,1666) * b(k,85) - b(k,59) = b(k,59) - lu(k,1665) * b(k,85) - b(k,58) = b(k,58) - lu(k,1664) * b(k,85) - b(k,57) = b(k,57) - lu(k,1663) * b(k,85) - b(k,56) = b(k,56) - lu(k,1662) * b(k,85) - b(k,52) = b(k,52) - lu(k,1661) * b(k,85) - b(k,50) = b(k,50) - lu(k,1660) * b(k,85) - b(k,44) = b(k,44) - lu(k,1659) * b(k,85) - b(k,39) = b(k,39) - lu(k,1658) * b(k,85) - b(k,35) = b(k,35) - lu(k,1657) * b(k,85) - b(k,34) = b(k,34) - lu(k,1656) * b(k,85) - b(k,32) = b(k,32) - lu(k,1655) * b(k,85) - b(k,25) = b(k,25) - lu(k,1654) * b(k,85) - b(k,18) = b(k,18) - lu(k,1653) * b(k,85) - b(k,4) = b(k,4) - lu(k,1652) * b(k,85) - b(k,84) = b(k,84) * lu(k,1647) - b(k,83) = b(k,83) - lu(k,1646) * b(k,84) - b(k,82) = b(k,82) - lu(k,1645) * b(k,84) - b(k,81) = b(k,81) - lu(k,1644) * b(k,84) - b(k,80) = b(k,80) - lu(k,1643) * b(k,84) - b(k,79) = b(k,79) - lu(k,1642) * b(k,84) - b(k,78) = b(k,78) - lu(k,1641) * b(k,84) - b(k,77) = b(k,77) - lu(k,1640) * b(k,84) - b(k,76) = b(k,76) - lu(k,1639) * b(k,84) - b(k,75) = b(k,75) - lu(k,1638) * b(k,84) - b(k,74) = b(k,74) - lu(k,1637) * b(k,84) - b(k,73) = b(k,73) - lu(k,1636) * b(k,84) - b(k,72) = b(k,72) - lu(k,1635) * b(k,84) - b(k,71) = b(k,71) - lu(k,1634) * b(k,84) - b(k,70) = b(k,70) - lu(k,1633) * b(k,84) - b(k,69) = b(k,69) - lu(k,1632) * b(k,84) - b(k,68) = b(k,68) - lu(k,1631) * b(k,84) - b(k,67) = b(k,67) - lu(k,1630) * b(k,84) - b(k,66) = b(k,66) - lu(k,1629) * b(k,84) - b(k,65) = b(k,65) - lu(k,1628) * b(k,84) - b(k,64) = b(k,64) - lu(k,1627) * b(k,84) - b(k,63) = b(k,63) - lu(k,1626) * b(k,84) - b(k,62) = b(k,62) - lu(k,1625) * b(k,84) - b(k,61) = b(k,61) - lu(k,1624) * b(k,84) - b(k,60) = b(k,60) - lu(k,1623) * b(k,84) - b(k,58) = b(k,58) - lu(k,1622) * b(k,84) - b(k,57) = b(k,57) - lu(k,1621) * b(k,84) - b(k,56) = b(k,56) - lu(k,1620) * b(k,84) - b(k,50) = b(k,50) - lu(k,1619) * b(k,84) - b(k,49) = b(k,49) - lu(k,1618) * b(k,84) - b(k,41) = b(k,41) - lu(k,1617) * b(k,84) - b(k,36) = b(k,36) - lu(k,1616) * b(k,84) - b(k,83) = b(k,83) * lu(k,1610) - b(k,82) = b(k,82) - lu(k,1609) * b(k,83) - b(k,81) = b(k,81) - lu(k,1608) * b(k,83) - b(k,80) = b(k,80) - lu(k,1607) * b(k,83) - b(k,79) = b(k,79) - lu(k,1606) * b(k,83) - b(k,78) = b(k,78) - lu(k,1605) * b(k,83) - b(k,77) = b(k,77) - lu(k,1604) * b(k,83) - b(k,76) = b(k,76) - lu(k,1603) * b(k,83) - b(k,75) = b(k,75) - lu(k,1602) * b(k,83) - b(k,74) = b(k,74) - lu(k,1601) * b(k,83) - b(k,73) = b(k,73) - lu(k,1600) * b(k,83) - b(k,72) = b(k,72) - lu(k,1599) * b(k,83) - b(k,71) = b(k,71) - lu(k,1598) * b(k,83) - b(k,70) = b(k,70) - lu(k,1597) * b(k,83) - b(k,69) = b(k,69) - lu(k,1596) * b(k,83) - b(k,68) = b(k,68) - lu(k,1595) * b(k,83) - b(k,67) = b(k,67) - lu(k,1594) * b(k,83) - b(k,66) = b(k,66) - lu(k,1593) * b(k,83) - b(k,65) = b(k,65) - lu(k,1592) * b(k,83) - b(k,64) = b(k,64) - lu(k,1591) * b(k,83) - b(k,63) = b(k,63) - lu(k,1590) * b(k,83) - b(k,62) = b(k,62) - lu(k,1589) * b(k,83) - b(k,61) = b(k,61) - lu(k,1588) * b(k,83) - b(k,60) = b(k,60) - lu(k,1587) * b(k,83) - b(k,58) = b(k,58) - lu(k,1586) * b(k,83) - b(k,49) = b(k,49) - lu(k,1585) * b(k,83) - b(k,42) = b(k,42) - lu(k,1584) * b(k,83) - b(k,35) = b(k,35) - lu(k,1583) * b(k,83) - end do + b(87) = b(87) * lu(1745) + b(86) = b(86) - lu(1744) * b(87) + b(85) = b(85) - lu(1743) * b(87) + b(84) = b(84) - lu(1742) * b(87) + b(83) = b(83) - lu(1741) * b(87) + b(82) = b(82) - lu(1740) * b(87) + b(81) = b(81) - lu(1739) * b(87) + b(80) = b(80) - lu(1738) * b(87) + b(79) = b(79) - lu(1737) * b(87) + b(78) = b(78) - lu(1736) * b(87) + b(77) = b(77) - lu(1735) * b(87) + b(76) = b(76) - lu(1734) * b(87) + b(75) = b(75) - lu(1733) * b(87) + b(74) = b(74) - lu(1732) * b(87) + b(73) = b(73) - lu(1731) * b(87) + b(72) = b(72) - lu(1730) * b(87) + b(71) = b(71) - lu(1729) * b(87) + b(70) = b(70) - lu(1728) * b(87) + b(69) = b(69) - lu(1727) * b(87) + b(68) = b(68) - lu(1726) * b(87) + b(67) = b(67) - lu(1725) * b(87) + b(66) = b(66) - lu(1724) * b(87) + b(65) = b(65) - lu(1723) * b(87) + b(64) = b(64) - lu(1722) * b(87) + b(63) = b(63) - lu(1721) * b(87) + b(62) = b(62) - lu(1720) * b(87) + b(61) = b(61) - lu(1719) * b(87) + b(60) = b(60) - lu(1718) * b(87) + b(59) = b(59) - lu(1717) * b(87) + b(57) = b(57) - lu(1716) * b(87) + b(56) = b(56) - lu(1715) * b(87) + b(55) = b(55) - lu(1714) * b(87) + b(54) = b(54) - lu(1713) * b(87) + b(53) = b(53) - lu(1712) * b(87) + b(51) = b(51) - lu(1711) * b(87) + b(47) = b(47) - lu(1710) * b(87) + b(46) = b(46) - lu(1709) * b(87) + b(43) = b(43) - lu(1708) * b(87) + b(42) = b(42) - lu(1707) * b(87) + b(40) = b(40) - lu(1706) * b(87) + b(29) = b(29) - lu(1705) * b(87) + b(27) = b(27) - lu(1704) * b(87) + b(26) = b(26) - lu(1703) * b(87) + b(25) = b(25) - lu(1702) * b(87) + b(24) = b(24) - lu(1701) * b(87) + b(17) = b(17) - lu(1700) * b(87) + b(16) = b(16) - lu(1699) * b(87) + b(13) = b(13) - lu(1698) * b(87) + b(12) = b(12) - lu(1697) * b(87) + b(10) = b(10) - lu(1696) * b(87) + b(9) = b(9) - lu(1695) * b(87) + b(7) = b(7) - lu(1694) * b(87) + b(86) = b(86) * lu(1692) + b(85) = b(85) - lu(1691) * b(86) + b(84) = b(84) - lu(1690) * b(86) + b(83) = b(83) - lu(1689) * b(86) + b(82) = b(82) - lu(1688) * b(86) + b(81) = b(81) - lu(1687) * b(86) + b(80) = b(80) - lu(1686) * b(86) + b(79) = b(79) - lu(1685) * b(86) + b(78) = b(78) - lu(1684) * b(86) + b(77) = b(77) - lu(1683) * b(86) + b(76) = b(76) - lu(1682) * b(86) + b(75) = b(75) - lu(1681) * b(86) + b(74) = b(74) - lu(1680) * b(86) + b(73) = b(73) - lu(1679) * b(86) + b(72) = b(72) - lu(1678) * b(86) + b(71) = b(71) - lu(1677) * b(86) + b(70) = b(70) - lu(1676) * b(86) + b(69) = b(69) - lu(1675) * b(86) + b(68) = b(68) - lu(1674) * b(86) + b(67) = b(67) - lu(1673) * b(86) + b(66) = b(66) - lu(1672) * b(86) + b(65) = b(65) - lu(1671) * b(86) + b(64) = b(64) - lu(1670) * b(86) + b(62) = b(62) - lu(1669) * b(86) + b(61) = b(61) - lu(1668) * b(86) + b(60) = b(60) - lu(1667) * b(86) + b(57) = b(57) - lu(1666) * b(86) + b(56) = b(56) - lu(1665) * b(86) + b(55) = b(55) - lu(1664) * b(86) + b(53) = b(53) - lu(1663) * b(86) + b(52) = b(52) - lu(1662) * b(86) + b(38) = b(38) - lu(1661) * b(86) + b(21) = b(21) - lu(1660) * b(86) + b(85) = b(85) * lu(1657) + b(84) = b(84) - lu(1656) * b(85) + b(83) = b(83) - lu(1655) * b(85) + b(82) = b(82) - lu(1654) * b(85) + b(81) = b(81) - lu(1653) * b(85) + b(80) = b(80) - lu(1652) * b(85) + b(79) = b(79) - lu(1651) * b(85) + b(78) = b(78) - lu(1650) * b(85) + b(77) = b(77) - lu(1649) * b(85) + b(76) = b(76) - lu(1648) * b(85) + b(75) = b(75) - lu(1647) * b(85) + b(74) = b(74) - lu(1646) * b(85) + b(73) = b(73) - lu(1645) * b(85) + b(72) = b(72) - lu(1644) * b(85) + b(71) = b(71) - lu(1643) * b(85) + b(70) = b(70) - lu(1642) * b(85) + b(69) = b(69) - lu(1641) * b(85) + b(68) = b(68) - lu(1640) * b(85) + b(67) = b(67) - lu(1639) * b(85) + b(66) = b(66) - lu(1638) * b(85) + b(65) = b(65) - lu(1637) * b(85) + b(64) = b(64) - lu(1636) * b(85) + b(63) = b(63) - lu(1635) * b(85) + b(62) = b(62) - lu(1634) * b(85) + b(61) = b(61) - lu(1633) * b(85) + b(60) = b(60) - lu(1632) * b(85) + b(59) = b(59) - lu(1631) * b(85) + b(57) = b(57) - lu(1630) * b(85) + b(56) = b(56) - lu(1629) * b(85) + b(55) = b(55) - lu(1628) * b(85) + b(52) = b(52) - lu(1627) * b(85) + b(51) = b(51) - lu(1626) * b(85) + b(49) = b(49) - lu(1625) * b(85) + b(40) = b(40) - lu(1624) * b(85) + b(29) = b(29) - lu(1623) * b(85) + b(25) = b(25) - lu(1622) * b(85) + b(7) = b(7) - lu(1621) * b(85) + b(84) = b(84) * lu(1617) + b(83) = b(83) - lu(1616) * b(84) + b(82) = b(82) - lu(1615) * b(84) + b(81) = b(81) - lu(1614) * b(84) + b(80) = b(80) - lu(1613) * b(84) + b(79) = b(79) - lu(1612) * b(84) + b(78) = b(78) - lu(1611) * b(84) + b(77) = b(77) - lu(1610) * b(84) + b(76) = b(76) - lu(1609) * b(84) + b(75) = b(75) - lu(1608) * b(84) + b(74) = b(74) - lu(1607) * b(84) + b(73) = b(73) - lu(1606) * b(84) + b(72) = b(72) - lu(1605) * b(84) + b(71) = b(71) - lu(1604) * b(84) + b(70) = b(70) - lu(1603) * b(84) + b(69) = b(69) - lu(1602) * b(84) + b(68) = b(68) - lu(1601) * b(84) + b(67) = b(67) - lu(1600) * b(84) + b(66) = b(66) - lu(1599) * b(84) + b(65) = b(65) - lu(1598) * b(84) + b(64) = b(64) - lu(1597) * b(84) + b(63) = b(63) - lu(1596) * b(84) + b(62) = b(62) - lu(1595) * b(84) + b(61) = b(61) - lu(1594) * b(84) + b(60) = b(60) - lu(1593) * b(84) + b(59) = b(59) - lu(1592) * b(84) + b(58) = b(58) - lu(1591) * b(84) + b(57) = b(57) - lu(1590) * b(84) + b(56) = b(56) - lu(1589) * b(84) + b(50) = b(50) - lu(1588) * b(84) + b(48) = b(48) - lu(1587) * b(84) + b(44) = b(44) - lu(1586) * b(84) + b(42) = b(42) - lu(1585) * b(84) + b(34) = b(34) - lu(1584) * b(84) + b(8) = b(8) - lu(1583) * b(84) + b(83) = b(83) * lu(1578) + b(82) = b(82) - lu(1577) * b(83) + b(81) = b(81) - lu(1576) * b(83) + b(80) = b(80) - lu(1575) * b(83) + b(79) = b(79) - lu(1574) * b(83) + b(78) = b(78) - lu(1573) * b(83) + b(77) = b(77) - lu(1572) * b(83) + b(76) = b(76) - lu(1571) * b(83) + b(75) = b(75) - lu(1570) * b(83) + b(74) = b(74) - lu(1569) * b(83) + b(73) = b(73) - lu(1568) * b(83) + b(72) = b(72) - lu(1567) * b(83) + b(71) = b(71) - lu(1566) * b(83) + b(70) = b(70) - lu(1565) * b(83) + b(69) = b(69) - lu(1564) * b(83) + b(68) = b(68) - lu(1563) * b(83) + b(67) = b(67) - lu(1562) * b(83) + b(66) = b(66) - lu(1561) * b(83) + b(65) = b(65) - lu(1560) * b(83) + b(64) = b(64) - lu(1559) * b(83) + b(63) = b(63) - lu(1558) * b(83) + b(62) = b(62) - lu(1557) * b(83) + b(61) = b(61) - lu(1556) * b(83) + b(60) = b(60) - lu(1555) * b(83) + b(59) = b(59) - lu(1554) * b(83) + b(57) = b(57) - lu(1553) * b(83) + b(56) = b(56) - lu(1552) * b(83) + b(51) = b(51) - lu(1551) * b(83) + b(48) = b(48) - lu(1550) * b(83) + b(42) = b(42) - lu(1549) * b(83) + b(34) = b(34) - lu(1548) * b(83) + b(82) = b(82) * lu(1542) + b(81) = b(81) - lu(1541) * b(82) + b(80) = b(80) - lu(1540) * b(82) + b(79) = b(79) - lu(1539) * b(82) + b(78) = b(78) - lu(1538) * b(82) + b(77) = b(77) - lu(1537) * b(82) + b(76) = b(76) - lu(1536) * b(82) + b(75) = b(75) - lu(1535) * b(82) + b(74) = b(74) - lu(1534) * b(82) + b(73) = b(73) - lu(1533) * b(82) + b(72) = b(72) - lu(1532) * b(82) + b(71) = b(71) - lu(1531) * b(82) + b(70) = b(70) - lu(1530) * b(82) + b(69) = b(69) - lu(1529) * b(82) + b(68) = b(68) - lu(1528) * b(82) + b(67) = b(67) - lu(1527) * b(82) + b(66) = b(66) - lu(1526) * b(82) + b(65) = b(65) - lu(1525) * b(82) + b(64) = b(64) - lu(1524) * b(82) + b(63) = b(63) - lu(1523) * b(82) + b(62) = b(62) - lu(1522) * b(82) + b(61) = b(61) - lu(1521) * b(82) + b(60) = b(60) - lu(1520) * b(82) + b(59) = b(59) - lu(1519) * b(82) + b(48) = b(48) - lu(1518) * b(82) + b(41) = b(41) - lu(1517) * b(82) + b(37) = b(37) - lu(1516) * b(82) end subroutine lu_slv06 - subroutine lu_slv07( avec_len, lu, b ) + subroutine lu_slv07( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,82) = b(k,82) * lu(k,1576) - b(k,81) = b(k,81) - lu(k,1575) * b(k,82) - b(k,80) = b(k,80) - lu(k,1574) * b(k,82) - b(k,79) = b(k,79) - lu(k,1573) * b(k,82) - b(k,78) = b(k,78) - lu(k,1572) * b(k,82) - b(k,77) = b(k,77) - lu(k,1571) * b(k,82) - b(k,76) = b(k,76) - lu(k,1570) * b(k,82) - b(k,75) = b(k,75) - lu(k,1569) * b(k,82) - b(k,74) = b(k,74) - lu(k,1568) * b(k,82) - b(k,73) = b(k,73) - lu(k,1567) * b(k,82) - b(k,72) = b(k,72) - lu(k,1566) * b(k,82) - b(k,71) = b(k,71) - lu(k,1565) * b(k,82) - b(k,70) = b(k,70) - lu(k,1564) * b(k,82) - b(k,69) = b(k,69) - lu(k,1563) * b(k,82) - b(k,68) = b(k,68) - lu(k,1562) * b(k,82) - b(k,67) = b(k,67) - lu(k,1561) * b(k,82) - b(k,66) = b(k,66) - lu(k,1560) * b(k,82) - b(k,65) = b(k,65) - lu(k,1559) * b(k,82) - b(k,64) = b(k,64) - lu(k,1558) * b(k,82) - b(k,63) = b(k,63) - lu(k,1557) * b(k,82) - b(k,62) = b(k,62) - lu(k,1556) * b(k,82) - b(k,61) = b(k,61) - lu(k,1555) * b(k,82) - b(k,60) = b(k,60) - lu(k,1554) * b(k,82) - b(k,59) = b(k,59) - lu(k,1553) * b(k,82) - b(k,58) = b(k,58) - lu(k,1552) * b(k,82) - b(k,55) = b(k,55) - lu(k,1551) * b(k,82) - b(k,54) = b(k,54) - lu(k,1550) * b(k,82) - b(k,53) = b(k,53) - lu(k,1549) * b(k,82) - b(k,51) = b(k,51) - lu(k,1548) * b(k,82) - b(k,48) = b(k,48) - lu(k,1547) * b(k,82) - b(k,47) = b(k,47) - lu(k,1546) * b(k,82) - b(k,46) = b(k,46) - lu(k,1545) * b(k,82) - b(k,45) = b(k,45) - lu(k,1544) * b(k,82) - b(k,43) = b(k,43) - lu(k,1543) * b(k,82) - b(k,42) = b(k,42) - lu(k,1542) * b(k,82) - b(k,37) = b(k,37) - lu(k,1541) * b(k,82) - b(k,9) = b(k,9) - lu(k,1540) * b(k,82) - b(k,81) = b(k,81) * lu(k,1532) - b(k,80) = b(k,80) - lu(k,1531) * b(k,81) - b(k,79) = b(k,79) - lu(k,1530) * b(k,81) - b(k,78) = b(k,78) - lu(k,1529) * b(k,81) - b(k,77) = b(k,77) - lu(k,1528) * b(k,81) - b(k,76) = b(k,76) - lu(k,1527) * b(k,81) - b(k,75) = b(k,75) - lu(k,1526) * b(k,81) - b(k,74) = b(k,74) - lu(k,1525) * b(k,81) - b(k,73) = b(k,73) - lu(k,1524) * b(k,81) - b(k,72) = b(k,72) - lu(k,1523) * b(k,81) - b(k,71) = b(k,71) - lu(k,1522) * b(k,81) - b(k,70) = b(k,70) - lu(k,1521) * b(k,81) - b(k,69) = b(k,69) - lu(k,1520) * b(k,81) - b(k,68) = b(k,68) - lu(k,1519) * b(k,81) - b(k,67) = b(k,67) - lu(k,1518) * b(k,81) - b(k,66) = b(k,66) - lu(k,1517) * b(k,81) - b(k,65) = b(k,65) - lu(k,1516) * b(k,81) - b(k,64) = b(k,64) - lu(k,1515) * b(k,81) - b(k,63) = b(k,63) - lu(k,1514) * b(k,81) - b(k,62) = b(k,62) - lu(k,1513) * b(k,81) - b(k,61) = b(k,61) - lu(k,1512) * b(k,81) - b(k,60) = b(k,60) - lu(k,1511) * b(k,81) - b(k,59) = b(k,59) - lu(k,1510) * b(k,81) - b(k,58) = b(k,58) - lu(k,1509) * b(k,81) - b(k,57) = b(k,57) - lu(k,1508) * b(k,81) - b(k,56) = b(k,56) - lu(k,1507) * b(k,81) - b(k,52) = b(k,52) - lu(k,1506) * b(k,81) - b(k,44) = b(k,44) - lu(k,1505) * b(k,81) - b(k,39) = b(k,39) - lu(k,1504) * b(k,81) - b(k,35) = b(k,35) - lu(k,1503) * b(k,81) - b(k,34) = b(k,34) - lu(k,1502) * b(k,81) - b(k,32) = b(k,32) - lu(k,1501) * b(k,81) - b(k,6) = b(k,6) - lu(k,1500) * b(k,81) - b(k,4) = b(k,4) - lu(k,1499) * b(k,81) - b(k,3) = b(k,3) - lu(k,1498) * b(k,81) - b(k,1) = b(k,1) - lu(k,1497) * b(k,81) - b(k,80) = b(k,80) * lu(k,1488) - b(k,79) = b(k,79) - lu(k,1487) * b(k,80) - b(k,78) = b(k,78) - lu(k,1486) * b(k,80) - b(k,77) = b(k,77) - lu(k,1485) * b(k,80) - b(k,76) = b(k,76) - lu(k,1484) * b(k,80) - b(k,75) = b(k,75) - lu(k,1483) * b(k,80) - b(k,74) = b(k,74) - lu(k,1482) * b(k,80) - b(k,73) = b(k,73) - lu(k,1481) * b(k,80) - b(k,72) = b(k,72) - lu(k,1480) * b(k,80) - b(k,71) = b(k,71) - lu(k,1479) * b(k,80) - b(k,70) = b(k,70) - lu(k,1478) * b(k,80) - b(k,69) = b(k,69) - lu(k,1477) * b(k,80) - b(k,68) = b(k,68) - lu(k,1476) * b(k,80) - b(k,67) = b(k,67) - lu(k,1475) * b(k,80) - b(k,66) = b(k,66) - lu(k,1474) * b(k,80) - b(k,65) = b(k,65) - lu(k,1473) * b(k,80) - b(k,64) = b(k,64) - lu(k,1472) * b(k,80) - b(k,63) = b(k,63) - lu(k,1471) * b(k,80) - b(k,62) = b(k,62) - lu(k,1470) * b(k,80) - b(k,61) = b(k,61) - lu(k,1469) * b(k,80) - b(k,60) = b(k,60) - lu(k,1468) * b(k,80) - b(k,59) = b(k,59) - lu(k,1467) * b(k,80) - b(k,58) = b(k,58) - lu(k,1466) * b(k,80) - b(k,57) = b(k,57) - lu(k,1465) * b(k,80) - b(k,56) = b(k,56) - lu(k,1464) * b(k,80) - b(k,52) = b(k,52) - lu(k,1463) * b(k,80) - b(k,51) = b(k,51) - lu(k,1462) * b(k,80) - b(k,48) = b(k,48) - lu(k,1461) * b(k,80) - b(k,46) = b(k,46) - lu(k,1460) * b(k,80) - b(k,45) = b(k,45) - lu(k,1459) * b(k,80) - b(k,44) = b(k,44) - lu(k,1458) * b(k,80) - b(k,34) = b(k,34) - lu(k,1457) * b(k,80) - b(k,32) = b(k,32) - lu(k,1456) * b(k,80) - b(k,28) = b(k,28) - lu(k,1455) * b(k,80) - b(k,24) = b(k,24) - lu(k,1454) * b(k,80) - b(k,6) = b(k,6) - lu(k,1453) * b(k,80) - b(k,4) = b(k,4) - lu(k,1452) * b(k,80) - b(k,79) = b(k,79) * lu(k,1442) - b(k,78) = b(k,78) - lu(k,1441) * b(k,79) - b(k,77) = b(k,77) - lu(k,1440) * b(k,79) - b(k,76) = b(k,76) - lu(k,1439) * b(k,79) - b(k,75) = b(k,75) - lu(k,1438) * b(k,79) - b(k,74) = b(k,74) - lu(k,1437) * b(k,79) - b(k,73) = b(k,73) - lu(k,1436) * b(k,79) - b(k,72) = b(k,72) - lu(k,1435) * b(k,79) - b(k,71) = b(k,71) - lu(k,1434) * b(k,79) - b(k,70) = b(k,70) - lu(k,1433) * b(k,79) - b(k,69) = b(k,69) - lu(k,1432) * b(k,79) - b(k,68) = b(k,68) - lu(k,1431) * b(k,79) - b(k,67) = b(k,67) - lu(k,1430) * b(k,79) - b(k,66) = b(k,66) - lu(k,1429) * b(k,79) - b(k,65) = b(k,65) - lu(k,1428) * b(k,79) - b(k,64) = b(k,64) - lu(k,1427) * b(k,79) - b(k,63) = b(k,63) - lu(k,1426) * b(k,79) - b(k,62) = b(k,62) - lu(k,1425) * b(k,79) - b(k,61) = b(k,61) - lu(k,1424) * b(k,79) - b(k,60) = b(k,60) - lu(k,1423) * b(k,79) - b(k,59) = b(k,59) - lu(k,1422) * b(k,79) - b(k,57) = b(k,57) - lu(k,1421) * b(k,79) - b(k,56) = b(k,56) - lu(k,1420) * b(k,79) - b(k,52) = b(k,52) - lu(k,1419) * b(k,79) - b(k,49) = b(k,49) - lu(k,1418) * b(k,79) - b(k,44) = b(k,44) - lu(k,1417) * b(k,79) - b(k,41) = b(k,41) - lu(k,1416) * b(k,79) - b(k,36) = b(k,36) - lu(k,1415) * b(k,79) - b(k,10) = b(k,10) - lu(k,1414) * b(k,79) - b(k,78) = b(k,78) * lu(k,1403) - b(k,77) = b(k,77) - lu(k,1402) * b(k,78) - b(k,76) = b(k,76) - lu(k,1401) * b(k,78) - b(k,75) = b(k,75) - lu(k,1400) * b(k,78) - b(k,74) = b(k,74) - lu(k,1399) * b(k,78) - b(k,73) = b(k,73) - lu(k,1398) * b(k,78) - b(k,72) = b(k,72) - lu(k,1397) * b(k,78) - b(k,71) = b(k,71) - lu(k,1396) * b(k,78) - b(k,70) = b(k,70) - lu(k,1395) * b(k,78) - b(k,69) = b(k,69) - lu(k,1394) * b(k,78) - b(k,68) = b(k,68) - lu(k,1393) * b(k,78) - b(k,67) = b(k,67) - lu(k,1392) * b(k,78) - b(k,66) = b(k,66) - lu(k,1391) * b(k,78) - b(k,65) = b(k,65) - lu(k,1390) * b(k,78) - b(k,64) = b(k,64) - lu(k,1389) * b(k,78) - b(k,63) = b(k,63) - lu(k,1388) * b(k,78) - b(k,62) = b(k,62) - lu(k,1387) * b(k,78) - b(k,61) = b(k,61) - lu(k,1386) * b(k,78) - b(k,60) = b(k,60) - lu(k,1385) * b(k,78) - b(k,59) = b(k,59) - lu(k,1384) * b(k,78) - b(k,57) = b(k,57) - lu(k,1383) * b(k,78) - b(k,49) = b(k,49) - lu(k,1382) * b(k,78) - b(k,42) = b(k,42) - lu(k,1381) * b(k,78) - b(k,41) = b(k,41) - lu(k,1380) * b(k,78) - b(k,40) = b(k,40) - lu(k,1379) * b(k,78) - b(k,38) = b(k,38) - lu(k,1378) * b(k,78) - b(k,36) = b(k,36) - lu(k,1377) * b(k,78) - b(k,25) = b(k,25) - lu(k,1376) * b(k,78) - b(k,23) = b(k,23) - lu(k,1375) * b(k,78) - b(k,22) = b(k,22) - lu(k,1374) * b(k,78) - b(k,20) = b(k,20) - lu(k,1373) * b(k,78) - b(k,10) = b(k,10) - lu(k,1372) * b(k,78) - b(k,77) = b(k,77) * lu(k,1360) - b(k,76) = b(k,76) - lu(k,1359) * b(k,77) - b(k,75) = b(k,75) - lu(k,1358) * b(k,77) - b(k,74) = b(k,74) - lu(k,1357) * b(k,77) - b(k,73) = b(k,73) - lu(k,1356) * b(k,77) - b(k,72) = b(k,72) - lu(k,1355) * b(k,77) - b(k,71) = b(k,71) - lu(k,1354) * b(k,77) - b(k,70) = b(k,70) - lu(k,1353) * b(k,77) - b(k,69) = b(k,69) - lu(k,1352) * b(k,77) - b(k,68) = b(k,68) - lu(k,1351) * b(k,77) - b(k,67) = b(k,67) - lu(k,1350) * b(k,77) - b(k,66) = b(k,66) - lu(k,1349) * b(k,77) - b(k,65) = b(k,65) - lu(k,1348) * b(k,77) - b(k,64) = b(k,64) - lu(k,1347) * b(k,77) - b(k,63) = b(k,63) - lu(k,1346) * b(k,77) - b(k,62) = b(k,62) - lu(k,1345) * b(k,77) - b(k,61) = b(k,61) - lu(k,1344) * b(k,77) - b(k,60) = b(k,60) - lu(k,1343) * b(k,77) - b(k,59) = b(k,59) - lu(k,1342) * b(k,77) - b(k,58) = b(k,58) - lu(k,1341) * b(k,77) - b(k,57) = b(k,57) - lu(k,1340) * b(k,77) - b(k,55) = b(k,55) - lu(k,1339) * b(k,77) - b(k,54) = b(k,54) - lu(k,1338) * b(k,77) - b(k,53) = b(k,53) - lu(k,1337) * b(k,77) - b(k,51) = b(k,51) - lu(k,1336) * b(k,77) - b(k,48) = b(k,48) - lu(k,1335) * b(k,77) - b(k,47) = b(k,47) - lu(k,1334) * b(k,77) - b(k,46) = b(k,46) - lu(k,1333) * b(k,77) - b(k,45) = b(k,45) - lu(k,1332) * b(k,77) - b(k,43) = b(k,43) - lu(k,1331) * b(k,77) - b(k,42) = b(k,42) - lu(k,1330) * b(k,77) - b(k,41) = b(k,41) - lu(k,1329) * b(k,77) - b(k,40) = b(k,40) - lu(k,1328) * b(k,77) - b(k,27) = b(k,27) - lu(k,1327) * b(k,77) - end do + b(81) = b(81) * lu(1509) + b(80) = b(80) - lu(1508) * b(81) + b(79) = b(79) - lu(1507) * b(81) + b(78) = b(78) - lu(1506) * b(81) + b(77) = b(77) - lu(1505) * b(81) + b(76) = b(76) - lu(1504) * b(81) + b(75) = b(75) - lu(1503) * b(81) + b(74) = b(74) - lu(1502) * b(81) + b(73) = b(73) - lu(1501) * b(81) + b(72) = b(72) - lu(1500) * b(81) + b(71) = b(71) - lu(1499) * b(81) + b(70) = b(70) - lu(1498) * b(81) + b(69) = b(69) - lu(1497) * b(81) + b(68) = b(68) - lu(1496) * b(81) + b(67) = b(67) - lu(1495) * b(81) + b(66) = b(66) - lu(1494) * b(81) + b(65) = b(65) - lu(1493) * b(81) + b(64) = b(64) - lu(1492) * b(81) + b(63) = b(63) - lu(1491) * b(81) + b(62) = b(62) - lu(1490) * b(81) + b(61) = b(61) - lu(1489) * b(81) + b(60) = b(60) - lu(1488) * b(81) + b(59) = b(59) - lu(1487) * b(81) + b(58) = b(58) - lu(1486) * b(81) + b(57) = b(57) - lu(1485) * b(81) + b(56) = b(56) - lu(1484) * b(81) + b(51) = b(51) - lu(1483) * b(81) + b(50) = b(50) - lu(1482) * b(81) + b(48) = b(48) - lu(1481) * b(81) + b(44) = b(44) - lu(1480) * b(81) + b(42) = b(42) - lu(1479) * b(81) + b(39) = b(39) - lu(1478) * b(81) + b(37) = b(37) - lu(1477) * b(81) + b(36) = b(36) - lu(1476) * b(81) + b(35) = b(35) - lu(1475) * b(81) + b(34) = b(34) - lu(1474) * b(81) + b(33) = b(33) - lu(1473) * b(81) + b(32) = b(32) - lu(1472) * b(81) + b(31) = b(31) - lu(1471) * b(81) + b(30) = b(30) - lu(1470) * b(81) + b(28) = b(28) - lu(1469) * b(81) + b(23) = b(23) - lu(1468) * b(81) + b(22) = b(22) - lu(1467) * b(81) + b(21) = b(21) - lu(1466) * b(81) + b(20) = b(20) - lu(1465) * b(81) + b(19) = b(19) - lu(1464) * b(81) + b(18) = b(18) - lu(1463) * b(81) + b(14) = b(14) - lu(1462) * b(81) + b(8) = b(8) - lu(1461) * b(81) + b(80) = b(80) * lu(1453) + b(79) = b(79) - lu(1452) * b(80) + b(78) = b(78) - lu(1451) * b(80) + b(77) = b(77) - lu(1450) * b(80) + b(76) = b(76) - lu(1449) * b(80) + b(75) = b(75) - lu(1448) * b(80) + b(74) = b(74) - lu(1447) * b(80) + b(73) = b(73) - lu(1446) * b(80) + b(72) = b(72) - lu(1445) * b(80) + b(71) = b(71) - lu(1444) * b(80) + b(70) = b(70) - lu(1443) * b(80) + b(69) = b(69) - lu(1442) * b(80) + b(68) = b(68) - lu(1441) * b(80) + b(67) = b(67) - lu(1440) * b(80) + b(66) = b(66) - lu(1439) * b(80) + b(65) = b(65) - lu(1438) * b(80) + b(64) = b(64) - lu(1437) * b(80) + b(63) = b(63) - lu(1436) * b(80) + b(62) = b(62) - lu(1435) * b(80) + b(61) = b(61) - lu(1434) * b(80) + b(60) = b(60) - lu(1433) * b(80) + b(59) = b(59) - lu(1432) * b(80) + b(58) = b(58) - lu(1431) * b(80) + b(55) = b(55) - lu(1430) * b(80) + b(54) = b(54) - lu(1429) * b(80) + b(53) = b(53) - lu(1428) * b(80) + b(52) = b(52) - lu(1427) * b(80) + b(49) = b(49) - lu(1426) * b(80) + b(47) = b(47) - lu(1425) * b(80) + b(46) = b(46) - lu(1424) * b(80) + b(45) = b(45) - lu(1423) * b(80) + b(43) = b(43) - lu(1422) * b(80) + b(41) = b(41) - lu(1421) * b(80) + b(38) = b(38) - lu(1420) * b(80) + b(10) = b(10) - lu(1419) * b(80) + b(79) = b(79) * lu(1410) + b(78) = b(78) - lu(1409) * b(79) + b(77) = b(77) - lu(1408) * b(79) + b(76) = b(76) - lu(1407) * b(79) + b(75) = b(75) - lu(1406) * b(79) + b(74) = b(74) - lu(1405) * b(79) + b(73) = b(73) - lu(1404) * b(79) + b(72) = b(72) - lu(1403) * b(79) + b(71) = b(71) - lu(1402) * b(79) + b(70) = b(70) - lu(1401) * b(79) + b(69) = b(69) - lu(1400) * b(79) + b(68) = b(68) - lu(1399) * b(79) + b(67) = b(67) - lu(1398) * b(79) + b(66) = b(66) - lu(1397) * b(79) + b(65) = b(65) - lu(1396) * b(79) + b(62) = b(62) - lu(1395) * b(79) + b(61) = b(61) - lu(1394) * b(79) + b(57) = b(57) - lu(1393) * b(79) + b(42) = b(42) - lu(1392) * b(79) + b(39) = b(39) - lu(1391) * b(79) + b(35) = b(35) - lu(1390) * b(79) + b(31) = b(31) - lu(1389) * b(79) + b(28) = b(28) - lu(1388) * b(79) + b(27) = b(27) - lu(1387) * b(79) + b(26) = b(26) - lu(1386) * b(79) + b(25) = b(25) - lu(1385) * b(79) + b(24) = b(24) - lu(1384) * b(79) + b(22) = b(22) - lu(1383) * b(79) + b(19) = b(19) - lu(1382) * b(79) + b(18) = b(18) - lu(1381) * b(79) + b(17) = b(17) - lu(1380) * b(79) + b(16) = b(16) - lu(1379) * b(79) + b(13) = b(13) - lu(1378) * b(79) + b(12) = b(12) - lu(1377) * b(79) + b(78) = b(78) * lu(1367) + b(77) = b(77) - lu(1366) * b(78) + b(76) = b(76) - lu(1365) * b(78) + b(75) = b(75) - lu(1364) * b(78) + b(74) = b(74) - lu(1363) * b(78) + b(73) = b(73) - lu(1362) * b(78) + b(72) = b(72) - lu(1361) * b(78) + b(71) = b(71) - lu(1360) * b(78) + b(70) = b(70) - lu(1359) * b(78) + b(69) = b(69) - lu(1358) * b(78) + b(68) = b(68) - lu(1357) * b(78) + b(67) = b(67) - lu(1356) * b(78) + b(66) = b(66) - lu(1355) * b(78) + b(65) = b(65) - lu(1354) * b(78) + b(64) = b(64) - lu(1353) * b(78) + b(63) = b(63) - lu(1352) * b(78) + b(62) = b(62) - lu(1351) * b(78) + b(61) = b(61) - lu(1350) * b(78) + b(60) = b(60) - lu(1349) * b(78) + b(59) = b(59) - lu(1348) * b(78) + b(58) = b(58) - lu(1347) * b(78) + b(55) = b(55) - lu(1346) * b(78) + b(54) = b(54) - lu(1345) * b(78) + b(53) = b(53) - lu(1344) * b(78) + b(52) = b(52) - lu(1343) * b(78) + b(49) = b(49) - lu(1342) * b(78) + b(47) = b(47) - lu(1341) * b(78) + b(46) = b(46) - lu(1340) * b(78) + b(45) = b(45) - lu(1339) * b(78) + b(43) = b(43) - lu(1338) * b(78) + b(41) = b(41) - lu(1337) * b(78) + b(38) = b(38) - lu(1336) * b(78) + b(9) = b(9) - lu(1335) * b(78) + b(77) = b(77) * lu(1324) + b(76) = b(76) - lu(1323) * b(77) + b(75) = b(75) - lu(1322) * b(77) + b(74) = b(74) - lu(1321) * b(77) + b(73) = b(73) - lu(1320) * b(77) + b(72) = b(72) - lu(1319) * b(77) + b(71) = b(71) - lu(1318) * b(77) + b(70) = b(70) - lu(1317) * b(77) + b(69) = b(69) - lu(1316) * b(77) + b(68) = b(68) - lu(1315) * b(77) + b(67) = b(67) - lu(1314) * b(77) + b(66) = b(66) - lu(1313) * b(77) + b(65) = b(65) - lu(1312) * b(77) + b(64) = b(64) - lu(1311) * b(77) + b(63) = b(63) - lu(1310) * b(77) + b(62) = b(62) - lu(1309) * b(77) + b(61) = b(61) - lu(1308) * b(77) + b(60) = b(60) - lu(1307) * b(77) + b(59) = b(59) - lu(1306) * b(77) + b(57) = b(57) - lu(1305) * b(77) + b(56) = b(56) - lu(1304) * b(77) + b(55) = b(55) - lu(1303) * b(77) + b(54) = b(54) - lu(1302) * b(77) + b(50) = b(50) - lu(1301) * b(77) + b(48) = b(48) - lu(1300) * b(77) + b(47) = b(47) - lu(1299) * b(77) + b(44) = b(44) - lu(1298) * b(77) + b(40) = b(40) - lu(1297) * b(77) + b(39) = b(39) - lu(1296) * b(77) + b(37) = b(37) - lu(1295) * b(77) + b(25) = b(25) - lu(1294) * b(77) + b(76) = b(76) * lu(1282) + b(75) = b(75) - lu(1281) * b(76) + b(74) = b(74) - lu(1280) * b(76) + b(73) = b(73) - lu(1279) * b(76) + b(72) = b(72) - lu(1278) * b(76) + b(71) = b(71) - lu(1277) * b(76) + b(70) = b(70) - lu(1276) * b(76) + b(69) = b(69) - lu(1275) * b(76) + b(68) = b(68) - lu(1274) * b(76) + b(67) = b(67) - lu(1273) * b(76) + b(66) = b(66) - lu(1272) * b(76) + b(65) = b(65) - lu(1271) * b(76) + b(64) = b(64) - lu(1270) * b(76) + b(63) = b(63) - lu(1269) * b(76) + b(62) = b(62) - lu(1268) * b(76) + b(61) = b(61) - lu(1267) * b(76) + b(60) = b(60) - lu(1266) * b(76) + b(59) = b(59) - lu(1265) * b(76) + b(58) = b(58) - lu(1264) * b(76) + b(57) = b(57) - lu(1263) * b(76) + b(55) = b(55) - lu(1262) * b(76) + b(54) = b(54) - lu(1261) * b(76) + b(53) = b(53) - lu(1260) * b(76) + b(52) = b(52) - lu(1259) * b(76) + b(49) = b(49) - lu(1258) * b(76) + b(47) = b(47) - lu(1257) * b(76) + b(46) = b(46) - lu(1256) * b(76) + b(45) = b(45) - lu(1255) * b(76) + b(43) = b(43) - lu(1254) * b(76) + b(42) = b(42) - lu(1253) * b(76) + b(41) = b(41) - lu(1252) * b(76) + b(39) = b(39) - lu(1251) * b(76) + b(27) = b(27) - lu(1250) * b(76) end subroutine lu_slv07 - subroutine lu_slv08( avec_len, lu, b ) + subroutine lu_slv08( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,76) = b(k,76) * lu(k,1314) - b(k,75) = b(k,75) - lu(k,1313) * b(k,76) - b(k,74) = b(k,74) - lu(k,1312) * b(k,76) - b(k,73) = b(k,73) - lu(k,1311) * b(k,76) - b(k,72) = b(k,72) - lu(k,1310) * b(k,76) - b(k,71) = b(k,71) - lu(k,1309) * b(k,76) - b(k,70) = b(k,70) - lu(k,1308) * b(k,76) - b(k,69) = b(k,69) - lu(k,1307) * b(k,76) - b(k,68) = b(k,68) - lu(k,1306) * b(k,76) - b(k,67) = b(k,67) - lu(k,1305) * b(k,76) - b(k,66) = b(k,66) - lu(k,1304) * b(k,76) - b(k,65) = b(k,65) - lu(k,1303) * b(k,76) - b(k,64) = b(k,64) - lu(k,1302) * b(k,76) - b(k,63) = b(k,63) - lu(k,1301) * b(k,76) - b(k,62) = b(k,62) - lu(k,1300) * b(k,76) - b(k,61) = b(k,61) - lu(k,1299) * b(k,76) - b(k,60) = b(k,60) - lu(k,1298) * b(k,76) - b(k,59) = b(k,59) - lu(k,1297) * b(k,76) - b(k,58) = b(k,58) - lu(k,1296) * b(k,76) - b(k,49) = b(k,49) - lu(k,1295) * b(k,76) - b(k,41) = b(k,41) - lu(k,1294) * b(k,76) - b(k,36) = b(k,36) - lu(k,1293) * b(k,76) - b(k,35) = b(k,35) - lu(k,1292) * b(k,76) - b(k,20) = b(k,20) - lu(k,1291) * b(k,76) - b(k,75) = b(k,75) * lu(k,1277) - b(k,74) = b(k,74) - lu(k,1276) * b(k,75) - b(k,73) = b(k,73) - lu(k,1275) * b(k,75) - b(k,72) = b(k,72) - lu(k,1274) * b(k,75) - b(k,71) = b(k,71) - lu(k,1273) * b(k,75) - b(k,70) = b(k,70) - lu(k,1272) * b(k,75) - b(k,69) = b(k,69) - lu(k,1271) * b(k,75) - b(k,68) = b(k,68) - lu(k,1270) * b(k,75) - b(k,67) = b(k,67) - lu(k,1269) * b(k,75) - b(k,66) = b(k,66) - lu(k,1268) * b(k,75) - b(k,65) = b(k,65) - lu(k,1267) * b(k,75) - b(k,64) = b(k,64) - lu(k,1266) * b(k,75) - b(k,63) = b(k,63) - lu(k,1265) * b(k,75) - b(k,62) = b(k,62) - lu(k,1264) * b(k,75) - b(k,61) = b(k,61) - lu(k,1263) * b(k,75) - b(k,60) = b(k,60) - lu(k,1262) * b(k,75) - b(k,59) = b(k,59) - lu(k,1261) * b(k,75) - b(k,57) = b(k,57) - lu(k,1260) * b(k,75) - b(k,49) = b(k,49) - lu(k,1259) * b(k,75) - b(k,41) = b(k,41) - lu(k,1258) * b(k,75) - b(k,40) = b(k,40) - lu(k,1257) * b(k,75) - b(k,38) = b(k,38) - lu(k,1256) * b(k,75) - b(k,36) = b(k,36) - lu(k,1255) * b(k,75) - b(k,31) = b(k,31) - lu(k,1254) * b(k,75) - b(k,29) = b(k,29) - lu(k,1253) * b(k,75) - b(k,20) = b(k,20) - lu(k,1252) * b(k,75) - b(k,19) = b(k,19) - lu(k,1251) * b(k,75) - b(k,16) = b(k,16) - lu(k,1250) * b(k,75) - b(k,15) = b(k,15) - lu(k,1249) * b(k,75) - b(k,10) = b(k,10) - lu(k,1248) * b(k,75) - b(k,74) = b(k,74) * lu(k,1233) - b(k,73) = b(k,73) - lu(k,1232) * b(k,74) - b(k,72) = b(k,72) - lu(k,1231) * b(k,74) - b(k,71) = b(k,71) - lu(k,1230) * b(k,74) - b(k,70) = b(k,70) - lu(k,1229) * b(k,74) - b(k,69) = b(k,69) - lu(k,1228) * b(k,74) - b(k,68) = b(k,68) - lu(k,1227) * b(k,74) - b(k,67) = b(k,67) - lu(k,1226) * b(k,74) - b(k,66) = b(k,66) - lu(k,1225) * b(k,74) - b(k,65) = b(k,65) - lu(k,1224) * b(k,74) - b(k,63) = b(k,63) - lu(k,1223) * b(k,74) - b(k,62) = b(k,62) - lu(k,1222) * b(k,74) - b(k,61) = b(k,61) - lu(k,1221) * b(k,74) - b(k,60) = b(k,60) - lu(k,1220) * b(k,74) - b(k,57) = b(k,57) - lu(k,1219) * b(k,74) - b(k,56) = b(k,56) - lu(k,1218) * b(k,74) - b(k,55) = b(k,55) - lu(k,1217) * b(k,74) - b(k,53) = b(k,53) - lu(k,1216) * b(k,74) - b(k,51) = b(k,51) - lu(k,1215) * b(k,74) - b(k,37) = b(k,37) - lu(k,1214) * b(k,74) - b(k,25) = b(k,25) - lu(k,1213) * b(k,74) - b(k,73) = b(k,73) * lu(k,1197) - b(k,72) = b(k,72) - lu(k,1196) * b(k,73) - b(k,71) = b(k,71) - lu(k,1195) * b(k,73) - b(k,70) = b(k,70) - lu(k,1194) * b(k,73) - b(k,69) = b(k,69) - lu(k,1193) * b(k,73) - b(k,68) = b(k,68) - lu(k,1192) * b(k,73) - b(k,67) = b(k,67) - lu(k,1191) * b(k,73) - b(k,66) = b(k,66) - lu(k,1190) * b(k,73) - b(k,65) = b(k,65) - lu(k,1189) * b(k,73) - b(k,64) = b(k,64) - lu(k,1188) * b(k,73) - b(k,63) = b(k,63) - lu(k,1187) * b(k,73) - b(k,62) = b(k,62) - lu(k,1186) * b(k,73) - b(k,61) = b(k,61) - lu(k,1185) * b(k,73) - b(k,60) = b(k,60) - lu(k,1184) * b(k,73) - b(k,59) = b(k,59) - lu(k,1183) * b(k,73) - b(k,58) = b(k,58) - lu(k,1182) * b(k,73) - b(k,55) = b(k,55) - lu(k,1181) * b(k,73) - b(k,54) = b(k,54) - lu(k,1180) * b(k,73) - b(k,53) = b(k,53) - lu(k,1179) * b(k,73) - b(k,51) = b(k,51) - lu(k,1178) * b(k,73) - b(k,48) = b(k,48) - lu(k,1177) * b(k,73) - b(k,47) = b(k,47) - lu(k,1176) * b(k,73) - b(k,46) = b(k,46) - lu(k,1175) * b(k,73) - b(k,45) = b(k,45) - lu(k,1174) * b(k,73) - b(k,43) = b(k,43) - lu(k,1173) * b(k,73) - b(k,42) = b(k,42) - lu(k,1172) * b(k,73) - b(k,37) = b(k,37) - lu(k,1171) * b(k,73) - b(k,8) = b(k,8) - lu(k,1170) * b(k,73) - b(k,72) = b(k,72) * lu(k,1153) - b(k,71) = b(k,71) - lu(k,1152) * b(k,72) - b(k,70) = b(k,70) - lu(k,1151) * b(k,72) - b(k,69) = b(k,69) - lu(k,1150) * b(k,72) - b(k,68) = b(k,68) - lu(k,1149) * b(k,72) - b(k,67) = b(k,67) - lu(k,1148) * b(k,72) - b(k,66) = b(k,66) - lu(k,1147) * b(k,72) - b(k,65) = b(k,65) - lu(k,1146) * b(k,72) - b(k,64) = b(k,64) - lu(k,1145) * b(k,72) - b(k,63) = b(k,63) - lu(k,1144) * b(k,72) - b(k,62) = b(k,62) - lu(k,1143) * b(k,72) - b(k,61) = b(k,61) - lu(k,1142) * b(k,72) - b(k,60) = b(k,60) - lu(k,1141) * b(k,72) - b(k,58) = b(k,58) - lu(k,1140) * b(k,72) - b(k,57) = b(k,57) - lu(k,1139) * b(k,72) - b(k,56) = b(k,56) - lu(k,1138) * b(k,72) - b(k,55) = b(k,55) - lu(k,1137) * b(k,72) - b(k,54) = b(k,54) - lu(k,1136) * b(k,72) - b(k,53) = b(k,53) - lu(k,1135) * b(k,72) - b(k,52) = b(k,52) - lu(k,1134) * b(k,72) - b(k,51) = b(k,51) - lu(k,1133) * b(k,72) - b(k,49) = b(k,49) - lu(k,1132) * b(k,72) - b(k,44) = b(k,44) - lu(k,1131) * b(k,72) - b(k,40) = b(k,40) - lu(k,1130) * b(k,72) - b(k,37) = b(k,37) - lu(k,1129) * b(k,72) - b(k,34) = b(k,34) - lu(k,1128) * b(k,72) - b(k,28) = b(k,28) - lu(k,1127) * b(k,72) - b(k,17) = b(k,17) - lu(k,1126) * b(k,72) - b(k,14) = b(k,14) - lu(k,1125) * b(k,72) - b(k,71) = b(k,71) * lu(k,1107) - b(k,70) = b(k,70) - lu(k,1106) * b(k,71) - b(k,69) = b(k,69) - lu(k,1105) * b(k,71) - b(k,68) = b(k,68) - lu(k,1104) * b(k,71) - b(k,67) = b(k,67) - lu(k,1103) * b(k,71) - b(k,66) = b(k,66) - lu(k,1102) * b(k,71) - b(k,65) = b(k,65) - lu(k,1101) * b(k,71) - b(k,64) = b(k,64) - lu(k,1100) * b(k,71) - b(k,63) = b(k,63) - lu(k,1099) * b(k,71) - b(k,62) = b(k,62) - lu(k,1098) * b(k,71) - b(k,61) = b(k,61) - lu(k,1097) * b(k,71) - b(k,60) = b(k,60) - lu(k,1096) * b(k,71) - b(k,58) = b(k,58) - lu(k,1095) * b(k,71) - b(k,57) = b(k,57) - lu(k,1094) * b(k,71) - b(k,56) = b(k,56) - lu(k,1093) * b(k,71) - b(k,55) = b(k,55) - lu(k,1092) * b(k,71) - b(k,51) = b(k,51) - lu(k,1091) * b(k,71) - b(k,50) = b(k,50) - lu(k,1090) * b(k,71) - b(k,48) = b(k,48) - lu(k,1089) * b(k,71) - b(k,39) = b(k,39) - lu(k,1088) * b(k,71) - b(k,30) = b(k,30) - lu(k,1087) * b(k,71) - b(k,24) = b(k,24) - lu(k,1086) * b(k,71) - b(k,7) = b(k,7) - lu(k,1085) * b(k,71) - b(k,70) = b(k,70) * lu(k,1066) - b(k,69) = b(k,69) - lu(k,1065) * b(k,70) - b(k,68) = b(k,68) - lu(k,1064) * b(k,70) - b(k,67) = b(k,67) - lu(k,1063) * b(k,70) - b(k,66) = b(k,66) - lu(k,1062) * b(k,70) - b(k,65) = b(k,65) - lu(k,1061) * b(k,70) - b(k,64) = b(k,64) - lu(k,1060) * b(k,70) - b(k,63) = b(k,63) - lu(k,1059) * b(k,70) - b(k,62) = b(k,62) - lu(k,1058) * b(k,70) - b(k,61) = b(k,61) - lu(k,1057) * b(k,70) - b(k,60) = b(k,60) - lu(k,1056) * b(k,70) - b(k,59) = b(k,59) - lu(k,1055) * b(k,70) - b(k,58) = b(k,58) - lu(k,1054) * b(k,70) - b(k,55) = b(k,55) - lu(k,1053) * b(k,70) - b(k,54) = b(k,54) - lu(k,1052) * b(k,70) - b(k,53) = b(k,53) - lu(k,1051) * b(k,70) - b(k,51) = b(k,51) - lu(k,1050) * b(k,70) - b(k,48) = b(k,48) - lu(k,1049) * b(k,70) - b(k,47) = b(k,47) - lu(k,1048) * b(k,70) - b(k,46) = b(k,46) - lu(k,1047) * b(k,70) - b(k,45) = b(k,45) - lu(k,1046) * b(k,70) - b(k,43) = b(k,43) - lu(k,1045) * b(k,70) - b(k,42) = b(k,42) - lu(k,1044) * b(k,70) - b(k,26) = b(k,26) - lu(k,1043) * b(k,70) - b(k,69) = b(k,69) * lu(k,1023) - b(k,68) = b(k,68) - lu(k,1022) * b(k,69) - b(k,67) = b(k,67) - lu(k,1021) * b(k,69) - b(k,66) = b(k,66) - lu(k,1020) * b(k,69) - b(k,65) = b(k,65) - lu(k,1019) * b(k,69) - b(k,63) = b(k,63) - lu(k,1018) * b(k,69) - b(k,61) = b(k,61) - lu(k,1017) * b(k,69) - b(k,57) = b(k,57) - lu(k,1016) * b(k,69) - b(k,41) = b(k,41) - lu(k,1015) * b(k,69) - b(k,40) = b(k,40) - lu(k,1014) * b(k,69) - b(k,38) = b(k,38) - lu(k,1013) * b(k,69) - b(k,31) = b(k,31) - lu(k,1012) * b(k,69) - b(k,29) = b(k,29) - lu(k,1011) * b(k,69) - b(k,27) = b(k,27) - lu(k,1010) * b(k,69) - b(k,26) = b(k,26) - lu(k,1009) * b(k,69) - b(k,24) = b(k,24) - lu(k,1008) * b(k,69) - b(k,23) = b(k,23) - lu(k,1007) * b(k,69) - b(k,22) = b(k,22) - lu(k,1006) * b(k,69) - b(k,21) = b(k,21) - lu(k,1005) * b(k,69) - b(k,19) = b(k,19) - lu(k,1004) * b(k,69) - b(k,16) = b(k,16) - lu(k,1003) * b(k,69) - b(k,15) = b(k,15) - lu(k,1002) * b(k,69) - b(k,13) = b(k,13) - lu(k,1001) * b(k,69) - b(k,11) = b(k,11) - lu(k,1000) * b(k,69) - end do + b(75) = b(75) * lu(1237) + b(74) = b(74) - lu(1236) * b(75) + b(73) = b(73) - lu(1235) * b(75) + b(72) = b(72) - lu(1234) * b(75) + b(71) = b(71) - lu(1233) * b(75) + b(70) = b(70) - lu(1232) * b(75) + b(69) = b(69) - lu(1231) * b(75) + b(68) = b(68) - lu(1230) * b(75) + b(67) = b(67) - lu(1229) * b(75) + b(66) = b(66) - lu(1228) * b(75) + b(65) = b(65) - lu(1227) * b(75) + b(64) = b(64) - lu(1226) * b(75) + b(63) = b(63) - lu(1225) * b(75) + b(62) = b(62) - lu(1224) * b(75) + b(61) = b(61) - lu(1223) * b(75) + b(60) = b(60) - lu(1222) * b(75) + b(59) = b(59) - lu(1221) * b(75) + b(58) = b(58) - lu(1220) * b(75) + b(48) = b(48) - lu(1219) * b(75) + b(42) = b(42) - lu(1218) * b(75) + b(37) = b(37) - lu(1217) * b(75) + b(34) = b(34) - lu(1216) * b(75) + b(14) = b(14) - lu(1215) * b(75) + b(74) = b(74) * lu(1201) + b(73) = b(73) - lu(1200) * b(74) + b(72) = b(72) - lu(1199) * b(74) + b(71) = b(71) - lu(1198) * b(74) + b(70) = b(70) - lu(1197) * b(74) + b(69) = b(69) - lu(1196) * b(74) + b(68) = b(68) - lu(1195) * b(74) + b(67) = b(67) - lu(1194) * b(74) + b(66) = b(66) - lu(1193) * b(74) + b(65) = b(65) - lu(1192) * b(74) + b(64) = b(64) - lu(1191) * b(74) + b(63) = b(63) - lu(1190) * b(74) + b(62) = b(62) - lu(1189) * b(74) + b(61) = b(61) - lu(1188) * b(74) + b(60) = b(60) - lu(1187) * b(74) + b(59) = b(59) - lu(1186) * b(74) + b(58) = b(58) - lu(1185) * b(74) + b(57) = b(57) - lu(1184) * b(74) + b(56) = b(56) - lu(1183) * b(74) + b(51) = b(51) - lu(1182) * b(74) + b(50) = b(50) - lu(1181) * b(74) + b(44) = b(44) - lu(1180) * b(74) + b(40) = b(40) - lu(1179) * b(74) + b(37) = b(37) - lu(1178) * b(74) + b(36) = b(36) - lu(1177) * b(74) + b(33) = b(33) - lu(1176) * b(74) + b(23) = b(23) - lu(1175) * b(74) + b(21) = b(21) - lu(1174) * b(74) + b(4) = b(4) - lu(1173) * b(74) + b(73) = b(73) * lu(1158) + b(72) = b(72) - lu(1157) * b(73) + b(71) = b(71) - lu(1156) * b(73) + b(70) = b(70) - lu(1155) * b(73) + b(69) = b(69) - lu(1154) * b(73) + b(68) = b(68) - lu(1153) * b(73) + b(67) = b(67) - lu(1152) * b(73) + b(66) = b(66) - lu(1151) * b(73) + b(65) = b(65) - lu(1150) * b(73) + b(64) = b(64) - lu(1149) * b(73) + b(63) = b(63) - lu(1148) * b(73) + b(62) = b(62) - lu(1147) * b(73) + b(61) = b(61) - lu(1146) * b(73) + b(60) = b(60) - lu(1145) * b(73) + b(59) = b(59) - lu(1144) * b(73) + b(58) = b(58) - lu(1143) * b(73) + b(57) = b(57) - lu(1142) * b(73) + b(48) = b(48) - lu(1141) * b(73) + b(42) = b(42) - lu(1140) * b(73) + b(39) = b(39) - lu(1139) * b(73) + b(35) = b(35) - lu(1138) * b(73) + b(34) = b(34) - lu(1137) * b(73) + b(31) = b(31) - lu(1136) * b(73) + b(28) = b(28) - lu(1135) * b(73) + b(22) = b(22) - lu(1134) * b(73) + b(19) = b(19) - lu(1133) * b(73) + b(18) = b(18) - lu(1132) * b(73) + b(14) = b(14) - lu(1131) * b(73) + b(8) = b(8) - lu(1130) * b(73) + b(72) = b(72) * lu(1114) + b(71) = b(71) - lu(1113) * b(72) + b(70) = b(70) - lu(1112) * b(72) + b(69) = b(69) - lu(1111) * b(72) + b(68) = b(68) - lu(1110) * b(72) + b(67) = b(67) - lu(1109) * b(72) + b(66) = b(66) - lu(1108) * b(72) + b(65) = b(65) - lu(1107) * b(72) + b(64) = b(64) - lu(1106) * b(72) + b(63) = b(63) - lu(1105) * b(72) + b(62) = b(62) - lu(1104) * b(72) + b(61) = b(61) - lu(1103) * b(72) + b(60) = b(60) - lu(1102) * b(72) + b(59) = b(59) - lu(1101) * b(72) + b(58) = b(58) - lu(1100) * b(72) + b(57) = b(57) - lu(1099) * b(72) + b(56) = b(56) - lu(1098) * b(72) + b(50) = b(50) - lu(1097) * b(72) + b(44) = b(44) - lu(1096) * b(72) + b(40) = b(40) - lu(1095) * b(72) + b(37) = b(37) - lu(1094) * b(72) + b(36) = b(36) - lu(1093) * b(72) + b(33) = b(33) - lu(1092) * b(72) + b(6) = b(6) - lu(1091) * b(72) + b(4) = b(4) - lu(1090) * b(72) + b(3) = b(3) - lu(1089) * b(72) + b(1) = b(1) - lu(1088) * b(72) + b(71) = b(71) * lu(1071) + b(70) = b(70) - lu(1070) * b(71) + b(69) = b(69) - lu(1069) * b(71) + b(68) = b(68) - lu(1068) * b(71) + b(67) = b(67) - lu(1067) * b(71) + b(66) = b(66) - lu(1066) * b(71) + b(65) = b(65) - lu(1065) * b(71) + b(64) = b(64) - lu(1064) * b(71) + b(63) = b(63) - lu(1063) * b(71) + b(62) = b(62) - lu(1062) * b(71) + b(61) = b(61) - lu(1061) * b(71) + b(60) = b(60) - lu(1060) * b(71) + b(59) = b(59) - lu(1059) * b(71) + b(57) = b(57) - lu(1058) * b(71) + b(56) = b(56) - lu(1057) * b(71) + b(55) = b(55) - lu(1056) * b(71) + b(54) = b(54) - lu(1055) * b(71) + b(53) = b(53) - lu(1054) * b(71) + b(52) = b(52) - lu(1053) * b(71) + b(50) = b(50) - lu(1052) * b(71) + b(48) = b(48) - lu(1051) * b(71) + b(44) = b(44) - lu(1050) * b(71) + b(39) = b(39) - lu(1049) * b(71) + b(38) = b(38) - lu(1048) * b(71) + b(36) = b(36) - lu(1047) * b(71) + b(30) = b(30) - lu(1046) * b(71) + b(20) = b(20) - lu(1045) * b(71) + b(15) = b(15) - lu(1044) * b(71) + b(70) = b(70) * lu(1026) + b(69) = b(69) - lu(1025) * b(70) + b(68) = b(68) - lu(1024) * b(70) + b(67) = b(67) - lu(1023) * b(70) + b(66) = b(66) - lu(1022) * b(70) + b(65) = b(65) - lu(1021) * b(70) + b(64) = b(64) - lu(1020) * b(70) + b(63) = b(63) - lu(1019) * b(70) + b(62) = b(62) - lu(1018) * b(70) + b(61) = b(61) - lu(1017) * b(70) + b(60) = b(60) - lu(1016) * b(70) + b(59) = b(59) - lu(1015) * b(70) + b(58) = b(58) - lu(1014) * b(70) + b(55) = b(55) - lu(1013) * b(70) + b(54) = b(54) - lu(1012) * b(70) + b(53) = b(53) - lu(1011) * b(70) + b(52) = b(52) - lu(1010) * b(70) + b(49) = b(49) - lu(1009) * b(70) + b(47) = b(47) - lu(1008) * b(70) + b(46) = b(46) - lu(1007) * b(70) + b(45) = b(45) - lu(1006) * b(70) + b(43) = b(43) - lu(1005) * b(70) + b(41) = b(41) - lu(1004) * b(70) + b(26) = b(26) - lu(1003) * b(70) + b(24) = b(24) - lu(1002) * b(70) + b(69) = b(69) * lu(983) + b(68) = b(68) - lu(982) * b(69) + b(67) = b(67) - lu(981) * b(69) + b(66) = b(66) - lu(980) * b(69) + b(65) = b(65) - lu(979) * b(69) + b(64) = b(64) - lu(978) * b(69) + b(63) = b(63) - lu(977) * b(69) + b(62) = b(62) - lu(976) * b(69) + b(61) = b(61) - lu(975) * b(69) + b(60) = b(60) - lu(974) * b(69) + b(59) = b(59) - lu(973) * b(69) + b(58) = b(58) - lu(972) * b(69) + b(55) = b(55) - lu(971) * b(69) + b(54) = b(54) - lu(970) * b(69) + b(53) = b(53) - lu(969) * b(69) + b(52) = b(52) - lu(968) * b(69) + b(49) = b(49) - lu(967) * b(69) + b(47) = b(47) - lu(966) * b(69) + b(46) = b(46) - lu(965) * b(69) + b(45) = b(45) - lu(964) * b(69) + b(43) = b(43) - lu(963) * b(69) + b(41) = b(41) - lu(962) * b(69) + b(26) = b(26) - lu(961) * b(69) + b(68) = b(68) * lu(941) + b(67) = b(67) - lu(940) * b(68) + b(66) = b(66) - lu(939) * b(68) + b(65) = b(65) - lu(938) * b(68) + b(64) = b(64) - lu(937) * b(68) + b(63) = b(63) - lu(936) * b(68) + b(62) = b(62) - lu(935) * b(68) + b(61) = b(61) - lu(934) * b(68) + b(60) = b(60) - lu(933) * b(68) + b(59) = b(59) - lu(932) * b(68) + b(58) = b(58) - lu(931) * b(68) + b(57) = b(57) - lu(930) * b(68) + b(56) = b(56) - lu(929) * b(68) + b(51) = b(51) - lu(928) * b(68) + b(48) = b(48) - lu(927) * b(68) + b(26) = b(26) - lu(926) * b(68) + b(67) = b(67) * lu(905) + b(66) = b(66) - lu(904) * b(67) + b(65) = b(65) - lu(903) * b(67) + b(64) = b(64) - lu(902) * b(67) + b(63) = b(63) - lu(901) * b(67) + b(62) = b(62) - lu(900) * b(67) + b(61) = b(61) - lu(899) * b(67) + b(60) = b(60) - lu(898) * b(67) + b(59) = b(59) - lu(897) * b(67) + b(58) = b(58) - lu(896) * b(67) + b(57) = b(57) - lu(895) * b(67) + b(56) = b(56) - lu(894) * b(67) + b(52) = b(52) - lu(893) * b(67) + b(50) = b(50) - lu(892) * b(67) + b(49) = b(49) - lu(891) * b(67) + b(46) = b(46) - lu(890) * b(67) + b(45) = b(45) - lu(889) * b(67) + b(44) = b(44) - lu(888) * b(67) + b(36) = b(36) - lu(887) * b(67) + b(33) = b(33) - lu(886) * b(67) + b(30) = b(30) - lu(885) * b(67) + b(25) = b(25) - lu(884) * b(67) + b(6) = b(6) - lu(883) * b(67) + b(4) = b(4) - lu(882) * b(67) end subroutine lu_slv08 - subroutine lu_slv09( avec_len, lu, b ) + subroutine lu_slv09( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,68) = b(k,68) * lu(k,979) - b(k,67) = b(k,67) - lu(k,978) * b(k,68) - b(k,66) = b(k,66) - lu(k,977) * b(k,68) - b(k,65) = b(k,65) - lu(k,976) * b(k,68) - b(k,64) = b(k,64) - lu(k,975) * b(k,68) - b(k,63) = b(k,63) - lu(k,974) * b(k,68) - b(k,62) = b(k,62) - lu(k,973) * b(k,68) - b(k,61) = b(k,61) - lu(k,972) * b(k,68) - b(k,60) = b(k,60) - lu(k,971) * b(k,68) - b(k,59) = b(k,59) - lu(k,970) * b(k,68) - b(k,58) = b(k,58) - lu(k,969) * b(k,68) - b(k,57) = b(k,57) - lu(k,968) * b(k,68) - b(k,56) = b(k,56) - lu(k,967) * b(k,68) - b(k,52) = b(k,52) - lu(k,966) * b(k,68) - b(k,50) = b(k,50) - lu(k,965) * b(k,68) - b(k,49) = b(k,49) - lu(k,964) * b(k,68) - b(k,44) = b(k,44) - lu(k,963) * b(k,68) - b(k,41) = b(k,41) - lu(k,962) * b(k,68) - b(k,40) = b(k,40) - lu(k,961) * b(k,68) - b(k,38) = b(k,38) - lu(k,960) * b(k,68) - b(k,36) = b(k,36) - lu(k,959) * b(k,68) - b(k,35) = b(k,35) - lu(k,958) * b(k,68) - b(k,34) = b(k,34) - lu(k,957) * b(k,68) - b(k,33) = b(k,33) - lu(k,956) * b(k,68) - b(k,32) = b(k,32) - lu(k,955) * b(k,68) - b(k,31) = b(k,31) - lu(k,954) * b(k,68) - b(k,29) = b(k,29) - lu(k,953) * b(k,68) - b(k,28) = b(k,28) - lu(k,952) * b(k,68) - b(k,25) = b(k,25) - lu(k,951) * b(k,68) - b(k,20) = b(k,20) - lu(k,950) * b(k,68) - b(k,19) = b(k,19) - lu(k,949) * b(k,68) - b(k,18) = b(k,18) - lu(k,948) * b(k,68) - b(k,17) = b(k,17) - lu(k,947) * b(k,68) - b(k,16) = b(k,16) - lu(k,946) * b(k,68) - b(k,15) = b(k,15) - lu(k,945) * b(k,68) - b(k,10) = b(k,10) - lu(k,944) * b(k,68) - b(k,67) = b(k,67) * lu(k,922) - b(k,66) = b(k,66) - lu(k,921) * b(k,67) - b(k,65) = b(k,65) - lu(k,920) * b(k,67) - b(k,64) = b(k,64) - lu(k,919) * b(k,67) - b(k,63) = b(k,63) - lu(k,918) * b(k,67) - b(k,62) = b(k,62) - lu(k,917) * b(k,67) - b(k,61) = b(k,61) - lu(k,916) * b(k,67) - b(k,60) = b(k,60) - lu(k,915) * b(k,67) - b(k,59) = b(k,59) - lu(k,914) * b(k,67) - b(k,58) = b(k,58) - lu(k,913) * b(k,67) - b(k,55) = b(k,55) - lu(k,912) * b(k,67) - b(k,54) = b(k,54) - lu(k,911) * b(k,67) - b(k,53) = b(k,53) - lu(k,910) * b(k,67) - b(k,51) = b(k,51) - lu(k,909) * b(k,67) - b(k,48) = b(k,48) - lu(k,908) * b(k,67) - b(k,47) = b(k,47) - lu(k,907) * b(k,67) - b(k,46) = b(k,46) - lu(k,906) * b(k,67) - b(k,45) = b(k,45) - lu(k,905) * b(k,67) - b(k,43) = b(k,43) - lu(k,904) * b(k,67) - b(k,42) = b(k,42) - lu(k,903) * b(k,67) - b(k,24) = b(k,24) - lu(k,902) * b(k,67) - b(k,13) = b(k,13) - lu(k,901) * b(k,67) - b(k,66) = b(k,66) * lu(k,878) - b(k,65) = b(k,65) - lu(k,877) * b(k,66) - b(k,64) = b(k,64) - lu(k,876) * b(k,66) - b(k,63) = b(k,63) - lu(k,875) * b(k,66) - b(k,62) = b(k,62) - lu(k,874) * b(k,66) - b(k,61) = b(k,61) - lu(k,873) * b(k,66) - b(k,60) = b(k,60) - lu(k,872) * b(k,66) - b(k,59) = b(k,59) - lu(k,871) * b(k,66) - b(k,58) = b(k,58) - lu(k,870) * b(k,66) - b(k,57) = b(k,57) - lu(k,869) * b(k,66) - b(k,55) = b(k,55) - lu(k,868) * b(k,66) - b(k,54) = b(k,54) - lu(k,867) * b(k,66) - b(k,53) = b(k,53) - lu(k,866) * b(k,66) - b(k,51) = b(k,51) - lu(k,865) * b(k,66) - b(k,48) = b(k,48) - lu(k,864) * b(k,66) - b(k,47) = b(k,47) - lu(k,863) * b(k,66) - b(k,46) = b(k,46) - lu(k,862) * b(k,66) - b(k,45) = b(k,45) - lu(k,861) * b(k,66) - b(k,43) = b(k,43) - lu(k,860) * b(k,66) - b(k,42) = b(k,42) - lu(k,859) * b(k,66) - b(k,40) = b(k,40) - lu(k,858) * b(k,66) - b(k,38) = b(k,38) - lu(k,857) * b(k,66) - b(k,31) = b(k,31) - lu(k,856) * b(k,66) - b(k,29) = b(k,29) - lu(k,855) * b(k,66) - b(k,23) = b(k,23) - lu(k,854) * b(k,66) - b(k,22) = b(k,22) - lu(k,853) * b(k,66) - b(k,65) = b(k,65) * lu(k,829) - b(k,64) = b(k,64) - lu(k,828) * b(k,65) - b(k,63) = b(k,63) - lu(k,827) * b(k,65) - b(k,62) = b(k,62) - lu(k,826) * b(k,65) - b(k,61) = b(k,61) - lu(k,825) * b(k,65) - b(k,60) = b(k,60) - lu(k,824) * b(k,65) - b(k,59) = b(k,59) - lu(k,823) * b(k,65) - b(k,58) = b(k,58) - lu(k,822) * b(k,65) - b(k,55) = b(k,55) - lu(k,821) * b(k,65) - b(k,54) = b(k,54) - lu(k,820) * b(k,65) - b(k,53) = b(k,53) - lu(k,819) * b(k,65) - b(k,51) = b(k,51) - lu(k,818) * b(k,65) - b(k,48) = b(k,48) - lu(k,817) * b(k,65) - b(k,47) = b(k,47) - lu(k,816) * b(k,65) - b(k,46) = b(k,46) - lu(k,815) * b(k,65) - b(k,45) = b(k,45) - lu(k,814) * b(k,65) - b(k,43) = b(k,43) - lu(k,813) * b(k,65) - b(k,42) = b(k,42) - lu(k,812) * b(k,65) - b(k,26) = b(k,26) - lu(k,811) * b(k,65) - b(k,21) = b(k,21) - lu(k,810) * b(k,65) - b(k,64) = b(k,64) * lu(k,785) - b(k,63) = b(k,63) - lu(k,784) * b(k,64) - b(k,62) = b(k,62) - lu(k,783) * b(k,64) - b(k,60) = b(k,60) - lu(k,782) * b(k,64) - b(k,58) = b(k,58) - lu(k,781) * b(k,64) - b(k,55) = b(k,55) - lu(k,780) * b(k,64) - b(k,54) = b(k,54) - lu(k,779) * b(k,64) - b(k,49) = b(k,49) - lu(k,778) * b(k,64) - b(k,35) = b(k,35) - lu(k,777) * b(k,64) - b(k,63) = b(k,63) * lu(k,755) - b(k,61) = b(k,61) - lu(k,754) * b(k,63) - b(k,57) = b(k,57) - lu(k,753) * b(k,63) - b(k,56) = b(k,56) - lu(k,752) * b(k,63) - b(k,52) = b(k,52) - lu(k,751) * b(k,63) - b(k,50) = b(k,50) - lu(k,750) * b(k,63) - b(k,44) = b(k,44) - lu(k,749) * b(k,63) - b(k,40) = b(k,40) - lu(k,748) * b(k,63) - b(k,39) = b(k,39) - lu(k,747) * b(k,63) - b(k,34) = b(k,34) - lu(k,746) * b(k,63) - b(k,33) = b(k,33) - lu(k,745) * b(k,63) - b(k,32) = b(k,32) - lu(k,744) * b(k,63) - b(k,30) = b(k,30) - lu(k,743) * b(k,63) - b(k,26) = b(k,26) - lu(k,742) * b(k,63) - b(k,25) = b(k,25) - lu(k,741) * b(k,63) - b(k,24) = b(k,24) - lu(k,740) * b(k,63) - b(k,18) = b(k,18) - lu(k,739) * b(k,63) - b(k,14) = b(k,14) - lu(k,738) * b(k,63) - b(k,12) = b(k,12) - lu(k,737) * b(k,63) - b(k,5) = b(k,5) - lu(k,736) * b(k,63) - b(k,2) = b(k,2) - lu(k,735) * b(k,63) - b(k,62) = b(k,62) * lu(k,712) - b(k,60) = b(k,60) - lu(k,711) * b(k,62) - b(k,58) = b(k,58) - lu(k,710) * b(k,62) - b(k,47) = b(k,47) - lu(k,709) * b(k,62) - b(k,24) = b(k,24) - lu(k,708) * b(k,62) - b(k,61) = b(k,61) * lu(k,686) - b(k,57) = b(k,57) - lu(k,685) * b(k,61) - b(k,56) = b(k,56) - lu(k,684) * b(k,61) - b(k,52) = b(k,52) - lu(k,683) * b(k,61) - b(k,50) = b(k,50) - lu(k,682) * b(k,61) - b(k,44) = b(k,44) - lu(k,681) * b(k,61) - b(k,39) = b(k,39) - lu(k,680) * b(k,61) - b(k,33) = b(k,33) - lu(k,679) * b(k,61) - b(k,32) = b(k,32) - lu(k,678) * b(k,61) - b(k,28) = b(k,28) - lu(k,677) * b(k,61) - b(k,26) = b(k,26) - lu(k,676) * b(k,61) - b(k,18) = b(k,18) - lu(k,675) * b(k,61) - b(k,14) = b(k,14) - lu(k,674) * b(k,61) - b(k,12) = b(k,12) - lu(k,673) * b(k,61) - b(k,60) = b(k,60) * lu(k,652) - b(k,58) = b(k,58) - lu(k,651) * b(k,60) - b(k,55) = b(k,55) - lu(k,650) * b(k,60) - b(k,51) = b(k,51) - lu(k,649) * b(k,60) - b(k,48) = b(k,48) - lu(k,648) * b(k,60) - b(k,59) = b(k,59) * lu(k,619) - b(k,58) = b(k,58) - lu(k,618) * b(k,59) - b(k,49) = b(k,49) - lu(k,617) * b(k,59) - b(k,35) = b(k,35) - lu(k,616) * b(k,59) - b(k,58) = b(k,58) * lu(k,597) - b(k,46) = b(k,46) - lu(k,596) * b(k,58) - b(k,45) = b(k,45) - lu(k,595) * b(k,58) - b(k,57) = b(k,57) * lu(k,573) - b(k,56) = b(k,56) - lu(k,572) * b(k,57) - b(k,52) = b(k,52) - lu(k,571) * b(k,57) - b(k,50) = b(k,50) - lu(k,570) * b(k,57) - b(k,44) = b(k,44) - lu(k,569) * b(k,57) - b(k,41) = b(k,41) - lu(k,568) * b(k,57) - b(k,39) = b(k,39) - lu(k,567) * b(k,57) - b(k,36) = b(k,36) - lu(k,566) * b(k,57) - b(k,33) = b(k,33) - lu(k,565) * b(k,57) - b(k,30) = b(k,30) - lu(k,564) * b(k,57) - b(k,10) = b(k,10) - lu(k,563) * b(k,57) - b(k,5) = b(k,5) - lu(k,562) * b(k,57) - b(k,2) = b(k,2) - lu(k,561) * b(k,57) - b(k,56) = b(k,56) * lu(k,541) - b(k,52) = b(k,52) - lu(k,540) * b(k,56) - b(k,50) = b(k,50) - lu(k,539) * b(k,56) - b(k,44) = b(k,44) - lu(k,538) * b(k,56) - b(k,33) = b(k,33) - lu(k,537) * b(k,56) - b(k,25) = b(k,25) - lu(k,536) * b(k,56) - b(k,55) = b(k,55) * lu(k,519) - b(k,53) = b(k,53) - lu(k,518) * b(k,55) - b(k,51) = b(k,51) - lu(k,517) * b(k,55) - b(k,37) = b(k,37) - lu(k,516) * b(k,55) - b(k,54) = b(k,54) * lu(k,497) - b(k,47) = b(k,47) - lu(k,496) * b(k,54) - b(k,43) = b(k,43) - lu(k,495) * b(k,54) - b(k,53) = b(k,53) * lu(k,477) - b(k,51) = b(k,51) - lu(k,476) * b(k,53) - b(k,37) = b(k,37) - lu(k,475) * b(k,53) - b(k,52) = b(k,52) * lu(k,457) - b(k,44) = b(k,44) - lu(k,456) * b(k,52) - b(k,28) = b(k,28) - lu(k,455) * b(k,52) - b(k,17) = b(k,17) - lu(k,454) * b(k,52) - b(k,6) = b(k,6) - lu(k,453) * b(k,52) - b(k,3) = b(k,3) - lu(k,452) * b(k,52) - b(k,51) = b(k,51) * lu(k,438) - end do + b(66) = b(66) * lu(860) + b(65) = b(65) - lu(859) * b(66) + b(64) = b(64) - lu(858) * b(66) + b(63) = b(63) - lu(857) * b(66) + b(62) = b(62) - lu(856) * b(66) + b(61) = b(61) - lu(855) * b(66) + b(60) = b(60) - lu(854) * b(66) + b(59) = b(59) - lu(853) * b(66) + b(58) = b(58) - lu(852) * b(66) + b(55) = b(55) - lu(851) * b(66) + b(54) = b(54) - lu(850) * b(66) + b(53) = b(53) - lu(849) * b(66) + b(52) = b(52) - lu(848) * b(66) + b(49) = b(49) - lu(847) * b(66) + b(47) = b(47) - lu(846) * b(66) + b(46) = b(46) - lu(845) * b(66) + b(45) = b(45) - lu(844) * b(66) + b(43) = b(43) - lu(843) * b(66) + b(41) = b(41) - lu(842) * b(66) + b(25) = b(25) - lu(841) * b(66) + b(13) = b(13) - lu(840) * b(66) + b(65) = b(65) * lu(817) + b(64) = b(64) - lu(816) * b(65) + b(63) = b(63) - lu(815) * b(65) + b(62) = b(62) - lu(814) * b(65) + b(61) = b(61) - lu(813) * b(65) + b(60) = b(60) - lu(812) * b(65) + b(59) = b(59) - lu(811) * b(65) + b(58) = b(58) - lu(810) * b(65) + b(57) = b(57) - lu(809) * b(65) + b(55) = b(55) - lu(808) * b(65) + b(54) = b(54) - lu(807) * b(65) + b(53) = b(53) - lu(806) * b(65) + b(52) = b(52) - lu(805) * b(65) + b(49) = b(49) - lu(804) * b(65) + b(47) = b(47) - lu(803) * b(65) + b(46) = b(46) - lu(802) * b(65) + b(45) = b(45) - lu(801) * b(65) + b(43) = b(43) - lu(800) * b(65) + b(41) = b(41) - lu(799) * b(65) + b(39) = b(39) - lu(798) * b(65) + b(35) = b(35) - lu(797) * b(65) + b(31) = b(31) - lu(796) * b(65) + b(28) = b(28) - lu(795) * b(65) + b(17) = b(17) - lu(794) * b(65) + b(16) = b(16) - lu(793) * b(65) + b(64) = b(64) * lu(769) + b(62) = b(62) - lu(768) * b(64) + b(60) = b(60) - lu(767) * b(64) + b(59) = b(59) - lu(766) * b(64) + b(47) = b(47) - lu(765) * b(64) + b(25) = b(25) - lu(764) * b(64) + b(63) = b(63) * lu(739) + b(62) = b(62) - lu(738) * b(63) + b(60) = b(60) - lu(737) * b(63) + b(59) = b(59) - lu(736) * b(63) + b(55) = b(55) - lu(735) * b(63) + b(54) = b(54) - lu(734) * b(63) + b(48) = b(48) - lu(733) * b(63) + b(37) = b(37) - lu(732) * b(63) + b(62) = b(62) * lu(711) + b(61) = b(61) - lu(710) * b(62) + b(57) = b(57) - lu(709) * b(62) + b(56) = b(56) - lu(708) * b(62) + b(51) = b(51) - lu(707) * b(62) + b(50) = b(50) - lu(706) * b(62) + b(44) = b(44) - lu(705) * b(62) + b(40) = b(40) - lu(704) * b(62) + b(39) = b(39) - lu(703) * b(62) + b(36) = b(36) - lu(702) * b(62) + b(33) = b(33) - lu(701) * b(62) + b(32) = b(32) - lu(700) * b(62) + b(29) = b(29) - lu(699) * b(62) + b(26) = b(26) - lu(698) * b(62) + b(25) = b(25) - lu(697) * b(62) + b(23) = b(23) - lu(696) * b(62) + b(21) = b(21) - lu(695) * b(62) + b(15) = b(15) - lu(694) * b(62) + b(11) = b(11) - lu(693) * b(62) + b(5) = b(5) - lu(692) * b(62) + b(2) = b(2) - lu(691) * b(62) + b(61) = b(61) * lu(670) + b(57) = b(57) - lu(669) * b(61) + b(56) = b(56) - lu(668) * b(61) + b(51) = b(51) - lu(667) * b(61) + b(50) = b(50) - lu(666) * b(61) + b(44) = b(44) - lu(665) * b(61) + b(40) = b(40) - lu(664) * b(61) + b(33) = b(33) - lu(663) * b(61) + b(32) = b(32) - lu(662) * b(61) + b(30) = b(30) - lu(661) * b(61) + b(26) = b(26) - lu(660) * b(61) + b(23) = b(23) - lu(659) * b(61) + b(15) = b(15) - lu(658) * b(61) + b(11) = b(11) - lu(657) * b(61) + b(60) = b(60) * lu(636) + b(59) = b(59) - lu(635) * b(60) + b(55) = b(55) - lu(634) * b(60) + b(52) = b(52) - lu(633) * b(60) + b(49) = b(49) - lu(632) * b(60) + b(59) = b(59) * lu(613) + b(46) = b(46) - lu(612) * b(59) + b(45) = b(45) - lu(611) * b(59) + b(58) = b(58) * lu(583) + b(48) = b(48) - lu(582) * b(58) + b(37) = b(37) - lu(581) * b(58) + b(57) = b(57) * lu(560) + b(56) = b(56) - lu(559) * b(57) + b(51) = b(51) - lu(558) * b(57) + b(50) = b(50) - lu(557) * b(57) + b(44) = b(44) - lu(556) * b(57) + b(42) = b(42) - lu(555) * b(57) + b(40) = b(40) - lu(554) * b(57) + b(34) = b(34) - lu(553) * b(57) + b(32) = b(32) - lu(552) * b(57) + b(29) = b(29) - lu(551) * b(57) + b(8) = b(8) - lu(550) * b(57) + b(5) = b(5) - lu(549) * b(57) + b(2) = b(2) - lu(548) * b(57) + b(56) = b(56) * lu(529) + b(51) = b(51) - lu(528) * b(56) + b(50) = b(50) - lu(527) * b(56) + b(44) = b(44) - lu(526) * b(56) + b(32) = b(32) - lu(525) * b(56) + b(21) = b(21) - lu(524) * b(56) + b(55) = b(55) * lu(507) + b(53) = b(53) - lu(506) * b(55) + b(52) = b(52) - lu(505) * b(55) + b(38) = b(38) - lu(504) * b(55) + b(54) = b(54) * lu(486) + b(47) = b(47) - lu(485) * b(54) + b(43) = b(43) - lu(484) * b(54) + b(53) = b(53) * lu(466) + b(52) = b(52) - lu(465) * b(53) + b(38) = b(38) - lu(464) * b(53) + b(52) = b(52) * lu(450) + b(51) = b(51) * lu(431) + b(40) = b(40) - lu(430) * b(51) + b(29) = b(29) - lu(429) * b(51) + b(7) = b(7) - lu(428) * b(51) + b(50) = b(50) * lu(411) + b(44) = b(44) - lu(410) * b(50) + b(30) = b(30) - lu(409) * b(50) + b(20) = b(20) - lu(408) * b(50) + b(6) = b(6) - lu(407) * b(50) + b(3) = b(3) - lu(406) * b(50) + b(49) = b(49) * lu(390) + b(48) = b(48) * lu(376) + b(47) = b(47) * lu(362) + b(46) = b(46) * lu(347) + b(45) = b(45) - lu(346) * b(46) + b(45) = b(45) * lu(331) + b(44) = b(44) * lu(320) + b(32) = b(32) - lu(319) * b(44) + b(21) = b(21) - lu(318) * b(44) + b(43) = b(43) * lu(304) + b(42) = b(42) * lu(292) + b(34) = b(34) - lu(291) * b(42) + b(27) = b(27) - lu(290) * b(42) + b(41) = b(41) * lu(277) + b(40) = b(40) * lu(266) + b(11) = b(11) - lu(265) * b(40) + b(39) = b(39) * lu(253) + b(35) = b(35) - lu(252) * b(39) + b(31) = b(31) - lu(251) * b(39) + b(38) = b(38) * lu(239) + b(10) = b(10) - lu(238) * b(38) + b(9) = b(9) - lu(237) * b(38) + b(37) = b(37) * lu(229) + b(36) = b(36) * lu(219) + b(33) = b(33) - lu(218) * b(36) + b(4) = b(4) - lu(217) * b(36) + b(35) = b(35) * lu(206) + b(31) = b(31) - lu(205) * b(35) + b(28) = b(28) - lu(204) * b(35) + b(21) = b(21) - lu(203) * b(35) + b(34) = b(34) * lu(195) + b(33) = b(33) * lu(188) + b(4) = b(4) - lu(187) * b(33) + b(32) = b(32) * lu(179) + b(31) = b(31) * lu(172) + b(30) = b(30) * lu(164) + b(6) = b(6) - lu(163) * b(30) + b(29) = b(29) * lu(155) + b(7) = b(7) - lu(154) * b(29) + b(28) = b(28) * lu(146) + b(27) = b(27) * lu(138) + b(26) = b(26) - lu(137) * b(27) + b(24) = b(24) - lu(136) * b(27) + b(12) = b(12) - lu(135) * b(27) + b(26) = b(26) * lu(130) + b(24) = b(24) - lu(129) * b(26) + b(25) = b(25) * lu(124) + b(24) = b(24) * lu(118) + b(23) = b(23) * lu(111) + b(22) = b(22) * lu(102) + b(21) = b(21) * lu(98) + b(20) = b(20) * lu(90) + b(19) = b(19) * lu(84) + b(18) = b(18) * lu(77) + b(17) = b(17) * lu(71) end subroutine lu_slv09 - subroutine lu_slv10( avec_len, lu, b ) + subroutine lu_slv10( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,50) = b(k,50) * lu(k,419) - b(k,39) = b(k,39) - lu(k,418) * b(k,50) - b(k,30) = b(k,30) - lu(k,417) * b(k,50) - b(k,7) = b(k,7) - lu(k,416) * b(k,50) - b(k,49) = b(k,49) * lu(k,401) - b(k,48) = b(k,48) * lu(k,385) - b(k,47) = b(k,47) * lu(k,371) - b(k,46) = b(k,46) * lu(k,356) - b(k,45) = b(k,45) - lu(k,355) * b(k,46) - b(k,45) = b(k,45) * lu(k,340) - b(k,44) = b(k,44) * lu(k,328) - b(k,33) = b(k,33) - lu(k,327) * b(k,44) - b(k,25) = b(k,25) - lu(k,326) * b(k,44) - b(k,43) = b(k,43) * lu(k,311) - b(k,42) = b(k,42) * lu(k,297) - b(k,41) = b(k,41) * lu(k,285) - b(k,36) = b(k,36) - lu(k,284) * b(k,41) - b(k,27) = b(k,27) - lu(k,283) * b(k,41) - b(k,40) = b(k,40) * lu(k,270) - b(k,38) = b(k,38) - lu(k,269) * b(k,40) - b(k,31) = b(k,31) - lu(k,268) * b(k,40) - b(k,39) = b(k,39) * lu(k,257) - b(k,12) = b(k,12) - lu(k,256) * b(k,39) - b(k,38) = b(k,38) * lu(k,244) - b(k,31) = b(k,31) - lu(k,243) * b(k,38) - b(k,29) = b(k,29) - lu(k,242) * b(k,38) - b(k,25) = b(k,25) - lu(k,241) * b(k,38) - b(k,37) = b(k,37) * lu(k,229) - b(k,9) = b(k,9) - lu(k,228) * b(k,37) - b(k,8) = b(k,8) - lu(k,227) * b(k,37) - b(k,36) = b(k,36) * lu(k,219) - b(k,35) = b(k,35) * lu(k,211) - b(k,34) = b(k,34) * lu(k,201) - b(k,32) = b(k,32) - lu(k,200) * b(k,34) - b(k,4) = b(k,4) - lu(k,199) * b(k,34) - b(k,33) = b(k,33) * lu(k,191) - b(k,32) = b(k,32) * lu(k,184) - b(k,4) = b(k,4) - lu(k,183) * b(k,32) - b(k,31) = b(k,31) * lu(k,176) - b(k,30) = b(k,30) * lu(k,168) - b(k,7) = b(k,7) - lu(k,167) * b(k,30) - b(k,29) = b(k,29) * lu(k,159) - b(k,28) = b(k,28) * lu(k,151) - b(k,6) = b(k,6) - lu(k,150) * b(k,28) - b(k,27) = b(k,27) * lu(k,142) - b(k,26) = b(k,26) - lu(k,141) * b(k,27) - b(k,21) = b(k,21) - lu(k,140) * b(k,27) - b(k,11) = b(k,11) - lu(k,139) * b(k,27) - b(k,26) = b(k,26) * lu(k,134) - b(k,21) = b(k,21) - lu(k,133) * b(k,26) - b(k,25) = b(k,25) * lu(k,128) - b(k,24) = b(k,24) * lu(k,123) - b(k,23) = b(k,23) * lu(k,116) - b(k,22) = b(k,22) * lu(k,108) - b(k,21) = b(k,21) * lu(k,102) - b(k,20) = b(k,20) * lu(k,95) - b(k,19) = b(k,19) * lu(k,86) - b(k,18) = b(k,18) * lu(k,79) - b(k,17) = b(k,17) * lu(k,71) - b(k,16) = b(k,16) * lu(k,65) - b(k,15) = b(k,15) * lu(k,58) - b(k,14) = b(k,14) * lu(k,51) - b(k,13) = b(k,13) * lu(k,45) - b(k,12) = b(k,12) * lu(k,39) - b(k,11) = b(k,11) * lu(k,33) - b(k,10) = b(k,10) * lu(k,30) - b(k,9) = b(k,9) * lu(k,26) - b(k,8) = b(k,8) * lu(k,22) - b(k,7) = b(k,7) * lu(k,19) - b(k,6) = b(k,6) * lu(k,16) - b(k,5) = b(k,5) * lu(k,12) - b(k,4) = b(k,4) * lu(k,10) - b(k,3) = b(k,3) * lu(k,7) - b(k,2) = b(k,2) * lu(k,4) - b(k,1) = b(k,1) * lu(k,1) - end do + b(16) = b(16) * lu(64) + b(15) = b(15) * lu(57) + b(14) = b(14) * lu(51) + b(13) = b(13) * lu(45) + b(12) = b(12) * lu(39) + b(11) = b(11) * lu(33) + b(10) = b(10) * lu(29) + b(9) = b(9) * lu(25) + b(8) = b(8) * lu(22) + b(7) = b(7) * lu(19) + b(6) = b(6) * lu(16) + b(5) = b(5) * lu(12) + b(4) = b(4) * lu(10) + b(3) = b(3) * lu(7) + b(2) = b(2) * lu(4) + b(1) = b(1) * lu(1) end subroutine lu_slv10 - subroutine lu_slv( avec_len, lu, b ) + subroutine lu_slv( 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) - call lu_slv01( avec_len, lu, b ) - call lu_slv02( avec_len, lu, b ) - call lu_slv03( avec_len, lu, b ) - call lu_slv04( avec_len, lu, b ) - call lu_slv05( avec_len, lu, b ) - call lu_slv06( avec_len, lu, b ) - call lu_slv07( avec_len, lu, b ) - call lu_slv08( avec_len, lu, b ) - call lu_slv09( avec_len, lu, b ) - call lu_slv10( avec_len, lu, b ) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) + call lu_slv01( lu, b ) + call lu_slv02( lu, b ) + call lu_slv03( lu, b ) + call lu_slv04( lu, b ) + call lu_slv05( lu, b ) + call lu_slv06( lu, b ) + call lu_slv07( lu, b ) + call lu_slv08( lu, b ) + call lu_slv09( lu, b ) + call lu_slv10( lu, b ) end subroutine lu_slv end module mo_lu_solve diff --git a/src/chemistry/pp_waccm_mad/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_mad/mo_nln_matrix.F90 index 757cd5b451..e099d488d2 100644 --- a/src/chemistry/pp_waccm_mad/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_mad/mo_nln_matrix.F90 @@ -1,3006 +1,2730 @@ module mo_nln_matrix use shr_kind_mod, only : r8 => shr_kind_r8 - use chem_mods, only: veclen private public :: nlnmat contains - subroutine nlnmat01( avec_len, mat, y, rxt ) + subroutine nlnmat01( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,453) = rxt(k,487)*y(k,24) - mat(k,1500) = rxt(k,487)*y(k,2) - mat(k,1453) = (rxt(k,549)+rxt(k,554))*y(k,45) - mat(k,150) = (rxt(k,549)+rxt(k,554))*y(k,40) - mat(k,457) = -(4._r8*rxt(k,484)*y(k,2) + (rxt(k,485) + rxt(k,486) + rxt(k,487) & - ) * y(k,24) + rxt(k,488)*y(k,43) + rxt(k,489)*y(k,51) + rxt(k,490) & - *y(k,52) + rxt(k,492)*y(k,54) + rxt(k,493)*y(k,104)) - mat(k,1506) = -(rxt(k,485) + rxt(k,486) + rxt(k,487)) * y(k,2) - mat(k,683) = -rxt(k,488)*y(k,2) - mat(k,1738) = -rxt(k,489)*y(k,2) - mat(k,1134) = -rxt(k,490)*y(k,2) - mat(k,966) = -rxt(k,492)*y(k,2) - mat(k,751) = -rxt(k,493)*y(k,2) - mat(k,74) = rxt(k,491)*y(k,54) - mat(k,193) = rxt(k,501)*y(k,95) - mat(k,153) = rxt(k,496)*y(k,54) - mat(k,966) = mat(k,966) + rxt(k,491)*y(k,3) + rxt(k,496)*y(k,45) - mat(k,1419) = rxt(k,483)*y(k,59) - mat(k,329) = rxt(k,483)*y(k,56) - mat(k,571) = rxt(k,501)*y(k,36) - mat(k,71) = -(rxt(k,491)*y(k,54)) - mat(k,947) = -rxt(k,491)*y(k,3) - mat(k,454) = rxt(k,490)*y(k,52) - mat(k,1126) = rxt(k,490)*y(k,2) - mat(k,541) = -(rxt(k,445)*y(k,60) + rxt(k,481)*y(k,59) + rxt(k,525)*y(k,53) & - + rxt(k,526)*y(k,54) + rxt(k,527)*y(k,104)) - mat(k,1662) = -rxt(k,445)*y(k,14) - mat(k,330) = -rxt(k,481)*y(k,14) - mat(k,1218) = -rxt(k,525)*y(k,14) - mat(k,967) = -rxt(k,526)*y(k,14) - mat(k,752) = -rxt(k,527)*y(k,14) - mat(k,258) = rxt(k,452)*y(k,24) + rxt(k,529)*y(k,51) - mat(k,41) = .300_r8*rxt(k,530)*y(k,104) - mat(k,1507) = rxt(k,452)*y(k,18) - mat(k,1741) = rxt(k,529)*y(k,18) - mat(k,752) = mat(k,752) + .300_r8*rxt(k,530)*y(k,19) - mat(k,257) = -(rxt(k,452)*y(k,24) + rxt(k,528)*y(k,43) + rxt(k,529)*y(k,51)) - mat(k,1504) = -rxt(k,452)*y(k,18) - mat(k,680) = -rxt(k,528)*y(k,18) - mat(k,1733) = -rxt(k,529)*y(k,18) - mat(k,40) = .700_r8*rxt(k,530)*y(k,104) - mat(k,747) = .700_r8*rxt(k,530)*y(k,19) - mat(k,39) = -(rxt(k,530)*y(k,104)) - mat(k,737) = -rxt(k,530)*y(k,19) - mat(k,256) = rxt(k,528)*y(k,43) - mat(k,673) = rxt(k,528)*y(k,18) - mat(k,1499) = 2.000_r8*rxt(k,454)*y(k,24) - mat(k,199) = (rxt(k,547)+rxt(k,552)+rxt(k,557))*y(k,40) + rxt(k,458)*y(k,60) - mat(k,1452) = (rxt(k,547)+rxt(k,552)+rxt(k,557))*y(k,25) + (rxt(k,542) & - +rxt(k,548)+rxt(k,553))*y(k,46) - mat(k,183) = (rxt(k,542)+rxt(k,548)+rxt(k,553))*y(k,40) - mat(k,1652) = rxt(k,458)*y(k,25) - mat(k,1497) = 2.000_r8*rxt(k,479)*y(k,24) - mat(k,1532) = -(rxt(k,111)*y(k,65) + rxt(k,123)*y(k,68) + rxt(k,281)*y(k,81) & - + rxt(k,310)*y(k,98) + rxt(k,337)*y(k,105) + rxt(k,346)*y(k,106) & - + rxt(k,452)*y(k,18) + (4._r8*rxt(k,453) + 4._r8*rxt(k,454) & - + 4._r8*rxt(k,455) + 4._r8*rxt(k,479)) * y(k,24) + rxt(k,456) & - *y(k,43) + rxt(k,457)*y(k,51) + rxt(k,459)*y(k,52) + rxt(k,462) & - *y(k,54) + (rxt(k,463) + rxt(k,464)) * y(k,104) + (rxt(k,485) & - + rxt(k,486) + rxt(k,487)) * y(k,2)) - mat(k,802) = -rxt(k,111)*y(k,24) - mat(k,640) = -rxt(k,123)*y(k,24) - mat(k,728) = -rxt(k,281)*y(k,24) - mat(k,1319) = -rxt(k,310)*y(k,24) - mat(k,1608) = -rxt(k,337)*y(k,24) - mat(k,1644) = -rxt(k,346)*y(k,24) - mat(k,263) = -rxt(k,452)*y(k,24) - mat(k,701) = -rxt(k,456)*y(k,24) - mat(k,1765) = -rxt(k,457)*y(k,24) - mat(k,1162) = -rxt(k,459)*y(k,24) - mat(k,992) = -rxt(k,462)*y(k,24) - mat(k,770) = -(rxt(k,463) + rxt(k,464)) * y(k,24) - mat(k,470) = -(rxt(k,485) + rxt(k,486) + rxt(k,487)) * y(k,24) - mat(k,208) = rxt(k,460)*y(k,54) - mat(k,1489) = rxt(k,478)*y(k,95) - mat(k,701) = mat(k,701) + rxt(k,450)*y(k,60) - mat(k,188) = rxt(k,468)*y(k,54) + rxt(k,467)*y(k,60) + rxt(k,469)*y(k,104) - mat(k,992) = mat(k,992) + rxt(k,460)*y(k,25) + rxt(k,468)*y(k,46) - mat(k,1444) = rxt(k,451)*y(k,60) - mat(k,1687) = rxt(k,450)*y(k,43) + rxt(k,467)*y(k,46) + rxt(k,451)*y(k,56) - mat(k,588) = rxt(k,478)*y(k,40) - mat(k,770) = mat(k,770) + rxt(k,469)*y(k,46) - mat(k,201) = -(rxt(k,458)*y(k,60) + rxt(k,460)*y(k,54) + rxt(k,461)*y(k,104) & - + (rxt(k,547) + rxt(k,552) + rxt(k,557)) * y(k,40)) - mat(k,1656) = -rxt(k,458)*y(k,25) - mat(k,957) = -rxt(k,460)*y(k,25) - mat(k,746) = -rxt(k,461)*y(k,25) - mat(k,1457) = -(rxt(k,547) + rxt(k,552) + rxt(k,557)) * y(k,25) - mat(k,1502) = rxt(k,459)*y(k,52) - mat(k,1128) = rxt(k,459)*y(k,24) - mat(k,128) = -((rxt(k,532) + rxt(k,536)) * y(k,104)) - mat(k,741) = -(rxt(k,532) + rxt(k,536)) * y(k,27) - mat(k,536) = rxt(k,525)*y(k,53) + rxt(k,526)*y(k,54) + rxt(k,481)*y(k,59) & - + rxt(k,445)*y(k,60) + rxt(k,527)*y(k,104) - mat(k,1376) = rxt(k,573)*y(k,107) - mat(k,1213) = rxt(k,525)*y(k,14) - mat(k,951) = rxt(k,526)*y(k,14) - mat(k,326) = rxt(k,481)*y(k,14) - mat(k,1654) = rxt(k,445)*y(k,14) - mat(k,741) = mat(k,741) + rxt(k,527)*y(k,14) - mat(k,241) = rxt(k,573)*y(k,28) - mat(k,4) = -(rxt(k,506)*y(k,95)) - mat(k,561) = -rxt(k,506)*y(k,29) - mat(k,12) = -(rxt(k,507)*y(k,95)) - mat(k,562) = -rxt(k,507)*y(k,30) - mat(k,1403) = -(rxt(k,307)*y(k,93) + rxt(k,311)*y(k,98) + rxt(k,325)*y(k,101) & - + rxt(k,330)*y(k,102) + rxt(k,338)*y(k,105) + rxt(k,347) & - *y(k,106) + rxt(k,363)*y(k,88) + rxt(k,573)*y(k,107)) - mat(k,113) = -rxt(k,307)*y(k,28) - mat(k,1316) = -rxt(k,311)*y(k,28) - mat(k,410) = -rxt(k,325)*y(k,28) - mat(k,101) = -rxt(k,330)*y(k,28) - mat(k,1605) = -rxt(k,338)*y(k,28) - mat(k,1641) = -rxt(k,347)*y(k,28) - mat(k,890) = -rxt(k,363)*y(k,28) - mat(k,253) = -rxt(k,573)*y(k,28) - mat(k,1529) = rxt(k,111)*y(k,65) + rxt(k,123)*y(k,68) - mat(k,131) = (rxt(k,532)+rxt(k,536))*y(k,104) - mat(k,1720) = rxt(k,112)*y(k,65) - mat(k,1486) = rxt(k,125)*y(k,68) - mat(k,1114) = rxt(k,119)*y(k,65) - mat(k,1762) = rxt(k,275)*y(k,65) + (rxt(k,117)+rxt(k,118))*y(k,67) - mat(k,1159) = rxt(k,276)*y(k,65) + (rxt(k,115)+rxt(k,116))*y(k,67) - mat(k,989) = rxt(k,120)*y(k,65) - mat(k,1280) = rxt(k,121)*y(k,65) - mat(k,1441) = rxt(k,127)*y(k,68) - mat(k,1684) = (rxt(k,109)+rxt(k,110))*y(k,65) + rxt(k,122)*y(k,68) - mat(k,799) = rxt(k,111)*y(k,24) + rxt(k,112)*y(k,32) + rxt(k,119)*y(k,42) & - + rxt(k,275)*y(k,51) + rxt(k,276)*y(k,52) + rxt(k,120)*y(k,54) & - + rxt(k,121)*y(k,55) + (rxt(k,109)+rxt(k,110))*y(k,60) & - + rxt(k,181)*y(k,73) + (rxt(k,165)+rxt(k,253))*y(k,75) + ( & - + rxt(k,163)+rxt(k,260))*y(k,77) + rxt(k,234)*y(k,88) & - + rxt(k,216)*y(k,89) + rxt(k,199)*y(k,92) + rxt(k,251)*y(k,99) - mat(k,321) = rxt(k,189)*y(k,73) + (rxt(k,242)+rxt(k,266))*y(k,75) + ( & - + rxt(k,171)+rxt(k,254))*y(k,77) + rxt(k,241)*y(k,88) & - + rxt(k,224)*y(k,89) + rxt(k,206)*y(k,92) + rxt(k,148)*y(k,99) - mat(k,511) = (rxt(k,117)+rxt(k,118))*y(k,51) + (rxt(k,115)+rxt(k,116)) & - *y(k,52) + rxt(k,191)*y(k,73) + (rxt(k,153)+rxt(k,255))*y(k,75) + ( & - + rxt(k,173)+rxt(k,256))*y(k,77) + rxt(k,244)*y(k,88) & - + rxt(k,226)*y(k,89) + rxt(k,208)*y(k,92) + rxt(k,150)*y(k,99) - mat(k,637) = rxt(k,123)*y(k,24) + rxt(k,125)*y(k,40) + rxt(k,127)*y(k,56) & - + rxt(k,122)*y(k,60) + rxt(k,186)*y(k,73) + rxt(k,220)*y(k,75) & - + rxt(k,169)*y(k,77) + rxt(k,239)*y(k,88) + rxt(k,222)*y(k,89) & - + rxt(k,204)*y(k,92) + rxt(k,146)*y(k,99) - mat(k,1032) = rxt(k,301)*y(k,91) - mat(k,306) = rxt(k,184)*y(k,73) + rxt(k,198)*y(k,75) + rxt(k,167)*y(k,77) & - + rxt(k,237)*y(k,88) + rxt(k,219)*y(k,89) + rxt(k,202)*y(k,92) & - + rxt(k,144)*y(k,99) - mat(k,842) = rxt(k,181)*y(k,65) + rxt(k,189)*y(k,66) + rxt(k,191)*y(k,67) & - + rxt(k,186)*y(k,68) + rxt(k,184)*y(k,71) - mat(k,1202) = (rxt(k,165)+rxt(k,253))*y(k,65) + (rxt(k,242)+rxt(k,266)) & - *y(k,66) + (rxt(k,153)+rxt(k,255))*y(k,67) + rxt(k,220)*y(k,68) & - + rxt(k,198)*y(k,71) - mat(k,1572) = (rxt(k,163)+rxt(k,260))*y(k,65) + (rxt(k,171)+rxt(k,254)) & - *y(k,66) + (rxt(k,173)+rxt(k,256))*y(k,67) + rxt(k,169)*y(k,68) & - + rxt(k,167)*y(k,71) - mat(k,890) = mat(k,890) + rxt(k,234)*y(k,65) + rxt(k,241)*y(k,66) & - + rxt(k,244)*y(k,67) + rxt(k,239)*y(k,68) + rxt(k,237)*y(k,71) - mat(k,933) = rxt(k,216)*y(k,65) + rxt(k,224)*y(k,66) + rxt(k,226)*y(k,67) & - + rxt(k,222)*y(k,68) + rxt(k,219)*y(k,71) - mat(k,120) = rxt(k,301)*y(k,69) + rxt(k,302)*y(k,110) - mat(k,1074) = rxt(k,199)*y(k,65) + rxt(k,206)*y(k,66) + rxt(k,208)*y(k,67) & - + rxt(k,204)*y(k,68) + rxt(k,202)*y(k,71) - mat(k,1361) = rxt(k,251)*y(k,65) + rxt(k,148)*y(k,66) + rxt(k,150)*y(k,67) & - + rxt(k,146)*y(k,68) + rxt(k,144)*y(k,71) - mat(k,767) = (rxt(k,532)+rxt(k,536))*y(k,27) - mat(k,1815) = rxt(k,302)*y(k,91) - mat(k,168) = -(rxt(k,503)*y(k,33) + rxt(k,504)*y(k,110) + rxt(k,505)*y(k,42)) - mat(k,417) = -rxt(k,503)*y(k,31) - mat(k,1784) = -rxt(k,504)*y(k,31) - mat(k,1087) = -rxt(k,505)*y(k,31) - mat(k,5) = 2.000_r8*rxt(k,506)*y(k,95) - mat(k,13) = rxt(k,507)*y(k,95) - mat(k,564) = 2.000_r8*rxt(k,506)*y(k,29) + rxt(k,507)*y(k,30) - mat(k,1728) = -(rxt(k,100)*y(k,61) + rxt(k,112)*y(k,65) + rxt(k,124)*y(k,68) & - + rxt(k,282)*y(k,81) + rxt(k,304)*y(k,92) + rxt(k,312)*y(k,98) & - + rxt(k,326)*y(k,101) + rxt(k,339)*y(k,105) + (rxt(k,403) & - + rxt(k,404) + rxt(k,405)) * y(k,43) + rxt(k,406)*y(k,55) & - + rxt(k,409)*y(k,56)) - mat(k,613) = -rxt(k,100)*y(k,32) - mat(k,807) = -rxt(k,112)*y(k,32) - mat(k,645) = -rxt(k,124)*y(k,32) - mat(k,732) = -rxt(k,282)*y(k,32) - mat(k,1082) = -rxt(k,304)*y(k,32) - mat(k,1324) = -rxt(k,312)*y(k,32) - mat(k,414) = -rxt(k,326)*y(k,32) - mat(k,1613) = -rxt(k,339)*y(k,32) - mat(k,705) = -(rxt(k,403) + rxt(k,404) + rxt(k,405)) * y(k,32) - mat(k,1288) = -rxt(k,406)*y(k,32) - mat(k,1449) = -rxt(k,409)*y(k,32) - mat(k,558) = rxt(k,527)*y(k,104) - mat(k,132) = rxt(k,536)*y(k,104) - mat(k,174) = rxt(k,503)*y(k,33) - mat(k,435) = rxt(k,503)*y(k,31) + rxt(k,401)*y(k,54) + rxt(k,447)*y(k,60) & - + rxt(k,384)*y(k,95) + rxt(k,410)*y(k,104) + rxt(k,349)*y(k,106) - mat(k,197) = rxt(k,501)*y(k,95) - mat(k,1494) = rxt(k,478)*y(k,95) - mat(k,281) = rxt(k,433)*y(k,104) - mat(k,997) = rxt(k,401)*y(k,33) + rxt(k,413)*y(k,104) - mat(k,1692) = rxt(k,447)*y(k,33) - mat(k,613) = mat(k,613) + rxt(k,190)*y(k,73) + rxt(k,142)*y(k,75) & - + rxt(k,172)*y(k,77) - mat(k,368) = rxt(k,194)*y(k,73) + rxt(k,159)*y(k,75) + rxt(k,177)*y(k,77) - mat(k,352) = rxt(k,182)*y(k,73) + rxt(k,176)*y(k,75) + rxt(k,164)*y(k,77) - mat(k,807) = mat(k,807) + rxt(k,181)*y(k,73) + (rxt(k,165)+rxt(k,253)) & - *y(k,75) + (rxt(k,163)+rxt(k,260))*y(k,77) - mat(k,323) = rxt(k,189)*y(k,73) + (rxt(k,242)+rxt(k,266))*y(k,75) + ( & - + rxt(k,171)+rxt(k,254))*y(k,77) - mat(k,513) = rxt(k,191)*y(k,73) + (rxt(k,153)+rxt(k,255))*y(k,75) + ( & - + rxt(k,173)+rxt(k,256))*y(k,77) - mat(k,645) = mat(k,645) + rxt(k,186)*y(k,73) + rxt(k,220)*y(k,75) & - + rxt(k,169)*y(k,77) - mat(k,1040) = rxt(k,133)*y(k,70) + rxt(k,377)*y(k,72) + rxt(k,378)*y(k,73) & - + rxt(k,136)*y(k,75) + rxt(k,139)*y(k,77) + rxt(k,376)*y(k,78) - mat(k,37) = rxt(k,133)*y(k,69) - mat(k,308) = rxt(k,184)*y(k,73) + rxt(k,198)*y(k,75) + rxt(k,167)*y(k,77) - mat(k,106) = rxt(k,377)*y(k,69) - mat(k,850) = rxt(k,190)*y(k,61) + rxt(k,194)*y(k,62) + rxt(k,182)*y(k,63) & - + rxt(k,181)*y(k,65) + rxt(k,189)*y(k,66) + rxt(k,191)*y(k,67) & - + rxt(k,186)*y(k,68) + rxt(k,378)*y(k,69) + rxt(k,184)*y(k,71) & - + rxt(k,196)*y(k,81) + rxt(k,192)*y(k,82) + rxt(k,195)*y(k,84) & - + rxt(k,188)*y(k,85) + rxt(k,193)*y(k,86) + rxt(k,185)*y(k,98) - mat(k,1210) = rxt(k,142)*y(k,61) + rxt(k,159)*y(k,62) + rxt(k,176)*y(k,63) + ( & - + rxt(k,165)+rxt(k,253))*y(k,65) + (rxt(k,242)+rxt(k,266)) & - *y(k,66) + (rxt(k,153)+rxt(k,255))*y(k,67) + rxt(k,220)*y(k,68) & - + rxt(k,136)*y(k,69) + rxt(k,198)*y(k,71) + rxt(k,161)*y(k,81) & - + rxt(k,157)*y(k,82) + rxt(k,160)*y(k,84) + (rxt(k,231) & - +rxt(k,257))*y(k,85) + rxt(k,158)*y(k,86) + rxt(k,209)*y(k,98) - mat(k,1580) = rxt(k,172)*y(k,61) + rxt(k,177)*y(k,62) + rxt(k,164)*y(k,63) + ( & - + rxt(k,163)+rxt(k,260))*y(k,65) + (rxt(k,171)+rxt(k,254)) & - *y(k,66) + (rxt(k,173)+rxt(k,256))*y(k,67) + rxt(k,169)*y(k,68) & - + rxt(k,139)*y(k,69) + rxt(k,167)*y(k,71) + rxt(k,179)*y(k,81) & - + rxt(k,174)*y(k,82) + rxt(k,178)*y(k,84) + (rxt(k,170) & - +rxt(k,258))*y(k,85) + rxt(k,175)*y(k,86) + rxt(k,168)*y(k,98) - mat(k,137) = rxt(k,376)*y(k,69) - mat(k,732) = mat(k,732) + rxt(k,196)*y(k,73) + rxt(k,161)*y(k,75) & - + rxt(k,179)*y(k,77) - mat(k,382) = rxt(k,192)*y(k,73) + rxt(k,157)*y(k,75) + rxt(k,174)*y(k,77) - mat(k,492) = rxt(k,195)*y(k,73) + rxt(k,160)*y(k,75) + rxt(k,178)*y(k,77) - mat(k,533) = rxt(k,188)*y(k,73) + (rxt(k,231)+rxt(k,257))*y(k,75) + ( & - + rxt(k,170)+rxt(k,258))*y(k,77) - mat(k,398) = rxt(k,193)*y(k,73) + rxt(k,158)*y(k,75) + rxt(k,175)*y(k,77) - mat(k,592) = rxt(k,384)*y(k,33) + rxt(k,501)*y(k,36) + rxt(k,478)*y(k,40) - mat(k,1324) = mat(k,1324) + rxt(k,185)*y(k,73) + rxt(k,209)*y(k,75) & - + rxt(k,168)*y(k,77) - mat(k,774) = rxt(k,527)*y(k,14) + rxt(k,536)*y(k,27) + rxt(k,410)*y(k,33) & - + rxt(k,433)*y(k,48) + rxt(k,413)*y(k,54) - mat(k,1649) = rxt(k,349)*y(k,33) - end do + mat(320) = -(rxt(481)*y(15) + rxt(482)*y(71) + rxt(483)*y(57)) + mat(526) = -rxt(481)*y(1) + mat(665) = -rxt(482)*y(1) + mat(1586) = -rxt(483)*y(1) + mat(410) = 4.000_r8*rxt(484)*y(3) + (rxt(485)+rxt(486))*y(26) + rxt(489) & + *y(52) + rxt(492)*y(55) + rxt(493)*y(104) + mat(1096) = (rxt(485)+rxt(486))*y(3) + mat(180) = rxt(494)*y(55) + rxt(500)*y(95) + rxt(495)*y(104) + mat(1298) = rxt(489)*y(3) + mat(1480) = rxt(492)*y(3) + rxt(494)*y(38) + mat(556) = rxt(500)*y(38) + mat(705) = rxt(493)*y(3) + rxt(495)*y(38) + mat(407) = rxt(487)*y(26) + mat(1091) = rxt(487)*y(3) + mat(883) = (rxt(549)+rxt(554))*y(46) + mat(163) = (rxt(549)+rxt(554))*y(42) + mat(411) = -(4._r8*rxt(484)*y(3) + (rxt(485) + rxt(486) + rxt(487)) * y(26) & + + rxt(488)*y(71) + rxt(489)*y(52) + rxt(490)*y(53) + rxt(492) & + *y(55) + rxt(493)*y(104)) + mat(1097) = -(rxt(485) + rxt(486) + rxt(487)) * y(3) + mat(666) = -rxt(488)*y(3) + mat(1301) = -rxt(489)*y(3) + mat(1052) = -rxt(490)*y(3) + mat(1482) = -rxt(492)*y(3) + mat(706) = -rxt(493)*y(3) + mat(321) = rxt(483)*y(57) + mat(93) = rxt(491)*y(55) + mat(181) = rxt(501)*y(95) + mat(166) = rxt(496)*y(55) + mat(1482) = mat(1482) + rxt(491)*y(4) + rxt(496)*y(46) + mat(1588) = rxt(483)*y(1) + mat(557) = rxt(501)*y(38) + mat(90) = -(rxt(491)*y(55)) + mat(1465) = -rxt(491)*y(4) + mat(408) = rxt(490)*y(53) + mat(1045) = rxt(490)*y(3) + mat(529) = -(rxt(445)*y(23) + rxt(481)*y(1) + rxt(525)*y(54) + rxt(526)*y(55) & + + rxt(527)*y(104)) + mat(1183) = -rxt(445)*y(15) + mat(322) = -rxt(481)*y(15) + mat(1665) = -rxt(525)*y(15) + mat(1484) = -rxt(526)*y(15) + mat(708) = -rxt(527)*y(15) + mat(267) = rxt(452)*y(26) + rxt(529)*y(52) + mat(35) = .300_r8*rxt(530)*y(104) + mat(1098) = rxt(452)*y(19) + mat(1304) = rxt(529)*y(19) + mat(708) = mat(708) + .300_r8*rxt(530)*y(20) + mat(266) = -(rxt(452)*y(26) + rxt(528)*y(71) + rxt(529)*y(52)) + mat(1095) = -rxt(452)*y(19) + mat(664) = -rxt(528)*y(19) + mat(1297) = -rxt(529)*y(19) + mat(34) = .700_r8*rxt(530)*y(104) + mat(704) = .700_r8*rxt(530)*y(20) + mat(33) = -(rxt(530)*y(104)) + mat(693) = -rxt(530)*y(20) + mat(265) = rxt(528)*y(71) + mat(657) = rxt(528)*y(19) + mat(1201) = -((rxt(109) + rxt(110)) * y(64) + rxt(122)*y(67) + rxt(280)*y(81) & + + rxt(309)*y(98) + rxt(336)*y(105) + rxt(345)*y(106) + rxt(445) & + *y(15) + rxt(447)*y(35) + rxt(448)*y(37) + (rxt(449) + rxt(450) & + ) * y(71) + rxt(451)*y(57) + rxt(458)*y(27) + rxt(467)*y(47)) + mat(750) = -(rxt(109) + rxt(110)) * y(23) + mat(599) = -rxt(122)*y(23) + mat(779) = -rxt(280)*y(23) + mat(1236) = -rxt(309)*y(23) + mat(1534) = -rxt(336)*y(23) + mat(1569) = -rxt(345)*y(23) + mat(538) = -rxt(445)*y(23) + mat(441) = -rxt(447)*y(23) + mat(115) = -rxt(448)*y(23) + mat(679) = -(rxt(449) + rxt(450)) * y(23) + mat(1607) = -rxt(451)*y(23) + mat(224) = -rxt(458)*y(23) + mat(192) = -rxt(467)*y(23) + mat(421) = rxt(486)*y(26) + mat(274) = rxt(452)*y(26) + mat(1116) = rxt(486)*y(3) + rxt(452)*y(19) + (4.000_r8*rxt(453) & + +2.000_r8*rxt(455))*y(26) + rxt(457)*y(52) + rxt(462)*y(55) & + + rxt(463)*y(104) + mat(15) = rxt(507)*y(95) + mat(912) = rxt(465)*y(55) + rxt(477)*y(95) + rxt(466)*y(104) + mat(1321) = rxt(457)*y(26) + rxt(106)*y(63) + mat(1074) = rxt(105)*y(60) + mat(1502) = rxt(462)*y(26) + rxt(465)*y(42) + mat(624) = rxt(105)*y(53) + rxt(190)*y(73) + rxt(142)*y(75) + rxt(172)*y(77) & + + rxt(243)*y(88) + rxt(225)*y(89) + rxt(207)*y(92) + rxt(149) & + *y(99) + mat(356) = rxt(194)*y(73) + rxt(159)*y(75) + rxt(177)*y(77) + rxt(247)*y(88) & + + rxt(229)*y(89) + rxt(212)*y(92) + rxt(154)*y(99) + mat(340) = rxt(182)*y(73) + rxt(176)*y(75) + rxt(164)*y(77) + rxt(235)*y(88) & + + rxt(217)*y(89) + rxt(200)*y(92) + rxt(252)*y(99) + mat(234) = rxt(106)*y(52) + mat(1030) = rxt(190)*y(60) + rxt(194)*y(61) + rxt(182)*y(62) + mat(1363) = rxt(142)*y(60) + rxt(159)*y(61) + rxt(176)*y(62) + mat(1447) = rxt(172)*y(60) + rxt(177)*y(61) + rxt(164)*y(62) + mat(826) = rxt(243)*y(60) + rxt(247)*y(61) + rxt(235)*y(62) + mat(868) = rxt(225)*y(60) + rxt(229)*y(61) + rxt(217)*y(62) + mat(988) = rxt(207)*y(60) + rxt(212)*y(61) + rxt(200)*y(62) + mat(569) = rxt(507)*y(32) + rxt(477)*y(42) + mat(1280) = rxt(149)*y(60) + rxt(154)*y(61) + rxt(252)*y(62) + mat(720) = rxt(463)*y(26) + rxt(466)*y(42) + mat(1173) = rxt(458)*y(27) + mat(1090) = 2.000_r8*rxt(454)*y(26) + mat(217) = rxt(458)*y(23) + (rxt(547)+rxt(552)+rxt(557))*y(42) + mat(882) = (rxt(547)+rxt(552)+rxt(557))*y(27) + (rxt(542)+rxt(548)+rxt(553)) & + *y(47) + mat(187) = (rxt(542)+rxt(548)+rxt(553))*y(42) + mat(1088) = 2.000_r8*rxt(479)*y(26) + mat(1114) = -(rxt(111)*y(64) + rxt(123)*y(67) + rxt(281)*y(81) + rxt(310) & + *y(98) + rxt(337)*y(105) + rxt(346)*y(106) + rxt(452)*y(19) & + + (4._r8*rxt(453) + 4._r8*rxt(454) + 4._r8*rxt(455) & + + 4._r8*rxt(479)) * y(26) + rxt(456)*y(71) + rxt(457)*y(52) & + + rxt(459)*y(53) + rxt(462)*y(55) + (rxt(463) + rxt(464) & + ) * y(104) + (rxt(485) + rxt(486) + rxt(487)) * y(3)) + mat(748) = -rxt(111)*y(26) + mat(597) = -rxt(123)*y(26) + mat(777) = -rxt(281)*y(26) + mat(1234) = -rxt(310)*y(26) + mat(1532) = -rxt(337)*y(26) + mat(1567) = -rxt(346)*y(26) + mat(272) = -rxt(452)*y(26) + mat(677) = -rxt(456)*y(26) + mat(1319) = -rxt(457)*y(26) + mat(1072) = -rxt(459)*y(26) + mat(1500) = -rxt(462)*y(26) + mat(718) = -(rxt(463) + rxt(464)) * y(26) + mat(419) = -(rxt(485) + rxt(486) + rxt(487)) * y(26) + mat(1199) = rxt(467)*y(47) + rxt(451)*y(57) + rxt(450)*y(71) + mat(223) = rxt(460)*y(55) + mat(910) = rxt(478)*y(95) + mat(191) = rxt(467)*y(23) + rxt(468)*y(55) + rxt(469)*y(104) + mat(1500) = mat(1500) + rxt(460)*y(27) + rxt(468)*y(47) + mat(1605) = rxt(451)*y(23) + mat(677) = mat(677) + rxt(450)*y(23) + mat(567) = rxt(478)*y(42) + mat(718) = mat(718) + rxt(469)*y(47) + mat(219) = -(rxt(458)*y(23) + rxt(460)*y(55) + rxt(461)*y(104) + (rxt(547) & + + rxt(552) + rxt(557)) * y(42)) + mat(1177) = -rxt(458)*y(27) + mat(1476) = -rxt(460)*y(27) + mat(702) = -rxt(461)*y(27) + mat(887) = -(rxt(547) + rxt(552) + rxt(557)) * y(27) + mat(1093) = rxt(459)*y(53) + mat(1047) = rxt(459)*y(26) + mat(98) = -((rxt(532) + rxt(536)) * y(104)) + mat(695) = -(rxt(532) + rxt(536)) * y(29) + mat(318) = rxt(481)*y(15) + mat(524) = rxt(481)*y(1) + rxt(445)*y(23) + rxt(525)*y(54) + rxt(526)*y(55) & + + rxt(527)*y(104) + mat(1174) = rxt(445)*y(15) + mat(1660) = rxt(525)*y(15) + mat(1466) = rxt(526)*y(15) + mat(695) = mat(695) + rxt(527)*y(15) + mat(4) = -(rxt(506)*y(95)) + mat(548) = -rxt(506)*y(31) + mat(12) = -(rxt(507)*y(95)) + mat(549) = -rxt(507)*y(32) + mat(155) = -(rxt(503)*y(35) + rxt(504)*y(110) + rxt(505)*y(44)) + mat(429) = -rxt(503)*y(33) + mat(1705) = -rxt(504)*y(33) + mat(1623) = -rxt(505)*y(33) + mat(5) = 2.000_r8*rxt(506)*y(95) + mat(13) = rxt(507)*y(95) + mat(551) = 2.000_r8*rxt(506)*y(31) + rxt(507)*y(32) + mat(941) = -(rxt(100)*y(60) + rxt(112)*y(64) + rxt(124)*y(67) + rxt(282) & + *y(81) + rxt(304)*y(92) + rxt(312)*y(98) + rxt(326)*y(101) & + + rxt(339)*y(105) + (rxt(403) + rxt(404) + rxt(405)) * y(71) & + + rxt(406)*y(56) + rxt(409)*y(57)) + mat(619) = -rxt(100)*y(34) + mat(744) = -rxt(112)*y(34) + mat(593) = -rxt(124)*y(34) + mat(773) = -rxt(282)*y(34) + mat(982) = -rxt(304)*y(34) + mat(1230) = -rxt(312)*y(34) + mat(380) = -rxt(326)*y(34) + mat(1528) = -rxt(339)*y(34) + mat(673) = -(rxt(403) + rxt(404) + rxt(405)) * y(34) + mat(1153) = -rxt(406)*y(34) + mat(1601) = -rxt(409)*y(34) + mat(534) = rxt(527)*y(104) + mat(1195) = rxt(447)*y(35) + mat(101) = rxt(536)*y(104) + mat(159) = rxt(503)*y(35) + mat(437) = rxt(447)*y(23) + rxt(503)*y(33) + rxt(401)*y(55) + rxt(384)*y(95) & + + rxt(410)*y(104) + rxt(349)*y(106) + mat(184) = rxt(501)*y(95) + mat(906) = rxt(478)*y(95) + mat(258) = rxt(433)*y(104) + mat(1496) = rxt(401)*y(35) + rxt(413)*y(104) + mat(619) = mat(619) + rxt(190)*y(73) + rxt(142)*y(75) + rxt(172)*y(77) + mat(352) = rxt(194)*y(73) + rxt(159)*y(75) + rxt(177)*y(77) + mat(336) = rxt(182)*y(73) + rxt(176)*y(75) + rxt(164)*y(77) + mat(744) = mat(744) + rxt(181)*y(73) + (rxt(165)+rxt(253))*y(75) + (rxt(163) & + +rxt(260))*y(77) + mat(308) = rxt(189)*y(73) + (rxt(242)+rxt(266))*y(75) + (rxt(171)+rxt(254)) & + *y(77) + mat(493) = rxt(191)*y(73) + (rxt(153)+rxt(255))*y(75) + (rxt(173)+rxt(256)) & + *y(77) + mat(593) = mat(593) + rxt(186)*y(73) + rxt(220)*y(75) + rxt(169)*y(77) + mat(1399) = rxt(133)*y(69) + rxt(377)*y(72) + rxt(378)*y(73) + rxt(136)*y(75) & + + rxt(139)*y(77) + rxt(376)*y(78) + mat(42) = rxt(133)*y(68) + mat(281) = rxt(184)*y(73) + rxt(198)*y(75) + rxt(167)*y(77) + mat(120) = rxt(377)*y(68) + mat(1024) = rxt(190)*y(60) + rxt(194)*y(61) + rxt(182)*y(62) + rxt(181)*y(64) & + + rxt(189)*y(65) + rxt(191)*y(66) + rxt(186)*y(67) + rxt(378) & + *y(68) + rxt(184)*y(70) + rxt(196)*y(81) + rxt(192)*y(82) & + + rxt(195)*y(84) + rxt(188)*y(85) + rxt(193)*y(86) + rxt(185) & + *y(98) + mat(1357) = rxt(142)*y(60) + rxt(159)*y(61) + rxt(176)*y(62) + (rxt(165) & + +rxt(253))*y(64) + (rxt(242)+rxt(266))*y(65) + (rxt(153) & + +rxt(255))*y(66) + rxt(220)*y(67) + rxt(136)*y(68) + rxt(198) & + *y(70) + rxt(161)*y(81) + rxt(157)*y(82) + rxt(160)*y(84) + ( & + + rxt(231)+rxt(257))*y(85) + rxt(158)*y(86) + rxt(209)*y(98) + mat(1441) = rxt(172)*y(60) + rxt(177)*y(61) + rxt(164)*y(62) + (rxt(163) & + +rxt(260))*y(64) + (rxt(171)+rxt(254))*y(65) + (rxt(173) & + +rxt(256))*y(66) + rxt(169)*y(67) + rxt(139)*y(68) + rxt(167) & + *y(70) + rxt(179)*y(81) + rxt(174)*y(82) + rxt(178)*y(84) + ( & + + rxt(170)+rxt(258))*y(85) + rxt(175)*y(86) + rxt(168)*y(98) + mat(131) = rxt(376)*y(68) + mat(773) = mat(773) + rxt(196)*y(73) + rxt(161)*y(75) + rxt(179)*y(77) + mat(366) = rxt(192)*y(73) + rxt(157)*y(75) + rxt(174)*y(77) + mat(471) = rxt(195)*y(73) + rxt(160)*y(75) + rxt(178)*y(77) + mat(511) = rxt(188)*y(73) + (rxt(231)+rxt(257))*y(75) + (rxt(170)+rxt(258)) & + *y(77) + mat(395) = rxt(193)*y(73) + rxt(158)*y(75) + rxt(175)*y(77) + mat(564) = rxt(384)*y(35) + rxt(501)*y(38) + rxt(478)*y(42) + mat(1230) = mat(1230) + rxt(185)*y(73) + rxt(209)*y(75) + rxt(168)*y(77) + mat(714) = rxt(527)*y(15) + rxt(536)*y(29) + rxt(410)*y(35) + rxt(433)*y(49) & + + rxt(413)*y(55) + mat(1563) = rxt(349)*y(35) end subroutine nlnmat01 - subroutine nlnmat02( avec_len, mat, y, rxt ) + subroutine nlnmat02( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,419) = -((rxt(k,348) + rxt(k,349)) * y(k,106) + rxt(k,384)*y(k,95) & - + rxt(k,401)*y(k,54) + rxt(k,410)*y(k,104) + rxt(k,447)*y(k,60) & - + rxt(k,503)*y(k,31)) - mat(k,1619) = -(rxt(k,348) + rxt(k,349)) * y(k,33) - mat(k,570) = -rxt(k,384)*y(k,33) - mat(k,965) = -rxt(k,401)*y(k,33) - mat(k,750) = -rxt(k,410)*y(k,33) - mat(k,1660) = -rxt(k,447)*y(k,33) - mat(k,170) = -rxt(k,503)*y(k,33) - mat(k,1697) = rxt(k,403)*y(k,43) - mat(k,682) = rxt(k,403)*y(k,32) - mat(k,79) = -(rxt(k,402)*y(k,54) + rxt(k,411)*y(k,104) + rxt(k,448)*y(k,60)) - mat(k,948) = -rxt(k,402)*y(k,35) - mat(k,739) = -rxt(k,411)*y(k,35) - mat(k,1653) = -rxt(k,448)*y(k,35) - mat(k,675) = 2.000_r8*rxt(k,417)*y(k,43) - mat(k,739) = mat(k,739) + 2.000_r8*rxt(k,416)*y(k,104) - mat(k,191) = -(rxt(k,494)*y(k,54) + rxt(k,495)*y(k,104) + (rxt(k,500) & - + rxt(k,501)) * y(k,95)) - mat(k,956) = -rxt(k,494)*y(k,36) - mat(k,745) = -rxt(k,495)*y(k,36) - mat(k,565) = -(rxt(k,500) + rxt(k,501)) * y(k,36) - mat(k,537) = rxt(k,481)*y(k,59) - mat(k,679) = rxt(k,482)*y(k,59) - mat(k,327) = rxt(k,481)*y(k,14) + rxt(k,482)*y(k,43) - mat(k,1488) = -(rxt(k,101)*y(k,62) + rxt(k,103)*y(k,61) + rxt(k,125)*y(k,68) & - + (rxt(k,271) + rxt(k,293)) * y(k,83) + rxt(k,284)*y(k,81) & - + rxt(k,313)*y(k,98) + rxt(k,340)*y(k,105) + rxt(k,351)*y(k,106) & - + rxt(k,465)*y(k,54) + rxt(k,466)*y(k,104) + (rxt(k,477) & - + rxt(k,478)) * y(k,95) + (rxt(k,542) + rxt(k,548) + rxt(k,553) & - ) * y(k,46) + (rxt(k,547) + rxt(k,552) + rxt(k,557)) * y(k,25) & - + (rxt(k,549) + rxt(k,554)) * y(k,45)) - mat(k,365) = -rxt(k,101)*y(k,40) - mat(k,610) = -rxt(k,103)*y(k,40) - mat(k,639) = -rxt(k,125)*y(k,40) - mat(k,667) = -(rxt(k,271) + rxt(k,293)) * y(k,40) - mat(k,727) = -rxt(k,284)*y(k,40) - mat(k,1318) = -rxt(k,313)*y(k,40) - mat(k,1607) = -rxt(k,340)*y(k,40) - mat(k,1643) = -rxt(k,351)*y(k,40) - mat(k,991) = -rxt(k,465)*y(k,40) - mat(k,769) = -rxt(k,466)*y(k,40) - mat(k,587) = -(rxt(k,477) + rxt(k,478)) * y(k,40) - mat(k,187) = -(rxt(k,542) + rxt(k,548) + rxt(k,553)) * y(k,40) - mat(k,207) = -(rxt(k,547) + rxt(k,552) + rxt(k,557)) * y(k,40) - mat(k,156) = -(rxt(k,549) + rxt(k,554)) * y(k,40) - mat(k,553) = rxt(k,445)*y(k,60) - mat(k,1531) = rxt(k,464)*y(k,104) - mat(k,1722) = rxt(k,100)*y(k,61) - mat(k,430) = rxt(k,447)*y(k,60) - mat(k,83) = rxt(k,448)*y(k,60) - mat(k,1116) = rxt(k,104)*y(k,61) + rxt(k,294)*y(k,86) - mat(k,700) = rxt(k,449)*y(k,60) - mat(k,187) = mat(k,187) + rxt(k,467)*y(k,60) - mat(k,1686) = rxt(k,445)*y(k,14) + rxt(k,447)*y(k,33) + rxt(k,448)*y(k,35) & - + rxt(k,449)*y(k,43) + rxt(k,467)*y(k,46) - mat(k,610) = mat(k,610) + rxt(k,100)*y(k,32) + rxt(k,104)*y(k,42) - mat(k,349) = rxt(k,182)*y(k,73) + (rxt(k,176)+2.000_r8*rxt(k,262))*y(k,75) + ( & - + rxt(k,164)+2.000_r8*rxt(k,263))*y(k,77) + rxt(k,235)*y(k,88) & - + rxt(k,217)*y(k,89) + rxt(k,200)*y(k,92) + rxt(k,252)*y(k,99) - mat(k,844) = rxt(k,182)*y(k,63) + rxt(k,193)*y(k,86) - mat(k,1204) = (rxt(k,176)+2.000_r8*rxt(k,262))*y(k,63) + rxt(k,158)*y(k,86) - mat(k,1574) = (rxt(k,164)+2.000_r8*rxt(k,263))*y(k,63) + rxt(k,175)*y(k,86) - mat(k,396) = rxt(k,294)*y(k,42) + rxt(k,193)*y(k,73) + rxt(k,158)*y(k,75) & - + rxt(k,175)*y(k,77) + rxt(k,246)*y(k,88) + rxt(k,228)*y(k,89) & - + rxt(k,211)*y(k,92) + rxt(k,152)*y(k,99) - mat(k,892) = rxt(k,235)*y(k,63) + rxt(k,246)*y(k,86) - mat(k,935) = rxt(k,217)*y(k,63) + rxt(k,228)*y(k,86) - mat(k,1076) = rxt(k,200)*y(k,63) + rxt(k,211)*y(k,86) - mat(k,1363) = rxt(k,252)*y(k,63) + rxt(k,152)*y(k,86) - mat(k,769) = mat(k,769) + rxt(k,464)*y(k,24) - mat(k,167) = rxt(k,503)*y(k,33) + rxt(k,505)*y(k,42) + rxt(k,504)*y(k,110) - mat(k,416) = rxt(k,503)*y(k,31) - mat(k,1085) = rxt(k,505)*y(k,31) - mat(k,1773) = rxt(k,504)*y(k,31) - mat(k,1107) = -(rxt(k,104)*y(k,61) + rxt(k,119)*y(k,65) + rxt(k,285)*y(k,81) & - + rxt(k,290)*y(k,85) + rxt(k,294)*y(k,86) + rxt(k,295)*y(k,83) & - + rxt(k,314)*y(k,98) + rxt(k,352)*y(k,106) + rxt(k,442)*y(k,104) & - + rxt(k,505)*y(k,31)) - mat(k,605) = -rxt(k,104)*y(k,42) - mat(k,792) = -rxt(k,119)*y(k,42) - mat(k,720) = -rxt(k,285)*y(k,42) - mat(k,526) = -rxt(k,290)*y(k,42) - mat(k,391) = -rxt(k,294)*y(k,42) - mat(k,660) = -rxt(k,295)*y(k,42) - mat(k,1309) = -rxt(k,314)*y(k,42) - mat(k,1634) = -rxt(k,352)*y(k,42) - mat(k,761) = -rxt(k,442)*y(k,42) - mat(k,172) = -rxt(k,505)*y(k,42) - mat(k,547) = rxt(k,525)*y(k,53) - mat(k,204) = (rxt(k,547)+rxt(k,552)+rxt(k,557))*y(k,40) - mat(k,1479) = (rxt(k,547)+rxt(k,552)+rxt(k,557))*y(k,25) + rxt(k,293)*y(k,83) - mat(k,234) = rxt(k,137)*y(k,75) + rxt(k,140)*y(k,77) + rxt(k,288)*y(k,84) & - + rxt(k,292)*y(k,85) - mat(k,1152) = rxt(k,441)*y(k,104) - mat(k,1230) = rxt(k,525)*y(k,14) - mat(k,835) = rxt(k,183)*y(k,83) + 2.000_r8*rxt(k,180)*y(k,87) - mat(k,23) = rxt(k,135)*y(k,110) - mat(k,1195) = rxt(k,137)*y(k,50) + (rxt(k,187)+rxt(k,259))*y(k,83) + ( & - + 2.000_r8*rxt(k,141)+2.000_r8*rxt(k,264))*y(k,87) - mat(k,27) = rxt(k,138)*y(k,110) - mat(k,1565) = rxt(k,140)*y(k,50) + (rxt(k,166)+rxt(k,261))*y(k,83) + ( & - + 2.000_r8*rxt(k,162)+2.000_r8*rxt(k,265))*y(k,87) - mat(k,660) = mat(k,660) + rxt(k,293)*y(k,40) + rxt(k,183)*y(k,73) + ( & - + rxt(k,187)+rxt(k,259))*y(k,75) + (rxt(k,166)+rxt(k,261)) & - *y(k,77) - mat(k,485) = rxt(k,288)*y(k,50) - mat(k,526) = mat(k,526) + rxt(k,292)*y(k,50) - mat(k,444) = 2.000_r8*rxt(k,180)*y(k,73) + (2.000_r8*rxt(k,141) & - +2.000_r8*rxt(k,264))*y(k,75) + (2.000_r8*rxt(k,162) & - +2.000_r8*rxt(k,265))*y(k,77) + rxt(k,233)*y(k,88) + rxt(k,215) & - *y(k,89) + rxt(k,197)*y(k,92) + rxt(k,250)*y(k,99) - mat(k,883) = rxt(k,233)*y(k,87) - mat(k,926) = rxt(k,215)*y(k,87) - mat(k,1067) = rxt(k,197)*y(k,87) - mat(k,1354) = rxt(k,250)*y(k,87) - mat(k,761) = mat(k,761) + rxt(k,441)*y(k,52) - mat(k,1808) = rxt(k,135)*y(k,74) + rxt(k,138)*y(k,76) - mat(k,686) = -(rxt(k,305)*y(k,92) + (rxt(k,403) + rxt(k,404) + rxt(k,405) & - ) * y(k,32) + rxt(k,407)*y(k,54) + rxt(k,408)*y(k,56) + rxt(k,412) & - *y(k,104) + 4._r8*rxt(k,417)*y(k,43) + rxt(k,429)*y(k,53) & - + rxt(k,434)*y(k,51) + rxt(k,439)*y(k,52) + (rxt(k,449) & - + rxt(k,450)) * y(k,60) + rxt(k,456)*y(k,24) + rxt(k,482) & - *y(k,59) + rxt(k,488)*y(k,2) + rxt(k,528)*y(k,18)) - mat(k,1057) = -rxt(k,305)*y(k,43) - mat(k,1703) = -(rxt(k,403) + rxt(k,404) + rxt(k,405)) * y(k,43) - mat(k,972) = -rxt(k,407)*y(k,43) - mat(k,1424) = -rxt(k,408)*y(k,43) - mat(k,754) = -rxt(k,412)*y(k,43) - mat(k,1221) = -rxt(k,429)*y(k,43) - mat(k,1745) = -rxt(k,434)*y(k,43) - mat(k,1142) = -rxt(k,439)*y(k,43) - mat(k,1667) = -(rxt(k,449) + rxt(k,450)) * y(k,43) - mat(k,1512) = -rxt(k,456)*y(k,43) - mat(k,332) = -rxt(k,482)*y(k,43) - mat(k,460) = -rxt(k,488)*y(k,43) - mat(k,259) = -rxt(k,528)*y(k,43) - mat(k,460) = mat(k,460) + rxt(k,493)*y(k,104) - mat(k,543) = rxt(k,525)*y(k,53) + rxt(k,526)*y(k,54) + rxt(k,481)*y(k,59) & - + rxt(k,445)*y(k,60) - mat(k,259) = mat(k,259) + rxt(k,452)*y(k,24) + rxt(k,529)*y(k,51) - mat(k,1512) = mat(k,1512) + rxt(k,452)*y(k,18) + rxt(k,463)*y(k,104) - mat(k,129) = rxt(k,532)*y(k,104) - mat(k,1703) = mat(k,1703) + rxt(k,406)*y(k,55) + rxt(k,312)*y(k,98) - mat(k,80) = rxt(k,402)*y(k,54) + rxt(k,448)*y(k,60) + rxt(k,411)*y(k,104) - mat(k,1469) = rxt(k,125)*y(k,68) + rxt(k,313)*y(k,98) - mat(k,1097) = rxt(k,314)*y(k,98) - mat(k,1745) = mat(k,1745) + rxt(k,529)*y(k,18) - mat(k,1221) = mat(k,1221) + rxt(k,525)*y(k,14) + rxt(k,432)*y(k,104) - mat(k,972) = mat(k,972) + rxt(k,526)*y(k,14) + rxt(k,402)*y(k,35) & - + rxt(k,342)*y(k,105) - mat(k,1263) = rxt(k,406)*y(k,32) - mat(k,1424) = mat(k,1424) + rxt(k,414)*y(k,104) - mat(k,332) = mat(k,332) + rxt(k,481)*y(k,14) - mat(k,1667) = mat(k,1667) + rxt(k,445)*y(k,14) + rxt(k,448)*y(k,35) - mat(k,621) = rxt(k,125)*y(k,40) - mat(k,1299) = rxt(k,312)*y(k,32) + rxt(k,313)*y(k,40) + rxt(k,314)*y(k,42) - mat(k,754) = mat(k,754) + rxt(k,493)*y(k,2) + rxt(k,463)*y(k,24) + rxt(k,532) & - *y(k,27) + rxt(k,411)*y(k,35) + rxt(k,432)*y(k,53) + rxt(k,414) & - *y(k,56) - mat(k,1588) = rxt(k,342)*y(k,54) - mat(k,51) = -(rxt(k,418)*y(k,104)) - mat(k,738) = -rxt(k,418)*y(k,44) - mat(k,674) = rxt(k,439)*y(k,52) - mat(k,1125) = rxt(k,439)*y(k,43) - mat(k,151) = -(rxt(k,496)*y(k,54) + (rxt(k,549) + rxt(k,554)) * y(k,40)) - mat(k,952) = -rxt(k,496)*y(k,45) - mat(k,1455) = -(rxt(k,549) + rxt(k,554)) * y(k,45) - mat(k,455) = rxt(k,488)*y(k,43) - mat(k,677) = rxt(k,488)*y(k,2) - mat(k,184) = -(rxt(k,467)*y(k,60) + rxt(k,468)*y(k,54) + rxt(k,469)*y(k,104) & - + (rxt(k,542) + rxt(k,548) + rxt(k,553)) * y(k,40)) - mat(k,1655) = -rxt(k,467)*y(k,46) - mat(k,955) = -rxt(k,468)*y(k,46) - mat(k,744) = -rxt(k,469)*y(k,46) - mat(k,1456) = -(rxt(k,542) + rxt(k,548) + rxt(k,553)) * y(k,46) - mat(k,1501) = rxt(k,456)*y(k,43) - mat(k,200) = rxt(k,461)*y(k,104) - mat(k,678) = rxt(k,456)*y(k,24) - mat(k,744) = mat(k,744) + rxt(k,461)*y(k,25) - mat(k,123) = -(rxt(k,335)*y(k,104)) - mat(k,740) = -rxt(k,335)*y(k,47) - mat(k,1454) = rxt(k,284)*y(k,81) - mat(k,1086) = rxt(k,285)*y(k,81) - mat(k,1731) = rxt(k,344)*y(k,104) - mat(k,708) = rxt(k,284)*y(k,40) + rxt(k,285)*y(k,42) - mat(k,46) = rxt(k,300)*y(k,110) - mat(k,740) = mat(k,740) + rxt(k,344)*y(k,51) - mat(k,1781) = rxt(k,300)*y(k,90) - mat(k,270) = -(rxt(k,421)*y(k,51) + (rxt(k,422) + rxt(k,423) + rxt(k,424) & - ) * y(k,52) + rxt(k,425)*y(k,55) + rxt(k,433)*y(k,104) + rxt(k,570) & - *y(k,99)) - mat(k,1734) = -rxt(k,421)*y(k,48) - mat(k,1130) = -(rxt(k,422) + rxt(k,423) + rxt(k,424)) * y(k,48) - mat(k,1257) = -rxt(k,425)*y(k,48) - mat(k,748) = -rxt(k,433)*y(k,48) - mat(k,1328) = -rxt(k,570)*y(k,48) - mat(k,961) = rxt(k,419)*y(k,79) + rxt(k,567)*y(k,94) - mat(k,1257) = mat(k,1257) + rxt(k,568)*y(k,94) - mat(k,1014) = 1.100_r8*rxt(k,563)*y(k,80) + .200_r8*rxt(k,561)*y(k,88) - mat(k,162) = rxt(k,419)*y(k,54) - mat(k,89) = 1.100_r8*rxt(k,563)*y(k,69) - mat(k,858) = .200_r8*rxt(k,561)*y(k,69) - mat(k,178) = rxt(k,567)*y(k,54) + rxt(k,568)*y(k,55) - end do + mat(431) = -((rxt(348) + rxt(349)) * y(106) + rxt(384)*y(95) + rxt(401)*y(55) & + + rxt(410)*y(104) + rxt(447)*y(23) + rxt(503)*y(33)) + mat(1551) = -(rxt(348) + rxt(349)) * y(35) + mat(558) = -rxt(384)*y(35) + mat(1483) = -rxt(401)*y(35) + mat(707) = -rxt(410)*y(35) + mat(1182) = -rxt(447)*y(35) + mat(157) = -rxt(503)*y(35) + mat(928) = rxt(403)*y(71) + mat(667) = rxt(403)*y(34) + mat(111) = -(rxt(402)*y(55) + rxt(411)*y(104) + rxt(448)*y(23)) + mat(1468) = -rxt(402)*y(37) + mat(696) = -rxt(411)*y(37) + mat(1175) = -rxt(448)*y(37) + mat(659) = 2.000_r8*rxt(417)*y(71) + mat(696) = mat(696) + 2.000_r8*rxt(416)*y(104) + mat(179) = -(rxt(494)*y(55) + rxt(495)*y(104) + (rxt(500) + rxt(501)) * y(95)) + mat(1472) = -rxt(494)*y(38) + mat(700) = -rxt(495)*y(38) + mat(552) = -(rxt(500) + rxt(501)) * y(38) + mat(319) = rxt(481)*y(15) + rxt(482)*y(71) + mat(525) = rxt(481)*y(1) + mat(662) = rxt(482)*y(1) + mat(905) = -(rxt(101)*y(61) + rxt(103)*y(60) + rxt(125)*y(67) + (rxt(271) & + + rxt(293)) * y(83) + rxt(284)*y(81) + rxt(313)*y(98) + rxt(340) & + *y(105) + rxt(351)*y(106) + rxt(465)*y(55) + rxt(466)*y(104) & + + (rxt(477) + rxt(478)) * y(95) + (rxt(542) + rxt(548) + rxt(553) & + ) * y(47) + (rxt(547) + rxt(552) + rxt(557)) * y(27) + (rxt(549) & + + rxt(554)) * y(46)) + mat(351) = -rxt(101)*y(42) + mat(618) = -rxt(103)*y(42) + mat(592) = -rxt(125)*y(42) + mat(640) = -(rxt(271) + rxt(293)) * y(42) + mat(772) = -rxt(284)*y(42) + mat(1229) = -rxt(313)*y(42) + mat(1527) = -rxt(340)*y(42) + mat(1562) = -rxt(351)*y(42) + mat(1495) = -rxt(465)*y(42) + mat(713) = -rxt(466)*y(42) + mat(563) = -(rxt(477) + rxt(478)) * y(42) + mat(190) = -(rxt(542) + rxt(548) + rxt(553)) * y(42) + mat(221) = -(rxt(547) + rxt(552) + rxt(557)) * y(42) + mat(168) = -(rxt(549) + rxt(554)) * y(42) + mat(533) = rxt(445)*y(23) + mat(1194) = rxt(445)*y(15) + rxt(447)*y(35) + rxt(448)*y(37) + rxt(467)*y(47) & + + rxt(449)*y(71) + mat(1109) = rxt(464)*y(104) + mat(940) = rxt(100)*y(60) + mat(436) = rxt(447)*y(23) + mat(114) = rxt(448)*y(23) + mat(1639) = rxt(104)*y(60) + rxt(294)*y(86) + mat(190) = mat(190) + rxt(467)*y(23) + mat(618) = mat(618) + rxt(100)*y(34) + rxt(104)*y(44) + mat(335) = rxt(182)*y(73) + (rxt(176)+2.000_r8*rxt(262))*y(75) + (rxt(164) & + +2.000_r8*rxt(263))*y(77) + rxt(235)*y(88) + rxt(217)*y(89) & + + rxt(200)*y(92) + rxt(252)*y(99) + mat(672) = rxt(449)*y(23) + mat(1023) = rxt(182)*y(62) + rxt(193)*y(86) + mat(1356) = (rxt(176)+2.000_r8*rxt(262))*y(62) + rxt(158)*y(86) + mat(1440) = (rxt(164)+2.000_r8*rxt(263))*y(62) + rxt(175)*y(86) + mat(394) = rxt(294)*y(44) + rxt(193)*y(73) + rxt(158)*y(75) + rxt(175)*y(77) & + + rxt(246)*y(88) + rxt(228)*y(89) + rxt(211)*y(92) + rxt(152) & + *y(99) + mat(819) = rxt(235)*y(62) + rxt(246)*y(86) + mat(861) = rxt(217)*y(62) + rxt(228)*y(86) + mat(981) = rxt(200)*y(62) + rxt(211)*y(86) + mat(1273) = rxt(252)*y(62) + rxt(152)*y(86) + mat(713) = mat(713) + rxt(464)*y(26) + mat(154) = rxt(503)*y(35) + rxt(505)*y(44) + rxt(504)*y(110) + mat(428) = rxt(503)*y(33) + mat(1621) = rxt(505)*y(33) + mat(1694) = rxt(504)*y(33) + mat(1657) = -(rxt(104)*y(60) + rxt(119)*y(64) + rxt(285)*y(81) + rxt(290) & + *y(85) + rxt(294)*y(86) + rxt(295)*y(83) + rxt(314)*y(98) & + + rxt(352)*y(106) + rxt(442)*y(104) + rxt(505)*y(33)) + mat(630) = -rxt(104)*y(44) + mat(761) = -rxt(119)*y(44) + mat(790) = -rxt(285)*y(44) + mat(521) = -rxt(290)*y(44) + mat(403) = -rxt(294)*y(44) + mat(654) = -rxt(295)*y(44) + mat(1247) = -rxt(314)*y(44) + mat(1580) = -rxt(352)*y(44) + mat(729) = -rxt(442)*y(44) + mat(160) = -rxt(505)*y(44) + mat(545) = rxt(525)*y(54) + mat(226) = (rxt(547)+rxt(552)+rxt(557))*y(42) + mat(923) = (rxt(547)+rxt(552)+rxt(557))*y(27) + rxt(293)*y(83) + mat(248) = rxt(137)*y(75) + rxt(140)*y(77) + rxt(288)*y(84) + rxt(292)*y(85) + mat(1085) = rxt(441)*y(104) + mat(1691) = rxt(525)*y(15) + mat(1041) = rxt(183)*y(83) + 2.000_r8*rxt(180)*y(87) + mat(27) = rxt(135)*y(110) + mat(1374) = rxt(137)*y(51) + (rxt(187)+rxt(259))*y(83) + (2.000_r8*rxt(141) & + +2.000_r8*rxt(264))*y(87) + mat(31) = rxt(138)*y(110) + mat(1458) = rxt(140)*y(51) + (rxt(166)+rxt(261))*y(83) + (2.000_r8*rxt(162) & + +2.000_r8*rxt(265))*y(87) + mat(654) = mat(654) + rxt(293)*y(42) + rxt(183)*y(73) + (rxt(187)+rxt(259)) & + *y(75) + (rxt(166)+rxt(261))*y(77) + mat(481) = rxt(288)*y(51) + mat(521) = mat(521) + rxt(292)*y(51) + mat(461) = 2.000_r8*rxt(180)*y(73) + (2.000_r8*rxt(141)+2.000_r8*rxt(264)) & + *y(75) + (2.000_r8*rxt(162)+2.000_r8*rxt(265))*y(77) + rxt(233) & + *y(88) + rxt(215)*y(89) + rxt(197)*y(92) + rxt(250)*y(99) + mat(837) = rxt(233)*y(87) + mat(879) = rxt(215)*y(87) + mat(999) = rxt(197)*y(87) + mat(1291) = rxt(250)*y(87) + mat(729) = mat(729) + rxt(441)*y(53) + mat(1743) = rxt(135)*y(74) + rxt(138)*y(76) + mat(57) = -(rxt(418)*y(104)) + mat(694) = -rxt(418)*y(45) + mat(1044) = rxt(439)*y(71) + mat(658) = rxt(439)*y(53) + mat(164) = -(rxt(496)*y(55) + (rxt(549) + rxt(554)) * y(42)) + mat(1470) = -rxt(496)*y(46) + mat(885) = -(rxt(549) + rxt(554)) * y(46) + mat(409) = rxt(488)*y(71) + mat(661) = rxt(488)*y(3) + mat(188) = -(rxt(467)*y(23) + rxt(468)*y(55) + rxt(469)*y(104) + (rxt(542) & + + rxt(548) + rxt(553)) * y(42)) + mat(1176) = -rxt(467)*y(47) + mat(1473) = -rxt(468)*y(47) + mat(701) = -rxt(469)*y(47) + mat(886) = -(rxt(542) + rxt(548) + rxt(553)) * y(47) + mat(1092) = rxt(456)*y(71) + mat(218) = rxt(461)*y(104) + mat(663) = rxt(456)*y(26) + mat(701) = mat(701) + rxt(461)*y(27) + mat(124) = -(rxt(335)*y(104)) + mat(697) = -rxt(335)*y(48) + mat(884) = rxt(284)*y(81) + mat(1622) = rxt(285)*y(81) + mat(1294) = rxt(344)*y(104) + mat(764) = rxt(284)*y(42) + rxt(285)*y(44) + mat(46) = rxt(300)*y(110) + mat(697) = mat(697) + rxt(344)*y(52) + mat(1702) = rxt(300)*y(90) + mat(253) = -(rxt(421)*y(52) + (rxt(422) + rxt(423) + rxt(424)) * y(53) & + + rxt(425)*y(56) + rxt(433)*y(104) + rxt(570)*y(99)) + mat(1296) = -rxt(421)*y(49) + mat(1049) = -(rxt(422) + rxt(423) + rxt(424)) * y(49) + mat(1139) = -rxt(425)*y(49) + mat(703) = -rxt(433)*y(49) + mat(1251) = -rxt(570)*y(49) + mat(1478) = rxt(419)*y(79) + rxt(567)*y(94) + mat(1139) = mat(1139) + rxt(568)*y(94) + mat(1391) = 1.100_r8*rxt(563)*y(80) + .200_r8*rxt(561)*y(88) + mat(149) = rxt(419)*y(55) + mat(105) = 1.100_r8*rxt(563)*y(68) + mat(798) = .200_r8*rxt(561)*y(68) + mat(174) = rxt(567)*y(55) + rxt(568)*y(56) + mat(239) = -(rxt(137)*y(75) + rxt(140)*y(77) + rxt(288)*y(84) + rxt(292) & + *y(85)) + mat(1336) = -rxt(137)*y(51) + mat(1420) = -rxt(140)*y(51) + mat(464) = -rxt(288)*y(51) + mat(504) = -rxt(292)*y(51) + mat(1048) = rxt(440)*y(54) + mat(1661) = rxt(440)*y(53) + mat(1324) = -((rxt(106) + rxt(107)) * y(63) + (rxt(117) + rxt(118)) * y(66) & + + rxt(131)*y(106) + (rxt(267) + rxt(274)) * y(101) + rxt(275) & + *y(64) + rxt(344)*y(104) + rxt(421)*y(49) + rxt(430)*y(54) & + + rxt(434)*y(71) + rxt(435)*y(57) + rxt(436)*y(55) + rxt(457) & + *y(26) + rxt(489)*y(3) + rxt(529)*y(19) + rxt(572)*y(99)) + mat(235) = -(rxt(106) + rxt(107)) * y(52) + mat(499) = -(rxt(117) + rxt(118)) * y(52) + mat(1572) = -rxt(131)*y(52) + mat(384) = -(rxt(267) + rxt(274)) * y(52) + mat(753) = -rxt(275)*y(52) + mat(723) = -rxt(344)*y(52) + mat(262) = -rxt(421)*y(52) + mat(1683) = -rxt(430)*y(52) + mat(682) = -rxt(434)*y(52) + mat(1610) = -rxt(435)*y(52) + mat(1505) = -rxt(436)*y(52) + mat(1119) = -rxt(457)*y(52) + mat(422) = -rxt(489)*y(52) + mat(275) = -rxt(529)*y(52) + mat(1283) = -rxt(572)*y(52) + mat(950) = rxt(282)*y(81) + rxt(304)*y(92) + mat(262) = mat(262) + 2.000_r8*rxt(423)*y(53) + rxt(425)*y(56) + rxt(433) & + *y(104) + mat(1077) = 2.000_r8*rxt(423)*y(49) + rxt(426)*y(55) + rxt(286)*y(81) + mat(1505) = mat(1505) + rxt(426)*y(53) + mat(1162) = rxt(425)*y(49) + rxt(420)*y(79) + mat(626) = rxt(243)*y(88) + rxt(225)*y(89) + rxt(207)*y(92) + mat(358) = rxt(247)*y(88) + rxt(229)*y(89) + rxt(212)*y(92) + mat(342) = rxt(235)*y(88) + rxt(217)*y(89) + rxt(200)*y(92) + mat(753) = mat(753) + rxt(234)*y(88) + rxt(216)*y(89) + rxt(199)*y(92) + mat(313) = rxt(241)*y(88) + rxt(224)*y(89) + rxt(206)*y(92) + mat(499) = mat(499) + rxt(244)*y(88) + rxt(226)*y(89) + rxt(208)*y(92) + mat(602) = rxt(239)*y(88) + rxt(222)*y(89) + rxt(204)*y(92) + mat(1408) = rxt(298)*y(89) + rxt(299)*y(90) + rxt(301)*y(91) + rxt(303)*y(92) & + + rxt(379)*y(93) + mat(286) = rxt(237)*y(88) + rxt(219)*y(89) + rxt(202)*y(92) + mat(152) = rxt(420)*y(56) + mat(782) = rxt(282)*y(34) + rxt(286)*y(53) + rxt(249)*y(88) + rxt(232)*y(89) & + + rxt(214)*y(92) + mat(372) = rxt(245)*y(88) + rxt(227)*y(89) + rxt(210)*y(92) + mat(648) = rxt(236)*y(88) + rxt(218)*y(89) + rxt(201)*y(92) + mat(477) = rxt(248)*y(88) + rxt(230)*y(89) + rxt(213)*y(92) + mat(517) = rxt(240)*y(88) + rxt(223)*y(89) + rxt(205)*y(92) + mat(400) = rxt(246)*y(88) + rxt(228)*y(89) + rxt(211)*y(92) + mat(458) = rxt(233)*y(88) + rxt(215)*y(89) + rxt(197)*y(92) + mat(829) = rxt(243)*y(60) + rxt(247)*y(61) + rxt(235)*y(62) + rxt(234)*y(64) & + + rxt(241)*y(65) + rxt(244)*y(66) + rxt(239)*y(67) + rxt(237) & + *y(70) + rxt(249)*y(81) + rxt(245)*y(82) + rxt(236)*y(83) & + + rxt(248)*y(84) + rxt(240)*y(85) + rxt(246)*y(86) + rxt(233) & + *y(87) + rxt(238)*y(98) + mat(871) = rxt(225)*y(60) + rxt(229)*y(61) + rxt(217)*y(62) + rxt(216)*y(64) & + + rxt(224)*y(65) + rxt(226)*y(66) + rxt(222)*y(67) + rxt(298) & + *y(68) + rxt(219)*y(70) + rxt(232)*y(81) + rxt(227)*y(82) & + + rxt(218)*y(83) + rxt(230)*y(84) + rxt(223)*y(85) + rxt(228) & + *y(86) + rxt(215)*y(87) + rxt(221)*y(98) + mat(48) = rxt(299)*y(68) + mat(74) = rxt(301)*y(68) + mat(991) = rxt(304)*y(34) + rxt(207)*y(60) + rxt(212)*y(61) + rxt(200)*y(62) & + + rxt(199)*y(64) + rxt(206)*y(65) + rxt(208)*y(66) + rxt(204) & + *y(67) + rxt(303)*y(68) + rxt(202)*y(70) + rxt(214)*y(81) & + + rxt(210)*y(82) + rxt(201)*y(83) + rxt(213)*y(84) + rxt(205) & + *y(85) + rxt(211)*y(86) + rxt(197)*y(87) + rxt(203)*y(98) + mat(68) = rxt(379)*y(68) + mat(1239) = rxt(238)*y(88) + rxt(221)*y(89) + rxt(203)*y(92) + mat(723) = mat(723) + rxt(433)*y(49) end subroutine nlnmat02 - subroutine nlnmat03( avec_len, mat, y, rxt ) + subroutine nlnmat03( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,229) = -(rxt(k,137)*y(k,75) + rxt(k,140)*y(k,77) + rxt(k,288)*y(k,84) & - + rxt(k,292)*y(k,85)) - mat(k,1171) = -rxt(k,137)*y(k,50) - mat(k,1541) = -rxt(k,140)*y(k,50) - mat(k,475) = -rxt(k,288)*y(k,50) - mat(k,516) = -rxt(k,292)*y(k,50) - mat(k,1129) = rxt(k,440)*y(k,53) - mat(k,1214) = rxt(k,440)*y(k,52) - mat(k,1771) = -((rxt(k,106) + rxt(k,107)) * y(k,64) + (rxt(k,117) + rxt(k,118) & - ) * y(k,67) + rxt(k,131)*y(k,106) + (rxt(k,267) + rxt(k,274) & - ) * y(k,101) + rxt(k,275)*y(k,65) + rxt(k,344)*y(k,104) & - + rxt(k,421)*y(k,48) + rxt(k,430)*y(k,53) + rxt(k,434)*y(k,43) & - + rxt(k,435)*y(k,56) + rxt(k,436)*y(k,54) + rxt(k,457)*y(k,24) & - + rxt(k,489)*y(k,2) + rxt(k,529)*y(k,18) + rxt(k,572)*y(k,99)) - mat(k,218) = -(rxt(k,106) + rxt(k,107)) * y(k,51) - mat(k,514) = -(rxt(k,117) + rxt(k,118)) * y(k,51) - mat(k,1650) = -rxt(k,131)*y(k,51) - mat(k,415) = -(rxt(k,267) + rxt(k,274)) * y(k,51) - mat(k,808) = -rxt(k,275)*y(k,51) - mat(k,775) = -rxt(k,344)*y(k,51) - mat(k,282) = -rxt(k,421)*y(k,51) - mat(k,1246) = -rxt(k,430)*y(k,51) - mat(k,706) = -rxt(k,434)*y(k,51) - mat(k,1450) = -rxt(k,435)*y(k,51) - mat(k,998) = -rxt(k,436)*y(k,51) - mat(k,1538) = -rxt(k,457)*y(k,51) - mat(k,473) = -rxt(k,489)*y(k,51) - mat(k,266) = -rxt(k,529)*y(k,51) - mat(k,1370) = -rxt(k,572)*y(k,51) - mat(k,1729) = rxt(k,282)*y(k,81) + rxt(k,304)*y(k,92) - mat(k,282) = mat(k,282) + 2.000_r8*rxt(k,423)*y(k,52) + rxt(k,425)*y(k,55) & - + rxt(k,433)*y(k,104) - mat(k,1168) = 2.000_r8*rxt(k,423)*y(k,48) + rxt(k,426)*y(k,54) + rxt(k,286) & - *y(k,81) - mat(k,998) = mat(k,998) + rxt(k,426)*y(k,52) - mat(k,1289) = rxt(k,425)*y(k,48) + rxt(k,420)*y(k,79) - mat(k,614) = rxt(k,243)*y(k,88) + rxt(k,225)*y(k,89) + rxt(k,207)*y(k,92) - mat(k,369) = rxt(k,247)*y(k,88) + rxt(k,229)*y(k,89) + rxt(k,212)*y(k,92) - mat(k,353) = rxt(k,235)*y(k,88) + rxt(k,217)*y(k,89) + rxt(k,200)*y(k,92) - mat(k,808) = mat(k,808) + rxt(k,234)*y(k,88) + rxt(k,216)*y(k,89) & - + rxt(k,199)*y(k,92) - mat(k,324) = rxt(k,241)*y(k,88) + rxt(k,224)*y(k,89) + rxt(k,206)*y(k,92) - mat(k,514) = mat(k,514) + rxt(k,244)*y(k,88) + rxt(k,226)*y(k,89) & - + rxt(k,208)*y(k,92) - mat(k,646) = rxt(k,239)*y(k,88) + rxt(k,222)*y(k,89) + rxt(k,204)*y(k,92) - mat(k,1041) = rxt(k,298)*y(k,89) + rxt(k,299)*y(k,90) + rxt(k,301)*y(k,91) & - + rxt(k,303)*y(k,92) + rxt(k,379)*y(k,93) - mat(k,309) = rxt(k,237)*y(k,88) + rxt(k,219)*y(k,89) + rxt(k,202)*y(k,92) - mat(k,166) = rxt(k,420)*y(k,55) - mat(k,733) = rxt(k,282)*y(k,32) + rxt(k,286)*y(k,52) + rxt(k,249)*y(k,88) & - + rxt(k,232)*y(k,89) + rxt(k,214)*y(k,92) - mat(k,383) = rxt(k,245)*y(k,88) + rxt(k,227)*y(k,89) + rxt(k,210)*y(k,92) - mat(k,671) = rxt(k,236)*y(k,88) + rxt(k,218)*y(k,89) + rxt(k,201)*y(k,92) - mat(k,493) = rxt(k,248)*y(k,88) + rxt(k,230)*y(k,89) + rxt(k,213)*y(k,92) - mat(k,534) = rxt(k,240)*y(k,88) + rxt(k,223)*y(k,89) + rxt(k,205)*y(k,92) - mat(k,399) = rxt(k,246)*y(k,88) + rxt(k,228)*y(k,89) + rxt(k,211)*y(k,92) - mat(k,450) = rxt(k,233)*y(k,88) + rxt(k,215)*y(k,89) + rxt(k,197)*y(k,92) - mat(k,899) = rxt(k,243)*y(k,61) + rxt(k,247)*y(k,62) + rxt(k,235)*y(k,63) & - + rxt(k,234)*y(k,65) + rxt(k,241)*y(k,66) + rxt(k,244)*y(k,67) & - + rxt(k,239)*y(k,68) + rxt(k,237)*y(k,71) + rxt(k,249)*y(k,81) & - + rxt(k,245)*y(k,82) + rxt(k,236)*y(k,83) + rxt(k,248)*y(k,84) & - + rxt(k,240)*y(k,85) + rxt(k,246)*y(k,86) + rxt(k,233)*y(k,87) & - + rxt(k,238)*y(k,98) - mat(k,942) = rxt(k,225)*y(k,61) + rxt(k,229)*y(k,62) + rxt(k,217)*y(k,63) & - + rxt(k,216)*y(k,65) + rxt(k,224)*y(k,66) + rxt(k,226)*y(k,67) & - + rxt(k,222)*y(k,68) + rxt(k,298)*y(k,69) + rxt(k,219)*y(k,71) & - + rxt(k,232)*y(k,81) + rxt(k,227)*y(k,82) + rxt(k,218)*y(k,83) & - + rxt(k,230)*y(k,84) + rxt(k,223)*y(k,85) + rxt(k,228)*y(k,86) & - + rxt(k,215)*y(k,87) + rxt(k,221)*y(k,98) - mat(k,49) = rxt(k,299)*y(k,69) - mat(k,121) = rxt(k,301)*y(k,69) - mat(k,1083) = rxt(k,304)*y(k,32) + rxt(k,207)*y(k,61) + rxt(k,212)*y(k,62) & - + rxt(k,200)*y(k,63) + rxt(k,199)*y(k,65) + rxt(k,206)*y(k,66) & - + rxt(k,208)*y(k,67) + rxt(k,204)*y(k,68) + rxt(k,303)*y(k,69) & - + rxt(k,202)*y(k,71) + rxt(k,214)*y(k,81) + rxt(k,210)*y(k,82) & - + rxt(k,201)*y(k,83) + rxt(k,213)*y(k,84) + rxt(k,205)*y(k,85) & - + rxt(k,211)*y(k,86) + rxt(k,197)*y(k,87) + rxt(k,203)*y(k,98) - mat(k,114) = rxt(k,379)*y(k,69) - mat(k,1325) = rxt(k,238)*y(k,88) + rxt(k,221)*y(k,89) + rxt(k,203)*y(k,92) - mat(k,775) = mat(k,775) + rxt(k,433)*y(k,48) - mat(k,1153) = -(rxt(k,105)*y(k,61) + (rxt(k,115) + rxt(k,116)) * y(k,67) & - + (rxt(k,272) + rxt(k,273)) * y(k,101) + rxt(k,276)*y(k,65) & - + rxt(k,286)*y(k,81) + rxt(k,315)*y(k,98) + rxt(k,341)*y(k,105) & - + rxt(k,354)*y(k,106) + (rxt(k,422) + rxt(k,423) + rxt(k,424) & - ) * y(k,48) + (rxt(k,426) + rxt(k,428)) * y(k,54) + rxt(k,427) & - *y(k,56) + rxt(k,439)*y(k,43) + rxt(k,440)*y(k,53) + rxt(k,441) & - *y(k,104) + rxt(k,459)*y(k,24) + rxt(k,490)*y(k,2)) - mat(k,606) = -rxt(k,105)*y(k,52) - mat(k,507) = -(rxt(k,115) + rxt(k,116)) * y(k,52) - mat(k,407) = -(rxt(k,272) + rxt(k,273)) * y(k,52) - mat(k,793) = -rxt(k,276)*y(k,52) - mat(k,721) = -rxt(k,286)*y(k,52) - mat(k,1310) = -rxt(k,315)*y(k,52) - mat(k,1599) = -rxt(k,341)*y(k,52) - mat(k,1635) = -rxt(k,354)*y(k,52) - mat(k,277) = -(rxt(k,422) + rxt(k,423) + rxt(k,424)) * y(k,52) - mat(k,983) = -(rxt(k,426) + rxt(k,428)) * y(k,52) - mat(k,1435) = -rxt(k,427)*y(k,52) - mat(k,693) = -rxt(k,439)*y(k,52) - mat(k,1231) = -rxt(k,440)*y(k,52) - mat(k,762) = -rxt(k,441)*y(k,52) - mat(k,1523) = -rxt(k,459)*y(k,52) - mat(k,464) = -rxt(k,490)*y(k,52) - mat(k,464) = mat(k,464) + rxt(k,489)*y(k,51) - mat(k,261) = rxt(k,529)*y(k,51) - mat(k,1523) = mat(k,1523) + rxt(k,457)*y(k,51) - mat(k,693) = mat(k,693) + rxt(k,434)*y(k,51) + rxt(k,429)*y(k,53) - mat(k,54) = rxt(k,418)*y(k,104) - mat(k,125) = rxt(k,335)*y(k,104) - mat(k,1756) = rxt(k,489)*y(k,2) + rxt(k,529)*y(k,18) + rxt(k,457)*y(k,24) & - + rxt(k,434)*y(k,43) + 2.000_r8*rxt(k,430)*y(k,53) + rxt(k,436) & - *y(k,54) + rxt(k,435)*y(k,56) + rxt(k,107)*y(k,64) + rxt(k,131) & - *y(k,106) - mat(k,1231) = mat(k,1231) + rxt(k,429)*y(k,43) + 2.000_r8*rxt(k,430)*y(k,51) & - + rxt(k,431)*y(k,54) + rxt(k,432)*y(k,104) - mat(k,983) = mat(k,983) + rxt(k,436)*y(k,51) + rxt(k,431)*y(k,53) - mat(k,1435) = mat(k,1435) + rxt(k,435)*y(k,51) - mat(k,1678) = rxt(k,280)*y(k,81) - mat(k,215) = rxt(k,107)*y(k,51) - mat(k,836) = rxt(k,196)*y(k,81) + rxt(k,192)*y(k,82) - mat(k,1196) = rxt(k,161)*y(k,81) + rxt(k,157)*y(k,82) - mat(k,1566) = rxt(k,179)*y(k,81) + rxt(k,174)*y(k,82) - mat(k,721) = mat(k,721) + rxt(k,280)*y(k,60) + rxt(k,196)*y(k,73) & - + rxt(k,161)*y(k,75) + rxt(k,179)*y(k,77) + rxt(k,249)*y(k,88) & - + rxt(k,232)*y(k,89) + rxt(k,214)*y(k,92) + rxt(k,156)*y(k,99) - mat(k,377) = rxt(k,192)*y(k,73) + rxt(k,157)*y(k,75) + rxt(k,174)*y(k,77) & - + rxt(k,245)*y(k,88) + rxt(k,227)*y(k,89) + rxt(k,210)*y(k,92) & - + rxt(k,151)*y(k,99) - mat(k,884) = rxt(k,249)*y(k,81) + rxt(k,245)*y(k,82) - mat(k,927) = rxt(k,232)*y(k,81) + rxt(k,227)*y(k,82) - mat(k,1068) = rxt(k,214)*y(k,81) + rxt(k,210)*y(k,82) + rxt(k,306)*y(k,104) - mat(k,1355) = rxt(k,156)*y(k,81) + rxt(k,151)*y(k,82) - mat(k,762) = mat(k,762) + rxt(k,418)*y(k,44) + rxt(k,335)*y(k,47) & - + rxt(k,432)*y(k,53) + rxt(k,306)*y(k,92) - mat(k,1635) = mat(k,1635) + rxt(k,131)*y(k,51) - mat(k,1233) = -(rxt(k,429)*y(k,43) + rxt(k,430)*y(k,51) + rxt(k,431)*y(k,54) & - + rxt(k,432)*y(k,104) + rxt(k,440)*y(k,52) + rxt(k,525)*y(k,14)) - mat(k,694) = -rxt(k,429)*y(k,53) - mat(k,1758) = -rxt(k,430)*y(k,53) - mat(k,985) = -rxt(k,431)*y(k,53) - mat(k,763) = -rxt(k,432)*y(k,53) - mat(k,1155) = -rxt(k,440)*y(k,53) - mat(k,549) = -rxt(k,525)*y(k,53) - mat(k,78) = rxt(k,491)*y(k,54) - mat(k,1525) = rxt(k,281)*y(k,81) - mat(k,206) = rxt(k,460)*y(k,54) + rxt(k,458)*y(k,60) + rxt(k,461)*y(k,104) - mat(k,173) = rxt(k,505)*y(k,42) - mat(k,1110) = rxt(k,505)*y(k,31) + rxt(k,442)*y(k,104) - mat(k,694) = mat(k,694) + rxt(k,305)*y(k,92) - mat(k,1155) = mat(k,1155) + rxt(k,428)*y(k,54) + rxt(k,427)*y(k,56) - mat(k,985) = mat(k,985) + rxt(k,491)*y(k,3) + rxt(k,460)*y(k,25) + rxt(k,428) & - *y(k,52) - mat(k,1437) = rxt(k,427)*y(k,52) - mat(k,1680) = rxt(k,458)*y(k,25) - mat(k,838) = rxt(k,195)*y(k,84) + rxt(k,188)*y(k,85) + rxt(k,193)*y(k,86) - mat(k,1198) = rxt(k,160)*y(k,84) + (rxt(k,231)+rxt(k,257))*y(k,85) & - + rxt(k,158)*y(k,86) - mat(k,1568) = rxt(k,178)*y(k,84) + (rxt(k,170)+rxt(k,258))*y(k,85) & - + rxt(k,175)*y(k,86) - mat(k,723) = rxt(k,281)*y(k,24) - mat(k,663) = rxt(k,236)*y(k,88) + rxt(k,218)*y(k,89) + rxt(k,201)*y(k,92) & - + rxt(k,143)*y(k,99) - mat(k,488) = rxt(k,195)*y(k,73) + rxt(k,160)*y(k,75) + rxt(k,178)*y(k,77) & - + rxt(k,248)*y(k,88) + rxt(k,230)*y(k,89) + rxt(k,213)*y(k,92) & - + rxt(k,155)*y(k,99) - mat(k,529) = rxt(k,188)*y(k,73) + (rxt(k,231)+rxt(k,257))*y(k,75) + ( & - + rxt(k,170)+rxt(k,258))*y(k,77) + rxt(k,240)*y(k,88) & - + rxt(k,223)*y(k,89) + rxt(k,205)*y(k,92) + rxt(k,147)*y(k,99) - mat(k,393) = rxt(k,193)*y(k,73) + rxt(k,158)*y(k,75) + rxt(k,175)*y(k,77) & - + rxt(k,246)*y(k,88) + rxt(k,228)*y(k,89) + rxt(k,211)*y(k,92) & - + rxt(k,152)*y(k,99) - mat(k,446) = rxt(k,233)*y(k,88) + rxt(k,215)*y(k,89) + rxt(k,197)*y(k,92) & - + rxt(k,250)*y(k,99) - mat(k,886) = rxt(k,236)*y(k,83) + rxt(k,248)*y(k,84) + rxt(k,240)*y(k,85) & - + rxt(k,246)*y(k,86) + rxt(k,233)*y(k,87) - mat(k,929) = rxt(k,218)*y(k,83) + rxt(k,230)*y(k,84) + rxt(k,223)*y(k,85) & - + rxt(k,228)*y(k,86) + rxt(k,215)*y(k,87) - mat(k,1070) = rxt(k,305)*y(k,43) + rxt(k,201)*y(k,83) + rxt(k,213)*y(k,84) & - + rxt(k,205)*y(k,85) + rxt(k,211)*y(k,86) + rxt(k,197)*y(k,87) - mat(k,1357) = rxt(k,143)*y(k,83) + rxt(k,155)*y(k,84) + rxt(k,147)*y(k,85) & - + rxt(k,152)*y(k,86) + rxt(k,250)*y(k,87) - mat(k,763) = mat(k,763) + rxt(k,461)*y(k,25) + rxt(k,442)*y(k,42) - mat(k,979) = -(rxt(k,108)*y(k,64) + rxt(k,120)*y(k,65) + rxt(k,126)*y(k,68) & - + rxt(k,296)*y(k,83) + (rxt(k,319) + rxt(k,320)) * y(k,98) & - + (rxt(k,328) + rxt(k,329)) * y(k,101) + rxt(k,331)*y(k,102) & - + rxt(k,333)*y(k,103) + rxt(k,342)*y(k,105) + rxt(k,355) & - *y(k,106) + rxt(k,398)*y(k,56) + 4._r8*rxt(k,399)*y(k,54) & - + rxt(k,400)*y(k,55) + rxt(k,401)*y(k,33) + rxt(k,402)*y(k,35) & - + rxt(k,407)*y(k,43) + rxt(k,413)*y(k,104) + (rxt(k,426) & - + rxt(k,428)) * y(k,52) + rxt(k,431)*y(k,53) + rxt(k,436) & - *y(k,51) + rxt(k,460)*y(k,25) + rxt(k,462)*y(k,24) + rxt(k,465) & - *y(k,40) + rxt(k,468)*y(k,46) + rxt(k,491)*y(k,3) + rxt(k,492) & - *y(k,2) + rxt(k,494)*y(k,36) + rxt(k,496)*y(k,45) + rxt(k,526) & - *y(k,14) + (rxt(k,565) + rxt(k,566)) * y(k,80) + rxt(k,567) & - *y(k,94)) - mat(k,214) = -rxt(k,108)*y(k,54) - mat(k,789) = -rxt(k,120)*y(k,54) - mat(k,628) = -rxt(k,126)*y(k,54) - mat(k,657) = -rxt(k,296)*y(k,54) - mat(k,1306) = -(rxt(k,319) + rxt(k,320)) * y(k,54) - mat(k,405) = -(rxt(k,328) + rxt(k,329)) * y(k,54) - mat(k,98) = -rxt(k,331)*y(k,54) - mat(k,288) = -rxt(k,333)*y(k,54) - mat(k,1595) = -rxt(k,342)*y(k,54) - mat(k,1631) = -rxt(k,355)*y(k,54) - mat(k,1431) = -rxt(k,398)*y(k,54) - mat(k,1270) = -rxt(k,400)*y(k,54) - mat(k,424) = -rxt(k,401)*y(k,54) - mat(k,82) = -rxt(k,402)*y(k,54) - mat(k,689) = -rxt(k,407)*y(k,54) - mat(k,758) = -rxt(k,413)*y(k,54) - mat(k,1149) = -(rxt(k,426) + rxt(k,428)) * y(k,54) - mat(k,1227) = -rxt(k,431)*y(k,54) - mat(k,1752) = -rxt(k,436)*y(k,54) - mat(k,203) = -rxt(k,460)*y(k,54) - mat(k,1519) = -rxt(k,462)*y(k,54) - mat(k,1476) = -rxt(k,465)*y(k,54) - mat(k,186) = -rxt(k,468)*y(k,54) - mat(k,75) = -rxt(k,491)*y(k,54) - mat(k,462) = -rxt(k,492)*y(k,54) - mat(k,196) = -rxt(k,494)*y(k,54) - mat(k,155) = -rxt(k,496)*y(k,54) - mat(k,545) = -rxt(k,526)*y(k,54) - mat(k,91) = -(rxt(k,565) + rxt(k,566)) * y(k,54) - mat(k,180) = -rxt(k,567)*y(k,54) - mat(k,1710) = rxt(k,405)*y(k,43) - mat(k,689) = mat(k,689) + rxt(k,405)*y(k,32) - mat(k,275) = rxt(k,421)*y(k,51) + rxt(k,422)*y(k,52) + rxt(k,425)*y(k,55) & - + rxt(k,570)*y(k,99) - mat(k,1752) = mat(k,1752) + rxt(k,421)*y(k,48) + rxt(k,267)*y(k,101) - mat(k,1149) = mat(k,1149) + rxt(k,422)*y(k,48) + rxt(k,354)*y(k,106) - mat(k,1270) = mat(k,1270) + rxt(k,425)*y(k,48) + rxt(k,569)*y(k,94) + ( & - + rxt(k,387)+rxt(k,388))*y(k,95) + rxt(k,576)*y(k,107) & - + rxt(k,580)*y(k,108) - mat(k,1431) = mat(k,1431) + rxt(k,358)*y(k,106) - mat(k,1674) = rxt(k,109)*y(k,65) + rxt(k,345)*y(k,106) - mat(k,789) = mat(k,789) + rxt(k,109)*y(k,60) + rxt(k,181)*y(k,73) + ( & - + rxt(k,165)+rxt(k,253))*y(k,75) + (rxt(k,163)+rxt(k,260)) & - *y(k,77) + rxt(k,234)*y(k,88) + rxt(k,216)*y(k,89) + rxt(k,199) & - *y(k,92) + rxt(k,251)*y(k,99) - mat(k,316) = rxt(k,189)*y(k,73) + (rxt(k,242)+rxt(k,266))*y(k,75) + ( & - + rxt(k,171)+rxt(k,254))*y(k,77) + rxt(k,241)*y(k,88) & - + rxt(k,224)*y(k,89) + rxt(k,206)*y(k,92) + rxt(k,148)*y(k,99) - mat(k,505) = rxt(k,191)*y(k,73) + (rxt(k,153)+rxt(k,255))*y(k,75) + ( & - + rxt(k,173)+rxt(k,256))*y(k,77) + rxt(k,244)*y(k,88) & - + rxt(k,226)*y(k,89) + rxt(k,208)*y(k,92) + rxt(k,150)*y(k,99) - mat(k,1022) = rxt(k,561)*y(k,88) + 1.150_r8*rxt(k,562)*y(k,99) - mat(k,832) = rxt(k,181)*y(k,65) + rxt(k,189)*y(k,66) + rxt(k,191)*y(k,67) - mat(k,1192) = (rxt(k,165)+rxt(k,253))*y(k,65) + (rxt(k,242)+rxt(k,266)) & - *y(k,66) + (rxt(k,153)+rxt(k,255))*y(k,67) - mat(k,1562) = (rxt(k,163)+rxt(k,260))*y(k,65) + (rxt(k,171)+rxt(k,254)) & - *y(k,66) + (rxt(k,173)+rxt(k,256))*y(k,67) - mat(k,164) = rxt(k,575)*y(k,107) - mat(k,880) = rxt(k,234)*y(k,65) + rxt(k,241)*y(k,66) + rxt(k,244)*y(k,67) & - + rxt(k,561)*y(k,69) - mat(k,923) = rxt(k,216)*y(k,65) + rxt(k,224)*y(k,66) + rxt(k,226)*y(k,67) - mat(k,1064) = rxt(k,199)*y(k,65) + rxt(k,206)*y(k,66) + rxt(k,208)*y(k,67) - mat(k,180) = mat(k,180) + rxt(k,569)*y(k,55) - mat(k,577) = (rxt(k,387)+rxt(k,388))*y(k,55) - mat(k,1351) = rxt(k,570)*y(k,48) + rxt(k,251)*y(k,65) + rxt(k,148)*y(k,66) & - + rxt(k,150)*y(k,67) + 1.150_r8*rxt(k,562)*y(k,69) - mat(k,405) = mat(k,405) + rxt(k,267)*y(k,51) - mat(k,758) = mat(k,758) + 2.000_r8*rxt(k,415)*y(k,104) - mat(k,1631) = mat(k,1631) + rxt(k,354)*y(k,52) + rxt(k,358)*y(k,56) & - + rxt(k,345)*y(k,60) - mat(k,250) = rxt(k,576)*y(k,55) + rxt(k,575)*y(k,79) - mat(k,68) = rxt(k,580)*y(k,55) - end do + mat(1071) = -(rxt(105)*y(60) + (rxt(115) + rxt(116)) * y(66) + (rxt(272) & + + rxt(273)) * y(101) + rxt(276)*y(64) + rxt(286)*y(81) + rxt(315) & + *y(98) + rxt(341)*y(105) + rxt(354)*y(106) + (rxt(422) + rxt(423) & + + rxt(424)) * y(49) + (rxt(426) + rxt(428)) * y(55) + rxt(427) & + *y(57) + rxt(439)*y(71) + rxt(440)*y(54) + rxt(441)*y(104) & + + rxt(459)*y(26) + rxt(490)*y(3)) + mat(622) = -rxt(105)*y(53) + mat(496) = -(rxt(115) + rxt(116)) * y(53) + mat(381) = -(rxt(272) + rxt(273)) * y(53) + mat(747) = -rxt(276)*y(53) + mat(776) = -rxt(286)*y(53) + mat(1233) = -rxt(315)*y(53) + mat(1531) = -rxt(341)*y(53) + mat(1566) = -rxt(354)*y(53) + mat(259) = -(rxt(422) + rxt(423) + rxt(424)) * y(53) + mat(1499) = -(rxt(426) + rxt(428)) * y(53) + mat(1604) = -rxt(427)*y(53) + mat(676) = -rxt(439)*y(53) + mat(1677) = -rxt(440)*y(53) + mat(717) = -rxt(441)*y(53) + mat(1113) = -rxt(459)*y(53) + mat(418) = -rxt(490)*y(53) + mat(418) = mat(418) + rxt(489)*y(52) + mat(271) = rxt(529)*y(52) + mat(1198) = rxt(280)*y(81) + mat(1113) = mat(1113) + rxt(457)*y(52) + mat(60) = rxt(418)*y(104) + mat(126) = rxt(335)*y(104) + mat(1318) = rxt(489)*y(3) + rxt(529)*y(19) + rxt(457)*y(26) & + + 2.000_r8*rxt(430)*y(54) + rxt(436)*y(55) + rxt(435)*y(57) & + + rxt(107)*y(63) + rxt(434)*y(71) + rxt(131)*y(106) + mat(1677) = mat(1677) + 2.000_r8*rxt(430)*y(52) + rxt(431)*y(55) + rxt(429) & + *y(71) + rxt(432)*y(104) + mat(1499) = mat(1499) + rxt(436)*y(52) + rxt(431)*y(54) + mat(1604) = mat(1604) + rxt(435)*y(52) + mat(232) = rxt(107)*y(52) + mat(676) = mat(676) + rxt(434)*y(52) + rxt(429)*y(54) + mat(1027) = rxt(196)*y(81) + rxt(192)*y(82) + mat(1360) = rxt(161)*y(81) + rxt(157)*y(82) + mat(1444) = rxt(179)*y(81) + rxt(174)*y(82) + mat(776) = mat(776) + rxt(280)*y(23) + rxt(196)*y(73) + rxt(161)*y(75) & + + rxt(179)*y(77) + rxt(249)*y(88) + rxt(232)*y(89) + rxt(214) & + *y(92) + rxt(156)*y(99) + mat(369) = rxt(192)*y(73) + rxt(157)*y(75) + rxt(174)*y(77) + rxt(245)*y(88) & + + rxt(227)*y(89) + rxt(210)*y(92) + rxt(151)*y(99) + mat(823) = rxt(249)*y(81) + rxt(245)*y(82) + mat(865) = rxt(232)*y(81) + rxt(227)*y(82) + mat(985) = rxt(214)*y(81) + rxt(210)*y(82) + rxt(306)*y(104) + mat(1277) = rxt(156)*y(81) + rxt(151)*y(82) + mat(717) = mat(717) + rxt(418)*y(45) + rxt(335)*y(48) + rxt(432)*y(54) & + + rxt(306)*y(92) + mat(1566) = mat(1566) + rxt(131)*y(52) + mat(1692) = -(rxt(429)*y(71) + rxt(430)*y(52) + rxt(431)*y(55) + rxt(432) & + *y(104) + rxt(440)*y(53) + rxt(525)*y(15)) + mat(689) = -rxt(429)*y(54) + mat(1333) = -rxt(430)*y(54) + mat(1514) = -rxt(431)*y(54) + mat(730) = -rxt(432)*y(54) + mat(1086) = -rxt(440)*y(54) + mat(546) = -rxt(525)*y(54) + mat(97) = rxt(491)*y(55) + mat(1213) = rxt(458)*y(27) + mat(1128) = rxt(281)*y(81) + mat(227) = rxt(458)*y(23) + rxt(460)*y(55) + rxt(461)*y(104) + mat(161) = rxt(505)*y(44) + mat(1658) = rxt(505)*y(33) + rxt(442)*y(104) + mat(1086) = mat(1086) + rxt(428)*y(55) + rxt(427)*y(57) + mat(1514) = mat(1514) + rxt(491)*y(4) + rxt(460)*y(27) + rxt(428)*y(53) + mat(1619) = rxt(427)*y(53) + mat(689) = mat(689) + rxt(305)*y(92) + mat(1042) = rxt(195)*y(84) + rxt(188)*y(85) + rxt(193)*y(86) + mat(1375) = rxt(160)*y(84) + (rxt(231)+rxt(257))*y(85) + rxt(158)*y(86) + mat(1459) = rxt(178)*y(84) + (rxt(170)+rxt(258))*y(85) + rxt(175)*y(86) + mat(791) = rxt(281)*y(26) + mat(655) = rxt(236)*y(88) + rxt(218)*y(89) + rxt(201)*y(92) + rxt(143)*y(99) + mat(482) = rxt(195)*y(73) + rxt(160)*y(75) + rxt(178)*y(77) + rxt(248)*y(88) & + + rxt(230)*y(89) + rxt(213)*y(92) + rxt(155)*y(99) + mat(522) = rxt(188)*y(73) + (rxt(231)+rxt(257))*y(75) + (rxt(170)+rxt(258)) & + *y(77) + rxt(240)*y(88) + rxt(223)*y(89) + rxt(205)*y(92) & + + rxt(147)*y(99) + mat(404) = rxt(193)*y(73) + rxt(158)*y(75) + rxt(175)*y(77) + rxt(246)*y(88) & + + rxt(228)*y(89) + rxt(211)*y(92) + rxt(152)*y(99) + mat(462) = rxt(233)*y(88) + rxt(215)*y(89) + rxt(197)*y(92) + rxt(250)*y(99) + mat(838) = rxt(236)*y(83) + rxt(248)*y(84) + rxt(240)*y(85) + rxt(246)*y(86) & + + rxt(233)*y(87) + mat(880) = rxt(218)*y(83) + rxt(230)*y(84) + rxt(223)*y(85) + rxt(228)*y(86) & + + rxt(215)*y(87) + mat(1000) = rxt(305)*y(71) + rxt(201)*y(83) + rxt(213)*y(84) + rxt(205)*y(85) & + + rxt(211)*y(86) + rxt(197)*y(87) + mat(1292) = rxt(143)*y(83) + rxt(155)*y(84) + rxt(147)*y(85) + rxt(152)*y(86) & + + rxt(250)*y(87) + mat(730) = mat(730) + rxt(461)*y(27) + rxt(442)*y(44) + mat(1509) = -(rxt(108)*y(63) + rxt(120)*y(64) + rxt(126)*y(67) + rxt(296) & + *y(83) + (rxt(319) + rxt(320)) * y(98) + (rxt(328) + rxt(329) & + ) * y(101) + rxt(331)*y(102) + rxt(333)*y(103) + rxt(342)*y(105) & + + rxt(355)*y(106) + rxt(398)*y(57) + 4._r8*rxt(399)*y(55) & + + rxt(400)*y(56) + rxt(401)*y(35) + rxt(402)*y(37) + rxt(407) & + *y(71) + rxt(413)*y(104) + (rxt(426) + rxt(428)) * y(53) + rxt(431) & + *y(54) + rxt(436)*y(52) + rxt(460)*y(27) + rxt(462)*y(26) & + + rxt(465)*y(42) + rxt(468)*y(47) + rxt(491)*y(4) + rxt(492) & + *y(3) + rxt(494)*y(38) + rxt(496)*y(46) + rxt(526)*y(15) & + + (rxt(565) + rxt(566)) * y(80) + rxt(567)*y(94)) + mat(236) = -rxt(108)*y(55) + mat(757) = -rxt(120)*y(55) + mat(606) = -rxt(126)*y(55) + mat(652) = -rxt(296)*y(55) + mat(1243) = -(rxt(319) + rxt(320)) * y(55) + mat(386) = -(rxt(328) + rxt(329)) * y(55) + mat(56) = -rxt(331)*y(55) + mat(300) = -rxt(333)*y(55) + mat(1541) = -rxt(342)*y(55) + mat(1576) = -rxt(355)*y(55) + mat(1614) = -rxt(398)*y(55) + mat(1166) = -rxt(400)*y(55) + mat(444) = -rxt(401)*y(55) + mat(116) = -rxt(402)*y(55) + mat(684) = -rxt(407)*y(55) + mat(725) = -rxt(413)*y(55) + mat(1081) = -(rxt(426) + rxt(428)) * y(55) + mat(1687) = -rxt(431)*y(55) + mat(1328) = -rxt(436)*y(55) + mat(225) = -rxt(460)*y(55) + mat(1123) = -rxt(462)*y(55) + mat(919) = -rxt(465)*y(55) + mat(193) = -rxt(468)*y(55) + mat(95) = -rxt(491)*y(55) + mat(423) = -rxt(492)*y(55) + mat(185) = -rxt(494)*y(55) + mat(170) = -rxt(496)*y(55) + mat(541) = -rxt(526)*y(55) + mat(110) = -(rxt(565) + rxt(566)) * y(55) + mat(178) = -rxt(567)*y(55) + mat(1208) = rxt(109)*y(64) + rxt(345)*y(106) + mat(954) = rxt(405)*y(71) + mat(264) = rxt(421)*y(52) + rxt(422)*y(53) + rxt(425)*y(56) + rxt(570)*y(99) + mat(1328) = mat(1328) + rxt(421)*y(49) + rxt(267)*y(101) + mat(1081) = mat(1081) + rxt(422)*y(49) + rxt(354)*y(106) + mat(1166) = mat(1166) + rxt(425)*y(49) + rxt(569)*y(94) + (rxt(387)+rxt(388)) & + *y(95) + rxt(576)*y(107) + rxt(580)*y(108) + mat(1614) = mat(1614) + rxt(358)*y(106) + mat(757) = mat(757) + rxt(109)*y(23) + rxt(181)*y(73) + (rxt(165)+rxt(253)) & + *y(75) + (rxt(163)+rxt(260))*y(77) + rxt(234)*y(88) + rxt(216) & + *y(89) + rxt(199)*y(92) + rxt(251)*y(99) + mat(316) = rxt(189)*y(73) + (rxt(242)+rxt(266))*y(75) + (rxt(171)+rxt(254)) & + *y(77) + rxt(241)*y(88) + rxt(224)*y(89) + rxt(206)*y(92) & + + rxt(148)*y(99) + mat(502) = rxt(191)*y(73) + (rxt(153)+rxt(255))*y(75) + (rxt(173)+rxt(256)) & + *y(77) + rxt(244)*y(88) + rxt(226)*y(89) + rxt(208)*y(92) & + + rxt(150)*y(99) + mat(1412) = rxt(561)*y(88) + 1.150_r8*rxt(562)*y(99) + mat(684) = mat(684) + rxt(405)*y(34) + mat(1037) = rxt(181)*y(64) + rxt(189)*y(65) + rxt(191)*y(66) + mat(1370) = (rxt(165)+rxt(253))*y(64) + (rxt(242)+rxt(266))*y(65) + (rxt(153) & + +rxt(255))*y(66) + mat(1454) = (rxt(163)+rxt(260))*y(64) + (rxt(171)+rxt(254))*y(65) + (rxt(173) & + +rxt(256))*y(66) + mat(153) = rxt(575)*y(107) + mat(833) = rxt(234)*y(64) + rxt(241)*y(65) + rxt(244)*y(66) + rxt(561)*y(68) + mat(875) = rxt(216)*y(64) + rxt(224)*y(65) + rxt(226)*y(66) + mat(995) = rxt(199)*y(64) + rxt(206)*y(65) + rxt(208)*y(66) + mat(178) = mat(178) + rxt(569)*y(56) + mat(574) = (rxt(387)+rxt(388))*y(56) + mat(1287) = rxt(570)*y(49) + rxt(251)*y(64) + rxt(148)*y(65) + rxt(150)*y(66) & + + 1.150_r8*rxt(562)*y(68) + mat(386) = mat(386) + rxt(267)*y(52) + mat(725) = mat(725) + 2.000_r8*rxt(415)*y(104) + mat(1576) = mat(1576) + rxt(345)*y(23) + rxt(354)*y(53) + rxt(358)*y(57) + mat(216) = rxt(576)*y(56) + rxt(575)*y(79) + mat(89) = rxt(580)*y(56) + mat(1158) = -(rxt(121)*y(64) + (rxt(128) + rxt(130)) * y(68) + rxt(317)*y(98) & + + rxt(357)*y(106) + rxt(359)*y(99) + rxt(387)*y(95) + rxt(392) & + *y(96) + rxt(400)*y(55) + rxt(406)*y(34) + rxt(420)*y(79) & + + rxt(425)*y(49) + rxt(564)*y(80) + (rxt(568) + rxt(569) & + ) * y(94) + rxt(576)*y(107) + rxt(580)*y(108)) + mat(749) = -rxt(121)*y(56) + mat(1404) = -(rxt(128) + rxt(130)) * y(56) + mat(1235) = -rxt(317)*y(56) + mat(1568) = -rxt(357)*y(56) + mat(1279) = -rxt(359)*y(56) + mat(568) = -rxt(387)*y(56) + mat(197) = -rxt(392)*y(56) + mat(1501) = -rxt(400)*y(56) + mat(946) = -rxt(406)*y(56) + mat(151) = -rxt(420)*y(56) + mat(260) = -rxt(425)*y(56) + mat(107) = -rxt(564)*y(56) + mat(176) = -(rxt(568) + rxt(569)) * y(56) + mat(213) = -rxt(576)*y(56) + mat(87) = -rxt(580)*y(56) + mat(327) = rxt(483)*y(57) + rxt(482)*y(71) + mat(420) = 2.000_r8*rxt(484)*y(3) + (rxt(486)+rxt(487))*y(26) + rxt(492) & + *y(55) + rxt(488)*y(71) + mat(273) = rxt(528)*y(71) + mat(1200) = rxt(451)*y(57) + rxt(122)*y(67) + rxt(449)*y(71) + rxt(309)*y(98) + mat(1115) = (rxt(486)+rxt(487))*y(3) + (2.000_r8*rxt(453)+2.000_r8*rxt(454)) & + *y(26) + rxt(462)*y(55) + rxt(111)*y(64) + rxt(123)*y(67) & + + rxt(456)*y(71) + rxt(310)*y(98) + rxt(464)*y(104) + rxt(346) & + *y(106) + mat(946) = mat(946) + rxt(409)*y(57) + rxt(403)*y(71) + rxt(326)*y(101) + mat(61) = rxt(418)*y(104) + mat(260) = mat(260) + rxt(424)*y(53) + mat(1320) = rxt(435)*y(57) + rxt(572)*y(99) + rxt(274)*y(101) + mat(1073) = rxt(424)*y(49) + rxt(426)*y(55) + rxt(427)*y(57) + rxt(315)*y(98) & + + rxt(272)*y(101) + mat(1679) = rxt(431)*y(55) + rxt(429)*y(71) + mat(1501) = mat(1501) + rxt(492)*y(3) + rxt(462)*y(26) + rxt(426)*y(53) & + + rxt(431)*y(54) + 2.000_r8*rxt(399)*y(55) + 2.000_r8*rxt(398) & + *y(57) + rxt(108)*y(63) + rxt(126)*y(67) + rxt(407)*y(71) & + + rxt(296)*y(83) + rxt(391)*y(96) + rxt(320)*y(98) + ( & + + 2.000_r8*rxt(328)+rxt(329))*y(101) + rxt(331)*y(102) & + + rxt(413)*y(104) + rxt(355)*y(106) + mat(1158) = mat(1158) + 2.000_r8*rxt(392)*y(96) + mat(1606) = rxt(483)*y(1) + rxt(451)*y(23) + rxt(409)*y(34) + rxt(435)*y(52) & + + rxt(427)*y(53) + 2.000_r8*rxt(398)*y(55) + rxt(127)*y(67) & + + rxt(129)*y(68) + 2.000_r8*rxt(408)*y(71) + rxt(287)*y(81) & + + 2.000_r8*rxt(297)*y(83) + 2.000_r8*rxt(389)*y(95) + rxt(318) & + *y(98) + 3.000_r8*rxt(327)*y(101) + rxt(414)*y(104) + mat(623) = rxt(149)*y(99) + mat(355) = rxt(154)*y(99) + mat(339) = rxt(252)*y(99) + mat(233) = rxt(108)*y(55) + mat(749) = mat(749) + rxt(111)*y(26) + rxt(251)*y(99) + mat(311) = rxt(148)*y(99) + mat(497) = rxt(150)*y(99) + mat(598) = rxt(122)*y(23) + rxt(123)*y(26) + rxt(126)*y(55) + rxt(127)*y(57) & + + rxt(186)*y(73) + rxt(220)*y(75) + rxt(169)*y(77) + rxt(239) & + *y(88) + rxt(222)*y(89) + rxt(204)*y(92) + 2.000_r8*rxt(146) & + *y(99) + mat(1404) = mat(1404) + rxt(129)*y(57) + rxt(321)*y(100) + 2.000_r8*rxt(375) & + *y(103) + mat(284) = rxt(144)*y(99) + mat(678) = rxt(482)*y(1) + rxt(488)*y(3) + rxt(528)*y(19) + rxt(449)*y(23) & + + rxt(456)*y(26) + rxt(403)*y(34) + rxt(429)*y(54) + rxt(407) & + *y(55) + 2.000_r8*rxt(408)*y(57) + 2.000_r8*rxt(417)*y(71) & + + rxt(412)*y(104) + mat(1029) = rxt(186)*y(67) + rxt(185)*y(98) + mat(1362) = rxt(220)*y(67) + rxt(209)*y(98) + mat(1446) = rxt(169)*y(67) + rxt(168)*y(98) + mat(778) = rxt(287)*y(57) + rxt(156)*y(99) + mat(370) = rxt(151)*y(99) + mat(645) = rxt(296)*y(55) + 2.000_r8*rxt(297)*y(57) + rxt(143)*y(99) + mat(475) = rxt(155)*y(99) + mat(515) = rxt(147)*y(99) + mat(398) = rxt(152)*y(99) + mat(456) = rxt(250)*y(99) + mat(825) = rxt(239)*y(67) + rxt(238)*y(98) + mat(867) = rxt(222)*y(67) + rxt(221)*y(98) + mat(987) = rxt(204)*y(67) + rxt(203)*y(98) + mat(568) = mat(568) + 2.000_r8*rxt(389)*y(57) + mat(197) = mat(197) + rxt(391)*y(55) + 2.000_r8*rxt(392)*y(56) & + + 2.000_r8*rxt(316)*y(98) + 2.000_r8*rxt(334)*y(103) + mat(1235) = mat(1235) + rxt(309)*y(23) + rxt(310)*y(26) + rxt(315)*y(53) & + + rxt(320)*y(55) + rxt(318)*y(57) + rxt(185)*y(73) + rxt(209) & + *y(75) + rxt(168)*y(77) + rxt(238)*y(88) + rxt(221)*y(89) & + + rxt(203)*y(92) + 2.000_r8*rxt(316)*y(96) + mat(1279) = mat(1279) + rxt(572)*y(52) + rxt(149)*y(60) + rxt(154)*y(61) & + + rxt(252)*y(62) + rxt(251)*y(64) + rxt(148)*y(65) + rxt(150) & + *y(66) + 2.000_r8*rxt(146)*y(67) + rxt(144)*y(70) + rxt(156) & + *y(81) + rxt(151)*y(82) + rxt(143)*y(83) + rxt(155)*y(84) & + + rxt(147)*y(85) + rxt(152)*y(86) + rxt(250)*y(87) + mat(142) = rxt(321)*y(68) + (rxt(322)+rxt(323))*y(110) + mat(382) = rxt(326)*y(34) + rxt(274)*y(52) + rxt(272)*y(53) + ( & + + 2.000_r8*rxt(328)+rxt(329))*y(55) + 3.000_r8*rxt(327)*y(57) + mat(54) = rxt(331)*y(55) + mat(296) = 2.000_r8*rxt(375)*y(68) + 2.000_r8*rxt(334)*y(96) + rxt(332) & + *y(110) + mat(719) = rxt(464)*y(26) + rxt(418)*y(45) + rxt(413)*y(55) + rxt(414)*y(57) & + + rxt(412)*y(71) + mat(1568) = mat(1568) + rxt(346)*y(26) + rxt(355)*y(55) + mat(1731) = (rxt(322)+rxt(323))*y(100) + rxt(332)*y(103) end subroutine nlnmat03 - subroutine nlnmat04( avec_len, mat, y, rxt ) + subroutine nlnmat04( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,1277) = -(rxt(k,121)*y(k,65) + (rxt(k,128) + rxt(k,130)) * y(k,69) & - + rxt(k,317)*y(k,98) + rxt(k,357)*y(k,106) + rxt(k,359)*y(k,99) & - + rxt(k,387)*y(k,95) + rxt(k,392)*y(k,96) + rxt(k,400)*y(k,54) & - + rxt(k,406)*y(k,32) + rxt(k,420)*y(k,79) + rxt(k,425)*y(k,48) & - + rxt(k,564)*y(k,80) + (rxt(k,568) + rxt(k,569)) * y(k,94) & - + rxt(k,576)*y(k,107) + rxt(k,580)*y(k,108)) - mat(k,796) = -rxt(k,121)*y(k,55) - mat(k,1029) = -(rxt(k,128) + rxt(k,130)) * y(k,55) - mat(k,1313) = -rxt(k,317)*y(k,55) - mat(k,1638) = -rxt(k,357)*y(k,55) - mat(k,1358) = -rxt(k,359)*y(k,55) - mat(k,582) = -rxt(k,387)*y(k,55) - mat(k,222) = -rxt(k,392)*y(k,55) - mat(k,986) = -rxt(k,400)*y(k,55) - mat(k,1717) = -rxt(k,406)*y(k,55) - mat(k,165) = -rxt(k,420)*y(k,55) - mat(k,278) = -rxt(k,425)*y(k,55) - mat(k,93) = -rxt(k,564)*y(k,55) - mat(k,181) = -(rxt(k,568) + rxt(k,569)) * y(k,55) - mat(k,251) = -rxt(k,576)*y(k,55) - mat(k,69) = -rxt(k,580)*y(k,55) - mat(k,466) = 2.000_r8*rxt(k,484)*y(k,2) + (rxt(k,486)+rxt(k,487))*y(k,24) & - + rxt(k,488)*y(k,43) + rxt(k,492)*y(k,54) - mat(k,262) = rxt(k,528)*y(k,43) - mat(k,1526) = (rxt(k,486)+rxt(k,487))*y(k,2) + (2.000_r8*rxt(k,453) & - +2.000_r8*rxt(k,454))*y(k,24) + rxt(k,456)*y(k,43) + rxt(k,462) & - *y(k,54) + rxt(k,111)*y(k,65) + rxt(k,123)*y(k,68) + rxt(k,310) & - *y(k,98) + rxt(k,464)*y(k,104) + rxt(k,346)*y(k,106) - mat(k,1400) = rxt(k,325)*y(k,101) + rxt(k,330)*y(k,102) - mat(k,1717) = mat(k,1717) + rxt(k,403)*y(k,43) + rxt(k,409)*y(k,56) & - + rxt(k,326)*y(k,101) - mat(k,695) = rxt(k,488)*y(k,2) + rxt(k,528)*y(k,18) + rxt(k,456)*y(k,24) & - + rxt(k,403)*y(k,32) + 2.000_r8*rxt(k,417)*y(k,43) + rxt(k,429) & - *y(k,53) + rxt(k,407)*y(k,54) + 2.000_r8*rxt(k,408)*y(k,56) & - + rxt(k,482)*y(k,59) + rxt(k,449)*y(k,60) + rxt(k,412)*y(k,104) - mat(k,56) = rxt(k,418)*y(k,104) - mat(k,278) = mat(k,278) + rxt(k,424)*y(k,52) - mat(k,1759) = rxt(k,435)*y(k,56) + rxt(k,572)*y(k,99) + rxt(k,274)*y(k,101) - mat(k,1156) = rxt(k,424)*y(k,48) + rxt(k,426)*y(k,54) + rxt(k,427)*y(k,56) & - + rxt(k,315)*y(k,98) + rxt(k,272)*y(k,101) - mat(k,1234) = rxt(k,429)*y(k,43) + rxt(k,431)*y(k,54) - mat(k,986) = mat(k,986) + rxt(k,492)*y(k,2) + rxt(k,462)*y(k,24) + rxt(k,407) & - *y(k,43) + rxt(k,426)*y(k,52) + rxt(k,431)*y(k,53) & - + 2.000_r8*rxt(k,399)*y(k,54) + 2.000_r8*rxt(k,398)*y(k,56) & - + rxt(k,108)*y(k,64) + rxt(k,126)*y(k,68) + rxt(k,296)*y(k,83) & - + rxt(k,391)*y(k,96) + rxt(k,320)*y(k,98) + (2.000_r8*rxt(k,328) & - +rxt(k,329))*y(k,101) + rxt(k,331)*y(k,102) + rxt(k,413) & - *y(k,104) + rxt(k,355)*y(k,106) - mat(k,1277) = mat(k,1277) + 2.000_r8*rxt(k,392)*y(k,96) - mat(k,1438) = rxt(k,409)*y(k,32) + 2.000_r8*rxt(k,408)*y(k,43) + rxt(k,435) & - *y(k,51) + rxt(k,427)*y(k,52) + 2.000_r8*rxt(k,398)*y(k,54) & - + rxt(k,483)*y(k,59) + rxt(k,451)*y(k,60) + rxt(k,127)*y(k,68) & - + rxt(k,129)*y(k,69) + rxt(k,287)*y(k,81) + 2.000_r8*rxt(k,297) & - *y(k,83) + 2.000_r8*rxt(k,389)*y(k,95) + rxt(k,318)*y(k,98) & - + 3.000_r8*rxt(k,327)*y(k,101) + rxt(k,414)*y(k,104) - mat(k,335) = rxt(k,482)*y(k,43) + rxt(k,483)*y(k,56) - mat(k,1681) = rxt(k,449)*y(k,43) + rxt(k,451)*y(k,56) + rxt(k,122)*y(k,68) & - + rxt(k,309)*y(k,98) - mat(k,608) = rxt(k,149)*y(k,99) - mat(k,363) = rxt(k,154)*y(k,99) - mat(k,347) = rxt(k,252)*y(k,99) - mat(k,216) = rxt(k,108)*y(k,54) - mat(k,796) = mat(k,796) + rxt(k,111)*y(k,24) + rxt(k,251)*y(k,99) - mat(k,319) = rxt(k,148)*y(k,99) - mat(k,509) = rxt(k,150)*y(k,99) - mat(k,634) = rxt(k,123)*y(k,24) + rxt(k,126)*y(k,54) + rxt(k,127)*y(k,56) & - + rxt(k,122)*y(k,60) + rxt(k,186)*y(k,73) + rxt(k,220)*y(k,75) & - + rxt(k,169)*y(k,77) + rxt(k,239)*y(k,88) + rxt(k,222)*y(k,89) & - + rxt(k,204)*y(k,92) + 2.000_r8*rxt(k,146)*y(k,99) - mat(k,1029) = mat(k,1029) + rxt(k,129)*y(k,56) + rxt(k,321)*y(k,100) & - + 2.000_r8*rxt(k,375)*y(k,103) - mat(k,304) = rxt(k,144)*y(k,99) - mat(k,839) = rxt(k,186)*y(k,68) + rxt(k,185)*y(k,98) - mat(k,1199) = rxt(k,220)*y(k,68) + rxt(k,209)*y(k,98) - mat(k,1569) = rxt(k,169)*y(k,68) + rxt(k,168)*y(k,98) - mat(k,724) = rxt(k,287)*y(k,56) + rxt(k,156)*y(k,99) - mat(k,379) = rxt(k,151)*y(k,99) - mat(k,664) = rxt(k,296)*y(k,54) + 2.000_r8*rxt(k,297)*y(k,56) + rxt(k,143) & - *y(k,99) - mat(k,489) = rxt(k,155)*y(k,99) - mat(k,530) = rxt(k,147)*y(k,99) - mat(k,394) = rxt(k,152)*y(k,99) - mat(k,447) = rxt(k,250)*y(k,99) - mat(k,887) = rxt(k,239)*y(k,68) + rxt(k,238)*y(k,98) - mat(k,930) = rxt(k,222)*y(k,68) + rxt(k,221)*y(k,98) - mat(k,1071) = rxt(k,204)*y(k,68) + rxt(k,203)*y(k,98) - mat(k,582) = mat(k,582) + 2.000_r8*rxt(k,389)*y(k,56) - mat(k,222) = mat(k,222) + rxt(k,391)*y(k,54) + 2.000_r8*rxt(k,392)*y(k,55) & - + 2.000_r8*rxt(k,316)*y(k,98) + 2.000_r8*rxt(k,334)*y(k,103) - mat(k,1313) = mat(k,1313) + rxt(k,310)*y(k,24) + rxt(k,315)*y(k,52) & - + rxt(k,320)*y(k,54) + rxt(k,318)*y(k,56) + rxt(k,309)*y(k,60) & - + rxt(k,185)*y(k,73) + rxt(k,209)*y(k,75) + rxt(k,168)*y(k,77) & - + rxt(k,238)*y(k,88) + rxt(k,221)*y(k,89) + rxt(k,203)*y(k,92) & - + 2.000_r8*rxt(k,316)*y(k,96) - mat(k,1358) = mat(k,1358) + rxt(k,572)*y(k,51) + rxt(k,149)*y(k,61) & - + rxt(k,154)*y(k,62) + rxt(k,252)*y(k,63) + rxt(k,251)*y(k,65) & - + rxt(k,148)*y(k,66) + rxt(k,150)*y(k,67) + 2.000_r8*rxt(k,146) & - *y(k,68) + rxt(k,144)*y(k,71) + rxt(k,156)*y(k,81) + rxt(k,151) & - *y(k,82) + rxt(k,143)*y(k,83) + rxt(k,155)*y(k,84) + rxt(k,147) & - *y(k,85) + rxt(k,152)*y(k,86) + rxt(k,250)*y(k,87) - mat(k,146) = rxt(k,321)*y(k,69) + (rxt(k,322)+rxt(k,323))*y(k,110) - mat(k,408) = rxt(k,325)*y(k,28) + rxt(k,326)*y(k,32) + rxt(k,274)*y(k,51) & - + rxt(k,272)*y(k,52) + (2.000_r8*rxt(k,328)+rxt(k,329))*y(k,54) & - + 3.000_r8*rxt(k,327)*y(k,56) - mat(k,99) = rxt(k,330)*y(k,28) + rxt(k,331)*y(k,54) - mat(k,290) = 2.000_r8*rxt(k,375)*y(k,69) + 2.000_r8*rxt(k,334)*y(k,96) & - + rxt(k,332)*y(k,110) - mat(k,764) = rxt(k,464)*y(k,24) + rxt(k,412)*y(k,43) + rxt(k,418)*y(k,44) & - + rxt(k,413)*y(k,54) + rxt(k,414)*y(k,56) - mat(k,1638) = mat(k,1638) + rxt(k,346)*y(k,24) + rxt(k,355)*y(k,54) - mat(k,1812) = (rxt(k,322)+rxt(k,323))*y(k,100) + rxt(k,332)*y(k,103) - mat(k,1442) = -(rxt(k,127)*y(k,68) + rxt(k,129)*y(k,69) + rxt(k,287)*y(k,81) & - + rxt(k,297)*y(k,83) + rxt(k,318)*y(k,98) + rxt(k,327)*y(k,101) & - + rxt(k,343)*y(k,105) + rxt(k,358)*y(k,106) + rxt(k,389)*y(k,95) & - + rxt(k,398)*y(k,54) + rxt(k,408)*y(k,43) + rxt(k,409)*y(k,32) & - + rxt(k,414)*y(k,104) + rxt(k,427)*y(k,52) + rxt(k,435)*y(k,51) & - + rxt(k,451)*y(k,60) + rxt(k,483)*y(k,59)) - mat(k,638) = -rxt(k,127)*y(k,56) - mat(k,1033) = -rxt(k,129)*y(k,56) - mat(k,726) = -rxt(k,287)*y(k,56) - mat(k,666) = -rxt(k,297)*y(k,56) - mat(k,1317) = -rxt(k,318)*y(k,56) - mat(k,411) = -rxt(k,327)*y(k,56) - mat(k,1606) = -rxt(k,343)*y(k,56) - mat(k,1642) = -rxt(k,358)*y(k,56) - mat(k,586) = -rxt(k,389)*y(k,56) - mat(k,990) = -rxt(k,398)*y(k,56) - mat(k,699) = -rxt(k,408)*y(k,56) - mat(k,1721) = -rxt(k,409)*y(k,56) - mat(k,768) = -rxt(k,414)*y(k,56) - mat(k,1160) = -rxt(k,427)*y(k,56) - mat(k,1763) = -rxt(k,435)*y(k,56) - mat(k,1685) = -rxt(k,451)*y(k,56) - mat(k,337) = -rxt(k,483)*y(k,56) - mat(k,1160) = mat(k,1160) + rxt(k,273)*y(k,101) - mat(k,990) = mat(k,990) + rxt(k,400)*y(k,55) + rxt(k,319)*y(k,98) & - + rxt(k,333)*y(k,103) - mat(k,1281) = rxt(k,400)*y(k,54) - mat(k,225) = rxt(k,356)*y(k,106) - mat(k,1317) = mat(k,1317) + rxt(k,319)*y(k,54) - mat(k,411) = mat(k,411) + rxt(k,273)*y(k,52) - mat(k,293) = rxt(k,333)*y(k,54) - mat(k,1642) = mat(k,1642) + rxt(k,356)*y(k,96) - mat(k,452) = rxt(k,485)*y(k,24) - mat(k,1498) = rxt(k,485)*y(k,2) + 2.000_r8*rxt(k,455)*y(k,24) - mat(k,328) = -(rxt(k,481)*y(k,14) + rxt(k,482)*y(k,43) + rxt(k,483)*y(k,56)) - mat(k,538) = -rxt(k,481)*y(k,59) - mat(k,681) = -rxt(k,482)*y(k,59) - mat(k,1417) = -rxt(k,483)*y(k,59) - mat(k,456) = 4.000_r8*rxt(k,484)*y(k,2) + (rxt(k,485)+rxt(k,486))*y(k,24) & - + rxt(k,489)*y(k,51) + rxt(k,492)*y(k,54) + rxt(k,493)*y(k,104) - mat(k,1505) = (rxt(k,485)+rxt(k,486))*y(k,2) - mat(k,192) = rxt(k,494)*y(k,54) + rxt(k,500)*y(k,95) + rxt(k,495)*y(k,104) - mat(k,1735) = rxt(k,489)*y(k,2) - mat(k,963) = rxt(k,492)*y(k,2) + rxt(k,494)*y(k,36) - mat(k,569) = rxt(k,500)*y(k,36) - mat(k,749) = rxt(k,493)*y(k,2) + rxt(k,495)*y(k,36) - mat(k,1691) = -((rxt(k,109) + rxt(k,110)) * y(k,65) + rxt(k,122)*y(k,68) & - + rxt(k,280)*y(k,81) + rxt(k,309)*y(k,98) + rxt(k,336)*y(k,105) & - + rxt(k,345)*y(k,106) + rxt(k,445)*y(k,14) + rxt(k,447)*y(k,33) & - + rxt(k,448)*y(k,35) + (rxt(k,449) + rxt(k,450)) * y(k,43) & - + rxt(k,451)*y(k,56) + rxt(k,458)*y(k,25) + rxt(k,467)*y(k,46)) - mat(k,806) = -(rxt(k,109) + rxt(k,110)) * y(k,60) - mat(k,644) = -rxt(k,122)*y(k,60) - mat(k,731) = -rxt(k,280)*y(k,60) - mat(k,1323) = -rxt(k,309)*y(k,60) - mat(k,1612) = -rxt(k,336)*y(k,60) - mat(k,1648) = -rxt(k,345)*y(k,60) - mat(k,557) = -rxt(k,445)*y(k,60) - mat(k,434) = -rxt(k,447)*y(k,60) - mat(k,84) = -rxt(k,448)*y(k,60) - mat(k,704) = -(rxt(k,449) + rxt(k,450)) * y(k,60) - mat(k,1448) = -rxt(k,451)*y(k,60) - mat(k,209) = -rxt(k,458)*y(k,60) - mat(k,189) = -rxt(k,467)*y(k,60) - mat(k,471) = rxt(k,486)*y(k,24) - mat(k,264) = rxt(k,452)*y(k,24) - mat(k,1536) = rxt(k,486)*y(k,2) + rxt(k,452)*y(k,18) + (4.000_r8*rxt(k,453) & - +2.000_r8*rxt(k,455))*y(k,24) + rxt(k,457)*y(k,51) + rxt(k,462) & - *y(k,54) + rxt(k,463)*y(k,104) - mat(k,15) = rxt(k,507)*y(k,95) - mat(k,1493) = rxt(k,465)*y(k,54) + rxt(k,477)*y(k,95) + rxt(k,466)*y(k,104) - mat(k,1769) = rxt(k,457)*y(k,24) + rxt(k,106)*y(k,64) - mat(k,1166) = rxt(k,105)*y(k,61) - mat(k,996) = rxt(k,462)*y(k,24) + rxt(k,465)*y(k,40) - mat(k,612) = rxt(k,105)*y(k,52) + rxt(k,190)*y(k,73) + rxt(k,142)*y(k,75) & - + rxt(k,172)*y(k,77) + rxt(k,243)*y(k,88) + rxt(k,225)*y(k,89) & - + rxt(k,207)*y(k,92) + rxt(k,149)*y(k,99) - mat(k,367) = rxt(k,194)*y(k,73) + rxt(k,159)*y(k,75) + rxt(k,177)*y(k,77) & - + rxt(k,247)*y(k,88) + rxt(k,229)*y(k,89) + rxt(k,212)*y(k,92) & - + rxt(k,154)*y(k,99) - mat(k,351) = rxt(k,182)*y(k,73) + rxt(k,176)*y(k,75) + rxt(k,164)*y(k,77) & - + rxt(k,235)*y(k,88) + rxt(k,217)*y(k,89) + rxt(k,200)*y(k,92) & - + rxt(k,252)*y(k,99) - mat(k,217) = rxt(k,106)*y(k,51) - mat(k,849) = rxt(k,190)*y(k,61) + rxt(k,194)*y(k,62) + rxt(k,182)*y(k,63) - mat(k,1209) = rxt(k,142)*y(k,61) + rxt(k,159)*y(k,62) + rxt(k,176)*y(k,63) - mat(k,1579) = rxt(k,172)*y(k,61) + rxt(k,177)*y(k,62) + rxt(k,164)*y(k,63) - mat(k,897) = rxt(k,243)*y(k,61) + rxt(k,247)*y(k,62) + rxt(k,235)*y(k,63) - mat(k,940) = rxt(k,225)*y(k,61) + rxt(k,229)*y(k,62) + rxt(k,217)*y(k,63) - mat(k,1081) = rxt(k,207)*y(k,61) + rxt(k,212)*y(k,62) + rxt(k,200)*y(k,63) - mat(k,591) = rxt(k,507)*y(k,30) + rxt(k,477)*y(k,40) - mat(k,1368) = rxt(k,149)*y(k,61) + rxt(k,154)*y(k,62) + rxt(k,252)*y(k,63) - mat(k,773) = rxt(k,463)*y(k,24) + rxt(k,466)*y(k,40) - end do + mat(1617) = -(rxt(127)*y(67) + rxt(129)*y(68) + rxt(287)*y(81) + rxt(297) & + *y(83) + rxt(318)*y(98) + rxt(327)*y(101) + rxt(343)*y(105) & + + rxt(358)*y(106) + rxt(389)*y(95) + rxt(398)*y(55) + rxt(408) & + *y(71) + rxt(409)*y(34) + rxt(414)*y(104) + rxt(427)*y(53) & + + rxt(435)*y(52) + rxt(451)*y(23) + rxt(483)*y(1)) + mat(609) = -rxt(127)*y(57) + mat(1415) = -rxt(129)*y(57) + mat(789) = -rxt(287)*y(57) + mat(653) = -rxt(297)*y(57) + mat(1246) = -rxt(318)*y(57) + mat(389) = -rxt(327)*y(57) + mat(1544) = -rxt(343)*y(57) + mat(1579) = -rxt(358)*y(57) + mat(577) = -rxt(389)*y(57) + mat(1512) = -rxt(398)*y(57) + mat(687) = -rxt(408)*y(57) + mat(957) = -rxt(409)*y(57) + mat(728) = -rxt(414)*y(57) + mat(1084) = -rxt(427)*y(57) + mat(1331) = -rxt(435)*y(57) + mat(1211) = -rxt(451)*y(57) + mat(329) = -rxt(483)*y(57) + mat(1084) = mat(1084) + rxt(273)*y(101) + mat(1512) = mat(1512) + rxt(400)*y(56) + rxt(319)*y(98) + rxt(333)*y(103) + mat(1169) = rxt(400)*y(55) + mat(202) = rxt(356)*y(106) + mat(1246) = mat(1246) + rxt(319)*y(55) + mat(389) = mat(389) + rxt(273)*y(53) + mat(302) = rxt(333)*y(55) + mat(1579) = mat(1579) + rxt(356)*y(96) + mat(406) = rxt(485)*y(26) + mat(1089) = rxt(485)*y(3) + 2.000_r8*rxt(455)*y(26) + mat(613) = -(rxt(100)*y(34) + rxt(102)*y(110) + rxt(103)*y(42) + rxt(104) & + *y(44) + rxt(105)*y(53) + rxt(142)*y(75) + rxt(149)*y(99) & + + rxt(172)*y(77) + rxt(190)*y(73) + rxt(207)*y(92) + rxt(225) & + *y(89) + rxt(243)*y(88)) + mat(932) = -rxt(100)*y(60) + mat(1717) = -rxt(102)*y(60) + mat(897) = -rxt(103)*y(60) + mat(1631) = -rxt(104)*y(60) + mat(1059) = -rxt(105)*y(60) + mat(1348) = -rxt(142)*y(60) + mat(1265) = -rxt(149)*y(60) + mat(1432) = -rxt(172)*y(60) + mat(1015) = -rxt(190)*y(60) + mat(973) = -rxt(207)*y(60) + mat(853) = -rxt(225)*y(60) + mat(811) = -rxt(243)*y(60) + mat(1186) = rxt(109)*y(64) + rxt(122)*y(67) + rxt(280)*y(81) + rxt(309)*y(98) & + + rxt(336)*y(105) + rxt(345)*y(106) + mat(1101) = rxt(111)*y(64) + rxt(281)*y(81) + rxt(346)*y(106) + mat(897) = mat(897) + rxt(125)*y(67) + rxt(284)*y(81) + rxt(293)*y(83) & + + rxt(313)*y(98) + rxt(340)*y(105) + rxt(351)*y(106) + mat(1306) = rxt(107)*y(63) + mat(1487) = rxt(108)*y(63) + mat(230) = rxt(107)*y(52) + rxt(108)*y(55) + mat(736) = rxt(109)*y(23) + rxt(111)*y(26) + mat(584) = rxt(122)*y(23) + rxt(125)*y(42) + mat(766) = rxt(280)*y(23) + rxt(281)*y(26) + rxt(284)*y(42) + mat(635) = rxt(293)*y(42) + mat(1221) = rxt(309)*y(23) + rxt(313)*y(42) + mat(1519) = rxt(336)*y(23) + rxt(340)*y(42) + mat(1554) = rxt(345)*y(23) + rxt(346)*y(26) + rxt(351)*y(42) + mat(347) = -(rxt(101)*y(42) + rxt(154)*y(99) + rxt(159)*y(75) + rxt(177) & + *y(77) + rxt(194)*y(73) + rxt(212)*y(92) + rxt(229)*y(89) & + + rxt(247)*y(88)) + mat(890) = -rxt(101)*y(61) + mat(1256) = -rxt(154)*y(61) + mat(1340) = -rxt(159)*y(61) + mat(1424) = -rxt(177)*y(61) + mat(1007) = -rxt(194)*y(61) + mat(965) = -rxt(212)*y(61) + mat(845) = -rxt(229)*y(61) + mat(802) = -rxt(247)*y(61) + mat(612) = rxt(102)*y(110) + mat(1709) = rxt(102)*y(60) + mat(331) = -((rxt(164) + rxt(263)) * y(77) + (rxt(176) + rxt(262)) * y(75) & + + rxt(182)*y(73) + rxt(200)*y(92) + rxt(217)*y(89) + rxt(235) & + *y(88) + rxt(252)*y(99)) + mat(1423) = -(rxt(164) + rxt(263)) * y(62) + mat(1339) = -(rxt(176) + rxt(262)) * y(62) + mat(1006) = -rxt(182)*y(62) + mat(964) = -rxt(200)*y(62) + mat(844) = -rxt(217)*y(62) + mat(801) = -rxt(235)*y(62) + mat(1255) = -rxt(252)*y(62) + mat(889) = rxt(103)*y(60) + rxt(101)*y(61) + mat(611) = rxt(103)*y(42) + mat(346) = rxt(101)*y(42) + mat(229) = -((rxt(106) + rxt(107)) * y(52) + rxt(108)*y(55)) + mat(1295) = -(rxt(106) + rxt(107)) * y(63) + mat(1477) = -rxt(108)*y(63) + mat(1178) = rxt(110)*y(64) + mat(1094) = rxt(123)*y(67) + rxt(310)*y(98) + rxt(337)*y(105) + mat(732) = rxt(110)*y(23) + mat(581) = rxt(123)*y(26) + mat(1217) = rxt(310)*y(26) + mat(1516) = rxt(337)*y(26) + mat(739) = -((rxt(109) + rxt(110)) * y(23) + rxt(111)*y(26) + rxt(112)*y(34) & + + rxt(114)*y(110) + rxt(119)*y(44) + rxt(120)*y(55) + rxt(121) & + *y(56) + (rxt(163) + rxt(260)) * y(77) + (rxt(165) + rxt(253) & + ) * y(75) + rxt(181)*y(73) + rxt(199)*y(92) + rxt(216)*y(89) & + + rxt(234)*y(88) + rxt(251)*y(99) + rxt(275)*y(52) + rxt(276) & + *y(53)) + mat(1190) = -(rxt(109) + rxt(110)) * y(64) + mat(1105) = -rxt(111)*y(64) + mat(936) = -rxt(112)*y(64) + mat(1721) = -rxt(114)*y(64) + mat(1635) = -rxt(119)*y(64) + mat(1491) = -rxt(120)*y(64) + mat(1148) = -rxt(121)*y(64) + mat(1436) = -(rxt(163) + rxt(260)) * y(64) + mat(1352) = -(rxt(165) + rxt(253)) * y(64) + mat(1019) = -rxt(181)*y(64) + mat(977) = -rxt(199)*y(64) + mat(857) = -rxt(216)*y(64) + mat(815) = -rxt(234)*y(64) + mat(1269) = -rxt(251)*y(64) + mat(1310) = -rxt(275)*y(64) + mat(1063) = -rxt(276)*y(64) + mat(936) = mat(936) + rxt(124)*y(67) + mat(1491) = mat(1491) + rxt(126)*y(67) + mat(588) = rxt(124)*y(34) + rxt(126)*y(55) + mat(304) = -(rxt(148)*y(99) + (rxt(171) + rxt(254)) * y(77) + rxt(189)*y(73) & + + rxt(206)*y(92) + rxt(224)*y(89) + rxt(241)*y(88) + (rxt(242) & + + rxt(266)) * y(75)) + mat(1254) = -rxt(148)*y(65) + mat(1422) = -(rxt(171) + rxt(254)) * y(65) + mat(1005) = -rxt(189)*y(65) + mat(963) = -rxt(206)*y(65) + mat(843) = -rxt(224)*y(65) + mat(800) = -rxt(241)*y(65) + mat(1338) = -(rxt(242) + rxt(266)) * y(65) + mat(484) = rxt(113)*y(110) + mat(1708) = rxt(113)*y(66) + mat(486) = -(rxt(113)*y(110) + (rxt(115) + rxt(116)) * y(53) + (rxt(117) & + + rxt(118)) * y(52) + rxt(150)*y(99) + (rxt(153) + rxt(255) & + ) * y(75) + (rxt(173) + rxt(256)) * y(77) + rxt(191)*y(73) & + + rxt(208)*y(92) + rxt(226)*y(89) + rxt(244)*y(88)) + mat(1713) = -rxt(113)*y(66) + mat(1055) = -(rxt(115) + rxt(116)) * y(66) + mat(1302) = -(rxt(117) + rxt(118)) * y(66) + mat(1261) = -rxt(150)*y(66) + mat(1345) = -(rxt(153) + rxt(255)) * y(66) + mat(1429) = -(rxt(173) + rxt(256)) * y(66) + mat(1012) = -rxt(191)*y(66) + mat(970) = -rxt(208)*y(66) + mat(850) = -rxt(226)*y(66) + mat(807) = -rxt(244)*y(66) + mat(734) = rxt(114)*y(110) + mat(1713) = mat(1713) + rxt(114)*y(64) + mat(583) = -(rxt(122)*y(23) + rxt(123)*y(26) + rxt(124)*y(34) + rxt(125) & + *y(42) + rxt(126)*y(55) + rxt(127)*y(57) + rxt(146)*y(99) & + + rxt(169)*y(77) + rxt(186)*y(73) + rxt(204)*y(92) + rxt(220) & + *y(75) + rxt(222)*y(89) + rxt(239)*y(88)) + mat(1185) = -rxt(122)*y(67) + mat(1100) = -rxt(123)*y(67) + mat(931) = -rxt(124)*y(67) + mat(896) = -rxt(125)*y(67) + mat(1486) = -rxt(126)*y(67) + mat(1591) = -rxt(127)*y(67) + mat(1264) = -rxt(146)*y(67) + mat(1431) = -rxt(169)*y(67) + mat(1014) = -rxt(186)*y(67) + mat(972) = -rxt(204)*y(67) + mat(1347) = -rxt(220)*y(67) + mat(852) = -rxt(222)*y(67) + mat(810) = -rxt(239)*y(67) + mat(1410) = -((rxt(128) + rxt(130)) * y(56) + rxt(129)*y(57) + rxt(133)*y(69) & + + rxt(136)*y(75) + rxt(139)*y(77) + rxt(298)*y(89) + rxt(299) & + *y(90) + rxt(301)*y(91) + rxt(303)*y(92) + rxt(321)*y(100) & + + rxt(375)*y(103) + rxt(376)*y(78) + rxt(377)*y(72) + rxt(378) & + *y(73) + rxt(379)*y(93) + rxt(561)*y(88) + rxt(562)*y(99) & + + rxt(563)*y(80)) + mat(1164) = -(rxt(128) + rxt(130)) * y(68) + mat(1612) = -rxt(129)*y(68) + mat(43) = -rxt(133)*y(68) + mat(1368) = -rxt(136)*y(68) + mat(1452) = -rxt(139)*y(68) + mat(873) = -rxt(298)*y(68) + mat(49) = -rxt(299)*y(68) + mat(75) = -rxt(301)*y(68) + mat(993) = -rxt(303)*y(68) + mat(144) = -rxt(321)*y(68) + mat(299) = -rxt(375)*y(68) + mat(133) = -rxt(376)*y(68) + mat(122) = -rxt(377)*y(68) + mat(1035) = -rxt(378)*y(68) + mat(69) = -rxt(379)*y(68) + mat(831) = -rxt(561)*y(68) + mat(1285) = -rxt(562)*y(68) + mat(109) = -rxt(563)*y(68) + mat(952) = rxt(100)*y(60) + rxt(312)*y(98) + rxt(339)*y(105) + mat(443) = rxt(348)*y(106) + mat(1326) = rxt(131)*y(106) + mat(1507) = rxt(319)*y(98) + rxt(328)*y(101) + rxt(342)*y(105) + rxt(355) & + *y(106) + mat(1612) = mat(1612) + rxt(327)*y(101) + mat(628) = rxt(100)*y(34) + mat(200) = rxt(316)*y(98) + rxt(356)*y(106) + mat(1241) = rxt(312)*y(34) + rxt(319)*y(55) + rxt(316)*y(96) + mat(385) = rxt(328)*y(55) + rxt(327)*y(57) + mat(1539) = rxt(339)*y(34) + rxt(342)*y(55) + mat(1574) = rxt(348)*y(35) + rxt(131)*y(52) + rxt(355)*y(55) + rxt(356)*y(96) end subroutine nlnmat04 - subroutine nlnmat05( avec_len, mat, y, rxt ) + subroutine nlnmat05( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,597) = -(rxt(k,100)*y(k,32) + rxt(k,102)*y(k,110) + rxt(k,103)*y(k,40) & - + rxt(k,104)*y(k,42) + rxt(k,105)*y(k,52) + rxt(k,142)*y(k,75) & - + rxt(k,149)*y(k,99) + rxt(k,172)*y(k,77) + rxt(k,190)*y(k,73) & - + rxt(k,207)*y(k,92) + rxt(k,225)*y(k,89) + rxt(k,243)*y(k,88)) - mat(k,1700) = -rxt(k,100)*y(k,61) - mat(k,1796) = -rxt(k,102)*y(k,61) - mat(k,1466) = -rxt(k,103)*y(k,61) - mat(k,1095) = -rxt(k,104)*y(k,61) - mat(k,1140) = -rxt(k,105)*y(k,61) - mat(k,1182) = -rxt(k,142)*y(k,61) - mat(k,1341) = -rxt(k,149)*y(k,61) - mat(k,1552) = -rxt(k,172)*y(k,61) - mat(k,822) = -rxt(k,190)*y(k,61) - mat(k,1054) = -rxt(k,207)*y(k,61) - mat(k,913) = -rxt(k,225)*y(k,61) - mat(k,870) = -rxt(k,243)*y(k,61) - mat(k,1509) = rxt(k,111)*y(k,65) + rxt(k,281)*y(k,81) + rxt(k,346)*y(k,106) - mat(k,1466) = mat(k,1466) + rxt(k,125)*y(k,68) + rxt(k,284)*y(k,81) & - + rxt(k,293)*y(k,83) + rxt(k,313)*y(k,98) + rxt(k,340)*y(k,105) & - + rxt(k,351)*y(k,106) - mat(k,1743) = rxt(k,107)*y(k,64) - mat(k,969) = rxt(k,108)*y(k,64) - mat(k,1664) = rxt(k,109)*y(k,65) + rxt(k,122)*y(k,68) + rxt(k,280)*y(k,81) & - + rxt(k,309)*y(k,98) + rxt(k,336)*y(k,105) + rxt(k,345)*y(k,106) - mat(k,212) = rxt(k,107)*y(k,51) + rxt(k,108)*y(k,54) - mat(k,781) = rxt(k,111)*y(k,24) + rxt(k,109)*y(k,60) - mat(k,618) = rxt(k,125)*y(k,40) + rxt(k,122)*y(k,60) - mat(k,710) = rxt(k,281)*y(k,24) + rxt(k,284)*y(k,40) + rxt(k,280)*y(k,60) - mat(k,651) = rxt(k,293)*y(k,40) - mat(k,1296) = rxt(k,313)*y(k,40) + rxt(k,309)*y(k,60) - mat(k,1586) = rxt(k,340)*y(k,40) + rxt(k,336)*y(k,60) - mat(k,1622) = rxt(k,346)*y(k,24) + rxt(k,351)*y(k,40) + rxt(k,345)*y(k,60) - mat(k,356) = -(rxt(k,101)*y(k,40) + rxt(k,154)*y(k,99) + rxt(k,159)*y(k,75) & - + rxt(k,177)*y(k,77) + rxt(k,194)*y(k,73) + rxt(k,212)*y(k,92) & - + rxt(k,229)*y(k,89) + rxt(k,247)*y(k,88)) - mat(k,1460) = -rxt(k,101)*y(k,62) - mat(k,1333) = -rxt(k,154)*y(k,62) - mat(k,1175) = -rxt(k,159)*y(k,62) - mat(k,1545) = -rxt(k,177)*y(k,62) - mat(k,815) = -rxt(k,194)*y(k,62) - mat(k,1047) = -rxt(k,212)*y(k,62) - mat(k,906) = -rxt(k,229)*y(k,62) - mat(k,862) = -rxt(k,247)*y(k,62) - mat(k,596) = rxt(k,102)*y(k,110) - mat(k,1788) = rxt(k,102)*y(k,61) - mat(k,340) = -((rxt(k,164) + rxt(k,263)) * y(k,77) + (rxt(k,176) + rxt(k,262) & - ) * y(k,75) + rxt(k,182)*y(k,73) + rxt(k,200)*y(k,92) + rxt(k,217) & - *y(k,89) + rxt(k,235)*y(k,88) + rxt(k,252)*y(k,99)) - mat(k,1544) = -(rxt(k,164) + rxt(k,263)) * y(k,63) - mat(k,1174) = -(rxt(k,176) + rxt(k,262)) * y(k,63) - mat(k,814) = -rxt(k,182)*y(k,63) - mat(k,1046) = -rxt(k,200)*y(k,63) - mat(k,905) = -rxt(k,217)*y(k,63) - mat(k,861) = -rxt(k,235)*y(k,63) - mat(k,1332) = -rxt(k,252)*y(k,63) - mat(k,1459) = rxt(k,103)*y(k,61) + rxt(k,101)*y(k,62) - mat(k,595) = rxt(k,103)*y(k,40) - mat(k,355) = rxt(k,101)*y(k,40) - mat(k,211) = -((rxt(k,106) + rxt(k,107)) * y(k,51) + rxt(k,108)*y(k,54)) - mat(k,1732) = -(rxt(k,106) + rxt(k,107)) * y(k,64) - mat(k,958) = -rxt(k,108)*y(k,64) - mat(k,1503) = rxt(k,123)*y(k,68) + rxt(k,310)*y(k,98) + rxt(k,337)*y(k,105) - mat(k,1657) = rxt(k,110)*y(k,65) - mat(k,777) = rxt(k,110)*y(k,60) - mat(k,616) = rxt(k,123)*y(k,24) - mat(k,1292) = rxt(k,310)*y(k,24) - mat(k,1583) = rxt(k,337)*y(k,24) - mat(k,785) = -((rxt(k,109) + rxt(k,110)) * y(k,60) + rxt(k,111)*y(k,24) & - + rxt(k,112)*y(k,32) + rxt(k,114)*y(k,110) + rxt(k,119)*y(k,42) & - + rxt(k,120)*y(k,54) + rxt(k,121)*y(k,55) + (rxt(k,163) & - + rxt(k,260)) * y(k,77) + (rxt(k,165) + rxt(k,253)) * y(k,75) & - + rxt(k,181)*y(k,73) + rxt(k,199)*y(k,92) + rxt(k,216)*y(k,89) & - + rxt(k,234)*y(k,88) + rxt(k,251)*y(k,99) + rxt(k,275)*y(k,51) & - + rxt(k,276)*y(k,52)) - mat(k,1670) = -(rxt(k,109) + rxt(k,110)) * y(k,65) - mat(k,1515) = -rxt(k,111)*y(k,65) - mat(k,1706) = -rxt(k,112)*y(k,65) - mat(k,1801) = -rxt(k,114)*y(k,65) - mat(k,1100) = -rxt(k,119)*y(k,65) - mat(k,975) = -rxt(k,120)*y(k,65) - mat(k,1266) = -rxt(k,121)*y(k,65) - mat(k,1558) = -(rxt(k,163) + rxt(k,260)) * y(k,65) - mat(k,1188) = -(rxt(k,165) + rxt(k,253)) * y(k,65) - mat(k,828) = -rxt(k,181)*y(k,65) - mat(k,1060) = -rxt(k,199)*y(k,65) - mat(k,919) = -rxt(k,216)*y(k,65) - mat(k,876) = -rxt(k,234)*y(k,65) - mat(k,1347) = -rxt(k,251)*y(k,65) - mat(k,1748) = -rxt(k,275)*y(k,65) - mat(k,1145) = -rxt(k,276)*y(k,65) - mat(k,1389) = rxt(k,325)*y(k,101) + rxt(k,347)*y(k,106) - mat(k,1706) = mat(k,1706) + rxt(k,124)*y(k,68) - mat(k,975) = mat(k,975) + rxt(k,126)*y(k,68) - mat(k,624) = rxt(k,124)*y(k,32) + rxt(k,126)*y(k,54) - mat(k,404) = rxt(k,325)*y(k,28) - mat(k,1627) = rxt(k,347)*y(k,28) - mat(k,311) = -(rxt(k,148)*y(k,99) + (rxt(k,171) + rxt(k,254)) * y(k,77) & - + rxt(k,189)*y(k,73) + rxt(k,206)*y(k,92) + rxt(k,224)*y(k,89) & - + rxt(k,241)*y(k,88) + (rxt(k,242) + rxt(k,266)) * y(k,75)) - mat(k,1331) = -rxt(k,148)*y(k,66) - mat(k,1543) = -(rxt(k,171) + rxt(k,254)) * y(k,66) - mat(k,813) = -rxt(k,189)*y(k,66) - mat(k,1045) = -rxt(k,206)*y(k,66) - mat(k,904) = -rxt(k,224)*y(k,66) - mat(k,860) = -rxt(k,241)*y(k,66) - mat(k,1173) = -(rxt(k,242) + rxt(k,266)) * y(k,66) - mat(k,495) = rxt(k,113)*y(k,110) - mat(k,1787) = rxt(k,113)*y(k,67) - mat(k,497) = -(rxt(k,113)*y(k,110) + (rxt(k,115) + rxt(k,116)) * y(k,52) & - + (rxt(k,117) + rxt(k,118)) * y(k,51) + rxt(k,150)*y(k,99) & - + (rxt(k,153) + rxt(k,255)) * y(k,75) + (rxt(k,173) + rxt(k,256) & - ) * y(k,77) + rxt(k,191)*y(k,73) + rxt(k,208)*y(k,92) + rxt(k,226) & - *y(k,89) + rxt(k,244)*y(k,88)) - mat(k,1792) = -rxt(k,113)*y(k,67) - mat(k,1136) = -(rxt(k,115) + rxt(k,116)) * y(k,67) - mat(k,1739) = -(rxt(k,117) + rxt(k,118)) * y(k,67) - mat(k,1338) = -rxt(k,150)*y(k,67) - mat(k,1180) = -(rxt(k,153) + rxt(k,255)) * y(k,67) - mat(k,1550) = -(rxt(k,173) + rxt(k,256)) * y(k,67) - mat(k,820) = -rxt(k,191)*y(k,67) - mat(k,1052) = -rxt(k,208)*y(k,67) - mat(k,911) = -rxt(k,226)*y(k,67) - mat(k,867) = -rxt(k,244)*y(k,67) - mat(k,779) = rxt(k,114)*y(k,110) - mat(k,1792) = mat(k,1792) + rxt(k,114)*y(k,65) - mat(k,619) = -(rxt(k,122)*y(k,60) + rxt(k,123)*y(k,24) + rxt(k,124)*y(k,32) & - + rxt(k,125)*y(k,40) + rxt(k,126)*y(k,54) + rxt(k,127)*y(k,56) & - + rxt(k,146)*y(k,99) + rxt(k,169)*y(k,77) + rxt(k,186)*y(k,73) & - + rxt(k,204)*y(k,92) + rxt(k,220)*y(k,75) + rxt(k,222)*y(k,89) & - + rxt(k,239)*y(k,88)) - mat(k,1665) = -rxt(k,122)*y(k,68) - mat(k,1510) = -rxt(k,123)*y(k,68) - mat(k,1701) = -rxt(k,124)*y(k,68) - mat(k,1467) = -rxt(k,125)*y(k,68) - mat(k,970) = -rxt(k,126)*y(k,68) - mat(k,1422) = -rxt(k,127)*y(k,68) - mat(k,1342) = -rxt(k,146)*y(k,68) - mat(k,1553) = -rxt(k,169)*y(k,68) - mat(k,823) = -rxt(k,186)*y(k,68) - mat(k,1055) = -rxt(k,204)*y(k,68) - mat(k,1183) = -rxt(k,220)*y(k,68) - mat(k,914) = -rxt(k,222)*y(k,68) - mat(k,871) = -rxt(k,239)*y(k,68) - mat(k,1384) = rxt(k,311)*y(k,98) + rxt(k,330)*y(k,102) - mat(k,1297) = rxt(k,311)*y(k,28) - mat(k,97) = rxt(k,330)*y(k,28) - mat(k,1023) = -((rxt(k,128) + rxt(k,130)) * y(k,55) + rxt(k,129)*y(k,56) & - + rxt(k,133)*y(k,70) + rxt(k,136)*y(k,75) + rxt(k,139)*y(k,77) & - + rxt(k,298)*y(k,89) + rxt(k,299)*y(k,90) + rxt(k,301)*y(k,91) & - + rxt(k,303)*y(k,92) + rxt(k,321)*y(k,100) + rxt(k,375)*y(k,103) & - + rxt(k,376)*y(k,78) + rxt(k,377)*y(k,72) + rxt(k,378)*y(k,73) & - + rxt(k,379)*y(k,93) + rxt(k,561)*y(k,88) + rxt(k,562)*y(k,99) & - + rxt(k,563)*y(k,80)) - mat(k,1271) = -(rxt(k,128) + rxt(k,130)) * y(k,69) - mat(k,1432) = -rxt(k,129)*y(k,69) - mat(k,36) = -rxt(k,133)*y(k,69) - mat(k,1193) = -rxt(k,136)*y(k,69) - mat(k,1563) = -rxt(k,139)*y(k,69) - mat(k,924) = -rxt(k,298)*y(k,69) - mat(k,48) = -rxt(k,299)*y(k,69) - mat(k,118) = -rxt(k,301)*y(k,69) - mat(k,1065) = -rxt(k,303)*y(k,69) - mat(k,145) = -rxt(k,321)*y(k,69) - mat(k,289) = -rxt(k,375)*y(k,69) - mat(k,136) = -rxt(k,376)*y(k,69) - mat(k,105) = -rxt(k,377)*y(k,69) - mat(k,833) = -rxt(k,378)*y(k,69) - mat(k,111) = -rxt(k,379)*y(k,69) - mat(k,881) = -rxt(k,561)*y(k,69) - mat(k,1352) = -rxt(k,562)*y(k,69) - mat(k,92) = -rxt(k,563)*y(k,69) - mat(k,1711) = rxt(k,100)*y(k,61) + rxt(k,312)*y(k,98) + rxt(k,339)*y(k,105) - mat(k,425) = rxt(k,348)*y(k,106) - mat(k,1753) = rxt(k,131)*y(k,106) - mat(k,980) = rxt(k,319)*y(k,98) + rxt(k,328)*y(k,101) + rxt(k,342)*y(k,105) & - + rxt(k,355)*y(k,106) - mat(k,1432) = mat(k,1432) + rxt(k,327)*y(k,101) - mat(k,603) = rxt(k,100)*y(k,32) - mat(k,221) = rxt(k,316)*y(k,98) + rxt(k,356)*y(k,106) - mat(k,1307) = rxt(k,312)*y(k,32) + rxt(k,319)*y(k,54) + rxt(k,316)*y(k,96) - mat(k,406) = rxt(k,328)*y(k,54) + rxt(k,327)*y(k,56) - mat(k,1596) = rxt(k,339)*y(k,32) + rxt(k,342)*y(k,54) - mat(k,1632) = rxt(k,348)*y(k,33) + rxt(k,131)*y(k,51) + rxt(k,355)*y(k,54) & - + rxt(k,356)*y(k,96) - mat(k,33) = -(rxt(k,133)*y(k,69) + rxt(k,134)*y(k,110)) - mat(k,1000) = -rxt(k,133)*y(k,70) - mat(k,1776) = -rxt(k,134)*y(k,70) - mat(k,139) = rxt(k,322)*y(k,110) - mat(k,1776) = mat(k,1776) + rxt(k,322)*y(k,100) - mat(k,297) = -(rxt(k,144)*y(k,99) + rxt(k,167)*y(k,77) + rxt(k,184)*y(k,73) & - + rxt(k,198)*y(k,75) + rxt(k,202)*y(k,92) + rxt(k,219)*y(k,89) & - + rxt(k,237)*y(k,88)) - mat(k,1330) = -rxt(k,144)*y(k,71) - mat(k,1542) = -rxt(k,167)*y(k,71) - mat(k,812) = -rxt(k,184)*y(k,71) - mat(k,1172) = -rxt(k,198)*y(k,71) - mat(k,1044) = -rxt(k,202)*y(k,71) - mat(k,903) = -rxt(k,219)*y(k,71) - mat(k,859) = -rxt(k,237)*y(k,71) - mat(k,1381) = rxt(k,338)*y(k,105) - mat(k,1584) = rxt(k,338)*y(k,28) - end do + mat(39) = -(rxt(133)*y(68) + rxt(134)*y(110)) + mat(1377) = -rxt(133)*y(69) + mat(1697) = -rxt(134)*y(69) + mat(135) = rxt(322)*y(110) + mat(1697) = mat(1697) + rxt(322)*y(100) + mat(277) = -(rxt(144)*y(99) + rxt(167)*y(77) + rxt(184)*y(73) + rxt(198) & + *y(75) + rxt(202)*y(92) + rxt(219)*y(89) + rxt(237)*y(88)) + mat(1252) = -rxt(144)*y(70) + mat(1421) = -rxt(167)*y(70) + mat(1004) = -rxt(184)*y(70) + mat(1337) = -rxt(198)*y(70) + mat(962) = -rxt(202)*y(70) + mat(842) = -rxt(219)*y(70) + mat(799) = -rxt(237)*y(70) + mat(670) = -(rxt(305)*y(92) + (rxt(403) + rxt(404) + rxt(405)) * y(34) & + + rxt(407)*y(55) + rxt(408)*y(57) + rxt(412)*y(104) & + + 4._r8*rxt(417)*y(71) + rxt(429)*y(54) + rxt(434)*y(52) + rxt(439) & + *y(53) + (rxt(449) + rxt(450)) * y(23) + rxt(456)*y(26) + rxt(482) & + *y(1) + rxt(488)*y(3) + rxt(528)*y(19)) + mat(975) = -rxt(305)*y(71) + mat(934) = -(rxt(403) + rxt(404) + rxt(405)) * y(71) + mat(1489) = -rxt(407)*y(71) + mat(1594) = -rxt(408)*y(71) + mat(710) = -rxt(412)*y(71) + mat(1668) = -rxt(429)*y(71) + mat(1308) = -rxt(434)*y(71) + mat(1061) = -rxt(439)*y(71) + mat(1188) = -(rxt(449) + rxt(450)) * y(71) + mat(1103) = -rxt(456)*y(71) + mat(324) = -rxt(482)*y(71) + mat(414) = -rxt(488)*y(71) + mat(268) = -rxt(528)*y(71) + mat(324) = mat(324) + rxt(481)*y(15) + mat(414) = mat(414) + rxt(493)*y(104) + mat(531) = rxt(481)*y(1) + rxt(445)*y(23) + rxt(525)*y(54) + rxt(526)*y(55) + mat(268) = mat(268) + rxt(452)*y(26) + rxt(529)*y(52) + mat(1188) = mat(1188) + rxt(445)*y(15) + rxt(448)*y(37) + mat(1103) = mat(1103) + rxt(452)*y(19) + rxt(463)*y(104) + mat(99) = rxt(532)*y(104) + mat(934) = mat(934) + rxt(406)*y(56) + rxt(312)*y(98) + mat(112) = rxt(448)*y(23) + rxt(402)*y(55) + rxt(411)*y(104) + mat(899) = rxt(125)*y(67) + rxt(313)*y(98) + mat(1633) = rxt(314)*y(98) + mat(1308) = mat(1308) + rxt(529)*y(19) + mat(1668) = mat(1668) + rxt(525)*y(15) + rxt(432)*y(104) + mat(1489) = mat(1489) + rxt(526)*y(15) + rxt(402)*y(37) + rxt(342)*y(105) + mat(1146) = rxt(406)*y(34) + mat(1594) = mat(1594) + rxt(414)*y(104) + mat(586) = rxt(125)*y(42) + mat(1223) = rxt(312)*y(34) + rxt(313)*y(42) + rxt(314)*y(44) + mat(710) = mat(710) + rxt(493)*y(3) + rxt(463)*y(26) + rxt(532)*y(29) & + + rxt(411)*y(37) + rxt(432)*y(54) + rxt(414)*y(57) + mat(1521) = rxt(342)*y(55) + mat(118) = -(rxt(369)*y(110) + rxt(377)*y(68)) + mat(1701) = -rxt(369)*y(72) + mat(1384) = -rxt(377)*y(72) + mat(40) = rxt(134)*y(110) + mat(129) = rxt(367)*y(110) + mat(1701) = mat(1701) + rxt(134)*y(69) + rxt(367)*y(78) + mat(1026) = -(rxt(180)*y(87) + rxt(181)*y(64) + rxt(182)*y(62) + rxt(183) & + *y(83) + rxt(184)*y(70) + rxt(185)*y(98) + rxt(186)*y(67) & + + rxt(188)*y(85) + rxt(189)*y(65) + rxt(190)*y(60) + rxt(191) & + *y(66) + rxt(192)*y(82) + rxt(193)*y(86) + rxt(194)*y(61) & + + rxt(195)*y(84) + rxt(196)*y(81) + rxt(371)*y(110) + rxt(378) & + *y(68)) + mat(455) = -rxt(180)*y(73) + mat(746) = -rxt(181)*y(73) + mat(338) = -rxt(182)*y(73) + mat(643) = -rxt(183)*y(73) + mat(283) = -rxt(184)*y(73) + mat(1232) = -rxt(185)*y(73) + mat(595) = -rxt(186)*y(73) + mat(513) = -rxt(188)*y(73) + mat(310) = -rxt(189)*y(73) + mat(621) = -rxt(190)*y(73) + mat(495) = -rxt(191)*y(73) + mat(368) = -rxt(192)*y(73) + mat(397) = -rxt(193)*y(73) + mat(354) = -rxt(194)*y(73) + mat(473) = -rxt(195)*y(73) + mat(775) = -rxt(196)*y(73) + mat(1728) = -rxt(371)*y(73) + mat(1401) = -rxt(378)*y(73) + mat(121) = rxt(369)*y(110) + mat(47) = rxt(300)*y(110) + mat(1728) = mat(1728) + rxt(369)*y(72) + rxt(300)*y(90) + mat(25) = -(rxt(135)*y(110)) + mat(1695) = -rxt(135)*y(74) + mat(237) = rxt(137)*y(75) + mat(1335) = rxt(137)*y(51) + mat(1367) = -(rxt(136)*y(68) + rxt(137)*y(51) + (rxt(141) + rxt(264)) * y(87) & + + rxt(142)*y(60) + (rxt(153) + rxt(255)) * y(66) + rxt(157) & + *y(82) + rxt(158)*y(86) + rxt(159)*y(61) + rxt(160)*y(84) & + + rxt(161)*y(81) + (rxt(165) + rxt(253)) * y(64) + (rxt(176) & + + rxt(262)) * y(62) + (rxt(187) + rxt(259)) * y(83) + rxt(198) & + *y(70) + rxt(209)*y(98) + rxt(220)*y(67) + (rxt(231) + rxt(257) & + ) * y(85) + (rxt(242) + rxt(266)) * y(65) + rxt(373)*y(110)) + mat(1409) = -rxt(136)*y(75) + mat(245) = -rxt(137)*y(75) + mat(459) = -(rxt(141) + rxt(264)) * y(75) + mat(627) = -rxt(142)*y(75) + mat(500) = -(rxt(153) + rxt(255)) * y(75) + mat(373) = -rxt(157)*y(75) + mat(401) = -rxt(158)*y(75) + mat(359) = -rxt(159)*y(75) + mat(478) = -rxt(160)*y(75) + mat(783) = -rxt(161)*y(75) + mat(754) = -(rxt(165) + rxt(253)) * y(75) + mat(343) = -(rxt(176) + rxt(262)) * y(75) + mat(649) = -(rxt(187) + rxt(259)) * y(75) + mat(287) = -rxt(198)*y(75) + mat(1240) = -rxt(209)*y(75) + mat(603) = -rxt(220)*y(75) + mat(518) = -(rxt(231) + rxt(257)) * y(75) + mat(314) = -(rxt(242) + rxt(266)) * y(75) + mat(1736) = -rxt(373)*y(75) + mat(1034) = rxt(371)*y(110) + mat(26) = rxt(135)*y(110) + mat(1736) = mat(1736) + rxt(371)*y(73) + rxt(135)*y(74) + mat(29) = -(rxt(138)*y(110)) + mat(1696) = -rxt(138)*y(76) + mat(238) = rxt(140)*y(77) + mat(1419) = rxt(140)*y(51) + mat(1453) = -(rxt(139)*y(68) + rxt(140)*y(51) + (rxt(162) + rxt(265)) * y(87) & + + (rxt(163) + rxt(260)) * y(64) + (rxt(164) + rxt(263)) * y(62) & + + (rxt(166) + rxt(261)) * y(83) + rxt(167)*y(70) + rxt(168) & + *y(98) + rxt(169)*y(67) + (rxt(170) + rxt(258)) * y(85) + (rxt(171) & + + rxt(254)) * y(65) + rxt(172)*y(60) + (rxt(173) + rxt(256) & + ) * y(66) + rxt(174)*y(82) + rxt(175)*y(86) + rxt(177)*y(61) & + + rxt(178)*y(84) + rxt(179)*y(81)) + mat(1411) = -rxt(139)*y(77) + mat(246) = -rxt(140)*y(77) + mat(460) = -(rxt(162) + rxt(265)) * y(77) + mat(756) = -(rxt(163) + rxt(260)) * y(77) + mat(344) = -(rxt(164) + rxt(263)) * y(77) + mat(651) = -(rxt(166) + rxt(261)) * y(77) + mat(288) = -rxt(167)*y(77) + mat(1242) = -rxt(168)*y(77) + mat(605) = -rxt(169)*y(77) + mat(519) = -(rxt(170) + rxt(258)) * y(77) + mat(315) = -(rxt(171) + rxt(254)) * y(77) + mat(629) = -rxt(172)*y(77) + mat(501) = -(rxt(173) + rxt(256)) * y(77) + mat(374) = -rxt(174)*y(77) + mat(402) = -rxt(175)*y(77) + mat(360) = -rxt(177)*y(77) + mat(479) = -rxt(178)*y(77) + mat(785) = -rxt(179)*y(77) + mat(1369) = rxt(373)*y(110) + mat(30) = rxt(138)*y(110) + mat(1738) = rxt(373)*y(75) + rxt(138)*y(76) + mat(130) = -(rxt(367)*y(110) + rxt(376)*y(68)) + mat(1703) = -rxt(367)*y(78) + mat(1386) = -rxt(376)*y(78) + mat(926) = rxt(304)*y(92) + mat(660) = rxt(305)*y(92) + mat(961) = rxt(304)*y(34) + rxt(305)*y(71) + rxt(306)*y(104) + mat(137) = rxt(323)*y(110) + mat(698) = rxt(306)*y(92) + mat(1703) = mat(1703) + rxt(323)*y(100) + mat(146) = -(rxt(419)*y(55) + rxt(420)*y(56) + rxt(575)*y(107)) + mat(1469) = -rxt(419)*y(79) + mat(1135) = -rxt(420)*y(79) + mat(204) = -rxt(575)*y(79) + mat(1469) = mat(1469) + rxt(565)*y(80) + mat(1388) = .900_r8*rxt(563)*y(80) + .800_r8*rxt(561)*y(88) + mat(103) = rxt(565)*y(55) + .900_r8*rxt(563)*y(68) + mat(795) = .800_r8*rxt(561)*y(68) + mat(102) = -(rxt(563)*y(68) + rxt(564)*y(56) + (rxt(565) + rxt(566)) * y(55)) + mat(1383) = -rxt(563)*y(80) + mat(1134) = -rxt(564)*y(80) + mat(1467) = -(rxt(565) + rxt(566)) * y(80) + mat(769) = -(rxt(156)*y(99) + rxt(161)*y(75) + rxt(179)*y(77) + rxt(196) & + *y(73) + rxt(214)*y(92) + rxt(232)*y(89) + rxt(249)*y(88) & + + rxt(280)*y(23) + rxt(281)*y(26) + rxt(282)*y(34) + rxt(283) & + *y(110) + rxt(284)*y(42) + rxt(285)*y(44) + rxt(286)*y(53) & + + rxt(287)*y(57)) + mat(1270) = -rxt(156)*y(81) + mat(1353) = -rxt(161)*y(81) + mat(1437) = -rxt(179)*y(81) + mat(1020) = -rxt(196)*y(81) + mat(978) = -rxt(214)*y(81) + mat(858) = -rxt(232)*y(81) + mat(816) = -rxt(249)*y(81) + mat(1191) = -rxt(280)*y(81) + mat(1106) = -rxt(281)*y(81) + mat(937) = -rxt(282)*y(81) + mat(1722) = -rxt(283)*y(81) + mat(902) = -rxt(284)*y(81) + mat(1636) = -rxt(285)*y(81) + mat(1064) = -rxt(286)*y(81) + mat(1597) = -rxt(287)*y(81) + mat(1311) = rxt(106)*y(63) + rxt(275)*y(64) + rxt(118)*y(66) + rxt(274) & + *y(101) + mat(1064) = mat(1064) + rxt(105)*y(60) + rxt(315)*y(98) + rxt(273)*y(101) & + + rxt(341)*y(105) + rxt(354)*y(106) + mat(1492) = rxt(296)*y(83) + mat(1597) = mat(1597) + rxt(297)*y(83) + mat(615) = rxt(105)*y(53) + mat(231) = rxt(106)*y(52) + mat(740) = rxt(275)*y(52) + mat(490) = rxt(118)*y(52) + mat(637) = rxt(296)*y(55) + rxt(297)*y(57) + mat(1226) = rxt(315)*y(53) + mat(379) = rxt(274)*y(52) + rxt(273)*y(53) + mat(1524) = rxt(341)*y(53) + mat(1559) = rxt(354)*y(53) end subroutine nlnmat05 - subroutine nlnmat06( avec_len, mat, y, rxt ) + subroutine nlnmat06( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,102) = -(rxt(k,369)*y(k,110) + rxt(k,377)*y(k,69)) - mat(k,1778) = -rxt(k,369)*y(k,72) - mat(k,1005) = -rxt(k,377)*y(k,72) - mat(k,34) = rxt(k,134)*y(k,110) - mat(k,133) = rxt(k,367)*y(k,110) - mat(k,1778) = mat(k,1778) + rxt(k,134)*y(k,70) + rxt(k,367)*y(k,78) - mat(k,829) = -(rxt(k,180)*y(k,87) + rxt(k,181)*y(k,65) + rxt(k,182)*y(k,63) & - + rxt(k,183)*y(k,83) + rxt(k,184)*y(k,71) + rxt(k,185)*y(k,98) & - + rxt(k,186)*y(k,68) + rxt(k,188)*y(k,85) + rxt(k,189)*y(k,66) & - + rxt(k,190)*y(k,61) + rxt(k,191)*y(k,67) + rxt(k,192)*y(k,82) & - + rxt(k,193)*y(k,86) + rxt(k,194)*y(k,62) + rxt(k,195)*y(k,84) & - + rxt(k,196)*y(k,81) + rxt(k,371)*y(k,110) + rxt(k,378)*y(k,69)) - mat(k,440) = -rxt(k,180)*y(k,73) - mat(k,786) = -rxt(k,181)*y(k,73) - mat(k,342) = -rxt(k,182)*y(k,73) - mat(k,654) = -rxt(k,183)*y(k,73) - mat(k,299) = -rxt(k,184)*y(k,73) - mat(k,1303) = -rxt(k,185)*y(k,73) - mat(k,625) = -rxt(k,186)*y(k,73) - mat(k,521) = -rxt(k,188)*y(k,73) - mat(k,313) = -rxt(k,189)*y(k,73) - mat(k,600) = -rxt(k,190)*y(k,73) - mat(k,502) = -rxt(k,191)*y(k,73) - mat(k,373) = -rxt(k,192)*y(k,73) - mat(k,387) = -rxt(k,193)*y(k,73) - mat(k,358) = -rxt(k,194)*y(k,73) - mat(k,480) = -rxt(k,195)*y(k,73) - mat(k,714) = -rxt(k,196)*y(k,73) - mat(k,1802) = -rxt(k,371)*y(k,73) - mat(k,1019) = -rxt(k,378)*y(k,73) - mat(k,104) = rxt(k,369)*y(k,110) - mat(k,47) = rxt(k,300)*y(k,110) - mat(k,1802) = mat(k,1802) + rxt(k,369)*y(k,72) + rxt(k,300)*y(k,90) - mat(k,22) = -(rxt(k,135)*y(k,110)) - mat(k,1774) = -rxt(k,135)*y(k,74) - mat(k,227) = rxt(k,137)*y(k,75) - mat(k,1170) = rxt(k,137)*y(k,50) - mat(k,1197) = -(rxt(k,136)*y(k,69) + rxt(k,137)*y(k,50) + (rxt(k,141) & - + rxt(k,264)) * y(k,87) + rxt(k,142)*y(k,61) + (rxt(k,153) & - + rxt(k,255)) * y(k,67) + rxt(k,157)*y(k,82) + rxt(k,158) & - *y(k,86) + rxt(k,159)*y(k,62) + rxt(k,160)*y(k,84) + rxt(k,161) & - *y(k,81) + (rxt(k,165) + rxt(k,253)) * y(k,65) + (rxt(k,176) & - + rxt(k,262)) * y(k,63) + (rxt(k,187) + rxt(k,259)) * y(k,83) & - + rxt(k,198)*y(k,71) + rxt(k,209)*y(k,98) + rxt(k,220)*y(k,68) & - + (rxt(k,231) + rxt(k,257)) * y(k,85) + (rxt(k,242) + rxt(k,266) & - ) * y(k,66) + rxt(k,373)*y(k,110)) - mat(k,1027) = -rxt(k,136)*y(k,75) - mat(k,236) = -rxt(k,137)*y(k,75) - mat(k,445) = -(rxt(k,141) + rxt(k,264)) * y(k,75) - mat(k,607) = -rxt(k,142)*y(k,75) - mat(k,508) = -(rxt(k,153) + rxt(k,255)) * y(k,75) - mat(k,378) = -rxt(k,157)*y(k,75) - mat(k,392) = -rxt(k,158)*y(k,75) - mat(k,362) = -rxt(k,159)*y(k,75) - mat(k,487) = -rxt(k,160)*y(k,75) - mat(k,722) = -rxt(k,161)*y(k,75) - mat(k,794) = -(rxt(k,165) + rxt(k,253)) * y(k,75) - mat(k,346) = -(rxt(k,176) + rxt(k,262)) * y(k,75) - mat(k,662) = -(rxt(k,187) + rxt(k,259)) * y(k,75) - mat(k,303) = -rxt(k,198)*y(k,75) - mat(k,1311) = -rxt(k,209)*y(k,75) - mat(k,633) = -rxt(k,220)*y(k,75) - mat(k,528) = -(rxt(k,231) + rxt(k,257)) * y(k,75) - mat(k,318) = -(rxt(k,242) + rxt(k,266)) * y(k,75) - mat(k,1810) = -rxt(k,373)*y(k,75) - mat(k,837) = rxt(k,371)*y(k,110) - mat(k,24) = rxt(k,135)*y(k,110) - mat(k,1810) = mat(k,1810) + rxt(k,371)*y(k,73) + rxt(k,135)*y(k,74) - mat(k,26) = -(rxt(k,138)*y(k,110)) - mat(k,1775) = -rxt(k,138)*y(k,76) - mat(k,228) = rxt(k,140)*y(k,77) - mat(k,1540) = rxt(k,140)*y(k,50) - mat(k,1576) = -(rxt(k,139)*y(k,69) + rxt(k,140)*y(k,50) + (rxt(k,162) & - + rxt(k,265)) * y(k,87) + (rxt(k,163) + rxt(k,260)) * y(k,65) & - + (rxt(k,164) + rxt(k,263)) * y(k,63) + (rxt(k,166) + rxt(k,261) & - ) * y(k,83) + rxt(k,167)*y(k,71) + rxt(k,168)*y(k,98) + rxt(k,169) & - *y(k,68) + (rxt(k,170) + rxt(k,258)) * y(k,85) + (rxt(k,171) & - + rxt(k,254)) * y(k,66) + rxt(k,172)*y(k,61) + (rxt(k,173) & - + rxt(k,256)) * y(k,67) + rxt(k,174)*y(k,82) + rxt(k,175) & - *y(k,86) + rxt(k,177)*y(k,62) + rxt(k,178)*y(k,84) + rxt(k,179) & - *y(k,81)) - mat(k,1036) = -rxt(k,139)*y(k,77) - mat(k,238) = -rxt(k,140)*y(k,77) - mat(k,449) = -(rxt(k,162) + rxt(k,265)) * y(k,77) - mat(k,803) = -(rxt(k,163) + rxt(k,260)) * y(k,77) - mat(k,350) = -(rxt(k,164) + rxt(k,263)) * y(k,77) - mat(k,668) = -(rxt(k,166) + rxt(k,261)) * y(k,77) - mat(k,307) = -rxt(k,167)*y(k,77) - mat(k,1320) = -rxt(k,168)*y(k,77) - mat(k,641) = -rxt(k,169)*y(k,77) - mat(k,532) = -(rxt(k,170) + rxt(k,258)) * y(k,77) - mat(k,322) = -(rxt(k,171) + rxt(k,254)) * y(k,77) - mat(k,611) = -rxt(k,172)*y(k,77) - mat(k,512) = -(rxt(k,173) + rxt(k,256)) * y(k,77) - mat(k,381) = -rxt(k,174)*y(k,77) - mat(k,397) = -rxt(k,175)*y(k,77) - mat(k,366) = -rxt(k,177)*y(k,77) - mat(k,491) = -rxt(k,178)*y(k,77) - mat(k,729) = -rxt(k,179)*y(k,77) - mat(k,1206) = rxt(k,373)*y(k,110) - mat(k,28) = rxt(k,138)*y(k,110) - mat(k,1819) = rxt(k,373)*y(k,75) + rxt(k,138)*y(k,76) - mat(k,134) = -(rxt(k,367)*y(k,110) + rxt(k,376)*y(k,69)) - mat(k,1782) = -rxt(k,367)*y(k,78) - mat(k,1009) = -rxt(k,376)*y(k,78) - mat(k,1695) = rxt(k,304)*y(k,92) - mat(k,676) = rxt(k,305)*y(k,92) - mat(k,1043) = rxt(k,304)*y(k,32) + rxt(k,305)*y(k,43) + rxt(k,306)*y(k,104) - mat(k,141) = rxt(k,323)*y(k,110) - mat(k,742) = rxt(k,306)*y(k,92) - mat(k,1782) = mat(k,1782) + rxt(k,323)*y(k,100) - mat(k,159) = -(rxt(k,419)*y(k,54) + rxt(k,420)*y(k,55) + rxt(k,575)*y(k,107)) - mat(k,953) = -rxt(k,419)*y(k,79) - mat(k,1253) = -rxt(k,420)*y(k,79) - mat(k,242) = -rxt(k,575)*y(k,79) - mat(k,953) = mat(k,953) + rxt(k,565)*y(k,80) - mat(k,1011) = .900_r8*rxt(k,563)*y(k,80) + .800_r8*rxt(k,561)*y(k,88) - mat(k,87) = rxt(k,565)*y(k,54) + .900_r8*rxt(k,563)*y(k,69) - mat(k,855) = .800_r8*rxt(k,561)*y(k,69) - mat(k,86) = -(rxt(k,563)*y(k,69) + rxt(k,564)*y(k,55) + (rxt(k,565) + rxt(k,566) & - ) * y(k,54)) - mat(k,1004) = -rxt(k,563)*y(k,80) - mat(k,1251) = -rxt(k,564)*y(k,80) - mat(k,949) = -(rxt(k,565) + rxt(k,566)) * y(k,80) - mat(k,712) = -(rxt(k,156)*y(k,99) + rxt(k,161)*y(k,75) + rxt(k,179)*y(k,77) & - + rxt(k,196)*y(k,73) + rxt(k,214)*y(k,92) + rxt(k,232)*y(k,89) & - + rxt(k,249)*y(k,88) + rxt(k,280)*y(k,60) + rxt(k,281)*y(k,24) & - + rxt(k,282)*y(k,32) + rxt(k,283)*y(k,110) + rxt(k,284)*y(k,40) & - + rxt(k,285)*y(k,42) + rxt(k,286)*y(k,52) + rxt(k,287)*y(k,56)) - mat(k,1345) = -rxt(k,156)*y(k,81) - mat(k,1186) = -rxt(k,161)*y(k,81) - mat(k,1556) = -rxt(k,179)*y(k,81) - mat(k,826) = -rxt(k,196)*y(k,81) - mat(k,1058) = -rxt(k,214)*y(k,81) - mat(k,917) = -rxt(k,232)*y(k,81) - mat(k,874) = -rxt(k,249)*y(k,81) - mat(k,1668) = -rxt(k,280)*y(k,81) - mat(k,1513) = -rxt(k,281)*y(k,81) - mat(k,1704) = -rxt(k,282)*y(k,81) - mat(k,1799) = -rxt(k,283)*y(k,81) - mat(k,1470) = -rxt(k,284)*y(k,81) - mat(k,1098) = -rxt(k,285)*y(k,81) - mat(k,1143) = -rxt(k,286)*y(k,81) - mat(k,1425) = -rxt(k,287)*y(k,81) - mat(k,1746) = rxt(k,106)*y(k,64) + rxt(k,275)*y(k,65) + rxt(k,118)*y(k,67) & - + rxt(k,274)*y(k,101) - mat(k,1143) = mat(k,1143) + rxt(k,105)*y(k,61) + rxt(k,315)*y(k,98) & - + rxt(k,273)*y(k,101) + rxt(k,341)*y(k,105) + rxt(k,354) & - *y(k,106) - mat(k,973) = rxt(k,296)*y(k,83) - mat(k,1425) = mat(k,1425) + rxt(k,297)*y(k,83) - mat(k,599) = rxt(k,105)*y(k,52) - mat(k,213) = rxt(k,106)*y(k,51) - mat(k,783) = rxt(k,275)*y(k,51) - mat(k,500) = rxt(k,118)*y(k,51) - mat(k,653) = rxt(k,296)*y(k,54) + rxt(k,297)*y(k,56) - mat(k,1300) = rxt(k,315)*y(k,52) - mat(k,403) = rxt(k,274)*y(k,51) + rxt(k,273)*y(k,52) - mat(k,1589) = rxt(k,341)*y(k,52) - mat(k,1625) = rxt(k,354)*y(k,52) - mat(k,371) = -(rxt(k,151)*y(k,99) + rxt(k,157)*y(k,75) + rxt(k,174)*y(k,77) & - + rxt(k,192)*y(k,73) + rxt(k,210)*y(k,92) + rxt(k,227)*y(k,89) & - + rxt(k,245)*y(k,88)) - mat(k,1334) = -rxt(k,151)*y(k,82) - mat(k,1176) = -rxt(k,157)*y(k,82) - mat(k,1546) = -rxt(k,174)*y(k,82) - mat(k,816) = -rxt(k,192)*y(k,82) - mat(k,1048) = -rxt(k,210)*y(k,82) - mat(k,907) = -rxt(k,227)*y(k,82) - mat(k,863) = -rxt(k,245)*y(k,82) - mat(k,1736) = rxt(k,117)*y(k,67) - mat(k,496) = rxt(k,117)*y(k,51) - mat(k,709) = rxt(k,283)*y(k,110) - mat(k,1789) = rxt(k,283)*y(k,81) - mat(k,652) = -(rxt(k,143)*y(k,99) + (rxt(k,166) + rxt(k,261)) * y(k,77) & - + rxt(k,183)*y(k,73) + (rxt(k,187) + rxt(k,259)) * y(k,75) & - + rxt(k,201)*y(k,92) + rxt(k,218)*y(k,89) + rxt(k,236)*y(k,88) & - + (rxt(k,271) + rxt(k,293)) * y(k,40) + rxt(k,291)*y(k,110) & - + rxt(k,295)*y(k,42) + rxt(k,296)*y(k,54) + rxt(k,297)*y(k,56)) - mat(k,1343) = -rxt(k,143)*y(k,83) - mat(k,1554) = -(rxt(k,166) + rxt(k,261)) * y(k,83) - mat(k,824) = -rxt(k,183)*y(k,83) - mat(k,1184) = -(rxt(k,187) + rxt(k,259)) * y(k,83) - mat(k,1056) = -rxt(k,201)*y(k,83) - mat(k,915) = -rxt(k,218)*y(k,83) - mat(k,872) = -rxt(k,236)*y(k,83) - mat(k,1468) = -(rxt(k,271) + rxt(k,293)) * y(k,83) - mat(k,1797) = -rxt(k,291)*y(k,83) - mat(k,1096) = -rxt(k,295)*y(k,83) - mat(k,971) = -rxt(k,296)*y(k,83) - mat(k,1423) = -rxt(k,297)*y(k,83) - mat(k,1096) = mat(k,1096) + rxt(k,104)*y(k,61) + rxt(k,119)*y(k,65) & - + rxt(k,285)*y(k,81) + rxt(k,314)*y(k,98) + rxt(k,352)*y(k,106) - mat(k,1744) = rxt(k,267)*y(k,101) - mat(k,1141) = rxt(k,276)*y(k,65) + rxt(k,115)*y(k,67) + rxt(k,286)*y(k,81) & - + rxt(k,272)*y(k,101) - mat(k,1423) = mat(k,1423) + rxt(k,287)*y(k,81) - mat(k,598) = rxt(k,104)*y(k,42) - mat(k,782) = rxt(k,119)*y(k,42) + rxt(k,276)*y(k,52) - mat(k,499) = rxt(k,115)*y(k,52) - mat(k,711) = rxt(k,285)*y(k,42) + rxt(k,286)*y(k,52) + rxt(k,287)*y(k,56) - mat(k,1298) = rxt(k,314)*y(k,42) - mat(k,402) = rxt(k,267)*y(k,51) + rxt(k,272)*y(k,52) - mat(k,1623) = rxt(k,352)*y(k,42) - end do + mat(362) = -(rxt(151)*y(99) + rxt(157)*y(75) + rxt(174)*y(77) + rxt(192) & + *y(73) + rxt(210)*y(92) + rxt(227)*y(89) + rxt(245)*y(88)) + mat(1257) = -rxt(151)*y(82) + mat(1341) = -rxt(157)*y(82) + mat(1425) = -rxt(174)*y(82) + mat(1008) = -rxt(192)*y(82) + mat(966) = -rxt(210)*y(82) + mat(846) = -rxt(227)*y(82) + mat(803) = -rxt(245)*y(82) + mat(1299) = rxt(117)*y(66) + mat(485) = rxt(117)*y(52) + mat(765) = rxt(283)*y(110) + mat(1710) = rxt(283)*y(81) + mat(636) = -(rxt(143)*y(99) + (rxt(166) + rxt(261)) * y(77) + rxt(183)*y(73) & + + (rxt(187) + rxt(259)) * y(75) + rxt(201)*y(92) + rxt(218) & + *y(89) + rxt(236)*y(88) + (rxt(271) + rxt(293)) * y(42) + rxt(291) & + *y(110) + rxt(295)*y(44) + rxt(296)*y(55) + rxt(297)*y(57)) + mat(1266) = -rxt(143)*y(83) + mat(1433) = -(rxt(166) + rxt(261)) * y(83) + mat(1016) = -rxt(183)*y(83) + mat(1349) = -(rxt(187) + rxt(259)) * y(83) + mat(974) = -rxt(201)*y(83) + mat(854) = -rxt(218)*y(83) + mat(812) = -rxt(236)*y(83) + mat(898) = -(rxt(271) + rxt(293)) * y(83) + mat(1718) = -rxt(291)*y(83) + mat(1632) = -rxt(295)*y(83) + mat(1488) = -rxt(296)*y(83) + mat(1593) = -rxt(297)*y(83) + mat(1632) = mat(1632) + rxt(104)*y(60) + rxt(119)*y(64) + rxt(285)*y(81) & + + rxt(314)*y(98) + rxt(352)*y(106) + mat(1307) = rxt(267)*y(101) + mat(1060) = rxt(276)*y(64) + rxt(115)*y(66) + rxt(286)*y(81) + rxt(272) & + *y(101) + mat(1593) = mat(1593) + rxt(287)*y(81) + mat(614) = rxt(104)*y(44) + mat(737) = rxt(119)*y(44) + rxt(276)*y(53) + mat(488) = rxt(115)*y(53) + mat(767) = rxt(285)*y(44) + rxt(286)*y(53) + rxt(287)*y(57) + mat(1222) = rxt(314)*y(44) + mat(377) = rxt(267)*y(52) + rxt(272)*y(53) + mat(1555) = rxt(352)*y(44) + mat(466) = -(rxt(155)*y(99) + rxt(160)*y(75) + rxt(178)*y(77) + rxt(195) & + *y(73) + rxt(213)*y(92) + rxt(230)*y(89) + rxt(248)*y(88) & + + rxt(288)*y(51)) + mat(1260) = -rxt(155)*y(84) + mat(1344) = -rxt(160)*y(84) + mat(1428) = -rxt(178)*y(84) + mat(1011) = -rxt(195)*y(84) + mat(969) = -rxt(213)*y(84) + mat(849) = -rxt(230)*y(84) + mat(806) = -rxt(248)*y(84) + mat(241) = -rxt(288)*y(84) + mat(506) = rxt(289)*y(110) + mat(1712) = rxt(289)*y(85) + mat(507) = -(rxt(147)*y(99) + (rxt(170) + rxt(258)) * y(77) + rxt(188)*y(73) & + + rxt(205)*y(92) + rxt(223)*y(89) + (rxt(231) + rxt(257) & + ) * y(75) + rxt(240)*y(88) + rxt(289)*y(110) + rxt(290)*y(44) & + + rxt(292)*y(51)) + mat(1262) = -rxt(147)*y(85) + mat(1430) = -(rxt(170) + rxt(258)) * y(85) + mat(1013) = -rxt(188)*y(85) + mat(971) = -rxt(205)*y(85) + mat(851) = -rxt(223)*y(85) + mat(1346) = -(rxt(231) + rxt(257)) * y(85) + mat(808) = -rxt(240)*y(85) + mat(1714) = -rxt(289)*y(85) + mat(1628) = -rxt(290)*y(85) + mat(242) = -rxt(292)*y(85) + mat(1056) = rxt(116)*y(66) + mat(487) = rxt(116)*y(53) + mat(634) = rxt(291)*y(110) + mat(1714) = mat(1714) + rxt(291)*y(83) + mat(390) = -(rxt(152)*y(99) + rxt(158)*y(75) + rxt(175)*y(77) + rxt(193) & + *y(73) + rxt(211)*y(92) + rxt(228)*y(89) + rxt(246)*y(88) & + + rxt(294)*y(44)) + mat(1258) = -rxt(152)*y(86) + mat(1342) = -rxt(158)*y(86) + mat(1426) = -rxt(175)*y(86) + mat(1009) = -rxt(193)*y(86) + mat(967) = -rxt(211)*y(86) + mat(847) = -rxt(228)*y(86) + mat(804) = -rxt(246)*y(86) + mat(1625) = -rxt(294)*y(86) + mat(891) = rxt(271)*y(83) + mat(632) = rxt(271)*y(42) + mat(450) = -((rxt(141) + rxt(264)) * y(75) + (rxt(162) + rxt(265)) * y(77) & + + rxt(180)*y(73) + rxt(197)*y(92) + rxt(215)*y(89) + rxt(233) & + *y(88) + rxt(250)*y(99)) + mat(1343) = -(rxt(141) + rxt(264)) * y(87) + mat(1427) = -(rxt(162) + rxt(265)) * y(87) + mat(1010) = -rxt(180)*y(87) + mat(968) = -rxt(197)*y(87) + mat(848) = -rxt(215)*y(87) + mat(805) = -rxt(233)*y(87) + mat(1259) = -rxt(250)*y(87) + mat(1627) = rxt(295)*y(83) + rxt(290)*y(85) + rxt(294)*y(86) + mat(240) = rxt(288)*y(84) + rxt(292)*y(85) + mat(633) = rxt(295)*y(44) + mat(465) = rxt(288)*y(51) + mat(505) = rxt(290)*y(44) + rxt(292)*y(51) + mat(391) = rxt(294)*y(44) + mat(817) = -(rxt(233)*y(87) + rxt(234)*y(64) + rxt(235)*y(62) + rxt(236) & + *y(83) + rxt(237)*y(70) + rxt(238)*y(98) + rxt(239)*y(67) & + + rxt(240)*y(85) + rxt(241)*y(65) + rxt(243)*y(60) + rxt(244) & + *y(66) + rxt(245)*y(82) + rxt(246)*y(86) + rxt(247)*y(61) & + + rxt(248)*y(84) + rxt(249)*y(81) + rxt(360)*y(110) + rxt(561) & + *y(68)) + mat(452) = -rxt(233)*y(88) + mat(741) = -rxt(234)*y(88) + mat(333) = -rxt(235)*y(88) + mat(638) = -rxt(236)*y(88) + mat(279) = -rxt(237)*y(88) + mat(1227) = -rxt(238)*y(88) + mat(590) = -rxt(239)*y(88) + mat(509) = -rxt(240)*y(88) + mat(306) = -rxt(241)*y(88) + mat(616) = -rxt(243)*y(88) + mat(491) = -rxt(244)*y(88) + mat(364) = -rxt(245)*y(88) + mat(392) = -rxt(246)*y(88) + mat(349) = -rxt(247)*y(88) + mat(469) = -rxt(248)*y(88) + mat(770) = -rxt(249)*y(88) + mat(1723) = -rxt(360)*y(88) + mat(1396) = -rxt(561)*y(88) + mat(257) = rxt(570)*y(99) + mat(1312) = rxt(572)*y(99) + mat(1493) = rxt(565)*y(80) + mat(1150) = rxt(569)*y(94) + mat(106) = rxt(565)*y(55) + mat(175) = rxt(569)*y(56) + mat(1271) = rxt(570)*y(49) + rxt(572)*y(52) + mat(860) = -(rxt(215)*y(87) + rxt(216)*y(64) + rxt(217)*y(62) + rxt(218) & + *y(83) + rxt(219)*y(70) + rxt(221)*y(98) + rxt(222)*y(67) & + + rxt(223)*y(85) + rxt(224)*y(65) + rxt(225)*y(60) + rxt(226) & + *y(66) + rxt(227)*y(82) + rxt(228)*y(86) + rxt(229)*y(61) & + + rxt(230)*y(84) + rxt(232)*y(81) + rxt(298)*y(68) + rxt(362) & + *y(110)) + mat(453) = -rxt(215)*y(89) + mat(742) = -rxt(216)*y(89) + mat(334) = -rxt(217)*y(89) + mat(639) = -rxt(218)*y(89) + mat(280) = -rxt(219)*y(89) + mat(1228) = -rxt(221)*y(89) + mat(591) = -rxt(222)*y(89) + mat(510) = -rxt(223)*y(89) + mat(307) = -rxt(224)*y(89) + mat(617) = -rxt(225)*y(89) + mat(492) = -rxt(226)*y(89) + mat(365) = -rxt(227)*y(89) + mat(393) = -rxt(228)*y(89) + mat(350) = -rxt(229)*y(89) + mat(470) = -rxt(230)*y(89) + mat(771) = -rxt(232)*y(89) + mat(1397) = -rxt(298)*y(89) + mat(1724) = -rxt(362)*y(89) + mat(980) = rxt(361)*y(110) + mat(1724) = mat(1724) + rxt(361)*y(92) + mat(45) = -(rxt(299)*y(68) + rxt(300)*y(110)) + mat(1378) = -rxt(299)*y(90) + mat(1698) = -rxt(300)*y(90) + mat(840) = rxt(362)*y(110) + mat(1698) = mat(1698) + rxt(362)*y(89) + mat(71) = -(rxt(301)*y(68) + rxt(302)*y(110)) + mat(1380) = -rxt(301)*y(91) + mat(1700) = -rxt(302)*y(91) + mat(983) = -(rxt(197)*y(87) + rxt(199)*y(64) + rxt(200)*y(62) + rxt(201) & + *y(83) + rxt(202)*y(70) + rxt(203)*y(98) + rxt(204)*y(67) & + + rxt(205)*y(85) + rxt(206)*y(65) + rxt(207)*y(60) + rxt(208) & + *y(66) + rxt(210)*y(82) + rxt(211)*y(86) + rxt(212)*y(61) & + + rxt(213)*y(84) + rxt(214)*y(81) + rxt(303)*y(68) + rxt(304) & + *y(34) + rxt(305)*y(71) + rxt(306)*y(104) + rxt(361)*y(110)) + mat(454) = -rxt(197)*y(92) + mat(745) = -rxt(199)*y(92) + mat(337) = -rxt(200)*y(92) + mat(642) = -rxt(201)*y(92) + mat(282) = -rxt(202)*y(92) + mat(1231) = -rxt(203)*y(92) + mat(594) = -rxt(204)*y(92) + mat(512) = -rxt(205)*y(92) + mat(309) = -rxt(206)*y(92) + mat(620) = -rxt(207)*y(92) + mat(494) = -rxt(208)*y(92) + mat(367) = -rxt(210)*y(92) + mat(396) = -rxt(211)*y(92) + mat(353) = -rxt(212)*y(92) + mat(472) = -rxt(213)*y(92) + mat(774) = -rxt(214)*y(92) + mat(1400) = -rxt(303)*y(92) + mat(942) = -rxt(304)*y(92) + mat(674) = -rxt(305)*y(92) + mat(715) = -rxt(306)*y(92) + mat(1727) = -rxt(361)*y(92) + mat(821) = rxt(360)*y(110) + mat(73) = rxt(302)*y(110) + mat(67) = rxt(308)*y(110) + mat(1727) = mat(1727) + rxt(360)*y(88) + rxt(302)*y(91) + rxt(308)*y(93) + mat(64) = -(rxt(308)*y(110) + rxt(379)*y(68)) + mat(1699) = -rxt(308)*y(93) + mat(1379) = -rxt(379)*y(93) + mat(172) = -(rxt(567)*y(55) + (rxt(568) + rxt(569)) * y(56)) + mat(1471) = -rxt(567)*y(94) + mat(1136) = -(rxt(568) + rxt(569)) * y(94) + mat(147) = rxt(575)*y(107) + mat(205) = rxt(575)*y(79) end subroutine nlnmat06 - subroutine nlnmat07( avec_len, mat, y, rxt ) + subroutine nlnmat07( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,477) = -(rxt(k,155)*y(k,99) + rxt(k,160)*y(k,75) + rxt(k,178)*y(k,77) & - + rxt(k,195)*y(k,73) + rxt(k,213)*y(k,92) + rxt(k,230)*y(k,89) & - + rxt(k,248)*y(k,88) + rxt(k,288)*y(k,50)) - mat(k,1337) = -rxt(k,155)*y(k,84) - mat(k,1179) = -rxt(k,160)*y(k,84) - mat(k,1549) = -rxt(k,178)*y(k,84) - mat(k,819) = -rxt(k,195)*y(k,84) - mat(k,1051) = -rxt(k,213)*y(k,84) - mat(k,910) = -rxt(k,230)*y(k,84) - mat(k,866) = -rxt(k,248)*y(k,84) - mat(k,231) = -rxt(k,288)*y(k,84) - mat(k,518) = rxt(k,289)*y(k,110) - mat(k,1791) = rxt(k,289)*y(k,85) - mat(k,519) = -(rxt(k,147)*y(k,99) + (rxt(k,170) + rxt(k,258)) * y(k,77) & - + rxt(k,188)*y(k,73) + rxt(k,205)*y(k,92) + rxt(k,223)*y(k,89) & - + (rxt(k,231) + rxt(k,257)) * y(k,75) + rxt(k,240)*y(k,88) & - + rxt(k,289)*y(k,110) + rxt(k,290)*y(k,42) + rxt(k,292)*y(k,50)) - mat(k,1339) = -rxt(k,147)*y(k,85) - mat(k,1551) = -(rxt(k,170) + rxt(k,258)) * y(k,85) - mat(k,821) = -rxt(k,188)*y(k,85) - mat(k,1053) = -rxt(k,205)*y(k,85) - mat(k,912) = -rxt(k,223)*y(k,85) - mat(k,1181) = -(rxt(k,231) + rxt(k,257)) * y(k,85) - mat(k,868) = -rxt(k,240)*y(k,85) - mat(k,1793) = -rxt(k,289)*y(k,85) - mat(k,1092) = -rxt(k,290)*y(k,85) - mat(k,232) = -rxt(k,292)*y(k,85) - mat(k,1137) = rxt(k,116)*y(k,67) - mat(k,498) = rxt(k,116)*y(k,52) - mat(k,650) = rxt(k,291)*y(k,110) - mat(k,1793) = mat(k,1793) + rxt(k,291)*y(k,83) - mat(k,385) = -(rxt(k,152)*y(k,99) + rxt(k,158)*y(k,75) + rxt(k,175)*y(k,77) & - + rxt(k,193)*y(k,73) + rxt(k,211)*y(k,92) + rxt(k,228)*y(k,89) & - + rxt(k,246)*y(k,88) + rxt(k,294)*y(k,42)) - mat(k,1335) = -rxt(k,152)*y(k,86) - mat(k,1177) = -rxt(k,158)*y(k,86) - mat(k,1547) = -rxt(k,175)*y(k,86) - mat(k,817) = -rxt(k,193)*y(k,86) - mat(k,1049) = -rxt(k,211)*y(k,86) - mat(k,908) = -rxt(k,228)*y(k,86) - mat(k,864) = -rxt(k,246)*y(k,86) - mat(k,1089) = -rxt(k,294)*y(k,86) - mat(k,1461) = rxt(k,271)*y(k,83) - mat(k,648) = rxt(k,271)*y(k,40) - mat(k,438) = -((rxt(k,141) + rxt(k,264)) * y(k,75) + (rxt(k,162) + rxt(k,265) & - ) * y(k,77) + rxt(k,180)*y(k,73) + rxt(k,197)*y(k,92) + rxt(k,215) & - *y(k,89) + rxt(k,233)*y(k,88) + rxt(k,250)*y(k,99)) - mat(k,1178) = -(rxt(k,141) + rxt(k,264)) * y(k,87) - mat(k,1548) = -(rxt(k,162) + rxt(k,265)) * y(k,87) - mat(k,818) = -rxt(k,180)*y(k,87) - mat(k,1050) = -rxt(k,197)*y(k,87) - mat(k,909) = -rxt(k,215)*y(k,87) - mat(k,865) = -rxt(k,233)*y(k,87) - mat(k,1336) = -rxt(k,250)*y(k,87) - mat(k,1091) = rxt(k,295)*y(k,83) + rxt(k,290)*y(k,85) + rxt(k,294)*y(k,86) - mat(k,230) = rxt(k,288)*y(k,84) + rxt(k,292)*y(k,85) - mat(k,649) = rxt(k,295)*y(k,42) - mat(k,476) = rxt(k,288)*y(k,50) - mat(k,517) = rxt(k,290)*y(k,42) + rxt(k,292)*y(k,50) - mat(k,386) = rxt(k,294)*y(k,42) - mat(k,878) = -(rxt(k,233)*y(k,87) + rxt(k,234)*y(k,65) + rxt(k,235)*y(k,63) & - + rxt(k,236)*y(k,83) + rxt(k,237)*y(k,71) + rxt(k,238)*y(k,98) & - + rxt(k,239)*y(k,68) + rxt(k,240)*y(k,85) + rxt(k,241)*y(k,66) & - + rxt(k,243)*y(k,61) + rxt(k,244)*y(k,67) + rxt(k,245)*y(k,82) & - + rxt(k,246)*y(k,86) + rxt(k,247)*y(k,62) + rxt(k,248)*y(k,84) & - + rxt(k,249)*y(k,81) + rxt(k,360)*y(k,110) + rxt(k,363)*y(k,28) & - + rxt(k,561)*y(k,69)) - mat(k,441) = -rxt(k,233)*y(k,88) - mat(k,787) = -rxt(k,234)*y(k,88) - mat(k,343) = -rxt(k,235)*y(k,88) - mat(k,655) = -rxt(k,236)*y(k,88) - mat(k,300) = -rxt(k,237)*y(k,88) - mat(k,1304) = -rxt(k,238)*y(k,88) - mat(k,626) = -rxt(k,239)*y(k,88) - mat(k,522) = -rxt(k,240)*y(k,88) - mat(k,314) = -rxt(k,241)*y(k,88) - mat(k,601) = -rxt(k,243)*y(k,88) - mat(k,503) = -rxt(k,244)*y(k,88) - mat(k,374) = -rxt(k,245)*y(k,88) - mat(k,388) = -rxt(k,246)*y(k,88) - mat(k,359) = -rxt(k,247)*y(k,88) - mat(k,481) = -rxt(k,248)*y(k,88) - mat(k,715) = -rxt(k,249)*y(k,88) - mat(k,1803) = -rxt(k,360)*y(k,88) - mat(k,1391) = -rxt(k,363)*y(k,88) - mat(k,1020) = -rxt(k,561)*y(k,88) - mat(k,274) = rxt(k,570)*y(k,99) - mat(k,1750) = rxt(k,572)*y(k,99) - mat(k,977) = rxt(k,565)*y(k,80) - mat(k,1268) = rxt(k,569)*y(k,94) - mat(k,90) = rxt(k,565)*y(k,54) - mat(k,179) = rxt(k,569)*y(k,55) - mat(k,1349) = rxt(k,570)*y(k,48) + rxt(k,572)*y(k,51) - mat(k,922) = -(rxt(k,215)*y(k,87) + rxt(k,216)*y(k,65) + rxt(k,217)*y(k,63) & - + rxt(k,218)*y(k,83) + rxt(k,219)*y(k,71) + rxt(k,221)*y(k,98) & - + rxt(k,222)*y(k,68) + rxt(k,223)*y(k,85) + rxt(k,224)*y(k,66) & - + rxt(k,225)*y(k,61) + rxt(k,226)*y(k,67) + rxt(k,227)*y(k,82) & - + rxt(k,228)*y(k,86) + rxt(k,229)*y(k,62) + rxt(k,230)*y(k,84) & - + rxt(k,232)*y(k,81) + rxt(k,298)*y(k,69) + rxt(k,362)*y(k,110)) - mat(k,442) = -rxt(k,215)*y(k,89) - mat(k,788) = -rxt(k,216)*y(k,89) - mat(k,344) = -rxt(k,217)*y(k,89) - mat(k,656) = -rxt(k,218)*y(k,89) - mat(k,301) = -rxt(k,219)*y(k,89) - mat(k,1305) = -rxt(k,221)*y(k,89) - mat(k,627) = -rxt(k,222)*y(k,89) - mat(k,523) = -rxt(k,223)*y(k,89) - mat(k,315) = -rxt(k,224)*y(k,89) - mat(k,602) = -rxt(k,225)*y(k,89) - mat(k,504) = -rxt(k,226)*y(k,89) - mat(k,375) = -rxt(k,227)*y(k,89) - mat(k,389) = -rxt(k,228)*y(k,89) - mat(k,360) = -rxt(k,229)*y(k,89) - mat(k,482) = -rxt(k,230)*y(k,89) - mat(k,716) = -rxt(k,232)*y(k,89) - mat(k,1021) = -rxt(k,298)*y(k,89) - mat(k,1804) = -rxt(k,362)*y(k,89) - mat(k,1063) = rxt(k,361)*y(k,110) - mat(k,1804) = mat(k,1804) + rxt(k,361)*y(k,92) - mat(k,45) = -(rxt(k,299)*y(k,69) + rxt(k,300)*y(k,110)) - mat(k,1001) = -rxt(k,299)*y(k,90) - mat(k,1777) = -rxt(k,300)*y(k,90) - mat(k,901) = rxt(k,362)*y(k,110) - mat(k,1777) = mat(k,1777) + rxt(k,362)*y(k,89) - mat(k,116) = -(rxt(k,301)*y(k,69) + rxt(k,302)*y(k,110)) - mat(k,1007) = -rxt(k,301)*y(k,91) - mat(k,1780) = -rxt(k,302)*y(k,91) - mat(k,1375) = rxt(k,363)*y(k,88) + rxt(k,307)*y(k,93) - mat(k,854) = rxt(k,363)*y(k,28) - mat(k,109) = rxt(k,307)*y(k,28) - mat(k,1066) = -(rxt(k,197)*y(k,87) + rxt(k,199)*y(k,65) + rxt(k,200)*y(k,63) & - + rxt(k,201)*y(k,83) + rxt(k,202)*y(k,71) + rxt(k,203)*y(k,98) & - + rxt(k,204)*y(k,68) + rxt(k,205)*y(k,85) + rxt(k,206)*y(k,66) & - + rxt(k,207)*y(k,61) + rxt(k,208)*y(k,67) + rxt(k,210)*y(k,82) & - + rxt(k,211)*y(k,86) + rxt(k,212)*y(k,62) + rxt(k,213)*y(k,84) & - + rxt(k,214)*y(k,81) + rxt(k,303)*y(k,69) + rxt(k,304)*y(k,32) & - + rxt(k,305)*y(k,43) + rxt(k,306)*y(k,104) + rxt(k,361)*y(k,110)) - mat(k,443) = -rxt(k,197)*y(k,92) - mat(k,791) = -rxt(k,199)*y(k,92) - mat(k,345) = -rxt(k,200)*y(k,92) - mat(k,659) = -rxt(k,201)*y(k,92) - mat(k,302) = -rxt(k,202)*y(k,92) - mat(k,1308) = -rxt(k,203)*y(k,92) - mat(k,630) = -rxt(k,204)*y(k,92) - mat(k,525) = -rxt(k,205)*y(k,92) - mat(k,317) = -rxt(k,206)*y(k,92) - mat(k,604) = -rxt(k,207)*y(k,92) - mat(k,506) = -rxt(k,208)*y(k,92) - mat(k,376) = -rxt(k,210)*y(k,92) - mat(k,390) = -rxt(k,211)*y(k,92) - mat(k,361) = -rxt(k,212)*y(k,92) - mat(k,484) = -rxt(k,213)*y(k,92) - mat(k,719) = -rxt(k,214)*y(k,92) - mat(k,1024) = -rxt(k,303)*y(k,92) - mat(k,1712) = -rxt(k,304)*y(k,92) - mat(k,691) = -rxt(k,305)*y(k,92) - mat(k,760) = -rxt(k,306)*y(k,92) - mat(k,1807) = -rxt(k,361)*y(k,92) - mat(k,882) = rxt(k,360)*y(k,110) - mat(k,119) = rxt(k,302)*y(k,110) - mat(k,112) = rxt(k,308)*y(k,110) - mat(k,1807) = mat(k,1807) + rxt(k,360)*y(k,88) + rxt(k,302)*y(k,91) & - + rxt(k,308)*y(k,93) - mat(k,108) = -(rxt(k,307)*y(k,28) + rxt(k,308)*y(k,110) + rxt(k,379)*y(k,69)) - mat(k,1374) = -rxt(k,307)*y(k,93) - mat(k,1779) = -rxt(k,308)*y(k,93) - mat(k,1006) = -rxt(k,379)*y(k,93) - mat(k,176) = -(rxt(k,567)*y(k,54) + (rxt(k,568) + rxt(k,569)) * y(k,55)) - mat(k,954) = -rxt(k,567)*y(k,94) - mat(k,1254) = -(rxt(k,568) + rxt(k,569)) * y(k,94) - mat(k,160) = rxt(k,575)*y(k,107) - mat(k,243) = rxt(k,575)*y(k,79) - mat(k,573) = -(rxt(k,384)*y(k,33) + rxt(k,385)*y(k,110) + (rxt(k,387) & - + rxt(k,388)) * y(k,55) + rxt(k,389)*y(k,56) + (rxt(k,477) & - + rxt(k,478)) * y(k,40) + (rxt(k,500) + rxt(k,501)) * y(k,36) & - + rxt(k,506)*y(k,29) + rxt(k,507)*y(k,30)) - mat(k,421) = -rxt(k,384)*y(k,95) - mat(k,1795) = -rxt(k,385)*y(k,95) - mat(k,1260) = -(rxt(k,387) + rxt(k,388)) * y(k,95) - mat(k,1421) = -rxt(k,389)*y(k,95) - mat(k,1465) = -(rxt(k,477) + rxt(k,478)) * y(k,95) - mat(k,194) = -(rxt(k,500) + rxt(k,501)) * y(k,95) - mat(k,6) = -rxt(k,506)*y(k,95) - mat(k,14) = -rxt(k,507)*y(k,95) - mat(k,1260) = mat(k,1260) + rxt(k,420)*y(k,79) - mat(k,1016) = .850_r8*rxt(k,562)*y(k,99) - mat(k,163) = rxt(k,420)*y(k,55) - mat(k,1340) = .850_r8*rxt(k,562)*y(k,69) - mat(k,219) = -(rxt(k,316)*y(k,98) + rxt(k,334)*y(k,103) + rxt(k,356)*y(k,106) & - + rxt(k,391)*y(k,54) + rxt(k,392)*y(k,55)) - mat(k,1293) = -rxt(k,316)*y(k,96) - mat(k,284) = -rxt(k,334)*y(k,96) - mat(k,1616) = -rxt(k,356)*y(k,96) - mat(k,959) = -rxt(k,391)*y(k,96) - mat(k,1255) = -rxt(k,392)*y(k,96) - mat(k,1377) = rxt(k,393)*y(k,97) - mat(k,959) = mat(k,959) + rxt(k,395)*y(k,97) - mat(k,1255) = mat(k,1255) + rxt(k,396)*y(k,97) - mat(k,1415) = rxt(k,397)*y(k,97) - mat(k,31) = rxt(k,393)*y(k,28) + rxt(k,395)*y(k,54) + rxt(k,396)*y(k,55) & - + rxt(k,397)*y(k,56) - end do + mat(560) = -(rxt(384)*y(35) + rxt(385)*y(110) + (rxt(387) + rxt(388)) * y(56) & + + rxt(389)*y(57) + (rxt(477) + rxt(478)) * y(42) + (rxt(500) & + + rxt(501)) * y(38) + rxt(506)*y(31) + rxt(507)*y(32)) + mat(433) = -rxt(384)*y(95) + mat(1716) = -rxt(385)*y(95) + mat(1142) = -(rxt(387) + rxt(388)) * y(95) + mat(1590) = -rxt(389)*y(95) + mat(895) = -(rxt(477) + rxt(478)) * y(95) + mat(182) = -(rxt(500) + rxt(501)) * y(95) + mat(6) = -rxt(506)*y(95) + mat(14) = -rxt(507)*y(95) + mat(1142) = mat(1142) + rxt(420)*y(79) + mat(1393) = .850_r8*rxt(562)*y(99) + mat(150) = rxt(420)*y(56) + mat(1263) = .850_r8*rxt(562)*y(68) + mat(195) = -(rxt(316)*y(98) + rxt(334)*y(103) + rxt(356)*y(106) + rxt(391) & + *y(55) + rxt(392)*y(56)) + mat(1216) = -rxt(316)*y(96) + mat(291) = -rxt(334)*y(96) + mat(1548) = -rxt(356)*y(96) + mat(1474) = -rxt(391)*y(96) + mat(1137) = -rxt(392)*y(96) + mat(1474) = mat(1474) + rxt(395)*y(97) + mat(1137) = mat(1137) + rxt(396)*y(97) + mat(1584) = rxt(397)*y(97) + mat(23) = rxt(395)*y(55) + rxt(396)*y(56) + rxt(397)*y(57) + mat(22) = -(rxt(395)*y(55) + rxt(396)*y(56) + rxt(397)*y(57)) + mat(1461) = -rxt(395)*y(97) + mat(1130) = -rxt(396)*y(97) + mat(1583) = -rxt(397)*y(97) + mat(1130) = mat(1130) + rxt(387)*y(95) + mat(550) = rxt(387)*y(56) + mat(1237) = -(rxt(145)*y(99) + rxt(168)*y(77) + rxt(185)*y(73) + rxt(203) & + *y(92) + rxt(209)*y(75) + rxt(221)*y(89) + rxt(238)*y(88) & + + rxt(309)*y(23) + rxt(310)*y(26) + rxt(312)*y(34) + rxt(313) & + *y(42) + rxt(314)*y(44) + rxt(315)*y(53) + rxt(316)*y(96) & + + rxt(317)*y(56) + rxt(318)*y(57) + (rxt(319) + rxt(320) & + ) * y(55)) + mat(1281) = -rxt(145)*y(98) + mat(1448) = -rxt(168)*y(98) + mat(1031) = -rxt(185)*y(98) + mat(989) = -rxt(203)*y(98) + mat(1364) = -rxt(209)*y(98) + mat(869) = -rxt(221)*y(98) + mat(827) = -rxt(238)*y(98) + mat(1202) = -rxt(309)*y(98) + mat(1117) = -rxt(310)*y(98) + mat(948) = -rxt(312)*y(98) + mat(913) = -rxt(313)*y(98) + mat(1647) = -rxt(314)*y(98) + mat(1075) = -rxt(315)*y(98) + mat(198) = -rxt(316)*y(98) + mat(1160) = -rxt(317)*y(98) + mat(1608) = -rxt(318)*y(98) + mat(1503) = -(rxt(319) + rxt(320)) * y(98) + mat(1503) = mat(1503) + rxt(120)*y(64) + rxt(329)*y(101) + mat(1160) = mat(1160) + (rxt(128)+rxt(130))*y(68) + mat(751) = rxt(120)*y(55) + mat(1406) = (rxt(128)+rxt(130))*y(56) + mat(383) = rxt(329)*y(55) + mat(1282) = -(rxt(143)*y(83) + rxt(144)*y(70) + rxt(145)*y(98) + rxt(146) & + *y(67) + rxt(147)*y(85) + rxt(148)*y(65) + rxt(149)*y(60) & + + rxt(150)*y(66) + rxt(151)*y(82) + rxt(152)*y(86) + rxt(154) & + *y(61) + rxt(155)*y(84) + rxt(156)*y(81) + rxt(250)*y(87) & + + rxt(251)*y(64) + rxt(252)*y(62) + rxt(324)*y(110) + rxt(359) & + *y(56) + rxt(562)*y(68) + rxt(570)*y(49) + rxt(572)*y(52)) + mat(647) = -rxt(143)*y(99) + mat(285) = -rxt(144)*y(99) + mat(1238) = -rxt(145)*y(99) + mat(601) = -rxt(146)*y(99) + mat(516) = -rxt(147)*y(99) + mat(312) = -rxt(148)*y(99) + mat(625) = -rxt(149)*y(99) + mat(498) = -rxt(150)*y(99) + mat(371) = -rxt(151)*y(99) + mat(399) = -rxt(152)*y(99) + mat(357) = -rxt(154)*y(99) + mat(476) = -rxt(155)*y(99) + mat(781) = -rxt(156)*y(99) + mat(457) = -rxt(250)*y(99) + mat(752) = -rxt(251)*y(99) + mat(341) = -rxt(252)*y(99) + mat(1734) = -rxt(324)*y(99) + mat(1161) = -rxt(359)*y(99) + mat(1407) = -rxt(562)*y(99) + mat(261) = -rxt(570)*y(99) + mat(1323) = -rxt(572)*y(99) + mat(1504) = rxt(333)*y(103) + mat(1161) = mat(1161) + rxt(564)*y(80) + rxt(568)*y(94) + rxt(576)*y(107) & + + rxt(580)*y(108) + mat(108) = rxt(564)*y(56) + mat(177) = rxt(568)*y(56) + mat(199) = rxt(334)*y(103) + mat(1238) = mat(1238) + 2.000_r8*rxt(145)*y(99) + mat(1282) = mat(1282) + 2.000_r8*rxt(145)*y(98) + mat(298) = rxt(333)*y(55) + rxt(334)*y(96) + mat(214) = rxt(576)*y(56) + mat(88) = rxt(580)*y(56) + mat(138) = -(rxt(321)*y(68) + (rxt(322) + rxt(323)) * y(110)) + mat(1387) = -rxt(321)*y(100) + mat(1704) = -(rxt(322) + rxt(323)) * y(100) + mat(1250) = rxt(324)*y(110) + mat(290) = rxt(332)*y(110) + mat(1704) = mat(1704) + rxt(324)*y(99) + rxt(332)*y(103) + mat(376) = -((rxt(267) + rxt(274)) * y(52) + (rxt(272) + rxt(273)) * y(53) & + + rxt(326)*y(34) + rxt(327)*y(57) + (rxt(328) + rxt(329) & + ) * y(55)) + mat(1300) = -(rxt(267) + rxt(274)) * y(101) + mat(1051) = -(rxt(272) + rxt(273)) * y(101) + mat(927) = -rxt(326)*y(101) + mat(1587) = -rxt(327)*y(101) + mat(1481) = -(rxt(328) + rxt(329)) * y(101) + mat(1481) = mat(1481) + rxt(331)*y(102) + mat(1141) = rxt(121)*y(64) + rxt(357)*y(106) + mat(1587) = mat(1587) + rxt(127)*y(67) + rxt(318)*y(98) + rxt(343)*y(105) & + + rxt(358)*y(106) + mat(733) = rxt(121)*y(56) + mat(582) = rxt(127)*y(57) + mat(1219) = rxt(318)*y(57) + mat(52) = rxt(331)*y(55) + mat(1518) = rxt(343)*y(57) + mat(1550) = rxt(357)*y(56) + rxt(358)*y(57) + mat(51) = -(rxt(331)*y(55)) + mat(1462) = -rxt(331)*y(102) + mat(1131) = rxt(317)*y(98) + mat(1215) = rxt(317)*y(56) + mat(292) = -(rxt(332)*y(110) + rxt(333)*y(55) + rxt(334)*y(96) + rxt(375) & + *y(68)) + mat(1707) = -rxt(332)*y(103) + mat(1479) = -rxt(333)*y(103) + mat(196) = -rxt(334)*y(103) + mat(1392) = -rxt(375)*y(103) + mat(1140) = rxt(359)*y(99) + mat(1253) = rxt(359)*y(56) + mat(711) = -(rxt(306)*y(92) + rxt(335)*y(48) + rxt(344)*y(52) + rxt(410) & + *y(35) + rxt(411)*y(37) + rxt(412)*y(71) + rxt(413)*y(55) & + + rxt(414)*y(57) + (4._r8*rxt(415) + 4._r8*rxt(416)) * y(104) & + + rxt(418)*y(45) + rxt(432)*y(54) + rxt(433)*y(49) + rxt(441) & + *y(53) + rxt(442)*y(44) + rxt(461)*y(27) + (rxt(463) + rxt(464) & + ) * y(26) + rxt(466)*y(42) + rxt(469)*y(47) + rxt(493)*y(3) & + + rxt(495)*y(38) + rxt(527)*y(15) + rxt(530)*y(20) + (rxt(532) & + + rxt(536)) * y(29)) + mat(976) = -rxt(306)*y(104) + mat(125) = -rxt(335)*y(104) + mat(1309) = -rxt(344)*y(104) + mat(435) = -rxt(410)*y(104) + mat(113) = -rxt(411)*y(104) + mat(671) = -rxt(412)*y(104) + mat(1490) = -rxt(413)*y(104) + mat(1595) = -rxt(414)*y(104) + mat(59) = -rxt(418)*y(104) + mat(1669) = -rxt(432)*y(104) + mat(256) = -rxt(433)*y(104) + mat(1062) = -rxt(441)*y(104) + mat(1634) = -rxt(442)*y(104) + mat(220) = -rxt(461)*y(104) + mat(1104) = -(rxt(463) + rxt(464)) * y(104) + mat(900) = -rxt(466)*y(104) + mat(189) = -rxt(469)*y(104) + mat(415) = -rxt(493)*y(104) + mat(183) = -rxt(495)*y(104) + mat(532) = -rxt(527)*y(104) + mat(36) = -rxt(530)*y(104) + mat(100) = -(rxt(532) + rxt(536)) * y(104) + mat(532) = mat(532) + rxt(526)*y(55) + mat(36) = mat(36) + .300_r8*rxt(530)*y(104) + mat(1189) = rxt(450)*y(71) + rxt(336)*y(105) + mat(1104) = mat(1104) + rxt(337)*y(105) + mat(158) = rxt(504)*y(110) + mat(935) = rxt(409)*y(57) + rxt(124)*y(67) + 2.000_r8*rxt(404)*y(71) + mat(435) = mat(435) + rxt(401)*y(55) + rxt(384)*y(95) + mat(113) = mat(113) + rxt(402)*y(55) + mat(183) = mat(183) + rxt(494)*y(55) + rxt(500)*y(95) + mat(900) = mat(900) + rxt(465)*y(55) + rxt(477)*y(95) + rxt(351)*y(106) + mat(1634) = mat(1634) + rxt(119)*y(64) + rxt(352)*y(106) + mat(167) = rxt(496)*y(55) + mat(189) = mat(189) + rxt(468)*y(55) + mat(1309) = mat(1309) + rxt(434)*y(71) + mat(1062) = mat(1062) + rxt(341)*y(105) + mat(1669) = mat(1669) + rxt(429)*y(71) + mat(1490) = mat(1490) + rxt(526)*y(15) + rxt(401)*y(35) + rxt(402)*y(37) & + + rxt(494)*y(38) + rxt(465)*y(42) + rxt(496)*y(46) + rxt(468) & + *y(47) + rxt(407)*y(71) + mat(1595) = mat(1595) + rxt(409)*y(34) + rxt(408)*y(71) + rxt(343)*y(105) + mat(738) = rxt(119)*y(44) + mat(587) = rxt(124)*y(34) + mat(1395) = rxt(133)*y(69) + mat(41) = rxt(133)*y(68) + rxt(134)*y(110) + mat(278) = rxt(184)*y(73) + rxt(198)*y(75) + rxt(167)*y(77) + rxt(237)*y(88) & + + rxt(219)*y(89) + rxt(202)*y(92) + rxt(144)*y(99) + mat(671) = mat(671) + rxt(450)*y(23) + 2.000_r8*rxt(404)*y(34) + rxt(434) & + *y(52) + rxt(429)*y(54) + rxt(407)*y(55) + rxt(408)*y(57) + mat(1018) = rxt(184)*y(70) + mat(1351) = rxt(198)*y(70) + mat(1435) = rxt(167)*y(70) + mat(814) = rxt(237)*y(70) + mat(856) = rxt(219)*y(70) + mat(976) = mat(976) + rxt(202)*y(70) + mat(562) = rxt(384)*y(35) + rxt(500)*y(38) + rxt(477)*y(42) & + + 2.000_r8*rxt(385)*y(110) + mat(1268) = rxt(144)*y(70) + mat(139) = rxt(323)*y(110) + mat(711) = mat(711) + .300_r8*rxt(530)*y(20) + mat(1522) = rxt(336)*y(23) + rxt(337)*y(26) + rxt(341)*y(53) + rxt(343)*y(57) + mat(1557) = rxt(351)*y(42) + rxt(352)*y(44) + rxt(350)*y(110) + mat(1720) = rxt(504)*y(33) + rxt(134)*y(69) + 2.000_r8*rxt(385)*y(95) & + + rxt(323)*y(100) + rxt(350)*y(106) end subroutine nlnmat07 - subroutine nlnmat08( avec_len, mat, y, rxt ) + subroutine nlnmat08( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,30) = -(rxt(k,393)*y(k,28) + rxt(k,395)*y(k,54) + rxt(k,396)*y(k,55) & - + rxt(k,397)*y(k,56)) - mat(k,1372) = -rxt(k,393)*y(k,97) - mat(k,944) = -rxt(k,395)*y(k,97) - mat(k,1248) = -rxt(k,396)*y(k,97) - mat(k,1414) = -rxt(k,397)*y(k,97) - mat(k,1248) = mat(k,1248) + rxt(k,387)*y(k,95) - mat(k,563) = rxt(k,387)*y(k,55) - mat(k,1314) = -(rxt(k,145)*y(k,99) + rxt(k,168)*y(k,77) + rxt(k,185)*y(k,73) & - + rxt(k,203)*y(k,92) + rxt(k,209)*y(k,75) + rxt(k,221)*y(k,89) & - + rxt(k,238)*y(k,88) + rxt(k,309)*y(k,60) + rxt(k,310)*y(k,24) & - + rxt(k,311)*y(k,28) + rxt(k,312)*y(k,32) + rxt(k,313)*y(k,40) & - + rxt(k,314)*y(k,42) + rxt(k,315)*y(k,52) + rxt(k,316)*y(k,96) & - + rxt(k,317)*y(k,55) + rxt(k,318)*y(k,56) + (rxt(k,319) & - + rxt(k,320)) * y(k,54)) - mat(k,1359) = -rxt(k,145)*y(k,98) - mat(k,1570) = -rxt(k,168)*y(k,98) - mat(k,840) = -rxt(k,185)*y(k,98) - mat(k,1072) = -rxt(k,203)*y(k,98) - mat(k,1200) = -rxt(k,209)*y(k,98) - mat(k,931) = -rxt(k,221)*y(k,98) - mat(k,888) = -rxt(k,238)*y(k,98) - mat(k,1682) = -rxt(k,309)*y(k,98) - mat(k,1527) = -rxt(k,310)*y(k,98) - mat(k,1401) = -rxt(k,311)*y(k,98) - mat(k,1718) = -rxt(k,312)*y(k,98) - mat(k,1484) = -rxt(k,313)*y(k,98) - mat(k,1112) = -rxt(k,314)*y(k,98) - mat(k,1157) = -rxt(k,315)*y(k,98) - mat(k,223) = -rxt(k,316)*y(k,98) - mat(k,1278) = -rxt(k,317)*y(k,98) - mat(k,1439) = -rxt(k,318)*y(k,98) - mat(k,987) = -(rxt(k,319) + rxt(k,320)) * y(k,98) - mat(k,987) = mat(k,987) + rxt(k,120)*y(k,65) + rxt(k,329)*y(k,101) - mat(k,1278) = mat(k,1278) + (rxt(k,128)+rxt(k,130))*y(k,69) - mat(k,797) = rxt(k,120)*y(k,54) - mat(k,1030) = (rxt(k,128)+rxt(k,130))*y(k,55) - mat(k,409) = rxt(k,329)*y(k,54) - mat(k,1360) = -(rxt(k,143)*y(k,83) + rxt(k,144)*y(k,71) + rxt(k,145)*y(k,98) & - + rxt(k,146)*y(k,68) + rxt(k,147)*y(k,85) + rxt(k,148)*y(k,66) & - + rxt(k,149)*y(k,61) + rxt(k,150)*y(k,67) + rxt(k,151)*y(k,82) & - + rxt(k,152)*y(k,86) + rxt(k,154)*y(k,62) + rxt(k,155)*y(k,84) & - + rxt(k,156)*y(k,81) + rxt(k,250)*y(k,87) + rxt(k,251)*y(k,65) & - + rxt(k,252)*y(k,63) + rxt(k,324)*y(k,110) + rxt(k,359)*y(k,55) & - + rxt(k,562)*y(k,69) + rxt(k,570)*y(k,48) + rxt(k,572)*y(k,51)) - mat(k,665) = -rxt(k,143)*y(k,99) - mat(k,305) = -rxt(k,144)*y(k,99) - mat(k,1315) = -rxt(k,145)*y(k,99) - mat(k,636) = -rxt(k,146)*y(k,99) - mat(k,531) = -rxt(k,147)*y(k,99) - mat(k,320) = -rxt(k,148)*y(k,99) - mat(k,609) = -rxt(k,149)*y(k,99) - mat(k,510) = -rxt(k,150)*y(k,99) - mat(k,380) = -rxt(k,151)*y(k,99) - mat(k,395) = -rxt(k,152)*y(k,99) - mat(k,364) = -rxt(k,154)*y(k,99) - mat(k,490) = -rxt(k,155)*y(k,99) - mat(k,725) = -rxt(k,156)*y(k,99) - mat(k,448) = -rxt(k,250)*y(k,99) - mat(k,798) = -rxt(k,251)*y(k,99) - mat(k,348) = -rxt(k,252)*y(k,99) - mat(k,1814) = -rxt(k,324)*y(k,99) - mat(k,1279) = -rxt(k,359)*y(k,99) - mat(k,1031) = -rxt(k,562)*y(k,99) - mat(k,279) = -rxt(k,570)*y(k,99) - mat(k,1761) = -rxt(k,572)*y(k,99) - mat(k,1402) = rxt(k,573)*y(k,107) - mat(k,988) = rxt(k,333)*y(k,103) - mat(k,1279) = mat(k,1279) + rxt(k,564)*y(k,80) + rxt(k,568)*y(k,94) & - + rxt(k,576)*y(k,107) + rxt(k,580)*y(k,108) - mat(k,94) = rxt(k,564)*y(k,55) - mat(k,182) = rxt(k,568)*y(k,55) - mat(k,224) = rxt(k,334)*y(k,103) - mat(k,1315) = mat(k,1315) + 2.000_r8*rxt(k,145)*y(k,99) - mat(k,1360) = mat(k,1360) + 2.000_r8*rxt(k,145)*y(k,98) - mat(k,292) = rxt(k,333)*y(k,54) + rxt(k,334)*y(k,96) - mat(k,252) = rxt(k,573)*y(k,28) + rxt(k,576)*y(k,55) - mat(k,70) = rxt(k,580)*y(k,55) - mat(k,142) = -(rxt(k,321)*y(k,69) + (rxt(k,322) + rxt(k,323)) * y(k,110)) - mat(k,1010) = -rxt(k,321)*y(k,100) - mat(k,1783) = -(rxt(k,322) + rxt(k,323)) * y(k,100) - mat(k,1327) = rxt(k,324)*y(k,110) - mat(k,283) = rxt(k,332)*y(k,110) - mat(k,1783) = mat(k,1783) + rxt(k,324)*y(k,99) + rxt(k,332)*y(k,103) - mat(k,401) = -((rxt(k,267) + rxt(k,274)) * y(k,51) + (rxt(k,272) + rxt(k,273) & - ) * y(k,52) + rxt(k,325)*y(k,28) + rxt(k,326)*y(k,32) + rxt(k,327) & - *y(k,56) + (rxt(k,328) + rxt(k,329)) * y(k,54)) - mat(k,1737) = -(rxt(k,267) + rxt(k,274)) * y(k,101) - mat(k,1132) = -(rxt(k,272) + rxt(k,273)) * y(k,101) - mat(k,1382) = -rxt(k,325)*y(k,101) - mat(k,1696) = -rxt(k,326)*y(k,101) - mat(k,1418) = -rxt(k,327)*y(k,101) - mat(k,964) = -(rxt(k,328) + rxt(k,329)) * y(k,101) - mat(k,964) = mat(k,964) + rxt(k,331)*y(k,102) - mat(k,1259) = rxt(k,121)*y(k,65) + rxt(k,357)*y(k,106) - mat(k,1418) = mat(k,1418) + rxt(k,127)*y(k,68) + rxt(k,318)*y(k,98) & - + rxt(k,343)*y(k,105) + rxt(k,358)*y(k,106) - mat(k,778) = rxt(k,121)*y(k,55) - mat(k,617) = rxt(k,127)*y(k,56) - mat(k,1295) = rxt(k,318)*y(k,56) - mat(k,96) = rxt(k,331)*y(k,54) - mat(k,1585) = rxt(k,343)*y(k,56) - mat(k,1618) = rxt(k,357)*y(k,55) + rxt(k,358)*y(k,56) - mat(k,95) = -(rxt(k,330)*y(k,28) + rxt(k,331)*y(k,54)) - mat(k,1373) = -rxt(k,330)*y(k,102) - mat(k,950) = -rxt(k,331)*y(k,102) - mat(k,1252) = rxt(k,317)*y(k,98) - mat(k,1291) = rxt(k,317)*y(k,55) - mat(k,285) = -(rxt(k,332)*y(k,110) + rxt(k,333)*y(k,54) + rxt(k,334)*y(k,96) & - + rxt(k,375)*y(k,69)) - mat(k,1786) = -rxt(k,332)*y(k,103) - mat(k,962) = -rxt(k,333)*y(k,103) - mat(k,220) = -rxt(k,334)*y(k,103) - mat(k,1015) = -rxt(k,375)*y(k,103) - mat(k,1258) = rxt(k,359)*y(k,99) - mat(k,1329) = rxt(k,359)*y(k,55) - mat(k,755) = -(rxt(k,306)*y(k,92) + rxt(k,335)*y(k,47) + rxt(k,344)*y(k,51) & - + rxt(k,410)*y(k,33) + rxt(k,411)*y(k,35) + rxt(k,412)*y(k,43) & - + rxt(k,413)*y(k,54) + rxt(k,414)*y(k,56) + (4._r8*rxt(k,415) & - + 4._r8*rxt(k,416)) * y(k,104) + rxt(k,418)*y(k,44) + rxt(k,432) & - *y(k,53) + rxt(k,433)*y(k,48) + rxt(k,441)*y(k,52) + rxt(k,442) & - *y(k,42) + rxt(k,461)*y(k,25) + (rxt(k,463) + rxt(k,464) & - ) * y(k,24) + rxt(k,466)*y(k,40) + rxt(k,469)*y(k,46) + rxt(k,493) & - *y(k,2) + rxt(k,495)*y(k,36) + rxt(k,527)*y(k,14) + rxt(k,530) & - *y(k,19) + (rxt(k,532) + rxt(k,536)) * y(k,27)) - mat(k,1059) = -rxt(k,306)*y(k,104) - mat(k,124) = -rxt(k,335)*y(k,104) - mat(k,1747) = -rxt(k,344)*y(k,104) - mat(k,423) = -rxt(k,410)*y(k,104) - mat(k,81) = -rxt(k,411)*y(k,104) - mat(k,687) = -rxt(k,412)*y(k,104) - mat(k,974) = -rxt(k,413)*y(k,104) - mat(k,1426) = -rxt(k,414)*y(k,104) - mat(k,53) = -rxt(k,418)*y(k,104) - mat(k,1223) = -rxt(k,432)*y(k,104) - mat(k,273) = -rxt(k,433)*y(k,104) - mat(k,1144) = -rxt(k,441)*y(k,104) - mat(k,1099) = -rxt(k,442)*y(k,104) - mat(k,202) = -rxt(k,461)*y(k,104) - mat(k,1514) = -(rxt(k,463) + rxt(k,464)) * y(k,104) - mat(k,1471) = -rxt(k,466)*y(k,104) - mat(k,185) = -rxt(k,469)*y(k,104) - mat(k,461) = -rxt(k,493)*y(k,104) - mat(k,195) = -rxt(k,495)*y(k,104) - mat(k,544) = -rxt(k,527)*y(k,104) - mat(k,42) = -rxt(k,530)*y(k,104) - mat(k,130) = -(rxt(k,532) + rxt(k,536)) * y(k,104) - mat(k,544) = mat(k,544) + rxt(k,526)*y(k,54) - mat(k,42) = mat(k,42) + .300_r8*rxt(k,530)*y(k,104) - mat(k,1514) = mat(k,1514) + rxt(k,337)*y(k,105) - mat(k,171) = rxt(k,504)*y(k,110) - mat(k,1705) = 2.000_r8*rxt(k,404)*y(k,43) + rxt(k,409)*y(k,56) + rxt(k,124) & - *y(k,68) - mat(k,423) = mat(k,423) + rxt(k,401)*y(k,54) + rxt(k,384)*y(k,95) - mat(k,81) = mat(k,81) + rxt(k,402)*y(k,54) - mat(k,195) = mat(k,195) + rxt(k,494)*y(k,54) + rxt(k,500)*y(k,95) - mat(k,1471) = mat(k,1471) + rxt(k,465)*y(k,54) + rxt(k,477)*y(k,95) & - + rxt(k,351)*y(k,106) - mat(k,1099) = mat(k,1099) + rxt(k,119)*y(k,65) + rxt(k,352)*y(k,106) - mat(k,687) = mat(k,687) + 2.000_r8*rxt(k,404)*y(k,32) + rxt(k,434)*y(k,51) & - + rxt(k,429)*y(k,53) + rxt(k,407)*y(k,54) + rxt(k,408)*y(k,56) & - + rxt(k,450)*y(k,60) - mat(k,154) = rxt(k,496)*y(k,54) - mat(k,185) = mat(k,185) + rxt(k,468)*y(k,54) - mat(k,1747) = mat(k,1747) + rxt(k,434)*y(k,43) - mat(k,1144) = mat(k,1144) + rxt(k,341)*y(k,105) - mat(k,1223) = mat(k,1223) + rxt(k,429)*y(k,43) - mat(k,974) = mat(k,974) + rxt(k,526)*y(k,14) + rxt(k,401)*y(k,33) & - + rxt(k,402)*y(k,35) + rxt(k,494)*y(k,36) + rxt(k,465)*y(k,40) & - + rxt(k,407)*y(k,43) + rxt(k,496)*y(k,45) + rxt(k,468)*y(k,46) - mat(k,1426) = mat(k,1426) + rxt(k,409)*y(k,32) + rxt(k,408)*y(k,43) & - + rxt(k,343)*y(k,105) - mat(k,1669) = rxt(k,450)*y(k,43) + rxt(k,336)*y(k,105) - mat(k,784) = rxt(k,119)*y(k,42) - mat(k,623) = rxt(k,124)*y(k,32) - mat(k,1018) = rxt(k,133)*y(k,70) - mat(k,35) = rxt(k,133)*y(k,69) + rxt(k,134)*y(k,110) - mat(k,298) = rxt(k,184)*y(k,73) + rxt(k,198)*y(k,75) + rxt(k,167)*y(k,77) & - + rxt(k,237)*y(k,88) + rxt(k,219)*y(k,89) + rxt(k,202)*y(k,92) & - + rxt(k,144)*y(k,99) - mat(k,827) = rxt(k,184)*y(k,71) - mat(k,1187) = rxt(k,198)*y(k,71) - mat(k,1557) = rxt(k,167)*y(k,71) - mat(k,875) = rxt(k,237)*y(k,71) - mat(k,918) = rxt(k,219)*y(k,71) - mat(k,1059) = mat(k,1059) + rxt(k,202)*y(k,71) - mat(k,575) = rxt(k,384)*y(k,33) + rxt(k,500)*y(k,36) + rxt(k,477)*y(k,40) & - + 2.000_r8*rxt(k,385)*y(k,110) - mat(k,1346) = rxt(k,144)*y(k,71) - mat(k,143) = rxt(k,323)*y(k,110) - mat(k,755) = mat(k,755) + .300_r8*rxt(k,530)*y(k,19) - mat(k,1590) = rxt(k,337)*y(k,24) + rxt(k,341)*y(k,52) + rxt(k,343)*y(k,56) & - + rxt(k,336)*y(k,60) - mat(k,1626) = rxt(k,351)*y(k,40) + rxt(k,352)*y(k,42) + rxt(k,350)*y(k,110) - mat(k,1800) = rxt(k,504)*y(k,31) + rxt(k,134)*y(k,70) + 2.000_r8*rxt(k,385) & - *y(k,95) + rxt(k,323)*y(k,100) + rxt(k,350)*y(k,106) - mat(k,1610) = -(rxt(k,336)*y(k,60) + rxt(k,337)*y(k,24) + rxt(k,338)*y(k,28) & - + rxt(k,339)*y(k,32) + rxt(k,340)*y(k,40) + rxt(k,341)*y(k,52) & - + rxt(k,342)*y(k,54) + rxt(k,343)*y(k,56)) - mat(k,1689) = -rxt(k,336)*y(k,105) - mat(k,1534) = -rxt(k,337)*y(k,105) - mat(k,1408) = -rxt(k,338)*y(k,105) - mat(k,1725) = -rxt(k,339)*y(k,105) - mat(k,1491) = -rxt(k,340)*y(k,105) - mat(k,1164) = -rxt(k,341)*y(k,105) - mat(k,994) = -rxt(k,342)*y(k,105) - mat(k,1446) = -rxt(k,343)*y(k,105) - mat(k,1725) = mat(k,1725) + rxt(k,112)*y(k,65) + rxt(k,282)*y(k,81) & - + rxt(k,326)*y(k,101) - mat(k,432) = rxt(k,349)*y(k,106) - mat(k,804) = rxt(k,112)*y(k,32) - mat(k,730) = rxt(k,282)*y(k,32) - mat(k,412) = rxt(k,326)*y(k,32) - mat(k,1646) = rxt(k,349)*y(k,33) + rxt(k,350)*y(k,110) - mat(k,1820) = rxt(k,350)*y(k,106) - end do + mat(1542) = -(rxt(336)*y(23) + rxt(337)*y(26) + rxt(339)*y(34) + rxt(340) & + *y(42) + rxt(341)*y(53) + rxt(342)*y(55) + rxt(343)*y(57)) + mat(1209) = -rxt(336)*y(105) + mat(1124) = -rxt(337)*y(105) + mat(955) = -rxt(339)*y(105) + mat(920) = -rxt(340)*y(105) + mat(1082) = -rxt(341)*y(105) + mat(1510) = -rxt(342)*y(105) + mat(1615) = -rxt(343)*y(105) + mat(955) = mat(955) + rxt(112)*y(64) + rxt(282)*y(81) + rxt(326)*y(101) + mat(445) = rxt(349)*y(106) + mat(758) = rxt(112)*y(34) + mat(787) = rxt(282)*y(34) + mat(387) = rxt(326)*y(34) + mat(1577) = rxt(349)*y(35) + rxt(350)*y(110) + mat(1740) = rxt(350)*y(106) + mat(1578) = -(rxt(131)*y(52) + rxt(345)*y(23) + rxt(346)*y(26) + (rxt(348) & + + rxt(349)) * y(35) + rxt(350)*y(110) + rxt(351)*y(42) + rxt(352) & + *y(44) + rxt(354)*y(53) + rxt(355)*y(55) + rxt(356)*y(96) & + + rxt(357)*y(56) + rxt(358)*y(57)) + mat(1330) = -rxt(131)*y(106) + mat(1210) = -rxt(345)*y(106) + mat(1125) = -rxt(346)*y(106) + mat(446) = -(rxt(348) + rxt(349)) * y(106) + mat(1741) = -rxt(350)*y(106) + mat(921) = -rxt(351)*y(106) + mat(1655) = -rxt(352)*y(106) + mat(1083) = -rxt(354)*y(106) + mat(1511) = -rxt(355)*y(106) + mat(201) = -rxt(356)*y(106) + mat(1168) = -rxt(357)*y(106) + mat(1616) = -rxt(358)*y(106) + mat(1511) = mat(1511) + rxt(320)*y(98) + mat(1616) = mat(1616) + rxt(129)*y(68) + mat(1414) = rxt(129)*y(57) + mat(1245) = rxt(320)*y(55) + mat(206) = -(rxt(575)*y(79) + rxt(576)*y(56)) + mat(148) = -rxt(575)*y(107) + mat(1138) = -rxt(576)*y(107) + mat(1475) = rxt(566)*y(80) + rxt(567)*y(94) + rxt(579)*y(108) + rxt(585) & + *y(109) + mat(1390) = rxt(577)*y(108) + rxt(582)*y(109) + mat(104) = rxt(566)*y(55) + mat(173) = rxt(567)*y(55) + mat(86) = rxt(579)*y(55) + rxt(577)*y(68) + mat(81) = rxt(585)*y(55) + rxt(582)*y(68) + mat(84) = -(rxt(577)*y(68) + rxt(579)*y(55) + rxt(580)*y(56)) + mat(1382) = -rxt(577)*y(108) + mat(1464) = -rxt(579)*y(108) + mat(1133) = -rxt(580)*y(108) + mat(1382) = mat(1382) + rxt(581)*y(109) + mat(78) = rxt(581)*y(68) + mat(77) = -((rxt(581) + rxt(582)) * y(68) + rxt(585)*y(55)) + mat(1381) = -(rxt(581) + rxt(582)) * y(109) + mat(1463) = -rxt(585)*y(109) + mat(1745) = -(rxt(102)*y(60) + rxt(113)*y(66) + rxt(114)*y(64) + rxt(134) & + *y(69) + rxt(135)*y(74) + rxt(138)*y(76) + rxt(283)*y(81) & + + rxt(289)*y(85) + rxt(291)*y(83) + rxt(300)*y(90) + rxt(302) & + *y(91) + rxt(308)*y(93) + (rxt(322) + rxt(323)) * y(100) + rxt(324) & + *y(99) + rxt(332)*y(103) + rxt(350)*y(106) + rxt(360)*y(88) & + + rxt(361)*y(92) + rxt(362)*y(89) + rxt(367)*y(78) + rxt(369) & + *y(72) + rxt(371)*y(73) + rxt(373)*y(75) + rxt(385)*y(95) & + + rxt(504)*y(33)) + mat(631) = -rxt(102)*y(110) + mat(503) = -rxt(113)*y(110) + mat(763) = -rxt(114)*y(110) + mat(44) = -rxt(134)*y(110) + mat(28) = -rxt(135)*y(110) + mat(32) = -rxt(138)*y(110) + mat(792) = -rxt(283)*y(110) + mat(523) = -rxt(289)*y(110) + mat(656) = -rxt(291)*y(110) + mat(50) = -rxt(300)*y(110) + mat(76) = -rxt(302)*y(110) + mat(70) = -rxt(308)*y(110) + mat(145) = -(rxt(322) + rxt(323)) * y(110) + mat(1293) = -rxt(324)*y(110) + mat(303) = -rxt(332)*y(110) + mat(1582) = -rxt(350)*y(110) + mat(839) = -rxt(360)*y(110) + mat(1001) = -rxt(361)*y(110) + mat(881) = -rxt(362)*y(110) + mat(134) = -rxt(367)*y(110) + mat(123) = -rxt(369)*y(110) + mat(1043) = -rxt(371)*y(110) + mat(1376) = -rxt(373)*y(110) + mat(580) = -rxt(385)*y(110) + mat(162) = -rxt(504)*y(110) + mat(547) = rxt(527)*y(104) + mat(38) = rxt(530)*y(104) + mat(960) = rxt(405)*y(71) + rxt(339)*y(105) + mat(449) = rxt(410)*y(104) + rxt(348)*y(106) + mat(117) = rxt(411)*y(104) + mat(186) = rxt(495)*y(104) + mat(925) = (rxt(549)+rxt(554))*y(46) + (rxt(542)+rxt(548)+rxt(553))*y(47) & + + rxt(101)*y(61) + rxt(466)*y(104) + rxt(340)*y(105) + mat(1659) = rxt(290)*y(85) + rxt(442)*y(104) + mat(63) = rxt(418)*y(104) + mat(171) = (rxt(549)+rxt(554))*y(42) + mat(194) = (rxt(542)+rxt(548)+rxt(553))*y(42) + rxt(469)*y(104) + mat(128) = rxt(335)*y(104) + mat(250) = rxt(288)*y(84) + mat(1334) = rxt(118)*y(66) + mat(1087) = rxt(115)*y(66) + mat(631) = mat(631) + 3.000_r8*rxt(190)*y(73) + 4.000_r8*rxt(142)*y(75) & + + 5.000_r8*rxt(172)*y(77) + 2.000_r8*rxt(225)*y(89) + rxt(207) & + *y(92) + mat(361) = rxt(101)*y(42) + 4.000_r8*rxt(194)*y(73) + 5.000_r8*rxt(159)*y(75) & + + 6.000_r8*rxt(177)*y(77) + rxt(247)*y(88) + 3.000_r8*rxt(229) & + *y(89) + 2.000_r8*rxt(212)*y(92) + rxt(154)*y(99) + mat(345) = 3.000_r8*rxt(182)*y(73) + (4.000_r8*rxt(176)+4.000_r8*rxt(262)) & + *y(75) + (5.000_r8*rxt(164)+5.000_r8*rxt(263))*y(77) & + + 2.000_r8*rxt(217)*y(89) + rxt(200)*y(92) + mat(763) = mat(763) + 3.000_r8*rxt(181)*y(73) + (4.000_r8*rxt(165) & + +4.000_r8*rxt(253))*y(75) + (5.000_r8*rxt(163) & + +5.000_r8*rxt(260))*y(77) + 2.000_r8*rxt(216)*y(89) + rxt(199) & + *y(92) + mat(317) = 5.000_r8*rxt(189)*y(73) + (6.000_r8*rxt(242)+6.000_r8*rxt(266)) & + *y(75) + (7.000_r8*rxt(171)+7.000_r8*rxt(254))*y(77) & + + 2.000_r8*rxt(241)*y(88) + 4.000_r8*rxt(224)*y(89) & + + 3.000_r8*rxt(206)*y(92) + 2.000_r8*rxt(148)*y(99) + mat(503) = mat(503) + rxt(118)*y(52) + rxt(115)*y(53) + 4.000_r8*rxt(191) & + *y(73) + (5.000_r8*rxt(153)+5.000_r8*rxt(255))*y(75) + ( & + + 6.000_r8*rxt(173)+6.000_r8*rxt(256))*y(77) + rxt(244)*y(88) & + + 3.000_r8*rxt(226)*y(89) + 2.000_r8*rxt(208)*y(92) + rxt(150) & + *y(99) + mat(610) = 3.000_r8*rxt(186)*y(73) + 4.000_r8*rxt(220)*y(75) & + + 5.000_r8*rxt(169)*y(77) + 2.000_r8*rxt(222)*y(89) + rxt(204) & + *y(92) + mat(1418) = rxt(133)*y(69) + 2.000_r8*rxt(377)*y(72) + 3.000_r8*rxt(378) & + *y(73) + 4.000_r8*rxt(136)*y(75) + 5.000_r8*rxt(139)*y(77) & + + rxt(376)*y(78) + 2.000_r8*rxt(298)*y(89) + 3.000_r8*rxt(299) & + *y(90) + rxt(303)*y(92) + rxt(321)*y(100) + mat(44) = mat(44) + rxt(133)*y(68) + mat(289) = 3.000_r8*rxt(184)*y(73) + 4.000_r8*rxt(198)*y(75) & + + 5.000_r8*rxt(167)*y(77) + 2.000_r8*rxt(219)*y(89) + rxt(202) & + *y(92) + mat(690) = rxt(405)*y(34) + rxt(412)*y(104) + mat(123) = mat(123) + 2.000_r8*rxt(377)*y(68) + mat(1043) = mat(1043) + 3.000_r8*rxt(190)*y(60) + 4.000_r8*rxt(194)*y(61) & + + 3.000_r8*rxt(182)*y(62) + 3.000_r8*rxt(181)*y(64) & + + 5.000_r8*rxt(189)*y(65) + 4.000_r8*rxt(191)*y(66) & + + 3.000_r8*rxt(186)*y(67) + 3.000_r8*rxt(378)*y(68) & + + 3.000_r8*rxt(184)*y(70) + 3.000_r8*rxt(196)*y(81) & + + 4.000_r8*rxt(192)*y(82) + 3.000_r8*rxt(183)*y(83) & + + 5.000_r8*rxt(195)*y(84) + 4.000_r8*rxt(188)*y(85) & + + 3.000_r8*rxt(193)*y(86) + 3.000_r8*rxt(180)*y(87) & + + 3.000_r8*rxt(185)*y(98) + mat(1376) = mat(1376) + 4.000_r8*rxt(142)*y(60) + 5.000_r8*rxt(159)*y(61) + ( & + + 4.000_r8*rxt(176)+4.000_r8*rxt(262))*y(62) + ( & + + 4.000_r8*rxt(165)+4.000_r8*rxt(253))*y(64) + ( & + + 6.000_r8*rxt(242)+6.000_r8*rxt(266))*y(65) + ( & + + 5.000_r8*rxt(153)+5.000_r8*rxt(255))*y(66) + 4.000_r8*rxt(220) & + *y(67) + 4.000_r8*rxt(136)*y(68) + 4.000_r8*rxt(198)*y(70) & + + 4.000_r8*rxt(161)*y(81) + 5.000_r8*rxt(157)*y(82) + ( & + + 4.000_r8*rxt(187)+4.000_r8*rxt(259))*y(83) + 6.000_r8*rxt(160) & + *y(84) + (5.000_r8*rxt(231)+5.000_r8*rxt(257))*y(85) & + + 4.000_r8*rxt(158)*y(86) + (4.000_r8*rxt(141)+4.000_r8*rxt(264)) & + *y(87) + 4.000_r8*rxt(209)*y(98) + mat(1460) = 5.000_r8*rxt(172)*y(60) + 6.000_r8*rxt(177)*y(61) + ( & + + 5.000_r8*rxt(164)+5.000_r8*rxt(263))*y(62) + ( & + + 5.000_r8*rxt(163)+5.000_r8*rxt(260))*y(64) + ( & + + 7.000_r8*rxt(171)+7.000_r8*rxt(254))*y(65) + ( & + + 6.000_r8*rxt(173)+6.000_r8*rxt(256))*y(66) + 5.000_r8*rxt(169) & + *y(67) + 5.000_r8*rxt(139)*y(68) + 5.000_r8*rxt(167)*y(70) & + + 5.000_r8*rxt(179)*y(81) + 6.000_r8*rxt(174)*y(82) + ( & + + 5.000_r8*rxt(166)+5.000_r8*rxt(261))*y(83) + 7.000_r8*rxt(178) & + *y(84) + (6.000_r8*rxt(170)+6.000_r8*rxt(258))*y(85) & + + 5.000_r8*rxt(175)*y(86) + (5.000_r8*rxt(162)+5.000_r8*rxt(265)) & + *y(87) + 5.000_r8*rxt(168)*y(98) + mat(134) = mat(134) + rxt(376)*y(68) + mat(792) = mat(792) + 3.000_r8*rxt(196)*y(73) + 4.000_r8*rxt(161)*y(75) & + + 5.000_r8*rxt(179)*y(77) + 2.000_r8*rxt(232)*y(89) + rxt(214) & + *y(92) + mat(375) = 4.000_r8*rxt(192)*y(73) + 5.000_r8*rxt(157)*y(75) & + + 6.000_r8*rxt(174)*y(77) + rxt(245)*y(88) + 3.000_r8*rxt(227) & + *y(89) + 2.000_r8*rxt(210)*y(92) + rxt(151)*y(99) + mat(656) = mat(656) + 3.000_r8*rxt(183)*y(73) + (4.000_r8*rxt(187) & + +4.000_r8*rxt(259))*y(75) + (5.000_r8*rxt(166) & + +5.000_r8*rxt(261))*y(77) + 2.000_r8*rxt(218)*y(89) + rxt(201) & + *y(92) + mat(483) = rxt(288)*y(51) + 5.000_r8*rxt(195)*y(73) + 6.000_r8*rxt(160)*y(75) & + + 7.000_r8*rxt(178)*y(77) + 2.000_r8*rxt(248)*y(88) & + + 4.000_r8*rxt(230)*y(89) + 3.000_r8*rxt(213)*y(92) & + + 2.000_r8*rxt(155)*y(99) + mat(523) = mat(523) + rxt(290)*y(44) + 4.000_r8*rxt(188)*y(73) + ( & + + 5.000_r8*rxt(231)+5.000_r8*rxt(257))*y(75) + ( & + + 6.000_r8*rxt(170)+6.000_r8*rxt(258))*y(77) + rxt(240)*y(88) & + + 3.000_r8*rxt(223)*y(89) + 2.000_r8*rxt(205)*y(92) + rxt(147) & + *y(99) + mat(405) = 3.000_r8*rxt(193)*y(73) + 4.000_r8*rxt(158)*y(75) & + + 5.000_r8*rxt(175)*y(77) + 2.000_r8*rxt(228)*y(89) + rxt(211) & + *y(92) + mat(463) = 3.000_r8*rxt(180)*y(73) + (4.000_r8*rxt(141)+4.000_r8*rxt(264)) & + *y(75) + (5.000_r8*rxt(162)+5.000_r8*rxt(265))*y(77) & + + 2.000_r8*rxt(215)*y(89) + rxt(197)*y(92) + mat(839) = mat(839) + rxt(247)*y(61) + 2.000_r8*rxt(241)*y(65) + rxt(244) & + *y(66) + rxt(245)*y(82) + 2.000_r8*rxt(248)*y(84) + rxt(240) & + *y(85) + mat(881) = mat(881) + 2.000_r8*rxt(225)*y(60) + 3.000_r8*rxt(229)*y(61) & + + 2.000_r8*rxt(217)*y(62) + 2.000_r8*rxt(216)*y(64) & + + 4.000_r8*rxt(224)*y(65) + 3.000_r8*rxt(226)*y(66) & + + 2.000_r8*rxt(222)*y(67) + 2.000_r8*rxt(298)*y(68) & + + 2.000_r8*rxt(219)*y(70) + 2.000_r8*rxt(232)*y(81) & + + 3.000_r8*rxt(227)*y(82) + 2.000_r8*rxt(218)*y(83) & + + 4.000_r8*rxt(230)*y(84) + 3.000_r8*rxt(223)*y(85) & + + 2.000_r8*rxt(228)*y(86) + 2.000_r8*rxt(215)*y(87) & + + 2.000_r8*rxt(221)*y(98) + mat(50) = mat(50) + 3.000_r8*rxt(299)*y(68) + mat(1001) = mat(1001) + rxt(207)*y(60) + 2.000_r8*rxt(212)*y(61) + rxt(200) & + *y(62) + rxt(199)*y(64) + 3.000_r8*rxt(206)*y(65) & + + 2.000_r8*rxt(208)*y(66) + rxt(204)*y(67) + rxt(303)*y(68) & + + rxt(202)*y(70) + rxt(214)*y(81) + 2.000_r8*rxt(210)*y(82) & + + rxt(201)*y(83) + 3.000_r8*rxt(213)*y(84) + 2.000_r8*rxt(205) & + *y(85) + rxt(211)*y(86) + rxt(197)*y(87) + rxt(203)*y(98) + mat(1249) = 3.000_r8*rxt(185)*y(73) + 4.000_r8*rxt(209)*y(75) & + + 5.000_r8*rxt(168)*y(77) + 2.000_r8*rxt(221)*y(89) + rxt(203) & + *y(92) + mat(1293) = mat(1293) + rxt(154)*y(61) + 2.000_r8*rxt(148)*y(65) + rxt(150) & + *y(66) + rxt(151)*y(82) + 2.000_r8*rxt(155)*y(84) + rxt(147) & + *y(85) + mat(145) = mat(145) + rxt(321)*y(68) + mat(731) = rxt(527)*y(15) + rxt(530)*y(20) + rxt(410)*y(35) + rxt(411)*y(37) & + + rxt(495)*y(38) + rxt(466)*y(42) + rxt(442)*y(44) + rxt(418) & + *y(45) + rxt(469)*y(47) + rxt(335)*y(48) + rxt(412)*y(71) & + + 2.000_r8*rxt(415)*y(104) + mat(1547) = rxt(339)*y(34) + rxt(340)*y(42) + mat(1582) = mat(1582) + rxt(348)*y(35) end subroutine nlnmat08 - subroutine nlnmat09( avec_len, mat, y, rxt ) + subroutine nlnmat_finit( mat, lmat, dti ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: dti + real(r8), intent(in) :: lmat(nzcnt) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,1647) = -(rxt(k,131)*y(k,51) + rxt(k,345)*y(k,60) + rxt(k,346)*y(k,24) & - + rxt(k,347)*y(k,28) + (rxt(k,348) + rxt(k,349)) * y(k,33) & - + rxt(k,350)*y(k,110) + rxt(k,351)*y(k,40) + rxt(k,352)*y(k,42) & - + rxt(k,354)*y(k,52) + rxt(k,355)*y(k,54) + rxt(k,356)*y(k,96) & - + rxt(k,357)*y(k,55) + rxt(k,358)*y(k,56)) - mat(k,1768) = -rxt(k,131)*y(k,106) - mat(k,1690) = -rxt(k,345)*y(k,106) - mat(k,1535) = -rxt(k,346)*y(k,106) - mat(k,1409) = -rxt(k,347)*y(k,106) - mat(k,433) = -(rxt(k,348) + rxt(k,349)) * y(k,106) - mat(k,1821) = -rxt(k,350)*y(k,106) - mat(k,1492) = -rxt(k,351)*y(k,106) - mat(k,1120) = -rxt(k,352)*y(k,106) - mat(k,1165) = -rxt(k,354)*y(k,106) - mat(k,995) = -rxt(k,355)*y(k,106) - mat(k,226) = -rxt(k,356)*y(k,106) - mat(k,1286) = -rxt(k,357)*y(k,106) - mat(k,1447) = -rxt(k,358)*y(k,106) - mat(k,995) = mat(k,995) + rxt(k,320)*y(k,98) - mat(k,1447) = mat(k,1447) + rxt(k,129)*y(k,69) - mat(k,1038) = rxt(k,129)*y(k,56) - mat(k,1322) = rxt(k,320)*y(k,54) - mat(k,244) = -(rxt(k,573)*y(k,28) + rxt(k,575)*y(k,79) + rxt(k,576)*y(k,55)) - mat(k,1378) = -rxt(k,573)*y(k,107) - mat(k,161) = -rxt(k,575)*y(k,107) - mat(k,1256) = -rxt(k,576)*y(k,107) - mat(k,960) = rxt(k,566)*y(k,80) + rxt(k,567)*y(k,94) + rxt(k,579)*y(k,108) & - + rxt(k,585)*y(k,109) - mat(k,1013) = rxt(k,577)*y(k,108) + rxt(k,582)*y(k,109) - mat(k,88) = rxt(k,566)*y(k,54) - mat(k,177) = rxt(k,567)*y(k,54) - mat(k,67) = rxt(k,579)*y(k,54) + rxt(k,577)*y(k,69) - mat(k,62) = rxt(k,585)*y(k,54) + rxt(k,582)*y(k,69) - mat(k,65) = -(rxt(k,577)*y(k,69) + rxt(k,579)*y(k,54) + rxt(k,580)*y(k,55)) - mat(k,1003) = -rxt(k,577)*y(k,108) - mat(k,946) = -rxt(k,579)*y(k,108) - mat(k,1250) = -rxt(k,580)*y(k,108) - mat(k,1003) = mat(k,1003) + rxt(k,581)*y(k,109) - mat(k,59) = rxt(k,581)*y(k,69) - mat(k,58) = -((rxt(k,581) + rxt(k,582)) * y(k,69) + rxt(k,585)*y(k,54)) - mat(k,1002) = -(rxt(k,581) + rxt(k,582)) * y(k,109) - mat(k,945) = -rxt(k,585)*y(k,109) - mat(k,1825) = -(rxt(k,102)*y(k,61) + rxt(k,113)*y(k,67) + rxt(k,114)*y(k,65) & - + rxt(k,134)*y(k,70) + rxt(k,135)*y(k,74) + rxt(k,138)*y(k,76) & - + rxt(k,283)*y(k,81) + rxt(k,289)*y(k,85) + rxt(k,291)*y(k,83) & - + rxt(k,300)*y(k,90) + rxt(k,302)*y(k,91) + rxt(k,308)*y(k,93) & - + (rxt(k,322) + rxt(k,323)) * y(k,100) + rxt(k,324)*y(k,99) & - + rxt(k,332)*y(k,103) + rxt(k,350)*y(k,106) + rxt(k,360)*y(k,88) & - + rxt(k,361)*y(k,92) + rxt(k,362)*y(k,89) + rxt(k,367)*y(k,78) & - + rxt(k,369)*y(k,72) + rxt(k,371)*y(k,73) + rxt(k,373)*y(k,75) & - + rxt(k,385)*y(k,95) + rxt(k,504)*y(k,31)) - mat(k,615) = -rxt(k,102)*y(k,110) - mat(k,515) = -rxt(k,113)*y(k,110) - mat(k,809) = -rxt(k,114)*y(k,110) - mat(k,38) = -rxt(k,134)*y(k,110) - mat(k,25) = -rxt(k,135)*y(k,110) - mat(k,29) = -rxt(k,138)*y(k,110) - mat(k,734) = -rxt(k,283)*y(k,110) - mat(k,535) = -rxt(k,289)*y(k,110) - mat(k,672) = -rxt(k,291)*y(k,110) - mat(k,50) = -rxt(k,300)*y(k,110) - mat(k,122) = -rxt(k,302)*y(k,110) - mat(k,115) = -rxt(k,308)*y(k,110) - mat(k,149) = -(rxt(k,322) + rxt(k,323)) * y(k,110) - mat(k,1371) = -rxt(k,324)*y(k,110) - mat(k,296) = -rxt(k,332)*y(k,110) - mat(k,1651) = -rxt(k,350)*y(k,110) - mat(k,900) = -rxt(k,360)*y(k,110) - mat(k,1084) = -rxt(k,361)*y(k,110) - mat(k,943) = -rxt(k,362)*y(k,110) - mat(k,138) = -rxt(k,367)*y(k,110) - mat(k,107) = -rxt(k,369)*y(k,110) - mat(k,852) = -rxt(k,371)*y(k,110) - mat(k,1212) = -rxt(k,373)*y(k,110) - mat(k,594) = -rxt(k,385)*y(k,110) - mat(k,175) = -rxt(k,504)*y(k,110) - mat(k,560) = rxt(k,527)*y(k,104) - mat(k,44) = rxt(k,530)*y(k,104) - mat(k,1730) = rxt(k,405)*y(k,43) + rxt(k,339)*y(k,105) - mat(k,437) = rxt(k,410)*y(k,104) + rxt(k,348)*y(k,106) - mat(k,85) = rxt(k,411)*y(k,104) - mat(k,198) = rxt(k,495)*y(k,104) - mat(k,1496) = (rxt(k,549)+rxt(k,554))*y(k,45) + (rxt(k,542)+rxt(k,548) & - +rxt(k,553))*y(k,46) + rxt(k,101)*y(k,62) + rxt(k,466)*y(k,104) & - + rxt(k,340)*y(k,105) - mat(k,1124) = rxt(k,290)*y(k,85) + rxt(k,442)*y(k,104) - mat(k,707) = rxt(k,405)*y(k,32) + rxt(k,412)*y(k,104) - mat(k,57) = rxt(k,418)*y(k,104) - mat(k,158) = (rxt(k,549)+rxt(k,554))*y(k,40) - mat(k,190) = (rxt(k,542)+rxt(k,548)+rxt(k,553))*y(k,40) + rxt(k,469)*y(k,104) - mat(k,127) = rxt(k,335)*y(k,104) - mat(k,240) = rxt(k,288)*y(k,84) - mat(k,1772) = rxt(k,118)*y(k,67) - mat(k,1169) = rxt(k,115)*y(k,67) - mat(k,615) = mat(k,615) + 3.000_r8*rxt(k,190)*y(k,73) + 4.000_r8*rxt(k,142) & - *y(k,75) + 5.000_r8*rxt(k,172)*y(k,77) + 2.000_r8*rxt(k,225) & - *y(k,89) + rxt(k,207)*y(k,92) - mat(k,370) = rxt(k,101)*y(k,40) + 4.000_r8*rxt(k,194)*y(k,73) & - + 5.000_r8*rxt(k,159)*y(k,75) + 6.000_r8*rxt(k,177)*y(k,77) & - + rxt(k,247)*y(k,88) + 3.000_r8*rxt(k,229)*y(k,89) & - + 2.000_r8*rxt(k,212)*y(k,92) + rxt(k,154)*y(k,99) - mat(k,354) = 3.000_r8*rxt(k,182)*y(k,73) + (4.000_r8*rxt(k,176) & - +4.000_r8*rxt(k,262))*y(k,75) + (5.000_r8*rxt(k,164) & - +5.000_r8*rxt(k,263))*y(k,77) + 2.000_r8*rxt(k,217)*y(k,89) & - + rxt(k,200)*y(k,92) - mat(k,809) = mat(k,809) + 3.000_r8*rxt(k,181)*y(k,73) + (4.000_r8*rxt(k,165) & - +4.000_r8*rxt(k,253))*y(k,75) + (5.000_r8*rxt(k,163) & - +5.000_r8*rxt(k,260))*y(k,77) + 2.000_r8*rxt(k,216)*y(k,89) & - + rxt(k,199)*y(k,92) - mat(k,325) = 5.000_r8*rxt(k,189)*y(k,73) + (6.000_r8*rxt(k,242) & - +6.000_r8*rxt(k,266))*y(k,75) + (7.000_r8*rxt(k,171) & - +7.000_r8*rxt(k,254))*y(k,77) + 2.000_r8*rxt(k,241)*y(k,88) & - + 4.000_r8*rxt(k,224)*y(k,89) + 3.000_r8*rxt(k,206)*y(k,92) & - + 2.000_r8*rxt(k,148)*y(k,99) - mat(k,515) = mat(k,515) + rxt(k,118)*y(k,51) + rxt(k,115)*y(k,52) & - + 4.000_r8*rxt(k,191)*y(k,73) + (5.000_r8*rxt(k,153) & - +5.000_r8*rxt(k,255))*y(k,75) + (6.000_r8*rxt(k,173) & - +6.000_r8*rxt(k,256))*y(k,77) + rxt(k,244)*y(k,88) & - + 3.000_r8*rxt(k,226)*y(k,89) + 2.000_r8*rxt(k,208)*y(k,92) & - + rxt(k,150)*y(k,99) - mat(k,647) = 3.000_r8*rxt(k,186)*y(k,73) + 4.000_r8*rxt(k,220)*y(k,75) & - + 5.000_r8*rxt(k,169)*y(k,77) + 2.000_r8*rxt(k,222)*y(k,89) & - + rxt(k,204)*y(k,92) - mat(k,1042) = rxt(k,133)*y(k,70) + 2.000_r8*rxt(k,377)*y(k,72) & - + 3.000_r8*rxt(k,378)*y(k,73) + 4.000_r8*rxt(k,136)*y(k,75) & - + 5.000_r8*rxt(k,139)*y(k,77) + rxt(k,376)*y(k,78) & - + 2.000_r8*rxt(k,298)*y(k,89) + 3.000_r8*rxt(k,299)*y(k,90) & - + rxt(k,303)*y(k,92) + rxt(k,321)*y(k,100) - mat(k,38) = mat(k,38) + rxt(k,133)*y(k,69) - mat(k,310) = 3.000_r8*rxt(k,184)*y(k,73) + 4.000_r8*rxt(k,198)*y(k,75) & - + 5.000_r8*rxt(k,167)*y(k,77) + 2.000_r8*rxt(k,219)*y(k,89) & - + rxt(k,202)*y(k,92) - mat(k,107) = mat(k,107) + 2.000_r8*rxt(k,377)*y(k,69) - mat(k,852) = mat(k,852) + 3.000_r8*rxt(k,190)*y(k,61) + 4.000_r8*rxt(k,194) & - *y(k,62) + 3.000_r8*rxt(k,182)*y(k,63) + 3.000_r8*rxt(k,181) & - *y(k,65) + 5.000_r8*rxt(k,189)*y(k,66) + 4.000_r8*rxt(k,191) & - *y(k,67) + 3.000_r8*rxt(k,186)*y(k,68) + 3.000_r8*rxt(k,378) & - *y(k,69) + 3.000_r8*rxt(k,184)*y(k,71) + 3.000_r8*rxt(k,196) & - *y(k,81) + 4.000_r8*rxt(k,192)*y(k,82) + 3.000_r8*rxt(k,183) & - *y(k,83) + 5.000_r8*rxt(k,195)*y(k,84) + 4.000_r8*rxt(k,188) & - *y(k,85) + 3.000_r8*rxt(k,193)*y(k,86) + 3.000_r8*rxt(k,180) & - *y(k,87) + 3.000_r8*rxt(k,185)*y(k,98) - mat(k,1212) = mat(k,1212) + 4.000_r8*rxt(k,142)*y(k,61) + 5.000_r8*rxt(k,159) & - *y(k,62) + (4.000_r8*rxt(k,176)+4.000_r8*rxt(k,262))*y(k,63) + ( & - + 4.000_r8*rxt(k,165)+4.000_r8*rxt(k,253))*y(k,65) + ( & - + 6.000_r8*rxt(k,242)+6.000_r8*rxt(k,266))*y(k,66) + ( & - + 5.000_r8*rxt(k,153)+5.000_r8*rxt(k,255))*y(k,67) & - + 4.000_r8*rxt(k,220)*y(k,68) + 4.000_r8*rxt(k,136)*y(k,69) & - + 4.000_r8*rxt(k,198)*y(k,71) + 4.000_r8*rxt(k,161)*y(k,81) & - + 5.000_r8*rxt(k,157)*y(k,82) + (4.000_r8*rxt(k,187) & - +4.000_r8*rxt(k,259))*y(k,83) + 6.000_r8*rxt(k,160)*y(k,84) + ( & - + 5.000_r8*rxt(k,231)+5.000_r8*rxt(k,257))*y(k,85) & - + 4.000_r8*rxt(k,158)*y(k,86) + (4.000_r8*rxt(k,141) & - +4.000_r8*rxt(k,264))*y(k,87) + 4.000_r8*rxt(k,209)*y(k,98) - mat(k,1582) = 5.000_r8*rxt(k,172)*y(k,61) + 6.000_r8*rxt(k,177)*y(k,62) + ( & - + 5.000_r8*rxt(k,164)+5.000_r8*rxt(k,263))*y(k,63) + ( & - + 5.000_r8*rxt(k,163)+5.000_r8*rxt(k,260))*y(k,65) + ( & - + 7.000_r8*rxt(k,171)+7.000_r8*rxt(k,254))*y(k,66) + ( & - + 6.000_r8*rxt(k,173)+6.000_r8*rxt(k,256))*y(k,67) & - + 5.000_r8*rxt(k,169)*y(k,68) + 5.000_r8*rxt(k,139)*y(k,69) & - + 5.000_r8*rxt(k,167)*y(k,71) + 5.000_r8*rxt(k,179)*y(k,81) & - + 6.000_r8*rxt(k,174)*y(k,82) + (5.000_r8*rxt(k,166) & - +5.000_r8*rxt(k,261))*y(k,83) + 7.000_r8*rxt(k,178)*y(k,84) + ( & - + 6.000_r8*rxt(k,170)+6.000_r8*rxt(k,258))*y(k,85) & - + 5.000_r8*rxt(k,175)*y(k,86) + (5.000_r8*rxt(k,162) & - +5.000_r8*rxt(k,265))*y(k,87) + 5.000_r8*rxt(k,168)*y(k,98) - mat(k,138) = mat(k,138) + rxt(k,376)*y(k,69) - mat(k,734) = mat(k,734) + 3.000_r8*rxt(k,196)*y(k,73) + 4.000_r8*rxt(k,161) & - *y(k,75) + 5.000_r8*rxt(k,179)*y(k,77) + 2.000_r8*rxt(k,232) & - *y(k,89) + rxt(k,214)*y(k,92) - mat(k,384) = 4.000_r8*rxt(k,192)*y(k,73) + 5.000_r8*rxt(k,157)*y(k,75) & - + 6.000_r8*rxt(k,174)*y(k,77) + rxt(k,245)*y(k,88) & - + 3.000_r8*rxt(k,227)*y(k,89) + 2.000_r8*rxt(k,210)*y(k,92) & - + rxt(k,151)*y(k,99) - mat(k,672) = mat(k,672) + 3.000_r8*rxt(k,183)*y(k,73) + (4.000_r8*rxt(k,187) & - +4.000_r8*rxt(k,259))*y(k,75) + (5.000_r8*rxt(k,166) & - +5.000_r8*rxt(k,261))*y(k,77) + 2.000_r8*rxt(k,218)*y(k,89) & - + rxt(k,201)*y(k,92) - mat(k,494) = rxt(k,288)*y(k,50) + 5.000_r8*rxt(k,195)*y(k,73) & - + 6.000_r8*rxt(k,160)*y(k,75) + 7.000_r8*rxt(k,178)*y(k,77) & - + 2.000_r8*rxt(k,248)*y(k,88) + 4.000_r8*rxt(k,230)*y(k,89) & - + 3.000_r8*rxt(k,213)*y(k,92) + 2.000_r8*rxt(k,155)*y(k,99) - mat(k,535) = mat(k,535) + rxt(k,290)*y(k,42) + 4.000_r8*rxt(k,188)*y(k,73) + ( & - + 5.000_r8*rxt(k,231)+5.000_r8*rxt(k,257))*y(k,75) + ( & - + 6.000_r8*rxt(k,170)+6.000_r8*rxt(k,258))*y(k,77) + rxt(k,240) & - *y(k,88) + 3.000_r8*rxt(k,223)*y(k,89) + 2.000_r8*rxt(k,205) & - *y(k,92) + rxt(k,147)*y(k,99) - mat(k,400) = 3.000_r8*rxt(k,193)*y(k,73) + 4.000_r8*rxt(k,158)*y(k,75) & - + 5.000_r8*rxt(k,175)*y(k,77) + 2.000_r8*rxt(k,228)*y(k,89) & - + rxt(k,211)*y(k,92) - mat(k,451) = 3.000_r8*rxt(k,180)*y(k,73) + (4.000_r8*rxt(k,141) & - +4.000_r8*rxt(k,264))*y(k,75) + (5.000_r8*rxt(k,162) & - +5.000_r8*rxt(k,265))*y(k,77) + 2.000_r8*rxt(k,215)*y(k,89) & - + rxt(k,197)*y(k,92) - mat(k,900) = mat(k,900) + rxt(k,247)*y(k,62) + 2.000_r8*rxt(k,241)*y(k,66) & - + rxt(k,244)*y(k,67) + rxt(k,245)*y(k,82) + 2.000_r8*rxt(k,248) & - *y(k,84) + rxt(k,240)*y(k,85) - mat(k,943) = mat(k,943) + 2.000_r8*rxt(k,225)*y(k,61) + 3.000_r8*rxt(k,229) & - *y(k,62) + 2.000_r8*rxt(k,217)*y(k,63) + 2.000_r8*rxt(k,216) & - *y(k,65) + 4.000_r8*rxt(k,224)*y(k,66) + 3.000_r8*rxt(k,226) & - *y(k,67) + 2.000_r8*rxt(k,222)*y(k,68) + 2.000_r8*rxt(k,298) & - *y(k,69) + 2.000_r8*rxt(k,219)*y(k,71) + 2.000_r8*rxt(k,232) & - *y(k,81) + 3.000_r8*rxt(k,227)*y(k,82) + 2.000_r8*rxt(k,218) & - *y(k,83) + 4.000_r8*rxt(k,230)*y(k,84) + 3.000_r8*rxt(k,223) & - *y(k,85) + 2.000_r8*rxt(k,228)*y(k,86) + 2.000_r8*rxt(k,215) & - *y(k,87) + 2.000_r8*rxt(k,221)*y(k,98) - mat(k,50) = mat(k,50) + 3.000_r8*rxt(k,299)*y(k,69) - mat(k,1084) = mat(k,1084) + rxt(k,207)*y(k,61) + 2.000_r8*rxt(k,212)*y(k,62) & - + rxt(k,200)*y(k,63) + rxt(k,199)*y(k,65) + 3.000_r8*rxt(k,206) & - *y(k,66) + 2.000_r8*rxt(k,208)*y(k,67) + rxt(k,204)*y(k,68) & - + rxt(k,303)*y(k,69) + rxt(k,202)*y(k,71) + rxt(k,214)*y(k,81) & - + 2.000_r8*rxt(k,210)*y(k,82) + rxt(k,201)*y(k,83) & - + 3.000_r8*rxt(k,213)*y(k,84) + 2.000_r8*rxt(k,205)*y(k,85) & - + rxt(k,211)*y(k,86) + rxt(k,197)*y(k,87) + rxt(k,203)*y(k,98) - mat(k,1326) = 3.000_r8*rxt(k,185)*y(k,73) + 4.000_r8*rxt(k,209)*y(k,75) & - + 5.000_r8*rxt(k,168)*y(k,77) + 2.000_r8*rxt(k,221)*y(k,89) & - + rxt(k,203)*y(k,92) - mat(k,1371) = mat(k,1371) + rxt(k,154)*y(k,62) + 2.000_r8*rxt(k,148)*y(k,66) & - + rxt(k,150)*y(k,67) + rxt(k,151)*y(k,82) + 2.000_r8*rxt(k,155) & - *y(k,84) + rxt(k,147)*y(k,85) - mat(k,149) = mat(k,149) + rxt(k,321)*y(k,69) - mat(k,776) = rxt(k,527)*y(k,14) + rxt(k,530)*y(k,19) + rxt(k,410)*y(k,33) & - + rxt(k,411)*y(k,35) + rxt(k,495)*y(k,36) + rxt(k,466)*y(k,40) & - + rxt(k,442)*y(k,42) + rxt(k,412)*y(k,43) + rxt(k,418)*y(k,44) & - + rxt(k,469)*y(k,46) + rxt(k,335)*y(k,47) + 2.000_r8*rxt(k,415) & - *y(k,104) - mat(k,1615) = rxt(k,339)*y(k,32) + rxt(k,340)*y(k,40) - mat(k,1651) = mat(k,1651) + rxt(k,348)*y(k,33) - end do - end subroutine nlnmat09 - subroutine nlnmat_finit( avec_len, mat, lmat, dti ) - use chem_mods, only : gas_pcnst, rxntot, nzcnt - implicit none -!---------------------------------------------- -! ... dummy arguments -!---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: dti(veclen) - real(r8), intent(in) :: lmat(veclen,nzcnt) - real(r8), intent(inout) :: mat(veclen,nzcnt) -!---------------------------------------------- -! ... local variables -!---------------------------------------------- - integer :: k -!---------------------------------------------- -! ... complete matrix entries implicit species -!---------------------------------------------- - do k = 1,avec_len - mat(k, 1) = lmat(k, 1) - mat(k, 2) = lmat(k, 2) - mat(k, 3) = lmat(k, 3) - mat(k, 4) = mat(k, 4) + lmat(k, 4) - mat(k, 5) = mat(k, 5) + lmat(k, 5) - mat(k, 7) = lmat(k, 7) - mat(k, 8) = lmat(k, 8) - mat(k, 9) = lmat(k, 9) - mat(k, 10) = lmat(k, 10) - mat(k, 11) = lmat(k, 11) - mat(k, 12) = mat(k, 12) + lmat(k, 12) - mat(k, 13) = mat(k, 13) + lmat(k, 13) - mat(k, 15) = mat(k, 15) + lmat(k, 15) - mat(k, 16) = lmat(k, 16) - mat(k, 17) = lmat(k, 17) - mat(k, 18) = lmat(k, 18) - mat(k, 19) = lmat(k, 19) - mat(k, 20) = lmat(k, 20) - mat(k, 21) = lmat(k, 21) - mat(k, 22) = mat(k, 22) + lmat(k, 22) - mat(k, 26) = mat(k, 26) + lmat(k, 26) - mat(k, 30) = mat(k, 30) + lmat(k, 30) - mat(k, 31) = mat(k, 31) + lmat(k, 31) - mat(k, 32) = lmat(k, 32) - mat(k, 33) = mat(k, 33) + lmat(k, 33) - mat(k, 39) = mat(k, 39) + lmat(k, 39) - mat(k, 41) = mat(k, 41) + lmat(k, 41) - mat(k, 42) = mat(k, 42) + lmat(k, 42) - mat(k, 43) = lmat(k, 43) - mat(k, 45) = mat(k, 45) + lmat(k, 45) - mat(k, 51) = mat(k, 51) + lmat(k, 51) - mat(k, 52) = lmat(k, 52) - mat(k, 53) = mat(k, 53) + lmat(k, 53) - mat(k, 54) = mat(k, 54) + lmat(k, 54) - mat(k, 55) = lmat(k, 55) - mat(k, 58) = mat(k, 58) + lmat(k, 58) - mat(k, 59) = mat(k, 59) + lmat(k, 59) - mat(k, 60) = lmat(k, 60) - mat(k, 61) = lmat(k, 61) - mat(k, 62) = mat(k, 62) + lmat(k, 62) - mat(k, 63) = lmat(k, 63) - mat(k, 64) = lmat(k, 64) - mat(k, 65) = mat(k, 65) + lmat(k, 65) - mat(k, 66) = lmat(k, 66) - mat(k, 67) = mat(k, 67) + lmat(k, 67) - mat(k, 68) = mat(k, 68) + lmat(k, 68) - mat(k, 71) = mat(k, 71) + lmat(k, 71) - mat(k, 72) = lmat(k, 72) - mat(k, 73) = lmat(k, 73) - mat(k, 74) = mat(k, 74) + lmat(k, 74) - mat(k, 76) = lmat(k, 76) - mat(k, 77) = lmat(k, 77) - mat(k, 78) = mat(k, 78) + lmat(k, 78) - mat(k, 79) = mat(k, 79) + lmat(k, 79) - mat(k, 81) = mat(k, 81) + lmat(k, 81) - mat(k, 86) = mat(k, 86) + lmat(k, 86) - mat(k, 95) = mat(k, 95) + lmat(k, 95) - mat(k, 99) = mat(k, 99) + lmat(k, 99) - mat(k, 100) = lmat(k, 100) - mat(k, 102) = mat(k, 102) + lmat(k, 102) - mat(k, 103) = lmat(k, 103) - mat(k, 107) = mat(k, 107) + lmat(k, 107) - mat(k, 108) = mat(k, 108) + lmat(k, 108) - mat(k, 110) = lmat(k, 110) - mat(k, 116) = mat(k, 116) + lmat(k, 116) - mat(k, 117) = lmat(k, 117) - mat(k, 120) = mat(k, 120) + lmat(k, 120) - mat(k, 123) = mat(k, 123) + lmat(k, 123) - mat(k, 124) = mat(k, 124) + lmat(k, 124) - mat(k, 126) = lmat(k, 126) - mat(k, 128) = mat(k, 128) + lmat(k, 128) - mat(k, 134) = mat(k, 134) + lmat(k, 134) - mat(k, 142) = mat(k, 142) + lmat(k, 142) - mat(k, 147) = lmat(k, 147) - mat(k, 149) = mat(k, 149) + lmat(k, 149) - mat(k, 151) = mat(k, 151) + lmat(k, 151) - mat(k, 152) = lmat(k, 152) - mat(k, 154) = mat(k, 154) + lmat(k, 154) - mat(k, 159) = mat(k, 159) + lmat(k, 159) - mat(k, 167) = mat(k, 167) + lmat(k, 167) - mat(k, 168) = mat(k, 168) + lmat(k, 168) - mat(k, 169) = lmat(k, 169) - mat(k, 176) = mat(k, 176) + lmat(k, 176) - mat(k, 184) = mat(k, 184) + lmat(k, 184) - mat(k, 185) = mat(k, 185) + lmat(k, 185) - mat(k, 189) = mat(k, 189) + lmat(k, 189) - mat(k, 191) = mat(k, 191) + lmat(k, 191) - mat(k, 192) = mat(k, 192) + lmat(k, 192) - mat(k, 197) = mat(k, 197) + lmat(k, 197) - mat(k, 200) = mat(k, 200) + lmat(k, 200) - mat(k, 201) = mat(k, 201) + lmat(k, 201) - mat(k, 204) = mat(k, 204) + lmat(k, 204) - mat(k, 205) = lmat(k, 205) - mat(k, 206) = mat(k, 206) + lmat(k, 206) - mat(k, 208) = mat(k, 208) + lmat(k, 208) - mat(k, 209) = mat(k, 209) + lmat(k, 209) - mat(k, 211) = mat(k, 211) + lmat(k, 211) - mat(k, 219) = mat(k, 219) + lmat(k, 219) - mat(k, 222) = mat(k, 222) + lmat(k, 222) - mat(k, 229) = mat(k, 229) + lmat(k, 229) - mat(k, 233) = lmat(k, 233) - mat(k, 234) = mat(k, 234) + lmat(k, 234) - mat(k, 235) = lmat(k, 235) - mat(k, 237) = lmat(k, 237) - mat(k, 239) = lmat(k, 239) - mat(k, 244) = mat(k, 244) + lmat(k, 244) - mat(k, 245) = lmat(k, 245) - mat(k, 249) = lmat(k, 249) - mat(k, 257) = mat(k, 257) + lmat(k, 257) - mat(k, 268) = lmat(k, 268) - mat(k, 270) = mat(k, 270) + lmat(k, 270) - mat(k, 276) = lmat(k, 276) - mat(k, 285) = mat(k, 285) + lmat(k, 285) - mat(k, 297) = mat(k, 297) + lmat(k, 297) - mat(k, 311) = mat(k, 311) + lmat(k, 311) - mat(k, 312) = lmat(k, 312) - mat(k, 325) = mat(k, 325) + lmat(k, 325) - mat(k, 328) = mat(k, 328) + lmat(k, 328) - mat(k, 340) = mat(k, 340) + lmat(k, 340) - mat(k, 341) = lmat(k, 341) - mat(k, 349) = mat(k, 349) + lmat(k, 349) - mat(k, 356) = mat(k, 356) + lmat(k, 356) - mat(k, 357) = lmat(k, 357) - mat(k, 370) = mat(k, 370) + lmat(k, 370) - mat(k, 371) = mat(k, 371) + lmat(k, 371) - mat(k, 372) = lmat(k, 372) - mat(k, 384) = mat(k, 384) + lmat(k, 384) - mat(k, 385) = mat(k, 385) + lmat(k, 385) - mat(k, 401) = mat(k, 401) + lmat(k, 401) - mat(k, 406) = mat(k, 406) + lmat(k, 406) - mat(k, 408) = mat(k, 408) + lmat(k, 408) - mat(k, 411) = mat(k, 411) + lmat(k, 411) - mat(k, 413) = lmat(k, 413) - mat(k, 419) = mat(k, 419) + lmat(k, 419) - mat(k, 438) = mat(k, 438) + lmat(k, 438) - mat(k, 439) = lmat(k, 439) - mat(k, 444) = mat(k, 444) + lmat(k, 444) - mat(k, 456) = mat(k, 456) + lmat(k, 456) - mat(k, 457) = mat(k, 457) + lmat(k, 457) - mat(k, 462) = mat(k, 462) + lmat(k, 462) - mat(k, 477) = mat(k, 477) + lmat(k, 477) - mat(k, 478) = lmat(k, 478) - mat(k, 494) = mat(k, 494) + lmat(k, 494) - mat(k, 497) = mat(k, 497) + lmat(k, 497) - mat(k, 501) = lmat(k, 501) - mat(k, 515) = mat(k, 515) + lmat(k, 515) - mat(k, 519) = mat(k, 519) + lmat(k, 519) - mat(k, 520) = lmat(k, 520) - mat(k, 535) = mat(k, 535) + lmat(k, 535) - mat(k, 536) = mat(k, 536) + lmat(k, 536) - mat(k, 539) = lmat(k, 539) - mat(k, 541) = mat(k, 541) + lmat(k, 541) - mat(k, 558) = mat(k, 558) + lmat(k, 558) - mat(k, 561) = mat(k, 561) + lmat(k, 561) - mat(k, 562) = mat(k, 562) + lmat(k, 562) - mat(k, 564) = mat(k, 564) + lmat(k, 564) - mat(k, 567) = lmat(k, 567) - mat(k, 569) = mat(k, 569) + lmat(k, 569) - mat(k, 570) = mat(k, 570) + lmat(k, 570) - mat(k, 572) = lmat(k, 572) - mat(k, 573) = mat(k, 573) + lmat(k, 573) - mat(k, 574) = lmat(k, 574) - mat(k, 575) = mat(k, 575) + lmat(k, 575) - mat(k, 577) = mat(k, 577) + lmat(k, 577) - mat(k, 582) = mat(k, 582) + lmat(k, 582) - mat(k, 591) = mat(k, 591) + lmat(k, 591) - mat(k, 592) = mat(k, 592) + lmat(k, 592) - mat(k, 593) = lmat(k, 593) - mat(k, 597) = mat(k, 597) + lmat(k, 597) - mat(k, 619) = mat(k, 619) + lmat(k, 619) - mat(k, 635) = lmat(k, 635) - mat(k, 637) = mat(k, 637) + lmat(k, 637) - mat(k, 652) = mat(k, 652) + lmat(k, 652) - mat(k, 658) = lmat(k, 658) - mat(k, 663) = mat(k, 663) + lmat(k, 663) - mat(k, 675) = mat(k, 675) + lmat(k, 675) - mat(k, 686) = mat(k, 686) + lmat(k, 686) - mat(k, 712) = mat(k, 712) + lmat(k, 712) - mat(k, 718) = lmat(k, 718) - mat(k, 721) = mat(k, 721) + lmat(k, 721) - mat(k, 735) = lmat(k, 735) - mat(k, 736) = lmat(k, 736) - mat(k, 747) = mat(k, 747) + lmat(k, 747) - mat(k, 749) = mat(k, 749) + lmat(k, 749) - mat(k, 754) = mat(k, 754) + lmat(k, 754) - mat(k, 755) = mat(k, 755) + lmat(k, 755) - mat(k, 773) = mat(k, 773) + lmat(k, 773) - mat(k, 776) = mat(k, 776) + lmat(k, 776) - mat(k, 785) = mat(k, 785) + lmat(k, 785) - mat(k, 799) = mat(k, 799) + lmat(k, 799) - mat(k, 805) = lmat(k, 805) - mat(k, 810) = lmat(k, 810) - mat(k, 829) = mat(k, 829) + lmat(k, 829) - mat(k, 852) = mat(k, 852) + lmat(k, 852) - mat(k, 853) = lmat(k, 853) - mat(k, 878) = mat(k, 878) + lmat(k, 878) - mat(k, 922) = mat(k, 922) + lmat(k, 922) - mat(k, 945) = mat(k, 945) + lmat(k, 945) - mat(k, 946) = mat(k, 946) + lmat(k, 946) - mat(k, 960) = mat(k, 960) + lmat(k, 960) - mat(k, 979) = mat(k, 979) + lmat(k, 979) - mat(k, 980) = mat(k, 980) + lmat(k, 980) - mat(k,1023) = mat(k,1023) + lmat(k,1023) - mat(k,1066) = mat(k,1066) + lmat(k,1066) - mat(k,1099) = mat(k,1099) + lmat(k,1099) - mat(k,1107) = mat(k,1107) + lmat(k,1107) - mat(k,1108) = lmat(k,1108) - mat(k,1144) = mat(k,1144) + lmat(k,1144) - mat(k,1149) = mat(k,1149) + lmat(k,1149) - mat(k,1152) = mat(k,1152) + lmat(k,1152) - mat(k,1153) = mat(k,1153) + lmat(k,1153) - mat(k,1168) = mat(k,1168) + lmat(k,1168) - mat(k,1189) = lmat(k,1189) - mat(k,1197) = mat(k,1197) + lmat(k,1197) - mat(k,1212) = mat(k,1212) + lmat(k,1212) - mat(k,1227) = mat(k,1227) + lmat(k,1227) - mat(k,1230) = mat(k,1230) + lmat(k,1230) - mat(k,1231) = mat(k,1231) + lmat(k,1231) - mat(k,1233) = mat(k,1233) + lmat(k,1233) - mat(k,1234) = mat(k,1234) + lmat(k,1234) - mat(k,1246) = mat(k,1246) + lmat(k,1246) - mat(k,1249) = lmat(k,1249) - mat(k,1250) = mat(k,1250) + lmat(k,1250) - mat(k,1256) = mat(k,1256) + lmat(k,1256) - mat(k,1260) = mat(k,1260) + lmat(k,1260) - mat(k,1270) = mat(k,1270) + lmat(k,1270) - mat(k,1271) = mat(k,1271) + lmat(k,1271) - mat(k,1277) = mat(k,1277) + lmat(k,1277) - mat(k,1279) = mat(k,1279) + lmat(k,1279) - mat(k,1307) = mat(k,1307) + lmat(k,1307) - mat(k,1313) = mat(k,1313) + lmat(k,1313) - mat(k,1314) = mat(k,1314) + lmat(k,1314) - mat(k,1349) = mat(k,1349) + lmat(k,1349) - mat(k,1360) = mat(k,1360) + lmat(k,1360) - mat(k,1370) = mat(k,1370) + lmat(k,1370) - mat(k,1376) = mat(k,1376) + lmat(k,1376) - mat(k,1393) = lmat(k,1393) - mat(k,1403) = mat(k,1403) + lmat(k,1403) - mat(k,1415) = mat(k,1415) + lmat(k,1415) - mat(k,1421) = mat(k,1421) + lmat(k,1421) - mat(k,1431) = mat(k,1431) + lmat(k,1431) - mat(k,1438) = mat(k,1438) + lmat(k,1438) - mat(k,1442) = mat(k,1442) + lmat(k,1442) - mat(k,1488) = mat(k,1488) + lmat(k,1488) - mat(k,1493) = mat(k,1493) + lmat(k,1493) - mat(k,1494) = mat(k,1494) + lmat(k,1494) - mat(k,1519) = mat(k,1519) + lmat(k,1519) - mat(k,1532) = mat(k,1532) + lmat(k,1532) - mat(k,1536) = mat(k,1536) + lmat(k,1536) - mat(k,1567) = lmat(k,1567) - mat(k,1576) = mat(k,1576) + lmat(k,1576) - mat(k,1582) = mat(k,1582) + lmat(k,1582) - mat(k,1590) = mat(k,1590) + lmat(k,1590) - mat(k,1596) = mat(k,1596) + lmat(k,1596) - mat(k,1610) = mat(k,1610) + lmat(k,1610) - mat(k,1631) = mat(k,1631) + lmat(k,1631) - mat(k,1632) = mat(k,1632) + lmat(k,1632) - mat(k,1647) = mat(k,1647) + lmat(k,1647) - mat(k,1654) = mat(k,1654) + lmat(k,1654) - mat(k,1658) = lmat(k,1658) - mat(k,1659) = lmat(k,1659) - mat(k,1667) = mat(k,1667) + lmat(k,1667) - mat(k,1686) = mat(k,1686) + lmat(k,1686) - mat(k,1691) = mat(k,1691) + lmat(k,1691) - mat(k,1728) = mat(k,1728) + lmat(k,1728) - mat(k,1734) = mat(k,1734) + lmat(k,1734) - mat(k,1750) = mat(k,1750) + lmat(k,1750) - mat(k,1752) = mat(k,1752) + lmat(k,1752) - mat(k,1753) = mat(k,1753) + lmat(k,1753) - mat(k,1771) = mat(k,1771) + lmat(k,1771) - mat(k,1790) = lmat(k,1790) - mat(k,1795) = mat(k,1795) + lmat(k,1795) - mat(k,1800) = mat(k,1800) + lmat(k,1800) - mat(k,1805) = lmat(k,1805) - mat(k,1823) = lmat(k,1823) - mat(k,1825) = mat(k,1825) + lmat(k,1825) - mat(k, 135) = 0._r8 - mat(k, 140) = 0._r8 - mat(k, 144) = 0._r8 - mat(k, 148) = 0._r8 - mat(k, 157) = 0._r8 - mat(k, 210) = 0._r8 - mat(k, 246) = 0._r8 - mat(k, 247) = 0._r8 - mat(k, 248) = 0._r8 - mat(k, 254) = 0._r8 - mat(k, 255) = 0._r8 - mat(k, 260) = 0._r8 - mat(k, 265) = 0._r8 - mat(k, 267) = 0._r8 - mat(k, 269) = 0._r8 - mat(k, 271) = 0._r8 - mat(k, 272) = 0._r8 - mat(k, 280) = 0._r8 - mat(k, 286) = 0._r8 - mat(k, 287) = 0._r8 - mat(k, 291) = 0._r8 - mat(k, 294) = 0._r8 - mat(k, 295) = 0._r8 - mat(k, 331) = 0._r8 - mat(k, 333) = 0._r8 - mat(k, 334) = 0._r8 - mat(k, 336) = 0._r8 - mat(k, 338) = 0._r8 - mat(k, 339) = 0._r8 - mat(k, 418) = 0._r8 - mat(k, 420) = 0._r8 - mat(k, 422) = 0._r8 - mat(k, 426) = 0._r8 - mat(k, 427) = 0._r8 - mat(k, 428) = 0._r8 - mat(k, 429) = 0._r8 - mat(k, 431) = 0._r8 - mat(k, 436) = 0._r8 - mat(k, 458) = 0._r8 - mat(k, 459) = 0._r8 - mat(k, 463) = 0._r8 - mat(k, 465) = 0._r8 - mat(k, 467) = 0._r8 - mat(k, 468) = 0._r8 - mat(k, 469) = 0._r8 - mat(k, 472) = 0._r8 - mat(k, 474) = 0._r8 - mat(k, 479) = 0._r8 - mat(k, 483) = 0._r8 - mat(k, 486) = 0._r8 - mat(k, 524) = 0._r8 - mat(k, 527) = 0._r8 - mat(k, 540) = 0._r8 - mat(k, 542) = 0._r8 - mat(k, 546) = 0._r8 - mat(k, 548) = 0._r8 - mat(k, 550) = 0._r8 - mat(k, 551) = 0._r8 - mat(k, 552) = 0._r8 - mat(k, 554) = 0._r8 - mat(k, 555) = 0._r8 - mat(k, 556) = 0._r8 - mat(k, 559) = 0._r8 - mat(k, 566) = 0._r8 - mat(k, 568) = 0._r8 - mat(k, 576) = 0._r8 - mat(k, 578) = 0._r8 - mat(k, 579) = 0._r8 - mat(k, 580) = 0._r8 - mat(k, 581) = 0._r8 - mat(k, 583) = 0._r8 - mat(k, 584) = 0._r8 - mat(k, 585) = 0._r8 - mat(k, 589) = 0._r8 - mat(k, 590) = 0._r8 - mat(k, 620) = 0._r8 - mat(k, 622) = 0._r8 - mat(k, 629) = 0._r8 - mat(k, 631) = 0._r8 - mat(k, 632) = 0._r8 - mat(k, 642) = 0._r8 - mat(k, 643) = 0._r8 - mat(k, 661) = 0._r8 - mat(k, 669) = 0._r8 - mat(k, 670) = 0._r8 - mat(k, 684) = 0._r8 - mat(k, 685) = 0._r8 - mat(k, 688) = 0._r8 - mat(k, 690) = 0._r8 - mat(k, 692) = 0._r8 - mat(k, 696) = 0._r8 - mat(k, 697) = 0._r8 - mat(k, 698) = 0._r8 - mat(k, 702) = 0._r8 - mat(k, 703) = 0._r8 - mat(k, 713) = 0._r8 - mat(k, 717) = 0._r8 - mat(k, 743) = 0._r8 - mat(k, 753) = 0._r8 - mat(k, 756) = 0._r8 - mat(k, 757) = 0._r8 - mat(k, 759) = 0._r8 - mat(k, 765) = 0._r8 - mat(k, 766) = 0._r8 - mat(k, 771) = 0._r8 - mat(k, 772) = 0._r8 - mat(k, 780) = 0._r8 - mat(k, 790) = 0._r8 - mat(k, 795) = 0._r8 - mat(k, 800) = 0._r8 - mat(k, 801) = 0._r8 - mat(k, 811) = 0._r8 - mat(k, 825) = 0._r8 - mat(k, 830) = 0._r8 - mat(k, 831) = 0._r8 - mat(k, 834) = 0._r8 - mat(k, 841) = 0._r8 - mat(k, 843) = 0._r8 - mat(k, 845) = 0._r8 - mat(k, 846) = 0._r8 - mat(k, 847) = 0._r8 - mat(k, 848) = 0._r8 - mat(k, 851) = 0._r8 - mat(k, 856) = 0._r8 - mat(k, 857) = 0._r8 - mat(k, 869) = 0._r8 - mat(k, 873) = 0._r8 - mat(k, 877) = 0._r8 - mat(k, 879) = 0._r8 - mat(k, 885) = 0._r8 - mat(k, 889) = 0._r8 - mat(k, 891) = 0._r8 - mat(k, 893) = 0._r8 - mat(k, 894) = 0._r8 - mat(k, 895) = 0._r8 - mat(k, 896) = 0._r8 - mat(k, 898) = 0._r8 - mat(k, 902) = 0._r8 - mat(k, 916) = 0._r8 - mat(k, 920) = 0._r8 - mat(k, 921) = 0._r8 - mat(k, 925) = 0._r8 - mat(k, 928) = 0._r8 - mat(k, 932) = 0._r8 - mat(k, 934) = 0._r8 - mat(k, 936) = 0._r8 - mat(k, 937) = 0._r8 - mat(k, 938) = 0._r8 - mat(k, 939) = 0._r8 - mat(k, 941) = 0._r8 - mat(k, 968) = 0._r8 - mat(k, 976) = 0._r8 - mat(k, 978) = 0._r8 - mat(k, 981) = 0._r8 - mat(k, 982) = 0._r8 - mat(k, 984) = 0._r8 - mat(k, 993) = 0._r8 - mat(k, 999) = 0._r8 - mat(k,1008) = 0._r8 - mat(k,1012) = 0._r8 - mat(k,1017) = 0._r8 - mat(k,1025) = 0._r8 - mat(k,1026) = 0._r8 - mat(k,1028) = 0._r8 - mat(k,1034) = 0._r8 - mat(k,1035) = 0._r8 - mat(k,1037) = 0._r8 - mat(k,1039) = 0._r8 - mat(k,1061) = 0._r8 - mat(k,1062) = 0._r8 - mat(k,1069) = 0._r8 - mat(k,1073) = 0._r8 - mat(k,1075) = 0._r8 - mat(k,1077) = 0._r8 - mat(k,1078) = 0._r8 - mat(k,1079) = 0._r8 - mat(k,1080) = 0._r8 - mat(k,1088) = 0._r8 - mat(k,1090) = 0._r8 - mat(k,1093) = 0._r8 - mat(k,1094) = 0._r8 - mat(k,1101) = 0._r8 - mat(k,1102) = 0._r8 - mat(k,1103) = 0._r8 - mat(k,1104) = 0._r8 - mat(k,1105) = 0._r8 - mat(k,1106) = 0._r8 - mat(k,1109) = 0._r8 - mat(k,1111) = 0._r8 - mat(k,1113) = 0._r8 - mat(k,1115) = 0._r8 - mat(k,1117) = 0._r8 - mat(k,1118) = 0._r8 - mat(k,1119) = 0._r8 - mat(k,1121) = 0._r8 - mat(k,1122) = 0._r8 - mat(k,1123) = 0._r8 - mat(k,1127) = 0._r8 - mat(k,1131) = 0._r8 - mat(k,1133) = 0._r8 - mat(k,1135) = 0._r8 - mat(k,1138) = 0._r8 - mat(k,1139) = 0._r8 - mat(k,1146) = 0._r8 - mat(k,1147) = 0._r8 - mat(k,1148) = 0._r8 - mat(k,1150) = 0._r8 - mat(k,1151) = 0._r8 - mat(k,1154) = 0._r8 - mat(k,1158) = 0._r8 - mat(k,1161) = 0._r8 - mat(k,1163) = 0._r8 - mat(k,1167) = 0._r8 - mat(k,1185) = 0._r8 - mat(k,1190) = 0._r8 - mat(k,1191) = 0._r8 - mat(k,1194) = 0._r8 - mat(k,1201) = 0._r8 - mat(k,1203) = 0._r8 - mat(k,1205) = 0._r8 - mat(k,1207) = 0._r8 - mat(k,1208) = 0._r8 - mat(k,1211) = 0._r8 - mat(k,1215) = 0._r8 - mat(k,1216) = 0._r8 - mat(k,1217) = 0._r8 - mat(k,1219) = 0._r8 - mat(k,1220) = 0._r8 - mat(k,1222) = 0._r8 - mat(k,1224) = 0._r8 - mat(k,1225) = 0._r8 - mat(k,1226) = 0._r8 - mat(k,1228) = 0._r8 - mat(k,1229) = 0._r8 - mat(k,1232) = 0._r8 - mat(k,1235) = 0._r8 - mat(k,1236) = 0._r8 - mat(k,1237) = 0._r8 - mat(k,1238) = 0._r8 - mat(k,1239) = 0._r8 - mat(k,1240) = 0._r8 - mat(k,1241) = 0._r8 - mat(k,1242) = 0._r8 - mat(k,1243) = 0._r8 - mat(k,1244) = 0._r8 - mat(k,1245) = 0._r8 - mat(k,1247) = 0._r8 - mat(k,1261) = 0._r8 - mat(k,1262) = 0._r8 - mat(k,1264) = 0._r8 - mat(k,1265) = 0._r8 - mat(k,1267) = 0._r8 - mat(k,1269) = 0._r8 - mat(k,1272) = 0._r8 - mat(k,1273) = 0._r8 - mat(k,1274) = 0._r8 - mat(k,1275) = 0._r8 - mat(k,1276) = 0._r8 - mat(k,1282) = 0._r8 - mat(k,1283) = 0._r8 - mat(k,1284) = 0._r8 - mat(k,1285) = 0._r8 - mat(k,1287) = 0._r8 - mat(k,1290) = 0._r8 - mat(k,1294) = 0._r8 - mat(k,1301) = 0._r8 - mat(k,1302) = 0._r8 - mat(k,1312) = 0._r8 - mat(k,1321) = 0._r8 - mat(k,1344) = 0._r8 - mat(k,1348) = 0._r8 - mat(k,1350) = 0._r8 - mat(k,1353) = 0._r8 - mat(k,1356) = 0._r8 - mat(k,1362) = 0._r8 - mat(k,1364) = 0._r8 - mat(k,1365) = 0._r8 - mat(k,1366) = 0._r8 - mat(k,1367) = 0._r8 - mat(k,1369) = 0._r8 - mat(k,1379) = 0._r8 - mat(k,1380) = 0._r8 - mat(k,1383) = 0._r8 - mat(k,1385) = 0._r8 - mat(k,1386) = 0._r8 - mat(k,1387) = 0._r8 - mat(k,1388) = 0._r8 - mat(k,1390) = 0._r8 - mat(k,1392) = 0._r8 - mat(k,1394) = 0._r8 - mat(k,1395) = 0._r8 - mat(k,1396) = 0._r8 - mat(k,1397) = 0._r8 - mat(k,1398) = 0._r8 - mat(k,1399) = 0._r8 - mat(k,1404) = 0._r8 - mat(k,1405) = 0._r8 - mat(k,1406) = 0._r8 - mat(k,1407) = 0._r8 - mat(k,1410) = 0._r8 - mat(k,1411) = 0._r8 - mat(k,1412) = 0._r8 - mat(k,1413) = 0._r8 - mat(k,1416) = 0._r8 - mat(k,1420) = 0._r8 - mat(k,1427) = 0._r8 - mat(k,1428) = 0._r8 - mat(k,1429) = 0._r8 - mat(k,1430) = 0._r8 - mat(k,1433) = 0._r8 - mat(k,1434) = 0._r8 - mat(k,1436) = 0._r8 - mat(k,1440) = 0._r8 - mat(k,1443) = 0._r8 - mat(k,1445) = 0._r8 - mat(k,1451) = 0._r8 - mat(k,1458) = 0._r8 - mat(k,1462) = 0._r8 - mat(k,1463) = 0._r8 - mat(k,1464) = 0._r8 - mat(k,1472) = 0._r8 - mat(k,1473) = 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,1483) = 0._r8 - mat(k,1485) = 0._r8 - mat(k,1487) = 0._r8 - mat(k,1490) = 0._r8 - mat(k,1495) = 0._r8 - mat(k,1508) = 0._r8 - mat(k,1511) = 0._r8 - mat(k,1516) = 0._r8 - mat(k,1517) = 0._r8 - mat(k,1518) = 0._r8 - mat(k,1520) = 0._r8 - mat(k,1521) = 0._r8 - mat(k,1522) = 0._r8 - mat(k,1524) = 0._r8 - mat(k,1528) = 0._r8 - mat(k,1530) = 0._r8 - mat(k,1533) = 0._r8 - mat(k,1537) = 0._r8 - mat(k,1539) = 0._r8 - mat(k,1555) = 0._r8 - mat(k,1559) = 0._r8 - mat(k,1560) = 0._r8 - mat(k,1561) = 0._r8 - mat(k,1564) = 0._r8 - mat(k,1571) = 0._r8 - mat(k,1573) = 0._r8 - mat(k,1575) = 0._r8 - mat(k,1577) = 0._r8 - mat(k,1578) = 0._r8 - mat(k,1581) = 0._r8 - mat(k,1587) = 0._r8 - mat(k,1591) = 0._r8 - mat(k,1592) = 0._r8 - mat(k,1593) = 0._r8 - mat(k,1594) = 0._r8 - mat(k,1597) = 0._r8 - mat(k,1598) = 0._r8 - mat(k,1600) = 0._r8 - mat(k,1601) = 0._r8 - mat(k,1602) = 0._r8 - mat(k,1603) = 0._r8 - mat(k,1604) = 0._r8 - mat(k,1609) = 0._r8 - mat(k,1611) = 0._r8 - mat(k,1614) = 0._r8 - mat(k,1617) = 0._r8 - mat(k,1620) = 0._r8 - mat(k,1621) = 0._r8 - mat(k,1624) = 0._r8 - mat(k,1628) = 0._r8 - mat(k,1629) = 0._r8 - mat(k,1630) = 0._r8 - mat(k,1633) = 0._r8 - mat(k,1636) = 0._r8 - mat(k,1637) = 0._r8 - mat(k,1639) = 0._r8 - mat(k,1640) = 0._r8 - mat(k,1645) = 0._r8 - mat(k,1661) = 0._r8 - mat(k,1663) = 0._r8 - mat(k,1666) = 0._r8 - mat(k,1671) = 0._r8 - mat(k,1672) = 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,1688) = 0._r8 - mat(k,1693) = 0._r8 - mat(k,1694) = 0._r8 - mat(k,1698) = 0._r8 - mat(k,1699) = 0._r8 - mat(k,1702) = 0._r8 - mat(k,1707) = 0._r8 - mat(k,1708) = 0._r8 - mat(k,1709) = 0._r8 - mat(k,1713) = 0._r8 - mat(k,1714) = 0._r8 - mat(k,1715) = 0._r8 - mat(k,1716) = 0._r8 - mat(k,1719) = 0._r8 - mat(k,1723) = 0._r8 - mat(k,1724) = 0._r8 - mat(k,1726) = 0._r8 - mat(k,1727) = 0._r8 - mat(k,1740) = 0._r8 - mat(k,1742) = 0._r8 - mat(k,1749) = 0._r8 - mat(k,1751) = 0._r8 - mat(k,1754) = 0._r8 - mat(k,1755) = 0._r8 - mat(k,1757) = 0._r8 - mat(k,1760) = 0._r8 - mat(k,1764) = 0._r8 - mat(k,1766) = 0._r8 - mat(k,1767) = 0._r8 - mat(k,1770) = 0._r8 - mat(k,1785) = 0._r8 - mat(k,1794) = 0._r8 - mat(k,1798) = 0._r8 - mat(k,1806) = 0._r8 - mat(k,1809) = 0._r8 - mat(k,1811) = 0._r8 - mat(k,1813) = 0._r8 - mat(k,1816) = 0._r8 - mat(k,1817) = 0._r8 - mat(k,1818) = 0._r8 - mat(k,1822) = 0._r8 - mat(k,1824) = 0._r8 - mat(k, 1) = mat(k, 1) - dti(k) - mat(k, 4) = mat(k, 4) - dti(k) - mat(k, 7) = mat(k, 7) - dti(k) - mat(k, 10) = mat(k, 10) - dti(k) - mat(k, 12) = mat(k, 12) - dti(k) - mat(k, 16) = mat(k, 16) - dti(k) - mat(k, 19) = mat(k, 19) - dti(k) - mat(k, 22) = mat(k, 22) - dti(k) - mat(k, 26) = mat(k, 26) - dti(k) - mat(k, 30) = mat(k, 30) - dti(k) - mat(k, 33) = mat(k, 33) - dti(k) - mat(k, 39) = mat(k, 39) - dti(k) - mat(k, 45) = mat(k, 45) - dti(k) - mat(k, 51) = mat(k, 51) - dti(k) - mat(k, 58) = mat(k, 58) - dti(k) - mat(k, 65) = mat(k, 65) - dti(k) - mat(k, 71) = mat(k, 71) - dti(k) - mat(k, 79) = mat(k, 79) - dti(k) - mat(k, 86) = mat(k, 86) - dti(k) - mat(k, 95) = mat(k, 95) - dti(k) - mat(k, 102) = mat(k, 102) - dti(k) - mat(k, 108) = mat(k, 108) - dti(k) - mat(k, 116) = mat(k, 116) - dti(k) - mat(k, 123) = mat(k, 123) - dti(k) - mat(k, 128) = mat(k, 128) - dti(k) - mat(k, 134) = mat(k, 134) - dti(k) - mat(k, 142) = mat(k, 142) - dti(k) - mat(k, 151) = mat(k, 151) - dti(k) - mat(k, 159) = mat(k, 159) - dti(k) - mat(k, 168) = mat(k, 168) - dti(k) - mat(k, 176) = mat(k, 176) - dti(k) - mat(k, 184) = mat(k, 184) - dti(k) - mat(k, 191) = mat(k, 191) - dti(k) - mat(k, 201) = mat(k, 201) - dti(k) - mat(k, 211) = mat(k, 211) - dti(k) - mat(k, 219) = mat(k, 219) - dti(k) - mat(k, 229) = mat(k, 229) - dti(k) - mat(k, 244) = mat(k, 244) - dti(k) - mat(k, 257) = mat(k, 257) - dti(k) - mat(k, 270) = mat(k, 270) - dti(k) - mat(k, 285) = mat(k, 285) - dti(k) - mat(k, 297) = mat(k, 297) - dti(k) - mat(k, 311) = mat(k, 311) - dti(k) - mat(k, 328) = mat(k, 328) - dti(k) - mat(k, 340) = mat(k, 340) - dti(k) - mat(k, 356) = mat(k, 356) - dti(k) - mat(k, 371) = mat(k, 371) - dti(k) - mat(k, 385) = mat(k, 385) - dti(k) - mat(k, 401) = mat(k, 401) - dti(k) - mat(k, 419) = mat(k, 419) - dti(k) - mat(k, 438) = mat(k, 438) - dti(k) - mat(k, 457) = mat(k, 457) - dti(k) - mat(k, 477) = mat(k, 477) - dti(k) - mat(k, 497) = mat(k, 497) - dti(k) - mat(k, 519) = mat(k, 519) - dti(k) - mat(k, 541) = mat(k, 541) - dti(k) - mat(k, 573) = mat(k, 573) - dti(k) - mat(k, 597) = mat(k, 597) - dti(k) - mat(k, 619) = mat(k, 619) - dti(k) - mat(k, 652) = mat(k, 652) - dti(k) - mat(k, 686) = mat(k, 686) - dti(k) - mat(k, 712) = mat(k, 712) - dti(k) - mat(k, 755) = mat(k, 755) - dti(k) - mat(k, 785) = mat(k, 785) - dti(k) - mat(k, 829) = mat(k, 829) - dti(k) - mat(k, 878) = mat(k, 878) - dti(k) - mat(k, 922) = mat(k, 922) - dti(k) - mat(k, 979) = mat(k, 979) - dti(k) - mat(k,1023) = mat(k,1023) - dti(k) - mat(k,1066) = mat(k,1066) - dti(k) - mat(k,1107) = mat(k,1107) - dti(k) - mat(k,1153) = mat(k,1153) - dti(k) - mat(k,1197) = mat(k,1197) - dti(k) - mat(k,1233) = mat(k,1233) - dti(k) - mat(k,1277) = mat(k,1277) - dti(k) - mat(k,1314) = mat(k,1314) - dti(k) - mat(k,1360) = mat(k,1360) - dti(k) - mat(k,1403) = mat(k,1403) - dti(k) - mat(k,1442) = mat(k,1442) - dti(k) - mat(k,1488) = mat(k,1488) - dti(k) - mat(k,1532) = mat(k,1532) - dti(k) - mat(k,1576) = mat(k,1576) - dti(k) - mat(k,1610) = mat(k,1610) - dti(k) - mat(k,1647) = mat(k,1647) - dti(k) - mat(k,1691) = mat(k,1691) - dti(k) - mat(k,1728) = mat(k,1728) - dti(k) - mat(k,1771) = mat(k,1771) - dti(k) - mat(k,1825) = mat(k,1825) - dti(k) - end do + mat( 1) = lmat( 1) + mat( 2) = lmat( 2) + mat( 3) = lmat( 3) + mat( 4) = mat( 4) + lmat( 4) + mat( 5) = mat( 5) + lmat( 5) + mat( 7) = lmat( 7) + mat( 8) = lmat( 8) + mat( 9) = lmat( 9) + mat( 10) = lmat( 10) + mat( 11) = lmat( 11) + mat( 12) = mat( 12) + lmat( 12) + mat( 13) = mat( 13) + lmat( 13) + mat( 15) = mat( 15) + lmat( 15) + mat( 16) = lmat( 16) + mat( 17) = lmat( 17) + mat( 18) = lmat( 18) + mat( 19) = lmat( 19) + mat( 20) = lmat( 20) + mat( 21) = lmat( 21) + mat( 22) = mat( 22) + lmat( 22) + mat( 23) = mat( 23) + lmat( 23) + mat( 24) = lmat( 24) + mat( 25) = mat( 25) + lmat( 25) + mat( 29) = mat( 29) + lmat( 29) + mat( 33) = mat( 33) + lmat( 33) + mat( 35) = mat( 35) + lmat( 35) + mat( 36) = mat( 36) + lmat( 36) + mat( 37) = lmat( 37) + mat( 39) = mat( 39) + lmat( 39) + mat( 45) = mat( 45) + lmat( 45) + mat( 51) = mat( 51) + lmat( 51) + mat( 53) = lmat( 53) + mat( 54) = mat( 54) + lmat( 54) + mat( 55) = lmat( 55) + mat( 57) = mat( 57) + lmat( 57) + mat( 58) = lmat( 58) + mat( 59) = mat( 59) + lmat( 59) + mat( 60) = mat( 60) + lmat( 60) + mat( 62) = lmat( 62) + mat( 64) = mat( 64) + lmat( 64) + mat( 65) = lmat( 65) + mat( 66) = lmat( 66) + mat( 71) = mat( 71) + lmat( 71) + mat( 72) = lmat( 72) + mat( 77) = mat( 77) + lmat( 77) + mat( 78) = mat( 78) + lmat( 78) + mat( 79) = lmat( 79) + mat( 80) = lmat( 80) + mat( 81) = mat( 81) + lmat( 81) + mat( 82) = lmat( 82) + mat( 83) = lmat( 83) + mat( 84) = mat( 84) + lmat( 84) + mat( 85) = lmat( 85) + mat( 86) = mat( 86) + lmat( 86) + mat( 89) = mat( 89) + lmat( 89) + mat( 90) = mat( 90) + lmat( 90) + mat( 91) = lmat( 91) + mat( 92) = lmat( 92) + mat( 93) = mat( 93) + lmat( 93) + mat( 94) = lmat( 94) + mat( 96) = lmat( 96) + mat( 97) = mat( 97) + lmat( 97) + mat( 98) = mat( 98) + lmat( 98) + mat( 102) = mat( 102) + lmat( 102) + mat( 111) = mat( 111) + lmat( 111) + mat( 113) = mat( 113) + lmat( 113) + mat( 118) = mat( 118) + lmat( 118) + mat( 119) = lmat( 119) + mat( 123) = mat( 123) + lmat( 123) + mat( 124) = mat( 124) + lmat( 124) + mat( 125) = mat( 125) + lmat( 125) + mat( 127) = lmat( 127) + mat( 130) = mat( 130) + lmat( 130) + mat( 138) = mat( 138) + lmat( 138) + mat( 143) = lmat( 143) + mat( 145) = mat( 145) + lmat( 145) + mat( 146) = mat( 146) + lmat( 146) + mat( 154) = mat( 154) + lmat( 154) + mat( 155) = mat( 155) + lmat( 155) + mat( 156) = lmat( 156) + mat( 164) = mat( 164) + lmat( 164) + mat( 165) = lmat( 165) + mat( 167) = mat( 167) + lmat( 167) + mat( 172) = mat( 172) + lmat( 172) + mat( 179) = mat( 179) + lmat( 179) + mat( 180) = mat( 180) + lmat( 180) + mat( 184) = mat( 184) + lmat( 184) + mat( 188) = mat( 188) + lmat( 188) + mat( 189) = mat( 189) + lmat( 189) + mat( 192) = mat( 192) + lmat( 192) + mat( 195) = mat( 195) + lmat( 195) + mat( 197) = mat( 197) + lmat( 197) + mat( 203) = lmat( 203) + mat( 206) = mat( 206) + lmat( 206) + mat( 207) = lmat( 207) + mat( 211) = lmat( 211) + mat( 214) = mat( 214) + lmat( 214) + mat( 218) = mat( 218) + lmat( 218) + mat( 219) = mat( 219) + lmat( 219) + mat( 222) = lmat( 222) + mat( 223) = mat( 223) + lmat( 223) + mat( 224) = mat( 224) + lmat( 224) + mat( 226) = mat( 226) + lmat( 226) + mat( 227) = mat( 227) + lmat( 227) + mat( 229) = mat( 229) + lmat( 229) + mat( 239) = mat( 239) + lmat( 239) + mat( 243) = lmat( 243) + mat( 244) = lmat( 244) + mat( 247) = lmat( 247) + mat( 248) = mat( 248) + lmat( 248) + mat( 249) = lmat( 249) + mat( 251) = lmat( 251) + mat( 253) = mat( 253) + lmat( 253) + mat( 263) = lmat( 263) + mat( 266) = mat( 266) + lmat( 266) + mat( 277) = mat( 277) + lmat( 277) + mat( 292) = mat( 292) + lmat( 292) + mat( 304) = mat( 304) + lmat( 304) + mat( 305) = lmat( 305) + mat( 317) = mat( 317) + lmat( 317) + mat( 320) = mat( 320) + lmat( 320) + mat( 331) = mat( 331) + lmat( 331) + mat( 332) = lmat( 332) + mat( 335) = mat( 335) + lmat( 335) + mat( 347) = mat( 347) + lmat( 347) + mat( 348) = lmat( 348) + mat( 361) = mat( 361) + lmat( 361) + mat( 362) = mat( 362) + lmat( 362) + mat( 363) = lmat( 363) + mat( 375) = mat( 375) + lmat( 375) + mat( 376) = mat( 376) + lmat( 376) + mat( 378) = lmat( 378) + mat( 382) = mat( 382) + lmat( 382) + mat( 385) = mat( 385) + lmat( 385) + mat( 388) = lmat( 388) + mat( 389) = mat( 389) + lmat( 389) + mat( 390) = mat( 390) + lmat( 390) + mat( 410) = mat( 410) + lmat( 410) + mat( 411) = mat( 411) + lmat( 411) + mat( 423) = mat( 423) + lmat( 423) + mat( 431) = mat( 431) + lmat( 431) + mat( 450) = mat( 450) + lmat( 450) + mat( 451) = lmat( 451) + mat( 461) = mat( 461) + lmat( 461) + mat( 466) = mat( 466) + lmat( 466) + mat( 467) = lmat( 467) + mat( 483) = mat( 483) + lmat( 483) + mat( 486) = mat( 486) + lmat( 486) + mat( 489) = lmat( 489) + mat( 503) = mat( 503) + lmat( 503) + mat( 507) = mat( 507) + lmat( 507) + mat( 508) = lmat( 508) + mat( 523) = mat( 523) + lmat( 523) + mat( 524) = mat( 524) + lmat( 524) + mat( 528) = lmat( 528) + mat( 529) = mat( 529) + lmat( 529) + mat( 534) = mat( 534) + lmat( 534) + mat( 548) = mat( 548) + lmat( 548) + mat( 549) = mat( 549) + lmat( 549) + mat( 551) = mat( 551) + lmat( 551) + mat( 554) = lmat( 554) + mat( 556) = mat( 556) + lmat( 556) + mat( 558) = mat( 558) + lmat( 558) + mat( 559) = lmat( 559) + mat( 560) = mat( 560) + lmat( 560) + mat( 561) = lmat( 561) + mat( 562) = mat( 562) + lmat( 562) + mat( 564) = mat( 564) + lmat( 564) + mat( 568) = mat( 568) + lmat( 568) + mat( 569) = mat( 569) + lmat( 569) + mat( 572) = lmat( 572) + mat( 574) = mat( 574) + lmat( 574) + mat( 583) = mat( 583) + lmat( 583) + mat( 600) = lmat( 600) + mat( 613) = mat( 613) + lmat( 613) + mat( 636) = mat( 636) + lmat( 636) + mat( 650) = lmat( 650) + mat( 655) = mat( 655) + lmat( 655) + mat( 659) = mat( 659) + lmat( 659) + mat( 670) = mat( 670) + lmat( 670) + mat( 691) = lmat( 691) + mat( 692) = lmat( 692) + mat( 704) = mat( 704) + lmat( 704) + mat( 705) = mat( 705) + lmat( 705) + mat( 710) = mat( 710) + lmat( 710) + mat( 711) = mat( 711) + lmat( 711) + mat( 720) = mat( 720) + lmat( 720) + mat( 731) = mat( 731) + lmat( 731) + mat( 739) = mat( 739) + lmat( 739) + mat( 759) = lmat( 759) + mat( 769) = mat( 769) + lmat( 769) + mat( 776) = mat( 776) + lmat( 776) + mat( 784) = lmat( 784) + mat( 793) = lmat( 793) + mat( 794) = lmat( 794) + mat( 817) = mat( 817) + lmat( 817) + mat( 860) = mat( 860) + lmat( 860) + mat( 905) = mat( 905) + lmat( 905) + mat( 906) = mat( 906) + lmat( 906) + mat( 912) = mat( 912) + lmat( 912) + mat( 941) = mat( 941) + lmat( 941) + mat( 983) = mat( 983) + lmat( 983) + mat(1002) = lmat(1002) + mat(1026) = mat(1026) + lmat(1026) + mat(1043) = mat(1043) + lmat(1043) + mat(1062) = mat(1062) + lmat(1062) + mat(1071) = mat(1071) + lmat(1071) + mat(1077) = mat(1077) + lmat(1077) + mat(1081) = mat(1081) + lmat(1081) + mat(1085) = mat(1085) + lmat(1085) + mat(1114) = mat(1114) + lmat(1114) + mat(1116) = mat(1116) + lmat(1116) + mat(1123) = mat(1123) + lmat(1123) + mat(1132) = lmat(1132) + mat(1133) = mat(1133) + lmat(1133) + mat(1138) = mat(1138) + lmat(1138) + mat(1142) = mat(1142) + lmat(1142) + mat(1158) = mat(1158) + lmat(1158) + mat(1161) = mat(1161) + lmat(1161) + mat(1164) = mat(1164) + lmat(1164) + mat(1166) = mat(1166) + lmat(1166) + mat(1174) = mat(1174) + lmat(1174) + mat(1179) = lmat(1179) + mat(1180) = lmat(1180) + mat(1188) = mat(1188) + lmat(1188) + mat(1194) = mat(1194) + lmat(1194) + mat(1201) = mat(1201) + lmat(1201) + mat(1220) = lmat(1220) + mat(1235) = mat(1235) + lmat(1235) + mat(1237) = mat(1237) + lmat(1237) + mat(1241) = mat(1241) + lmat(1241) + mat(1271) = mat(1271) + lmat(1271) + mat(1282) = mat(1282) + lmat(1282) + mat(1283) = mat(1283) + lmat(1283) + mat(1296) = mat(1296) + lmat(1296) + mat(1312) = mat(1312) + lmat(1312) + mat(1324) = mat(1324) + lmat(1324) + mat(1326) = mat(1326) + lmat(1326) + mat(1328) = mat(1328) + lmat(1328) + mat(1359) = lmat(1359) + mat(1367) = mat(1367) + lmat(1367) + mat(1376) = mat(1376) + lmat(1376) + mat(1410) = mat(1410) + lmat(1410) + mat(1451) = lmat(1451) + mat(1453) = mat(1453) + lmat(1453) + mat(1460) = mat(1460) + lmat(1460) + mat(1463) = mat(1463) + lmat(1463) + mat(1464) = mat(1464) + lmat(1464) + mat(1475) = mat(1475) + lmat(1475) + mat(1507) = mat(1507) + lmat(1507) + mat(1509) = mat(1509) + lmat(1509) + mat(1517) = lmat(1517) + mat(1522) = mat(1522) + lmat(1522) + mat(1539) = mat(1539) + lmat(1539) + mat(1542) = mat(1542) + lmat(1542) + mat(1558) = lmat(1558) + mat(1574) = mat(1574) + lmat(1574) + mat(1576) = mat(1576) + lmat(1576) + mat(1578) = mat(1578) + lmat(1578) + mat(1584) = mat(1584) + lmat(1584) + mat(1590) = mat(1590) + lmat(1590) + mat(1606) = mat(1606) + lmat(1606) + mat(1614) = mat(1614) + lmat(1614) + mat(1617) = mat(1617) + lmat(1617) + mat(1634) = mat(1634) + lmat(1634) + mat(1643) = lmat(1643) + mat(1657) = mat(1657) + lmat(1657) + mat(1677) = mat(1677) + lmat(1677) + mat(1679) = mat(1679) + lmat(1679) + mat(1683) = mat(1683) + lmat(1683) + mat(1687) = mat(1687) + lmat(1687) + mat(1691) = mat(1691) + lmat(1691) + mat(1692) = mat(1692) + lmat(1692) + mat(1711) = lmat(1711) + mat(1716) = mat(1716) + lmat(1716) + mat(1720) = mat(1720) + lmat(1720) + mat(1726) = lmat(1726) + mat(1739) = lmat(1739) + mat(1745) = mat(1745) + lmat(1745) + mat( 132) = 0._r8 + mat( 136) = 0._r8 + mat( 140) = 0._r8 + mat( 141) = 0._r8 + mat( 169) = 0._r8 + mat( 208) = 0._r8 + mat( 209) = 0._r8 + mat( 210) = 0._r8 + mat( 212) = 0._r8 + mat( 215) = 0._r8 + mat( 228) = 0._r8 + mat( 252) = 0._r8 + mat( 254) = 0._r8 + mat( 255) = 0._r8 + mat( 269) = 0._r8 + mat( 270) = 0._r8 + mat( 276) = 0._r8 + mat( 293) = 0._r8 + mat( 294) = 0._r8 + mat( 295) = 0._r8 + mat( 297) = 0._r8 + mat( 301) = 0._r8 + mat( 323) = 0._r8 + mat( 325) = 0._r8 + mat( 326) = 0._r8 + mat( 328) = 0._r8 + mat( 330) = 0._r8 + mat( 412) = 0._r8 + mat( 413) = 0._r8 + mat( 416) = 0._r8 + mat( 417) = 0._r8 + mat( 424) = 0._r8 + mat( 425) = 0._r8 + mat( 426) = 0._r8 + mat( 427) = 0._r8 + mat( 430) = 0._r8 + mat( 432) = 0._r8 + mat( 434) = 0._r8 + mat( 438) = 0._r8 + mat( 439) = 0._r8 + mat( 440) = 0._r8 + mat( 442) = 0._r8 + mat( 447) = 0._r8 + mat( 448) = 0._r8 + mat( 468) = 0._r8 + mat( 474) = 0._r8 + mat( 480) = 0._r8 + mat( 514) = 0._r8 + mat( 520) = 0._r8 + mat( 527) = 0._r8 + mat( 530) = 0._r8 + mat( 535) = 0._r8 + mat( 536) = 0._r8 + mat( 537) = 0._r8 + mat( 539) = 0._r8 + mat( 540) = 0._r8 + mat( 542) = 0._r8 + mat( 543) = 0._r8 + mat( 544) = 0._r8 + mat( 553) = 0._r8 + mat( 555) = 0._r8 + mat( 565) = 0._r8 + mat( 566) = 0._r8 + mat( 570) = 0._r8 + mat( 571) = 0._r8 + mat( 573) = 0._r8 + mat( 575) = 0._r8 + mat( 576) = 0._r8 + mat( 578) = 0._r8 + mat( 579) = 0._r8 + mat( 585) = 0._r8 + mat( 589) = 0._r8 + mat( 596) = 0._r8 + mat( 604) = 0._r8 + mat( 607) = 0._r8 + mat( 608) = 0._r8 + mat( 641) = 0._r8 + mat( 644) = 0._r8 + mat( 646) = 0._r8 + mat( 668) = 0._r8 + mat( 669) = 0._r8 + mat( 675) = 0._r8 + mat( 680) = 0._r8 + mat( 681) = 0._r8 + mat( 683) = 0._r8 + mat( 685) = 0._r8 + mat( 686) = 0._r8 + mat( 688) = 0._r8 + mat( 699) = 0._r8 + mat( 709) = 0._r8 + mat( 712) = 0._r8 + mat( 716) = 0._r8 + mat( 721) = 0._r8 + mat( 722) = 0._r8 + mat( 724) = 0._r8 + mat( 726) = 0._r8 + mat( 727) = 0._r8 + mat( 735) = 0._r8 + mat( 743) = 0._r8 + mat( 755) = 0._r8 + mat( 760) = 0._r8 + mat( 762) = 0._r8 + mat( 768) = 0._r8 + mat( 780) = 0._r8 + mat( 786) = 0._r8 + mat( 788) = 0._r8 + mat( 796) = 0._r8 + mat( 797) = 0._r8 + mat( 809) = 0._r8 + mat( 813) = 0._r8 + mat( 818) = 0._r8 + mat( 820) = 0._r8 + mat( 822) = 0._r8 + mat( 824) = 0._r8 + mat( 828) = 0._r8 + mat( 830) = 0._r8 + mat( 832) = 0._r8 + mat( 834) = 0._r8 + mat( 835) = 0._r8 + mat( 836) = 0._r8 + mat( 841) = 0._r8 + mat( 855) = 0._r8 + mat( 859) = 0._r8 + mat( 862) = 0._r8 + mat( 863) = 0._r8 + mat( 864) = 0._r8 + mat( 866) = 0._r8 + mat( 870) = 0._r8 + mat( 872) = 0._r8 + mat( 874) = 0._r8 + mat( 876) = 0._r8 + mat( 877) = 0._r8 + mat( 878) = 0._r8 + mat( 888) = 0._r8 + mat( 892) = 0._r8 + mat( 893) = 0._r8 + mat( 894) = 0._r8 + mat( 901) = 0._r8 + mat( 903) = 0._r8 + mat( 904) = 0._r8 + mat( 907) = 0._r8 + mat( 908) = 0._r8 + mat( 909) = 0._r8 + mat( 911) = 0._r8 + mat( 914) = 0._r8 + mat( 915) = 0._r8 + mat( 916) = 0._r8 + mat( 917) = 0._r8 + mat( 918) = 0._r8 + mat( 922) = 0._r8 + mat( 924) = 0._r8 + mat( 929) = 0._r8 + mat( 930) = 0._r8 + mat( 933) = 0._r8 + mat( 938) = 0._r8 + mat( 939) = 0._r8 + mat( 943) = 0._r8 + mat( 944) = 0._r8 + mat( 945) = 0._r8 + mat( 947) = 0._r8 + mat( 949) = 0._r8 + mat( 951) = 0._r8 + mat( 953) = 0._r8 + mat( 956) = 0._r8 + mat( 958) = 0._r8 + mat( 959) = 0._r8 + mat( 979) = 0._r8 + mat( 984) = 0._r8 + mat( 986) = 0._r8 + mat( 990) = 0._r8 + mat( 992) = 0._r8 + mat( 994) = 0._r8 + mat( 996) = 0._r8 + mat( 997) = 0._r8 + mat( 998) = 0._r8 + mat(1003) = 0._r8 + mat(1017) = 0._r8 + mat(1021) = 0._r8 + mat(1022) = 0._r8 + mat(1025) = 0._r8 + mat(1028) = 0._r8 + mat(1032) = 0._r8 + mat(1033) = 0._r8 + mat(1036) = 0._r8 + mat(1038) = 0._r8 + mat(1039) = 0._r8 + mat(1040) = 0._r8 + mat(1046) = 0._r8 + mat(1050) = 0._r8 + mat(1053) = 0._r8 + mat(1054) = 0._r8 + mat(1057) = 0._r8 + mat(1058) = 0._r8 + mat(1065) = 0._r8 + mat(1066) = 0._r8 + mat(1067) = 0._r8 + mat(1068) = 0._r8 + mat(1069) = 0._r8 + mat(1070) = 0._r8 + mat(1076) = 0._r8 + mat(1078) = 0._r8 + mat(1079) = 0._r8 + mat(1080) = 0._r8 + mat(1099) = 0._r8 + mat(1102) = 0._r8 + mat(1107) = 0._r8 + mat(1108) = 0._r8 + mat(1110) = 0._r8 + mat(1111) = 0._r8 + mat(1112) = 0._r8 + mat(1118) = 0._r8 + mat(1120) = 0._r8 + mat(1121) = 0._r8 + mat(1122) = 0._r8 + mat(1126) = 0._r8 + mat(1127) = 0._r8 + mat(1129) = 0._r8 + mat(1143) = 0._r8 + mat(1144) = 0._r8 + mat(1145) = 0._r8 + mat(1147) = 0._r8 + mat(1149) = 0._r8 + mat(1151) = 0._r8 + mat(1152) = 0._r8 + mat(1154) = 0._r8 + mat(1155) = 0._r8 + mat(1156) = 0._r8 + mat(1157) = 0._r8 + mat(1159) = 0._r8 + mat(1163) = 0._r8 + mat(1165) = 0._r8 + mat(1167) = 0._r8 + mat(1170) = 0._r8 + mat(1171) = 0._r8 + mat(1172) = 0._r8 + mat(1181) = 0._r8 + mat(1184) = 0._r8 + mat(1187) = 0._r8 + mat(1192) = 0._r8 + mat(1193) = 0._r8 + mat(1196) = 0._r8 + mat(1197) = 0._r8 + mat(1203) = 0._r8 + mat(1204) = 0._r8 + mat(1205) = 0._r8 + mat(1206) = 0._r8 + mat(1207) = 0._r8 + mat(1212) = 0._r8 + mat(1214) = 0._r8 + mat(1218) = 0._r8 + mat(1224) = 0._r8 + mat(1225) = 0._r8 + mat(1244) = 0._r8 + mat(1248) = 0._r8 + mat(1267) = 0._r8 + mat(1272) = 0._r8 + mat(1274) = 0._r8 + mat(1275) = 0._r8 + mat(1276) = 0._r8 + mat(1278) = 0._r8 + mat(1284) = 0._r8 + mat(1286) = 0._r8 + mat(1288) = 0._r8 + mat(1289) = 0._r8 + mat(1290) = 0._r8 + mat(1303) = 0._r8 + mat(1305) = 0._r8 + mat(1313) = 0._r8 + mat(1314) = 0._r8 + mat(1315) = 0._r8 + mat(1316) = 0._r8 + mat(1317) = 0._r8 + mat(1322) = 0._r8 + mat(1325) = 0._r8 + mat(1327) = 0._r8 + mat(1329) = 0._r8 + mat(1332) = 0._r8 + mat(1350) = 0._r8 + mat(1354) = 0._r8 + mat(1355) = 0._r8 + mat(1358) = 0._r8 + mat(1361) = 0._r8 + mat(1365) = 0._r8 + mat(1366) = 0._r8 + mat(1371) = 0._r8 + mat(1372) = 0._r8 + mat(1373) = 0._r8 + mat(1385) = 0._r8 + mat(1389) = 0._r8 + mat(1394) = 0._r8 + mat(1398) = 0._r8 + mat(1402) = 0._r8 + mat(1403) = 0._r8 + mat(1405) = 0._r8 + mat(1413) = 0._r8 + mat(1416) = 0._r8 + mat(1417) = 0._r8 + mat(1434) = 0._r8 + mat(1438) = 0._r8 + mat(1439) = 0._r8 + mat(1442) = 0._r8 + mat(1443) = 0._r8 + mat(1445) = 0._r8 + mat(1449) = 0._r8 + mat(1450) = 0._r8 + mat(1455) = 0._r8 + mat(1456) = 0._r8 + mat(1457) = 0._r8 + mat(1485) = 0._r8 + mat(1494) = 0._r8 + mat(1497) = 0._r8 + mat(1498) = 0._r8 + mat(1506) = 0._r8 + mat(1508) = 0._r8 + mat(1513) = 0._r8 + mat(1515) = 0._r8 + mat(1520) = 0._r8 + mat(1523) = 0._r8 + mat(1525) = 0._r8 + mat(1526) = 0._r8 + mat(1529) = 0._r8 + mat(1530) = 0._r8 + mat(1533) = 0._r8 + mat(1535) = 0._r8 + mat(1536) = 0._r8 + mat(1537) = 0._r8 + mat(1538) = 0._r8 + mat(1540) = 0._r8 + mat(1543) = 0._r8 + mat(1545) = 0._r8 + mat(1546) = 0._r8 + mat(1549) = 0._r8 + mat(1552) = 0._r8 + mat(1553) = 0._r8 + mat(1556) = 0._r8 + mat(1560) = 0._r8 + mat(1561) = 0._r8 + mat(1564) = 0._r8 + mat(1565) = 0._r8 + mat(1570) = 0._r8 + mat(1571) = 0._r8 + mat(1573) = 0._r8 + mat(1575) = 0._r8 + mat(1581) = 0._r8 + mat(1585) = 0._r8 + mat(1589) = 0._r8 + mat(1592) = 0._r8 + mat(1596) = 0._r8 + mat(1598) = 0._r8 + mat(1599) = 0._r8 + mat(1600) = 0._r8 + mat(1602) = 0._r8 + mat(1603) = 0._r8 + mat(1609) = 0._r8 + mat(1611) = 0._r8 + mat(1613) = 0._r8 + mat(1618) = 0._r8 + mat(1620) = 0._r8 + mat(1624) = 0._r8 + mat(1626) = 0._r8 + mat(1629) = 0._r8 + mat(1630) = 0._r8 + mat(1637) = 0._r8 + mat(1638) = 0._r8 + mat(1640) = 0._r8 + mat(1641) = 0._r8 + mat(1642) = 0._r8 + mat(1644) = 0._r8 + mat(1645) = 0._r8 + mat(1646) = 0._r8 + mat(1648) = 0._r8 + mat(1649) = 0._r8 + mat(1650) = 0._r8 + mat(1651) = 0._r8 + mat(1652) = 0._r8 + mat(1653) = 0._r8 + mat(1654) = 0._r8 + mat(1656) = 0._r8 + mat(1662) = 0._r8 + mat(1663) = 0._r8 + mat(1664) = 0._r8 + mat(1666) = 0._r8 + mat(1667) = 0._r8 + mat(1670) = 0._r8 + mat(1671) = 0._r8 + mat(1672) = 0._r8 + mat(1673) = 0._r8 + mat(1674) = 0._r8 + mat(1675) = 0._r8 + mat(1676) = 0._r8 + mat(1678) = 0._r8 + mat(1680) = 0._r8 + mat(1681) = 0._r8 + mat(1682) = 0._r8 + mat(1684) = 0._r8 + mat(1685) = 0._r8 + mat(1686) = 0._r8 + mat(1688) = 0._r8 + mat(1689) = 0._r8 + mat(1690) = 0._r8 + mat(1693) = 0._r8 + mat(1706) = 0._r8 + mat(1715) = 0._r8 + mat(1719) = 0._r8 + mat(1725) = 0._r8 + mat(1729) = 0._r8 + mat(1730) = 0._r8 + mat(1732) = 0._r8 + mat(1733) = 0._r8 + mat(1735) = 0._r8 + mat(1737) = 0._r8 + mat(1742) = 0._r8 + mat(1744) = 0._r8 + mat( 1) = mat( 1) - dti + mat( 4) = mat( 4) - dti + mat( 7) = mat( 7) - dti + mat( 10) = mat( 10) - dti + mat( 12) = mat( 12) - dti + mat( 16) = mat( 16) - dti + mat( 19) = mat( 19) - dti + mat( 22) = mat( 22) - dti + mat( 25) = mat( 25) - dti + mat( 29) = mat( 29) - dti + mat( 33) = mat( 33) - dti + mat( 39) = mat( 39) - dti + mat( 45) = mat( 45) - dti + mat( 51) = mat( 51) - dti + mat( 57) = mat( 57) - dti + mat( 64) = mat( 64) - dti + mat( 71) = mat( 71) - dti + mat( 77) = mat( 77) - dti + mat( 84) = mat( 84) - dti + mat( 90) = mat( 90) - dti + mat( 98) = mat( 98) - dti + mat( 102) = mat( 102) - dti + mat( 111) = mat( 111) - dti + mat( 118) = mat( 118) - dti + mat( 124) = mat( 124) - dti + mat( 130) = mat( 130) - dti + mat( 138) = mat( 138) - dti + mat( 146) = mat( 146) - dti + mat( 155) = mat( 155) - dti + mat( 164) = mat( 164) - dti + mat( 172) = mat( 172) - dti + mat( 179) = mat( 179) - dti + mat( 188) = mat( 188) - dti + mat( 195) = mat( 195) - dti + mat( 206) = mat( 206) - dti + mat( 219) = mat( 219) - dti + mat( 229) = mat( 229) - dti + mat( 239) = mat( 239) - dti + mat( 253) = mat( 253) - dti + mat( 266) = mat( 266) - dti + mat( 277) = mat( 277) - dti + mat( 292) = mat( 292) - dti + mat( 304) = mat( 304) - dti + mat( 320) = mat( 320) - dti + mat( 331) = mat( 331) - dti + mat( 347) = mat( 347) - dti + mat( 362) = mat( 362) - dti + mat( 376) = mat( 376) - dti + mat( 390) = mat( 390) - dti + mat( 411) = mat( 411) - dti + mat( 431) = mat( 431) - dti + mat( 450) = mat( 450) - dti + mat( 466) = mat( 466) - dti + mat( 486) = mat( 486) - dti + mat( 507) = mat( 507) - dti + mat( 529) = mat( 529) - dti + mat( 560) = mat( 560) - dti + mat( 583) = mat( 583) - dti + mat( 613) = mat( 613) - dti + mat( 636) = mat( 636) - dti + mat( 670) = mat( 670) - dti + mat( 711) = mat( 711) - dti + mat( 739) = mat( 739) - dti + mat( 769) = mat( 769) - dti + mat( 817) = mat( 817) - dti + mat( 860) = mat( 860) - dti + mat( 905) = mat( 905) - dti + mat( 941) = mat( 941) - dti + mat( 983) = mat( 983) - dti + mat(1026) = mat(1026) - dti + mat(1071) = mat(1071) - dti + mat(1114) = mat(1114) - dti + mat(1158) = mat(1158) - dti + mat(1201) = mat(1201) - dti + mat(1237) = mat(1237) - dti + mat(1282) = mat(1282) - dti + mat(1324) = mat(1324) - dti + mat(1367) = mat(1367) - dti + mat(1410) = mat(1410) - dti + mat(1453) = mat(1453) - dti + mat(1509) = mat(1509) - dti + mat(1542) = mat(1542) - dti + mat(1578) = mat(1578) - dti + mat(1617) = mat(1617) - dti + mat(1657) = mat(1657) - dti + mat(1692) = mat(1692) - dti + mat(1745) = mat(1745) - dti end subroutine nlnmat_finit - subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti ) + subroutine nlnmat( mat, y, rxt, lmat, dti ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: dti(veclen) - real(r8), intent(in) :: lmat(veclen,nzcnt) - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) - call nlnmat01( avec_len, mat, y, rxt ) - call nlnmat02( avec_len, mat, y, rxt ) - call nlnmat03( avec_len, mat, y, rxt ) - call nlnmat04( avec_len, mat, y, rxt ) - call nlnmat05( avec_len, mat, y, rxt ) - call nlnmat06( avec_len, mat, y, rxt ) - call nlnmat07( avec_len, mat, y, rxt ) - call nlnmat08( avec_len, mat, y, rxt ) - call nlnmat09( avec_len, mat, y, rxt ) - call nlnmat_finit( avec_len, mat, lmat, dti ) + real(r8), intent(in) :: dti + real(r8), intent(in) :: lmat(nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) + call nlnmat01( mat, y, rxt ) + call nlnmat02( mat, y, rxt ) + call nlnmat03( mat, y, rxt ) + call nlnmat04( mat, y, rxt ) + call nlnmat05( mat, y, rxt ) + call nlnmat06( mat, y, rxt ) + call nlnmat07( mat, y, rxt ) + call nlnmat08( mat, y, rxt ) + call nlnmat_finit( mat, lmat, dti ) end subroutine nlnmat end module mo_nln_matrix diff --git a/src/chemistry/pp_waccm_mad/mo_prod_loss.F90 b/src/chemistry/pp_waccm_mad/mo_prod_loss.F90 index 9777a954f9..0134310ac7 100644 --- a/src/chemistry/pp_waccm_mad/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_mad/mo_prod_loss.F90 @@ -1,963 +1,799 @@ module mo_prod_loss use shr_kind_mod, only : r8 => shr_kind_r8 - use chem_mods, only : veclen private public :: exp_prod_loss public :: imp_prod_loss contains - subroutine exp_prod_loss( ofl, ofu, prod, loss, y, & - rxt, het_rates, chnkpnts ) - use chem_mods, only : gas_pcnst,rxntot,clscnt1 + subroutine exp_prod_loss( prod, loss, y, rxt, het_rates ) + use ppgrid, only : pver implicit none !-------------------------------------------------------------------- ! ... dummy args !-------------------------------------------------------------------- - integer, intent(in) :: ofl, ofu, chnkpnts - real(r8), dimension(chnkpnts,max(1,clscnt1)), intent(out) :: & + real(r8), dimension(:,:,:), intent(out) :: & prod, & loss - real(r8), intent(in) :: y(chnkpnts,gas_pcnst) - real(r8), intent(in) :: rxt(chnkpnts,rxntot) - real(r8), intent(in) :: het_rates(chnkpnts,gas_pcnst) -!-------------------------------------------------------------------- -! ... local variables -!-------------------------------------------------------------------- - integer :: k + real(r8), intent(in) :: y(:,:,:) + real(r8), intent(in) :: rxt(:,:,:) + real(r8), intent(in) :: het_rates(:,:,:) !-------------------------------------------------------------------- ! ... loss and production for Explicit method !-------------------------------------------------------------------- - do k = ofl,ofu - loss(k,1) = ( + het_rates(k,4))* y(k,4) - prod(k,1) = 0._r8 - loss(k,2) = (rxt(k,470)* y(k,95) + rxt(k,31) + het_rates(k,5))* y(k,5) - prod(k,2) = 0._r8 - loss(k,3) = (rxt(k,471)* y(k,95) + rxt(k,32) + het_rates(k,6))* y(k,6) - prod(k,3) = 0._r8 - loss(k,4) = (rxt(k,497)* y(k,95) + rxt(k,33) + het_rates(k,7))* y(k,7) - prod(k,4) = 0._r8 - loss(k,5) = (rxt(k,472)* y(k,95) + rxt(k,34) + het_rates(k,8))* y(k,8) - prod(k,5) = 0._r8 - loss(k,6) = (rxt(k,473)* y(k,95) + rxt(k,35) + het_rates(k,9))* y(k,9) - prod(k,6) = 0._r8 - loss(k,7) = (rxt(k,474)* y(k,95) + rxt(k,36) + het_rates(k,10))* y(k,10) - prod(k,7) = 0._r8 - loss(k,8) = (rxt(k,475)* y(k,95) + rxt(k,37) + het_rates(k,11))* y(k,11) - prod(k,8) = 0._r8 - loss(k,9) = (rxt(k,476)* y(k,95) + rxt(k,38) + het_rates(k,12))* y(k,12) - prod(k,9) = 0._r8 - loss(k,10) = (rxt(k,508)* y(k,60) +rxt(k,520)* y(k,95) +rxt(k,509)* y(k,104) & - + rxt(k,39) + het_rates(k,13))* y(k,13) - prod(k,10) = 0._r8 - loss(k,11) = (rxt(k,510)* y(k,60) +rxt(k,521)* y(k,95) +rxt(k,511)* y(k,104) & - + rxt(k,40) + het_rates(k,15))* y(k,15) - prod(k,11) = 0._r8 - loss(k,12) = (rxt(k,512)* y(k,104) + rxt(k,41) + het_rates(k,16))* y(k,16) - prod(k,12) = 0._r8 - loss(k,13) = (rxt(k,513)* y(k,60) +rxt(k,514)* y(k,104) + rxt(k,42) & - + het_rates(k,17))* y(k,17) - prod(k,13) = 0._r8 - loss(k,14) = (rxt(k,502)* y(k,31) +rxt(k,446)* y(k,60) + (rxt(k,533) + & - rxt(k,534) +rxt(k,535))* y(k,95) +rxt(k,531)* y(k,104) + rxt(k,24) & - + rxt(k,25) + het_rates(k,20))* y(k,20) - prod(k,14) = 0._r8 - loss(k,15) = (rxt(k,515)* y(k,60) +rxt(k,498)* y(k,95) +rxt(k,516)* y(k,104) & - + rxt(k,43) + het_rates(k,21))* y(k,21) - prod(k,15) = 0._r8 - loss(k,16) = ( + het_rates(k,26))* y(k,26) - prod(k,16) = 0._r8 - loss(k,17) = (rxt(k,499)* y(k,95) + rxt(k,51) + het_rates(k,34))* y(k,34) - prod(k,17) = 0._r8 - loss(k,18) = (rxt(k,522)* y(k,95) +rxt(k,517)* y(k,104) + rxt(k,53) & - + het_rates(k,37))* y(k,37) - prod(k,18) = 0._r8 - loss(k,19) = (rxt(k,523)* y(k,95) +rxt(k,518)* y(k,104) + rxt(k,54) & - + het_rates(k,38))* y(k,38) - prod(k,19) = 0._r8 - loss(k,20) = (rxt(k,524)* y(k,95) +rxt(k,519)* y(k,104) + rxt(k,55) & - + het_rates(k,39))* y(k,39) - prod(k,20) = 0._r8 - loss(k,21) = ((rxt(k,437) +rxt(k,438))* y(k,95) + rxt(k,13) & - + het_rates(k,49))* y(k,49) - prod(k,21) = 0._r8 - loss(k,22) = ( + rxt(k,61) + het_rates(k,58))* y(k,58) - prod(k,22) = 0._r8 - end do + loss(:,:,1) = ( + het_rates(:,:,5))* y(:,:,5) + prod(:,:,1) = 0._r8 + loss(:,:,2) = (rxt(:,:,470)* y(:,:,95) + rxt(:,:,31) + het_rates(:,:,6)) & + * y(:,:,6) + prod(:,:,2) = 0._r8 + loss(:,:,3) = (rxt(:,:,471)* y(:,:,95) + rxt(:,:,32) + het_rates(:,:,7)) & + * y(:,:,7) + prod(:,:,3) = 0._r8 + loss(:,:,4) = (rxt(:,:,497)* y(:,:,95) + rxt(:,:,33) + het_rates(:,:,8)) & + * y(:,:,8) + prod(:,:,4) = 0._r8 + loss(:,:,5) = (rxt(:,:,472)* y(:,:,95) + rxt(:,:,34) + het_rates(:,:,9)) & + * y(:,:,9) + prod(:,:,5) = 0._r8 + loss(:,:,6) = (rxt(:,:,473)* y(:,:,95) + rxt(:,:,35) + het_rates(:,:,10)) & + * y(:,:,10) + prod(:,:,6) = 0._r8 + loss(:,:,7) = (rxt(:,:,474)* y(:,:,95) + rxt(:,:,36) + het_rates(:,:,11)) & + * y(:,:,11) + prod(:,:,7) = 0._r8 + loss(:,:,8) = (rxt(:,:,475)* y(:,:,95) + rxt(:,:,37) + het_rates(:,:,12)) & + * y(:,:,12) + prod(:,:,8) = 0._r8 + loss(:,:,9) = (rxt(:,:,476)* y(:,:,95) + rxt(:,:,38) + het_rates(:,:,13)) & + * y(:,:,13) + prod(:,:,9) = 0._r8 + loss(:,:,10) = (rxt(:,:,508)* y(:,:,23) +rxt(:,:,520)* y(:,:,95) & + +rxt(:,:,509)* y(:,:,104) + rxt(:,:,39) + het_rates(:,:,14)) & + * y(:,:,14) + prod(:,:,10) = 0._r8 + loss(:,:,11) = (rxt(:,:,510)* y(:,:,23) +rxt(:,:,521)* y(:,:,95) & + +rxt(:,:,511)* y(:,:,104) + rxt(:,:,40) + het_rates(:,:,16)) & + * y(:,:,16) + prod(:,:,11) = 0._r8 + loss(:,:,12) = (rxt(:,:,512)* y(:,:,104) + rxt(:,:,41) + het_rates(:,:,17)) & + * y(:,:,17) + prod(:,:,12) = 0._r8 + loss(:,:,13) = (rxt(:,:,513)* y(:,:,23) +rxt(:,:,514)* y(:,:,104) & + + rxt(:,:,42) + het_rates(:,:,18))* y(:,:,18) + prod(:,:,13) = 0._r8 + loss(:,:,14) = (rxt(:,:,446)* y(:,:,23) +rxt(:,:,502)* y(:,:,33) & + + (rxt(:,:,533) +rxt(:,:,534) +rxt(:,:,535))* y(:,:,95) & + +rxt(:,:,531)* y(:,:,104) + rxt(:,:,24) + rxt(:,:,25) & + + het_rates(:,:,21))* y(:,:,21) + prod(:,:,14) = 0._r8 + loss(:,:,15) = (rxt(:,:,515)* y(:,:,23) +rxt(:,:,498)* y(:,:,95) & + +rxt(:,:,516)* y(:,:,104) + rxt(:,:,43) + het_rates(:,:,22)) & + * y(:,:,22) + prod(:,:,15) = 0._r8 + loss(:,:,16) = ( + het_rates(:,:,28))* y(:,:,28) + prod(:,:,16) = 0._r8 + loss(:,:,17) = (rxt(:,:,363)* y(:,:,88) +rxt(:,:,307)* y(:,:,93) & + +rxt(:,:,311)* y(:,:,98) +rxt(:,:,325)* y(:,:,101) +rxt(:,:,330) & + * y(:,:,102) +rxt(:,:,338)* y(:,:,105) +rxt(:,:,347)* y(:,:,106) & + +rxt(:,:,573)* y(:,:,107) + rxt(:,:,26) + rxt(:,:,62) & + + het_rates(:,:,30))* y(:,:,30) + prod(:,:,17) =.440_r8*rxt(:,:,25)*y(:,:,21) + loss(:,:,18) = (rxt(:,:,499)* y(:,:,95) + rxt(:,:,51) + het_rates(:,:,36)) & + * y(:,:,36) + prod(:,:,18) = 0._r8 + loss(:,:,19) = (rxt(:,:,522)* y(:,:,95) +rxt(:,:,517)* y(:,:,104) & + + rxt(:,:,53) + het_rates(:,:,39))* y(:,:,39) + prod(:,:,19) = 0._r8 + loss(:,:,20) = (rxt(:,:,523)* y(:,:,95) +rxt(:,:,518)* y(:,:,104) & + + rxt(:,:,54) + het_rates(:,:,40))* y(:,:,40) + prod(:,:,20) = 0._r8 + loss(:,:,21) = (rxt(:,:,524)* y(:,:,95) +rxt(:,:,519)* y(:,:,104) & + + rxt(:,:,55) + het_rates(:,:,41))* y(:,:,41) + prod(:,:,21) = 0._r8 + loss(:,:,22) = ((rxt(:,:,437) +rxt(:,:,438))* y(:,:,95) + rxt(:,:,13) & + + het_rates(:,:,50))* y(:,:,50) + prod(:,:,22) = 0._r8 + loss(:,:,23) = ( + rxt(:,:,61) + het_rates(:,:,59))* y(:,:,59) + prod(:,:,23) = 0._r8 end subroutine exp_prod_loss - subroutine imp_prod_loss( avec_len, prod, loss, y, & - rxt, het_rates ) - use chem_mods, only : gas_pcnst,rxntot,clscnt4 + subroutine imp_prod_loss( prod, loss, y, rxt, het_rates ) + use ppgrid, only : pver implicit none !-------------------------------------------------------------------- ! ... dummy args !-------------------------------------------------------------------- - integer, intent(in) :: avec_len - real(r8), dimension(veclen,clscnt4), intent(out) :: & + real(r8), dimension(:), intent(out) :: & prod, & loss - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(in) :: het_rates(veclen,gas_pcnst) -!-------------------------------------------------------------------- -! ... local variables -!-------------------------------------------------------------------- - integer :: k + real(r8), intent(in) :: y(:) + real(r8), intent(in) :: rxt(:) + real(r8), intent(in) :: het_rates(:) !-------------------------------------------------------------------- ! ... loss and production for Implicit method !-------------------------------------------------------------------- - do k = 1,avec_len - loss(k,6) = ( + rxt(k,27) + het_rates(k,1))* y(k,1) - prod(k,6) = (rxt(k,549)*y(k,45) +rxt(k,554)*y(k,45))*y(k,40) & - +rxt(k,487)*y(k,24)*y(k,2) - loss(k,52) = (2._r8*rxt(k,484)* y(k,2) + (rxt(k,485) +rxt(k,486) +rxt(k,487)) & - * y(k,24) +rxt(k,488)* y(k,43) +rxt(k,489)* y(k,51) +rxt(k,490) & - * y(k,52) +rxt(k,492)* y(k,54) +rxt(k,493)* y(k,104) + rxt(k,28) & - + het_rates(k,2))* y(k,2) - prod(k,52) = (rxt(k,29) +rxt(k,491)*y(k,54))*y(k,3) +rxt(k,501)*y(k,95) & - *y(k,36) +rxt(k,496)*y(k,54)*y(k,45) +rxt(k,483)*y(k,59)*y(k,56) - loss(k,17) = (rxt(k,491)* y(k,54) + rxt(k,29) + rxt(k,30) + rxt(k,543) & - + rxt(k,546) + rxt(k,551) + het_rates(k,3))* y(k,3) - prod(k,17) =rxt(k,490)*y(k,52)*y(k,2) - loss(k,56) = (rxt(k,525)* y(k,53) +rxt(k,526)* y(k,54) +rxt(k,481)* y(k,59) & - +rxt(k,445)* y(k,60) +rxt(k,527)* y(k,104) + rxt(k,21) + rxt(k,22) & - + het_rates(k,14))* y(k,14) - prod(k,56) = (rxt(k,452)*y(k,24) +rxt(k,529)*y(k,51))*y(k,18) + (rxt(k,23) + & - .300_r8*rxt(k,530)*y(k,104))*y(k,19) + (rxt(k,534)*y(k,95) + & - rxt(k,535)*y(k,95))*y(k,20) - loss(k,39) = (rxt(k,452)* y(k,24) +rxt(k,528)* y(k,43) +rxt(k,529)* y(k,51) & - + het_rates(k,18))* y(k,18) - prod(k,39) = (rxt(k,446)*y(k,60) +rxt(k,502)*y(k,31) +rxt(k,531)*y(k,104) + & - rxt(k,533)*y(k,95))*y(k,20) +.700_r8*rxt(k,530)*y(k,104)*y(k,19) - loss(k,12) = (rxt(k,530)* y(k,104) + rxt(k,23) + het_rates(k,19))* y(k,19) - prod(k,12) =rxt(k,528)*y(k,43)*y(k,18) - loss(k,4) = ( + rxt(k,44) + het_rates(k,22))* y(k,22) - prod(k,4) = (rxt(k,542)*y(k,46) +rxt(k,547)*y(k,25) +rxt(k,548)*y(k,46) + & - rxt(k,552)*y(k,25) +rxt(k,553)*y(k,46) +rxt(k,557)*y(k,25))*y(k,40) & - +rxt(k,454)*y(k,24)*y(k,24) +rxt(k,458)*y(k,60)*y(k,25) - loss(k,1) = ( + rxt(k,45) + rxt(k,480) + het_rates(k,23))* y(k,23) - prod(k,1) =rxt(k,479)*y(k,24)*y(k,24) - loss(k,81) = ((rxt(k,485) +rxt(k,486) +rxt(k,487))* y(k,2) +rxt(k,452) & - * y(k,18) + 2._r8*(rxt(k,453) +rxt(k,454) +rxt(k,455) +rxt(k,479)) & - * y(k,24) +rxt(k,456)* y(k,43) +rxt(k,457)* y(k,51) +rxt(k,459) & - * y(k,52) +rxt(k,462)* y(k,54) +rxt(k,111)* y(k,65) +rxt(k,123) & - * y(k,68) +rxt(k,281)* y(k,81) +rxt(k,310)* y(k,98) + (rxt(k,463) + & - rxt(k,464))* y(k,104) +rxt(k,337)* y(k,105) +rxt(k,346)* y(k,106) & - + rxt(k,46) + het_rates(k,24))* y(k,24) - prod(k,81) = (rxt(k,467)*y(k,60) +rxt(k,468)*y(k,54) +rxt(k,469)*y(k,104)) & - *y(k,46) + (rxt(k,48) +rxt(k,460)*y(k,54))*y(k,25) & - + (rxt(k,450)*y(k,43) +rxt(k,451)*y(k,56))*y(k,60) & - +2.000_r8*rxt(k,480)*y(k,23) +rxt(k,478)*y(k,95)*y(k,40) +rxt(k,60) & - *y(k,57) - loss(k,34) = ((rxt(k,547) +rxt(k,552) +rxt(k,557))* y(k,40) +rxt(k,460) & - * y(k,54) +rxt(k,458)* y(k,60) +rxt(k,461)* y(k,104) + rxt(k,47) & - + rxt(k,48) + rxt(k,545) + rxt(k,550) + rxt(k,556) & - + het_rates(k,25))* y(k,25) - prod(k,34) =rxt(k,459)*y(k,52)*y(k,24) - loss(k,25) = ((rxt(k,532) +rxt(k,536))* y(k,104) + het_rates(k,27))* y(k,27) - prod(k,25) = (rxt(k,21) +rxt(k,22) +rxt(k,445)*y(k,60) +rxt(k,481)*y(k,59) + & - rxt(k,525)*y(k,53) +rxt(k,526)*y(k,54) +rxt(k,527)*y(k,104))*y(k,14) & - + (rxt(k,26) +rxt(k,62) +rxt(k,573)*y(k,107))*y(k,28) & - +rxt(k,513)*y(k,60)*y(k,17) - loss(k,2) = (rxt(k,506)* y(k,95) + rxt(k,49) + het_rates(k,29))* y(k,29) - prod(k,2) = (rxt(k,471)*y(k,6) +rxt(k,473)*y(k,9) + & - 2.000_r8*rxt(k,474)*y(k,10) +2.000_r8*rxt(k,475)*y(k,11) + & - rxt(k,476)*y(k,12) +rxt(k,497)*y(k,7) +2.000_r8*rxt(k,499)*y(k,34) + & - rxt(k,523)*y(k,38) +rxt(k,524)*y(k,39))*y(k,95) & - + (rxt(k,518)*y(k,38) +rxt(k,519)*y(k,39))*y(k,104) - loss(k,5) = (rxt(k,507)* y(k,95) + rxt(k,50) + het_rates(k,30))* y(k,30) - prod(k,5) = (rxt(k,472)*y(k,8) +rxt(k,473)*y(k,9) +rxt(k,522)*y(k,37)) & - *y(k,95) +rxt(k,517)*y(k,104)*y(k,37) - loss(k,78) = (rxt(k,363)* y(k,88) +rxt(k,307)* y(k,93) +rxt(k,311)* y(k,98) & - +rxt(k,325)* y(k,101) +rxt(k,330)* y(k,102) +rxt(k,338)* y(k,105) & - +rxt(k,347)* y(k,106) +rxt(k,573)* y(k,107) + rxt(k,26) + rxt(k,62) & - + het_rates(k,28))* y(k,28) - prod(k,78) = (rxt(k,63) +rxt(k,109)*y(k,60) +rxt(k,110)*y(k,60) + & - rxt(k,111)*y(k,24) +rxt(k,112)*y(k,32) +rxt(k,119)*y(k,42) + & - rxt(k,120)*y(k,54) +rxt(k,121)*y(k,55) +rxt(k,163)*y(k,77) + & - rxt(k,165)*y(k,75) +rxt(k,181)*y(k,73) +rxt(k,199)*y(k,92) + & - rxt(k,216)*y(k,89) +rxt(k,234)*y(k,88) +rxt(k,251)*y(k,99) + & - rxt(k,253)*y(k,75) +rxt(k,260)*y(k,77) +rxt(k,275)*y(k,51) + & - rxt(k,276)*y(k,52))*y(k,65) + (rxt(k,115)*y(k,52) + & - rxt(k,116)*y(k,52) +rxt(k,117)*y(k,51) +rxt(k,118)*y(k,51) + & - rxt(k,150)*y(k,99) +rxt(k,153)*y(k,75) +rxt(k,173)*y(k,77) + & - rxt(k,191)*y(k,73) +rxt(k,208)*y(k,92) +rxt(k,226)*y(k,89) + & - rxt(k,244)*y(k,88) +rxt(k,255)*y(k,75) +rxt(k,256)*y(k,77))*y(k,67) & - + (rxt(k,65) +rxt(k,122)*y(k,60) +rxt(k,123)*y(k,24) + & - rxt(k,125)*y(k,40) +rxt(k,127)*y(k,56) +rxt(k,146)*y(k,99) + & - rxt(k,169)*y(k,77) +rxt(k,186)*y(k,73) +rxt(k,204)*y(k,92) + & - rxt(k,220)*y(k,75) +rxt(k,222)*y(k,89) +rxt(k,239)*y(k,88))*y(k,68) & - + (rxt(k,148)*y(k,99) +rxt(k,171)*y(k,77) +rxt(k,189)*y(k,73) + & - rxt(k,206)*y(k,92) +rxt(k,224)*y(k,89) +rxt(k,241)*y(k,88) + & - rxt(k,242)*y(k,75) +rxt(k,254)*y(k,77) +rxt(k,266)*y(k,75))*y(k,66) & - + (rxt(k,144)*y(k,99) +rxt(k,167)*y(k,77) +rxt(k,184)*y(k,73) + & - rxt(k,198)*y(k,75) +rxt(k,202)*y(k,92) +rxt(k,219)*y(k,89) + & - rxt(k,237)*y(k,88))*y(k,71) + (rxt(k,364) +rxt(k,301)*y(k,69) + & - rxt(k,302)*y(k,110))*y(k,91) + (rxt(k,532)*y(k,104) + & - rxt(k,536)*y(k,104))*y(k,27) - loss(k,30) = (rxt(k,502)* y(k,20) +rxt(k,503)* y(k,33) +rxt(k,505)* y(k,42) & - +rxt(k,504)* y(k,110) + het_rates(k,31))* y(k,31) - prod(k,30) = (rxt(k,475)*y(k,11) +rxt(k,497)*y(k,7) + & - 2.000_r8*rxt(k,506)*y(k,29) +rxt(k,507)*y(k,30))*y(k,95) & - +2.000_r8*rxt(k,49)*y(k,29) +rxt(k,50)*y(k,30) +rxt(k,57)*y(k,41) - loss(k,86) = ((rxt(k,403) +rxt(k,404) +rxt(k,405))* y(k,43) +rxt(k,406) & - * y(k,55) +rxt(k,409)* y(k,56) +rxt(k,100)* y(k,61) +rxt(k,112) & - * y(k,65) +rxt(k,124)* y(k,68) +rxt(k,282)* y(k,81) +rxt(k,304) & - * y(k,92) +rxt(k,312)* y(k,98) +rxt(k,326)* y(k,101) +rxt(k,339) & - * y(k,105) + het_rates(k,32))* y(k,32) - prod(k,86) = (rxt(k,136)*y(k,69) +rxt(k,142)*y(k,61) +rxt(k,153)*y(k,67) + & - rxt(k,157)*y(k,82) +rxt(k,158)*y(k,86) +rxt(k,159)*y(k,62) + & - rxt(k,160)*y(k,84) +rxt(k,161)*y(k,81) +rxt(k,165)*y(k,65) + & - rxt(k,176)*y(k,63) +rxt(k,198)*y(k,71) +rxt(k,209)*y(k,98) + & - rxt(k,220)*y(k,68) +rxt(k,231)*y(k,85) +rxt(k,242)*y(k,66) + & - rxt(k,253)*y(k,65) +rxt(k,255)*y(k,67) +rxt(k,257)*y(k,85) + & - rxt(k,266)*y(k,66))*y(k,75) + (rxt(k,139)*y(k,69) + & - rxt(k,163)*y(k,65) +rxt(k,164)*y(k,63) +rxt(k,167)*y(k,71) + & - rxt(k,168)*y(k,98) +rxt(k,169)*y(k,68) +rxt(k,170)*y(k,85) + & - rxt(k,171)*y(k,66) +rxt(k,172)*y(k,61) +rxt(k,173)*y(k,67) + & - rxt(k,174)*y(k,82) +rxt(k,175)*y(k,86) +rxt(k,177)*y(k,62) + & - rxt(k,178)*y(k,84) +rxt(k,179)*y(k,81) +rxt(k,254)*y(k,66) + & - rxt(k,256)*y(k,67) +rxt(k,258)*y(k,85) +rxt(k,260)*y(k,65))*y(k,77) & - + (rxt(k,181)*y(k,65) +rxt(k,182)*y(k,63) +rxt(k,184)*y(k,71) + & - rxt(k,185)*y(k,98) +rxt(k,186)*y(k,68) +rxt(k,188)*y(k,85) + & - rxt(k,189)*y(k,66) +rxt(k,190)*y(k,61) +rxt(k,191)*y(k,67) + & - rxt(k,192)*y(k,82) +rxt(k,193)*y(k,86) +rxt(k,194)*y(k,62) + & - rxt(k,195)*y(k,84) +rxt(k,196)*y(k,81) +rxt(k,378)*y(k,69))*y(k,73) & - + (rxt(k,349)*y(k,106) +rxt(k,384)*y(k,95) +rxt(k,401)*y(k,54) + & - rxt(k,410)*y(k,104) +rxt(k,447)*y(k,60) +rxt(k,503)*y(k,31))*y(k,33) & - + (rxt(k,413)*y(k,54) +rxt(k,433)*y(k,48) +rxt(k,527)*y(k,14) + & - rxt(k,536)*y(k,27))*y(k,104) + (rxt(k,133)*y(k,70) + & - rxt(k,376)*y(k,78) +rxt(k,377)*y(k,72))*y(k,69) & - + (rxt(k,534)*y(k,20) +rxt(k,478)*y(k,40) +rxt(k,501)*y(k,36)) & - *y(k,95) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,110) +2.000_r8*rxt(k,21) & - *y(k,14) +rxt(k,23)*y(k,19) +rxt(k,52)*y(k,36) +rxt(k,56)*y(k,40) & - +rxt(k,57)*y(k,41) - loss(k,50) = (rxt(k,503)* y(k,31) +rxt(k,401)* y(k,54) +rxt(k,447)* y(k,60) & - +rxt(k,384)* y(k,95) +rxt(k,410)* y(k,104) + (rxt(k,348) + & - rxt(k,349))* y(k,106) + het_rates(k,33))* y(k,33) - prod(k,50) =rxt(k,22)*y(k,14) +rxt(k,535)*y(k,95)*y(k,20) +rxt(k,403)*y(k,43) & - *y(k,32) +rxt(k,1)*y(k,110) - loss(k,18) = (rxt(k,402)* y(k,54) +rxt(k,448)* y(k,60) +rxt(k,411)* y(k,104) & - + rxt(k,4) + het_rates(k,35))* y(k,35) - prod(k,18) = (.500_r8*rxt(k,537) +rxt(k,417)*y(k,43))*y(k,43) & - +rxt(k,416)*y(k,104)*y(k,104) - loss(k,33) = (rxt(k,494)* y(k,54) + (rxt(k,500) +rxt(k,501))* y(k,95) & - +rxt(k,495)* y(k,104) + rxt(k,52) + het_rates(k,36))* y(k,36) - prod(k,33) = (rxt(k,481)*y(k,14) +rxt(k,482)*y(k,43))*y(k,59) - loss(k,80) = ((rxt(k,547) +rxt(k,552) +rxt(k,557))* y(k,25) + (rxt(k,549) + & - rxt(k,554))* y(k,45) + (rxt(k,542) +rxt(k,548) +rxt(k,553))* y(k,46) & - +rxt(k,465)* y(k,54) +rxt(k,103)* y(k,61) +rxt(k,101)* y(k,62) & - +rxt(k,125)* y(k,68) +rxt(k,284)* y(k,81) + (rxt(k,271) +rxt(k,293)) & - * y(k,83) + (rxt(k,477) +rxt(k,478))* y(k,95) +rxt(k,313)* y(k,98) & - +rxt(k,466)* y(k,104) +rxt(k,340)* y(k,105) +rxt(k,351)* y(k,106) & - + rxt(k,56) + het_rates(k,40))* y(k,40) - prod(k,80) = (rxt(k,446)*y(k,20) +rxt(k,508)*y(k,13) +rxt(k,510)*y(k,15) + & - 2.000_r8*rxt(k,513)*y(k,17) +rxt(k,515)*y(k,21) +rxt(k,445)*y(k,14) + & - rxt(k,447)*y(k,33) +rxt(k,448)*y(k,35) +rxt(k,449)*y(k,43) + & - rxt(k,467)*y(k,46))*y(k,60) + (rxt(k,381) +rxt(k,164)*y(k,77) + & - rxt(k,176)*y(k,75) +rxt(k,182)*y(k,73) +rxt(k,200)*y(k,92) + & - rxt(k,217)*y(k,89) +rxt(k,235)*y(k,88) +rxt(k,252)*y(k,99) + & - 2.000_r8*rxt(k,262)*y(k,75) +2.000_r8*rxt(k,263)*y(k,77))*y(k,63) & - + (rxt(k,152)*y(k,99) +rxt(k,158)*y(k,75) +rxt(k,175)*y(k,77) + & - rxt(k,193)*y(k,73) +rxt(k,211)*y(k,92) +rxt(k,228)*y(k,89) + & - rxt(k,246)*y(k,88) +rxt(k,294)*y(k,42))*y(k,86) & - + (rxt(k,100)*y(k,32) +rxt(k,104)*y(k,42))*y(k,61) & - +rxt(k,464)*y(k,104)*y(k,24) - loss(k,7) = ( + rxt(k,57) + het_rates(k,41))* y(k,41) - prod(k,7) = (rxt(k,502)*y(k,20) +rxt(k,503)*y(k,33) +rxt(k,504)*y(k,110) + & - rxt(k,505)*y(k,42))*y(k,31) - loss(k,71) = (rxt(k,505)* y(k,31) +rxt(k,104)* y(k,61) +rxt(k,119)* y(k,65) & - +rxt(k,285)* y(k,81) +rxt(k,295)* y(k,83) +rxt(k,290)* y(k,85) & - +rxt(k,294)* y(k,86) +rxt(k,314)* y(k,98) +rxt(k,442)* y(k,104) & - +rxt(k,352)* y(k,106) + rxt(k,9) + het_rates(k,42))* y(k,42) - prod(k,71) = (rxt(k,270) +2.000_r8*rxt(k,141)*y(k,75) + & - 2.000_r8*rxt(k,162)*y(k,77) +2.000_r8*rxt(k,180)*y(k,73) + & - rxt(k,197)*y(k,92) +rxt(k,215)*y(k,89) +rxt(k,233)*y(k,88) + & - rxt(k,250)*y(k,99) +2.000_r8*rxt(k,264)*y(k,75) + & - 2.000_r8*rxt(k,265)*y(k,77))*y(k,87) + (2.000_r8*rxt(k,538) + & - 2.000_r8*rxt(k,541) +2.000_r8*rxt(k,544) +2.000_r8*rxt(k,555) + & - rxt(k,137)*y(k,75) +rxt(k,140)*y(k,77) +rxt(k,288)*y(k,84) + & - rxt(k,292)*y(k,85))*y(k,50) + (rxt(k,545) +rxt(k,550) +rxt(k,556) + & - rxt(k,547)*y(k,40) +rxt(k,552)*y(k,40) +rxt(k,557)*y(k,40))*y(k,25) & - + (rxt(k,166)*y(k,77) +rxt(k,183)*y(k,73) +rxt(k,187)*y(k,75) + & - rxt(k,259)*y(k,75) +rxt(k,261)*y(k,77) +rxt(k,293)*y(k,40))*y(k,83) & - + (rxt(k,543) +rxt(k,546) +rxt(k,551))*y(k,3) & - + (.500_r8*rxt(k,539) +rxt(k,441)*y(k,104))*y(k,52) + (rxt(k,540) + & - rxt(k,525)*y(k,14))*y(k,53) + (rxt(k,135)*y(k,74) + & - rxt(k,138)*y(k,76))*y(k,110) - loss(k,61) = (rxt(k,488)* y(k,2) +rxt(k,528)* y(k,18) +rxt(k,456)* y(k,24) & - + (rxt(k,403) +rxt(k,404) +rxt(k,405))* y(k,32) + 2._r8*rxt(k,417) & - * y(k,43) +rxt(k,434)* y(k,51) +rxt(k,439)* y(k,52) +rxt(k,429) & - * y(k,53) +rxt(k,407)* y(k,54) +rxt(k,408)* y(k,56) +rxt(k,482) & - * y(k,59) + (rxt(k,449) +rxt(k,450))* y(k,60) +rxt(k,305)* y(k,92) & - +rxt(k,412)* y(k,104) + rxt(k,537) + het_rates(k,43))* y(k,43) - prod(k,61) = (rxt(k,511)*y(k,15) +rxt(k,514)*y(k,17) +rxt(k,411)*y(k,35) + & - rxt(k,414)*y(k,56) +rxt(k,432)*y(k,53) +rxt(k,463)*y(k,24) + & - rxt(k,493)*y(k,2) +rxt(k,532)*y(k,27))*y(k,104) & - + (rxt(k,445)*y(k,60) +rxt(k,481)*y(k,59) +rxt(k,525)*y(k,53) + & - rxt(k,526)*y(k,54))*y(k,14) + (rxt(k,510)*y(k,15) + & - rxt(k,513)*y(k,17) +rxt(k,448)*y(k,35))*y(k,60) & - + (rxt(k,312)*y(k,32) +rxt(k,313)*y(k,40) +rxt(k,314)*y(k,42)) & - *y(k,98) + (rxt(k,452)*y(k,24) +rxt(k,529)*y(k,51))*y(k,18) & - + (rxt(k,11) +rxt(k,443))*y(k,44) + (rxt(k,342)*y(k,105) + & - rxt(k,402)*y(k,35))*y(k,54) +rxt(k,534)*y(k,95)*y(k,20) & - +rxt(k,406)*y(k,55)*y(k,32) +rxt(k,125)*y(k,68)*y(k,40) - loss(k,14) = (rxt(k,418)* y(k,104) + rxt(k,10) + rxt(k,11) + rxt(k,443) & - + het_rates(k,44))* y(k,44) - prod(k,14) =rxt(k,439)*y(k,52)*y(k,43) - loss(k,28) = ((rxt(k,549) +rxt(k,554))* y(k,40) +rxt(k,496)* y(k,54) & - + rxt(k,58) + het_rates(k,45))* y(k,45) - prod(k,28) = (rxt(k,543) +rxt(k,546) +rxt(k,551))*y(k,3) +rxt(k,488)*y(k,43) & - *y(k,2) - loss(k,32) = ((rxt(k,542) +rxt(k,548) +rxt(k,553))* y(k,40) +rxt(k,468) & - * y(k,54) +rxt(k,467)* y(k,60) +rxt(k,469)* y(k,104) + rxt(k,59) & - + het_rates(k,46))* y(k,46) - prod(k,32) = (rxt(k,545) +rxt(k,550) +rxt(k,556) +rxt(k,461)*y(k,104)) & - *y(k,25) +rxt(k,456)*y(k,43)*y(k,24) - loss(k,24) = (rxt(k,335)* y(k,104) + rxt(k,12) + het_rates(k,47))* y(k,47) - prod(k,24) = (rxt(k,284)*y(k,40) +rxt(k,285)*y(k,42))*y(k,81) & - +rxt(k,344)*y(k,104)*y(k,51) +rxt(k,300)*y(k,110)*y(k,90) - loss(k,40) = (rxt(k,421)* y(k,51) + (rxt(k,422) +rxt(k,423) +rxt(k,424)) & - * y(k,52) +rxt(k,425)* y(k,55) +rxt(k,570)* y(k,99) +rxt(k,433) & - * y(k,104) + rxt(k,66) + het_rates(k,48))* y(k,48) - prod(k,40) = (rxt(k,419)*y(k,79) +rxt(k,567)*y(k,94))*y(k,54) & - + (.200_r8*rxt(k,561)*y(k,88) +1.100_r8*rxt(k,563)*y(k,80))*y(k,69) & - +rxt(k,17)*y(k,51) +rxt(k,568)*y(k,94)*y(k,55) +rxt(k,574)*y(k,107) - loss(k,37) = (rxt(k,137)* y(k,75) +rxt(k,140)* y(k,77) +rxt(k,288)* y(k,84) & - +rxt(k,292)* y(k,85) + rxt(k,14) + rxt(k,15) + rxt(k,444) & - + rxt(k,538) + rxt(k,541) + rxt(k,544) + rxt(k,555) & - + het_rates(k,50))* y(k,50) - prod(k,37) =rxt(k,440)*y(k,53)*y(k,52) - loss(k,87) = (rxt(k,489)* y(k,2) +rxt(k,529)* y(k,18) +rxt(k,457)* y(k,24) & - +rxt(k,434)* y(k,43) +rxt(k,421)* y(k,48) +rxt(k,430)* y(k,53) & - +rxt(k,436)* y(k,54) +rxt(k,435)* y(k,56) + (rxt(k,106) +rxt(k,107)) & - * y(k,64) +rxt(k,275)* y(k,65) + (rxt(k,117) +rxt(k,118))* y(k,67) & - +rxt(k,572)* y(k,99) + (rxt(k,267) +rxt(k,274))* y(k,101) & - +rxt(k,344)* y(k,104) +rxt(k,131)* y(k,106) + rxt(k,16) + rxt(k,17) & - + het_rates(k,51))* y(k,51) - prod(k,87) = (rxt(k,197)*y(k,87) +rxt(k,199)*y(k,65) +rxt(k,200)*y(k,63) + & - rxt(k,201)*y(k,83) +rxt(k,202)*y(k,71) +rxt(k,203)*y(k,98) + & - rxt(k,204)*y(k,68) +rxt(k,205)*y(k,85) +rxt(k,206)*y(k,66) + & - rxt(k,207)*y(k,61) +rxt(k,208)*y(k,67) +rxt(k,210)*y(k,82) + & - rxt(k,211)*y(k,86) +rxt(k,212)*y(k,62) +rxt(k,213)*y(k,84) + & - rxt(k,214)*y(k,81) +rxt(k,303)*y(k,69) +rxt(k,304)*y(k,32))*y(k,92) & - + (rxt(k,215)*y(k,87) +rxt(k,216)*y(k,65) +rxt(k,217)*y(k,63) + & - rxt(k,218)*y(k,83) +rxt(k,219)*y(k,71) +rxt(k,221)*y(k,98) + & - rxt(k,222)*y(k,68) +rxt(k,223)*y(k,85) +rxt(k,224)*y(k,66) + & - rxt(k,225)*y(k,61) +rxt(k,226)*y(k,67) +rxt(k,227)*y(k,82) + & - rxt(k,228)*y(k,86) +rxt(k,229)*y(k,62) +rxt(k,230)*y(k,84) + & - rxt(k,232)*y(k,81) +rxt(k,298)*y(k,69))*y(k,89) & - + (rxt(k,233)*y(k,87) +rxt(k,234)*y(k,65) +rxt(k,235)*y(k,63) + & - rxt(k,236)*y(k,83) +rxt(k,237)*y(k,71) +rxt(k,238)*y(k,98) + & - rxt(k,239)*y(k,68) +rxt(k,240)*y(k,85) +rxt(k,241)*y(k,66) + & - rxt(k,243)*y(k,61) +rxt(k,244)*y(k,67) +rxt(k,245)*y(k,82) + & - rxt(k,246)*y(k,86) +rxt(k,247)*y(k,62) +rxt(k,248)*y(k,84) + & - rxt(k,249)*y(k,81))*y(k,88) + (rxt(k,18) +.500_r8*rxt(k,539) + & - rxt(k,286)*y(k,81) +2.000_r8*rxt(k,423)*y(k,48) +rxt(k,426)*y(k,54)) & - *y(k,52) + (rxt(k,299)*y(k,90) +rxt(k,301)*y(k,91) + & - rxt(k,379)*y(k,93))*y(k,69) + (rxt(k,425)*y(k,55) + & - rxt(k,433)*y(k,104))*y(k,48) +rxt(k,282)*y(k,81)*y(k,32) +rxt(k,12) & - *y(k,47) +2.000_r8*rxt(k,437)*y(k,95)*y(k,49) +rxt(k,15)*y(k,50) & - +rxt(k,20)*y(k,53) +rxt(k,420)*y(k,79)*y(k,55) +rxt(k,571)*y(k,99) & - +rxt(k,584)*y(k,109) - loss(k,72) = (rxt(k,490)* y(k,2) +rxt(k,459)* y(k,24) +rxt(k,439)* y(k,43) & - + (rxt(k,422) +rxt(k,423) +rxt(k,424))* y(k,48) +rxt(k,440)* y(k,53) & - + (rxt(k,426) +rxt(k,428))* y(k,54) +rxt(k,427)* y(k,56) +rxt(k,105) & - * y(k,61) +rxt(k,276)* y(k,65) + (rxt(k,115) +rxt(k,116))* y(k,67) & - +rxt(k,286)* y(k,81) +rxt(k,315)* y(k,98) + (rxt(k,272) +rxt(k,273)) & - * y(k,101) +rxt(k,441)* y(k,104) +rxt(k,341)* y(k,105) +rxt(k,354) & - * y(k,106) + rxt(k,18) + rxt(k,539) + het_rates(k,52))* y(k,52) - prod(k,72) = (rxt(k,107)*y(k,64) +rxt(k,131)*y(k,106) + & - 2.000_r8*rxt(k,430)*y(k,53) +rxt(k,434)*y(k,43) +rxt(k,435)*y(k,56) + & - rxt(k,436)*y(k,54) +rxt(k,457)*y(k,24) +rxt(k,489)*y(k,2) + & - rxt(k,529)*y(k,18))*y(k,51) + (rxt(k,75) +rxt(k,156)*y(k,99) + & - rxt(k,161)*y(k,75) +rxt(k,179)*y(k,77) +rxt(k,196)*y(k,73) + & - rxt(k,214)*y(k,92) +rxt(k,232)*y(k,89) +rxt(k,249)*y(k,88) + & - rxt(k,280)*y(k,60))*y(k,81) + (rxt(k,151)*y(k,99) + & - rxt(k,157)*y(k,75) +rxt(k,174)*y(k,77) +rxt(k,192)*y(k,73) + & - rxt(k,210)*y(k,92) +rxt(k,227)*y(k,89) +rxt(k,245)*y(k,88))*y(k,82) & - + (rxt(k,19) +rxt(k,429)*y(k,43) +rxt(k,431)*y(k,54) + & - rxt(k,432)*y(k,104))*y(k,53) + (rxt(k,11) +rxt(k,443) + & - rxt(k,418)*y(k,104))*y(k,44) + (rxt(k,14) +rxt(k,444))*y(k,50) & - + (rxt(k,306)*y(k,92) +rxt(k,335)*y(k,47))*y(k,104) +rxt(k,29) & - *y(k,3) +rxt(k,48)*y(k,25) +rxt(k,9)*y(k,42) - loss(k,74) = (rxt(k,525)* y(k,14) +rxt(k,429)* y(k,43) +rxt(k,430)* y(k,51) & - +rxt(k,440)* y(k,52) +rxt(k,431)* y(k,54) +rxt(k,432)* y(k,104) & - + rxt(k,19) + rxt(k,20) + rxt(k,540) + het_rates(k,53))* y(k,53) - prod(k,74) = (rxt(k,147)*y(k,99) +rxt(k,170)*y(k,77) +rxt(k,188)*y(k,73) + & - rxt(k,205)*y(k,92) +rxt(k,223)*y(k,89) +rxt(k,231)*y(k,75) + & - rxt(k,240)*y(k,88) +rxt(k,257)*y(k,75) +rxt(k,258)*y(k,77))*y(k,85) & - + (rxt(k,155)*y(k,99) +rxt(k,160)*y(k,75) +rxt(k,178)*y(k,77) + & - rxt(k,195)*y(k,73) +rxt(k,213)*y(k,92) +rxt(k,230)*y(k,89) + & - rxt(k,248)*y(k,88))*y(k,84) + (rxt(k,152)*y(k,99) + & - rxt(k,158)*y(k,75) +rxt(k,175)*y(k,77) +rxt(k,193)*y(k,73) + & - rxt(k,211)*y(k,92) +rxt(k,228)*y(k,89) +rxt(k,246)*y(k,88))*y(k,86) & - + (rxt(k,76) +rxt(k,143)*y(k,99) +rxt(k,201)*y(k,92) + & - rxt(k,218)*y(k,89) +rxt(k,236)*y(k,88))*y(k,83) + (rxt(k,47) + & - rxt(k,458)*y(k,60) +rxt(k,460)*y(k,54) +rxt(k,461)*y(k,104))*y(k,25) & - + (rxt(k,197)*y(k,92) +rxt(k,215)*y(k,89) +rxt(k,233)*y(k,88) + & - rxt(k,250)*y(k,99))*y(k,87) + (rxt(k,14) +rxt(k,15) +rxt(k,444)) & - *y(k,50) + (rxt(k,30) +rxt(k,491)*y(k,54))*y(k,3) & - + (rxt(k,442)*y(k,104) +rxt(k,505)*y(k,31))*y(k,42) & - + (rxt(k,427)*y(k,56) +rxt(k,428)*y(k,54))*y(k,52) & - +rxt(k,281)*y(k,81)*y(k,24) +rxt(k,305)*y(k,92)*y(k,43) +rxt(k,10) & - *y(k,44) - loss(k,68) = (rxt(k,492)* y(k,2) +rxt(k,491)* y(k,3) +rxt(k,526)* y(k,14) & - +rxt(k,462)* y(k,24) +rxt(k,460)* y(k,25) +rxt(k,401)* y(k,33) & - +rxt(k,402)* y(k,35) +rxt(k,494)* y(k,36) +rxt(k,465)* y(k,40) & - +rxt(k,407)* y(k,43) +rxt(k,496)* y(k,45) +rxt(k,468)* y(k,46) & - +rxt(k,436)* y(k,51) + (rxt(k,426) +rxt(k,428))* y(k,52) +rxt(k,431) & - * y(k,53) + 2._r8*rxt(k,399)* y(k,54) +rxt(k,400)* y(k,55) & - +rxt(k,398)* y(k,56) +rxt(k,108)* y(k,64) +rxt(k,120)* y(k,65) & - +rxt(k,126)* y(k,68) + (rxt(k,565) +rxt(k,566))* y(k,80) +rxt(k,296) & - * y(k,83) +rxt(k,567)* y(k,94) + (rxt(k,319) +rxt(k,320))* y(k,98) & - + (rxt(k,328) +rxt(k,329))* y(k,101) +rxt(k,331)* y(k,102) & - +rxt(k,333)* y(k,103) +rxt(k,413)* y(k,104) +rxt(k,342)* y(k,105) & - +rxt(k,355)* y(k,106) + rxt(k,77) + rxt(k,78) + rxt(k,79) & - + rxt(k,80) + rxt(k,81) + rxt(k,82) + het_rates(k,54))* y(k,54) - prod(k,68) = (2.000_r8*rxt(k,5) +rxt(k,6) +rxt(k,83) +2.000_r8*rxt(k,84) + & - rxt(k,85) +rxt(k,87) +2.000_r8*rxt(k,89) +rxt(k,90) +rxt(k,91) + & - rxt(k,92) +rxt(k,387)*y(k,95) +rxt(k,388)*y(k,95) + & - rxt(k,425)*y(k,48) +rxt(k,569)*y(k,94) +rxt(k,576)*y(k,107) + & - rxt(k,580)*y(k,108))*y(k,55) + (rxt(k,109)*y(k,60) + & - rxt(k,163)*y(k,77) +rxt(k,165)*y(k,75) +rxt(k,181)*y(k,73) + & - rxt(k,199)*y(k,92) +rxt(k,216)*y(k,89) +rxt(k,234)*y(k,88) + & - rxt(k,251)*y(k,99) +rxt(k,253)*y(k,75) +rxt(k,260)*y(k,77))*y(k,65) & - + (rxt(k,148)*y(k,99) +rxt(k,171)*y(k,77) +rxt(k,189)*y(k,73) + & - rxt(k,206)*y(k,92) +rxt(k,224)*y(k,89) +rxt(k,241)*y(k,88) + & - rxt(k,242)*y(k,75) +rxt(k,254)*y(k,77) +rxt(k,266)*y(k,75))*y(k,66) & - + (rxt(k,150)*y(k,99) +rxt(k,153)*y(k,75) +rxt(k,173)*y(k,77) + & - rxt(k,191)*y(k,73) +rxt(k,208)*y(k,92) +rxt(k,226)*y(k,89) + & - rxt(k,244)*y(k,88) +rxt(k,255)*y(k,75) +rxt(k,256)*y(k,77))*y(k,67) & - + (rxt(k,99) +rxt(k,353) +rxt(k,345)*y(k,60) +rxt(k,354)*y(k,52) + & - rxt(k,358)*y(k,56))*y(k,106) + (rxt(k,421)*y(k,51) + & - rxt(k,422)*y(k,52) +rxt(k,570)*y(k,99))*y(k,48) + (rxt(k,26) + & - rxt(k,62))*y(k,28) + (rxt(k,17) +rxt(k,267)*y(k,101))*y(k,51) & - + (rxt(k,561)*y(k,88) +1.150_r8*rxt(k,562)*y(k,99))*y(k,69) & - +rxt(k,28)*y(k,2) +rxt(k,46)*y(k,24) +rxt(k,405)*y(k,43)*y(k,32) & - +rxt(k,15)*y(k,50) +rxt(k,18)*y(k,52) +rxt(k,19)*y(k,53) +rxt(k,8) & - *y(k,56) +rxt(k,60)*y(k,57) +rxt(k,575)*y(k,107)*y(k,79) +rxt(k,386) & - *y(k,95) +rxt(k,415)*y(k,104)*y(k,104) +rxt(k,578)*y(k,108) & - +rxt(k,583)*y(k,109) +rxt(k,2)*y(k,110) - loss(k,75) = (rxt(k,406)* y(k,32) +rxt(k,425)* y(k,48) +rxt(k,400)* y(k,54) & - +rxt(k,121)* y(k,65) + (rxt(k,128) +rxt(k,130))* y(k,69) +rxt(k,420) & - * y(k,79) +rxt(k,564)* y(k,80) + (rxt(k,568) +rxt(k,569))* y(k,94) & - +rxt(k,387)* y(k,95) +rxt(k,392)* y(k,96) +rxt(k,317)* y(k,98) & - +rxt(k,359)* y(k,99) +rxt(k,357)* y(k,106) +rxt(k,576)* y(k,107) & - +rxt(k,580)* y(k,108) + 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,55))* y(k,55) - prod(k,75) = (rxt(k,108)*y(k,64) +rxt(k,126)*y(k,68) +rxt(k,296)*y(k,83) + & - rxt(k,320)*y(k,98) +2.000_r8*rxt(k,328)*y(k,101) + & - rxt(k,329)*y(k,101) +rxt(k,331)*y(k,102) +rxt(k,355)*y(k,106) + & - rxt(k,391)*y(k,96) +2.000_r8*rxt(k,398)*y(k,56) +rxt(k,399)*y(k,54) + & - rxt(k,407)*y(k,43) +rxt(k,413)*y(k,104) +rxt(k,426)*y(k,52) + & - rxt(k,431)*y(k,53) +rxt(k,462)*y(k,24) +rxt(k,492)*y(k,2))*y(k,54) & - + (rxt(k,143)*y(k,83) +rxt(k,144)*y(k,71) + & - 2.000_r8*rxt(k,146)*y(k,68) +rxt(k,147)*y(k,85) +rxt(k,148)*y(k,66) + & - rxt(k,149)*y(k,61) +rxt(k,150)*y(k,67) +rxt(k,151)*y(k,82) + & - rxt(k,152)*y(k,86) +rxt(k,154)*y(k,62) +rxt(k,155)*y(k,84) + & - rxt(k,156)*y(k,81) +rxt(k,250)*y(k,87) +rxt(k,251)*y(k,65) + & - rxt(k,252)*y(k,63) +rxt(k,572)*y(k,51))*y(k,99) + (rxt(k,8) + & - rxt(k,127)*y(k,68) +rxt(k,129)*y(k,69) +rxt(k,287)*y(k,81) + & - 2.000_r8*rxt(k,297)*y(k,83) +rxt(k,318)*y(k,98) + & - 3.000_r8*rxt(k,327)*y(k,101) +2.000_r8*rxt(k,389)*y(k,95) + & - 2.000_r8*rxt(k,408)*y(k,43) +rxt(k,409)*y(k,32) + & - rxt(k,414)*y(k,104) +rxt(k,427)*y(k,52) +rxt(k,435)*y(k,51) + & - rxt(k,451)*y(k,60) +rxt(k,483)*y(k,59))*y(k,56) + (rxt(k,93) + & - rxt(k,132) +rxt(k,168)*y(k,77) +rxt(k,185)*y(k,73) + & - rxt(k,203)*y(k,92) +rxt(k,209)*y(k,75) +rxt(k,221)*y(k,89) + & - rxt(k,238)*y(k,88) +rxt(k,309)*y(k,60) +rxt(k,310)*y(k,24) + & - rxt(k,315)*y(k,52) +2.000_r8*rxt(k,316)*y(k,96))*y(k,98) & - + (rxt(k,111)*y(k,65) +rxt(k,123)*y(k,68) +rxt(k,346)*y(k,106) + & - rxt(k,453)*y(k,24) +rxt(k,454)*y(k,24) +rxt(k,456)*y(k,43) + & - rxt(k,464)*y(k,104) +rxt(k,486)*y(k,2) +rxt(k,487)*y(k,2))*y(k,24) & - + (rxt(k,403)*y(k,32) +rxt(k,412)*y(k,104) +rxt(k,417)*y(k,43) + & - rxt(k,429)*y(k,53) +rxt(k,449)*y(k,60) +rxt(k,482)*y(k,59) + & - rxt(k,488)*y(k,2) +rxt(k,528)*y(k,18))*y(k,43) & - + (rxt(k,122)*y(k,60) +rxt(k,169)*y(k,77) +rxt(k,186)*y(k,73) + & - rxt(k,204)*y(k,92) +rxt(k,220)*y(k,75) +rxt(k,222)*y(k,89) + & - rxt(k,239)*y(k,88))*y(k,68) + (rxt(k,95) +rxt(k,272)*y(k,52) + & - rxt(k,274)*y(k,51) +rxt(k,325)*y(k,28) +rxt(k,326)*y(k,32))*y(k,101) & - + (rxt(k,382) +rxt(k,390) +2.000_r8*rxt(k,334)*y(k,103) + & - 2.000_r8*rxt(k,392)*y(k,55))*y(k,96) + (rxt(k,321)*y(k,69) + & - rxt(k,322)*y(k,110) +rxt(k,323)*y(k,110))*y(k,100) + (rxt(k,97) + & - rxt(k,330)*y(k,28))*y(k,102) + (rxt(k,332)*y(k,110) + & - 2.000_r8*rxt(k,375)*y(k,69))*y(k,103) +rxt(k,484)*y(k,2)*y(k,2) & - +rxt(k,418)*y(k,104)*y(k,44) +rxt(k,424)*y(k,52)*y(k,48) & - +rxt(k,438)*y(k,95)*y(k,49) +rxt(k,20)*y(k,53) +rxt(k,383)*y(k,97) - loss(k,79) = (rxt(k,409)* y(k,32) +rxt(k,408)* y(k,43) +rxt(k,435)* y(k,51) & - +rxt(k,427)* y(k,52) +rxt(k,398)* y(k,54) +rxt(k,483)* y(k,59) & - +rxt(k,451)* y(k,60) +rxt(k,127)* y(k,68) +rxt(k,129)* y(k,69) & - +rxt(k,287)* y(k,81) +rxt(k,297)* y(k,83) +rxt(k,389)* y(k,95) & - +rxt(k,318)* y(k,98) +rxt(k,327)* y(k,101) +rxt(k,414)* y(k,104) & - +rxt(k,343)* y(k,105) +rxt(k,358)* y(k,106) + rxt(k,7) + rxt(k,8) & - + het_rates(k,56))* y(k,56) - prod(k,79) = (rxt(k,319)*y(k,98) +rxt(k,333)*y(k,103) +rxt(k,400)*y(k,55)) & - *y(k,54) + (rxt(k,96) +rxt(k,273)*y(k,52))*y(k,101) & - +rxt(k,356)*y(k,106)*y(k,96) - loss(k,3) = ( + rxt(k,60) + het_rates(k,57))* y(k,57) - prod(k,3) = (rxt(k,455)*y(k,24) +rxt(k,485)*y(k,2))*y(k,24) - loss(k,44) = (rxt(k,481)* y(k,14) +rxt(k,482)* y(k,43) +rxt(k,483)* y(k,56) & - + het_rates(k,59))* y(k,59) - prod(k,44) = (rxt(k,28) +2.000_r8*rxt(k,484)*y(k,2) +rxt(k,485)*y(k,24) + & - rxt(k,486)*y(k,24) +rxt(k,489)*y(k,51) +rxt(k,492)*y(k,54) + & - rxt(k,493)*y(k,104))*y(k,2) + (rxt(k,471)*y(k,6) +rxt(k,497)*y(k,7) + & - 3.000_r8*rxt(k,498)*y(k,21) +2.000_r8*rxt(k,499)*y(k,34) + & - 2.000_r8*rxt(k,520)*y(k,13) +rxt(k,521)*y(k,15) +rxt(k,500)*y(k,36)) & - *y(k,95) + (2.000_r8*rxt(k,509)*y(k,13) +rxt(k,511)*y(k,15) + & - 3.000_r8*rxt(k,516)*y(k,21) +rxt(k,495)*y(k,36))*y(k,104) & - + (2.000_r8*rxt(k,508)*y(k,13) +rxt(k,510)*y(k,15) + & - 3.000_r8*rxt(k,515)*y(k,21))*y(k,60) + (rxt(k,52) + & - rxt(k,494)*y(k,54))*y(k,36) +rxt(k,27)*y(k,1) +rxt(k,30)*y(k,3) & - +rxt(k,58)*y(k,45) - loss(k,85) = (rxt(k,508)* y(k,13) +rxt(k,445)* y(k,14) +rxt(k,510)* y(k,15) & - +rxt(k,513)* y(k,17) +rxt(k,446)* y(k,20) +rxt(k,515)* y(k,21) & - +rxt(k,458)* y(k,25) +rxt(k,447)* y(k,33) +rxt(k,448)* y(k,35) & - + (rxt(k,449) +rxt(k,450))* y(k,43) +rxt(k,467)* y(k,46) +rxt(k,451) & - * y(k,56) + (rxt(k,109) +rxt(k,110))* y(k,65) +rxt(k,122)* y(k,68) & - +rxt(k,280)* y(k,81) +rxt(k,309)* y(k,98) +rxt(k,336)* y(k,105) & - +rxt(k,345)* y(k,106) + het_rates(k,60))* y(k,60) - prod(k,85) = (4.000_r8*rxt(k,470)*y(k,5) +rxt(k,471)*y(k,6) + & - 2.000_r8*rxt(k,472)*y(k,8) +2.000_r8*rxt(k,473)*y(k,9) + & - 2.000_r8*rxt(k,474)*y(k,10) +rxt(k,475)*y(k,11) + & - 2.000_r8*rxt(k,476)*y(k,12) +rxt(k,522)*y(k,37) +rxt(k,523)*y(k,38) + & - rxt(k,524)*y(k,39) +rxt(k,477)*y(k,40) +rxt(k,507)*y(k,30))*y(k,95) & - + (rxt(k,46) +rxt(k,452)*y(k,18) +2.000_r8*rxt(k,453)*y(k,24) + & - rxt(k,455)*y(k,24) +rxt(k,457)*y(k,51) +rxt(k,462)*y(k,54) + & - rxt(k,463)*y(k,104) +rxt(k,486)*y(k,2))*y(k,24) & - + (rxt(k,105)*y(k,52) +rxt(k,142)*y(k,75) +rxt(k,149)*y(k,99) + & - rxt(k,172)*y(k,77) +rxt(k,190)*y(k,73) +rxt(k,207)*y(k,92) + & - rxt(k,225)*y(k,89) +rxt(k,243)*y(k,88))*y(k,61) & - + (rxt(k,154)*y(k,99) +rxt(k,159)*y(k,75) +rxt(k,177)*y(k,77) + & - rxt(k,194)*y(k,73) +rxt(k,212)*y(k,92) +rxt(k,229)*y(k,89) + & - rxt(k,247)*y(k,88))*y(k,62) + (rxt(k,164)*y(k,77) + & - rxt(k,176)*y(k,75) +rxt(k,182)*y(k,73) +rxt(k,200)*y(k,92) + & - rxt(k,217)*y(k,89) +rxt(k,235)*y(k,88) +rxt(k,252)*y(k,99))*y(k,63) & - + (3.000_r8*rxt(k,512)*y(k,16) +rxt(k,514)*y(k,17) + & - rxt(k,517)*y(k,37) +rxt(k,518)*y(k,38) +rxt(k,519)*y(k,39) + & - rxt(k,466)*y(k,40))*y(k,104) + (rxt(k,56) +rxt(k,465)*y(k,54)) & - *y(k,40) +rxt(k,27)*y(k,1) +2.000_r8*rxt(k,44)*y(k,22) & - +2.000_r8*rxt(k,45)*y(k,23) +rxt(k,47)*y(k,25) +rxt(k,50)*y(k,30) & - +rxt(k,59)*y(k,46) +rxt(k,106)*y(k,64)*y(k,51) - loss(k,58) = (rxt(k,100)* y(k,32) +rxt(k,103)* y(k,40) +rxt(k,104)* y(k,42) & - +rxt(k,105)* y(k,52) +rxt(k,190)* y(k,73) +rxt(k,142)* y(k,75) & - +rxt(k,172)* y(k,77) +rxt(k,243)* y(k,88) +rxt(k,225)* y(k,89) & - +rxt(k,207)* y(k,92) +rxt(k,149)* y(k,99) +rxt(k,102)* y(k,110) & - + het_rates(k,61))* y(k,61) - prod(k,58) = (rxt(k,125)*y(k,68) +rxt(k,284)*y(k,81) +rxt(k,293)*y(k,83) + & - rxt(k,313)*y(k,98) +rxt(k,340)*y(k,105) +rxt(k,351)*y(k,106))*y(k,40) & - + (rxt(k,109)*y(k,65) +rxt(k,122)*y(k,68) +rxt(k,280)*y(k,81) + & - rxt(k,309)*y(k,98) +rxt(k,336)*y(k,105) +rxt(k,345)*y(k,106))*y(k,60) & - + (rxt(k,111)*y(k,65) +rxt(k,281)*y(k,81) +rxt(k,346)*y(k,106)) & - *y(k,24) + (rxt(k,107)*y(k,51) +rxt(k,108)*y(k,54))*y(k,64) & - +rxt(k,380)*y(k,62) +rxt(k,381)*y(k,63) - loss(k,46) = (rxt(k,101)* y(k,40) +rxt(k,194)* y(k,73) +rxt(k,159)* y(k,75) & - +rxt(k,177)* y(k,77) +rxt(k,247)* y(k,88) +rxt(k,229)* y(k,89) & - +rxt(k,212)* y(k,92) +rxt(k,154)* y(k,99) + rxt(k,380) & - + het_rates(k,62))* y(k,62) - prod(k,46) =rxt(k,102)*y(k,110)*y(k,61) - loss(k,45) = (rxt(k,182)* y(k,73) + (rxt(k,176) +rxt(k,262))* y(k,75) & - + (rxt(k,164) +rxt(k,263))* y(k,77) +rxt(k,235)* y(k,88) +rxt(k,217) & - * y(k,89) +rxt(k,200)* y(k,92) +rxt(k,252)* y(k,99) + rxt(k,381) & - + het_rates(k,63))* y(k,63) - prod(k,45) = (rxt(k,101)*y(k,62) +rxt(k,103)*y(k,61))*y(k,40) - loss(k,35) = ((rxt(k,106) +rxt(k,107))* y(k,51) +rxt(k,108)* y(k,54) & - + het_rates(k,64))* y(k,64) - prod(k,35) = (rxt(k,123)*y(k,68) +rxt(k,310)*y(k,98) +rxt(k,337)*y(k,105)) & - *y(k,24) +rxt(k,110)*y(k,65)*y(k,60) - loss(k,64) = (rxt(k,111)* y(k,24) +rxt(k,112)* y(k,32) +rxt(k,119)* y(k,42) & - +rxt(k,275)* y(k,51) +rxt(k,276)* y(k,52) +rxt(k,120)* y(k,54) & - +rxt(k,121)* y(k,55) + (rxt(k,109) +rxt(k,110))* y(k,60) +rxt(k,181) & - * y(k,73) + (rxt(k,165) +rxt(k,253))* y(k,75) + (rxt(k,163) + & - rxt(k,260))* y(k,77) +rxt(k,234)* y(k,88) +rxt(k,216)* y(k,89) & - +rxt(k,199)* y(k,92) +rxt(k,251)* y(k,99) +rxt(k,114)* y(k,110) & - + rxt(k,63) + het_rates(k,65))* y(k,65) - prod(k,64) = (rxt(k,325)*y(k,101) +rxt(k,347)*y(k,106))*y(k,28) & - + (rxt(k,64) +rxt(k,278))*y(k,67) + (rxt(k,124)*y(k,32) + & - rxt(k,126)*y(k,54))*y(k,68) - loss(k,43) = (rxt(k,189)* y(k,73) + (rxt(k,242) +rxt(k,266))* y(k,75) & - + (rxt(k,171) +rxt(k,254))* y(k,77) +rxt(k,241)* y(k,88) +rxt(k,224) & - * y(k,89) +rxt(k,206)* y(k,92) +rxt(k,148)* y(k,99) + rxt(k,279) & - + het_rates(k,66))* y(k,66) - prod(k,43) =rxt(k,113)*y(k,110)*y(k,67) - loss(k,54) = ((rxt(k,117) +rxt(k,118))* y(k,51) + (rxt(k,115) +rxt(k,116)) & - * y(k,52) +rxt(k,191)* y(k,73) + (rxt(k,153) +rxt(k,255))* y(k,75) & - + (rxt(k,173) +rxt(k,256))* y(k,77) +rxt(k,244)* y(k,88) +rxt(k,226) & - * y(k,89) +rxt(k,208)* y(k,92) +rxt(k,150)* y(k,99) +rxt(k,113) & - * y(k,110) + rxt(k,64) + rxt(k,278) + het_rates(k,67))* y(k,67) - prod(k,54) =rxt(k,114)*y(k,110)*y(k,65) +rxt(k,279)*y(k,66) - loss(k,59) = (rxt(k,123)* y(k,24) +rxt(k,124)* y(k,32) +rxt(k,125)* y(k,40) & - +rxt(k,126)* y(k,54) +rxt(k,127)* y(k,56) +rxt(k,122)* y(k,60) & - +rxt(k,186)* y(k,73) +rxt(k,220)* y(k,75) +rxt(k,169)* y(k,77) & - +rxt(k,239)* y(k,88) +rxt(k,222)* y(k,89) +rxt(k,204)* y(k,92) & - +rxt(k,146)* y(k,99) + rxt(k,65) + het_rates(k,68))* y(k,68) - prod(k,59) = (rxt(k,311)*y(k,98) +rxt(k,330)*y(k,102))*y(k,28) - loss(k,69) = ((rxt(k,128) +rxt(k,130))* y(k,55) +rxt(k,129)* y(k,56) & - +rxt(k,133)* y(k,70) +rxt(k,377)* y(k,72) +rxt(k,378)* y(k,73) & - +rxt(k,136)* y(k,75) +rxt(k,139)* y(k,77) +rxt(k,376)* y(k,78) & - +rxt(k,563)* y(k,80) +rxt(k,561)* y(k,88) +rxt(k,298)* y(k,89) & - +rxt(k,299)* y(k,90) +rxt(k,301)* y(k,91) +rxt(k,303)* y(k,92) & - +rxt(k,379)* y(k,93) +rxt(k,562)* y(k,99) +rxt(k,321)* y(k,100) & - +rxt(k,375)* y(k,103) + het_rates(k,69))* y(k,69) - prod(k,69) = (rxt(k,77) +rxt(k,78) +rxt(k,79) +rxt(k,80) +rxt(k,81) + & - rxt(k,82) +rxt(k,319)*y(k,98) +rxt(k,328)*y(k,101) + & - rxt(k,342)*y(k,105) +rxt(k,355)*y(k,106))*y(k,54) + (rxt(k,83) + & - rxt(k,85) +rxt(k,86) +rxt(k,87) +rxt(k,88) +rxt(k,90) +rxt(k,91) + & - rxt(k,92))*y(k,55) + (rxt(k,99) +rxt(k,353) +rxt(k,131)*y(k,51) + & - rxt(k,348)*y(k,33) +rxt(k,356)*y(k,96))*y(k,106) + (rxt(k,93) + & - rxt(k,132) +rxt(k,312)*y(k,32) +rxt(k,316)*y(k,96))*y(k,98) & - + (rxt(k,100)*y(k,61) +rxt(k,339)*y(k,105))*y(k,32) + (rxt(k,96) + & - rxt(k,327)*y(k,56))*y(k,101) +rxt(k,66)*y(k,48) +rxt(k,16)*y(k,51) & - +rxt(k,75)*y(k,81) +rxt(k,76)*y(k,83) +rxt(k,98)*y(k,105) - loss(k,11) = (rxt(k,133)* y(k,69) +rxt(k,134)* y(k,110) + het_rates(k,70)) & - * y(k,70) - prod(k,11) =rxt(k,322)*y(k,110)*y(k,100) - loss(k,42) = (rxt(k,184)* y(k,73) +rxt(k,198)* y(k,75) +rxt(k,167)* y(k,77) & - +rxt(k,237)* y(k,88) +rxt(k,219)* y(k,89) +rxt(k,202)* y(k,92) & - +rxt(k,144)* y(k,99) + het_rates(k,71))* y(k,71) - prod(k,42) =rxt(k,338)*y(k,105)*y(k,28) - loss(k,21) = (rxt(k,377)* y(k,69) +rxt(k,369)* y(k,110) + rxt(k,368) & - + het_rates(k,72))* y(k,72) - prod(k,21) = (rxt(k,134)*y(k,70) +rxt(k,367)*y(k,78))*y(k,110) +rxt(k,370) & - *y(k,73) - loss(k,65) = (rxt(k,190)* y(k,61) +rxt(k,194)* y(k,62) +rxt(k,182)* y(k,63) & - +rxt(k,181)* y(k,65) +rxt(k,189)* y(k,66) +rxt(k,191)* y(k,67) & - +rxt(k,186)* y(k,68) +rxt(k,378)* y(k,69) +rxt(k,184)* y(k,71) & - +rxt(k,196)* y(k,81) +rxt(k,192)* y(k,82) +rxt(k,183)* y(k,83) & - +rxt(k,195)* y(k,84) +rxt(k,188)* y(k,85) +rxt(k,193)* y(k,86) & - +rxt(k,180)* y(k,87) +rxt(k,185)* y(k,98) +rxt(k,371)* y(k,110) & - + rxt(k,370) + het_rates(k,73))* y(k,73) - prod(k,65) = (rxt(k,300)*y(k,90) +rxt(k,369)*y(k,72))*y(k,110) +rxt(k,372) & - *y(k,75) - loss(k,8) = (rxt(k,135)* y(k,110) + het_rates(k,74))* y(k,74) - prod(k,8) =rxt(k,137)*y(k,75)*y(k,50) - loss(k,73) = (rxt(k,137)* y(k,50) +rxt(k,142)* y(k,61) +rxt(k,159)* y(k,62) & - + (rxt(k,176) +rxt(k,262))* y(k,63) + (rxt(k,165) +rxt(k,253)) & - * y(k,65) + (rxt(k,242) +rxt(k,266))* y(k,66) + (rxt(k,153) + & - rxt(k,255))* y(k,67) +rxt(k,220)* y(k,68) +rxt(k,136)* y(k,69) & - +rxt(k,198)* y(k,71) +rxt(k,161)* y(k,81) +rxt(k,157)* y(k,82) & - + (rxt(k,187) +rxt(k,259))* y(k,83) +rxt(k,160)* y(k,84) & - + (rxt(k,231) +rxt(k,257))* y(k,85) +rxt(k,158)* y(k,86) & - + (rxt(k,141) +rxt(k,264))* y(k,87) +rxt(k,209)* y(k,98) +rxt(k,373) & - * y(k,110) + rxt(k,372) + het_rates(k,75))* y(k,75) - prod(k,73) = (rxt(k,135)*y(k,74) +rxt(k,371)*y(k,73))*y(k,110) +rxt(k,374) & - *y(k,77) - loss(k,9) = (rxt(k,138)* y(k,110) + het_rates(k,76))* y(k,76) - prod(k,9) =rxt(k,140)*y(k,77)*y(k,50) - loss(k,82) = (rxt(k,140)* y(k,50) +rxt(k,172)* y(k,61) +rxt(k,177)* y(k,62) & - + (rxt(k,164) +rxt(k,263))* y(k,63) + (rxt(k,163) +rxt(k,260)) & - * y(k,65) + (rxt(k,171) +rxt(k,254))* y(k,66) + (rxt(k,173) + & - rxt(k,256))* y(k,67) +rxt(k,169)* y(k,68) +rxt(k,139)* y(k,69) & - +rxt(k,167)* y(k,71) +rxt(k,179)* y(k,81) +rxt(k,174)* y(k,82) & - + (rxt(k,166) +rxt(k,261))* y(k,83) +rxt(k,178)* y(k,84) & - + (rxt(k,170) +rxt(k,258))* y(k,85) +rxt(k,175)* y(k,86) & - + (rxt(k,162) +rxt(k,265))* y(k,87) +rxt(k,168)* y(k,98) & - + rxt(k,374) + het_rates(k,77))* y(k,77) - prod(k,82) = (rxt(k,138)*y(k,76) +rxt(k,373)*y(k,75))*y(k,110) - loss(k,26) = (rxt(k,376)* y(k,69) +rxt(k,367)* y(k,110) + het_rates(k,78)) & - * y(k,78) - prod(k,26) = (rxt(k,304)*y(k,32) +rxt(k,305)*y(k,43) +rxt(k,306)*y(k,104)) & - *y(k,92) +rxt(k,368)*y(k,72) +rxt(k,323)*y(k,110)*y(k,100) - loss(k,29) = (rxt(k,419)* y(k,54) +rxt(k,420)* y(k,55) +rxt(k,575)* y(k,107) & - + het_rates(k,79))* y(k,79) - prod(k,29) = (.800_r8*rxt(k,561)*y(k,88) +.900_r8*rxt(k,563)*y(k,80))*y(k,69) & - +rxt(k,565)*y(k,80)*y(k,54) - loss(k,19) = ((rxt(k,565) +rxt(k,566))* y(k,54) +rxt(k,564)* y(k,55) & - +rxt(k,563)* y(k,69) + het_rates(k,80))* y(k,80) - prod(k,19) =rxt(k,578)*y(k,108) +rxt(k,583)*y(k,109) - loss(k,62) = (rxt(k,281)* y(k,24) +rxt(k,282)* y(k,32) +rxt(k,284)* y(k,40) & - +rxt(k,285)* y(k,42) +rxt(k,286)* y(k,52) +rxt(k,287)* y(k,56) & - +rxt(k,280)* y(k,60) +rxt(k,196)* y(k,73) +rxt(k,161)* y(k,75) & - +rxt(k,179)* y(k,77) +rxt(k,249)* y(k,88) +rxt(k,232)* y(k,89) & - +rxt(k,214)* y(k,92) +rxt(k,156)* y(k,99) +rxt(k,283)* y(k,110) & - + rxt(k,75) + het_rates(k,81))* y(k,81) - prod(k,62) = (rxt(k,105)*y(k,61) +rxt(k,273)*y(k,101) +rxt(k,315)*y(k,98) + & - rxt(k,341)*y(k,105) +rxt(k,354)*y(k,106))*y(k,52) & - + (rxt(k,106)*y(k,64) +rxt(k,118)*y(k,67) +rxt(k,274)*y(k,101) + & - rxt(k,275)*y(k,65))*y(k,51) + (rxt(k,296)*y(k,54) + & - rxt(k,297)*y(k,56))*y(k,83) +rxt(k,268)*y(k,82) - loss(k,47) = (rxt(k,192)* y(k,73) +rxt(k,157)* y(k,75) +rxt(k,174)* y(k,77) & - +rxt(k,245)* y(k,88) +rxt(k,227)* y(k,89) +rxt(k,210)* y(k,92) & - +rxt(k,151)* y(k,99) + rxt(k,268) + het_rates(k,82))* y(k,82) - prod(k,47) =rxt(k,117)*y(k,67)*y(k,51) +rxt(k,283)*y(k,110)*y(k,81) - loss(k,60) = ((rxt(k,271) +rxt(k,293))* y(k,40) +rxt(k,295)* y(k,42) & - +rxt(k,296)* y(k,54) +rxt(k,297)* y(k,56) +rxt(k,183)* y(k,73) & - + (rxt(k,187) +rxt(k,259))* y(k,75) + (rxt(k,166) +rxt(k,261)) & - * y(k,77) +rxt(k,236)* y(k,88) +rxt(k,218)* y(k,89) +rxt(k,201) & - * y(k,92) +rxt(k,143)* y(k,99) +rxt(k,291)* y(k,110) + rxt(k,76) & - + het_rates(k,83))* y(k,83) - prod(k,60) = (rxt(k,104)*y(k,61) +rxt(k,119)*y(k,65) +rxt(k,285)*y(k,81) + & - rxt(k,314)*y(k,98) +rxt(k,352)*y(k,106))*y(k,42) & - + (rxt(k,115)*y(k,67) +rxt(k,272)*y(k,101) +rxt(k,276)*y(k,65) + & - rxt(k,286)*y(k,81))*y(k,52) +rxt(k,267)*y(k,101)*y(k,51) & - +rxt(k,287)*y(k,81)*y(k,56) +rxt(k,277)*y(k,85) +rxt(k,270)*y(k,87) - loss(k,53) = (rxt(k,288)* y(k,50) +rxt(k,195)* y(k,73) +rxt(k,160)* y(k,75) & - +rxt(k,178)* y(k,77) +rxt(k,248)* y(k,88) +rxt(k,230)* y(k,89) & - +rxt(k,213)* y(k,92) +rxt(k,155)* y(k,99) + rxt(k,269) & - + het_rates(k,84))* y(k,84) - prod(k,53) =rxt(k,289)*y(k,110)*y(k,85) - loss(k,55) = (rxt(k,290)* y(k,42) +rxt(k,292)* y(k,50) +rxt(k,188)* y(k,73) & - + (rxt(k,231) +rxt(k,257))* y(k,75) + (rxt(k,170) +rxt(k,258)) & - * y(k,77) +rxt(k,240)* y(k,88) +rxt(k,223)* y(k,89) +rxt(k,205) & - * y(k,92) +rxt(k,147)* y(k,99) +rxt(k,289)* y(k,110) + rxt(k,277) & - + het_rates(k,85))* y(k,85) - prod(k,55) =rxt(k,116)*y(k,67)*y(k,52) +rxt(k,291)*y(k,110)*y(k,83) & - +rxt(k,269)*y(k,84) - loss(k,48) = (rxt(k,294)* y(k,42) +rxt(k,193)* y(k,73) +rxt(k,158)* y(k,75) & - +rxt(k,175)* y(k,77) +rxt(k,246)* y(k,88) +rxt(k,228)* y(k,89) & - +rxt(k,211)* y(k,92) +rxt(k,152)* y(k,99) + het_rates(k,86)) & - * y(k,86) - prod(k,48) =rxt(k,271)*y(k,83)*y(k,40) - loss(k,51) = (rxt(k,180)* y(k,73) + (rxt(k,141) +rxt(k,264))* y(k,75) & - + (rxt(k,162) +rxt(k,265))* y(k,77) +rxt(k,233)* y(k,88) +rxt(k,215) & - * y(k,89) +rxt(k,197)* y(k,92) +rxt(k,250)* y(k,99) + rxt(k,270) & - + het_rates(k,87))* y(k,87) - prod(k,51) = (rxt(k,290)*y(k,85) +rxt(k,294)*y(k,86) +rxt(k,295)*y(k,83)) & - *y(k,42) + (rxt(k,288)*y(k,84) +rxt(k,292)*y(k,85))*y(k,50) - loss(k,66) = (rxt(k,363)* y(k,28) +rxt(k,243)* y(k,61) +rxt(k,247)* y(k,62) & - +rxt(k,235)* y(k,63) +rxt(k,234)* y(k,65) +rxt(k,241)* y(k,66) & - +rxt(k,244)* y(k,67) +rxt(k,239)* y(k,68) +rxt(k,561)* y(k,69) & - +rxt(k,237)* y(k,71) +rxt(k,249)* y(k,81) +rxt(k,245)* y(k,82) & - +rxt(k,236)* y(k,83) +rxt(k,248)* y(k,84) +rxt(k,240)* y(k,85) & - +rxt(k,246)* y(k,86) +rxt(k,233)* y(k,87) +rxt(k,238)* y(k,98) & - +rxt(k,360)* y(k,110) + rxt(k,365) + het_rates(k,88))* y(k,88) - prod(k,66) = (rxt(k,571) +rxt(k,570)*y(k,48) +rxt(k,572)*y(k,51))*y(k,99) & - +rxt(k,16)*y(k,51) +rxt(k,565)*y(k,80)*y(k,54) +rxt(k,569)*y(k,94) & - *y(k,55) +rxt(k,364)*y(k,91) +rxt(k,366)*y(k,93) +rxt(k,574)*y(k,107) - loss(k,67) = (rxt(k,225)* y(k,61) +rxt(k,229)* y(k,62) +rxt(k,217)* y(k,63) & - +rxt(k,216)* y(k,65) +rxt(k,224)* y(k,66) +rxt(k,226)* y(k,67) & - +rxt(k,222)* y(k,68) +rxt(k,298)* y(k,69) +rxt(k,219)* y(k,71) & - +rxt(k,232)* y(k,81) +rxt(k,227)* y(k,82) +rxt(k,218)* y(k,83) & - +rxt(k,230)* y(k,84) +rxt(k,223)* y(k,85) +rxt(k,228)* y(k,86) & - +rxt(k,215)* y(k,87) +rxt(k,221)* y(k,98) +rxt(k,362)* y(k,110) & - + het_rates(k,89))* y(k,89) - prod(k,67) =rxt(k,361)*y(k,110)*y(k,92) - loss(k,13) = (rxt(k,299)* y(k,69) +rxt(k,300)* y(k,110) + het_rates(k,90)) & - * y(k,90) - prod(k,13) =rxt(k,362)*y(k,110)*y(k,89) - loss(k,23) = (rxt(k,301)* y(k,69) +rxt(k,302)* y(k,110) + rxt(k,364) & - + het_rates(k,91))* y(k,91) - prod(k,23) = (rxt(k,307)*y(k,93) +rxt(k,363)*y(k,88))*y(k,28) - loss(k,70) = (rxt(k,304)* y(k,32) +rxt(k,305)* y(k,43) +rxt(k,207)* y(k,61) & - +rxt(k,212)* y(k,62) +rxt(k,200)* y(k,63) +rxt(k,199)* y(k,65) & - +rxt(k,206)* y(k,66) +rxt(k,208)* y(k,67) +rxt(k,204)* y(k,68) & - +rxt(k,303)* y(k,69) +rxt(k,202)* y(k,71) +rxt(k,214)* y(k,81) & - +rxt(k,210)* y(k,82) +rxt(k,201)* y(k,83) +rxt(k,213)* y(k,84) & - +rxt(k,205)* y(k,85) +rxt(k,211)* y(k,86) +rxt(k,197)* y(k,87) & - +rxt(k,203)* y(k,98) +rxt(k,306)* y(k,104) +rxt(k,361)* y(k,110) & - + het_rates(k,92))* y(k,92) - prod(k,70) = (rxt(k,302)*y(k,91) +rxt(k,308)*y(k,93) +rxt(k,360)*y(k,88)) & - *y(k,110) - loss(k,22) = (rxt(k,307)* y(k,28) +rxt(k,379)* y(k,69) +rxt(k,308)* y(k,110) & - + rxt(k,366) + het_rates(k,93))* y(k,93) - prod(k,22) =rxt(k,365)*y(k,88) - loss(k,31) = (rxt(k,567)* y(k,54) + (rxt(k,568) +rxt(k,569))* y(k,55) & - + het_rates(k,94))* y(k,94) - prod(k,31) =rxt(k,66)*y(k,48) +rxt(k,575)*y(k,107)*y(k,79) +rxt(k,584) & - *y(k,109) - loss(k,57) = (rxt(k,470)* y(k,5) +rxt(k,471)* y(k,6) +rxt(k,497)* y(k,7) & - +rxt(k,472)* y(k,8) +rxt(k,473)* y(k,9) +rxt(k,474)* y(k,10) & - +rxt(k,475)* y(k,11) +rxt(k,476)* y(k,12) +rxt(k,520)* y(k,13) & - +rxt(k,521)* y(k,15) + (rxt(k,533) +rxt(k,534) +rxt(k,535))* y(k,20) & - +rxt(k,498)* y(k,21) +rxt(k,506)* y(k,29) +rxt(k,507)* y(k,30) & - +rxt(k,384)* y(k,33) +rxt(k,499)* y(k,34) + (rxt(k,500) +rxt(k,501)) & - * y(k,36) +rxt(k,522)* y(k,37) +rxt(k,523)* y(k,38) +rxt(k,524) & - * y(k,39) + (rxt(k,477) +rxt(k,478))* y(k,40) + (rxt(k,437) + & - rxt(k,438))* y(k,49) + (rxt(k,387) +rxt(k,388))* y(k,55) +rxt(k,389) & - * y(k,56) +rxt(k,385)* y(k,110) + rxt(k,386) + het_rates(k,95)) & - * y(k,95) - prod(k,57) = (rxt(k,6) +rxt(k,420)*y(k,79))*y(k,55) +rxt(k,7)*y(k,56) & - +.850_r8*rxt(k,562)*y(k,99)*y(k,69) +rxt(k,1)*y(k,110) - loss(k,36) = (rxt(k,391)* y(k,54) +rxt(k,392)* y(k,55) +rxt(k,316)* y(k,98) & - +rxt(k,334)* y(k,103) +rxt(k,356)* y(k,106) + rxt(k,382) & - + rxt(k,390) + het_rates(k,96))* y(k,96) - prod(k,36) = (rxt(k,394) +rxt(k,393)*y(k,28) +rxt(k,395)*y(k,54) + & - rxt(k,396)*y(k,55) +rxt(k,397)*y(k,56))*y(k,97) +rxt(k,7)*y(k,56) - loss(k,10) = (rxt(k,393)* y(k,28) +rxt(k,395)* y(k,54) +rxt(k,396)* y(k,55) & - +rxt(k,397)* y(k,56) + rxt(k,383) + rxt(k,394) + het_rates(k,97)) & - * y(k,97) - prod(k,10) =rxt(k,387)*y(k,95)*y(k,55) - loss(k,76) = (rxt(k,310)* y(k,24) +rxt(k,311)* y(k,28) +rxt(k,312)* y(k,32) & - +rxt(k,313)* y(k,40) +rxt(k,314)* y(k,42) +rxt(k,315)* y(k,52) & - + (rxt(k,319) +rxt(k,320))* y(k,54) +rxt(k,317)* y(k,55) +rxt(k,318) & - * y(k,56) +rxt(k,309)* y(k,60) +rxt(k,185)* y(k,73) +rxt(k,209) & - * y(k,75) +rxt(k,168)* y(k,77) +rxt(k,238)* y(k,88) +rxt(k,221) & - * y(k,89) +rxt(k,203)* y(k,92) +rxt(k,316)* y(k,96) +rxt(k,145) & - * y(k,99) + rxt(k,93) + rxt(k,132) + het_rates(k,98))* y(k,98) - prod(k,76) = (rxt(k,120)*y(k,65) +rxt(k,329)*y(k,101))*y(k,54) & - + (rxt(k,128)*y(k,69) +rxt(k,130)*y(k,69))*y(k,55) +rxt(k,65) & - *y(k,68) +rxt(k,97)*y(k,102) - loss(k,77) = (rxt(k,570)* y(k,48) +rxt(k,572)* y(k,51) +rxt(k,359)* y(k,55) & - +rxt(k,149)* y(k,61) +rxt(k,154)* y(k,62) +rxt(k,252)* y(k,63) & - +rxt(k,251)* y(k,65) +rxt(k,148)* y(k,66) +rxt(k,150)* y(k,67) & - +rxt(k,146)* y(k,68) +rxt(k,562)* y(k,69) +rxt(k,144)* y(k,71) & - +rxt(k,156)* y(k,81) +rxt(k,151)* y(k,82) +rxt(k,143)* y(k,83) & - +rxt(k,155)* y(k,84) +rxt(k,147)* y(k,85) +rxt(k,152)* y(k,86) & - +rxt(k,250)* y(k,87) +rxt(k,145)* y(k,98) +rxt(k,324)* y(k,110) & - + rxt(k,571) + het_rates(k,99))* y(k,99) - prod(k,77) = (rxt(k,86) +rxt(k,88) +rxt(k,564)*y(k,80) +rxt(k,568)*y(k,94) + & - rxt(k,576)*y(k,107) +rxt(k,580)*y(k,108))*y(k,55) & - + (rxt(k,333)*y(k,54) +rxt(k,334)*y(k,96))*y(k,103) & - +rxt(k,573)*y(k,107)*y(k,28) +2.000_r8*rxt(k,145)*y(k,99)*y(k,98) & - +rxt(k,94)*y(k,100) - loss(k,27) = (rxt(k,321)* y(k,69) + (rxt(k,322) +rxt(k,323))* y(k,110) & - + rxt(k,94) + het_rates(k,100))* y(k,100) - prod(k,27) = (rxt(k,324)*y(k,99) +rxt(k,332)*y(k,103))*y(k,110) - loss(k,49) = (rxt(k,325)* y(k,28) +rxt(k,326)* y(k,32) + (rxt(k,267) + & - rxt(k,274))* y(k,51) + (rxt(k,272) +rxt(k,273))* y(k,52) & - + (rxt(k,328) +rxt(k,329))* y(k,54) +rxt(k,327)* y(k,56) + rxt(k,95) & - + rxt(k,96) + het_rates(k,101))* y(k,101) - prod(k,49) = (rxt(k,127)*y(k,68) +rxt(k,318)*y(k,98) +rxt(k,343)*y(k,105) + & - rxt(k,358)*y(k,106))*y(k,56) + (rxt(k,121)*y(k,65) + & - rxt(k,357)*y(k,106))*y(k,55) +rxt(k,331)*y(k,102)*y(k,54) - loss(k,20) = (rxt(k,330)* y(k,28) +rxt(k,331)* y(k,54) + rxt(k,97) & - + het_rates(k,102))* y(k,102) - prod(k,20) =rxt(k,317)*y(k,98)*y(k,55) - loss(k,41) = (rxt(k,333)* y(k,54) +rxt(k,375)* y(k,69) +rxt(k,334)* y(k,96) & - +rxt(k,332)* y(k,110) + het_rates(k,103))* y(k,103) - prod(k,41) =rxt(k,359)*y(k,99)*y(k,55) - loss(k,63) = (rxt(k,493)* y(k,2) +rxt(k,509)* y(k,13) +rxt(k,527)* y(k,14) & - +rxt(k,511)* y(k,15) +rxt(k,512)* y(k,16) +rxt(k,514)* y(k,17) & - +rxt(k,530)* y(k,19) +rxt(k,531)* y(k,20) +rxt(k,516)* y(k,21) & - + (rxt(k,463) +rxt(k,464))* y(k,24) +rxt(k,461)* y(k,25) & - + (rxt(k,532) +rxt(k,536))* y(k,27) +rxt(k,410)* y(k,33) +rxt(k,411) & - * y(k,35) +rxt(k,495)* y(k,36) +rxt(k,517)* y(k,37) +rxt(k,518) & - * y(k,38) +rxt(k,519)* y(k,39) +rxt(k,466)* y(k,40) +rxt(k,442) & - * y(k,42) +rxt(k,412)* y(k,43) +rxt(k,418)* y(k,44) +rxt(k,469) & - * y(k,46) +rxt(k,335)* y(k,47) +rxt(k,433)* y(k,48) +rxt(k,344) & - * y(k,51) +rxt(k,441)* y(k,52) +rxt(k,432)* y(k,53) +rxt(k,413) & - * y(k,54) +rxt(k,414)* y(k,56) +rxt(k,306)* y(k,92) & - + 2._r8*(rxt(k,415) +rxt(k,416))* y(k,104) + het_rates(k,104)) & - * y(k,104) - prod(k,63) = (rxt(k,401)*y(k,33) +rxt(k,402)*y(k,35) +rxt(k,407)*y(k,43) + & - rxt(k,465)*y(k,40) +rxt(k,468)*y(k,46) +rxt(k,494)*y(k,36) + & - rxt(k,496)*y(k,45) +rxt(k,526)*y(k,14))*y(k,54) & - + (rxt(k,144)*y(k,99) +rxt(k,167)*y(k,77) +rxt(k,184)*y(k,73) + & - rxt(k,198)*y(k,75) +rxt(k,202)*y(k,92) +rxt(k,219)*y(k,89) + & - rxt(k,237)*y(k,88))*y(k,71) + (rxt(k,3) +rxt(k,134)*y(k,70) + & - rxt(k,323)*y(k,100) +rxt(k,350)*y(k,106) + & - 2.000_r8*rxt(k,385)*y(k,95) +rxt(k,504)*y(k,31))*y(k,110) & - + (2.000_r8*rxt(k,404)*y(k,32) +rxt(k,408)*y(k,56) + & - rxt(k,429)*y(k,53) +rxt(k,434)*y(k,51) +rxt(k,450)*y(k,60))*y(k,43) & - + (rxt(k,98) +rxt(k,336)*y(k,60) +rxt(k,337)*y(k,24) + & - rxt(k,341)*y(k,52) +rxt(k,343)*y(k,56))*y(k,105) & - + (rxt(k,533)*y(k,20) +rxt(k,384)*y(k,33) +rxt(k,477)*y(k,40) + & - rxt(k,500)*y(k,36))*y(k,95) + (rxt(k,9) +rxt(k,119)*y(k,65) + & - rxt(k,352)*y(k,106))*y(k,42) + (rxt(k,23) + & - .300_r8*rxt(k,530)*y(k,104))*y(k,19) + (rxt(k,124)*y(k,68) + & - rxt(k,409)*y(k,56))*y(k,32) +2.000_r8*rxt(k,4)*y(k,35) & - +rxt(k,351)*y(k,106)*y(k,40) +rxt(k,10)*y(k,44) +rxt(k,58)*y(k,45) & - +rxt(k,59)*y(k,46) +rxt(k,12)*y(k,47) +.500_r8*rxt(k,539)*y(k,52) & - +rxt(k,133)*y(k,70)*y(k,69) - loss(k,83) = (rxt(k,337)* y(k,24) +rxt(k,338)* y(k,28) +rxt(k,339)* y(k,32) & - +rxt(k,340)* y(k,40) +rxt(k,341)* y(k,52) +rxt(k,342)* y(k,54) & - +rxt(k,343)* y(k,56) +rxt(k,336)* y(k,60) + rxt(k,98) & - + het_rates(k,105))* y(k,105) - prod(k,83) = (rxt(k,112)*y(k,65) +rxt(k,282)*y(k,81) +rxt(k,326)*y(k,101)) & - *y(k,32) + (rxt(k,349)*y(k,33) +rxt(k,350)*y(k,110))*y(k,106) - loss(k,84) = (rxt(k,346)* y(k,24) +rxt(k,347)* y(k,28) + (rxt(k,348) + & - rxt(k,349))* y(k,33) +rxt(k,351)* y(k,40) +rxt(k,352)* y(k,42) & - +rxt(k,131)* y(k,51) +rxt(k,354)* y(k,52) +rxt(k,355)* y(k,54) & - +rxt(k,357)* y(k,55) +rxt(k,358)* y(k,56) +rxt(k,345)* y(k,60) & - +rxt(k,356)* y(k,96) +rxt(k,350)* y(k,110) + rxt(k,99) + rxt(k,353) & - + het_rates(k,106))* y(k,106) - prod(k,84) =rxt(k,320)*y(k,98)*y(k,54) +rxt(k,129)*y(k,69)*y(k,56) +rxt(k,63) & - *y(k,65) +rxt(k,95)*y(k,101) - loss(k,38) = (rxt(k,573)* y(k,28) +rxt(k,576)* y(k,55) +rxt(k,575)* y(k,79) & - + rxt(k,574) + het_rates(k,107))* y(k,107) - prod(k,38) = (rxt(k,78) +rxt(k,79) +rxt(k,566)*y(k,80) +rxt(k,567)*y(k,94) + & - rxt(k,579)*y(k,108) +rxt(k,585)*y(k,109))*y(k,54) + (rxt(k,85) + & - rxt(k,87))*y(k,55) + (rxt(k,577)*y(k,108) +rxt(k,582)*y(k,109)) & - *y(k,69) +rxt(k,559)*y(k,108) +rxt(k,558)*y(k,109) - loss(k,16) = (rxt(k,579)* y(k,54) +rxt(k,580)* y(k,55) +rxt(k,577)* y(k,69) & - + rxt(k,559) + rxt(k,578) + het_rates(k,108))* y(k,108) - prod(k,16) = (rxt(k,80) +rxt(k,81))*y(k,54) + (rxt(k,90) +rxt(k,91))*y(k,55) & - + (rxt(k,560) +rxt(k,581)*y(k,69))*y(k,109) - loss(k,15) = (rxt(k,585)* y(k,54) + (rxt(k,581) +rxt(k,582))* y(k,69) & - + rxt(k,558) + rxt(k,560) + rxt(k,583) + rxt(k,584) & - + het_rates(k,109))* y(k,109) - prod(k,15) = (rxt(k,77) +rxt(k,82))*y(k,54) + (rxt(k,83) +rxt(k,92))*y(k,55) - loss(k,88) = (rxt(k,504)* y(k,31) +rxt(k,102)* y(k,61) +rxt(k,114)* y(k,65) & - +rxt(k,113)* y(k,67) +rxt(k,134)* y(k,70) +rxt(k,369)* y(k,72) & - +rxt(k,371)* y(k,73) +rxt(k,135)* y(k,74) +rxt(k,373)* y(k,75) & - +rxt(k,138)* y(k,76) +rxt(k,367)* y(k,78) +rxt(k,283)* y(k,81) & - +rxt(k,291)* y(k,83) +rxt(k,289)* y(k,85) +rxt(k,360)* y(k,88) & - +rxt(k,362)* y(k,89) +rxt(k,300)* y(k,90) +rxt(k,302)* y(k,91) & - +rxt(k,361)* y(k,92) +rxt(k,308)* y(k,93) +rxt(k,385)* y(k,95) & - +rxt(k,324)* y(k,99) + (rxt(k,322) +rxt(k,323))* y(k,100) & - +rxt(k,332)* y(k,103) +rxt(k,350)* y(k,106) + rxt(k,1) + rxt(k,2) & - + rxt(k,3) + het_rates(k,110))* y(k,110) - prod(k,88) = (rxt(k,372) +4.000_r8*rxt(k,136)*y(k,69) + & - 4.000_r8*rxt(k,141)*y(k,87) +4.000_r8*rxt(k,142)*y(k,61) + & - 5.000_r8*rxt(k,153)*y(k,67) +5.000_r8*rxt(k,157)*y(k,82) + & - 4.000_r8*rxt(k,158)*y(k,86) +5.000_r8*rxt(k,159)*y(k,62) + & - 6.000_r8*rxt(k,160)*y(k,84) +4.000_r8*rxt(k,161)*y(k,81) + & - 4.000_r8*rxt(k,165)*y(k,65) +4.000_r8*rxt(k,176)*y(k,63) + & - 4.000_r8*rxt(k,187)*y(k,83) +4.000_r8*rxt(k,198)*y(k,71) + & - 4.000_r8*rxt(k,209)*y(k,98) +4.000_r8*rxt(k,220)*y(k,68) + & - 5.000_r8*rxt(k,231)*y(k,85) +6.000_r8*rxt(k,242)*y(k,66) + & - 4.000_r8*rxt(k,253)*y(k,65) +5.000_r8*rxt(k,255)*y(k,67) + & - 5.000_r8*rxt(k,257)*y(k,85) +4.000_r8*rxt(k,259)*y(k,83) + & - 4.000_r8*rxt(k,262)*y(k,63) +4.000_r8*rxt(k,264)*y(k,87) + & - 6.000_r8*rxt(k,266)*y(k,66))*y(k,75) + (rxt(k,374) + & - 5.000_r8*rxt(k,139)*y(k,69) +5.000_r8*rxt(k,162)*y(k,87) + & - 5.000_r8*rxt(k,163)*y(k,65) +5.000_r8*rxt(k,164)*y(k,63) + & - 5.000_r8*rxt(k,166)*y(k,83) +5.000_r8*rxt(k,167)*y(k,71) + & - 5.000_r8*rxt(k,168)*y(k,98) +5.000_r8*rxt(k,169)*y(k,68) + & - 6.000_r8*rxt(k,170)*y(k,85) +7.000_r8*rxt(k,171)*y(k,66) + & - 5.000_r8*rxt(k,172)*y(k,61) +6.000_r8*rxt(k,173)*y(k,67) + & - 6.000_r8*rxt(k,174)*y(k,82) +5.000_r8*rxt(k,175)*y(k,86) + & - 6.000_r8*rxt(k,177)*y(k,62) +7.000_r8*rxt(k,178)*y(k,84) + & - 5.000_r8*rxt(k,179)*y(k,81) +7.000_r8*rxt(k,254)*y(k,66) + & - 6.000_r8*rxt(k,256)*y(k,67) +6.000_r8*rxt(k,258)*y(k,85) + & - 5.000_r8*rxt(k,260)*y(k,65) +5.000_r8*rxt(k,261)*y(k,83) + & - 5.000_r8*rxt(k,263)*y(k,63) +5.000_r8*rxt(k,265)*y(k,87))*y(k,77) & - + (rxt(k,370) +3.000_r8*rxt(k,180)*y(k,87) + & - 3.000_r8*rxt(k,181)*y(k,65) +3.000_r8*rxt(k,182)*y(k,63) + & - 3.000_r8*rxt(k,183)*y(k,83) +3.000_r8*rxt(k,184)*y(k,71) + & - 3.000_r8*rxt(k,185)*y(k,98) +3.000_r8*rxt(k,186)*y(k,68) + & - 4.000_r8*rxt(k,188)*y(k,85) +5.000_r8*rxt(k,189)*y(k,66) + & - 3.000_r8*rxt(k,190)*y(k,61) +4.000_r8*rxt(k,191)*y(k,67) + & - 4.000_r8*rxt(k,192)*y(k,82) +3.000_r8*rxt(k,193)*y(k,86) + & - 4.000_r8*rxt(k,194)*y(k,62) +5.000_r8*rxt(k,195)*y(k,84) + & - 3.000_r8*rxt(k,196)*y(k,81) +3.000_r8*rxt(k,378)*y(k,69))*y(k,73) & - + (rxt(k,509)*y(k,13) +rxt(k,511)*y(k,15) +rxt(k,512)*y(k,16) + & - rxt(k,514)*y(k,17) +rxt(k,519)*y(k,39) +rxt(k,531)*y(k,20) + & - rxt(k,335)*y(k,47) +rxt(k,410)*y(k,33) +rxt(k,411)*y(k,35) + & - rxt(k,412)*y(k,43) +rxt(k,415)*y(k,104) +rxt(k,418)*y(k,44) + & - rxt(k,442)*y(k,42) +rxt(k,466)*y(k,40) +rxt(k,469)*y(k,46) + & - rxt(k,495)*y(k,36) +rxt(k,527)*y(k,14) +rxt(k,530)*y(k,19))*y(k,104) & - + (2.000_r8*rxt(k,215)*y(k,87) +2.000_r8*rxt(k,216)*y(k,65) + & - 2.000_r8*rxt(k,217)*y(k,63) +2.000_r8*rxt(k,218)*y(k,83) + & - 2.000_r8*rxt(k,219)*y(k,71) +2.000_r8*rxt(k,221)*y(k,98) + & - 2.000_r8*rxt(k,222)*y(k,68) +3.000_r8*rxt(k,223)*y(k,85) + & - 4.000_r8*rxt(k,224)*y(k,66) +2.000_r8*rxt(k,225)*y(k,61) + & - 3.000_r8*rxt(k,226)*y(k,67) +3.000_r8*rxt(k,227)*y(k,82) + & - 2.000_r8*rxt(k,228)*y(k,86) +3.000_r8*rxt(k,229)*y(k,62) + & - 4.000_r8*rxt(k,230)*y(k,84) +2.000_r8*rxt(k,232)*y(k,81) + & - 2.000_r8*rxt(k,298)*y(k,69))*y(k,89) + (rxt(k,197)*y(k,87) + & - rxt(k,199)*y(k,65) +rxt(k,200)*y(k,63) +rxt(k,201)*y(k,83) + & - rxt(k,202)*y(k,71) +rxt(k,203)*y(k,98) +rxt(k,204)*y(k,68) + & - 2.000_r8*rxt(k,205)*y(k,85) +3.000_r8*rxt(k,206)*y(k,66) + & - rxt(k,207)*y(k,61) +2.000_r8*rxt(k,208)*y(k,67) + & - 2.000_r8*rxt(k,210)*y(k,82) +rxt(k,211)*y(k,86) + & - 2.000_r8*rxt(k,212)*y(k,62) +3.000_r8*rxt(k,213)*y(k,84) + & - rxt(k,214)*y(k,81) +rxt(k,303)*y(k,69))*y(k,92) & - + (rxt(k,101)*y(k,62) +rxt(k,340)*y(k,105) +rxt(k,542)*y(k,46) + & - rxt(k,548)*y(k,46) +rxt(k,549)*y(k,45) +rxt(k,553)*y(k,46) + & - rxt(k,554)*y(k,45))*y(k,40) + (rxt(k,64) +rxt(k,278) + & - rxt(k,115)*y(k,52) +rxt(k,118)*y(k,51) +rxt(k,150)*y(k,99) + & - rxt(k,244)*y(k,88))*y(k,67) + (rxt(k,133)*y(k,70) + & - 3.000_r8*rxt(k,299)*y(k,90) +rxt(k,321)*y(k,100) + & - rxt(k,376)*y(k,78) +2.000_r8*rxt(k,377)*y(k,72))*y(k,69) & - + (rxt(k,240)*y(k,85) +2.000_r8*rxt(k,241)*y(k,66) + & - rxt(k,245)*y(k,82) +rxt(k,247)*y(k,62) +2.000_r8*rxt(k,248)*y(k,84)) & - *y(k,88) + (rxt(k,147)*y(k,85) +2.000_r8*rxt(k,148)*y(k,66) + & - rxt(k,151)*y(k,82) +rxt(k,154)*y(k,62) +2.000_r8*rxt(k,155)*y(k,84)) & - *y(k,99) + (rxt(k,339)*y(k,105) +rxt(k,405)*y(k,43))*y(k,32) & - + (rxt(k,269) +rxt(k,288)*y(k,50))*y(k,84) + (rxt(k,277) + & - rxt(k,290)*y(k,42))*y(k,85) +rxt(k,348)*y(k,106)*y(k,33) +rxt(k,380) & - *y(k,62) +rxt(k,279)*y(k,66) +rxt(k,368)*y(k,72) +rxt(k,268)*y(k,82) & - +rxt(k,94)*y(k,100) - end do + loss(44) = (rxt(481)* y(15) +rxt(483)* y(57) +rxt(482)* y(71) + het_rates(1)) & + * y(1) + prod(44) = (rxt(28) +2.000_r8*rxt(484)*y(3) +rxt(485)*y(26) +rxt(486)*y(26) + & + rxt(489)*y(52) +rxt(492)*y(55) +rxt(493)*y(104))*y(3) & + + (rxt(471)*y(7) +rxt(497)*y(8) +3.000_r8*rxt(498)*y(22) + & + 2.000_r8*rxt(499)*y(36) +2.000_r8*rxt(520)*y(14) +rxt(521)*y(16) + & + rxt(500)*y(38))*y(95) + (2.000_r8*rxt(509)*y(14) +rxt(511)*y(16) + & + 3.000_r8*rxt(516)*y(22) +rxt(495)*y(38))*y(104) & + + (2.000_r8*rxt(508)*y(14) +rxt(510)*y(16) +3.000_r8*rxt(515)*y(22)) & + *y(23) + (rxt(52) +rxt(494)*y(55))*y(38) +rxt(27)*y(2) +rxt(30)*y(4) & + +rxt(58)*y(46) + loss(6) = ( + rxt(27) + het_rates(2))* y(2) + prod(6) = (rxt(549)*y(46) +rxt(554)*y(46))*y(42) +rxt(487)*y(26)*y(3) + loss(50) = (2._r8*rxt(484)* y(3) + (rxt(485) +rxt(486) +rxt(487))* y(26) & + +rxt(489)* y(52) +rxt(490)* y(53) +rxt(492)* y(55) +rxt(488)* y(71) & + +rxt(493)* y(104) + rxt(28) + het_rates(3))* y(3) + prod(50) = (rxt(29) +rxt(491)*y(55))*y(4) +rxt(483)*y(57)*y(1) & + +rxt(501)*y(95)*y(38) +rxt(496)*y(55)*y(46) + loss(20) = (rxt(491)* y(55) + rxt(29) + rxt(30) + rxt(543) + rxt(546) & + + rxt(551) + het_rates(4))* y(4) + prod(20) =rxt(490)*y(53)*y(3) + loss(56) = (rxt(481)* y(1) +rxt(445)* y(23) +rxt(525)* y(54) +rxt(526)* y(55) & + +rxt(527)* y(104) + rxt(21) + rxt(22) + het_rates(15))* y(15) + prod(56) = (rxt(452)*y(26) +rxt(529)*y(52))*y(19) + (rxt(23) + & + .300_r8*rxt(530)*y(104))*y(20) + (rxt(534)*y(95) +rxt(535)*y(95)) & + *y(21) + loss(40) = (rxt(452)* y(26) +rxt(529)* y(52) +rxt(528)* y(71) & + + het_rates(19))* y(19) + prod(40) = (rxt(446)*y(23) +rxt(502)*y(33) +rxt(531)*y(104) +rxt(533)*y(95)) & + *y(21) +.700_r8*rxt(530)*y(104)*y(20) + loss(11) = (rxt(530)* y(104) + rxt(23) + het_rates(20))* y(20) + prod(11) =rxt(528)*y(71)*y(19) + loss(74) = (rxt(508)* y(14) +rxt(445)* y(15) +rxt(510)* y(16) +rxt(513) & + * y(18) +rxt(446)* y(21) +rxt(515)* y(22) +rxt(458)* y(27) +rxt(447) & + * y(35) +rxt(448)* y(37) +rxt(467)* y(47) +rxt(451)* y(57) & + + (rxt(109) +rxt(110))* y(64) +rxt(122)* y(67) + (rxt(449) + & + rxt(450))* y(71) +rxt(280)* y(81) +rxt(309)* y(98) +rxt(336)* y(105) & + +rxt(345)* y(106) + het_rates(23))* y(23) + prod(74) = (4.000_r8*rxt(470)*y(6) +rxt(471)*y(7) +2.000_r8*rxt(472)*y(9) + & + 2.000_r8*rxt(473)*y(10) +2.000_r8*rxt(474)*y(11) +rxt(475)*y(12) + & + 2.000_r8*rxt(476)*y(13) +rxt(522)*y(39) +rxt(523)*y(40) + & + rxt(524)*y(41) +rxt(477)*y(42) +rxt(507)*y(32))*y(95) + (rxt(46) + & + rxt(452)*y(19) +2.000_r8*rxt(453)*y(26) +rxt(455)*y(26) + & + rxt(457)*y(52) +rxt(462)*y(55) +rxt(463)*y(104) +rxt(486)*y(3))*y(26) & + + (rxt(105)*y(53) +rxt(142)*y(75) +rxt(149)*y(99) +rxt(172)*y(77) + & + rxt(190)*y(73) +rxt(207)*y(92) +rxt(225)*y(89) +rxt(243)*y(88))*y(60) & + + (rxt(154)*y(99) +rxt(159)*y(75) +rxt(177)*y(77) +rxt(194)*y(73) + & + rxt(212)*y(92) +rxt(229)*y(89) +rxt(247)*y(88))*y(61) & + + (rxt(164)*y(77) +rxt(176)*y(75) +rxt(182)*y(73) +rxt(200)*y(92) + & + rxt(217)*y(89) +rxt(235)*y(88) +rxt(252)*y(99))*y(62) & + + (3.000_r8*rxt(512)*y(17) +rxt(514)*y(18) +rxt(517)*y(39) + & + rxt(518)*y(40) +rxt(519)*y(41) +rxt(466)*y(42))*y(104) + (rxt(56) + & + rxt(465)*y(55))*y(42) +rxt(27)*y(2) +2.000_r8*rxt(44)*y(24) & + +2.000_r8*rxt(45)*y(25) +rxt(47)*y(27) +rxt(50)*y(32) +rxt(59)*y(47) & + +rxt(106)*y(63)*y(52) + loss(4) = ( + rxt(44) + het_rates(24))* y(24) + prod(4) = (rxt(542)*y(47) +rxt(547)*y(27) +rxt(548)*y(47) +rxt(552)*y(27) + & + rxt(553)*y(47) +rxt(557)*y(27))*y(42) +rxt(458)*y(27)*y(23) & + +rxt(454)*y(26)*y(26) + loss(1) = ( + rxt(45) + rxt(480) + het_rates(25))* y(25) + prod(1) =rxt(479)*y(26)*y(26) + loss(72) = ((rxt(485) +rxt(486) +rxt(487))* y(3) +rxt(452)* y(19) & + + 2._r8*(rxt(453) +rxt(454) +rxt(455) +rxt(479))* y(26) +rxt(457) & + * y(52) +rxt(459)* y(53) +rxt(462)* y(55) +rxt(111)* y(64) +rxt(123) & + * y(67) +rxt(456)* y(71) +rxt(281)* y(81) +rxt(310)* y(98) & + + (rxt(463) +rxt(464))* y(104) +rxt(337)* y(105) +rxt(346)* y(106) & + + rxt(46) + het_rates(26))* y(26) + prod(72) = (rxt(450)*y(71) +rxt(451)*y(57) +rxt(467)*y(47))*y(23) & + + (rxt(48) +rxt(460)*y(55))*y(27) + (rxt(468)*y(55) + & + rxt(469)*y(104))*y(47) +2.000_r8*rxt(480)*y(25) +rxt(478)*y(95)*y(42) & + +rxt(60)*y(58) + loss(36) = (rxt(458)* y(23) + (rxt(547) +rxt(552) +rxt(557))* y(42) +rxt(460) & + * y(55) +rxt(461)* y(104) + rxt(47) + rxt(48) + rxt(545) + rxt(550) & + + rxt(556) + het_rates(27))* y(27) + prod(36) =rxt(459)*y(53)*y(26) + loss(21) = ((rxt(532) +rxt(536))* y(104) + het_rates(29))* y(29) + prod(21) = (rxt(21) +rxt(22) +rxt(445)*y(23) +rxt(481)*y(1) +rxt(525)*y(54) + & + rxt(526)*y(55) +rxt(527)*y(104))*y(15) +rxt(513)*y(23)*y(18) & + +rxt(573)*y(107)*y(30) + loss(2) = (rxt(506)* y(95) + rxt(49) + het_rates(31))* y(31) + prod(2) = (rxt(471)*y(7) +rxt(473)*y(10) +2.000_r8*rxt(474)*y(11) + & + 2.000_r8*rxt(475)*y(12) +rxt(476)*y(13) +rxt(497)*y(8) + & + 2.000_r8*rxt(499)*y(36) +rxt(523)*y(40) +rxt(524)*y(41))*y(95) & + + (rxt(518)*y(40) +rxt(519)*y(41))*y(104) + loss(5) = (rxt(507)* y(95) + rxt(50) + het_rates(32))* y(32) + prod(5) = (rxt(472)*y(9) +rxt(473)*y(10) +rxt(522)*y(39))*y(95) & + +rxt(517)*y(104)*y(39) + loss(29) = (rxt(502)* y(21) +rxt(503)* y(35) +rxt(505)* y(44) +rxt(504) & + * y(110) + het_rates(33))* y(33) + prod(29) = (rxt(475)*y(12) +rxt(497)*y(8) +2.000_r8*rxt(506)*y(31) + & + rxt(507)*y(32))*y(95) +2.000_r8*rxt(49)*y(31) +rxt(50)*y(32) +rxt(57) & + *y(43) + loss(68) = (rxt(406)* y(56) +rxt(409)* y(57) +rxt(100)* y(60) +rxt(112) & + * y(64) +rxt(124)* y(67) + (rxt(403) +rxt(404) +rxt(405))* y(71) & + +rxt(282)* y(81) +rxt(304)* y(92) +rxt(312)* y(98) +rxt(326)* y(101) & + +rxt(339)* y(105) + het_rates(34))* y(34) + prod(68) = (rxt(136)*y(68) +rxt(142)*y(60) +rxt(153)*y(66) +rxt(157)*y(82) + & + rxt(158)*y(86) +rxt(159)*y(61) +rxt(160)*y(84) +rxt(161)*y(81) + & + rxt(165)*y(64) +rxt(176)*y(62) +rxt(198)*y(70) +rxt(209)*y(98) + & + rxt(220)*y(67) +rxt(231)*y(85) +rxt(242)*y(65) +rxt(253)*y(64) + & + rxt(255)*y(66) +rxt(257)*y(85) +rxt(266)*y(65))*y(75) & + + (rxt(139)*y(68) +rxt(163)*y(64) +rxt(164)*y(62) +rxt(167)*y(70) + & + rxt(168)*y(98) +rxt(169)*y(67) +rxt(170)*y(85) +rxt(171)*y(65) + & + rxt(172)*y(60) +rxt(173)*y(66) +rxt(174)*y(82) +rxt(175)*y(86) + & + rxt(177)*y(61) +rxt(178)*y(84) +rxt(179)*y(81) +rxt(254)*y(65) + & + rxt(256)*y(66) +rxt(258)*y(85) +rxt(260)*y(64))*y(77) & + + (rxt(181)*y(64) +rxt(182)*y(62) +rxt(184)*y(70) +rxt(185)*y(98) + & + rxt(186)*y(67) +rxt(188)*y(85) +rxt(189)*y(65) +rxt(190)*y(60) + & + rxt(191)*y(66) +rxt(192)*y(82) +rxt(193)*y(86) +rxt(194)*y(61) + & + rxt(195)*y(84) +rxt(196)*y(81) +rxt(378)*y(68))*y(73) & + + (rxt(349)*y(106) +rxt(384)*y(95) +rxt(401)*y(55) + & + rxt(410)*y(104) +rxt(447)*y(23) +rxt(503)*y(33))*y(35) & + + (rxt(413)*y(55) +rxt(433)*y(49) +rxt(527)*y(15) +rxt(536)*y(29)) & + *y(104) + (rxt(133)*y(69) +rxt(376)*y(78) +rxt(377)*y(72))*y(68) & + + (rxt(534)*y(21) +rxt(478)*y(42) +rxt(501)*y(38))*y(95) & + + (2.000_r8*rxt(2) +rxt(3))*y(110) +2.000_r8*rxt(21)*y(15) +rxt(23) & + *y(20) +rxt(52)*y(38) +rxt(56)*y(42) +rxt(57)*y(43) + loss(51) = (rxt(447)* y(23) +rxt(503)* y(33) +rxt(401)* y(55) +rxt(384) & + * y(95) +rxt(410)* y(104) + (rxt(348) +rxt(349))* y(106) & + + het_rates(35))* y(35) + prod(51) =rxt(22)*y(15) +rxt(535)*y(95)*y(21) +rxt(403)*y(71)*y(34) +rxt(1) & + *y(110) + loss(23) = (rxt(448)* y(23) +rxt(402)* y(55) +rxt(411)* y(104) + rxt(4) & + + het_rates(37))* y(37) + prod(23) = (.500_r8*rxt(537) +rxt(417)*y(71))*y(71) +rxt(416)*y(104)*y(104) + loss(32) = (rxt(494)* y(55) + (rxt(500) +rxt(501))* y(95) +rxt(495)* y(104) & + + rxt(52) + het_rates(38))* y(38) + prod(32) = (rxt(481)*y(15) +rxt(482)*y(71))*y(1) + loss(67) = ((rxt(547) +rxt(552) +rxt(557))* y(27) + (rxt(549) +rxt(554)) & + * y(46) + (rxt(542) +rxt(548) +rxt(553))* y(47) +rxt(465)* y(55) & + +rxt(103)* y(60) +rxt(101)* y(61) +rxt(125)* y(67) +rxt(284)* y(81) & + + (rxt(271) +rxt(293))* y(83) + (rxt(477) +rxt(478))* y(95) & + +rxt(313)* y(98) +rxt(466)* y(104) +rxt(340)* y(105) +rxt(351) & + * y(106) + rxt(56) + het_rates(42))* y(42) + prod(67) = (rxt(446)*y(21) +rxt(508)*y(14) +rxt(510)*y(16) + & + 2.000_r8*rxt(513)*y(18) +rxt(515)*y(22) +rxt(445)*y(15) + & + rxt(447)*y(35) +rxt(448)*y(37) +rxt(449)*y(71) +rxt(467)*y(47))*y(23) & + + (rxt(381) +rxt(164)*y(77) +rxt(176)*y(75) +rxt(182)*y(73) + & + rxt(200)*y(92) +rxt(217)*y(89) +rxt(235)*y(88) +rxt(252)*y(99) + & + 2.000_r8*rxt(262)*y(75) +2.000_r8*rxt(263)*y(77))*y(62) & + + (rxt(152)*y(99) +rxt(158)*y(75) +rxt(175)*y(77) +rxt(193)*y(73) + & + rxt(211)*y(92) +rxt(228)*y(89) +rxt(246)*y(88) +rxt(294)*y(44))*y(86) & + + (rxt(100)*y(34) +rxt(104)*y(44))*y(60) +rxt(464)*y(104)*y(26) + loss(7) = ( + rxt(57) + het_rates(43))* y(43) + prod(7) = (rxt(502)*y(21) +rxt(503)*y(35) +rxt(504)*y(110) +rxt(505)*y(44)) & + *y(33) + loss(85) = (rxt(505)* y(33) +rxt(104)* y(60) +rxt(119)* y(64) +rxt(285) & + * y(81) +rxt(295)* y(83) +rxt(290)* y(85) +rxt(294)* y(86) +rxt(314) & + * y(98) +rxt(442)* y(104) +rxt(352)* y(106) + rxt(9) + het_rates(44)) & + * y(44) + prod(85) = (rxt(270) +2.000_r8*rxt(141)*y(75) +2.000_r8*rxt(162)*y(77) + & + 2.000_r8*rxt(180)*y(73) +rxt(197)*y(92) +rxt(215)*y(89) + & + rxt(233)*y(88) +rxt(250)*y(99) +2.000_r8*rxt(264)*y(75) + & + 2.000_r8*rxt(265)*y(77))*y(87) + (2.000_r8*rxt(538) + & + 2.000_r8*rxt(541) +2.000_r8*rxt(544) +2.000_r8*rxt(555) + & + rxt(137)*y(75) +rxt(140)*y(77) +rxt(288)*y(84) +rxt(292)*y(85))*y(51) & + + (rxt(545) +rxt(550) +rxt(556) +rxt(547)*y(42) +rxt(552)*y(42) + & + rxt(557)*y(42))*y(27) + (rxt(166)*y(77) +rxt(183)*y(73) + & + rxt(187)*y(75) +rxt(259)*y(75) +rxt(261)*y(77) +rxt(293)*y(42))*y(83) & + + (rxt(543) +rxt(546) +rxt(551))*y(4) + (.500_r8*rxt(539) + & + rxt(441)*y(104))*y(53) + (rxt(540) +rxt(525)*y(15))*y(54) & + + (rxt(135)*y(74) +rxt(138)*y(76))*y(110) + loss(15) = (rxt(418)* y(104) + rxt(10) + rxt(11) + rxt(443) + het_rates(45)) & + * y(45) + prod(15) =rxt(439)*y(71)*y(53) + loss(30) = ((rxt(549) +rxt(554))* y(42) +rxt(496)* y(55) + rxt(58) & + + het_rates(46))* y(46) + prod(30) = (rxt(543) +rxt(546) +rxt(551))*y(4) +rxt(488)*y(71)*y(3) + loss(33) = (rxt(467)* y(23) + (rxt(542) +rxt(548) +rxt(553))* y(42) +rxt(468) & + * y(55) +rxt(469)* y(104) + rxt(59) + het_rates(47))* y(47) + prod(33) = (rxt(545) +rxt(550) +rxt(556) +rxt(461)*y(104))*y(27) & + +rxt(456)*y(71)*y(26) + loss(25) = (rxt(335)* y(104) + rxt(12) + het_rates(48))* y(48) + prod(25) = (rxt(284)*y(42) +rxt(285)*y(44))*y(81) +rxt(344)*y(104)*y(52) & + +rxt(300)*y(110)*y(90) + loss(39) = (rxt(421)* y(52) + (rxt(422) +rxt(423) +rxt(424))* y(53) +rxt(425) & + * y(56) +rxt(570)* y(99) +rxt(433)* y(104) + rxt(66) + het_rates(49)) & + * y(49) + prod(39) = (rxt(419)*y(79) +rxt(567)*y(94))*y(55) + (.200_r8*rxt(561)*y(88) + & + 1.100_r8*rxt(563)*y(80))*y(68) +rxt(17)*y(52) +rxt(568)*y(94)*y(56) & + +rxt(574)*y(107) + loss(38) = (rxt(137)* y(75) +rxt(140)* y(77) +rxt(288)* y(84) +rxt(292) & + * y(85) + rxt(14) + rxt(15) + rxt(444) + rxt(538) + rxt(541) & + + rxt(544) + rxt(555) + het_rates(51))* y(51) + prod(38) =rxt(440)*y(54)*y(53) + loss(77) = (rxt(489)* y(3) +rxt(529)* y(19) +rxt(457)* y(26) +rxt(421)* y(49) & + +rxt(430)* y(54) +rxt(436)* y(55) +rxt(435)* y(57) + (rxt(106) + & + rxt(107))* y(63) +rxt(275)* y(64) + (rxt(117) +rxt(118))* y(66) & + +rxt(434)* y(71) +rxt(572)* y(99) + (rxt(267) +rxt(274))* y(101) & + +rxt(344)* y(104) +rxt(131)* y(106) + rxt(16) + rxt(17) & + + het_rates(52))* y(52) + prod(77) = (rxt(197)*y(87) +rxt(199)*y(64) +rxt(200)*y(62) +rxt(201)*y(83) + & + rxt(202)*y(70) +rxt(203)*y(98) +rxt(204)*y(67) +rxt(205)*y(85) + & + rxt(206)*y(65) +rxt(207)*y(60) +rxt(208)*y(66) +rxt(210)*y(82) + & + rxt(211)*y(86) +rxt(212)*y(61) +rxt(213)*y(84) +rxt(214)*y(81) + & + rxt(303)*y(68) +rxt(304)*y(34))*y(92) + (rxt(215)*y(87) + & + rxt(216)*y(64) +rxt(217)*y(62) +rxt(218)*y(83) +rxt(219)*y(70) + & + rxt(221)*y(98) +rxt(222)*y(67) +rxt(223)*y(85) +rxt(224)*y(65) + & + rxt(225)*y(60) +rxt(226)*y(66) +rxt(227)*y(82) +rxt(228)*y(86) + & + rxt(229)*y(61) +rxt(230)*y(84) +rxt(232)*y(81) +rxt(298)*y(68))*y(89) & + + (rxt(233)*y(87) +rxt(234)*y(64) +rxt(235)*y(62) +rxt(236)*y(83) + & + rxt(237)*y(70) +rxt(238)*y(98) +rxt(239)*y(67) +rxt(240)*y(85) + & + rxt(241)*y(65) +rxt(243)*y(60) +rxt(244)*y(66) +rxt(245)*y(82) + & + rxt(246)*y(86) +rxt(247)*y(61) +rxt(248)*y(84) +rxt(249)*y(81))*y(88) & + + (rxt(18) +.500_r8*rxt(539) +rxt(286)*y(81) + & + 2.000_r8*rxt(423)*y(49) +rxt(426)*y(55))*y(53) + (rxt(299)*y(90) + & + rxt(301)*y(91) +rxt(379)*y(93))*y(68) + (rxt(425)*y(56) + & + rxt(433)*y(104))*y(49) +rxt(282)*y(81)*y(34) +rxt(12)*y(48) & + +2.000_r8*rxt(437)*y(95)*y(50) +rxt(15)*y(51) +rxt(20)*y(54) & + +rxt(420)*y(79)*y(56) +rxt(571)*y(99) +rxt(584)*y(109) + loss(71) = (rxt(490)* y(3) +rxt(459)* y(26) + (rxt(422) +rxt(423) +rxt(424)) & + * y(49) +rxt(440)* y(54) + (rxt(426) +rxt(428))* y(55) +rxt(427) & + * y(57) +rxt(105)* y(60) +rxt(276)* y(64) + (rxt(115) +rxt(116)) & + * y(66) +rxt(439)* y(71) +rxt(286)* y(81) +rxt(315)* y(98) & + + (rxt(272) +rxt(273))* y(101) +rxt(441)* y(104) +rxt(341)* y(105) & + +rxt(354)* y(106) + rxt(18) + rxt(539) + het_rates(53))* y(53) + prod(71) = (rxt(107)*y(63) +rxt(131)*y(106) +2.000_r8*rxt(430)*y(54) + & + rxt(434)*y(71) +rxt(435)*y(57) +rxt(436)*y(55) +rxt(457)*y(26) + & + rxt(489)*y(3) +rxt(529)*y(19))*y(52) + (rxt(75) +rxt(156)*y(99) + & + rxt(161)*y(75) +rxt(179)*y(77) +rxt(196)*y(73) +rxt(214)*y(92) + & + rxt(232)*y(89) +rxt(249)*y(88) +rxt(280)*y(23))*y(81) & + + (rxt(151)*y(99) +rxt(157)*y(75) +rxt(174)*y(77) +rxt(192)*y(73) + & + rxt(210)*y(92) +rxt(227)*y(89) +rxt(245)*y(88))*y(82) + (rxt(19) + & + rxt(429)*y(71) +rxt(431)*y(55) +rxt(432)*y(104))*y(54) + (rxt(11) + & + rxt(443) +rxt(418)*y(104))*y(45) + (rxt(14) +rxt(444))*y(51) & + + (rxt(306)*y(92) +rxt(335)*y(48))*y(104) +rxt(29)*y(4) +rxt(48) & + *y(27) +rxt(9)*y(44) + loss(86) = (rxt(525)* y(15) +rxt(430)* y(52) +rxt(440)* y(53) +rxt(431) & + * y(55) +rxt(429)* y(71) +rxt(432)* y(104) + rxt(19) + rxt(20) & + + rxt(540) + het_rates(54))* y(54) + prod(86) = (rxt(147)*y(99) +rxt(170)*y(77) +rxt(188)*y(73) +rxt(205)*y(92) + & + rxt(223)*y(89) +rxt(231)*y(75) +rxt(240)*y(88) +rxt(257)*y(75) + & + rxt(258)*y(77))*y(85) + (rxt(155)*y(99) +rxt(160)*y(75) + & + rxt(178)*y(77) +rxt(195)*y(73) +rxt(213)*y(92) +rxt(230)*y(89) + & + rxt(248)*y(88))*y(84) + (rxt(152)*y(99) +rxt(158)*y(75) + & + rxt(175)*y(77) +rxt(193)*y(73) +rxt(211)*y(92) +rxt(228)*y(89) + & + rxt(246)*y(88))*y(86) + (rxt(76) +rxt(143)*y(99) +rxt(201)*y(92) + & + rxt(218)*y(89) +rxt(236)*y(88))*y(83) + (rxt(47) +rxt(458)*y(23) + & + rxt(460)*y(55) +rxt(461)*y(104))*y(27) + (rxt(197)*y(92) + & + rxt(215)*y(89) +rxt(233)*y(88) +rxt(250)*y(99))*y(87) + (rxt(14) + & + rxt(15) +rxt(444))*y(51) + (rxt(30) +rxt(491)*y(55))*y(4) & + + (rxt(442)*y(104) +rxt(505)*y(33))*y(44) + (rxt(427)*y(57) + & + rxt(428)*y(55))*y(53) +rxt(281)*y(81)*y(26) +rxt(10)*y(45) & + +rxt(305)*y(92)*y(71) + loss(81) = (rxt(492)* y(3) +rxt(491)* y(4) +rxt(526)* y(15) +rxt(462)* y(26) & + +rxt(460)* y(27) +rxt(401)* y(35) +rxt(402)* y(37) +rxt(494)* y(38) & + +rxt(465)* y(42) +rxt(496)* y(46) +rxt(468)* y(47) +rxt(436)* y(52) & + + (rxt(426) +rxt(428))* y(53) +rxt(431)* y(54) + 2._r8*rxt(399) & + * y(55) +rxt(400)* y(56) +rxt(398)* y(57) +rxt(108)* y(63) +rxt(120) & + * y(64) +rxt(126)* y(67) +rxt(407)* y(71) + (rxt(565) +rxt(566)) & + * y(80) +rxt(296)* y(83) +rxt(567)* y(94) + (rxt(319) +rxt(320)) & + * y(98) + (rxt(328) +rxt(329))* y(101) +rxt(331)* y(102) +rxt(333) & + * y(103) +rxt(413)* y(104) +rxt(342)* y(105) +rxt(355)* y(106) & + + rxt(77) + rxt(78) + rxt(79) + rxt(80) + rxt(81) + rxt(82) & + + het_rates(55))* y(55) + prod(81) = (2.000_r8*rxt(5) +rxt(6) +rxt(83) +2.000_r8*rxt(84) +rxt(85) + & + rxt(87) +2.000_r8*rxt(89) +rxt(90) +rxt(91) +rxt(92) + & + rxt(387)*y(95) +rxt(388)*y(95) +rxt(425)*y(49) +rxt(569)*y(94) + & + rxt(576)*y(107) +rxt(580)*y(108))*y(56) + (rxt(109)*y(23) + & + rxt(163)*y(77) +rxt(165)*y(75) +rxt(181)*y(73) +rxt(199)*y(92) + & + rxt(216)*y(89) +rxt(234)*y(88) +rxt(251)*y(99) +rxt(253)*y(75) + & + rxt(260)*y(77))*y(64) + (rxt(148)*y(99) +rxt(171)*y(77) + & + rxt(189)*y(73) +rxt(206)*y(92) +rxt(224)*y(89) +rxt(241)*y(88) + & + rxt(242)*y(75) +rxt(254)*y(77) +rxt(266)*y(75))*y(65) & + + (rxt(150)*y(99) +rxt(153)*y(75) +rxt(173)*y(77) +rxt(191)*y(73) + & + rxt(208)*y(92) +rxt(226)*y(89) +rxt(244)*y(88) +rxt(255)*y(75) + & + rxt(256)*y(77))*y(66) + (rxt(99) +rxt(353) +rxt(345)*y(23) + & + rxt(354)*y(53) +rxt(358)*y(57))*y(106) + (rxt(421)*y(52) + & + rxt(422)*y(53) +rxt(570)*y(99))*y(49) + (rxt(17) +rxt(267)*y(101)) & + *y(52) + (rxt(561)*y(88) +1.150_r8*rxt(562)*y(99))*y(68) +rxt(28) & + *y(3) +rxt(46)*y(26) +rxt(405)*y(71)*y(34) +rxt(15)*y(51) +rxt(18) & + *y(53) +rxt(19)*y(54) +rxt(8)*y(57) +rxt(60)*y(58) +rxt(575)*y(107) & + *y(79) +rxt(386)*y(95) +rxt(415)*y(104)*y(104) +rxt(578)*y(108) & + +rxt(583)*y(109) +rxt(2)*y(110) + loss(73) = (rxt(406)* y(34) +rxt(425)* y(49) +rxt(400)* y(55) +rxt(121) & + * y(64) + (rxt(128) +rxt(130))* y(68) +rxt(420)* y(79) +rxt(564) & + * y(80) + (rxt(568) +rxt(569))* y(94) +rxt(387)* y(95) +rxt(392) & + * y(96) +rxt(317)* y(98) +rxt(359)* y(99) +rxt(357)* y(106) +rxt(576) & + * y(107) +rxt(580)* y(108) + rxt(5) + rxt(6) + rxt(83) + rxt(84) & + + rxt(85) + rxt(86) + rxt(87) + rxt(88) + rxt(89) + rxt(90) & + + rxt(91) + rxt(92) + het_rates(56))* y(56) + prod(73) = (rxt(108)*y(63) +rxt(126)*y(67) +rxt(296)*y(83) +rxt(320)*y(98) + & + 2.000_r8*rxt(328)*y(101) +rxt(329)*y(101) +rxt(331)*y(102) + & + rxt(355)*y(106) +rxt(391)*y(96) +2.000_r8*rxt(398)*y(57) + & + rxt(399)*y(55) +rxt(407)*y(71) +rxt(413)*y(104) +rxt(426)*y(53) + & + rxt(431)*y(54) +rxt(462)*y(26) +rxt(492)*y(3))*y(55) & + + (rxt(143)*y(83) +rxt(144)*y(70) +2.000_r8*rxt(146)*y(67) + & + rxt(147)*y(85) +rxt(148)*y(65) +rxt(149)*y(60) +rxt(150)*y(66) + & + rxt(151)*y(82) +rxt(152)*y(86) +rxt(154)*y(61) +rxt(155)*y(84) + & + rxt(156)*y(81) +rxt(250)*y(87) +rxt(251)*y(64) +rxt(252)*y(62) + & + rxt(572)*y(52))*y(99) + (rxt(8) +rxt(127)*y(67) +rxt(129)*y(68) + & + rxt(287)*y(81) +2.000_r8*rxt(297)*y(83) +rxt(318)*y(98) + & + 3.000_r8*rxt(327)*y(101) +2.000_r8*rxt(389)*y(95) + & + 2.000_r8*rxt(408)*y(71) +rxt(409)*y(34) +rxt(414)*y(104) + & + rxt(427)*y(53) +rxt(435)*y(52) +rxt(451)*y(23) +rxt(483)*y(1))*y(57) & + + (rxt(93) +rxt(132) +rxt(168)*y(77) +rxt(185)*y(73) + & + rxt(203)*y(92) +rxt(209)*y(75) +rxt(221)*y(89) +rxt(238)*y(88) + & + rxt(309)*y(23) +rxt(310)*y(26) +rxt(315)*y(53) + & + 2.000_r8*rxt(316)*y(96))*y(98) + (rxt(111)*y(64) +rxt(123)*y(67) + & + rxt(346)*y(106) +rxt(453)*y(26) +rxt(454)*y(26) +rxt(456)*y(71) + & + rxt(464)*y(104) +rxt(486)*y(3) +rxt(487)*y(3))*y(26) & + + (rxt(403)*y(34) +rxt(412)*y(104) +rxt(417)*y(71) +rxt(429)*y(54) + & + rxt(449)*y(23) +rxt(482)*y(1) +rxt(488)*y(3) +rxt(528)*y(19))*y(71) & + + (rxt(122)*y(23) +rxt(169)*y(77) +rxt(186)*y(73) +rxt(204)*y(92) + & + rxt(220)*y(75) +rxt(222)*y(89) +rxt(239)*y(88))*y(67) + (rxt(95) + & + rxt(325)*y(30) +rxt(272)*y(53) +rxt(274)*y(52) +rxt(326)*y(34)) & + *y(101) + (rxt(382) +rxt(390) +2.000_r8*rxt(334)*y(103) + & + 2.000_r8*rxt(392)*y(56))*y(96) + (rxt(321)*y(68) +rxt(322)*y(110) + & + rxt(323)*y(110))*y(100) + (rxt(97) +rxt(330)*y(30))*y(102) & + + (rxt(332)*y(110) +2.000_r8*rxt(375)*y(68))*y(103) +rxt(484)*y(3) & + *y(3) +rxt(418)*y(104)*y(45) +rxt(424)*y(53)*y(49) +rxt(438)*y(95) & + *y(50) +rxt(20)*y(54) +rxt(383)*y(97) + loss(84) = (rxt(483)* y(1) +rxt(451)* y(23) +rxt(409)* y(34) +rxt(435)* y(52) & + +rxt(427)* y(53) +rxt(398)* y(55) +rxt(127)* y(67) +rxt(129)* y(68) & + +rxt(408)* y(71) +rxt(287)* y(81) +rxt(297)* y(83) +rxt(389)* y(95) & + +rxt(318)* y(98) +rxt(327)* y(101) +rxt(414)* y(104) +rxt(343) & + * y(105) +rxt(358)* y(106) + rxt(7) + rxt(8) + het_rates(57))* y(57) + prod(84) = (rxt(319)*y(98) +rxt(333)*y(103) +rxt(400)*y(56))*y(55) & + + (rxt(96) +rxt(273)*y(53))*y(101) +rxt(356)*y(106)*y(96) + loss(3) = ( + rxt(60) + het_rates(58))* y(58) + prod(3) = (rxt(455)*y(26) +rxt(485)*y(3))*y(26) + loss(59) = (rxt(100)* y(34) +rxt(103)* y(42) +rxt(104)* y(44) +rxt(105) & + * y(53) +rxt(190)* y(73) +rxt(142)* y(75) +rxt(172)* y(77) +rxt(243) & + * y(88) +rxt(225)* y(89) +rxt(207)* y(92) +rxt(149)* y(99) +rxt(102) & + * y(110) + het_rates(60))* y(60) + prod(59) = (rxt(109)*y(64) +rxt(122)*y(67) +rxt(280)*y(81) +rxt(309)*y(98) + & + rxt(336)*y(105) +rxt(345)*y(106))*y(23) + (rxt(125)*y(67) + & + rxt(284)*y(81) +rxt(293)*y(83) +rxt(313)*y(98) +rxt(340)*y(105) + & + rxt(351)*y(106))*y(42) + (rxt(111)*y(64) +rxt(281)*y(81) + & + rxt(346)*y(106))*y(26) + (rxt(107)*y(52) +rxt(108)*y(55))*y(63) & + +rxt(380)*y(61) +rxt(381)*y(62) + loss(46) = (rxt(101)* y(42) +rxt(194)* y(73) +rxt(159)* y(75) +rxt(177) & + * y(77) +rxt(247)* y(88) +rxt(229)* y(89) +rxt(212)* y(92) +rxt(154) & + * y(99) + rxt(380) + het_rates(61))* y(61) + prod(46) =rxt(102)*y(110)*y(60) + loss(45) = (rxt(182)* y(73) + (rxt(176) +rxt(262))* y(75) + (rxt(164) + & + rxt(263))* y(77) +rxt(235)* y(88) +rxt(217)* y(89) +rxt(200)* y(92) & + +rxt(252)* y(99) + rxt(381) + het_rates(62))* y(62) + prod(45) = (rxt(101)*y(61) +rxt(103)*y(60))*y(42) + loss(37) = ((rxt(106) +rxt(107))* y(52) +rxt(108)* y(55) + het_rates(63)) & + * y(63) + prod(37) = (rxt(123)*y(67) +rxt(310)*y(98) +rxt(337)*y(105))*y(26) & + +rxt(110)*y(64)*y(23) + loss(63) = ((rxt(109) +rxt(110))* y(23) +rxt(111)* y(26) +rxt(112)* y(34) & + +rxt(119)* y(44) +rxt(275)* y(52) +rxt(276)* y(53) +rxt(120)* y(55) & + +rxt(121)* y(56) +rxt(181)* y(73) + (rxt(165) +rxt(253))* y(75) & + + (rxt(163) +rxt(260))* y(77) +rxt(234)* y(88) +rxt(216)* y(89) & + +rxt(199)* y(92) +rxt(251)* y(99) +rxt(114)* y(110) + rxt(63) & + + het_rates(64))* y(64) + prod(63) = (rxt(325)*y(101) +rxt(347)*y(106))*y(30) + (rxt(64) +rxt(278)) & + *y(66) + (rxt(124)*y(34) +rxt(126)*y(55))*y(67) + loss(43) = (rxt(189)* y(73) + (rxt(242) +rxt(266))* y(75) + (rxt(171) + & + rxt(254))* y(77) +rxt(241)* y(88) +rxt(224)* y(89) +rxt(206)* y(92) & + +rxt(148)* y(99) + rxt(279) + het_rates(65))* y(65) + prod(43) =rxt(113)*y(110)*y(66) + loss(54) = ((rxt(117) +rxt(118))* y(52) + (rxt(115) +rxt(116))* y(53) & + +rxt(191)* y(73) + (rxt(153) +rxt(255))* y(75) + (rxt(173) + & + rxt(256))* y(77) +rxt(244)* y(88) +rxt(226)* y(89) +rxt(208)* y(92) & + +rxt(150)* y(99) +rxt(113)* y(110) + rxt(64) + rxt(278) & + + het_rates(66))* y(66) + prod(54) =rxt(114)*y(110)*y(64) +rxt(279)*y(65) + loss(58) = (rxt(122)* y(23) +rxt(123)* y(26) +rxt(124)* y(34) +rxt(125) & + * y(42) +rxt(126)* y(55) +rxt(127)* y(57) +rxt(186)* y(73) +rxt(220) & + * y(75) +rxt(169)* y(77) +rxt(239)* y(88) +rxt(222)* y(89) +rxt(204) & + * y(92) +rxt(146)* y(99) + rxt(65) + het_rates(67))* y(67) + prod(58) = (rxt(311)*y(98) +rxt(330)*y(102))*y(30) + loss(79) = ((rxt(128) +rxt(130))* y(56) +rxt(129)* y(57) +rxt(133)* y(69) & + +rxt(377)* y(72) +rxt(378)* y(73) +rxt(136)* y(75) +rxt(139)* y(77) & + +rxt(376)* y(78) +rxt(563)* y(80) +rxt(561)* y(88) +rxt(298)* y(89) & + +rxt(299)* y(90) +rxt(301)* y(91) +rxt(303)* y(92) +rxt(379)* y(93) & + +rxt(562)* y(99) +rxt(321)* y(100) +rxt(375)* y(103) & + + het_rates(68))* y(68) + prod(79) = (rxt(77) +rxt(78) +rxt(79) +rxt(80) +rxt(81) +rxt(82) + & + rxt(319)*y(98) +rxt(328)*y(101) +rxt(342)*y(105) +rxt(355)*y(106)) & + *y(55) + (rxt(83) +rxt(85) +rxt(86) +rxt(87) +rxt(88) +rxt(90) + & + rxt(91) +rxt(92))*y(56) + (rxt(99) +rxt(353) +rxt(131)*y(52) + & + rxt(348)*y(35) +rxt(356)*y(96))*y(106) + (rxt(93) +rxt(132) + & + rxt(312)*y(34) +rxt(316)*y(96))*y(98) + (rxt(100)*y(60) + & + rxt(339)*y(105))*y(34) + (rxt(96) +rxt(327)*y(57))*y(101) +rxt(66) & + *y(49) +rxt(16)*y(52) +rxt(75)*y(81) +rxt(76)*y(83) +rxt(98)*y(105) + loss(12) = (rxt(133)* y(68) +rxt(134)* y(110) + het_rates(69))* y(69) + prod(12) =rxt(322)*y(110)*y(100) + loss(41) = (rxt(184)* y(73) +rxt(198)* y(75) +rxt(167)* y(77) +rxt(237) & + * y(88) +rxt(219)* y(89) +rxt(202)* y(92) +rxt(144)* y(99) & + + het_rates(70))* y(70) + prod(41) =rxt(338)*y(105)*y(30) + loss(61) = (rxt(482)* y(1) +rxt(488)* y(3) +rxt(528)* y(19) + (rxt(449) + & + rxt(450))* y(23) +rxt(456)* y(26) + (rxt(403) +rxt(404) +rxt(405)) & + * y(34) +rxt(434)* y(52) +rxt(439)* y(53) +rxt(429)* y(54) +rxt(407) & + * y(55) +rxt(408)* y(57) + 2._r8*rxt(417)* y(71) +rxt(305)* y(92) & + +rxt(412)* y(104) + rxt(537) + het_rates(71))* y(71) + prod(61) = (rxt(511)*y(16) +rxt(514)*y(18) +rxt(411)*y(37) +rxt(414)*y(57) + & + rxt(432)*y(54) +rxt(463)*y(26) +rxt(493)*y(3) +rxt(532)*y(29))*y(104) & + + (rxt(445)*y(23) +rxt(481)*y(1) +rxt(525)*y(54) +rxt(526)*y(55)) & + *y(15) + (rxt(510)*y(16) +rxt(513)*y(18) +rxt(448)*y(37))*y(23) & + + (rxt(312)*y(34) +rxt(313)*y(42) +rxt(314)*y(44))*y(98) & + + (rxt(452)*y(26) +rxt(529)*y(52))*y(19) + (rxt(11) +rxt(443))*y(45) & + + (rxt(342)*y(105) +rxt(402)*y(37))*y(55) +rxt(534)*y(95)*y(21) & + +rxt(406)*y(56)*y(34) +rxt(125)*y(67)*y(42) + loss(24) = (rxt(377)* y(68) +rxt(369)* y(110) + rxt(368) + het_rates(72)) & + * y(72) + prod(24) = (rxt(134)*y(69) +rxt(367)*y(78))*y(110) +rxt(370)*y(73) + loss(70) = (rxt(190)* y(60) +rxt(194)* y(61) +rxt(182)* y(62) +rxt(181) & + * y(64) +rxt(189)* y(65) +rxt(191)* y(66) +rxt(186)* y(67) +rxt(378) & + * y(68) +rxt(184)* y(70) +rxt(196)* y(81) +rxt(192)* y(82) +rxt(183) & + * y(83) +rxt(195)* y(84) +rxt(188)* y(85) +rxt(193)* y(86) +rxt(180) & + * y(87) +rxt(185)* y(98) +rxt(371)* y(110) + rxt(370) & + + het_rates(73))* y(73) + prod(70) = (rxt(300)*y(90) +rxt(369)*y(72))*y(110) +rxt(372)*y(75) + loss(9) = (rxt(135)* y(110) + het_rates(74))* y(74) + prod(9) =rxt(137)*y(75)*y(51) + loss(78) = (rxt(137)* y(51) +rxt(142)* y(60) +rxt(159)* y(61) + (rxt(176) + & + rxt(262))* y(62) + (rxt(165) +rxt(253))* y(64) + (rxt(242) +rxt(266)) & + * y(65) + (rxt(153) +rxt(255))* y(66) +rxt(220)* y(67) +rxt(136) & + * y(68) +rxt(198)* y(70) +rxt(161)* y(81) +rxt(157)* y(82) & + + (rxt(187) +rxt(259))* y(83) +rxt(160)* y(84) + (rxt(231) + & + rxt(257))* y(85) +rxt(158)* y(86) + (rxt(141) +rxt(264))* y(87) & + +rxt(209)* y(98) +rxt(373)* y(110) + rxt(372) + het_rates(75)) & + * y(75) + prod(78) = (rxt(135)*y(74) +rxt(371)*y(73))*y(110) +rxt(374)*y(77) + loss(10) = (rxt(138)* y(110) + het_rates(76))* y(76) + prod(10) =rxt(140)*y(77)*y(51) + loss(80) = (rxt(140)* y(51) +rxt(172)* y(60) +rxt(177)* y(61) + (rxt(164) + & + rxt(263))* y(62) + (rxt(163) +rxt(260))* y(64) + (rxt(171) +rxt(254)) & + * y(65) + (rxt(173) +rxt(256))* y(66) +rxt(169)* y(67) +rxt(139) & + * y(68) +rxt(167)* y(70) +rxt(179)* y(81) +rxt(174)* y(82) & + + (rxt(166) +rxt(261))* y(83) +rxt(178)* y(84) + (rxt(170) + & + rxt(258))* y(85) +rxt(175)* y(86) + (rxt(162) +rxt(265))* y(87) & + +rxt(168)* y(98) + rxt(374) + het_rates(77))* y(77) + prod(80) = (rxt(138)*y(76) +rxt(373)*y(75))*y(110) + loss(26) = (rxt(376)* y(68) +rxt(367)* y(110) + het_rates(78))* y(78) + prod(26) = (rxt(304)*y(34) +rxt(305)*y(71) +rxt(306)*y(104))*y(92) +rxt(368) & + *y(72) +rxt(323)*y(110)*y(100) + loss(28) = (rxt(419)* y(55) +rxt(420)* y(56) +rxt(575)* y(107) & + + het_rates(79))* y(79) + prod(28) = (.800_r8*rxt(561)*y(88) +.900_r8*rxt(563)*y(80))*y(68) & + +rxt(565)*y(80)*y(55) + loss(22) = ((rxt(565) +rxt(566))* y(55) +rxt(564)* y(56) +rxt(563)* y(68) & + + het_rates(80))* y(80) + prod(22) =rxt(578)*y(108) +rxt(583)*y(109) + loss(64) = (rxt(280)* y(23) +rxt(281)* y(26) +rxt(282)* y(34) +rxt(284) & + * y(42) +rxt(285)* y(44) +rxt(286)* y(53) +rxt(287)* y(57) +rxt(196) & + * y(73) +rxt(161)* y(75) +rxt(179)* y(77) +rxt(249)* y(88) +rxt(232) & + * y(89) +rxt(214)* y(92) +rxt(156)* y(99) +rxt(283)* y(110) + rxt(75) & + + het_rates(81))* y(81) + prod(64) = (rxt(105)*y(60) +rxt(273)*y(101) +rxt(315)*y(98) + & + rxt(341)*y(105) +rxt(354)*y(106))*y(53) + (rxt(106)*y(63) + & + rxt(118)*y(66) +rxt(274)*y(101) +rxt(275)*y(64))*y(52) & + + (rxt(296)*y(55) +rxt(297)*y(57))*y(83) +rxt(268)*y(82) + loss(47) = (rxt(192)* y(73) +rxt(157)* y(75) +rxt(174)* y(77) +rxt(245) & + * y(88) +rxt(227)* y(89) +rxt(210)* y(92) +rxt(151)* y(99) + rxt(268) & + + het_rates(82))* y(82) + prod(47) =rxt(117)*y(66)*y(52) +rxt(283)*y(110)*y(81) + loss(60) = ((rxt(271) +rxt(293))* y(42) +rxt(295)* y(44) +rxt(296)* y(55) & + +rxt(297)* y(57) +rxt(183)* y(73) + (rxt(187) +rxt(259))* y(75) & + + (rxt(166) +rxt(261))* y(77) +rxt(236)* y(88) +rxt(218)* y(89) & + +rxt(201)* y(92) +rxt(143)* y(99) +rxt(291)* y(110) + rxt(76) & + + het_rates(83))* y(83) + prod(60) = (rxt(104)*y(60) +rxt(119)*y(64) +rxt(285)*y(81) +rxt(314)*y(98) + & + rxt(352)*y(106))*y(44) + (rxt(115)*y(66) +rxt(272)*y(101) + & + rxt(276)*y(64) +rxt(286)*y(81))*y(53) +rxt(267)*y(101)*y(52) & + +rxt(287)*y(81)*y(57) +rxt(277)*y(85) +rxt(270)*y(87) + loss(53) = (rxt(288)* y(51) +rxt(195)* y(73) +rxt(160)* y(75) +rxt(178) & + * y(77) +rxt(248)* y(88) +rxt(230)* y(89) +rxt(213)* y(92) +rxt(155) & + * y(99) + rxt(269) + het_rates(84))* y(84) + prod(53) =rxt(289)*y(110)*y(85) + loss(55) = (rxt(290)* y(44) +rxt(292)* y(51) +rxt(188)* y(73) + (rxt(231) + & + rxt(257))* y(75) + (rxt(170) +rxt(258))* y(77) +rxt(240)* y(88) & + +rxt(223)* y(89) +rxt(205)* y(92) +rxt(147)* y(99) +rxt(289)* y(110) & + + rxt(277) + het_rates(85))* y(85) + prod(55) =rxt(116)*y(66)*y(53) +rxt(291)*y(110)*y(83) +rxt(269)*y(84) + loss(49) = (rxt(294)* y(44) +rxt(193)* y(73) +rxt(158)* y(75) +rxt(175) & + * y(77) +rxt(246)* y(88) +rxt(228)* y(89) +rxt(211)* y(92) +rxt(152) & + * y(99) + het_rates(86))* y(86) + prod(49) =rxt(271)*y(83)*y(42) + loss(52) = (rxt(180)* y(73) + (rxt(141) +rxt(264))* y(75) + (rxt(162) + & + rxt(265))* y(77) +rxt(233)* y(88) +rxt(215)* y(89) +rxt(197)* y(92) & + +rxt(250)* y(99) + rxt(270) + het_rates(87))* y(87) + prod(52) = (rxt(290)*y(85) +rxt(294)*y(86) +rxt(295)*y(83))*y(44) & + + (rxt(288)*y(84) +rxt(292)*y(85))*y(51) + loss(65) = (rxt(363)* y(30) +rxt(243)* y(60) +rxt(247)* y(61) +rxt(235) & + * y(62) +rxt(234)* y(64) +rxt(241)* y(65) +rxt(244)* y(66) +rxt(239) & + * y(67) +rxt(561)* y(68) +rxt(237)* y(70) +rxt(249)* y(81) +rxt(245) & + * y(82) +rxt(236)* y(83) +rxt(248)* y(84) +rxt(240)* y(85) +rxt(246) & + * y(86) +rxt(233)* y(87) +rxt(238)* y(98) +rxt(360)* y(110) & + + rxt(365) + het_rates(88))* y(88) + prod(65) = (rxt(571) +rxt(570)*y(49) +rxt(572)*y(52))*y(99) +rxt(16)*y(52) & + +rxt(565)*y(80)*y(55) +rxt(569)*y(94)*y(56) +rxt(364)*y(91) & + +rxt(366)*y(93) +rxt(574)*y(107) + loss(66) = (rxt(225)* y(60) +rxt(229)* y(61) +rxt(217)* y(62) +rxt(216) & + * y(64) +rxt(224)* y(65) +rxt(226)* y(66) +rxt(222)* y(67) +rxt(298) & + * y(68) +rxt(219)* y(70) +rxt(232)* y(81) +rxt(227)* y(82) +rxt(218) & + * y(83) +rxt(230)* y(84) +rxt(223)* y(85) +rxt(228)* y(86) +rxt(215) & + * y(87) +rxt(221)* y(98) +rxt(362)* y(110) + het_rates(89))* y(89) + prod(66) =rxt(361)*y(110)*y(92) + loss(13) = (rxt(299)* y(68) +rxt(300)* y(110) + het_rates(90))* y(90) + prod(13) =rxt(362)*y(110)*y(89) + loss(17) = (rxt(301)* y(68) +rxt(302)* y(110) + rxt(364) + het_rates(91)) & + * y(91) + prod(17) = (rxt(307)*y(93) +rxt(363)*y(88))*y(30) + loss(69) = (rxt(304)* y(34) +rxt(207)* y(60) +rxt(212)* y(61) +rxt(200) & + * y(62) +rxt(199)* y(64) +rxt(206)* y(65) +rxt(208)* y(66) +rxt(204) & + * y(67) +rxt(303)* y(68) +rxt(202)* y(70) +rxt(305)* y(71) +rxt(214) & + * y(81) +rxt(210)* y(82) +rxt(201)* y(83) +rxt(213)* y(84) +rxt(205) & + * y(85) +rxt(211)* y(86) +rxt(197)* y(87) +rxt(203)* y(98) +rxt(306) & + * y(104) +rxt(361)* y(110) + het_rates(92))* y(92) + prod(69) = (rxt(302)*y(91) +rxt(308)*y(93) +rxt(360)*y(88))*y(110) + loss(16) = (rxt(307)* y(30) +rxt(379)* y(68) +rxt(308)* y(110) + rxt(366) & + + het_rates(93))* y(93) + prod(16) =rxt(365)*y(88) + loss(31) = (rxt(567)* y(55) + (rxt(568) +rxt(569))* y(56) + het_rates(94)) & + * y(94) + prod(31) =rxt(66)*y(49) +rxt(575)*y(107)*y(79) +rxt(584)*y(109) + loss(57) = (rxt(470)* y(6) +rxt(471)* y(7) +rxt(497)* y(8) +rxt(472)* y(9) & + +rxt(473)* y(10) +rxt(474)* y(11) +rxt(475)* y(12) +rxt(476)* y(13) & + +rxt(520)* y(14) +rxt(521)* y(16) + (rxt(533) +rxt(534) +rxt(535)) & + * y(21) +rxt(498)* y(22) +rxt(506)* y(31) +rxt(507)* y(32) +rxt(384) & + * y(35) +rxt(499)* y(36) + (rxt(500) +rxt(501))* y(38) +rxt(522) & + * y(39) +rxt(523)* y(40) +rxt(524)* y(41) + (rxt(477) +rxt(478)) & + * y(42) + (rxt(437) +rxt(438))* y(50) + (rxt(387) +rxt(388))* y(56) & + +rxt(389)* y(57) +rxt(385)* y(110) + rxt(386) + het_rates(95)) & + * y(95) + prod(57) = (rxt(6) +rxt(420)*y(79))*y(56) +rxt(7)*y(57) & + +.850_r8*rxt(562)*y(99)*y(68) +rxt(1)*y(110) + loss(34) = (rxt(391)* y(55) +rxt(392)* y(56) +rxt(316)* y(98) +rxt(334) & + * y(103) +rxt(356)* y(106) + rxt(382) + rxt(390) + het_rates(96)) & + * y(96) + prod(34) = (rxt(394) +rxt(393)*y(30) +rxt(395)*y(55) +rxt(396)*y(56) + & + rxt(397)*y(57))*y(97) +rxt(7)*y(57) + loss(8) = (rxt(393)* y(30) +rxt(395)* y(55) +rxt(396)* y(56) +rxt(397)* y(57) & + + rxt(383) + rxt(394) + het_rates(97))* y(97) + prod(8) =rxt(387)*y(95)*y(56) + loss(75) = (rxt(309)* y(23) +rxt(310)* y(26) +rxt(311)* y(30) +rxt(312) & + * y(34) +rxt(313)* y(42) +rxt(314)* y(44) +rxt(315)* y(53) & + + (rxt(319) +rxt(320))* y(55) +rxt(317)* y(56) +rxt(318)* y(57) & + +rxt(185)* y(73) +rxt(209)* y(75) +rxt(168)* y(77) +rxt(238)* y(88) & + +rxt(221)* y(89) +rxt(203)* y(92) +rxt(316)* y(96) +rxt(145)* y(99) & + + rxt(93) + rxt(132) + het_rates(98))* y(98) + prod(75) = (rxt(120)*y(64) +rxt(329)*y(101))*y(55) + (rxt(128)*y(68) + & + rxt(130)*y(68))*y(56) +rxt(65)*y(67) +rxt(97)*y(102) + loss(76) = (rxt(570)* y(49) +rxt(572)* y(52) +rxt(359)* y(56) +rxt(149) & + * y(60) +rxt(154)* y(61) +rxt(252)* y(62) +rxt(251)* y(64) +rxt(148) & + * y(65) +rxt(150)* y(66) +rxt(146)* y(67) +rxt(562)* y(68) +rxt(144) & + * y(70) +rxt(156)* y(81) +rxt(151)* y(82) +rxt(143)* y(83) +rxt(155) & + * y(84) +rxt(147)* y(85) +rxt(152)* y(86) +rxt(250)* y(87) +rxt(145) & + * y(98) +rxt(324)* y(110) + rxt(571) + het_rates(99))* y(99) + prod(76) = (rxt(86) +rxt(88) +rxt(564)*y(80) +rxt(568)*y(94) + & + rxt(576)*y(107) +rxt(580)*y(108))*y(56) + (rxt(333)*y(55) + & + rxt(334)*y(96))*y(103) +rxt(573)*y(107)*y(30) & + +2.000_r8*rxt(145)*y(99)*y(98) +rxt(94)*y(100) + loss(27) = (rxt(321)* y(68) + (rxt(322) +rxt(323))* y(110) + rxt(94) & + + het_rates(100))* y(100) + prod(27) = (rxt(324)*y(99) +rxt(332)*y(103))*y(110) + loss(48) = (rxt(325)* y(30) +rxt(326)* y(34) + (rxt(267) +rxt(274))* y(52) & + + (rxt(272) +rxt(273))* y(53) + (rxt(328) +rxt(329))* y(55) & + +rxt(327)* y(57) + rxt(95) + rxt(96) + het_rates(101))* y(101) + prod(48) = (rxt(127)*y(67) +rxt(318)*y(98) +rxt(343)*y(105) +rxt(358)*y(106)) & + *y(57) + (rxt(121)*y(64) +rxt(357)*y(106))*y(56) +rxt(331)*y(102) & + *y(55) + loss(14) = (rxt(330)* y(30) +rxt(331)* y(55) + rxt(97) + het_rates(102)) & + * y(102) + prod(14) =rxt(317)*y(98)*y(56) + loss(42) = (rxt(333)* y(55) +rxt(375)* y(68) +rxt(334)* y(96) +rxt(332) & + * y(110) + het_rates(103))* y(103) + prod(42) =rxt(359)*y(99)*y(56) + loss(62) = (rxt(493)* y(3) +rxt(509)* y(14) +rxt(527)* y(15) +rxt(511)* y(16) & + +rxt(512)* y(17) +rxt(514)* y(18) +rxt(530)* y(20) +rxt(531)* y(21) & + +rxt(516)* y(22) + (rxt(463) +rxt(464))* y(26) +rxt(461)* y(27) & + + (rxt(532) +rxt(536))* y(29) +rxt(410)* y(35) +rxt(411)* y(37) & + +rxt(495)* y(38) +rxt(517)* y(39) +rxt(518)* y(40) +rxt(519)* y(41) & + +rxt(466)* y(42) +rxt(442)* y(44) +rxt(418)* y(45) +rxt(469)* y(47) & + +rxt(335)* y(48) +rxt(433)* y(49) +rxt(344)* y(52) +rxt(441)* y(53) & + +rxt(432)* y(54) +rxt(413)* y(55) +rxt(414)* y(57) +rxt(412)* y(71) & + +rxt(306)* y(92) + 2._r8*(rxt(415) +rxt(416))* y(104) & + + het_rates(104))* y(104) + prod(62) = (rxt(401)*y(35) +rxt(402)*y(37) +rxt(407)*y(71) +rxt(465)*y(42) + & + rxt(468)*y(47) +rxt(494)*y(38) +rxt(496)*y(46) +rxt(526)*y(15))*y(55) & + + (rxt(144)*y(99) +rxt(167)*y(77) +rxt(184)*y(73) +rxt(198)*y(75) + & + rxt(202)*y(92) +rxt(219)*y(89) +rxt(237)*y(88))*y(70) + (rxt(3) + & + rxt(134)*y(69) +rxt(323)*y(100) +rxt(350)*y(106) + & + 2.000_r8*rxt(385)*y(95) +rxt(504)*y(33))*y(110) & + + (2.000_r8*rxt(404)*y(34) +rxt(408)*y(57) +rxt(429)*y(54) + & + rxt(434)*y(52) +rxt(450)*y(23))*y(71) + (rxt(98) +rxt(336)*y(23) + & + rxt(337)*y(26) +rxt(341)*y(53) +rxt(343)*y(57))*y(105) & + + (rxt(533)*y(21) +rxt(384)*y(35) +rxt(477)*y(42) +rxt(500)*y(38)) & + *y(95) + (rxt(9) +rxt(119)*y(64) +rxt(352)*y(106))*y(44) + (rxt(23) + & + .300_r8*rxt(530)*y(104))*y(20) + (rxt(124)*y(67) +rxt(409)*y(57)) & + *y(34) +2.000_r8*rxt(4)*y(37) +rxt(351)*y(106)*y(42) +rxt(10)*y(45) & + +rxt(58)*y(46) +rxt(59)*y(47) +rxt(12)*y(48) +.500_r8*rxt(539)*y(53) & + +rxt(133)*y(69)*y(68) + loss(82) = (rxt(336)* y(23) +rxt(337)* y(26) +rxt(338)* y(30) +rxt(339) & + * y(34) +rxt(340)* y(42) +rxt(341)* y(53) +rxt(342)* y(55) +rxt(343) & + * y(57) + rxt(98) + het_rates(105))* y(105) + prod(82) = (rxt(112)*y(64) +rxt(282)*y(81) +rxt(326)*y(101))*y(34) & + + (rxt(349)*y(35) +rxt(350)*y(110))*y(106) + loss(83) = (rxt(345)* y(23) +rxt(346)* y(26) +rxt(347)* y(30) + (rxt(348) + & + rxt(349))* y(35) +rxt(351)* y(42) +rxt(352)* y(44) +rxt(131)* y(52) & + +rxt(354)* y(53) +rxt(355)* y(55) +rxt(357)* y(56) +rxt(358)* y(57) & + +rxt(356)* y(96) +rxt(350)* y(110) + rxt(99) + rxt(353) & + + het_rates(106))* y(106) + prod(83) =rxt(320)*y(98)*y(55) +rxt(129)*y(68)*y(57) +rxt(63)*y(64) +rxt(95) & + *y(101) + loss(35) = (rxt(573)* y(30) +rxt(576)* y(56) +rxt(575)* y(79) + rxt(574) & + + het_rates(107))* y(107) + prod(35) = (rxt(78) +rxt(79) +rxt(566)*y(80) +rxt(567)*y(94) + & + rxt(579)*y(108) +rxt(585)*y(109))*y(55) + (rxt(85) +rxt(87))*y(56) & + + (rxt(577)*y(108) +rxt(582)*y(109))*y(68) +rxt(559)*y(108) & + +rxt(558)*y(109) + loss(19) = (rxt(579)* y(55) +rxt(580)* y(56) +rxt(577)* y(68) + rxt(559) & + + rxt(578) + het_rates(108))* y(108) + prod(19) = (rxt(80) +rxt(81))*y(55) + (rxt(90) +rxt(91))*y(56) + (rxt(560) + & + rxt(581)*y(68))*y(109) + loss(18) = (rxt(585)* y(55) + (rxt(581) +rxt(582))* y(68) + rxt(558) & + + rxt(560) + rxt(583) + rxt(584) + het_rates(109))* y(109) + prod(18) = (rxt(77) +rxt(82))*y(55) + (rxt(83) +rxt(92))*y(56) + loss(87) = (rxt(504)* y(33) +rxt(102)* y(60) +rxt(114)* y(64) +rxt(113) & + * y(66) +rxt(134)* y(69) +rxt(369)* y(72) +rxt(371)* y(73) +rxt(135) & + * y(74) +rxt(373)* y(75) +rxt(138)* y(76) +rxt(367)* y(78) +rxt(283) & + * y(81) +rxt(291)* y(83) +rxt(289)* y(85) +rxt(360)* y(88) +rxt(362) & + * y(89) +rxt(300)* y(90) +rxt(302)* y(91) +rxt(361)* y(92) +rxt(308) & + * y(93) +rxt(385)* y(95) +rxt(324)* y(99) + (rxt(322) +rxt(323)) & + * y(100) +rxt(332)* y(103) +rxt(350)* y(106) + rxt(1) + rxt(2) & + + rxt(3) + het_rates(110))* y(110) + prod(87) = (rxt(372) +4.000_r8*rxt(136)*y(68) +4.000_r8*rxt(141)*y(87) + & + 4.000_r8*rxt(142)*y(60) +5.000_r8*rxt(153)*y(66) + & + 5.000_r8*rxt(157)*y(82) +4.000_r8*rxt(158)*y(86) + & + 5.000_r8*rxt(159)*y(61) +6.000_r8*rxt(160)*y(84) + & + 4.000_r8*rxt(161)*y(81) +4.000_r8*rxt(165)*y(64) + & + 4.000_r8*rxt(176)*y(62) +4.000_r8*rxt(187)*y(83) + & + 4.000_r8*rxt(198)*y(70) +4.000_r8*rxt(209)*y(98) + & + 4.000_r8*rxt(220)*y(67) +5.000_r8*rxt(231)*y(85) + & + 6.000_r8*rxt(242)*y(65) +4.000_r8*rxt(253)*y(64) + & + 5.000_r8*rxt(255)*y(66) +5.000_r8*rxt(257)*y(85) + & + 4.000_r8*rxt(259)*y(83) +4.000_r8*rxt(262)*y(62) + & + 4.000_r8*rxt(264)*y(87) +6.000_r8*rxt(266)*y(65))*y(75) + (rxt(374) + & + 5.000_r8*rxt(139)*y(68) +5.000_r8*rxt(162)*y(87) + & + 5.000_r8*rxt(163)*y(64) +5.000_r8*rxt(164)*y(62) + & + 5.000_r8*rxt(166)*y(83) +5.000_r8*rxt(167)*y(70) + & + 5.000_r8*rxt(168)*y(98) +5.000_r8*rxt(169)*y(67) + & + 6.000_r8*rxt(170)*y(85) +7.000_r8*rxt(171)*y(65) + & + 5.000_r8*rxt(172)*y(60) +6.000_r8*rxt(173)*y(66) + & + 6.000_r8*rxt(174)*y(82) +5.000_r8*rxt(175)*y(86) + & + 6.000_r8*rxt(177)*y(61) +7.000_r8*rxt(178)*y(84) + & + 5.000_r8*rxt(179)*y(81) +7.000_r8*rxt(254)*y(65) + & + 6.000_r8*rxt(256)*y(66) +6.000_r8*rxt(258)*y(85) + & + 5.000_r8*rxt(260)*y(64) +5.000_r8*rxt(261)*y(83) + & + 5.000_r8*rxt(263)*y(62) +5.000_r8*rxt(265)*y(87))*y(77) + (rxt(370) + & + 3.000_r8*rxt(180)*y(87) +3.000_r8*rxt(181)*y(64) + & + 3.000_r8*rxt(182)*y(62) +3.000_r8*rxt(183)*y(83) + & + 3.000_r8*rxt(184)*y(70) +3.000_r8*rxt(185)*y(98) + & + 3.000_r8*rxt(186)*y(67) +4.000_r8*rxt(188)*y(85) + & + 5.000_r8*rxt(189)*y(65) +3.000_r8*rxt(190)*y(60) + & + 4.000_r8*rxt(191)*y(66) +4.000_r8*rxt(192)*y(82) + & + 3.000_r8*rxt(193)*y(86) +4.000_r8*rxt(194)*y(61) + & + 5.000_r8*rxt(195)*y(84) +3.000_r8*rxt(196)*y(81) + & + 3.000_r8*rxt(378)*y(68))*y(73) + (rxt(509)*y(14) +rxt(511)*y(16) + & + rxt(512)*y(17) +rxt(514)*y(18) +rxt(519)*y(41) +rxt(531)*y(21) + & + rxt(335)*y(48) +rxt(410)*y(35) +rxt(411)*y(37) +rxt(412)*y(71) + & + rxt(415)*y(104) +rxt(418)*y(45) +rxt(442)*y(44) +rxt(466)*y(42) + & + rxt(469)*y(47) +rxt(495)*y(38) +rxt(527)*y(15) +rxt(530)*y(20)) & + *y(104) + (2.000_r8*rxt(215)*y(87) +2.000_r8*rxt(216)*y(64) + & + 2.000_r8*rxt(217)*y(62) +2.000_r8*rxt(218)*y(83) + & + 2.000_r8*rxt(219)*y(70) +2.000_r8*rxt(221)*y(98) + & + 2.000_r8*rxt(222)*y(67) +3.000_r8*rxt(223)*y(85) + & + 4.000_r8*rxt(224)*y(65) +2.000_r8*rxt(225)*y(60) + & + 3.000_r8*rxt(226)*y(66) +3.000_r8*rxt(227)*y(82) + & + 2.000_r8*rxt(228)*y(86) +3.000_r8*rxt(229)*y(61) + & + 4.000_r8*rxt(230)*y(84) +2.000_r8*rxt(232)*y(81) + & + 2.000_r8*rxt(298)*y(68))*y(89) + (rxt(197)*y(87) +rxt(199)*y(64) + & + rxt(200)*y(62) +rxt(201)*y(83) +rxt(202)*y(70) +rxt(203)*y(98) + & + rxt(204)*y(67) +2.000_r8*rxt(205)*y(85) +3.000_r8*rxt(206)*y(65) + & + rxt(207)*y(60) +2.000_r8*rxt(208)*y(66) +2.000_r8*rxt(210)*y(82) + & + rxt(211)*y(86) +2.000_r8*rxt(212)*y(61) +3.000_r8*rxt(213)*y(84) + & + rxt(214)*y(81) +rxt(303)*y(68))*y(92) + (rxt(101)*y(61) + & + rxt(340)*y(105) +rxt(542)*y(47) +rxt(548)*y(47) +rxt(549)*y(46) + & + rxt(553)*y(47) +rxt(554)*y(46))*y(42) + (rxt(64) +rxt(278) + & + rxt(115)*y(53) +rxt(118)*y(52) +rxt(150)*y(99) +rxt(244)*y(88))*y(66) & + + (rxt(133)*y(69) +3.000_r8*rxt(299)*y(90) +rxt(321)*y(100) + & + rxt(376)*y(78) +2.000_r8*rxt(377)*y(72))*y(68) + (rxt(240)*y(85) + & + 2.000_r8*rxt(241)*y(65) +rxt(245)*y(82) +rxt(247)*y(61) + & + 2.000_r8*rxt(248)*y(84))*y(88) + (rxt(147)*y(85) + & + 2.000_r8*rxt(148)*y(65) +rxt(151)*y(82) +rxt(154)*y(61) + & + 2.000_r8*rxt(155)*y(84))*y(99) + (rxt(339)*y(105) +rxt(405)*y(71)) & + *y(34) + (rxt(269) +rxt(288)*y(51))*y(84) + (rxt(277) + & + rxt(290)*y(44))*y(85) +rxt(348)*y(106)*y(35) +rxt(380)*y(61) & + +rxt(279)*y(65) +rxt(368)*y(72) +rxt(268)*y(82) +rxt(94)*y(100) end subroutine imp_prod_loss end module mo_prod_loss diff --git a/src/chemistry/pp_waccm_mad/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_mad/mo_rxt_rates_conv.F90 index f13926d22e..8276f8a82f 100644 --- a/src/chemistry/pp_waccm_mad/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_mad/mo_rxt_rates_conv.F90 @@ -11,69 +11,69 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 110) ! rate_const*H2O rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 110) ! rate_const*H2O rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 110) ! rate_const*H2O - rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 35) ! rate_const*H2O2 - rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 56) ! rate_const*O3 - rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 56) ! rate_const*O3 - rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 42) ! rate_const*HNO3 - rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 44) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 44) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 47) ! rate_const*HONO - rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 49) ! rate_const*N2O - rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 50) ! rate_const*N2O5 - rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 50) ! rate_const*N2O5 - rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 51) ! rate_const*NO - rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 51) ! rate_const*NO - rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 52) ! rate_const*NO2 - rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 53) ! rate_const*NO3 - rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 53) ! rate_const*NO3 - rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 14) ! rate_const*CH2O - rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 14) ! rate_const*CH2O - rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 19) ! rate_const*CH3OOH - rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 20) ! rate_const*CH4 - rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 20) ! rate_const*CH4 - rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 28) ! rate_const*CO2 - rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 1) ! rate_const*BRCL - rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 2) ! rate_const*BRO - rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 5) ! rate_const*CCL4 - rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 6) ! rate_const*CF2CLBR - rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 7) ! rate_const*CF3BR - rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 8) ! rate_const*CFC11 - rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 9) ! rate_const*CFC113 - rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 10) ! rate_const*CFC114 - rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 11) ! rate_const*CFC115 - rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 12) ! rate_const*CFC12 - rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 13) ! rate_const*CH2BR2 - rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 15) ! rate_const*CH3BR - rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 16) ! rate_const*CH3CCL3 - rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 17) ! rate_const*CH3CL - rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 21) ! rate_const*CHBR3 - rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 22) ! rate_const*CL2 - rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 23) ! rate_const*CL2O2 - rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 24) ! rate_const*CLO - rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 29) ! rate_const*COF2 - rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 30) ! rate_const*COFCL - rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 34) ! rate_const*H2402 - rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 36) ! rate_const*HBR - rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 37) ! rate_const*HCFC141B - rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 38) ! rate_const*HCFC142B - rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 39) ! rate_const*HCFC22 - rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 40) ! rate_const*HCL - rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 41) ! rate_const*HF - rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 45) ! rate_const*HOBR - rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 46) ! rate_const*HOCL - rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 57) ! rate_const*OCLO - rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 58) ! rate_const*SF6 - rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 28) ! rate_const*CO2 - rxt_rates(:ncol,:, 63) = rxt_rates(:ncol,:, 63)*sol(:ncol,:, 65) ! rate_const*CO3m - rxt_rates(:ncol,:, 64) = rxt_rates(:ncol,:, 64)*sol(:ncol,:, 67) ! rate_const*CO3m_H2O - rxt_rates(:ncol,:, 65) = rxt_rates(:ncol,:, 65)*sol(:ncol,:, 68) ! rate_const*CO4m - rxt_rates(:ncol,:, 66) = rxt_rates(:ncol,:, 66)*sol(:ncol,:, 48) ! rate_const*N + rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 37) ! rate_const*H2O2 + rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 57) ! rate_const*O3 + rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 57) ! rate_const*O3 + rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 44) ! rate_const*HNO3 + rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 45) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 45) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 48) ! rate_const*HONO + rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 50) ! rate_const*N2O + rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 51) ! rate_const*N2O5 + rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 51) ! rate_const*N2O5 + rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 52) ! rate_const*NO + rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 52) ! rate_const*NO + rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 53) ! rate_const*NO2 + rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 54) ! rate_const*NO3 + rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 54) ! rate_const*NO3 + rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 15) ! rate_const*CH2O + rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 15) ! rate_const*CH2O + rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 20) ! rate_const*CH3OOH + rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 21) ! rate_const*CH4 + rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 21) ! rate_const*CH4 + rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 30) ! rate_const*CO2 + rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 2) ! rate_const*BRCL + rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 3) ! rate_const*BRO + rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 6) ! rate_const*CCL4 + rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 7) ! rate_const*CF2CLBR + rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 8) ! rate_const*CF3BR + rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 9) ! rate_const*CFC11 + rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 10) ! rate_const*CFC113 + rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 11) ! rate_const*CFC114 + rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 12) ! rate_const*CFC115 + rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 13) ! rate_const*CFC12 + rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 14) ! rate_const*CH2BR2 + rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 16) ! rate_const*CH3BR + rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 17) ! rate_const*CH3CCL3 + rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 18) ! rate_const*CH3CL + rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 22) ! rate_const*CHBR3 + rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 24) ! rate_const*CL2 + rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 25) ! rate_const*CL2O2 + rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 26) ! rate_const*CLO + rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 31) ! rate_const*COF2 + rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 32) ! rate_const*COFCL + rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 36) ! rate_const*H2402 + rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 38) ! rate_const*HBR + rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 39) ! rate_const*HCFC141B + rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 40) ! rate_const*HCFC142B + rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 41) ! rate_const*HCFC22 + rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 42) ! rate_const*HCL + rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 43) ! rate_const*HF + rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 46) ! rate_const*HOBR + rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 47) ! rate_const*HOCL + rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 58) ! rate_const*OCLO + rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 59) ! rate_const*SF6 + rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 30) ! rate_const*CO2 + rxt_rates(:ncol,:, 63) = rxt_rates(:ncol,:, 63)*sol(:ncol,:, 64) ! rate_const*CO3m + rxt_rates(:ncol,:, 64) = rxt_rates(:ncol,:, 64)*sol(:ncol,:, 66) ! rate_const*CO3m_H2O + rxt_rates(:ncol,:, 65) = rxt_rates(:ncol,:, 65)*sol(:ncol,:, 67) ! rate_const*CO4m + rxt_rates(:ncol,:, 66) = rxt_rates(:ncol,:, 66)*sol(:ncol,:, 49) ! rate_const*N ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 @@ -84,22 +84,22 @@ subroutine set_rates( rxt_rates, sol, ncol ) ! rate_const*N2 rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 81) ! rate_const*NO2m rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 83) ! rate_const*NO3m - rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 54) ! rate_const*O - rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 54) ! rate_const*O - rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 54) ! rate_const*O - rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 54) ! rate_const*O - rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 54) ! rate_const*O - rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 54) ! rate_const*O - rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 55) ! rate_const*O2 - rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 55) ! rate_const*O2 + rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 55) ! rate_const*O + rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 55) ! rate_const*O + rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 55) ! rate_const*O + rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 55) ! rate_const*O + rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 55) ! rate_const*O + rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 55) ! rate_const*O + rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 56) ! rate_const*O2 + rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 56) ! rate_const*O2 rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 98) ! rate_const*O2m rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 100) ! rate_const*O2p_H2O rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 101) ! rate_const*O3m @@ -107,270 +107,270 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 102) ! rate_const*O4m rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 105) ! rate_const*OHm rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 106) ! rate_const*Om - rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 61)*sol(:ncol,:, 32) ! rate_const*CLm*H - rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 62)*sol(:ncol,:, 40) ! rate_const*CLm_H2O*HCL - rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 61)*sol(:ncol,:, 110) ! rate_const*M*CLm*H2O - rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 40)*sol(:ncol,:, 61) ! rate_const*M*HCL*CLm - rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 61)*sol(:ncol,:, 42) ! rate_const*CLm*HNO3 - rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 61)*sol(:ncol,:, 52) ! rate_const*CLm*NO2 - rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 64)*sol(:ncol,:, 51) ! rate_const*CLOm*NO - rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 64)*sol(:ncol,:, 51) ! rate_const*CLOm*NO - rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 64)*sol(:ncol,:, 54) ! rate_const*CLOm*O - rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 60)*sol(:ncol,:, 65) ! rate_const*CL*CO3m - rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 60)*sol(:ncol,:, 65) ! rate_const*CL*CO3m - rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 24)*sol(:ncol,:, 65) ! rate_const*CLO*CO3m - rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 32)*sol(:ncol,:, 65) ! rate_const*H*CO3m - rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 67)*sol(:ncol,:, 110) ! rate_const*M*CO3m_H2O*H2O - rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 65)*sol(:ncol,:, 110) ! rate_const*M*CO3m*H2O - rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 67)*sol(:ncol,:, 52) ! rate_const*CO3m_H2O*NO2 - rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 67)*sol(:ncol,:, 52) ! rate_const*CO3m_H2O*NO2 - rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 67)*sol(:ncol,:, 51) ! rate_const*CO3m_H2O*NO - rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 67)*sol(:ncol,:, 51) ! rate_const*CO3m_H2O*NO - rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 65)*sol(:ncol,:, 42) ! rate_const*CO3m*HNO3 - rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 65)*sol(:ncol,:, 54) ! rate_const*CO3m*O - rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 55)*sol(:ncol,:, 65) ! rate_const*O2*CO3m - rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 60)*sol(:ncol,:, 68) ! rate_const*CL*CO4m - rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 24)*sol(:ncol,:, 68) ! rate_const*CLO*CO4m - rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 68)*sol(:ncol,:, 32) ! rate_const*CO4m*H - rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 68)*sol(:ncol,:, 40) ! rate_const*CO4m*HCL - rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 68)*sol(:ncol,:, 54) ! rate_const*CO4m*O - rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 68)*sol(:ncol,:, 56) ! rate_const*CO4m*O3 - rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 69)*sol(:ncol,:, 55) ! rate_const*N2*e*O2 - rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 56)*sol(:ncol,:, 69) ! rate_const*O3*e - rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 55)*sol(:ncol,:, 69) ! rate_const*M*O2*e - rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 51)*sol(:ncol,:, 106) ! rate_const*NO*Om + rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 60)*sol(:ncol,:, 34) ! rate_const*CLm*H + rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 61)*sol(:ncol,:, 42) ! rate_const*CLm_H2O*HCL + rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 60)*sol(:ncol,:, 110) ! rate_const*M*CLm*H2O + rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 42)*sol(:ncol,:, 60) ! rate_const*M*HCL*CLm + rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 60)*sol(:ncol,:, 44) ! rate_const*CLm*HNO3 + rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 60)*sol(:ncol,:, 53) ! rate_const*CLm*NO2 + rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 63)*sol(:ncol,:, 52) ! rate_const*CLOm*NO + rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 63)*sol(:ncol,:, 52) ! rate_const*CLOm*NO + rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 63)*sol(:ncol,:, 55) ! rate_const*CLOm*O + rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 23)*sol(:ncol,:, 64) ! rate_const*CL*CO3m + rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 23)*sol(:ncol,:, 64) ! rate_const*CL*CO3m + rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 26)*sol(:ncol,:, 64) ! rate_const*CLO*CO3m + rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 34)*sol(:ncol,:, 64) ! rate_const*H*CO3m + rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 66)*sol(:ncol,:, 110) ! rate_const*M*CO3m_H2O*H2O + rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 64)*sol(:ncol,:, 110) ! rate_const*M*CO3m*H2O + rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 66)*sol(:ncol,:, 53) ! rate_const*CO3m_H2O*NO2 + rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 66)*sol(:ncol,:, 53) ! rate_const*CO3m_H2O*NO2 + rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 66)*sol(:ncol,:, 52) ! rate_const*CO3m_H2O*NO + rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 66)*sol(:ncol,:, 52) ! rate_const*CO3m_H2O*NO + rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 64)*sol(:ncol,:, 44) ! rate_const*CO3m*HNO3 + rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 64)*sol(:ncol,:, 55) ! rate_const*CO3m*O + rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 56)*sol(:ncol,:, 64) ! rate_const*O2*CO3m + rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 23)*sol(:ncol,:, 67) ! rate_const*CL*CO4m + rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 26)*sol(:ncol,:, 67) ! rate_const*CLO*CO4m + rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 67)*sol(:ncol,:, 34) ! rate_const*CO4m*H + rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 67)*sol(:ncol,:, 42) ! rate_const*CO4m*HCL + rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 67)*sol(:ncol,:, 55) ! rate_const*CO4m*O + rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 67)*sol(:ncol,:, 57) ! rate_const*CO4m*O3 + rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 68)*sol(:ncol,:, 56) ! rate_const*N2*e*O2 + rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 57)*sol(:ncol,:, 68) ! rate_const*O3*e + rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 56)*sol(:ncol,:, 68) ! rate_const*M*O2*e + rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 52)*sol(:ncol,:, 106) ! rate_const*NO*Om rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 98) ! rate_const*N2*O2m - rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 70)*sol(:ncol,:, 69) ! rate_const*H3Op_OH*e - rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 110)*sol(:ncol,:, 70) ! rate_const*H2O*H3Op_OH + rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 69)*sol(:ncol,:, 68) ! rate_const*H3Op_OH*e + rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 110)*sol(:ncol,:, 69) ! rate_const*H2O*H3Op_OH rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 110)*sol(:ncol,:, 74) ! rate_const*H2O*Hp_3N1 - rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 75)*sol(:ncol,:, 69) ! rate_const*Hp_4H2O*e - rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 75)*sol(:ncol,:, 50) ! rate_const*Hp_4H2O*N2O5 + rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 75)*sol(:ncol,:, 68) ! rate_const*Hp_4H2O*e + rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 75)*sol(:ncol,:, 51) ! rate_const*Hp_4H2O*N2O5 rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 110)*sol(:ncol,:, 76) ! rate_const*H2O*Hp_4N1 - rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 77)*sol(:ncol,:, 69) ! rate_const*Hp_5H2O*e - rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 77)*sol(:ncol,:, 50) ! rate_const*Hp_5H2O*N2O5 + rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 77)*sol(:ncol,:, 68) ! rate_const*Hp_5H2O*e + rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 77)*sol(:ncol,:, 51) ! rate_const*Hp_5H2O*N2O5 rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 75)*sol(:ncol,:, 87) ! rate_const*Hp_4H2O*NO3mHNO3 - rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 61)*sol(:ncol,:, 75) ! rate_const*CLm*Hp_4H2O + rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 60)*sol(:ncol,:, 75) ! rate_const*CLm*Hp_4H2O rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 83)*sol(:ncol,:, 99) ! rate_const*NO3m*O2p - rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 71)*sol(:ncol,:, 99) ! rate_const*HCO3m*O2p + rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 70)*sol(:ncol,:, 99) ! rate_const*HCO3m*O2p rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 98)*sol(:ncol,:, 99) ! rate_const*O2m*O2p - rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 68)*sol(:ncol,:, 99) ! rate_const*CO4m*O2p + rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 67)*sol(:ncol,:, 99) ! rate_const*CO4m*O2p rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 85)*sol(:ncol,:, 99) ! rate_const*NO3m_H2O*O2p - rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 66)*sol(:ncol,:, 99) ! rate_const*CO3m2H2O*O2p - rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 61)*sol(:ncol,:, 99) ! rate_const*CLm*O2p - rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 67)*sol(:ncol,:, 99) ! rate_const*CO3m_H2O*O2p + rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 65)*sol(:ncol,:, 99) ! rate_const*CO3m2H2O*O2p + rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 60)*sol(:ncol,:, 99) ! rate_const*CLm*O2p + rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 66)*sol(:ncol,:, 99) ! rate_const*CO3m_H2O*O2p rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 82)*sol(:ncol,:, 99) ! rate_const*NO2m_H2O*O2p rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 86)*sol(:ncol,:, 99) ! rate_const*NO3m_HCL*O2p - rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 67)*sol(:ncol,:, 75) ! rate_const*CO3m_H2O*Hp_4H2O - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 99)*sol(:ncol,:, 62) ! rate_const*O2p*CLm_H2O + rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 66)*sol(:ncol,:, 75) ! rate_const*CO3m_H2O*Hp_4H2O + rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 99)*sol(:ncol,:, 61) ! rate_const*O2p*CLm_H2O rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 84)*sol(:ncol,:, 99) ! rate_const*NO3m2H2O*O2p rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 81)*sol(:ncol,:, 99) ! rate_const*NO2m*O2p rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 75)*sol(:ncol,:, 82) ! rate_const*Hp_4H2O*NO2m_H2O rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 75)*sol(:ncol,:, 86) ! rate_const*Hp_4H2O*NO3m_HCL - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 62)*sol(:ncol,:, 75) ! rate_const*CLm_H2O*Hp_4H2O + rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 61)*sol(:ncol,:, 75) ! rate_const*CLm_H2O*Hp_4H2O rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 84)*sol(:ncol,:, 75) ! rate_const*NO3m2H2O*Hp_4H2O rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 75)*sol(:ncol,:, 81) ! rate_const*Hp_4H2O*NO2m rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 77)*sol(:ncol,:, 87) ! rate_const*Hp_5H2O*NO3mHNO3 - rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 65)*sol(:ncol,:, 77) ! rate_const*CO3m*Hp_5H2O - rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 63)*sol(:ncol,:, 77) ! rate_const*CLm_HCL*Hp_5H2O - rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 65)*sol(:ncol,:, 75) ! rate_const*CO3m*Hp_4H2O + rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 64)*sol(:ncol,:, 77) ! rate_const*CO3m*Hp_5H2O + rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 62)*sol(:ncol,:, 77) ! rate_const*CLm_HCL*Hp_5H2O + rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 64)*sol(:ncol,:, 75) ! rate_const*CO3m*Hp_4H2O rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 83)*sol(:ncol,:, 77) ! rate_const*NO3m*Hp_5H2O - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 71)*sol(:ncol,:, 77) ! rate_const*HCO3m*Hp_5H2O + rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 70)*sol(:ncol,:, 77) ! rate_const*HCO3m*Hp_5H2O rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 77)*sol(:ncol,:, 98) ! rate_const*Hp_5H2O*O2m - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 68)*sol(:ncol,:, 77) ! rate_const*CO4m*Hp_5H2O + rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 67)*sol(:ncol,:, 77) ! rate_const*CO4m*Hp_5H2O rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 77)*sol(:ncol,:, 85) ! rate_const*Hp_5H2O*NO3m_H2O - rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 66)*sol(:ncol,:, 77) ! rate_const*CO3m2H2O*Hp_5H2O - rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 61)*sol(:ncol,:, 77) ! rate_const*CLm*Hp_5H2O - rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 67)*sol(:ncol,:, 77) ! rate_const*CO3m_H2O*Hp_5H2O + rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 65)*sol(:ncol,:, 77) ! rate_const*CO3m2H2O*Hp_5H2O + rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 60)*sol(:ncol,:, 77) ! rate_const*CLm*Hp_5H2O + rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 66)*sol(:ncol,:, 77) ! rate_const*CO3m_H2O*Hp_5H2O rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 82)*sol(:ncol,:, 77) ! rate_const*NO2m_H2O*Hp_5H2O rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 77)*sol(:ncol,:, 86) ! rate_const*Hp_5H2O*NO3m_HCL - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 63)*sol(:ncol,:, 75) ! rate_const*CLm_HCL*Hp_4H2O - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 62)*sol(:ncol,:, 77) ! rate_const*CLm_H2O*Hp_5H2O + rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 62)*sol(:ncol,:, 75) ! rate_const*CLm_HCL*Hp_4H2O + rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 61)*sol(:ncol,:, 77) ! rate_const*CLm_H2O*Hp_5H2O rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 77)*sol(:ncol,:, 84) ! rate_const*Hp_5H2O*NO3m2H2O rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 77)*sol(:ncol,:, 81) ! rate_const*Hp_5H2O*NO2m rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 73)*sol(:ncol,:, 87) ! rate_const*Hp_3H2O*NO3mHNO3 - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 73)*sol(:ncol,:, 65) ! rate_const*Hp_3H2O*CO3m - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 63)*sol(:ncol,:, 73) ! rate_const*CLm_HCL*Hp_3H2O + rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 73)*sol(:ncol,:, 64) ! rate_const*Hp_3H2O*CO3m + rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 62)*sol(:ncol,:, 73) ! rate_const*CLm_HCL*Hp_3H2O rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 73)*sol(:ncol,:, 83) ! rate_const*Hp_3H2O*NO3m - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 71)*sol(:ncol,:, 73) ! rate_const*HCO3m*Hp_3H2O + rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 70)*sol(:ncol,:, 73) ! rate_const*HCO3m*Hp_3H2O rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 73)*sol(:ncol,:, 98) ! rate_const*Hp_3H2O*O2m - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 68)*sol(:ncol,:, 73) ! rate_const*CO4m*Hp_3H2O + rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 67)*sol(:ncol,:, 73) ! rate_const*CO4m*Hp_3H2O rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 75)*sol(:ncol,:, 83) ! rate_const*Hp_4H2O*NO3m rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 73)*sol(:ncol,:, 85) ! rate_const*Hp_3H2O*NO3m_H2O - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 66)*sol(:ncol,:, 73) ! rate_const*CO3m2H2O*Hp_3H2O - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 61)*sol(:ncol,:, 73) ! rate_const*CLm*Hp_3H2O - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 67)*sol(:ncol,:, 73) ! rate_const*CO3m_H2O*Hp_3H2O + rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 65)*sol(:ncol,:, 73) ! rate_const*CO3m2H2O*Hp_3H2O + rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 60)*sol(:ncol,:, 73) ! rate_const*CLm*Hp_3H2O + rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 66)*sol(:ncol,:, 73) ! rate_const*CO3m_H2O*Hp_3H2O rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 73)*sol(:ncol,:, 82) ! rate_const*Hp_3H2O*NO2m_H2O rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 73)*sol(:ncol,:, 86) ! rate_const*Hp_3H2O*NO3m_HCL - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 62)*sol(:ncol,:, 73) ! rate_const*CLm_H2O*Hp_3H2O + rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 61)*sol(:ncol,:, 73) ! rate_const*CLm_H2O*Hp_3H2O rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 73)*sol(:ncol,:, 84) ! rate_const*Hp_3H2O*NO3m2H2O rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 73)*sol(:ncol,:, 81) ! rate_const*Hp_3H2O*NO2m rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 87)*sol(:ncol,:, 92) ! rate_const*NO3mHNO3*NOp_H2O - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 71)*sol(:ncol,:, 75) ! rate_const*HCO3m*Hp_4H2O - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 65)*sol(:ncol,:, 92) ! rate_const*CO3m*NOp_H2O - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 63)*sol(:ncol,:, 92) ! rate_const*CLm_HCL*NOp_H2O + rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 70)*sol(:ncol,:, 75) ! rate_const*HCO3m*Hp_4H2O + rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 64)*sol(:ncol,:, 92) ! rate_const*CO3m*NOp_H2O + rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 62)*sol(:ncol,:, 92) ! rate_const*CLm_HCL*NOp_H2O rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 83)*sol(:ncol,:, 92) ! rate_const*NO3m*NOp_H2O - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 71)*sol(:ncol,:, 92) ! rate_const*HCO3m*NOp_H2O + rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 70)*sol(:ncol,:, 92) ! rate_const*HCO3m*NOp_H2O rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 92)*sol(:ncol,:, 98) ! rate_const*NOp_H2O*O2m - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 68)*sol(:ncol,:, 92) ! rate_const*CO4m*NOp_H2O + rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 67)*sol(:ncol,:, 92) ! rate_const*CO4m*NOp_H2O rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 85)*sol(:ncol,:, 92) ! rate_const*NO3m_H2O*NOp_H2O - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 66)*sol(:ncol,:, 92) ! rate_const*CO3m2H2O*NOp_H2O - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 61)*sol(:ncol,:, 92) ! rate_const*CLm*NOp_H2O - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 67)*sol(:ncol,:, 92) ! rate_const*CO3m_H2O*NOp_H2O + rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 65)*sol(:ncol,:, 92) ! rate_const*CO3m2H2O*NOp_H2O + rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 60)*sol(:ncol,:, 92) ! rate_const*CLm*NOp_H2O + rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 66)*sol(:ncol,:, 92) ! rate_const*CO3m_H2O*NOp_H2O rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 75)*sol(:ncol,:, 98) ! rate_const*Hp_4H2O*O2m rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 82)*sol(:ncol,:, 92) ! rate_const*NO2m_H2O*NOp_H2O rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 86)*sol(:ncol,:, 92) ! rate_const*NO3m_HCL*NOp_H2O - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 62)*sol(:ncol,:, 92) ! rate_const*CLm_H2O*NOp_H2O + rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 61)*sol(:ncol,:, 92) ! rate_const*CLm_H2O*NOp_H2O rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 84)*sol(:ncol,:, 92) ! rate_const*NO3m2H2O*NOp_H2O rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 81)*sol(:ncol,:, 92) ! rate_const*NO2m*NOp_H2O rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 87)*sol(:ncol,:, 89) ! rate_const*NO3mHNO3*NOp_2H2O - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 65)*sol(:ncol,:, 89) ! rate_const*CO3m*NOp_2H2O - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 63)*sol(:ncol,:, 89) ! rate_const*CLm_HCL*NOp_2H2O + rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 64)*sol(:ncol,:, 89) ! rate_const*CO3m*NOp_2H2O + rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 62)*sol(:ncol,:, 89) ! rate_const*CLm_HCL*NOp_2H2O rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 89)*sol(:ncol,:, 83) ! rate_const*NOp_2H2O*NO3m - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 71)*sol(:ncol,:, 89) ! rate_const*HCO3m*NOp_2H2O - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 68)*sol(:ncol,:, 75) ! rate_const*CO4m*Hp_4H2O + rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 70)*sol(:ncol,:, 89) ! rate_const*HCO3m*NOp_2H2O + rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 67)*sol(:ncol,:, 75) ! rate_const*CO4m*Hp_4H2O rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 89)*sol(:ncol,:, 98) ! rate_const*NOp_2H2O*O2m - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 89)*sol(:ncol,:, 68) ! rate_const*NOp_2H2O*CO4m + rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 89)*sol(:ncol,:, 67) ! rate_const*NOp_2H2O*CO4m rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 85)*sol(:ncol,:, 89) ! rate_const*NO3m_H2O*NOp_2H2O - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 66)*sol(:ncol,:, 89) ! rate_const*CO3m2H2O*NOp_2H2O - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 61)*sol(:ncol,:, 89) ! rate_const*CLm*NOp_2H2O - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 67)*sol(:ncol,:, 89) ! rate_const*CO3m_H2O*NOp_2H2O + rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 65)*sol(:ncol,:, 89) ! rate_const*CO3m2H2O*NOp_2H2O + rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 60)*sol(:ncol,:, 89) ! rate_const*CLm*NOp_2H2O + rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 66)*sol(:ncol,:, 89) ! rate_const*CO3m_H2O*NOp_2H2O rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 89)*sol(:ncol,:, 82) ! rate_const*NOp_2H2O*NO2m_H2O rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 86)*sol(:ncol,:, 89) ! rate_const*NO3m_HCL*NOp_2H2O - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 89)*sol(:ncol,:, 62) ! rate_const*NOp_2H2O*CLm_H2O + rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 89)*sol(:ncol,:, 61) ! rate_const*NOp_2H2O*CLm_H2O rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 89)*sol(:ncol,:, 84) ! rate_const*NOp_2H2O*NO3m2H2O rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 75)*sol(:ncol,:, 85) ! rate_const*Hp_4H2O*NO3m_H2O rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 89)*sol(:ncol,:, 81) ! rate_const*NOp_2H2O*NO2m rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 88)*sol(:ncol,:, 87) ! rate_const*NOp*NO3mHNO3 - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 88)*sol(:ncol,:, 65) ! rate_const*NOp*CO3m - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 88)*sol(:ncol,:, 63) ! rate_const*NOp*CLm_HCL + rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 88)*sol(:ncol,:, 64) ! rate_const*NOp*CO3m + rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 88)*sol(:ncol,:, 62) ! rate_const*NOp*CLm_HCL rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 83)*sol(:ncol,:, 88) ! rate_const*NO3m*NOp - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 88)*sol(:ncol,:, 71) ! rate_const*NOp*HCO3m + rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 88)*sol(:ncol,:, 70) ! rate_const*NOp*HCO3m rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 98)*sol(:ncol,:, 88) ! rate_const*O2m*NOp - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 88)*sol(:ncol,:, 68) ! rate_const*NOp*CO4m + rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 88)*sol(:ncol,:, 67) ! rate_const*NOp*CO4m rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 88)*sol(:ncol,:, 85) ! rate_const*NOp*NO3m_H2O - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 88)*sol(:ncol,:, 66) ! rate_const*NOp*CO3m2H2O - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 66)*sol(:ncol,:, 75) ! rate_const*CO3m2H2O*Hp_4H2O - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 61)*sol(:ncol,:, 88) ! rate_const*CLm*NOp - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 67)*sol(:ncol,:, 88) ! rate_const*CO3m_H2O*NOp + rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 88)*sol(:ncol,:, 65) ! rate_const*NOp*CO3m2H2O + rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 65)*sol(:ncol,:, 75) ! rate_const*CO3m2H2O*Hp_4H2O + rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 60)*sol(:ncol,:, 88) ! rate_const*CLm*NOp + rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 66)*sol(:ncol,:, 88) ! rate_const*CO3m_H2O*NOp rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 82)*sol(:ncol,:, 88) ! rate_const*NO2m_H2O*NOp rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 86)*sol(:ncol,:, 88) ! rate_const*NO3m_HCL*NOp - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 62)*sol(:ncol,:, 88) ! rate_const*CLm_H2O*NOp + rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 61)*sol(:ncol,:, 88) ! rate_const*CLm_H2O*NOp rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 88)*sol(:ncol,:, 84) ! rate_const*NOp*NO3m2H2O rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 88)*sol(:ncol,:, 81) ! rate_const*NOp*NO2m rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 87)*sol(:ncol,:, 99) ! rate_const*NO3mHNO3*O2p - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 99)*sol(:ncol,:, 65) ! rate_const*O2p*CO3m - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 99)*sol(:ncol,:, 63) ! rate_const*O2p*CLm_HCL - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 75)*sol(:ncol,:, 65) ! rate_const*M*Hp_4H2O*CO3m - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 77)*sol(:ncol,:, 66) ! rate_const*M*Hp_5H2O*CO3m2H2O - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 67)*sol(:ncol,:, 75) ! rate_const*M*CO3m_H2O*Hp_4H2O - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 77)*sol(:ncol,:, 67) ! rate_const*M*Hp_5H2O*CO3m_H2O + rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 99)*sol(:ncol,:, 64) ! rate_const*O2p*CO3m + rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 99)*sol(:ncol,:, 62) ! rate_const*O2p*CLm_HCL + rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 75)*sol(:ncol,:, 64) ! rate_const*M*Hp_4H2O*CO3m + rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 77)*sol(:ncol,:, 65) ! rate_const*M*Hp_5H2O*CO3m2H2O + rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 66)*sol(:ncol,:, 75) ! rate_const*M*CO3m_H2O*Hp_4H2O + rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 77)*sol(:ncol,:, 66) ! rate_const*M*Hp_5H2O*CO3m_H2O rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 85)*sol(:ncol,:, 75) ! rate_const*M*NO3m_H2O*Hp_4H2O rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 85)*sol(:ncol,:, 77) ! rate_const*M*NO3m_H2O*Hp_5H2O rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 83)*sol(:ncol,:, 75) ! rate_const*M*NO3m*Hp_4H2O - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 77)*sol(:ncol,:, 65) ! rate_const*M*Hp_5H2O*CO3m + rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 77)*sol(:ncol,:, 64) ! rate_const*M*Hp_5H2O*CO3m rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 77)*sol(:ncol,:, 83) ! rate_const*M*Hp_5H2O*NO3m - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 63)*sol(:ncol,:, 75) ! rate_const*M*CLm_HCL*Hp_4H2O - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 77)*sol(:ncol,:, 63) ! rate_const*M*Hp_5H2O*CLm_HCL + rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 62)*sol(:ncol,:, 75) ! rate_const*M*CLm_HCL*Hp_4H2O + rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 77)*sol(:ncol,:, 62) ! rate_const*M*Hp_5H2O*CLm_HCL rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 87)*sol(:ncol,:, 75) ! rate_const*M*NO3mHNO3*Hp_4H2O rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 77)*sol(:ncol,:, 87) ! rate_const*M*Hp_5H2O*NO3mHNO3 - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 66)*sol(:ncol,:, 75) ! rate_const*M*CO3m2H2O*Hp_4H2O - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 51)*sol(:ncol,:, 101) ! rate_const*NO*O3m + rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 65)*sol(:ncol,:, 75) ! rate_const*M*CO3m2H2O*Hp_4H2O + rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 52)*sol(:ncol,:, 101) ! rate_const*NO*O3m rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 82) ! rate_const*M*NO2m_H2O rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 84) ! rate_const*M*NO3m2H2O rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 87) ! rate_const*M*NO3mHNO3 - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 40)*sol(:ncol,:, 83) ! rate_const*M*HCL*NO3m - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 52)*sol(:ncol,:, 101) ! rate_const*NO2*O3m - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 52)*sol(:ncol,:, 101) ! rate_const*NO2*O3m - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 51)*sol(:ncol,:, 101) ! rate_const*NO*O3m - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 65)*sol(:ncol,:, 51) ! rate_const*CO3m*NO - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 65)*sol(:ncol,:, 52) ! rate_const*CO3m*NO2 + rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 42)*sol(:ncol,:, 83) ! rate_const*M*HCL*NO3m + rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 53)*sol(:ncol,:, 101) ! rate_const*NO2*O3m + rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 53)*sol(:ncol,:, 101) ! rate_const*NO2*O3m + rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 52)*sol(:ncol,:, 101) ! rate_const*NO*O3m + rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 64)*sol(:ncol,:, 52) ! rate_const*CO3m*NO + rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 64)*sol(:ncol,:, 53) ! rate_const*CO3m*NO2 rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 85) ! rate_const*M*NO3m_H2O - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 67) ! rate_const*M*CO3m_H2O - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 66) ! rate_const*M*CO3m2H2O - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 60)*sol(:ncol,:, 81) ! rate_const*CL*NO2m - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 24)*sol(:ncol,:, 81) ! rate_const*CLO*NO2m - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 32)*sol(:ncol,:, 81) ! rate_const*H*NO2m + rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 66) ! rate_const*M*CO3m_H2O + rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 65) ! rate_const*M*CO3m2H2O + rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 23)*sol(:ncol,:, 81) ! rate_const*CL*NO2m + rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 26)*sol(:ncol,:, 81) ! rate_const*CLO*NO2m + rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 34)*sol(:ncol,:, 81) ! rate_const*H*NO2m rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 81)*sol(:ncol,:, 110) ! rate_const*M*NO2m*H2O - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 40)*sol(:ncol,:, 81) ! rate_const*HCL*NO2m - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 42)*sol(:ncol,:, 81) ! rate_const*HNO3*NO2m - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 52)*sol(:ncol,:, 81) ! rate_const*NO2*NO2m - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 81)*sol(:ncol,:, 56) ! rate_const*NO2m*O3 - rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 84)*sol(:ncol,:, 50) ! rate_const*NO3m2H2O*N2O5 + rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 42)*sol(:ncol,:, 81) ! rate_const*HCL*NO2m + rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 44)*sol(:ncol,:, 81) ! rate_const*HNO3*NO2m + rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 53)*sol(:ncol,:, 81) ! rate_const*NO2*NO2m + rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 81)*sol(:ncol,:, 57) ! rate_const*NO2m*O3 + rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 84)*sol(:ncol,:, 51) ! rate_const*NO3m2H2O*N2O5 rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 85)*sol(:ncol,:, 110) ! rate_const*M*NO3m_H2O*H2O - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 42)*sol(:ncol,:, 85) ! rate_const*HNO3*NO3m_H2O + rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 44)*sol(:ncol,:, 85) ! rate_const*HNO3*NO3m_H2O rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 110)*sol(:ncol,:, 83) ! rate_const*M*H2O*NO3m - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 85)*sol(:ncol,:, 50) ! rate_const*NO3m_H2O*N2O5 - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 40)*sol(:ncol,:, 83) ! rate_const*HCL*NO3m - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 42)*sol(:ncol,:, 86) ! rate_const*HNO3*NO3m_HCL - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 83)*sol(:ncol,:, 42) ! rate_const*M*NO3m*HNO3 - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 83)*sol(:ncol,:, 54) ! rate_const*NO3m*O - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 56)*sol(:ncol,:, 83) ! rate_const*O3*NO3m - rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 89)*sol(:ncol,:, 69) ! rate_const*NOp_2H2O*e - rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 90)*sol(:ncol,:, 69) ! rate_const*NOp_3H2O*e + rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 85)*sol(:ncol,:, 51) ! rate_const*NO3m_H2O*N2O5 + rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 42)*sol(:ncol,:, 83) ! rate_const*HCL*NO3m + rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 44)*sol(:ncol,:, 86) ! rate_const*HNO3*NO3m_HCL + rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 83)*sol(:ncol,:, 44) ! rate_const*M*NO3m*HNO3 + rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 83)*sol(:ncol,:, 55) ! rate_const*NO3m*O + rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 57)*sol(:ncol,:, 83) ! rate_const*O3*NO3m + rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 89)*sol(:ncol,:, 68) ! rate_const*NOp_2H2O*e + rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 90)*sol(:ncol,:, 68) ! rate_const*NOp_3H2O*e rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 110)*sol(:ncol,:, 90) ! rate_const*H2O*NOp_3H2O - rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 91)*sol(:ncol,:, 69) ! rate_const*NOp_CO2*e + rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 91)*sol(:ncol,:, 68) ! rate_const*NOp_CO2*e rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 91)*sol(:ncol,:, 110) ! rate_const*NOp_CO2*H2O - rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 92)*sol(:ncol,:, 69) ! rate_const*NOp_H2O*e - rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 32)*sol(:ncol,:, 92) ! rate_const*H*NOp_H2O - rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 92)*sol(:ncol,:, 43) ! rate_const*NOp_H2O*HO2 + rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 92)*sol(:ncol,:, 68) ! rate_const*NOp_H2O*e + rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 34)*sol(:ncol,:, 92) ! rate_const*H*NOp_H2O + rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 92)*sol(:ncol,:, 71) ! rate_const*NOp_H2O*HO2 rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 92)*sol(:ncol,:, 104) ! rate_const*NOp_H2O*OH - rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 28)*sol(:ncol,:, 93) ! rate_const*CO2*NOp_N2 + rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 30)*sol(:ncol,:, 93) ! rate_const*CO2*NOp_N2 rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 93)*sol(:ncol,:, 110) ! rate_const*NOp_N2*H2O - rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 98)*sol(:ncol,:, 60) ! rate_const*O2m*CL - rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 24)*sol(:ncol,:, 98) ! rate_const*CLO*O2m - rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 28)*sol(:ncol,:, 98) ! rate_const*M*CO2*O2m - rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 32)*sol(:ncol,:, 98) ! rate_const*H*O2m - rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 98)*sol(:ncol,:, 40) ! rate_const*O2m*HCL - rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 98)*sol(:ncol,:, 42) ! rate_const*O2m*HNO3 - rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 52)*sol(:ncol,:, 98) ! rate_const*NO2*O2m + rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 98)*sol(:ncol,:, 23) ! rate_const*O2m*CL + rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 26)*sol(:ncol,:, 98) ! rate_const*CLO*O2m + rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 30)*sol(:ncol,:, 98) ! rate_const*M*CO2*O2m + rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 34)*sol(:ncol,:, 98) ! rate_const*H*O2m + rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 98)*sol(:ncol,:, 42) ! rate_const*O2m*HCL + rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 98)*sol(:ncol,:, 44) ! rate_const*O2m*HNO3 + rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 53)*sol(:ncol,:, 98) ! rate_const*NO2*O2m rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 96)*sol(:ncol,:, 98) ! rate_const*O2_1D*O2m - rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 55)*sol(:ncol,:, 98) ! rate_const*M*O2*O2m - rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 56)*sol(:ncol,:, 98) ! rate_const*O3*O2m - rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 54)*sol(:ncol,:, 98) ! rate_const*O*O2m - rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 98)*sol(:ncol,:, 54) ! rate_const*O2m*O - rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 100)*sol(:ncol,:, 69) ! rate_const*O2p_H2O*e + rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 56)*sol(:ncol,:, 98) ! rate_const*M*O2*O2m + rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 57)*sol(:ncol,:, 98) ! rate_const*O3*O2m + rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 55)*sol(:ncol,:, 98) ! rate_const*O*O2m + rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 98)*sol(:ncol,:, 55) ! rate_const*O2m*O + rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 100)*sol(:ncol,:, 68) ! rate_const*O2p_H2O*e rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 100)*sol(:ncol,:, 110) ! rate_const*O2p_H2O*H2O rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 100)*sol(:ncol,:, 110) ! rate_const*O2p_H2O*H2O rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 110)*sol(:ncol,:, 99) ! rate_const*M*H2O*O2p - rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 101)*sol(:ncol,:, 28) ! rate_const*O3m*CO2 - rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 101)*sol(:ncol,:, 32) ! rate_const*O3m*H - rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 56)*sol(:ncol,:, 101) ! rate_const*O3*O3m - rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 101)*sol(:ncol,:, 54) ! rate_const*O3m*O - rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 54)*sol(:ncol,:, 101) ! rate_const*O*O3m - rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 28)*sol(:ncol,:, 102) ! rate_const*CO2*O4m - rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 54)*sol(:ncol,:, 102) ! rate_const*O*O4m + rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 101)*sol(:ncol,:, 30) ! rate_const*O3m*CO2 + rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 101)*sol(:ncol,:, 34) ! rate_const*O3m*H + rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 57)*sol(:ncol,:, 101) ! rate_const*O3*O3m + rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 101)*sol(:ncol,:, 55) ! rate_const*O3m*O + rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 55)*sol(:ncol,:, 101) ! rate_const*O*O3m + rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 30)*sol(:ncol,:, 102) ! rate_const*CO2*O4m + rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 55)*sol(:ncol,:, 102) ! rate_const*O*O4m rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 110)*sol(:ncol,:, 103) ! rate_const*H2O*O4p - rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 103)*sol(:ncol,:, 54) ! rate_const*O4p*O + rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 103)*sol(:ncol,:, 55) ! rate_const*O4p*O rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 103)*sol(:ncol,:, 96) ! rate_const*O4p*O2_1D - rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 47)*sol(:ncol,:, 104) ! rate_const*HONO*OH - rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 60)*sol(:ncol,:, 105) ! rate_const*CL*OHm - rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 24)*sol(:ncol,:, 105) ! rate_const*CLO*OHm - rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 28)*sol(:ncol,:, 105) ! rate_const*M*CO2*OHm - rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 32)*sol(:ncol,:, 105) ! rate_const*H*OHm - rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 105)*sol(:ncol,:, 40) ! rate_const*OHm*HCL - rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 52)*sol(:ncol,:, 105) ! rate_const*NO2*OHm - rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 105)*sol(:ncol,:, 54) ! rate_const*OHm*O - rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 105)*sol(:ncol,:, 56) ! rate_const*OHm*O3 - rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 104)*sol(:ncol,:, 51) ! rate_const*M*OH*NO - rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 106)*sol(:ncol,:, 60) ! rate_const*Om*CL - rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 24)*sol(:ncol,:, 106) ! rate_const*CLO*Om - rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 106)*sol(:ncol,:, 28) ! rate_const*M*Om*CO2 - rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 33)*sol(:ncol,:, 106) ! rate_const*H2*Om - rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 106)*sol(:ncol,:, 33) ! rate_const*Om*H2 + rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 48)*sol(:ncol,:, 104) ! rate_const*HONO*OH + rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 23)*sol(:ncol,:, 105) ! rate_const*CL*OHm + rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 26)*sol(:ncol,:, 105) ! rate_const*CLO*OHm + rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 30)*sol(:ncol,:, 105) ! rate_const*M*CO2*OHm + rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 34)*sol(:ncol,:, 105) ! rate_const*H*OHm + rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 105)*sol(:ncol,:, 42) ! rate_const*OHm*HCL + rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 53)*sol(:ncol,:, 105) ! rate_const*NO2*OHm + rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 105)*sol(:ncol,:, 55) ! rate_const*OHm*O + rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 105)*sol(:ncol,:, 57) ! rate_const*OHm*O3 + rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 104)*sol(:ncol,:, 52) ! rate_const*M*OH*NO + rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 106)*sol(:ncol,:, 23) ! rate_const*Om*CL + rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 26)*sol(:ncol,:, 106) ! rate_const*CLO*Om + rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 106)*sol(:ncol,:, 30) ! rate_const*M*Om*CO2 + rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 35)*sol(:ncol,:, 106) ! rate_const*H2*Om + rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 106)*sol(:ncol,:, 35) ! rate_const*Om*H2 rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 106)*sol(:ncol,:, 110) ! rate_const*Om*H2O - rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 106)*sol(:ncol,:, 40) ! rate_const*Om*HCL - rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 106)*sol(:ncol,:, 42) ! rate_const*Om*HNO3 + rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 106)*sol(:ncol,:, 42) ! rate_const*Om*HCL + rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 106)*sol(:ncol,:, 44) ! rate_const*Om*HNO3 rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 106) ! rate_const*M*Om - rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 52)*sol(:ncol,:, 106) ! rate_const*NO2*Om - rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 106)*sol(:ncol,:, 54) ! rate_const*Om*O + rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 53)*sol(:ncol,:, 106) ! rate_const*NO2*Om + rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 106)*sol(:ncol,:, 55) ! rate_const*Om*O rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 106)*sol(:ncol,:, 96) ! rate_const*Om*O2_1D - rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 106)*sol(:ncol,:, 55) ! rate_const*M*Om*O2 - rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 56)*sol(:ncol,:, 106) ! rate_const*O3*Om - rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 99)*sol(:ncol,:, 55) ! rate_const*M*O2p*O2 + rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 106)*sol(:ncol,:, 56) ! rate_const*M*Om*O2 + rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 57)*sol(:ncol,:, 106) ! rate_const*O3*Om + rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 99)*sol(:ncol,:, 56) ! rate_const*M*O2p*O2 rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 110)*sol(:ncol,:, 88) ! rate_const*M*H2O*NOp rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 110)*sol(:ncol,:, 92) ! rate_const*M*H2O*NOp_H2O rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 110)*sol(:ncol,:, 89) ! rate_const*M*H2O*NOp_2H2O - rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 88)*sol(:ncol,:, 28) ! rate_const*M*NOp*CO2 + rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 88)*sol(:ncol,:, 30) ! rate_const*M*NOp*CO2 rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 91) ! rate_const*M*NOp_CO2 rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 88) ! rate_const*N2*M*NOp rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 93) ! rate_const*M*NOp_N2 @@ -382,216 +382,216 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 75) ! rate_const*M*Hp_4H2O rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 75)*sol(:ncol,:, 110) ! rate_const*M*Hp_4H2O*H2O rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 77) ! rate_const*M*Hp_5H2O - rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 69)*sol(:ncol,:, 103) ! rate_const*e*O4p - rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 78)*sol(:ncol,:, 69) ! rate_const*Hp_H2O*e - rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 72)*sol(:ncol,:, 69) ! rate_const*Hp_2H2O*e - rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 73)*sol(:ncol,:, 69) ! rate_const*Hp_3H2O*e - rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 69)*sol(:ncol,:, 93) ! rate_const*e*NOp_N2 - rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 62) ! rate_const*M*CLm_H2O - rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 63) ! rate_const*M*CLm_HCL + rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 68)*sol(:ncol,:, 103) ! rate_const*e*O4p + rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 78)*sol(:ncol,:, 68) ! rate_const*Hp_H2O*e + rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 72)*sol(:ncol,:, 68) ! rate_const*Hp_2H2O*e + rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 73)*sol(:ncol,:, 68) ! rate_const*Hp_3H2O*e + rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 68)*sol(:ncol,:, 93) ! rate_const*e*NOp_N2 + rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 61) ! rate_const*M*CLm_H2O + rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 62) ! rate_const*M*CLm_HCL rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 96) ! rate_const*O2_1D rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 97) ! rate_const*O2_1S - rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 95)*sol(:ncol,:, 33) ! rate_const*O1D*H2 + rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 95)*sol(:ncol,:, 35) ! rate_const*O1D*H2 rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 95)*sol(:ncol,:, 110) ! rate_const*O1D*H2O rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 95) ! rate_const*N2*O1D - rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 95)*sol(:ncol,:, 55) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 95)*sol(:ncol,:, 55) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 95)*sol(:ncol,:, 56) ! rate_const*O1D*O3 + rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 95)*sol(:ncol,:, 56) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 95)*sol(:ncol,:, 56) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 95)*sol(:ncol,:, 57) ! rate_const*O1D*O3 rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 96) ! rate_const*N2*O2_1D - rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 96)*sol(:ncol,:, 54) ! rate_const*O2_1D*O - rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 96)*sol(:ncol,:, 55) ! rate_const*O2_1D*O2 - rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 97)*sol(:ncol,:, 28) ! rate_const*O2_1S*CO2 + rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 96)*sol(:ncol,:, 55) ! rate_const*O2_1D*O + rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 96)*sol(:ncol,:, 56) ! rate_const*O2_1D*O2 + rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 97)*sol(:ncol,:, 30) ! rate_const*O2_1S*CO2 rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 97) ! rate_const*N2*O2_1S - rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 97)*sol(:ncol,:, 54) ! rate_const*O2_1S*O - rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 97)*sol(:ncol,:, 55) ! rate_const*O2_1S*O2 - rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 97)*sol(:ncol,:, 56) ! rate_const*O2_1S*O3 - rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 54)*sol(:ncol,:, 56) ! rate_const*O*O3 - rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 54)*sol(:ncol,:, 54) ! rate_const*M*O*O - rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 54)*sol(:ncol,:, 55) ! rate_const*M*O*O2 - rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 33)*sol(:ncol,:, 54) ! rate_const*H2*O - rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 35)*sol(:ncol,:, 54) ! rate_const*H2O2*O - rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 32)*sol(:ncol,:, 43) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 32)*sol(:ncol,:, 43) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 32)*sol(:ncol,:, 43) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 32)*sol(:ncol,:, 55) ! rate_const*M*H*O2 - rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 43)*sol(:ncol,:, 54) ! rate_const*HO2*O - rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 43)*sol(:ncol,:, 56) ! rate_const*HO2*O3 - rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 32)*sol(:ncol,:, 56) ! rate_const*H*O3 - rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 104)*sol(:ncol,:, 33) ! rate_const*OH*H2 - rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 104)*sol(:ncol,:, 35) ! rate_const*OH*H2O2 - rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 104)*sol(:ncol,:, 43) ! rate_const*OH*HO2 - rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 104)*sol(:ncol,:, 54) ! rate_const*OH*O - rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 104)*sol(:ncol,:, 56) ! rate_const*OH*O3 + rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 97)*sol(:ncol,:, 55) ! rate_const*O2_1S*O + rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 97)*sol(:ncol,:, 56) ! rate_const*O2_1S*O2 + rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 97)*sol(:ncol,:, 57) ! rate_const*O2_1S*O3 + rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 55)*sol(:ncol,:, 57) ! rate_const*O*O3 + rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 55)*sol(:ncol,:, 55) ! rate_const*M*O*O + rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 55)*sol(:ncol,:, 56) ! rate_const*M*O*O2 + rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 35)*sol(:ncol,:, 55) ! rate_const*H2*O + rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 37)*sol(:ncol,:, 55) ! rate_const*H2O2*O + rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 34)*sol(:ncol,:, 71) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 34)*sol(:ncol,:, 71) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 34)*sol(:ncol,:, 71) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 34)*sol(:ncol,:, 56) ! rate_const*M*H*O2 + rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 71)*sol(:ncol,:, 55) ! rate_const*HO2*O + rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 71)*sol(:ncol,:, 57) ! rate_const*HO2*O3 + rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 34)*sol(:ncol,:, 57) ! rate_const*H*O3 + rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 104)*sol(:ncol,:, 35) ! rate_const*OH*H2 + rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 104)*sol(:ncol,:, 37) ! rate_const*OH*H2O2 + rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 104)*sol(:ncol,:, 71) ! rate_const*OH*HO2 + rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 104)*sol(:ncol,:, 55) ! rate_const*OH*O + rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 104)*sol(:ncol,:, 57) ! rate_const*OH*O3 rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 104)*sol(:ncol,:, 104) ! rate_const*OH*OH rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 104)*sol(:ncol,:, 104) ! rate_const*M*OH*OH - rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 43)*sol(:ncol,:, 43) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 44)*sol(:ncol,:, 104) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 79)*sol(:ncol,:, 54) ! rate_const*N2D*O - rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 79)*sol(:ncol,:, 55) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 48)*sol(:ncol,:, 51) ! rate_const*N*NO - rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 48)*sol(:ncol,:, 52) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 48)*sol(:ncol,:, 52) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 48)*sol(:ncol,:, 52) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 48)*sol(:ncol,:, 55) ! rate_const*N*O2 - rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 52)*sol(:ncol,:, 54) ! rate_const*NO2*O - rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 52)*sol(:ncol,:, 56) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 52)*sol(:ncol,:, 54) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 53)*sol(:ncol,:, 43) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 53)*sol(:ncol,:, 51) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 53)*sol(:ncol,:, 54) ! rate_const*NO3*O - rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 53)*sol(:ncol,:, 104) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 48)*sol(:ncol,:, 104) ! rate_const*N*OH - rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 51)*sol(:ncol,:, 43) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 51)*sol(:ncol,:, 56) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 51)*sol(:ncol,:, 54) ! rate_const*M*NO*O - rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 95)*sol(:ncol,:, 49) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 95)*sol(:ncol,:, 49) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 52)*sol(:ncol,:, 43) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 52)*sol(:ncol,:, 53) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 52)*sol(:ncol,:, 104) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 42)*sol(:ncol,:, 104) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 44) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 50) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 60)*sol(:ncol,:, 14) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 60)*sol(:ncol,:, 20) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 60)*sol(:ncol,:, 33) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 60)*sol(:ncol,:, 35) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 60)*sol(:ncol,:, 43) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 60)*sol(:ncol,:, 43) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 60)*sol(:ncol,:, 56) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 24)*sol(:ncol,:, 18) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 24)*sol(:ncol,:, 24) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 24)*sol(:ncol,:, 24) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 24)*sol(:ncol,:, 24) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 24)*sol(:ncol,:, 43) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 24)*sol(:ncol,:, 51) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 25)*sol(:ncol,:, 60) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 24)*sol(:ncol,:, 52) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 25)*sol(:ncol,:, 54) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 25)*sol(:ncol,:, 104) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 24)*sol(:ncol,:, 54) ! rate_const*CLO*O - rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 24)*sol(:ncol,:, 104) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 24)*sol(:ncol,:, 104) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 40)*sol(:ncol,:, 54) ! rate_const*HCL*O - rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 40)*sol(:ncol,:, 104) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 46)*sol(:ncol,:, 60) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 46)*sol(:ncol,:, 54) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 46)*sol(:ncol,:, 104) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 95)*sol(:ncol,:, 5) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 95)*sol(:ncol,:, 6) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 95)*sol(:ncol,:, 8) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 95)*sol(:ncol,:, 9) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 95)*sol(:ncol,:, 10) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 95)*sol(:ncol,:, 11) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 95)*sol(:ncol,:, 12) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 95)*sol(:ncol,:, 40) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 95)*sol(:ncol,:, 40) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 24)*sol(:ncol,:, 24) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 23) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 59)*sol(:ncol,:, 14) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 59)*sol(:ncol,:, 43) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 59)*sol(:ncol,:, 56) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 2)*sol(:ncol,:, 2) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 2)*sol(:ncol,:, 24) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 2)*sol(:ncol,:, 24) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 2)*sol(:ncol,:, 24) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 2)*sol(:ncol,:, 43) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 2)*sol(:ncol,:, 51) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 2)*sol(:ncol,:, 52) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 3)*sol(:ncol,:, 54) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 2)*sol(:ncol,:, 54) ! rate_const*BRO*O - rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 2)*sol(:ncol,:, 104) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 36)*sol(:ncol,:, 54) ! rate_const*HBR*O - rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 36)*sol(:ncol,:, 104) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 45)*sol(:ncol,:, 54) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 95)*sol(:ncol,:, 7) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 95)*sol(:ncol,:, 21) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 95)*sol(:ncol,:, 34) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 95)*sol(:ncol,:, 36) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 95)*sol(:ncol,:, 36) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 31)*sol(:ncol,:, 20) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 31)*sol(:ncol,:, 33) ! rate_const*F*H2 - rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 31)*sol(:ncol,:, 110) ! rate_const*F*H2O - rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 31)*sol(:ncol,:, 42) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 95)*sol(:ncol,:, 29) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 95)*sol(:ncol,:, 30) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 13)*sol(:ncol,:, 60) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 13)*sol(:ncol,:, 104) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 15)*sol(:ncol,:, 60) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 15)*sol(:ncol,:, 104) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 16)*sol(:ncol,:, 104) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 17)*sol(:ncol,:, 60) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 17)*sol(:ncol,:, 104) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 21)*sol(:ncol,:, 60) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 21)*sol(:ncol,:, 104) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 37)*sol(:ncol,:, 104) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 38)*sol(:ncol,:, 104) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 39)*sol(:ncol,:, 104) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 95)*sol(:ncol,:, 13) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 95)*sol(:ncol,:, 15) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 95)*sol(:ncol,:, 37) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 95)*sol(:ncol,:, 38) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 95)*sol(:ncol,:, 39) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 14)*sol(:ncol,:, 53) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 14)*sol(:ncol,:, 54) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 14)*sol(:ncol,:, 104) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 18)*sol(:ncol,:, 43) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 18)*sol(:ncol,:, 51) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 19)*sol(:ncol,:, 104) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 20)*sol(:ncol,:, 104) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 27)*sol(:ncol,:, 104) ! rate_const*M*CO*OH - rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 95)*sol(:ncol,:, 20) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 95)*sol(:ncol,:, 20) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 95)*sol(:ncol,:, 20) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 27)*sol(:ncol,:, 104) ! rate_const*CO*OH - rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 43) ! rate_const*HO2 - rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 50) ! rate_const*N2O5 - rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 52) ! rate_const*NO2 - rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 53) ! rate_const*NO3 - rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 50) ! rate_const*N2O5 - rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 46)*sol(:ncol,:, 40) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 50) ! rate_const*N2O5 - rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 25)*sol(:ncol,:, 40) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 46)*sol(:ncol,:, 40) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 45)*sol(:ncol,:, 40) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 3) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 25)*sol(:ncol,:, 40) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 46)*sol(:ncol,:, 40) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 45)*sol(:ncol,:, 40) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 50) ! rate_const*N2O5 - rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 25) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 25)*sol(:ncol,:, 40) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 71)*sol(:ncol,:, 71) ! rate_const*HO2*HO2 + rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 45)*sol(:ncol,:, 104) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 79)*sol(:ncol,:, 55) ! rate_const*N2D*O + rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 79)*sol(:ncol,:, 56) ! rate_const*N2D*O2 + rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 49)*sol(:ncol,:, 52) ! rate_const*N*NO + rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 49)*sol(:ncol,:, 53) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 49)*sol(:ncol,:, 53) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 49)*sol(:ncol,:, 53) ! rate_const*N*NO2 + rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 49)*sol(:ncol,:, 56) ! rate_const*N*O2 + rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 53)*sol(:ncol,:, 55) ! rate_const*NO2*O + rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 53)*sol(:ncol,:, 57) ! rate_const*NO2*O3 + rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 53)*sol(:ncol,:, 55) ! rate_const*M*NO2*O + rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 54)*sol(:ncol,:, 71) ! rate_const*NO3*HO2 + rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 54)*sol(:ncol,:, 52) ! rate_const*NO3*NO + rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 54)*sol(:ncol,:, 55) ! rate_const*NO3*O + rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 54)*sol(:ncol,:, 104) ! rate_const*NO3*OH + rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 49)*sol(:ncol,:, 104) ! rate_const*N*OH + rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 52)*sol(:ncol,:, 71) ! rate_const*NO*HO2 + rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 52)*sol(:ncol,:, 57) ! rate_const*NO*O3 + rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 52)*sol(:ncol,:, 55) ! rate_const*M*NO*O + rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 95)*sol(:ncol,:, 50) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 95)*sol(:ncol,:, 50) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 53)*sol(:ncol,:, 71) ! rate_const*M*NO2*HO2 + rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 53)*sol(:ncol,:, 54) ! rate_const*M*NO2*NO3 + rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 53)*sol(:ncol,:, 104) ! rate_const*M*NO2*OH + rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 44)*sol(:ncol,:, 104) ! rate_const*HNO3*OH + rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 45) ! rate_const*M*HO2NO2 + rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 51) ! rate_const*M*N2O5 + rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 23)*sol(:ncol,:, 15) ! rate_const*CL*CH2O + rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 23)*sol(:ncol,:, 21) ! rate_const*CL*CH4 + rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 23)*sol(:ncol,:, 35) ! rate_const*CL*H2 + rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 23)*sol(:ncol,:, 37) ! rate_const*CL*H2O2 + rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 23)*sol(:ncol,:, 71) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 23)*sol(:ncol,:, 71) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 23)*sol(:ncol,:, 57) ! rate_const*CL*O3 + rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 26)*sol(:ncol,:, 19) ! rate_const*CLO*CH3O2 + rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO + rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 26)*sol(:ncol,:, 71) ! rate_const*CLO*HO2 + rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 26)*sol(:ncol,:, 52) ! rate_const*CLO*NO + rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 27)*sol(:ncol,:, 23) ! rate_const*CLONO2*CL + rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 26)*sol(:ncol,:, 53) ! rate_const*M*CLO*NO2 + rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 27)*sol(:ncol,:, 55) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 27)*sol(:ncol,:, 104) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 26)*sol(:ncol,:, 55) ! rate_const*CLO*O + rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 26)*sol(:ncol,:, 104) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 26)*sol(:ncol,:, 104) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 42)*sol(:ncol,:, 55) ! rate_const*HCL*O + rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 42)*sol(:ncol,:, 104) ! rate_const*HCL*OH + rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 47)*sol(:ncol,:, 23) ! rate_const*HOCL*CL + rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 47)*sol(:ncol,:, 55) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 47)*sol(:ncol,:, 104) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 95)*sol(:ncol,:, 6) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 95)*sol(:ncol,:, 7) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 95)*sol(:ncol,:, 9) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 95)*sol(:ncol,:, 10) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 95)*sol(:ncol,:, 11) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 95)*sol(:ncol,:, 12) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 95)*sol(:ncol,:, 13) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 95)*sol(:ncol,:, 42) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 95)*sol(:ncol,:, 42) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*M*CLO*CLO + rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 25) ! rate_const*M*CL2O2 + rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 1)*sol(:ncol,:, 15) ! rate_const*BR*CH2O + rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 1)*sol(:ncol,:, 71) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 1)*sol(:ncol,:, 57) ! rate_const*BR*O3 + rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 3)*sol(:ncol,:, 3) ! rate_const*BRO*BRO + rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 3)*sol(:ncol,:, 26) ! rate_const*BRO*CLO + rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 3)*sol(:ncol,:, 71) ! rate_const*BRO*HO2 + rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 3)*sol(:ncol,:, 52) ! rate_const*BRO*NO + rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 3)*sol(:ncol,:, 53) ! rate_const*M*BRO*NO2 + rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 4)*sol(:ncol,:, 55) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 3)*sol(:ncol,:, 55) ! rate_const*BRO*O + rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 3)*sol(:ncol,:, 104) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 38)*sol(:ncol,:, 55) ! rate_const*HBR*O + rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 38)*sol(:ncol,:, 104) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 46)*sol(:ncol,:, 55) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 95)*sol(:ncol,:, 8) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 95)*sol(:ncol,:, 22) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 95)*sol(:ncol,:, 36) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 95)*sol(:ncol,:, 38) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 95)*sol(:ncol,:, 38) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 33)*sol(:ncol,:, 21) ! rate_const*F*CH4 + rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 33)*sol(:ncol,:, 35) ! rate_const*F*H2 + rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 33)*sol(:ncol,:, 110) ! rate_const*F*H2O + rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 33)*sol(:ncol,:, 44) ! rate_const*F*HNO3 + rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 95)*sol(:ncol,:, 31) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 95)*sol(:ncol,:, 32) ! rate_const*O1D*COFCL + rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 14)*sol(:ncol,:, 23) ! rate_const*CH2BR2*CL + rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 14)*sol(:ncol,:, 104) ! rate_const*CH2BR2*OH + rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 16)*sol(:ncol,:, 23) ! rate_const*CH3BR*CL + rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 16)*sol(:ncol,:, 104) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 17)*sol(:ncol,:, 104) ! rate_const*CH3CCL3*OH + rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 18)*sol(:ncol,:, 23) ! rate_const*CH3CL*CL + rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 18)*sol(:ncol,:, 104) ! rate_const*CH3CL*OH + rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 22)*sol(:ncol,:, 23) ! rate_const*CHBR3*CL + rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 22)*sol(:ncol,:, 104) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 39)*sol(:ncol,:, 104) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 40)*sol(:ncol,:, 104) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 41)*sol(:ncol,:, 104) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 95)*sol(:ncol,:, 14) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 95)*sol(:ncol,:, 16) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 95)*sol(:ncol,:, 39) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 95)*sol(:ncol,:, 40) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 95)*sol(:ncol,:, 41) ! rate_const*O1D*HCFC22 + rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 15)*sol(:ncol,:, 54) ! rate_const*CH2O*NO3 + rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 15)*sol(:ncol,:, 55) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 15)*sol(:ncol,:, 104) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 19)*sol(:ncol,:, 71) ! rate_const*CH3O2*HO2 + rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 19)*sol(:ncol,:, 52) ! rate_const*CH3O2*NO + rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 20)*sol(:ncol,:, 104) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 21)*sol(:ncol,:, 104) ! rate_const*CH4*OH + rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 29)*sol(:ncol,:, 104) ! rate_const*M*CO*OH + rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 95)*sol(:ncol,:, 21) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 95)*sol(:ncol,:, 21) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 95)*sol(:ncol,:, 21) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 29)*sol(:ncol,:, 104) ! rate_const*CO*OH + rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 71) ! rate_const*HO2 + rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 51) ! rate_const*N2O5 + rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 53) ! rate_const*NO2 + rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 54) ! rate_const*NO3 + rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 51) ! rate_const*N2O5 + rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 47)*sol(:ncol,:, 42) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 51) ! rate_const*N2O5 + rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 27)*sol(:ncol,:, 42) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 47)*sol(:ncol,:, 42) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 46)*sol(:ncol,:, 42) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 4) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 27)*sol(:ncol,:, 42) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 47)*sol(:ncol,:, 42) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 46)*sol(:ncol,:, 42) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 51) ! rate_const*N2O5 + rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 27) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 27)*sol(:ncol,:, 42) ! rate_const*CLONO2*HCL rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 109) ! rate_const*Op2P rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 108) ! rate_const*Op2D rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 109) ! rate_const*Op2P - rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 88)*sol(:ncol,:, 69) ! rate_const*NOp*e - rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 99)*sol(:ncol,:, 69) ! rate_const*O2p*e - rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 80)*sol(:ncol,:, 69) ! rate_const*N2p*e - rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 80)*sol(:ncol,:, 55) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 80)*sol(:ncol,:, 54) ! rate_const*N2p*O - rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 80)*sol(:ncol,:, 54) ! rate_const*N2p*O - rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 94)*sol(:ncol,:, 54) ! rate_const*Np*O - rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 94)*sol(:ncol,:, 55) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 94)*sol(:ncol,:, 55) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 99)*sol(:ncol,:, 48) ! rate_const*O2p*N + rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 88)*sol(:ncol,:, 68) ! rate_const*NOp*e + rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 99)*sol(:ncol,:, 68) ! rate_const*O2p*e + rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 80)*sol(:ncol,:, 68) ! rate_const*N2p*e + rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 80)*sol(:ncol,:, 56) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 80)*sol(:ncol,:, 55) ! rate_const*N2p*O + rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 80)*sol(:ncol,:, 55) ! rate_const*N2p*O + rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 94)*sol(:ncol,:, 55) ! rate_const*Np*O + rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 94)*sol(:ncol,:, 56) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 94)*sol(:ncol,:, 56) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 99)*sol(:ncol,:, 49) ! rate_const*O2p*N rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 99) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 99)*sol(:ncol,:, 51) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 107)*sol(:ncol,:, 28) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 99)*sol(:ncol,:, 52) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 107)*sol(:ncol,:, 30) ! rate_const*Op*CO2 rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 107) ! rate_const*N2*Op rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 107)*sol(:ncol,:, 79) ! rate_const*Op*N2D - rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 107)*sol(:ncol,:, 55) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 108)*sol(:ncol,:, 69) ! rate_const*Op2D*e + rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 107)*sol(:ncol,:, 56) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 108)*sol(:ncol,:, 68) ! rate_const*Op2D*e rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 108) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 108)*sol(:ncol,:, 54) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 108)*sol(:ncol,:, 55) ! rate_const*Op2D*O2 - rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 109)*sol(:ncol,:, 69) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 109)*sol(:ncol,:, 69) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 108)*sol(:ncol,:, 55) ! rate_const*Op2D*O + rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 108)*sol(:ncol,:, 56) ! rate_const*Op2D*O2 + rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 109)*sol(:ncol,:, 68) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 109)*sol(:ncol,:, 68) ! rate_const*Op2P*e rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 109) ! rate_const*N2*Op2P rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 109) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 109)*sol(:ncol,:, 54) ! rate_const*Op2P*O + rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 109)*sol(:ncol,:, 55) ! rate_const*Op2P*O end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_mad/mo_setrxt.F90 b/src/chemistry/pp_waccm_mad/mo_setrxt.F90 index 250d7e275c..5b169a80c7 100644 --- a/src/chemistry/pp_waccm_mad/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_mad/mo_setrxt.F90 @@ -10,10 +10,9 @@ module mo_setrxt contains subroutine setrxt( rate, temp, m, ncol ) - - use ppgrid, only : pcols, pver - + use ppgrid, only : pver, pcols + use shr_kind_mod, only : r8 => shr_kind_r8 use chem_mods, only : rxntot use mo_jpl, only : jpl @@ -24,398 +23,390 @@ subroutine setrxt( rate, temp, m, ncol ) !------------------------------------------------------- integer, intent(in) :: ncol real(r8), intent(in) :: temp(pcols,pver) - real(r8), intent(in) :: m(ncol*pver) - real(r8), intent(inout) :: rate(ncol*pver,max(1,rxntot)) + real(r8), intent(in) :: m(ncol,pver) + real(r8), intent(inout) :: rate(ncol,pver,rxntot) !------------------------------------------------------- ! ... local variables !------------------------------------------------------- integer :: n - integer :: offset - real(r8) :: itemp(ncol*pver) - real(r8) :: exp_fac(ncol*pver) - real(r8) :: ko(ncol*pver) - real(r8) :: kinf(ncol*pver) - - rate(:,100) = 9.6e-10_r8 - rate(:,101) = 1.3e-09_r8 - rate(:,102) = 2e-29_r8 - rate(:,103) = 1e-27_r8 - rate(:,104) = 1.6e-09_r8 - rate(:,105) = 6e-12_r8 - rate(:,106) = 2.9e-12_r8 - rate(:,107) = 2.9e-11_r8 - rate(:,108) = 2e-10_r8 - rate(:,109) = 1e-10_r8 - rate(:,110) = 1e-10_r8 - rate(:,111) = 1e-11_r8 - rate(:,112) = 1.7e-10_r8 - rate(:,113) = 1e-28_r8 - rate(:,114) = 1e-28_r8 - rate(:,115) = 4e-11_r8 - rate(:,116) = 4e-11_r8 - rate(:,117) = 3.5e-12_r8 - rate(:,118) = 3.5e-12_r8 - rate(:,119) = 3.51e-10_r8 - rate(:,120) = 1.1e-10_r8 - rate(:,121) = 6e-15_r8 - rate(:,122) = 1e-10_r8 - rate(:,123) = 1e-10_r8 - rate(:,124) = 2.2e-10_r8 - rate(:,125) = 1.2e-09_r8 - rate(:,126) = 1.4e-10_r8 - rate(:,127) = 1.3e-10_r8 - rate(:,133) = 1.5e-06_r8 - rate(:,134) = 2e-09_r8 - rate(:,135) = 1e-09_r8 - rate(:,136) = 3.6e-06_r8 - rate(:,137) = 4e-12_r8 - rate(:,138) = 1e-09_r8 - rate(:,139) = 5e-06_r8 - rate(:,140) = 7e-12_r8 - rate(:,280) = 1e-10_r8 - rate(:,281) = 1e-10_r8 - rate(:,282) = 3e-10_r8 - rate(:,283) = 1.6e-28_r8 - rate(:,284) = 1.4e-09_r8 - rate(:,285) = 1.6e-09_r8 - rate(:,286) = 2e-13_r8 - rate(:,287) = 1.2e-10_r8 - rate(:,288) = 7e-10_r8 - rate(:,289) = 1.6e-28_r8 - rate(:,290) = 1.6e-09_r8 - rate(:,291) = 1.6e-28_r8 - rate(:,292) = 7e-10_r8 - rate(:,293) = 1e-12_r8 - rate(:,294) = 7.6e-10_r8 - rate(:,295) = 1.45e-26_r8 - rate(:,296) = 5e-12_r8 - rate(:,297) = 1e-13_r8 - rate(:,298) = 2e-06_r8 - rate(:,299) = 2e-06_r8 - rate(:,300) = 7e-11_r8 - rate(:,301) = 1.5e-06_r8 - rate(:,302) = 1e-09_r8 - rate(:,303) = 1.5e-06_r8 - rate(:,304) = 7e-12_r8 - rate(:,305) = 5e-10_r8 - rate(:,306) = 1e-10_r8 - rate(:,307) = 1e-09_r8 - rate(:,308) = 1e-09_r8 - rate(:,309) = 1e-10_r8 - rate(:,310) = 1e-10_r8 - rate(:,311) = 9.9e-30_r8 - rate(:,312) = 1.4e-09_r8 - rate(:,313) = 1.6e-09_r8 - rate(:,314) = 2.9e-09_r8 - rate(:,315) = 7e-10_r8 - rate(:,316) = 2e-10_r8 - rate(:,317) = 3.4e-31_r8 - rate(:,318) = 7.8e-10_r8 - rate(:,319) = 1.5e-10_r8 - rate(:,320) = 1.5e-10_r8 - rate(:,321) = 2e-06_r8 - rate(:,322) = 9e-10_r8 - rate(:,323) = 2.4e-10_r8 - rate(:,324) = 2.8e-28_r8 - rate(:,325) = 5.5e-10_r8 - rate(:,326) = 8.4e-10_r8 - rate(:,327) = 1e-10_r8 - rate(:,328) = 1e-10_r8 - rate(:,329) = 2.5e-10_r8 - rate(:,330) = 4.3e-10_r8 - rate(:,331) = 4e-10_r8 - rate(:,332) = 1.7e-09_r8 - rate(:,333) = 3e-10_r8 - rate(:,334) = 1.5e-10_r8 - rate(:,336) = 1e-10_r8 - rate(:,337) = 1e-10_r8 - rate(:,338) = 7.6e-28_r8 - rate(:,339) = 1.4e-09_r8 - rate(:,340) = 1e-09_r8 - rate(:,341) = 1.1e-09_r8 - rate(:,342) = 2e-10_r8 - rate(:,343) = 9e-10_r8 - rate(:,345) = 1e-10_r8 - rate(:,346) = 1e-10_r8 - rate(:,347) = 2e-28_r8 - rate(:,348) = 5.8e-10_r8 - rate(:,349) = 3.2e-11_r8 - rate(:,350) = 6e-13_r8 - rate(:,351) = 2e-09_r8 - rate(:,352) = 3.6e-09_r8 - rate(:,353) = 5e-13_r8 - rate(:,354) = 1e-09_r8 - rate(:,355) = 1.9e-10_r8 - rate(:,356) = 3e-10_r8 - rate(:,357) = 2.9e-31_r8 - rate(:,358) = 8e-10_r8 - rate(:,382) = 0.000258_r8 - rate(:,383) = 0.085_r8 - rate(:,384) = 1.2e-10_r8 - rate(:,389) = 1.2e-10_r8 - rate(:,390) = 1e-20_r8 - rate(:,391) = 1.3e-16_r8 - rate(:,393) = 4.2e-13_r8 - rate(:,395) = 8e-14_r8 - rate(:,396) = 3.9e-17_r8 - rate(:,403) = 6.9e-12_r8 - rate(:,404) = 7.2e-11_r8 - rate(:,405) = 1.6e-12_r8 - rate(:,411) = 1.8e-12_r8 - rate(:,415) = 1.8e-12_r8 - rate(:,419) = 7e-13_r8 - rate(:,420) = 5e-12_r8 - rate(:,429) = 3.5e-12_r8 - rate(:,431) = 1e-11_r8 - rate(:,432) = 2.2e-11_r8 - rate(:,433) = 5e-11_r8 - rate(:,468) = 1.7e-13_r8 - rate(:,470) = 2.607e-10_r8 - rate(:,471) = 9.75e-11_r8 - rate(:,472) = 2.07e-10_r8 - rate(:,473) = 2.088e-10_r8 - rate(:,474) = 1.17e-10_r8 - rate(:,475) = 4.644e-11_r8 - rate(:,476) = 1.204e-10_r8 - rate(:,477) = 9.9e-11_r8 - rate(:,478) = 3.3e-12_r8 - rate(:,497) = 4.5e-11_r8 - rate(:,498) = 4.62e-10_r8 - rate(:,499) = 1.2e-10_r8 - rate(:,500) = 9e-11_r8 - rate(:,501) = 3e-11_r8 - rate(:,506) = 2.14e-11_r8 - rate(:,507) = 1.9e-10_r8 - rate(:,520) = 2.57e-10_r8 - rate(:,521) = 1.8e-10_r8 - rate(:,522) = 1.794e-10_r8 - rate(:,523) = 1.3e-10_r8 - rate(:,524) = 7.65e-11_r8 - rate(:,533) = 1.31e-10_r8 - rate(:,534) = 3.5e-11_r8 - rate(:,535) = 9e-12_r8 - rate(:,558) = 0.047_r8 - rate(:,559) = 7.7e-05_r8 - rate(:,560) = 0.171_r8 - rate(:,564) = 6e-11_r8 - rate(:,567) = 1e-12_r8 - rate(:,568) = 4e-10_r8 - rate(:,569) = 2e-10_r8 - rate(:,570) = 1e-10_r8 - rate(:,571) = 5e-16_r8 - rate(:,572) = 4.4e-10_r8 - rate(:,573) = 9e-10_r8 - rate(:,575) = 1.3e-10_r8 - rate(:,578) = 8e-10_r8 - rate(:,579) = 5e-12_r8 - rate(:,580) = 7e-10_r8 - rate(:,583) = 4.8e-10_r8 - rate(:,584) = 1e-10_r8 - rate(:,585) = 4e-10_r8 - - do n = 1,pver - offset = (n-1)*ncol - itemp(offset+1:offset+ncol) = 1._r8 / temp(:ncol,n) - end do - - rate(:,335) = 1.8e-11_r8 * exp( 390._r8 * itemp(:) ) - rate(:,385) = 1.63e-10_r8 * exp( 60._r8 * itemp(:) ) - rate(:,386) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) - exp_fac(:) = exp( 55._r8 * itemp(:) ) - rate(:,387) = 2.64e-11_r8 * exp_fac(:) - rate(:,388) = 6.6e-12_r8 * exp_fac(:) - rate(:,392) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:,394) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:,397) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:,398) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:,401) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) - rate(:,402) = 1.4e-12_r8 * exp( -2000._r8 * itemp(:) ) - exp_fac(:) = exp( 200._r8 * itemp(:) ) - rate(:,407) = 3e-11_r8 * exp_fac(:) - rate(:,495) = 5.5e-12_r8 * exp_fac(:) - rate(:,530) = 3.8e-12_r8 * exp_fac(:) - rate(:,408) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:,409) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:,410) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:) ) - exp_fac(:) = exp( 250._r8 * itemp(:) ) - rate(:,412) = 4.8e-11_r8 * exp_fac(:) - rate(:,493) = 1.7e-11_r8 * exp_fac(:) - rate(:,413) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) - rate(:,414) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,418) = 1.3e-12_r8 * exp( 380._r8 * itemp(:) ) - rate(:,421) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - exp_fac(:) = exp( 220._r8 * itemp(:) ) - rate(:,422) = 2.9e-12_r8 * exp_fac(:) - rate(:,423) = 1.45e-12_r8 * exp_fac(:) - rate(:,424) = 1.45e-12_r8 * exp_fac(:) - rate(:,425) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) - rate(:,426) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) - exp_fac(:) = exp( -2450._r8 * itemp(:) ) - rate(:,427) = 1.2e-13_r8 * exp_fac(:) - rate(:,453) = 3e-11_r8 * exp_fac(:) - rate(:,430) = 1.5e-11_r8 * exp( 170._r8 * itemp(:) ) - exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,434) = 3.3e-12_r8 * exp_fac(:) - rate(:,449) = 1.4e-11_r8 * exp_fac(:) - rate(:,463) = 7.4e-12_r8 * exp_fac(:) - exp_fac(:) = exp( -1500._r8 * itemp(:) ) - rate(:,435) = 3e-12_r8 * exp_fac(:) - rate(:,494) = 5.8e-12_r8 * exp_fac(:) - exp_fac(:) = exp( 20._r8 * itemp(:) ) - rate(:,437) = 7.26e-11_r8 * exp_fac(:) - rate(:,438) = 4.64e-11_r8 * exp_fac(:) - rate(:,445) = 8.1e-11_r8 * exp( -30._r8 * itemp(:) ) - rate(:,446) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:) ) - rate(:,447) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:) ) - rate(:,448) = 1.1e-11_r8 * exp( -980._r8 * itemp(:) ) - rate(:,450) = 3.6e-11_r8 * exp( -375._r8 * itemp(:) ) - rate(:,451) = 2.3e-11_r8 * exp( -200._r8 * itemp(:) ) - rate(:,452) = 3.3e-12_r8 * exp( -115._r8 * itemp(:) ) - rate(:,454) = 1e-12_r8 * exp( -1590._r8 * itemp(:) ) - rate(:,455) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:) ) - exp_fac(:) = exp( 290._r8 * itemp(:) ) - rate(:,456) = 2.6e-12_r8 * exp_fac(:) - rate(:,457) = 6.4e-12_r8 * exp_fac(:) - rate(:,487) = 4.1e-13_r8 * exp_fac(:) - rate(:,458) = 6.5e-12_r8 * exp( 135._r8 * itemp(:) ) - exp_fac(:) = exp( -840._r8 * itemp(:) ) - rate(:,460) = 3.6e-12_r8 * exp_fac(:) - rate(:,509) = 2e-12_r8 * exp_fac(:) - rate(:,461) = 1.2e-12_r8 * exp( -330._r8 * itemp(:) ) - rate(:,462) = 2.8e-11_r8 * exp( 85._r8 * itemp(:) ) - exp_fac(:) = exp( 230._r8 * itemp(:) ) - rate(:,464) = 6e-13_r8 * exp_fac(:) - rate(:,484) = 1.5e-12_r8 * exp_fac(:) - rate(:,492) = 1.9e-11_r8 * exp_fac(:) - rate(:,465) = 1e-11_r8 * exp( -3300._r8 * itemp(:) ) - rate(:,466) = 1.8e-12_r8 * exp( -250._r8 * itemp(:) ) - rate(:,467) = 3.4e-12_r8 * exp( -130._r8 * itemp(:) ) - exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,469) = 3e-12_r8 * exp_fac(:) - rate(:,503) = 1.4e-10_r8 * exp_fac(:) - exp_fac(:) = exp( -800._r8 * itemp(:) ) - rate(:,481) = 1.7e-11_r8 * exp_fac(:) - rate(:,508) = 6.3e-12_r8 * exp_fac(:) - rate(:,482) = 4.8e-12_r8 * exp( -310._r8 * itemp(:) ) - rate(:,483) = 1.6e-11_r8 * exp( -780._r8 * itemp(:) ) - rate(:,485) = 9.5e-13_r8 * exp( 550._r8 * itemp(:) ) - exp_fac(:) = exp( 260._r8 * itemp(:) ) - rate(:,486) = 2.3e-12_r8 * exp_fac(:) - rate(:,489) = 8.8e-12_r8 * exp_fac(:) - rate(:,488) = 4.5e-12_r8 * exp( 460._r8 * itemp(:) ) - rate(:,491) = 1.9e-11_r8 * exp( 215._r8 * itemp(:) ) - rate(:,496) = 1.2e-10_r8 * exp( -430._r8 * itemp(:) ) - rate(:,502) = 1.6e-10_r8 * exp( -260._r8 * itemp(:) ) - exp_fac(:) = exp( 0._r8 * itemp(:) ) - rate(:,504) = 1.4e-11_r8 * exp_fac(:) - rate(:,506) = 2.14e-11_r8 * exp_fac(:) - rate(:,507) = 1.9e-10_r8 * exp_fac(:) - rate(:,520) = 2.57e-10_r8 * exp_fac(:) - rate(:,521) = 1.8e-10_r8 * exp_fac(:) - rate(:,522) = 1.794e-10_r8 * exp_fac(:) - rate(:,523) = 1.3e-10_r8 * exp_fac(:) - rate(:,524) = 7.65e-11_r8 * exp_fac(:) - rate(:,533) = 1.31e-10_r8 * exp_fac(:) - rate(:,534) = 3.5e-11_r8 * exp_fac(:) - rate(:,535) = 9e-12_r8 * exp_fac(:) - rate(:,558) = 0.047_r8 * exp_fac(:) - rate(:,559) = 7.7e-05_r8 * exp_fac(:) - rate(:,560) = 0.171_r8 * exp_fac(:) - rate(:,564) = 6e-11_r8 * exp_fac(:) - rate(:,567) = 1e-12_r8 * exp_fac(:) - rate(:,568) = 4e-10_r8 * exp_fac(:) - rate(:,569) = 2e-10_r8 * exp_fac(:) - rate(:,570) = 1e-10_r8 * exp_fac(:) - rate(:,571) = 5e-16_r8 * exp_fac(:) - rate(:,572) = 4.4e-10_r8 * exp_fac(:) - rate(:,573) = 9e-10_r8 * exp_fac(:) - rate(:,575) = 1.3e-10_r8 * exp_fac(:) - rate(:,578) = 8e-10_r8 * exp_fac(:) - rate(:,579) = 5e-12_r8 * exp_fac(:) - rate(:,580) = 7e-10_r8 * exp_fac(:) - rate(:,583) = 4.8e-10_r8 * exp_fac(:) - rate(:,584) = 1e-10_r8 * exp_fac(:) - rate(:,585) = 4e-10_r8 * exp_fac(:) - rate(:,505) = 6e-12_r8 * exp( 400._r8 * itemp(:) ) - rate(:,510) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:) ) - rate(:,511) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:) ) - rate(:,512) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:) ) - rate(:,513) = 2.03e-11_r8 * exp( -1100._r8 * itemp(:) ) - rate(:,514) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:) ) - rate(:,515) = 4.85e-12_r8 * exp( -850._r8 * itemp(:) ) - rate(:,516) = 9e-13_r8 * exp( -360._r8 * itemp(:) ) - exp_fac(:) = exp( -1600._r8 * itemp(:) ) - rate(:,517) = 1.25e-12_r8 * exp_fac(:) - rate(:,526) = 3.4e-11_r8 * exp_fac(:) - rate(:,518) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:) ) - rate(:,519) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:) ) - rate(:,525) = 6e-13_r8 * exp( -2058._r8 * itemp(:) ) - rate(:,527) = 5.5e-12_r8 * exp( 125._r8 * itemp(:) ) - rate(:,528) = 4.1e-13_r8 * exp( 750._r8 * itemp(:) ) - rate(:,529) = 2.8e-12_r8 * exp( 300._r8 * itemp(:) ) - rate(:,531) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:) ) - - itemp(:) = 300._r8 * itemp(:) - + real(r8) :: itemp(ncol,pver) + real(r8) :: exp_fac(ncol,pver) + real(r8) :: ko(ncol,pver) + real(r8) :: kinf(ncol,pver) + + rate(:,:,100) = 9.6e-10_r8 + rate(:,:,101) = 1.3e-09_r8 + rate(:,:,102) = 2e-29_r8 + rate(:,:,103) = 1e-27_r8 + rate(:,:,104) = 1.6e-09_r8 + rate(:,:,105) = 6e-12_r8 + rate(:,:,106) = 2.9e-12_r8 + rate(:,:,107) = 2.9e-11_r8 + rate(:,:,108) = 2e-10_r8 + rate(:,:,109) = 1e-10_r8 + rate(:,:,110) = 1e-10_r8 + rate(:,:,111) = 1e-11_r8 + rate(:,:,112) = 1.7e-10_r8 + rate(:,:,113) = 1e-28_r8 + rate(:,:,114) = 1e-28_r8 + rate(:,:,115) = 4e-11_r8 + rate(:,:,116) = 4e-11_r8 + rate(:,:,117) = 3.5e-12_r8 + rate(:,:,118) = 3.5e-12_r8 + rate(:,:,119) = 3.51e-10_r8 + rate(:,:,120) = 1.1e-10_r8 + rate(:,:,121) = 6e-15_r8 + rate(:,:,122) = 1e-10_r8 + rate(:,:,123) = 1e-10_r8 + rate(:,:,124) = 2.2e-10_r8 + rate(:,:,125) = 1.2e-09_r8 + rate(:,:,126) = 1.4e-10_r8 + rate(:,:,127) = 1.3e-10_r8 + rate(:,:,133) = 1.5e-06_r8 + rate(:,:,134) = 2e-09_r8 + rate(:,:,135) = 1e-09_r8 + rate(:,:,136) = 3.6e-06_r8 + rate(:,:,137) = 4e-12_r8 + rate(:,:,138) = 1e-09_r8 + rate(:,:,139) = 5e-06_r8 + rate(:,:,140) = 7e-12_r8 + rate(:,:,280) = 1e-10_r8 + rate(:,:,281) = 1e-10_r8 + rate(:,:,282) = 3e-10_r8 + rate(:,:,283) = 1.6e-28_r8 + rate(:,:,284) = 1.4e-09_r8 + rate(:,:,285) = 1.6e-09_r8 + rate(:,:,286) = 2e-13_r8 + rate(:,:,287) = 1.2e-10_r8 + rate(:,:,288) = 7e-10_r8 + rate(:,:,289) = 1.6e-28_r8 + rate(:,:,290) = 1.6e-09_r8 + rate(:,:,291) = 1.6e-28_r8 + rate(:,:,292) = 7e-10_r8 + rate(:,:,293) = 1e-12_r8 + rate(:,:,294) = 7.6e-10_r8 + rate(:,:,295) = 1.45e-26_r8 + rate(:,:,296) = 5e-12_r8 + rate(:,:,297) = 1e-13_r8 + rate(:,:,298) = 2e-06_r8 + rate(:,:,299) = 2e-06_r8 + rate(:,:,300) = 7e-11_r8 + rate(:,:,301) = 1.5e-06_r8 + rate(:,:,302) = 1e-09_r8 + rate(:,:,303) = 1.5e-06_r8 + rate(:,:,304) = 7e-12_r8 + rate(:,:,305) = 5e-10_r8 + rate(:,:,306) = 1e-10_r8 + rate(:,:,307) = 1e-09_r8 + rate(:,:,308) = 1e-09_r8 + rate(:,:,309) = 1e-10_r8 + rate(:,:,310) = 1e-10_r8 + rate(:,:,311) = 9.9e-30_r8 + rate(:,:,312) = 1.4e-09_r8 + rate(:,:,313) = 1.6e-09_r8 + rate(:,:,314) = 2.9e-09_r8 + rate(:,:,315) = 7e-10_r8 + rate(:,:,316) = 2e-10_r8 + rate(:,:,317) = 3.4e-31_r8 + rate(:,:,318) = 7.8e-10_r8 + rate(:,:,319) = 1.5e-10_r8 + rate(:,:,320) = 1.5e-10_r8 + rate(:,:,321) = 2e-06_r8 + rate(:,:,322) = 9e-10_r8 + rate(:,:,323) = 2.4e-10_r8 + rate(:,:,324) = 2.8e-28_r8 + rate(:,:,325) = 5.5e-10_r8 + rate(:,:,326) = 8.4e-10_r8 + rate(:,:,327) = 1e-10_r8 + rate(:,:,328) = 1e-10_r8 + rate(:,:,329) = 2.5e-10_r8 + rate(:,:,330) = 4.3e-10_r8 + rate(:,:,331) = 4e-10_r8 + rate(:,:,332) = 1.7e-09_r8 + rate(:,:,333) = 3e-10_r8 + rate(:,:,334) = 1.5e-10_r8 + rate(:,:,336) = 1e-10_r8 + rate(:,:,337) = 1e-10_r8 + rate(:,:,338) = 7.6e-28_r8 + rate(:,:,339) = 1.4e-09_r8 + rate(:,:,340) = 1e-09_r8 + rate(:,:,341) = 1.1e-09_r8 + rate(:,:,342) = 2e-10_r8 + rate(:,:,343) = 9e-10_r8 + rate(:,:,345) = 1e-10_r8 + rate(:,:,346) = 1e-10_r8 + rate(:,:,347) = 2e-28_r8 + rate(:,:,348) = 5.8e-10_r8 + rate(:,:,349) = 3.2e-11_r8 + rate(:,:,350) = 6e-13_r8 + rate(:,:,351) = 2e-09_r8 + rate(:,:,352) = 3.6e-09_r8 + rate(:,:,353) = 5e-13_r8 + rate(:,:,354) = 1e-09_r8 + rate(:,:,355) = 1.9e-10_r8 + rate(:,:,356) = 3e-10_r8 + rate(:,:,357) = 2.9e-31_r8 + rate(:,:,358) = 8e-10_r8 + rate(:,:,382) = 0.000258_r8 + rate(:,:,383) = 0.085_r8 + rate(:,:,384) = 1.2e-10_r8 + rate(:,:,389) = 1.2e-10_r8 + rate(:,:,390) = 1e-20_r8 + rate(:,:,391) = 1.3e-16_r8 + rate(:,:,393) = 4.2e-13_r8 + rate(:,:,395) = 8e-14_r8 + rate(:,:,396) = 3.9e-17_r8 + rate(:,:,403) = 6.9e-12_r8 + rate(:,:,404) = 7.2e-11_r8 + rate(:,:,405) = 1.6e-12_r8 + rate(:,:,411) = 1.8e-12_r8 + rate(:,:,415) = 1.8e-12_r8 + rate(:,:,419) = 7e-13_r8 + rate(:,:,420) = 5e-12_r8 + rate(:,:,429) = 3.5e-12_r8 + rate(:,:,431) = 1e-11_r8 + rate(:,:,432) = 2.2e-11_r8 + rate(:,:,433) = 5e-11_r8 + rate(:,:,468) = 1.7e-13_r8 + rate(:,:,470) = 2.607e-10_r8 + rate(:,:,471) = 9.75e-11_r8 + rate(:,:,472) = 2.07e-10_r8 + rate(:,:,473) = 2.088e-10_r8 + rate(:,:,474) = 1.17e-10_r8 + rate(:,:,475) = 4.644e-11_r8 + rate(:,:,476) = 1.204e-10_r8 + rate(:,:,477) = 9.9e-11_r8 + rate(:,:,478) = 3.3e-12_r8 + rate(:,:,497) = 4.5e-11_r8 + rate(:,:,498) = 4.62e-10_r8 + rate(:,:,499) = 1.2e-10_r8 + rate(:,:,500) = 9e-11_r8 + rate(:,:,501) = 3e-11_r8 + rate(:,:,506) = 2.14e-11_r8 + rate(:,:,507) = 1.9e-10_r8 + rate(:,:,520) = 2.57e-10_r8 + rate(:,:,521) = 1.8e-10_r8 + rate(:,:,522) = 1.794e-10_r8 + rate(:,:,523) = 1.3e-10_r8 + rate(:,:,524) = 7.65e-11_r8 + rate(:,:,533) = 1.31e-10_r8 + rate(:,:,534) = 3.5e-11_r8 + rate(:,:,535) = 9e-12_r8 + rate(:,:,558) = 0.047_r8 + rate(:,:,559) = 7.7e-05_r8 + rate(:,:,560) = 0.171_r8 + rate(:,:,564) = 6e-11_r8 + rate(:,:,567) = 1e-12_r8 + rate(:,:,568) = 4e-10_r8 + rate(:,:,569) = 2e-10_r8 + rate(:,:,570) = 1e-10_r8 + rate(:,:,571) = 5e-16_r8 + rate(:,:,572) = 4.4e-10_r8 + rate(:,:,573) = 9e-10_r8 + rate(:,:,575) = 1.3e-10_r8 + rate(:,:,578) = 8e-10_r8 + rate(:,:,579) = 5e-12_r8 + rate(:,:,580) = 7e-10_r8 + rate(:,:,583) = 4.8e-10_r8 + rate(:,:,584) = 1e-10_r8 + rate(:,:,585) = 4e-10_r8 + itemp(:ncol,:) = 1._r8 / temp(:ncol,:) n = ncol*pver - - ko(:) = 7e-31_r8 * itemp(:)**2.6_r8 - kinf(:) = 3.6e-11_r8 * itemp(:)**0.1_r8 - call jpl( rate(:,344), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 4.4e-32_r8 * itemp(:)**1.3_r8 - kinf(:) = 7.5e-11_r8 * itemp(:)**(-0.2_r8) - call jpl( rate(:,406), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 6.9e-31_r8 * itemp(:)**1._r8 - kinf(:) = 2.6e-11_r8 - call jpl( rate(:,416), 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(:,428), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 9e-32_r8 * itemp(:)**1.5_r8 - kinf(:) = 3e-11_r8 - call jpl( rate(:,436), 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(:,439), 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(:,440), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 1.8e-30_r8 * itemp(:)**3._r8 - kinf(:) = 2.8e-11_r8 - call jpl( rate(:,441), 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(:,459), 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(:,479), 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(:,490), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 5.9e-33_r8 * itemp(:)**1._r8 - kinf(:) = 1.1e-12_r8 * itemp(:)**(-1.3_r8) - call jpl( rate(:,532), m, 0.6_r8, ko, kinf, n ) + rate(:,:,335) = 1.8e-11_r8 * exp( 390._r8 * itemp(:,:) ) + rate(:,:,385) = 1.63e-10_r8 * exp( 60._r8 * itemp(:,:) ) + rate(:,:,386) = 2.15e-11_r8 * exp( 110._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 55._r8 * itemp(:,:) ) + rate(:,:,387) = 2.64e-11_r8 * exp_fac(:,:) + rate(:,:,388) = 6.6e-12_r8 * exp_fac(:,:) + rate(:,:,392) = 3.6e-18_r8 * exp( -220._r8 * itemp(:,:) ) + rate(:,:,394) = 1.8e-15_r8 * exp( 45._r8 * itemp(:,:) ) + rate(:,:,397) = 3.5e-11_r8 * exp( -135._r8 * itemp(:,:) ) + rate(:,:,398) = 8e-12_r8 * exp( -2060._r8 * itemp(:,:) ) + rate(:,:,401) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:,:) ) + rate(:,:,402) = 1.4e-12_r8 * exp( -2000._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 200._r8 * itemp(:,:) ) + rate(:,:,407) = 3e-11_r8 * exp_fac(:,:) + rate(:,:,495) = 5.5e-12_r8 * exp_fac(:,:) + rate(:,:,530) = 3.8e-12_r8 * exp_fac(:,:) + rate(:,:,408) = 1e-14_r8 * exp( -490._r8 * itemp(:,:) ) + rate(:,:,409) = 1.4e-10_r8 * exp( -470._r8 * itemp(:,:) ) + rate(:,:,410) = 2.8e-12_r8 * exp( -1800._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 250._r8 * itemp(:,:) ) + rate(:,:,412) = 4.8e-11_r8 * exp_fac(:,:) + rate(:,:,493) = 1.7e-11_r8 * exp_fac(:,:) + rate(:,:,413) = 1.8e-11_r8 * exp( 180._r8 * itemp(:,:) ) + rate(:,:,414) = 1.7e-12_r8 * exp( -940._r8 * itemp(:,:) ) + rate(:,:,418) = 1.3e-12_r8 * exp( 380._r8 * itemp(:,:) ) + rate(:,:,421) = 2.1e-11_r8 * exp( 100._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 220._r8 * itemp(:,:) ) + rate(:,:,422) = 2.9e-12_r8 * exp_fac(:,:) + rate(:,:,423) = 1.45e-12_r8 * exp_fac(:,:) + rate(:,:,424) = 1.45e-12_r8 * exp_fac(:,:) + rate(:,:,425) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:,:) ) + rate(:,:,426) = 5.1e-12_r8 * exp( 210._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( -2450._r8 * itemp(:,:) ) + rate(:,:,427) = 1.2e-13_r8 * exp_fac(:,:) + rate(:,:,453) = 3e-11_r8 * exp_fac(:,:) + rate(:,:,430) = 1.5e-11_r8 * exp( 170._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 270._r8 * itemp(:,:) ) + rate(:,:,434) = 3.3e-12_r8 * exp_fac(:,:) + rate(:,:,449) = 1.4e-11_r8 * exp_fac(:,:) + rate(:,:,463) = 7.4e-12_r8 * exp_fac(:,:) + exp_fac(:,:) = exp( -1500._r8 * itemp(:,:) ) + rate(:,:,435) = 3e-12_r8 * exp_fac(:,:) + rate(:,:,494) = 5.8e-12_r8 * exp_fac(:,:) + exp_fac(:,:) = exp( 20._r8 * itemp(:,:) ) + rate(:,:,437) = 7.26e-11_r8 * exp_fac(:,:) + rate(:,:,438) = 4.64e-11_r8 * exp_fac(:,:) + rate(:,:,445) = 8.1e-11_r8 * exp( -30._r8 * itemp(:,:) ) + rate(:,:,446) = 7.1e-12_r8 * exp( -1270._r8 * itemp(:,:) ) + rate(:,:,447) = 3.05e-11_r8 * exp( -2270._r8 * itemp(:,:) ) + rate(:,:,448) = 1.1e-11_r8 * exp( -980._r8 * itemp(:,:) ) + rate(:,:,450) = 3.6e-11_r8 * exp( -375._r8 * itemp(:,:) ) + rate(:,:,451) = 2.3e-11_r8 * exp( -200._r8 * itemp(:,:) ) + rate(:,:,452) = 3.3e-12_r8 * exp( -115._r8 * itemp(:,:) ) + rate(:,:,454) = 1e-12_r8 * exp( -1590._r8 * itemp(:,:) ) + rate(:,:,455) = 3.5e-13_r8 * exp( -1370._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 290._r8 * itemp(:,:) ) + rate(:,:,456) = 2.6e-12_r8 * exp_fac(:,:) + rate(:,:,457) = 6.4e-12_r8 * exp_fac(:,:) + rate(:,:,487) = 4.1e-13_r8 * exp_fac(:,:) + rate(:,:,458) = 6.5e-12_r8 * exp( 135._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( -840._r8 * itemp(:,:) ) + rate(:,:,460) = 3.6e-12_r8 * exp_fac(:,:) + rate(:,:,509) = 2e-12_r8 * exp_fac(:,:) + rate(:,:,461) = 1.2e-12_r8 * exp( -330._r8 * itemp(:,:) ) + rate(:,:,462) = 2.8e-11_r8 * exp( 85._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 230._r8 * itemp(:,:) ) + rate(:,:,464) = 6e-13_r8 * exp_fac(:,:) + rate(:,:,484) = 1.5e-12_r8 * exp_fac(:,:) + rate(:,:,492) = 1.9e-11_r8 * exp_fac(:,:) + rate(:,:,465) = 1e-11_r8 * exp( -3300._r8 * itemp(:,:) ) + rate(:,:,466) = 1.8e-12_r8 * exp( -250._r8 * itemp(:,:) ) + rate(:,:,467) = 3.4e-12_r8 * exp( -130._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( -500._r8 * itemp(:,:) ) + rate(:,:,469) = 3e-12_r8 * exp_fac(:,:) + rate(:,:,503) = 1.4e-10_r8 * exp_fac(:,:) + exp_fac(:,:) = exp( -800._r8 * itemp(:,:) ) + rate(:,:,481) = 1.7e-11_r8 * exp_fac(:,:) + rate(:,:,508) = 6.3e-12_r8 * exp_fac(:,:) + rate(:,:,482) = 4.8e-12_r8 * exp( -310._r8 * itemp(:,:) ) + rate(:,:,483) = 1.6e-11_r8 * exp( -780._r8 * itemp(:,:) ) + rate(:,:,485) = 9.5e-13_r8 * exp( 550._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 260._r8 * itemp(:,:) ) + rate(:,:,486) = 2.3e-12_r8 * exp_fac(:,:) + rate(:,:,489) = 8.8e-12_r8 * exp_fac(:,:) + rate(:,:,488) = 4.5e-12_r8 * exp( 460._r8 * itemp(:,:) ) + rate(:,:,491) = 1.9e-11_r8 * exp( 215._r8 * itemp(:,:) ) + rate(:,:,496) = 1.2e-10_r8 * exp( -430._r8 * itemp(:,:) ) + rate(:,:,502) = 1.6e-10_r8 * exp( -260._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 0._r8 * itemp(:,:) ) + rate(:,:,504) = 1.4e-11_r8 * exp_fac(:,:) + rate(:,:,506) = 2.14e-11_r8 * exp_fac(:,:) + rate(:,:,507) = 1.9e-10_r8 * exp_fac(:,:) + rate(:,:,520) = 2.57e-10_r8 * exp_fac(:,:) + rate(:,:,521) = 1.8e-10_r8 * exp_fac(:,:) + rate(:,:,522) = 1.794e-10_r8 * exp_fac(:,:) + rate(:,:,523) = 1.3e-10_r8 * exp_fac(:,:) + rate(:,:,524) = 7.65e-11_r8 * exp_fac(:,:) + rate(:,:,533) = 1.31e-10_r8 * exp_fac(:,:) + rate(:,:,534) = 3.5e-11_r8 * exp_fac(:,:) + rate(:,:,535) = 9e-12_r8 * exp_fac(:,:) + rate(:,:,558) = 0.047_r8 * exp_fac(:,:) + rate(:,:,559) = 7.7e-05_r8 * exp_fac(:,:) + rate(:,:,560) = 0.171_r8 * exp_fac(:,:) + rate(:,:,564) = 6e-11_r8 * exp_fac(:,:) + rate(:,:,567) = 1e-12_r8 * exp_fac(:,:) + rate(:,:,568) = 4e-10_r8 * exp_fac(:,:) + rate(:,:,569) = 2e-10_r8 * exp_fac(:,:) + rate(:,:,570) = 1e-10_r8 * exp_fac(:,:) + rate(:,:,571) = 5e-16_r8 * exp_fac(:,:) + rate(:,:,572) = 4.4e-10_r8 * exp_fac(:,:) + rate(:,:,573) = 9e-10_r8 * exp_fac(:,:) + rate(:,:,575) = 1.3e-10_r8 * exp_fac(:,:) + rate(:,:,578) = 8e-10_r8 * exp_fac(:,:) + rate(:,:,579) = 5e-12_r8 * exp_fac(:,:) + rate(:,:,580) = 7e-10_r8 * exp_fac(:,:) + rate(:,:,583) = 4.8e-10_r8 * exp_fac(:,:) + rate(:,:,584) = 1e-10_r8 * exp_fac(:,:) + rate(:,:,585) = 4e-10_r8 * exp_fac(:,:) + rate(:,:,505) = 6e-12_r8 * exp( 400._r8 * itemp(:,:) ) + rate(:,:,510) = 1.46e-11_r8 * exp( -1040._r8 * itemp(:,:) ) + rate(:,:,511) = 1.42e-12_r8 * exp( -1150._r8 * itemp(:,:) ) + rate(:,:,512) = 1.64e-12_r8 * exp( -1520._r8 * itemp(:,:) ) + rate(:,:,513) = 2.03e-11_r8 * exp( -1100._r8 * itemp(:,:) ) + rate(:,:,514) = 1.96e-12_r8 * exp( -1200._r8 * itemp(:,:) ) + rate(:,:,515) = 4.85e-12_r8 * exp( -850._r8 * itemp(:,:) ) + rate(:,:,516) = 9e-13_r8 * exp( -360._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( -1600._r8 * itemp(:,:) ) + rate(:,:,517) = 1.25e-12_r8 * exp_fac(:,:) + rate(:,:,526) = 3.4e-11_r8 * exp_fac(:,:) + rate(:,:,518) = 1.3e-12_r8 * exp( -1770._r8 * itemp(:,:) ) + rate(:,:,519) = 9.2e-13_r8 * exp( -1560._r8 * itemp(:,:) ) + rate(:,:,525) = 6e-13_r8 * exp( -2058._r8 * itemp(:,:) ) + rate(:,:,527) = 5.5e-12_r8 * exp( 125._r8 * itemp(:,:) ) + rate(:,:,528) = 4.1e-13_r8 * exp( 750._r8 * itemp(:,:) ) + rate(:,:,529) = 2.8e-12_r8 * exp( 300._r8 * itemp(:,:) ) + rate(:,:,531) = 2.45e-12_r8 * exp( -1775._r8 * itemp(:,:) ) + + itemp(:,:) = 300._r8 * itemp(:,:) + + ko(:,:) = 7e-31_r8 * itemp(:,:)**2.6_r8 + kinf(:,:) = 3.6e-11_r8 * itemp(:,:)**0.1_r8 + call jpl( rate(1,1,344), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 4.4e-32_r8 * itemp(:,:)**1.3_r8 + kinf(:,:) = 7.5e-11_r8 * itemp(:,:)**(-0.2_r8) + call jpl( rate(1,1,406), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 6.9e-31_r8 * itemp(:,:)**1._r8 + kinf(:,:) = 2.6e-11_r8 + call jpl( rate(1,1,416), 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(1,1,428), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 9e-32_r8 * itemp(:,:)**1.5_r8 + kinf(:,:) = 3e-11_r8 + call jpl( rate(1,1,436), 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(1,1,439), 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(1,1,440), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 1.8e-30_r8 * itemp(:,:)**3._r8 + kinf(:,:) = 2.8e-11_r8 + call jpl( rate(1,1,441), 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(1,1,459), 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(1,1,479), 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(1,1,490), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 5.9e-33_r8 * itemp(:,:)**1._r8 + kinf(:,:) = 1.1e-12_r8 * itemp(:,:)**(-1.3_r8) + call jpl( rate(1,1,532), m, 0.6_r8, ko, kinf, n ) end subroutine setrxt subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) - - use ppgrid, only : pcols, pver - + use ppgrid, only : pver, pcols + use shr_kind_mod, only : r8 => shr_kind_r8 use chem_mods, only : rxntot use mo_jpl, only : jpl @@ -427,79 +418,71 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) integer, intent(in) :: ncol integer, intent(in) :: kbot real(r8), intent(in) :: temp(pcols,pver) - real(r8), intent(in) :: m(ncol*pver) - real(r8), intent(inout) :: rate(ncol*pver,max(1,rxntot)) + real(r8), intent(in) :: m(ncol,pver) + real(r8), intent(inout) :: rate(ncol,pver,rxntot) !------------------------------------------------------- ! ... local variables !------------------------------------------------------- integer :: n - integer :: offset - integer :: k - real(r8) :: itemp(ncol*kbot) - real(r8) :: exp_fac(ncol*kbot) - real(r8) :: ko(ncol*kbot) - real(r8) :: kinf(ncol*kbot) - real(r8) :: wrk(ncol*kbot) - + real(r8) :: itemp(ncol,kbot) + real(r8) :: exp_fac(ncol,kbot) + real(r8) :: ko(ncol,kbot) + real(r8) :: kinf(ncol,kbot) + real(r8) :: wrk(ncol,kbot) + + rate(:,:kbot,390) = 1e-20_r8 + rate(:,:kbot,391) = 1.3e-16_r8 + rate(:,:kbot,395) = 8e-14_r8 + rate(:,:kbot,396) = 3.9e-17_r8 + rate(:,:kbot,403) = 6.9e-12_r8 + rate(:,:kbot,419) = 7e-13_r8 + rate(:,:kbot,420) = 5e-12_r8 + rate(:,:kbot,558) = 0.047_r8 + rate(:,:kbot,559) = 7.7e-05_r8 + rate(:,:kbot,560) = 0.171_r8 + rate(:,:kbot,564) = 6e-11_r8 + rate(:,:kbot,567) = 1e-12_r8 + rate(:,:kbot,568) = 4e-10_r8 + rate(:,:kbot,569) = 2e-10_r8 + rate(:,:kbot,570) = 1e-10_r8 + rate(:,:kbot,572) = 4.4e-10_r8 + rate(:,:kbot,575) = 1.3e-10_r8 + rate(:,:kbot,578) = 8e-10_r8 + rate(:,:kbot,579) = 5e-12_r8 + rate(:,:kbot,580) = 7e-10_r8 + rate(:,:kbot,583) = 4.8e-10_r8 + rate(:,:kbot,584) = 1e-10_r8 + rate(:,:kbot,585) = 4e-10_r8 + itemp(:ncol,:kbot) = 1._r8 / temp(:ncol,:kbot) n = ncol*kbot - - rate(:n,390) = 1e-20_r8 - rate(:n,391) = 1.3e-16_r8 - rate(:n,395) = 8e-14_r8 - rate(:n,396) = 3.9e-17_r8 - rate(:n,403) = 6.9e-12_r8 - rate(:n,419) = 7e-13_r8 - rate(:n,420) = 5e-12_r8 - rate(:n,558) = 0.047_r8 - rate(:n,559) = 7.7e-05_r8 - rate(:n,560) = 0.171_r8 - rate(:n,564) = 6e-11_r8 - rate(:n,567) = 1e-12_r8 - rate(:n,568) = 4e-10_r8 - rate(:n,569) = 2e-10_r8 - rate(:n,570) = 1e-10_r8 - rate(:n,572) = 4.4e-10_r8 - rate(:n,575) = 1.3e-10_r8 - rate(:n,578) = 8e-10_r8 - rate(:n,579) = 5e-12_r8 - rate(:n,580) = 7e-10_r8 - rate(:n,583) = 4.8e-10_r8 - rate(:n,584) = 1e-10_r8 - rate(:n,585) = 4e-10_r8 - - do k = 1,kbot - offset = (k-1)*ncol - itemp(offset+1:offset+ncol) = 1._r8 / temp(:ncol,k) - end do - - rate(:n,386) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) - exp_fac(:) = exp( 55._r8 * itemp(:) ) - rate(:n,387) = 2.64e-11_r8 * exp_fac(:) - rate(:n,388) = 6.6e-12_r8 * exp_fac(:) - rate(:n,392) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:n,394) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:n,397) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:n,398) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:n,407) = 3e-11_r8 * exp( 200._r8 * itemp(:) ) - rate(:n,408) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:n,409) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:n,412) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) - rate(:n,413) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) - rate(:n,414) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:n,421) = 2.1e-11_r8 * exp( 100._r8 * itemp(:) ) - rate(:n,425) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) - rate(:n,426) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) - rate(:n,434) = 3.3e-12_r8 * exp( 270._r8 * itemp(:) ) - rate(:n,435) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) - - itemp(:) = 300._r8 * itemp(:) - - - ko(:) = 4.4e-32_r8 * itemp(:)**1.3_r8 - kinf(:) = 7.5e-11_r8 * itemp(:)**(-0.2_r8) + rate(:,:kbot,386) = 2.15e-11_r8 * exp( 110._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 55._r8 * itemp(:,:) ) + rate(:,:kbot,387) = 2.64e-11_r8 * exp_fac(:,:) + rate(:,:kbot,388) = 6.6e-12_r8 * exp_fac(:,:) + rate(:,:kbot,392) = 3.6e-18_r8 * exp( -220._r8 * itemp(:,:) ) + rate(:,:kbot,394) = 1.8e-15_r8 * exp( 45._r8 * itemp(:,:) ) + rate(:,:kbot,397) = 3.5e-11_r8 * exp( -135._r8 * itemp(:,:) ) + rate(:,:kbot,398) = 8e-12_r8 * exp( -2060._r8 * itemp(:,:) ) + rate(:,:kbot,407) = 3e-11_r8 * exp( 200._r8 * itemp(:,:) ) + rate(:,:kbot,408) = 1e-14_r8 * exp( -490._r8 * itemp(:,:) ) + rate(:,:kbot,409) = 1.4e-10_r8 * exp( -470._r8 * itemp(:,:) ) + rate(:,:kbot,412) = 4.8e-11_r8 * exp( 250._r8 * itemp(:,:) ) + rate(:,:kbot,413) = 1.8e-11_r8 * exp( 180._r8 * itemp(:,:) ) + rate(:,:kbot,414) = 1.7e-12_r8 * exp( -940._r8 * itemp(:,:) ) + rate(:,:kbot,421) = 2.1e-11_r8 * exp( 100._r8 * itemp(:,:) ) + rate(:,:kbot,425) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:,:) ) + rate(:,:kbot,426) = 5.1e-12_r8 * exp( 210._r8 * itemp(:,:) ) + rate(:,:kbot,434) = 3.3e-12_r8 * exp( 270._r8 * itemp(:,:) ) + rate(:,:kbot,435) = 3e-12_r8 * exp( -1500._r8 * itemp(:,:) ) + + itemp(:,:) = 300._r8 * itemp(:,:) + + + ko(:,:) = 4.4e-32_r8 * itemp(:,:)**1.3_r8 + kinf(:,:) = 7.5e-11_r8 * itemp(:,:)**(-0.2_r8) call jpl( wrk, m, 0.6_r8, ko, kinf, n ) - rate(:n,406) = wrk(:) + rate(:,:kbot,406) = wrk(:,:) diff --git a/src/chemistry/pp_waccm_mad/mo_sim_dat.F90 b/src/chemistry/pp_waccm_mad/mo_sim_dat.F90 index bf157d0e10..6a19249967 100644 --- a/src/chemistry/pp_waccm_mad/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_mad/mo_sim_dat.F90 @@ -28,29 +28,29 @@ subroutine set_sim_dat !-------------------------------------------------------------- integer :: ios - is_scalar = .false. - is_vector = .true. + is_scalar = .true. + is_vector = .false. - clscnt(:) = (/ 22, 0, 0, 88, 0 /) + clscnt(:) = (/ 23, 0, 0, 87, 0 /) - cls_rxt_cnt(:,1) = (/ 1, 56, 0, 22 /) - cls_rxt_cnt(:,4) = (/ 28, 151, 405, 88 /) + cls_rxt_cnt(:,1) = (/ 66, 66, 0, 23 /) + cls_rxt_cnt(:,4) = (/ 30, 158, 396, 87 /) - solsym(:110) = (/ 'BRCL ','BRO ','BRONO2 ','BRY ','CCL4 ', & - 'CF2CLBR ','CF3BR ','CFC11 ','CFC113 ','CFC114 ', & - 'CFC115 ','CFC12 ','CH2BR2 ','CH2O ','CH3BR ', & - 'CH3CCL3 ','CH3CL ','CH3O2 ','CH3OOH ','CH4 ', & - 'CHBR3 ','CL2 ','CL2O2 ','CLO ','CLONO2 ', & - 'CLY ','CO ','CO2 ','COF2 ','COFCL ', & - 'F ','H ','H2 ','H2402 ','H2O2 ', & - 'HBR ','HCFC141B ','HCFC142B ','HCFC22 ','HCL ', & - 'HF ','HNO3 ','HO2 ','HO2NO2 ','HOBR ', & - 'HOCL ','HONO ','N ','N2O ','N2O5 ', & - 'NO ','NO2 ','NO3 ','O ','O2 ', & - 'O3 ','OCLO ','SF6 ','BR ','CL ', & - 'CLm ','CLm_H2O ','CLm_HCL ','CLOm ','CO3m ', & - 'CO3m2H2O ','CO3m_H2O ','CO4m ','e ','H3Op_OH ', & - 'HCO3m ','Hp_2H2O ','Hp_3H2O ','Hp_3N1 ','Hp_4H2O ', & + solsym(:110) = (/ 'BR ','BRCL ','BRO ','BRONO2 ','BRY ', & + 'CCL4 ','CF2CLBR ','CF3BR ','CFC11 ','CFC113 ', & + 'CFC114 ','CFC115 ','CFC12 ','CH2BR2 ','CH2O ', & + 'CH3BR ','CH3CCL3 ','CH3CL ','CH3O2 ','CH3OOH ', & + 'CH4 ','CHBR3 ','CL ','CL2 ','CL2O2 ', & + 'CLO ','CLONO2 ','CLY ','CO ','CO2 ', & + 'COF2 ','COFCL ','F ','H ','H2 ', & + 'H2402 ','H2O2 ','HBR ','HCFC141B ','HCFC142B ', & + 'HCFC22 ','HCL ','HF ','HNO3 ','HO2NO2 ', & + 'HOBR ','HOCL ','HONO ','N ','N2O ', & + 'N2O5 ','NO ','NO2 ','NO3 ','O ', & + 'O2 ','O3 ','OCLO ','SF6 ','CLm ', & + 'CLm_H2O ','CLm_HCL ','CLOm ','CO3m ','CO3m2H2O ', & + 'CO3m_H2O ','CO4m ','e ','H3Op_OH ','HCO3m ', & + 'HO2 ','Hp_2H2O ','Hp_3H2O ','Hp_3N1 ','Hp_4H2O ', & 'Hp_4N1 ','Hp_5H2O ','Hp_H2O ','N2D ','N2p ', & 'NO2m ','NO2m_H2O ','NO3m ','NO3m2H2O ','NO3m_H2O ', & 'NO3m_HCL ','NO3mHNO3 ','NOp ','NOp_2H2O ','NOp_3H2O ', & @@ -59,21 +59,21 @@ subroutine set_sim_dat 'O3m ','O4m ','O4p ','OH ','OHm ', & 'Om ','Op ','Op2D ','Op2P ','H2O ' /) - adv_mass(:110) = (/ 115.356700_r8, 95.903400_r8, 141.908940_r8, 99.716850_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, 50.485900_r8, 47.032000_r8, 48.039400_r8, 16.040600_r8, & - 252.730400_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, & - 18.998403_r8, 1.007400_r8, 2.014800_r8, 259.823613_r8, 34.013600_r8, & - 80.911400_r8, 116.948003_r8, 100.493706_r8, 86.467906_r8, 36.460100_r8, & - 20.005803_r8, 63.012340_r8, 33.006200_r8, 79.011740_r8, 96.910800_r8, & - 52.459500_r8, 47.012940_r8, 14.006740_r8, 44.012880_r8, 108.010480_r8, & - 30.006140_r8, 46.005540_r8, 62.004940_r8, 15.999400_r8, 31.998800_r8, & - 47.998200_r8, 67.451500_r8, 146.056419_r8, 79.904000_r8, 35.452700_r8, & - 35.452700_r8, 53.466900_r8, 71.912800_r8, 51.452100_r8, 60.009200_r8, & - 96.037600_r8, 78.023400_r8, 76.008600_r8, 0.548567E-03_r8, 36.028400_r8, & - 61.016600_r8, 37.035800_r8, 55.050000_r8, 118.062340_r8, 73.064200_r8, & + adv_mass(:110) = (/ 79.904000_r8, 115.356700_r8, 95.903400_r8, 141.908940_r8, 99.716850_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, 50.485900_r8, 47.032000_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, 18.998403_r8, 1.007400_r8, 2.014800_r8, & + 259.823613_r8, 34.013600_r8, 80.911400_r8, 116.948003_r8, 100.493706_r8, & + 86.467906_r8, 36.460100_r8, 20.005803_r8, 63.012340_r8, 79.011740_r8, & + 96.910800_r8, 52.459500_r8, 47.012940_r8, 14.006740_r8, 44.012880_r8, & + 108.010480_r8, 30.006140_r8, 46.005540_r8, 62.004940_r8, 15.999400_r8, & + 31.998800_r8, 47.998200_r8, 67.451500_r8, 146.056419_r8, 35.452700_r8, & + 53.466900_r8, 71.912800_r8, 51.452100_r8, 60.009200_r8, 96.037600_r8, & + 78.023400_r8, 76.008600_r8, 0.548567E-03_r8, 36.028400_r8, 61.016600_r8, & + 33.006200_r8, 37.035800_r8, 55.050000_r8, 118.062340_r8, 73.064200_r8, & 136.076540_r8, 91.078400_r8, 19.021600_r8, 14.006740_r8, 28.013480_r8, & 46.005540_r8, 64.019740_r8, 62.004940_r8, 98.033340_r8, 80.019140_r8, & 98.465040_r8, 125.017280_r8, 30.006140_r8, 66.034540_r8, 68.049340_r8, & @@ -82,21 +82,21 @@ subroutine set_sim_dat 47.998200_r8, 63.997600_r8, 63.997600_r8, 17.006800_r8, 17.006800_r8, & 15.999400_r8, 15.999400_r8, 15.999400_r8, 15.999400_r8, 18.014200_r8 /) - crb_mass(:110) = (/ 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_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, 12.011000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + crb_mass(:110) = (/ 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, 24.022000_r8, & + 24.022000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + 12.011000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, 12.011000_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, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 24.022000_r8, 0.000000_r8, 0.000000_r8, 24.022000_r8, 24.022000_r8, & 12.011000_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, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 24.022000_r8, 0.000000_r8, & - 0.000000_r8, 24.022000_r8, 24.022000_r8, 12.011000_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, 0.000000_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, 0.000000_r8, 0.000000_r8, 12.011000_r8, 12.011000_r8, & + 12.011000_r8, 12.011000_r8, 0.000000_r8, 0.000000_r8, 12.011000_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, 0.000000_r8, 12.011000_r8, & - 12.011000_r8, 12.011000_r8, 12.011000_r8, 0.000000_r8, 0.000000_r8, & - 12.011000_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, 0.000000_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, 0.000000_r8, 0.000000_r8, & @@ -107,38 +107,38 @@ subroutine set_sim_dat fix_mass(: 2) = (/ 0.00000000_r8, 28.0134800_r8 /) - clsmap(: 22,1) = (/ 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, & - 15, 16, 17, 20, 21, 26, 34, 37, 38, 39, & - 49, 58 /) - clsmap(: 88,4) = (/ 1, 2, 3, 14, 18, 19, 22, 23, 24, 25, & - 27, 29, 30, 28, 31, 32, 33, 35, 36, 40, & - 41, 42, 43, 44, 45, 46, 47, 48, 50, 51, & - 52, 53, 54, 55, 56, 57, 59, 60, 61, 62, & - 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, & - 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, & - 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, & - 103, 104, 105, 106, 107, 108, 109, 110 /) + clsmap(: 23,1) = (/ 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, & + 16, 17, 18, 21, 22, 28, 30, 36, 39, 40, & + 41, 50, 59 /) + clsmap(: 87,4) = (/ 1, 2, 3, 4, 15, 19, 20, 23, 24, 25, & + 26, 27, 29, 31, 32, 33, 34, 35, 37, 38, & + 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, & + 53, 54, 55, 56, 57, 58, 60, 61, 62, 63, & + 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, & + 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, & + 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, & + 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, & + 104, 105, 106, 107, 108, 109, 110 /) - permute(: 88,4) = (/ 6, 52, 17, 56, 39, 12, 4, 1, 81, 34, & - 25, 2, 5, 78, 30, 86, 50, 18, 33, 80, & - 7, 71, 61, 14, 28, 32, 24, 40, 37, 87, & - 72, 74, 68, 75, 79, 3, 44, 85, 58, 46, & - 45, 35, 64, 43, 54, 59, 69, 11, 42, 21, & - 65, 8, 73, 9, 82, 26, 29, 19, 62, 47, & - 60, 53, 55, 48, 51, 66, 67, 13, 23, 70, & - 22, 31, 57, 36, 10, 76, 77, 27, 49, 20, & - 41, 63, 83, 84, 38, 16, 15, 88 /) + permute(: 87,4) = (/ 44, 6, 50, 20, 56, 40, 11, 74, 4, 1, & + 72, 36, 21, 2, 5, 29, 68, 51, 23, 32, & + 67, 7, 85, 15, 30, 33, 25, 39, 38, 77, & + 71, 86, 81, 73, 84, 3, 59, 46, 45, 37, & + 63, 43, 54, 58, 79, 12, 41, 61, 24, 70, & + 9, 78, 10, 80, 26, 28, 22, 64, 47, 60, & + 53, 55, 49, 52, 65, 66, 13, 17, 69, 16, & + 31, 57, 34, 8, 75, 76, 27, 48, 14, 42, & + 62, 82, 83, 35, 19, 18, 87 /) - diag_map(: 88) = (/ 1, 4, 7, 10, 12, 16, 19, 22, 26, 30, & - 33, 39, 45, 51, 58, 65, 71, 79, 86, 95, & - 102, 108, 116, 123, 128, 134, 142, 151, 159, 168, & - 176, 184, 191, 201, 211, 219, 229, 244, 257, 270, & - 285, 297, 311, 328, 340, 356, 371, 385, 401, 419, & - 438, 457, 477, 497, 519, 541, 573, 597, 619, 652, & - 686, 712, 755, 785, 829, 878, 922, 979,1023,1066, & - 1107,1153,1197,1233,1277,1314,1360,1403,1442,1488, & - 1532,1576,1610,1647,1691,1728,1771,1825 /) + diag_map(: 87) = (/ 1, 4, 7, 10, 12, 16, 19, 22, 25, 29, & + 33, 39, 45, 51, 57, 64, 71, 77, 84, 90, & + 98, 102, 111, 118, 124, 130, 138, 146, 155, 164, & + 172, 179, 188, 195, 206, 219, 229, 239, 253, 266, & + 277, 292, 304, 320, 331, 347, 362, 376, 390, 411, & + 431, 450, 466, 486, 507, 529, 560, 583, 613, 636, & + 670, 711, 739, 769, 817, 860, 905, 941, 983,1026, & + 1071,1114,1158,1201,1237,1282,1324,1367,1410,1453, & + 1509,1542,1578,1617,1657,1692,1745 /) extfrc_lst(: 12) = (/ 'NO2 ','NO ','CO ','N2p ','Np ', & 'O ','O2p ','OH ','Op ','e ', & @@ -150,17 +150,16 @@ subroutine set_sim_dat inv_lst(: 2) = (/ 'M ', 'N2 ' /) - slvd_lst(: 51) = (/ 'BR ', 'CL ', 'CLm ', 'CLm_H2O ', 'CLm_HCL ', & - 'CLOm ', 'CO3m ', 'CO3m2H2O ', 'CO3m_H2O ', 'CO4m ', & - 'e ', 'H3Op_OH ', 'HCO3m ', 'Hp_2H2O ', 'Hp_3H2O ', & - 'Hp_3N1 ', 'Hp_4H2O ', 'Hp_4N1 ', 'Hp_5H2O ', 'Hp_H2O ', & - 'N2D ', 'N2p ', 'NO2m ', 'NO2m_H2O ', 'NO3m ', & - 'NO3m2H2O ', 'NO3m_H2O ', 'NO3m_HCL ', 'NO3mHNO3 ', 'NOp ', & - 'NOp_2H2O ', 'NOp_3H2O ', 'NOp_CO2 ', 'NOp_H2O ', 'NOp_N2 ', & - 'Np ', 'O1D ', 'O2_1D ', 'O2_1S ', 'O2m ', & - 'O2p ', 'O2p_H2O ', 'O3m ', 'O4m ', 'O4p ', & - 'OH ', 'OHm ', 'Om ', 'Op ', 'Op2D ', & - 'Op2P ' /) + slvd_lst(: 50) = (/ 'CLm ', 'CLm_H2O ', 'CLm_HCL ', 'CLOm ', 'CO3m ', & + 'CO3m2H2O ', 'CO3m_H2O ', 'CO4m ', 'e ', 'H3Op_OH ', & + 'HCO3m ', 'HO2 ', 'Hp_2H2O ', 'Hp_3H2O ', 'Hp_3N1 ', & + 'Hp_4H2O ', 'Hp_4N1 ', 'Hp_5H2O ', 'Hp_H2O ', 'N2D ', & + 'N2p ', 'NO2m ', 'NO2m_H2O ', 'NO3m ', 'NO3m2H2O ', & + 'NO3m_H2O ', 'NO3m_HCL ', 'NO3mHNO3 ', 'NOp ', 'NOp_2H2O ', & + 'NOp_3H2O ', 'NOp_CO2 ', 'NOp_H2O ', 'NOp_N2 ', 'Np ', & + 'O1D ', 'O2_1D ', 'O2_1S ', 'O2m ', 'O2p ', & + 'O2p_H2O ', 'O3m ', 'O4m ', 'O4p ', 'OH ', & + 'OHm ', 'Om ', 'Op ', 'Op2D ', 'Op2P ' /) if( allocated( rxt_tag_lst ) ) then deallocate( rxt_tag_lst ) diff --git a/src/chemistry/pp_waccm_mad_mam4/chem_mech.doc b/src/chemistry/pp_waccm_mad_mam4/chem_mech.doc index 5c3f0e5286..eaab3c486e 100644 --- a/src/chemistry/pp_waccm_mad_mam4/chem_mech.doc +++ b/src/chemistry/pp_waccm_mad_mam4/chem_mech.doc @@ -3,126 +3,126 @@ Solution species ( 1) bc_a1 (C) ( 2) bc_a4 (C) - ( 3) BRCL (BrCl) - ( 4) BRO (BrO) - ( 5) BRONO2 (BrONO2) - ( 6) BRY - ( 7) CCL4 (CCl4) - ( 8) CF2CLBR (CF2ClBr) - ( 9) CF3BR (CF3Br) - ( 10) CFC11 (CFCl3) - ( 11) CFC113 (CCl2FCClF2) - ( 12) CFC114 (CClF2CClF2) - ( 13) CFC115 (CClF2CF3) - ( 14) CFC12 (CF2Cl2) - ( 15) CH2BR2 (CH2Br2) - ( 16) CH2O - ( 17) CH3BR (CH3Br) - ( 18) CH3CCL3 (CH3CCl3) - ( 19) CH3CL (CH3Cl) - ( 20) CH3O2 - ( 21) CH3OOH - ( 22) CH4 - ( 23) CHBR3 (CHBr3) - ( 24) CL2 (Cl2) - ( 25) CL2O2 (Cl2O2) - ( 26) CLO (ClO) - ( 27) CLONO2 (ClONO2) - ( 28) CLY - ( 29) CO - ( 30) CO2 - ( 31) COF2 - ( 32) COFCL (COFCl) - ( 33) DMS (CH3SCH3) - ( 34) dst_a1 (AlSiO5) - ( 35) dst_a2 (AlSiO5) - ( 36) dst_a3 (AlSiO5) - ( 37) F - ( 38) H - ( 39) H2 - ( 40) H2402 (CBrF2CBrF2) - ( 41) H2O2 - ( 42) H2SO4 (H2SO4) - ( 43) HBR (HBr) - ( 44) HCFC141B (CH3CCl2F) - ( 45) HCFC142B (CH3CClF2) - ( 46) HCFC22 (CHF2Cl) - ( 47) HCL (HCl) - ( 48) HF - ( 49) HNO3 - ( 50) HO2NO2 - ( 51) HOBR (HOBr) - ( 52) HOCL (HOCl) - ( 53) HONO - ( 54) N - ( 55) N2O - ( 56) N2O5 - ( 57) ncl_a1 (NaCl) - ( 58) ncl_a2 (NaCl) - ( 59) ncl_a3 (NaCl) - ( 60) NO - ( 61) NO2 - ( 62) NO3 - ( 63) num_a1 (H) - ( 64) num_a2 (H) - ( 65) num_a3 (H) - ( 66) num_a4 (H) - ( 67) O - ( 68) O2 - ( 69) O3 - ( 70) OCLO (OClO) - ( 71) OCS (OCS) - ( 72) pom_a1 (C) - ( 73) pom_a4 (C) - ( 74) S (S) - ( 75) SF6 - ( 76) SO (SO) - ( 77) SO2 - ( 78) SO3 (SO3) - ( 79) so4_a1 (NH4HSO4) - ( 80) so4_a2 (NH4HSO4) - ( 81) so4_a3 (NH4HSO4) - ( 82) soa_a1 (C) - ( 83) soa_a2 (C) - ( 84) SOAG (C) - ( 85) BR (Br) - ( 86) CL (Cl) - ( 87) CLm (Cl) - ( 88) CLm_H2O (ClH2O) - ( 89) CLm_HCL (Cl2H) - ( 90) CLOm (ClO) - ( 91) CO3m (CO3) - ( 92) CO3m2H2O (H4CO5) - ( 93) CO3m_H2O (H2CO4) - ( 94) CO4m (CO4) - ( 95) e (E) - ( 96) H3Op_OH (H4O2) - ( 97) HCO3m (HCO3) - ( 98) HO2 - ( 99) Hp_2H2O (H5O2) - (100) Hp_3H2O (H7O3) - (101) Hp_3N1 (H8NO6) - (102) Hp_4H2O (H9O4) - (103) Hp_4N1 (H10NO7) - (104) Hp_5H2O (H11O5) - (105) Hp_H2O (H3O) - (106) N2D (N) - (107) N2p (N2) - (108) NO2m (NO2) - (109) NO2m_H2O (H2NO3) - (110) NO3m (NO3) - (111) NO3m2H2O (H4NO5) - (112) NO3m_H2O (H2NO4) - (113) NO3m_HCL (NO3HCl) - (114) NO3mHNO3 (HN2O6) - (115) NOp (NO) - (116) NOp_2H2O (H4NO3) - (117) NOp_3H2O (H6NO3) - (118) NOp_CO2 (NCO3) - (119) NOp_H2O (H2NO2) - (120) NOp_N2 (N3O) - (121) Np (N) - (122) O1D (O) + ( 3) BR (Br) + ( 4) BRCL (BrCl) + ( 5) BRO (BrO) + ( 6) BRONO2 (BrONO2) + ( 7) BRY + ( 8) CCL4 (CCl4) + ( 9) CF2CLBR (CF2ClBr) + ( 10) CF3BR (CF3Br) + ( 11) CFC11 (CFCl3) + ( 12) CFC113 (CCl2FCClF2) + ( 13) CFC114 (CClF2CClF2) + ( 14) CFC115 (CClF2CF3) + ( 15) CFC12 (CF2Cl2) + ( 16) CH2BR2 (CH2Br2) + ( 17) CH2O + ( 18) CH3BR (CH3Br) + ( 19) CH3CCL3 (CH3CCl3) + ( 20) CH3CL (CH3Cl) + ( 21) CH3O2 + ( 22) CH3OOH + ( 23) CH4 + ( 24) CHBR3 (CHBr3) + ( 25) CL (Cl) + ( 26) CL2 (Cl2) + ( 27) CL2O2 (Cl2O2) + ( 28) CLO (ClO) + ( 29) CLONO2 (ClONO2) + ( 30) CLY + ( 31) CO + ( 32) CO2 + ( 33) COF2 + ( 34) COFCL (COFCl) + ( 35) DMS (CH3SCH3) + ( 36) dst_a1 (AlSiO5) + ( 37) dst_a2 (AlSiO5) + ( 38) dst_a3 (AlSiO5) + ( 39) F + ( 40) H + ( 41) H2 + ( 42) H2402 (CBrF2CBrF2) + ( 43) H2O2 + ( 44) H2SO4 (H2SO4) + ( 45) HBR (HBr) + ( 46) HCFC141B (CH3CCl2F) + ( 47) HCFC142B (CH3CClF2) + ( 48) HCFC22 (CHF2Cl) + ( 49) HCL (HCl) + ( 50) HF + ( 51) HNO3 + ( 52) HO2NO2 + ( 53) HOBR (HOBr) + ( 54) HOCL (HOCl) + ( 55) HONO + ( 56) N + ( 57) N2O + ( 58) N2O5 + ( 59) ncl_a1 (NaCl) + ( 60) ncl_a2 (NaCl) + ( 61) ncl_a3 (NaCl) + ( 62) NO + ( 63) NO2 + ( 64) NO3 + ( 65) num_a1 (H) + ( 66) num_a2 (H) + ( 67) num_a3 (H) + ( 68) num_a4 (H) + ( 69) O + ( 70) O1D (O) + ( 71) O2 + ( 72) O3 + ( 73) OCLO (OClO) + ( 74) OCS (OCS) + ( 75) pom_a1 (C) + ( 76) pom_a4 (C) + ( 77) S (S) + ( 78) SF6 + ( 79) SO (SO) + ( 80) SO2 + ( 81) SO3 (SO3) + ( 82) so4_a1 (NH4HSO4) + ( 83) so4_a2 (NH4HSO4) + ( 84) so4_a3 (NH4HSO4) + ( 85) soa_a1 (C) + ( 86) soa_a2 (C) + ( 87) SOAG (C) + ( 88) CLm (Cl) + ( 89) CLm_H2O (ClH2O) + ( 90) CLm_HCL (Cl2H) + ( 91) CLOm (ClO) + ( 92) CO3m (CO3) + ( 93) CO3m2H2O (H4CO5) + ( 94) CO3m_H2O (H2CO4) + ( 95) CO4m (CO4) + ( 96) e (E) + ( 97) H3Op_OH (H4O2) + ( 98) HCO3m (HCO3) + ( 99) HO2 + (100) Hp_2H2O (H5O2) + (101) Hp_3H2O (H7O3) + (102) Hp_3N1 (H8NO6) + (103) Hp_4H2O (H9O4) + (104) Hp_4N1 (H10NO7) + (105) Hp_5H2O (H11O5) + (106) Hp_H2O (H3O) + (107) N2D (N) + (108) N2p (N2) + (109) NO2m (NO2) + (110) NO2m_H2O (H2NO3) + (111) NO3m (NO3) + (112) NO3m2H2O (H4NO5) + (113) NO3m_H2O (H2NO4) + (114) NO3m_HCL (NO3HCl) + (115) NO3mHNO3 (HN2O6) + (116) NOp (NO) + (117) NOp_2H2O (H4NO3) + (118) NOp_3H2O (H6NO3) + (119) NOp_CO2 (NCO3) + (120) NOp_H2O (H2NO2) + (121) NOp_N2 (N3O) + (122) Np (N) (123) O2_1D (O2) (124) O2_1S (O2) (125) O2m (O2) @@ -181,103 +181,103 @@ Class List -------- ( 1) bc_a1 ( 2) bc_a4 - ( 3) BRCL - ( 4) BRO - ( 5) BRONO2 - ( 6) CH2O - ( 7) CH3O2 - ( 8) CH3OOH - ( 9) CL2 - ( 10) CL2O2 - ( 11) CLO - ( 12) CLONO2 - ( 13) CO - ( 14) COF2 - ( 15) COFCL - ( 16) DMS - ( 17) dst_a1 - ( 18) dst_a2 - ( 19) dst_a3 - ( 20) F - ( 21) H - ( 22) H2 - ( 23) H2O2 - ( 24) H2SO4 - ( 25) HBR - ( 26) HCL - ( 27) HF - ( 28) HNO3 - ( 29) HO2NO2 - ( 30) HOBR - ( 31) HOCL - ( 32) HONO - ( 33) N - ( 34) N2O5 - ( 35) ncl_a1 - ( 36) ncl_a2 - ( 37) ncl_a3 - ( 38) NO - ( 39) NO2 - ( 40) NO3 - ( 41) num_a1 - ( 42) num_a2 - ( 43) num_a3 - ( 44) num_a4 - ( 45) O - ( 46) O2 - ( 47) O3 - ( 48) OCLO - ( 49) OCS - ( 50) pom_a1 - ( 51) pom_a4 - ( 52) S - ( 53) SO - ( 54) SO2 - ( 55) SO3 - ( 56) so4_a1 - ( 57) so4_a2 - ( 58) so4_a3 - ( 59) soa_a1 - ( 60) soa_a2 - ( 61) SOAG - ( 62) BR - ( 63) CL - ( 64) CLm - ( 65) CLm_H2O - ( 66) CLm_HCL - ( 67) CLOm - ( 68) CO3m - ( 69) CO3m2H2O - ( 70) CO3m_H2O - ( 71) CO4m - ( 72) e - ( 73) H3Op_OH - ( 74) HCO3m - ( 75) HO2 - ( 76) Hp_2H2O - ( 77) Hp_3H2O - ( 78) Hp_3N1 - ( 79) Hp_4H2O - ( 80) Hp_4N1 - ( 81) Hp_5H2O - ( 82) Hp_H2O - ( 83) N2D - ( 84) N2p - ( 85) NO2m - ( 86) NO2m_H2O - ( 87) NO3m - ( 88) NO3m2H2O - ( 89) NO3m_H2O - ( 90) NO3m_HCL - ( 91) NO3mHNO3 - ( 92) NOp - ( 93) NOp_2H2O - ( 94) NOp_3H2O - ( 95) NOp_CO2 - ( 96) NOp_H2O - ( 97) NOp_N2 - ( 98) Np - ( 99) O1D + ( 3) BR + ( 4) BRCL + ( 5) BRO + ( 6) BRONO2 + ( 7) CH2O + ( 8) CH3O2 + ( 9) CH3OOH + ( 10) CL + ( 11) CL2 + ( 12) CL2O2 + ( 13) CLO + ( 14) CLONO2 + ( 15) CO + ( 16) COF2 + ( 17) COFCL + ( 18) DMS + ( 19) dst_a1 + ( 20) dst_a2 + ( 21) dst_a3 + ( 22) F + ( 23) H + ( 24) H2 + ( 25) H2O2 + ( 26) H2SO4 + ( 27) HBR + ( 28) HCL + ( 29) HF + ( 30) HNO3 + ( 31) HO2NO2 + ( 32) HOBR + ( 33) HOCL + ( 34) HONO + ( 35) N + ( 36) N2O5 + ( 37) ncl_a1 + ( 38) ncl_a2 + ( 39) ncl_a3 + ( 40) NO + ( 41) NO2 + ( 42) NO3 + ( 43) num_a1 + ( 44) num_a2 + ( 45) num_a3 + ( 46) num_a4 + ( 47) O + ( 48) O1D + ( 49) O2 + ( 50) O3 + ( 51) OCLO + ( 52) OCS + ( 53) pom_a1 + ( 54) pom_a4 + ( 55) S + ( 56) SO + ( 57) SO2 + ( 58) SO3 + ( 59) so4_a1 + ( 60) so4_a2 + ( 61) so4_a3 + ( 62) soa_a1 + ( 63) soa_a2 + ( 64) SOAG + ( 65) CLm + ( 66) CLm_H2O + ( 67) CLm_HCL + ( 68) CLOm + ( 69) CO3m + ( 70) CO3m2H2O + ( 71) CO3m_H2O + ( 72) CO4m + ( 73) e + ( 74) H3Op_OH + ( 75) HCO3m + ( 76) HO2 + ( 77) Hp_2H2O + ( 78) Hp_3H2O + ( 79) Hp_3N1 + ( 80) Hp_4H2O + ( 81) Hp_4N1 + ( 82) Hp_5H2O + ( 83) Hp_H2O + ( 84) N2D + ( 85) N2p + ( 86) NO2m + ( 87) NO2m_H2O + ( 88) NO3m + ( 89) NO3m2H2O + ( 90) NO3m_H2O + ( 91) NO3m_HCL + ( 92) NO3mHNO3 + ( 93) NOp + ( 94) NOp_2H2O + ( 95) NOp_3H2O + ( 96) NOp_CO2 + ( 97) NOp_H2O + ( 98) NOp_N2 + ( 99) Np (100) O2_1D (101) O2_1S (102) O2m @@ -863,23 +863,23 @@ Class List O1D_CH4b (435) O1D + CH4 -> CH2O + H + HO2 rate = 3.50E-11 (539) O1D_CH4c (436) O1D + CH4 -> CH2O + H2 rate = 9.00E-12 (540) usr_CO_OH_b (437) CO + OH -> CO2 + H rate = ** User defined ** (541) - OCS_O (438) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (542) - OCS_OH (439) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (543) - S_O2 (440) S + O2 -> SO + O rate = 2.30E-12 (544) - S_O3 (441) S + O3 -> SO + O2 rate = 1.20E-11 (545) - SO_BRO (442) SO + BRO -> SO2 + BR rate = 5.70E-11 (546) - SO_CLO (443) SO + CLO -> SO2 + CL rate = 2.80E-11 (547) - S_OH (444) S + OH -> SO + H rate = 6.60E-11 (548) - SO_NO2 (445) SO + NO2 -> SO2 + NO rate = 1.40E-11 (549) - SO_O2 (446) SO + O2 -> SO2 + O rate = 1.60E-13*exp( -2280./t) (550) - SO_O3 (447) SO + O3 -> SO2 + O2 rate = 3.40E-12*exp( -1100./t) (551) - SO_OCLO (448) SO + OCLO -> SO2 + CLO rate = 1.90E-12 (552) - SO_OH (449) SO + OH -> SO2 + H rate = 2.70E-11*exp( 335./t) (553) - usr_SO2_OH (450) SO2 + OH -> SO3 + HO2 rate = ** User defined ** (554) - usr_SO3_H2O (451) SO3 + H2O -> H2SO4 rate = ** User defined ** (555) - DMS_NO3 (452) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (556) - DMS_OHa (453) DMS + OH -> SO2 rate = 9.60E-12*exp( -234./t) (557) - usr_DMS_OH (454) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (558) + DMS_NO3 (438) DMS + NO3 -> SO2 + HNO3 rate = 1.90E-13*exp( 520./t) (542) + DMS_OHa (439) DMS + OH -> SO2 rate = 9.60E-12*exp( -234./t) (543) + OCS_O (440) OCS + O -> SO + CO rate = 2.10E-11*exp( -2200./t) (544) + OCS_OH (441) OCS + OH -> SO2 + CO + H rate = 7.20E-14*exp( -1070./t) (545) + S_O2 (442) S + O2 -> SO + O rate = 2.30E-12 (546) + 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.70E-11*exp( 335./t) (555) + usr_DMS_OH (452) DMS + OH -> 0.5*SO2 + 0.5*HO2 rate = ** User defined ** (556) + usr_SO2_OH (453) SO2 + OH -> SO3 + HO2 rate = ** User defined ** (557) + usr_SO3_H2O (454) SO3 + H2O -> H2SO4 rate = ** User defined ** (558) usr_HO2_aer (455) HO2 -> 0.5*H2O2 rate = ** User defined ** (559) usr_N2O5_aer (456) N2O5 -> 2*HNO3 rate = ** User defined ** (560) usr_NO2_aer (457) NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 rate = ** User defined ** (561) @@ -960,11 +960,18 @@ 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 + r467*HOBR*HCL + r472*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 - r442*SO*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 - r461*BRONO2 - r464*BRONO2 - r469*BRONO2 - r392*O*BRONO2 d(BRY)/dt = 0 @@ -992,23 +999,41 @@ Extraneous prod/loss species d(CH4)/dt = - j24*CH4 - j25*CH4 - r347*CL*CH4 - r403*F*CH4 - r432*OH*CH4 - r434*O1D*CH4 - r435*O1D*CH4 - r436*O1D*CH4 d(CHBR3)/dt = - j43*CHBR3 - r399*O1D*CHBR3 - r416*CL*CHBR3 - r417*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 + + r7*CLOm*NO + r43*CLm*Hp_4H2O + r50*CLm*O2p + r55*O2p*CLm_H2O + r60*CLm_H2O*Hp_4H2O + + r65*CLm_HCL*Hp_5H2O + r73*CLm*Hp_5H2O + r77*CLm_HCL*Hp_4H2O + r78*CLm_H2O*Hp_5H2O + + 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 + - 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 + r460*HOCL*HCL + r465*CLONO2*HCL + r466*HOCL*HCL + r470*CLONO2*HCL + r471*HOCL*HCL + r475*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 + r448*SO*OCLO + + r368*HOCL*CL + r369*HOCL*O + r370*HOCL*OH + r379*O1D*HCL + r450*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 - r443*SO*CLO + - r386*BRO*CLO - r387*BRO*CLO - r388*BRO*CLO - r445*SO*CLO d(CLONO2)/dt = r360*M*CLO*NO2 - j47*CLONO2 - j48*CLONO2 - r463*CLONO2 - r468*CLONO2 - r474*CLONO2 - r359*CL*CLONO2 - r361*O*CLONO2 - r362*OH*CLONO2 - r465*HCL*CLONO2 - r470*HCL*CLONO2 - r475*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 + r438*OCS*O + r439*OCS*OH + + r414*CH3CL*CL + r426*CH2O*NO3 + r427*CH2O*O + r428*CH2O*OH + r440*OCS*O + r441*OCS*OH + r491*Op*CO2 - r433*M*OH*CO - r437*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 @@ -1036,7 +1061,7 @@ Extraneous prod/loss species 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 = - r452*NO3*DMS - r453*OH*DMS - r454*OH*DMS + d(DMS)/dt = - r438*NO3*DMS - r439*OH*DMS - r452*OH*DMS d(dst_a1)/dt = 0 d(dst_a2)/dt = 0 d(dst_a3)/dt = 0 @@ -1059,7 +1084,7 @@ Extraneous prod/loss species + 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 - + r435*O1D*CH4 + r437*CO*OH + r439*OCS*OH + r444*S*OH + r449*SO*OH + + r435*O1D*CH4 + r437*CO*OH + r441*OCS*OH + r446*S*OH + r451*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 + r436*O1D*CH4 @@ -1067,7 +1092,7 @@ Extraneous prod/loss species d(H2402)/dt = - j51*H2402 - r400*O1D*H2402 d(H2O2)/dt = .5*r455*HO2 + r317*M*OH*OH + r318*HO2*HO2 - j4*H2O2 - r303*O*H2O2 - r312*OH*H2O2 - r349*CL*H2O2 - d(H2SO4)/dt = r451*SO3*H2O + d(H2SO4)/dt = r454*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 @@ -1094,7 +1119,7 @@ Extraneous prod/loss species + 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 + r452*DMS*NO3 + r465*CLONO2*HCL + + r194*HCL*NO3m + r342*M*NO2*OH + r426*CH2O*NO3 + r438*DMS*NO3 + r465*CLONO2*HCL + r470*CLONO2*HCL + r475*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 @@ -1133,7 +1158,7 @@ Extraneous prod/loss species + 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 + r445*SO*NO2 + + r326*N*O2 + r327*NO2*O + r334*N*OH + 2*r338*O1D*N2O + r447*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 @@ -1149,7 +1174,7 @@ Extraneous prod/loss species - 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 - - r445*SO*NO2 + - r447*SO*NO2 d(NO3)/dt = j10*HO2NO2 + j14*N2O5 + j15*N2O5 + j30*BRONO2 + j47*CLONO2 + j76*NO3m + r345*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 @@ -1162,7 +1187,7 @@ Extraneous prod/loss species + 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 - r458*NO3 - r330*HO2*NO3 - r331*NO*NO3 - r332*O*NO3 - r333*OH*NO3 - - r341*M*NO2*NO3 - r426*CH2O*NO3 - r452*DMS*NO3 + - r341*M*NO2*NO3 - r426*CH2O*NO3 - r438*DMS*NO3 d(num_a1)/dt = 0 d(num_a2)/dt = 0 d(num_a3)/dt = 0 @@ -1178,15 +1203,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 + r440*S*O2 - + r446*SO*O2 + r479*NOp*e + 1.15*r480*O2p*e + r487*Np*O2 + r488*O2p*N + r493*Op*N2D + r494*Op*O2 + + r289*O1D*O2 + r306*H*HO2 + r316*OH*OH + r322*N*NO + r323*N*NO2 + r326*N*O2 + r442*S*O2 + + r448*SO*O2 + r479*NOp*e + 1.15*r480*O2p*e + r487*Np*O2 + r488*O2p*N + r493*Op*N2D + r494*Op*O2 + r498*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 - r438*OCS*O - r483*N2p*O - r484*N2p*O - r485*Np*O + - r427*CH2O*O - r440*OCS*O - r483*N2p*O - r484*N2p*O - r485*Np*O + d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j13*N2O + r321*N2D*O2 + .85*r480*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 - r434*CH4*O1D - r435*CH4*O1D - r436*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 @@ -1205,63 +1237,38 @@ Extraneous prod/loss species + 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 + r441*S*O3 + r447*SO*O3 + r490*O2p*NO + + r429*CH3O2*HO2 + r443*S*O3 + r449*SO*O3 + r490*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 - r440*S*O2 - r446*SO*O2 - r482*N2p*O2 - r486*Np*O2 - r487*Np*O2 - r494*Op*O2 + - r326*N*O2 - r442*S*O2 - r448*SO*O2 - r482*N2p*O2 - r486*Np*O2 - r487*Np*O2 - r494*Op*O2 - r498*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 - r441*S*O3 - r447*SO*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 - r448*SO*OCLO - d(OCS)/dt = - j101*OCS - r438*O*OCS - r439*OH*OCS + - j60*OCLO - r450*SO*OCLO + d(OCS)/dt = - j101*OCS - r440*O*OCS - r441*OH*OCS d(pom_a1)/dt = 0 d(pom_a4)/dt = 0 d(S)/dt = j101*OCS + j102*SO - - r440*O2*S - r441*O3*S - r444*OH*S + - r442*O2*S - r443*O3*S - r446*OH*S d(SF6)/dt = - j61*SF6 - d(SO)/dt = j103*SO2 + r438*OCS*O + r440*S*O2 + r441*S*O3 + r444*S*OH - - j102*SO - r442*BRO*SO - r443*CLO*SO - r445*NO2*SO - r446*O2*SO - r447*O3*SO - r448*OCLO*SO - - r449*OH*SO - d(SO2)/dt = j104*SO3 + r439*OCS*OH + r442*SO*BRO + r443*SO*CLO + r445*SO*NO2 + r446*SO*O2 + r447*SO*O3 - + r448*SO*OCLO + r449*SO*OH + r452*DMS*NO3 + r453*DMS*OH + .5*r454*DMS*OH - - j103*SO2 - r450*OH*SO2 - d(SO3)/dt = j100*H2SO4 + r450*SO2*OH - - j104*SO3 - r451*H2O*SO3 + d(SO)/dt = j103*SO2 + r440*OCS*O + r442*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 + r438*DMS*NO3 + r439*DMS*OH + r441*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 - r453*OH*SO2 + d(SO3)/dt = j100*H2SO4 + r453*SO2*OH + - j104*SO3 - r454*H2O*SO3 d(so4_a1)/dt = 0 d(so4_a2)/dt = 0 d(so4_a3)/dt = 0 d(soa_a1)/dt = 0 d(soa_a2)/dt = 0 d(SOAG)/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 + r442*SO*BRO - - r382*CH2O*BR - r383*HO2*BR - r384*O3*BR - 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 - + r7*CLOm*NO + r43*CLm*Hp_4H2O + r50*CLm*O2p + r55*O2p*CLm_H2O + r60*CLm_H2O*Hp_4H2O - + r65*CLm_HCL*Hp_5H2O + r73*CLm*Hp_5H2O + r77*CLm_HCL*Hp_4H2O + r78*CLm_H2O*Hp_5H2O - + 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 - + r443*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(CLm)/dt = r281*M*CLm_H2O + r282*M*CLm_HCL + r8*CLOm*NO + r9*CLOm*O + r10*CL*CO3m + r12*CLO*CO3m + r23*CL*CO4m + r26*CO4m*HCL + r181*CL*NO2m + r182*CLO*NO2m + r185*HCL*NO2m + r194*HCL*NO3m + r210*O2m*CL + r214*O2m*HCL + r237*CL*OHm + r241*OHm*HCL + r246*Om*CL + r247*CLO*Om @@ -1316,7 +1323,7 @@ Extraneous prod/loss species + 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 + r433*M*CO*OH + r435*O1D*CH4 + r450*SO2*OH + .5*r454*DMS*OH + + r430*CH3O2*NO + r433*M*CO*OH + r435*O1D*CH4 + .5*r452*DMS*OH + r453*SO2*OH - r455*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 @@ -1413,13 +1420,6 @@ Extraneous prod/loss species - 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 + r502*N2*Op2P + r493*Op*N2D - r485*O*Np - r486*O2*Np - r487*O2*Np - d(O1D)/dt = j1*H2O + j6*O2 + j7*O3 + j13*N2O + r321*N2D*O2 + .85*r480*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 - r434*CH4*O1D - r435*CH4*O1D - r436*CH4*O1D 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 @@ -1460,7 +1460,7 @@ Extraneous prod/loss species - 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 - r433*M*CO*OH - r437*CO*OH - - r439*OCS*OH - r444*S*OH - r449*SO*OH - r450*SO2*OH - r453*DMS*OH - r454*DMS*OH + - r439*DMS*OH - r441*OCS*OH - r446*S*OH - r451*SO*OH - r452*DMS*OH - r453*SO2*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 @@ -1520,4 +1520,4 @@ Extraneous prod/loss species - 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 - r451*SO3*H2O + - r272*M*Hp_3H2O*H2O - r274*M*Hp_4H2O*H2O - r286*O1D*H2O - r405*F*H2O - r454*SO3*H2O diff --git a/src/chemistry/pp_waccm_mad_mam4/chem_mech.in b/src/chemistry/pp_waccm_mad_mam4/chem_mech.in index 71171f5365..c818594318 100644 --- a/src/chemistry/pp_waccm_mad_mam4/chem_mech.in +++ b/src/chemistry/pp_waccm_mad_mam4/chem_mech.in @@ -1,17 +1,18 @@ * Comments -* User-given Tag Description: MAD_MAM4_1 -* Tag database identifier : MZ256_MAD_MAM4_20190128 -* Tag created by : ajc +* User-given Tag Description: WACCM_MAD_MAM4 +* Tag database identifier : MZ280_MAD_MAM4_20210122 +* Tag created by : lke * Tag created from branch : MAD_MAM4 -* Tag created on : 2019-01-28 15:49:11.9369-07 +* Tag created on : 2021-01-22 14:51:29.491442-07 * Comments for this tag follow: -* ajc : 2019-01-28 : add sf6 and Op2P Op2D and N2D +* lke : 2021-01-22 : Middle Atmosphere and D-Region mechanism for WACCM, with BR, CL transported SPECIES Solution bc_a1 -> C, bc_a4 -> C, + BR -> Br, BRCL -> BrCl, BRO -> BrO, BRONO2 -> BrONO2, @@ -33,6 +34,7 @@ CH3OOH, CH4, CHBR3 -> CHBr3, + CL -> Cl, CL2 -> Cl2, CL2O2 -> Cl2O2, CLO -> ClO, @@ -77,6 +79,7 @@ num_a3 -> H, num_a4 -> H, O, + O1D -> O, O2, O3, OCLO -> OClO, @@ -94,8 +97,6 @@ soa_a1 -> C, soa_a2 -> C, SOAG -> C, - BR -> Br, - CL -> Cl, CLm -> Cl, CLm_H2O -> ClH2O, CLm_HCL -> Cl2H, @@ -131,7 +132,6 @@ NOp_H2O -> H2NO2, NOp_N2 -> N3O, Np -> N, - O1D -> O, O2_1D -> O2, O2_1S -> O2, O2m -> O2, @@ -161,8 +161,6 @@ End Col-int Not-Transported - BR, - CL, CLm, CLm_H2O, CLm_HCL, @@ -248,12 +246,14 @@ Implicit bc_a1 bc_a4 + BR BRCL BRO BRONO2 CH2O CH3O2 CH3OOH + CL CL2 CL2O2 CLO @@ -291,6 +291,7 @@ num_a3 num_a4 O + O1D O2 O3 OCLO @@ -307,8 +308,6 @@ soa_a1 soa_a2 SOAG - BR - CL CLm CLm_H2O CLm_HCL @@ -344,7 +343,6 @@ NOp_H2O NOp_N2 Np - O1D O2_1D O2_1S O2m @@ -370,696 +368,696 @@ ********************************* *** odd-oxygen ********************************* -[jh2o_b] H2O + hv -> H2 + O1D -[jh2o_c] H2O + hv -> 2*H + O -[jh2o_a] H2O + hv -> OH + H -[jh2o2] H2O2 + hv -> 2*OH -[jo2_b=userdefined,] O2 + hv -> 2*O -[jo2_a=userdefined,] O2 + hv -> O + O1D -[jo3_a] O3 + hv -> O1D + O2_1D -[jo3_b] O3 + hv -> O + O2 +[jh2o_b] H2O + hv -> H2 + O1D +[jh2o_c] H2O + hv -> 2*H + O +[jh2o_a] H2O + hv -> OH + H +[jh2o2] H2O2 + hv -> 2*OH +[jo2_b=userdefined,] O2 + hv -> 2*O +[jo2_a=userdefined,] O2 + hv -> O + O1D +[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 -[jhono] HONO + hv -> NO + OH -[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 +[jhono] HONO + hv -> NO + OH +[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 ********************************* -[jch2o_a] CH2O + hv -> CO + 2*H -[jch2o_b] CH2O + hv -> CO + H2 -[jch3ooh] CH3OOH + hv -> CH2O + H + OH -[jch4_a] CH4 + hv -> H + CH3O2 -[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 -[jco2] CO2 + hv -> CO + O +[jch2o_a] CH2O + hv -> CO + 2*H +[jch2o_b] CH2O + hv -> CO + H2 +[jch3ooh] CH3OOH + hv -> CH2O + H + OH +[jch4_a] CH4 + hv -> H + CH3O2 +[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 +[jco2] CO2 + hv -> CO + O ********************************* *** 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 -[jpni3=userdefined] CO3m + hv -> CO2 + Om -[jpni5=userdefined] CO3m_H2O + hv -> CO3m + H2O -[jpni4=userdefined] CO4m + hv -> CO2 + O2m -[jeuv_4=userdefined,userdefined] N + hv -> Np + e -[jeuv_18=userdefined,userdefined] N2 + hv -> N2p + e -[jeuv_11=userdefined,userdefined] N2 + hv -> N2D + Np + 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_25=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N -[jeuv_13=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N -[jeuv_6=userdefined,userdefined] N2 + hv -> N2p + e -[jepn6=userdefined] NO2m + hv -> NO2 + e -[jepn7=userdefined] NO3m + hv -> NO3 + e -[jeuv_1=userdefined,userdefined] O + hv -> Op + e -[jeuv_2=userdefined,userdefined] O + hv -> Op2D + e -[jeuv_16=userdefined,userdefined] O + hv -> Op2P + e -[jeuv_3=userdefined,userdefined] O + hv -> Op2P + e -[jeuv_14=userdefined,userdefined] O + hv -> Op + e -[jeuv_15=userdefined,userdefined] O + hv -> Op2D + e -[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op2D + e -[jeuv_17=userdefined,userdefined] O2 + hv -> O2p + e -[jeuv_7=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_5=userdefined,userdefined] O2 + hv -> O2p + e -[jeuv_19=userdefined,userdefined] O2 + hv -> O + Op + e -[jeuv_24=userdefined,userdefined] O2 + hv -> 2*O -[jeuv_12=userdefined,userdefined] O2 + hv -> 2*O -[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op2P + e -[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op2P + e -[jeuv_20=userdefined,userdefined] O2 + hv -> O + Op2D + e -[jepn2=userdefined] O2m + hv -> O2 + e -[jppi=userdefined] O2p_H2O + hv -> H2O + O2p -[jpni1=userdefined] O3m + hv -> O2 + Om -[jepn3=userdefined] O3m + hv -> O3 + e -[jpni2=userdefined] O4m + hv -> O2 + O2m -[jepn4=userdefined] OHm + hv -> OH + e -[jepn1=userdefined] Om + hv -> O + e +[jeuv_26=userdefined,userdefined] CO2 + hv -> CO + O +[jpni3=userdefined] CO3m + hv -> CO2 + Om +[jpni5=userdefined] CO3m_H2O + hv -> CO3m + H2O +[jpni4=userdefined] CO4m + hv -> CO2 + O2m +[jeuv_4=userdefined,userdefined] N + hv -> Np + e +[jeuv_18=userdefined,userdefined] N2 + hv -> N2p + e +[jeuv_11=userdefined,userdefined] N2 + hv -> N2D + Np + 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_25=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N +[jeuv_13=userdefined,userdefined] N2 + hv -> 1.2*N2D + 0.8*N +[jeuv_6=userdefined,userdefined] N2 + hv -> N2p + e +[jepn6=userdefined] NO2m + hv -> NO2 + e +[jepn7=userdefined] NO3m + hv -> NO3 + e +[jeuv_1=userdefined,userdefined] O + hv -> Op + e +[jeuv_2=userdefined,userdefined] O + hv -> Op2D + e +[jeuv_16=userdefined,userdefined] O + hv -> Op2P + e +[jeuv_3=userdefined,userdefined] O + hv -> Op2P + e +[jeuv_14=userdefined,userdefined] O + hv -> Op + e +[jeuv_15=userdefined,userdefined] O + hv -> Op2D + e +[jeuv_8=userdefined,userdefined] O2 + hv -> O + Op2D + e +[jeuv_17=userdefined,userdefined] O2 + hv -> O2p + e +[jeuv_7=userdefined,userdefined] O2 + hv -> O + Op + e +[jeuv_5=userdefined,userdefined] O2 + hv -> O2p + e +[jeuv_19=userdefined,userdefined] O2 + hv -> O + Op + e +[jeuv_24=userdefined,userdefined] O2 + hv -> 2*O +[jeuv_12=userdefined,userdefined] O2 + hv -> 2*O +[jeuv_21=userdefined,userdefined] O2 + hv -> O + Op2P + e +[jeuv_9=userdefined,userdefined] O2 + hv -> O + Op2P + e +[jeuv_20=userdefined,userdefined] O2 + hv -> O + Op2D + e +[jepn2=userdefined] O2m + hv -> O2 + e +[jppi=userdefined] O2p_H2O + hv -> H2O + O2p +[jpni1=userdefined] O3m + hv -> O2 + Om +[jepn3=userdefined] O3m + hv -> O3 + e +[jpni2=userdefined] O4m + hv -> O2 + O2m +[jepn4=userdefined] OHm + hv -> OH + e +[jepn1=userdefined] Om + hv -> O + 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 End Photolysis Reactions ********************************* *** Not Assigned to a Section ********************************* -[CLm_H] CLm + H -> HCL + e ; 9.6e-10 -[CLmH2O_HCL] CLm_H2O + HCL -> CLm_HCL + H2O ; 1.3e-09 -[CLm_H2O_Ma] CLm + H2O + M -> CLm_H2O + M ; 2e-29 -[CLmHCL_M] HCL + M + CLm -> CLm_HCL + M ; 1e-27 -[CLm_HNO3] CLm + HNO3 -> HCL + NO3m ; 1.6e-09 -[CLm_NO2] CLm + NO2 -> CL + NO2m ; 6e-12 -[CLOm_NOa] CLOm + NO -> CL + NO2m ; 2.9e-12 -[CLOm_NOb] CLOm + NO -> NO2 + CLm ; 2.9e-11 -[CLOm_O] CLOm + O -> CLm + O2 ; 2e-10 -[CO3m_CLa] CL + CO3m -> CLm + CO2 + O ; 1e-10 -[CO3m_CLb] CL + CO3m -> CLOm + CO2 ; 1e-10 -[CO3m_CLO] CLO + CO3m -> CLm + CO2 + O2 ; 1e-11 -[CO3m_H] H + CO3m -> CO2 + OHm ; 1.7e-10 -[CO3mH2O_H2O_M] CO3m_H2O + H2O + M -> CO3m2H2O + M ; 1e-28 -[CO3m_H2O_M] CO3m + H2O + M -> CO3m_H2O + M ; 1e-28 -[CO3mH2O_NO2a] CO3m_H2O + NO2 -> CO2 + H2O + NO3m ; 4e-11 -[CO3mH2O_NO2b] CO3m_H2O + NO2 -> CO2 + NO3m_H2O ; 4e-11 -[CO3mH2O_NOa] CO3m_H2O + NO -> CO2 + NO2m_H2O ; 3.5e-12 -[CO3mH2O_NOb] CO3m_H2O + NO -> CO2 + H2O + NO2m ; 3.5e-12 -[CO3m_HNO3] CO3m + HNO3 -> CO2 + NO3m + OH ; 3.51e-10 -[CO3m_O] CO3m + O -> CO2 + O2m ; 1.1e-10 -[CO3m_O2] O2 + CO3m -> CO2 + O3m ; 6e-15 -[CO4m_CL] CL + CO4m -> CLm + CO2 + O2 ; 1e-10 -[CO4m_CLO] CLO + CO4m -> CLOm + CO2 + O2 ; 1e-10 -[CO4m_H] CO4m + H -> CO3m + OH ; 2.2e-10 -[CO4m_HCL] CO4m + HCL -> CLm + CO2 + HO2 ; 1.2e-09 -[CO4m_O] CO4m + O -> CO3m + O2 ; 1.4e-10 -[CO4m_O3] CO4m + O3 -> CO2 + O2 + O3m ; 1.3e-10 -[ean1] e + O2 + N2 -> N2 + O2m -[ean2] O3 + e -> O2 + Om -[ean3] M + O2 + e -> M + O2m -[edn1] NO + Om -> e + NO2 -[edn2] N2 + O2m -> e + O2 + N2 -[H3OpOH_e] H3Op_OH + e -> H + H2O + OH ; 1.5e-06 -[H3OpOH_H2O] H2O + H3Op_OH -> Hp_2H2O + OH ; 2e-09 -[Hp3N1_H2O] H2O + Hp_3N1 -> HNO3 + Hp_4H2O ; 1e-09 -[Hp4H2O_e] Hp_4H2O + e -> H + 4*H2O ; 3.6e-06 -[Hp4H2O_N2O5] Hp_4H2O + N2O5 -> HNO3 + Hp_3N1 ; 4e-12 -[Hp4N1_H2O] H2O + Hp_4N1 -> HNO3 + Hp_5H2O ; 1e-09 -[Hp5H2O_e] Hp_5H2O + e -> H + 5*H2O ; 5e-06 -[Hp5H2O_N2O5] Hp_5H2O + N2O5 -> HNO3 + Hp_4N1 ; 7e-12 -[iira1] Hp_4H2O + NO3mHNO3 -> 4*H2O + 2*HNO3 -[iira10] CLm + Hp_4H2O -> CL + H + 4*H2O -[iira100] NO3m + O2p -> NO3 + O2 -[iira101] HCO3m + O2p -> CO2 + O2 + OH -[iira102] O2m + O2p -> 2*O2p -[iira103] CO4m + O2p -> CO2 + O2 + O2 -[iira104] NO3m_H2O + O2p -> H2O + NO3 + O2 -[iira105] CO3m2H2O + O2p -> CO2 + 2*H2O + O + O2 -[iira106] CLm + O2p -> CL + O2 -[iira107] CO3m_H2O + O2p -> H2O + O + O2 + CO2 -[iira108] NO2m_H2O + O2p -> H2O + NO2 + O2 -[iira109] NO3m_HCL + O2p -> HCL + NO3 + O2 -[iira11] CO3m_H2O + Hp_4H2O -> CO2 + 5*H2O + O + H -[iira110] O2p + CLm_H2O -> CL + H2O + O2 -[iira111] NO3m2H2O + O2p -> 2*H2O + NO3 + O2 -[iira112] NO2m + O2p -> NO2 + O2 -[iira12] Hp_4H2O + NO2m_H2O -> H + 5*H2O + NO2 -[iira13] Hp_4H2O + NO3m_HCL -> H + 4*H2O + NO3 + HCL -[iira14] CLm_H2O + Hp_4H2O -> H + CL + 5*H2O -[iira15] NO3m2H2O + Hp_4H2O -> H + 6*H2O + NO3 -[iira16] Hp_4H2O + NO2m -> H + NO2 + 4*H2O -[iira17] Hp_5H2O + NO3mHNO3 -> 5*H2O + 2*HNO3 -[iira18] CO3m + Hp_5H2O -> CO2 + 5*H2O + O + H -[iira19] CLm_HCL + Hp_5H2O -> CL + H + 5*H2O + HCL -[iira2] CO3m + Hp_4H2O -> CO2 + H + 4*H2O + O -[iira20] NO3m + Hp_5H2O -> 5*H2O + HNO3 -[iira21] HCO3m + Hp_5H2O -> CO2 + H + 5*H2O + OH -[iira22] Hp_5H2O + O2m -> H + 5*H2O + O2 -[iira23] CO4m + Hp_5H2O -> CO2 + 5*H2O + O2 + H -[iira24] Hp_5H2O + NO3m_H2O -> H + 6*H2O + NO3 -[iira25] CO3m2H2O + Hp_5H2O -> H + CO2 + 7*H2O + O -[iira26] CLm + Hp_5H2O -> CL + H + 5*H2O -[iira27] CO3m_H2O + Hp_5H2O -> CO2 + H + 6*H2O + O -[iira28] NO2m_H2O + Hp_5H2O -> H + 6*H2O + NO2 -[iira29] Hp_5H2O + NO3m_HCL -> H + 5*H2O + HCL + NO3 -[iira3] CLm_HCL + Hp_4H2O -> CL + H + HCL + 4*H2O -[iira30] CLm_H2O + Hp_5H2O -> CL + H + 6*H2O -[iira31] Hp_5H2O + NO3m2H2O -> H + 7*H2O + NO3 -[iira32] Hp_5H2O + NO2m -> 5*H2O + NO2 + H -[iira33] Hp_3H2O + NO3mHNO3 -> 3*H2O + 2*HNO3 -[iira34] Hp_3H2O + CO3m -> CO2 + H + 3*H2O + O -[iira35] CLm_HCL + Hp_3H2O -> CL + H + 3*H2O + HCL -[iira36] Hp_3H2O + NO3m -> 3*H2O + HNO3 -[iira37] HCO3m + Hp_3H2O -> CO2 + H + 3*H2O + OH -[iira38] Hp_3H2O + O2m -> H + 3*H2O + O2 -[iira39] CO4m + Hp_3H2O -> CO2 + H + 3*H2O + O2 -[iira4] Hp_4H2O + NO3m -> 4*H2O + HNO3 -[iira40] Hp_3H2O + NO3m_H2O -> H + 4*H2O + NO3 -[iira41] CO3m2H2O + Hp_3H2O -> CO2 + H + 5*H2O + O -[iira42] CLm + Hp_3H2O -> CL + H + 3*H2O -[iira43] CO3m_H2O + Hp_3H2O -> CO2 + H + O + 4*H2O -[iira44] Hp_3H2O + NO2m_H2O -> H + 4*H2O + NO2 -[iira45] Hp_3H2O + NO3m_HCL -> H + 3*H2O + HCL + NO3 -[iira46] CLm_H2O + Hp_3H2O -> H + 4*H2O + CL -[iira47] Hp_3H2O + NO3m2H2O -> H + 5*H2O + NO3 -[iira48] Hp_3H2O + NO2m -> H + 3*H2O + NO2 -[iira49] NO3mHNO3 + NOp_H2O -> H2O + HNO3 + NO + NO3 -[iira5] HCO3m + Hp_4H2O -> CO2 + H + 4*H2O + OH -[iira50] CO3m + NOp_H2O -> CO2 + H2O + NO + O -[iira51] CLm_HCL + NOp_H2O -> CL + NO + H2O + HCL -[iira52] NO3m + NOp_H2O -> H2O + NO + NO3 -[iira53] HCO3m + NOp_H2O -> OH + CO2 + H2O + NO -[iira54] NOp_H2O + O2m -> H2O + NO + O2 -[iira55] CO4m + NOp_H2O -> O2 + NO + CO2 + H2O -[iira56] NO3m_H2O + NOp_H2O -> 2*H2O + NO + NO3 -[iira57] CO3m2H2O + NOp_H2O -> CO2 + 3*H2O + NO + O -[iira58] CLm + NOp_H2O -> CL + H2O + NO -[iira59] CO3m_H2O + NOp_H2O -> O + CO2 + 2*H2O + NO -[iira6] Hp_4H2O + O2m -> O2 + H + 4*H2O -[iira60] NO2m_H2O + NOp_H2O -> NO + 2*H2O + NO2 -[iira61] NO3m_HCL + NOp_H2O -> H2O + NO + NO3 + HCL -[iira62] CLm_H2O + NOp_H2O -> CL + 2*H2O + NO -[iira63] NO3m2H2O + NOp_H2O -> NO + NO3 + 3*H2O -[iira64] NO2m + NOp_H2O -> NO + H2O + NO2 -[iira65] NO3mHNO3 + NOp_2H2O -> 2*H2O + NO3 + HNO3 + NO -[iira66] CO3m + NOp_2H2O -> 2*H2O + NO + CO2 + O -[iira67] CLm_HCL + NOp_2H2O -> NO + CL + 2*H2O + HCL -[iira68] NOp_2H2O + NO3m -> NO + 2*H2O + NO3 -[iira69] HCO3m + NOp_2H2O -> 2*H2O + OH + NO + CO2 -[iira7] CO4m + Hp_4H2O -> 4*H2O + H + CO2 + O2 -[iira70] NOp_2H2O + O2m -> 2*H2O + NO + O2 -[iira71] NOp_2H2O + CO4m -> O2 + 2*H2O + NO + CO2 -[iira72] NO3m_H2O + NOp_2H2O -> 3*H2O + NO3 + NO -[iira73] CO3m2H2O + NOp_2H2O -> O + CO2 + 4*H2O + NO -[iira74] CLm + NOp_2H2O -> 2*H2O + NO + CL -[iira75] CO3m_H2O + NOp_2H2O -> 3*H2O + CO2 + NO + O -[iira76] NOp_2H2O + NO2m_H2O -> 3*H2O + NO + NO2 -[iira77] NO3m_HCL + NOp_2H2O -> NO + HCL + 2*H2O + NO3 -[iira78] NOp_2H2O + CLm_H2O -> NO + 3*H2O + CL -[iira79] NOp_2H2O + NO3m2H2O -> NO + NO3 + 4*H2O -[iira8] Hp_4H2O + NO3m_H2O -> H + 5*H2O + NO3 -[iira80] NOp_2H2O + NO2m -> 2*H2O + NO2 + NO -[iira81] NOp + NO3mHNO3 -> NO + HNO3 + NO3 -[iira82] NOp + CO3m -> CO2 + NO + O -[iira83] NOp + CLm_HCL -> CL + HCL + NO -[iira84] NO3m + NOp -> NO3 + NO -[iira85] NOp + HCO3m -> NO + CO2 + OH -[iira86] O2m + NOp -> NO + O2 -[iira87] NOp + CO4m -> CO2 + NO + O2 -[iira88] NOp + NO3m_H2O -> H2O + NO + NO3 -[iira89] NOp + CO3m2H2O -> NO + O + CO2 + 2*H2O -[iira9] CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + O + H -[iira90] CLm + NOp -> CL + NO -[iira91] CO3m_H2O + NOp -> H2O + NO + O + CO2 -[iira92] NO2m_H2O + NOp -> NO + NO2 + H2O -[iira93] NO3m_HCL + NOp -> NO + HCL + NO3 -[iira94] CLm_H2O + NOp -> CL + NO + H2O -[iira95] NOp + NO3m2H2O -> 2*H2O + NO + NO3 -[iira96] NOp + NO2m -> NO2 + NO -[iira97] NO3mHNO3 + O2p -> O2 + NO3 + HNO3 -[iira98] O2p + CO3m -> O + O2 + CO2 -[iira99] O2p + CLm_HCL -> O2 + HCL + CL -[iirb1] Hp_4H2O + CO3m + M -> 4*H2O + O + CO2 + H + M -[iirb10] Hp_5H2O + M + CO3m2H2O -> H + 7*H2O + M + CO2 + O -[iirb11] M + CO3m_H2O + Hp_4H2O -> 5*H2O + M + H + CO2 + O -[iirb12] Hp_5H2O + M + CO3m_H2O -> CO2 + M + O + H + 6*H2O -[iirb13] NO3m_H2O + Hp_4H2O + M -> M + NO3 + H + 5*H2O -[iirb14] NO3m_H2O + Hp_5H2O + M -> M + NO3 + H + 6*H2O -[iirb2] NO3m + M + Hp_4H2O -> 4*H2O + HNO3 + M -[iirb3] Hp_5H2O + M + CO3m -> 5*H2O + M + CO2 + O + H -[iirb4] Hp_5H2O + NO3m + M -> M + HNO3 + 5*H2O -[iirb5] M + CLm_HCL + Hp_4H2O -> M + 2*HCL + 4*H2O -[iirb6] M + Hp_5H2O + CLm_HCL -> M + 5*H2O + 2*HCL -[iirb7] NO3mHNO3 + M + Hp_4H2O -> 4*H2O + M + 2*HNO3 -[iirb8] Hp_5H2O + M + NO3mHNO3 -> M + 5*H2O + 2*HNO3 -[iirb9] M + CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + H + M + O -[nir1] NO + O3m -> O + NO3m -[nir10] NO2m_H2O + M -> H2O + NO2m + M -[nir11] NO3m2H2O + M -> M + NO3m_H2O + H2O -[nir12] NO3mHNO3 + M -> NO3m + HNO3 + M -[nir13] HCL + M + NO3m -> NO3m_HCL + M -[nir2] NO2 + O3m -> NO3m + O2 -[nir3] NO2 + O3m -> NO2m + O3 -[nir4] NO + O3m -> NO2m + O2 -[nir5] CO3m + NO -> CO2 + NO2m -[nir6] CO3m + NO2 -> NO3m + CO2 -[nir7] M + NO3m_H2O -> M + H2O + NO3m -[nir8] CO3m_H2O + M -> CO3m + M + H2O -[nir9] CO3m2H2O + M -> CO3m_H2O + H2O + M -[NO2m_CL] CL + NO2m -> CLm + NO2 ; 1e-10 -[NO2m_CLO] CLO + NO2m -> CLm + NO3 ; 1e-10 -[NO2m_H] H + NO2m -> NO + OHm ; 3e-10 -[NO2m_H2O_M] NO2m + H2O + M -> M + NO2m_H2O ; 1.6e-28 -[NO2m_HCL] HCL + NO2m -> CLm + HONO ; 1.4e-09 -[NO2m_HNO3] HNO3 + NO2m -> NO3m + HONO ; 1.6e-09 -[NO2m_NO2] NO2 + NO2m -> NO + NO3m ; 2e-13 -[NO2m_O3] NO2m + O3 -> NO3m + O2 ; 1.2e-10 -[NO3m2H2O_N2O5] NO3m2H2O + N2O5 -> H2O + HNO3 + NO3mHNO3 ; 7e-10 -[NO3mH2O_H2O_M] NO3m_H2O + H2O + M -> M + NO3m2H2O ; 1.6e-28 -[NO3mH2O_HNO3] HNO3 + NO3m_H2O -> H2O + NO3mHNO3 ; 1.6e-09 -[NO3m_H2O_M] H2O + M + NO3m -> M + NO3m_H2O ; 1.6e-28 -[NO3mH2O_N2O5] NO3m_H2O + N2O5 -> HNO3 + NO3mHNO3 ; 7e-10 -[NO3m_HCLa] HCL + NO3m -> CLm + HNO3 ; 1e-12 -[NO3mHCL_HNO3] HNO3 + NO3m_HCL -> HCL + NO3mHNO3 ; 7.6e-10 -[NO3m_HNO3_M] NO3m + HNO3 + M -> M + NO3mHNO3 ; 1.45e-26 -[NO3m_O] NO3m + O -> NO2m + O2 ; 5e-12 -[NO3m_O3] O3 + NO3m -> NO2m + 2*O2 ; 1e-13 -[NOp2H2O_e] NOp_2H2O + e -> 2*H2O + NO ; 2e-06 -[NOp3H2O_e] NOp_3H2O + e -> 3*H2O + NO ; 2e-06 -[NOp3H2O_H2O] H2O + NOp_3H2O -> HONO + Hp_3H2O ; 7e-11 -[NOpCO2_e] NOp_CO2 + e -> CO2 + NO ; 1.5e-06 -[NOpCO2_H2O] NOp_CO2 + H2O -> CO2 + NOp_H2O ; 1e-09 -[NOpH2O_e] NOp_H2O + e -> H2O + NO ; 1.5e-06 -[NOpH2O_H] H + NOp_H2O -> NO + Hp_H2O ; 7e-12 -[NOpH2O_HO2] NOp_H2O + HO2 -> Hp_H2O + NO3 ; 5e-10 -[NOpH2O_OH] NOp_H2O + OH -> Hp_H2O + NO2 ; 1e-10 -[NOpN2_CO2] CO2 + NOp_N2 -> N2 + NOp_CO2 ; 1e-09 -[NOpN2_H2O] NOp_N2 + H2O -> N2 + NOp_H2O ; 1e-09 -[O2m_CL] O2m + CL -> CLm + O2 ; 1e-10 -[O2m_CLO] CLO + O2m -> CLOm + O2 ; 1e-10 -[O2m_CO2_M] CO2 + M + O2m -> CO4m + M ; 9.9e-30 -[O2m_H] H + O2m -> HO2 + e ; 1.4e-09 -[O2m_HCL] O2m + HCL -> CLm + HO2 ; 1.6e-09 -[O2m_HNO3] O2m + HNO3 -> HO2 + NO3m ; 2.9e-09 -[O2m_NO2] NO2 + O2m -> NO2m + O2 ; 7e-10 -[O2m_O21D] O2_1D + O2m -> 2*O2 + e ; 2e-10 -[O2m_O2_M] O2 + M + O2m -> M + O4m ; 3.4e-31 -[O2m_O3] O3 + O2m -> O2 + O3m ; 7.8e-10 -[O2m_O_a] O + O2m -> O3 + e ; 1.5e-10 -[O2m_O_b] O2m + O -> O2 + Om ; 1.5e-10 -[O2pH2O_e] O2p_H2O + e -> H2O + O2 ; 2e-06 -[O2pH2O_H2Oa] O2p_H2O + H2O -> H3Op_OH + O2 ; 9e-10 -[O2pH2O_H2Ob] O2p_H2O + H2O -> Hp_H2O + O2 + OH ; 2.4e-10 -[O2p_H2O_M] M + H2O + O2p -> M + O2p_H2O ; 2.8e-28 -[O3m_CO2] O3m + CO2 -> CO3m + O2 ; 5.5e-10 -[O3m_H] O3m + H -> O2 + OHm ; 8.4e-10 -[O3m_O3] O3 + O3m -> 3*O2 + e ; 1e-10 -[O3m_O_a] O3m + O -> 2*O2 + e ; 1e-10 -[O3m_O_b] O + O3m -> O2 + O2m ; 2.5e-10 -[O4m_CO2] CO2 + O4m -> CO4m + O2 ; 4.3e-10 -[O4m_O] O + O4m -> O3m + O2 ; 4e-10 -[O4p_H2O] H2O + O4p -> O2 + O2p_H2O ; 1.7e-09 -[O4p_O] O4p + O -> O2p + O3 ; 3e-10 -[O4p_O21D] O4p + O2_1D -> 2*O2 + O2p ; 1.5e-10 -[OH_HONO] HONO + OH -> H2O + NO2 ; 1.8e-11, 390 -[OHm_CL] CL + OHm -> CLm + OH ; 1e-10 -[OHm_CLO] CLO + OHm -> CLOm + OH ; 1e-10 -[OHm_CO2] CO2 + M + OHm -> M + HCO3m ; 7.6e-28 -[OHm_H] H + OHm -> e + H2O ; 1.4e-09 -[OHm_HCL] OHm + HCL -> CLm + H2O ; 1e-09 -[OHm_NO2] NO2 + OHm -> NO2m + OH ; 1.1e-09 -[OHm_O] OHm + O -> HO2 + e ; 2e-10 -[OHm_O3] OHm + O3 -> O3m + OH ; 9e-10 -[OH_NO_M] OH + NO + M -> HONO + M ; 7e-31, 2.6, 3.6e-11, 0.1, 0.6 -[Om_CL] Om + CL -> CLm + O ; 1e-10 -[Om_CLO] CLO + Om -> CLm + O2 ; 1e-10 -[Om_CO2_M] M + Om + CO2 -> CO3m + M ; 2e-28 -[Om_H2_a] H2 + Om -> H2O + e ; 5.8e-10 -[Om_H2_b] Om + H2 -> H + OHm ; 3.2e-11 -[Om_H2O] Om + H2O -> OHm + OH ; 6e-13 -[Om_HCL] Om + HCL -> CLm + OH ; 2e-09 -[Om_HNO3] Om + HNO3 -> NO3m + OH ; 3.6e-09 -[Om_M] M + Om -> O + M + e ; 5e-13 -[Om_NO2] NO2 + Om -> O + NO2m ; 1e-09 -[Om_O] Om + O -> e + O2 ; 1.9e-10 -[Om_O21D] Om + O2_1D -> O3 + e ; 3e-10 -[Om_O2_M] M + Om + O2 -> M + O3m ; 2.9e-31 -[Om_O3] O3 + Om -> O + O3m ; 8e-10 -[pir1] M + O2p + O2 -> M + O4p -[pir10] H2O + NOp + M -> M + NOp_H2O -[pir11] H2O + M + NOp_H2O -> M + NOp_2H2O -[pir12] H2O + NOp_2H2O + M -> M + NOp_3H2O -[pir13] NOp + CO2 + M -> M + NOp_CO2 -[pir14] NOp_CO2 + M -> M + NOp + CO2 -[pir15] N2 + M + NOp -> NOp_N2 + M -[pir16] NOp_N2 + M -> M + NOp + N2 -[pir2] M + Hp_H2O + H2O -> Hp_2H2O + M -[pir3] Hp_2H2O + M -> H2O + Hp_H2O + M -[pir4] H2O + Hp_2H2O + M -> Hp_3H2O + M -[pir5] Hp_3H2O + M -> M + Hp_2H2O + H2O -[pir6] Hp_3H2O + H2O + M -> M + Hp_4H2O -[pir7] Hp_4H2O + M -> H2O + M + Hp_3H2O -[pir8] Hp_4H2O + M + H2O -> Hp_5H2O + M -[pir9] M + Hp_5H2O -> M + H2O + Hp_4H2O -[rpe1] e + O4p -> 2*O2 -[rpe2] Hp_H2O + e -> H + H2O -[rpe3] Hp_2H2O + e -> 2*H2O + H -[rpe4] Hp_3H2O + e -> H + 3*H2O -[rpe5] e + NOp_N2 -> N2 + NO -[usr_CLm_H2O_M] CLm_H2O + M -> H2O + M + CLm -[usr_CLm_HCL_M] M + CLm_HCL -> CLm + HCL + M +[CLm_H] CLm + H -> HCL + e ; 9.6e-10 +[CLmH2O_HCL] CLm_H2O + HCL -> CLm_HCL + H2O ; 1.3e-09 +[CLm_H2O_Ma] CLm + H2O + M -> CLm_H2O + M ; 2e-29 +[CLmHCL_M] HCL + M + CLm -> CLm_HCL + M ; 1e-27 +[CLm_HNO3] CLm + HNO3 -> HCL + NO3m ; 1.6e-09 +[CLm_NO2] CLm + NO2 -> CL + NO2m ; 6e-12 +[CLOm_NOa] CLOm + NO -> CL + NO2m ; 2.9e-12 +[CLOm_NOb] CLOm + NO -> NO2 + CLm ; 2.9e-11 +[CLOm_O] CLOm + O -> CLm + O2 ; 2e-10 +[CO3m_CLa] CL + CO3m -> CLm + CO2 + O ; 1e-10 +[CO3m_CLb] CL + CO3m -> CLOm + CO2 ; 1e-10 +[CO3m_CLO] CLO + CO3m -> CLm + CO2 + O2 ; 1e-11 +[CO3m_H] H + CO3m -> CO2 + OHm ; 1.7e-10 +[CO3mH2O_H2O_M] CO3m_H2O + H2O + M -> CO3m2H2O + M ; 1e-28 +[CO3m_H2O_M] CO3m + H2O + M -> CO3m_H2O + M ; 1e-28 +[CO3mH2O_NO2a] CO3m_H2O + NO2 -> CO2 + H2O + NO3m ; 4e-11 +[CO3mH2O_NO2b] CO3m_H2O + NO2 -> CO2 + NO3m_H2O ; 4e-11 +[CO3mH2O_NOa] CO3m_H2O + NO -> CO2 + NO2m_H2O ; 3.5e-12 +[CO3mH2O_NOb] CO3m_H2O + NO -> CO2 + H2O + NO2m ; 3.5e-12 +[CO3m_HNO3] CO3m + HNO3 -> CO2 + NO3m + OH ; 3.51e-10 +[CO3m_O] CO3m + O -> CO2 + O2m ; 1.1e-10 +[CO3m_O2] O2 + CO3m -> CO2 + O3m ; 6e-15 +[CO4m_CL] CL + CO4m -> CLm + CO2 + O2 ; 1e-10 +[CO4m_CLO] CLO + CO4m -> CLOm + CO2 + O2 ; 1e-10 +[CO4m_H] CO4m + H -> CO3m + OH ; 2.2e-10 +[CO4m_HCL] CO4m + HCL -> CLm + CO2 + HO2 ; 1.2e-09 +[CO4m_O] CO4m + O -> CO3m + O2 ; 1.4e-10 +[CO4m_O3] CO4m + O3 -> CO2 + O2 + O3m ; 1.3e-10 +[ean1] e + O2 + N2 -> N2 + O2m +[ean2] O3 + e -> O2 + Om +[ean3] M + O2 + e -> M + O2m +[edn1] NO + Om -> e + NO2 +[edn2] N2 + O2m -> e + O2 + N2 +[H3OpOH_e] H3Op_OH + e -> H + H2O + OH ; 1.5e-06 +[H3OpOH_H2O] H2O + H3Op_OH -> Hp_2H2O + OH ; 2e-09 +[Hp3N1_H2O] H2O + Hp_3N1 -> HNO3 + Hp_4H2O ; 1e-09 +[Hp4H2O_e] Hp_4H2O + e -> H + 4*H2O ; 3.6e-06 +[Hp4H2O_N2O5] Hp_4H2O + N2O5 -> HNO3 + Hp_3N1 ; 4e-12 +[Hp4N1_H2O] H2O + Hp_4N1 -> HNO3 + Hp_5H2O ; 1e-09 +[Hp5H2O_e] Hp_5H2O + e -> H + 5*H2O ; 5e-06 +[Hp5H2O_N2O5] Hp_5H2O + N2O5 -> HNO3 + Hp_4N1 ; 7e-12 +[iira1] Hp_4H2O + NO3mHNO3 -> 4*H2O + 2*HNO3 +[iira10] CLm + Hp_4H2O -> CL + H + 4*H2O +[iira100] NO3m + O2p -> NO3 + O2 +[iira101] HCO3m + O2p -> CO2 + O2 + OH +[iira102] O2m + O2p -> 2*O2p +[iira103] CO4m + O2p -> CO2 + O2 + O2 +[iira104] NO3m_H2O + O2p -> H2O + NO3 + O2 +[iira105] CO3m2H2O + O2p -> CO2 + 2*H2O + O + O2 +[iira106] CLm + O2p -> CL + O2 +[iira107] CO3m_H2O + O2p -> H2O + O + O2 + CO2 +[iira108] NO2m_H2O + O2p -> H2O + NO2 + O2 +[iira109] NO3m_HCL + O2p -> HCL + NO3 + O2 +[iira11] CO3m_H2O + Hp_4H2O -> CO2 + 5*H2O + O + H +[iira110] O2p + CLm_H2O -> CL + H2O + O2 +[iira111] NO3m2H2O + O2p -> 2*H2O + NO3 + O2 +[iira112] NO2m + O2p -> NO2 + O2 +[iira12] Hp_4H2O + NO2m_H2O -> H + 5*H2O + NO2 +[iira13] Hp_4H2O + NO3m_HCL -> H + 4*H2O + NO3 + HCL +[iira14] CLm_H2O + Hp_4H2O -> H + CL + 5*H2O +[iira15] NO3m2H2O + Hp_4H2O -> H + 6*H2O + NO3 +[iira16] Hp_4H2O + NO2m -> H + NO2 + 4*H2O +[iira17] Hp_5H2O + NO3mHNO3 -> 5*H2O + 2*HNO3 +[iira18] CO3m + Hp_5H2O -> CO2 + 5*H2O + O + H +[iira19] CLm_HCL + Hp_5H2O -> CL + H + 5*H2O + HCL +[iira2] CO3m + Hp_4H2O -> CO2 + H + 4*H2O + O +[iira20] NO3m + Hp_5H2O -> 5*H2O + HNO3 +[iira21] HCO3m + Hp_5H2O -> CO2 + H + 5*H2O + OH +[iira22] Hp_5H2O + O2m -> H + 5*H2O + O2 +[iira23] CO4m + Hp_5H2O -> CO2 + 5*H2O + O2 + H +[iira24] Hp_5H2O + NO3m_H2O -> H + 6*H2O + NO3 +[iira25] CO3m2H2O + Hp_5H2O -> H + CO2 + 7*H2O + O +[iira26] CLm + Hp_5H2O -> CL + H + 5*H2O +[iira27] CO3m_H2O + Hp_5H2O -> CO2 + H + 6*H2O + O +[iira28] NO2m_H2O + Hp_5H2O -> H + 6*H2O + NO2 +[iira29] Hp_5H2O + NO3m_HCL -> H + 5*H2O + HCL + NO3 +[iira3] CLm_HCL + Hp_4H2O -> CL + H + HCL + 4*H2O +[iira30] CLm_H2O + Hp_5H2O -> CL + H + 6*H2O +[iira31] Hp_5H2O + NO3m2H2O -> H + 7*H2O + NO3 +[iira32] Hp_5H2O + NO2m -> 5*H2O + NO2 + H +[iira33] Hp_3H2O + NO3mHNO3 -> 3*H2O + 2*HNO3 +[iira34] Hp_3H2O + CO3m -> CO2 + H + 3*H2O + O +[iira35] CLm_HCL + Hp_3H2O -> CL + H + 3*H2O + HCL +[iira36] Hp_3H2O + NO3m -> 3*H2O + HNO3 +[iira37] HCO3m + Hp_3H2O -> CO2 + H + 3*H2O + OH +[iira38] Hp_3H2O + O2m -> H + 3*H2O + O2 +[iira39] CO4m + Hp_3H2O -> CO2 + H + 3*H2O + O2 +[iira4] Hp_4H2O + NO3m -> 4*H2O + HNO3 +[iira40] Hp_3H2O + NO3m_H2O -> H + 4*H2O + NO3 +[iira41] CO3m2H2O + Hp_3H2O -> CO2 + H + 5*H2O + O +[iira42] CLm + Hp_3H2O -> CL + H + 3*H2O +[iira43] CO3m_H2O + Hp_3H2O -> CO2 + H + O + 4*H2O +[iira44] Hp_3H2O + NO2m_H2O -> H + 4*H2O + NO2 +[iira45] Hp_3H2O + NO3m_HCL -> H + 3*H2O + HCL + NO3 +[iira46] CLm_H2O + Hp_3H2O -> H + 4*H2O + CL +[iira47] Hp_3H2O + NO3m2H2O -> H + 5*H2O + NO3 +[iira48] Hp_3H2O + NO2m -> H + 3*H2O + NO2 +[iira49] NO3mHNO3 + NOp_H2O -> H2O + HNO3 + NO + NO3 +[iira5] HCO3m + Hp_4H2O -> CO2 + H + 4*H2O + OH +[iira50] CO3m + NOp_H2O -> CO2 + H2O + NO + O +[iira51] CLm_HCL + NOp_H2O -> CL + NO + H2O + HCL +[iira52] NO3m + NOp_H2O -> H2O + NO + NO3 +[iira53] HCO3m + NOp_H2O -> OH + CO2 + H2O + NO +[iira54] NOp_H2O + O2m -> H2O + NO + O2 +[iira55] CO4m + NOp_H2O -> O2 + NO + CO2 + H2O +[iira56] NO3m_H2O + NOp_H2O -> 2*H2O + NO + NO3 +[iira57] CO3m2H2O + NOp_H2O -> CO2 + 3*H2O + NO + O +[iira58] CLm + NOp_H2O -> CL + H2O + NO +[iira59] CO3m_H2O + NOp_H2O -> O + CO2 + 2*H2O + NO +[iira6] Hp_4H2O + O2m -> O2 + H + 4*H2O +[iira60] NO2m_H2O + NOp_H2O -> NO + 2*H2O + NO2 +[iira61] NO3m_HCL + NOp_H2O -> H2O + NO + NO3 + HCL +[iira62] CLm_H2O + NOp_H2O -> CL + 2*H2O + NO +[iira63] NO3m2H2O + NOp_H2O -> NO + NO3 + 3*H2O +[iira64] NO2m + NOp_H2O -> NO + H2O + NO2 +[iira65] NO3mHNO3 + NOp_2H2O -> 2*H2O + NO3 + HNO3 + NO +[iira66] CO3m + NOp_2H2O -> 2*H2O + NO + CO2 + O +[iira67] CLm_HCL + NOp_2H2O -> NO + CL + 2*H2O + HCL +[iira68] NOp_2H2O + NO3m -> NO + 2*H2O + NO3 +[iira69] HCO3m + NOp_2H2O -> 2*H2O + OH + NO + CO2 +[iira7] CO4m + Hp_4H2O -> 4*H2O + H + CO2 + O2 +[iira70] NOp_2H2O + O2m -> 2*H2O + NO + O2 +[iira71] NOp_2H2O + CO4m -> O2 + 2*H2O + NO + CO2 +[iira72] NO3m_H2O + NOp_2H2O -> 3*H2O + NO3 + NO +[iira73] CO3m2H2O + NOp_2H2O -> O + CO2 + 4*H2O + NO +[iira74] CLm + NOp_2H2O -> 2*H2O + NO + CL +[iira75] CO3m_H2O + NOp_2H2O -> 3*H2O + CO2 + NO + O +[iira76] NOp_2H2O + NO2m_H2O -> 3*H2O + NO + NO2 +[iira77] NO3m_HCL + NOp_2H2O -> NO + HCL + 2*H2O + NO3 +[iira78] NOp_2H2O + CLm_H2O -> NO + 3*H2O + CL +[iira79] NOp_2H2O + NO3m2H2O -> NO + NO3 + 4*H2O +[iira8] Hp_4H2O + NO3m_H2O -> H + 5*H2O + NO3 +[iira80] NOp_2H2O + NO2m -> 2*H2O + NO2 + NO +[iira81] NOp + NO3mHNO3 -> NO + HNO3 + NO3 +[iira82] NOp + CO3m -> CO2 + NO + O +[iira83] NOp + CLm_HCL -> CL + HCL + NO +[iira84] NO3m + NOp -> NO3 + NO +[iira85] NOp + HCO3m -> NO + CO2 + OH +[iira86] O2m + NOp -> NO + O2 +[iira87] NOp + CO4m -> CO2 + NO + O2 +[iira88] NOp + NO3m_H2O -> H2O + NO + NO3 +[iira89] NOp + CO3m2H2O -> NO + O + CO2 + 2*H2O +[iira9] CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + O + H +[iira90] CLm + NOp -> CL + NO +[iira91] CO3m_H2O + NOp -> H2O + NO + O + CO2 +[iira92] NO2m_H2O + NOp -> NO + NO2 + H2O +[iira93] NO3m_HCL + NOp -> NO + HCL + NO3 +[iira94] CLm_H2O + NOp -> CL + NO + H2O +[iira95] NOp + NO3m2H2O -> 2*H2O + NO + NO3 +[iira96] NOp + NO2m -> NO2 + NO +[iira97] NO3mHNO3 + O2p -> O2 + NO3 + HNO3 +[iira98] O2p + CO3m -> O + O2 + CO2 +[iira99] O2p + CLm_HCL -> O2 + HCL + CL +[iirb1] Hp_4H2O + CO3m + M -> 4*H2O + O + CO2 + H + M +[iirb10] Hp_5H2O + M + CO3m2H2O -> H + 7*H2O + M + CO2 + O +[iirb11] M + CO3m_H2O + Hp_4H2O -> 5*H2O + M + H + CO2 + O +[iirb12] Hp_5H2O + M + CO3m_H2O -> CO2 + M + O + H + 6*H2O +[iirb13] NO3m_H2O + Hp_4H2O + M -> M + NO3 + H + 5*H2O +[iirb14] NO3m_H2O + Hp_5H2O + M -> M + NO3 + H + 6*H2O +[iirb2] NO3m + M + Hp_4H2O -> 4*H2O + HNO3 + M +[iirb3] Hp_5H2O + M + CO3m -> 5*H2O + M + CO2 + O + H +[iirb4] Hp_5H2O + NO3m + M -> M + HNO3 + 5*H2O +[iirb5] M + CLm_HCL + Hp_4H2O -> M + 2*HCL + 4*H2O +[iirb6] M + Hp_5H2O + CLm_HCL -> M + 5*H2O + 2*HCL +[iirb7] NO3mHNO3 + M + Hp_4H2O -> 4*H2O + M + 2*HNO3 +[iirb8] Hp_5H2O + M + NO3mHNO3 -> M + 5*H2O + 2*HNO3 +[iirb9] M + CO3m2H2O + Hp_4H2O -> CO2 + 6*H2O + H + M + O +[nir1] NO + O3m -> O + NO3m +[nir10] NO2m_H2O + M -> H2O + NO2m + M +[nir11] NO3m2H2O + M -> M + NO3m_H2O + H2O +[nir12] NO3mHNO3 + M -> NO3m + HNO3 + M +[nir13] HCL + M + NO3m -> NO3m_HCL + M +[nir2] NO2 + O3m -> NO3m + O2 +[nir3] NO2 + O3m -> NO2m + O3 +[nir4] NO + O3m -> NO2m + O2 +[nir5] CO3m + NO -> CO2 + NO2m +[nir6] CO3m + NO2 -> NO3m + CO2 +[nir7] M + NO3m_H2O -> M + H2O + NO3m +[nir8] CO3m_H2O + M -> CO3m + M + H2O +[nir9] CO3m2H2O + M -> CO3m_H2O + H2O + M +[NO2m_CL] CL + NO2m -> CLm + NO2 ; 1e-10 +[NO2m_CLO] CLO + NO2m -> CLm + NO3 ; 1e-10 +[NO2m_H] H + NO2m -> NO + OHm ; 3e-10 +[NO2m_H2O_M] NO2m + H2O + M -> M + NO2m_H2O ; 1.6e-28 +[NO2m_HCL] HCL + NO2m -> CLm + HONO ; 1.4e-09 +[NO2m_HNO3] HNO3 + NO2m -> NO3m + HONO ; 1.6e-09 +[NO2m_NO2] NO2 + NO2m -> NO + NO3m ; 2e-13 +[NO2m_O3] NO2m + O3 -> NO3m + O2 ; 1.2e-10 +[NO3m2H2O_N2O5] NO3m2H2O + N2O5 -> H2O + HNO3 + NO3mHNO3 ; 7e-10 +[NO3mH2O_H2O_M] NO3m_H2O + H2O + M -> M + NO3m2H2O ; 1.6e-28 +[NO3mH2O_HNO3] HNO3 + NO3m_H2O -> H2O + NO3mHNO3 ; 1.6e-09 +[NO3m_H2O_M] H2O + M + NO3m -> M + NO3m_H2O ; 1.6e-28 +[NO3mH2O_N2O5] NO3m_H2O + N2O5 -> HNO3 + NO3mHNO3 ; 7e-10 +[NO3m_HCLa] HCL + NO3m -> CLm + HNO3 ; 1e-12 +[NO3mHCL_HNO3] HNO3 + NO3m_HCL -> HCL + NO3mHNO3 ; 7.6e-10 +[NO3m_HNO3_M] NO3m + HNO3 + M -> M + NO3mHNO3 ; 1.45e-26 +[NO3m_O] NO3m + O -> NO2m + O2 ; 5e-12 +[NO3m_O3] O3 + NO3m -> NO2m + 2*O2 ; 1e-13 +[NOp2H2O_e] NOp_2H2O + e -> 2*H2O + NO ; 2e-06 +[NOp3H2O_e] NOp_3H2O + e -> 3*H2O + NO ; 2e-06 +[NOp3H2O_H2O] H2O + NOp_3H2O -> HONO + Hp_3H2O ; 7e-11 +[NOpCO2_e] NOp_CO2 + e -> CO2 + NO ; 1.5e-06 +[NOpCO2_H2O] NOp_CO2 + H2O -> CO2 + NOp_H2O ; 1e-09 +[NOpH2O_e] NOp_H2O + e -> H2O + NO ; 1.5e-06 +[NOpH2O_H] H + NOp_H2O -> NO + Hp_H2O ; 7e-12 +[NOpH2O_HO2] NOp_H2O + HO2 -> Hp_H2O + NO3 ; 5e-10 +[NOpH2O_OH] NOp_H2O + OH -> Hp_H2O + NO2 ; 1e-10 +[NOpN2_CO2] CO2 + NOp_N2 -> N2 + NOp_CO2 ; 1e-09 +[NOpN2_H2O] NOp_N2 + H2O -> N2 + NOp_H2O ; 1e-09 +[O2m_CL] O2m + CL -> CLm + O2 ; 1e-10 +[O2m_CLO] CLO + O2m -> CLOm + O2 ; 1e-10 +[O2m_CO2_M] CO2 + M + O2m -> CO4m + M ; 9.9e-30 +[O2m_H] H + O2m -> HO2 + e ; 1.4e-09 +[O2m_HCL] O2m + HCL -> CLm + HO2 ; 1.6e-09 +[O2m_HNO3] O2m + HNO3 -> HO2 + NO3m ; 2.9e-09 +[O2m_NO2] NO2 + O2m -> NO2m + O2 ; 7e-10 +[O2m_O21D] O2_1D + O2m -> 2*O2 + e ; 2e-10 +[O2m_O2_M] O2 + M + O2m -> M + O4m ; 3.4e-31 +[O2m_O3] O3 + O2m -> O2 + O3m ; 7.8e-10 +[O2m_O_a] O + O2m -> O3 + e ; 1.5e-10 +[O2m_O_b] O2m + O -> O2 + Om ; 1.5e-10 +[O2pH2O_e] O2p_H2O + e -> H2O + O2 ; 2e-06 +[O2pH2O_H2Oa] O2p_H2O + H2O -> H3Op_OH + O2 ; 9e-10 +[O2pH2O_H2Ob] O2p_H2O + H2O -> Hp_H2O + O2 + OH ; 2.4e-10 +[O2p_H2O_M] M + H2O + O2p -> M + O2p_H2O ; 2.8e-28 +[O3m_CO2] O3m + CO2 -> CO3m + O2 ; 5.5e-10 +[O3m_H] O3m + H -> O2 + OHm ; 8.4e-10 +[O3m_O3] O3 + O3m -> 3*O2 + e ; 1e-10 +[O3m_O_a] O3m + O -> 2*O2 + e ; 1e-10 +[O3m_O_b] O + O3m -> O2 + O2m ; 2.5e-10 +[O4m_CO2] CO2 + O4m -> CO4m + O2 ; 4.3e-10 +[O4m_O] O + O4m -> O3m + O2 ; 4e-10 +[O4p_H2O] H2O + O4p -> O2 + O2p_H2O ; 1.7e-09 +[O4p_O] O4p + O -> O2p + O3 ; 3e-10 +[O4p_O21D] O4p + O2_1D -> 2*O2 + O2p ; 1.5e-10 +[OH_HONO] HONO + OH -> H2O + NO2 ; 1.8e-11, 390 +[OHm_CL] CL + OHm -> CLm + OH ; 1e-10 +[OHm_CLO] CLO + OHm -> CLOm + OH ; 1e-10 +[OHm_CO2] CO2 + M + OHm -> M + HCO3m ; 7.6e-28 +[OHm_H] H + OHm -> e + H2O ; 1.4e-09 +[OHm_HCL] OHm + HCL -> CLm + H2O ; 1e-09 +[OHm_NO2] NO2 + OHm -> NO2m + OH ; 1.1e-09 +[OHm_O] OHm + O -> HO2 + e ; 2e-10 +[OHm_O3] OHm + O3 -> O3m + OH ; 9e-10 +[OH_NO_M] OH + NO + M -> HONO + M ; 7e-31, 2.6, 3.6e-11, 0.1, 0.6 +[Om_CL] Om + CL -> CLm + O ; 1e-10 +[Om_CLO] CLO + Om -> CLm + O2 ; 1e-10 +[Om_CO2_M] M + Om + CO2 -> CO3m + M ; 2e-28 +[Om_H2_a] H2 + Om -> H2O + e ; 5.8e-10 +[Om_H2_b] Om + H2 -> H + OHm ; 3.2e-11 +[Om_H2O] Om + H2O -> OHm + OH ; 6e-13 +[Om_HCL] Om + HCL -> CLm + OH ; 2e-09 +[Om_HNO3] Om + HNO3 -> NO3m + OH ; 3.6e-09 +[Om_M] M + Om -> O + M + e ; 5e-13 +[Om_NO2] NO2 + Om -> O + NO2m ; 1e-09 +[Om_O] Om + O -> e + O2 ; 1.9e-10 +[Om_O21D] Om + O2_1D -> O3 + e ; 3e-10 +[Om_O2_M] M + Om + O2 -> M + O3m ; 2.9e-31 +[Om_O3] O3 + Om -> O + O3m ; 8e-10 +[pir1] M + O2p + O2 -> M + O4p +[pir10] H2O + NOp + M -> M + NOp_H2O +[pir11] H2O + M + NOp_H2O -> M + NOp_2H2O +[pir12] H2O + NOp_2H2O + M -> M + NOp_3H2O +[pir13] NOp + CO2 + M -> M + NOp_CO2 +[pir14] NOp_CO2 + M -> M + NOp + CO2 +[pir15] N2 + M + NOp -> NOp_N2 + M +[pir16] NOp_N2 + M -> M + NOp + N2 +[pir2] M + Hp_H2O + H2O -> Hp_2H2O + M +[pir3] Hp_2H2O + M -> H2O + Hp_H2O + M +[pir4] H2O + Hp_2H2O + M -> Hp_3H2O + M +[pir5] Hp_3H2O + M -> M + Hp_2H2O + H2O +[pir6] Hp_3H2O + H2O + M -> M + Hp_4H2O +[pir7] Hp_4H2O + M -> H2O + M + Hp_3H2O +[pir8] Hp_4H2O + M + H2O -> Hp_5H2O + M +[pir9] M + Hp_5H2O -> M + H2O + Hp_4H2O +[rpe1] e + O4p -> 2*O2 +[rpe2] Hp_H2O + e -> H + H2O +[rpe3] Hp_2H2O + e -> 2*H2O + H +[rpe4] Hp_3H2O + e -> H + 3*H2O +[rpe5] e + NOp_N2 -> N2 + NO +[usr_CLm_H2O_M] CLm_H2O + M -> H2O + M + CLm +[usr_CLm_HCL_M] M + CLm_HCL -> CLm + HCL + M ********************************* *** 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 -[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 +[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 ; 4.4e-32, 1.3, 7.5e-11, -0.2, 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 ; 4.4e-32, 1.3, 7.5e-11, -0.2, 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 ; 1.3e-12, 380 -[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 ; 1.5e-11, -3600 -[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.5e-11, 170 -[NO3_O] NO3 + O -> NO2 + O2 ; 1e-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.3e-12, 270 -[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 +[HO2NO2_OH] HO2NO2 + OH -> H2O + NO2 + O2 ; 1.3e-12, 380 +[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 ; 1.5e-11, -3600 +[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.5e-11, 170 +[NO3_O] NO3 + O -> NO2 + O2 ; 1e-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.3e-12, 270 +[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 ********************************* *** 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, -1100 -[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, -1100 +[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_HO2] CH3O2 + HO2 -> CH3OOH + O2 ; 4.1e-13, 750 -[CH3O2_NO] CH3O2 + NO -> CH2O + NO2 + HO2 ; 2.8e-12, 300 -[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 -[CO_OH_M] CO + OH + M -> CO2 + HO2 + M ; 5.9e-33, 1, 1.1e-12, -1.3, 0.6 -[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_b] CO + OH -> CO2 + H +[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_HO2] CH3O2 + HO2 -> CH3OOH + O2 ; 4.1e-13, 750 +[CH3O2_NO] CH3O2 + NO -> CH2O + NO2 + HO2 ; 2.8e-12, 300 +[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 +[CO_OH_M] CO + OH + M -> CO2 + HO2 + M ; 5.9e-33, 1, 1.1e-12, -1.3, 0.6 +[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_b] CO + OH -> CO2 + H ********************************* *** Sulfur ********************************* -[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 -[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.7e-11, 335 -[usr_SO2_OH] SO2 + OH -> SO3 + HO2 -[usr_SO3_H2O] SO3 + H2O -> H2SO4 +[DMS_NO3] DMS + NO3 -> SO2 + HNO3 ; 1.9e-13, 520 +[DMS_OHa] DMS + OH -> SO2 ; 9.6e-12, -234 +[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 +[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.7e-11, 335 +[usr_DMS_OH] DMS + OH -> 0.5*SO2 + 0.5*HO2 +[usr_SO2_OH] SO2 + OH -> SO3 + HO2 +[usr_SO3_H2O] SO3 + H2O -> H2SO4 ********************************* *** Tropospheric Aerosol ********************************* -[DMS_NO3] DMS + NO3 -> SO2 + HNO3 ; 1.9e-13, 520 -[DMS_OHa] DMS + OH -> SO2 ; 9.6e-12, -234 -[usr_DMS_OH] DMS + OH -> 0.5*SO2 + 0.5*HO2 -[usr_HO2_aer] HO2 -> 0.5*H2O2 -[usr_N2O5_aer] N2O5 -> 2*HNO3 -[usr_NO2_aer] NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 -[usr_NO3_aer] NO3 -> HNO3 +[usr_HO2_aer] HO2 -> 0.5*H2O2 +[usr_N2O5_aer] N2O5 -> 2*HNO3 +[usr_NO2_aer] NO2 -> 0.5*OH + 0.5*NO + 0.5*HNO3 +[usr_NO3_aer] NO3 -> HNO3 ********************************* *** 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 - so4_a2 <- dataset - DMS <- dataset - NO2 <- dataset - SO2 <- dataset - bc_a1 <- dataset - bc_a4 <- dataset - num_a1 <- dataset - num_a2 <- dataset - num_a4 <- dataset - pom_a1 <- dataset - pom_a4 <- dataset - so4_a1 <- dataset - CO <- dataset - NO <- dataset - N - N2D - N2p - OH - Op - e - Np - O - O2p + so4_a2 <- dataset + DMS <- dataset + NO2 <- dataset + SO2 <- dataset + bc_a1 <- dataset + bc_a4 <- dataset + num_a1 <- dataset + num_a2 <- dataset + num_a4 <- dataset + pom_a1 <- dataset + pom_a4 <- dataset + so4_a1 <- dataset + CO <- dataset + NO <- dataset + N + N2D + N2p + OH + Op + e + Np + O + O2p End Ext Forcing End Chemistry @@ -1067,13 +1065,11 @@ SIMULATION PARAMETERS Version Options - machine = nec + machine = intel model = cam - model_architecture = VECTOR - vector_length = 32 + model_architecture = SCALAR architecture = hybrid namemod = on End Version Options - End Simulation Parameters diff --git a/src/chemistry/pp_waccm_mad_mam4/chem_mods.F90 b/src/chemistry/pp_waccm_mad_mam4/chem_mods.F90 index d64fbb509c..2156777ed9 100644 --- a/src/chemistry/pp_waccm_mad_mam4/chem_mods.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/chem_mods.F90 @@ -25,7 +25,7 @@ module chem_mods clsze = 1, & ! loop length for implicit chemistry rxt_tag_cnt = 607, & enthalpy_cnt = 54, & - nslvd = 52 + nslvd = 50 integer :: clscnt(5) = 0 integer :: cls_rxt_cnt(4,5) = 0 integer :: clsmap(gas_pcnst,5) = 0 @@ -47,5 +47,4 @@ module chem_mods logical :: is_vector logical :: is_scalar character(len=16) :: slvd_lst(max(1,nslvd)) - integer, parameter :: veclen = 32 end module chem_mods diff --git a/src/chemistry/pp_waccm_mad_mam4/m_rxt_id.F90 b/src/chemistry/pp_waccm_mad_mam4/m_rxt_id.F90 index b5a9a3f766..063462832c 100644 --- a/src/chemistry/pp_waccm_mad_mam4/m_rxt_id.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/m_rxt_id.F90 @@ -541,23 +541,23 @@ module m_rxt_id integer, parameter :: rid_O1D_CH4b = 539 integer, parameter :: rid_O1D_CH4c = 540 integer, parameter :: rid_usr_CO_OH_b = 541 - integer, parameter :: rid_OCS_O = 542 - integer, parameter :: rid_OCS_OH = 543 - integer, parameter :: rid_S_O2 = 544 - integer, parameter :: rid_S_O3 = 545 - integer, parameter :: rid_SO_BRO = 546 - integer, parameter :: rid_SO_CLO = 547 - integer, parameter :: rid_S_OH = 548 - integer, parameter :: rid_SO_NO2 = 549 - integer, parameter :: rid_SO_O2 = 550 - integer, parameter :: rid_SO_O3 = 551 - integer, parameter :: rid_SO_OCLO = 552 - integer, parameter :: rid_SO_OH = 553 - integer, parameter :: rid_usr_SO2_OH = 554 - integer, parameter :: rid_usr_SO3_H2O = 555 - integer, parameter :: rid_DMS_NO3 = 556 - integer, parameter :: rid_DMS_OHa = 557 - integer, parameter :: rid_usr_DMS_OH = 558 + integer, parameter :: rid_DMS_NO3 = 542 + integer, parameter :: rid_DMS_OHa = 543 + integer, parameter :: rid_OCS_O = 544 + integer, parameter :: rid_OCS_OH = 545 + integer, parameter :: rid_S_O2 = 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_SO2_OH = 557 + integer, parameter :: rid_usr_SO3_H2O = 558 integer, parameter :: rid_usr_HO2_aer = 559 integer, parameter :: rid_usr_N2O5_aer = 560 integer, parameter :: rid_usr_NO2_aer = 561 diff --git a/src/chemistry/pp_waccm_mad_mam4/m_spc_id.F90 b/src/chemistry/pp_waccm_mad_mam4/m_spc_id.F90 index 1b440e4e28..64f1a68583 100644 --- a/src/chemistry/pp_waccm_mad_mam4/m_spc_id.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/m_spc_id.F90 @@ -2,126 +2,126 @@ module m_spc_id implicit none integer, parameter :: id_bc_a1 = 1 integer, parameter :: id_bc_a4 = 2 - integer, parameter :: id_BRCL = 3 - integer, parameter :: id_BRO = 4 - integer, parameter :: id_BRONO2 = 5 - integer, parameter :: id_BRY = 6 - integer, parameter :: id_CCL4 = 7 - integer, parameter :: id_CF2CLBR = 8 - integer, parameter :: id_CF3BR = 9 - integer, parameter :: id_CFC11 = 10 - integer, parameter :: id_CFC113 = 11 - integer, parameter :: id_CFC114 = 12 - integer, parameter :: id_CFC115 = 13 - integer, parameter :: id_CFC12 = 14 - integer, parameter :: id_CH2BR2 = 15 - integer, parameter :: id_CH2O = 16 - integer, parameter :: id_CH3BR = 17 - integer, parameter :: id_CH3CCL3 = 18 - integer, parameter :: id_CH3CL = 19 - integer, parameter :: id_CH3O2 = 20 - integer, parameter :: id_CH3OOH = 21 - integer, parameter :: id_CH4 = 22 - integer, parameter :: id_CHBR3 = 23 - integer, parameter :: id_CL2 = 24 - integer, parameter :: id_CL2O2 = 25 - integer, parameter :: id_CLO = 26 - integer, parameter :: id_CLONO2 = 27 - integer, parameter :: id_CLY = 28 - integer, parameter :: id_CO = 29 - integer, parameter :: id_CO2 = 30 - integer, parameter :: id_COF2 = 31 - integer, parameter :: id_COFCL = 32 - integer, parameter :: id_DMS = 33 - integer, parameter :: id_dst_a1 = 34 - integer, parameter :: id_dst_a2 = 35 - integer, parameter :: id_dst_a3 = 36 - integer, parameter :: id_F = 37 - integer, parameter :: id_H = 38 - integer, parameter :: id_H2 = 39 - integer, parameter :: id_H2402 = 40 - integer, parameter :: id_H2O2 = 41 - integer, parameter :: id_H2SO4 = 42 - integer, parameter :: id_HBR = 43 - integer, parameter :: id_HCFC141B = 44 - integer, parameter :: id_HCFC142B = 45 - integer, parameter :: id_HCFC22 = 46 - integer, parameter :: id_HCL = 47 - integer, parameter :: id_HF = 48 - integer, parameter :: id_HNO3 = 49 - integer, parameter :: id_HO2NO2 = 50 - integer, parameter :: id_HOBR = 51 - integer, parameter :: id_HOCL = 52 - integer, parameter :: id_HONO = 53 - integer, parameter :: id_N = 54 - integer, parameter :: id_N2O = 55 - integer, parameter :: id_N2O5 = 56 - integer, parameter :: id_ncl_a1 = 57 - integer, parameter :: id_ncl_a2 = 58 - integer, parameter :: id_ncl_a3 = 59 - integer, parameter :: id_NO = 60 - integer, parameter :: id_NO2 = 61 - integer, parameter :: id_NO3 = 62 - integer, parameter :: id_num_a1 = 63 - integer, parameter :: id_num_a2 = 64 - integer, parameter :: id_num_a3 = 65 - integer, parameter :: id_num_a4 = 66 - integer, parameter :: id_O = 67 - integer, parameter :: id_O2 = 68 - integer, parameter :: id_O3 = 69 - integer, parameter :: id_OCLO = 70 - integer, parameter :: id_OCS = 71 - integer, parameter :: id_pom_a1 = 72 - integer, parameter :: id_pom_a4 = 73 - integer, parameter :: id_S = 74 - integer, parameter :: id_SF6 = 75 - integer, parameter :: id_SO = 76 - integer, parameter :: id_SO2 = 77 - integer, parameter :: id_SO3 = 78 - integer, parameter :: id_so4_a1 = 79 - integer, parameter :: id_so4_a2 = 80 - integer, parameter :: id_so4_a3 = 81 - integer, parameter :: id_soa_a1 = 82 - integer, parameter :: id_soa_a2 = 83 - integer, parameter :: id_SOAG = 84 - integer, parameter :: id_BR = 85 - integer, parameter :: id_CL = 86 - integer, parameter :: id_CLm = 87 - integer, parameter :: id_CLm_H2O = 88 - integer, parameter :: id_CLm_HCL = 89 - integer, parameter :: id_CLOm = 90 - integer, parameter :: id_CO3m = 91 - integer, parameter :: id_CO3m2H2O = 92 - integer, parameter :: id_CO3m_H2O = 93 - integer, parameter :: id_CO4m = 94 - integer, parameter :: id_e = 95 - integer, parameter :: id_H3Op_OH = 96 - integer, parameter :: id_HCO3m = 97 - integer, parameter :: id_HO2 = 98 - integer, parameter :: id_Hp_2H2O = 99 - integer, parameter :: id_Hp_3H2O = 100 - integer, parameter :: id_Hp_3N1 = 101 - integer, parameter :: id_Hp_4H2O = 102 - integer, parameter :: id_Hp_4N1 = 103 - integer, parameter :: id_Hp_5H2O = 104 - integer, parameter :: id_Hp_H2O = 105 - integer, parameter :: id_N2D = 106 - integer, parameter :: id_N2p = 107 - integer, parameter :: id_NO2m = 108 - integer, parameter :: id_NO2m_H2O = 109 - integer, parameter :: id_NO3m = 110 - integer, parameter :: id_NO3m2H2O = 111 - integer, parameter :: id_NO3m_H2O = 112 - integer, parameter :: id_NO3m_HCL = 113 - integer, parameter :: id_NO3mHNO3 = 114 - integer, parameter :: id_NOp = 115 - integer, parameter :: id_NOp_2H2O = 116 - integer, parameter :: id_NOp_3H2O = 117 - integer, parameter :: id_NOp_CO2 = 118 - integer, parameter :: id_NOp_H2O = 119 - integer, parameter :: id_NOp_N2 = 120 - integer, parameter :: id_Np = 121 - integer, parameter :: id_O1D = 122 + integer, parameter :: id_BR = 3 + integer, parameter :: id_BRCL = 4 + integer, parameter :: id_BRO = 5 + integer, parameter :: id_BRONO2 = 6 + integer, parameter :: id_BRY = 7 + integer, parameter :: id_CCL4 = 8 + integer, parameter :: id_CF2CLBR = 9 + integer, parameter :: id_CF3BR = 10 + integer, parameter :: id_CFC11 = 11 + integer, parameter :: id_CFC113 = 12 + integer, parameter :: id_CFC114 = 13 + integer, parameter :: id_CFC115 = 14 + integer, parameter :: id_CFC12 = 15 + integer, parameter :: id_CH2BR2 = 16 + integer, parameter :: id_CH2O = 17 + integer, parameter :: id_CH3BR = 18 + integer, parameter :: id_CH3CCL3 = 19 + integer, parameter :: id_CH3CL = 20 + integer, parameter :: id_CH3O2 = 21 + integer, parameter :: id_CH3OOH = 22 + integer, parameter :: id_CH4 = 23 + integer, parameter :: id_CHBR3 = 24 + integer, parameter :: id_CL = 25 + integer, parameter :: id_CL2 = 26 + integer, parameter :: id_CL2O2 = 27 + integer, parameter :: id_CLO = 28 + integer, parameter :: id_CLONO2 = 29 + integer, parameter :: id_CLY = 30 + integer, parameter :: id_CO = 31 + integer, parameter :: id_CO2 = 32 + integer, parameter :: id_COF2 = 33 + integer, parameter :: id_COFCL = 34 + integer, parameter :: id_DMS = 35 + integer, parameter :: id_dst_a1 = 36 + integer, parameter :: id_dst_a2 = 37 + integer, parameter :: id_dst_a3 = 38 + integer, parameter :: id_F = 39 + integer, parameter :: id_H = 40 + integer, parameter :: id_H2 = 41 + integer, parameter :: id_H2402 = 42 + integer, parameter :: id_H2O2 = 43 + integer, parameter :: id_H2SO4 = 44 + integer, parameter :: id_HBR = 45 + integer, parameter :: id_HCFC141B = 46 + integer, parameter :: id_HCFC142B = 47 + integer, parameter :: id_HCFC22 = 48 + integer, parameter :: id_HCL = 49 + integer, parameter :: id_HF = 50 + integer, parameter :: id_HNO3 = 51 + integer, parameter :: id_HO2NO2 = 52 + integer, parameter :: id_HOBR = 53 + integer, parameter :: id_HOCL = 54 + integer, parameter :: id_HONO = 55 + integer, parameter :: id_N = 56 + integer, parameter :: id_N2O = 57 + integer, parameter :: id_N2O5 = 58 + integer, parameter :: id_ncl_a1 = 59 + integer, parameter :: id_ncl_a2 = 60 + integer, parameter :: id_ncl_a3 = 61 + integer, parameter :: id_NO = 62 + integer, parameter :: id_NO2 = 63 + integer, parameter :: id_NO3 = 64 + integer, parameter :: id_num_a1 = 65 + integer, parameter :: id_num_a2 = 66 + integer, parameter :: id_num_a3 = 67 + integer, parameter :: id_num_a4 = 68 + integer, parameter :: id_O = 69 + integer, parameter :: id_O1D = 70 + integer, parameter :: id_O2 = 71 + integer, parameter :: id_O3 = 72 + integer, parameter :: id_OCLO = 73 + integer, parameter :: id_OCS = 74 + integer, parameter :: id_pom_a1 = 75 + integer, parameter :: id_pom_a4 = 76 + integer, parameter :: id_S = 77 + integer, parameter :: id_SF6 = 78 + integer, parameter :: id_SO = 79 + integer, parameter :: id_SO2 = 80 + integer, parameter :: id_SO3 = 81 + integer, parameter :: id_so4_a1 = 82 + integer, parameter :: id_so4_a2 = 83 + integer, parameter :: id_so4_a3 = 84 + integer, parameter :: id_soa_a1 = 85 + integer, parameter :: id_soa_a2 = 86 + integer, parameter :: id_SOAG = 87 + integer, parameter :: id_CLm = 88 + integer, parameter :: id_CLm_H2O = 89 + integer, parameter :: id_CLm_HCL = 90 + integer, parameter :: id_CLOm = 91 + integer, parameter :: id_CO3m = 92 + integer, parameter :: id_CO3m2H2O = 93 + integer, parameter :: id_CO3m_H2O = 94 + integer, parameter :: id_CO4m = 95 + integer, parameter :: id_e = 96 + integer, parameter :: id_H3Op_OH = 97 + integer, parameter :: id_HCO3m = 98 + integer, parameter :: id_HO2 = 99 + integer, parameter :: id_Hp_2H2O = 100 + integer, parameter :: id_Hp_3H2O = 101 + integer, parameter :: id_Hp_3N1 = 102 + integer, parameter :: id_Hp_4H2O = 103 + integer, parameter :: id_Hp_4N1 = 104 + integer, parameter :: id_Hp_5H2O = 105 + integer, parameter :: id_Hp_H2O = 106 + integer, parameter :: id_N2D = 107 + integer, parameter :: id_N2p = 108 + integer, parameter :: id_NO2m = 109 + integer, parameter :: id_NO2m_H2O = 110 + integer, parameter :: id_NO3m = 111 + integer, parameter :: id_NO3m2H2O = 112 + integer, parameter :: id_NO3m_H2O = 113 + integer, parameter :: id_NO3m_HCL = 114 + integer, parameter :: id_NO3mHNO3 = 115 + integer, parameter :: id_NOp = 116 + integer, parameter :: id_NOp_2H2O = 117 + integer, parameter :: id_NOp_3H2O = 118 + integer, parameter :: id_NOp_CO2 = 119 + integer, parameter :: id_NOp_H2O = 120 + integer, parameter :: id_NOp_N2 = 121 + integer, parameter :: id_Np = 122 integer, parameter :: id_O2_1D = 123 integer, parameter :: id_O2_1S = 124 integer, parameter :: id_O2m = 125 diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 index 6fb7387436..272b731fe2 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_adjrxt.F90 @@ -13,544 +13,544 @@ subroutine adjrxt( rate, inv, m, ncol, nlev ) real(r8), intent(in) :: inv(ncol,nlev,nfs) real(r8), intent(in) :: m(ncol,nlev) real(r8), intent(inout) :: rate(ncol,nlev,rxntot) - rate(:,:,107) = rate(:,:,107) * inv(:,:, 1) - rate(:,:,108) = rate(:,:,108) * inv(:,:, 1) - rate(:,:,118) = rate(:,:,118) * inv(:,:, 1) - rate(:,:,119) = rate(:,:,119) * inv(:,:, 1) - rate(:,:,133) = rate(:,:,133) * inv(:,:, 2) - rate(:,:,135) = rate(:,:,135) * inv(:,:, 1) - rate(:,:,137) = rate(:,:,137) * inv(:,:, 2) - rate(:,:,258) = rate(:,:,258) * inv(:,:, 1) - rate(:,:,259) = rate(:,:,259) * inv(:,:, 1) - rate(:,:,260) = rate(:,:,260) * inv(:,:, 1) - rate(:,:,261) = rate(:,:,261) * inv(:,:, 1) - rate(:,:,262) = rate(:,:,262) * inv(:,:, 1) - rate(:,:,263) = rate(:,:,263) * inv(:,:, 1) - rate(:,:,264) = rate(:,:,264) * inv(:,:, 1) - rate(:,:,265) = rate(:,:,265) * inv(:,:, 1) - rate(:,:,266) = rate(:,:,266) * inv(:,:, 1) - rate(:,:,267) = rate(:,:,267) * inv(:,:, 1) - rate(:,:,268) = rate(:,:,268) * inv(:,:, 1) - rate(:,:,269) = rate(:,:,269) * inv(:,:, 1) - rate(:,:,270) = rate(:,:,270) * inv(:,:, 1) - rate(:,:,271) = rate(:,:,271) * inv(:,:, 1) - rate(:,:,273) = rate(:,:,273) * inv(:,:, 1) - rate(:,:,274) = rate(:,:,274) * inv(:,:, 1) - rate(:,:,275) = rate(:,:,275) * inv(:,:, 1) - rate(:,:,276) = rate(:,:,276) * inv(:,:, 1) - rate(:,:,282) = rate(:,:,282) * inv(:,:, 1) - rate(:,:,283) = rate(:,:,283) * inv(:,:, 1) - rate(:,:,284) = rate(:,:,284) * inv(:,:, 1) - rate(:,:,288) = rate(:,:,288) * inv(:,:, 1) - rate(:,:,294) = rate(:,:,294) * inv(:,:, 1) - rate(:,:,296) = rate(:,:,296) * inv(:,:, 1) - rate(:,:,300) = rate(:,:,300) * inv(:,:, 1) - rate(:,:,316) = rate(:,:,316) * inv(:,:, 1) - rate(:,:,322) = rate(:,:,322) * inv(:,:, 1) - rate(:,:,329) = rate(:,:,329) * inv(:,:, 1) - rate(:,:,343) = rate(:,:,343) * inv(:,:, 1) - rate(:,:,349) = rate(:,:,349) * inv(:,:, 1) - rate(:,:,352) = rate(:,:,352) * inv(:,:, 1) - rate(:,:,358) = rate(:,:,358) * inv(:,:, 1) - rate(:,:,362) = rate(:,:,362) * inv(:,:, 1) - rate(:,:,364) = rate(:,:,364) * inv(:,:, 1) - rate(:,:,365) = rate(:,:,365) * inv(:,:, 1) - rate(:,:,366) = rate(:,:,366) * inv(:,:, 1) - rate(:,:,367) = rate(:,:,367) * inv(:,:, 1) - rate(:,:,368) = rate(:,:,368) * inv(:,:, 1) - rate(:,:,369) = rate(:,:,369) * inv(:,:, 1) - rate(:,:,371) = rate(:,:,371) * inv(:,:, 1) - rate(:,:,372) = rate(:,:,372) * inv(:,:, 1) - rate(:,:,373) = rate(:,:,373) * inv(:,:, 1) - rate(:,:,374) = rate(:,:,374) * inv(:,:, 1) - rate(:,:,375) = rate(:,:,375) * inv(:,:, 1) - rate(:,:,376) = rate(:,:,376) * inv(:,:, 1) - rate(:,:,377) = rate(:,:,377) * inv(:,:, 1) - rate(:,:,378) = rate(:,:,378) * inv(:,:, 1) - rate(:,:,379) = rate(:,:,379) * inv(:,:, 1) - rate(:,:,385) = rate(:,:,385) * inv(:,:, 1) - rate(:,:,386) = rate(:,:,386) * inv(:,:, 1) - rate(:,:,391) = rate(:,:,391) * inv(:,:, 2) - rate(:,:,395) = rate(:,:,395) * inv(:,:, 2) - rate(:,:,399) = rate(:,:,399) * inv(:,:, 2) - rate(:,:,404) = rate(:,:,404) * inv(:,:, 1) - 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(:,:,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(:,:,537) = rate(:,:,537) * inv(:,:, 1) - rate(:,:,593) = rate(:,:,593) * inv(:,:, 2) - rate(:,:,596) = rate(:,:,596) * inv(:,:, 2) - rate(:,:,600) = rate(:,:,600) * inv(:,:, 2) - rate(:,:,605) = rate(:,:,605) * inv(:,:, 2) - rate(:,:,606) = rate(:,:,606) * inv(:,:, 2) - rate(:,:,370) = rate(:,:,370) * inv(:,:, 2) * inv(:,:, 1) - rate(:,:,105) = rate(:,:,105) * m(:,:) - rate(:,:,106) = rate(:,:,106) * m(:,:) - rate(:,:,107) = rate(:,:,107) * m(:,:) - rate(:,:,108) = rate(:,:,108) * m(:,:) - rate(:,:,109) = rate(:,:,109) * m(:,:) - rate(:,:,110) = rate(:,:,110) * m(:,:) - rate(:,:,111) = rate(:,:,111) * m(:,:) - rate(:,:,112) = rate(:,:,112) * m(:,:) - rate(:,:,113) = rate(:,:,113) * m(:,:) - rate(:,:,114) = rate(:,:,114) * m(:,:) - rate(:,:,115) = rate(:,:,115) * m(:,:) - rate(:,:,116) = rate(:,:,116) * m(:,:) - rate(:,:,117) = rate(:,:,117) * m(:,:) - rate(:,:,118) = rate(:,:,118) * m(:,:) - rate(:,:,119) = rate(:,:,119) * m(:,:) - rate(:,:,120) = rate(:,:,120) * m(:,:) - rate(:,:,121) = rate(:,:,121) * m(:,:) - rate(:,:,122) = rate(:,:,122) * m(:,:) - rate(:,:,123) = rate(:,:,123) * m(:,:) - rate(:,:,124) = rate(:,:,124) * m(:,:) - 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(:,:) - rate(:,:,132) = rate(:,:,132) * m(:,:) - rate(:,:,133) = rate(:,:,133) * m(:,:) - rate(:,:,134) = rate(:,:,134) * m(:,:) - rate(:,:,135) = rate(:,:,135) * m(:,:) - rate(:,:,136) = rate(:,:,136) * m(:,:) - rate(:,:,138) = rate(:,:,138) * m(:,:) - rate(:,:,139) = rate(:,:,139) * m(:,:) - rate(:,:,140) = rate(:,:,140) * m(:,:) - rate(:,:,141) = rate(:,:,141) * m(:,:) - rate(:,:,142) = rate(:,:,142) * m(:,:) - rate(:,:,143) = rate(:,:,143) * m(:,:) - rate(:,:,144) = rate(:,:,144) * m(:,:) - rate(:,:,145) = rate(:,:,145) * m(:,:) - rate(:,:,146) = rate(:,:,146) * m(:,:) - rate(:,:,147) = rate(:,:,147) * m(:,:) - rate(:,:,148) = rate(:,:,148) * m(:,:) - 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(:,:) - rate(:,:,156) = rate(:,:,156) * m(:,:) - rate(:,:,157) = rate(:,:,157) * m(:,:) - rate(:,:,158) = rate(:,:,158) * m(:,:) - rate(:,:,159) = rate(:,:,159) * m(:,:) - rate(:,:,160) = rate(:,:,160) * m(:,:) - rate(:,:,161) = rate(:,:,161) * m(:,:) - rate(:,:,162) = rate(:,:,162) * m(:,:) - rate(:,:,163) = rate(:,:,163) * m(:,:) - rate(:,:,164) = rate(:,:,164) * m(:,:) - rate(:,:,165) = rate(:,:,165) * m(:,:) - rate(:,:,166) = rate(:,:,166) * m(:,:) - rate(:,:,167) = rate(:,:,167) * m(:,:) - rate(:,:,168) = rate(:,:,168) * m(:,:) - rate(:,:,169) = rate(:,:,169) * m(:,:) - rate(:,:,170) = rate(:,:,170) * m(:,:) - rate(:,:,171) = rate(:,:,171) * m(:,:) - rate(:,:,172) = rate(:,:,172) * m(:,:) - rate(:,:,173) = rate(:,:,173) * m(:,:) - rate(:,:,174) = rate(:,:,174) * m(:,:) - rate(:,:,175) = rate(:,:,175) * m(:,:) - rate(:,:,176) = rate(:,:,176) * m(:,:) - rate(:,:,177) = rate(:,:,177) * 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(:,:) - rate(:,:,184) = rate(:,:,184) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,197) = rate(:,:,197) * m(:,:) - rate(:,:,198) = rate(:,:,198) * m(:,:) - rate(:,:,199) = rate(:,:,199) * m(:,:) - rate(:,:,200) = rate(:,:,200) * m(:,:) - rate(:,:,201) = rate(:,:,201) * m(:,:) - rate(:,:,202) = rate(:,:,202) * m(:,:) - rate(:,:,203) = rate(:,:,203) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,221) = rate(:,:,221) * m(:,:) - rate(:,:,222) = rate(:,:,222) * m(:,:) - rate(:,:,223) = rate(:,:,223) * m(:,:) - rate(:,:,224) = rate(:,:,224) * m(:,:) - rate(:,:,225) = rate(:,:,225) * m(:,:) - rate(:,:,226) = rate(:,:,226) * m(:,:) - rate(:,:,227) = rate(:,:,227) * m(:,:) - rate(:,:,228) = rate(:,:,228) * m(:,:) - rate(:,:,229) = rate(:,:,229) * m(:,:) - rate(:,:,230) = rate(:,:,230) * m(:,:) - rate(:,:,231) = rate(:,:,231) * m(:,:) - rate(:,:,232) = rate(:,:,232) * 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(:,:) - rate(:,:,239) = rate(:,:,239) * m(:,:) - rate(:,:,240) = rate(:,:,240) * m(:,:) - rate(:,:,241) = rate(:,:,241) * m(:,:) - rate(:,:,242) = rate(:,:,242) * m(:,:) - rate(:,:,243) = rate(:,:,243) * m(:,:) - rate(:,:,244) = rate(:,:,244) * m(:,:) - rate(:,:,245) = rate(:,:,245) * m(:,:) - 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(:,:) - rate(:,:,257) = rate(:,:,257) * m(:,:) - rate(:,:,258) = rate(:,:,258) * m(:,:) - rate(:,:,259) = rate(:,:,259) * m(:,:) - rate(:,:,260) = rate(:,:,260) * m(:,:) - rate(:,:,261) = rate(:,:,261) * m(:,:) - rate(:,:,262) = rate(:,:,262) * m(:,:) - rate(:,:,263) = rate(:,:,263) * m(:,:) - rate(:,:,264) = rate(:,:,264) * m(:,:) - rate(:,:,265) = rate(:,:,265) * m(:,:) - 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(:,:,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(:,:,285) = rate(:,:,285) * m(:,:) - rate(:,:,286) = rate(:,:,286) * m(:,:) - rate(:,:,287) = rate(:,:,287) * m(:,:) - rate(:,:,288) = rate(:,:,288) * m(:,:) - rate(:,:,289) = rate(:,:,289) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,316) = rate(:,:,316) * m(:,:) - rate(:,:,317) = rate(:,:,317) * m(:,:) - rate(:,:,318) = rate(:,:,318) * m(:,:) - rate(:,:,319) = rate(:,:,319) * m(:,:) - rate(:,:,320) = rate(:,:,320) * m(:,:) - rate(:,:,321) = rate(:,:,321) * m(:,:) - rate(:,:,322) = rate(:,:,322) * m(:,:) - rate(:,:,323) = rate(:,:,323) * m(:,:) - rate(:,:,324) = rate(:,:,324) * m(:,:) - 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(:,:) - 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(:,:) - rate(:,:,353) = rate(:,:,353) * m(:,:) - rate(:,:,354) = rate(:,:,354) * m(:,:) - rate(:,:,355) = rate(:,:,355) * m(:,:) - rate(:,:,356) = rate(:,:,356) * m(:,:) - rate(:,:,357) = rate(:,:,357) * 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(:,:,372) = rate(:,:,372) * m(:,:) - rate(:,:,374) = rate(:,:,374) * m(:,:) - rate(:,:,376) = rate(:,:,376) * m(:,:) - rate(:,:,378) = rate(:,:,378) * m(:,:) - rate(:,:,380) = rate(:,:,380) * m(:,:) - rate(:,:,381) = rate(:,:,381) * m(:,:) - rate(:,:,382) = rate(:,:,382) * m(:,:) - rate(:,:,383) = rate(:,:,383) * m(:,:) - rate(:,:,384) = rate(:,:,384) * m(:,:) - rate(:,:,389) = rate(:,:,389) * m(:,:) - rate(:,:,390) = rate(:,:,390) * m(:,:) - rate(:,:,392) = rate(:,:,392) * m(:,:) - rate(:,:,393) = rate(:,:,393) * m(:,:) - rate(:,:,394) = rate(:,:,394) * m(:,:) - rate(:,:,396) = rate(:,:,396) * m(:,:) - rate(:,:,397) = rate(:,:,397) * m(:,:) - rate(:,:,398) = rate(:,:,398) * 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(:,:,408) = rate(:,:,408) * m(:,:) - rate(:,:,409) = rate(:,:,409) * m(:,:) - 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(:,:) - 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(:,:) - 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(:,:,436) = rate(:,:,436) * m(:,:) - rate(:,:,437) = rate(:,:,437) * m(:,:) - rate(:,:,438) = rate(:,:,438) * m(:,:) - rate(:,:,439) = rate(:,:,439) * m(:,:) - rate(:,:,440) = rate(:,:,440) * m(:,:) - rate(:,:,441) = rate(:,:,441) * m(:,:) - rate(:,:,442) = rate(:,:,442) * m(:,:) - rate(:,:,443) = rate(:,:,443) * m(:,:) - 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(:,:,451) = rate(:,:,451) * m(:,:) - rate(:,:,452) = rate(:,:,452) * m(:,:) - rate(:,:,453) = rate(:,:,453) * m(:,:) - rate(:,:,454) = rate(:,:,454) * m(:,:) - rate(:,:,455) = rate(:,:,455) * m(:,:) - rate(:,:,456) = rate(:,:,456) * m(:,:) - rate(:,:,457) = rate(:,:,457) * m(:,:) - rate(:,:,458) = rate(:,:,458) * m(:,:) - rate(:,:,459) = rate(:,:,459) * m(:,:) - rate(:,:,460) = rate(:,:,460) * m(:,:) - rate(:,:,461) = rate(:,:,461) * m(:,:) - rate(:,:,462) = rate(:,:,462) * m(:,:) - rate(:,:,463) = rate(:,:,463) * m(:,:) - rate(:,:,464) = rate(:,:,464) * m(:,:) - rate(:,:,465) = rate(:,:,465) * m(:,:) - rate(:,:,466) = rate(:,:,466) * m(:,:) - 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(:,:) - rate(:,:,478) = rate(:,:,478) * m(:,:) - rate(:,:,479) = rate(:,:,479) * m(:,:) - rate(:,:,480) = rate(:,:,480) * m(:,:) - rate(:,:,481) = rate(:,:,481) * m(:,:) - rate(:,:,482) = rate(:,:,482) * m(:,:) - rate(:,:,483) = rate(:,:,483) * m(:,:) - rate(:,:,484) = rate(:,:,484) * 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(:,:) - 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(:,:) - rate(:,:,497) = rate(:,:,497) * m(:,:) - rate(:,:,498) = rate(:,:,498) * m(:,:) - rate(:,:,499) = rate(:,:,499) * m(:,:) - rate(:,:,500) = rate(:,:,500) * m(:,:) - rate(:,:,501) = rate(:,:,501) * m(:,:) - rate(:,:,502) = rate(:,:,502) * m(:,:) - rate(:,:,503) = rate(:,:,503) * m(:,:) - rate(:,:,504) = rate(:,:,504) * m(:,:) - rate(:,:,505) = rate(:,:,505) * m(:,:) - rate(:,:,506) = rate(:,:,506) * m(:,:) - rate(:,:,507) = rate(:,:,507) * m(:,:) - rate(:,:,508) = rate(:,:,508) * m(:,:) - rate(:,:,509) = rate(:,:,509) * m(:,:) - rate(:,:,510) = rate(:,:,510) * m(:,:) - rate(:,:,511) = rate(:,:,511) * m(:,:) - rate(:,:,512) = rate(:,:,512) * m(:,:) - rate(:,:,513) = rate(:,:,513) * m(:,:) - rate(:,:,514) = rate(:,:,514) * m(:,:) - rate(:,:,515) = rate(:,:,515) * m(:,:) - rate(:,:,516) = rate(:,:,516) * m(:,:) - rate(:,:,517) = rate(:,:,517) * m(:,:) - rate(:,:,518) = rate(:,:,518) * m(:,:) - rate(:,:,519) = rate(:,:,519) * m(:,:) - rate(:,:,520) = rate(:,:,520) * m(:,:) - rate(:,:,521) = rate(:,:,521) * m(:,:) - rate(:,:,522) = rate(:,:,522) * m(:,:) - rate(:,:,523) = rate(:,:,523) * m(:,:) - rate(:,:,524) = rate(:,:,524) * m(:,:) - rate(:,:,525) = rate(:,:,525) * m(:,:) - rate(:,:,526) = rate(:,:,526) * m(:,:) - rate(:,:,527) = rate(:,:,527) * m(:,:) - rate(:,:,528) = rate(:,:,528) * m(:,:) - rate(:,:,529) = rate(:,:,529) * m(:,:) - rate(:,:,530) = rate(:,:,530) * m(:,:) - rate(:,:,531) = rate(:,:,531) * m(:,:) - rate(:,:,532) = rate(:,:,532) * m(:,:) - rate(:,:,533) = rate(:,:,533) * m(:,:) - rate(:,:,534) = rate(:,:,534) * m(:,:) - rate(:,:,535) = rate(:,:,535) * m(:,:) - rate(:,:,536) = rate(:,:,536) * m(:,:) - rate(:,:,537) = rate(:,:,537) * m(:,:) - rate(:,:,538) = rate(:,:,538) * m(:,:) - rate(:,:,539) = rate(:,:,539) * m(:,:) - rate(:,:,540) = rate(:,:,540) * m(:,:) - rate(:,:,541) = rate(:,:,541) * m(:,:) - rate(:,:,542) = rate(:,:,542) * m(:,:) - rate(:,:,543) = rate(:,:,543) * m(:,:) - rate(:,:,544) = rate(:,:,544) * m(:,:) - rate(:,:,545) = rate(:,:,545) * m(:,:) - rate(:,:,546) = rate(:,:,546) * m(:,:) - rate(:,:,547) = rate(:,:,547) * m(:,:) - rate(:,:,548) = rate(:,:,548) * m(:,:) - rate(:,:,549) = rate(:,:,549) * m(:,:) - rate(:,:,550) = rate(:,:,550) * m(:,:) - rate(:,:,551) = rate(:,:,551) * m(:,:) - rate(:,:,552) = rate(:,:,552) * m(:,:) - rate(:,:,553) = rate(:,:,553) * m(:,:) - rate(:,:,554) = rate(:,:,554) * m(:,:) - rate(:,:,555) = rate(:,:,555) * m(:,:) - rate(:,:,556) = rate(:,:,556) * m(:,:) - rate(:,:,557) = rate(:,:,557) * m(:,:) - rate(:,:,558) = rate(:,:,558) * m(:,:) - rate(:,:,564) = rate(:,:,564) * m(:,:) - rate(:,:,569) = rate(:,:,569) * m(:,:) - rate(:,:,570) = rate(:,:,570) * m(:,:) - rate(:,:,571) = rate(:,:,571) * m(:,:) - rate(:,:,574) = rate(:,:,574) * m(:,:) - rate(:,:,575) = rate(:,:,575) * m(:,:) - rate(:,:,576) = rate(:,:,576) * m(:,:) - rate(:,:,579) = rate(:,:,579) * 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(:,:,588) = rate(:,:,588) * m(:,:) - rate(:,:,589) = rate(:,:,589) * m(:,:) - rate(:,:,590) = rate(:,:,590) * m(:,:) - rate(:,:,591) = rate(:,:,591) * m(:,:) - rate(:,:,592) = rate(:,:,592) * m(:,:) - rate(:,:,594) = rate(:,:,594) * m(:,:) - rate(:,:,595) = rate(:,:,595) * m(:,:) - rate(:,:,597) = rate(:,:,597) * m(:,:) - rate(:,:,598) = rate(:,:,598) * m(:,:) - rate(:,:,599) = rate(:,:,599) * m(:,:) - rate(:,:,601) = rate(:,:,601) * m(:,:) - rate(:,:,602) = rate(:,:,602) * m(:,:) - rate(:,:,603) = rate(:,:,603) * m(:,:) - rate(:,:,604) = rate(:,:,604) * m(:,:) - rate(:,:,607) = rate(:,:,607) * m(:,:) + rate(:,:, 107) = rate(:,:, 107) * inv(:,:, 1) + rate(:,:, 108) = rate(:,:, 108) * inv(:,:, 1) + rate(:,:, 118) = rate(:,:, 118) * inv(:,:, 1) + rate(:,:, 119) = rate(:,:, 119) * inv(:,:, 1) + rate(:,:, 133) = rate(:,:, 133) * inv(:,:, 2) + rate(:,:, 135) = rate(:,:, 135) * inv(:,:, 1) + rate(:,:, 137) = rate(:,:, 137) * inv(:,:, 2) + rate(:,:, 258) = rate(:,:, 258) * inv(:,:, 1) + rate(:,:, 259) = rate(:,:, 259) * inv(:,:, 1) + rate(:,:, 260) = rate(:,:, 260) * inv(:,:, 1) + rate(:,:, 261) = rate(:,:, 261) * inv(:,:, 1) + rate(:,:, 262) = rate(:,:, 262) * inv(:,:, 1) + rate(:,:, 263) = rate(:,:, 263) * inv(:,:, 1) + rate(:,:, 264) = rate(:,:, 264) * inv(:,:, 1) + rate(:,:, 265) = rate(:,:, 265) * inv(:,:, 1) + rate(:,:, 266) = rate(:,:, 266) * inv(:,:, 1) + rate(:,:, 267) = rate(:,:, 267) * inv(:,:, 1) + rate(:,:, 268) = rate(:,:, 268) * inv(:,:, 1) + rate(:,:, 269) = rate(:,:, 269) * inv(:,:, 1) + rate(:,:, 270) = rate(:,:, 270) * inv(:,:, 1) + rate(:,:, 271) = rate(:,:, 271) * inv(:,:, 1) + rate(:,:, 273) = rate(:,:, 273) * inv(:,:, 1) + rate(:,:, 274) = rate(:,:, 274) * inv(:,:, 1) + rate(:,:, 275) = rate(:,:, 275) * inv(:,:, 1) + rate(:,:, 276) = rate(:,:, 276) * inv(:,:, 1) + rate(:,:, 282) = rate(:,:, 282) * inv(:,:, 1) + rate(:,:, 283) = rate(:,:, 283) * inv(:,:, 1) + rate(:,:, 284) = rate(:,:, 284) * inv(:,:, 1) + rate(:,:, 288) = rate(:,:, 288) * inv(:,:, 1) + rate(:,:, 294) = rate(:,:, 294) * inv(:,:, 1) + rate(:,:, 296) = rate(:,:, 296) * inv(:,:, 1) + rate(:,:, 300) = rate(:,:, 300) * inv(:,:, 1) + rate(:,:, 316) = rate(:,:, 316) * inv(:,:, 1) + rate(:,:, 322) = rate(:,:, 322) * inv(:,:, 1) + rate(:,:, 329) = rate(:,:, 329) * inv(:,:, 1) + rate(:,:, 343) = rate(:,:, 343) * inv(:,:, 1) + rate(:,:, 349) = rate(:,:, 349) * inv(:,:, 1) + rate(:,:, 352) = rate(:,:, 352) * inv(:,:, 1) + rate(:,:, 358) = rate(:,:, 358) * inv(:,:, 1) + rate(:,:, 362) = rate(:,:, 362) * inv(:,:, 1) + rate(:,:, 364) = rate(:,:, 364) * inv(:,:, 1) + rate(:,:, 365) = rate(:,:, 365) * inv(:,:, 1) + rate(:,:, 366) = rate(:,:, 366) * inv(:,:, 1) + rate(:,:, 367) = rate(:,:, 367) * inv(:,:, 1) + rate(:,:, 368) = rate(:,:, 368) * inv(:,:, 1) + rate(:,:, 369) = rate(:,:, 369) * inv(:,:, 1) + rate(:,:, 371) = rate(:,:, 371) * inv(:,:, 1) + rate(:,:, 372) = rate(:,:, 372) * inv(:,:, 1) + rate(:,:, 373) = rate(:,:, 373) * inv(:,:, 1) + rate(:,:, 374) = rate(:,:, 374) * inv(:,:, 1) + rate(:,:, 375) = rate(:,:, 375) * inv(:,:, 1) + rate(:,:, 376) = rate(:,:, 376) * inv(:,:, 1) + rate(:,:, 377) = rate(:,:, 377) * inv(:,:, 1) + rate(:,:, 378) = rate(:,:, 378) * inv(:,:, 1) + rate(:,:, 379) = rate(:,:, 379) * inv(:,:, 1) + rate(:,:, 385) = rate(:,:, 385) * inv(:,:, 1) + rate(:,:, 386) = rate(:,:, 386) * inv(:,:, 1) + rate(:,:, 391) = rate(:,:, 391) * inv(:,:, 2) + rate(:,:, 395) = rate(:,:, 395) * inv(:,:, 2) + rate(:,:, 399) = rate(:,:, 399) * inv(:,:, 2) + rate(:,:, 404) = rate(:,:, 404) * inv(:,:, 1) + 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(:,:, 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(:,:, 537) = rate(:,:, 537) * inv(:,:, 1) + rate(:,:, 593) = rate(:,:, 593) * inv(:,:, 2) + rate(:,:, 596) = rate(:,:, 596) * inv(:,:, 2) + rate(:,:, 600) = rate(:,:, 600) * inv(:,:, 2) + rate(:,:, 605) = rate(:,:, 605) * inv(:,:, 2) + rate(:,:, 606) = rate(:,:, 606) * inv(:,:, 2) + rate(:,:, 370) = rate(:,:, 370) * inv(:,:, 2) * inv(:,:, 1) + rate(:,:, 105) = rate(:,:, 105) * m(:,:) + rate(:,:, 106) = rate(:,:, 106) * m(:,:) + rate(:,:, 107) = rate(:,:, 107) * m(:,:) + rate(:,:, 108) = rate(:,:, 108) * m(:,:) + rate(:,:, 109) = rate(:,:, 109) * m(:,:) + rate(:,:, 110) = rate(:,:, 110) * m(:,:) + rate(:,:, 111) = rate(:,:, 111) * m(:,:) + rate(:,:, 112) = rate(:,:, 112) * m(:,:) + rate(:,:, 113) = rate(:,:, 113) * m(:,:) + rate(:,:, 114) = rate(:,:, 114) * m(:,:) + rate(:,:, 115) = rate(:,:, 115) * m(:,:) + rate(:,:, 116) = rate(:,:, 116) * m(:,:) + rate(:,:, 117) = rate(:,:, 117) * m(:,:) + rate(:,:, 118) = rate(:,:, 118) * m(:,:) + rate(:,:, 119) = rate(:,:, 119) * m(:,:) + rate(:,:, 120) = rate(:,:, 120) * m(:,:) + rate(:,:, 121) = rate(:,:, 121) * m(:,:) + rate(:,:, 122) = rate(:,:, 122) * m(:,:) + rate(:,:, 123) = rate(:,:, 123) * m(:,:) + rate(:,:, 124) = rate(:,:, 124) * m(:,:) + 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(:,:) + rate(:,:, 132) = rate(:,:, 132) * m(:,:) + rate(:,:, 133) = rate(:,:, 133) * m(:,:) + rate(:,:, 134) = rate(:,:, 134) * m(:,:) + rate(:,:, 135) = rate(:,:, 135) * m(:,:) + rate(:,:, 136) = rate(:,:, 136) * m(:,:) + rate(:,:, 138) = rate(:,:, 138) * m(:,:) + rate(:,:, 139) = rate(:,:, 139) * m(:,:) + rate(:,:, 140) = rate(:,:, 140) * m(:,:) + rate(:,:, 141) = rate(:,:, 141) * m(:,:) + rate(:,:, 142) = rate(:,:, 142) * m(:,:) + rate(:,:, 143) = rate(:,:, 143) * m(:,:) + rate(:,:, 144) = rate(:,:, 144) * m(:,:) + rate(:,:, 145) = rate(:,:, 145) * m(:,:) + rate(:,:, 146) = rate(:,:, 146) * m(:,:) + rate(:,:, 147) = rate(:,:, 147) * m(:,:) + rate(:,:, 148) = rate(:,:, 148) * m(:,:) + 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(:,:) + rate(:,:, 156) = rate(:,:, 156) * m(:,:) + rate(:,:, 157) = rate(:,:, 157) * m(:,:) + rate(:,:, 158) = rate(:,:, 158) * m(:,:) + rate(:,:, 159) = rate(:,:, 159) * m(:,:) + rate(:,:, 160) = rate(:,:, 160) * m(:,:) + rate(:,:, 161) = rate(:,:, 161) * m(:,:) + rate(:,:, 162) = rate(:,:, 162) * m(:,:) + rate(:,:, 163) = rate(:,:, 163) * m(:,:) + rate(:,:, 164) = rate(:,:, 164) * m(:,:) + rate(:,:, 165) = rate(:,:, 165) * m(:,:) + rate(:,:, 166) = rate(:,:, 166) * m(:,:) + rate(:,:, 167) = rate(:,:, 167) * m(:,:) + rate(:,:, 168) = rate(:,:, 168) * m(:,:) + rate(:,:, 169) = rate(:,:, 169) * m(:,:) + rate(:,:, 170) = rate(:,:, 170) * m(:,:) + rate(:,:, 171) = rate(:,:, 171) * m(:,:) + rate(:,:, 172) = rate(:,:, 172) * m(:,:) + rate(:,:, 173) = rate(:,:, 173) * m(:,:) + rate(:,:, 174) = rate(:,:, 174) * m(:,:) + rate(:,:, 175) = rate(:,:, 175) * m(:,:) + rate(:,:, 176) = rate(:,:, 176) * m(:,:) + rate(:,:, 177) = rate(:,:, 177) * 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(:,:) + rate(:,:, 184) = rate(:,:, 184) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 197) = rate(:,:, 197) * m(:,:) + rate(:,:, 198) = rate(:,:, 198) * m(:,:) + rate(:,:, 199) = rate(:,:, 199) * m(:,:) + rate(:,:, 200) = rate(:,:, 200) * m(:,:) + rate(:,:, 201) = rate(:,:, 201) * m(:,:) + rate(:,:, 202) = rate(:,:, 202) * m(:,:) + rate(:,:, 203) = rate(:,:, 203) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 221) = rate(:,:, 221) * m(:,:) + rate(:,:, 222) = rate(:,:, 222) * m(:,:) + rate(:,:, 223) = rate(:,:, 223) * m(:,:) + rate(:,:, 224) = rate(:,:, 224) * m(:,:) + rate(:,:, 225) = rate(:,:, 225) * m(:,:) + rate(:,:, 226) = rate(:,:, 226) * m(:,:) + rate(:,:, 227) = rate(:,:, 227) * m(:,:) + rate(:,:, 228) = rate(:,:, 228) * m(:,:) + rate(:,:, 229) = rate(:,:, 229) * m(:,:) + rate(:,:, 230) = rate(:,:, 230) * m(:,:) + rate(:,:, 231) = rate(:,:, 231) * m(:,:) + rate(:,:, 232) = rate(:,:, 232) * 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(:,:) + rate(:,:, 239) = rate(:,:, 239) * m(:,:) + rate(:,:, 240) = rate(:,:, 240) * m(:,:) + rate(:,:, 241) = rate(:,:, 241) * m(:,:) + rate(:,:, 242) = rate(:,:, 242) * m(:,:) + rate(:,:, 243) = rate(:,:, 243) * m(:,:) + rate(:,:, 244) = rate(:,:, 244) * m(:,:) + rate(:,:, 245) = rate(:,:, 245) * m(:,:) + 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(:,:) + rate(:,:, 257) = rate(:,:, 257) * m(:,:) + rate(:,:, 258) = rate(:,:, 258) * m(:,:) + rate(:,:, 259) = rate(:,:, 259) * m(:,:) + rate(:,:, 260) = rate(:,:, 260) * m(:,:) + rate(:,:, 261) = rate(:,:, 261) * m(:,:) + rate(:,:, 262) = rate(:,:, 262) * m(:,:) + rate(:,:, 263) = rate(:,:, 263) * m(:,:) + rate(:,:, 264) = rate(:,:, 264) * m(:,:) + rate(:,:, 265) = rate(:,:, 265) * m(:,:) + 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(:,:, 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(:,:, 285) = rate(:,:, 285) * m(:,:) + rate(:,:, 286) = rate(:,:, 286) * m(:,:) + rate(:,:, 287) = rate(:,:, 287) * m(:,:) + rate(:,:, 288) = rate(:,:, 288) * m(:,:) + rate(:,:, 289) = rate(:,:, 289) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 316) = rate(:,:, 316) * m(:,:) + rate(:,:, 317) = rate(:,:, 317) * m(:,:) + rate(:,:, 318) = rate(:,:, 318) * m(:,:) + rate(:,:, 319) = rate(:,:, 319) * m(:,:) + rate(:,:, 320) = rate(:,:, 320) * m(:,:) + rate(:,:, 321) = rate(:,:, 321) * m(:,:) + rate(:,:, 322) = rate(:,:, 322) * m(:,:) + rate(:,:, 323) = rate(:,:, 323) * m(:,:) + rate(:,:, 324) = rate(:,:, 324) * m(:,:) + 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(:,:) + 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(:,:) + rate(:,:, 353) = rate(:,:, 353) * m(:,:) + rate(:,:, 354) = rate(:,:, 354) * m(:,:) + rate(:,:, 355) = rate(:,:, 355) * m(:,:) + rate(:,:, 356) = rate(:,:, 356) * m(:,:) + rate(:,:, 357) = rate(:,:, 357) * 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(:,:, 372) = rate(:,:, 372) * m(:,:) + rate(:,:, 374) = rate(:,:, 374) * m(:,:) + rate(:,:, 376) = rate(:,:, 376) * m(:,:) + rate(:,:, 378) = rate(:,:, 378) * m(:,:) + rate(:,:, 380) = rate(:,:, 380) * m(:,:) + rate(:,:, 381) = rate(:,:, 381) * m(:,:) + rate(:,:, 382) = rate(:,:, 382) * m(:,:) + rate(:,:, 383) = rate(:,:, 383) * m(:,:) + rate(:,:, 384) = rate(:,:, 384) * m(:,:) + rate(:,:, 389) = rate(:,:, 389) * m(:,:) + rate(:,:, 390) = rate(:,:, 390) * m(:,:) + rate(:,:, 392) = rate(:,:, 392) * m(:,:) + rate(:,:, 393) = rate(:,:, 393) * m(:,:) + rate(:,:, 394) = rate(:,:, 394) * m(:,:) + rate(:,:, 396) = rate(:,:, 396) * m(:,:) + rate(:,:, 397) = rate(:,:, 397) * m(:,:) + rate(:,:, 398) = rate(:,:, 398) * 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(:,:, 408) = rate(:,:, 408) * m(:,:) + rate(:,:, 409) = rate(:,:, 409) * m(:,:) + 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(:,:) + 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(:,:) + 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(:,:, 436) = rate(:,:, 436) * m(:,:) + rate(:,:, 437) = rate(:,:, 437) * m(:,:) + rate(:,:, 438) = rate(:,:, 438) * m(:,:) + rate(:,:, 439) = rate(:,:, 439) * m(:,:) + rate(:,:, 440) = rate(:,:, 440) * m(:,:) + rate(:,:, 441) = rate(:,:, 441) * m(:,:) + rate(:,:, 442) = rate(:,:, 442) * m(:,:) + rate(:,:, 443) = rate(:,:, 443) * m(:,:) + 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(:,:, 451) = rate(:,:, 451) * m(:,:) + rate(:,:, 452) = rate(:,:, 452) * m(:,:) + rate(:,:, 453) = rate(:,:, 453) * m(:,:) + rate(:,:, 454) = rate(:,:, 454) * m(:,:) + rate(:,:, 455) = rate(:,:, 455) * m(:,:) + rate(:,:, 456) = rate(:,:, 456) * m(:,:) + rate(:,:, 457) = rate(:,:, 457) * m(:,:) + rate(:,:, 458) = rate(:,:, 458) * m(:,:) + rate(:,:, 459) = rate(:,:, 459) * m(:,:) + rate(:,:, 460) = rate(:,:, 460) * m(:,:) + rate(:,:, 461) = rate(:,:, 461) * m(:,:) + rate(:,:, 462) = rate(:,:, 462) * m(:,:) + rate(:,:, 463) = rate(:,:, 463) * m(:,:) + rate(:,:, 464) = rate(:,:, 464) * m(:,:) + rate(:,:, 465) = rate(:,:, 465) * m(:,:) + rate(:,:, 466) = rate(:,:, 466) * m(:,:) + 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(:,:) + rate(:,:, 478) = rate(:,:, 478) * m(:,:) + rate(:,:, 479) = rate(:,:, 479) * m(:,:) + rate(:,:, 480) = rate(:,:, 480) * m(:,:) + rate(:,:, 481) = rate(:,:, 481) * m(:,:) + rate(:,:, 482) = rate(:,:, 482) * m(:,:) + rate(:,:, 483) = rate(:,:, 483) * m(:,:) + rate(:,:, 484) = rate(:,:, 484) * 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(:,:) + 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(:,:) + rate(:,:, 497) = rate(:,:, 497) * m(:,:) + rate(:,:, 498) = rate(:,:, 498) * m(:,:) + rate(:,:, 499) = rate(:,:, 499) * m(:,:) + rate(:,:, 500) = rate(:,:, 500) * m(:,:) + rate(:,:, 501) = rate(:,:, 501) * m(:,:) + rate(:,:, 502) = rate(:,:, 502) * m(:,:) + rate(:,:, 503) = rate(:,:, 503) * m(:,:) + rate(:,:, 504) = rate(:,:, 504) * m(:,:) + rate(:,:, 505) = rate(:,:, 505) * m(:,:) + rate(:,:, 506) = rate(:,:, 506) * m(:,:) + rate(:,:, 507) = rate(:,:, 507) * m(:,:) + rate(:,:, 508) = rate(:,:, 508) * m(:,:) + rate(:,:, 509) = rate(:,:, 509) * m(:,:) + rate(:,:, 510) = rate(:,:, 510) * m(:,:) + rate(:,:, 511) = rate(:,:, 511) * m(:,:) + rate(:,:, 512) = rate(:,:, 512) * m(:,:) + rate(:,:, 513) = rate(:,:, 513) * m(:,:) + rate(:,:, 514) = rate(:,:, 514) * m(:,:) + rate(:,:, 515) = rate(:,:, 515) * m(:,:) + rate(:,:, 516) = rate(:,:, 516) * m(:,:) + rate(:,:, 517) = rate(:,:, 517) * m(:,:) + rate(:,:, 518) = rate(:,:, 518) * m(:,:) + rate(:,:, 519) = rate(:,:, 519) * m(:,:) + rate(:,:, 520) = rate(:,:, 520) * m(:,:) + rate(:,:, 521) = rate(:,:, 521) * m(:,:) + rate(:,:, 522) = rate(:,:, 522) * m(:,:) + rate(:,:, 523) = rate(:,:, 523) * m(:,:) + rate(:,:, 524) = rate(:,:, 524) * m(:,:) + rate(:,:, 525) = rate(:,:, 525) * m(:,:) + rate(:,:, 526) = rate(:,:, 526) * m(:,:) + rate(:,:, 527) = rate(:,:, 527) * m(:,:) + rate(:,:, 528) = rate(:,:, 528) * m(:,:) + rate(:,:, 529) = rate(:,:, 529) * m(:,:) + rate(:,:, 530) = rate(:,:, 530) * m(:,:) + rate(:,:, 531) = rate(:,:, 531) * m(:,:) + rate(:,:, 532) = rate(:,:, 532) * m(:,:) + rate(:,:, 533) = rate(:,:, 533) * m(:,:) + rate(:,:, 534) = rate(:,:, 534) * m(:,:) + rate(:,:, 535) = rate(:,:, 535) * m(:,:) + rate(:,:, 536) = rate(:,:, 536) * m(:,:) + rate(:,:, 537) = rate(:,:, 537) * m(:,:) + rate(:,:, 538) = rate(:,:, 538) * m(:,:) + rate(:,:, 539) = rate(:,:, 539) * m(:,:) + rate(:,:, 540) = rate(:,:, 540) * m(:,:) + rate(:,:, 541) = rate(:,:, 541) * m(:,:) + rate(:,:, 542) = rate(:,:, 542) * m(:,:) + rate(:,:, 543) = rate(:,:, 543) * m(:,:) + rate(:,:, 544) = rate(:,:, 544) * m(:,:) + rate(:,:, 545) = rate(:,:, 545) * m(:,:) + rate(:,:, 546) = rate(:,:, 546) * m(:,:) + rate(:,:, 547) = rate(:,:, 547) * m(:,:) + rate(:,:, 548) = rate(:,:, 548) * m(:,:) + rate(:,:, 549) = rate(:,:, 549) * m(:,:) + rate(:,:, 550) = rate(:,:, 550) * m(:,:) + rate(:,:, 551) = rate(:,:, 551) * m(:,:) + rate(:,:, 552) = rate(:,:, 552) * m(:,:) + rate(:,:, 553) = rate(:,:, 553) * m(:,:) + rate(:,:, 554) = rate(:,:, 554) * m(:,:) + rate(:,:, 555) = rate(:,:, 555) * m(:,:) + rate(:,:, 556) = rate(:,:, 556) * m(:,:) + rate(:,:, 557) = rate(:,:, 557) * m(:,:) + rate(:,:, 558) = rate(:,:, 558) * m(:,:) + rate(:,:, 564) = rate(:,:, 564) * m(:,:) + rate(:,:, 569) = rate(:,:, 569) * m(:,:) + rate(:,:, 570) = rate(:,:, 570) * m(:,:) + rate(:,:, 571) = rate(:,:, 571) * m(:,:) + rate(:,:, 574) = rate(:,:, 574) * m(:,:) + rate(:,:, 575) = rate(:,:, 575) * m(:,:) + rate(:,:, 576) = rate(:,:, 576) * m(:,:) + rate(:,:, 579) = rate(:,:, 579) * 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(:,:, 588) = rate(:,:, 588) * m(:,:) + rate(:,:, 589) = rate(:,:, 589) * m(:,:) + rate(:,:, 590) = rate(:,:, 590) * m(:,:) + rate(:,:, 591) = rate(:,:, 591) * m(:,:) + rate(:,:, 592) = rate(:,:, 592) * m(:,:) + rate(:,:, 594) = rate(:,:, 594) * m(:,:) + rate(:,:, 595) = rate(:,:, 595) * m(:,:) + rate(:,:, 597) = rate(:,:, 597) * m(:,:) + rate(:,:, 598) = rate(:,:, 598) * m(:,:) + rate(:,:, 599) = rate(:,:, 599) * m(:,:) + rate(:,:, 601) = rate(:,:, 601) * m(:,:) + rate(:,:, 602) = rate(:,:, 602) * m(:,:) + rate(:,:, 603) = rate(:,:, 603) * m(:,:) + rate(:,:, 604) = rate(:,:, 604) * m(:,:) + rate(:,:, 607) = rate(:,:, 607) * m(:,:) end subroutine adjrxt end module mo_adjrxt diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_exp_sol.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_exp_sol.F90 index c1cde93fa7..cfde22391a 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_exp_sol.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_exp_sol.F90 @@ -6,6 +6,7 @@ module mo_exp_sol subroutine exp_sol_inti use mo_tracname, only : solsym use chem_mods, only : clscnt1, clsmap + use ppgrid, only : pver use cam_history, only : addfld implicit none integer :: i,j @@ -45,23 +46,20 @@ subroutine exp_sol( base_sol, reaction_rates, het_rates, extfrc, delt, xhnm, nco ! ... Local variables !----------------------------------------------------------------------- integer :: i, k, l, m - integer :: chnkpnts - real(r8), dimension(ncol,pver,max(1,clscnt1)) :: & + real(r8), dimension(ncol,pver,clscnt1) :: & prod, & - loss - real(r8), dimension(ncol,pver,clscnt1) :: ind_prd + loss, & + ind_prd real(r8), dimension(ncol,pver) :: wrk - chnkpnts = ncol*pver !----------------------------------------------------------------------- ! ... Put "independent" production in the forcing !----------------------------------------------------------------------- call indprd( 1, ind_prd, clscnt1, base_sol, extfrc, & - reaction_rates, chnkpnts ) + reaction_rates, ncol ) !----------------------------------------------------------------------- ! ... Form F(y) !----------------------------------------------------------------------- - call exp_prod_loss( 1, chnkpnts, prod, loss, base_sol, reaction_rates, & - het_rates, chnkpnts ) + call exp_prod_loss( prod, loss, base_sol, reaction_rates, het_rates ) !----------------------------------------------------------------------- ! ... Solve for the mixing ratio at t(n+1) !----------------------------------------------------------------------- diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_imp_sol.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_imp_sol.F90 index 98cadb9050..d885728ba4 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_imp_sol.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_imp_sol.F90 @@ -1,6 +1,6 @@ module mo_imp_sol use shr_kind_mod, only : r8 => shr_kind_r8 - use chem_mods, only : clscnt4, gas_pcnst, clsmap, veclen + use chem_mods, only : clscnt4, gas_pcnst, clsmap use cam_logfile, only : iulog implicit none private @@ -13,7 +13,6 @@ module mo_imp_sol !----------------------------------------------------------------------- integer, parameter :: itermax = 11 integer, parameter :: cut_limit = 5 - real(r8), parameter :: sol_min = 1.e-20_r8 real(r8), parameter :: small = 1.e-40_r8 real(r8) :: epsilon(clscnt4) logical :: factor(itermax) @@ -107,12 +106,12 @@ subroutine imp_slv_inti end do end subroutine imp_slv_inti subroutine imp_sol( base_sol, reaction_rates, het_rates, extfrc, delt, & - ncol, nlev, lchnk, prod_out, loss_out ) + ncol,nlev, lchnk, prod_out, loss_out ) !----------------------------------------------------------------------- ! ... imp_sol advances the volumetric mixing ratio ! forward one time step via the fully implicit euler scheme. - ! this source is meant for vector architectures such as the - ! nec sx6 and cray x1 + ! this source is meant for small l1 cache machines such as + ! the intel pentium and itanium cpus !----------------------------------------------------------------------- use chem_mods, only : rxntot, extcnt, nzcnt, permute, cls_rxt_cnt use mo_tracname, only : solsym @@ -132,304 +131,262 @@ subroutine imp_sol( base_sol, reaction_rates, het_rates, extfrc, delt, & integer, intent(in) :: nlev integer, intent(in) :: lchnk ! chunk id real(r8), intent(in) :: delt ! time step (s) - real(r8), intent(in) :: reaction_rates(ncol*nlev,max(1,rxntot)) ! rxt rates (1/cm^3/s) - real(r8), intent(in) :: extfrc(ncol*nlev,max(1,extcnt)) ! external in-situ forcing (1/cm^3/s) - real(r8), intent(in) :: het_rates(ncol*nlev,max(1,gas_pcnst)) ! washout rates (1/s) - real(r8), intent(inout) :: base_sol(ncol*nlev,gas_pcnst) ! species mixing ratios (vmr) - real(r8), intent(out) :: prod_out(ncol*nlev,max(1,clscnt4)) - real(r8), intent(out) :: loss_out(ncol*nlev,max(1,clscnt4)) + real(r8), intent(in) :: reaction_rates(ncol,nlev,max(1,rxntot)) ! rxt rates (1/cm^3/s) + real(r8), intent(in) :: extfrc(ncol,nlev,max(1,extcnt)) ! external in-situ forcing (1/cm^3/s) + real(r8), intent(in) :: het_rates(ncol,nlev,max(1,gas_pcnst)) ! washout rates (1/s) + real(r8), intent(inout) :: base_sol(ncol,nlev,gas_pcnst) ! species mixing ratios (vmr) + real(r8), intent(out) :: prod_out(ncol,nlev,max(1,clscnt4)) + real(r8), intent(out) :: loss_out(ncol,nlev,max(1,clscnt4)) !----------------------------------------------------------------------- ! ... local variables !----------------------------------------------------------------------- - integer :: nr_iter - integer :: ofl - integer :: ofu - integer :: avec_len - integer :: bndx ! base index - integer :: cndx ! class index - integer :: pndx ! permuted class index - integer :: i,m - integer :: fail_cnt(veclen) - integer :: cut_cnt(veclen) - integer :: stp_con_cnt(veclen) + integer :: nr_iter, & + lev, & + i, & + j, & + k, l, & + m + integer :: fail_cnt, cut_cnt, stp_con_cnt integer :: nstep - real(r8) :: interval_done(veclen) - real(r8) :: dt(veclen) - real(r8) :: dti(veclen) + real(r8) :: interval_done, dt, dti real(r8) :: max_delta(max(1,clscnt4)) - real(r8) :: ind_prd(ncol*nlev,max(1,clscnt4)) + real(r8) :: sys_jac(max(1,nzcnt)) + real(r8) :: lin_jac(max(1,nzcnt)) + real(r8), dimension(max(1,clscnt4)) :: & + solution, & + forcing, & + iter_invariant, & + prod, & + loss + real(r8) :: lrxt(max(1,rxntot)) + real(r8) :: lsol(max(1,gas_pcnst)) + real(r8) :: lhet(max(1,gas_pcnst)) + real(r8), dimension(ncol,nlev,max(1,clscnt4)) :: & + ind_prd logical :: convergence - integer :: chnkpnts ! total spatial points in chunk; ncol*ncol - logical :: diags_out(ncol*nlev,max(1,clscnt4)) - real(r8) :: sys_jac_blk(veclen,max(1,nzcnt)) - real(r8) :: lin_jac_blk(veclen,max(1,nzcnt)) - real(r8) :: solution_blk(veclen,max(1,clscnt4)) - real(r8) :: forcing_blk(veclen,max(1,clscnt4)) - real(r8) :: iter_invariant_blk(veclen,max(1,clscnt4)) - real(r8) :: prod_blk(veclen,max(1,clscnt4)) - real(r8) :: loss_blk(veclen,max(1,clscnt4)) - real(r8) :: ind_prd_blk(veclen,max(1,clscnt4)) - real(r8) :: sbase_sol_blk(veclen,gas_pcnst) - real(r8) :: wrk_blk(veclen) - logical :: spc_conv_blk(veclen,max(1,clscnt4)) - logical :: cls_conv_blk(veclen) - logical :: time_stp_done_blk(veclen) - real(r8) :: reaction_rates_blk(veclen,max(1,rxntot)) - real(r8) :: extfrc_blk(veclen,max(1,extcnt)) - real(r8) :: het_rates_blk(veclen,max(1,gas_pcnst)) - real(r8) :: base_sol_blk(veclen,gas_pcnst) - chnkpnts = ncol*nlev - prod_out = 0._r8 - loss_out = 0._r8 - diags_out = .false. + logical :: frc_mask, iter_conv + logical :: converged(max(1,clscnt4)) + solution(:) = 0._r8 !----------------------------------------------------------------------- ! ... class independent forcing !----------------------------------------------------------------------- if( cls_rxt_cnt(1,4) > 0 .or. extcnt > 0 ) then call indprd( 4, ind_prd, clscnt4, base_sol, extfrc, & - reaction_rates, chnkpnts ) + reaction_rates, ncol ) else - do m = 1,clscnt4 - ind_prd(:,m) = 0._r8 + do m = 1,max(1,clscnt4) + ind_prd(:,:,m) = 0._r8 end do end if - nstep = get_nstep() - ofl = 1 - chnkpnts_loop : do - ofu = min( chnkpnts,ofl + veclen - 1 ) - avec_len = (ofu - ofl) + 1 - reaction_rates_blk(1:avec_len,:) = reaction_rates(ofl:ofu,:) - extfrc_blk(1:avec_len,:) = extfrc(ofl:ofu,:) - het_rates_blk(1:avec_len,:) = het_rates(ofl:ofu,:) - ind_prd_blk(1:avec_len,:) = ind_prd(ofl:ofu,:) - base_sol_blk(1:avec_len,:) = base_sol(ofl:ofu,:) - cls_conv_blk(1:avec_len) = .false. - dt(1:avec_len) = delt - cut_cnt(1:avec_len) = 0 - fail_cnt(1:avec_len) = 0 - stp_con_cnt(1:avec_len) = 0 - interval_done(1:avec_len) = 0._r8 - time_stp_done_blk(1:avec_len) = .false. - !----------------------------------------------------------------------- - ! ... time step loop - !----------------------------------------------------------------------- - time_step_loop : do - dti(1:avec_len) = 1._r8 / dt(1:avec_len) + level_loop : do lev = 1,nlev + column_loop : do i = 1,ncol !----------------------------------------------------------------------- - ! ... transfer from base to class array + ! ... transfer from base to local work arrays !----------------------------------------------------------------------- - do cndx = 1,clscnt4 - bndx = clsmap(cndx,4) - pndx = permute(cndx,4) - do i = 1, avec_len - solution_blk(i,pndx) = base_sol_blk(i,bndx) - end do - end do - do m = 1,gas_pcnst - sbase_sol_blk(1:avec_len,m) = base_sol_blk(1:avec_len,m) + do m = 1,rxntot + lrxt(m) = reaction_rates(i,lev,m) end do - !----------------------------------------------------------------------- - ! ... set the iteration invariant part of the function f(y) - !----------------------------------------------------------------------- - if( cls_rxt_cnt(1,4) > 0 .or. extcnt > 0 ) then - do m = 1,clscnt4 - do i = 1, avec_len - iter_invariant_blk(i,m) = dti(i) * solution_blk(i,m) + ind_prd_blk(i,m) - end do - end do - else - do m = 1,clscnt4 - do i = 1, avec_len - iter_invariant_blk(i,m) = dti(i) * solution_blk(i,m) - end do + if( gas_pcnst > 0 ) then + do m = 1,gas_pcnst + lhet(m) = het_rates(i,lev,m) end do end if !----------------------------------------------------------------------- - ! ... the linear component + ! ... time step loop !----------------------------------------------------------------------- - if( cls_rxt_cnt(2,4) > 0 ) then - call t_startf( 'lin_mat' ) - call linmat( avec_len, lin_jac_blk, base_sol_blk, & - reaction_rates_blk, het_rates_blk ) - call t_stopf( 'lin_mat' ) - end if - !======================================================================= - ! the newton-raphson iteration for f(y) = 0 - !======================================================================= - iter_loop : do nr_iter = 1,itermax + dt = delt + cut_cnt = 0 + fail_cnt = 0 + stp_con_cnt = 0 + interval_done = 0._r8 + time_step_loop : do + dti = 1._r8 / dt !----------------------------------------------------------------------- - ! ... the non-linear component + ! ... transfer from base to local work arrays !----------------------------------------------------------------------- - if( factor(nr_iter) ) then - call t_startf( 'nln_mat' ) - call nlnmat( avec_len, sys_jac_blk, base_sol_blk, & - reaction_rates_blk, lin_jac_blk, dti ) - call t_stopf( 'nln_mat' ) - !----------------------------------------------------------------------- - ! ... factor the "system" matrix - !----------------------------------------------------------------------- - call t_startf( 'lu_fac' ) - call lu_fac( avec_len, sys_jac_blk ) - call t_stopf( 'lu_fac' ) - end if + do m = 1,gas_pcnst + lsol(m) = base_sol(i,lev,m) + end do !----------------------------------------------------------------------- - ! ... form f(y) + ! ... transfer from base to class array !----------------------------------------------------------------------- - call t_startf( 'prod_loss' ) - call imp_prod_loss( avec_len, prod_blk, loss_blk, & - base_sol_blk, reaction_rates_blk, het_rates_blk ) - call t_stopf( 'prod_loss' ) - do m = 1,clscnt4 - do i = 1, avec_len - forcing_blk(i,m) = solution_blk(i,m)*dti(i) & - - (iter_invariant_blk(i,m) + prod_blk(i,m) - loss_blk(i,m)) - end do + do k = 1,clscnt4 + j = clsmap(k,4) + m = permute(k,4) + solution(m) = lsol(j) end do !----------------------------------------------------------------------- - ! ... solve for the mixing ratio at t(n+1) + ! ... set the iteration invariant part of the function f(y) !----------------------------------------------------------------------- - call t_startf( 'lu_slv' ) - call lu_slv( avec_len, sys_jac_blk, forcing_blk ) - call t_stopf( 'lu_slv' ) - do m = 1,clscnt4 - do i = 1, avec_len - if( .not. cls_conv_blk(i) )then - solution_blk(i,m) = solution_blk(i,m) + forcing_blk(i,m) - else - forcing_blk(i,m) = 0._r8 - endif + if( cls_rxt_cnt(1,4) > 0 .or. extcnt > 0 ) then + do m = 1,clscnt4 + iter_invariant(m) = dti * solution(m) + ind_prd(i,lev,m) end do - end do + else + do m = 1,clscnt4 + iter_invariant(m) = dti * solution(m) + end do + end if !----------------------------------------------------------------------- - ! ... convergence measures and test + ! ... the linear component !----------------------------------------------------------------------- - conv_chk : if( nr_iter > 1 ) then + if( cls_rxt_cnt(2,4) > 0 ) then + call t_startf( 'lin_mat' ) + call linmat( lin_jac, lsol, lrxt, lhet ) + call t_stopf( 'lin_mat' ) + end if + !======================================================================= + ! the newton-raphson iteration for f(y) = 0 + !======================================================================= + iter_loop : do nr_iter = 1,itermax !----------------------------------------------------------------------- - ! ... check for convergence + ! ... the non-linear component !----------------------------------------------------------------------- - do cndx = 1,clscnt4 - pndx = permute(cndx,4) - bndx = clsmap(cndx,4) - do i = 1, avec_len - if ( abs( solution_blk(i,pndx) ) > sol_min ) then - wrk_blk(i) = abs( forcing_blk(i,pndx)/solution_blk(i,pndx) ) - else - wrk_blk(i) = 0._r8 - endif - enddo - max_delta(cndx) = maxval( wrk_blk(1:avec_len) ) - do i = 1, avec_len - solution_blk(i,pndx) = max( 0._r8,solution_blk(i,pndx) ) - base_sol_blk(i,bndx) = solution_blk(i,pndx) - if ( abs( forcing_blk(i,pndx) ) > small ) then - spc_conv_blk(i,cndx) = abs(forcing_blk(i,pndx)) <= epsilon(cndx)*abs(solution_blk(i,pndx)) - else - spc_conv_blk(i,cndx) = .true. - endif - enddo - where( spc_conv_blk(1:avec_len,cndx) .and. .not.diags_out(ofl:ofu,cndx) ) - ! capture output production and loss diagnostics at converged ponits - prod_out(ofl:ofu,cndx) = prod_blk(1:avec_len,cndx) + ind_prd_blk(1:avec_len,cndx) - loss_out(ofl:ofu,cndx) = loss_blk(1:avec_len,cndx) - diags_out(ofl:ofu,cndx) = .true. - endwhere - end do - do i = 1, avec_len - if( .not. cls_conv_blk(i) ) then - cls_conv_blk(i) = all( spc_conv_blk(i,:) ) - end if - end do - convergence = all( cls_conv_blk(:) ) - if( convergence ) then - exit iter_loop + if( factor(nr_iter) ) then + call t_startf( 'nln_mat' ) + call nlnmat( sys_jac, lsol, lrxt, lin_jac, dti ) + call t_stopf( 'nln_mat' ) + !----------------------------------------------------------------------- + ! ... factor the "system" matrix + !----------------------------------------------------------------------- + call t_startf( 'lu_fac' ) + call lu_fac( sys_jac ) + call t_stopf( 'lu_fac' ) end if - else conv_chk -!----------------------------------------------------------------------- -! ... limit iterate -!----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! ... form f(y) + !----------------------------------------------------------------------- + call t_startf( 'prod_loss' ) + call imp_prod_loss( prod, loss, lsol, lrxt, lhet ) + call t_stopf( 'prod_loss' ) do m = 1,clscnt4 - do i = 1, avec_len - solution_blk(i,m) = max( 0._r8,solution_blk(i,m) ) - end do + forcing(m) = solution(m)*dti - (iter_invariant(m) + prod(m) - loss(m)) end do -!----------------------------------------------------------------------- -! ... transfer latest solution back to base array -!----------------------------------------------------------------------- - do cndx = 1,clscnt4 - pndx = permute(cndx,4) - bndx = clsmap(cndx,4) - do i = 1, avec_len - base_sol_blk(i,bndx) = solution_blk(i,pndx) + !----------------------------------------------------------------------- + ! ... solve for the mixing ratio at t(n+1) + !----------------------------------------------------------------------- + call t_startf( 'lu_slv' ) + call lu_slv( sys_jac, forcing ) + call t_stopf( 'lu_slv' ) + do m = 1,clscnt4 + solution(m) = solution(m) + forcing(m) + end do + !----------------------------------------------------------------------- + ! ... convergence measures + !----------------------------------------------------------------------- + if( nr_iter > 1 ) then + do k = 1,clscnt4 + m = permute(k,4) + if( abs(solution(m)) > 1.e-20_r8 ) then + max_delta(k) = abs( forcing(m)/solution(m) ) + else + max_delta(k) = 0._r8 + end if end do + end if + !----------------------------------------------------------------------- + ! ... limit iterate + !----------------------------------------------------------------------- + where( solution(:) < 0._r8 ) + solution(:) = 0._r8 + endwhere + !----------------------------------------------------------------------- + ! ... transfer latest solution back to work array + !----------------------------------------------------------------------- + do k = 1,clscnt4 + j = clsmap(k,4) + m = permute(k,4) + lsol(j) = solution(m) end do - end if conv_chk - end do iter_loop - !----------------------------------------------------------------------- - ! ... check for newton-raphson convergence - !----------------------------------------------------------------------- - do i = 1,avec_len - if( .not. cls_conv_blk(i) ) then - fail_cnt(i) = fail_cnt(i) + 1 - write(iulog,'('' imp_sol: time step '',1p,g15.7,'' failed to converge @ (lchnk,vctrpos,nstep) = '',3i8)') & - dt(i),lchnk,ofl+i-1,nstep - stp_con_cnt(i) = 0 - if( cut_cnt(i) < cut_limit ) then - cut_cnt(i) = cut_cnt(i) + 1 - if( cut_cnt(i) < cut_limit ) then - dt(i) = .5_r8 * dt(i) - else - dt(i) = .1_r8 * dt(i) + !----------------------------------------------------------------------- + ! ... check for convergence + !----------------------------------------------------------------------- + converged(:) = .true. + if( nr_iter > 1 ) then + do k = 1,clscnt4 + m = permute(k,4) + frc_mask = abs( forcing(m) ) > small + if( frc_mask ) then + converged(k) = abs(forcing(m)) <= epsilon(k)*abs(solution(m)) + else + converged(k) = .true. + end if + end do + convergence = all( converged(:) ) + if( convergence ) then + exit + end if end if - base_sol_blk(i,:) = sbase_sol_blk(i,:) - else - write(iulog,'('' imp_sol: step failed to converge @ (lchnk,vctrpos,nstep,dt,time) = '',3i8,1p,2g15.7)') & - lchnk,ofl+i-1,nstep,dt(i),interval_done+dt(i) - do m = 1,clscnt4 - if( .not. spc_conv_blk(i,m) ) then - write(iulog,'(1x,a16,1x,1pe10.3)') solsym(clsmap(m,4)), max_delta(m) + end do iter_loop + !----------------------------------------------------------------------- + ! ... check for newton-raphson convergence + !----------------------------------------------------------------------- + if( .not. convergence ) then + !----------------------------------------------------------------------- + ! ... non-convergence + !----------------------------------------------------------------------- + fail_cnt = fail_cnt + 1 + nstep = get_nstep() + write(iulog,'('' imp_sol: Time step '',1p,e21.13,'' failed to converge @ (lchnk,lev,col,nstep) = '',4i6)') & + dt,lchnk,lev,i,nstep + stp_con_cnt = 0 + if( cut_cnt < cut_limit ) then + cut_cnt = cut_cnt + 1 + if( cut_cnt < cut_limit ) then + dt = .5_r8 * dt + else + dt = .1_r8 * dt end if + cycle time_step_loop + else + write(iulog,'('' imp_sol: Failed to converge @ (lchnk,lev,col,nstep,dt,time) = '',4i6,1p,2e21.13)') & + lchnk,lev,i,nstep,dt,interval_done+dt + do m = 1,clscnt4 + if( .not. converged(m) ) then + write(iulog,'(1x,a8,1x,1pe10.3)') solsym(clsmap(m,4)), max_delta(m) + end if + end do + end if + end if + !----------------------------------------------------------------------- + ! ... check for interval done + !----------------------------------------------------------------------- + interval_done = interval_done + dt + if( abs( delt - interval_done ) <= .0001_r8 ) then + if( fail_cnt > 0 ) then + write(iulog,*) 'imp_sol : @ (lchnk,lev,col) = ',lchnk,lev,i,' failed ',fail_cnt,' times' + end if + exit time_step_loop + else + !----------------------------------------------------------------------- + ! ... transfer latest solution back to base array + !----------------------------------------------------------------------- + if( convergence ) then + stp_con_cnt = stp_con_cnt + 1 + end if + do m = 1,gas_pcnst + base_sol(i,lev,m) = lsol(m) end do - cls_conv_blk(i) = .true. - if( .not. time_stp_done_blk(i) ) then - interval_done(i) = interval_done(i) + dt(i) - time_stp_done_blk(i) = abs( delt - interval_done(i) ) <= .0001_r8 - endif - end if - elseif( .not. time_stp_done_blk(i) ) then - interval_done(i) = interval_done(i) + dt(i) - time_stp_done_blk(i) = abs( delt - interval_done(i) ) <= .0001_r8 - stp_con_cnt(i) = stp_con_cnt(i) + 1 - if( .not. time_stp_done_blk(i) ) then - if( stp_con_cnt(i) >= 2 ) then - dt(i) = 2._r8*dt(i) - stp_con_cnt(i) = 0 - end if - dt(i) = min( dt(i),delt-interval_done(i) ) - else - base_sol(ofl+i-1,1:gas_pcnst) = base_sol_blk(i,1:gas_pcnst) - endif - endif - end do - convergence = all( cls_conv_blk(:) ) - do i = 1,avec_len - if( cls_conv_blk(i) .and. .not. time_stp_done_blk(i) ) then - cls_conv_blk(i) = .false. - endif - end do - if( .not. convergence ) then - cycle time_step_loop - endif + if( stp_con_cnt >= 2 ) then + dt = 2._r8*dt + stp_con_cnt = 0 + end if + dt = min( dt,delt-interval_done ) + ! write(iulog,'('' imp_sol: New time step '',1p,e21.13)') dt + end if + end do time_step_loop !----------------------------------------------------------------------- - ! ... check for time step done + ! ... Transfer latest solution back to base array !----------------------------------------------------------------------- - if( all( time_stp_done_blk(1:avec_len) ) ) then - exit time_step_loop - end if - end do time_step_loop - ofl = ofu + 1 - if( ofl > chnkpnts ) then - exit chnkpnts_loop - end if - end do chnkpnts_loop + cls_loop: do k = 1,clscnt4 + j = clsmap(k,4) + m = permute(k,4) + base_sol(i,lev,j) = solution(m) + ! output diagnostics + prod_out(i,lev,k) = prod(k) + ind_prd(i,lev,k) + loss_out(i,lev,k) = loss(k) + end do cls_loop + end do column_loop + end do level_loop end subroutine imp_sol end module mo_imp_sol diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_indprd.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_indprd.F90 index 9291c4068e..2784ec12a0 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_indprd.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_indprd.F90 @@ -3,200 +3,214 @@ module mo_indprd private public :: indprd contains - subroutine indprd( class, prod, nprod, y, extfrc, rxt, chnkpnts ) + subroutine indprd( class, prod, nprod, y, extfrc, rxt, ncol ) use chem_mods, only : gas_pcnst, extcnt, rxntot + use ppgrid, only : pver implicit none !-------------------------------------------------------------------- ! ... dummy arguments !-------------------------------------------------------------------- integer, intent(in) :: class - integer, intent(in) :: chnkpnts + integer, intent(in) :: ncol integer, intent(in) :: nprod - real(r8), intent(in) :: y(chnkpnts,gas_pcnst) - real(r8), intent(in) :: rxt(chnkpnts,rxntot) - real(r8), intent(in) :: extfrc(chnkpnts,extcnt) - real(r8), intent(inout) :: prod(chnkpnts,nprod) + real(r8), intent(in) :: y(ncol,pver,gas_pcnst) + real(r8), intent(in) :: rxt(ncol,pver,rxntot) + real(r8), intent(in) :: extfrc(ncol,pver,extcnt) + real(r8), intent(inout) :: prod(ncol,pver,nprod) !-------------------------------------------------------------------- ! ... "independent" production for Explicit species !-------------------------------------------------------------------- if( class == 1 ) then - prod(:,1) = 0._r8 - prod(:,2) = 0._r8 - prod(:,3) = 0._r8 - prod(:,4) = 0._r8 - prod(:,5) = 0._r8 - prod(:,6) = 0._r8 - prod(:,7) = 0._r8 - prod(:,8) = 0._r8 - prod(:,9) = 0._r8 - prod(:,10) = 0._r8 - prod(:,11) = 0._r8 - prod(:,12) = 0._r8 - prod(:,13) = 0._r8 - prod(:,14) = 0._r8 - prod(:,15) = 0._r8 - prod(:,16) = 0._r8 - prod(:,17) = (rxt(:,63) +rxt(:,114)*y(:,86) +rxt(:,115)*y(:,86) + & - rxt(:,116)*y(:,26) +rxt(:,117)*y(:,38) +rxt(:,124)*y(:,49) + & - rxt(:,125)*y(:,67) +rxt(:,126)*y(:,68) +rxt(:,168)*y(:,104) + & - rxt(:,170)*y(:,102) +rxt(:,186)*y(:,100) +rxt(:,204)*y(:,119) + & - rxt(:,221)*y(:,116) +rxt(:,239)*y(:,115) +rxt(:,256)*y(:,126) + & - rxt(:,258)*y(:,102) +rxt(:,265)*y(:,104) +rxt(:,280)*y(:,60) + & - rxt(:,281)*y(:,61))*y(:,91) + (rxt(:,120)*y(:,61) + & - rxt(:,121)*y(:,61) +rxt(:,122)*y(:,60) +rxt(:,123)*y(:,60) + & - rxt(:,155)*y(:,126) +rxt(:,158)*y(:,102) +rxt(:,178)*y(:,104) + & - rxt(:,196)*y(:,100) +rxt(:,213)*y(:,119) +rxt(:,231)*y(:,116) + & - rxt(:,249)*y(:,115) +rxt(:,260)*y(:,102) +rxt(:,261)*y(:,104)) & - *y(:,93) + (rxt(:,65) +rxt(:,127)*y(:,86) +rxt(:,128)*y(:,26) + & - rxt(:,130)*y(:,47) +rxt(:,132)*y(:,69) +rxt(:,151)*y(:,126) + & - rxt(:,174)*y(:,104) +rxt(:,191)*y(:,100) +rxt(:,209)*y(:,119) + & - rxt(:,225)*y(:,102) +rxt(:,227)*y(:,116) +rxt(:,244)*y(:,115)) & - *y(:,94) + (rxt(:,153)*y(:,126) +rxt(:,176)*y(:,104) + & - rxt(:,194)*y(:,100) +rxt(:,211)*y(:,119) +rxt(:,229)*y(:,116) + & - rxt(:,246)*y(:,115) +rxt(:,247)*y(:,102) +rxt(:,259)*y(:,104) + & - rxt(:,271)*y(:,102))*y(:,92) + (rxt(:,149)*y(:,126) + & - rxt(:,172)*y(:,104) +rxt(:,189)*y(:,100) +rxt(:,203)*y(:,102) + & - rxt(:,207)*y(:,119) +rxt(:,224)*y(:,116) +rxt(:,242)*y(:,115)) & - *y(:,97) + (rxt(:,369) +rxt(:,306)*y(:,95) +rxt(:,307)*y(:,137)) & - *y(:,118) + (rxt(:,537)*y(:,131) +rxt(:,541)*y(:,131))*y(:,29) - prod(:,18) = 0._r8 - prod(:,19) = 0._r8 - prod(:,20) = 0._r8 - prod(:,21) = 0._r8 - prod(:,22) =rxt(:,427)*y(:,61)*y(:,54) - prod(:,23) = 0._r8 + prod(:,:,1) = 0._r8 + prod(:,:,2) = 0._r8 + prod(:,:,3) = 0._r8 + prod(:,:,4) = 0._r8 + prod(:,:,5) = 0._r8 + prod(:,:,6) = 0._r8 + prod(:,:,7) = 0._r8 + prod(:,:,8) = 0._r8 + prod(:,:,9) = 0._r8 + prod(:,:,10) = 0._r8 + prod(:,:,11) = 0._r8 + prod(:,:,12) = 0._r8 + prod(:,:,13) = 0._r8 + prod(:,:,14) = 0._r8 + prod(:,:,15) = 0._r8 + prod(:,:,16) = 0._r8 + prod(:,:,17) = (rxt(:,:,63) +rxt(:,:,114)*y(:,:,25) +rxt(:,:,115)*y(:,:,25) + & + rxt(:,:,116)*y(:,:,28) +rxt(:,:,117)*y(:,:,40) + & + rxt(:,:,124)*y(:,:,51) +rxt(:,:,125)*y(:,:,69) + & + rxt(:,:,126)*y(:,:,71) +rxt(:,:,168)*y(:,:,105) + & + rxt(:,:,170)*y(:,:,103) +rxt(:,:,186)*y(:,:,101) + & + rxt(:,:,204)*y(:,:,120) +rxt(:,:,221)*y(:,:,117) + & + rxt(:,:,239)*y(:,:,116) +rxt(:,:,256)*y(:,:,126) + & + rxt(:,:,258)*y(:,:,103) +rxt(:,:,265)*y(:,:,105) + & + rxt(:,:,280)*y(:,:,62) +rxt(:,:,281)*y(:,:,63))*y(:,:,92) & + + (rxt(:,:,120)*y(:,:,63) +rxt(:,:,121)*y(:,:,63) + & + rxt(:,:,122)*y(:,:,62) +rxt(:,:,123)*y(:,:,62) + & + rxt(:,:,155)*y(:,:,126) +rxt(:,:,158)*y(:,:,103) + & + rxt(:,:,178)*y(:,:,105) +rxt(:,:,196)*y(:,:,101) + & + rxt(:,:,213)*y(:,:,120) +rxt(:,:,231)*y(:,:,117) + & + rxt(:,:,249)*y(:,:,116) +rxt(:,:,260)*y(:,:,103) + & + rxt(:,:,261)*y(:,:,105))*y(:,:,94) + (rxt(:,:,65) + & + rxt(:,:,127)*y(:,:,25) +rxt(:,:,128)*y(:,:,28) + & + rxt(:,:,130)*y(:,:,49) +rxt(:,:,132)*y(:,:,72) + & + rxt(:,:,151)*y(:,:,126) +rxt(:,:,174)*y(:,:,105) + & + rxt(:,:,191)*y(:,:,101) +rxt(:,:,209)*y(:,:,120) + & + rxt(:,:,225)*y(:,:,103) +rxt(:,:,227)*y(:,:,117) + & + rxt(:,:,244)*y(:,:,116))*y(:,:,95) + (rxt(:,:,153)*y(:,:,126) + & + rxt(:,:,176)*y(:,:,105) +rxt(:,:,194)*y(:,:,101) + & + rxt(:,:,211)*y(:,:,120) +rxt(:,:,229)*y(:,:,117) + & + rxt(:,:,246)*y(:,:,116) +rxt(:,:,247)*y(:,:,103) + & + rxt(:,:,259)*y(:,:,105) +rxt(:,:,271)*y(:,:,103))*y(:,:,93) & + + (rxt(:,:,149)*y(:,:,126) +rxt(:,:,172)*y(:,:,105) + & + rxt(:,:,189)*y(:,:,101) +rxt(:,:,203)*y(:,:,103) + & + rxt(:,:,207)*y(:,:,120) +rxt(:,:,224)*y(:,:,117) + & + rxt(:,:,242)*y(:,:,116))*y(:,:,98) + (rxt(:,:,369) + & + rxt(:,:,306)*y(:,:,96) +rxt(:,:,307)*y(:,:,137))*y(:,:,119) & + + (rxt(:,:,537)*y(:,:,131) +rxt(:,:,541)*y(:,:,131))*y(:,:,31) + prod(:,:,18) = 0._r8 + prod(:,:,19) = 0._r8 + prod(:,:,20) = 0._r8 + prod(:,:,21) = 0._r8 + prod(:,:,22) =rxt(:,:,427)*y(:,:,63)*y(:,:,56) + prod(:,:,23) = 0._r8 !-------------------------------------------------------------------- ! ... "independent" production for Implicit species !-------------------------------------------------------------------- else if( class == 4 ) then - prod(:,1) = + extfrc(:,5) - prod(:,2) = + extfrc(:,6) - prod(:,27) = 0._r8 - prod(:,82) = 0._r8 - prod(:,45) = 0._r8 - prod(:,83) =.180_r8*rxt(:,25)*y(:,22) - prod(:,66) =rxt(:,40)*y(:,17) +rxt(:,42)*y(:,19) +rxt(:,24)*y(:,22) - prod(:,35) = 0._r8 - prod(:,24) = 0._r8 - prod(:,21) = 0._r8 - prod(:,112) = 0._r8 - prod(:,62) = 0._r8 - prod(:,44) = (rxt(:,26) +rxt(:,62))*y(:,30) +.380_r8*rxt(:,25)*y(:,22) & - + extfrc(:,13) - prod(:,23) =rxt(:,32)*y(:,8) +rxt(:,33)*y(:,9) +rxt(:,35)*y(:,11) & - +2.000_r8*rxt(:,36)*y(:,12) +2.000_r8*rxt(:,37)*y(:,13) +rxt(:,38) & - *y(:,14) +2.000_r8*rxt(:,51)*y(:,40) +rxt(:,54)*y(:,45) +rxt(:,55) & - *y(:,46) - prod(:,25) =rxt(:,34)*y(:,10) +rxt(:,35)*y(:,11) +rxt(:,53)*y(:,44) - prod(:,32) = + extfrc(:,2) - prod(:,3) = 0._r8 - prod(:,4) = 0._r8 - prod(:,5) = 0._r8 - prod(:,53) =rxt(:,33)*y(:,9) +rxt(:,37)*y(:,13) - prod(:,113) = (rxt(:,24) +.330_r8*rxt(:,25))*y(:,22) - prod(:,77) =1.440_r8*rxt(:,25)*y(:,22) - prod(:,46) = 0._r8 - prod(:,22) = 0._r8 - prod(:,58) = 0._r8 - prod(:,98) = 0._r8 - prod(:,26) = 0._r8 - prod(:,101) = 0._r8 - prod(:,39) = 0._r8 - prod(:,54) = 0._r8 - prod(:,57) = 0._r8 - prod(:,50) = 0._r8 - prod(:,65) = (rxt(:,69) +rxt(:,70) +.800_r8*rxt(:,72) +.800_r8*rxt(:,73)) & - + extfrc(:,15) - prod(:,64) = 0._r8 - prod(:,6) = 0._r8 - prod(:,7) = 0._r8 - prod(:,8) = 0._r8 - prod(:,106) = + extfrc(:,14) - prod(:,94) = + extfrc(:,3) - prod(:,97) = 0._r8 - prod(:,9) = + extfrc(:,7) - prod(:,10) = + extfrc(:,8) - prod(:,11) = 0._r8 - prod(:,12) = + extfrc(:,9) - prod(:,104) = (rxt(:,26) +rxt(:,62))*y(:,30) +.180_r8*rxt(:,25)*y(:,22) & - + extfrc(:,22) - prod(:,100) = 0._r8 - prod(:,99) = 0._r8 - prod(:,33) = 0._r8 - prod(:,34) = 0._r8 - prod(:,13) = + extfrc(:,10) - prod(:,14) = + extfrc(:,11) - prod(:,49) = 0._r8 - prod(:,70) = 0._r8 - prod(:,60) = + extfrc(:,4) - prod(:,29) = 0._r8 - prod(:,15) = + extfrc(:,12) - prod(:,16) = + extfrc(:,1) - prod(:,17) = 0._r8 - prod(:,18) = 0._r8 - prod(:,19) = 0._r8 - prod(:,20) = 0._r8 - prod(:,75) =rxt(:,32)*y(:,8) +rxt(:,33)*y(:,9) +2.000_r8*rxt(:,39)*y(:,15) & - +rxt(:,40)*y(:,17) +3.000_r8*rxt(:,43)*y(:,23) +2.000_r8*rxt(:,51) & - *y(:,40) - prod(:,105) =4.000_r8*rxt(:,31)*y(:,7) +rxt(:,32)*y(:,8) +2.000_r8*rxt(:,34) & - *y(:,10) +2.000_r8*rxt(:,35)*y(:,11) +2.000_r8*rxt(:,36)*y(:,12) & - +rxt(:,37)*y(:,13) +2.000_r8*rxt(:,38)*y(:,14) +3.000_r8*rxt(:,41) & - *y(:,18) +rxt(:,42)*y(:,19) +rxt(:,53)*y(:,44) +rxt(:,54)*y(:,45) & - +rxt(:,55)*y(:,46) - prod(:,86) = 0._r8 - prod(:,72) = 0._r8 - prod(:,71) = 0._r8 - prod(:,63) = 0._r8 - prod(:,90) = 0._r8 - prod(:,69) = 0._r8 - prod(:,80) = 0._r8 - prod(:,85) = 0._r8 - prod(:,107) = (rxt(:,67) +rxt(:,68) +rxt(:,69) +rxt(:,70) +rxt(:,71) + & - rxt(:,74)) + extfrc(:,20) - prod(:,36) = 0._r8 - prod(:,67) = 0._r8 - prod(:,88) = 0._r8 - prod(:,48) = 0._r8 - prod(:,95) = 0._r8 - prod(:,30) = 0._r8 - prod(:,111) = 0._r8 - prod(:,31) = 0._r8 - prod(:,108) = 0._r8 - prod(:,51) = 0._r8 - prod(:,55) = (rxt(:,68) +rxt(:,71) +1.200_r8*rxt(:,72) +1.200_r8*rxt(:,73)) & - + extfrc(:,16) - prod(:,47) = (rxt(:,67) +rxt(:,74)) + extfrc(:,17) - prod(:,91) = 0._r8 - prod(:,73) = 0._r8 - prod(:,87) = 0._r8 - prod(:,79) = 0._r8 - prod(:,81) = 0._r8 - prod(:,76) = 0._r8 - prod(:,78) = 0._r8 - prod(:,92) = 0._r8 - prod(:,93) = 0._r8 - prod(:,37) = 0._r8 - prod(:,41) = 0._r8 - prod(:,96) = 0._r8 - prod(:,40) = 0._r8 - prod(:,56) = (rxt(:,68) +rxt(:,69) +rxt(:,70) +rxt(:,71)) + extfrc(:,21) - prod(:,84) =rxt(:,13)*y(:,55) - prod(:,59) = 0._r8 - prod(:,28) = 0._r8 - prod(:,102) = 0._r8 - prod(:,103) = + extfrc(:,23) - prod(:,52) = 0._r8 - prod(:,74) = 0._r8 - prod(:,38) = 0._r8 - prod(:,68) = 0._r8 - prod(:,89) =.330_r8*rxt(:,25)*y(:,22) + extfrc(:,18) - prod(:,109) = 0._r8 - prod(:,110) = 0._r8 - prod(:,61) = + extfrc(:,19) - prod(:,43) = 0._r8 - prod(:,42) = 0._r8 - prod(:,114) =.050_r8*rxt(:,25)*y(:,22) + prod(:,:,1) = + extfrc(:,:,5) + prod(:,:,2) = + extfrc(:,:,6) + prod(:,:,76) =rxt(:,:,32)*y(:,:,9) +rxt(:,:,33)*y(:,:,10) & + +2.000_r8*rxt(:,:,39)*y(:,:,16) +rxt(:,:,40)*y(:,:,18) & + +3.000_r8*rxt(:,:,43)*y(:,:,24) +2.000_r8*rxt(:,:,51)*y(:,:,42) + prod(:,:,27) = 0._r8 + prod(:,:,82) = 0._r8 + prod(:,:,45) = 0._r8 + prod(:,:,83) =.180_r8*rxt(:,:,25)*y(:,:,23) + prod(:,:,66) =rxt(:,:,40)*y(:,:,18) +rxt(:,:,42)*y(:,:,20) +rxt(:,:,24) & + *y(:,:,23) + prod(:,:,35) = 0._r8 + prod(:,:,100) =4.000_r8*rxt(:,:,31)*y(:,:,8) +rxt(:,:,32)*y(:,:,9) & + +2.000_r8*rxt(:,:,34)*y(:,:,11) +2.000_r8*rxt(:,:,35)*y(:,:,12) & + +2.000_r8*rxt(:,:,36)*y(:,:,13) +rxt(:,:,37)*y(:,:,14) & + +2.000_r8*rxt(:,:,38)*y(:,:,15) +3.000_r8*rxt(:,:,41)*y(:,:,19) & + +rxt(:,:,42)*y(:,:,20) +rxt(:,:,53)*y(:,:,46) +rxt(:,:,54)*y(:,:,47) & + +rxt(:,:,55)*y(:,:,48) + prod(:,:,24) = 0._r8 + prod(:,:,21) = 0._r8 + prod(:,:,106) = 0._r8 + prod(:,:,62) = 0._r8 + prod(:,:,44) = (rxt(:,:,26) +rxt(:,:,62))*y(:,:,32) +.380_r8*rxt(:,:,25) & + *y(:,:,23) + extfrc(:,:,13) + prod(:,:,23) =rxt(:,:,32)*y(:,:,9) +rxt(:,:,33)*y(:,:,10) +rxt(:,:,35) & + *y(:,:,12) +2.000_r8*rxt(:,:,36)*y(:,:,13) +2.000_r8*rxt(:,:,37) & + *y(:,:,14) +rxt(:,:,38)*y(:,:,15) +2.000_r8*rxt(:,:,51)*y(:,:,42) & + +rxt(:,:,54)*y(:,:,47) +rxt(:,:,55)*y(:,:,48) + prod(:,:,25) =rxt(:,:,34)*y(:,:,11) +rxt(:,:,35)*y(:,:,12) +rxt(:,:,53) & + *y(:,:,46) + prod(:,:,32) = + extfrc(:,:,2) + prod(:,:,3) = 0._r8 + prod(:,:,4) = 0._r8 + prod(:,:,5) = 0._r8 + prod(:,:,53) =rxt(:,:,33)*y(:,:,10) +rxt(:,:,37)*y(:,:,14) + prod(:,:,105) = (rxt(:,:,24) +.330_r8*rxt(:,:,25))*y(:,:,23) + prod(:,:,77) =1.440_r8*rxt(:,:,25)*y(:,:,23) + prod(:,:,46) = 0._r8 + prod(:,:,22) = 0._r8 + prod(:,:,57) = 0._r8 + prod(:,:,101) = 0._r8 + prod(:,:,26) = 0._r8 + prod(:,:,108) = 0._r8 + prod(:,:,39) = 0._r8 + prod(:,:,54) = 0._r8 + prod(:,:,58) = 0._r8 + prod(:,:,50) = 0._r8 + prod(:,:,65) = (rxt(:,:,69) +rxt(:,:,70) +.800_r8*rxt(:,:,72) + & + .800_r8*rxt(:,:,73)) + extfrc(:,:,15) + prod(:,:,64) = 0._r8 + prod(:,:,6) = 0._r8 + prod(:,:,7) = 0._r8 + prod(:,:,8) = 0._r8 + prod(:,:,98) = + extfrc(:,:,14) + prod(:,:,96) = + extfrc(:,:,3) + prod(:,:,113) = 0._r8 + prod(:,:,9) = + extfrc(:,:,7) + prod(:,:,10) = + extfrc(:,:,8) + prod(:,:,11) = 0._r8 + prod(:,:,12) = + extfrc(:,:,9) + prod(:,:,99) = (rxt(:,:,26) +rxt(:,:,62))*y(:,:,32) +.180_r8*rxt(:,:,25) & + *y(:,:,23) + extfrc(:,:,22) + prod(:,:,84) =rxt(:,:,13)*y(:,:,57) + prod(:,:,95) = 0._r8 + prod(:,:,104) = 0._r8 + prod(:,:,33) = 0._r8 + prod(:,:,34) = 0._r8 + prod(:,:,13) = + extfrc(:,:,10) + prod(:,:,14) = + extfrc(:,:,11) + prod(:,:,49) = 0._r8 + prod(:,:,70) = 0._r8 + prod(:,:,60) = + extfrc(:,:,4) + prod(:,:,29) = 0._r8 + prod(:,:,15) = + extfrc(:,:,12) + prod(:,:,16) = + extfrc(:,:,1) + prod(:,:,17) = 0._r8 + prod(:,:,18) = 0._r8 + prod(:,:,19) = 0._r8 + prod(:,:,20) = 0._r8 + prod(:,:,86) = 0._r8 + prod(:,:,72) = 0._r8 + prod(:,:,71) = 0._r8 + prod(:,:,63) = 0._r8 + prod(:,:,90) = 0._r8 + prod(:,:,69) = 0._r8 + prod(:,:,80) = 0._r8 + prod(:,:,85) = 0._r8 + prod(:,:,91) = (rxt(:,:,67) +rxt(:,:,68) +rxt(:,:,69) +rxt(:,:,70) + & + rxt(:,:,71) +rxt(:,:,74)) + extfrc(:,:,20) + prod(:,:,36) = 0._r8 + prod(:,:,67) = 0._r8 + prod(:,:,88) = 0._r8 + prod(:,:,48) = 0._r8 + prod(:,:,92) = 0._r8 + prod(:,:,30) = 0._r8 + prod(:,:,107) = 0._r8 + prod(:,:,31) = 0._r8 + prod(:,:,111) = 0._r8 + prod(:,:,51) = 0._r8 + prod(:,:,55) = (rxt(:,:,68) +rxt(:,:,71) +1.200_r8*rxt(:,:,72) + & + 1.200_r8*rxt(:,:,73)) + extfrc(:,:,16) + prod(:,:,47) = (rxt(:,:,67) +rxt(:,:,74)) + extfrc(:,:,17) + prod(:,:,112) = 0._r8 + prod(:,:,73) = 0._r8 + prod(:,:,87) = 0._r8 + prod(:,:,79) = 0._r8 + prod(:,:,81) = 0._r8 + prod(:,:,75) = 0._r8 + prod(:,:,78) = 0._r8 + prod(:,:,93) = 0._r8 + prod(:,:,94) = 0._r8 + prod(:,:,37) = 0._r8 + prod(:,:,41) = 0._r8 + prod(:,:,97) = 0._r8 + prod(:,:,40) = 0._r8 + prod(:,:,56) = (rxt(:,:,68) +rxt(:,:,69) +rxt(:,:,70) +rxt(:,:,71)) & + + extfrc(:,:,21) + prod(:,:,59) = 0._r8 + prod(:,:,28) = 0._r8 + prod(:,:,102) = 0._r8 + prod(:,:,103) = + extfrc(:,:,23) + prod(:,:,52) = 0._r8 + prod(:,:,74) = 0._r8 + prod(:,:,38) = 0._r8 + prod(:,:,68) = 0._r8 + prod(:,:,89) =.330_r8*rxt(:,:,25)*y(:,:,23) + extfrc(:,:,18) + prod(:,:,109) = 0._r8 + prod(:,:,110) = 0._r8 + prod(:,:,61) = + extfrc(:,:,19) + prod(:,:,43) = 0._r8 + prod(:,:,42) = 0._r8 + prod(:,:,114) =.050_r8*rxt(:,:,25)*y(:,:,23) end if end subroutine indprd end module mo_indprd diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_lin_matrix.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_lin_matrix.F90 index 3f9d706f25..fdf8d55894 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_lin_matrix.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_lin_matrix.F90 @@ -1,9 +1,8 @@ module mo_lin_matrix - use chem_mods, only: veclen private public :: linmat contains - subroutine linmat01( avec_len, mat, y, rxt, het_rates ) + subroutine linmat01( mat, y, rxt, het_rates ) !---------------------------------------------- ! ... linear matrix entries for implicit species !---------------------------------------------- @@ -13,222 +12,213 @@ subroutine linmat01( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(in) :: het_rates(veclen,gas_pcnst) - real(r8), intent(inout) :: mat(veclen,nzcnt) -!---------------------------------------------- -! ... local variables -!---------------------------------------------- - integer :: k - do k = 1,avec_len - mat(k,1) = -( het_rates(k,1) ) - mat(k,2) = -( het_rates(k,2) ) - mat(k,39) = -( rxt(k,27) + het_rates(k,3) ) - mat(k,584) = -( rxt(k,28) + het_rates(k,4) ) - mat(k,141) = rxt(k,29) - mat(k,138) = -( rxt(k,29) + rxt(k,30) + rxt(k,565) + rxt(k,568) + rxt(k,573) & - + het_rates(k,5) ) - mat(k,606) = -( rxt(k,21) + rxt(k,22) + het_rates(k,16) ) - mat(k,79) = rxt(k,23) - mat(k,636) = rxt(k,539)*y(k,22) + rxt(k,540)*y(k,22) - mat(k,324) = -( het_rates(k,20) ) - mat(k,1450) = rxt(k,451)*y(k,22) - mat(k,199) = rxt(k,507)*y(k,22) - mat(k,786) = rxt(k,536)*y(k,22) - mat(k,631) = rxt(k,538)*y(k,22) - mat(k,77) = -( rxt(k,23) + het_rates(k,21) ) - mat(k,30) = -( rxt(k,44) + het_rates(k,24) ) - mat(k,21) = -( rxt(k,45) + rxt(k,485) + het_rates(k,25) ) - mat(k,1761) = -( rxt(k,46) + het_rates(k,26) ) - mat(k,285) = rxt(k,48) - mat(k,68) = rxt(k,60) - mat(k,23) = 2.000_r8*rxt(k,485) - mat(k,277) = -( rxt(k,47) + rxt(k,48) + rxt(k,567) + rxt(k,572) + rxt(k,578) & - + het_rates(k,27) ) - mat(k,134) = -( het_rates(k,29) ) - mat(k,601) = rxt(k,21) + rxt(k,22) - mat(k,70) = rxt(k,101) - mat(k,1445) = rxt(k,518)*y(k,19) - mat(k,261) = rxt(k,595)*y(k,30) - mat(k,27) = -( rxt(k,49) + het_rates(k,31) ) - mat(k,625) = rxt(k,476)*y(k,8) + rxt(k,478)*y(k,11) + 2.000_r8*rxt(k,479)*y(k,12) & - + 2.000_r8*rxt(k,480)*y(k,13) + rxt(k,481)*y(k,14) & - + rxt(k,502)*y(k,9) + 2.000_r8*rxt(k,504)*y(k,40) & - + rxt(k,528)*y(k,45) + rxt(k,529)*y(k,46) - mat(k,768) = rxt(k,523)*y(k,45) + rxt(k,524)*y(k,46) - mat(k,32) = -( rxt(k,50) + het_rates(k,32) ) - mat(k,626) = rxt(k,477)*y(k,10) + rxt(k,478)*y(k,11) + rxt(k,527)*y(k,44) - mat(k,769) = rxt(k,522)*y(k,44) - mat(k,58) = -( het_rates(k,33) ) - mat(k,3) = -( het_rates(k,34) ) - mat(k,4) = -( het_rates(k,35) ) - mat(k,5) = -( het_rates(k,36) ) - mat(k,198) = -( rxt(k,507)*y(k,22) + het_rates(k,37) ) - mat(k,28) = 2.000_r8*rxt(k,49) - mat(k,33) = rxt(k,50) - mat(k,37) = rxt(k,57) - mat(k,628) = rxt(k,480)*y(k,13) + rxt(k,502)*y(k,9) - mat(k,1797) = -( het_rates(k,38) ) - mat(k,1855) = 2.000_r8*rxt(k,2) + rxt(k,3) - mat(k,623) = 2.000_r8*rxt(k,21) - mat(k,81) = rxt(k,23) - mat(k,244) = rxt(k,52) - mat(k,1175) = rxt(k,56) - mat(k,38) = rxt(k,57) - mat(k,656) = rxt(k,539)*y(k,22) - mat(k,484) = -( het_rates(k,39) ) - mat(k,1821) = rxt(k,1) - mat(k,604) = rxt(k,22) - mat(k,634) = rxt(k,540)*y(k,22) - mat(k,146) = -( rxt(k,4) + het_rates(k,41) ) - mat(k,736) = .500_r8*rxt(k,559) - mat(k,24) = -( rxt(k,100) + het_rates(k,42) ) - mat(k,238) = -( rxt(k,52) + het_rates(k,43) ) - mat(k,1160) = -( rxt(k,56) + het_rates(k,47) ) - mat(k,399) = rxt(k,386) - mat(k,1469) = rxt(k,451)*y(k,22) + rxt(k,513)*y(k,15) + rxt(k,515)*y(k,17) & - + 2.000_r8*rxt(k,518)*y(k,19) + rxt(k,520)*y(k,23) - mat(k,36) = -( rxt(k,57) + het_rates(k,48) ) - mat(k,197) = rxt(k,507)*y(k,22) - mat(k,1292) = -( rxt(k,9) + het_rates(k,49) ) - mat(k,511) = rxt(k,275) - mat(k,303) = 2.000_r8*rxt(k,560) + 2.000_r8*rxt(k,563) + 2.000_r8*rxt(k,566) & - + 2.000_r8*rxt(k,577) - mat(k,997) = .500_r8*rxt(k,561) - mat(k,1119) = rxt(k,562) - mat(k,144) = rxt(k,565) + rxt(k,568) + rxt(k,573) - mat(k,282) = rxt(k,567) + rxt(k,572) + rxt(k,578) - mat(k,101) = -( rxt(k,10) + rxt(k,11) + rxt(k,448) + het_rates(k,50) ) - mat(k,207) = -( rxt(k,58) + het_rates(k,51) ) - mat(k,139) = rxt(k,565) + rxt(k,568) + rxt(k,573) - mat(k,231) = -( rxt(k,59) + het_rates(k,52) ) - mat(k,276) = rxt(k,567) + rxt(k,572) + rxt(k,578) - mat(k,175) = -( rxt(k,12) + het_rates(k,53) ) - mat(k,311) = -( rxt(k,66) + het_rates(k,54) ) - mat(k,1488) = rxt(k,17) - mat(k,265) = rxt(k,596) - mat(k,297) = -( rxt(k,14) + rxt(k,15) + rxt(k,449) + rxt(k,560) + rxt(k,563) & - + rxt(k,566) + rxt(k,577) + het_rates(k,56) ) - mat(k,6) = -( het_rates(k,57) ) - mat(k,7) = -( het_rates(k,58) ) - mat(k,8) = -( het_rates(k,59) ) - mat(k,1518) = -( rxt(k,16) + rxt(k,17) + het_rates(k,60) ) - mat(k,178) = rxt(k,12) - mat(k,305) = rxt(k,15) - mat(k,1002) = rxt(k,18) + .500_r8*rxt(k,561) - mat(k,1124) = rxt(k,20) - mat(k,1376) = rxt(k,593) - mat(k,127) = rxt(k,606) - mat(k,651) = 2.000_r8*rxt(k,442)*y(k,55) - mat(k,990) = -( rxt(k,18) + rxt(k,561) + het_rates(k,61) ) - mat(k,1285) = rxt(k,9) - mat(k,104) = rxt(k,11) + rxt(k,448) - mat(k,301) = rxt(k,14) + rxt(k,449) - mat(k,1112) = rxt(k,19) - mat(k,142) = rxt(k,29) - mat(k,279) = rxt(k,48) - mat(k,855) = rxt(k,75) - mat(k,1115) = -( rxt(k,19) + rxt(k,20) + rxt(k,562) + het_rates(k,62) ) - mat(k,105) = rxt(k,10) - mat(k,302) = rxt(k,14) + rxt(k,15) + rxt(k,449) - mat(k,143) = rxt(k,30) - mat(k,280) = rxt(k,47) - mat(k,720) = rxt(k,76) - mat(k,9) = -( het_rates(k,63) ) - mat(k,10) = -( het_rates(k,64) ) - mat(k,11) = -( het_rates(k,65) ) - mat(k,12) = -( het_rates(k,66) ) - mat(k,1433) = -( rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & - + rxt(k,82) + het_rates(k,67) ) - mat(k,1846) = rxt(k,2) - mat(k,1256) = 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,1207) = rxt(k,8) - mat(k,304) = rxt(k,15) - mat(k,1516) = rxt(k,17) - mat(k,1000) = rxt(k,18) - mat(k,1122) = rxt(k,19) - mat(k,595) = rxt(k,28) - mat(k,1753) = rxt(k,46) - mat(k,67) = rxt(k,60) - mat(k,1667) = rxt(k,99) + rxt(k,358) - mat(k,387) = rxt(k,102) - mat(k,259) = rxt(k,103) - mat(k,48) = rxt(k,104) - mat(k,649) = rxt(k,391) - mat(k,133) = rxt(k,600) - mat(k,126) = rxt(k,605) - mat(k,1252) = -( 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,68) ) - mat(k,1203) = rxt(k,8) - mat(k,1118) = rxt(k,20) - mat(k,1326) = rxt(k,93) + rxt(k,137) - mat(k,444) = rxt(k,95) + rxt(k,330)*y(k,30) - mat(k,98) = rxt(k,97) + rxt(k,335)*y(k,30) - mat(k,249) = rxt(k,387) + rxt(k,395) - mat(k,44) = rxt(k,388) - mat(k,645) = rxt(k,443)*y(k,55) - mat(k,1202) = -( rxt(k,7) + rxt(k,8) + het_rates(k,69) ) - mat(k,443) = rxt(k,96) - mat(k,64) = -( rxt(k,60) + het_rates(k,70) ) - mat(k,69) = -( rxt(k,101) + het_rates(k,71) ) - mat(k,13) = -( het_rates(k,72) ) - mat(k,14) = -( het_rates(k,73) ) - mat(k,168) = -( het_rates(k,74) ) - mat(k,71) = rxt(k,101) - mat(k,377) = rxt(k,102) - mat(k,379) = -( rxt(k,102) + het_rates(k,76) ) - mat(k,256) = rxt(k,103) - mat(k,255) = -( rxt(k,103) + het_rates(k,77) ) - mat(k,47) = rxt(k,104) - mat(k,46) = -( rxt(k,104) + het_rates(k,78) ) - mat(k,25) = rxt(k,100) - mat(k,15) = -( het_rates(k,79) ) - mat(k,16) = -( het_rates(k,80) ) - mat(k,17) = -( het_rates(k,81) ) - mat(k,18) = -( het_rates(k,82) ) - mat(k,19) = -( het_rates(k,83) ) - mat(k,20) = -( het_rates(k,84) ) - mat(k,454) = -( het_rates(k,85) ) - mat(k,40) = rxt(k,27) - mat(k,583) = rxt(k,28) - mat(k,140) = rxt(k,30) - mat(k,239) = rxt(k,52) - mat(k,208) = rxt(k,58) - mat(k,633) = rxt(k,476)*y(k,8) + rxt(k,502)*y(k,9) + 3.000_r8*rxt(k,503)*y(k,23) & - + 2.000_r8*rxt(k,504)*y(k,40) + 2.000_r8*rxt(k,525)*y(k,15) & - + rxt(k,526)*y(k,17) - mat(k,1451) = 2.000_r8*rxt(k,513)*y(k,15) + rxt(k,515)*y(k,17) & - + 3.000_r8*rxt(k,520)*y(k,23) - mat(k,788) = 2.000_r8*rxt(k,514)*y(k,15) + rxt(k,516)*y(k,17) & - + 3.000_r8*rxt(k,521)*y(k,23) - mat(k,1476) = -( rxt(k,451)*y(k,22) + rxt(k,513)*y(k,15) + rxt(k,515)*y(k,17) & - + rxt(k,518)*y(k,19) + rxt(k,520)*y(k,23) + het_rates(k,86) ) - mat(k,41) = rxt(k,27) - mat(k,31) = 2.000_r8*rxt(k,44) - mat(k,22) = 2.000_r8*rxt(k,45) - mat(k,1754) = rxt(k,46) - mat(k,284) = rxt(k,47) - mat(k,35) = rxt(k,50) - mat(k,1167) = rxt(k,56) - mat(k,235) = rxt(k,59) - mat(k,650) = 4.000_r8*rxt(k,475)*y(k,7) + rxt(k,476)*y(k,8) & - + 2.000_r8*rxt(k,477)*y(k,10) + 2.000_r8*rxt(k,478)*y(k,11) & - + 2.000_r8*rxt(k,479)*y(k,12) + rxt(k,480)*y(k,13) & - + 2.000_r8*rxt(k,481)*y(k,14) + rxt(k,527)*y(k,44) & - + rxt(k,528)*y(k,45) + rxt(k,529)*y(k,46) - mat(k,807) = 3.000_r8*rxt(k,517)*y(k,18) + rxt(k,519)*y(k,19) & - + rxt(k,522)*y(k,44) + rxt(k,523)*y(k,45) + rxt(k,524)*y(k,46) - mat(k,690) = -( het_rates(k,87) ) - mat(k,410) = rxt(k,385) - mat(k,394) = rxt(k,386) - end do + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(in) :: het_rates(max(1,gas_pcnst)) + real(r8), intent(inout) :: mat(nzcnt) + mat(1) = -( het_rates(1) ) + mat(2) = -( het_rates(2) ) + mat(470) = -( het_rates(3) ) + mat(40) = rxt(27) + mat(583) = rxt(28) + mat(140) = rxt(30) + mat(231) = rxt(52) + mat(208) = rxt(58) + mat(633) = rxt(476)*y(9) + rxt(502)*y(10) + 3.000_r8*rxt(503)*y(24) & + + 2.000_r8*rxt(504)*y(42) + 2.000_r8*rxt(525)*y(16) + rxt(526)*y(18) + mat(1263) = 2.000_r8*rxt(513)*y(16) + rxt(515)*y(18) + 3.000_r8*rxt(520)*y(24) + mat(788) = 2.000_r8*rxt(514)*y(16) + rxt(516)*y(18) + 3.000_r8*rxt(521)*y(24) + mat(39) = -( rxt(27) + het_rates(4) ) + mat(584) = -( rxt(28) + het_rates(5) ) + mat(141) = rxt(29) + mat(138) = -( rxt(29) + rxt(30) + rxt(565) + rxt(568) + rxt(573) + het_rates(6) & + ) + mat(606) = -( rxt(21) + rxt(22) + het_rates(17) ) + mat(79) = rxt(23) + mat(636) = rxt(539)*y(23) + rxt(540)*y(23) + mat(324) = -( het_rates(21) ) + mat(1262) = rxt(451)*y(23) + mat(199) = rxt(507)*y(23) + mat(786) = rxt(536)*y(23) + mat(631) = rxt(538)*y(23) + mat(77) = -( rxt(23) + het_rates(22) ) + mat(1283) = -( rxt(451)*y(23) + rxt(513)*y(16) + rxt(515)*y(18) + rxt(518)*y(20) & + + rxt(520)*y(24) + het_rates(25) ) + mat(41) = rxt(27) + mat(31) = 2.000_r8*rxt(44) + mat(22) = 2.000_r8*rxt(45) + mat(1526) = rxt(46) + mat(281) = rxt(47) + mat(35) = rxt(50) + mat(1327) = rxt(56) + mat(242) = rxt(59) + mat(646) = 4.000_r8*rxt(475)*y(8) + rxt(476)*y(9) + 2.000_r8*rxt(477)*y(11) & + + 2.000_r8*rxt(478)*y(12) + 2.000_r8*rxt(479)*y(13) + rxt(480)*y(14) & + + 2.000_r8*rxt(481)*y(15) + rxt(527)*y(46) + rxt(528)*y(47) & + + rxt(529)*y(48) + mat(803) = 3.000_r8*rxt(517)*y(19) + rxt(519)*y(20) + rxt(522)*y(46) & + + rxt(523)*y(47) + rxt(524)*y(48) + mat(30) = -( rxt(44) + het_rates(26) ) + mat(21) = -( rxt(45) + rxt(485) + het_rates(27) ) + mat(1532) = -( rxt(46) + het_rates(28) ) + mat(283) = rxt(48) + mat(68) = rxt(60) + mat(23) = 2.000_r8*rxt(485) + mat(277) = -( rxt(47) + rxt(48) + rxt(567) + rxt(572) + rxt(578) + het_rates(29) & + ) + mat(134) = -( het_rates(31) ) + mat(601) = rxt(21) + rxt(22) + mat(70) = rxt(101) + mat(1257) = rxt(518)*y(20) + mat(261) = rxt(595)*y(32) + mat(27) = -( rxt(49) + het_rates(33) ) + mat(625) = rxt(476)*y(9) + rxt(478)*y(12) + 2.000_r8*rxt(479)*y(13) & + + 2.000_r8*rxt(480)*y(14) + rxt(481)*y(15) + rxt(502)*y(10) & + + 2.000_r8*rxt(504)*y(42) + rxt(528)*y(47) + rxt(529)*y(48) + mat(768) = rxt(523)*y(47) + rxt(524)*y(48) + mat(32) = -( rxt(50) + het_rates(34) ) + mat(626) = rxt(477)*y(11) + rxt(478)*y(12) + rxt(527)*y(46) + mat(769) = rxt(522)*y(46) + mat(58) = -( het_rates(35) ) + mat(3) = -( het_rates(36) ) + mat(4) = -( het_rates(37) ) + mat(5) = -( het_rates(38) ) + mat(198) = -( rxt(507)*y(23) + het_rates(39) ) + mat(28) = 2.000_r8*rxt(49) + mat(33) = rxt(50) + mat(37) = rxt(57) + mat(628) = rxt(480)*y(14) + rxt(502)*y(10) + mat(1487) = -( het_rates(40) ) + mat(1847) = 2.000_r8*rxt(2) + rxt(3) + mat(618) = 2.000_r8*rxt(21) + mat(81) = rxt(23) + mat(236) = rxt(52) + mat(1332) = rxt(56) + mat(38) = rxt(57) + mat(651) = rxt(539)*y(23) + mat(484) = -( het_rates(41) ) + mat(1821) = rxt(1) + mat(604) = rxt(22) + mat(634) = rxt(540)*y(23) + mat(146) = -( rxt(4) + het_rates(43) ) + mat(736) = .500_r8*rxt(559) + mat(24) = -( rxt(100) + het_rates(44) ) + mat(230) = -( rxt(52) + het_rates(45) ) + mat(1328) = -( rxt(56) + het_rates(49) ) + mat(402) = rxt(386) + mat(1284) = rxt(451)*y(23) + rxt(513)*y(16) + rxt(515)*y(18) & + + 2.000_r8*rxt(518)*y(20) + rxt(520)*y(24) + mat(36) = -( rxt(57) + het_rates(50) ) + mat(197) = rxt(507)*y(23) + mat(1615) = -( rxt(9) + het_rates(51) ) + mat(513) = rxt(275) + mat(305) = 2.000_r8*rxt(560) + 2.000_r8*rxt(563) + 2.000_r8*rxt(566) & + + 2.000_r8*rxt(577) + mat(1108) = .500_r8*rxt(561) + mat(1792) = rxt(562) + mat(144) = rxt(565) + rxt(568) + rxt(573) + mat(284) = rxt(567) + rxt(572) + rxt(578) + mat(101) = -( rxt(10) + rxt(11) + rxt(448) + het_rates(52) ) + mat(207) = -( rxt(58) + het_rates(53) ) + mat(139) = rxt(565) + rxt(568) + rxt(573) + mat(239) = -( rxt(59) + het_rates(54) ) + mat(276) = rxt(567) + rxt(572) + rxt(578) + mat(175) = -( rxt(12) + het_rates(55) ) + mat(311) = -( rxt(66) + het_rates(56) ) + mat(1158) = rxt(17) + mat(265) = rxt(596) + mat(297) = -( rxt(14) + rxt(15) + rxt(449) + rxt(560) + rxt(563) + rxt(566) & + + rxt(577) + het_rates(58) ) + mat(6) = -( het_rates(59) ) + mat(7) = -( het_rates(60) ) + mat(8) = -( het_rates(61) ) + mat(1180) = -( rxt(16) + rxt(17) + het_rates(62) ) + mat(178) = rxt(12) + mat(302) = rxt(15) + mat(1098) = rxt(18) + .500_r8*rxt(561) + mat(1782) = rxt(20) + mat(1404) = rxt(593) + mat(126) = rxt(606) + mat(644) = 2.000_r8*rxt(442)*y(57) + mat(1096) = -( rxt(18) + rxt(561) + het_rates(63) ) + mat(1603) = rxt(9) + mat(105) = rxt(11) + rxt(448) + mat(301) = rxt(14) + rxt(449) + mat(1780) = rxt(19) + mat(142) = rxt(29) + mat(279) = rxt(48) + mat(1741) = rxt(75) + mat(1797) = -( rxt(19) + rxt(20) + rxt(562) + het_rates(64) ) + mat(106) = rxt(10) + mat(307) = rxt(14) + rxt(15) + rxt(449) + mat(145) = rxt(30) + mat(285) = rxt(47) + mat(732) = rxt(76) + mat(9) = -( het_rates(65) ) + mat(10) = -( het_rates(66) ) + mat(11) = -( het_rates(67) ) + mat(12) = -( het_rates(68) ) + mat(1240) = -( rxt(77) + rxt(78) + rxt(79) + rxt(80) + rxt(81) + rxt(82) & + + het_rates(69) ) + mat(1841) = rxt(2) + mat(1053) = 2.000_r8*rxt(5) + rxt(6) + rxt(83) + rxt(85) + rxt(87) & + + 2.000_r8*rxt(88) + 2.000_r8*rxt(89) + rxt(90) + rxt(91) + rxt(92) + mat(1446) = rxt(8) + mat(303) = rxt(15) + mat(1181) = rxt(17) + mat(1099) = rxt(18) + mat(1783) = rxt(19) + mat(592) = rxt(28) + mat(1525) = rxt(46) + mat(67) = rxt(60) + mat(1673) = rxt(99) + rxt(358) + mat(387) = rxt(102) + mat(259) = rxt(103) + mat(48) = rxt(104) + mat(645) = rxt(391) + mat(132) = rxt(600) + mat(127) = rxt(605) + mat(637) = -( rxt(391) + rxt(442)*y(57) + rxt(443)*y(57) + rxt(475)*y(8) & + + rxt(476)*y(9) + rxt(477)*y(11) + rxt(478)*y(12) + rxt(479)*y(13) & + + rxt(480)*y(14) + rxt(481)*y(15) + rxt(502)*y(10) + rxt(503)*y(24) & + + rxt(504)*y(42) + rxt(525)*y(16) + rxt(526)*y(18) + rxt(527)*y(46) & + + rxt(528)*y(47) + rxt(529)*y(48) + rxt(538)*y(23) + rxt(539)*y(23) & + + rxt(540)*y(23) + het_rates(70) ) + mat(1827) = rxt(1) + mat(1038) = rxt(6) + mat(1431) = rxt(7) + mat(1049) = -( rxt(5) + rxt(6) + rxt(83) + rxt(84) + rxt(85) + rxt(86) + rxt(87) & + + rxt(88) + rxt(89) + rxt(90) + rxt(91) + rxt(92) + het_rates(71) ) + mat(1442) = rxt(8) + mat(1779) = rxt(20) + mat(1357) = rxt(93) + rxt(137) + mat(442) = rxt(95) + rxt(330)*y(32) + mat(98) = rxt(97) + rxt(335)*y(32) + mat(249) = rxt(387) + rxt(395) + mat(44) = rxt(388) + mat(642) = rxt(443)*y(57) + mat(1451) = -( rxt(7) + rxt(8) + het_rates(72) ) + mat(447) = rxt(96) + mat(64) = -( rxt(60) + het_rates(73) ) + mat(69) = -( rxt(101) + het_rates(74) ) + mat(13) = -( het_rates(75) ) + mat(14) = -( het_rates(76) ) + mat(168) = -( het_rates(77) ) + mat(71) = rxt(101) + mat(377) = rxt(102) + mat(379) = -( rxt(102) + het_rates(79) ) + mat(256) = rxt(103) + mat(255) = -( rxt(103) + het_rates(80) ) + mat(47) = rxt(104) + mat(46) = -( rxt(104) + het_rates(81) ) + mat(25) = rxt(100) + mat(15) = -( het_rates(82) ) + mat(16) = -( het_rates(83) ) + mat(17) = -( het_rates(84) ) + mat(18) = -( het_rates(85) ) + mat(19) = -( het_rates(86) ) end subroutine linmat01 - subroutine linmat02( avec_len, mat, y, rxt, het_rates ) + subroutine linmat02( mat, y, rxt, het_rates ) !---------------------------------------------- ! ... linear matrix entries for implicit species !---------------------------------------------- @@ -238,171 +228,152 @@ subroutine linmat02( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(in) :: het_rates(veclen,gas_pcnst) - real(r8), intent(inout) :: mat(veclen,nzcnt) -!---------------------------------------------- -! ... local variables -!---------------------------------------------- - integer :: k - do k = 1,avec_len - mat(k,409) = -( rxt(k,385) + het_rates(k,88) ) - mat(k,393) = -( rxt(k,386) + het_rates(k,89) ) - mat(k,287) = -( het_rates(k,90) ) - mat(k,822) = -( rxt(k,63) + het_rates(k,91) ) - mat(k,542) = rxt(k,64) + rxt(k,283) - mat(k,440) = rxt(k,330)*y(k,30) - mat(k,1653) = rxt(k,352)*y(k,30) - mat(k,362) = -( rxt(k,284) + het_rates(k,92) ) - mat(k,539) = -( rxt(k,64) + rxt(k,283) + het_rates(k,93) ) - mat(k,363) = rxt(k,284) - mat(k,660) = -( rxt(k,65) + het_rates(k,94) ) - mat(k,1311) = rxt(k,316)*y(k,30) - mat(k,97) = rxt(k,335)*y(k,30) - mat(k,1561) = -( het_rates(k,95) ) - mat(k,1519) = rxt(k,16) - mat(k,321) = rxt(k,66) - mat(k,868) = rxt(k,75) - mat(k,729) = rxt(k,76) - mat(k,1436) = rxt(k,77) + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) & - + rxt(k,82) - mat(k,1259) = 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,1333) = rxt(k,93) + rxt(k,137) - mat(k,448) = rxt(k,96) - mat(k,1635) = rxt(k,98) - mat(k,1670) = rxt(k,99) + rxt(k,358) - mat(k,83) = -( het_rates(k,96) ) - mat(k,335) = -( het_rates(k,97) ) - mat(k,1612) = rxt(k,343)*y(k,30) - mat(k,747) = -( rxt(k,559) + het_rates(k,98) ) - mat(k,102) = rxt(k,11) + rxt(k,448) - mat(k,1459) = rxt(k,515)*y(k,17) + rxt(k,518)*y(k,19) - mat(k,793) = rxt(k,516)*y(k,17) + rxt(k,519)*y(k,19) - mat(k,638) = rxt(k,539)*y(k,22) - mat(k,162) = -( rxt(k,373) + het_rates(k,99) ) - mat(k,1011) = rxt(k,375) - mat(k,1033) = -( rxt(k,375) + het_rates(k,100) ) - mat(k,1700) = rxt(k,377) - mat(k,50) = -( het_rates(k,101) ) - mat(k,1716) = -( rxt(k,377) + het_rates(k,102) ) - mat(k,1607) = rxt(k,379) - mat(k,54) = -( het_rates(k,103) ) - mat(k,1604) = -( rxt(k,379) + het_rates(k,104) ) - mat(k,181) = -( het_rates(k,105) ) - mat(k,163) = rxt(k,373) - mat(k,215) = -( het_rates(k,106) ) - mat(k,153) = -( het_rates(k,107) ) - mat(k,129) = rxt(k,600) - mat(k,123) = rxt(k,605) - mat(k,852) = -( rxt(k,75) + het_rates(k,108) ) - mat(k,425) = rxt(k,273) - mat(k,424) = -( rxt(k,273) + het_rates(k,109) ) - mat(k,713) = -( rxt(k,76) + het_rates(k,110) ) - mat(k,504) = rxt(k,275) - mat(k,561) = rxt(k,282) - mat(k,519) = -( rxt(k,274) + het_rates(k,111) ) - mat(k,560) = -( rxt(k,282) + het_rates(k,112) ) - mat(k,520) = rxt(k,274) - mat(k,465) = -( het_rates(k,113) ) - mat(k,503) = -( rxt(k,275) + het_rates(k,114) ) - mat(k,900) = -( rxt(k,370) + rxt(k,368)*y(k,30) + het_rates(k,115) ) - mat(k,1504) = rxt(k,16) - mat(k,116) = rxt(k,369) - mat(k,110) = rxt(k,371) - mat(k,1362) = rxt(k,593) - mat(k,269) = rxt(k,596) - mat(k,943) = -( het_rates(k,116) ) - mat(k,89) = -( het_rates(k,117) ) - mat(k,115) = -( rxt(k,369) + het_rates(k,118) ) - mat(k,109) = rxt(k,312)*y(k,30) - mat(k,877) = rxt(k,368)*y(k,30) - mat(k,1075) = -( het_rates(k,119) ) - mat(k,108) = -( rxt(k,371) + rxt(k,312)*y(k,30) + het_rates(k,120) ) - mat(k,876) = rxt(k,370) - mat(k,223) = -( het_rates(k,121) ) - mat(k,309) = rxt(k,66) - mat(k,124) = rxt(k,606) - mat(k,637) = -( rxt(k,391) + rxt(k,442)*y(k,55) + rxt(k,443)*y(k,55) & - + rxt(k,475)*y(k,7) + rxt(k,476)*y(k,8) + rxt(k,477)*y(k,10) & - + rxt(k,478)*y(k,11) + rxt(k,479)*y(k,12) + rxt(k,480)*y(k,13) & - + rxt(k,481)*y(k,14) + rxt(k,502)*y(k,9) + rxt(k,503)*y(k,23) & - + rxt(k,504)*y(k,40) + rxt(k,525)*y(k,15) + rxt(k,526)*y(k,17) & - + rxt(k,527)*y(k,44) + rxt(k,528)*y(k,45) + rxt(k,529)*y(k,46) & - + rxt(k,538)*y(k,22) + rxt(k,539)*y(k,22) + rxt(k,540)*y(k,22) & - + het_rates(k,122) ) - mat(k,1827) = rxt(k,1) - mat(k,1236) = rxt(k,6) - mat(k,1187) = rxt(k,7) - mat(k,246) = -( rxt(k,387) + rxt(k,395) + het_rates(k,123) ) - mat(k,1179) = rxt(k,7) - mat(k,43) = rxt(k,399) + rxt(k,398)*y(k,30) - mat(k,42) = -( rxt(k,388) + rxt(k,399) + rxt(k,398)*y(k,30) + het_rates(k,124) ) - mat(k,1328) = -( rxt(k,93) + rxt(k,137) + rxt(k,316)*y(k,30) + het_rates(k,125) & - ) - mat(k,675) = rxt(k,65) - mat(k,99) = rxt(k,97) - mat(k,1373) = -( rxt(k,593) + het_rates(k,126) ) - mat(k,1255) = rxt(k,84) + rxt(k,86) - mat(k,193) = rxt(k,94) - mat(k,271) = rxt(k,595)*y(k,30) - mat(k,189) = -( rxt(k,94) + het_rates(k,127) ) - mat(k,438) = -( rxt(k,95) + rxt(k,96) + rxt(k,330)*y(k,30) + het_rates(k,128) ) - mat(k,95) = -( rxt(k,97) + rxt(k,335)*y(k,30) + het_rates(k,129) ) - mat(k,350) = -( het_rates(k,130) ) - mat(k,794) = -( rxt(k,514)*y(k,15) + rxt(k,516)*y(k,17) + rxt(k,517)*y(k,18) & - + rxt(k,519)*y(k,19) + rxt(k,521)*y(k,23) + rxt(k,522)*y(k,44) & - + rxt(k,523)*y(k,45) + rxt(k,524)*y(k,46) + rxt(k,536)*y(k,22) & - + het_rates(k,131) ) - mat(k,1831) = rxt(k,3) - mat(k,148) = 2.000_r8*rxt(k,4) - mat(k,1280) = rxt(k,9) - mat(k,103) = rxt(k,10) - mat(k,176) = rxt(k,12) - mat(k,80) = rxt(k,23) - mat(k,210) = rxt(k,58) - mat(k,232) = rxt(k,59) - mat(k,1617) = rxt(k,98) - mat(k,985) = .500_r8*rxt(k,561) - mat(k,639) = rxt(k,538)*y(k,22) - mat(k,1637) = -( rxt(k,98) + rxt(k,343)*y(k,30) + het_rates(k,132) ) - mat(k,1673) = -( rxt(k,99) + rxt(k,358) + rxt(k,352)*y(k,30) + het_rates(k,133) & - ) - mat(k,842) = rxt(k,63) - mat(k,450) = rxt(k,95) - mat(k,264) = -( rxt(k,596) + rxt(k,595)*y(k,30) + het_rates(k,134) ) - mat(k,1402) = rxt(k,77) + rxt(k,81) - mat(k,1228) = rxt(k,85) + rxt(k,87) - mat(k,125) = rxt(k,580) - mat(k,130) = rxt(k,581) - mat(k,128) = -( rxt(k,581) + rxt(k,600) + het_rates(k,135) ) - mat(k,1389) = rxt(k,78) + rxt(k,82) - mat(k,1221) = rxt(k,83) + rxt(k,92) - mat(k,122) = rxt(k,582) - mat(k,121) = -( rxt(k,580) + rxt(k,582) + rxt(k,605) + rxt(k,606) & - + het_rates(k,136) ) - mat(k,1388) = rxt(k,79) + rxt(k,80) - mat(k,1220) = rxt(k,90) + rxt(k,91) - mat(k,1856) = -( rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,137) ) - mat(k,556) = rxt(k,64) + rxt(k,283) - mat(k,196) = rxt(k,94) - mat(k,26) = rxt(k,100) - mat(k,437) = rxt(k,273) - mat(k,536) = rxt(k,274) - mat(k,576) = rxt(k,282) - mat(k,375) = rxt(k,284) - mat(k,167) = rxt(k,373) - mat(k,1052) = rxt(k,375) - mat(k,1719) = rxt(k,377) - mat(k,1610) = rxt(k,379) - mat(k,423) = rxt(k,385) - mat(k,814) = rxt(k,514)*y(k,15) + rxt(k,516)*y(k,17) + rxt(k,517)*y(k,18) & - + rxt(k,519)*y(k,19) + rxt(k,524)*y(k,46) + rxt(k,536)*y(k,22) - end do + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(in) :: het_rates(max(1,gas_pcnst)) + real(r8), intent(inout) :: mat(nzcnt) + mat(20) = -( het_rates(87) ) + mat(690) = -( het_rates(88) ) + mat(410) = rxt(385) + mat(394) = rxt(386) + mat(409) = -( rxt(385) + het_rates(89) ) + mat(393) = -( rxt(386) + het_rates(90) ) + mat(287) = -( het_rates(91) ) + mat(822) = -( rxt(63) + het_rates(92) ) + mat(542) = rxt(64) + rxt(283) + mat(440) = rxt(330)*y(32) + mat(1664) = rxt(352)*y(32) + mat(362) = -( rxt(284) + het_rates(93) ) + mat(539) = -( rxt(64) + rxt(283) + het_rates(94) ) + mat(363) = rxt(284) + mat(660) = -( rxt(65) + het_rates(95) ) + mat(1347) = rxt(316)*y(32) + mat(97) = rxt(335)*y(32) + mat(866) = -( het_rates(96) ) + mat(1173) = rxt(16) + mat(315) = rxt(66) + mat(1736) = rxt(75) + mat(714) = rxt(76) + mat(1232) = rxt(77) + rxt(78) + rxt(79) + rxt(80) + rxt(81) + rxt(82) + mat(1045) = rxt(83) + rxt(84) + rxt(85) + rxt(86) + rxt(87) + rxt(90) + rxt(91) & + + rxt(92) + mat(1353) = rxt(93) + rxt(137) + mat(441) = rxt(96) + mat(1630) = rxt(98) + mat(1665) = rxt(99) + rxt(358) + mat(83) = -( het_rates(97) ) + mat(335) = -( het_rates(98) ) + mat(1623) = rxt(343)*y(32) + mat(747) = -( rxt(559) + het_rates(99) ) + mat(102) = rxt(11) + rxt(448) + mat(1271) = rxt(515)*y(18) + rxt(518)*y(20) + mat(793) = rxt(516)*y(18) + rxt(519)*y(20) + mat(638) = rxt(539)*y(23) + mat(162) = -( rxt(373) + het_rates(100) ) + mat(889) = rxt(375) + mat(908) = -( rxt(375) + het_rates(101) ) + mat(1560) = rxt(377) + mat(50) = -( het_rates(102) ) + mat(1575) = -( rxt(377) + het_rates(103) ) + mat(1723) = rxt(379) + mat(54) = -( het_rates(104) ) + mat(1727) = -( rxt(379) + het_rates(105) ) + mat(181) = -( het_rates(106) ) + mat(163) = rxt(373) + mat(215) = -( het_rates(107) ) + mat(153) = -( het_rates(108) ) + mat(129) = rxt(600) + mat(123) = rxt(605) + mat(1757) = -( rxt(75) + het_rates(109) ) + mat(436) = rxt(273) + mat(424) = -( rxt(273) + het_rates(110) ) + mat(713) = -( rxt(76) + het_rates(111) ) + mat(504) = rxt(275) + mat(561) = rxt(282) + mat(519) = -( rxt(274) + het_rates(112) ) + mat(560) = -( rxt(282) + het_rates(113) ) + mat(520) = rxt(274) + mat(452) = -( het_rates(114) ) + mat(503) = -( rxt(275) + het_rates(115) ) + mat(956) = -( rxt(370) + rxt(368)*y(32) + het_rates(116) ) + mat(1175) = rxt(16) + mat(117) = rxt(369) + mat(111) = rxt(371) + mat(1399) = rxt(593) + mat(269) = rxt(596) + mat(999) = -( het_rates(117) ) + mat(89) = -( het_rates(118) ) + mat(115) = -( rxt(369) + het_rates(119) ) + mat(109) = rxt(312)*y(32) + mat(932) = rxt(368)*y(32) + mat(1138) = -( het_rates(120) ) + mat(108) = -( rxt(371) + rxt(312)*y(32) + het_rates(121) ) + mat(931) = rxt(370) + mat(223) = -( het_rates(122) ) + mat(309) = rxt(66) + mat(124) = rxt(606) + mat(246) = -( rxt(387) + rxt(395) + het_rates(123) ) + mat(1423) = rxt(7) + mat(43) = rxt(399) + rxt(398)*y(32) + mat(42) = -( rxt(388) + rxt(399) + rxt(398)*y(32) + het_rates(124) ) + mat(1364) = -( rxt(93) + rxt(137) + rxt(316)*y(32) + het_rates(125) ) + mat(677) = rxt(65) + mat(100) = rxt(97) + mat(1409) = -( rxt(593) + het_rates(126) ) + mat(1057) = rxt(84) + rxt(86) + mat(194) = rxt(94) + mat(273) = rxt(595)*y(32) + mat(189) = -( rxt(94) + het_rates(127) ) + mat(438) = -( rxt(95) + rxt(96) + rxt(330)*y(32) + het_rates(128) ) + mat(95) = -( rxt(97) + rxt(335)*y(32) + het_rates(129) ) + mat(350) = -( het_rates(130) ) + mat(794) = -( rxt(514)*y(16) + rxt(516)*y(18) + rxt(517)*y(19) + rxt(519)*y(20) & + + rxt(521)*y(24) + rxt(522)*y(46) + rxt(523)*y(47) + rxt(524)*y(48) & + + rxt(536)*y(23) + het_rates(131) ) + mat(1831) = rxt(3) + mat(148) = 2.000_r8*rxt(4) + mat(1596) = rxt(9) + mat(103) = rxt(10) + mat(176) = rxt(12) + mat(80) = rxt(23) + mat(210) = rxt(58) + mat(240) = rxt(59) + mat(1628) = rxt(98) + mat(1089) = .500_r8*rxt(561) + mat(639) = rxt(538)*y(23) + mat(1648) = -( rxt(98) + rxt(343)*y(32) + het_rates(132) ) + mat(1684) = -( rxt(99) + rxt(358) + rxt(352)*y(32) + het_rates(133) ) + mat(842) = rxt(63) + mat(450) = rxt(95) + mat(264) = -( rxt(596) + rxt(595)*y(32) + het_rates(134) ) + mat(1214) = rxt(77) + rxt(81) + mat(1030) = rxt(85) + rxt(87) + mat(125) = rxt(580) + mat(130) = rxt(581) + mat(128) = -( rxt(581) + rxt(600) + het_rates(135) ) + mat(1201) = rxt(78) + rxt(82) + mat(1023) = rxt(83) + rxt(92) + mat(122) = rxt(582) + mat(121) = -( rxt(580) + rxt(582) + rxt(605) + rxt(606) + het_rates(136) ) + mat(1200) = rxt(79) + rxt(80) + mat(1022) = rxt(90) + rxt(91) + mat(1856) = -( rxt(1) + rxt(2) + rxt(3) + het_rates(137) ) + mat(556) = rxt(64) + rxt(283) + mat(196) = rxt(94) + mat(26) = rxt(100) + mat(437) = rxt(273) + mat(536) = rxt(274) + mat(576) = rxt(282) + mat(375) = rxt(284) + mat(167) = rxt(373) + mat(930) = rxt(375) + mat(1582) = rxt(377) + mat(1730) = rxt(379) + mat(423) = rxt(385) + mat(814) = rxt(514)*y(16) + rxt(516)*y(18) + rxt(517)*y(19) + rxt(519)*y(20) & + + rxt(524)*y(48) + rxt(536)*y(23) end subroutine linmat02 - subroutine linmat( avec_len, mat, y, rxt, het_rates ) + subroutine linmat( mat, y, rxt, het_rates ) !---------------------------------------------- ! ... linear matrix entries for implicit species !---------------------------------------------- @@ -412,12 +383,11 @@ subroutine linmat( avec_len, mat, y, rxt, het_rates ) !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(in) :: het_rates(veclen,gas_pcnst) - real(r8), intent(inout) :: mat(veclen,nzcnt) - call linmat01( avec_len, mat, y, rxt, het_rates ) - call linmat02( avec_len, mat, y, rxt, het_rates ) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(in) :: het_rates(max(1,gas_pcnst)) + real(r8), intent(inout) :: mat(nzcnt) + call linmat01( mat, y, rxt, het_rates ) + call linmat02( mat, y, rxt, het_rates ) end subroutine linmat end module mo_lin_matrix diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_lu_factor.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_lu_factor.F90 index 054b0dbf34..3113b33614 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_lu_factor.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_lu_factor.F90 @@ -1,12901 +1,12705 @@ module mo_lu_factor - use chem_mods, only: veclen private public :: lu_fac contains - subroutine lu_fac01( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac01( lu ) 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,1) = 1._r8 / lu(k,1) - lu(k,2) = 1._r8 / lu(k,2) - lu(k,3) = 1._r8 / lu(k,3) - lu(k,4) = 1._r8 / lu(k,4) - lu(k,5) = 1._r8 / lu(k,5) - lu(k,6) = 1._r8 / lu(k,6) - lu(k,7) = 1._r8 / lu(k,7) - lu(k,8) = 1._r8 / lu(k,8) - lu(k,9) = 1._r8 / lu(k,9) - lu(k,10) = 1._r8 / lu(k,10) - lu(k,11) = 1._r8 / lu(k,11) - lu(k,12) = 1._r8 / lu(k,12) - lu(k,13) = 1._r8 / lu(k,13) - lu(k,14) = 1._r8 / lu(k,14) - lu(k,15) = 1._r8 / lu(k,15) - lu(k,16) = 1._r8 / lu(k,16) - lu(k,17) = 1._r8 / lu(k,17) - lu(k,18) = 1._r8 / lu(k,18) - lu(k,19) = 1._r8 / lu(k,19) - lu(k,20) = 1._r8 / lu(k,20) - lu(k,21) = 1._r8 / lu(k,21) - lu(k,22) = lu(k,22) * lu(k,21) - lu(k,23) = lu(k,23) * lu(k,21) - lu(k,1754) = lu(k,1754) - lu(k,22) * lu(k,1720) - lu(k,1761) = lu(k,1761) - lu(k,23) * lu(k,1720) - lu(k,24) = 1._r8 / lu(k,24) - lu(k,25) = lu(k,25) * lu(k,24) - lu(k,26) = lu(k,26) * lu(k,24) - lu(k,46) = lu(k,46) - lu(k,25) * lu(k,45) - lu(k,49) = lu(k,49) - lu(k,26) * lu(k,45) - lu(k,1801) = lu(k,1801) - lu(k,25) * lu(k,1799) - lu(k,1856) = lu(k,1856) - lu(k,26) * lu(k,1799) - lu(k,27) = 1._r8 / lu(k,27) - lu(k,28) = lu(k,28) * lu(k,27) - lu(k,29) = lu(k,29) * lu(k,27) - lu(k,628) = lu(k,628) - lu(k,28) * lu(k,625) - lu(k,637) = lu(k,637) - lu(k,29) * lu(k,625) - lu(k,780) = - lu(k,28) * lu(k,768) - lu(k,792) = - lu(k,29) * lu(k,768) - lu(k,30) = 1._r8 / lu(k,30) - lu(k,31) = lu(k,31) * lu(k,30) - lu(k,235) = lu(k,235) - lu(k,31) * lu(k,230) - lu(k,284) = lu(k,284) - lu(k,31) * lu(k,275) - lu(k,1167) = lu(k,1167) - lu(k,31) * lu(k,1133) - lu(k,1476) = lu(k,1476) - lu(k,31) * lu(k,1444) - lu(k,1754) = lu(k,1754) - lu(k,31) * lu(k,1721) - 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,628) = lu(k,628) - lu(k,33) * lu(k,626) - lu(k,637) = lu(k,637) - lu(k,34) * lu(k,626) - lu(k,650) = lu(k,650) - lu(k,35) * lu(k,626) - lu(k,780) = lu(k,780) - lu(k,33) * lu(k,769) - lu(k,792) = lu(k,792) - lu(k,34) * lu(k,769) - lu(k,807) = lu(k,807) - lu(k,35) * lu(k,769) - 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,198) = lu(k,198) - lu(k,37) * lu(k,197) - lu(k,204) = lu(k,204) - lu(k,38) * lu(k,197) - lu(k,482) = lu(k,482) - lu(k,37) * lu(k,481) - lu(k,501) = lu(k,501) - lu(k,38) * lu(k,481) - lu(k,1269) = lu(k,1269) - lu(k,37) * lu(k,1267) - lu(k,1304) = - lu(k,38) * lu(k,1267) - lu(k,1812) = lu(k,1812) - lu(k,37) * lu(k,1800) - lu(k,1855) = lu(k,1855) - lu(k,38) * lu(k,1800) - lu(k,39) = 1._r8 / lu(k,39) - lu(k,40) = lu(k,40) * lu(k,39) - lu(k,41) = lu(k,41) * lu(k,39) - lu(k,208) = lu(k,208) - lu(k,40) * lu(k,206) - lu(k,213) = - lu(k,41) * lu(k,206) - lu(k,583) = lu(k,583) - lu(k,40) * lu(k,577) - lu(k,596) = lu(k,596) - lu(k,41) * lu(k,577) - lu(k,1141) = - lu(k,40) * lu(k,1134) - lu(k,1167) = lu(k,1167) - lu(k,41) * lu(k,1134) - lu(k,1730) = lu(k,1730) - lu(k,40) * lu(k,1722) - lu(k,1754) = lu(k,1754) - lu(k,41) * lu(k,1722) - lu(k,42) = 1._r8 / lu(k,42) - lu(k,43) = lu(k,43) * lu(k,42) - lu(k,44) = lu(k,44) * lu(k,42) - lu(k,630) = - lu(k,43) * lu(k,627) - lu(k,645) = lu(k,645) - lu(k,44) * lu(k,627) - lu(k,1179) = lu(k,1179) - lu(k,43) * lu(k,1177) - lu(k,1203) = lu(k,1203) - lu(k,44) * lu(k,1177) - lu(k,1226) = lu(k,1226) - lu(k,43) * lu(k,1218) - lu(k,1252) = lu(k,1252) - lu(k,44) * lu(k,1218) - lu(k,1400) = lu(k,1400) - lu(k,43) * lu(k,1385) - lu(k,1429) = lu(k,1429) - lu(k,44) * lu(k,1385) - lu(k,46) = 1._r8 / lu(k,46) - lu(k,47) = lu(k,47) * lu(k,46) - lu(k,48) = lu(k,48) * lu(k,46) - lu(k,49) = lu(k,49) * lu(k,46) - lu(k,255) = lu(k,255) - lu(k,47) * lu(k,254) - lu(k,259) = lu(k,259) - lu(k,48) * lu(k,254) - lu(k,260) = - lu(k,49) * lu(k,254) - lu(k,783) = lu(k,783) - lu(k,47) * lu(k,770) - lu(k,806) = lu(k,806) - lu(k,48) * lu(k,770) - lu(k,814) = lu(k,814) - lu(k,49) * lu(k,770) - lu(k,1813) = - lu(k,47) * lu(k,1801) - lu(k,1846) = lu(k,1846) - lu(k,48) * lu(k,1801) - lu(k,1856) = lu(k,1856) - lu(k,49) * lu(k,1801) - end do + real(r8), intent(inout) :: lu(:) + lu(1) = 1._r8 / lu(1) + lu(2) = 1._r8 / lu(2) + lu(3) = 1._r8 / lu(3) + lu(4) = 1._r8 / lu(4) + lu(5) = 1._r8 / lu(5) + lu(6) = 1._r8 / lu(6) + lu(7) = 1._r8 / lu(7) + lu(8) = 1._r8 / lu(8) + lu(9) = 1._r8 / lu(9) + lu(10) = 1._r8 / lu(10) + lu(11) = 1._r8 / lu(11) + lu(12) = 1._r8 / lu(12) + lu(13) = 1._r8 / lu(13) + lu(14) = 1._r8 / lu(14) + lu(15) = 1._r8 / lu(15) + lu(16) = 1._r8 / lu(16) + lu(17) = 1._r8 / lu(17) + lu(18) = 1._r8 / lu(18) + lu(19) = 1._r8 / lu(19) + lu(20) = 1._r8 / lu(20) + lu(21) = 1._r8 / lu(21) + lu(22) = lu(22) * lu(21) + lu(23) = lu(23) * lu(21) + lu(1526) = lu(1526) - lu(22) * lu(1497) + lu(1532) = lu(1532) - lu(23) * lu(1497) + lu(24) = 1._r8 / lu(24) + lu(25) = lu(25) * lu(24) + lu(26) = lu(26) * lu(24) + lu(46) = lu(46) - lu(25) * lu(45) + lu(49) = lu(49) - lu(26) * lu(45) + lu(1801) = lu(1801) - lu(25) * lu(1799) + lu(1856) = lu(1856) - lu(26) * lu(1799) + lu(27) = 1._r8 / lu(27) + lu(28) = lu(28) * lu(27) + lu(29) = lu(29) * lu(27) + lu(628) = lu(628) - lu(28) * lu(625) + lu(637) = lu(637) - lu(29) * lu(625) + lu(780) = - lu(28) * lu(768) + lu(792) = - lu(29) * lu(768) + lu(30) = 1._r8 / lu(30) + lu(31) = lu(31) * lu(30) + lu(242) = lu(242) - lu(31) * lu(238) + lu(281) = lu(281) - lu(31) * lu(275) + lu(1283) = lu(1283) - lu(31) * lu(1256) + lu(1327) = lu(1327) - lu(31) * lu(1298) + lu(1526) = lu(1526) - lu(31) * lu(1498) + lu(32) = 1._r8 / lu(32) + lu(33) = lu(33) * lu(32) + lu(34) = lu(34) * lu(32) + lu(35) = lu(35) * lu(32) + lu(628) = lu(628) - lu(33) * lu(626) + lu(637) = lu(637) - lu(34) * lu(626) + lu(646) = lu(646) - lu(35) * lu(626) + lu(780) = lu(780) - lu(33) * lu(769) + lu(792) = lu(792) - lu(34) * lu(769) + lu(803) = lu(803) - lu(35) * lu(769) + lu(36) = 1._r8 / lu(36) + lu(37) = lu(37) * lu(36) + lu(38) = lu(38) * lu(36) + lu(198) = lu(198) - lu(37) * lu(197) + lu(202) = lu(202) - lu(38) * lu(197) + lu(482) = lu(482) - lu(37) * lu(481) + lu(496) = lu(496) - lu(38) * lu(481) + lu(1585) = lu(1585) - lu(37) * lu(1583) + lu(1612) = - lu(38) * lu(1583) + lu(1812) = lu(1812) - lu(37) * lu(1800) + lu(1847) = lu(1847) - lu(38) * lu(1800) + lu(39) = 1._r8 / lu(39) + lu(40) = lu(40) * lu(39) + lu(41) = lu(41) * lu(39) + lu(208) = lu(208) - lu(40) * lu(206) + lu(212) = - lu(41) * lu(206) + lu(583) = lu(583) - lu(40) * lu(577) + lu(593) = lu(593) - lu(41) * lu(577) + lu(1307) = - lu(40) * lu(1299) + lu(1327) = lu(1327) - lu(41) * lu(1299) + lu(1507) = lu(1507) - lu(40) * lu(1499) + lu(1526) = lu(1526) - lu(41) * lu(1499) + lu(42) = 1._r8 / lu(42) + lu(43) = lu(43) * lu(42) + lu(44) = lu(44) * lu(42) + lu(630) = - lu(43) * lu(627) + lu(642) = lu(642) - lu(44) * lu(627) + lu(1028) = lu(1028) - lu(43) * lu(1020) + lu(1049) = lu(1049) - lu(44) * lu(1020) + lu(1212) = lu(1212) - lu(43) * lu(1197) + lu(1236) = lu(1236) - lu(44) * lu(1197) + lu(1423) = lu(1423) - lu(43) * lu(1421) + lu(1442) = lu(1442) - lu(44) * lu(1421) + lu(46) = 1._r8 / lu(46) + lu(47) = lu(47) * lu(46) + lu(48) = lu(48) * lu(46) + lu(49) = lu(49) * lu(46) + lu(255) = lu(255) - lu(47) * lu(254) + lu(259) = lu(259) - lu(48) * lu(254) + lu(260) = - lu(49) * lu(254) + lu(783) = lu(783) - lu(47) * lu(770) + lu(802) = lu(802) - lu(48) * lu(770) + lu(814) = lu(814) - lu(49) * lu(770) + lu(1813) = - lu(47) * lu(1801) + lu(1841) = lu(1841) - lu(48) * lu(1801) + lu(1856) = lu(1856) - lu(49) * lu(1801) end subroutine lu_fac01 - subroutine lu_fac02( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac02( lu ) 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,50) = 1._r8 / lu(k,50) - lu(k,51) = lu(k,51) * lu(k,50) - lu(k,52) = lu(k,52) * lu(k,50) - lu(k,53) = lu(k,53) * lu(k,50) - lu(k,303) = lu(k,303) - lu(k,51) * lu(k,295) - lu(k,307) = lu(k,307) - lu(k,52) * lu(k,295) - lu(k,308) = lu(k,308) - lu(k,53) * lu(k,295) - lu(k,1706) = lu(k,1706) - lu(k,51) * lu(k,1678) - lu(k,1716) = lu(k,1716) - lu(k,52) * lu(k,1678) - lu(k,1719) = lu(k,1719) - lu(k,53) * lu(k,1678) - lu(k,1843) = lu(k,1843) - lu(k,51) * lu(k,1802) - lu(k,1853) = lu(k,1853) - lu(k,52) * lu(k,1802) - lu(k,1856) = lu(k,1856) - lu(k,53) * lu(k,1802) - lu(k,54) = 1._r8 / lu(k,54) - lu(k,55) = lu(k,55) * lu(k,54) - lu(k,56) = lu(k,56) * lu(k,54) - lu(k,57) = lu(k,57) * lu(k,54) - lu(k,303) = lu(k,303) - lu(k,55) * lu(k,296) - lu(k,306) = lu(k,306) - lu(k,56) * lu(k,296) - lu(k,308) = lu(k,308) - lu(k,57) * lu(k,296) - lu(k,1597) = lu(k,1597) - lu(k,55) * lu(k,1569) - lu(k,1604) = lu(k,1604) - lu(k,56) * lu(k,1569) - lu(k,1610) = lu(k,1610) - lu(k,57) * lu(k,1569) - lu(k,1843) = lu(k,1843) - lu(k,55) * lu(k,1803) - lu(k,1850) = lu(k,1850) - lu(k,56) * lu(k,1803) - lu(k,1856) = lu(k,1856) - lu(k,57) * lu(k,1803) - lu(k,58) = 1._r8 / lu(k,58) - lu(k,59) = lu(k,59) * lu(k,58) - lu(k,60) = lu(k,60) * lu(k,58) - lu(k,61) = lu(k,61) * lu(k,58) - lu(k,62) = lu(k,62) * lu(k,58) - lu(k,63) = lu(k,63) * lu(k,58) - lu(k,783) = lu(k,783) - lu(k,59) * lu(k,771) - lu(k,793) = lu(k,793) - lu(k,60) * lu(k,771) - lu(k,794) = lu(k,794) - lu(k,61) * lu(k,771) - lu(k,799) = lu(k,799) - lu(k,62) * lu(k,771) - lu(k,803) = lu(k,803) - lu(k,63) * lu(k,771) - lu(k,1096) = lu(k,1096) - lu(k,59) * lu(k,1094) - lu(k,1107) = lu(k,1107) - lu(k,60) * lu(k,1094) - lu(k,1108) = lu(k,1108) - lu(k,61) * lu(k,1094) - lu(k,1115) = lu(k,1115) - lu(k,62) * lu(k,1094) - lu(k,1119) = lu(k,1119) - lu(k,63) * lu(k,1094) - lu(k,64) = 1._r8 / lu(k,64) - lu(k,65) = lu(k,65) * lu(k,64) - lu(k,66) = lu(k,66) * lu(k,64) - lu(k,67) = lu(k,67) * lu(k,64) - lu(k,68) = lu(k,68) * lu(k,64) - lu(k,378) = lu(k,378) - lu(k,65) * lu(k,376) - lu(k,379) = lu(k,379) - lu(k,66) * lu(k,376) - lu(k,387) = lu(k,387) - lu(k,67) * lu(k,376) - lu(k,390) = lu(k,390) - lu(k,68) * lu(k,376) - lu(k,581) = lu(k,581) - lu(k,65) * lu(k,578) - lu(k,582) = lu(k,582) - lu(k,66) * lu(k,578) - lu(k,595) = lu(k,595) - lu(k,67) * lu(k,578) - lu(k,598) = lu(k,598) - lu(k,68) * lu(k,578) - lu(k,1725) = lu(k,1725) - lu(k,65) * lu(k,1723) - lu(k,1729) = lu(k,1729) - lu(k,66) * lu(k,1723) - lu(k,1753) = lu(k,1753) - lu(k,67) * lu(k,1723) - lu(k,1761) = lu(k,1761) - lu(k,68) * lu(k,1723) - lu(k,69) = 1._r8 / lu(k,69) - lu(k,70) = lu(k,70) * lu(k,69) - lu(k,71) = lu(k,71) * lu(k,69) - lu(k,72) = lu(k,72) * lu(k,69) - lu(k,73) = lu(k,73) * lu(k,69) - lu(k,74) = lu(k,74) * lu(k,69) - lu(k,75) = lu(k,75) * lu(k,69) - lu(k,76) = lu(k,76) * lu(k,69) - lu(k,775) = lu(k,775) - lu(k,70) * lu(k,772) - lu(k,777) = lu(k,777) - lu(k,71) * lu(k,772) - lu(k,783) = lu(k,783) - lu(k,72) * lu(k,772) - lu(k,787) = lu(k,787) - lu(k,73) * lu(k,772) - lu(k,794) = lu(k,794) - lu(k,74) * lu(k,772) - lu(k,806) = lu(k,806) - lu(k,75) * lu(k,772) - lu(k,813) = lu(k,813) - lu(k,76) * lu(k,772) - lu(k,1390) = lu(k,1390) - lu(k,70) * lu(k,1386) - lu(k,1394) = - lu(k,71) * lu(k,1386) - lu(k,1401) = - lu(k,72) * lu(k,1386) - lu(k,1407) = lu(k,1407) - lu(k,73) * lu(k,1386) - lu(k,1418) = lu(k,1418) - lu(k,74) * lu(k,1386) - lu(k,1433) = lu(k,1433) - lu(k,75) * lu(k,1386) - lu(k,1442) = lu(k,1442) - lu(k,76) * lu(k,1386) - 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) - lu(k,80) = lu(k,80) * lu(k,77) - lu(k,81) = lu(k,81) * lu(k,77) - lu(k,82) = lu(k,82) * lu(k,77) - lu(k,324) = lu(k,324) - lu(k,78) * lu(k,323) - lu(k,325) = lu(k,325) - lu(k,79) * lu(k,323) - lu(k,327) = - lu(k,80) * lu(k,323) - lu(k,333) = - lu(k,81) * lu(k,323) - lu(k,334) = - lu(k,82) * lu(k,323) - lu(k,741) = lu(k,741) - lu(k,78) * lu(k,734) - lu(k,745) = - lu(k,79) * lu(k,734) - lu(k,748) = lu(k,748) - lu(k,80) * lu(k,734) - lu(k,766) = lu(k,766) - lu(k,81) * lu(k,734) - lu(k,767) = lu(k,767) - lu(k,82) * lu(k,734) - lu(k,786) = lu(k,786) - lu(k,78) * lu(k,773) - lu(k,791) = lu(k,791) - lu(k,79) * lu(k,773) - lu(k,794) = lu(k,794) - lu(k,80) * lu(k,773) - lu(k,813) = lu(k,813) - lu(k,81) * lu(k,773) - lu(k,814) = lu(k,814) - lu(k,82) * lu(k,773) - lu(k,83) = 1._r8 / lu(k,83) - lu(k,84) = lu(k,84) * lu(k,83) - lu(k,85) = lu(k,85) * lu(k,83) - lu(k,86) = lu(k,86) * lu(k,83) - lu(k,87) = lu(k,87) * lu(k,83) - lu(k,88) = lu(k,88) * lu(k,83) - lu(k,187) = - lu(k,84) * lu(k,186) - lu(k,190) = lu(k,190) - lu(k,85) * lu(k,186) - lu(k,194) = lu(k,194) - lu(k,86) * lu(k,186) - lu(k,195) = - lu(k,87) * lu(k,186) - lu(k,196) = lu(k,196) - lu(k,88) * lu(k,186) - lu(k,1534) = lu(k,1534) - lu(k,84) * lu(k,1527) - lu(k,1545) = lu(k,1545) - lu(k,85) * lu(k,1527) - lu(k,1561) = lu(k,1561) - lu(k,86) * lu(k,1527) - lu(k,1567) = lu(k,1567) - lu(k,87) * lu(k,1527) - lu(k,1568) = lu(k,1568) - lu(k,88) * lu(k,1527) - lu(k,1808) = lu(k,1808) - lu(k,84) * lu(k,1804) - lu(k,1831) = lu(k,1831) - lu(k,85) * lu(k,1804) - lu(k,1849) = - lu(k,86) * lu(k,1804) - lu(k,1855) = lu(k,1855) - lu(k,87) * lu(k,1804) - lu(k,1856) = lu(k,1856) - lu(k,88) * lu(k,1804) - lu(k,89) = 1._r8 / lu(k,89) - lu(k,90) = lu(k,90) * lu(k,89) - lu(k,91) = lu(k,91) * lu(k,89) - lu(k,92) = lu(k,92) * lu(k,89) - lu(k,93) = lu(k,93) * lu(k,89) - lu(k,94) = lu(k,94) * lu(k,89) - lu(k,924) = - lu(k,90) * lu(k,923) - lu(k,945) = - lu(k,91) * lu(k,923) - lu(k,956) = lu(k,956) - lu(k,92) * lu(k,923) - lu(k,957) = lu(k,957) - lu(k,93) * lu(k,923) - lu(k,964) = lu(k,964) - lu(k,94) * lu(k,923) - lu(k,1535) = - lu(k,90) * lu(k,1528) - lu(k,1549) = lu(k,1549) - lu(k,91) * lu(k,1528) - lu(k,1560) = lu(k,1560) - lu(k,92) * lu(k,1528) - lu(k,1561) = lu(k,1561) - lu(k,93) * lu(k,1528) - lu(k,1568) = lu(k,1568) - lu(k,94) * lu(k,1528) - lu(k,1809) = lu(k,1809) - lu(k,90) * lu(k,1805) - lu(k,1837) = lu(k,1837) - lu(k,91) * lu(k,1805) - lu(k,1848) = - lu(k,92) * lu(k,1805) - lu(k,1849) = lu(k,1849) - lu(k,93) * lu(k,1805) - lu(k,1856) = lu(k,1856) - lu(k,94) * lu(k,1805) - end do + real(r8), intent(inout) :: lu(:) + lu(50) = 1._r8 / lu(50) + lu(51) = lu(51) * lu(50) + lu(52) = lu(52) * lu(50) + lu(53) = lu(53) * lu(50) + lu(304) = lu(304) - lu(51) * lu(295) + lu(305) = lu(305) - lu(52) * lu(295) + lu(308) = lu(308) - lu(53) * lu(295) + lu(1575) = lu(1575) - lu(51) * lu(1541) + lu(1576) = lu(1576) - lu(52) * lu(1541) + lu(1582) = lu(1582) - lu(53) * lu(1541) + lu(1849) = lu(1849) - lu(51) * lu(1802) + lu(1850) = lu(1850) - lu(52) * lu(1802) + lu(1856) = lu(1856) - lu(53) * lu(1802) + lu(54) = 1._r8 / lu(54) + lu(55) = lu(55) * lu(54) + lu(56) = lu(56) * lu(54) + lu(57) = lu(57) * lu(54) + lu(305) = lu(305) - lu(55) * lu(296) + lu(306) = lu(306) - lu(56) * lu(296) + lu(308) = lu(308) - lu(57) * lu(296) + lu(1724) = lu(1724) - lu(55) * lu(1689) + lu(1727) = lu(1727) - lu(56) * lu(1689) + lu(1730) = lu(1730) - lu(57) * lu(1689) + lu(1850) = lu(1850) - lu(55) * lu(1803) + lu(1853) = lu(1853) - lu(56) * lu(1803) + lu(1856) = lu(1856) - lu(57) * lu(1803) + lu(58) = 1._r8 / lu(58) + lu(59) = lu(59) * lu(58) + lu(60) = lu(60) * lu(58) + lu(61) = lu(61) * lu(58) + lu(62) = lu(62) * lu(58) + lu(63) = lu(63) * lu(58) + lu(783) = lu(783) - lu(59) * lu(771) + lu(793) = lu(793) - lu(60) * lu(771) + lu(794) = lu(794) - lu(61) * lu(771) + lu(810) = lu(810) - lu(62) * lu(771) + lu(813) = lu(813) - lu(63) * lu(771) + lu(1762) = lu(1762) - lu(59) * lu(1760) + lu(1773) = lu(1773) - lu(60) * lu(1760) + lu(1774) = lu(1774) - lu(61) * lu(1760) + lu(1792) = lu(1792) - lu(62) * lu(1760) + lu(1797) = lu(1797) - lu(63) * lu(1760) + lu(64) = 1._r8 / lu(64) + lu(65) = lu(65) * lu(64) + lu(66) = lu(66) * lu(64) + lu(67) = lu(67) * lu(64) + lu(68) = lu(68) * lu(64) + lu(378) = lu(378) - lu(65) * lu(376) + lu(379) = lu(379) - lu(66) * lu(376) + lu(387) = lu(387) - lu(67) * lu(376) + lu(391) = lu(391) - lu(68) * lu(376) + lu(581) = lu(581) - lu(65) * lu(578) + lu(582) = lu(582) - lu(66) * lu(578) + lu(592) = lu(592) - lu(67) * lu(578) + lu(597) = lu(597) - lu(68) * lu(578) + lu(1502) = lu(1502) - lu(65) * lu(1500) + lu(1506) = lu(1506) - lu(66) * lu(1500) + lu(1525) = lu(1525) - lu(67) * lu(1500) + lu(1532) = lu(1532) - lu(68) * lu(1500) + lu(69) = 1._r8 / lu(69) + lu(70) = lu(70) * lu(69) + lu(71) = lu(71) * lu(69) + lu(72) = lu(72) * lu(69) + lu(73) = lu(73) * lu(69) + lu(74) = lu(74) * lu(69) + lu(75) = lu(75) * lu(69) + lu(76) = lu(76) * lu(69) + lu(775) = lu(775) - lu(70) * lu(772) + lu(777) = lu(777) - lu(71) * lu(772) + lu(783) = lu(783) - lu(72) * lu(772) + lu(787) = lu(787) - lu(73) * lu(772) + lu(794) = lu(794) - lu(74) * lu(772) + lu(802) = lu(802) - lu(75) * lu(772) + lu(808) = lu(808) - lu(76) * lu(772) + lu(1202) = lu(1202) - lu(70) * lu(1198) + lu(1206) = - lu(71) * lu(1198) + lu(1213) = - lu(72) * lu(1198) + lu(1219) = lu(1219) - lu(73) * lu(1198) + lu(1230) = lu(1230) - lu(74) * lu(1198) + lu(1240) = lu(1240) - lu(75) * lu(1198) + lu(1246) = lu(1246) - lu(76) * lu(1198) + lu(77) = 1._r8 / lu(77) + lu(78) = lu(78) * lu(77) + lu(79) = lu(79) * lu(77) + lu(80) = lu(80) * lu(77) + lu(81) = lu(81) * lu(77) + lu(82) = lu(82) * lu(77) + lu(324) = lu(324) - lu(78) * lu(323) + lu(325) = lu(325) - lu(79) * lu(323) + lu(327) = - lu(80) * lu(323) + lu(332) = - lu(81) * lu(323) + lu(334) = - lu(82) * lu(323) + lu(741) = lu(741) - lu(78) * lu(734) + lu(745) = - lu(79) * lu(734) + lu(748) = lu(748) - lu(80) * lu(734) + lu(761) = lu(761) - lu(81) * lu(734) + lu(767) = lu(767) - lu(82) * lu(734) + lu(786) = lu(786) - lu(78) * lu(773) + lu(791) = lu(791) - lu(79) * lu(773) + lu(794) = lu(794) - lu(80) * lu(773) + lu(808) = lu(808) - lu(81) * lu(773) + lu(814) = lu(814) - lu(82) * lu(773) + lu(83) = 1._r8 / lu(83) + lu(84) = lu(84) * lu(83) + lu(85) = lu(85) * lu(83) + lu(86) = lu(86) * lu(83) + lu(87) = lu(87) * lu(83) + lu(88) = lu(88) * lu(83) + lu(187) = - lu(84) * lu(186) + lu(190) = lu(190) - lu(85) * lu(186) + lu(191) = lu(191) - lu(86) * lu(186) + lu(195) = - lu(87) * lu(186) + lu(196) = lu(196) - lu(88) * lu(186) + lu(854) = lu(854) - lu(84) * lu(847) + lu(865) = lu(865) - lu(85) * lu(847) + lu(866) = lu(866) - lu(86) * lu(847) + lu(880) = lu(880) - lu(87) * lu(847) + lu(888) = lu(888) - lu(88) * lu(847) + lu(1808) = lu(1808) - lu(84) * lu(1804) + lu(1831) = lu(1831) - lu(85) * lu(1804) + lu(1833) = - lu(86) * lu(1804) + lu(1847) = lu(1847) - lu(87) * lu(1804) + lu(1856) = lu(1856) - lu(88) * lu(1804) + lu(89) = 1._r8 / lu(89) + lu(90) = lu(90) * lu(89) + lu(91) = lu(91) * lu(89) + lu(92) = lu(92) * lu(89) + lu(93) = lu(93) * lu(89) + lu(94) = lu(94) * lu(89) + lu(855) = - lu(90) * lu(848) + lu(866) = lu(866) - lu(91) * lu(848) + lu(867) = lu(867) - lu(92) * lu(848) + lu(873) = lu(873) - lu(93) * lu(848) + lu(888) = lu(888) - lu(94) * lu(848) + lu(979) = - lu(90) * lu(978) + lu(996) = lu(996) - lu(91) * lu(978) + lu(997) = - lu(92) * lu(978) + lu(1003) = lu(1003) - lu(93) * lu(978) + lu(1019) = lu(1019) - lu(94) * lu(978) + lu(1809) = lu(1809) - lu(90) * lu(1805) + lu(1833) = lu(1833) - lu(91) * lu(1805) + lu(1834) = lu(1834) - lu(92) * lu(1805) + lu(1840) = - lu(93) * lu(1805) + lu(1856) = lu(1856) - lu(94) * lu(1805) end subroutine lu_fac02 - subroutine lu_fac03( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac03( lu ) 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,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,98) = lu(k,98) * lu(k,95) - lu(k,99) = lu(k,99) * lu(k,95) - lu(k,100) = lu(k,100) * lu(k,95) - lu(k,1232) = lu(k,1232) - lu(k,96) * lu(k,1219) - lu(k,1237) = - lu(k,97) * lu(k,1219) - lu(k,1252) = lu(k,1252) - lu(k,98) * lu(k,1219) - lu(k,1254) = lu(k,1254) - lu(k,99) * lu(k,1219) - lu(k,1256) = lu(k,1256) - lu(k,100) * lu(k,1219) - lu(k,1310) = lu(k,1310) - lu(k,96) * lu(k,1306) - lu(k,1311) = lu(k,1311) - lu(k,97) * lu(k,1306) - lu(k,1326) = lu(k,1326) - lu(k,98) * lu(k,1306) - lu(k,1328) = lu(k,1328) - lu(k,99) * lu(k,1306) - lu(k,1330) = lu(k,1330) - lu(k,100) * lu(k,1306) - lu(k,1408) = lu(k,1408) - lu(k,96) * lu(k,1387) - lu(k,1414) = lu(k,1414) - lu(k,97) * lu(k,1387) - lu(k,1429) = lu(k,1429) - lu(k,98) * lu(k,1387) - lu(k,1431) = lu(k,1431) - lu(k,99) * lu(k,1387) - lu(k,1433) = lu(k,1433) - lu(k,100) * lu(k,1387) - 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,104) = lu(k,104) * lu(k,101) - lu(k,105) = lu(k,105) * lu(k,101) - lu(k,106) = lu(k,106) * lu(k,101) - lu(k,107) = lu(k,107) * lu(k,101) - lu(k,747) = lu(k,747) - lu(k,102) * lu(k,735) - lu(k,748) = lu(k,748) - lu(k,103) * lu(k,735) - lu(k,749) = lu(k,749) - lu(k,104) * lu(k,735) - lu(k,752) = lu(k,752) - lu(k,105) * lu(k,735) - lu(k,755) = lu(k,755) - lu(k,106) * lu(k,735) - lu(k,767) = lu(k,767) - lu(k,107) * lu(k,735) - lu(k,793) = lu(k,793) - lu(k,102) * lu(k,774) - lu(k,794) = lu(k,794) - lu(k,103) * lu(k,774) - lu(k,796) = lu(k,796) - lu(k,104) * lu(k,774) - lu(k,799) = lu(k,799) - lu(k,105) * lu(k,774) - lu(k,802) = lu(k,802) - lu(k,106) * lu(k,774) - lu(k,814) = lu(k,814) - lu(k,107) * lu(k,774) - lu(k,984) = lu(k,984) - lu(k,102) * lu(k,965) - lu(k,985) = lu(k,985) - lu(k,103) * lu(k,965) - lu(k,990) = lu(k,990) - lu(k,104) * lu(k,965) - lu(k,993) = lu(k,993) - lu(k,105) * lu(k,965) - lu(k,996) = lu(k,996) - lu(k,106) * lu(k,965) - lu(k,1010) = lu(k,1010) - lu(k,107) * lu(k,965) - lu(k,108) = 1._r8 / lu(k,108) - lu(k,109) = lu(k,109) * lu(k,108) - lu(k,110) = lu(k,110) * lu(k,108) - lu(k,111) = lu(k,111) * lu(k,108) - lu(k,112) = lu(k,112) * lu(k,108) - lu(k,113) = lu(k,113) * lu(k,108) - lu(k,114) = lu(k,114) * lu(k,108) - lu(k,877) = lu(k,877) - lu(k,109) * lu(k,876) - lu(k,900) = lu(k,900) - lu(k,110) * lu(k,876) - lu(k,904) = lu(k,904) - lu(k,111) * lu(k,876) - lu(k,914) = lu(k,914) - lu(k,112) * lu(k,876) - lu(k,915) = lu(k,915) - lu(k,113) * lu(k,876) - lu(k,922) = lu(k,922) - lu(k,114) * lu(k,876) - lu(k,1530) = lu(k,1530) - lu(k,109) * lu(k,1529) - lu(k,1546) = lu(k,1546) - lu(k,110) * lu(k,1529) - lu(k,1550) = lu(k,1550) - lu(k,111) * lu(k,1529) - lu(k,1560) = lu(k,1560) - lu(k,112) * lu(k,1529) - lu(k,1561) = lu(k,1561) - lu(k,113) * lu(k,1529) - lu(k,1568) = lu(k,1568) - lu(k,114) * lu(k,1529) - lu(k,1807) = lu(k,1807) - lu(k,109) * lu(k,1806) - lu(k,1834) = lu(k,1834) - lu(k,110) * lu(k,1806) - lu(k,1838) = lu(k,1838) - lu(k,111) * lu(k,1806) - lu(k,1848) = lu(k,1848) - lu(k,112) * lu(k,1806) - lu(k,1849) = lu(k,1849) - lu(k,113) * lu(k,1806) - lu(k,1856) = lu(k,1856) - lu(k,114) * lu(k,1806) - 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,119) = lu(k,119) * lu(k,115) - lu(k,120) = lu(k,120) * lu(k,115) - lu(k,900) = lu(k,900) - lu(k,116) * lu(k,877) - lu(k,904) = lu(k,904) - lu(k,117) * lu(k,877) - lu(k,914) = lu(k,914) - lu(k,118) * lu(k,877) - lu(k,915) = lu(k,915) - lu(k,119) * lu(k,877) - lu(k,922) = lu(k,922) - lu(k,120) * lu(k,877) - lu(k,1546) = lu(k,1546) - lu(k,116) * lu(k,1530) - lu(k,1550) = lu(k,1550) - lu(k,117) * lu(k,1530) - lu(k,1560) = lu(k,1560) - lu(k,118) * lu(k,1530) - lu(k,1561) = lu(k,1561) - lu(k,119) * lu(k,1530) - lu(k,1568) = lu(k,1568) - lu(k,120) * lu(k,1530) - lu(k,1834) = lu(k,1834) - lu(k,116) * lu(k,1807) - lu(k,1838) = lu(k,1838) - lu(k,117) * lu(k,1807) - lu(k,1848) = lu(k,1848) - lu(k,118) * lu(k,1807) - lu(k,1849) = lu(k,1849) - lu(k,119) * lu(k,1807) - lu(k,1856) = lu(k,1856) - lu(k,120) * lu(k,1807) - lu(k,121) = 1._r8 / lu(k,121) - lu(k,122) = lu(k,122) * lu(k,121) - lu(k,123) = lu(k,123) * lu(k,121) - lu(k,124) = lu(k,124) * lu(k,121) - lu(k,125) = lu(k,125) * lu(k,121) - lu(k,126) = lu(k,126) * lu(k,121) - lu(k,127) = lu(k,127) * lu(k,121) - lu(k,1221) = lu(k,1221) - lu(k,122) * lu(k,1220) - lu(k,1222) = lu(k,1222) - lu(k,123) * lu(k,1220) - lu(k,1225) = lu(k,1225) - lu(k,124) * lu(k,1220) - lu(k,1228) = lu(k,1228) - lu(k,125) * lu(k,1220) - lu(k,1256) = lu(k,1256) - lu(k,126) * lu(k,1220) - lu(k,1258) = lu(k,1258) - lu(k,127) * lu(k,1220) - lu(k,1389) = lu(k,1389) - lu(k,122) * lu(k,1388) - lu(k,1393) = lu(k,1393) - lu(k,123) * lu(k,1388) - lu(k,1397) = lu(k,1397) - lu(k,124) * lu(k,1388) - lu(k,1402) = lu(k,1402) - lu(k,125) * lu(k,1388) - lu(k,1433) = lu(k,1433) - lu(k,126) * lu(k,1388) - lu(k,1435) = lu(k,1435) - lu(k,127) * lu(k,1388) - lu(k,1532) = lu(k,1532) - lu(k,122) * lu(k,1531) - lu(k,1533) = lu(k,1533) - lu(k,123) * lu(k,1531) - lu(k,1539) = - lu(k,124) * lu(k,1531) - lu(k,1540) = lu(k,1540) - lu(k,125) * lu(k,1531) - lu(k,1558) = lu(k,1558) - lu(k,126) * lu(k,1531) - lu(k,1560) = lu(k,1560) - lu(k,127) * lu(k,1531) - lu(k,128) = 1._r8 / lu(k,128) - lu(k,129) = lu(k,129) * lu(k,128) - lu(k,130) = lu(k,130) * lu(k,128) - lu(k,131) = lu(k,131) * lu(k,128) - lu(k,132) = lu(k,132) * lu(k,128) - lu(k,133) = lu(k,133) * lu(k,128) - lu(k,1222) = lu(k,1222) - lu(k,129) * lu(k,1221) - lu(k,1228) = lu(k,1228) - lu(k,130) * lu(k,1221) - lu(k,1252) = lu(k,1252) - lu(k,131) * lu(k,1221) - lu(k,1255) = lu(k,1255) - lu(k,132) * lu(k,1221) - lu(k,1256) = lu(k,1256) - lu(k,133) * lu(k,1221) - lu(k,1393) = lu(k,1393) - lu(k,129) * lu(k,1389) - lu(k,1402) = lu(k,1402) - lu(k,130) * lu(k,1389) - lu(k,1429) = lu(k,1429) - lu(k,131) * lu(k,1389) - lu(k,1432) = lu(k,1432) - lu(k,132) * lu(k,1389) - lu(k,1433) = lu(k,1433) - lu(k,133) * lu(k,1389) - lu(k,1533) = lu(k,1533) - lu(k,129) * lu(k,1532) - lu(k,1540) = lu(k,1540) - lu(k,130) * lu(k,1532) - lu(k,1554) = lu(k,1554) - lu(k,131) * lu(k,1532) - lu(k,1557) = lu(k,1557) - lu(k,132) * lu(k,1532) - lu(k,1558) = lu(k,1558) - lu(k,133) * lu(k,1532) - 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,267) = - lu(k,135) * lu(k,261) - lu(k,268) = - lu(k,136) * lu(k,261) - lu(k,274) = - lu(k,137) * lu(k,261) - lu(k,458) = lu(k,458) - lu(k,135) * lu(k,452) - lu(k,459) = - lu(k,136) * lu(k,452) - lu(k,463) = - lu(k,137) * lu(k,452) - lu(k,608) = lu(k,608) - lu(k,135) * lu(k,601) - lu(k,609) = lu(k,609) - lu(k,136) * lu(k,601) - lu(k,623) = lu(k,623) - lu(k,137) * lu(k,601) - lu(k,793) = lu(k,793) - lu(k,135) * lu(k,775) - lu(k,794) = lu(k,794) - lu(k,136) * lu(k,775) - lu(k,813) = lu(k,813) - lu(k,137) * lu(k,775) - lu(k,1107) = lu(k,1107) - lu(k,135) * lu(k,1095) - lu(k,1108) = lu(k,1108) - lu(k,136) * lu(k,1095) - lu(k,1131) = - lu(k,137) * lu(k,1095) - lu(k,1417) = lu(k,1417) - lu(k,135) * lu(k,1390) - lu(k,1418) = lu(k,1418) - lu(k,136) * lu(k,1390) - lu(k,1442) = lu(k,1442) - lu(k,137) * lu(k,1390) - lu(k,1459) = lu(k,1459) - lu(k,135) * lu(k,1445) - lu(k,1460) = lu(k,1460) - lu(k,136) * lu(k,1445) - lu(k,1484) = lu(k,1484) - lu(k,137) * lu(k,1445) - end do + real(r8), intent(inout) :: lu(:) + lu(95) = 1._r8 / lu(95) + lu(96) = lu(96) * lu(95) + lu(97) = lu(97) * lu(95) + lu(98) = lu(98) * lu(95) + lu(99) = lu(99) * lu(95) + lu(100) = lu(100) * lu(95) + lu(1034) = lu(1034) - lu(96) * lu(1021) + lu(1039) = - lu(97) * lu(1021) + lu(1049) = lu(1049) - lu(98) * lu(1021) + lu(1053) = lu(1053) - lu(99) * lu(1021) + lu(1056) = lu(1056) - lu(100) * lu(1021) + lu(1220) = lu(1220) - lu(96) * lu(1199) + lu(1226) = lu(1226) - lu(97) * lu(1199) + lu(1236) = lu(1236) - lu(98) * lu(1199) + lu(1240) = lu(1240) - lu(99) * lu(1199) + lu(1243) = lu(1243) - lu(100) * lu(1199) + lu(1346) = lu(1346) - lu(96) * lu(1342) + lu(1347) = lu(1347) - lu(97) * lu(1342) + lu(1357) = lu(1357) - lu(98) * lu(1342) + lu(1361) = lu(1361) - lu(99) * lu(1342) + lu(1364) = lu(1364) - lu(100) * lu(1342) + lu(101) = 1._r8 / lu(101) + lu(102) = lu(102) * lu(101) + lu(103) = lu(103) * lu(101) + lu(104) = lu(104) * lu(101) + lu(105) = lu(105) * lu(101) + lu(106) = lu(106) * lu(101) + lu(107) = lu(107) * lu(101) + lu(747) = lu(747) - lu(102) * lu(735) + lu(748) = lu(748) - lu(103) * lu(735) + lu(751) = lu(751) - lu(104) * lu(735) + lu(752) = lu(752) - lu(105) * lu(735) + lu(766) = lu(766) - lu(106) * lu(735) + lu(767) = lu(767) - lu(107) * lu(735) + lu(793) = lu(793) - lu(102) * lu(774) + lu(794) = lu(794) - lu(103) * lu(774) + lu(798) = lu(798) - lu(104) * lu(774) + lu(799) = lu(799) - lu(105) * lu(774) + lu(813) = lu(813) - lu(106) * lu(774) + lu(814) = lu(814) - lu(107) * lu(774) + lu(1088) = lu(1088) - lu(102) * lu(1069) + lu(1089) = lu(1089) - lu(103) * lu(1069) + lu(1095) = lu(1095) - lu(104) * lu(1069) + lu(1096) = lu(1096) - lu(105) * lu(1069) + lu(1113) = lu(1113) - lu(106) * lu(1069) + lu(1114) = lu(1114) - lu(107) * lu(1069) + lu(108) = 1._r8 / lu(108) + lu(109) = lu(109) * lu(108) + lu(110) = lu(110) * lu(108) + lu(111) = lu(111) * lu(108) + lu(112) = lu(112) * lu(108) + lu(113) = lu(113) * lu(108) + lu(114) = lu(114) * lu(108) + lu(850) = lu(850) - lu(109) * lu(849) + lu(866) = lu(866) - lu(110) * lu(849) + lu(868) = lu(868) - lu(111) * lu(849) + lu(872) = lu(872) - lu(112) * lu(849) + lu(873) = lu(873) - lu(113) * lu(849) + lu(888) = lu(888) - lu(114) * lu(849) + lu(932) = lu(932) - lu(109) * lu(931) + lu(954) = lu(954) - lu(110) * lu(931) + lu(956) = lu(956) - lu(111) * lu(931) + lu(960) = lu(960) - lu(112) * lu(931) + lu(961) = lu(961) - lu(113) * lu(931) + lu(977) = lu(977) - lu(114) * lu(931) + lu(1807) = lu(1807) - lu(109) * lu(1806) + lu(1833) = lu(1833) - lu(110) * lu(1806) + lu(1835) = lu(1835) - lu(111) * lu(1806) + lu(1839) = lu(1839) - lu(112) * lu(1806) + lu(1840) = lu(1840) - lu(113) * lu(1806) + lu(1856) = lu(1856) - lu(114) * lu(1806) + lu(115) = 1._r8 / lu(115) + lu(116) = lu(116) * lu(115) + lu(117) = lu(117) * lu(115) + lu(118) = lu(118) * lu(115) + lu(119) = lu(119) * lu(115) + lu(120) = lu(120) * lu(115) + lu(866) = lu(866) - lu(116) * lu(850) + lu(868) = lu(868) - lu(117) * lu(850) + lu(872) = lu(872) - lu(118) * lu(850) + lu(873) = lu(873) - lu(119) * lu(850) + lu(888) = lu(888) - lu(120) * lu(850) + lu(954) = lu(954) - lu(116) * lu(932) + lu(956) = lu(956) - lu(117) * lu(932) + lu(960) = lu(960) - lu(118) * lu(932) + lu(961) = lu(961) - lu(119) * lu(932) + lu(977) = lu(977) - lu(120) * lu(932) + lu(1833) = lu(1833) - lu(116) * lu(1807) + lu(1835) = lu(1835) - lu(117) * lu(1807) + lu(1839) = lu(1839) - lu(118) * lu(1807) + lu(1840) = lu(1840) - lu(119) * lu(1807) + lu(1856) = lu(1856) - lu(120) * lu(1807) + lu(121) = 1._r8 / lu(121) + lu(122) = lu(122) * lu(121) + lu(123) = lu(123) * lu(121) + lu(124) = lu(124) * lu(121) + lu(125) = lu(125) * lu(121) + lu(126) = lu(126) * lu(121) + lu(127) = lu(127) * lu(121) + lu(852) = lu(852) - lu(122) * lu(851) + lu(853) = lu(853) - lu(123) * lu(851) + lu(859) = - lu(124) * lu(851) + lu(860) = lu(860) - lu(125) * lu(851) + lu(873) = lu(873) - lu(126) * lu(851) + lu(874) = lu(874) - lu(127) * lu(851) + lu(1023) = lu(1023) - lu(122) * lu(1022) + lu(1024) = lu(1024) - lu(123) * lu(1022) + lu(1027) = lu(1027) - lu(124) * lu(1022) + lu(1030) = lu(1030) - lu(125) * lu(1022) + lu(1052) = lu(1052) - lu(126) * lu(1022) + lu(1053) = lu(1053) - lu(127) * lu(1022) + lu(1201) = lu(1201) - lu(122) * lu(1200) + lu(1205) = lu(1205) - lu(123) * lu(1200) + lu(1209) = lu(1209) - lu(124) * lu(1200) + lu(1214) = lu(1214) - lu(125) * lu(1200) + lu(1239) = lu(1239) - lu(126) * lu(1200) + lu(1240) = lu(1240) - lu(127) * lu(1200) + lu(128) = 1._r8 / lu(128) + lu(129) = lu(129) * lu(128) + lu(130) = lu(130) * lu(128) + lu(131) = lu(131) * lu(128) + lu(132) = lu(132) * lu(128) + lu(133) = lu(133) * lu(128) + lu(853) = lu(853) - lu(129) * lu(852) + lu(860) = lu(860) - lu(130) * lu(852) + lu(870) = lu(870) - lu(131) * lu(852) + lu(874) = lu(874) - lu(132) * lu(852) + lu(878) = lu(878) - lu(133) * lu(852) + lu(1024) = lu(1024) - lu(129) * lu(1023) + lu(1030) = lu(1030) - lu(130) * lu(1023) + lu(1049) = lu(1049) - lu(131) * lu(1023) + lu(1053) = lu(1053) - lu(132) * lu(1023) + lu(1057) = lu(1057) - lu(133) * lu(1023) + lu(1205) = lu(1205) - lu(129) * lu(1201) + lu(1214) = lu(1214) - lu(130) * lu(1201) + lu(1236) = lu(1236) - lu(131) * lu(1201) + lu(1240) = lu(1240) - lu(132) * lu(1201) + lu(1244) = lu(1244) - lu(133) * lu(1201) + lu(134) = 1._r8 / lu(134) + lu(135) = lu(135) * lu(134) + lu(136) = lu(136) * lu(134) + lu(137) = lu(137) * lu(134) + lu(267) = - lu(135) * lu(261) + lu(268) = - lu(136) * lu(261) + lu(274) = - lu(137) * lu(261) + lu(474) = lu(474) - lu(135) * lu(468) + lu(475) = - lu(136) * lu(468) + lu(479) = - lu(137) * lu(468) + lu(608) = lu(608) - lu(135) * lu(601) + lu(609) = lu(609) - lu(136) * lu(601) + lu(618) = lu(618) - lu(137) * lu(601) + lu(793) = lu(793) - lu(135) * lu(775) + lu(794) = lu(794) - lu(136) * lu(775) + lu(808) = lu(808) - lu(137) * lu(775) + lu(1229) = lu(1229) - lu(135) * lu(1202) + lu(1230) = lu(1230) - lu(136) * lu(1202) + lu(1246) = lu(1246) - lu(137) * lu(1202) + lu(1271) = lu(1271) - lu(135) * lu(1257) + lu(1272) = lu(1272) - lu(136) * lu(1257) + lu(1288) = lu(1288) - lu(137) * lu(1257) + lu(1773) = lu(1773) - lu(135) * lu(1761) + lu(1774) = lu(1774) - lu(136) * lu(1761) + lu(1789) = - lu(137) * lu(1761) end subroutine lu_fac03 - subroutine lu_fac04( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac04( lu ) 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,138) = 1._r8 / lu(k,138) - lu(k,139) = lu(k,139) * lu(k,138) - lu(k,140) = lu(k,140) * lu(k,138) - lu(k,141) = lu(k,141) * lu(k,138) - lu(k,142) = lu(k,142) * lu(k,138) - lu(k,143) = lu(k,143) * lu(k,138) - lu(k,144) = lu(k,144) * lu(k,138) - lu(k,145) = lu(k,145) * lu(k,138) - lu(k,580) = lu(k,580) - lu(k,139) * lu(k,579) - lu(k,583) = lu(k,583) - lu(k,140) * lu(k,579) - lu(k,584) = lu(k,584) - lu(k,141) * lu(k,579) - lu(k,589) = lu(k,589) - lu(k,142) * lu(k,579) - lu(k,590) = - lu(k,143) * lu(k,579) - lu(k,594) = - lu(k,144) * lu(k,579) - lu(k,595) = lu(k,595) - lu(k,145) * lu(k,579) - lu(k,967) = - lu(k,139) * lu(k,966) - lu(k,974) = - lu(k,140) * lu(k,966) - lu(k,979) = lu(k,979) - lu(k,141) * lu(k,966) - lu(k,990) = lu(k,990) - lu(k,142) * lu(k,966) - lu(k,993) = lu(k,993) - lu(k,143) * lu(k,966) - lu(k,997) = lu(k,997) - lu(k,144) * lu(k,966) - lu(k,1000) = lu(k,1000) - lu(k,145) * lu(k,966) - lu(k,1395) = lu(k,1395) - lu(k,139) * lu(k,1391) - lu(k,1409) = lu(k,1409) - lu(k,140) * lu(k,1391) - lu(k,1411) = lu(k,1411) - lu(k,141) * lu(k,1391) - lu(k,1423) = lu(k,1423) - lu(k,142) * lu(k,1391) - lu(k,1426) = lu(k,1426) - lu(k,143) * lu(k,1391) - lu(k,1430) = - lu(k,144) * lu(k,1391) - lu(k,1433) = lu(k,1433) - lu(k,145) * lu(k,1391) - 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,149) = lu(k,149) * lu(k,146) - lu(k,150) = lu(k,150) * lu(k,146) - lu(k,151) = lu(k,151) * lu(k,146) - lu(k,152) = lu(k,152) * lu(k,146) - lu(k,747) = lu(k,747) - lu(k,147) * lu(k,736) - lu(k,748) = lu(k,748) - lu(k,148) * lu(k,736) - lu(k,753) = lu(k,753) - lu(k,149) * lu(k,736) - lu(k,759) = lu(k,759) - lu(k,150) * lu(k,736) - lu(k,760) = lu(k,760) - lu(k,151) * lu(k,736) - lu(k,767) = lu(k,767) - lu(k,152) * lu(k,736) - lu(k,793) = lu(k,793) - lu(k,147) * lu(k,776) - lu(k,794) = lu(k,794) - lu(k,148) * lu(k,776) - lu(k,800) = lu(k,800) - lu(k,149) * lu(k,776) - lu(k,806) = lu(k,806) - lu(k,150) * lu(k,776) - lu(k,807) = lu(k,807) - lu(k,151) * lu(k,776) - lu(k,814) = lu(k,814) - lu(k,152) * lu(k,776) - lu(k,1417) = lu(k,1417) - lu(k,147) * lu(k,1392) - lu(k,1418) = lu(k,1418) - lu(k,148) * lu(k,1392) - lu(k,1427) = lu(k,1427) - lu(k,149) * lu(k,1392) - lu(k,1433) = lu(k,1433) - lu(k,150) * lu(k,1392) - lu(k,1434) = lu(k,1434) - lu(k,151) * lu(k,1392) - lu(k,1443) = - lu(k,152) * lu(k,1392) - lu(k,1459) = lu(k,1459) - lu(k,147) * lu(k,1446) - lu(k,1460) = lu(k,1460) - lu(k,148) * lu(k,1446) - lu(k,1469) = lu(k,1469) - lu(k,149) * lu(k,1446) - lu(k,1475) = lu(k,1475) - lu(k,150) * lu(k,1446) - lu(k,1476) = lu(k,1476) - lu(k,151) * lu(k,1446) - lu(k,1485) = - lu(k,152) * lu(k,1446) - 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,157) = lu(k,157) * lu(k,153) - lu(k,158) = lu(k,158) * lu(k,153) - lu(k,159) = lu(k,159) * lu(k,153) - lu(k,160) = lu(k,160) * lu(k,153) - lu(k,161) = lu(k,161) * lu(k,153) - lu(k,1224) = lu(k,1224) - lu(k,154) * lu(k,1222) - lu(k,1228) = lu(k,1228) - lu(k,155) * lu(k,1222) - lu(k,1229) = lu(k,1229) - lu(k,156) * lu(k,1222) - lu(k,1244) = lu(k,1244) - lu(k,157) * lu(k,1222) - lu(k,1252) = lu(k,1252) - lu(k,158) * lu(k,1222) - lu(k,1255) = lu(k,1255) - lu(k,159) * lu(k,1222) - lu(k,1256) = lu(k,1256) - lu(k,160) * lu(k,1222) - lu(k,1259) = lu(k,1259) - lu(k,161) * lu(k,1222) - lu(k,1396) = lu(k,1396) - lu(k,154) * lu(k,1393) - lu(k,1402) = lu(k,1402) - lu(k,155) * lu(k,1393) - lu(k,1405) = lu(k,1405) - lu(k,156) * lu(k,1393) - lu(k,1421) = lu(k,1421) - lu(k,157) * lu(k,1393) - lu(k,1429) = lu(k,1429) - lu(k,158) * lu(k,1393) - lu(k,1432) = lu(k,1432) - lu(k,159) * lu(k,1393) - lu(k,1433) = lu(k,1433) - lu(k,160) * lu(k,1393) - lu(k,1436) = lu(k,1436) - lu(k,161) * lu(k,1393) - lu(k,1538) = lu(k,1538) - lu(k,154) * lu(k,1533) - lu(k,1540) = lu(k,1540) - lu(k,155) * lu(k,1533) - lu(k,1541) = lu(k,1541) - lu(k,156) * lu(k,1533) - lu(k,1546) = lu(k,1546) - lu(k,157) * lu(k,1533) - lu(k,1554) = lu(k,1554) - lu(k,158) * lu(k,1533) - lu(k,1557) = lu(k,1557) - lu(k,159) * lu(k,1533) - lu(k,1558) = lu(k,1558) - lu(k,160) * lu(k,1533) - lu(k,1561) = lu(k,1561) - lu(k,161) * lu(k,1533) - lu(k,162) = 1._r8 / lu(k,162) - lu(k,163) = lu(k,163) * lu(k,162) - lu(k,164) = lu(k,164) * lu(k,162) - lu(k,165) = lu(k,165) * lu(k,162) - lu(k,166) = lu(k,166) * lu(k,162) - lu(k,167) = lu(k,167) * lu(k,162) - lu(k,181) = lu(k,181) - lu(k,163) * lu(k,180) - lu(k,182) = - lu(k,164) * lu(k,180) - lu(k,183) = lu(k,183) - lu(k,165) * lu(k,180) - lu(k,184) = lu(k,184) - lu(k,166) * lu(k,180) - lu(k,185) = lu(k,185) - lu(k,167) * lu(k,180) - lu(k,188) = lu(k,188) - lu(k,163) * lu(k,187) - lu(k,191) = - lu(k,164) * lu(k,187) - lu(k,194) = lu(k,194) - lu(k,165) * lu(k,187) - lu(k,195) = lu(k,195) - lu(k,166) * lu(k,187) - lu(k,196) = lu(k,196) - lu(k,167) * lu(k,187) - lu(k,1012) = - lu(k,163) * lu(k,1011) - lu(k,1033) = lu(k,1033) - lu(k,164) * lu(k,1011) - lu(k,1045) = lu(k,1045) - lu(k,165) * lu(k,1011) - lu(k,1051) = lu(k,1051) - lu(k,166) * lu(k,1011) - lu(k,1052) = lu(k,1052) - lu(k,167) * lu(k,1011) - lu(k,1536) = lu(k,1536) - lu(k,163) * lu(k,1534) - lu(k,1549) = lu(k,1549) - lu(k,164) * lu(k,1534) - lu(k,1561) = lu(k,1561) - lu(k,165) * lu(k,1534) - lu(k,1567) = lu(k,1567) - lu(k,166) * lu(k,1534) - lu(k,1568) = lu(k,1568) - lu(k,167) * lu(k,1534) - lu(k,1810) = lu(k,1810) - lu(k,163) * lu(k,1808) - lu(k,1837) = lu(k,1837) - lu(k,164) * lu(k,1808) - lu(k,1849) = lu(k,1849) - lu(k,165) * lu(k,1808) - lu(k,1855) = lu(k,1855) - lu(k,166) * lu(k,1808) - lu(k,1856) = lu(k,1856) - lu(k,167) * lu(k,1808) - lu(k,168) = 1._r8 / lu(k,168) - lu(k,169) = lu(k,169) * lu(k,168) - lu(k,170) = lu(k,170) * lu(k,168) - lu(k,171) = lu(k,171) * lu(k,168) - lu(k,172) = lu(k,172) * lu(k,168) - lu(k,173) = lu(k,173) * lu(k,168) - lu(k,174) = lu(k,174) * lu(k,168) - lu(k,379) = lu(k,379) - lu(k,169) * lu(k,377) - lu(k,383) = lu(k,383) - lu(k,170) * lu(k,377) - lu(k,385) = lu(k,385) - lu(k,171) * lu(k,377) - lu(k,386) = lu(k,386) - lu(k,172) * lu(k,377) - lu(k,387) = lu(k,387) - lu(k,173) * lu(k,377) - lu(k,391) = lu(k,391) - lu(k,174) * lu(k,377) - lu(k,787) = lu(k,787) - lu(k,169) * lu(k,777) - lu(k,794) = lu(k,794) - lu(k,170) * lu(k,777) - lu(k,801) = lu(k,801) - lu(k,171) * lu(k,777) - lu(k,802) = lu(k,802) - lu(k,172) * lu(k,777) - lu(k,806) = lu(k,806) - lu(k,173) * lu(k,777) - lu(k,813) = lu(k,813) - lu(k,174) * lu(k,777) - lu(k,1182) = lu(k,1182) - lu(k,169) * lu(k,1178) - lu(k,1192) = lu(k,1192) - lu(k,170) * lu(k,1178) - lu(k,1202) = lu(k,1202) - lu(k,171) * lu(k,1178) - lu(k,1203) = lu(k,1203) - lu(k,172) * lu(k,1178) - lu(k,1207) = lu(k,1207) - lu(k,173) * lu(k,1178) - lu(k,1216) = lu(k,1216) - lu(k,174) * lu(k,1178) - lu(k,1231) = lu(k,1231) - lu(k,169) * lu(k,1223) - lu(k,1241) = - lu(k,170) * lu(k,1223) - lu(k,1251) = lu(k,1251) - lu(k,171) * lu(k,1223) - lu(k,1252) = lu(k,1252) - lu(k,172) * lu(k,1223) - lu(k,1256) = lu(k,1256) - lu(k,173) * lu(k,1223) - lu(k,1265) = lu(k,1265) - lu(k,174) * lu(k,1223) - lu(k,1407) = lu(k,1407) - lu(k,169) * lu(k,1394) - lu(k,1418) = lu(k,1418) - lu(k,170) * lu(k,1394) - lu(k,1428) = lu(k,1428) - lu(k,171) * lu(k,1394) - lu(k,1429) = lu(k,1429) - lu(k,172) * lu(k,1394) - lu(k,1433) = lu(k,1433) - lu(k,173) * lu(k,1394) - lu(k,1442) = lu(k,1442) - lu(k,174) * lu(k,1394) - 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,178) = lu(k,178) * lu(k,175) - lu(k,179) = lu(k,179) * lu(k,175) - lu(k,794) = lu(k,794) - lu(k,176) * lu(k,778) - lu(k,796) = lu(k,796) - lu(k,177) * lu(k,778) - lu(k,808) = lu(k,808) - lu(k,178) * lu(k,778) - lu(k,814) = lu(k,814) - lu(k,179) * lu(k,778) - lu(k,851) = - lu(k,176) * lu(k,847) - lu(k,855) = lu(k,855) - lu(k,177) * lu(k,847) - lu(k,867) = lu(k,867) - lu(k,178) * lu(k,847) - lu(k,875) = lu(k,875) - lu(k,179) * lu(k,847) - lu(k,939) = lu(k,939) - lu(k,176) * lu(k,924) - lu(k,944) = lu(k,944) - lu(k,177) * lu(k,924) - lu(k,956) = lu(k,956) - lu(k,178) * lu(k,924) - lu(k,964) = lu(k,964) - lu(k,179) * lu(k,924) - lu(k,1151) = lu(k,1151) - lu(k,176) * lu(k,1135) - lu(k,1156) = - lu(k,177) * lu(k,1135) - lu(k,1168) = - lu(k,178) * lu(k,1135) - lu(k,1176) = lu(k,1176) - lu(k,179) * lu(k,1135) - lu(k,1280) = lu(k,1280) - lu(k,176) * lu(k,1268) - lu(k,1285) = lu(k,1285) - lu(k,177) * lu(k,1268) - lu(k,1297) = - lu(k,178) * lu(k,1268) - lu(k,1305) = lu(k,1305) - lu(k,179) * lu(k,1268) - lu(k,1501) = lu(k,1501) - lu(k,176) * lu(k,1486) - lu(k,1506) = lu(k,1506) - lu(k,177) * lu(k,1486) - lu(k,1518) = lu(k,1518) - lu(k,178) * lu(k,1486) - lu(k,1526) = lu(k,1526) - lu(k,179) * lu(k,1486) - lu(k,1545) = lu(k,1545) - lu(k,176) * lu(k,1535) - lu(k,1548) = - lu(k,177) * lu(k,1535) - lu(k,1560) = lu(k,1560) - lu(k,178) * lu(k,1535) - lu(k,1568) = lu(k,1568) - lu(k,179) * lu(k,1535) - lu(k,1831) = lu(k,1831) - lu(k,176) * lu(k,1809) - lu(k,1836) = - lu(k,177) * lu(k,1809) - lu(k,1848) = lu(k,1848) - lu(k,178) * lu(k,1809) - lu(k,1856) = lu(k,1856) - lu(k,179) * lu(k,1809) - end do + real(r8), intent(inout) :: lu(:) + lu(138) = 1._r8 / lu(138) + lu(139) = lu(139) * lu(138) + lu(140) = lu(140) * lu(138) + lu(141) = lu(141) * lu(138) + lu(142) = lu(142) * lu(138) + lu(143) = lu(143) * lu(138) + lu(144) = lu(144) * lu(138) + lu(145) = lu(145) * lu(138) + lu(580) = lu(580) - lu(139) * lu(579) + lu(583) = lu(583) - lu(140) * lu(579) + lu(584) = lu(584) - lu(141) * lu(579) + lu(590) = lu(590) - lu(142) * lu(579) + lu(592) = lu(592) - lu(143) * lu(579) + lu(598) = - lu(144) * lu(579) + lu(599) = - lu(145) * lu(579) + lu(1071) = - lu(139) * lu(1070) + lu(1078) = - lu(140) * lu(1070) + lu(1083) = lu(1083) - lu(141) * lu(1070) + lu(1096) = lu(1096) - lu(142) * lu(1070) + lu(1099) = lu(1099) - lu(143) * lu(1070) + lu(1108) = lu(1108) - lu(144) * lu(1070) + lu(1113) = lu(1113) - lu(145) * lu(1070) + lu(1207) = lu(1207) - lu(139) * lu(1203) + lu(1221) = lu(1221) - lu(140) * lu(1203) + lu(1223) = lu(1223) - lu(141) * lu(1203) + lu(1237) = lu(1237) - lu(142) * lu(1203) + lu(1240) = lu(1240) - lu(143) * lu(1203) + lu(1249) = - lu(144) * lu(1203) + lu(1254) = lu(1254) - lu(145) * lu(1203) + lu(146) = 1._r8 / lu(146) + lu(147) = lu(147) * lu(146) + lu(148) = lu(148) * lu(146) + lu(149) = lu(149) * lu(146) + lu(150) = lu(150) * lu(146) + lu(151) = lu(151) * lu(146) + lu(152) = lu(152) * lu(146) + lu(747) = lu(747) - lu(147) * lu(736) + lu(748) = lu(748) - lu(148) * lu(736) + lu(755) = lu(755) - lu(149) * lu(736) + lu(756) = lu(756) - lu(150) * lu(736) + lu(757) = lu(757) - lu(151) * lu(736) + lu(767) = lu(767) - lu(152) * lu(736) + lu(793) = lu(793) - lu(147) * lu(776) + lu(794) = lu(794) - lu(148) * lu(776) + lu(802) = lu(802) - lu(149) * lu(776) + lu(803) = lu(803) - lu(150) * lu(776) + lu(804) = lu(804) - lu(151) * lu(776) + lu(814) = lu(814) - lu(152) * lu(776) + lu(1229) = lu(1229) - lu(147) * lu(1204) + lu(1230) = lu(1230) - lu(148) * lu(1204) + lu(1240) = lu(1240) - lu(149) * lu(1204) + lu(1241) = lu(1241) - lu(150) * lu(1204) + lu(1242) = lu(1242) - lu(151) * lu(1204) + lu(1255) = - lu(152) * lu(1204) + lu(1271) = lu(1271) - lu(147) * lu(1258) + lu(1272) = lu(1272) - lu(148) * lu(1258) + lu(1282) = lu(1282) - lu(149) * lu(1258) + lu(1283) = lu(1283) - lu(150) * lu(1258) + lu(1284) = lu(1284) - lu(151) * lu(1258) + lu(1297) = - lu(152) * lu(1258) + lu(153) = 1._r8 / lu(153) + lu(154) = lu(154) * lu(153) + lu(155) = lu(155) * lu(153) + lu(156) = lu(156) * lu(153) + lu(157) = lu(157) * lu(153) + lu(158) = lu(158) * lu(153) + lu(159) = lu(159) * lu(153) + lu(160) = lu(160) * lu(153) + lu(161) = lu(161) * lu(153) + lu(858) = lu(858) - lu(154) * lu(853) + lu(860) = lu(860) - lu(155) * lu(853) + lu(861) = lu(861) - lu(156) * lu(853) + lu(866) = lu(866) - lu(157) * lu(853) + lu(868) = lu(868) - lu(158) * lu(853) + lu(870) = lu(870) - lu(159) * lu(853) + lu(874) = lu(874) - lu(160) * lu(853) + lu(878) = lu(878) - lu(161) * lu(853) + lu(1026) = lu(1026) - lu(154) * lu(1024) + lu(1030) = lu(1030) - lu(155) * lu(1024) + lu(1031) = lu(1031) - lu(156) * lu(1024) + lu(1045) = lu(1045) - lu(157) * lu(1024) + lu(1047) = lu(1047) - lu(158) * lu(1024) + lu(1049) = lu(1049) - lu(159) * lu(1024) + lu(1053) = lu(1053) - lu(160) * lu(1024) + lu(1057) = lu(1057) - lu(161) * lu(1024) + lu(1208) = lu(1208) - lu(154) * lu(1205) + lu(1214) = lu(1214) - lu(155) * lu(1205) + lu(1217) = lu(1217) - lu(156) * lu(1205) + lu(1232) = lu(1232) - lu(157) * lu(1205) + lu(1234) = lu(1234) - lu(158) * lu(1205) + lu(1236) = lu(1236) - lu(159) * lu(1205) + lu(1240) = lu(1240) - lu(160) * lu(1205) + lu(1244) = lu(1244) - lu(161) * lu(1205) + lu(162) = 1._r8 / lu(162) + lu(163) = lu(163) * lu(162) + lu(164) = lu(164) * lu(162) + lu(165) = lu(165) * lu(162) + lu(166) = lu(166) * lu(162) + lu(167) = lu(167) * lu(162) + lu(181) = lu(181) - lu(163) * lu(180) + lu(182) = lu(182) - lu(164) * lu(180) + lu(183) = - lu(165) * lu(180) + lu(184) = lu(184) - lu(166) * lu(180) + lu(185) = lu(185) - lu(167) * lu(180) + lu(188) = lu(188) - lu(163) * lu(187) + lu(191) = lu(191) - lu(164) * lu(187) + lu(192) = - lu(165) * lu(187) + lu(195) = lu(195) - lu(166) * lu(187) + lu(196) = lu(196) - lu(167) * lu(187) + lu(856) = lu(856) - lu(163) * lu(854) + lu(866) = lu(866) - lu(164) * lu(854) + lu(867) = lu(867) - lu(165) * lu(854) + lu(880) = lu(880) - lu(166) * lu(854) + lu(888) = lu(888) - lu(167) * lu(854) + lu(890) = - lu(163) * lu(889) + lu(907) = lu(907) - lu(164) * lu(889) + lu(908) = lu(908) - lu(165) * lu(889) + lu(921) = lu(921) - lu(166) * lu(889) + lu(930) = lu(930) - lu(167) * lu(889) + lu(1810) = lu(1810) - lu(163) * lu(1808) + lu(1833) = lu(1833) - lu(164) * lu(1808) + lu(1834) = lu(1834) - lu(165) * lu(1808) + lu(1847) = lu(1847) - lu(166) * lu(1808) + lu(1856) = lu(1856) - lu(167) * lu(1808) + lu(168) = 1._r8 / lu(168) + lu(169) = lu(169) * lu(168) + lu(170) = lu(170) * lu(168) + lu(171) = lu(171) * lu(168) + lu(172) = lu(172) * lu(168) + lu(173) = lu(173) * lu(168) + lu(174) = lu(174) * lu(168) + lu(379) = lu(379) - lu(169) * lu(377) + lu(383) = lu(383) - lu(170) * lu(377) + lu(384) = lu(384) - lu(171) * lu(377) + lu(387) = lu(387) - lu(172) * lu(377) + lu(389) = lu(389) - lu(173) * lu(377) + lu(390) = lu(390) - lu(174) * lu(377) + lu(787) = lu(787) - lu(169) * lu(777) + lu(794) = lu(794) - lu(170) * lu(777) + lu(798) = lu(798) - lu(171) * lu(777) + lu(802) = lu(802) - lu(172) * lu(777) + lu(807) = lu(807) - lu(173) * lu(777) + lu(808) = lu(808) - lu(174) * lu(777) + lu(1033) = lu(1033) - lu(169) * lu(1025) + lu(1043) = - lu(170) * lu(1025) + lu(1049) = lu(1049) - lu(171) * lu(1025) + lu(1053) = lu(1053) - lu(172) * lu(1025) + lu(1058) = lu(1058) - lu(173) * lu(1025) + lu(1059) = lu(1059) - lu(174) * lu(1025) + lu(1219) = lu(1219) - lu(169) * lu(1206) + lu(1230) = lu(1230) - lu(170) * lu(1206) + lu(1236) = lu(1236) - lu(171) * lu(1206) + lu(1240) = lu(1240) - lu(172) * lu(1206) + lu(1245) = lu(1245) - lu(173) * lu(1206) + lu(1246) = lu(1246) - lu(174) * lu(1206) + lu(1426) = lu(1426) - lu(169) * lu(1422) + lu(1436) = lu(1436) - lu(170) * lu(1422) + lu(1442) = lu(1442) - lu(171) * lu(1422) + lu(1446) = lu(1446) - lu(172) * lu(1422) + lu(1451) = lu(1451) - lu(173) * lu(1422) + lu(1452) = lu(1452) - lu(174) * lu(1422) + lu(175) = 1._r8 / lu(175) + lu(176) = lu(176) * lu(175) + lu(177) = lu(177) * lu(175) + lu(178) = lu(178) * lu(175) + lu(179) = lu(179) * lu(175) + lu(794) = lu(794) - lu(176) * lu(778) + lu(799) = lu(799) - lu(177) * lu(778) + lu(801) = lu(801) - lu(178) * lu(778) + lu(814) = lu(814) - lu(179) * lu(778) + lu(865) = lu(865) - lu(176) * lu(855) + lu(871) = - lu(177) * lu(855) + lu(873) = lu(873) - lu(178) * lu(855) + lu(888) = lu(888) - lu(179) * lu(855) + lu(994) = lu(994) - lu(176) * lu(979) + lu(1001) = lu(1001) - lu(177) * lu(979) + lu(1003) = lu(1003) - lu(178) * lu(979) + lu(1019) = lu(1019) - lu(179) * lu(979) + lu(1171) = lu(1171) - lu(176) * lu(1156) + lu(1178) = lu(1178) - lu(177) * lu(1156) + lu(1180) = lu(1180) - lu(178) * lu(1156) + lu(1196) = lu(1196) - lu(179) * lu(1156) + lu(1316) = lu(1316) - lu(176) * lu(1300) + lu(1323) = - lu(177) * lu(1300) + lu(1325) = - lu(178) * lu(1300) + lu(1341) = lu(1341) - lu(179) * lu(1300) + lu(1596) = lu(1596) - lu(176) * lu(1584) + lu(1603) = lu(1603) - lu(177) * lu(1584) + lu(1605) = - lu(178) * lu(1584) + lu(1621) = lu(1621) - lu(179) * lu(1584) + lu(1735) = - lu(176) * lu(1731) + lu(1741) = lu(1741) - lu(177) * lu(1731) + lu(1743) = lu(1743) - lu(178) * lu(1731) + lu(1759) = lu(1759) - lu(179) * lu(1731) + lu(1831) = lu(1831) - lu(176) * lu(1809) + lu(1838) = - lu(177) * lu(1809) + lu(1840) = lu(1840) - lu(178) * lu(1809) + lu(1856) = lu(1856) - lu(179) * lu(1809) end subroutine lu_fac04 - subroutine lu_fac05( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac05( lu ) 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,181) = 1._r8 / lu(k,181) - lu(k,182) = lu(k,182) * lu(k,181) - lu(k,183) = lu(k,183) * lu(k,181) - lu(k,184) = lu(k,184) * lu(k,181) - lu(k,185) = lu(k,185) * lu(k,181) - lu(k,191) = lu(k,191) - lu(k,182) * lu(k,188) - lu(k,194) = lu(k,194) - lu(k,183) * lu(k,188) - lu(k,195) = lu(k,195) - lu(k,184) * lu(k,188) - lu(k,196) = lu(k,196) - lu(k,185) * lu(k,188) - lu(k,750) = - lu(k,182) * lu(k,737) - lu(k,762) = - lu(k,183) * lu(k,737) - lu(k,766) = lu(k,766) - lu(k,184) * lu(k,737) - lu(k,767) = lu(k,767) - lu(k,185) * lu(k,737) - lu(k,797) = - lu(k,182) * lu(k,779) - lu(k,809) = - lu(k,183) * lu(k,779) - lu(k,813) = lu(k,813) - lu(k,184) * lu(k,779) - lu(k,814) = lu(k,814) - lu(k,185) * lu(k,779) - lu(k,1033) = lu(k,1033) - lu(k,182) * lu(k,1012) - lu(k,1045) = lu(k,1045) - lu(k,183) * lu(k,1012) - lu(k,1051) = lu(k,1051) - lu(k,184) * lu(k,1012) - lu(k,1052) = lu(k,1052) - lu(k,185) * lu(k,1012) - lu(k,1074) = - lu(k,182) * lu(k,1053) - lu(k,1086) = lu(k,1086) - lu(k,183) * lu(k,1053) - lu(k,1092) = lu(k,1092) - lu(k,184) * lu(k,1053) - lu(k,1093) = lu(k,1093) - lu(k,185) * lu(k,1053) - lu(k,1549) = lu(k,1549) - lu(k,182) * lu(k,1536) - lu(k,1561) = lu(k,1561) - lu(k,183) * lu(k,1536) - lu(k,1567) = lu(k,1567) - lu(k,184) * lu(k,1536) - lu(k,1568) = lu(k,1568) - lu(k,185) * lu(k,1536) - lu(k,1779) = - lu(k,182) * lu(k,1764) - lu(k,1791) = lu(k,1791) - lu(k,183) * lu(k,1764) - lu(k,1797) = lu(k,1797) - lu(k,184) * lu(k,1764) - lu(k,1798) = lu(k,1798) - lu(k,185) * lu(k,1764) - lu(k,1837) = lu(k,1837) - lu(k,182) * lu(k,1810) - lu(k,1849) = lu(k,1849) - lu(k,183) * lu(k,1810) - lu(k,1855) = lu(k,1855) - lu(k,184) * lu(k,1810) - lu(k,1856) = lu(k,1856) - lu(k,185) * lu(k,1810) - lu(k,189) = 1._r8 / lu(k,189) - lu(k,190) = lu(k,190) * lu(k,189) - lu(k,191) = lu(k,191) * lu(k,189) - lu(k,192) = lu(k,192) * lu(k,189) - lu(k,193) = lu(k,193) * lu(k,189) - lu(k,194) = lu(k,194) * lu(k,189) - lu(k,195) = lu(k,195) * lu(k,189) - lu(k,196) = lu(k,196) * lu(k,189) - lu(k,351) = - lu(k,190) * lu(k,348) - lu(k,352) = - lu(k,191) * lu(k,348) - lu(k,354) = lu(k,354) - lu(k,192) * lu(k,348) - lu(k,356) = lu(k,356) - lu(k,193) * lu(k,348) - lu(k,358) = lu(k,358) - lu(k,194) * lu(k,348) - lu(k,360) = - lu(k,195) * lu(k,348) - lu(k,361) = lu(k,361) - lu(k,196) * lu(k,348) - lu(k,1359) = lu(k,1359) - lu(k,190) * lu(k,1341) - lu(k,1365) = - lu(k,191) * lu(k,1341) - lu(k,1370) = lu(k,1370) - lu(k,192) * lu(k,1341) - lu(k,1373) = lu(k,1373) - lu(k,193) * lu(k,1341) - lu(k,1377) = lu(k,1377) - lu(k,194) * lu(k,1341) - lu(k,1383) = - lu(k,195) * lu(k,1341) - lu(k,1384) = lu(k,1384) - lu(k,196) * lu(k,1341) - lu(k,1545) = lu(k,1545) - lu(k,190) * lu(k,1537) - lu(k,1549) = lu(k,1549) - lu(k,191) * lu(k,1537) - lu(k,1554) = lu(k,1554) - lu(k,192) * lu(k,1537) - lu(k,1557) = lu(k,1557) - lu(k,193) * lu(k,1537) - lu(k,1561) = lu(k,1561) - lu(k,194) * lu(k,1537) - lu(k,1567) = lu(k,1567) - lu(k,195) * lu(k,1537) - lu(k,1568) = lu(k,1568) - lu(k,196) * lu(k,1537) - lu(k,1831) = lu(k,1831) - lu(k,190) * lu(k,1811) - lu(k,1837) = lu(k,1837) - lu(k,191) * lu(k,1811) - lu(k,1842) = lu(k,1842) - lu(k,192) * lu(k,1811) - lu(k,1845) = lu(k,1845) - lu(k,193) * lu(k,1811) - lu(k,1849) = lu(k,1849) - lu(k,194) * lu(k,1811) - lu(k,1855) = lu(k,1855) - lu(k,195) * lu(k,1811) - lu(k,1856) = lu(k,1856) - lu(k,196) * lu(k,1811) - 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,201) = lu(k,201) * lu(k,198) - lu(k,202) = lu(k,202) * lu(k,198) - lu(k,203) = lu(k,203) * lu(k,198) - lu(k,204) = lu(k,204) * lu(k,198) - lu(k,205) = lu(k,205) * lu(k,198) - lu(k,483) = - lu(k,199) * lu(k,482) - lu(k,484) = lu(k,484) - lu(k,200) * lu(k,482) - lu(k,488) = lu(k,488) - lu(k,201) * lu(k,482) - lu(k,490) = - lu(k,202) * lu(k,482) - lu(k,493) = - lu(k,203) * lu(k,482) - lu(k,501) = lu(k,501) - lu(k,204) * lu(k,482) - lu(k,502) = lu(k,502) - lu(k,205) * lu(k,482) - lu(k,631) = lu(k,631) - lu(k,199) * lu(k,628) - lu(k,634) = lu(k,634) - lu(k,200) * lu(k,628) - lu(k,639) = lu(k,639) - lu(k,201) * lu(k,628) - lu(k,642) = - lu(k,202) * lu(k,628) - lu(k,646) = - lu(k,203) * lu(k,628) - lu(k,656) = lu(k,656) - lu(k,204) * lu(k,628) - lu(k,657) = lu(k,657) - lu(k,205) * lu(k,628) - lu(k,786) = lu(k,786) - lu(k,199) * lu(k,780) - lu(k,789) = lu(k,789) - lu(k,200) * lu(k,780) - lu(k,794) = lu(k,794) - lu(k,201) * lu(k,780) - lu(k,799) = lu(k,799) - lu(k,202) * lu(k,780) - lu(k,803) = lu(k,803) - lu(k,203) * lu(k,780) - lu(k,813) = lu(k,813) - lu(k,204) * lu(k,780) - lu(k,814) = lu(k,814) - lu(k,205) * lu(k,780) - lu(k,1270) = - lu(k,199) * lu(k,1269) - lu(k,1272) = - lu(k,200) * lu(k,1269) - lu(k,1280) = lu(k,1280) - lu(k,201) * lu(k,1269) - lu(k,1288) = lu(k,1288) - lu(k,202) * lu(k,1269) - lu(k,1292) = lu(k,1292) - lu(k,203) * lu(k,1269) - lu(k,1304) = lu(k,1304) - lu(k,204) * lu(k,1269) - lu(k,1305) = lu(k,1305) - lu(k,205) * lu(k,1269) - lu(k,1814) = - lu(k,199) * lu(k,1812) - lu(k,1821) = lu(k,1821) - lu(k,200) * lu(k,1812) - lu(k,1831) = lu(k,1831) - lu(k,201) * lu(k,1812) - lu(k,1839) = - lu(k,202) * lu(k,1812) - lu(k,1843) = lu(k,1843) - lu(k,203) * lu(k,1812) - lu(k,1855) = lu(k,1855) - lu(k,204) * lu(k,1812) - lu(k,1856) = lu(k,1856) - lu(k,205) * lu(k,1812) - lu(k,207) = 1._r8 / lu(k,207) - lu(k,208) = lu(k,208) * lu(k,207) - lu(k,209) = lu(k,209) * lu(k,207) - lu(k,210) = lu(k,210) * lu(k,207) - lu(k,211) = lu(k,211) * lu(k,207) - lu(k,212) = lu(k,212) * lu(k,207) - lu(k,213) = lu(k,213) * lu(k,207) - lu(k,214) = lu(k,214) * lu(k,207) - lu(k,583) = lu(k,583) - lu(k,208) * lu(k,580) - lu(k,584) = lu(k,584) - lu(k,209) * lu(k,580) - lu(k,588) = lu(k,588) - lu(k,210) * lu(k,580) - lu(k,591) = - lu(k,211) * lu(k,580) - lu(k,595) = lu(k,595) - lu(k,212) * lu(k,580) - lu(k,596) = lu(k,596) - lu(k,213) * lu(k,580) - lu(k,600) = - lu(k,214) * lu(k,580) - lu(k,742) = lu(k,742) - lu(k,208) * lu(k,738) - lu(k,744) = lu(k,744) - lu(k,209) * lu(k,738) - lu(k,748) = lu(k,748) - lu(k,210) * lu(k,738) - lu(k,753) = lu(k,753) - lu(k,211) * lu(k,738) - lu(k,759) = lu(k,759) - lu(k,212) * lu(k,738) - lu(k,760) = lu(k,760) - lu(k,213) * lu(k,738) - lu(k,767) = lu(k,767) - lu(k,214) * lu(k,738) - lu(k,974) = lu(k,974) - lu(k,208) * lu(k,967) - lu(k,979) = lu(k,979) - lu(k,209) * lu(k,967) - lu(k,985) = lu(k,985) - lu(k,210) * lu(k,967) - lu(k,994) = - lu(k,211) * lu(k,967) - lu(k,1000) = lu(k,1000) - lu(k,212) * lu(k,967) - lu(k,1001) = lu(k,1001) - lu(k,213) * lu(k,967) - lu(k,1010) = lu(k,1010) - lu(k,214) * lu(k,967) - lu(k,1141) = lu(k,1141) - lu(k,208) * lu(k,1136) - lu(k,1144) = - lu(k,209) * lu(k,1136) - lu(k,1151) = lu(k,1151) - lu(k,210) * lu(k,1136) - lu(k,1160) = lu(k,1160) - lu(k,211) * lu(k,1136) - lu(k,1166) = lu(k,1166) - lu(k,212) * lu(k,1136) - lu(k,1167) = lu(k,1167) - lu(k,213) * lu(k,1136) - lu(k,1176) = lu(k,1176) - lu(k,214) * lu(k,1136) - lu(k,1409) = lu(k,1409) - lu(k,208) * lu(k,1395) - lu(k,1411) = lu(k,1411) - lu(k,209) * lu(k,1395) - lu(k,1418) = lu(k,1418) - lu(k,210) * lu(k,1395) - lu(k,1427) = lu(k,1427) - lu(k,211) * lu(k,1395) - lu(k,1433) = lu(k,1433) - lu(k,212) * lu(k,1395) - lu(k,1434) = lu(k,1434) - lu(k,213) * lu(k,1395) - lu(k,1443) = lu(k,1443) - lu(k,214) * lu(k,1395) - end do + real(r8), intent(inout) :: lu(:) + lu(181) = 1._r8 / lu(181) + lu(182) = lu(182) * lu(181) + lu(183) = lu(183) * lu(181) + lu(184) = lu(184) * lu(181) + lu(185) = lu(185) * lu(181) + lu(191) = lu(191) - lu(182) * lu(188) + lu(192) = lu(192) - lu(183) * lu(188) + lu(195) = lu(195) - lu(184) * lu(188) + lu(196) = lu(196) - lu(185) * lu(188) + lu(749) = - lu(182) * lu(737) + lu(750) = - lu(183) * lu(737) + lu(761) = lu(761) - lu(184) * lu(737) + lu(767) = lu(767) - lu(185) * lu(737) + lu(795) = - lu(182) * lu(779) + lu(796) = - lu(183) * lu(779) + lu(808) = lu(808) - lu(184) * lu(779) + lu(814) = lu(814) - lu(185) * lu(779) + lu(866) = lu(866) - lu(182) * lu(856) + lu(867) = lu(867) - lu(183) * lu(856) + lu(880) = lu(880) - lu(184) * lu(856) + lu(888) = lu(888) - lu(185) * lu(856) + lu(907) = lu(907) - lu(182) * lu(890) + lu(908) = lu(908) - lu(183) * lu(890) + lu(921) = lu(921) - lu(184) * lu(890) + lu(930) = lu(930) - lu(185) * lu(890) + lu(1132) = lu(1132) - lu(182) * lu(1115) + lu(1133) = - lu(183) * lu(1115) + lu(1146) = lu(1146) - lu(184) * lu(1115) + lu(1155) = lu(1155) - lu(185) * lu(1115) + lu(1473) = lu(1473) - lu(182) * lu(1462) + lu(1474) = - lu(183) * lu(1462) + lu(1487) = lu(1487) - lu(184) * lu(1462) + lu(1496) = lu(1496) - lu(185) * lu(1462) + lu(1833) = lu(1833) - lu(182) * lu(1810) + lu(1834) = lu(1834) - lu(183) * lu(1810) + lu(1847) = lu(1847) - lu(184) * lu(1810) + lu(1856) = lu(1856) - lu(185) * lu(1810) + lu(189) = 1._r8 / lu(189) + lu(190) = lu(190) * lu(189) + lu(191) = lu(191) * lu(189) + lu(192) = lu(192) * lu(189) + lu(193) = lu(193) * lu(189) + lu(194) = lu(194) * lu(189) + lu(195) = lu(195) * lu(189) + lu(196) = lu(196) * lu(189) + lu(351) = - lu(190) * lu(348) + lu(352) = lu(352) - lu(191) * lu(348) + lu(353) = - lu(192) * lu(348) + lu(354) = lu(354) - lu(193) * lu(348) + lu(357) = lu(357) - lu(194) * lu(348) + lu(359) = - lu(195) * lu(348) + lu(361) = lu(361) - lu(196) * lu(348) + lu(865) = lu(865) - lu(190) * lu(857) + lu(866) = lu(866) - lu(191) * lu(857) + lu(867) = lu(867) - lu(192) * lu(857) + lu(870) = lu(870) - lu(193) * lu(857) + lu(878) = lu(878) - lu(194) * lu(857) + lu(880) = lu(880) - lu(195) * lu(857) + lu(888) = lu(888) - lu(196) * lu(857) + lu(1395) = lu(1395) - lu(190) * lu(1377) + lu(1397) = lu(1397) - lu(191) * lu(1377) + lu(1398) = - lu(192) * lu(1377) + lu(1401) = lu(1401) - lu(193) * lu(1377) + lu(1409) = lu(1409) - lu(194) * lu(1377) + lu(1411) = - lu(195) * lu(1377) + lu(1420) = lu(1420) - lu(196) * lu(1377) + lu(1831) = lu(1831) - lu(190) * lu(1811) + lu(1833) = lu(1833) - lu(191) * lu(1811) + lu(1834) = lu(1834) - lu(192) * lu(1811) + lu(1837) = lu(1837) - lu(193) * lu(1811) + lu(1845) = lu(1845) - lu(194) * lu(1811) + lu(1847) = lu(1847) - lu(195) * lu(1811) + lu(1856) = lu(1856) - lu(196) * lu(1811) + lu(198) = 1._r8 / lu(198) + lu(199) = lu(199) * lu(198) + lu(200) = lu(200) * lu(198) + lu(201) = lu(201) * lu(198) + lu(202) = lu(202) * lu(198) + lu(203) = lu(203) * lu(198) + lu(204) = lu(204) * lu(198) + lu(205) = lu(205) * lu(198) + lu(483) = - lu(199) * lu(482) + lu(484) = lu(484) - lu(200) * lu(482) + lu(488) = lu(488) - lu(201) * lu(482) + lu(496) = lu(496) - lu(202) * lu(482) + lu(498) = - lu(203) * lu(482) + lu(501) = - lu(204) * lu(482) + lu(502) = lu(502) - lu(205) * lu(482) + lu(631) = lu(631) - lu(199) * lu(628) + lu(634) = lu(634) - lu(200) * lu(628) + lu(639) = lu(639) - lu(201) * lu(628) + lu(651) = lu(651) - lu(202) * lu(628) + lu(653) = - lu(203) * lu(628) + lu(656) = - lu(204) * lu(628) + lu(657) = lu(657) - lu(205) * lu(628) + lu(786) = lu(786) - lu(199) * lu(780) + lu(789) = lu(789) - lu(200) * lu(780) + lu(794) = lu(794) - lu(201) * lu(780) + lu(808) = lu(808) - lu(202) * lu(780) + lu(810) = lu(810) - lu(203) * lu(780) + lu(813) = lu(813) - lu(204) * lu(780) + lu(814) = lu(814) - lu(205) * lu(780) + lu(1586) = - lu(199) * lu(1585) + lu(1588) = - lu(200) * lu(1585) + lu(1596) = lu(1596) - lu(201) * lu(1585) + lu(1612) = lu(1612) - lu(202) * lu(1585) + lu(1615) = lu(1615) - lu(203) * lu(1585) + lu(1620) = lu(1620) - lu(204) * lu(1585) + lu(1621) = lu(1621) - lu(205) * lu(1585) + lu(1814) = - lu(199) * lu(1812) + lu(1821) = lu(1821) - lu(200) * lu(1812) + lu(1831) = lu(1831) - lu(201) * lu(1812) + lu(1847) = lu(1847) - lu(202) * lu(1812) + lu(1850) = lu(1850) - lu(203) * lu(1812) + lu(1855) = - lu(204) * lu(1812) + lu(1856) = lu(1856) - lu(205) * lu(1812) + lu(207) = 1._r8 / lu(207) + lu(208) = lu(208) * lu(207) + lu(209) = lu(209) * lu(207) + lu(210) = lu(210) * lu(207) + lu(211) = lu(211) * lu(207) + lu(212) = lu(212) * lu(207) + lu(213) = lu(213) * lu(207) + lu(214) = lu(214) * lu(207) + lu(583) = lu(583) - lu(208) * lu(580) + lu(584) = lu(584) - lu(209) * lu(580) + lu(588) = lu(588) - lu(210) * lu(580) + lu(592) = lu(592) - lu(211) * lu(580) + lu(593) = lu(593) - lu(212) * lu(580) + lu(594) = - lu(213) * lu(580) + lu(600) = - lu(214) * lu(580) + lu(742) = lu(742) - lu(208) * lu(738) + lu(744) = lu(744) - lu(209) * lu(738) + lu(748) = lu(748) - lu(210) * lu(738) + lu(755) = lu(755) - lu(211) * lu(738) + lu(756) = lu(756) - lu(212) * lu(738) + lu(757) = lu(757) - lu(213) * lu(738) + lu(767) = lu(767) - lu(214) * lu(738) + lu(1078) = lu(1078) - lu(208) * lu(1071) + lu(1083) = lu(1083) - lu(209) * lu(1071) + lu(1089) = lu(1089) - lu(210) * lu(1071) + lu(1099) = lu(1099) - lu(211) * lu(1071) + lu(1100) = lu(1100) - lu(212) * lu(1071) + lu(1101) = - lu(213) * lu(1071) + lu(1114) = lu(1114) - lu(214) * lu(1071) + lu(1221) = lu(1221) - lu(208) * lu(1207) + lu(1223) = lu(1223) - lu(209) * lu(1207) + lu(1230) = lu(1230) - lu(210) * lu(1207) + lu(1240) = lu(1240) - lu(211) * lu(1207) + lu(1241) = lu(1241) - lu(212) * lu(1207) + lu(1242) = lu(1242) - lu(213) * lu(1207) + lu(1255) = lu(1255) - lu(214) * lu(1207) + lu(1307) = lu(1307) - lu(208) * lu(1301) + lu(1309) = - lu(209) * lu(1301) + lu(1316) = lu(1316) - lu(210) * lu(1301) + lu(1326) = lu(1326) - lu(211) * lu(1301) + lu(1327) = lu(1327) - lu(212) * lu(1301) + lu(1328) = lu(1328) - lu(213) * lu(1301) + lu(1341) = lu(1341) - lu(214) * lu(1301) end subroutine lu_fac05 - subroutine lu_fac06( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac06( lu ) 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,215) = 1._r8 / lu(k,215) - lu(k,216) = lu(k,216) * lu(k,215) - lu(k,217) = lu(k,217) * lu(k,215) - lu(k,218) = lu(k,218) * lu(k,215) - lu(k,219) = lu(k,219) * lu(k,215) - lu(k,220) = lu(k,220) * lu(k,215) - lu(k,221) = lu(k,221) * lu(k,215) - lu(k,222) = lu(k,222) * lu(k,215) - lu(k,263) = lu(k,263) - lu(k,216) * lu(k,262) - lu(k,264) = lu(k,264) - lu(k,217) * lu(k,262) - lu(k,265) = lu(k,265) - lu(k,218) * lu(k,262) - lu(k,266) = - lu(k,219) * lu(k,262) - lu(k,270) = lu(k,270) - lu(k,220) * lu(k,262) - lu(k,272) = lu(k,272) - lu(k,221) * lu(k,262) - lu(k,273) = - lu(k,222) * lu(k,262) - lu(k,879) = - lu(k,216) * lu(k,878) - lu(k,880) = - lu(k,217) * lu(k,878) - lu(k,881) = lu(k,881) - lu(k,218) * lu(k,878) - lu(k,892) = - lu(k,219) * lu(k,878) - lu(k,908) = lu(k,908) - lu(k,220) * lu(k,878) - lu(k,912) = lu(k,912) - lu(k,221) * lu(k,878) - lu(k,914) = lu(k,914) - lu(k,222) * lu(k,878) - lu(k,1225) = lu(k,1225) - lu(k,216) * lu(k,1224) - lu(k,1228) = lu(k,1228) - lu(k,217) * lu(k,1224) - lu(k,1229) = lu(k,1229) - lu(k,218) * lu(k,1224) - lu(k,1236) = lu(k,1236) - lu(k,219) * lu(k,1224) - lu(k,1252) = lu(k,1252) - lu(k,220) * lu(k,1224) - lu(k,1256) = lu(k,1256) - lu(k,221) * lu(k,1224) - lu(k,1258) = lu(k,1258) - lu(k,222) * lu(k,1224) - lu(k,1397) = lu(k,1397) - lu(k,216) * lu(k,1396) - lu(k,1402) = lu(k,1402) - lu(k,217) * lu(k,1396) - lu(k,1405) = lu(k,1405) - lu(k,218) * lu(k,1396) - lu(k,1413) = - lu(k,219) * lu(k,1396) - lu(k,1429) = lu(k,1429) - lu(k,220) * lu(k,1396) - lu(k,1433) = lu(k,1433) - lu(k,221) * lu(k,1396) - lu(k,1435) = lu(k,1435) - lu(k,222) * lu(k,1396) - lu(k,1539) = lu(k,1539) - lu(k,216) * lu(k,1538) - lu(k,1540) = lu(k,1540) - lu(k,217) * lu(k,1538) - lu(k,1541) = lu(k,1541) - lu(k,218) * lu(k,1538) - lu(k,1543) = lu(k,1543) - lu(k,219) * lu(k,1538) - lu(k,1554) = lu(k,1554) - lu(k,220) * lu(k,1538) - lu(k,1558) = lu(k,1558) - lu(k,221) * lu(k,1538) - lu(k,1560) = lu(k,1560) - lu(k,222) * lu(k,1538) - lu(k,223) = 1._r8 / lu(k,223) - lu(k,224) = lu(k,224) * lu(k,223) - lu(k,225) = lu(k,225) * lu(k,223) - lu(k,226) = lu(k,226) * lu(k,223) - lu(k,227) = lu(k,227) * lu(k,223) - lu(k,228) = lu(k,228) * lu(k,223) - lu(k,229) = lu(k,229) * lu(k,223) - lu(k,264) = lu(k,264) - lu(k,224) * lu(k,263) - lu(k,265) = lu(k,265) - lu(k,225) * lu(k,263) - lu(k,269) = lu(k,269) - lu(k,226) * lu(k,263) - lu(k,270) = lu(k,270) - lu(k,227) * lu(k,263) - lu(k,271) = lu(k,271) - lu(k,228) * lu(k,263) - lu(k,272) = lu(k,272) - lu(k,229) * lu(k,263) - lu(k,310) = - lu(k,224) * lu(k,309) - lu(k,311) = lu(k,311) - lu(k,225) * lu(k,309) - lu(k,315) = lu(k,315) - lu(k,226) * lu(k,309) - lu(k,317) = lu(k,317) - lu(k,227) * lu(k,309) - lu(k,318) = lu(k,318) - lu(k,228) * lu(k,309) - lu(k,319) = lu(k,319) - lu(k,229) * lu(k,309) - lu(k,880) = lu(k,880) - lu(k,224) * lu(k,879) - lu(k,881) = lu(k,881) - lu(k,225) * lu(k,879) - lu(k,900) = lu(k,900) - lu(k,226) * lu(k,879) - lu(k,908) = lu(k,908) - lu(k,227) * lu(k,879) - lu(k,911) = - lu(k,228) * lu(k,879) - lu(k,912) = lu(k,912) - lu(k,229) * lu(k,879) - lu(k,1228) = lu(k,1228) - lu(k,224) * lu(k,1225) - lu(k,1229) = lu(k,1229) - lu(k,225) * lu(k,1225) - lu(k,1244) = lu(k,1244) - lu(k,226) * lu(k,1225) - lu(k,1252) = lu(k,1252) - lu(k,227) * lu(k,1225) - lu(k,1255) = lu(k,1255) - lu(k,228) * lu(k,1225) - lu(k,1256) = lu(k,1256) - lu(k,229) * lu(k,1225) - lu(k,1402) = lu(k,1402) - lu(k,224) * lu(k,1397) - lu(k,1405) = lu(k,1405) - lu(k,225) * lu(k,1397) - lu(k,1421) = lu(k,1421) - lu(k,226) * lu(k,1397) - lu(k,1429) = lu(k,1429) - lu(k,227) * lu(k,1397) - lu(k,1432) = lu(k,1432) - lu(k,228) * lu(k,1397) - lu(k,1433) = lu(k,1433) - lu(k,229) * lu(k,1397) - lu(k,1540) = lu(k,1540) - lu(k,224) * lu(k,1539) - lu(k,1541) = lu(k,1541) - lu(k,225) * lu(k,1539) - lu(k,1546) = lu(k,1546) - lu(k,226) * lu(k,1539) - lu(k,1554) = lu(k,1554) - lu(k,227) * lu(k,1539) - lu(k,1557) = lu(k,1557) - lu(k,228) * lu(k,1539) - lu(k,1558) = lu(k,1558) - lu(k,229) * lu(k,1539) - 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,278) = lu(k,278) - lu(k,232) * lu(k,276) - lu(k,281) = lu(k,281) - lu(k,233) * lu(k,276) - lu(k,283) = lu(k,283) - lu(k,234) * lu(k,276) - lu(k,284) = lu(k,284) - lu(k,235) * lu(k,276) - lu(k,285) = lu(k,285) - lu(k,236) * lu(k,276) - lu(k,286) = - lu(k,237) * lu(k,276) - lu(k,748) = lu(k,748) - lu(k,232) * lu(k,739) - lu(k,753) = lu(k,753) - lu(k,233) * lu(k,739) - lu(k,759) = lu(k,759) - lu(k,234) * lu(k,739) - lu(k,760) = lu(k,760) - lu(k,235) * lu(k,739) - lu(k,765) = lu(k,765) - lu(k,236) * lu(k,739) - lu(k,767) = lu(k,767) - lu(k,237) * lu(k,739) - lu(k,794) = lu(k,794) - lu(k,232) * lu(k,781) - lu(k,800) = lu(k,800) - lu(k,233) * lu(k,781) - lu(k,806) = lu(k,806) - lu(k,234) * lu(k,781) - lu(k,807) = lu(k,807) - lu(k,235) * lu(k,781) - lu(k,812) = lu(k,812) - lu(k,236) * lu(k,781) - lu(k,814) = lu(k,814) - lu(k,237) * lu(k,781) - lu(k,1151) = lu(k,1151) - lu(k,232) * lu(k,1137) - lu(k,1160) = lu(k,1160) - lu(k,233) * lu(k,1137) - lu(k,1166) = lu(k,1166) - lu(k,234) * lu(k,1137) - lu(k,1167) = lu(k,1167) - lu(k,235) * lu(k,1137) - lu(k,1174) = lu(k,1174) - lu(k,236) * lu(k,1137) - lu(k,1176) = lu(k,1176) - lu(k,237) * lu(k,1137) - lu(k,1418) = lu(k,1418) - lu(k,232) * lu(k,1398) - lu(k,1427) = lu(k,1427) - lu(k,233) * lu(k,1398) - lu(k,1433) = lu(k,1433) - lu(k,234) * lu(k,1398) - lu(k,1434) = lu(k,1434) - lu(k,235) * lu(k,1398) - lu(k,1441) = lu(k,1441) - lu(k,236) * lu(k,1398) - lu(k,1443) = lu(k,1443) - lu(k,237) * lu(k,1398) - lu(k,1460) = lu(k,1460) - lu(k,232) * lu(k,1447) - lu(k,1469) = lu(k,1469) - lu(k,233) * lu(k,1447) - lu(k,1475) = lu(k,1475) - lu(k,234) * lu(k,1447) - lu(k,1476) = lu(k,1476) - lu(k,235) * lu(k,1447) - lu(k,1483) = lu(k,1483) - lu(k,236) * lu(k,1447) - lu(k,1485) = lu(k,1485) - lu(k,237) * lu(k,1447) - lu(k,1738) = lu(k,1738) - lu(k,232) * lu(k,1724) - lu(k,1747) = lu(k,1747) - lu(k,233) * lu(k,1724) - lu(k,1753) = lu(k,1753) - lu(k,234) * lu(k,1724) - lu(k,1754) = lu(k,1754) - lu(k,235) * lu(k,1724) - lu(k,1761) = lu(k,1761) - lu(k,236) * lu(k,1724) - lu(k,1763) = - 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,243) = lu(k,243) * lu(k,238) - lu(k,244) = lu(k,244) * lu(k,238) - lu(k,245) = lu(k,245) * lu(k,238) - lu(k,454) = lu(k,454) - lu(k,239) * lu(k,453) - lu(k,455) = lu(k,455) - lu(k,240) * lu(k,453) - lu(k,457) = - lu(k,241) * lu(k,453) - lu(k,459) = lu(k,459) - lu(k,242) * lu(k,453) - lu(k,462) = - lu(k,243) * lu(k,453) - lu(k,463) = lu(k,463) - lu(k,244) * lu(k,453) - lu(k,464) = - lu(k,245) * lu(k,453) - lu(k,603) = lu(k,603) - lu(k,239) * lu(k,602) - lu(k,605) = - lu(k,240) * lu(k,602) - lu(k,607) = - lu(k,241) * lu(k,602) - lu(k,609) = lu(k,609) - lu(k,242) * lu(k,602) - lu(k,616) = lu(k,616) - lu(k,243) * lu(k,602) - lu(k,623) = lu(k,623) - lu(k,244) * lu(k,602) - lu(k,624) = lu(k,624) - lu(k,245) * lu(k,602) - lu(k,633) = lu(k,633) - lu(k,239) * lu(k,629) - lu(k,635) = lu(k,635) - lu(k,240) * lu(k,629) - lu(k,637) = lu(k,637) - lu(k,241) * lu(k,629) - lu(k,639) = lu(k,639) - lu(k,242) * lu(k,629) - lu(k,649) = lu(k,649) - lu(k,243) * lu(k,629) - lu(k,656) = lu(k,656) - lu(k,244) * lu(k,629) - lu(k,657) = lu(k,657) - lu(k,245) * lu(k,629) - lu(k,742) = lu(k,742) - lu(k,239) * lu(k,740) - lu(k,744) = lu(k,744) - lu(k,240) * lu(k,740) - lu(k,746) = - lu(k,241) * lu(k,740) - lu(k,748) = lu(k,748) - lu(k,242) * lu(k,740) - lu(k,759) = lu(k,759) - lu(k,243) * lu(k,740) - lu(k,766) = lu(k,766) - lu(k,244) * lu(k,740) - lu(k,767) = lu(k,767) - lu(k,245) * lu(k,740) - lu(k,788) = lu(k,788) - lu(k,239) * lu(k,782) - lu(k,790) = lu(k,790) - lu(k,240) * lu(k,782) - lu(k,792) = lu(k,792) - lu(k,241) * lu(k,782) - lu(k,794) = lu(k,794) - lu(k,242) * lu(k,782) - lu(k,806) = lu(k,806) - lu(k,243) * lu(k,782) - lu(k,813) = lu(k,813) - lu(k,244) * lu(k,782) - lu(k,814) = lu(k,814) - lu(k,245) * lu(k,782) - lu(k,1409) = lu(k,1409) - lu(k,239) * lu(k,1399) - lu(k,1411) = lu(k,1411) - lu(k,240) * lu(k,1399) - lu(k,1413) = lu(k,1413) - lu(k,241) * lu(k,1399) - lu(k,1418) = lu(k,1418) - lu(k,242) * lu(k,1399) - lu(k,1433) = lu(k,1433) - lu(k,243) * lu(k,1399) - lu(k,1442) = lu(k,1442) - lu(k,244) * lu(k,1399) - lu(k,1443) = lu(k,1443) - lu(k,245) * lu(k,1399) - 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,250) = lu(k,250) * lu(k,246) - lu(k,251) = lu(k,251) * lu(k,246) - lu(k,252) = lu(k,252) * lu(k,246) - lu(k,253) = lu(k,253) * lu(k,246) - lu(k,350) = lu(k,350) - lu(k,247) * lu(k,349) - lu(k,353) = lu(k,353) - lu(k,248) * lu(k,349) - lu(k,354) = lu(k,354) - lu(k,249) * lu(k,349) - lu(k,355) = - lu(k,250) * lu(k,349) - lu(k,356) = lu(k,356) - lu(k,251) * lu(k,349) - lu(k,358) = lu(k,358) - lu(k,252) * lu(k,349) - lu(k,359) = - lu(k,253) * lu(k,349) - lu(k,632) = - lu(k,247) * lu(k,630) - lu(k,644) = lu(k,644) - lu(k,248) * lu(k,630) - lu(k,645) = lu(k,645) - lu(k,249) * lu(k,630) - lu(k,647) = - lu(k,250) * lu(k,630) - lu(k,648) = - lu(k,251) * lu(k,630) - lu(k,652) = - lu(k,252) * lu(k,630) - lu(k,654) = - lu(k,253) * lu(k,630) - lu(k,1181) = - lu(k,247) * lu(k,1179) - lu(k,1202) = lu(k,1202) - lu(k,248) * lu(k,1179) - lu(k,1203) = lu(k,1203) - lu(k,249) * lu(k,1179) - lu(k,1205) = lu(k,1205) - lu(k,250) * lu(k,1179) - lu(k,1206) = - lu(k,251) * lu(k,1179) - lu(k,1210) = lu(k,1210) - lu(k,252) * lu(k,1179) - lu(k,1213) = lu(k,1213) - lu(k,253) * lu(k,1179) - lu(k,1230) = lu(k,1230) - lu(k,247) * lu(k,1226) - lu(k,1251) = lu(k,1251) - lu(k,248) * lu(k,1226) - lu(k,1252) = lu(k,1252) - lu(k,249) * lu(k,1226) - lu(k,1254) = lu(k,1254) - lu(k,250) * lu(k,1226) - lu(k,1255) = lu(k,1255) - lu(k,251) * lu(k,1226) - lu(k,1259) = lu(k,1259) - lu(k,252) * lu(k,1226) - lu(k,1262) = lu(k,1262) - lu(k,253) * lu(k,1226) - lu(k,1309) = - lu(k,247) * lu(k,1307) - lu(k,1325) = lu(k,1325) - lu(k,248) * lu(k,1307) - lu(k,1326) = lu(k,1326) - lu(k,249) * lu(k,1307) - lu(k,1328) = lu(k,1328) - lu(k,250) * lu(k,1307) - lu(k,1329) = lu(k,1329) - lu(k,251) * lu(k,1307) - lu(k,1333) = lu(k,1333) - lu(k,252) * lu(k,1307) - lu(k,1336) = lu(k,1336) - lu(k,253) * lu(k,1307) - lu(k,1406) = lu(k,1406) - lu(k,247) * lu(k,1400) - lu(k,1428) = lu(k,1428) - lu(k,248) * lu(k,1400) - lu(k,1429) = lu(k,1429) - lu(k,249) * lu(k,1400) - lu(k,1431) = lu(k,1431) - lu(k,250) * lu(k,1400) - lu(k,1432) = lu(k,1432) - lu(k,251) * lu(k,1400) - lu(k,1436) = lu(k,1436) - lu(k,252) * lu(k,1400) - lu(k,1439) = lu(k,1439) - lu(k,253) * lu(k,1400) - lu(k,1644) = - lu(k,247) * lu(k,1643) - lu(k,1662) = lu(k,1662) - lu(k,248) * lu(k,1643) - lu(k,1663) = lu(k,1663) - lu(k,249) * lu(k,1643) - lu(k,1665) = - lu(k,250) * lu(k,1643) - lu(k,1666) = - lu(k,251) * lu(k,1643) - lu(k,1670) = lu(k,1670) - lu(k,252) * lu(k,1643) - lu(k,1673) = lu(k,1673) - lu(k,253) * lu(k,1643) - end do + real(r8), intent(inout) :: lu(:) + lu(215) = 1._r8 / lu(215) + lu(216) = lu(216) * lu(215) + lu(217) = lu(217) * lu(215) + lu(218) = lu(218) * lu(215) + lu(219) = lu(219) * lu(215) + lu(220) = lu(220) * lu(215) + lu(221) = lu(221) * lu(215) + lu(222) = lu(222) * lu(215) + lu(263) = lu(263) - lu(216) * lu(262) + lu(264) = lu(264) - lu(217) * lu(262) + lu(265) = lu(265) - lu(218) * lu(262) + lu(266) = - lu(219) * lu(262) + lu(270) = lu(270) - lu(220) * lu(262) + lu(271) = - lu(221) * lu(262) + lu(272) = lu(272) - lu(222) * lu(262) + lu(859) = lu(859) - lu(216) * lu(858) + lu(860) = lu(860) - lu(217) * lu(858) + lu(861) = lu(861) - lu(218) * lu(858) + lu(863) = lu(863) - lu(219) * lu(858) + lu(870) = lu(870) - lu(220) * lu(858) + lu(873) = lu(873) - lu(221) * lu(858) + lu(874) = lu(874) - lu(222) * lu(858) + lu(934) = - lu(216) * lu(933) + lu(935) = - lu(217) * lu(933) + lu(936) = lu(936) - lu(218) * lu(933) + lu(947) = - lu(219) * lu(933) + lu(958) = lu(958) - lu(220) * lu(933) + lu(961) = lu(961) - lu(221) * lu(933) + lu(962) = lu(962) - lu(222) * lu(933) + lu(1027) = lu(1027) - lu(216) * lu(1026) + lu(1030) = lu(1030) - lu(217) * lu(1026) + lu(1031) = lu(1031) - lu(218) * lu(1026) + lu(1038) = lu(1038) - lu(219) * lu(1026) + lu(1049) = lu(1049) - lu(220) * lu(1026) + lu(1052) = lu(1052) - lu(221) * lu(1026) + lu(1053) = lu(1053) - lu(222) * lu(1026) + lu(1209) = lu(1209) - lu(216) * lu(1208) + lu(1214) = lu(1214) - lu(217) * lu(1208) + lu(1217) = lu(1217) - lu(218) * lu(1208) + lu(1225) = - lu(219) * lu(1208) + lu(1236) = lu(1236) - lu(220) * lu(1208) + lu(1239) = lu(1239) - lu(221) * lu(1208) + lu(1240) = lu(1240) - lu(222) * lu(1208) + lu(223) = 1._r8 / lu(223) + lu(224) = lu(224) * lu(223) + lu(225) = lu(225) * lu(223) + lu(226) = lu(226) * lu(223) + lu(227) = lu(227) * lu(223) + lu(228) = lu(228) * lu(223) + lu(229) = lu(229) * lu(223) + lu(264) = lu(264) - lu(224) * lu(263) + lu(265) = lu(265) - lu(225) * lu(263) + lu(269) = lu(269) - lu(226) * lu(263) + lu(270) = lu(270) - lu(227) * lu(263) + lu(272) = lu(272) - lu(228) * lu(263) + lu(273) = lu(273) - lu(229) * lu(263) + lu(310) = - lu(224) * lu(309) + lu(311) = lu(311) - lu(225) * lu(309) + lu(316) = lu(316) - lu(226) * lu(309) + lu(317) = lu(317) - lu(227) * lu(309) + lu(320) = lu(320) - lu(228) * lu(309) + lu(321) = lu(321) - lu(229) * lu(309) + lu(860) = lu(860) - lu(224) * lu(859) + lu(861) = lu(861) - lu(225) * lu(859) + lu(868) = lu(868) - lu(226) * lu(859) + lu(870) = lu(870) - lu(227) * lu(859) + lu(874) = lu(874) - lu(228) * lu(859) + lu(878) = lu(878) - lu(229) * lu(859) + lu(935) = lu(935) - lu(224) * lu(934) + lu(936) = lu(936) - lu(225) * lu(934) + lu(956) = lu(956) - lu(226) * lu(934) + lu(958) = lu(958) - lu(227) * lu(934) + lu(962) = lu(962) - lu(228) * lu(934) + lu(966) = - lu(229) * lu(934) + lu(1030) = lu(1030) - lu(224) * lu(1027) + lu(1031) = lu(1031) - lu(225) * lu(1027) + lu(1047) = lu(1047) - lu(226) * lu(1027) + lu(1049) = lu(1049) - lu(227) * lu(1027) + lu(1053) = lu(1053) - lu(228) * lu(1027) + lu(1057) = lu(1057) - lu(229) * lu(1027) + lu(1214) = lu(1214) - lu(224) * lu(1209) + lu(1217) = lu(1217) - lu(225) * lu(1209) + lu(1234) = lu(1234) - lu(226) * lu(1209) + lu(1236) = lu(1236) - lu(227) * lu(1209) + lu(1240) = lu(1240) - lu(228) * lu(1209) + lu(1244) = lu(1244) - lu(229) * lu(1209) + lu(230) = 1._r8 / lu(230) + lu(231) = lu(231) * lu(230) + lu(232) = lu(232) * lu(230) + lu(233) = lu(233) * lu(230) + lu(234) = lu(234) * lu(230) + lu(235) = lu(235) * lu(230) + lu(236) = lu(236) * lu(230) + lu(237) = lu(237) * lu(230) + lu(470) = lu(470) - lu(231) * lu(469) + lu(471) = lu(471) - lu(232) * lu(469) + lu(473) = - lu(233) * lu(469) + lu(475) = lu(475) - lu(234) * lu(469) + lu(477) = - lu(235) * lu(469) + lu(479) = lu(479) - lu(236) * lu(469) + lu(480) = - lu(237) * lu(469) + lu(603) = lu(603) - lu(231) * lu(602) + lu(605) = - lu(232) * lu(602) + lu(607) = - lu(233) * lu(602) + lu(609) = lu(609) - lu(234) * lu(602) + lu(614) = lu(614) - lu(235) * lu(602) + lu(618) = lu(618) - lu(236) * lu(602) + lu(624) = lu(624) - lu(237) * lu(602) + lu(633) = lu(633) - lu(231) * lu(629) + lu(635) = lu(635) - lu(232) * lu(629) + lu(637) = lu(637) - lu(233) * lu(629) + lu(639) = lu(639) - lu(234) * lu(629) + lu(645) = lu(645) - lu(235) * lu(629) + lu(651) = lu(651) - lu(236) * lu(629) + lu(657) = lu(657) - lu(237) * lu(629) + lu(742) = lu(742) - lu(231) * lu(739) + lu(744) = lu(744) - lu(232) * lu(739) + lu(746) = - lu(233) * lu(739) + lu(748) = lu(748) - lu(234) * lu(739) + lu(755) = lu(755) - lu(235) * lu(739) + lu(761) = lu(761) - lu(236) * lu(739) + lu(767) = lu(767) - lu(237) * lu(739) + lu(788) = lu(788) - lu(231) * lu(781) + lu(790) = lu(790) - lu(232) * lu(781) + lu(792) = lu(792) - lu(233) * lu(781) + lu(794) = lu(794) - lu(234) * lu(781) + lu(802) = lu(802) - lu(235) * lu(781) + lu(808) = lu(808) - lu(236) * lu(781) + lu(814) = lu(814) - lu(237) * lu(781) + lu(1221) = lu(1221) - lu(231) * lu(1210) + lu(1223) = lu(1223) - lu(232) * lu(1210) + lu(1225) = lu(1225) - lu(233) * lu(1210) + lu(1230) = lu(1230) - lu(234) * lu(1210) + lu(1240) = lu(1240) - lu(235) * lu(1210) + lu(1246) = lu(1246) - lu(236) * lu(1210) + lu(1255) = lu(1255) - lu(237) * lu(1210) + lu(239) = 1._r8 / lu(239) + lu(240) = lu(240) * lu(239) + lu(241) = lu(241) * lu(239) + lu(242) = lu(242) * lu(239) + lu(243) = lu(243) * lu(239) + lu(244) = lu(244) * lu(239) + lu(245) = lu(245) * lu(239) + lu(278) = lu(278) - lu(240) * lu(276) + lu(280) = lu(280) - lu(241) * lu(276) + lu(281) = lu(281) - lu(242) * lu(276) + lu(282) = lu(282) - lu(243) * lu(276) + lu(283) = lu(283) - lu(244) * lu(276) + lu(286) = - lu(245) * lu(276) + lu(748) = lu(748) - lu(240) * lu(740) + lu(755) = lu(755) - lu(241) * lu(740) + lu(756) = lu(756) - lu(242) * lu(740) + lu(757) = lu(757) - lu(243) * lu(740) + lu(762) = lu(762) - lu(244) * lu(740) + lu(767) = lu(767) - lu(245) * lu(740) + lu(794) = lu(794) - lu(240) * lu(782) + lu(802) = lu(802) - lu(241) * lu(782) + lu(803) = lu(803) - lu(242) * lu(782) + lu(804) = lu(804) - lu(243) * lu(782) + lu(809) = lu(809) - lu(244) * lu(782) + lu(814) = lu(814) - lu(245) * lu(782) + lu(1230) = lu(1230) - lu(240) * lu(1211) + lu(1240) = lu(1240) - lu(241) * lu(1211) + lu(1241) = lu(1241) - lu(242) * lu(1211) + lu(1242) = lu(1242) - lu(243) * lu(1211) + lu(1247) = lu(1247) - lu(244) * lu(1211) + lu(1255) = lu(1255) - lu(245) * lu(1211) + lu(1272) = lu(1272) - lu(240) * lu(1259) + lu(1282) = lu(1282) - lu(241) * lu(1259) + lu(1283) = lu(1283) - lu(242) * lu(1259) + lu(1284) = lu(1284) - lu(243) * lu(1259) + lu(1289) = lu(1289) - lu(244) * lu(1259) + lu(1297) = lu(1297) - lu(245) * lu(1259) + lu(1316) = lu(1316) - lu(240) * lu(1302) + lu(1326) = lu(1326) - lu(241) * lu(1302) + lu(1327) = lu(1327) - lu(242) * lu(1302) + lu(1328) = lu(1328) - lu(243) * lu(1302) + lu(1333) = lu(1333) - lu(244) * lu(1302) + lu(1341) = lu(1341) - lu(245) * lu(1302) + lu(1515) = lu(1515) - lu(240) * lu(1501) + lu(1525) = lu(1525) - lu(241) * lu(1501) + lu(1526) = lu(1526) - lu(242) * lu(1501) + lu(1527) = lu(1527) - lu(243) * lu(1501) + lu(1532) = lu(1532) - lu(244) * lu(1501) + lu(1540) = - lu(245) * lu(1501) + lu(246) = 1._r8 / lu(246) + lu(247) = lu(247) * lu(246) + lu(248) = lu(248) * lu(246) + lu(249) = lu(249) * lu(246) + lu(250) = lu(250) * lu(246) + lu(251) = lu(251) * lu(246) + lu(252) = lu(252) * lu(246) + lu(253) = lu(253) * lu(246) + lu(350) = lu(350) - lu(247) * lu(349) + lu(352) = lu(352) - lu(248) * lu(349) + lu(354) = lu(354) - lu(249) * lu(349) + lu(356) = - lu(250) * lu(349) + lu(357) = lu(357) - lu(251) * lu(349) + lu(358) = lu(358) - lu(252) * lu(349) + lu(360) = - lu(253) * lu(349) + lu(632) = - lu(247) * lu(630) + lu(640) = - lu(248) * lu(630) + lu(642) = lu(642) - lu(249) * lu(630) + lu(648) = - lu(250) * lu(630) + lu(649) = - lu(251) * lu(630) + lu(650) = lu(650) - lu(252) * lu(630) + lu(655) = - lu(253) * lu(630) + lu(1032) = lu(1032) - lu(247) * lu(1028) + lu(1045) = lu(1045) - lu(248) * lu(1028) + lu(1049) = lu(1049) - lu(249) * lu(1028) + lu(1056) = lu(1056) - lu(250) * lu(1028) + lu(1057) = lu(1057) - lu(251) * lu(1028) + lu(1058) = lu(1058) - lu(252) * lu(1028) + lu(1064) = lu(1064) - lu(253) * lu(1028) + lu(1218) = lu(1218) - lu(247) * lu(1212) + lu(1232) = lu(1232) - lu(248) * lu(1212) + lu(1236) = lu(1236) - lu(249) * lu(1212) + lu(1243) = lu(1243) - lu(250) * lu(1212) + lu(1244) = lu(1244) - lu(251) * lu(1212) + lu(1245) = lu(1245) - lu(252) * lu(1212) + lu(1251) = lu(1251) - lu(253) * lu(1212) + lu(1345) = - lu(247) * lu(1343) + lu(1353) = lu(1353) - lu(248) * lu(1343) + lu(1357) = lu(1357) - lu(249) * lu(1343) + lu(1364) = lu(1364) - lu(250) * lu(1343) + lu(1365) = lu(1365) - lu(251) * lu(1343) + lu(1366) = lu(1366) - lu(252) * lu(1343) + lu(1372) = lu(1372) - lu(253) * lu(1343) + lu(1425) = - lu(247) * lu(1423) + lu(1438) = lu(1438) - lu(248) * lu(1423) + lu(1442) = lu(1442) - lu(249) * lu(1423) + lu(1449) = lu(1449) - lu(250) * lu(1423) + lu(1450) = - lu(251) * lu(1423) + lu(1451) = lu(1451) - lu(252) * lu(1423) + lu(1457) = lu(1457) - lu(253) * lu(1423) + lu(1655) = - lu(247) * lu(1654) + lu(1665) = lu(1665) - lu(248) * lu(1654) + lu(1669) = lu(1669) - lu(249) * lu(1654) + lu(1676) = - lu(250) * lu(1654) + lu(1677) = - lu(251) * lu(1654) + lu(1678) = lu(1678) - lu(252) * lu(1654) + lu(1684) = lu(1684) - lu(253) * lu(1654) end subroutine lu_fac06 - subroutine lu_fac07( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac07( lu ) 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,255) = 1._r8 / lu(k,255) - lu(k,256) = lu(k,256) * lu(k,255) - lu(k,257) = lu(k,257) * lu(k,255) - lu(k,258) = lu(k,258) * lu(k,255) - lu(k,259) = lu(k,259) * lu(k,255) - lu(k,260) = lu(k,260) * lu(k,255) - lu(k,379) = lu(k,379) - lu(k,256) * lu(k,378) - lu(k,382) = - lu(k,257) * lu(k,378) - lu(k,383) = lu(k,383) - lu(k,258) * lu(k,378) - lu(k,387) = lu(k,387) - lu(k,259) * lu(k,378) - lu(k,392) = - lu(k,260) * lu(k,378) - lu(k,582) = lu(k,582) - lu(k,256) * lu(k,581) - lu(k,587) = lu(k,587) - lu(k,257) * lu(k,581) - lu(k,588) = lu(k,588) - lu(k,258) * lu(k,581) - lu(k,595) = lu(k,595) - lu(k,259) * lu(k,581) - lu(k,600) = lu(k,600) - lu(k,260) * lu(k,581) - lu(k,787) = lu(k,787) - lu(k,256) * lu(k,783) - lu(k,793) = lu(k,793) - lu(k,257) * lu(k,783) - lu(k,794) = lu(k,794) - lu(k,258) * lu(k,783) - lu(k,806) = lu(k,806) - lu(k,259) * lu(k,783) - lu(k,814) = lu(k,814) - lu(k,260) * lu(k,783) - lu(k,972) = lu(k,972) - lu(k,256) * lu(k,968) - lu(k,984) = lu(k,984) - lu(k,257) * lu(k,968) - lu(k,985) = lu(k,985) - lu(k,258) * lu(k,968) - lu(k,1000) = lu(k,1000) - lu(k,259) * lu(k,968) - lu(k,1010) = lu(k,1010) - lu(k,260) * lu(k,968) - lu(k,1098) = - lu(k,256) * lu(k,1096) - lu(k,1107) = lu(k,1107) - lu(k,257) * lu(k,1096) - lu(k,1108) = lu(k,1108) - lu(k,258) * lu(k,1096) - lu(k,1122) = lu(k,1122) - lu(k,259) * lu(k,1096) - lu(k,1132) = - lu(k,260) * lu(k,1096) - lu(k,1182) = lu(k,1182) - lu(k,256) * lu(k,1180) - lu(k,1191) = lu(k,1191) - lu(k,257) * lu(k,1180) - lu(k,1192) = lu(k,1192) - lu(k,258) * lu(k,1180) - lu(k,1207) = lu(k,1207) - lu(k,259) * lu(k,1180) - lu(k,1217) = - lu(k,260) * lu(k,1180) - lu(k,1231) = lu(k,1231) - lu(k,256) * lu(k,1227) - lu(k,1240) = lu(k,1240) - lu(k,257) * lu(k,1227) - lu(k,1241) = lu(k,1241) - lu(k,258) * lu(k,1227) - lu(k,1256) = lu(k,1256) - lu(k,259) * lu(k,1227) - lu(k,1266) = - lu(k,260) * lu(k,1227) - lu(k,1407) = lu(k,1407) - lu(k,256) * lu(k,1401) - lu(k,1417) = lu(k,1417) - lu(k,257) * lu(k,1401) - lu(k,1418) = lu(k,1418) - lu(k,258) * lu(k,1401) - lu(k,1433) = lu(k,1433) - lu(k,259) * lu(k,1401) - lu(k,1443) = lu(k,1443) - lu(k,260) * lu(k,1401) - lu(k,1729) = lu(k,1729) - lu(k,256) * lu(k,1725) - lu(k,1737) = lu(k,1737) - lu(k,257) * lu(k,1725) - lu(k,1738) = lu(k,1738) - lu(k,258) * lu(k,1725) - lu(k,1753) = lu(k,1753) - lu(k,259) * lu(k,1725) - lu(k,1763) = lu(k,1763) - lu(k,260) * lu(k,1725) - lu(k,1817) = - lu(k,256) * lu(k,1813) - lu(k,1830) = - lu(k,257) * lu(k,1813) - lu(k,1831) = lu(k,1831) - lu(k,258) * lu(k,1813) - lu(k,1846) = lu(k,1846) - lu(k,259) * lu(k,1813) - lu(k,1856) = lu(k,1856) - lu(k,260) * lu(k,1813) - 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,269) = lu(k,269) * lu(k,264) - lu(k,270) = lu(k,270) * lu(k,264) - lu(k,271) = lu(k,271) * lu(k,264) - lu(k,272) = lu(k,272) * lu(k,264) - lu(k,273) = lu(k,273) * lu(k,264) - lu(k,274) = lu(k,274) * lu(k,264) - lu(k,311) = lu(k,311) - lu(k,265) * lu(k,310) - lu(k,312) = - lu(k,266) * lu(k,310) - lu(k,313) = - lu(k,267) * lu(k,310) - lu(k,314) = lu(k,314) - lu(k,268) * lu(k,310) - lu(k,315) = lu(k,315) - lu(k,269) * lu(k,310) - lu(k,317) = lu(k,317) - lu(k,270) * lu(k,310) - lu(k,318) = lu(k,318) - lu(k,271) * lu(k,310) - lu(k,319) = lu(k,319) - lu(k,272) * lu(k,310) - lu(k,320) = lu(k,320) - lu(k,273) * lu(k,310) - lu(k,322) = lu(k,322) - lu(k,274) * lu(k,310) - lu(k,881) = lu(k,881) - lu(k,265) * lu(k,880) - lu(k,892) = lu(k,892) - lu(k,266) * lu(k,880) - lu(k,896) = - lu(k,267) * lu(k,880) - lu(k,897) = lu(k,897) - lu(k,268) * lu(k,880) - lu(k,900) = lu(k,900) - lu(k,269) * lu(k,880) - lu(k,908) = lu(k,908) - lu(k,270) * lu(k,880) - lu(k,911) = lu(k,911) - lu(k,271) * lu(k,880) - lu(k,912) = lu(k,912) - lu(k,272) * lu(k,880) - lu(k,914) = lu(k,914) - lu(k,273) * lu(k,880) - lu(k,921) = - lu(k,274) * lu(k,880) - lu(k,1229) = lu(k,1229) - lu(k,265) * lu(k,1228) - lu(k,1236) = lu(k,1236) - lu(k,266) * lu(k,1228) - lu(k,1240) = lu(k,1240) - lu(k,267) * lu(k,1228) - lu(k,1241) = lu(k,1241) - lu(k,268) * lu(k,1228) - lu(k,1244) = lu(k,1244) - lu(k,269) * lu(k,1228) - lu(k,1252) = lu(k,1252) - lu(k,270) * lu(k,1228) - lu(k,1255) = lu(k,1255) - lu(k,271) * lu(k,1228) - lu(k,1256) = lu(k,1256) - lu(k,272) * lu(k,1228) - lu(k,1258) = lu(k,1258) - lu(k,273) * lu(k,1228) - lu(k,1265) = lu(k,1265) - lu(k,274) * lu(k,1228) - lu(k,1405) = lu(k,1405) - lu(k,265) * lu(k,1402) - lu(k,1413) = lu(k,1413) - lu(k,266) * lu(k,1402) - lu(k,1417) = lu(k,1417) - lu(k,267) * lu(k,1402) - lu(k,1418) = lu(k,1418) - lu(k,268) * lu(k,1402) - lu(k,1421) = lu(k,1421) - lu(k,269) * lu(k,1402) - lu(k,1429) = lu(k,1429) - lu(k,270) * lu(k,1402) - lu(k,1432) = lu(k,1432) - lu(k,271) * lu(k,1402) - lu(k,1433) = lu(k,1433) - lu(k,272) * lu(k,1402) - lu(k,1435) = lu(k,1435) - lu(k,273) * lu(k,1402) - lu(k,1442) = lu(k,1442) - lu(k,274) * lu(k,1402) - lu(k,1541) = lu(k,1541) - lu(k,265) * lu(k,1540) - lu(k,1543) = lu(k,1543) - lu(k,266) * lu(k,1540) - lu(k,1544) = - lu(k,267) * lu(k,1540) - lu(k,1545) = lu(k,1545) - lu(k,268) * lu(k,1540) - lu(k,1546) = lu(k,1546) - lu(k,269) * lu(k,1540) - lu(k,1554) = lu(k,1554) - lu(k,270) * lu(k,1540) - lu(k,1557) = lu(k,1557) - lu(k,271) * lu(k,1540) - lu(k,1558) = lu(k,1558) - lu(k,272) * lu(k,1540) - lu(k,1560) = lu(k,1560) - lu(k,273) * lu(k,1540) - lu(k,1567) = lu(k,1567) - lu(k,274) * lu(k,1540) - lu(k,277) = 1._r8 / lu(k,277) - lu(k,278) = lu(k,278) * lu(k,277) - lu(k,279) = lu(k,279) * lu(k,277) - lu(k,280) = lu(k,280) * lu(k,277) - lu(k,281) = lu(k,281) * lu(k,277) - lu(k,282) = lu(k,282) * lu(k,277) - lu(k,283) = lu(k,283) * lu(k,277) - lu(k,284) = lu(k,284) * lu(k,277) - lu(k,285) = lu(k,285) * lu(k,277) - lu(k,286) = lu(k,286) * lu(k,277) - lu(k,794) = lu(k,794) - lu(k,278) * lu(k,784) - lu(k,796) = lu(k,796) - lu(k,279) * lu(k,784) - lu(k,799) = lu(k,799) - lu(k,280) * lu(k,784) - lu(k,800) = lu(k,800) - lu(k,281) * lu(k,784) - lu(k,803) = lu(k,803) - lu(k,282) * lu(k,784) - lu(k,806) = lu(k,806) - lu(k,283) * lu(k,784) - lu(k,807) = lu(k,807) - lu(k,284) * lu(k,784) - lu(k,812) = lu(k,812) - lu(k,285) * lu(k,784) - lu(k,814) = lu(k,814) - lu(k,286) * lu(k,784) - lu(k,985) = lu(k,985) - lu(k,278) * lu(k,969) - lu(k,990) = lu(k,990) - lu(k,279) * lu(k,969) - lu(k,993) = lu(k,993) - lu(k,280) * lu(k,969) - lu(k,994) = lu(k,994) - lu(k,281) * lu(k,969) - lu(k,997) = lu(k,997) - lu(k,282) * lu(k,969) - lu(k,1000) = lu(k,1000) - lu(k,283) * lu(k,969) - lu(k,1001) = lu(k,1001) - lu(k,284) * lu(k,969) - lu(k,1008) = lu(k,1008) - lu(k,285) * lu(k,969) - lu(k,1010) = lu(k,1010) - lu(k,286) * lu(k,969) - lu(k,1151) = lu(k,1151) - lu(k,278) * lu(k,1138) - lu(k,1156) = lu(k,1156) - lu(k,279) * lu(k,1138) - lu(k,1159) = - lu(k,280) * lu(k,1138) - lu(k,1160) = lu(k,1160) - lu(k,281) * lu(k,1138) - lu(k,1163) = lu(k,1163) - lu(k,282) * lu(k,1138) - lu(k,1166) = lu(k,1166) - lu(k,283) * lu(k,1138) - lu(k,1167) = lu(k,1167) - lu(k,284) * lu(k,1138) - lu(k,1174) = lu(k,1174) - lu(k,285) * lu(k,1138) - lu(k,1176) = lu(k,1176) - lu(k,286) * lu(k,1138) - lu(k,1418) = lu(k,1418) - lu(k,278) * lu(k,1403) - lu(k,1423) = lu(k,1423) - lu(k,279) * lu(k,1403) - lu(k,1426) = lu(k,1426) - lu(k,280) * lu(k,1403) - lu(k,1427) = lu(k,1427) - lu(k,281) * lu(k,1403) - lu(k,1430) = lu(k,1430) - lu(k,282) * lu(k,1403) - lu(k,1433) = lu(k,1433) - lu(k,283) * lu(k,1403) - lu(k,1434) = lu(k,1434) - lu(k,284) * lu(k,1403) - lu(k,1441) = lu(k,1441) - lu(k,285) * lu(k,1403) - lu(k,1443) = lu(k,1443) - lu(k,286) * lu(k,1403) - lu(k,1460) = lu(k,1460) - lu(k,278) * lu(k,1448) - lu(k,1465) = lu(k,1465) - lu(k,279) * lu(k,1448) - lu(k,1468) = lu(k,1468) - lu(k,280) * lu(k,1448) - lu(k,1469) = lu(k,1469) - lu(k,281) * lu(k,1448) - lu(k,1472) = - lu(k,282) * lu(k,1448) - lu(k,1475) = lu(k,1475) - lu(k,283) * lu(k,1448) - lu(k,1476) = lu(k,1476) - lu(k,284) * lu(k,1448) - lu(k,1483) = lu(k,1483) - lu(k,285) * lu(k,1448) - lu(k,1485) = lu(k,1485) - lu(k,286) * lu(k,1448) - lu(k,1738) = lu(k,1738) - lu(k,278) * lu(k,1726) - lu(k,1743) = lu(k,1743) - lu(k,279) * lu(k,1726) - lu(k,1746) = lu(k,1746) - lu(k,280) * lu(k,1726) - lu(k,1747) = lu(k,1747) - lu(k,281) * lu(k,1726) - lu(k,1750) = - lu(k,282) * lu(k,1726) - lu(k,1753) = lu(k,1753) - lu(k,283) * lu(k,1726) - lu(k,1754) = lu(k,1754) - lu(k,284) * lu(k,1726) - lu(k,1761) = lu(k,1761) - lu(k,285) * lu(k,1726) - lu(k,1763) = lu(k,1763) - lu(k,286) * lu(k,1726) - 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,292) = lu(k,292) * lu(k,287) - lu(k,293) = lu(k,293) * lu(k,287) - lu(k,294) = lu(k,294) * lu(k,287) - lu(k,661) = lu(k,661) - lu(k,288) * lu(k,658) - lu(k,666) = - lu(k,289) * lu(k,658) - lu(k,669) = - lu(k,290) * lu(k,658) - lu(k,674) = lu(k,674) - lu(k,291) * lu(k,658) - lu(k,677) = lu(k,677) - lu(k,292) * lu(k,658) - lu(k,678) = lu(k,678) - lu(k,293) * lu(k,658) - lu(k,679) = lu(k,679) - lu(k,294) * lu(k,658) - lu(k,819) = lu(k,819) - lu(k,288) * lu(k,815) - lu(k,823) = lu(k,823) - lu(k,289) * lu(k,815) - lu(k,826) = lu(k,826) - lu(k,290) * lu(k,815) - lu(k,832) = lu(k,832) - lu(k,291) * lu(k,815) - lu(k,836) = lu(k,836) - lu(k,292) * lu(k,815) - lu(k,837) = lu(k,837) - lu(k,293) * lu(k,815) - lu(k,838) = lu(k,838) - lu(k,294) * lu(k,815) - lu(k,1312) = lu(k,1312) - lu(k,288) * lu(k,1308) - lu(k,1317) = lu(k,1317) - lu(k,289) * lu(k,1308) - lu(k,1320) = lu(k,1320) - lu(k,290) * lu(k,1308) - lu(k,1326) = lu(k,1326) - lu(k,291) * lu(k,1308) - lu(k,1330) = lu(k,1330) - lu(k,292) * lu(k,1308) - lu(k,1331) = lu(k,1331) - lu(k,293) * lu(k,1308) - lu(k,1332) = lu(k,1332) - lu(k,294) * lu(k,1308) - lu(k,1415) = lu(k,1415) - lu(k,288) * lu(k,1404) - lu(k,1420) = lu(k,1420) - lu(k,289) * lu(k,1404) - lu(k,1423) = lu(k,1423) - lu(k,290) * lu(k,1404) - lu(k,1429) = lu(k,1429) - lu(k,291) * lu(k,1404) - lu(k,1433) = lu(k,1433) - lu(k,292) * lu(k,1404) - lu(k,1434) = lu(k,1434) - lu(k,293) * lu(k,1404) - lu(k,1435) = lu(k,1435) - lu(k,294) * lu(k,1404) - lu(k,1457) = lu(k,1457) - lu(k,288) * lu(k,1449) - lu(k,1462) = lu(k,1462) - lu(k,289) * lu(k,1449) - lu(k,1465) = lu(k,1465) - lu(k,290) * lu(k,1449) - lu(k,1471) = lu(k,1471) - lu(k,291) * lu(k,1449) - lu(k,1475) = lu(k,1475) - lu(k,292) * lu(k,1449) - lu(k,1476) = lu(k,1476) - lu(k,293) * lu(k,1449) - lu(k,1477) = - lu(k,294) * lu(k,1449) - lu(k,1498) = lu(k,1498) - lu(k,288) * lu(k,1487) - lu(k,1503) = lu(k,1503) - lu(k,289) * lu(k,1487) - lu(k,1506) = lu(k,1506) - lu(k,290) * lu(k,1487) - lu(k,1512) = lu(k,1512) - lu(k,291) * lu(k,1487) - lu(k,1516) = lu(k,1516) - lu(k,292) * lu(k,1487) - lu(k,1517) = lu(k,1517) - lu(k,293) * lu(k,1487) - lu(k,1518) = lu(k,1518) - lu(k,294) * lu(k,1487) - lu(k,1614) = lu(k,1614) - lu(k,288) * lu(k,1611) - lu(k,1619) = lu(k,1619) - lu(k,289) * lu(k,1611) - lu(k,1622) = lu(k,1622) - lu(k,290) * lu(k,1611) - lu(k,1628) = - lu(k,291) * lu(k,1611) - lu(k,1632) = lu(k,1632) - lu(k,292) * lu(k,1611) - lu(k,1633) = lu(k,1633) - lu(k,293) * lu(k,1611) - lu(k,1634) = - lu(k,294) * lu(k,1611) - lu(k,1735) = lu(k,1735) - lu(k,288) * lu(k,1727) - lu(k,1740) = lu(k,1740) - lu(k,289) * lu(k,1727) - lu(k,1743) = lu(k,1743) - lu(k,290) * lu(k,1727) - lu(k,1749) = lu(k,1749) - lu(k,291) * lu(k,1727) - lu(k,1753) = lu(k,1753) - lu(k,292) * lu(k,1727) - lu(k,1754) = lu(k,1754) - lu(k,293) * lu(k,1727) - lu(k,1755) = lu(k,1755) - lu(k,294) * lu(k,1727) - end do + real(r8), intent(inout) :: lu(:) + lu(255) = 1._r8 / lu(255) + lu(256) = lu(256) * lu(255) + lu(257) = lu(257) * lu(255) + lu(258) = lu(258) * lu(255) + lu(259) = lu(259) * lu(255) + lu(260) = lu(260) * lu(255) + lu(379) = lu(379) - lu(256) * lu(378) + lu(382) = - lu(257) * lu(378) + lu(383) = lu(383) - lu(258) * lu(378) + lu(387) = lu(387) - lu(259) * lu(378) + lu(392) = - lu(260) * lu(378) + lu(582) = lu(582) - lu(256) * lu(581) + lu(587) = lu(587) - lu(257) * lu(581) + lu(588) = lu(588) - lu(258) * lu(581) + lu(592) = lu(592) - lu(259) * lu(581) + lu(600) = lu(600) - lu(260) * lu(581) + lu(787) = lu(787) - lu(256) * lu(783) + lu(793) = lu(793) - lu(257) * lu(783) + lu(794) = lu(794) - lu(258) * lu(783) + lu(802) = lu(802) - lu(259) * lu(783) + lu(814) = lu(814) - lu(260) * lu(783) + lu(1033) = lu(1033) - lu(256) * lu(1029) + lu(1042) = lu(1042) - lu(257) * lu(1029) + lu(1043) = lu(1043) - lu(258) * lu(1029) + lu(1053) = lu(1053) - lu(259) * lu(1029) + lu(1068) = - lu(260) * lu(1029) + lu(1076) = lu(1076) - lu(256) * lu(1072) + lu(1088) = lu(1088) - lu(257) * lu(1072) + lu(1089) = lu(1089) - lu(258) * lu(1072) + lu(1099) = lu(1099) - lu(259) * lu(1072) + lu(1114) = lu(1114) - lu(260) * lu(1072) + lu(1219) = lu(1219) - lu(256) * lu(1213) + lu(1229) = lu(1229) - lu(257) * lu(1213) + lu(1230) = lu(1230) - lu(258) * lu(1213) + lu(1240) = lu(1240) - lu(259) * lu(1213) + lu(1255) = lu(1255) - lu(260) * lu(1213) + lu(1426) = lu(1426) - lu(256) * lu(1424) + lu(1435) = lu(1435) - lu(257) * lu(1424) + lu(1436) = lu(1436) - lu(258) * lu(1424) + lu(1446) = lu(1446) - lu(259) * lu(1424) + lu(1461) = - lu(260) * lu(1424) + lu(1506) = lu(1506) - lu(256) * lu(1502) + lu(1514) = lu(1514) - lu(257) * lu(1502) + lu(1515) = lu(1515) - lu(258) * lu(1502) + lu(1525) = lu(1525) - lu(259) * lu(1502) + lu(1540) = lu(1540) - lu(260) * lu(1502) + lu(1764) = - lu(256) * lu(1762) + lu(1773) = lu(1773) - lu(257) * lu(1762) + lu(1774) = lu(1774) - lu(258) * lu(1762) + lu(1783) = lu(1783) - lu(259) * lu(1762) + lu(1798) = - lu(260) * lu(1762) + lu(1817) = - lu(256) * lu(1813) + lu(1830) = - lu(257) * lu(1813) + lu(1831) = lu(1831) - lu(258) * lu(1813) + lu(1841) = lu(1841) - lu(259) * lu(1813) + lu(1856) = lu(1856) - lu(260) * lu(1813) + lu(264) = 1._r8 / lu(264) + lu(265) = lu(265) * lu(264) + lu(266) = lu(266) * lu(264) + lu(267) = lu(267) * lu(264) + lu(268) = lu(268) * lu(264) + lu(269) = lu(269) * lu(264) + lu(270) = lu(270) * lu(264) + lu(271) = lu(271) * lu(264) + lu(272) = lu(272) * lu(264) + lu(273) = lu(273) * lu(264) + lu(274) = lu(274) * lu(264) + lu(311) = lu(311) - lu(265) * lu(310) + lu(312) = - lu(266) * lu(310) + lu(313) = - lu(267) * lu(310) + lu(314) = lu(314) - lu(268) * lu(310) + lu(316) = lu(316) - lu(269) * lu(310) + lu(317) = lu(317) - lu(270) * lu(310) + lu(319) = lu(319) - lu(271) * lu(310) + lu(320) = lu(320) - lu(272) * lu(310) + lu(321) = lu(321) - lu(273) * lu(310) + lu(322) = lu(322) - lu(274) * lu(310) + lu(861) = lu(861) - lu(265) * lu(860) + lu(863) = lu(863) - lu(266) * lu(860) + lu(864) = - lu(267) * lu(860) + lu(865) = lu(865) - lu(268) * lu(860) + lu(868) = lu(868) - lu(269) * lu(860) + lu(870) = lu(870) - lu(270) * lu(860) + lu(873) = lu(873) - lu(271) * lu(860) + lu(874) = lu(874) - lu(272) * lu(860) + lu(878) = lu(878) - lu(273) * lu(860) + lu(880) = lu(880) - lu(274) * lu(860) + lu(936) = lu(936) - lu(265) * lu(935) + lu(947) = lu(947) - lu(266) * lu(935) + lu(951) = - lu(267) * lu(935) + lu(952) = lu(952) - lu(268) * lu(935) + lu(956) = lu(956) - lu(269) * lu(935) + lu(958) = lu(958) - lu(270) * lu(935) + lu(961) = lu(961) - lu(271) * lu(935) + lu(962) = lu(962) - lu(272) * lu(935) + lu(966) = lu(966) - lu(273) * lu(935) + lu(968) = - lu(274) * lu(935) + lu(1031) = lu(1031) - lu(265) * lu(1030) + lu(1038) = lu(1038) - lu(266) * lu(1030) + lu(1042) = lu(1042) - lu(267) * lu(1030) + lu(1043) = lu(1043) - lu(268) * lu(1030) + lu(1047) = lu(1047) - lu(269) * lu(1030) + lu(1049) = lu(1049) - lu(270) * lu(1030) + lu(1052) = lu(1052) - lu(271) * lu(1030) + lu(1053) = lu(1053) - lu(272) * lu(1030) + lu(1057) = lu(1057) - lu(273) * lu(1030) + lu(1059) = lu(1059) - lu(274) * lu(1030) + lu(1217) = lu(1217) - lu(265) * lu(1214) + lu(1225) = lu(1225) - lu(266) * lu(1214) + lu(1229) = lu(1229) - lu(267) * lu(1214) + lu(1230) = lu(1230) - lu(268) * lu(1214) + lu(1234) = lu(1234) - lu(269) * lu(1214) + lu(1236) = lu(1236) - lu(270) * lu(1214) + lu(1239) = lu(1239) - lu(271) * lu(1214) + lu(1240) = lu(1240) - lu(272) * lu(1214) + lu(1244) = lu(1244) - lu(273) * lu(1214) + lu(1246) = lu(1246) - lu(274) * lu(1214) + lu(277) = 1._r8 / lu(277) + lu(278) = lu(278) * lu(277) + lu(279) = lu(279) * lu(277) + lu(280) = lu(280) * lu(277) + lu(281) = lu(281) * lu(277) + lu(282) = lu(282) * lu(277) + lu(283) = lu(283) * lu(277) + lu(284) = lu(284) * lu(277) + lu(285) = lu(285) * lu(277) + lu(286) = lu(286) * lu(277) + lu(794) = lu(794) - lu(278) * lu(784) + lu(799) = lu(799) - lu(279) * lu(784) + lu(802) = lu(802) - lu(280) * lu(784) + lu(803) = lu(803) - lu(281) * lu(784) + lu(804) = lu(804) - lu(282) * lu(784) + lu(809) = lu(809) - lu(283) * lu(784) + lu(810) = lu(810) - lu(284) * lu(784) + lu(813) = lu(813) - lu(285) * lu(784) + lu(814) = lu(814) - lu(286) * lu(784) + lu(1089) = lu(1089) - lu(278) * lu(1073) + lu(1096) = lu(1096) - lu(279) * lu(1073) + lu(1099) = lu(1099) - lu(280) * lu(1073) + lu(1100) = lu(1100) - lu(281) * lu(1073) + lu(1101) = lu(1101) - lu(282) * lu(1073) + lu(1106) = lu(1106) - lu(283) * lu(1073) + lu(1108) = lu(1108) - lu(284) * lu(1073) + lu(1113) = lu(1113) - lu(285) * lu(1073) + lu(1114) = lu(1114) - lu(286) * lu(1073) + lu(1230) = lu(1230) - lu(278) * lu(1215) + lu(1237) = lu(1237) - lu(279) * lu(1215) + lu(1240) = lu(1240) - lu(280) * lu(1215) + lu(1241) = lu(1241) - lu(281) * lu(1215) + lu(1242) = lu(1242) - lu(282) * lu(1215) + lu(1247) = lu(1247) - lu(283) * lu(1215) + lu(1249) = lu(1249) - lu(284) * lu(1215) + lu(1254) = lu(1254) - lu(285) * lu(1215) + lu(1255) = lu(1255) - lu(286) * lu(1215) + lu(1272) = lu(1272) - lu(278) * lu(1260) + lu(1279) = lu(1279) - lu(279) * lu(1260) + lu(1282) = lu(1282) - lu(280) * lu(1260) + lu(1283) = lu(1283) - lu(281) * lu(1260) + lu(1284) = lu(1284) - lu(282) * lu(1260) + lu(1289) = lu(1289) - lu(283) * lu(1260) + lu(1291) = - lu(284) * lu(1260) + lu(1296) = lu(1296) - lu(285) * lu(1260) + lu(1297) = lu(1297) - lu(286) * lu(1260) + lu(1316) = lu(1316) - lu(278) * lu(1303) + lu(1323) = lu(1323) - lu(279) * lu(1303) + lu(1326) = lu(1326) - lu(280) * lu(1303) + lu(1327) = lu(1327) - lu(281) * lu(1303) + lu(1328) = lu(1328) - lu(282) * lu(1303) + lu(1333) = lu(1333) - lu(283) * lu(1303) + lu(1335) = lu(1335) - lu(284) * lu(1303) + lu(1340) = - lu(285) * lu(1303) + lu(1341) = lu(1341) - lu(286) * lu(1303) + lu(1515) = lu(1515) - lu(278) * lu(1503) + lu(1522) = lu(1522) - lu(279) * lu(1503) + lu(1525) = lu(1525) - lu(280) * lu(1503) + lu(1526) = lu(1526) - lu(281) * lu(1503) + lu(1527) = lu(1527) - lu(282) * lu(1503) + lu(1532) = lu(1532) - lu(283) * lu(1503) + lu(1534) = - lu(284) * lu(1503) + lu(1539) = lu(1539) - lu(285) * lu(1503) + lu(1540) = lu(1540) - lu(286) * lu(1503) + lu(287) = 1._r8 / lu(287) + lu(288) = lu(288) * lu(287) + lu(289) = lu(289) * lu(287) + lu(290) = lu(290) * lu(287) + lu(291) = lu(291) * lu(287) + lu(292) = lu(292) * lu(287) + lu(293) = lu(293) * lu(287) + lu(294) = lu(294) * lu(287) + lu(661) = lu(661) - lu(288) * lu(658) + lu(670) = lu(670) - lu(289) * lu(658) + lu(671) = - lu(290) * lu(658) + lu(673) = lu(673) - lu(291) * lu(658) + lu(674) = lu(674) - lu(292) * lu(658) + lu(675) = lu(675) - lu(293) * lu(658) + lu(686) = - lu(294) * lu(658) + lu(819) = lu(819) - lu(288) * lu(815) + lu(827) = lu(827) - lu(289) * lu(815) + lu(828) = lu(828) - lu(290) * lu(815) + lu(830) = lu(830) - lu(291) * lu(815) + lu(831) = lu(831) - lu(292) * lu(815) + lu(832) = lu(832) - lu(293) * lu(815) + lu(844) = lu(844) - lu(294) * lu(815) + lu(1168) = lu(1168) - lu(288) * lu(1157) + lu(1177) = lu(1177) - lu(289) * lu(1157) + lu(1178) = lu(1178) - lu(290) * lu(1157) + lu(1180) = lu(1180) - lu(291) * lu(1157) + lu(1181) = lu(1181) - lu(292) * lu(1157) + lu(1182) = lu(1182) - lu(293) * lu(1157) + lu(1194) = lu(1194) - lu(294) * lu(1157) + lu(1227) = lu(1227) - lu(288) * lu(1216) + lu(1236) = lu(1236) - lu(289) * lu(1216) + lu(1237) = lu(1237) - lu(290) * lu(1216) + lu(1239) = lu(1239) - lu(291) * lu(1216) + lu(1240) = lu(1240) - lu(292) * lu(1216) + lu(1241) = lu(1241) - lu(293) * lu(1216) + lu(1253) = lu(1253) - lu(294) * lu(1216) + lu(1269) = lu(1269) - lu(288) * lu(1261) + lu(1278) = lu(1278) - lu(289) * lu(1261) + lu(1279) = lu(1279) - lu(290) * lu(1261) + lu(1281) = - lu(291) * lu(1261) + lu(1282) = lu(1282) - lu(292) * lu(1261) + lu(1283) = lu(1283) - lu(293) * lu(1261) + lu(1295) = lu(1295) - lu(294) * lu(1261) + lu(1348) = lu(1348) - lu(288) * lu(1344) + lu(1357) = lu(1357) - lu(289) * lu(1344) + lu(1358) = lu(1358) - lu(290) * lu(1344) + lu(1360) = lu(1360) - lu(291) * lu(1344) + lu(1361) = lu(1361) - lu(292) * lu(1344) + lu(1362) = lu(1362) - lu(293) * lu(1344) + lu(1374) = lu(1374) - lu(294) * lu(1344) + lu(1512) = lu(1512) - lu(288) * lu(1504) + lu(1521) = lu(1521) - lu(289) * lu(1504) + lu(1522) = lu(1522) - lu(290) * lu(1504) + lu(1524) = lu(1524) - lu(291) * lu(1504) + lu(1525) = lu(1525) - lu(292) * lu(1504) + lu(1526) = lu(1526) - lu(293) * lu(1504) + lu(1538) = lu(1538) - lu(294) * lu(1504) + lu(1625) = lu(1625) - lu(288) * lu(1622) + lu(1634) = - lu(289) * lu(1622) + lu(1635) = lu(1635) - lu(290) * lu(1622) + lu(1637) = - lu(291) * lu(1622) + lu(1638) = lu(1638) - lu(292) * lu(1622) + lu(1639) = lu(1639) - lu(293) * lu(1622) + lu(1651) = lu(1651) - lu(294) * lu(1622) end subroutine lu_fac07 - subroutine lu_fac08( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac08( lu ) 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,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,302) = lu(k,302) * lu(k,297) - lu(k,303) = lu(k,303) * lu(k,297) - lu(k,304) = lu(k,304) * lu(k,297) - lu(k,305) = lu(k,305) * lu(k,297) - lu(k,306) = lu(k,306) * lu(k,297) - lu(k,307) = lu(k,307) * lu(k,297) - lu(k,308) = lu(k,308) * lu(k,297) - lu(k,518) = lu(k,518) - lu(k,298) * lu(k,517) - lu(k,519) = lu(k,519) - lu(k,299) * lu(k,517) - lu(k,520) = lu(k,520) - lu(k,300) * lu(k,517) - lu(k,524) = - lu(k,301) * lu(k,517) - lu(k,527) = lu(k,527) - lu(k,302) * lu(k,517) - lu(k,529) = lu(k,529) - lu(k,303) * lu(k,517) - lu(k,531) = - lu(k,304) * lu(k,517) - lu(k,532) = lu(k,532) - lu(k,305) * lu(k,517) - lu(k,533) = lu(k,533) - lu(k,306) * lu(k,517) - lu(k,534) = lu(k,534) - lu(k,307) * lu(k,517) - lu(k,536) = lu(k,536) - lu(k,308) * lu(k,517) - lu(k,558) = lu(k,558) - lu(k,298) * lu(k,557) - lu(k,559) = lu(k,559) - lu(k,299) * lu(k,557) - lu(k,560) = lu(k,560) - lu(k,300) * lu(k,557) - lu(k,564) = - lu(k,301) * lu(k,557) - lu(k,567) = lu(k,567) - lu(k,302) * lu(k,557) - lu(k,569) = lu(k,569) - lu(k,303) * lu(k,557) - lu(k,571) = - lu(k,304) * lu(k,557) - lu(k,572) = lu(k,572) - lu(k,305) * lu(k,557) - lu(k,573) = lu(k,573) - lu(k,306) * lu(k,557) - lu(k,574) = lu(k,574) - lu(k,307) * lu(k,557) - lu(k,576) = lu(k,576) - lu(k,308) * lu(k,557) - lu(k,975) = - lu(k,298) * lu(k,970) - lu(k,976) = - lu(k,299) * lu(k,970) - lu(k,978) = lu(k,978) - lu(k,300) * lu(k,970) - lu(k,990) = lu(k,990) - lu(k,301) * lu(k,970) - lu(k,993) = lu(k,993) - lu(k,302) * lu(k,970) - lu(k,997) = lu(k,997) - lu(k,303) * lu(k,970) - lu(k,1000) = lu(k,1000) - lu(k,304) * lu(k,970) - lu(k,1002) = lu(k,1002) - lu(k,305) * lu(k,970) - lu(k,1004) = - lu(k,306) * lu(k,970) - lu(k,1007) = - lu(k,307) * lu(k,970) - lu(k,1010) = lu(k,1010) - lu(k,308) * lu(k,970) - lu(k,1100) = - lu(k,298) * lu(k,1097) - lu(k,1101) = - lu(k,299) * lu(k,1097) - lu(k,1102) = - lu(k,300) * lu(k,1097) - lu(k,1112) = lu(k,1112) - lu(k,301) * lu(k,1097) - lu(k,1115) = lu(k,1115) - lu(k,302) * lu(k,1097) - lu(k,1119) = lu(k,1119) - lu(k,303) * lu(k,1097) - lu(k,1122) = lu(k,1122) - lu(k,304) * lu(k,1097) - lu(k,1124) = lu(k,1124) - lu(k,305) * lu(k,1097) - lu(k,1126) = - lu(k,306) * lu(k,1097) - lu(k,1129) = - lu(k,307) * lu(k,1097) - lu(k,1132) = lu(k,1132) - lu(k,308) * lu(k,1097) - lu(k,1577) = lu(k,1577) - lu(k,298) * lu(k,1570) - lu(k,1578) = lu(k,1578) - lu(k,299) * lu(k,1570) - lu(k,1580) = lu(k,1580) - lu(k,300) * lu(k,1570) - lu(k,1590) = lu(k,1590) - lu(k,301) * lu(k,1570) - lu(k,1593) = lu(k,1593) - lu(k,302) * lu(k,1570) - lu(k,1597) = lu(k,1597) - lu(k,303) * lu(k,1570) - lu(k,1600) = lu(k,1600) - lu(k,304) * lu(k,1570) - lu(k,1602) = - lu(k,305) * lu(k,1570) - lu(k,1604) = lu(k,1604) - lu(k,306) * lu(k,1570) - lu(k,1607) = lu(k,1607) - lu(k,307) * lu(k,1570) - lu(k,1610) = lu(k,1610) - lu(k,308) * lu(k,1570) - lu(k,1686) = lu(k,1686) - lu(k,298) * lu(k,1679) - lu(k,1687) = lu(k,1687) - lu(k,299) * lu(k,1679) - lu(k,1689) = lu(k,1689) - lu(k,300) * lu(k,1679) - lu(k,1699) = lu(k,1699) - lu(k,301) * lu(k,1679) - lu(k,1702) = lu(k,1702) - lu(k,302) * lu(k,1679) - lu(k,1706) = lu(k,1706) - lu(k,303) * lu(k,1679) - lu(k,1709) = lu(k,1709) - lu(k,304) * lu(k,1679) - lu(k,1711) = - lu(k,305) * lu(k,1679) - lu(k,1713) = lu(k,1713) - lu(k,306) * lu(k,1679) - lu(k,1716) = lu(k,1716) - lu(k,307) * lu(k,1679) - lu(k,1719) = lu(k,1719) - lu(k,308) * lu(k,1679) - 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,315) = lu(k,315) * lu(k,311) - lu(k,316) = lu(k,316) * lu(k,311) - lu(k,317) = lu(k,317) * lu(k,311) - lu(k,318) = lu(k,318) * lu(k,311) - lu(k,319) = lu(k,319) * lu(k,311) - lu(k,320) = lu(k,320) * lu(k,311) - lu(k,321) = lu(k,321) * lu(k,311) - lu(k,322) = lu(k,322) * lu(k,311) - lu(k,792) = lu(k,792) - lu(k,312) * lu(k,785) - lu(k,793) = lu(k,793) - lu(k,313) * lu(k,785) - lu(k,794) = lu(k,794) - lu(k,314) * lu(k,785) - lu(k,795) = - lu(k,315) * lu(k,785) - lu(k,796) = lu(k,796) - lu(k,316) * lu(k,785) - lu(k,802) = lu(k,802) - lu(k,317) * lu(k,785) - lu(k,805) = - lu(k,318) * lu(k,785) - lu(k,806) = lu(k,806) - lu(k,319) * lu(k,785) - lu(k,808) = lu(k,808) - lu(k,320) * lu(k,785) - lu(k,809) = lu(k,809) - lu(k,321) * lu(k,785) - lu(k,813) = lu(k,813) - lu(k,322) * lu(k,785) - lu(k,892) = lu(k,892) - lu(k,312) * lu(k,881) - lu(k,896) = lu(k,896) - lu(k,313) * lu(k,881) - lu(k,897) = lu(k,897) - lu(k,314) * lu(k,881) - lu(k,900) = lu(k,900) - lu(k,315) * lu(k,881) - lu(k,902) = lu(k,902) - lu(k,316) * lu(k,881) - lu(k,908) = lu(k,908) - lu(k,317) * lu(k,881) - lu(k,911) = lu(k,911) - lu(k,318) * lu(k,881) - lu(k,912) = lu(k,912) - lu(k,319) * lu(k,881) - lu(k,914) = lu(k,914) - lu(k,320) * lu(k,881) - lu(k,915) = lu(k,915) - lu(k,321) * lu(k,881) - lu(k,921) = lu(k,921) - lu(k,322) * lu(k,881) - lu(k,981) = - lu(k,312) * lu(k,971) - lu(k,984) = lu(k,984) - lu(k,313) * lu(k,971) - lu(k,985) = lu(k,985) - lu(k,314) * lu(k,971) - lu(k,988) = - lu(k,315) * lu(k,971) - lu(k,990) = lu(k,990) - lu(k,316) * lu(k,971) - lu(k,996) = lu(k,996) - lu(k,317) * lu(k,971) - lu(k,999) = - lu(k,318) * lu(k,971) - lu(k,1000) = lu(k,1000) - lu(k,319) * lu(k,971) - lu(k,1002) = lu(k,1002) - lu(k,320) * lu(k,971) - lu(k,1003) = - lu(k,321) * lu(k,971) - lu(k,1009) = - lu(k,322) * lu(k,971) - lu(k,1236) = lu(k,1236) - lu(k,312) * lu(k,1229) - lu(k,1240) = lu(k,1240) - lu(k,313) * lu(k,1229) - lu(k,1241) = lu(k,1241) - lu(k,314) * lu(k,1229) - lu(k,1244) = lu(k,1244) - lu(k,315) * lu(k,1229) - lu(k,1246) = - lu(k,316) * lu(k,1229) - lu(k,1252) = lu(k,1252) - lu(k,317) * lu(k,1229) - lu(k,1255) = lu(k,1255) - lu(k,318) * lu(k,1229) - lu(k,1256) = lu(k,1256) - lu(k,319) * lu(k,1229) - lu(k,1258) = lu(k,1258) - lu(k,320) * lu(k,1229) - lu(k,1259) = lu(k,1259) - lu(k,321) * lu(k,1229) - lu(k,1265) = lu(k,1265) - lu(k,322) * lu(k,1229) - lu(k,1354) = lu(k,1354) - lu(k,312) * lu(k,1342) - lu(k,1358) = - lu(k,313) * lu(k,1342) - lu(k,1359) = lu(k,1359) - lu(k,314) * lu(k,1342) - lu(k,1362) = lu(k,1362) - lu(k,315) * lu(k,1342) - lu(k,1364) = lu(k,1364) - lu(k,316) * lu(k,1342) - lu(k,1370) = lu(k,1370) - lu(k,317) * lu(k,1342) - lu(k,1373) = lu(k,1373) - lu(k,318) * lu(k,1342) - lu(k,1374) = lu(k,1374) - lu(k,319) * lu(k,1342) - lu(k,1376) = lu(k,1376) - lu(k,320) * lu(k,1342) - lu(k,1377) = lu(k,1377) - lu(k,321) * lu(k,1342) - lu(k,1383) = lu(k,1383) - lu(k,322) * lu(k,1342) - lu(k,1413) = lu(k,1413) - lu(k,312) * lu(k,1405) - lu(k,1417) = lu(k,1417) - lu(k,313) * lu(k,1405) - lu(k,1418) = lu(k,1418) - lu(k,314) * lu(k,1405) - lu(k,1421) = lu(k,1421) - lu(k,315) * lu(k,1405) - lu(k,1423) = lu(k,1423) - lu(k,316) * lu(k,1405) - lu(k,1429) = lu(k,1429) - lu(k,317) * lu(k,1405) - lu(k,1432) = lu(k,1432) - lu(k,318) * lu(k,1405) - lu(k,1433) = lu(k,1433) - lu(k,319) * lu(k,1405) - lu(k,1435) = lu(k,1435) - lu(k,320) * lu(k,1405) - lu(k,1436) = lu(k,1436) - lu(k,321) * lu(k,1405) - lu(k,1442) = lu(k,1442) - lu(k,322) * lu(k,1405) - lu(k,1497) = - lu(k,312) * lu(k,1488) - lu(k,1500) = lu(k,1500) - lu(k,313) * lu(k,1488) - lu(k,1501) = lu(k,1501) - lu(k,314) * lu(k,1488) - lu(k,1504) = lu(k,1504) - lu(k,315) * lu(k,1488) - lu(k,1506) = lu(k,1506) - lu(k,316) * lu(k,1488) - lu(k,1512) = lu(k,1512) - lu(k,317) * lu(k,1488) - lu(k,1515) = lu(k,1515) - lu(k,318) * lu(k,1488) - lu(k,1516) = lu(k,1516) - lu(k,319) * lu(k,1488) - lu(k,1518) = lu(k,1518) - lu(k,320) * lu(k,1488) - lu(k,1519) = lu(k,1519) - lu(k,321) * lu(k,1488) - lu(k,1525) = - lu(k,322) * lu(k,1488) - lu(k,1543) = lu(k,1543) - lu(k,312) * lu(k,1541) - lu(k,1544) = lu(k,1544) - lu(k,313) * lu(k,1541) - lu(k,1545) = lu(k,1545) - lu(k,314) * lu(k,1541) - lu(k,1546) = lu(k,1546) - lu(k,315) * lu(k,1541) - lu(k,1548) = lu(k,1548) - lu(k,316) * lu(k,1541) - lu(k,1554) = lu(k,1554) - lu(k,317) * lu(k,1541) - lu(k,1557) = lu(k,1557) - lu(k,318) * lu(k,1541) - lu(k,1558) = lu(k,1558) - lu(k,319) * lu(k,1541) - lu(k,1560) = lu(k,1560) - lu(k,320) * lu(k,1541) - lu(k,1561) = lu(k,1561) - lu(k,321) * lu(k,1541) - lu(k,1567) = lu(k,1567) - lu(k,322) * lu(k,1541) - 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,332) = lu(k,332) * lu(k,324) - lu(k,333) = lu(k,333) * lu(k,324) - lu(k,334) = lu(k,334) * lu(k,324) - lu(k,485) = - lu(k,325) * lu(k,483) - lu(k,487) = - lu(k,326) * lu(k,483) - lu(k,488) = lu(k,488) - lu(k,327) * lu(k,483) - lu(k,489) = - lu(k,328) * lu(k,483) - lu(k,492) = - lu(k,329) * lu(k,483) - lu(k,495) = lu(k,495) - lu(k,330) * lu(k,483) - lu(k,496) = - lu(k,331) * lu(k,483) - lu(k,500) = - lu(k,332) * lu(k,483) - lu(k,501) = lu(k,501) - lu(k,333) * lu(k,483) - lu(k,502) = lu(k,502) - lu(k,334) * lu(k,483) - lu(k,636) = lu(k,636) - lu(k,325) * lu(k,631) - lu(k,638) = lu(k,638) - lu(k,326) * lu(k,631) - lu(k,639) = lu(k,639) - lu(k,327) * lu(k,631) - lu(k,640) = - lu(k,328) * lu(k,631) - lu(k,645) = lu(k,645) - lu(k,329) * lu(k,631) - lu(k,650) = lu(k,650) - lu(k,330) * lu(k,631) - lu(k,651) = lu(k,651) - lu(k,331) * lu(k,631) - lu(k,655) = lu(k,655) - lu(k,332) * lu(k,631) - lu(k,656) = lu(k,656) - lu(k,333) * lu(k,631) - lu(k,657) = lu(k,657) - lu(k,334) * lu(k,631) - lu(k,745) = lu(k,745) - lu(k,325) * lu(k,741) - lu(k,747) = lu(k,747) - lu(k,326) * lu(k,741) - lu(k,748) = lu(k,748) - lu(k,327) * lu(k,741) - lu(k,749) = lu(k,749) - lu(k,328) * lu(k,741) - lu(k,755) = lu(k,755) - lu(k,329) * lu(k,741) - lu(k,760) = lu(k,760) - lu(k,330) * lu(k,741) - lu(k,761) = lu(k,761) - lu(k,331) * lu(k,741) - lu(k,765) = lu(k,765) - lu(k,332) * lu(k,741) - lu(k,766) = lu(k,766) - lu(k,333) * lu(k,741) - lu(k,767) = lu(k,767) - lu(k,334) * lu(k,741) - lu(k,791) = lu(k,791) - lu(k,325) * lu(k,786) - lu(k,793) = lu(k,793) - lu(k,326) * lu(k,786) - lu(k,794) = lu(k,794) - lu(k,327) * lu(k,786) - lu(k,796) = lu(k,796) - lu(k,328) * lu(k,786) - lu(k,802) = lu(k,802) - lu(k,329) * lu(k,786) - lu(k,807) = lu(k,807) - lu(k,330) * lu(k,786) - lu(k,808) = lu(k,808) - lu(k,331) * lu(k,786) - lu(k,812) = lu(k,812) - lu(k,332) * lu(k,786) - lu(k,813) = lu(k,813) - lu(k,333) * lu(k,786) - lu(k,814) = lu(k,814) - lu(k,334) * lu(k,786) - lu(k,1275) = - lu(k,325) * lu(k,1270) - lu(k,1279) = lu(k,1279) - lu(k,326) * lu(k,1270) - lu(k,1280) = lu(k,1280) - lu(k,327) * lu(k,1270) - lu(k,1285) = lu(k,1285) - lu(k,328) * lu(k,1270) - lu(k,1291) = - lu(k,329) * lu(k,1270) - lu(k,1296) = - lu(k,330) * lu(k,1270) - lu(k,1297) = lu(k,1297) - lu(k,331) * lu(k,1270) - lu(k,1303) = - lu(k,332) * lu(k,1270) - lu(k,1304) = lu(k,1304) - lu(k,333) * lu(k,1270) - lu(k,1305) = lu(k,1305) - lu(k,334) * lu(k,1270) - lu(k,1454) = lu(k,1454) - lu(k,325) * lu(k,1450) - lu(k,1459) = lu(k,1459) - lu(k,326) * lu(k,1450) - lu(k,1460) = lu(k,1460) - lu(k,327) * lu(k,1450) - lu(k,1465) = lu(k,1465) - lu(k,328) * lu(k,1450) - lu(k,1471) = lu(k,1471) - lu(k,329) * lu(k,1450) - lu(k,1476) = lu(k,1476) - lu(k,330) * lu(k,1450) - lu(k,1477) = lu(k,1477) - lu(k,331) * lu(k,1450) - lu(k,1483) = lu(k,1483) - lu(k,332) * lu(k,1450) - lu(k,1484) = lu(k,1484) - lu(k,333) * lu(k,1450) - lu(k,1485) = lu(k,1485) - lu(k,334) * lu(k,1450) - lu(k,1496) = lu(k,1496) - lu(k,325) * lu(k,1489) - lu(k,1500) = lu(k,1500) - lu(k,326) * lu(k,1489) - lu(k,1501) = lu(k,1501) - lu(k,327) * lu(k,1489) - lu(k,1506) = lu(k,1506) - lu(k,328) * lu(k,1489) - lu(k,1512) = lu(k,1512) - lu(k,329) * lu(k,1489) - lu(k,1517) = lu(k,1517) - lu(k,330) * lu(k,1489) - lu(k,1518) = lu(k,1518) - lu(k,331) * lu(k,1489) - lu(k,1524) = lu(k,1524) - lu(k,332) * lu(k,1489) - lu(k,1525) = lu(k,1525) - lu(k,333) * lu(k,1489) - lu(k,1526) = lu(k,1526) - lu(k,334) * lu(k,1489) - lu(k,1732) = lu(k,1732) - lu(k,325) * lu(k,1728) - lu(k,1737) = lu(k,1737) - lu(k,326) * lu(k,1728) - lu(k,1738) = lu(k,1738) - lu(k,327) * lu(k,1728) - lu(k,1743) = lu(k,1743) - lu(k,328) * lu(k,1728) - lu(k,1749) = lu(k,1749) - lu(k,329) * lu(k,1728) - lu(k,1754) = lu(k,1754) - lu(k,330) * lu(k,1728) - lu(k,1755) = lu(k,1755) - lu(k,331) * lu(k,1728) - lu(k,1761) = lu(k,1761) - lu(k,332) * lu(k,1728) - lu(k,1762) = - lu(k,333) * lu(k,1728) - lu(k,1763) = lu(k,1763) - lu(k,334) * lu(k,1728) - lu(k,1826) = - lu(k,325) * lu(k,1814) - lu(k,1830) = lu(k,1830) - lu(k,326) * lu(k,1814) - lu(k,1831) = lu(k,1831) - lu(k,327) * lu(k,1814) - lu(k,1836) = lu(k,1836) - lu(k,328) * lu(k,1814) - lu(k,1842) = lu(k,1842) - lu(k,329) * lu(k,1814) - lu(k,1847) = - lu(k,330) * lu(k,1814) - lu(k,1848) = lu(k,1848) - lu(k,331) * lu(k,1814) - lu(k,1854) = - lu(k,332) * lu(k,1814) - lu(k,1855) = lu(k,1855) - lu(k,333) * lu(k,1814) - lu(k,1856) = lu(k,1856) - lu(k,334) * lu(k,1814) - end do + real(r8), intent(inout) :: lu(:) + lu(297) = 1._r8 / lu(297) + lu(298) = lu(298) * lu(297) + lu(299) = lu(299) * lu(297) + lu(300) = lu(300) * lu(297) + lu(301) = lu(301) * lu(297) + lu(302) = lu(302) * lu(297) + lu(303) = lu(303) * lu(297) + lu(304) = lu(304) * lu(297) + lu(305) = lu(305) * lu(297) + lu(306) = lu(306) * lu(297) + lu(307) = lu(307) * lu(297) + lu(308) = lu(308) * lu(297) + lu(518) = lu(518) - lu(298) * lu(517) + lu(519) = lu(519) - lu(299) * lu(517) + lu(520) = lu(520) - lu(300) * lu(517) + lu(526) = - lu(301) * lu(517) + lu(528) = lu(528) - lu(302) * lu(517) + lu(529) = - lu(303) * lu(517) + lu(532) = lu(532) - lu(304) * lu(517) + lu(533) = lu(533) - lu(305) * lu(517) + lu(534) = lu(534) - lu(306) * lu(517) + lu(535) = lu(535) - lu(307) * lu(517) + lu(536) = lu(536) - lu(308) * lu(517) + lu(558) = lu(558) - lu(298) * lu(557) + lu(559) = lu(559) - lu(299) * lu(557) + lu(560) = lu(560) - lu(300) * lu(557) + lu(566) = - lu(301) * lu(557) + lu(568) = lu(568) - lu(302) * lu(557) + lu(569) = - lu(303) * lu(557) + lu(572) = lu(572) - lu(304) * lu(557) + lu(573) = lu(573) - lu(305) * lu(557) + lu(574) = lu(574) - lu(306) * lu(557) + lu(575) = lu(575) - lu(307) * lu(557) + lu(576) = lu(576) - lu(308) * lu(557) + lu(1079) = - lu(298) * lu(1074) + lu(1080) = - lu(299) * lu(1074) + lu(1082) = lu(1082) - lu(300) * lu(1074) + lu(1096) = lu(1096) - lu(301) * lu(1074) + lu(1098) = lu(1098) - lu(302) * lu(1074) + lu(1099) = lu(1099) - lu(303) * lu(1074) + lu(1107) = - lu(304) * lu(1074) + lu(1108) = lu(1108) - lu(305) * lu(1074) + lu(1111) = - lu(306) * lu(1074) + lu(1113) = lu(1113) - lu(307) * lu(1074) + lu(1114) = lu(1114) - lu(308) * lu(1074) + lu(1549) = lu(1549) - lu(298) * lu(1542) + lu(1550) = lu(1550) - lu(299) * lu(1542) + lu(1552) = lu(1552) - lu(300) * lu(1542) + lu(1564) = lu(1564) - lu(301) * lu(1542) + lu(1566) = - lu(302) * lu(1542) + lu(1567) = lu(1567) - lu(303) * lu(1542) + lu(1575) = lu(1575) - lu(304) * lu(1542) + lu(1576) = lu(1576) - lu(305) * lu(1542) + lu(1579) = lu(1579) - lu(306) * lu(1542) + lu(1581) = lu(1581) - lu(307) * lu(1542) + lu(1582) = lu(1582) - lu(308) * lu(1542) + lu(1697) = lu(1697) - lu(298) * lu(1690) + lu(1698) = lu(1698) - lu(299) * lu(1690) + lu(1700) = lu(1700) - lu(300) * lu(1690) + lu(1712) = lu(1712) - lu(301) * lu(1690) + lu(1714) = - lu(302) * lu(1690) + lu(1715) = lu(1715) - lu(303) * lu(1690) + lu(1723) = lu(1723) - lu(304) * lu(1690) + lu(1724) = lu(1724) - lu(305) * lu(1690) + lu(1727) = lu(1727) - lu(306) * lu(1690) + lu(1729) = lu(1729) - lu(307) * lu(1690) + lu(1730) = lu(1730) - lu(308) * lu(1690) + lu(1766) = - lu(298) * lu(1763) + lu(1767) = - lu(299) * lu(1763) + lu(1768) = - lu(300) * lu(1763) + lu(1780) = lu(1780) - lu(301) * lu(1763) + lu(1782) = lu(1782) - lu(302) * lu(1763) + lu(1783) = lu(1783) - lu(303) * lu(1763) + lu(1791) = - lu(304) * lu(1763) + lu(1792) = lu(1792) - lu(305) * lu(1763) + lu(1795) = - lu(306) * lu(1763) + lu(1797) = lu(1797) - lu(307) * lu(1763) + lu(1798) = lu(1798) - lu(308) * lu(1763) + lu(311) = 1._r8 / lu(311) + lu(312) = lu(312) * lu(311) + lu(313) = lu(313) * lu(311) + lu(314) = lu(314) * lu(311) + lu(315) = lu(315) * lu(311) + lu(316) = lu(316) * lu(311) + lu(317) = lu(317) * lu(311) + lu(318) = lu(318) * lu(311) + lu(319) = lu(319) * lu(311) + lu(320) = lu(320) * lu(311) + lu(321) = lu(321) * lu(311) + lu(322) = lu(322) * lu(311) + lu(792) = lu(792) - lu(312) * lu(785) + lu(793) = lu(793) - lu(313) * lu(785) + lu(794) = lu(794) - lu(314) * lu(785) + lu(795) = lu(795) - lu(315) * lu(785) + lu(797) = - lu(316) * lu(785) + lu(798) = lu(798) - lu(317) * lu(785) + lu(799) = lu(799) - lu(318) * lu(785) + lu(801) = lu(801) - lu(319) * lu(785) + lu(802) = lu(802) - lu(320) * lu(785) + lu(806) = - lu(321) * lu(785) + lu(808) = lu(808) - lu(322) * lu(785) + lu(863) = lu(863) - lu(312) * lu(861) + lu(864) = lu(864) - lu(313) * lu(861) + lu(865) = lu(865) - lu(314) * lu(861) + lu(866) = lu(866) - lu(315) * lu(861) + lu(868) = lu(868) - lu(316) * lu(861) + lu(870) = lu(870) - lu(317) * lu(861) + lu(871) = lu(871) - lu(318) * lu(861) + lu(873) = lu(873) - lu(319) * lu(861) + lu(874) = lu(874) - lu(320) * lu(861) + lu(878) = lu(878) - lu(321) * lu(861) + lu(880) = lu(880) - lu(322) * lu(861) + lu(947) = lu(947) - lu(312) * lu(936) + lu(951) = lu(951) - lu(313) * lu(936) + lu(952) = lu(952) - lu(314) * lu(936) + lu(954) = lu(954) - lu(315) * lu(936) + lu(956) = lu(956) - lu(316) * lu(936) + lu(958) = lu(958) - lu(317) * lu(936) + lu(959) = lu(959) - lu(318) * lu(936) + lu(961) = lu(961) - lu(319) * lu(936) + lu(962) = lu(962) - lu(320) * lu(936) + lu(966) = lu(966) - lu(321) * lu(936) + lu(968) = lu(968) - lu(322) * lu(936) + lu(1038) = lu(1038) - lu(312) * lu(1031) + lu(1042) = lu(1042) - lu(313) * lu(1031) + lu(1043) = lu(1043) - lu(314) * lu(1031) + lu(1045) = lu(1045) - lu(315) * lu(1031) + lu(1047) = lu(1047) - lu(316) * lu(1031) + lu(1049) = lu(1049) - lu(317) * lu(1031) + lu(1050) = - lu(318) * lu(1031) + lu(1052) = lu(1052) - lu(319) * lu(1031) + lu(1053) = lu(1053) - lu(320) * lu(1031) + lu(1057) = lu(1057) - lu(321) * lu(1031) + lu(1059) = lu(1059) - lu(322) * lu(1031) + lu(1085) = - lu(312) * lu(1075) + lu(1088) = lu(1088) - lu(313) * lu(1075) + lu(1089) = lu(1089) - lu(314) * lu(1075) + lu(1091) = - lu(315) * lu(1075) + lu(1093) = - lu(316) * lu(1075) + lu(1095) = lu(1095) - lu(317) * lu(1075) + lu(1096) = lu(1096) - lu(318) * lu(1075) + lu(1098) = lu(1098) - lu(319) * lu(1075) + lu(1099) = lu(1099) - lu(320) * lu(1075) + lu(1103) = - lu(321) * lu(1075) + lu(1105) = - lu(322) * lu(1075) + lu(1167) = - lu(312) * lu(1158) + lu(1170) = lu(1170) - lu(313) * lu(1158) + lu(1171) = lu(1171) - lu(314) * lu(1158) + lu(1173) = lu(1173) - lu(315) * lu(1158) + lu(1175) = lu(1175) - lu(316) * lu(1158) + lu(1177) = lu(1177) - lu(317) * lu(1158) + lu(1178) = lu(1178) - lu(318) * lu(1158) + lu(1180) = lu(1180) - lu(319) * lu(1158) + lu(1181) = lu(1181) - lu(320) * lu(1158) + lu(1185) = lu(1185) - lu(321) * lu(1158) + lu(1187) = - lu(322) * lu(1158) + lu(1225) = lu(1225) - lu(312) * lu(1217) + lu(1229) = lu(1229) - lu(313) * lu(1217) + lu(1230) = lu(1230) - lu(314) * lu(1217) + lu(1232) = lu(1232) - lu(315) * lu(1217) + lu(1234) = lu(1234) - lu(316) * lu(1217) + lu(1236) = lu(1236) - lu(317) * lu(1217) + lu(1237) = lu(1237) - lu(318) * lu(1217) + lu(1239) = lu(1239) - lu(319) * lu(1217) + lu(1240) = lu(1240) - lu(320) * lu(1217) + lu(1244) = lu(1244) - lu(321) * lu(1217) + lu(1246) = lu(1246) - lu(322) * lu(1217) + lu(1390) = lu(1390) - lu(312) * lu(1378) + lu(1394) = - lu(313) * lu(1378) + lu(1395) = lu(1395) - lu(314) * lu(1378) + lu(1397) = lu(1397) - lu(315) * lu(1378) + lu(1399) = lu(1399) - lu(316) * lu(1378) + lu(1401) = lu(1401) - lu(317) * lu(1378) + lu(1402) = lu(1402) - lu(318) * lu(1378) + lu(1404) = lu(1404) - lu(319) * lu(1378) + lu(1405) = lu(1405) - lu(320) * lu(1378) + lu(1409) = lu(1409) - lu(321) * lu(1378) + lu(1411) = lu(1411) - lu(322) * lu(1378) + lu(324) = 1._r8 / lu(324) + lu(325) = lu(325) * lu(324) + lu(326) = lu(326) * lu(324) + lu(327) = lu(327) * lu(324) + lu(328) = lu(328) * lu(324) + lu(329) = lu(329) * lu(324) + lu(330) = lu(330) * lu(324) + lu(331) = lu(331) * lu(324) + lu(332) = lu(332) * lu(324) + lu(333) = lu(333) * lu(324) + lu(334) = lu(334) * lu(324) + lu(485) = - lu(325) * lu(483) + lu(487) = - lu(326) * lu(483) + lu(488) = lu(488) - lu(327) * lu(483) + lu(490) = - lu(328) * lu(483) + lu(491) = - lu(329) * lu(483) + lu(492) = - lu(330) * lu(483) + lu(494) = lu(494) - lu(331) * lu(483) + lu(496) = lu(496) - lu(332) * lu(483) + lu(497) = - lu(333) * lu(483) + lu(502) = lu(502) - lu(334) * lu(483) + lu(636) = lu(636) - lu(325) * lu(631) + lu(638) = lu(638) - lu(326) * lu(631) + lu(639) = lu(639) - lu(327) * lu(631) + lu(642) = lu(642) - lu(328) * lu(631) + lu(643) = - lu(329) * lu(631) + lu(644) = lu(644) - lu(330) * lu(631) + lu(646) = lu(646) - lu(331) * lu(631) + lu(651) = lu(651) - lu(332) * lu(631) + lu(652) = lu(652) - lu(333) * lu(631) + lu(657) = lu(657) - lu(334) * lu(631) + lu(745) = lu(745) - lu(325) * lu(741) + lu(747) = lu(747) - lu(326) * lu(741) + lu(748) = lu(748) - lu(327) * lu(741) + lu(751) = lu(751) - lu(328) * lu(741) + lu(752) = lu(752) - lu(329) * lu(741) + lu(754) = lu(754) - lu(330) * lu(741) + lu(756) = lu(756) - lu(331) * lu(741) + lu(761) = lu(761) - lu(332) * lu(741) + lu(762) = lu(762) - lu(333) * lu(741) + lu(767) = lu(767) - lu(334) * lu(741) + lu(791) = lu(791) - lu(325) * lu(786) + lu(793) = lu(793) - lu(326) * lu(786) + lu(794) = lu(794) - lu(327) * lu(786) + lu(798) = lu(798) - lu(328) * lu(786) + lu(799) = lu(799) - lu(329) * lu(786) + lu(801) = lu(801) - lu(330) * lu(786) + lu(803) = lu(803) - lu(331) * lu(786) + lu(808) = lu(808) - lu(332) * lu(786) + lu(809) = lu(809) - lu(333) * lu(786) + lu(814) = lu(814) - lu(334) * lu(786) + lu(1166) = lu(1166) - lu(325) * lu(1159) + lu(1170) = lu(1170) - lu(326) * lu(1159) + lu(1171) = lu(1171) - lu(327) * lu(1159) + lu(1177) = lu(1177) - lu(328) * lu(1159) + lu(1178) = lu(1178) - lu(329) * lu(1159) + lu(1180) = lu(1180) - lu(330) * lu(1159) + lu(1182) = lu(1182) - lu(331) * lu(1159) + lu(1187) = lu(1187) - lu(332) * lu(1159) + lu(1188) = lu(1188) - lu(333) * lu(1159) + lu(1196) = lu(1196) - lu(334) * lu(1159) + lu(1266) = lu(1266) - lu(325) * lu(1262) + lu(1271) = lu(1271) - lu(326) * lu(1262) + lu(1272) = lu(1272) - lu(327) * lu(1262) + lu(1278) = lu(1278) - lu(328) * lu(1262) + lu(1279) = lu(1279) - lu(329) * lu(1262) + lu(1281) = lu(1281) - lu(330) * lu(1262) + lu(1283) = lu(1283) - lu(331) * lu(1262) + lu(1288) = lu(1288) - lu(332) * lu(1262) + lu(1289) = lu(1289) - lu(333) * lu(1262) + lu(1297) = lu(1297) - lu(334) * lu(1262) + lu(1509) = lu(1509) - lu(325) * lu(1505) + lu(1514) = lu(1514) - lu(326) * lu(1505) + lu(1515) = lu(1515) - lu(327) * lu(1505) + lu(1521) = lu(1521) - lu(328) * lu(1505) + lu(1522) = lu(1522) - lu(329) * lu(1505) + lu(1524) = lu(1524) - lu(330) * lu(1505) + lu(1526) = lu(1526) - lu(331) * lu(1505) + lu(1531) = - lu(332) * lu(1505) + lu(1532) = lu(1532) - lu(333) * lu(1505) + lu(1540) = lu(1540) - lu(334) * lu(1505) + lu(1591) = - lu(325) * lu(1586) + lu(1595) = lu(1595) - lu(326) * lu(1586) + lu(1596) = lu(1596) - lu(327) * lu(1586) + lu(1602) = - lu(328) * lu(1586) + lu(1603) = lu(1603) - lu(329) * lu(1586) + lu(1605) = lu(1605) - lu(330) * lu(1586) + lu(1607) = - lu(331) * lu(1586) + lu(1612) = lu(1612) - lu(332) * lu(1586) + lu(1613) = - lu(333) * lu(1586) + lu(1621) = lu(1621) - lu(334) * lu(1586) + lu(1826) = - lu(325) * lu(1814) + lu(1830) = lu(1830) - lu(326) * lu(1814) + lu(1831) = lu(1831) - lu(327) * lu(1814) + lu(1837) = lu(1837) - lu(328) * lu(1814) + lu(1838) = lu(1838) - lu(329) * lu(1814) + lu(1840) = lu(1840) - lu(330) * lu(1814) + lu(1842) = - lu(331) * lu(1814) + lu(1847) = lu(1847) - lu(332) * lu(1814) + lu(1848) = - lu(333) * lu(1814) + lu(1856) = lu(1856) - lu(334) * lu(1814) end subroutine lu_fac08 - subroutine lu_fac09( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac09( lu ) 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,335) = 1._r8 / lu(k,335) - lu(k,336) = lu(k,336) * lu(k,335) - lu(k,337) = lu(k,337) * lu(k,335) - lu(k,338) = lu(k,338) * lu(k,335) - lu(k,339) = lu(k,339) * lu(k,335) - lu(k,340) = lu(k,340) * lu(k,335) - lu(k,341) = lu(k,341) * lu(k,335) - lu(k,342) = lu(k,342) * lu(k,335) - lu(k,343) = lu(k,343) * lu(k,335) - lu(k,344) = lu(k,344) * lu(k,335) - lu(k,345) = lu(k,345) * lu(k,335) - lu(k,346) = lu(k,346) * lu(k,335) - lu(k,347) = lu(k,347) * lu(k,335) - lu(k,897) = lu(k,897) - lu(k,336) * lu(k,882) - lu(k,900) = lu(k,900) - lu(k,337) * lu(k,882) - lu(k,901) = - lu(k,338) * lu(k,882) - lu(k,903) = - lu(k,339) * lu(k,882) - lu(k,904) = lu(k,904) - lu(k,340) * lu(k,882) - lu(k,908) = lu(k,908) - lu(k,341) * lu(k,882) - lu(k,911) = lu(k,911) - lu(k,342) * lu(k,882) - lu(k,914) = lu(k,914) - lu(k,343) * lu(k,882) - lu(k,916) = - lu(k,344) * lu(k,882) - lu(k,919) = - lu(k,345) * lu(k,882) - lu(k,921) = lu(k,921) - lu(k,346) * lu(k,882) - lu(k,922) = lu(k,922) - lu(k,347) * lu(k,882) - lu(k,939) = lu(k,939) - lu(k,336) * lu(k,925) - lu(k,942) = - lu(k,337) * lu(k,925) - lu(k,943) = lu(k,943) - lu(k,338) * lu(k,925) - lu(k,945) = lu(k,945) - lu(k,339) * lu(k,925) - lu(k,946) = - lu(k,340) * lu(k,925) - lu(k,950) = lu(k,950) - lu(k,341) * lu(k,925) - lu(k,953) = - lu(k,342) * lu(k,925) - lu(k,956) = lu(k,956) - lu(k,343) * lu(k,925) - lu(k,958) = - lu(k,344) * lu(k,925) - lu(k,961) = - lu(k,345) * lu(k,925) - lu(k,963) = - lu(k,346) * lu(k,925) - lu(k,964) = lu(k,964) - lu(k,347) * lu(k,925) - lu(k,1027) = lu(k,1027) - lu(k,336) * lu(k,1013) - lu(k,1030) = - lu(k,337) * lu(k,1013) - lu(k,1031) = - lu(k,338) * lu(k,1013) - lu(k,1033) = lu(k,1033) - lu(k,339) * lu(k,1013) - lu(k,1034) = - lu(k,340) * lu(k,1013) - lu(k,1038) = lu(k,1038) - lu(k,341) * lu(k,1013) - lu(k,1041) = - lu(k,342) * lu(k,1013) - lu(k,1044) = - lu(k,343) * lu(k,1013) - lu(k,1046) = - lu(k,344) * lu(k,1013) - lu(k,1049) = lu(k,1049) - lu(k,345) * lu(k,1013) - lu(k,1051) = lu(k,1051) - lu(k,346) * lu(k,1013) - lu(k,1052) = lu(k,1052) - lu(k,347) * lu(k,1013) - lu(k,1068) = lu(k,1068) - lu(k,336) * lu(k,1054) - lu(k,1071) = - lu(k,337) * lu(k,1054) - lu(k,1072) = lu(k,1072) - lu(k,338) * lu(k,1054) - lu(k,1074) = lu(k,1074) - lu(k,339) * lu(k,1054) - lu(k,1075) = lu(k,1075) - lu(k,340) * lu(k,1054) - lu(k,1079) = lu(k,1079) - lu(k,341) * lu(k,1054) - lu(k,1082) = - lu(k,342) * lu(k,1054) - lu(k,1085) = lu(k,1085) - lu(k,343) * lu(k,1054) - lu(k,1087) = - lu(k,344) * lu(k,1054) - lu(k,1090) = - lu(k,345) * lu(k,1054) - lu(k,1092) = lu(k,1092) - lu(k,346) * lu(k,1054) - lu(k,1093) = lu(k,1093) - lu(k,347) * lu(k,1054) - lu(k,1359) = lu(k,1359) - lu(k,336) * lu(k,1343) - lu(k,1362) = lu(k,1362) - lu(k,337) * lu(k,1343) - lu(k,1363) = - lu(k,338) * lu(k,1343) - lu(k,1365) = lu(k,1365) - lu(k,339) * lu(k,1343) - lu(k,1366) = - lu(k,340) * lu(k,1343) - lu(k,1370) = lu(k,1370) - lu(k,341) * lu(k,1343) - lu(k,1373) = lu(k,1373) - lu(k,342) * lu(k,1343) - lu(k,1376) = lu(k,1376) - lu(k,343) * lu(k,1343) - lu(k,1378) = - lu(k,344) * lu(k,1343) - lu(k,1381) = - lu(k,345) * lu(k,1343) - lu(k,1383) = lu(k,1383) - lu(k,346) * lu(k,1343) - lu(k,1384) = lu(k,1384) - lu(k,347) * lu(k,1343) - lu(k,1585) = lu(k,1585) - lu(k,336) * lu(k,1571) - lu(k,1588) = - lu(k,337) * lu(k,1571) - lu(k,1589) = - lu(k,338) * lu(k,1571) - lu(k,1591) = - lu(k,339) * lu(k,1571) - lu(k,1592) = - lu(k,340) * lu(k,1571) - lu(k,1596) = lu(k,1596) - lu(k,341) * lu(k,1571) - lu(k,1599) = - lu(k,342) * lu(k,1571) - lu(k,1602) = lu(k,1602) - lu(k,343) * lu(k,1571) - lu(k,1604) = lu(k,1604) - lu(k,344) * lu(k,1571) - lu(k,1607) = lu(k,1607) - lu(k,345) * lu(k,1571) - lu(k,1609) = lu(k,1609) - lu(k,346) * lu(k,1571) - lu(k,1610) = lu(k,1610) - lu(k,347) * lu(k,1571) - lu(k,1617) = lu(k,1617) - lu(k,336) * lu(k,1612) - lu(k,1620) = - lu(k,337) * lu(k,1612) - lu(k,1621) = - lu(k,338) * lu(k,1612) - lu(k,1623) = - lu(k,339) * lu(k,1612) - lu(k,1624) = - lu(k,340) * lu(k,1612) - lu(k,1628) = lu(k,1628) - lu(k,341) * lu(k,1612) - lu(k,1631) = - lu(k,342) * lu(k,1612) - lu(k,1634) = lu(k,1634) - lu(k,343) * lu(k,1612) - lu(k,1636) = - lu(k,344) * lu(k,1612) - lu(k,1639) = - lu(k,345) * lu(k,1612) - lu(k,1641) = lu(k,1641) - lu(k,346) * lu(k,1612) - lu(k,1642) = lu(k,1642) - lu(k,347) * lu(k,1612) - lu(k,1694) = lu(k,1694) - lu(k,336) * lu(k,1680) - lu(k,1697) = - lu(k,337) * lu(k,1680) - lu(k,1698) = - lu(k,338) * lu(k,1680) - lu(k,1700) = lu(k,1700) - lu(k,339) * lu(k,1680) - lu(k,1701) = - lu(k,340) * lu(k,1680) - lu(k,1705) = lu(k,1705) - lu(k,341) * lu(k,1680) - lu(k,1708) = - lu(k,342) * lu(k,1680) - lu(k,1711) = lu(k,1711) - lu(k,343) * lu(k,1680) - lu(k,1713) = lu(k,1713) - lu(k,344) * lu(k,1680) - lu(k,1716) = lu(k,1716) - lu(k,345) * lu(k,1680) - lu(k,1718) = lu(k,1718) - lu(k,346) * lu(k,1680) - lu(k,1719) = lu(k,1719) - lu(k,347) * lu(k,1680) - end do + real(r8), intent(inout) :: lu(:) + lu(335) = 1._r8 / lu(335) + lu(336) = lu(336) * lu(335) + lu(337) = lu(337) * lu(335) + lu(338) = lu(338) * lu(335) + lu(339) = lu(339) * lu(335) + lu(340) = lu(340) * lu(335) + lu(341) = lu(341) * lu(335) + lu(342) = lu(342) * lu(335) + lu(343) = lu(343) * lu(335) + lu(344) = lu(344) * lu(335) + lu(345) = lu(345) * lu(335) + lu(346) = lu(346) * lu(335) + lu(347) = lu(347) * lu(335) + lu(905) = lu(905) - lu(336) * lu(891) + lu(908) = lu(908) - lu(337) * lu(891) + lu(909) = - lu(338) * lu(891) + lu(910) = - lu(339) * lu(891) + lu(911) = lu(911) - lu(340) * lu(891) + lu(913) = - lu(341) * lu(891) + lu(914) = - lu(342) * lu(891) + lu(919) = - lu(343) * lu(891) + lu(921) = lu(921) - lu(344) * lu(891) + lu(923) = lu(923) - lu(345) * lu(891) + lu(927) = - lu(346) * lu(891) + lu(930) = lu(930) - lu(347) * lu(891) + lu(952) = lu(952) - lu(336) * lu(937) + lu(955) = - lu(337) * lu(937) + lu(956) = lu(956) - lu(338) * lu(937) + lu(957) = - lu(339) * lu(937) + lu(958) = lu(958) - lu(340) * lu(937) + lu(960) = lu(960) - lu(341) * lu(937) + lu(961) = lu(961) - lu(342) * lu(937) + lu(966) = lu(966) - lu(343) * lu(937) + lu(968) = lu(968) - lu(344) * lu(937) + lu(970) = - lu(345) * lu(937) + lu(974) = - lu(346) * lu(937) + lu(977) = lu(977) - lu(347) * lu(937) + lu(994) = lu(994) - lu(336) * lu(980) + lu(997) = lu(997) - lu(337) * lu(980) + lu(998) = - lu(338) * lu(980) + lu(999) = lu(999) - lu(339) * lu(980) + lu(1000) = lu(1000) - lu(340) * lu(980) + lu(1002) = - lu(341) * lu(980) + lu(1003) = lu(1003) - lu(342) * lu(980) + lu(1008) = - lu(343) * lu(980) + lu(1010) = - lu(344) * lu(980) + lu(1012) = - lu(345) * lu(980) + lu(1016) = - lu(346) * lu(980) + lu(1019) = lu(1019) - lu(347) * lu(980) + lu(1130) = lu(1130) - lu(336) * lu(1116) + lu(1133) = lu(1133) - lu(337) * lu(1116) + lu(1134) = - lu(338) * lu(1116) + lu(1135) = lu(1135) - lu(339) * lu(1116) + lu(1136) = lu(1136) - lu(340) * lu(1116) + lu(1138) = lu(1138) - lu(341) * lu(1116) + lu(1139) = lu(1139) - lu(342) * lu(1116) + lu(1144) = - lu(343) * lu(1116) + lu(1146) = lu(1146) - lu(344) * lu(1116) + lu(1148) = - lu(345) * lu(1116) + lu(1152) = - lu(346) * lu(1116) + lu(1155) = lu(1155) - lu(347) * lu(1116) + lu(1395) = lu(1395) - lu(336) * lu(1379) + lu(1398) = lu(1398) - lu(337) * lu(1379) + lu(1399) = lu(1399) - lu(338) * lu(1379) + lu(1400) = - lu(339) * lu(1379) + lu(1401) = lu(1401) - lu(340) * lu(1379) + lu(1403) = - lu(341) * lu(1379) + lu(1404) = lu(1404) - lu(342) * lu(1379) + lu(1409) = lu(1409) - lu(343) * lu(1379) + lu(1411) = lu(1411) - lu(344) * lu(1379) + lu(1413) = - lu(345) * lu(1379) + lu(1417) = - lu(346) * lu(1379) + lu(1420) = lu(1420) - lu(347) * lu(1379) + lu(1557) = lu(1557) - lu(336) * lu(1543) + lu(1560) = lu(1560) - lu(337) * lu(1543) + lu(1561) = - lu(338) * lu(1543) + lu(1562) = - lu(339) * lu(1543) + lu(1563) = lu(1563) - lu(340) * lu(1543) + lu(1565) = - lu(341) * lu(1543) + lu(1566) = lu(1566) - lu(342) * lu(1543) + lu(1571) = - lu(343) * lu(1543) + lu(1573) = lu(1573) - lu(344) * lu(1543) + lu(1575) = lu(1575) - lu(345) * lu(1543) + lu(1579) = lu(1579) - lu(346) * lu(1543) + lu(1582) = lu(1582) - lu(347) * lu(1543) + lu(1628) = lu(1628) - lu(336) * lu(1623) + lu(1631) = - lu(337) * lu(1623) + lu(1632) = - lu(338) * lu(1623) + lu(1633) = - lu(339) * lu(1623) + lu(1634) = lu(1634) - lu(340) * lu(1623) + lu(1636) = - lu(341) * lu(1623) + lu(1637) = lu(1637) - lu(342) * lu(1623) + lu(1642) = - lu(343) * lu(1623) + lu(1644) = lu(1644) - lu(344) * lu(1623) + lu(1646) = - lu(345) * lu(1623) + lu(1650) = - lu(346) * lu(1623) + lu(1653) = lu(1653) - lu(347) * lu(1623) + lu(1705) = lu(1705) - lu(336) * lu(1691) + lu(1708) = - lu(337) * lu(1691) + lu(1709) = - lu(338) * lu(1691) + lu(1710) = - lu(339) * lu(1691) + lu(1711) = lu(1711) - lu(340) * lu(1691) + lu(1713) = - lu(341) * lu(1691) + lu(1714) = lu(1714) - lu(342) * lu(1691) + lu(1719) = - lu(343) * lu(1691) + lu(1721) = lu(1721) - lu(344) * lu(1691) + lu(1723) = lu(1723) - lu(345) * lu(1691) + lu(1727) = lu(1727) - lu(346) * lu(1691) + lu(1730) = lu(1730) - lu(347) * lu(1691) end subroutine lu_fac09 - subroutine lu_fac10( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac10( lu ) 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,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,355) = lu(k,355) * lu(k,350) - lu(k,356) = lu(k,356) * lu(k,350) - lu(k,357) = lu(k,357) * lu(k,350) - lu(k,358) = lu(k,358) * lu(k,350) - lu(k,359) = lu(k,359) * lu(k,350) - lu(k,360) = lu(k,360) * lu(k,350) - lu(k,361) = lu(k,361) * lu(k,350) - lu(k,639) = lu(k,639) - lu(k,351) * lu(k,632) - lu(k,641) = - lu(k,352) * lu(k,632) - lu(k,644) = lu(k,644) - lu(k,353) * lu(k,632) - lu(k,645) = lu(k,645) - lu(k,354) * lu(k,632) - lu(k,647) = lu(k,647) - lu(k,355) * lu(k,632) - lu(k,648) = lu(k,648) - lu(k,356) * lu(k,632) - lu(k,649) = lu(k,649) - lu(k,357) * lu(k,632) - lu(k,652) = lu(k,652) - lu(k,358) * lu(k,632) - lu(k,654) = lu(k,654) - lu(k,359) * lu(k,632) - lu(k,656) = lu(k,656) - lu(k,360) * lu(k,632) - lu(k,657) = lu(k,657) - lu(k,361) * lu(k,632) - lu(k,1192) = lu(k,1192) - lu(k,351) * lu(k,1181) - lu(k,1198) = - lu(k,352) * lu(k,1181) - lu(k,1202) = lu(k,1202) - lu(k,353) * lu(k,1181) - lu(k,1203) = lu(k,1203) - lu(k,354) * lu(k,1181) - lu(k,1205) = lu(k,1205) - lu(k,355) * lu(k,1181) - lu(k,1206) = lu(k,1206) - lu(k,356) * lu(k,1181) - lu(k,1207) = lu(k,1207) - lu(k,357) * lu(k,1181) - lu(k,1210) = lu(k,1210) - lu(k,358) * lu(k,1181) - lu(k,1213) = lu(k,1213) - lu(k,359) * lu(k,1181) - lu(k,1216) = lu(k,1216) - lu(k,360) * lu(k,1181) - lu(k,1217) = lu(k,1217) - lu(k,361) * lu(k,1181) - lu(k,1241) = lu(k,1241) - lu(k,351) * lu(k,1230) - lu(k,1247) = - lu(k,352) * lu(k,1230) - lu(k,1251) = lu(k,1251) - lu(k,353) * lu(k,1230) - lu(k,1252) = lu(k,1252) - lu(k,354) * lu(k,1230) - lu(k,1254) = lu(k,1254) - lu(k,355) * lu(k,1230) - lu(k,1255) = lu(k,1255) - lu(k,356) * lu(k,1230) - lu(k,1256) = lu(k,1256) - lu(k,357) * lu(k,1230) - lu(k,1259) = lu(k,1259) - lu(k,358) * lu(k,1230) - lu(k,1262) = lu(k,1262) - lu(k,359) * lu(k,1230) - lu(k,1265) = lu(k,1265) - lu(k,360) * lu(k,1230) - lu(k,1266) = lu(k,1266) - lu(k,361) * lu(k,1230) - lu(k,1315) = - lu(k,351) * lu(k,1309) - lu(k,1321) = lu(k,1321) - lu(k,352) * lu(k,1309) - lu(k,1325) = lu(k,1325) - lu(k,353) * lu(k,1309) - lu(k,1326) = lu(k,1326) - lu(k,354) * lu(k,1309) - lu(k,1328) = lu(k,1328) - lu(k,355) * lu(k,1309) - lu(k,1329) = lu(k,1329) - lu(k,356) * lu(k,1309) - lu(k,1330) = lu(k,1330) - lu(k,357) * lu(k,1309) - lu(k,1333) = lu(k,1333) - lu(k,358) * lu(k,1309) - lu(k,1336) = lu(k,1336) - lu(k,359) * lu(k,1309) - lu(k,1339) = lu(k,1339) - lu(k,360) * lu(k,1309) - lu(k,1340) = lu(k,1340) - lu(k,361) * lu(k,1309) - lu(k,1359) = lu(k,1359) - lu(k,351) * lu(k,1344) - lu(k,1365) = lu(k,1365) - lu(k,352) * lu(k,1344) - lu(k,1369) = - lu(k,353) * lu(k,1344) - lu(k,1370) = lu(k,1370) - lu(k,354) * lu(k,1344) - lu(k,1372) = lu(k,1372) - lu(k,355) * lu(k,1344) - lu(k,1373) = lu(k,1373) - lu(k,356) * lu(k,1344) - lu(k,1374) = lu(k,1374) - lu(k,357) * lu(k,1344) - lu(k,1377) = lu(k,1377) - lu(k,358) * lu(k,1344) - lu(k,1380) = - lu(k,359) * lu(k,1344) - lu(k,1383) = lu(k,1383) - lu(k,360) * lu(k,1344) - lu(k,1384) = lu(k,1384) - lu(k,361) * lu(k,1344) - lu(k,1418) = lu(k,1418) - lu(k,351) * lu(k,1406) - lu(k,1424) = - lu(k,352) * lu(k,1406) - lu(k,1428) = lu(k,1428) - lu(k,353) * lu(k,1406) - lu(k,1429) = lu(k,1429) - lu(k,354) * lu(k,1406) - lu(k,1431) = lu(k,1431) - lu(k,355) * lu(k,1406) - lu(k,1432) = lu(k,1432) - lu(k,356) * lu(k,1406) - lu(k,1433) = lu(k,1433) - lu(k,357) * lu(k,1406) - lu(k,1436) = lu(k,1436) - lu(k,358) * lu(k,1406) - lu(k,1439) = lu(k,1439) - lu(k,359) * lu(k,1406) - lu(k,1442) = lu(k,1442) - lu(k,360) * lu(k,1406) - lu(k,1443) = lu(k,1443) - lu(k,361) * lu(k,1406) - lu(k,1545) = lu(k,1545) - lu(k,351) * lu(k,1542) - lu(k,1549) = lu(k,1549) - lu(k,352) * lu(k,1542) - lu(k,1553) = lu(k,1553) - lu(k,353) * lu(k,1542) - lu(k,1554) = lu(k,1554) - lu(k,354) * lu(k,1542) - lu(k,1556) = lu(k,1556) - lu(k,355) * lu(k,1542) - lu(k,1557) = lu(k,1557) - lu(k,356) * lu(k,1542) - lu(k,1558) = lu(k,1558) - lu(k,357) * lu(k,1542) - lu(k,1561) = lu(k,1561) - lu(k,358) * lu(k,1542) - lu(k,1564) = lu(k,1564) - lu(k,359) * lu(k,1542) - lu(k,1567) = lu(k,1567) - lu(k,360) * lu(k,1542) - lu(k,1568) = lu(k,1568) - lu(k,361) * lu(k,1542) - lu(k,1652) = lu(k,1652) - lu(k,351) * lu(k,1644) - lu(k,1658) = - lu(k,352) * lu(k,1644) - lu(k,1662) = lu(k,1662) - lu(k,353) * lu(k,1644) - lu(k,1663) = lu(k,1663) - lu(k,354) * lu(k,1644) - lu(k,1665) = lu(k,1665) - lu(k,355) * lu(k,1644) - lu(k,1666) = lu(k,1666) - lu(k,356) * lu(k,1644) - lu(k,1667) = lu(k,1667) - lu(k,357) * lu(k,1644) - lu(k,1670) = lu(k,1670) - lu(k,358) * lu(k,1644) - lu(k,1673) = lu(k,1673) - lu(k,359) * lu(k,1644) - lu(k,1676) = lu(k,1676) - lu(k,360) * lu(k,1644) - lu(k,1677) = lu(k,1677) - lu(k,361) * lu(k,1644) - lu(k,1831) = lu(k,1831) - lu(k,351) * lu(k,1815) - lu(k,1837) = lu(k,1837) - lu(k,352) * lu(k,1815) - lu(k,1841) = - lu(k,353) * lu(k,1815) - lu(k,1842) = lu(k,1842) - lu(k,354) * lu(k,1815) - lu(k,1844) = - lu(k,355) * lu(k,1815) - lu(k,1845) = lu(k,1845) - lu(k,356) * lu(k,1815) - lu(k,1846) = lu(k,1846) - lu(k,357) * lu(k,1815) - lu(k,1849) = lu(k,1849) - lu(k,358) * lu(k,1815) - lu(k,1852) = lu(k,1852) - lu(k,359) * lu(k,1815) - lu(k,1855) = lu(k,1855) - lu(k,360) * lu(k,1815) - lu(k,1856) = lu(k,1856) - lu(k,361) * lu(k,1815) - 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,367) = lu(k,367) * lu(k,362) - lu(k,368) = lu(k,368) * lu(k,362) - lu(k,369) = lu(k,369) * lu(k,362) - lu(k,370) = lu(k,370) * lu(k,362) - lu(k,371) = lu(k,371) * lu(k,362) - lu(k,372) = lu(k,372) * lu(k,362) - lu(k,373) = lu(k,373) * lu(k,362) - lu(k,374) = lu(k,374) * lu(k,362) - lu(k,375) = lu(k,375) * lu(k,362) - lu(k,539) = lu(k,539) - lu(k,363) * lu(k,537) - lu(k,544) = lu(k,544) - lu(k,364) * lu(k,537) - lu(k,545) = lu(k,545) - lu(k,365) * lu(k,537) - lu(k,547) = lu(k,547) - lu(k,366) * lu(k,537) - lu(k,548) = lu(k,548) - lu(k,367) * lu(k,537) - lu(k,549) = lu(k,549) - lu(k,368) * lu(k,537) - lu(k,550) = lu(k,550) - lu(k,369) * lu(k,537) - lu(k,551) = lu(k,551) - lu(k,370) * lu(k,537) - lu(k,552) = lu(k,552) - lu(k,371) * lu(k,537) - lu(k,553) = lu(k,553) - lu(k,372) * lu(k,537) - lu(k,554) = lu(k,554) - lu(k,373) * lu(k,537) - lu(k,555) = lu(k,555) - lu(k,374) * lu(k,537) - lu(k,556) = lu(k,556) - lu(k,375) * lu(k,537) - lu(k,890) = lu(k,890) - lu(k,363) * lu(k,883) - lu(k,900) = lu(k,900) - lu(k,364) * lu(k,883) - lu(k,901) = lu(k,901) - lu(k,365) * lu(k,883) - lu(k,903) = lu(k,903) - lu(k,366) * lu(k,883) - lu(k,904) = lu(k,904) - lu(k,367) * lu(k,883) - lu(k,908) = lu(k,908) - lu(k,368) * lu(k,883) - lu(k,911) = lu(k,911) - lu(k,369) * lu(k,883) - lu(k,912) = lu(k,912) - lu(k,370) * lu(k,883) - lu(k,914) = lu(k,914) - lu(k,371) * lu(k,883) - lu(k,916) = lu(k,916) - lu(k,372) * lu(k,883) - lu(k,919) = lu(k,919) - lu(k,373) * lu(k,883) - lu(k,921) = lu(k,921) - lu(k,374) * lu(k,883) - lu(k,922) = lu(k,922) - lu(k,375) * lu(k,883) - lu(k,933) = lu(k,933) - lu(k,363) * lu(k,926) - lu(k,942) = lu(k,942) - lu(k,364) * lu(k,926) - lu(k,943) = lu(k,943) - lu(k,365) * lu(k,926) - lu(k,945) = lu(k,945) - lu(k,366) * lu(k,926) - lu(k,946) = lu(k,946) - lu(k,367) * lu(k,926) - lu(k,950) = lu(k,950) - lu(k,368) * lu(k,926) - lu(k,953) = lu(k,953) - lu(k,369) * lu(k,926) - lu(k,954) = lu(k,954) - lu(k,370) * lu(k,926) - lu(k,956) = lu(k,956) - lu(k,371) * lu(k,926) - lu(k,958) = lu(k,958) - lu(k,372) * lu(k,926) - lu(k,961) = lu(k,961) - lu(k,373) * lu(k,926) - lu(k,963) = lu(k,963) - lu(k,374) * lu(k,926) - lu(k,964) = lu(k,964) - lu(k,375) * lu(k,926) - lu(k,1021) = lu(k,1021) - lu(k,363) * lu(k,1014) - lu(k,1030) = lu(k,1030) - lu(k,364) * lu(k,1014) - lu(k,1031) = lu(k,1031) - lu(k,365) * lu(k,1014) - lu(k,1033) = lu(k,1033) - lu(k,366) * lu(k,1014) - lu(k,1034) = lu(k,1034) - lu(k,367) * lu(k,1014) - lu(k,1038) = lu(k,1038) - lu(k,368) * lu(k,1014) - lu(k,1041) = lu(k,1041) - lu(k,369) * lu(k,1014) - lu(k,1042) = lu(k,1042) - lu(k,370) * lu(k,1014) - lu(k,1044) = lu(k,1044) - lu(k,371) * lu(k,1014) - lu(k,1046) = lu(k,1046) - lu(k,372) * lu(k,1014) - lu(k,1049) = lu(k,1049) - lu(k,373) * lu(k,1014) - lu(k,1051) = lu(k,1051) - lu(k,374) * lu(k,1014) - lu(k,1052) = lu(k,1052) - lu(k,375) * lu(k,1014) - lu(k,1062) = lu(k,1062) - lu(k,363) * lu(k,1055) - lu(k,1071) = lu(k,1071) - lu(k,364) * lu(k,1055) - lu(k,1072) = lu(k,1072) - lu(k,365) * lu(k,1055) - lu(k,1074) = lu(k,1074) - lu(k,366) * lu(k,1055) - lu(k,1075) = lu(k,1075) - lu(k,367) * lu(k,1055) - lu(k,1079) = lu(k,1079) - lu(k,368) * lu(k,1055) - lu(k,1082) = lu(k,1082) - lu(k,369) * lu(k,1055) - lu(k,1083) = lu(k,1083) - lu(k,370) * lu(k,1055) - lu(k,1085) = lu(k,1085) - lu(k,371) * lu(k,1055) - lu(k,1087) = lu(k,1087) - lu(k,372) * lu(k,1055) - lu(k,1090) = lu(k,1090) - lu(k,373) * lu(k,1055) - lu(k,1092) = lu(k,1092) - lu(k,374) * lu(k,1055) - lu(k,1093) = lu(k,1093) - lu(k,375) * lu(k,1055) - lu(k,1352) = lu(k,1352) - lu(k,363) * lu(k,1345) - lu(k,1362) = lu(k,1362) - lu(k,364) * lu(k,1345) - lu(k,1363) = lu(k,1363) - lu(k,365) * lu(k,1345) - lu(k,1365) = lu(k,1365) - lu(k,366) * lu(k,1345) - lu(k,1366) = lu(k,1366) - lu(k,367) * lu(k,1345) - lu(k,1370) = lu(k,1370) - lu(k,368) * lu(k,1345) - lu(k,1373) = lu(k,1373) - lu(k,369) * lu(k,1345) - lu(k,1374) = lu(k,1374) - lu(k,370) * lu(k,1345) - lu(k,1376) = lu(k,1376) - lu(k,371) * lu(k,1345) - lu(k,1378) = lu(k,1378) - lu(k,372) * lu(k,1345) - lu(k,1381) = lu(k,1381) - lu(k,373) * lu(k,1345) - lu(k,1383) = lu(k,1383) - lu(k,374) * lu(k,1345) - lu(k,1384) = lu(k,1384) - lu(k,375) * lu(k,1345) - lu(k,1579) = lu(k,1579) - lu(k,363) * lu(k,1572) - lu(k,1588) = lu(k,1588) - lu(k,364) * lu(k,1572) - lu(k,1589) = lu(k,1589) - lu(k,365) * lu(k,1572) - lu(k,1591) = lu(k,1591) - lu(k,366) * lu(k,1572) - lu(k,1592) = lu(k,1592) - lu(k,367) * lu(k,1572) - lu(k,1596) = lu(k,1596) - lu(k,368) * lu(k,1572) - lu(k,1599) = lu(k,1599) - lu(k,369) * lu(k,1572) - lu(k,1600) = lu(k,1600) - lu(k,370) * lu(k,1572) - lu(k,1602) = lu(k,1602) - lu(k,371) * lu(k,1572) - lu(k,1604) = lu(k,1604) - lu(k,372) * lu(k,1572) - lu(k,1607) = lu(k,1607) - lu(k,373) * lu(k,1572) - lu(k,1609) = lu(k,1609) - lu(k,374) * lu(k,1572) - lu(k,1610) = lu(k,1610) - lu(k,375) * lu(k,1572) - lu(k,1688) = lu(k,1688) - lu(k,363) * lu(k,1681) - lu(k,1697) = lu(k,1697) - lu(k,364) * lu(k,1681) - lu(k,1698) = lu(k,1698) - lu(k,365) * lu(k,1681) - lu(k,1700) = lu(k,1700) - lu(k,366) * lu(k,1681) - lu(k,1701) = lu(k,1701) - lu(k,367) * lu(k,1681) - lu(k,1705) = lu(k,1705) - lu(k,368) * lu(k,1681) - lu(k,1708) = lu(k,1708) - lu(k,369) * lu(k,1681) - lu(k,1709) = lu(k,1709) - lu(k,370) * lu(k,1681) - lu(k,1711) = lu(k,1711) - lu(k,371) * lu(k,1681) - lu(k,1713) = lu(k,1713) - lu(k,372) * lu(k,1681) - lu(k,1716) = lu(k,1716) - lu(k,373) * lu(k,1681) - lu(k,1718) = lu(k,1718) - lu(k,374) * lu(k,1681) - lu(k,1719) = lu(k,1719) - lu(k,375) * lu(k,1681) - lu(k,1823) = lu(k,1823) - lu(k,363) * lu(k,1816) - lu(k,1834) = lu(k,1834) - lu(k,364) * lu(k,1816) - lu(k,1835) = lu(k,1835) - lu(k,365) * lu(k,1816) - lu(k,1837) = lu(k,1837) - lu(k,366) * lu(k,1816) - lu(k,1838) = lu(k,1838) - lu(k,367) * lu(k,1816) - lu(k,1842) = lu(k,1842) - lu(k,368) * lu(k,1816) - lu(k,1845) = lu(k,1845) - lu(k,369) * lu(k,1816) - lu(k,1846) = lu(k,1846) - lu(k,370) * lu(k,1816) - lu(k,1848) = lu(k,1848) - lu(k,371) * lu(k,1816) - lu(k,1850) = lu(k,1850) - lu(k,372) * lu(k,1816) - lu(k,1853) = lu(k,1853) - lu(k,373) * lu(k,1816) - lu(k,1855) = lu(k,1855) - lu(k,374) * lu(k,1816) - lu(k,1856) = lu(k,1856) - lu(k,375) * lu(k,1816) - 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,387) = lu(k,387) * lu(k,379) - lu(k,388) = lu(k,388) * lu(k,379) - lu(k,389) = lu(k,389) * lu(k,379) - lu(k,390) = lu(k,390) * lu(k,379) - lu(k,391) = lu(k,391) * lu(k,379) - lu(k,392) = lu(k,392) * lu(k,379) - lu(k,583) = lu(k,583) - lu(k,380) * lu(k,582) - lu(k,584) = lu(k,584) - lu(k,381) * lu(k,582) - lu(k,587) = lu(k,587) - lu(k,382) * lu(k,582) - lu(k,588) = lu(k,588) - lu(k,383) * lu(k,582) - lu(k,589) = lu(k,589) - lu(k,384) * lu(k,582) - lu(k,592) = - lu(k,385) * lu(k,582) - lu(k,593) = lu(k,593) - lu(k,386) * lu(k,582) - lu(k,595) = lu(k,595) - lu(k,387) * lu(k,582) - lu(k,596) = lu(k,596) - lu(k,388) * lu(k,582) - lu(k,597) = lu(k,597) - lu(k,389) * lu(k,582) - lu(k,598) = lu(k,598) - lu(k,390) * lu(k,582) - lu(k,599) = - lu(k,391) * lu(k,582) - lu(k,600) = lu(k,600) - lu(k,392) * lu(k,582) - lu(k,788) = lu(k,788) - lu(k,380) * lu(k,787) - lu(k,790) = lu(k,790) - lu(k,381) * lu(k,787) - lu(k,793) = lu(k,793) - lu(k,382) * lu(k,787) - lu(k,794) = lu(k,794) - lu(k,383) * lu(k,787) - lu(k,796) = lu(k,796) - lu(k,384) * lu(k,787) - lu(k,801) = lu(k,801) - lu(k,385) * lu(k,787) - lu(k,802) = lu(k,802) - lu(k,386) * lu(k,787) - lu(k,806) = lu(k,806) - lu(k,387) * lu(k,787) - lu(k,807) = lu(k,807) - lu(k,388) * lu(k,787) - lu(k,808) = lu(k,808) - lu(k,389) * lu(k,787) - lu(k,812) = lu(k,812) - lu(k,390) * lu(k,787) - lu(k,813) = lu(k,813) - lu(k,391) * lu(k,787) - lu(k,814) = lu(k,814) - lu(k,392) * lu(k,787) - lu(k,974) = lu(k,974) - lu(k,380) * lu(k,972) - lu(k,979) = lu(k,979) - lu(k,381) * lu(k,972) - lu(k,984) = lu(k,984) - lu(k,382) * lu(k,972) - lu(k,985) = lu(k,985) - lu(k,383) * lu(k,972) - lu(k,990) = lu(k,990) - lu(k,384) * lu(k,972) - lu(k,995) = lu(k,995) - lu(k,385) * lu(k,972) - lu(k,996) = lu(k,996) - lu(k,386) * lu(k,972) - lu(k,1000) = lu(k,1000) - lu(k,387) * lu(k,972) - lu(k,1001) = lu(k,1001) - lu(k,388) * lu(k,972) - lu(k,1002) = lu(k,1002) - lu(k,389) * lu(k,972) - lu(k,1008) = lu(k,1008) - lu(k,390) * lu(k,972) - lu(k,1009) = lu(k,1009) - lu(k,391) * lu(k,972) - lu(k,1010) = lu(k,1010) - lu(k,392) * lu(k,972) - lu(k,1099) = - lu(k,380) * lu(k,1098) - lu(k,1103) = - lu(k,381) * lu(k,1098) - lu(k,1107) = lu(k,1107) - lu(k,382) * lu(k,1098) - lu(k,1108) = lu(k,1108) - lu(k,383) * lu(k,1098) - lu(k,1112) = lu(k,1112) - lu(k,384) * lu(k,1098) - lu(k,1117) = - lu(k,385) * lu(k,1098) - lu(k,1118) = lu(k,1118) - lu(k,386) * lu(k,1098) - lu(k,1122) = lu(k,1122) - lu(k,387) * lu(k,1098) - lu(k,1123) = - lu(k,388) * lu(k,1098) - lu(k,1124) = lu(k,1124) - lu(k,389) * lu(k,1098) - lu(k,1130) = - lu(k,390) * lu(k,1098) - lu(k,1131) = lu(k,1131) - lu(k,391) * lu(k,1098) - lu(k,1132) = lu(k,1132) - lu(k,392) * lu(k,1098) - lu(k,1184) = lu(k,1184) - lu(k,380) * lu(k,1182) - lu(k,1185) = lu(k,1185) - lu(k,381) * lu(k,1182) - lu(k,1191) = lu(k,1191) - lu(k,382) * lu(k,1182) - lu(k,1192) = lu(k,1192) - lu(k,383) * lu(k,1182) - lu(k,1197) = lu(k,1197) - lu(k,384) * lu(k,1182) - lu(k,1202) = lu(k,1202) - lu(k,385) * lu(k,1182) - lu(k,1203) = lu(k,1203) - lu(k,386) * lu(k,1182) - lu(k,1207) = lu(k,1207) - lu(k,387) * lu(k,1182) - lu(k,1208) = lu(k,1208) - lu(k,388) * lu(k,1182) - lu(k,1209) = lu(k,1209) - lu(k,389) * lu(k,1182) - lu(k,1215) = lu(k,1215) - lu(k,390) * lu(k,1182) - lu(k,1216) = lu(k,1216) - lu(k,391) * lu(k,1182) - lu(k,1217) = lu(k,1217) - lu(k,392) * lu(k,1182) - lu(k,1233) = - lu(k,380) * lu(k,1231) - lu(k,1234) = - lu(k,381) * lu(k,1231) - lu(k,1240) = lu(k,1240) - lu(k,382) * lu(k,1231) - lu(k,1241) = lu(k,1241) - lu(k,383) * lu(k,1231) - lu(k,1246) = lu(k,1246) - lu(k,384) * lu(k,1231) - lu(k,1251) = lu(k,1251) - lu(k,385) * lu(k,1231) - lu(k,1252) = lu(k,1252) - lu(k,386) * lu(k,1231) - lu(k,1256) = lu(k,1256) - lu(k,387) * lu(k,1231) - lu(k,1257) = - lu(k,388) * lu(k,1231) - lu(k,1258) = lu(k,1258) - lu(k,389) * lu(k,1231) - lu(k,1264) = - lu(k,390) * lu(k,1231) - lu(k,1265) = lu(k,1265) - lu(k,391) * lu(k,1231) - lu(k,1266) = lu(k,1266) - lu(k,392) * lu(k,1231) - lu(k,1409) = lu(k,1409) - lu(k,380) * lu(k,1407) - lu(k,1411) = lu(k,1411) - lu(k,381) * lu(k,1407) - lu(k,1417) = lu(k,1417) - lu(k,382) * lu(k,1407) - lu(k,1418) = lu(k,1418) - lu(k,383) * lu(k,1407) - lu(k,1423) = lu(k,1423) - lu(k,384) * lu(k,1407) - lu(k,1428) = lu(k,1428) - lu(k,385) * lu(k,1407) - lu(k,1429) = lu(k,1429) - lu(k,386) * lu(k,1407) - lu(k,1433) = lu(k,1433) - lu(k,387) * lu(k,1407) - lu(k,1434) = lu(k,1434) - lu(k,388) * lu(k,1407) - lu(k,1435) = lu(k,1435) - lu(k,389) * lu(k,1407) - lu(k,1441) = lu(k,1441) - lu(k,390) * lu(k,1407) - lu(k,1442) = lu(k,1442) - lu(k,391) * lu(k,1407) - lu(k,1443) = lu(k,1443) - lu(k,392) * lu(k,1407) - lu(k,1730) = lu(k,1730) - lu(k,380) * lu(k,1729) - lu(k,1731) = lu(k,1731) - lu(k,381) * lu(k,1729) - lu(k,1737) = lu(k,1737) - lu(k,382) * lu(k,1729) - lu(k,1738) = lu(k,1738) - lu(k,383) * lu(k,1729) - lu(k,1743) = lu(k,1743) - lu(k,384) * lu(k,1729) - lu(k,1748) = - lu(k,385) * lu(k,1729) - lu(k,1749) = lu(k,1749) - lu(k,386) * lu(k,1729) - lu(k,1753) = lu(k,1753) - lu(k,387) * lu(k,1729) - lu(k,1754) = lu(k,1754) - lu(k,388) * lu(k,1729) - lu(k,1755) = lu(k,1755) - lu(k,389) * lu(k,1729) - lu(k,1761) = lu(k,1761) - lu(k,390) * lu(k,1729) - lu(k,1762) = lu(k,1762) - lu(k,391) * lu(k,1729) - lu(k,1763) = lu(k,1763) - lu(k,392) * lu(k,1729) - lu(k,1820) = - lu(k,380) * lu(k,1817) - lu(k,1825) = - lu(k,381) * lu(k,1817) - lu(k,1830) = lu(k,1830) - lu(k,382) * lu(k,1817) - lu(k,1831) = lu(k,1831) - lu(k,383) * lu(k,1817) - lu(k,1836) = lu(k,1836) - lu(k,384) * lu(k,1817) - lu(k,1841) = lu(k,1841) - lu(k,385) * lu(k,1817) - lu(k,1842) = lu(k,1842) - lu(k,386) * lu(k,1817) - lu(k,1846) = lu(k,1846) - lu(k,387) * lu(k,1817) - lu(k,1847) = lu(k,1847) - lu(k,388) * lu(k,1817) - lu(k,1848) = lu(k,1848) - lu(k,389) * lu(k,1817) - lu(k,1854) = lu(k,1854) - lu(k,390) * lu(k,1817) - lu(k,1855) = lu(k,1855) - lu(k,391) * lu(k,1817) - lu(k,1856) = lu(k,1856) - lu(k,392) * lu(k,1817) - end do + real(r8), intent(inout) :: lu(:) + lu(350) = 1._r8 / lu(350) + lu(351) = lu(351) * lu(350) + lu(352) = lu(352) * lu(350) + lu(353) = lu(353) * lu(350) + lu(354) = lu(354) * lu(350) + lu(355) = lu(355) * lu(350) + lu(356) = lu(356) * lu(350) + lu(357) = lu(357) * lu(350) + lu(358) = lu(358) * lu(350) + lu(359) = lu(359) * lu(350) + lu(360) = lu(360) * lu(350) + lu(361) = lu(361) * lu(350) + lu(639) = lu(639) - lu(351) * lu(632) + lu(640) = lu(640) - lu(352) * lu(632) + lu(641) = - lu(353) * lu(632) + lu(642) = lu(642) - lu(354) * lu(632) + lu(645) = lu(645) - lu(355) * lu(632) + lu(648) = lu(648) - lu(356) * lu(632) + lu(649) = lu(649) - lu(357) * lu(632) + lu(650) = lu(650) - lu(358) * lu(632) + lu(651) = lu(651) - lu(359) * lu(632) + lu(655) = lu(655) - lu(360) * lu(632) + lu(657) = lu(657) - lu(361) * lu(632) + lu(865) = lu(865) - lu(351) * lu(862) + lu(866) = lu(866) - lu(352) * lu(862) + lu(867) = lu(867) - lu(353) * lu(862) + lu(870) = lu(870) - lu(354) * lu(862) + lu(874) = lu(874) - lu(355) * lu(862) + lu(877) = lu(877) - lu(356) * lu(862) + lu(878) = lu(878) - lu(357) * lu(862) + lu(879) = lu(879) - lu(358) * lu(862) + lu(880) = lu(880) - lu(359) * lu(862) + lu(885) = lu(885) - lu(360) * lu(862) + lu(888) = lu(888) - lu(361) * lu(862) + lu(1043) = lu(1043) - lu(351) * lu(1032) + lu(1045) = lu(1045) - lu(352) * lu(1032) + lu(1046) = - lu(353) * lu(1032) + lu(1049) = lu(1049) - lu(354) * lu(1032) + lu(1053) = lu(1053) - lu(355) * lu(1032) + lu(1056) = lu(1056) - lu(356) * lu(1032) + lu(1057) = lu(1057) - lu(357) * lu(1032) + lu(1058) = lu(1058) - lu(358) * lu(1032) + lu(1059) = lu(1059) - lu(359) * lu(1032) + lu(1064) = lu(1064) - lu(360) * lu(1032) + lu(1068) = lu(1068) - lu(361) * lu(1032) + lu(1230) = lu(1230) - lu(351) * lu(1218) + lu(1232) = lu(1232) - lu(352) * lu(1218) + lu(1233) = - lu(353) * lu(1218) + lu(1236) = lu(1236) - lu(354) * lu(1218) + lu(1240) = lu(1240) - lu(355) * lu(1218) + lu(1243) = lu(1243) - lu(356) * lu(1218) + lu(1244) = lu(1244) - lu(357) * lu(1218) + lu(1245) = lu(1245) - lu(358) * lu(1218) + lu(1246) = lu(1246) - lu(359) * lu(1218) + lu(1251) = lu(1251) - lu(360) * lu(1218) + lu(1255) = lu(1255) - lu(361) * lu(1218) + lu(1351) = - lu(351) * lu(1345) + lu(1353) = lu(1353) - lu(352) * lu(1345) + lu(1354) = lu(1354) - lu(353) * lu(1345) + lu(1357) = lu(1357) - lu(354) * lu(1345) + lu(1361) = lu(1361) - lu(355) * lu(1345) + lu(1364) = lu(1364) - lu(356) * lu(1345) + lu(1365) = lu(1365) - lu(357) * lu(1345) + lu(1366) = lu(1366) - lu(358) * lu(1345) + lu(1367) = lu(1367) - lu(359) * lu(1345) + lu(1372) = lu(1372) - lu(360) * lu(1345) + lu(1376) = lu(1376) - lu(361) * lu(1345) + lu(1395) = lu(1395) - lu(351) * lu(1380) + lu(1397) = lu(1397) - lu(352) * lu(1380) + lu(1398) = lu(1398) - lu(353) * lu(1380) + lu(1401) = lu(1401) - lu(354) * lu(1380) + lu(1405) = lu(1405) - lu(355) * lu(1380) + lu(1408) = lu(1408) - lu(356) * lu(1380) + lu(1409) = lu(1409) - lu(357) * lu(1380) + lu(1410) = - lu(358) * lu(1380) + lu(1411) = lu(1411) - lu(359) * lu(1380) + lu(1416) = - lu(360) * lu(1380) + lu(1420) = lu(1420) - lu(361) * lu(1380) + lu(1436) = lu(1436) - lu(351) * lu(1425) + lu(1438) = lu(1438) - lu(352) * lu(1425) + lu(1439) = - lu(353) * lu(1425) + lu(1442) = lu(1442) - lu(354) * lu(1425) + lu(1446) = lu(1446) - lu(355) * lu(1425) + lu(1449) = lu(1449) - lu(356) * lu(1425) + lu(1450) = lu(1450) - lu(357) * lu(1425) + lu(1451) = lu(1451) - lu(358) * lu(1425) + lu(1452) = lu(1452) - lu(359) * lu(1425) + lu(1457) = lu(1457) - lu(360) * lu(1425) + lu(1461) = lu(1461) - lu(361) * lu(1425) + lu(1663) = lu(1663) - lu(351) * lu(1655) + lu(1665) = lu(1665) - lu(352) * lu(1655) + lu(1666) = - lu(353) * lu(1655) + lu(1669) = lu(1669) - lu(354) * lu(1655) + lu(1673) = lu(1673) - lu(355) * lu(1655) + lu(1676) = lu(1676) - lu(356) * lu(1655) + lu(1677) = lu(1677) - lu(357) * lu(1655) + lu(1678) = lu(1678) - lu(358) * lu(1655) + lu(1679) = lu(1679) - lu(359) * lu(1655) + lu(1684) = lu(1684) - lu(360) * lu(1655) + lu(1688) = lu(1688) - lu(361) * lu(1655) + lu(1831) = lu(1831) - lu(351) * lu(1815) + lu(1833) = lu(1833) - lu(352) * lu(1815) + lu(1834) = lu(1834) - lu(353) * lu(1815) + lu(1837) = lu(1837) - lu(354) * lu(1815) + lu(1841) = lu(1841) - lu(355) * lu(1815) + lu(1844) = - lu(356) * lu(1815) + lu(1845) = lu(1845) - lu(357) * lu(1815) + lu(1846) = - lu(358) * lu(1815) + lu(1847) = lu(1847) - lu(359) * lu(1815) + lu(1852) = lu(1852) - lu(360) * lu(1815) + lu(1856) = lu(1856) - lu(361) * lu(1815) + lu(362) = 1._r8 / lu(362) + lu(363) = lu(363) * lu(362) + lu(364) = lu(364) * lu(362) + lu(365) = lu(365) * lu(362) + lu(366) = lu(366) * lu(362) + lu(367) = lu(367) * lu(362) + lu(368) = lu(368) * lu(362) + lu(369) = lu(369) * lu(362) + lu(370) = lu(370) * lu(362) + lu(371) = lu(371) * lu(362) + lu(372) = lu(372) * lu(362) + lu(373) = lu(373) * lu(362) + lu(374) = lu(374) * lu(362) + lu(375) = lu(375) * lu(362) + lu(539) = lu(539) - lu(363) * lu(537) + lu(543) = lu(543) - lu(364) * lu(537) + lu(544) = lu(544) - lu(365) * lu(537) + lu(545) = lu(545) - lu(366) * lu(537) + lu(546) = lu(546) - lu(367) * lu(537) + lu(548) = lu(548) - lu(368) * lu(537) + lu(549) = lu(549) - lu(369) * lu(537) + lu(550) = lu(550) - lu(370) * lu(537) + lu(551) = lu(551) - lu(371) * lu(537) + lu(552) = lu(552) - lu(372) * lu(537) + lu(553) = lu(553) - lu(373) * lu(537) + lu(554) = lu(554) - lu(374) * lu(537) + lu(556) = lu(556) - lu(375) * lu(537) + lu(899) = lu(899) - lu(363) * lu(892) + lu(908) = lu(908) - lu(364) * lu(892) + lu(909) = lu(909) - lu(365) * lu(892) + lu(910) = lu(910) - lu(366) * lu(892) + lu(911) = lu(911) - lu(367) * lu(892) + lu(913) = lu(913) - lu(368) * lu(892) + lu(914) = lu(914) - lu(369) * lu(892) + lu(915) = lu(915) - lu(370) * lu(892) + lu(919) = lu(919) - lu(371) * lu(892) + lu(921) = lu(921) - lu(372) * lu(892) + lu(923) = lu(923) - lu(373) * lu(892) + lu(927) = lu(927) - lu(374) * lu(892) + lu(930) = lu(930) - lu(375) * lu(892) + lu(945) = lu(945) - lu(363) * lu(938) + lu(955) = lu(955) - lu(364) * lu(938) + lu(956) = lu(956) - lu(365) * lu(938) + lu(957) = lu(957) - lu(366) * lu(938) + lu(958) = lu(958) - lu(367) * lu(938) + lu(960) = lu(960) - lu(368) * lu(938) + lu(961) = lu(961) - lu(369) * lu(938) + lu(962) = lu(962) - lu(370) * lu(938) + lu(966) = lu(966) - lu(371) * lu(938) + lu(968) = lu(968) - lu(372) * lu(938) + lu(970) = lu(970) - lu(373) * lu(938) + lu(974) = lu(974) - lu(374) * lu(938) + lu(977) = lu(977) - lu(375) * lu(938) + lu(988) = lu(988) - lu(363) * lu(981) + lu(997) = lu(997) - lu(364) * lu(981) + lu(998) = lu(998) - lu(365) * lu(981) + lu(999) = lu(999) - lu(366) * lu(981) + lu(1000) = lu(1000) - lu(367) * lu(981) + lu(1002) = lu(1002) - lu(368) * lu(981) + lu(1003) = lu(1003) - lu(369) * lu(981) + lu(1004) = lu(1004) - lu(370) * lu(981) + lu(1008) = lu(1008) - lu(371) * lu(981) + lu(1010) = lu(1010) - lu(372) * lu(981) + lu(1012) = lu(1012) - lu(373) * lu(981) + lu(1016) = lu(1016) - lu(374) * lu(981) + lu(1019) = lu(1019) - lu(375) * lu(981) + lu(1124) = lu(1124) - lu(363) * lu(1117) + lu(1133) = lu(1133) - lu(364) * lu(1117) + lu(1134) = lu(1134) - lu(365) * lu(1117) + lu(1135) = lu(1135) - lu(366) * lu(1117) + lu(1136) = lu(1136) - lu(367) * lu(1117) + lu(1138) = lu(1138) - lu(368) * lu(1117) + lu(1139) = lu(1139) - lu(369) * lu(1117) + lu(1140) = lu(1140) - lu(370) * lu(1117) + lu(1144) = lu(1144) - lu(371) * lu(1117) + lu(1146) = lu(1146) - lu(372) * lu(1117) + lu(1148) = lu(1148) - lu(373) * lu(1117) + lu(1152) = lu(1152) - lu(374) * lu(1117) + lu(1155) = lu(1155) - lu(375) * lu(1117) + lu(1388) = lu(1388) - lu(363) * lu(1381) + lu(1398) = lu(1398) - lu(364) * lu(1381) + lu(1399) = lu(1399) - lu(365) * lu(1381) + lu(1400) = lu(1400) - lu(366) * lu(1381) + lu(1401) = lu(1401) - lu(367) * lu(1381) + lu(1403) = lu(1403) - lu(368) * lu(1381) + lu(1404) = lu(1404) - lu(369) * lu(1381) + lu(1405) = lu(1405) - lu(370) * lu(1381) + lu(1409) = lu(1409) - lu(371) * lu(1381) + lu(1411) = lu(1411) - lu(372) * lu(1381) + lu(1413) = lu(1413) - lu(373) * lu(1381) + lu(1417) = lu(1417) - lu(374) * lu(1381) + lu(1420) = lu(1420) - lu(375) * lu(1381) + lu(1551) = lu(1551) - lu(363) * lu(1544) + lu(1560) = lu(1560) - lu(364) * lu(1544) + lu(1561) = lu(1561) - lu(365) * lu(1544) + lu(1562) = lu(1562) - lu(366) * lu(1544) + lu(1563) = lu(1563) - lu(367) * lu(1544) + lu(1565) = lu(1565) - lu(368) * lu(1544) + lu(1566) = lu(1566) - lu(369) * lu(1544) + lu(1567) = lu(1567) - lu(370) * lu(1544) + lu(1571) = lu(1571) - lu(371) * lu(1544) + lu(1573) = lu(1573) - lu(372) * lu(1544) + lu(1575) = lu(1575) - lu(373) * lu(1544) + lu(1579) = lu(1579) - lu(374) * lu(1544) + lu(1582) = lu(1582) - lu(375) * lu(1544) + lu(1699) = lu(1699) - lu(363) * lu(1692) + lu(1708) = lu(1708) - lu(364) * lu(1692) + lu(1709) = lu(1709) - lu(365) * lu(1692) + lu(1710) = lu(1710) - lu(366) * lu(1692) + lu(1711) = lu(1711) - lu(367) * lu(1692) + lu(1713) = lu(1713) - lu(368) * lu(1692) + lu(1714) = lu(1714) - lu(369) * lu(1692) + lu(1715) = lu(1715) - lu(370) * lu(1692) + lu(1719) = lu(1719) - lu(371) * lu(1692) + lu(1721) = lu(1721) - lu(372) * lu(1692) + lu(1723) = lu(1723) - lu(373) * lu(1692) + lu(1727) = lu(1727) - lu(374) * lu(1692) + lu(1730) = lu(1730) - lu(375) * lu(1692) + lu(1823) = lu(1823) - lu(363) * lu(1816) + lu(1834) = lu(1834) - lu(364) * lu(1816) + lu(1835) = lu(1835) - lu(365) * lu(1816) + lu(1836) = lu(1836) - lu(366) * lu(1816) + lu(1837) = lu(1837) - lu(367) * lu(1816) + lu(1839) = lu(1839) - lu(368) * lu(1816) + lu(1840) = lu(1840) - lu(369) * lu(1816) + lu(1841) = lu(1841) - lu(370) * lu(1816) + lu(1845) = lu(1845) - lu(371) * lu(1816) + lu(1847) = lu(1847) - lu(372) * lu(1816) + lu(1849) = lu(1849) - lu(373) * lu(1816) + lu(1853) = lu(1853) - lu(374) * lu(1816) + lu(1856) = lu(1856) - lu(375) * lu(1816) + lu(379) = 1._r8 / lu(379) + lu(380) = lu(380) * lu(379) + lu(381) = lu(381) * lu(379) + lu(382) = lu(382) * lu(379) + lu(383) = lu(383) * lu(379) + lu(384) = lu(384) * lu(379) + lu(385) = lu(385) * lu(379) + lu(386) = lu(386) * lu(379) + lu(387) = lu(387) * lu(379) + lu(388) = lu(388) * lu(379) + lu(389) = lu(389) * lu(379) + lu(390) = lu(390) * lu(379) + lu(391) = lu(391) * lu(379) + lu(392) = lu(392) * lu(379) + lu(583) = lu(583) - lu(380) * lu(582) + lu(584) = lu(584) - lu(381) * lu(582) + lu(587) = lu(587) - lu(382) * lu(582) + lu(588) = lu(588) - lu(383) * lu(582) + lu(589) = lu(589) - lu(384) * lu(582) + lu(590) = lu(590) - lu(385) * lu(582) + lu(591) = lu(591) - lu(386) * lu(582) + lu(592) = lu(592) - lu(387) * lu(582) + lu(593) = lu(593) - lu(388) * lu(582) + lu(595) = - lu(389) * lu(582) + lu(596) = - lu(390) * lu(582) + lu(597) = lu(597) - lu(391) * lu(582) + lu(600) = lu(600) - lu(392) * lu(582) + lu(788) = lu(788) - lu(380) * lu(787) + lu(790) = lu(790) - lu(381) * lu(787) + lu(793) = lu(793) - lu(382) * lu(787) + lu(794) = lu(794) - lu(383) * lu(787) + lu(798) = lu(798) - lu(384) * lu(787) + lu(799) = lu(799) - lu(385) * lu(787) + lu(801) = lu(801) - lu(386) * lu(787) + lu(802) = lu(802) - lu(387) * lu(787) + lu(803) = lu(803) - lu(388) * lu(787) + lu(807) = lu(807) - lu(389) * lu(787) + lu(808) = lu(808) - lu(390) * lu(787) + lu(809) = lu(809) - lu(391) * lu(787) + lu(814) = lu(814) - lu(392) * lu(787) + lu(1035) = - lu(380) * lu(1033) + lu(1036) = - lu(381) * lu(1033) + lu(1042) = lu(1042) - lu(382) * lu(1033) + lu(1043) = lu(1043) - lu(383) * lu(1033) + lu(1049) = lu(1049) - lu(384) * lu(1033) + lu(1050) = lu(1050) - lu(385) * lu(1033) + lu(1052) = lu(1052) - lu(386) * lu(1033) + lu(1053) = lu(1053) - lu(387) * lu(1033) + lu(1054) = - lu(388) * lu(1033) + lu(1058) = lu(1058) - lu(389) * lu(1033) + lu(1059) = lu(1059) - lu(390) * lu(1033) + lu(1060) = - lu(391) * lu(1033) + lu(1068) = lu(1068) - lu(392) * lu(1033) + lu(1078) = lu(1078) - lu(380) * lu(1076) + lu(1083) = lu(1083) - lu(381) * lu(1076) + lu(1088) = lu(1088) - lu(382) * lu(1076) + lu(1089) = lu(1089) - lu(383) * lu(1076) + lu(1095) = lu(1095) - lu(384) * lu(1076) + lu(1096) = lu(1096) - lu(385) * lu(1076) + lu(1098) = lu(1098) - lu(386) * lu(1076) + lu(1099) = lu(1099) - lu(387) * lu(1076) + lu(1100) = lu(1100) - lu(388) * lu(1076) + lu(1104) = lu(1104) - lu(389) * lu(1076) + lu(1105) = lu(1105) - lu(390) * lu(1076) + lu(1106) = lu(1106) - lu(391) * lu(1076) + lu(1114) = lu(1114) - lu(392) * lu(1076) + lu(1221) = lu(1221) - lu(380) * lu(1219) + lu(1223) = lu(1223) - lu(381) * lu(1219) + lu(1229) = lu(1229) - lu(382) * lu(1219) + lu(1230) = lu(1230) - lu(383) * lu(1219) + lu(1236) = lu(1236) - lu(384) * lu(1219) + lu(1237) = lu(1237) - lu(385) * lu(1219) + lu(1239) = lu(1239) - lu(386) * lu(1219) + lu(1240) = lu(1240) - lu(387) * lu(1219) + lu(1241) = lu(1241) - lu(388) * lu(1219) + lu(1245) = lu(1245) - lu(389) * lu(1219) + lu(1246) = lu(1246) - lu(390) * lu(1219) + lu(1247) = lu(1247) - lu(391) * lu(1219) + lu(1255) = lu(1255) - lu(392) * lu(1219) + lu(1428) = lu(1428) - lu(380) * lu(1426) + lu(1429) = lu(1429) - lu(381) * lu(1426) + lu(1435) = lu(1435) - lu(382) * lu(1426) + lu(1436) = lu(1436) - lu(383) * lu(1426) + lu(1442) = lu(1442) - lu(384) * lu(1426) + lu(1443) = lu(1443) - lu(385) * lu(1426) + lu(1445) = lu(1445) - lu(386) * lu(1426) + lu(1446) = lu(1446) - lu(387) * lu(1426) + lu(1447) = lu(1447) - lu(388) * lu(1426) + lu(1451) = lu(1451) - lu(389) * lu(1426) + lu(1452) = lu(1452) - lu(390) * lu(1426) + lu(1453) = lu(1453) - lu(391) * lu(1426) + lu(1461) = lu(1461) - lu(392) * lu(1426) + lu(1507) = lu(1507) - lu(380) * lu(1506) + lu(1508) = lu(1508) - lu(381) * lu(1506) + lu(1514) = lu(1514) - lu(382) * lu(1506) + lu(1515) = lu(1515) - lu(383) * lu(1506) + lu(1521) = lu(1521) - lu(384) * lu(1506) + lu(1522) = lu(1522) - lu(385) * lu(1506) + lu(1524) = lu(1524) - lu(386) * lu(1506) + lu(1525) = lu(1525) - lu(387) * lu(1506) + lu(1526) = lu(1526) - lu(388) * lu(1506) + lu(1530) = - lu(389) * lu(1506) + lu(1531) = lu(1531) - lu(390) * lu(1506) + lu(1532) = lu(1532) - lu(391) * lu(1506) + lu(1540) = lu(1540) - lu(392) * lu(1506) + lu(1765) = - lu(380) * lu(1764) + lu(1769) = - lu(381) * lu(1764) + lu(1773) = lu(1773) - lu(382) * lu(1764) + lu(1774) = lu(1774) - lu(383) * lu(1764) + lu(1779) = lu(1779) - lu(384) * lu(1764) + lu(1780) = lu(1780) - lu(385) * lu(1764) + lu(1782) = lu(1782) - lu(386) * lu(1764) + lu(1783) = lu(1783) - lu(387) * lu(1764) + lu(1784) = - lu(388) * lu(1764) + lu(1788) = - lu(389) * lu(1764) + lu(1789) = lu(1789) - lu(390) * lu(1764) + lu(1790) = - lu(391) * lu(1764) + lu(1798) = lu(1798) - lu(392) * lu(1764) + lu(1820) = - lu(380) * lu(1817) + lu(1825) = - lu(381) * lu(1817) + lu(1830) = lu(1830) - lu(382) * lu(1817) + lu(1831) = lu(1831) - lu(383) * lu(1817) + lu(1837) = lu(1837) - lu(384) * lu(1817) + lu(1838) = lu(1838) - lu(385) * lu(1817) + lu(1840) = lu(1840) - lu(386) * lu(1817) + lu(1841) = lu(1841) - lu(387) * lu(1817) + lu(1842) = lu(1842) - lu(388) * lu(1817) + lu(1846) = lu(1846) - lu(389) * lu(1817) + lu(1847) = lu(1847) - lu(390) * lu(1817) + lu(1848) = lu(1848) - lu(391) * lu(1817) + lu(1856) = lu(1856) - lu(392) * lu(1817) end subroutine lu_fac10 - subroutine lu_fac11( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac11( lu ) 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,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,398) = lu(k,398) * lu(k,393) - lu(k,399) = lu(k,399) * lu(k,393) - lu(k,400) = lu(k,400) * lu(k,393) - lu(k,401) = lu(k,401) * lu(k,393) - lu(k,402) = lu(k,402) * lu(k,393) - lu(k,403) = lu(k,403) * lu(k,393) - lu(k,404) = lu(k,404) * lu(k,393) - lu(k,405) = lu(k,405) * lu(k,393) - lu(k,406) = lu(k,406) * lu(k,393) - lu(k,407) = lu(k,407) * lu(k,393) - lu(k,410) = lu(k,410) - lu(k,394) * lu(k,408) - lu(k,411) = lu(k,411) - lu(k,395) * lu(k,408) - lu(k,412) = lu(k,412) - lu(k,396) * lu(k,408) - lu(k,413) = lu(k,413) - lu(k,397) * lu(k,408) - lu(k,414) = lu(k,414) - lu(k,398) * lu(k,408) - lu(k,415) = lu(k,415) - lu(k,399) * lu(k,408) - lu(k,416) = lu(k,416) - lu(k,400) * lu(k,408) - lu(k,417) = lu(k,417) - lu(k,401) * lu(k,408) - lu(k,418) = lu(k,418) - lu(k,402) * lu(k,408) - lu(k,419) = lu(k,419) - lu(k,403) * lu(k,408) - lu(k,420) = lu(k,420) - lu(k,404) * lu(k,408) - lu(k,421) = lu(k,421) - lu(k,405) * lu(k,408) - lu(k,422) = lu(k,422) - lu(k,406) * lu(k,408) - lu(k,423) = lu(k,423) - lu(k,407) * lu(k,408) - lu(k,690) = lu(k,690) - lu(k,394) * lu(k,688) - lu(k,693) = lu(k,693) - lu(k,395) * lu(k,688) - lu(k,694) = lu(k,694) - lu(k,396) * lu(k,688) - lu(k,696) = lu(k,696) - lu(k,397) * lu(k,688) - lu(k,697) = lu(k,697) - lu(k,398) * lu(k,688) - lu(k,698) = lu(k,698) - lu(k,399) * lu(k,688) - lu(k,699) = lu(k,699) - lu(k,400) * lu(k,688) - lu(k,701) = lu(k,701) - lu(k,401) * lu(k,688) - lu(k,702) = lu(k,702) - lu(k,402) * lu(k,688) - lu(k,703) = lu(k,703) - lu(k,403) * lu(k,688) - lu(k,705) = lu(k,705) - lu(k,404) * lu(k,688) - lu(k,706) = lu(k,706) - lu(k,405) * lu(k,688) - lu(k,707) = lu(k,707) - lu(k,406) * lu(k,688) - lu(k,708) = lu(k,708) - lu(k,407) * lu(k,688) - lu(k,894) = lu(k,894) - lu(k,394) * lu(k,884) - lu(k,900) = lu(k,900) - lu(k,395) * lu(k,884) - lu(k,901) = lu(k,901) - lu(k,396) * lu(k,884) - lu(k,903) = lu(k,903) - lu(k,397) * lu(k,884) - lu(k,904) = lu(k,904) - lu(k,398) * lu(k,884) - lu(k,906) = lu(k,906) - lu(k,399) * lu(k,884) - lu(k,908) = lu(k,908) - lu(k,400) * lu(k,884) - lu(k,911) = lu(k,911) - lu(k,401) * lu(k,884) - lu(k,913) = lu(k,913) - lu(k,402) * lu(k,884) - lu(k,914) = lu(k,914) - lu(k,403) * lu(k,884) - lu(k,916) = lu(k,916) - lu(k,404) * lu(k,884) - lu(k,919) = lu(k,919) - lu(k,405) * lu(k,884) - lu(k,921) = lu(k,921) - lu(k,406) * lu(k,884) - lu(k,922) = lu(k,922) - lu(k,407) * lu(k,884) - lu(k,936) = lu(k,936) - lu(k,394) * lu(k,927) - lu(k,942) = lu(k,942) - lu(k,395) * lu(k,927) - lu(k,943) = lu(k,943) - lu(k,396) * lu(k,927) - lu(k,945) = lu(k,945) - lu(k,397) * lu(k,927) - lu(k,946) = lu(k,946) - lu(k,398) * lu(k,927) - lu(k,948) = lu(k,948) - lu(k,399) * lu(k,927) - lu(k,950) = lu(k,950) - lu(k,400) * lu(k,927) - lu(k,953) = lu(k,953) - lu(k,401) * lu(k,927) - lu(k,955) = lu(k,955) - lu(k,402) * lu(k,927) - lu(k,956) = lu(k,956) - lu(k,403) * lu(k,927) - lu(k,958) = lu(k,958) - lu(k,404) * lu(k,927) - lu(k,961) = lu(k,961) - lu(k,405) * lu(k,927) - lu(k,963) = lu(k,963) - lu(k,406) * lu(k,927) - lu(k,964) = lu(k,964) - lu(k,407) * lu(k,927) - lu(k,1024) = lu(k,1024) - lu(k,394) * lu(k,1015) - lu(k,1030) = lu(k,1030) - lu(k,395) * lu(k,1015) - lu(k,1031) = lu(k,1031) - lu(k,396) * lu(k,1015) - lu(k,1033) = lu(k,1033) - lu(k,397) * lu(k,1015) - lu(k,1034) = lu(k,1034) - lu(k,398) * lu(k,1015) - lu(k,1036) = lu(k,1036) - lu(k,399) * lu(k,1015) - lu(k,1038) = lu(k,1038) - lu(k,400) * lu(k,1015) - lu(k,1041) = lu(k,1041) - lu(k,401) * lu(k,1015) - lu(k,1043) = lu(k,1043) - lu(k,402) * lu(k,1015) - lu(k,1044) = lu(k,1044) - lu(k,403) * lu(k,1015) - lu(k,1046) = lu(k,1046) - lu(k,404) * lu(k,1015) - lu(k,1049) = lu(k,1049) - lu(k,405) * lu(k,1015) - lu(k,1051) = lu(k,1051) - lu(k,406) * lu(k,1015) - lu(k,1052) = lu(k,1052) - lu(k,407) * lu(k,1015) - lu(k,1065) = lu(k,1065) - lu(k,394) * lu(k,1056) - lu(k,1071) = lu(k,1071) - lu(k,395) * lu(k,1056) - lu(k,1072) = lu(k,1072) - lu(k,396) * lu(k,1056) - lu(k,1074) = lu(k,1074) - lu(k,397) * lu(k,1056) - lu(k,1075) = lu(k,1075) - lu(k,398) * lu(k,1056) - lu(k,1077) = lu(k,1077) - lu(k,399) * lu(k,1056) - lu(k,1079) = lu(k,1079) - lu(k,400) * lu(k,1056) - lu(k,1082) = lu(k,1082) - lu(k,401) * lu(k,1056) - lu(k,1084) = lu(k,1084) - lu(k,402) * lu(k,1056) - lu(k,1085) = lu(k,1085) - lu(k,403) * lu(k,1056) - lu(k,1087) = lu(k,1087) - lu(k,404) * lu(k,1056) - lu(k,1090) = lu(k,1090) - lu(k,405) * lu(k,1056) - lu(k,1092) = lu(k,1092) - lu(k,406) * lu(k,1056) - lu(k,1093) = lu(k,1093) - lu(k,407) * lu(k,1056) - lu(k,1148) = lu(k,1148) - lu(k,394) * lu(k,1139) - lu(k,1154) = - lu(k,395) * lu(k,1139) - lu(k,1155) = - lu(k,396) * lu(k,1139) - lu(k,1157) = - lu(k,397) * lu(k,1139) - lu(k,1158) = - lu(k,398) * lu(k,1139) - lu(k,1160) = lu(k,1160) - lu(k,399) * lu(k,1139) - lu(k,1162) = - lu(k,400) * lu(k,1139) - lu(k,1165) = - lu(k,401) * lu(k,1139) - lu(k,1167) = lu(k,1167) - lu(k,402) * lu(k,1139) - lu(k,1168) = lu(k,1168) - lu(k,403) * lu(k,1139) - lu(k,1170) = - lu(k,404) * lu(k,1139) - lu(k,1173) = - lu(k,405) * lu(k,1139) - lu(k,1175) = lu(k,1175) - lu(k,406) * lu(k,1139) - lu(k,1176) = lu(k,1176) - lu(k,407) * lu(k,1139) - lu(k,1356) = lu(k,1356) - lu(k,394) * lu(k,1346) - lu(k,1362) = lu(k,1362) - lu(k,395) * lu(k,1346) - lu(k,1363) = lu(k,1363) - lu(k,396) * lu(k,1346) - lu(k,1365) = lu(k,1365) - lu(k,397) * lu(k,1346) - lu(k,1366) = lu(k,1366) - lu(k,398) * lu(k,1346) - lu(k,1368) = lu(k,1368) - lu(k,399) * lu(k,1346) - lu(k,1370) = lu(k,1370) - lu(k,400) * lu(k,1346) - lu(k,1373) = lu(k,1373) - lu(k,401) * lu(k,1346) - lu(k,1375) = lu(k,1375) - lu(k,402) * lu(k,1346) - lu(k,1376) = lu(k,1376) - lu(k,403) * lu(k,1346) - lu(k,1378) = lu(k,1378) - lu(k,404) * lu(k,1346) - lu(k,1381) = lu(k,1381) - lu(k,405) * lu(k,1346) - lu(k,1383) = lu(k,1383) - lu(k,406) * lu(k,1346) - lu(k,1384) = lu(k,1384) - lu(k,407) * lu(k,1346) - lu(k,1582) = lu(k,1582) - lu(k,394) * lu(k,1573) - lu(k,1588) = lu(k,1588) - lu(k,395) * lu(k,1573) - lu(k,1589) = lu(k,1589) - lu(k,396) * lu(k,1573) - lu(k,1591) = lu(k,1591) - lu(k,397) * lu(k,1573) - lu(k,1592) = lu(k,1592) - lu(k,398) * lu(k,1573) - lu(k,1594) = lu(k,1594) - lu(k,399) * lu(k,1573) - lu(k,1596) = lu(k,1596) - lu(k,400) * lu(k,1573) - lu(k,1599) = lu(k,1599) - lu(k,401) * lu(k,1573) - lu(k,1601) = lu(k,1601) - lu(k,402) * lu(k,1573) - lu(k,1602) = lu(k,1602) - lu(k,403) * lu(k,1573) - lu(k,1604) = lu(k,1604) - lu(k,404) * lu(k,1573) - lu(k,1607) = lu(k,1607) - lu(k,405) * lu(k,1573) - lu(k,1609) = lu(k,1609) - lu(k,406) * lu(k,1573) - lu(k,1610) = lu(k,1610) - lu(k,407) * lu(k,1573) - lu(k,1691) = lu(k,1691) - lu(k,394) * lu(k,1682) - lu(k,1697) = lu(k,1697) - lu(k,395) * lu(k,1682) - lu(k,1698) = lu(k,1698) - lu(k,396) * lu(k,1682) - lu(k,1700) = lu(k,1700) - lu(k,397) * lu(k,1682) - lu(k,1701) = lu(k,1701) - lu(k,398) * lu(k,1682) - lu(k,1703) = lu(k,1703) - lu(k,399) * lu(k,1682) - lu(k,1705) = lu(k,1705) - lu(k,400) * lu(k,1682) - lu(k,1708) = lu(k,1708) - lu(k,401) * lu(k,1682) - lu(k,1710) = lu(k,1710) - lu(k,402) * lu(k,1682) - lu(k,1711) = lu(k,1711) - lu(k,403) * lu(k,1682) - lu(k,1713) = lu(k,1713) - lu(k,404) * lu(k,1682) - lu(k,1716) = lu(k,1716) - lu(k,405) * lu(k,1682) - lu(k,1718) = lu(k,1718) - lu(k,406) * lu(k,1682) - lu(k,1719) = lu(k,1719) - lu(k,407) * lu(k,1682) - 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,417) = lu(k,417) * lu(k,409) - lu(k,418) = lu(k,418) * lu(k,409) - lu(k,419) = lu(k,419) * lu(k,409) - lu(k,420) = lu(k,420) * lu(k,409) - lu(k,421) = lu(k,421) * lu(k,409) - lu(k,422) = lu(k,422) * lu(k,409) - lu(k,423) = lu(k,423) * lu(k,409) - lu(k,690) = lu(k,690) - lu(k,410) * lu(k,689) - lu(k,693) = lu(k,693) - lu(k,411) * lu(k,689) - lu(k,694) = lu(k,694) - lu(k,412) * lu(k,689) - lu(k,696) = lu(k,696) - lu(k,413) * lu(k,689) - lu(k,697) = lu(k,697) - lu(k,414) * lu(k,689) - lu(k,698) = lu(k,698) - lu(k,415) * lu(k,689) - lu(k,699) = lu(k,699) - lu(k,416) * lu(k,689) - lu(k,701) = lu(k,701) - lu(k,417) * lu(k,689) - lu(k,702) = lu(k,702) - lu(k,418) * lu(k,689) - lu(k,703) = lu(k,703) - lu(k,419) * lu(k,689) - lu(k,705) = lu(k,705) - lu(k,420) * lu(k,689) - lu(k,706) = lu(k,706) - lu(k,421) * lu(k,689) - lu(k,707) = lu(k,707) - lu(k,422) * lu(k,689) - lu(k,708) = lu(k,708) - lu(k,423) * lu(k,689) - lu(k,894) = lu(k,894) - lu(k,410) * lu(k,885) - lu(k,900) = lu(k,900) - lu(k,411) * lu(k,885) - lu(k,901) = lu(k,901) - lu(k,412) * lu(k,885) - lu(k,903) = lu(k,903) - lu(k,413) * lu(k,885) - lu(k,904) = lu(k,904) - lu(k,414) * lu(k,885) - lu(k,906) = lu(k,906) - lu(k,415) * lu(k,885) - lu(k,908) = lu(k,908) - lu(k,416) * lu(k,885) - lu(k,911) = lu(k,911) - lu(k,417) * lu(k,885) - lu(k,913) = lu(k,913) - lu(k,418) * lu(k,885) - lu(k,914) = lu(k,914) - lu(k,419) * lu(k,885) - lu(k,916) = lu(k,916) - lu(k,420) * lu(k,885) - lu(k,919) = lu(k,919) - lu(k,421) * lu(k,885) - lu(k,921) = lu(k,921) - lu(k,422) * lu(k,885) - lu(k,922) = lu(k,922) - lu(k,423) * lu(k,885) - lu(k,936) = lu(k,936) - lu(k,410) * lu(k,928) - lu(k,942) = lu(k,942) - lu(k,411) * lu(k,928) - lu(k,943) = lu(k,943) - lu(k,412) * lu(k,928) - lu(k,945) = lu(k,945) - lu(k,413) * lu(k,928) - lu(k,946) = lu(k,946) - lu(k,414) * lu(k,928) - lu(k,948) = lu(k,948) - lu(k,415) * lu(k,928) - lu(k,950) = lu(k,950) - lu(k,416) * lu(k,928) - lu(k,953) = lu(k,953) - lu(k,417) * lu(k,928) - lu(k,955) = lu(k,955) - lu(k,418) * lu(k,928) - lu(k,956) = lu(k,956) - lu(k,419) * lu(k,928) - lu(k,958) = lu(k,958) - lu(k,420) * lu(k,928) - lu(k,961) = lu(k,961) - lu(k,421) * lu(k,928) - lu(k,963) = lu(k,963) - lu(k,422) * lu(k,928) - lu(k,964) = lu(k,964) - lu(k,423) * lu(k,928) - lu(k,1024) = lu(k,1024) - lu(k,410) * lu(k,1016) - lu(k,1030) = lu(k,1030) - lu(k,411) * lu(k,1016) - lu(k,1031) = lu(k,1031) - lu(k,412) * lu(k,1016) - lu(k,1033) = lu(k,1033) - lu(k,413) * lu(k,1016) - lu(k,1034) = lu(k,1034) - lu(k,414) * lu(k,1016) - lu(k,1036) = lu(k,1036) - lu(k,415) * lu(k,1016) - lu(k,1038) = lu(k,1038) - lu(k,416) * lu(k,1016) - lu(k,1041) = lu(k,1041) - lu(k,417) * lu(k,1016) - lu(k,1043) = lu(k,1043) - lu(k,418) * lu(k,1016) - lu(k,1044) = lu(k,1044) - lu(k,419) * lu(k,1016) - lu(k,1046) = lu(k,1046) - lu(k,420) * lu(k,1016) - lu(k,1049) = lu(k,1049) - lu(k,421) * lu(k,1016) - lu(k,1051) = lu(k,1051) - lu(k,422) * lu(k,1016) - lu(k,1052) = lu(k,1052) - lu(k,423) * lu(k,1016) - lu(k,1065) = lu(k,1065) - lu(k,410) * lu(k,1057) - lu(k,1071) = lu(k,1071) - lu(k,411) * lu(k,1057) - lu(k,1072) = lu(k,1072) - lu(k,412) * lu(k,1057) - lu(k,1074) = lu(k,1074) - lu(k,413) * lu(k,1057) - lu(k,1075) = lu(k,1075) - lu(k,414) * lu(k,1057) - lu(k,1077) = lu(k,1077) - lu(k,415) * lu(k,1057) - lu(k,1079) = lu(k,1079) - lu(k,416) * lu(k,1057) - lu(k,1082) = lu(k,1082) - lu(k,417) * lu(k,1057) - lu(k,1084) = lu(k,1084) - lu(k,418) * lu(k,1057) - lu(k,1085) = lu(k,1085) - lu(k,419) * lu(k,1057) - lu(k,1087) = lu(k,1087) - lu(k,420) * lu(k,1057) - lu(k,1090) = lu(k,1090) - lu(k,421) * lu(k,1057) - lu(k,1092) = lu(k,1092) - lu(k,422) * lu(k,1057) - lu(k,1093) = lu(k,1093) - lu(k,423) * lu(k,1057) - lu(k,1148) = lu(k,1148) - lu(k,410) * lu(k,1140) - lu(k,1154) = lu(k,1154) - lu(k,411) * lu(k,1140) - lu(k,1155) = lu(k,1155) - lu(k,412) * lu(k,1140) - lu(k,1157) = lu(k,1157) - lu(k,413) * lu(k,1140) - lu(k,1158) = lu(k,1158) - lu(k,414) * lu(k,1140) - lu(k,1160) = lu(k,1160) - lu(k,415) * lu(k,1140) - lu(k,1162) = lu(k,1162) - lu(k,416) * lu(k,1140) - lu(k,1165) = lu(k,1165) - lu(k,417) * lu(k,1140) - lu(k,1167) = lu(k,1167) - lu(k,418) * lu(k,1140) - lu(k,1168) = lu(k,1168) - lu(k,419) * lu(k,1140) - lu(k,1170) = lu(k,1170) - lu(k,420) * lu(k,1140) - lu(k,1173) = lu(k,1173) - lu(k,421) * lu(k,1140) - lu(k,1175) = lu(k,1175) - lu(k,422) * lu(k,1140) - lu(k,1176) = lu(k,1176) - lu(k,423) * lu(k,1140) - lu(k,1356) = lu(k,1356) - lu(k,410) * lu(k,1347) - lu(k,1362) = lu(k,1362) - lu(k,411) * lu(k,1347) - lu(k,1363) = lu(k,1363) - lu(k,412) * lu(k,1347) - lu(k,1365) = lu(k,1365) - lu(k,413) * lu(k,1347) - lu(k,1366) = lu(k,1366) - lu(k,414) * lu(k,1347) - lu(k,1368) = lu(k,1368) - lu(k,415) * lu(k,1347) - lu(k,1370) = lu(k,1370) - lu(k,416) * lu(k,1347) - lu(k,1373) = lu(k,1373) - lu(k,417) * lu(k,1347) - lu(k,1375) = lu(k,1375) - lu(k,418) * lu(k,1347) - lu(k,1376) = lu(k,1376) - lu(k,419) * lu(k,1347) - lu(k,1378) = lu(k,1378) - lu(k,420) * lu(k,1347) - lu(k,1381) = lu(k,1381) - lu(k,421) * lu(k,1347) - lu(k,1383) = lu(k,1383) - lu(k,422) * lu(k,1347) - lu(k,1384) = lu(k,1384) - lu(k,423) * lu(k,1347) - lu(k,1582) = lu(k,1582) - lu(k,410) * lu(k,1574) - lu(k,1588) = lu(k,1588) - lu(k,411) * lu(k,1574) - lu(k,1589) = lu(k,1589) - lu(k,412) * lu(k,1574) - lu(k,1591) = lu(k,1591) - lu(k,413) * lu(k,1574) - lu(k,1592) = lu(k,1592) - lu(k,414) * lu(k,1574) - lu(k,1594) = lu(k,1594) - lu(k,415) * lu(k,1574) - lu(k,1596) = lu(k,1596) - lu(k,416) * lu(k,1574) - lu(k,1599) = lu(k,1599) - lu(k,417) * lu(k,1574) - lu(k,1601) = lu(k,1601) - lu(k,418) * lu(k,1574) - lu(k,1602) = lu(k,1602) - lu(k,419) * lu(k,1574) - lu(k,1604) = lu(k,1604) - lu(k,420) * lu(k,1574) - lu(k,1607) = lu(k,1607) - lu(k,421) * lu(k,1574) - lu(k,1609) = lu(k,1609) - lu(k,422) * lu(k,1574) - lu(k,1610) = lu(k,1610) - lu(k,423) * lu(k,1574) - lu(k,1691) = lu(k,1691) - lu(k,410) * lu(k,1683) - lu(k,1697) = lu(k,1697) - lu(k,411) * lu(k,1683) - lu(k,1698) = lu(k,1698) - lu(k,412) * lu(k,1683) - lu(k,1700) = lu(k,1700) - lu(k,413) * lu(k,1683) - lu(k,1701) = lu(k,1701) - lu(k,414) * lu(k,1683) - lu(k,1703) = lu(k,1703) - lu(k,415) * lu(k,1683) - lu(k,1705) = lu(k,1705) - lu(k,416) * lu(k,1683) - lu(k,1708) = lu(k,1708) - lu(k,417) * lu(k,1683) - lu(k,1710) = lu(k,1710) - lu(k,418) * lu(k,1683) - lu(k,1711) = lu(k,1711) - lu(k,419) * lu(k,1683) - lu(k,1713) = lu(k,1713) - lu(k,420) * lu(k,1683) - lu(k,1716) = lu(k,1716) - lu(k,421) * lu(k,1683) - lu(k,1718) = lu(k,1718) - lu(k,422) * lu(k,1683) - lu(k,1719) = lu(k,1719) - lu(k,423) * lu(k,1683) - lu(k,1828) = lu(k,1828) - lu(k,410) * lu(k,1818) - lu(k,1834) = lu(k,1834) - lu(k,411) * lu(k,1818) - lu(k,1835) = lu(k,1835) - lu(k,412) * lu(k,1818) - lu(k,1837) = lu(k,1837) - lu(k,413) * lu(k,1818) - lu(k,1838) = lu(k,1838) - lu(k,414) * lu(k,1818) - lu(k,1840) = - lu(k,415) * lu(k,1818) - lu(k,1842) = lu(k,1842) - lu(k,416) * lu(k,1818) - lu(k,1845) = lu(k,1845) - lu(k,417) * lu(k,1818) - lu(k,1847) = lu(k,1847) - lu(k,418) * lu(k,1818) - lu(k,1848) = lu(k,1848) - lu(k,419) * lu(k,1818) - lu(k,1850) = lu(k,1850) - lu(k,420) * lu(k,1818) - lu(k,1853) = lu(k,1853) - lu(k,421) * lu(k,1818) - lu(k,1855) = lu(k,1855) - lu(k,422) * lu(k,1818) - lu(k,1856) = lu(k,1856) - lu(k,423) * lu(k,1818) - lu(k,424) = 1._r8 / lu(k,424) - lu(k,425) = lu(k,425) * lu(k,424) - lu(k,426) = lu(k,426) * lu(k,424) - lu(k,427) = lu(k,427) * lu(k,424) - lu(k,428) = lu(k,428) * lu(k,424) - lu(k,429) = lu(k,429) * lu(k,424) - lu(k,430) = lu(k,430) * lu(k,424) - lu(k,431) = lu(k,431) * lu(k,424) - lu(k,432) = lu(k,432) * lu(k,424) - lu(k,433) = lu(k,433) * lu(k,424) - lu(k,434) = lu(k,434) * lu(k,424) - lu(k,435) = lu(k,435) * lu(k,424) - lu(k,436) = lu(k,436) * lu(k,424) - lu(k,437) = lu(k,437) * lu(k,424) - lu(k,543) = lu(k,543) - lu(k,425) * lu(k,538) - lu(k,544) = lu(k,544) - lu(k,426) * lu(k,538) - lu(k,545) = lu(k,545) - lu(k,427) * lu(k,538) - lu(k,546) = lu(k,546) - lu(k,428) * lu(k,538) - lu(k,547) = lu(k,547) - lu(k,429) * lu(k,538) - lu(k,548) = lu(k,548) - lu(k,430) * lu(k,538) - lu(k,549) = lu(k,549) - lu(k,431) * lu(k,538) - lu(k,550) = lu(k,550) - lu(k,432) * lu(k,538) - lu(k,552) = lu(k,552) - lu(k,433) * lu(k,538) - lu(k,553) = lu(k,553) - lu(k,434) * lu(k,538) - lu(k,554) = lu(k,554) - lu(k,435) * lu(k,538) - lu(k,555) = lu(k,555) - lu(k,436) * lu(k,538) - lu(k,556) = lu(k,556) - lu(k,437) * lu(k,538) - lu(k,852) = lu(k,852) - lu(k,425) * lu(k,848) - lu(k,853) = lu(k,853) - lu(k,426) * lu(k,848) - lu(k,854) = lu(k,854) - lu(k,427) * lu(k,848) - lu(k,855) = lu(k,855) - lu(k,428) * lu(k,848) - lu(k,856) = lu(k,856) - lu(k,429) * lu(k,848) - lu(k,857) = lu(k,857) - lu(k,430) * lu(k,848) - lu(k,861) = lu(k,861) - lu(k,431) * lu(k,848) - lu(k,864) = lu(k,864) - lu(k,432) * lu(k,848) - lu(k,867) = lu(k,867) - lu(k,433) * lu(k,848) - lu(k,869) = lu(k,869) - lu(k,434) * lu(k,848) - lu(k,872) = lu(k,872) - lu(k,435) * lu(k,848) - lu(k,874) = lu(k,874) - lu(k,436) * lu(k,848) - lu(k,875) = lu(k,875) - lu(k,437) * lu(k,848) - lu(k,899) = lu(k,899) - lu(k,425) * lu(k,886) - lu(k,900) = lu(k,900) - lu(k,426) * lu(k,886) - lu(k,901) = lu(k,901) - lu(k,427) * lu(k,886) - lu(k,902) = lu(k,902) - lu(k,428) * lu(k,886) - lu(k,903) = lu(k,903) - lu(k,429) * lu(k,886) - lu(k,904) = lu(k,904) - lu(k,430) * lu(k,886) - lu(k,908) = lu(k,908) - lu(k,431) * lu(k,886) - lu(k,911) = lu(k,911) - lu(k,432) * lu(k,886) - lu(k,914) = lu(k,914) - lu(k,433) * lu(k,886) - lu(k,916) = lu(k,916) - lu(k,434) * lu(k,886) - lu(k,919) = lu(k,919) - lu(k,435) * lu(k,886) - lu(k,921) = lu(k,921) - lu(k,436) * lu(k,886) - lu(k,922) = lu(k,922) - lu(k,437) * lu(k,886) - lu(k,941) = lu(k,941) - lu(k,425) * lu(k,929) - lu(k,942) = lu(k,942) - lu(k,426) * lu(k,929) - lu(k,943) = lu(k,943) - lu(k,427) * lu(k,929) - lu(k,944) = lu(k,944) - lu(k,428) * lu(k,929) - lu(k,945) = lu(k,945) - lu(k,429) * lu(k,929) - lu(k,946) = lu(k,946) - lu(k,430) * lu(k,929) - lu(k,950) = lu(k,950) - lu(k,431) * lu(k,929) - lu(k,953) = lu(k,953) - lu(k,432) * lu(k,929) - lu(k,956) = lu(k,956) - lu(k,433) * lu(k,929) - lu(k,958) = lu(k,958) - lu(k,434) * lu(k,929) - lu(k,961) = lu(k,961) - lu(k,435) * lu(k,929) - lu(k,963) = lu(k,963) - lu(k,436) * lu(k,929) - lu(k,964) = lu(k,964) - lu(k,437) * lu(k,929) - lu(k,1029) = lu(k,1029) - lu(k,425) * lu(k,1017) - lu(k,1030) = lu(k,1030) - lu(k,426) * lu(k,1017) - lu(k,1031) = lu(k,1031) - lu(k,427) * lu(k,1017) - lu(k,1032) = lu(k,1032) - lu(k,428) * lu(k,1017) - lu(k,1033) = lu(k,1033) - lu(k,429) * lu(k,1017) - lu(k,1034) = lu(k,1034) - lu(k,430) * lu(k,1017) - lu(k,1038) = lu(k,1038) - lu(k,431) * lu(k,1017) - lu(k,1041) = lu(k,1041) - lu(k,432) * lu(k,1017) - lu(k,1044) = lu(k,1044) - lu(k,433) * lu(k,1017) - lu(k,1046) = lu(k,1046) - lu(k,434) * lu(k,1017) - lu(k,1049) = lu(k,1049) - lu(k,435) * lu(k,1017) - lu(k,1051) = lu(k,1051) - lu(k,436) * lu(k,1017) - lu(k,1052) = lu(k,1052) - lu(k,437) * lu(k,1017) - lu(k,1070) = lu(k,1070) - lu(k,425) * lu(k,1058) - lu(k,1071) = lu(k,1071) - lu(k,426) * lu(k,1058) - lu(k,1072) = lu(k,1072) - lu(k,427) * lu(k,1058) - lu(k,1073) = lu(k,1073) - lu(k,428) * lu(k,1058) - lu(k,1074) = lu(k,1074) - lu(k,429) * lu(k,1058) - lu(k,1075) = lu(k,1075) - lu(k,430) * lu(k,1058) - lu(k,1079) = lu(k,1079) - lu(k,431) * lu(k,1058) - lu(k,1082) = lu(k,1082) - lu(k,432) * lu(k,1058) - lu(k,1085) = lu(k,1085) - lu(k,433) * lu(k,1058) - lu(k,1087) = lu(k,1087) - lu(k,434) * lu(k,1058) - lu(k,1090) = lu(k,1090) - lu(k,435) * lu(k,1058) - lu(k,1092) = lu(k,1092) - lu(k,436) * lu(k,1058) - lu(k,1093) = lu(k,1093) - lu(k,437) * lu(k,1058) - lu(k,1361) = lu(k,1361) - lu(k,425) * lu(k,1348) - lu(k,1362) = lu(k,1362) - lu(k,426) * lu(k,1348) - lu(k,1363) = lu(k,1363) - lu(k,427) * lu(k,1348) - lu(k,1364) = lu(k,1364) - lu(k,428) * lu(k,1348) - lu(k,1365) = lu(k,1365) - lu(k,429) * lu(k,1348) - lu(k,1366) = lu(k,1366) - lu(k,430) * lu(k,1348) - lu(k,1370) = lu(k,1370) - lu(k,431) * lu(k,1348) - lu(k,1373) = lu(k,1373) - lu(k,432) * lu(k,1348) - lu(k,1376) = lu(k,1376) - lu(k,433) * lu(k,1348) - lu(k,1378) = lu(k,1378) - lu(k,434) * lu(k,1348) - lu(k,1381) = lu(k,1381) - lu(k,435) * lu(k,1348) - lu(k,1383) = lu(k,1383) - lu(k,436) * lu(k,1348) - lu(k,1384) = lu(k,1384) - lu(k,437) * lu(k,1348) - lu(k,1503) = lu(k,1503) - lu(k,425) * lu(k,1490) - lu(k,1504) = lu(k,1504) - lu(k,426) * lu(k,1490) - lu(k,1505) = - lu(k,427) * lu(k,1490) - lu(k,1506) = lu(k,1506) - lu(k,428) * lu(k,1490) - lu(k,1507) = - lu(k,429) * lu(k,1490) - lu(k,1508) = - lu(k,430) * lu(k,1490) - lu(k,1512) = lu(k,1512) - lu(k,431) * lu(k,1490) - lu(k,1515) = lu(k,1515) - lu(k,432) * lu(k,1490) - lu(k,1518) = lu(k,1518) - lu(k,433) * lu(k,1490) - lu(k,1520) = - lu(k,434) * lu(k,1490) - lu(k,1523) = - lu(k,435) * lu(k,1490) - lu(k,1525) = lu(k,1525) - lu(k,436) * lu(k,1490) - lu(k,1526) = lu(k,1526) - lu(k,437) * lu(k,1490) - lu(k,1587) = lu(k,1587) - lu(k,425) * lu(k,1575) - lu(k,1588) = lu(k,1588) - lu(k,426) * lu(k,1575) - lu(k,1589) = lu(k,1589) - lu(k,427) * lu(k,1575) - lu(k,1590) = lu(k,1590) - lu(k,428) * lu(k,1575) - lu(k,1591) = lu(k,1591) - lu(k,429) * lu(k,1575) - lu(k,1592) = lu(k,1592) - lu(k,430) * lu(k,1575) - lu(k,1596) = lu(k,1596) - lu(k,431) * lu(k,1575) - lu(k,1599) = lu(k,1599) - lu(k,432) * lu(k,1575) - lu(k,1602) = lu(k,1602) - lu(k,433) * lu(k,1575) - lu(k,1604) = lu(k,1604) - lu(k,434) * lu(k,1575) - lu(k,1607) = lu(k,1607) - lu(k,435) * lu(k,1575) - lu(k,1609) = lu(k,1609) - lu(k,436) * lu(k,1575) - lu(k,1610) = lu(k,1610) - lu(k,437) * lu(k,1575) - lu(k,1696) = lu(k,1696) - lu(k,425) * lu(k,1684) - lu(k,1697) = lu(k,1697) - lu(k,426) * lu(k,1684) - lu(k,1698) = lu(k,1698) - lu(k,427) * lu(k,1684) - lu(k,1699) = lu(k,1699) - lu(k,428) * lu(k,1684) - lu(k,1700) = lu(k,1700) - lu(k,429) * lu(k,1684) - lu(k,1701) = lu(k,1701) - lu(k,430) * lu(k,1684) - lu(k,1705) = lu(k,1705) - lu(k,431) * lu(k,1684) - lu(k,1708) = lu(k,1708) - lu(k,432) * lu(k,1684) - lu(k,1711) = lu(k,1711) - lu(k,433) * lu(k,1684) - lu(k,1713) = lu(k,1713) - lu(k,434) * lu(k,1684) - lu(k,1716) = lu(k,1716) - lu(k,435) * lu(k,1684) - lu(k,1718) = lu(k,1718) - lu(k,436) * lu(k,1684) - lu(k,1719) = lu(k,1719) - lu(k,437) * lu(k,1684) - lu(k,1833) = lu(k,1833) - lu(k,425) * lu(k,1819) - lu(k,1834) = lu(k,1834) - lu(k,426) * lu(k,1819) - lu(k,1835) = lu(k,1835) - lu(k,427) * lu(k,1819) - lu(k,1836) = lu(k,1836) - lu(k,428) * lu(k,1819) - lu(k,1837) = lu(k,1837) - lu(k,429) * lu(k,1819) - lu(k,1838) = lu(k,1838) - lu(k,430) * lu(k,1819) - lu(k,1842) = lu(k,1842) - lu(k,431) * lu(k,1819) - lu(k,1845) = lu(k,1845) - lu(k,432) * lu(k,1819) - lu(k,1848) = lu(k,1848) - lu(k,433) * lu(k,1819) - lu(k,1850) = lu(k,1850) - lu(k,434) * lu(k,1819) - lu(k,1853) = lu(k,1853) - lu(k,435) * lu(k,1819) - lu(k,1855) = lu(k,1855) - lu(k,436) * lu(k,1819) - lu(k,1856) = lu(k,1856) - lu(k,437) * lu(k,1819) - end do + real(r8), intent(inout) :: lu(:) + lu(393) = 1._r8 / lu(393) + lu(394) = lu(394) * lu(393) + lu(395) = lu(395) * lu(393) + lu(396) = lu(396) * lu(393) + lu(397) = lu(397) * lu(393) + lu(398) = lu(398) * lu(393) + lu(399) = lu(399) * lu(393) + lu(400) = lu(400) * lu(393) + lu(401) = lu(401) * lu(393) + lu(402) = lu(402) * lu(393) + lu(403) = lu(403) * lu(393) + lu(404) = lu(404) * lu(393) + lu(405) = lu(405) * lu(393) + lu(406) = lu(406) * lu(393) + lu(407) = lu(407) * lu(393) + lu(410) = lu(410) - lu(394) * lu(408) + lu(411) = lu(411) - lu(395) * lu(408) + lu(412) = lu(412) - lu(396) * lu(408) + lu(413) = lu(413) - lu(397) * lu(408) + lu(414) = lu(414) - lu(398) * lu(408) + lu(415) = lu(415) - lu(399) * lu(408) + lu(416) = lu(416) - lu(400) * lu(408) + lu(417) = lu(417) - lu(401) * lu(408) + lu(418) = lu(418) - lu(402) * lu(408) + lu(419) = lu(419) - lu(403) * lu(408) + lu(420) = lu(420) - lu(404) * lu(408) + lu(421) = lu(421) - lu(405) * lu(408) + lu(422) = lu(422) - lu(406) * lu(408) + lu(423) = lu(423) - lu(407) * lu(408) + lu(690) = lu(690) - lu(394) * lu(688) + lu(693) = lu(693) - lu(395) * lu(688) + lu(694) = lu(694) - lu(396) * lu(688) + lu(695) = lu(695) - lu(397) * lu(688) + lu(696) = lu(696) - lu(398) * lu(688) + lu(698) = lu(698) - lu(399) * lu(688) + lu(699) = lu(699) - lu(400) * lu(688) + lu(700) = lu(700) - lu(401) * lu(688) + lu(701) = lu(701) - lu(402) * lu(688) + lu(702) = lu(702) - lu(403) * lu(688) + lu(703) = lu(703) - lu(404) * lu(688) + lu(704) = lu(704) - lu(405) * lu(688) + lu(706) = lu(706) - lu(406) * lu(688) + lu(708) = lu(708) - lu(407) * lu(688) + lu(902) = lu(902) - lu(394) * lu(893) + lu(908) = lu(908) - lu(395) * lu(893) + lu(909) = lu(909) - lu(396) * lu(893) + lu(910) = lu(910) - lu(397) * lu(893) + lu(911) = lu(911) - lu(398) * lu(893) + lu(913) = lu(913) - lu(399) * lu(893) + lu(914) = lu(914) - lu(400) * lu(893) + lu(916) = lu(916) - lu(401) * lu(893) + lu(917) = lu(917) - lu(402) * lu(893) + lu(919) = lu(919) - lu(403) * lu(893) + lu(921) = lu(921) - lu(404) * lu(893) + lu(923) = lu(923) - lu(405) * lu(893) + lu(927) = lu(927) - lu(406) * lu(893) + lu(930) = lu(930) - lu(407) * lu(893) + lu(949) = lu(949) - lu(394) * lu(939) + lu(955) = lu(955) - lu(395) * lu(939) + lu(956) = lu(956) - lu(396) * lu(939) + lu(957) = lu(957) - lu(397) * lu(939) + lu(958) = lu(958) - lu(398) * lu(939) + lu(960) = lu(960) - lu(399) * lu(939) + lu(961) = lu(961) - lu(400) * lu(939) + lu(963) = lu(963) - lu(401) * lu(939) + lu(964) = lu(964) - lu(402) * lu(939) + lu(966) = lu(966) - lu(403) * lu(939) + lu(968) = lu(968) - lu(404) * lu(939) + lu(970) = lu(970) - lu(405) * lu(939) + lu(974) = lu(974) - lu(406) * lu(939) + lu(977) = lu(977) - lu(407) * lu(939) + lu(991) = lu(991) - lu(394) * lu(982) + lu(997) = lu(997) - lu(395) * lu(982) + lu(998) = lu(998) - lu(396) * lu(982) + lu(999) = lu(999) - lu(397) * lu(982) + lu(1000) = lu(1000) - lu(398) * lu(982) + lu(1002) = lu(1002) - lu(399) * lu(982) + lu(1003) = lu(1003) - lu(400) * lu(982) + lu(1005) = lu(1005) - lu(401) * lu(982) + lu(1006) = lu(1006) - lu(402) * lu(982) + lu(1008) = lu(1008) - lu(403) * lu(982) + lu(1010) = lu(1010) - lu(404) * lu(982) + lu(1012) = lu(1012) - lu(405) * lu(982) + lu(1016) = lu(1016) - lu(406) * lu(982) + lu(1019) = lu(1019) - lu(407) * lu(982) + lu(1127) = lu(1127) - lu(394) * lu(1118) + lu(1133) = lu(1133) - lu(395) * lu(1118) + lu(1134) = lu(1134) - lu(396) * lu(1118) + lu(1135) = lu(1135) - lu(397) * lu(1118) + lu(1136) = lu(1136) - lu(398) * lu(1118) + lu(1138) = lu(1138) - lu(399) * lu(1118) + lu(1139) = lu(1139) - lu(400) * lu(1118) + lu(1141) = lu(1141) - lu(401) * lu(1118) + lu(1142) = lu(1142) - lu(402) * lu(1118) + lu(1144) = lu(1144) - lu(403) * lu(1118) + lu(1146) = lu(1146) - lu(404) * lu(1118) + lu(1148) = lu(1148) - lu(405) * lu(1118) + lu(1152) = lu(1152) - lu(406) * lu(1118) + lu(1155) = lu(1155) - lu(407) * lu(1118) + lu(1313) = lu(1313) - lu(394) * lu(1304) + lu(1319) = - lu(395) * lu(1304) + lu(1320) = - lu(396) * lu(1304) + lu(1321) = - lu(397) * lu(1304) + lu(1322) = - lu(398) * lu(1304) + lu(1324) = - lu(399) * lu(1304) + lu(1325) = lu(1325) - lu(400) * lu(1304) + lu(1327) = lu(1327) - lu(401) * lu(1304) + lu(1328) = lu(1328) - lu(402) * lu(1304) + lu(1330) = - lu(403) * lu(1304) + lu(1332) = lu(1332) - lu(404) * lu(1304) + lu(1334) = - lu(405) * lu(1304) + lu(1338) = - lu(406) * lu(1304) + lu(1341) = lu(1341) - lu(407) * lu(1304) + lu(1392) = lu(1392) - lu(394) * lu(1382) + lu(1398) = lu(1398) - lu(395) * lu(1382) + lu(1399) = lu(1399) - lu(396) * lu(1382) + lu(1400) = lu(1400) - lu(397) * lu(1382) + lu(1401) = lu(1401) - lu(398) * lu(1382) + lu(1403) = lu(1403) - lu(399) * lu(1382) + lu(1404) = lu(1404) - lu(400) * lu(1382) + lu(1406) = lu(1406) - lu(401) * lu(1382) + lu(1407) = lu(1407) - lu(402) * lu(1382) + lu(1409) = lu(1409) - lu(403) * lu(1382) + lu(1411) = lu(1411) - lu(404) * lu(1382) + lu(1413) = lu(1413) - lu(405) * lu(1382) + lu(1417) = lu(1417) - lu(406) * lu(1382) + lu(1420) = lu(1420) - lu(407) * lu(1382) + lu(1554) = lu(1554) - lu(394) * lu(1545) + lu(1560) = lu(1560) - lu(395) * lu(1545) + lu(1561) = lu(1561) - lu(396) * lu(1545) + lu(1562) = lu(1562) - lu(397) * lu(1545) + lu(1563) = lu(1563) - lu(398) * lu(1545) + lu(1565) = lu(1565) - lu(399) * lu(1545) + lu(1566) = lu(1566) - lu(400) * lu(1545) + lu(1568) = lu(1568) - lu(401) * lu(1545) + lu(1569) = lu(1569) - lu(402) * lu(1545) + lu(1571) = lu(1571) - lu(403) * lu(1545) + lu(1573) = lu(1573) - lu(404) * lu(1545) + lu(1575) = lu(1575) - lu(405) * lu(1545) + lu(1579) = lu(1579) - lu(406) * lu(1545) + lu(1582) = lu(1582) - lu(407) * lu(1545) + lu(1702) = lu(1702) - lu(394) * lu(1693) + lu(1708) = lu(1708) - lu(395) * lu(1693) + lu(1709) = lu(1709) - lu(396) * lu(1693) + lu(1710) = lu(1710) - lu(397) * lu(1693) + lu(1711) = lu(1711) - lu(398) * lu(1693) + lu(1713) = lu(1713) - lu(399) * lu(1693) + lu(1714) = lu(1714) - lu(400) * lu(1693) + lu(1716) = lu(1716) - lu(401) * lu(1693) + lu(1717) = lu(1717) - lu(402) * lu(1693) + lu(1719) = lu(1719) - lu(403) * lu(1693) + lu(1721) = lu(1721) - lu(404) * lu(1693) + lu(1723) = lu(1723) - lu(405) * lu(1693) + lu(1727) = lu(1727) - lu(406) * lu(1693) + lu(1730) = lu(1730) - lu(407) * lu(1693) + lu(409) = 1._r8 / lu(409) + lu(410) = lu(410) * lu(409) + lu(411) = lu(411) * lu(409) + lu(412) = lu(412) * lu(409) + lu(413) = lu(413) * lu(409) + lu(414) = lu(414) * lu(409) + lu(415) = lu(415) * lu(409) + lu(416) = lu(416) * lu(409) + lu(417) = lu(417) * lu(409) + lu(418) = lu(418) * lu(409) + lu(419) = lu(419) * lu(409) + lu(420) = lu(420) * lu(409) + lu(421) = lu(421) * lu(409) + lu(422) = lu(422) * lu(409) + lu(423) = lu(423) * lu(409) + lu(690) = lu(690) - lu(410) * lu(689) + lu(693) = lu(693) - lu(411) * lu(689) + lu(694) = lu(694) - lu(412) * lu(689) + lu(695) = lu(695) - lu(413) * lu(689) + lu(696) = lu(696) - lu(414) * lu(689) + lu(698) = lu(698) - lu(415) * lu(689) + lu(699) = lu(699) - lu(416) * lu(689) + lu(700) = lu(700) - lu(417) * lu(689) + lu(701) = lu(701) - lu(418) * lu(689) + lu(702) = lu(702) - lu(419) * lu(689) + lu(703) = lu(703) - lu(420) * lu(689) + lu(704) = lu(704) - lu(421) * lu(689) + lu(706) = lu(706) - lu(422) * lu(689) + lu(708) = lu(708) - lu(423) * lu(689) + lu(902) = lu(902) - lu(410) * lu(894) + lu(908) = lu(908) - lu(411) * lu(894) + lu(909) = lu(909) - lu(412) * lu(894) + lu(910) = lu(910) - lu(413) * lu(894) + lu(911) = lu(911) - lu(414) * lu(894) + lu(913) = lu(913) - lu(415) * lu(894) + lu(914) = lu(914) - lu(416) * lu(894) + lu(916) = lu(916) - lu(417) * lu(894) + lu(917) = lu(917) - lu(418) * lu(894) + lu(919) = lu(919) - lu(419) * lu(894) + lu(921) = lu(921) - lu(420) * lu(894) + lu(923) = lu(923) - lu(421) * lu(894) + lu(927) = lu(927) - lu(422) * lu(894) + lu(930) = lu(930) - lu(423) * lu(894) + lu(949) = lu(949) - lu(410) * lu(940) + lu(955) = lu(955) - lu(411) * lu(940) + lu(956) = lu(956) - lu(412) * lu(940) + lu(957) = lu(957) - lu(413) * lu(940) + lu(958) = lu(958) - lu(414) * lu(940) + lu(960) = lu(960) - lu(415) * lu(940) + lu(961) = lu(961) - lu(416) * lu(940) + lu(963) = lu(963) - lu(417) * lu(940) + lu(964) = lu(964) - lu(418) * lu(940) + lu(966) = lu(966) - lu(419) * lu(940) + lu(968) = lu(968) - lu(420) * lu(940) + lu(970) = lu(970) - lu(421) * lu(940) + lu(974) = lu(974) - lu(422) * lu(940) + lu(977) = lu(977) - lu(423) * lu(940) + lu(991) = lu(991) - lu(410) * lu(983) + lu(997) = lu(997) - lu(411) * lu(983) + lu(998) = lu(998) - lu(412) * lu(983) + lu(999) = lu(999) - lu(413) * lu(983) + lu(1000) = lu(1000) - lu(414) * lu(983) + lu(1002) = lu(1002) - lu(415) * lu(983) + lu(1003) = lu(1003) - lu(416) * lu(983) + lu(1005) = lu(1005) - lu(417) * lu(983) + lu(1006) = lu(1006) - lu(418) * lu(983) + lu(1008) = lu(1008) - lu(419) * lu(983) + lu(1010) = lu(1010) - lu(420) * lu(983) + lu(1012) = lu(1012) - lu(421) * lu(983) + lu(1016) = lu(1016) - lu(422) * lu(983) + lu(1019) = lu(1019) - lu(423) * lu(983) + lu(1127) = lu(1127) - lu(410) * lu(1119) + lu(1133) = lu(1133) - lu(411) * lu(1119) + lu(1134) = lu(1134) - lu(412) * lu(1119) + lu(1135) = lu(1135) - lu(413) * lu(1119) + lu(1136) = lu(1136) - lu(414) * lu(1119) + lu(1138) = lu(1138) - lu(415) * lu(1119) + lu(1139) = lu(1139) - lu(416) * lu(1119) + lu(1141) = lu(1141) - lu(417) * lu(1119) + lu(1142) = lu(1142) - lu(418) * lu(1119) + lu(1144) = lu(1144) - lu(419) * lu(1119) + lu(1146) = lu(1146) - lu(420) * lu(1119) + lu(1148) = lu(1148) - lu(421) * lu(1119) + lu(1152) = lu(1152) - lu(422) * lu(1119) + lu(1155) = lu(1155) - lu(423) * lu(1119) + lu(1313) = lu(1313) - lu(410) * lu(1305) + lu(1319) = lu(1319) - lu(411) * lu(1305) + lu(1320) = lu(1320) - lu(412) * lu(1305) + lu(1321) = lu(1321) - lu(413) * lu(1305) + lu(1322) = lu(1322) - lu(414) * lu(1305) + lu(1324) = lu(1324) - lu(415) * lu(1305) + lu(1325) = lu(1325) - lu(416) * lu(1305) + lu(1327) = lu(1327) - lu(417) * lu(1305) + lu(1328) = lu(1328) - lu(418) * lu(1305) + lu(1330) = lu(1330) - lu(419) * lu(1305) + lu(1332) = lu(1332) - lu(420) * lu(1305) + lu(1334) = lu(1334) - lu(421) * lu(1305) + lu(1338) = lu(1338) - lu(422) * lu(1305) + lu(1341) = lu(1341) - lu(423) * lu(1305) + lu(1392) = lu(1392) - lu(410) * lu(1383) + lu(1398) = lu(1398) - lu(411) * lu(1383) + lu(1399) = lu(1399) - lu(412) * lu(1383) + lu(1400) = lu(1400) - lu(413) * lu(1383) + lu(1401) = lu(1401) - lu(414) * lu(1383) + lu(1403) = lu(1403) - lu(415) * lu(1383) + lu(1404) = lu(1404) - lu(416) * lu(1383) + lu(1406) = lu(1406) - lu(417) * lu(1383) + lu(1407) = lu(1407) - lu(418) * lu(1383) + lu(1409) = lu(1409) - lu(419) * lu(1383) + lu(1411) = lu(1411) - lu(420) * lu(1383) + lu(1413) = lu(1413) - lu(421) * lu(1383) + lu(1417) = lu(1417) - lu(422) * lu(1383) + lu(1420) = lu(1420) - lu(423) * lu(1383) + lu(1554) = lu(1554) - lu(410) * lu(1546) + lu(1560) = lu(1560) - lu(411) * lu(1546) + lu(1561) = lu(1561) - lu(412) * lu(1546) + lu(1562) = lu(1562) - lu(413) * lu(1546) + lu(1563) = lu(1563) - lu(414) * lu(1546) + lu(1565) = lu(1565) - lu(415) * lu(1546) + lu(1566) = lu(1566) - lu(416) * lu(1546) + lu(1568) = lu(1568) - lu(417) * lu(1546) + lu(1569) = lu(1569) - lu(418) * lu(1546) + lu(1571) = lu(1571) - lu(419) * lu(1546) + lu(1573) = lu(1573) - lu(420) * lu(1546) + lu(1575) = lu(1575) - lu(421) * lu(1546) + lu(1579) = lu(1579) - lu(422) * lu(1546) + lu(1582) = lu(1582) - lu(423) * lu(1546) + lu(1702) = lu(1702) - lu(410) * lu(1694) + lu(1708) = lu(1708) - lu(411) * lu(1694) + lu(1709) = lu(1709) - lu(412) * lu(1694) + lu(1710) = lu(1710) - lu(413) * lu(1694) + lu(1711) = lu(1711) - lu(414) * lu(1694) + lu(1713) = lu(1713) - lu(415) * lu(1694) + lu(1714) = lu(1714) - lu(416) * lu(1694) + lu(1716) = lu(1716) - lu(417) * lu(1694) + lu(1717) = lu(1717) - lu(418) * lu(1694) + lu(1719) = lu(1719) - lu(419) * lu(1694) + lu(1721) = lu(1721) - lu(420) * lu(1694) + lu(1723) = lu(1723) - lu(421) * lu(1694) + lu(1727) = lu(1727) - lu(422) * lu(1694) + lu(1730) = lu(1730) - lu(423) * lu(1694) + lu(1828) = lu(1828) - lu(410) * lu(1818) + lu(1834) = lu(1834) - lu(411) * lu(1818) + lu(1835) = lu(1835) - lu(412) * lu(1818) + lu(1836) = lu(1836) - lu(413) * lu(1818) + lu(1837) = lu(1837) - lu(414) * lu(1818) + lu(1839) = lu(1839) - lu(415) * lu(1818) + lu(1840) = lu(1840) - lu(416) * lu(1818) + lu(1842) = lu(1842) - lu(417) * lu(1818) + lu(1843) = - lu(418) * lu(1818) + lu(1845) = lu(1845) - lu(419) * lu(1818) + lu(1847) = lu(1847) - lu(420) * lu(1818) + lu(1849) = lu(1849) - lu(421) * lu(1818) + lu(1853) = lu(1853) - lu(422) * lu(1818) + lu(1856) = lu(1856) - lu(423) * lu(1818) + lu(424) = 1._r8 / lu(424) + lu(425) = lu(425) * lu(424) + lu(426) = lu(426) * lu(424) + lu(427) = lu(427) * lu(424) + lu(428) = lu(428) * lu(424) + lu(429) = lu(429) * lu(424) + lu(430) = lu(430) * lu(424) + lu(431) = lu(431) * lu(424) + lu(432) = lu(432) * lu(424) + lu(433) = lu(433) * lu(424) + lu(434) = lu(434) * lu(424) + lu(435) = lu(435) * lu(424) + lu(436) = lu(436) * lu(424) + lu(437) = lu(437) * lu(424) + lu(543) = lu(543) - lu(425) * lu(538) + lu(544) = lu(544) - lu(426) * lu(538) + lu(545) = lu(545) - lu(427) * lu(538) + lu(546) = lu(546) - lu(428) * lu(538) + lu(547) = lu(547) - lu(429) * lu(538) + lu(548) = lu(548) - lu(430) * lu(538) + lu(549) = lu(549) - lu(431) * lu(538) + lu(551) = lu(551) - lu(432) * lu(538) + lu(552) = lu(552) - lu(433) * lu(538) + lu(553) = lu(553) - lu(434) * lu(538) + lu(554) = lu(554) - lu(435) * lu(538) + lu(555) = lu(555) - lu(436) * lu(538) + lu(556) = lu(556) - lu(437) * lu(538) + lu(908) = lu(908) - lu(425) * lu(895) + lu(909) = lu(909) - lu(426) * lu(895) + lu(910) = lu(910) - lu(427) * lu(895) + lu(911) = lu(911) - lu(428) * lu(895) + lu(912) = lu(912) - lu(429) * lu(895) + lu(913) = lu(913) - lu(430) * lu(895) + lu(914) = lu(914) - lu(431) * lu(895) + lu(919) = lu(919) - lu(432) * lu(895) + lu(921) = lu(921) - lu(433) * lu(895) + lu(923) = lu(923) - lu(434) * lu(895) + lu(927) = lu(927) - lu(435) * lu(895) + lu(928) = lu(928) - lu(436) * lu(895) + lu(930) = lu(930) - lu(437) * lu(895) + lu(955) = lu(955) - lu(425) * lu(941) + lu(956) = lu(956) - lu(426) * lu(941) + lu(957) = lu(957) - lu(427) * lu(941) + lu(958) = lu(958) - lu(428) * lu(941) + lu(959) = lu(959) - lu(429) * lu(941) + lu(960) = lu(960) - lu(430) * lu(941) + lu(961) = lu(961) - lu(431) * lu(941) + lu(966) = lu(966) - lu(432) * lu(941) + lu(968) = lu(968) - lu(433) * lu(941) + lu(970) = lu(970) - lu(434) * lu(941) + lu(974) = lu(974) - lu(435) * lu(941) + lu(975) = lu(975) - lu(436) * lu(941) + lu(977) = lu(977) - lu(437) * lu(941) + lu(997) = lu(997) - lu(425) * lu(984) + lu(998) = lu(998) - lu(426) * lu(984) + lu(999) = lu(999) - lu(427) * lu(984) + lu(1000) = lu(1000) - lu(428) * lu(984) + lu(1001) = lu(1001) - lu(429) * lu(984) + lu(1002) = lu(1002) - lu(430) * lu(984) + lu(1003) = lu(1003) - lu(431) * lu(984) + lu(1008) = lu(1008) - lu(432) * lu(984) + lu(1010) = lu(1010) - lu(433) * lu(984) + lu(1012) = lu(1012) - lu(434) * lu(984) + lu(1016) = lu(1016) - lu(435) * lu(984) + lu(1017) = lu(1017) - lu(436) * lu(984) + lu(1019) = lu(1019) - lu(437) * lu(984) + lu(1133) = lu(1133) - lu(425) * lu(1120) + lu(1134) = lu(1134) - lu(426) * lu(1120) + lu(1135) = lu(1135) - lu(427) * lu(1120) + lu(1136) = lu(1136) - lu(428) * lu(1120) + lu(1137) = lu(1137) - lu(429) * lu(1120) + lu(1138) = lu(1138) - lu(430) * lu(1120) + lu(1139) = lu(1139) - lu(431) * lu(1120) + lu(1144) = lu(1144) - lu(432) * lu(1120) + lu(1146) = lu(1146) - lu(433) * lu(1120) + lu(1148) = lu(1148) - lu(434) * lu(1120) + lu(1152) = lu(1152) - lu(435) * lu(1120) + lu(1153) = lu(1153) - lu(436) * lu(1120) + lu(1155) = lu(1155) - lu(437) * lu(1120) + lu(1174) = - lu(425) * lu(1160) + lu(1175) = lu(1175) - lu(426) * lu(1160) + lu(1176) = - lu(427) * lu(1160) + lu(1177) = lu(1177) - lu(428) * lu(1160) + lu(1178) = lu(1178) - lu(429) * lu(1160) + lu(1179) = - lu(430) * lu(1160) + lu(1180) = lu(1180) - lu(431) * lu(1160) + lu(1185) = lu(1185) - lu(432) * lu(1160) + lu(1187) = lu(1187) - lu(433) * lu(1160) + lu(1189) = - lu(434) * lu(1160) + lu(1193) = - lu(435) * lu(1160) + lu(1194) = lu(1194) - lu(436) * lu(1160) + lu(1196) = lu(1196) - lu(437) * lu(1160) + lu(1398) = lu(1398) - lu(425) * lu(1384) + lu(1399) = lu(1399) - lu(426) * lu(1384) + lu(1400) = lu(1400) - lu(427) * lu(1384) + lu(1401) = lu(1401) - lu(428) * lu(1384) + lu(1402) = lu(1402) - lu(429) * lu(1384) + lu(1403) = lu(1403) - lu(430) * lu(1384) + lu(1404) = lu(1404) - lu(431) * lu(1384) + lu(1409) = lu(1409) - lu(432) * lu(1384) + lu(1411) = lu(1411) - lu(433) * lu(1384) + lu(1413) = lu(1413) - lu(434) * lu(1384) + lu(1417) = lu(1417) - lu(435) * lu(1384) + lu(1418) = lu(1418) - lu(436) * lu(1384) + lu(1420) = lu(1420) - lu(437) * lu(1384) + lu(1560) = lu(1560) - lu(425) * lu(1547) + lu(1561) = lu(1561) - lu(426) * lu(1547) + lu(1562) = lu(1562) - lu(427) * lu(1547) + lu(1563) = lu(1563) - lu(428) * lu(1547) + lu(1564) = lu(1564) - lu(429) * lu(1547) + lu(1565) = lu(1565) - lu(430) * lu(1547) + lu(1566) = lu(1566) - lu(431) * lu(1547) + lu(1571) = lu(1571) - lu(432) * lu(1547) + lu(1573) = lu(1573) - lu(433) * lu(1547) + lu(1575) = lu(1575) - lu(434) * lu(1547) + lu(1579) = lu(1579) - lu(435) * lu(1547) + lu(1580) = lu(1580) - lu(436) * lu(1547) + lu(1582) = lu(1582) - lu(437) * lu(1547) + lu(1708) = lu(1708) - lu(425) * lu(1695) + lu(1709) = lu(1709) - lu(426) * lu(1695) + lu(1710) = lu(1710) - lu(427) * lu(1695) + lu(1711) = lu(1711) - lu(428) * lu(1695) + lu(1712) = lu(1712) - lu(429) * lu(1695) + lu(1713) = lu(1713) - lu(430) * lu(1695) + lu(1714) = lu(1714) - lu(431) * lu(1695) + lu(1719) = lu(1719) - lu(432) * lu(1695) + lu(1721) = lu(1721) - lu(433) * lu(1695) + lu(1723) = lu(1723) - lu(434) * lu(1695) + lu(1727) = lu(1727) - lu(435) * lu(1695) + lu(1728) = lu(1728) - lu(436) * lu(1695) + lu(1730) = lu(1730) - lu(437) * lu(1695) + lu(1737) = lu(1737) - lu(425) * lu(1732) + lu(1738) = lu(1738) - lu(426) * lu(1732) + lu(1739) = lu(1739) - lu(427) * lu(1732) + lu(1740) = lu(1740) - lu(428) * lu(1732) + lu(1741) = lu(1741) - lu(429) * lu(1732) + lu(1742) = lu(1742) - lu(430) * lu(1732) + lu(1743) = lu(1743) - lu(431) * lu(1732) + lu(1748) = lu(1748) - lu(432) * lu(1732) + lu(1750) = lu(1750) - lu(433) * lu(1732) + lu(1752) = lu(1752) - lu(434) * lu(1732) + lu(1756) = lu(1756) - lu(435) * lu(1732) + lu(1757) = lu(1757) - lu(436) * lu(1732) + lu(1759) = lu(1759) - lu(437) * lu(1732) + lu(1834) = lu(1834) - lu(425) * lu(1819) + lu(1835) = lu(1835) - lu(426) * lu(1819) + lu(1836) = lu(1836) - lu(427) * lu(1819) + lu(1837) = lu(1837) - lu(428) * lu(1819) + lu(1838) = lu(1838) - lu(429) * lu(1819) + lu(1839) = lu(1839) - lu(430) * lu(1819) + lu(1840) = lu(1840) - lu(431) * lu(1819) + lu(1845) = lu(1845) - lu(432) * lu(1819) + lu(1847) = lu(1847) - lu(433) * lu(1819) + lu(1849) = lu(1849) - lu(434) * lu(1819) + lu(1853) = lu(1853) - lu(435) * lu(1819) + lu(1854) = lu(1854) - lu(436) * lu(1819) + lu(1856) = lu(1856) - lu(437) * lu(1819) end subroutine lu_fac11 - subroutine lu_fac12( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac12( lu ) 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,438) = 1._r8 / lu(k,438) - lu(k,439) = lu(k,439) * lu(k,438) - lu(k,440) = lu(k,440) * lu(k,438) - lu(k,441) = lu(k,441) * lu(k,438) - lu(k,442) = lu(k,442) * lu(k,438) - lu(k,443) = lu(k,443) * lu(k,438) - lu(k,444) = lu(k,444) * lu(k,438) - lu(k,445) = lu(k,445) * lu(k,438) - lu(k,446) = lu(k,446) * lu(k,438) - lu(k,447) = lu(k,447) * lu(k,438) - lu(k,448) = lu(k,448) * lu(k,438) - lu(k,449) = lu(k,449) * lu(k,438) - lu(k,450) = lu(k,450) * lu(k,438) - lu(k,451) = lu(k,451) * lu(k,438) - lu(k,662) = - lu(k,439) * lu(k,659) - lu(k,665) = lu(k,665) - lu(k,440) * lu(k,659) - lu(k,666) = lu(k,666) - lu(k,441) * lu(k,659) - lu(k,669) = lu(k,669) - lu(k,442) * lu(k,659) - lu(k,673) = lu(k,673) - lu(k,443) * lu(k,659) - lu(k,674) = lu(k,674) - lu(k,444) * lu(k,659) - lu(k,675) = lu(k,675) - lu(k,445) * lu(k,659) - lu(k,677) = lu(k,677) - lu(k,446) * lu(k,659) - lu(k,679) = lu(k,679) - lu(k,447) * lu(k,659) - lu(k,680) = - lu(k,448) * lu(k,659) - lu(k,682) = - lu(k,449) * lu(k,659) - lu(k,683) = - lu(k,450) * lu(k,659) - lu(k,686) = lu(k,686) - lu(k,451) * lu(k,659) - lu(k,820) = lu(k,820) - lu(k,439) * lu(k,816) - lu(k,822) = lu(k,822) - lu(k,440) * lu(k,816) - lu(k,823) = lu(k,823) - lu(k,441) * lu(k,816) - lu(k,826) = lu(k,826) - lu(k,442) * lu(k,816) - lu(k,831) = - lu(k,443) * lu(k,816) - lu(k,832) = lu(k,832) - lu(k,444) * lu(k,816) - lu(k,834) = lu(k,834) - lu(k,445) * lu(k,816) - lu(k,836) = lu(k,836) - lu(k,446) * lu(k,816) - lu(k,838) = lu(k,838) - lu(k,447) * lu(k,816) - lu(k,839) = - lu(k,448) * lu(k,816) - lu(k,841) = lu(k,841) - lu(k,449) * lu(k,816) - lu(k,842) = lu(k,842) - lu(k,450) * lu(k,816) - lu(k,845) = lu(k,845) - lu(k,451) * lu(k,816) - lu(k,983) = lu(k,983) - lu(k,439) * lu(k,973) - lu(k,986) = lu(k,986) - lu(k,440) * lu(k,973) - lu(k,987) = lu(k,987) - lu(k,441) * lu(k,973) - lu(k,990) = lu(k,990) - lu(k,442) * lu(k,973) - lu(k,995) = lu(k,995) - lu(k,443) * lu(k,973) - lu(k,996) = lu(k,996) - lu(k,444) * lu(k,973) - lu(k,998) = lu(k,998) - lu(k,445) * lu(k,973) - lu(k,1000) = lu(k,1000) - lu(k,446) * lu(k,973) - lu(k,1002) = lu(k,1002) - lu(k,447) * lu(k,973) - lu(k,1003) = lu(k,1003) - lu(k,448) * lu(k,973) - lu(k,1005) = lu(k,1005) - lu(k,449) * lu(k,973) - lu(k,1006) = lu(k,1006) - lu(k,450) * lu(k,973) - lu(k,1009) = lu(k,1009) - lu(k,451) * lu(k,973) - lu(k,1190) = lu(k,1190) - lu(k,439) * lu(k,1183) - lu(k,1193) = - lu(k,440) * lu(k,1183) - lu(k,1194) = lu(k,1194) - lu(k,441) * lu(k,1183) - lu(k,1197) = lu(k,1197) - lu(k,442) * lu(k,1183) - lu(k,1202) = lu(k,1202) - lu(k,443) * lu(k,1183) - lu(k,1203) = lu(k,1203) - lu(k,444) * lu(k,1183) - lu(k,1205) = lu(k,1205) - lu(k,445) * lu(k,1183) - lu(k,1207) = lu(k,1207) - lu(k,446) * lu(k,1183) - lu(k,1209) = lu(k,1209) - lu(k,447) * lu(k,1183) - lu(k,1210) = lu(k,1210) - lu(k,448) * lu(k,1183) - lu(k,1212) = lu(k,1212) - lu(k,449) * lu(k,1183) - lu(k,1213) = lu(k,1213) - lu(k,450) * lu(k,1183) - lu(k,1216) = lu(k,1216) - lu(k,451) * lu(k,1183) - lu(k,1239) = - lu(k,439) * lu(k,1232) - lu(k,1242) = lu(k,1242) - lu(k,440) * lu(k,1232) - lu(k,1243) = - lu(k,441) * lu(k,1232) - lu(k,1246) = lu(k,1246) - lu(k,442) * lu(k,1232) - lu(k,1251) = lu(k,1251) - lu(k,443) * lu(k,1232) - lu(k,1252) = lu(k,1252) - lu(k,444) * lu(k,1232) - lu(k,1254) = lu(k,1254) - lu(k,445) * lu(k,1232) - lu(k,1256) = lu(k,1256) - lu(k,446) * lu(k,1232) - lu(k,1258) = lu(k,1258) - lu(k,447) * lu(k,1232) - lu(k,1259) = lu(k,1259) - lu(k,448) * lu(k,1232) - lu(k,1261) = - lu(k,449) * lu(k,1232) - lu(k,1262) = lu(k,1262) - lu(k,450) * lu(k,1232) - lu(k,1265) = lu(k,1265) - lu(k,451) * lu(k,1232) - lu(k,1313) = lu(k,1313) - lu(k,439) * lu(k,1310) - lu(k,1316) = - lu(k,440) * lu(k,1310) - lu(k,1317) = lu(k,1317) - lu(k,441) * lu(k,1310) - lu(k,1320) = lu(k,1320) - lu(k,442) * lu(k,1310) - lu(k,1325) = lu(k,1325) - lu(k,443) * lu(k,1310) - lu(k,1326) = lu(k,1326) - lu(k,444) * lu(k,1310) - lu(k,1328) = lu(k,1328) - lu(k,445) * lu(k,1310) - lu(k,1330) = lu(k,1330) - lu(k,446) * lu(k,1310) - lu(k,1332) = lu(k,1332) - lu(k,447) * lu(k,1310) - lu(k,1333) = lu(k,1333) - lu(k,448) * lu(k,1310) - lu(k,1335) = - lu(k,449) * lu(k,1310) - lu(k,1336) = lu(k,1336) - lu(k,450) * lu(k,1310) - lu(k,1339) = lu(k,1339) - lu(k,451) * lu(k,1310) - lu(k,1416) = lu(k,1416) - lu(k,439) * lu(k,1408) - lu(k,1419) = lu(k,1419) - lu(k,440) * lu(k,1408) - lu(k,1420) = lu(k,1420) - lu(k,441) * lu(k,1408) - lu(k,1423) = lu(k,1423) - lu(k,442) * lu(k,1408) - lu(k,1428) = lu(k,1428) - lu(k,443) * lu(k,1408) - lu(k,1429) = lu(k,1429) - lu(k,444) * lu(k,1408) - lu(k,1431) = lu(k,1431) - lu(k,445) * lu(k,1408) - lu(k,1433) = lu(k,1433) - lu(k,446) * lu(k,1408) - lu(k,1435) = lu(k,1435) - lu(k,447) * lu(k,1408) - lu(k,1436) = lu(k,1436) - lu(k,448) * lu(k,1408) - lu(k,1438) = lu(k,1438) - lu(k,449) * lu(k,1408) - lu(k,1439) = lu(k,1439) - lu(k,450) * lu(k,1408) - lu(k,1442) = lu(k,1442) - lu(k,451) * lu(k,1408) - lu(k,1499) = lu(k,1499) - lu(k,439) * lu(k,1491) - lu(k,1502) = lu(k,1502) - lu(k,440) * lu(k,1491) - lu(k,1503) = lu(k,1503) - lu(k,441) * lu(k,1491) - lu(k,1506) = lu(k,1506) - lu(k,442) * lu(k,1491) - lu(k,1511) = lu(k,1511) - lu(k,443) * lu(k,1491) - lu(k,1512) = lu(k,1512) - lu(k,444) * lu(k,1491) - lu(k,1514) = - lu(k,445) * lu(k,1491) - lu(k,1516) = lu(k,1516) - lu(k,446) * lu(k,1491) - lu(k,1518) = lu(k,1518) - lu(k,447) * lu(k,1491) - lu(k,1519) = lu(k,1519) - lu(k,448) * lu(k,1491) - lu(k,1521) = - lu(k,449) * lu(k,1491) - lu(k,1522) = lu(k,1522) - lu(k,450) * lu(k,1491) - lu(k,1525) = lu(k,1525) - lu(k,451) * lu(k,1491) - lu(k,1615) = - lu(k,439) * lu(k,1613) - lu(k,1618) = - lu(k,440) * lu(k,1613) - lu(k,1619) = lu(k,1619) - lu(k,441) * lu(k,1613) - lu(k,1622) = lu(k,1622) - lu(k,442) * lu(k,1613) - lu(k,1627) = lu(k,1627) - lu(k,443) * lu(k,1613) - lu(k,1628) = lu(k,1628) - lu(k,444) * lu(k,1613) - lu(k,1630) = - lu(k,445) * lu(k,1613) - lu(k,1632) = lu(k,1632) - lu(k,446) * lu(k,1613) - lu(k,1634) = lu(k,1634) - lu(k,447) * lu(k,1613) - lu(k,1635) = lu(k,1635) - lu(k,448) * lu(k,1613) - lu(k,1637) = lu(k,1637) - lu(k,449) * lu(k,1613) - lu(k,1638) = - lu(k,450) * lu(k,1613) - lu(k,1641) = lu(k,1641) - lu(k,451) * lu(k,1613) - lu(k,1650) = lu(k,1650) - lu(k,439) * lu(k,1645) - lu(k,1653) = lu(k,1653) - lu(k,440) * lu(k,1645) - lu(k,1654) = lu(k,1654) - lu(k,441) * lu(k,1645) - lu(k,1657) = lu(k,1657) - lu(k,442) * lu(k,1645) - lu(k,1662) = lu(k,1662) - lu(k,443) * lu(k,1645) - lu(k,1663) = lu(k,1663) - lu(k,444) * lu(k,1645) - lu(k,1665) = lu(k,1665) - lu(k,445) * lu(k,1645) - lu(k,1667) = lu(k,1667) - lu(k,446) * lu(k,1645) - lu(k,1669) = lu(k,1669) - lu(k,447) * lu(k,1645) - lu(k,1670) = lu(k,1670) - lu(k,448) * lu(k,1645) - lu(k,1672) = lu(k,1672) - lu(k,449) * lu(k,1645) - lu(k,1673) = lu(k,1673) - lu(k,450) * lu(k,1645) - lu(k,1676) = lu(k,1676) - lu(k,451) * lu(k,1645) - lu(k,1771) = - lu(k,439) * lu(k,1765) - lu(k,1774) = lu(k,1774) - lu(k,440) * lu(k,1765) - lu(k,1775) = lu(k,1775) - lu(k,441) * lu(k,1765) - lu(k,1778) = - lu(k,442) * lu(k,1765) - lu(k,1783) = lu(k,1783) - lu(k,443) * lu(k,1765) - lu(k,1784) = lu(k,1784) - lu(k,444) * lu(k,1765) - lu(k,1786) = lu(k,1786) - lu(k,445) * lu(k,1765) - lu(k,1788) = lu(k,1788) - lu(k,446) * lu(k,1765) - lu(k,1790) = lu(k,1790) - lu(k,447) * lu(k,1765) - lu(k,1791) = lu(k,1791) - lu(k,448) * lu(k,1765) - lu(k,1793) = lu(k,1793) - lu(k,449) * lu(k,1765) - lu(k,1794) = - lu(k,450) * lu(k,1765) - lu(k,1797) = lu(k,1797) - lu(k,451) * lu(k,1765) - 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,460) = lu(k,460) * lu(k,454) - lu(k,461) = lu(k,461) * lu(k,454) - lu(k,462) = lu(k,462) * lu(k,454) - lu(k,463) = lu(k,463) * lu(k,454) - lu(k,464) = lu(k,464) * lu(k,454) - lu(k,584) = lu(k,584) - lu(k,455) * lu(k,583) - lu(k,585) = - lu(k,456) * lu(k,583) - lu(k,586) = - lu(k,457) * lu(k,583) - lu(k,587) = lu(k,587) - lu(k,458) * lu(k,583) - lu(k,588) = lu(k,588) - lu(k,459) * lu(k,583) - lu(k,592) = lu(k,592) - lu(k,460) * lu(k,583) - lu(k,593) = lu(k,593) - lu(k,461) * lu(k,583) - lu(k,595) = lu(k,595) - lu(k,462) * lu(k,583) - lu(k,599) = lu(k,599) - lu(k,463) * lu(k,583) - lu(k,600) = lu(k,600) - lu(k,464) * lu(k,583) - lu(k,605) = lu(k,605) - lu(k,455) * lu(k,603) - lu(k,606) = lu(k,606) - lu(k,456) * lu(k,603) - lu(k,607) = lu(k,607) - lu(k,457) * lu(k,603) - lu(k,608) = lu(k,608) - lu(k,458) * lu(k,603) - lu(k,609) = lu(k,609) - lu(k,459) * lu(k,603) - lu(k,613) = - lu(k,460) * lu(k,603) - lu(k,614) = - lu(k,461) * lu(k,603) - lu(k,616) = lu(k,616) - lu(k,462) * lu(k,603) - lu(k,623) = lu(k,623) - lu(k,463) * lu(k,603) - lu(k,624) = lu(k,624) - lu(k,464) * lu(k,603) - lu(k,635) = lu(k,635) - lu(k,455) * lu(k,633) - lu(k,636) = lu(k,636) - lu(k,456) * lu(k,633) - lu(k,637) = lu(k,637) - lu(k,457) * lu(k,633) - lu(k,638) = lu(k,638) - lu(k,458) * lu(k,633) - lu(k,639) = lu(k,639) - lu(k,459) * lu(k,633) - lu(k,644) = lu(k,644) - lu(k,460) * lu(k,633) - lu(k,645) = lu(k,645) - lu(k,461) * lu(k,633) - lu(k,649) = lu(k,649) - lu(k,462) * lu(k,633) - lu(k,656) = lu(k,656) - lu(k,463) * lu(k,633) - lu(k,657) = lu(k,657) - lu(k,464) * lu(k,633) - lu(k,744) = lu(k,744) - lu(k,455) * lu(k,742) - lu(k,745) = lu(k,745) - lu(k,456) * lu(k,742) - lu(k,746) = lu(k,746) - lu(k,457) * lu(k,742) - lu(k,747) = lu(k,747) - lu(k,458) * lu(k,742) - lu(k,748) = lu(k,748) - lu(k,459) * lu(k,742) - lu(k,754) = lu(k,754) - lu(k,460) * lu(k,742) - lu(k,755) = lu(k,755) - lu(k,461) * lu(k,742) - lu(k,759) = lu(k,759) - lu(k,462) * lu(k,742) - lu(k,766) = lu(k,766) - lu(k,463) * lu(k,742) - lu(k,767) = lu(k,767) - lu(k,464) * lu(k,742) - lu(k,790) = lu(k,790) - lu(k,455) * lu(k,788) - lu(k,791) = lu(k,791) - lu(k,456) * lu(k,788) - lu(k,792) = lu(k,792) - lu(k,457) * lu(k,788) - lu(k,793) = lu(k,793) - lu(k,458) * lu(k,788) - lu(k,794) = lu(k,794) - lu(k,459) * lu(k,788) - lu(k,801) = lu(k,801) - lu(k,460) * lu(k,788) - lu(k,802) = lu(k,802) - lu(k,461) * lu(k,788) - lu(k,806) = lu(k,806) - lu(k,462) * lu(k,788) - lu(k,813) = lu(k,813) - lu(k,463) * lu(k,788) - lu(k,814) = lu(k,814) - lu(k,464) * lu(k,788) - lu(k,979) = lu(k,979) - lu(k,455) * lu(k,974) - lu(k,980) = - lu(k,456) * lu(k,974) - lu(k,981) = lu(k,981) - lu(k,457) * lu(k,974) - lu(k,984) = lu(k,984) - lu(k,458) * lu(k,974) - lu(k,985) = lu(k,985) - lu(k,459) * lu(k,974) - lu(k,995) = lu(k,995) - lu(k,460) * lu(k,974) - lu(k,996) = lu(k,996) - lu(k,461) * lu(k,974) - lu(k,1000) = lu(k,1000) - lu(k,462) * lu(k,974) - lu(k,1009) = lu(k,1009) - lu(k,463) * lu(k,974) - lu(k,1010) = lu(k,1010) - lu(k,464) * lu(k,974) - lu(k,1103) = lu(k,1103) - lu(k,455) * lu(k,1099) - lu(k,1104) = lu(k,1104) - lu(k,456) * lu(k,1099) - lu(k,1105) = - lu(k,457) * lu(k,1099) - lu(k,1107) = lu(k,1107) - lu(k,458) * lu(k,1099) - lu(k,1108) = lu(k,1108) - lu(k,459) * lu(k,1099) - lu(k,1117) = lu(k,1117) - lu(k,460) * lu(k,1099) - lu(k,1118) = lu(k,1118) - lu(k,461) * lu(k,1099) - lu(k,1122) = lu(k,1122) - lu(k,462) * lu(k,1099) - lu(k,1131) = lu(k,1131) - lu(k,463) * lu(k,1099) - lu(k,1132) = lu(k,1132) - lu(k,464) * lu(k,1099) - lu(k,1144) = lu(k,1144) - lu(k,455) * lu(k,1141) - lu(k,1145) = - lu(k,456) * lu(k,1141) - lu(k,1146) = lu(k,1146) - lu(k,457) * lu(k,1141) - lu(k,1150) = lu(k,1150) - lu(k,458) * lu(k,1141) - lu(k,1151) = lu(k,1151) - lu(k,459) * lu(k,1141) - lu(k,1161) = - lu(k,460) * lu(k,1141) - lu(k,1162) = lu(k,1162) - lu(k,461) * lu(k,1141) - lu(k,1166) = lu(k,1166) - lu(k,462) * lu(k,1141) - lu(k,1175) = lu(k,1175) - lu(k,463) * lu(k,1141) - lu(k,1176) = lu(k,1176) - lu(k,464) * lu(k,1141) - lu(k,1185) = lu(k,1185) - lu(k,455) * lu(k,1184) - lu(k,1186) = - lu(k,456) * lu(k,1184) - lu(k,1187) = lu(k,1187) - lu(k,457) * lu(k,1184) - lu(k,1191) = lu(k,1191) - lu(k,458) * lu(k,1184) - lu(k,1192) = lu(k,1192) - lu(k,459) * lu(k,1184) - lu(k,1202) = lu(k,1202) - lu(k,460) * lu(k,1184) - lu(k,1203) = lu(k,1203) - lu(k,461) * lu(k,1184) - lu(k,1207) = lu(k,1207) - lu(k,462) * lu(k,1184) - lu(k,1216) = lu(k,1216) - lu(k,463) * lu(k,1184) - lu(k,1217) = lu(k,1217) - lu(k,464) * lu(k,1184) - lu(k,1234) = lu(k,1234) - lu(k,455) * lu(k,1233) - lu(k,1235) = - lu(k,456) * lu(k,1233) - lu(k,1236) = lu(k,1236) - lu(k,457) * lu(k,1233) - lu(k,1240) = lu(k,1240) - lu(k,458) * lu(k,1233) - lu(k,1241) = lu(k,1241) - lu(k,459) * lu(k,1233) - lu(k,1251) = lu(k,1251) - lu(k,460) * lu(k,1233) - lu(k,1252) = lu(k,1252) - lu(k,461) * lu(k,1233) - lu(k,1256) = lu(k,1256) - lu(k,462) * lu(k,1233) - lu(k,1265) = lu(k,1265) - lu(k,463) * lu(k,1233) - lu(k,1266) = lu(k,1266) - lu(k,464) * lu(k,1233) - lu(k,1411) = lu(k,1411) - lu(k,455) * lu(k,1409) - lu(k,1412) = lu(k,1412) - lu(k,456) * lu(k,1409) - lu(k,1413) = lu(k,1413) - lu(k,457) * lu(k,1409) - lu(k,1417) = lu(k,1417) - lu(k,458) * lu(k,1409) - lu(k,1418) = lu(k,1418) - lu(k,459) * lu(k,1409) - lu(k,1428) = lu(k,1428) - lu(k,460) * lu(k,1409) - lu(k,1429) = lu(k,1429) - lu(k,461) * lu(k,1409) - lu(k,1433) = lu(k,1433) - lu(k,462) * lu(k,1409) - lu(k,1442) = lu(k,1442) - lu(k,463) * lu(k,1409) - lu(k,1443) = lu(k,1443) - lu(k,464) * lu(k,1409) - lu(k,1453) = - lu(k,455) * lu(k,1451) - lu(k,1454) = lu(k,1454) - lu(k,456) * lu(k,1451) - lu(k,1455) = - lu(k,457) * lu(k,1451) - lu(k,1459) = lu(k,1459) - lu(k,458) * lu(k,1451) - lu(k,1460) = lu(k,1460) - lu(k,459) * lu(k,1451) - lu(k,1470) = lu(k,1470) - lu(k,460) * lu(k,1451) - lu(k,1471) = lu(k,1471) - lu(k,461) * lu(k,1451) - lu(k,1475) = lu(k,1475) - lu(k,462) * lu(k,1451) - lu(k,1484) = lu(k,1484) - lu(k,463) * lu(k,1451) - lu(k,1485) = lu(k,1485) - lu(k,464) * lu(k,1451) - lu(k,1495) = lu(k,1495) - lu(k,455) * lu(k,1492) - lu(k,1496) = lu(k,1496) - lu(k,456) * lu(k,1492) - lu(k,1497) = lu(k,1497) - lu(k,457) * lu(k,1492) - lu(k,1500) = lu(k,1500) - lu(k,458) * lu(k,1492) - lu(k,1501) = lu(k,1501) - lu(k,459) * lu(k,1492) - lu(k,1511) = lu(k,1511) - lu(k,460) * lu(k,1492) - lu(k,1512) = lu(k,1512) - lu(k,461) * lu(k,1492) - lu(k,1516) = lu(k,1516) - lu(k,462) * lu(k,1492) - lu(k,1525) = lu(k,1525) - lu(k,463) * lu(k,1492) - lu(k,1526) = lu(k,1526) - lu(k,464) * lu(k,1492) - lu(k,1731) = lu(k,1731) - lu(k,455) * lu(k,1730) - lu(k,1732) = lu(k,1732) - lu(k,456) * lu(k,1730) - lu(k,1733) = - lu(k,457) * lu(k,1730) - lu(k,1737) = lu(k,1737) - lu(k,458) * lu(k,1730) - lu(k,1738) = lu(k,1738) - lu(k,459) * lu(k,1730) - lu(k,1748) = lu(k,1748) - lu(k,460) * lu(k,1730) - lu(k,1749) = lu(k,1749) - lu(k,461) * lu(k,1730) - lu(k,1753) = lu(k,1753) - lu(k,462) * lu(k,1730) - lu(k,1762) = lu(k,1762) - lu(k,463) * lu(k,1730) - lu(k,1763) = lu(k,1763) - lu(k,464) * lu(k,1730) - lu(k,1825) = lu(k,1825) - lu(k,455) * lu(k,1820) - lu(k,1826) = lu(k,1826) - lu(k,456) * lu(k,1820) - lu(k,1827) = lu(k,1827) - lu(k,457) * lu(k,1820) - lu(k,1830) = lu(k,1830) - lu(k,458) * lu(k,1820) - lu(k,1831) = lu(k,1831) - lu(k,459) * lu(k,1820) - lu(k,1841) = lu(k,1841) - lu(k,460) * lu(k,1820) - lu(k,1842) = lu(k,1842) - lu(k,461) * lu(k,1820) - lu(k,1846) = lu(k,1846) - lu(k,462) * lu(k,1820) - lu(k,1855) = lu(k,1855) - lu(k,463) * lu(k,1820) - lu(k,1856) = lu(k,1856) - lu(k,464) * lu(k,1820) - end do + real(r8), intent(inout) :: lu(:) + lu(438) = 1._r8 / lu(438) + lu(439) = lu(439) * lu(438) + lu(440) = lu(440) * lu(438) + lu(441) = lu(441) * lu(438) + lu(442) = lu(442) * lu(438) + lu(443) = lu(443) * lu(438) + lu(444) = lu(444) * lu(438) + lu(445) = lu(445) * lu(438) + lu(446) = lu(446) * lu(438) + lu(447) = lu(447) * lu(438) + lu(448) = lu(448) * lu(438) + lu(449) = lu(449) * lu(438) + lu(450) = lu(450) * lu(438) + lu(451) = lu(451) * lu(438) + lu(662) = - lu(439) * lu(659) + lu(665) = lu(665) - lu(440) * lu(659) + lu(666) = - lu(441) * lu(659) + lu(670) = lu(670) - lu(442) * lu(659) + lu(671) = lu(671) - lu(443) * lu(659) + lu(673) = lu(673) - lu(444) * lu(659) + lu(674) = lu(674) - lu(445) * lu(659) + lu(677) = lu(677) - lu(446) * lu(659) + lu(679) = lu(679) - lu(447) * lu(659) + lu(680) = lu(680) - lu(448) * lu(659) + lu(683) = - lu(449) * lu(659) + lu(684) = - lu(450) * lu(659) + lu(686) = lu(686) - lu(451) * lu(659) + lu(820) = lu(820) - lu(439) * lu(816) + lu(822) = lu(822) - lu(440) * lu(816) + lu(823) = - lu(441) * lu(816) + lu(827) = lu(827) - lu(442) * lu(816) + lu(828) = lu(828) - lu(443) * lu(816) + lu(830) = lu(830) - lu(444) * lu(816) + lu(831) = lu(831) - lu(445) * lu(816) + lu(834) = lu(834) - lu(446) * lu(816) + lu(836) = - lu(447) * lu(816) + lu(837) = lu(837) - lu(448) * lu(816) + lu(841) = lu(841) - lu(449) * lu(816) + lu(842) = lu(842) - lu(450) * lu(816) + lu(844) = lu(844) - lu(451) * lu(816) + lu(1041) = - lu(439) * lu(1034) + lu(1044) = lu(1044) - lu(440) * lu(1034) + lu(1045) = lu(1045) - lu(441) * lu(1034) + lu(1049) = lu(1049) - lu(442) * lu(1034) + lu(1050) = lu(1050) - lu(443) * lu(1034) + lu(1052) = lu(1052) - lu(444) * lu(1034) + lu(1053) = lu(1053) - lu(445) * lu(1034) + lu(1056) = lu(1056) - lu(446) * lu(1034) + lu(1058) = lu(1058) - lu(447) * lu(1034) + lu(1059) = lu(1059) - lu(448) * lu(1034) + lu(1063) = - lu(449) * lu(1034) + lu(1064) = lu(1064) - lu(450) * lu(1034) + lu(1066) = - lu(451) * lu(1034) + lu(1087) = lu(1087) - lu(439) * lu(1077) + lu(1090) = lu(1090) - lu(440) * lu(1077) + lu(1091) = lu(1091) - lu(441) * lu(1077) + lu(1095) = lu(1095) - lu(442) * lu(1077) + lu(1096) = lu(1096) - lu(443) * lu(1077) + lu(1098) = lu(1098) - lu(444) * lu(1077) + lu(1099) = lu(1099) - lu(445) * lu(1077) + lu(1102) = lu(1102) - lu(446) * lu(1077) + lu(1104) = lu(1104) - lu(447) * lu(1077) + lu(1105) = lu(1105) - lu(448) * lu(1077) + lu(1109) = lu(1109) - lu(449) * lu(1077) + lu(1110) = lu(1110) - lu(450) * lu(1077) + lu(1112) = lu(1112) - lu(451) * lu(1077) + lu(1169) = lu(1169) - lu(439) * lu(1161) + lu(1172) = lu(1172) - lu(440) * lu(1161) + lu(1173) = lu(1173) - lu(441) * lu(1161) + lu(1177) = lu(1177) - lu(442) * lu(1161) + lu(1178) = lu(1178) - lu(443) * lu(1161) + lu(1180) = lu(1180) - lu(444) * lu(1161) + lu(1181) = lu(1181) - lu(445) * lu(1161) + lu(1184) = - lu(446) * lu(1161) + lu(1186) = lu(1186) - lu(447) * lu(1161) + lu(1187) = lu(1187) - lu(448) * lu(1161) + lu(1191) = - lu(449) * lu(1161) + lu(1192) = lu(1192) - lu(450) * lu(1161) + lu(1194) = lu(1194) - lu(451) * lu(1161) + lu(1228) = lu(1228) - lu(439) * lu(1220) + lu(1231) = lu(1231) - lu(440) * lu(1220) + lu(1232) = lu(1232) - lu(441) * lu(1220) + lu(1236) = lu(1236) - lu(442) * lu(1220) + lu(1237) = lu(1237) - lu(443) * lu(1220) + lu(1239) = lu(1239) - lu(444) * lu(1220) + lu(1240) = lu(1240) - lu(445) * lu(1220) + lu(1243) = lu(1243) - lu(446) * lu(1220) + lu(1245) = lu(1245) - lu(447) * lu(1220) + lu(1246) = lu(1246) - lu(448) * lu(1220) + lu(1250) = lu(1250) - lu(449) * lu(1220) + lu(1251) = lu(1251) - lu(450) * lu(1220) + lu(1253) = lu(1253) - lu(451) * lu(1220) + lu(1349) = lu(1349) - lu(439) * lu(1346) + lu(1352) = - lu(440) * lu(1346) + lu(1353) = lu(1353) - lu(441) * lu(1346) + lu(1357) = lu(1357) - lu(442) * lu(1346) + lu(1358) = lu(1358) - lu(443) * lu(1346) + lu(1360) = lu(1360) - lu(444) * lu(1346) + lu(1361) = lu(1361) - lu(445) * lu(1346) + lu(1364) = lu(1364) - lu(446) * lu(1346) + lu(1366) = lu(1366) - lu(447) * lu(1346) + lu(1367) = lu(1367) - lu(448) * lu(1346) + lu(1371) = - lu(449) * lu(1346) + lu(1372) = lu(1372) - lu(450) * lu(1346) + lu(1374) = lu(1374) - lu(451) * lu(1346) + lu(1434) = lu(1434) - lu(439) * lu(1427) + lu(1437) = - lu(440) * lu(1427) + lu(1438) = lu(1438) - lu(441) * lu(1427) + lu(1442) = lu(1442) - lu(442) * lu(1427) + lu(1443) = lu(1443) - lu(443) * lu(1427) + lu(1445) = lu(1445) - lu(444) * lu(1427) + lu(1446) = lu(1446) - lu(445) * lu(1427) + lu(1449) = lu(1449) - lu(446) * lu(1427) + lu(1451) = lu(1451) - lu(447) * lu(1427) + lu(1452) = lu(1452) - lu(448) * lu(1427) + lu(1456) = lu(1456) - lu(449) * lu(1427) + lu(1457) = lu(1457) - lu(450) * lu(1427) + lu(1459) = lu(1459) - lu(451) * lu(1427) + lu(1469) = - lu(439) * lu(1463) + lu(1472) = lu(1472) - lu(440) * lu(1463) + lu(1473) = lu(1473) - lu(441) * lu(1463) + lu(1477) = lu(1477) - lu(442) * lu(1463) + lu(1478) = - lu(443) * lu(1463) + lu(1480) = lu(1480) - lu(444) * lu(1463) + lu(1481) = lu(1481) - lu(445) * lu(1463) + lu(1484) = lu(1484) - lu(446) * lu(1463) + lu(1486) = lu(1486) - lu(447) * lu(1463) + lu(1487) = lu(1487) - lu(448) * lu(1463) + lu(1491) = lu(1491) - lu(449) * lu(1463) + lu(1492) = - lu(450) * lu(1463) + lu(1494) = lu(1494) - lu(451) * lu(1463) + lu(1626) = - lu(439) * lu(1624) + lu(1629) = - lu(440) * lu(1624) + lu(1630) = lu(1630) - lu(441) * lu(1624) + lu(1634) = lu(1634) - lu(442) * lu(1624) + lu(1635) = lu(1635) - lu(443) * lu(1624) + lu(1637) = lu(1637) - lu(444) * lu(1624) + lu(1638) = lu(1638) - lu(445) * lu(1624) + lu(1641) = - lu(446) * lu(1624) + lu(1643) = lu(1643) - lu(447) * lu(1624) + lu(1644) = lu(1644) - lu(448) * lu(1624) + lu(1648) = lu(1648) - lu(449) * lu(1624) + lu(1649) = - lu(450) * lu(1624) + lu(1651) = lu(1651) - lu(451) * lu(1624) + lu(1661) = lu(1661) - lu(439) * lu(1656) + lu(1664) = lu(1664) - lu(440) * lu(1656) + lu(1665) = lu(1665) - lu(441) * lu(1656) + lu(1669) = lu(1669) - lu(442) * lu(1656) + lu(1670) = lu(1670) - lu(443) * lu(1656) + lu(1672) = lu(1672) - lu(444) * lu(1656) + lu(1673) = lu(1673) - lu(445) * lu(1656) + lu(1676) = lu(1676) - lu(446) * lu(1656) + lu(1678) = lu(1678) - lu(447) * lu(1656) + lu(1679) = lu(1679) - lu(448) * lu(1656) + lu(1683) = lu(1683) - lu(449) * lu(1656) + lu(1684) = lu(1684) - lu(450) * lu(1656) + lu(1686) = lu(1686) - lu(451) * lu(1656) + lu(452) = 1._r8 / lu(452) + lu(453) = lu(453) * lu(452) + lu(454) = lu(454) * lu(452) + lu(455) = lu(455) * lu(452) + lu(456) = lu(456) * lu(452) + lu(457) = lu(457) * lu(452) + lu(458) = lu(458) * lu(452) + lu(459) = lu(459) * lu(452) + lu(460) = lu(460) * lu(452) + lu(461) = lu(461) * lu(452) + lu(462) = lu(462) * lu(452) + lu(463) = lu(463) * lu(452) + lu(464) = lu(464) * lu(452) + lu(465) = lu(465) * lu(452) + lu(466) = lu(466) * lu(452) + lu(467) = lu(467) * lu(452) + lu(710) = lu(710) - lu(453) * lu(709) + lu(715) = lu(715) - lu(454) * lu(709) + lu(716) = lu(716) - lu(455) * lu(709) + lu(717) = lu(717) - lu(456) * lu(709) + lu(718) = lu(718) - lu(457) * lu(709) + lu(720) = lu(720) - lu(458) * lu(709) + lu(721) = lu(721) - lu(459) * lu(709) + lu(724) = lu(724) - lu(460) * lu(709) + lu(725) = lu(725) - lu(461) * lu(709) + lu(727) = - lu(462) * lu(709) + lu(728) = lu(728) - lu(463) * lu(709) + lu(729) = lu(729) - lu(464) * lu(709) + lu(730) = lu(730) - lu(465) * lu(709) + lu(732) = lu(732) - lu(466) * lu(709) + lu(733) = lu(733) - lu(467) * lu(709) + lu(897) = lu(897) - lu(453) * lu(896) + lu(908) = lu(908) - lu(454) * lu(896) + lu(909) = lu(909) - lu(455) * lu(896) + lu(910) = lu(910) - lu(456) * lu(896) + lu(911) = lu(911) - lu(457) * lu(896) + lu(913) = lu(913) - lu(458) * lu(896) + lu(914) = lu(914) - lu(459) * lu(896) + lu(917) = lu(917) - lu(460) * lu(896) + lu(919) = lu(919) - lu(461) * lu(896) + lu(921) = lu(921) - lu(462) * lu(896) + lu(923) = lu(923) - lu(463) * lu(896) + lu(924) = lu(924) - lu(464) * lu(896) + lu(927) = lu(927) - lu(465) * lu(896) + lu(929) = lu(929) - lu(466) * lu(896) + lu(930) = lu(930) - lu(467) * lu(896) + lu(943) = lu(943) - lu(453) * lu(942) + lu(955) = lu(955) - lu(454) * lu(942) + lu(956) = lu(956) - lu(455) * lu(942) + lu(957) = lu(957) - lu(456) * lu(942) + lu(958) = lu(958) - lu(457) * lu(942) + lu(960) = lu(960) - lu(458) * lu(942) + lu(961) = lu(961) - lu(459) * lu(942) + lu(964) = lu(964) - lu(460) * lu(942) + lu(966) = lu(966) - lu(461) * lu(942) + lu(968) = lu(968) - lu(462) * lu(942) + lu(970) = lu(970) - lu(463) * lu(942) + lu(971) = lu(971) - lu(464) * lu(942) + lu(974) = lu(974) - lu(465) * lu(942) + lu(976) = lu(976) - lu(466) * lu(942) + lu(977) = lu(977) - lu(467) * lu(942) + lu(986) = lu(986) - lu(453) * lu(985) + lu(997) = lu(997) - lu(454) * lu(985) + lu(998) = lu(998) - lu(455) * lu(985) + lu(999) = lu(999) - lu(456) * lu(985) + lu(1000) = lu(1000) - lu(457) * lu(985) + lu(1002) = lu(1002) - lu(458) * lu(985) + lu(1003) = lu(1003) - lu(459) * lu(985) + lu(1006) = lu(1006) - lu(460) * lu(985) + lu(1008) = lu(1008) - lu(461) * lu(985) + lu(1010) = lu(1010) - lu(462) * lu(985) + lu(1012) = lu(1012) - lu(463) * lu(985) + lu(1013) = lu(1013) - lu(464) * lu(985) + lu(1016) = lu(1016) - lu(465) * lu(985) + lu(1018) = lu(1018) - lu(466) * lu(985) + lu(1019) = lu(1019) - lu(467) * lu(985) + lu(1122) = lu(1122) - lu(453) * lu(1121) + lu(1133) = lu(1133) - lu(454) * lu(1121) + lu(1134) = lu(1134) - lu(455) * lu(1121) + lu(1135) = lu(1135) - lu(456) * lu(1121) + lu(1136) = lu(1136) - lu(457) * lu(1121) + lu(1138) = lu(1138) - lu(458) * lu(1121) + lu(1139) = lu(1139) - lu(459) * lu(1121) + lu(1142) = lu(1142) - lu(460) * lu(1121) + lu(1144) = lu(1144) - lu(461) * lu(1121) + lu(1146) = lu(1146) - lu(462) * lu(1121) + lu(1148) = lu(1148) - lu(463) * lu(1121) + lu(1149) = lu(1149) - lu(464) * lu(1121) + lu(1152) = lu(1152) - lu(465) * lu(1121) + lu(1154) = lu(1154) - lu(466) * lu(1121) + lu(1155) = lu(1155) - lu(467) * lu(1121) + lu(1308) = - lu(453) * lu(1306) + lu(1319) = lu(1319) - lu(454) * lu(1306) + lu(1320) = lu(1320) - lu(455) * lu(1306) + lu(1321) = lu(1321) - lu(456) * lu(1306) + lu(1322) = lu(1322) - lu(457) * lu(1306) + lu(1324) = lu(1324) - lu(458) * lu(1306) + lu(1325) = lu(1325) - lu(459) * lu(1306) + lu(1328) = lu(1328) - lu(460) * lu(1306) + lu(1330) = lu(1330) - lu(461) * lu(1306) + lu(1332) = lu(1332) - lu(462) * lu(1306) + lu(1334) = lu(1334) - lu(463) * lu(1306) + lu(1335) = lu(1335) - lu(464) * lu(1306) + lu(1338) = lu(1338) - lu(465) * lu(1306) + lu(1340) = lu(1340) - lu(466) * lu(1306) + lu(1341) = lu(1341) - lu(467) * lu(1306) + lu(1386) = lu(1386) - lu(453) * lu(1385) + lu(1398) = lu(1398) - lu(454) * lu(1385) + lu(1399) = lu(1399) - lu(455) * lu(1385) + lu(1400) = lu(1400) - lu(456) * lu(1385) + lu(1401) = lu(1401) - lu(457) * lu(1385) + lu(1403) = lu(1403) - lu(458) * lu(1385) + lu(1404) = lu(1404) - lu(459) * lu(1385) + lu(1407) = lu(1407) - lu(460) * lu(1385) + lu(1409) = lu(1409) - lu(461) * lu(1385) + lu(1411) = lu(1411) - lu(462) * lu(1385) + lu(1413) = lu(1413) - lu(463) * lu(1385) + lu(1414) = lu(1414) - lu(464) * lu(1385) + lu(1417) = lu(1417) - lu(465) * lu(1385) + lu(1419) = lu(1419) - lu(466) * lu(1385) + lu(1420) = lu(1420) - lu(467) * lu(1385) + lu(1549) = lu(1549) - lu(453) * lu(1548) + lu(1560) = lu(1560) - lu(454) * lu(1548) + lu(1561) = lu(1561) - lu(455) * lu(1548) + lu(1562) = lu(1562) - lu(456) * lu(1548) + lu(1563) = lu(1563) - lu(457) * lu(1548) + lu(1565) = lu(1565) - lu(458) * lu(1548) + lu(1566) = lu(1566) - lu(459) * lu(1548) + lu(1569) = lu(1569) - lu(460) * lu(1548) + lu(1571) = lu(1571) - lu(461) * lu(1548) + lu(1573) = lu(1573) - lu(462) * lu(1548) + lu(1575) = lu(1575) - lu(463) * lu(1548) + lu(1576) = lu(1576) - lu(464) * lu(1548) + lu(1579) = lu(1579) - lu(465) * lu(1548) + lu(1581) = lu(1581) - lu(466) * lu(1548) + lu(1582) = lu(1582) - lu(467) * lu(1548) + lu(1589) = lu(1589) - lu(453) * lu(1587) + lu(1599) = - lu(454) * lu(1587) + lu(1600) = - lu(455) * lu(1587) + lu(1601) = - lu(456) * lu(1587) + lu(1602) = lu(1602) - lu(457) * lu(1587) + lu(1604) = - lu(458) * lu(1587) + lu(1605) = lu(1605) - lu(459) * lu(1587) + lu(1608) = lu(1608) - lu(460) * lu(1587) + lu(1610) = - lu(461) * lu(1587) + lu(1612) = lu(1612) - lu(462) * lu(1587) + lu(1614) = - lu(463) * lu(1587) + lu(1615) = lu(1615) - lu(464) * lu(1587) + lu(1618) = - lu(465) * lu(1587) + lu(1620) = lu(1620) - lu(466) * lu(1587) + lu(1621) = lu(1621) - lu(467) * lu(1587) + lu(1697) = lu(1697) - lu(453) * lu(1696) + lu(1708) = lu(1708) - lu(454) * lu(1696) + lu(1709) = lu(1709) - lu(455) * lu(1696) + lu(1710) = lu(1710) - lu(456) * lu(1696) + lu(1711) = lu(1711) - lu(457) * lu(1696) + lu(1713) = lu(1713) - lu(458) * lu(1696) + lu(1714) = lu(1714) - lu(459) * lu(1696) + lu(1717) = lu(1717) - lu(460) * lu(1696) + lu(1719) = lu(1719) - lu(461) * lu(1696) + lu(1721) = lu(1721) - lu(462) * lu(1696) + lu(1723) = lu(1723) - lu(463) * lu(1696) + lu(1724) = lu(1724) - lu(464) * lu(1696) + lu(1727) = lu(1727) - lu(465) * lu(1696) + lu(1729) = lu(1729) - lu(466) * lu(1696) + lu(1730) = lu(1730) - lu(467) * lu(1696) end subroutine lu_fac12 - subroutine lu_fac13( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac13( lu ) 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,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,468) = lu(k,468) * lu(k,465) - lu(k,469) = lu(k,469) * lu(k,465) - lu(k,470) = lu(k,470) * lu(k,465) - lu(k,471) = lu(k,471) * lu(k,465) - lu(k,472) = lu(k,472) * lu(k,465) - lu(k,473) = lu(k,473) * lu(k,465) - lu(k,474) = lu(k,474) * lu(k,465) - lu(k,475) = lu(k,475) * lu(k,465) - lu(k,476) = lu(k,476) * lu(k,465) - lu(k,477) = lu(k,477) * lu(k,465) - lu(k,478) = lu(k,478) * lu(k,465) - lu(k,479) = lu(k,479) * lu(k,465) - lu(k,480) = lu(k,480) * lu(k,465) - lu(k,710) = lu(k,710) - lu(k,466) * lu(k,709) - lu(k,715) = lu(k,715) - lu(k,467) * lu(k,709) - lu(k,716) = lu(k,716) - lu(k,468) * lu(k,709) - lu(k,718) = lu(k,718) - lu(k,469) * lu(k,709) - lu(k,719) = lu(k,719) - lu(k,470) * lu(k,709) - lu(k,720) = lu(k,720) - lu(k,471) * lu(k,709) - lu(k,721) = lu(k,721) - lu(k,472) * lu(k,709) - lu(k,723) = lu(k,723) - lu(k,473) * lu(k,709) - lu(k,724) = lu(k,724) - lu(k,474) * lu(k,709) - lu(k,725) = lu(k,725) - lu(k,475) * lu(k,709) - lu(k,728) = lu(k,728) - lu(k,476) * lu(k,709) - lu(k,730) = lu(k,730) - lu(k,477) * lu(k,709) - lu(k,731) = lu(k,731) - lu(k,478) * lu(k,709) - lu(k,732) = - lu(k,479) * lu(k,709) - lu(k,733) = lu(k,733) - lu(k,480) * lu(k,709) - lu(k,888) = lu(k,888) - lu(k,466) * lu(k,887) - lu(k,900) = lu(k,900) - lu(k,467) * lu(k,887) - lu(k,901) = lu(k,901) - lu(k,468) * lu(k,887) - lu(k,903) = lu(k,903) - lu(k,469) * lu(k,887) - lu(k,904) = lu(k,904) - lu(k,470) * lu(k,887) - lu(k,905) = lu(k,905) - lu(k,471) * lu(k,887) - lu(k,906) = lu(k,906) - lu(k,472) * lu(k,887) - lu(k,908) = lu(k,908) - lu(k,473) * lu(k,887) - lu(k,909) = lu(k,909) - lu(k,474) * lu(k,887) - lu(k,911) = lu(k,911) - lu(k,475) * lu(k,887) - lu(k,914) = lu(k,914) - lu(k,476) * lu(k,887) - lu(k,916) = lu(k,916) - lu(k,477) * lu(k,887) - lu(k,919) = lu(k,919) - lu(k,478) * lu(k,887) - lu(k,921) = lu(k,921) - lu(k,479) * lu(k,887) - lu(k,922) = lu(k,922) - lu(k,480) * lu(k,887) - lu(k,931) = lu(k,931) - lu(k,466) * lu(k,930) - lu(k,942) = lu(k,942) - lu(k,467) * lu(k,930) - lu(k,943) = lu(k,943) - lu(k,468) * lu(k,930) - lu(k,945) = lu(k,945) - lu(k,469) * lu(k,930) - lu(k,946) = lu(k,946) - lu(k,470) * lu(k,930) - lu(k,947) = lu(k,947) - lu(k,471) * lu(k,930) - lu(k,948) = lu(k,948) - lu(k,472) * lu(k,930) - lu(k,950) = lu(k,950) - lu(k,473) * lu(k,930) - lu(k,951) = lu(k,951) - lu(k,474) * lu(k,930) - lu(k,953) = lu(k,953) - lu(k,475) * lu(k,930) - lu(k,956) = lu(k,956) - lu(k,476) * lu(k,930) - lu(k,958) = lu(k,958) - lu(k,477) * lu(k,930) - lu(k,961) = lu(k,961) - lu(k,478) * lu(k,930) - lu(k,963) = lu(k,963) - lu(k,479) * lu(k,930) - lu(k,964) = lu(k,964) - lu(k,480) * lu(k,930) - lu(k,1019) = lu(k,1019) - lu(k,466) * lu(k,1018) - lu(k,1030) = lu(k,1030) - lu(k,467) * lu(k,1018) - lu(k,1031) = lu(k,1031) - lu(k,468) * lu(k,1018) - lu(k,1033) = lu(k,1033) - lu(k,469) * lu(k,1018) - lu(k,1034) = lu(k,1034) - lu(k,470) * lu(k,1018) - lu(k,1035) = lu(k,1035) - lu(k,471) * lu(k,1018) - lu(k,1036) = lu(k,1036) - lu(k,472) * lu(k,1018) - lu(k,1038) = lu(k,1038) - lu(k,473) * lu(k,1018) - lu(k,1039) = lu(k,1039) - lu(k,474) * lu(k,1018) - lu(k,1041) = lu(k,1041) - lu(k,475) * lu(k,1018) - lu(k,1044) = lu(k,1044) - lu(k,476) * lu(k,1018) - lu(k,1046) = lu(k,1046) - lu(k,477) * lu(k,1018) - lu(k,1049) = lu(k,1049) - lu(k,478) * lu(k,1018) - lu(k,1051) = lu(k,1051) - lu(k,479) * lu(k,1018) - lu(k,1052) = lu(k,1052) - lu(k,480) * lu(k,1018) - lu(k,1060) = lu(k,1060) - lu(k,466) * lu(k,1059) - lu(k,1071) = lu(k,1071) - lu(k,467) * lu(k,1059) - lu(k,1072) = lu(k,1072) - lu(k,468) * lu(k,1059) - lu(k,1074) = lu(k,1074) - lu(k,469) * lu(k,1059) - lu(k,1075) = lu(k,1075) - lu(k,470) * lu(k,1059) - lu(k,1076) = lu(k,1076) - lu(k,471) * lu(k,1059) - lu(k,1077) = lu(k,1077) - lu(k,472) * lu(k,1059) - lu(k,1079) = lu(k,1079) - lu(k,473) * lu(k,1059) - lu(k,1080) = lu(k,1080) - lu(k,474) * lu(k,1059) - lu(k,1082) = lu(k,1082) - lu(k,475) * lu(k,1059) - lu(k,1085) = lu(k,1085) - lu(k,476) * lu(k,1059) - lu(k,1087) = lu(k,1087) - lu(k,477) * lu(k,1059) - lu(k,1090) = lu(k,1090) - lu(k,478) * lu(k,1059) - lu(k,1092) = lu(k,1092) - lu(k,479) * lu(k,1059) - lu(k,1093) = lu(k,1093) - lu(k,480) * lu(k,1059) - lu(k,1143) = - lu(k,466) * lu(k,1142) - lu(k,1154) = lu(k,1154) - lu(k,467) * lu(k,1142) - lu(k,1155) = lu(k,1155) - lu(k,468) * lu(k,1142) - lu(k,1157) = lu(k,1157) - lu(k,469) * lu(k,1142) - lu(k,1158) = lu(k,1158) - lu(k,470) * lu(k,1142) - lu(k,1159) = lu(k,1159) - lu(k,471) * lu(k,1142) - lu(k,1160) = lu(k,1160) - lu(k,472) * lu(k,1142) - lu(k,1162) = lu(k,1162) - lu(k,473) * lu(k,1142) - lu(k,1163) = lu(k,1163) - lu(k,474) * lu(k,1142) - lu(k,1165) = lu(k,1165) - lu(k,475) * lu(k,1142) - lu(k,1168) = lu(k,1168) - lu(k,476) * lu(k,1142) - lu(k,1170) = lu(k,1170) - lu(k,477) * lu(k,1142) - lu(k,1173) = lu(k,1173) - lu(k,478) * lu(k,1142) - lu(k,1175) = lu(k,1175) - lu(k,479) * lu(k,1142) - lu(k,1176) = lu(k,1176) - lu(k,480) * lu(k,1142) - lu(k,1273) = lu(k,1273) - lu(k,466) * lu(k,1271) - lu(k,1283) = - lu(k,467) * lu(k,1271) - lu(k,1284) = - lu(k,468) * lu(k,1271) - lu(k,1286) = - lu(k,469) * lu(k,1271) - lu(k,1287) = - lu(k,470) * lu(k,1271) - lu(k,1288) = lu(k,1288) - lu(k,471) * lu(k,1271) - lu(k,1289) = lu(k,1289) - lu(k,472) * lu(k,1271) - lu(k,1291) = lu(k,1291) - lu(k,473) * lu(k,1271) - lu(k,1292) = lu(k,1292) - lu(k,474) * lu(k,1271) - lu(k,1294) = - lu(k,475) * lu(k,1271) - lu(k,1297) = lu(k,1297) - lu(k,476) * lu(k,1271) - lu(k,1299) = - lu(k,477) * lu(k,1271) - lu(k,1302) = - lu(k,478) * lu(k,1271) - lu(k,1304) = lu(k,1304) - lu(k,479) * lu(k,1271) - lu(k,1305) = lu(k,1305) - lu(k,480) * lu(k,1271) - lu(k,1350) = lu(k,1350) - lu(k,466) * lu(k,1349) - lu(k,1362) = lu(k,1362) - lu(k,467) * lu(k,1349) - lu(k,1363) = lu(k,1363) - lu(k,468) * lu(k,1349) - lu(k,1365) = lu(k,1365) - lu(k,469) * lu(k,1349) - lu(k,1366) = lu(k,1366) - lu(k,470) * lu(k,1349) - lu(k,1367) = lu(k,1367) - lu(k,471) * lu(k,1349) - lu(k,1368) = lu(k,1368) - lu(k,472) * lu(k,1349) - lu(k,1370) = lu(k,1370) - lu(k,473) * lu(k,1349) - lu(k,1371) = lu(k,1371) - lu(k,474) * lu(k,1349) - lu(k,1373) = lu(k,1373) - lu(k,475) * lu(k,1349) - lu(k,1376) = lu(k,1376) - lu(k,476) * lu(k,1349) - lu(k,1378) = lu(k,1378) - lu(k,477) * lu(k,1349) - lu(k,1381) = lu(k,1381) - lu(k,478) * lu(k,1349) - lu(k,1383) = lu(k,1383) - lu(k,479) * lu(k,1349) - lu(k,1384) = lu(k,1384) - lu(k,480) * lu(k,1349) - lu(k,1577) = lu(k,1577) - lu(k,466) * lu(k,1576) - lu(k,1588) = lu(k,1588) - lu(k,467) * lu(k,1576) - lu(k,1589) = lu(k,1589) - lu(k,468) * lu(k,1576) - lu(k,1591) = lu(k,1591) - lu(k,469) * lu(k,1576) - lu(k,1592) = lu(k,1592) - lu(k,470) * lu(k,1576) - lu(k,1593) = lu(k,1593) - lu(k,471) * lu(k,1576) - lu(k,1594) = lu(k,1594) - lu(k,472) * lu(k,1576) - lu(k,1596) = lu(k,1596) - lu(k,473) * lu(k,1576) - lu(k,1597) = lu(k,1597) - lu(k,474) * lu(k,1576) - lu(k,1599) = lu(k,1599) - lu(k,475) * lu(k,1576) - lu(k,1602) = lu(k,1602) - lu(k,476) * lu(k,1576) - lu(k,1604) = lu(k,1604) - lu(k,477) * lu(k,1576) - lu(k,1607) = lu(k,1607) - lu(k,478) * lu(k,1576) - lu(k,1609) = lu(k,1609) - lu(k,479) * lu(k,1576) - lu(k,1610) = lu(k,1610) - lu(k,480) * lu(k,1576) - lu(k,1686) = lu(k,1686) - lu(k,466) * lu(k,1685) - lu(k,1697) = lu(k,1697) - lu(k,467) * lu(k,1685) - lu(k,1698) = lu(k,1698) - lu(k,468) * lu(k,1685) - lu(k,1700) = lu(k,1700) - lu(k,469) * lu(k,1685) - lu(k,1701) = lu(k,1701) - lu(k,470) * lu(k,1685) - lu(k,1702) = lu(k,1702) - lu(k,471) * lu(k,1685) - lu(k,1703) = lu(k,1703) - lu(k,472) * lu(k,1685) - lu(k,1705) = lu(k,1705) - lu(k,473) * lu(k,1685) - lu(k,1706) = lu(k,1706) - lu(k,474) * lu(k,1685) - lu(k,1708) = lu(k,1708) - lu(k,475) * lu(k,1685) - lu(k,1711) = lu(k,1711) - lu(k,476) * lu(k,1685) - lu(k,1713) = lu(k,1713) - lu(k,477) * lu(k,1685) - lu(k,1716) = lu(k,1716) - lu(k,478) * lu(k,1685) - lu(k,1718) = lu(k,1718) - lu(k,479) * lu(k,1685) - lu(k,1719) = lu(k,1719) - lu(k,480) * lu(k,1685) - lu(k,484) = 1._r8 / lu(k,484) - lu(k,485) = lu(k,485) * lu(k,484) - lu(k,486) = lu(k,486) * lu(k,484) - lu(k,487) = lu(k,487) * lu(k,484) - lu(k,488) = lu(k,488) * lu(k,484) - lu(k,489) = lu(k,489) * lu(k,484) - lu(k,490) = lu(k,490) * lu(k,484) - lu(k,491) = lu(k,491) * lu(k,484) - lu(k,492) = lu(k,492) * lu(k,484) - lu(k,493) = lu(k,493) * lu(k,484) - lu(k,494) = lu(k,494) * lu(k,484) - lu(k,495) = lu(k,495) * lu(k,484) - lu(k,496) = lu(k,496) * lu(k,484) - lu(k,497) = lu(k,497) * lu(k,484) - lu(k,498) = lu(k,498) * lu(k,484) - lu(k,499) = lu(k,499) * lu(k,484) - lu(k,500) = lu(k,500) * lu(k,484) - lu(k,501) = lu(k,501) * lu(k,484) - lu(k,502) = lu(k,502) * lu(k,484) - lu(k,606) = lu(k,606) - lu(k,485) * lu(k,604) - lu(k,607) = lu(k,607) - lu(k,486) * lu(k,604) - lu(k,608) = lu(k,608) - lu(k,487) * lu(k,604) - lu(k,609) = lu(k,609) - lu(k,488) * lu(k,604) - lu(k,610) = - lu(k,489) * lu(k,604) - lu(k,611) = lu(k,611) - lu(k,490) * lu(k,604) - lu(k,612) = lu(k,612) - lu(k,491) * lu(k,604) - lu(k,614) = lu(k,614) - lu(k,492) * lu(k,604) - lu(k,615) = lu(k,615) - lu(k,493) * lu(k,604) - lu(k,616) = lu(k,616) - lu(k,494) * lu(k,604) - lu(k,617) = lu(k,617) - lu(k,495) * lu(k,604) - lu(k,618) = - lu(k,496) * lu(k,604) - lu(k,619) = - lu(k,497) * lu(k,604) - lu(k,620) = - lu(k,498) * lu(k,604) - lu(k,621) = - lu(k,499) * lu(k,604) - lu(k,622) = - lu(k,500) * lu(k,604) - lu(k,623) = lu(k,623) - lu(k,501) * lu(k,604) - lu(k,624) = lu(k,624) - lu(k,502) * lu(k,604) - lu(k,636) = lu(k,636) - lu(k,485) * lu(k,634) - lu(k,637) = lu(k,637) - lu(k,486) * lu(k,634) - lu(k,638) = lu(k,638) - lu(k,487) * lu(k,634) - lu(k,639) = lu(k,639) - lu(k,488) * lu(k,634) - lu(k,640) = lu(k,640) - lu(k,489) * lu(k,634) - lu(k,642) = lu(k,642) - lu(k,490) * lu(k,634) - lu(k,643) = lu(k,643) - lu(k,491) * lu(k,634) - lu(k,645) = lu(k,645) - lu(k,492) * lu(k,634) - lu(k,646) = lu(k,646) - lu(k,493) * lu(k,634) - lu(k,649) = lu(k,649) - lu(k,494) * lu(k,634) - lu(k,650) = lu(k,650) - lu(k,495) * lu(k,634) - lu(k,651) = lu(k,651) - lu(k,496) * lu(k,634) - lu(k,652) = lu(k,652) - lu(k,497) * lu(k,634) - lu(k,653) = - lu(k,498) * lu(k,634) - lu(k,654) = lu(k,654) - lu(k,499) * lu(k,634) - lu(k,655) = lu(k,655) - lu(k,500) * lu(k,634) - lu(k,656) = lu(k,656) - lu(k,501) * lu(k,634) - lu(k,657) = lu(k,657) - lu(k,502) * lu(k,634) - lu(k,745) = lu(k,745) - lu(k,485) * lu(k,743) - lu(k,746) = lu(k,746) - lu(k,486) * lu(k,743) - lu(k,747) = lu(k,747) - lu(k,487) * lu(k,743) - lu(k,748) = lu(k,748) - lu(k,488) * lu(k,743) - lu(k,749) = lu(k,749) - lu(k,489) * lu(k,743) - lu(k,752) = lu(k,752) - lu(k,490) * lu(k,743) - lu(k,753) = lu(k,753) - lu(k,491) * lu(k,743) - lu(k,755) = lu(k,755) - lu(k,492) * lu(k,743) - lu(k,756) = - lu(k,493) * lu(k,743) - lu(k,759) = lu(k,759) - lu(k,494) * lu(k,743) - lu(k,760) = lu(k,760) - lu(k,495) * lu(k,743) - lu(k,761) = lu(k,761) - lu(k,496) * lu(k,743) - lu(k,762) = lu(k,762) - lu(k,497) * lu(k,743) - lu(k,763) = - lu(k,498) * lu(k,743) - lu(k,764) = - lu(k,499) * lu(k,743) - lu(k,765) = lu(k,765) - lu(k,500) * lu(k,743) - lu(k,766) = lu(k,766) - lu(k,501) * lu(k,743) - lu(k,767) = lu(k,767) - lu(k,502) * lu(k,743) - lu(k,791) = lu(k,791) - lu(k,485) * lu(k,789) - lu(k,792) = lu(k,792) - lu(k,486) * lu(k,789) - lu(k,793) = lu(k,793) - lu(k,487) * lu(k,789) - lu(k,794) = lu(k,794) - lu(k,488) * lu(k,789) - lu(k,796) = lu(k,796) - lu(k,489) * lu(k,789) - lu(k,799) = lu(k,799) - lu(k,490) * lu(k,789) - lu(k,800) = lu(k,800) - lu(k,491) * lu(k,789) - lu(k,802) = lu(k,802) - lu(k,492) * lu(k,789) - lu(k,803) = lu(k,803) - lu(k,493) * lu(k,789) - lu(k,806) = lu(k,806) - lu(k,494) * lu(k,789) - lu(k,807) = lu(k,807) - lu(k,495) * lu(k,789) - lu(k,808) = lu(k,808) - lu(k,496) * lu(k,789) - lu(k,809) = lu(k,809) - lu(k,497) * lu(k,789) - lu(k,810) = - lu(k,498) * lu(k,789) - lu(k,811) = - lu(k,499) * lu(k,789) - lu(k,812) = lu(k,812) - lu(k,500) * lu(k,789) - lu(k,813) = lu(k,813) - lu(k,501) * lu(k,789) - lu(k,814) = lu(k,814) - lu(k,502) * lu(k,789) - lu(k,1275) = lu(k,1275) - lu(k,485) * lu(k,1272) - lu(k,1276) = - lu(k,486) * lu(k,1272) - lu(k,1279) = lu(k,1279) - lu(k,487) * lu(k,1272) - lu(k,1280) = lu(k,1280) - lu(k,488) * lu(k,1272) - lu(k,1285) = lu(k,1285) - lu(k,489) * lu(k,1272) - lu(k,1288) = lu(k,1288) - lu(k,490) * lu(k,1272) - lu(k,1289) = lu(k,1289) - lu(k,491) * lu(k,1272) - lu(k,1291) = lu(k,1291) - lu(k,492) * lu(k,1272) - lu(k,1292) = lu(k,1292) - lu(k,493) * lu(k,1272) - lu(k,1295) = - lu(k,494) * lu(k,1272) - lu(k,1296) = lu(k,1296) - lu(k,495) * lu(k,1272) - lu(k,1297) = lu(k,1297) - lu(k,496) * lu(k,1272) - lu(k,1298) = - lu(k,497) * lu(k,1272) - lu(k,1300) = - lu(k,498) * lu(k,1272) - lu(k,1301) = lu(k,1301) - lu(k,499) * lu(k,1272) - lu(k,1303) = lu(k,1303) - lu(k,500) * lu(k,1272) - lu(k,1304) = lu(k,1304) - lu(k,501) * lu(k,1272) - lu(k,1305) = lu(k,1305) - lu(k,502) * lu(k,1272) - lu(k,1412) = lu(k,1412) - lu(k,485) * lu(k,1410) - lu(k,1413) = lu(k,1413) - lu(k,486) * lu(k,1410) - lu(k,1417) = lu(k,1417) - lu(k,487) * lu(k,1410) - lu(k,1418) = lu(k,1418) - lu(k,488) * lu(k,1410) - lu(k,1423) = lu(k,1423) - lu(k,489) * lu(k,1410) - lu(k,1426) = lu(k,1426) - lu(k,490) * lu(k,1410) - lu(k,1427) = lu(k,1427) - lu(k,491) * lu(k,1410) - lu(k,1429) = lu(k,1429) - lu(k,492) * lu(k,1410) - lu(k,1430) = lu(k,1430) - lu(k,493) * lu(k,1410) - lu(k,1433) = lu(k,1433) - lu(k,494) * lu(k,1410) - lu(k,1434) = lu(k,1434) - lu(k,495) * lu(k,1410) - lu(k,1435) = lu(k,1435) - lu(k,496) * lu(k,1410) - lu(k,1436) = lu(k,1436) - lu(k,497) * lu(k,1410) - lu(k,1438) = lu(k,1438) - lu(k,498) * lu(k,1410) - lu(k,1439) = lu(k,1439) - lu(k,499) * lu(k,1410) - lu(k,1441) = lu(k,1441) - lu(k,500) * lu(k,1410) - lu(k,1442) = lu(k,1442) - lu(k,501) * lu(k,1410) - lu(k,1443) = lu(k,1443) - lu(k,502) * lu(k,1410) - lu(k,1454) = lu(k,1454) - lu(k,485) * lu(k,1452) - lu(k,1455) = lu(k,1455) - lu(k,486) * lu(k,1452) - lu(k,1459) = lu(k,1459) - lu(k,487) * lu(k,1452) - lu(k,1460) = lu(k,1460) - lu(k,488) * lu(k,1452) - lu(k,1465) = lu(k,1465) - lu(k,489) * lu(k,1452) - lu(k,1468) = lu(k,1468) - lu(k,490) * lu(k,1452) - lu(k,1469) = lu(k,1469) - lu(k,491) * lu(k,1452) - lu(k,1471) = lu(k,1471) - lu(k,492) * lu(k,1452) - lu(k,1472) = lu(k,1472) - lu(k,493) * lu(k,1452) - lu(k,1475) = lu(k,1475) - lu(k,494) * lu(k,1452) - lu(k,1476) = lu(k,1476) - lu(k,495) * lu(k,1452) - lu(k,1477) = lu(k,1477) - lu(k,496) * lu(k,1452) - lu(k,1478) = - lu(k,497) * lu(k,1452) - lu(k,1480) = lu(k,1480) - lu(k,498) * lu(k,1452) - lu(k,1481) = lu(k,1481) - lu(k,499) * lu(k,1452) - lu(k,1483) = lu(k,1483) - lu(k,500) * lu(k,1452) - lu(k,1484) = lu(k,1484) - lu(k,501) * lu(k,1452) - lu(k,1485) = lu(k,1485) - lu(k,502) * lu(k,1452) - lu(k,1647) = - lu(k,485) * lu(k,1646) - lu(k,1648) = - lu(k,486) * lu(k,1646) - lu(k,1651) = - lu(k,487) * lu(k,1646) - lu(k,1652) = lu(k,1652) - lu(k,488) * lu(k,1646) - lu(k,1657) = lu(k,1657) - lu(k,489) * lu(k,1646) - lu(k,1660) = - lu(k,490) * lu(k,1646) - lu(k,1661) = lu(k,1661) - lu(k,491) * lu(k,1646) - lu(k,1663) = lu(k,1663) - lu(k,492) * lu(k,1646) - lu(k,1664) = lu(k,1664) - lu(k,493) * lu(k,1646) - lu(k,1667) = lu(k,1667) - lu(k,494) * lu(k,1646) - lu(k,1668) = lu(k,1668) - lu(k,495) * lu(k,1646) - lu(k,1669) = lu(k,1669) - lu(k,496) * lu(k,1646) - lu(k,1670) = lu(k,1670) - lu(k,497) * lu(k,1646) - lu(k,1672) = lu(k,1672) - lu(k,498) * lu(k,1646) - lu(k,1673) = lu(k,1673) - lu(k,499) * lu(k,1646) - lu(k,1675) = lu(k,1675) - lu(k,500) * lu(k,1646) - lu(k,1676) = lu(k,1676) - lu(k,501) * lu(k,1646) - lu(k,1677) = lu(k,1677) - lu(k,502) * lu(k,1646) - lu(k,1767) = - lu(k,485) * lu(k,1766) - lu(k,1768) = - lu(k,486) * lu(k,1766) - lu(k,1772) = lu(k,1772) - lu(k,487) * lu(k,1766) - lu(k,1773) = lu(k,1773) - lu(k,488) * lu(k,1766) - lu(k,1778) = lu(k,1778) - lu(k,489) * lu(k,1766) - lu(k,1781) = - lu(k,490) * lu(k,1766) - lu(k,1782) = lu(k,1782) - lu(k,491) * lu(k,1766) - lu(k,1784) = lu(k,1784) - lu(k,492) * lu(k,1766) - lu(k,1785) = - lu(k,493) * lu(k,1766) - lu(k,1788) = lu(k,1788) - lu(k,494) * lu(k,1766) - lu(k,1789) = - lu(k,495) * lu(k,1766) - lu(k,1790) = lu(k,1790) - lu(k,496) * lu(k,1766) - lu(k,1791) = lu(k,1791) - lu(k,497) * lu(k,1766) - lu(k,1793) = lu(k,1793) - lu(k,498) * lu(k,1766) - lu(k,1794) = lu(k,1794) - lu(k,499) * lu(k,1766) - lu(k,1796) = - lu(k,500) * lu(k,1766) - lu(k,1797) = lu(k,1797) - lu(k,501) * lu(k,1766) - lu(k,1798) = lu(k,1798) - lu(k,502) * lu(k,1766) - lu(k,1826) = lu(k,1826) - lu(k,485) * lu(k,1821) - lu(k,1827) = lu(k,1827) - lu(k,486) * lu(k,1821) - lu(k,1830) = lu(k,1830) - lu(k,487) * lu(k,1821) - lu(k,1831) = lu(k,1831) - lu(k,488) * lu(k,1821) - lu(k,1836) = lu(k,1836) - lu(k,489) * lu(k,1821) - lu(k,1839) = lu(k,1839) - lu(k,490) * lu(k,1821) - lu(k,1840) = lu(k,1840) - lu(k,491) * lu(k,1821) - lu(k,1842) = lu(k,1842) - lu(k,492) * lu(k,1821) - lu(k,1843) = lu(k,1843) - lu(k,493) * lu(k,1821) - lu(k,1846) = lu(k,1846) - lu(k,494) * lu(k,1821) - lu(k,1847) = lu(k,1847) - lu(k,495) * lu(k,1821) - lu(k,1848) = lu(k,1848) - lu(k,496) * lu(k,1821) - lu(k,1849) = lu(k,1849) - lu(k,497) * lu(k,1821) - lu(k,1851) = lu(k,1851) - lu(k,498) * lu(k,1821) - lu(k,1852) = lu(k,1852) - lu(k,499) * lu(k,1821) - lu(k,1854) = lu(k,1854) - lu(k,500) * lu(k,1821) - lu(k,1855) = lu(k,1855) - lu(k,501) * lu(k,1821) - lu(k,1856) = lu(k,1856) - lu(k,502) * lu(k,1821) - end do + real(r8), intent(inout) :: lu(:) + lu(470) = 1._r8 / lu(470) + lu(471) = lu(471) * lu(470) + lu(472) = lu(472) * lu(470) + lu(473) = lu(473) * lu(470) + lu(474) = lu(474) * lu(470) + lu(475) = lu(475) * lu(470) + lu(476) = lu(476) * lu(470) + lu(477) = lu(477) * lu(470) + lu(478) = lu(478) * lu(470) + lu(479) = lu(479) * lu(470) + lu(480) = lu(480) * lu(470) + lu(584) = lu(584) - lu(471) * lu(583) + lu(585) = - lu(472) * lu(583) + lu(586) = - lu(473) * lu(583) + lu(587) = lu(587) - lu(474) * lu(583) + lu(588) = lu(588) - lu(475) * lu(583) + lu(589) = lu(589) - lu(476) * lu(583) + lu(592) = lu(592) - lu(477) * lu(583) + lu(595) = lu(595) - lu(478) * lu(583) + lu(596) = lu(596) - lu(479) * lu(583) + lu(600) = lu(600) - lu(480) * lu(583) + lu(605) = lu(605) - lu(471) * lu(603) + lu(606) = lu(606) - lu(472) * lu(603) + lu(607) = lu(607) - lu(473) * lu(603) + lu(608) = lu(608) - lu(474) * lu(603) + lu(609) = lu(609) - lu(475) * lu(603) + lu(611) = - lu(476) * lu(603) + lu(614) = lu(614) - lu(477) * lu(603) + lu(617) = - lu(478) * lu(603) + lu(618) = lu(618) - lu(479) * lu(603) + lu(624) = lu(624) - lu(480) * lu(603) + lu(635) = lu(635) - lu(471) * lu(633) + lu(636) = lu(636) - lu(472) * lu(633) + lu(637) = lu(637) - lu(473) * lu(633) + lu(638) = lu(638) - lu(474) * lu(633) + lu(639) = lu(639) - lu(475) * lu(633) + lu(642) = lu(642) - lu(476) * lu(633) + lu(645) = lu(645) - lu(477) * lu(633) + lu(650) = lu(650) - lu(478) * lu(633) + lu(651) = lu(651) - lu(479) * lu(633) + lu(657) = lu(657) - lu(480) * lu(633) + lu(744) = lu(744) - lu(471) * lu(742) + lu(745) = lu(745) - lu(472) * lu(742) + lu(746) = lu(746) - lu(473) * lu(742) + lu(747) = lu(747) - lu(474) * lu(742) + lu(748) = lu(748) - lu(475) * lu(742) + lu(751) = lu(751) - lu(476) * lu(742) + lu(755) = lu(755) - lu(477) * lu(742) + lu(760) = lu(760) - lu(478) * lu(742) + lu(761) = lu(761) - lu(479) * lu(742) + lu(767) = lu(767) - lu(480) * lu(742) + lu(790) = lu(790) - lu(471) * lu(788) + lu(791) = lu(791) - lu(472) * lu(788) + lu(792) = lu(792) - lu(473) * lu(788) + lu(793) = lu(793) - lu(474) * lu(788) + lu(794) = lu(794) - lu(475) * lu(788) + lu(798) = lu(798) - lu(476) * lu(788) + lu(802) = lu(802) - lu(477) * lu(788) + lu(807) = lu(807) - lu(478) * lu(788) + lu(808) = lu(808) - lu(479) * lu(788) + lu(814) = lu(814) - lu(480) * lu(788) + lu(1036) = lu(1036) - lu(471) * lu(1035) + lu(1037) = - lu(472) * lu(1035) + lu(1038) = lu(1038) - lu(473) * lu(1035) + lu(1042) = lu(1042) - lu(474) * lu(1035) + lu(1043) = lu(1043) - lu(475) * lu(1035) + lu(1049) = lu(1049) - lu(476) * lu(1035) + lu(1053) = lu(1053) - lu(477) * lu(1035) + lu(1058) = lu(1058) - lu(478) * lu(1035) + lu(1059) = lu(1059) - lu(479) * lu(1035) + lu(1068) = lu(1068) - lu(480) * lu(1035) + lu(1083) = lu(1083) - lu(471) * lu(1078) + lu(1084) = - lu(472) * lu(1078) + lu(1085) = lu(1085) - lu(473) * lu(1078) + lu(1088) = lu(1088) - lu(474) * lu(1078) + lu(1089) = lu(1089) - lu(475) * lu(1078) + lu(1095) = lu(1095) - lu(476) * lu(1078) + lu(1099) = lu(1099) - lu(477) * lu(1078) + lu(1104) = lu(1104) - lu(478) * lu(1078) + lu(1105) = lu(1105) - lu(479) * lu(1078) + lu(1114) = lu(1114) - lu(480) * lu(1078) + lu(1165) = lu(1165) - lu(471) * lu(1162) + lu(1166) = lu(1166) - lu(472) * lu(1162) + lu(1167) = lu(1167) - lu(473) * lu(1162) + lu(1170) = lu(1170) - lu(474) * lu(1162) + lu(1171) = lu(1171) - lu(475) * lu(1162) + lu(1177) = lu(1177) - lu(476) * lu(1162) + lu(1181) = lu(1181) - lu(477) * lu(1162) + lu(1186) = lu(1186) - lu(478) * lu(1162) + lu(1187) = lu(1187) - lu(479) * lu(1162) + lu(1196) = lu(1196) - lu(480) * lu(1162) + lu(1223) = lu(1223) - lu(471) * lu(1221) + lu(1224) = lu(1224) - lu(472) * lu(1221) + lu(1225) = lu(1225) - lu(473) * lu(1221) + lu(1229) = lu(1229) - lu(474) * lu(1221) + lu(1230) = lu(1230) - lu(475) * lu(1221) + lu(1236) = lu(1236) - lu(476) * lu(1221) + lu(1240) = lu(1240) - lu(477) * lu(1221) + lu(1245) = lu(1245) - lu(478) * lu(1221) + lu(1246) = lu(1246) - lu(479) * lu(1221) + lu(1255) = lu(1255) - lu(480) * lu(1221) + lu(1265) = - lu(471) * lu(1263) + lu(1266) = lu(1266) - lu(472) * lu(1263) + lu(1267) = - lu(473) * lu(1263) + lu(1271) = lu(1271) - lu(474) * lu(1263) + lu(1272) = lu(1272) - lu(475) * lu(1263) + lu(1278) = lu(1278) - lu(476) * lu(1263) + lu(1282) = lu(1282) - lu(477) * lu(1263) + lu(1287) = lu(1287) - lu(478) * lu(1263) + lu(1288) = lu(1288) - lu(479) * lu(1263) + lu(1297) = lu(1297) - lu(480) * lu(1263) + lu(1309) = lu(1309) - lu(471) * lu(1307) + lu(1310) = - lu(472) * lu(1307) + lu(1311) = lu(1311) - lu(473) * lu(1307) + lu(1315) = lu(1315) - lu(474) * lu(1307) + lu(1316) = lu(1316) - lu(475) * lu(1307) + lu(1322) = lu(1322) - lu(476) * lu(1307) + lu(1326) = lu(1326) - lu(477) * lu(1307) + lu(1331) = - lu(478) * lu(1307) + lu(1332) = lu(1332) - lu(479) * lu(1307) + lu(1341) = lu(1341) - lu(480) * lu(1307) + lu(1429) = lu(1429) - lu(471) * lu(1428) + lu(1430) = - lu(472) * lu(1428) + lu(1431) = lu(1431) - lu(473) * lu(1428) + lu(1435) = lu(1435) - lu(474) * lu(1428) + lu(1436) = lu(1436) - lu(475) * lu(1428) + lu(1442) = lu(1442) - lu(476) * lu(1428) + lu(1446) = lu(1446) - lu(477) * lu(1428) + lu(1451) = lu(1451) - lu(478) * lu(1428) + lu(1452) = lu(1452) - lu(479) * lu(1428) + lu(1461) = lu(1461) - lu(480) * lu(1428) + lu(1508) = lu(1508) - lu(471) * lu(1507) + lu(1509) = lu(1509) - lu(472) * lu(1507) + lu(1510) = - lu(473) * lu(1507) + lu(1514) = lu(1514) - lu(474) * lu(1507) + lu(1515) = lu(1515) - lu(475) * lu(1507) + lu(1521) = lu(1521) - lu(476) * lu(1507) + lu(1525) = lu(1525) - lu(477) * lu(1507) + lu(1530) = lu(1530) - lu(478) * lu(1507) + lu(1531) = lu(1531) - lu(479) * lu(1507) + lu(1540) = lu(1540) - lu(480) * lu(1507) + lu(1769) = lu(1769) - lu(471) * lu(1765) + lu(1770) = lu(1770) - lu(472) * lu(1765) + lu(1771) = - lu(473) * lu(1765) + lu(1773) = lu(1773) - lu(474) * lu(1765) + lu(1774) = lu(1774) - lu(475) * lu(1765) + lu(1779) = lu(1779) - lu(476) * lu(1765) + lu(1783) = lu(1783) - lu(477) * lu(1765) + lu(1788) = lu(1788) - lu(478) * lu(1765) + lu(1789) = lu(1789) - lu(479) * lu(1765) + lu(1798) = lu(1798) - lu(480) * lu(1765) + lu(1825) = lu(1825) - lu(471) * lu(1820) + lu(1826) = lu(1826) - lu(472) * lu(1820) + lu(1827) = lu(1827) - lu(473) * lu(1820) + lu(1830) = lu(1830) - lu(474) * lu(1820) + lu(1831) = lu(1831) - lu(475) * lu(1820) + lu(1837) = lu(1837) - lu(476) * lu(1820) + lu(1841) = lu(1841) - lu(477) * lu(1820) + lu(1846) = lu(1846) - lu(478) * lu(1820) + lu(1847) = lu(1847) - lu(479) * lu(1820) + lu(1856) = lu(1856) - lu(480) * lu(1820) + lu(484) = 1._r8 / lu(484) + lu(485) = lu(485) * lu(484) + lu(486) = lu(486) * lu(484) + lu(487) = lu(487) * lu(484) + lu(488) = lu(488) * lu(484) + lu(489) = lu(489) * lu(484) + lu(490) = lu(490) * lu(484) + lu(491) = lu(491) * lu(484) + lu(492) = lu(492) * lu(484) + lu(493) = lu(493) * lu(484) + lu(494) = lu(494) * lu(484) + lu(495) = lu(495) * lu(484) + lu(496) = lu(496) * lu(484) + lu(497) = lu(497) * lu(484) + lu(498) = lu(498) * lu(484) + lu(499) = lu(499) * lu(484) + lu(500) = lu(500) * lu(484) + lu(501) = lu(501) * lu(484) + lu(502) = lu(502) * lu(484) + lu(606) = lu(606) - lu(485) * lu(604) + lu(607) = lu(607) - lu(486) * lu(604) + lu(608) = lu(608) - lu(487) * lu(604) + lu(609) = lu(609) - lu(488) * lu(604) + lu(610) = - lu(489) * lu(604) + lu(611) = lu(611) - lu(490) * lu(604) + lu(612) = - lu(491) * lu(604) + lu(613) = - lu(492) * lu(604) + lu(614) = lu(614) - lu(493) * lu(604) + lu(615) = lu(615) - lu(494) * lu(604) + lu(616) = lu(616) - lu(495) * lu(604) + lu(618) = lu(618) - lu(496) * lu(604) + lu(619) = - lu(497) * lu(604) + lu(620) = lu(620) - lu(498) * lu(604) + lu(621) = - lu(499) * lu(604) + lu(622) = - lu(500) * lu(604) + lu(623) = lu(623) - lu(501) * lu(604) + lu(624) = lu(624) - lu(502) * lu(604) + lu(636) = lu(636) - lu(485) * lu(634) + lu(637) = lu(637) - lu(486) * lu(634) + lu(638) = lu(638) - lu(487) * lu(634) + lu(639) = lu(639) - lu(488) * lu(634) + lu(640) = lu(640) - lu(489) * lu(634) + lu(642) = lu(642) - lu(490) * lu(634) + lu(643) = lu(643) - lu(491) * lu(634) + lu(644) = lu(644) - lu(492) * lu(634) + lu(645) = lu(645) - lu(493) * lu(634) + lu(646) = lu(646) - lu(494) * lu(634) + lu(647) = lu(647) - lu(495) * lu(634) + lu(651) = lu(651) - lu(496) * lu(634) + lu(652) = lu(652) - lu(497) * lu(634) + lu(653) = lu(653) - lu(498) * lu(634) + lu(654) = - lu(499) * lu(634) + lu(655) = lu(655) - lu(500) * lu(634) + lu(656) = lu(656) - lu(501) * lu(634) + lu(657) = lu(657) - lu(502) * lu(634) + lu(745) = lu(745) - lu(485) * lu(743) + lu(746) = lu(746) - lu(486) * lu(743) + lu(747) = lu(747) - lu(487) * lu(743) + lu(748) = lu(748) - lu(488) * lu(743) + lu(749) = lu(749) - lu(489) * lu(743) + lu(751) = lu(751) - lu(490) * lu(743) + lu(752) = lu(752) - lu(491) * lu(743) + lu(754) = lu(754) - lu(492) * lu(743) + lu(755) = lu(755) - lu(493) * lu(743) + lu(756) = lu(756) - lu(494) * lu(743) + lu(757) = lu(757) - lu(495) * lu(743) + lu(761) = lu(761) - lu(496) * lu(743) + lu(762) = lu(762) - lu(497) * lu(743) + lu(763) = - lu(498) * lu(743) + lu(764) = - lu(499) * lu(743) + lu(765) = - lu(500) * lu(743) + lu(766) = lu(766) - lu(501) * lu(743) + lu(767) = lu(767) - lu(502) * lu(743) + lu(791) = lu(791) - lu(485) * lu(789) + lu(792) = lu(792) - lu(486) * lu(789) + lu(793) = lu(793) - lu(487) * lu(789) + lu(794) = lu(794) - lu(488) * lu(789) + lu(795) = lu(795) - lu(489) * lu(789) + lu(798) = lu(798) - lu(490) * lu(789) + lu(799) = lu(799) - lu(491) * lu(789) + lu(801) = lu(801) - lu(492) * lu(789) + lu(802) = lu(802) - lu(493) * lu(789) + lu(803) = lu(803) - lu(494) * lu(789) + lu(804) = lu(804) - lu(495) * lu(789) + lu(808) = lu(808) - lu(496) * lu(789) + lu(809) = lu(809) - lu(497) * lu(789) + lu(810) = lu(810) - lu(498) * lu(789) + lu(811) = - lu(499) * lu(789) + lu(812) = - lu(500) * lu(789) + lu(813) = lu(813) - lu(501) * lu(789) + lu(814) = lu(814) - lu(502) * lu(789) + lu(1224) = lu(1224) - lu(485) * lu(1222) + lu(1225) = lu(1225) - lu(486) * lu(1222) + lu(1229) = lu(1229) - lu(487) * lu(1222) + lu(1230) = lu(1230) - lu(488) * lu(1222) + lu(1232) = lu(1232) - lu(489) * lu(1222) + lu(1236) = lu(1236) - lu(490) * lu(1222) + lu(1237) = lu(1237) - lu(491) * lu(1222) + lu(1239) = lu(1239) - lu(492) * lu(1222) + lu(1240) = lu(1240) - lu(493) * lu(1222) + lu(1241) = lu(1241) - lu(494) * lu(1222) + lu(1242) = lu(1242) - lu(495) * lu(1222) + lu(1246) = lu(1246) - lu(496) * lu(1222) + lu(1247) = lu(1247) - lu(497) * lu(1222) + lu(1249) = lu(1249) - lu(498) * lu(1222) + lu(1250) = lu(1250) - lu(499) * lu(1222) + lu(1251) = lu(1251) - lu(500) * lu(1222) + lu(1254) = lu(1254) - lu(501) * lu(1222) + lu(1255) = lu(1255) - lu(502) * lu(1222) + lu(1266) = lu(1266) - lu(485) * lu(1264) + lu(1267) = lu(1267) - lu(486) * lu(1264) + lu(1271) = lu(1271) - lu(487) * lu(1264) + lu(1272) = lu(1272) - lu(488) * lu(1264) + lu(1274) = - lu(489) * lu(1264) + lu(1278) = lu(1278) - lu(490) * lu(1264) + lu(1279) = lu(1279) - lu(491) * lu(1264) + lu(1281) = lu(1281) - lu(492) * lu(1264) + lu(1282) = lu(1282) - lu(493) * lu(1264) + lu(1283) = lu(1283) - lu(494) * lu(1264) + lu(1284) = lu(1284) - lu(495) * lu(1264) + lu(1288) = lu(1288) - lu(496) * lu(1264) + lu(1289) = lu(1289) - lu(497) * lu(1264) + lu(1291) = lu(1291) - lu(498) * lu(1264) + lu(1292) = lu(1292) - lu(499) * lu(1264) + lu(1293) = lu(1293) - lu(500) * lu(1264) + lu(1296) = lu(1296) - lu(501) * lu(1264) + lu(1297) = lu(1297) - lu(502) * lu(1264) + lu(1465) = - lu(485) * lu(1464) + lu(1466) = - lu(486) * lu(1464) + lu(1470) = lu(1470) - lu(487) * lu(1464) + lu(1471) = lu(1471) - lu(488) * lu(1464) + lu(1473) = lu(1473) - lu(489) * lu(1464) + lu(1477) = lu(1477) - lu(490) * lu(1464) + lu(1478) = lu(1478) - lu(491) * lu(1464) + lu(1480) = lu(1480) - lu(492) * lu(1464) + lu(1481) = lu(1481) - lu(493) * lu(1464) + lu(1482) = - lu(494) * lu(1464) + lu(1483) = lu(1483) - lu(495) * lu(1464) + lu(1487) = lu(1487) - lu(496) * lu(1464) + lu(1488) = - lu(497) * lu(1464) + lu(1490) = - lu(498) * lu(1464) + lu(1491) = lu(1491) - lu(499) * lu(1464) + lu(1492) = lu(1492) - lu(500) * lu(1464) + lu(1495) = - lu(501) * lu(1464) + lu(1496) = lu(1496) - lu(502) * lu(1464) + lu(1591) = lu(1591) - lu(485) * lu(1588) + lu(1592) = - lu(486) * lu(1588) + lu(1595) = lu(1595) - lu(487) * lu(1588) + lu(1596) = lu(1596) - lu(488) * lu(1588) + lu(1598) = - lu(489) * lu(1588) + lu(1602) = lu(1602) - lu(490) * lu(1588) + lu(1603) = lu(1603) - lu(491) * lu(1588) + lu(1605) = lu(1605) - lu(492) * lu(1588) + lu(1606) = - lu(493) * lu(1588) + lu(1607) = lu(1607) - lu(494) * lu(1588) + lu(1608) = lu(1608) - lu(495) * lu(1588) + lu(1612) = lu(1612) - lu(496) * lu(1588) + lu(1613) = lu(1613) - lu(497) * lu(1588) + lu(1615) = lu(1615) - lu(498) * lu(1588) + lu(1616) = - lu(499) * lu(1588) + lu(1617) = lu(1617) - lu(500) * lu(1588) + lu(1620) = lu(1620) - lu(501) * lu(1588) + lu(1621) = lu(1621) - lu(502) * lu(1588) + lu(1658) = - lu(485) * lu(1657) + lu(1659) = - lu(486) * lu(1657) + lu(1662) = - lu(487) * lu(1657) + lu(1663) = lu(1663) - lu(488) * lu(1657) + lu(1665) = lu(1665) - lu(489) * lu(1657) + lu(1669) = lu(1669) - lu(490) * lu(1657) + lu(1670) = lu(1670) - lu(491) * lu(1657) + lu(1672) = lu(1672) - lu(492) * lu(1657) + lu(1673) = lu(1673) - lu(493) * lu(1657) + lu(1674) = lu(1674) - lu(494) * lu(1657) + lu(1675) = lu(1675) - lu(495) * lu(1657) + lu(1679) = lu(1679) - lu(496) * lu(1657) + lu(1680) = lu(1680) - lu(497) * lu(1657) + lu(1682) = lu(1682) - lu(498) * lu(1657) + lu(1683) = lu(1683) - lu(499) * lu(1657) + lu(1684) = lu(1684) - lu(500) * lu(1657) + lu(1687) = - lu(501) * lu(1657) + lu(1688) = lu(1688) - lu(502) * lu(1657) + lu(1826) = lu(1826) - lu(485) * lu(1821) + lu(1827) = lu(1827) - lu(486) * lu(1821) + lu(1830) = lu(1830) - lu(487) * lu(1821) + lu(1831) = lu(1831) - lu(488) * lu(1821) + lu(1833) = lu(1833) - lu(489) * lu(1821) + lu(1837) = lu(1837) - lu(490) * lu(1821) + lu(1838) = lu(1838) - lu(491) * lu(1821) + lu(1840) = lu(1840) - lu(492) * lu(1821) + lu(1841) = lu(1841) - lu(493) * lu(1821) + lu(1842) = lu(1842) - lu(494) * lu(1821) + lu(1843) = lu(1843) - lu(495) * lu(1821) + lu(1847) = lu(1847) - lu(496) * lu(1821) + lu(1848) = lu(1848) - lu(497) * lu(1821) + lu(1850) = lu(1850) - lu(498) * lu(1821) + lu(1851) = lu(1851) - lu(499) * lu(1821) + lu(1852) = lu(1852) - lu(500) * lu(1821) + lu(1855) = lu(1855) - lu(501) * lu(1821) + lu(1856) = lu(1856) - lu(502) * lu(1821) end subroutine lu_fac13 - subroutine lu_fac14( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac14( lu ) 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,503) = 1._r8 / lu(k,503) - lu(k,504) = lu(k,504) * lu(k,503) - lu(k,505) = lu(k,505) * lu(k,503) - lu(k,506) = lu(k,506) * lu(k,503) - lu(k,507) = lu(k,507) * lu(k,503) - lu(k,508) = lu(k,508) * lu(k,503) - lu(k,509) = lu(k,509) * lu(k,503) - lu(k,510) = lu(k,510) * lu(k,503) - lu(k,511) = lu(k,511) * lu(k,503) - lu(k,512) = lu(k,512) * lu(k,503) - lu(k,513) = lu(k,513) * lu(k,503) - lu(k,514) = lu(k,514) * lu(k,503) - lu(k,515) = lu(k,515) * lu(k,503) - lu(k,516) = lu(k,516) * lu(k,503) - lu(k,521) = - lu(k,504) * lu(k,518) - lu(k,522) = lu(k,522) - lu(k,505) * lu(k,518) - lu(k,523) = lu(k,523) - lu(k,506) * lu(k,518) - lu(k,525) = lu(k,525) - lu(k,507) * lu(k,518) - lu(k,526) = lu(k,526) - lu(k,508) * lu(k,518) - lu(k,527) = lu(k,527) - lu(k,509) * lu(k,518) - lu(k,528) = lu(k,528) - lu(k,510) * lu(k,518) - lu(k,529) = lu(k,529) - lu(k,511) * lu(k,518) - lu(k,530) = lu(k,530) - lu(k,512) * lu(k,518) - lu(k,532) = lu(k,532) - lu(k,513) * lu(k,518) - lu(k,533) = lu(k,533) - lu(k,514) * lu(k,518) - lu(k,534) = lu(k,534) - lu(k,515) * lu(k,518) - lu(k,536) = lu(k,536) - lu(k,516) * lu(k,518) - lu(k,561) = lu(k,561) - lu(k,504) * lu(k,558) - lu(k,562) = lu(k,562) - lu(k,505) * lu(k,558) - lu(k,563) = lu(k,563) - lu(k,506) * lu(k,558) - lu(k,565) = lu(k,565) - lu(k,507) * lu(k,558) - lu(k,566) = lu(k,566) - lu(k,508) * lu(k,558) - lu(k,567) = lu(k,567) - lu(k,509) * lu(k,558) - lu(k,568) = lu(k,568) - lu(k,510) * lu(k,558) - lu(k,569) = lu(k,569) - lu(k,511) * lu(k,558) - lu(k,570) = lu(k,570) - lu(k,512) * lu(k,558) - lu(k,572) = lu(k,572) - lu(k,513) * lu(k,558) - lu(k,573) = lu(k,573) - lu(k,514) * lu(k,558) - lu(k,574) = lu(k,574) - lu(k,515) * lu(k,558) - lu(k,576) = lu(k,576) - lu(k,516) * lu(k,558) - lu(k,713) = lu(k,713) - lu(k,504) * lu(k,710) - lu(k,715) = lu(k,715) - lu(k,505) * lu(k,710) - lu(k,716) = lu(k,716) - lu(k,506) * lu(k,710) - lu(k,718) = lu(k,718) - lu(k,507) * lu(k,710) - lu(k,719) = lu(k,719) - lu(k,508) * lu(k,710) - lu(k,720) = lu(k,720) - lu(k,509) * lu(k,710) - lu(k,723) = lu(k,723) - lu(k,510) * lu(k,710) - lu(k,724) = lu(k,724) - lu(k,511) * lu(k,710) - lu(k,725) = lu(k,725) - lu(k,512) * lu(k,710) - lu(k,728) = lu(k,728) - lu(k,513) * lu(k,710) - lu(k,730) = lu(k,730) - lu(k,514) * lu(k,710) - lu(k,731) = lu(k,731) - lu(k,515) * lu(k,710) - lu(k,733) = lu(k,733) - lu(k,516) * lu(k,710) - lu(k,895) = lu(k,895) - lu(k,504) * lu(k,888) - lu(k,900) = lu(k,900) - lu(k,505) * lu(k,888) - lu(k,901) = lu(k,901) - lu(k,506) * lu(k,888) - lu(k,903) = lu(k,903) - lu(k,507) * lu(k,888) - lu(k,904) = lu(k,904) - lu(k,508) * lu(k,888) - lu(k,905) = lu(k,905) - lu(k,509) * lu(k,888) - lu(k,908) = lu(k,908) - lu(k,510) * lu(k,888) - lu(k,909) = lu(k,909) - lu(k,511) * lu(k,888) - lu(k,911) = lu(k,911) - lu(k,512) * lu(k,888) - lu(k,914) = lu(k,914) - lu(k,513) * lu(k,888) - lu(k,916) = lu(k,916) - lu(k,514) * lu(k,888) - lu(k,919) = lu(k,919) - lu(k,515) * lu(k,888) - lu(k,922) = lu(k,922) - lu(k,516) * lu(k,888) - lu(k,937) = lu(k,937) - lu(k,504) * lu(k,931) - lu(k,942) = lu(k,942) - lu(k,505) * lu(k,931) - lu(k,943) = lu(k,943) - lu(k,506) * lu(k,931) - lu(k,945) = lu(k,945) - lu(k,507) * lu(k,931) - lu(k,946) = lu(k,946) - lu(k,508) * lu(k,931) - lu(k,947) = lu(k,947) - lu(k,509) * lu(k,931) - lu(k,950) = lu(k,950) - lu(k,510) * lu(k,931) - lu(k,951) = lu(k,951) - lu(k,511) * lu(k,931) - lu(k,953) = lu(k,953) - lu(k,512) * lu(k,931) - lu(k,956) = lu(k,956) - lu(k,513) * lu(k,931) - lu(k,958) = lu(k,958) - lu(k,514) * lu(k,931) - lu(k,961) = lu(k,961) - lu(k,515) * lu(k,931) - lu(k,964) = lu(k,964) - lu(k,516) * lu(k,931) - lu(k,983) = lu(k,983) - lu(k,504) * lu(k,975) - lu(k,988) = lu(k,988) - lu(k,505) * lu(k,975) - lu(k,989) = - lu(k,506) * lu(k,975) - lu(k,991) = - lu(k,507) * lu(k,975) - lu(k,992) = - lu(k,508) * lu(k,975) - lu(k,993) = lu(k,993) - lu(k,509) * lu(k,975) - lu(k,996) = lu(k,996) - lu(k,510) * lu(k,975) - lu(k,997) = lu(k,997) - lu(k,511) * lu(k,975) - lu(k,999) = lu(k,999) - lu(k,512) * lu(k,975) - lu(k,1002) = lu(k,1002) - lu(k,513) * lu(k,975) - lu(k,1004) = lu(k,1004) - lu(k,514) * lu(k,975) - lu(k,1007) = lu(k,1007) - lu(k,515) * lu(k,975) - lu(k,1010) = lu(k,1010) - lu(k,516) * lu(k,975) - lu(k,1025) = lu(k,1025) - lu(k,504) * lu(k,1019) - lu(k,1030) = lu(k,1030) - lu(k,505) * lu(k,1019) - lu(k,1031) = lu(k,1031) - lu(k,506) * lu(k,1019) - lu(k,1033) = lu(k,1033) - lu(k,507) * lu(k,1019) - lu(k,1034) = lu(k,1034) - lu(k,508) * lu(k,1019) - lu(k,1035) = lu(k,1035) - lu(k,509) * lu(k,1019) - lu(k,1038) = lu(k,1038) - lu(k,510) * lu(k,1019) - lu(k,1039) = lu(k,1039) - lu(k,511) * lu(k,1019) - lu(k,1041) = lu(k,1041) - lu(k,512) * lu(k,1019) - lu(k,1044) = lu(k,1044) - lu(k,513) * lu(k,1019) - lu(k,1046) = lu(k,1046) - lu(k,514) * lu(k,1019) - lu(k,1049) = lu(k,1049) - lu(k,515) * lu(k,1019) - lu(k,1052) = lu(k,1052) - lu(k,516) * lu(k,1019) - lu(k,1066) = lu(k,1066) - lu(k,504) * lu(k,1060) - lu(k,1071) = lu(k,1071) - lu(k,505) * lu(k,1060) - lu(k,1072) = lu(k,1072) - lu(k,506) * lu(k,1060) - lu(k,1074) = lu(k,1074) - lu(k,507) * lu(k,1060) - lu(k,1075) = lu(k,1075) - lu(k,508) * lu(k,1060) - lu(k,1076) = lu(k,1076) - lu(k,509) * lu(k,1060) - lu(k,1079) = lu(k,1079) - lu(k,510) * lu(k,1060) - lu(k,1080) = lu(k,1080) - lu(k,511) * lu(k,1060) - lu(k,1082) = lu(k,1082) - lu(k,512) * lu(k,1060) - lu(k,1085) = lu(k,1085) - lu(k,513) * lu(k,1060) - lu(k,1087) = lu(k,1087) - lu(k,514) * lu(k,1060) - lu(k,1090) = lu(k,1090) - lu(k,515) * lu(k,1060) - lu(k,1093) = lu(k,1093) - lu(k,516) * lu(k,1060) - lu(k,1106) = - lu(k,504) * lu(k,1100) - lu(k,1110) = - lu(k,505) * lu(k,1100) - lu(k,1111) = - lu(k,506) * lu(k,1100) - lu(k,1113) = - lu(k,507) * lu(k,1100) - lu(k,1114) = - lu(k,508) * lu(k,1100) - lu(k,1115) = lu(k,1115) - lu(k,509) * lu(k,1100) - lu(k,1118) = lu(k,1118) - lu(k,510) * lu(k,1100) - lu(k,1119) = lu(k,1119) - lu(k,511) * lu(k,1100) - lu(k,1121) = - lu(k,512) * lu(k,1100) - lu(k,1124) = lu(k,1124) - lu(k,513) * lu(k,1100) - lu(k,1126) = lu(k,1126) - lu(k,514) * lu(k,1100) - lu(k,1129) = lu(k,1129) - lu(k,515) * lu(k,1100) - lu(k,1132) = lu(k,1132) - lu(k,516) * lu(k,1100) - lu(k,1149) = lu(k,1149) - lu(k,504) * lu(k,1143) - lu(k,1154) = lu(k,1154) - lu(k,505) * lu(k,1143) - lu(k,1155) = lu(k,1155) - lu(k,506) * lu(k,1143) - lu(k,1157) = lu(k,1157) - lu(k,507) * lu(k,1143) - lu(k,1158) = lu(k,1158) - lu(k,508) * lu(k,1143) - lu(k,1159) = lu(k,1159) - lu(k,509) * lu(k,1143) - lu(k,1162) = lu(k,1162) - lu(k,510) * lu(k,1143) - lu(k,1163) = lu(k,1163) - lu(k,511) * lu(k,1143) - lu(k,1165) = lu(k,1165) - lu(k,512) * lu(k,1143) - lu(k,1168) = lu(k,1168) - lu(k,513) * lu(k,1143) - lu(k,1170) = lu(k,1170) - lu(k,514) * lu(k,1143) - lu(k,1173) = lu(k,1173) - lu(k,515) * lu(k,1143) - lu(k,1176) = lu(k,1176) - lu(k,516) * lu(k,1143) - lu(k,1278) = lu(k,1278) - lu(k,504) * lu(k,1273) - lu(k,1283) = lu(k,1283) - lu(k,505) * lu(k,1273) - lu(k,1284) = lu(k,1284) - lu(k,506) * lu(k,1273) - lu(k,1286) = lu(k,1286) - lu(k,507) * lu(k,1273) - lu(k,1287) = lu(k,1287) - lu(k,508) * lu(k,1273) - lu(k,1288) = lu(k,1288) - lu(k,509) * lu(k,1273) - lu(k,1291) = lu(k,1291) - lu(k,510) * lu(k,1273) - lu(k,1292) = lu(k,1292) - lu(k,511) * lu(k,1273) - lu(k,1294) = lu(k,1294) - lu(k,512) * lu(k,1273) - lu(k,1297) = lu(k,1297) - lu(k,513) * lu(k,1273) - lu(k,1299) = lu(k,1299) - lu(k,514) * lu(k,1273) - lu(k,1302) = lu(k,1302) - lu(k,515) * lu(k,1273) - lu(k,1305) = lu(k,1305) - lu(k,516) * lu(k,1273) - lu(k,1357) = lu(k,1357) - lu(k,504) * lu(k,1350) - lu(k,1362) = lu(k,1362) - lu(k,505) * lu(k,1350) - lu(k,1363) = lu(k,1363) - lu(k,506) * lu(k,1350) - lu(k,1365) = lu(k,1365) - lu(k,507) * lu(k,1350) - lu(k,1366) = lu(k,1366) - lu(k,508) * lu(k,1350) - lu(k,1367) = lu(k,1367) - lu(k,509) * lu(k,1350) - lu(k,1370) = lu(k,1370) - lu(k,510) * lu(k,1350) - lu(k,1371) = lu(k,1371) - lu(k,511) * lu(k,1350) - lu(k,1373) = lu(k,1373) - lu(k,512) * lu(k,1350) - lu(k,1376) = lu(k,1376) - lu(k,513) * lu(k,1350) - lu(k,1378) = lu(k,1378) - lu(k,514) * lu(k,1350) - lu(k,1381) = lu(k,1381) - lu(k,515) * lu(k,1350) - lu(k,1384) = lu(k,1384) - lu(k,516) * lu(k,1350) - lu(k,1583) = lu(k,1583) - lu(k,504) * lu(k,1577) - lu(k,1588) = lu(k,1588) - lu(k,505) * lu(k,1577) - lu(k,1589) = lu(k,1589) - lu(k,506) * lu(k,1577) - lu(k,1591) = lu(k,1591) - lu(k,507) * lu(k,1577) - lu(k,1592) = lu(k,1592) - lu(k,508) * lu(k,1577) - lu(k,1593) = lu(k,1593) - lu(k,509) * lu(k,1577) - lu(k,1596) = lu(k,1596) - lu(k,510) * lu(k,1577) - lu(k,1597) = lu(k,1597) - lu(k,511) * lu(k,1577) - lu(k,1599) = lu(k,1599) - lu(k,512) * lu(k,1577) - lu(k,1602) = lu(k,1602) - lu(k,513) * lu(k,1577) - lu(k,1604) = lu(k,1604) - lu(k,514) * lu(k,1577) - lu(k,1607) = lu(k,1607) - lu(k,515) * lu(k,1577) - lu(k,1610) = lu(k,1610) - lu(k,516) * lu(k,1577) - lu(k,1692) = lu(k,1692) - lu(k,504) * lu(k,1686) - lu(k,1697) = lu(k,1697) - lu(k,505) * lu(k,1686) - lu(k,1698) = lu(k,1698) - lu(k,506) * lu(k,1686) - lu(k,1700) = lu(k,1700) - lu(k,507) * lu(k,1686) - lu(k,1701) = lu(k,1701) - lu(k,508) * lu(k,1686) - lu(k,1702) = lu(k,1702) - lu(k,509) * lu(k,1686) - lu(k,1705) = lu(k,1705) - lu(k,510) * lu(k,1686) - lu(k,1706) = lu(k,1706) - lu(k,511) * lu(k,1686) - lu(k,1708) = lu(k,1708) - lu(k,512) * lu(k,1686) - lu(k,1711) = lu(k,1711) - lu(k,513) * lu(k,1686) - lu(k,1713) = lu(k,1713) - lu(k,514) * lu(k,1686) - lu(k,1716) = lu(k,1716) - lu(k,515) * lu(k,1686) - lu(k,1719) = lu(k,1719) - lu(k,516) * lu(k,1686) - 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,534) = lu(k,534) * lu(k,519) - lu(k,535) = lu(k,535) * lu(k,519) - lu(k,536) = lu(k,536) * lu(k,519) - lu(k,560) = lu(k,560) - lu(k,520) * lu(k,559) - lu(k,561) = lu(k,561) - lu(k,521) * lu(k,559) - lu(k,562) = lu(k,562) - lu(k,522) * lu(k,559) - lu(k,563) = lu(k,563) - lu(k,523) * lu(k,559) - lu(k,564) = lu(k,564) - lu(k,524) * lu(k,559) - lu(k,565) = lu(k,565) - lu(k,525) * lu(k,559) - lu(k,566) = lu(k,566) - lu(k,526) * lu(k,559) - lu(k,567) = lu(k,567) - lu(k,527) * lu(k,559) - lu(k,568) = lu(k,568) - lu(k,528) * lu(k,559) - lu(k,569) = lu(k,569) - lu(k,529) * lu(k,559) - lu(k,570) = lu(k,570) - lu(k,530) * lu(k,559) - lu(k,571) = lu(k,571) - lu(k,531) * lu(k,559) - lu(k,572) = lu(k,572) - lu(k,532) * lu(k,559) - lu(k,573) = lu(k,573) - lu(k,533) * lu(k,559) - lu(k,574) = lu(k,574) - lu(k,534) * lu(k,559) - lu(k,575) = lu(k,575) - lu(k,535) * lu(k,559) - lu(k,576) = lu(k,576) - lu(k,536) * lu(k,559) - lu(k,891) = lu(k,891) - lu(k,520) * lu(k,889) - lu(k,895) = lu(k,895) - lu(k,521) * lu(k,889) - lu(k,900) = lu(k,900) - lu(k,522) * lu(k,889) - lu(k,901) = lu(k,901) - lu(k,523) * lu(k,889) - lu(k,902) = lu(k,902) - lu(k,524) * lu(k,889) - lu(k,903) = lu(k,903) - lu(k,525) * lu(k,889) - lu(k,904) = lu(k,904) - lu(k,526) * lu(k,889) - lu(k,905) = lu(k,905) - lu(k,527) * lu(k,889) - lu(k,908) = lu(k,908) - lu(k,528) * lu(k,889) - lu(k,909) = lu(k,909) - lu(k,529) * lu(k,889) - lu(k,911) = lu(k,911) - lu(k,530) * lu(k,889) - lu(k,912) = lu(k,912) - lu(k,531) * lu(k,889) - lu(k,914) = lu(k,914) - lu(k,532) * lu(k,889) - lu(k,916) = lu(k,916) - lu(k,533) * lu(k,889) - lu(k,919) = lu(k,919) - lu(k,534) * lu(k,889) - lu(k,921) = lu(k,921) - lu(k,535) * lu(k,889) - lu(k,922) = lu(k,922) - lu(k,536) * lu(k,889) - lu(k,934) = lu(k,934) - lu(k,520) * lu(k,932) - lu(k,937) = lu(k,937) - lu(k,521) * lu(k,932) - lu(k,942) = lu(k,942) - lu(k,522) * lu(k,932) - lu(k,943) = lu(k,943) - lu(k,523) * lu(k,932) - lu(k,944) = lu(k,944) - lu(k,524) * lu(k,932) - lu(k,945) = lu(k,945) - lu(k,525) * lu(k,932) - lu(k,946) = lu(k,946) - lu(k,526) * lu(k,932) - lu(k,947) = lu(k,947) - lu(k,527) * lu(k,932) - lu(k,950) = lu(k,950) - lu(k,528) * lu(k,932) - lu(k,951) = lu(k,951) - lu(k,529) * lu(k,932) - lu(k,953) = lu(k,953) - lu(k,530) * lu(k,932) - lu(k,954) = lu(k,954) - lu(k,531) * lu(k,932) - lu(k,956) = lu(k,956) - lu(k,532) * lu(k,932) - lu(k,958) = lu(k,958) - lu(k,533) * lu(k,932) - lu(k,961) = lu(k,961) - lu(k,534) * lu(k,932) - lu(k,963) = lu(k,963) - lu(k,535) * lu(k,932) - lu(k,964) = lu(k,964) - lu(k,536) * lu(k,932) - lu(k,978) = lu(k,978) - lu(k,520) * lu(k,976) - lu(k,983) = lu(k,983) - lu(k,521) * lu(k,976) - lu(k,988) = lu(k,988) - lu(k,522) * lu(k,976) - lu(k,989) = lu(k,989) - lu(k,523) * lu(k,976) - lu(k,990) = lu(k,990) - lu(k,524) * lu(k,976) - lu(k,991) = lu(k,991) - lu(k,525) * lu(k,976) - lu(k,992) = lu(k,992) - lu(k,526) * lu(k,976) - lu(k,993) = lu(k,993) - lu(k,527) * lu(k,976) - lu(k,996) = lu(k,996) - lu(k,528) * lu(k,976) - lu(k,997) = lu(k,997) - lu(k,529) * lu(k,976) - lu(k,999) = lu(k,999) - lu(k,530) * lu(k,976) - lu(k,1000) = lu(k,1000) - lu(k,531) * lu(k,976) - lu(k,1002) = lu(k,1002) - lu(k,532) * lu(k,976) - lu(k,1004) = lu(k,1004) - lu(k,533) * lu(k,976) - lu(k,1007) = lu(k,1007) - lu(k,534) * lu(k,976) - lu(k,1009) = lu(k,1009) - lu(k,535) * lu(k,976) - lu(k,1010) = lu(k,1010) - lu(k,536) * lu(k,976) - lu(k,1022) = lu(k,1022) - lu(k,520) * lu(k,1020) - lu(k,1025) = lu(k,1025) - lu(k,521) * lu(k,1020) - lu(k,1030) = lu(k,1030) - lu(k,522) * lu(k,1020) - lu(k,1031) = lu(k,1031) - lu(k,523) * lu(k,1020) - lu(k,1032) = lu(k,1032) - lu(k,524) * lu(k,1020) - lu(k,1033) = lu(k,1033) - lu(k,525) * lu(k,1020) - lu(k,1034) = lu(k,1034) - lu(k,526) * lu(k,1020) - lu(k,1035) = lu(k,1035) - lu(k,527) * lu(k,1020) - lu(k,1038) = lu(k,1038) - lu(k,528) * lu(k,1020) - lu(k,1039) = lu(k,1039) - lu(k,529) * lu(k,1020) - lu(k,1041) = lu(k,1041) - lu(k,530) * lu(k,1020) - lu(k,1042) = lu(k,1042) - lu(k,531) * lu(k,1020) - lu(k,1044) = lu(k,1044) - lu(k,532) * lu(k,1020) - lu(k,1046) = lu(k,1046) - lu(k,533) * lu(k,1020) - lu(k,1049) = lu(k,1049) - lu(k,534) * lu(k,1020) - lu(k,1051) = lu(k,1051) - lu(k,535) * lu(k,1020) - lu(k,1052) = lu(k,1052) - lu(k,536) * lu(k,1020) - lu(k,1063) = lu(k,1063) - lu(k,520) * lu(k,1061) - lu(k,1066) = lu(k,1066) - lu(k,521) * lu(k,1061) - lu(k,1071) = lu(k,1071) - lu(k,522) * lu(k,1061) - lu(k,1072) = lu(k,1072) - lu(k,523) * lu(k,1061) - lu(k,1073) = lu(k,1073) - lu(k,524) * lu(k,1061) - lu(k,1074) = lu(k,1074) - lu(k,525) * lu(k,1061) - lu(k,1075) = lu(k,1075) - lu(k,526) * lu(k,1061) - lu(k,1076) = lu(k,1076) - lu(k,527) * lu(k,1061) - lu(k,1079) = lu(k,1079) - lu(k,528) * lu(k,1061) - lu(k,1080) = lu(k,1080) - lu(k,529) * lu(k,1061) - lu(k,1082) = lu(k,1082) - lu(k,530) * lu(k,1061) - lu(k,1083) = lu(k,1083) - lu(k,531) * lu(k,1061) - lu(k,1085) = lu(k,1085) - lu(k,532) * lu(k,1061) - lu(k,1087) = lu(k,1087) - lu(k,533) * lu(k,1061) - lu(k,1090) = lu(k,1090) - lu(k,534) * lu(k,1061) - lu(k,1092) = lu(k,1092) - lu(k,535) * lu(k,1061) - lu(k,1093) = lu(k,1093) - lu(k,536) * lu(k,1061) - lu(k,1102) = lu(k,1102) - lu(k,520) * lu(k,1101) - lu(k,1106) = lu(k,1106) - lu(k,521) * lu(k,1101) - lu(k,1110) = lu(k,1110) - lu(k,522) * lu(k,1101) - lu(k,1111) = lu(k,1111) - lu(k,523) * lu(k,1101) - lu(k,1112) = lu(k,1112) - lu(k,524) * lu(k,1101) - lu(k,1113) = lu(k,1113) - lu(k,525) * lu(k,1101) - lu(k,1114) = lu(k,1114) - lu(k,526) * lu(k,1101) - lu(k,1115) = lu(k,1115) - lu(k,527) * lu(k,1101) - lu(k,1118) = lu(k,1118) - lu(k,528) * lu(k,1101) - lu(k,1119) = lu(k,1119) - lu(k,529) * lu(k,1101) - lu(k,1121) = lu(k,1121) - lu(k,530) * lu(k,1101) - lu(k,1122) = lu(k,1122) - lu(k,531) * lu(k,1101) - lu(k,1124) = lu(k,1124) - lu(k,532) * lu(k,1101) - lu(k,1126) = lu(k,1126) - lu(k,533) * lu(k,1101) - lu(k,1129) = lu(k,1129) - lu(k,534) * lu(k,1101) - lu(k,1131) = lu(k,1131) - lu(k,535) * lu(k,1101) - lu(k,1132) = lu(k,1132) - lu(k,536) * lu(k,1101) - lu(k,1353) = lu(k,1353) - lu(k,520) * lu(k,1351) - lu(k,1357) = lu(k,1357) - lu(k,521) * lu(k,1351) - lu(k,1362) = lu(k,1362) - lu(k,522) * lu(k,1351) - lu(k,1363) = lu(k,1363) - lu(k,523) * lu(k,1351) - lu(k,1364) = lu(k,1364) - lu(k,524) * lu(k,1351) - lu(k,1365) = lu(k,1365) - lu(k,525) * lu(k,1351) - lu(k,1366) = lu(k,1366) - lu(k,526) * lu(k,1351) - lu(k,1367) = lu(k,1367) - lu(k,527) * lu(k,1351) - lu(k,1370) = lu(k,1370) - lu(k,528) * lu(k,1351) - lu(k,1371) = lu(k,1371) - lu(k,529) * lu(k,1351) - lu(k,1373) = lu(k,1373) - lu(k,530) * lu(k,1351) - lu(k,1374) = lu(k,1374) - lu(k,531) * lu(k,1351) - lu(k,1376) = lu(k,1376) - lu(k,532) * lu(k,1351) - lu(k,1378) = lu(k,1378) - lu(k,533) * lu(k,1351) - lu(k,1381) = lu(k,1381) - lu(k,534) * lu(k,1351) - lu(k,1383) = lu(k,1383) - lu(k,535) * lu(k,1351) - lu(k,1384) = lu(k,1384) - lu(k,536) * lu(k,1351) - lu(k,1580) = lu(k,1580) - lu(k,520) * lu(k,1578) - lu(k,1583) = lu(k,1583) - lu(k,521) * lu(k,1578) - lu(k,1588) = lu(k,1588) - lu(k,522) * lu(k,1578) - lu(k,1589) = lu(k,1589) - lu(k,523) * lu(k,1578) - lu(k,1590) = lu(k,1590) - lu(k,524) * lu(k,1578) - lu(k,1591) = lu(k,1591) - lu(k,525) * lu(k,1578) - lu(k,1592) = lu(k,1592) - lu(k,526) * lu(k,1578) - lu(k,1593) = lu(k,1593) - lu(k,527) * lu(k,1578) - lu(k,1596) = lu(k,1596) - lu(k,528) * lu(k,1578) - lu(k,1597) = lu(k,1597) - lu(k,529) * lu(k,1578) - lu(k,1599) = lu(k,1599) - lu(k,530) * lu(k,1578) - lu(k,1600) = lu(k,1600) - lu(k,531) * lu(k,1578) - lu(k,1602) = lu(k,1602) - lu(k,532) * lu(k,1578) - lu(k,1604) = lu(k,1604) - lu(k,533) * lu(k,1578) - lu(k,1607) = lu(k,1607) - lu(k,534) * lu(k,1578) - lu(k,1609) = lu(k,1609) - lu(k,535) * lu(k,1578) - lu(k,1610) = lu(k,1610) - lu(k,536) * lu(k,1578) - lu(k,1689) = lu(k,1689) - lu(k,520) * lu(k,1687) - lu(k,1692) = lu(k,1692) - lu(k,521) * lu(k,1687) - lu(k,1697) = lu(k,1697) - lu(k,522) * lu(k,1687) - lu(k,1698) = lu(k,1698) - lu(k,523) * lu(k,1687) - lu(k,1699) = lu(k,1699) - lu(k,524) * lu(k,1687) - lu(k,1700) = lu(k,1700) - lu(k,525) * lu(k,1687) - lu(k,1701) = lu(k,1701) - lu(k,526) * lu(k,1687) - lu(k,1702) = lu(k,1702) - lu(k,527) * lu(k,1687) - lu(k,1705) = lu(k,1705) - lu(k,528) * lu(k,1687) - lu(k,1706) = lu(k,1706) - lu(k,529) * lu(k,1687) - lu(k,1708) = lu(k,1708) - lu(k,530) * lu(k,1687) - lu(k,1709) = lu(k,1709) - lu(k,531) * lu(k,1687) - lu(k,1711) = lu(k,1711) - lu(k,532) * lu(k,1687) - lu(k,1713) = lu(k,1713) - lu(k,533) * lu(k,1687) - lu(k,1716) = lu(k,1716) - lu(k,534) * lu(k,1687) - lu(k,1718) = lu(k,1718) - lu(k,535) * lu(k,1687) - lu(k,1719) = lu(k,1719) - lu(k,536) * lu(k,1687) - lu(k,1824) = lu(k,1824) - lu(k,520) * lu(k,1822) - lu(k,1829) = lu(k,1829) - lu(k,521) * lu(k,1822) - lu(k,1834) = lu(k,1834) - lu(k,522) * lu(k,1822) - lu(k,1835) = lu(k,1835) - lu(k,523) * lu(k,1822) - lu(k,1836) = lu(k,1836) - lu(k,524) * lu(k,1822) - lu(k,1837) = lu(k,1837) - lu(k,525) * lu(k,1822) - lu(k,1838) = lu(k,1838) - lu(k,526) * lu(k,1822) - lu(k,1839) = lu(k,1839) - lu(k,527) * lu(k,1822) - lu(k,1842) = lu(k,1842) - lu(k,528) * lu(k,1822) - lu(k,1843) = lu(k,1843) - lu(k,529) * lu(k,1822) - lu(k,1845) = lu(k,1845) - lu(k,530) * lu(k,1822) - lu(k,1846) = lu(k,1846) - lu(k,531) * lu(k,1822) - lu(k,1848) = lu(k,1848) - lu(k,532) * lu(k,1822) - lu(k,1850) = lu(k,1850) - lu(k,533) * lu(k,1822) - lu(k,1853) = lu(k,1853) - lu(k,534) * lu(k,1822) - lu(k,1855) = lu(k,1855) - lu(k,535) * lu(k,1822) - lu(k,1856) = lu(k,1856) - lu(k,536) * lu(k,1822) - 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,543) = lu(k,543) * lu(k,539) - lu(k,544) = lu(k,544) * lu(k,539) - lu(k,545) = lu(k,545) * lu(k,539) - lu(k,546) = lu(k,546) * lu(k,539) - lu(k,547) = lu(k,547) * lu(k,539) - lu(k,548) = lu(k,548) * lu(k,539) - lu(k,549) = lu(k,549) * lu(k,539) - lu(k,550) = lu(k,550) * lu(k,539) - lu(k,551) = lu(k,551) * lu(k,539) - lu(k,552) = lu(k,552) * lu(k,539) - lu(k,553) = lu(k,553) * lu(k,539) - lu(k,554) = lu(k,554) * lu(k,539) - lu(k,555) = lu(k,555) * lu(k,539) - lu(k,556) = lu(k,556) * lu(k,539) - lu(k,818) = - lu(k,540) * lu(k,817) - lu(k,820) = lu(k,820) - lu(k,541) * lu(k,817) - lu(k,822) = lu(k,822) - lu(k,542) * lu(k,817) - lu(k,823) = lu(k,823) - lu(k,543) * lu(k,817) - lu(k,824) = lu(k,824) - lu(k,544) * lu(k,817) - lu(k,825) = lu(k,825) - lu(k,545) * lu(k,817) - lu(k,826) = lu(k,826) - lu(k,546) * lu(k,817) - lu(k,827) = lu(k,827) - lu(k,547) * lu(k,817) - lu(k,828) = lu(k,828) - lu(k,548) * lu(k,817) - lu(k,832) = lu(k,832) - lu(k,549) * lu(k,817) - lu(k,835) = lu(k,835) - lu(k,550) * lu(k,817) - lu(k,836) = lu(k,836) - lu(k,551) * lu(k,817) - lu(k,838) = lu(k,838) - lu(k,552) * lu(k,817) - lu(k,840) = lu(k,840) - lu(k,553) * lu(k,817) - lu(k,843) = lu(k,843) - lu(k,554) * lu(k,817) - lu(k,845) = lu(k,845) - lu(k,555) * lu(k,817) - lu(k,846) = lu(k,846) - lu(k,556) * lu(k,817) - lu(k,891) = lu(k,891) - lu(k,540) * lu(k,890) - lu(k,895) = lu(k,895) - lu(k,541) * lu(k,890) - lu(k,898) = lu(k,898) - lu(k,542) * lu(k,890) - lu(k,899) = lu(k,899) - lu(k,543) * lu(k,890) - lu(k,900) = lu(k,900) - lu(k,544) * lu(k,890) - lu(k,901) = lu(k,901) - lu(k,545) * lu(k,890) - lu(k,902) = lu(k,902) - lu(k,546) * lu(k,890) - lu(k,903) = lu(k,903) - lu(k,547) * lu(k,890) - lu(k,904) = lu(k,904) - lu(k,548) * lu(k,890) - lu(k,908) = lu(k,908) - lu(k,549) * lu(k,890) - lu(k,911) = lu(k,911) - lu(k,550) * lu(k,890) - lu(k,912) = lu(k,912) - lu(k,551) * lu(k,890) - lu(k,914) = lu(k,914) - lu(k,552) * lu(k,890) - lu(k,916) = lu(k,916) - lu(k,553) * lu(k,890) - lu(k,919) = lu(k,919) - lu(k,554) * lu(k,890) - lu(k,921) = lu(k,921) - lu(k,555) * lu(k,890) - lu(k,922) = lu(k,922) - lu(k,556) * lu(k,890) - lu(k,934) = lu(k,934) - lu(k,540) * lu(k,933) - lu(k,937) = lu(k,937) - lu(k,541) * lu(k,933) - lu(k,940) = lu(k,940) - lu(k,542) * lu(k,933) - lu(k,941) = lu(k,941) - lu(k,543) * lu(k,933) - lu(k,942) = lu(k,942) - lu(k,544) * lu(k,933) - lu(k,943) = lu(k,943) - lu(k,545) * lu(k,933) - lu(k,944) = lu(k,944) - lu(k,546) * lu(k,933) - lu(k,945) = lu(k,945) - lu(k,547) * lu(k,933) - lu(k,946) = lu(k,946) - lu(k,548) * lu(k,933) - lu(k,950) = lu(k,950) - lu(k,549) * lu(k,933) - lu(k,953) = lu(k,953) - lu(k,550) * lu(k,933) - lu(k,954) = lu(k,954) - lu(k,551) * lu(k,933) - lu(k,956) = lu(k,956) - lu(k,552) * lu(k,933) - lu(k,958) = lu(k,958) - lu(k,553) * lu(k,933) - lu(k,961) = lu(k,961) - lu(k,554) * lu(k,933) - lu(k,963) = lu(k,963) - lu(k,555) * lu(k,933) - lu(k,964) = lu(k,964) - lu(k,556) * lu(k,933) - lu(k,978) = lu(k,978) - lu(k,540) * lu(k,977) - lu(k,983) = lu(k,983) - lu(k,541) * lu(k,977) - lu(k,986) = lu(k,986) - lu(k,542) * lu(k,977) - lu(k,987) = lu(k,987) - lu(k,543) * lu(k,977) - lu(k,988) = lu(k,988) - lu(k,544) * lu(k,977) - lu(k,989) = lu(k,989) - lu(k,545) * lu(k,977) - lu(k,990) = lu(k,990) - lu(k,546) * lu(k,977) - lu(k,991) = lu(k,991) - lu(k,547) * lu(k,977) - lu(k,992) = lu(k,992) - lu(k,548) * lu(k,977) - lu(k,996) = lu(k,996) - lu(k,549) * lu(k,977) - lu(k,999) = lu(k,999) - lu(k,550) * lu(k,977) - lu(k,1000) = lu(k,1000) - lu(k,551) * lu(k,977) - lu(k,1002) = lu(k,1002) - lu(k,552) * lu(k,977) - lu(k,1004) = lu(k,1004) - lu(k,553) * lu(k,977) - lu(k,1007) = lu(k,1007) - lu(k,554) * lu(k,977) - lu(k,1009) = lu(k,1009) - lu(k,555) * lu(k,977) - lu(k,1010) = lu(k,1010) - lu(k,556) * lu(k,977) - lu(k,1022) = lu(k,1022) - lu(k,540) * lu(k,1021) - lu(k,1025) = lu(k,1025) - lu(k,541) * lu(k,1021) - lu(k,1028) = lu(k,1028) - lu(k,542) * lu(k,1021) - lu(k,1029) = lu(k,1029) - lu(k,543) * lu(k,1021) - lu(k,1030) = lu(k,1030) - lu(k,544) * lu(k,1021) - lu(k,1031) = lu(k,1031) - lu(k,545) * lu(k,1021) - lu(k,1032) = lu(k,1032) - lu(k,546) * lu(k,1021) - lu(k,1033) = lu(k,1033) - lu(k,547) * lu(k,1021) - lu(k,1034) = lu(k,1034) - lu(k,548) * lu(k,1021) - lu(k,1038) = lu(k,1038) - lu(k,549) * lu(k,1021) - lu(k,1041) = lu(k,1041) - lu(k,550) * lu(k,1021) - lu(k,1042) = lu(k,1042) - lu(k,551) * lu(k,1021) - lu(k,1044) = lu(k,1044) - lu(k,552) * lu(k,1021) - lu(k,1046) = lu(k,1046) - lu(k,553) * lu(k,1021) - lu(k,1049) = lu(k,1049) - lu(k,554) * lu(k,1021) - lu(k,1051) = lu(k,1051) - lu(k,555) * lu(k,1021) - lu(k,1052) = lu(k,1052) - lu(k,556) * lu(k,1021) - lu(k,1063) = lu(k,1063) - lu(k,540) * lu(k,1062) - lu(k,1066) = lu(k,1066) - lu(k,541) * lu(k,1062) - lu(k,1069) = lu(k,1069) - lu(k,542) * lu(k,1062) - lu(k,1070) = lu(k,1070) - lu(k,543) * lu(k,1062) - lu(k,1071) = lu(k,1071) - lu(k,544) * lu(k,1062) - lu(k,1072) = lu(k,1072) - lu(k,545) * lu(k,1062) - lu(k,1073) = lu(k,1073) - lu(k,546) * lu(k,1062) - lu(k,1074) = lu(k,1074) - lu(k,547) * lu(k,1062) - lu(k,1075) = lu(k,1075) - lu(k,548) * lu(k,1062) - lu(k,1079) = lu(k,1079) - lu(k,549) * lu(k,1062) - lu(k,1082) = lu(k,1082) - lu(k,550) * lu(k,1062) - lu(k,1083) = lu(k,1083) - lu(k,551) * lu(k,1062) - lu(k,1085) = lu(k,1085) - lu(k,552) * lu(k,1062) - lu(k,1087) = lu(k,1087) - lu(k,553) * lu(k,1062) - lu(k,1090) = lu(k,1090) - lu(k,554) * lu(k,1062) - lu(k,1092) = lu(k,1092) - lu(k,555) * lu(k,1062) - lu(k,1093) = lu(k,1093) - lu(k,556) * lu(k,1062) - lu(k,1353) = lu(k,1353) - lu(k,540) * lu(k,1352) - lu(k,1357) = lu(k,1357) - lu(k,541) * lu(k,1352) - lu(k,1360) = lu(k,1360) - lu(k,542) * lu(k,1352) - lu(k,1361) = lu(k,1361) - lu(k,543) * lu(k,1352) - lu(k,1362) = lu(k,1362) - lu(k,544) * lu(k,1352) - lu(k,1363) = lu(k,1363) - lu(k,545) * lu(k,1352) - lu(k,1364) = lu(k,1364) - lu(k,546) * lu(k,1352) - lu(k,1365) = lu(k,1365) - lu(k,547) * lu(k,1352) - lu(k,1366) = lu(k,1366) - lu(k,548) * lu(k,1352) - lu(k,1370) = lu(k,1370) - lu(k,549) * lu(k,1352) - lu(k,1373) = lu(k,1373) - lu(k,550) * lu(k,1352) - lu(k,1374) = lu(k,1374) - lu(k,551) * lu(k,1352) - lu(k,1376) = lu(k,1376) - lu(k,552) * lu(k,1352) - lu(k,1378) = lu(k,1378) - lu(k,553) * lu(k,1352) - lu(k,1381) = lu(k,1381) - lu(k,554) * lu(k,1352) - lu(k,1383) = lu(k,1383) - lu(k,555) * lu(k,1352) - lu(k,1384) = lu(k,1384) - lu(k,556) * lu(k,1352) - lu(k,1494) = - lu(k,540) * lu(k,1493) - lu(k,1499) = lu(k,1499) - lu(k,541) * lu(k,1493) - lu(k,1502) = lu(k,1502) - lu(k,542) * lu(k,1493) - lu(k,1503) = lu(k,1503) - lu(k,543) * lu(k,1493) - lu(k,1504) = lu(k,1504) - lu(k,544) * lu(k,1493) - lu(k,1505) = lu(k,1505) - lu(k,545) * lu(k,1493) - lu(k,1506) = lu(k,1506) - lu(k,546) * lu(k,1493) - lu(k,1507) = lu(k,1507) - lu(k,547) * lu(k,1493) - lu(k,1508) = lu(k,1508) - lu(k,548) * lu(k,1493) - lu(k,1512) = lu(k,1512) - lu(k,549) * lu(k,1493) - lu(k,1515) = lu(k,1515) - lu(k,550) * lu(k,1493) - lu(k,1516) = lu(k,1516) - lu(k,551) * lu(k,1493) - lu(k,1518) = lu(k,1518) - lu(k,552) * lu(k,1493) - lu(k,1520) = lu(k,1520) - lu(k,553) * lu(k,1493) - lu(k,1523) = lu(k,1523) - lu(k,554) * lu(k,1493) - lu(k,1525) = lu(k,1525) - lu(k,555) * lu(k,1493) - lu(k,1526) = lu(k,1526) - lu(k,556) * lu(k,1493) - lu(k,1580) = lu(k,1580) - lu(k,540) * lu(k,1579) - lu(k,1583) = lu(k,1583) - lu(k,541) * lu(k,1579) - lu(k,1586) = lu(k,1586) - lu(k,542) * lu(k,1579) - lu(k,1587) = lu(k,1587) - lu(k,543) * lu(k,1579) - lu(k,1588) = lu(k,1588) - lu(k,544) * lu(k,1579) - lu(k,1589) = lu(k,1589) - lu(k,545) * lu(k,1579) - lu(k,1590) = lu(k,1590) - lu(k,546) * lu(k,1579) - lu(k,1591) = lu(k,1591) - lu(k,547) * lu(k,1579) - lu(k,1592) = lu(k,1592) - lu(k,548) * lu(k,1579) - lu(k,1596) = lu(k,1596) - lu(k,549) * lu(k,1579) - lu(k,1599) = lu(k,1599) - lu(k,550) * lu(k,1579) - lu(k,1600) = lu(k,1600) - lu(k,551) * lu(k,1579) - lu(k,1602) = lu(k,1602) - lu(k,552) * lu(k,1579) - lu(k,1604) = lu(k,1604) - lu(k,553) * lu(k,1579) - lu(k,1607) = lu(k,1607) - lu(k,554) * lu(k,1579) - lu(k,1609) = lu(k,1609) - lu(k,555) * lu(k,1579) - lu(k,1610) = lu(k,1610) - lu(k,556) * lu(k,1579) - lu(k,1689) = lu(k,1689) - lu(k,540) * lu(k,1688) - lu(k,1692) = lu(k,1692) - lu(k,541) * lu(k,1688) - lu(k,1695) = lu(k,1695) - lu(k,542) * lu(k,1688) - lu(k,1696) = lu(k,1696) - lu(k,543) * lu(k,1688) - lu(k,1697) = lu(k,1697) - lu(k,544) * lu(k,1688) - lu(k,1698) = lu(k,1698) - lu(k,545) * lu(k,1688) - lu(k,1699) = lu(k,1699) - lu(k,546) * lu(k,1688) - lu(k,1700) = lu(k,1700) - lu(k,547) * lu(k,1688) - lu(k,1701) = lu(k,1701) - lu(k,548) * lu(k,1688) - lu(k,1705) = lu(k,1705) - lu(k,549) * lu(k,1688) - lu(k,1708) = lu(k,1708) - lu(k,550) * lu(k,1688) - lu(k,1709) = lu(k,1709) - lu(k,551) * lu(k,1688) - lu(k,1711) = lu(k,1711) - lu(k,552) * lu(k,1688) - lu(k,1713) = lu(k,1713) - lu(k,553) * lu(k,1688) - lu(k,1716) = lu(k,1716) - lu(k,554) * lu(k,1688) - lu(k,1718) = lu(k,1718) - lu(k,555) * lu(k,1688) - lu(k,1719) = lu(k,1719) - lu(k,556) * lu(k,1688) - lu(k,1824) = lu(k,1824) - lu(k,540) * lu(k,1823) - lu(k,1829) = lu(k,1829) - lu(k,541) * lu(k,1823) - lu(k,1832) = lu(k,1832) - lu(k,542) * lu(k,1823) - lu(k,1833) = lu(k,1833) - lu(k,543) * lu(k,1823) - lu(k,1834) = lu(k,1834) - lu(k,544) * lu(k,1823) - lu(k,1835) = lu(k,1835) - lu(k,545) * lu(k,1823) - lu(k,1836) = lu(k,1836) - lu(k,546) * lu(k,1823) - lu(k,1837) = lu(k,1837) - lu(k,547) * lu(k,1823) - lu(k,1838) = lu(k,1838) - lu(k,548) * lu(k,1823) - lu(k,1842) = lu(k,1842) - lu(k,549) * lu(k,1823) - lu(k,1845) = lu(k,1845) - lu(k,550) * lu(k,1823) - lu(k,1846) = lu(k,1846) - lu(k,551) * lu(k,1823) - lu(k,1848) = lu(k,1848) - lu(k,552) * lu(k,1823) - lu(k,1850) = lu(k,1850) - lu(k,553) * lu(k,1823) - lu(k,1853) = lu(k,1853) - lu(k,554) * lu(k,1823) - lu(k,1855) = lu(k,1855) - lu(k,555) * lu(k,1823) - lu(k,1856) = lu(k,1856) - lu(k,556) * lu(k,1823) - end do + real(r8), intent(inout) :: lu(:) + lu(503) = 1._r8 / lu(503) + lu(504) = lu(504) * lu(503) + lu(505) = lu(505) * lu(503) + lu(506) = lu(506) * lu(503) + lu(507) = lu(507) * lu(503) + lu(508) = lu(508) * lu(503) + lu(509) = lu(509) * lu(503) + lu(510) = lu(510) * lu(503) + lu(511) = lu(511) * lu(503) + lu(512) = lu(512) * lu(503) + lu(513) = lu(513) * lu(503) + lu(514) = lu(514) * lu(503) + lu(515) = lu(515) * lu(503) + lu(516) = lu(516) * lu(503) + lu(521) = - lu(504) * lu(518) + lu(522) = lu(522) - lu(505) * lu(518) + lu(523) = lu(523) - lu(506) * lu(518) + lu(524) = lu(524) - lu(507) * lu(518) + lu(525) = lu(525) - lu(508) * lu(518) + lu(527) = lu(527) - lu(509) * lu(518) + lu(528) = lu(528) - lu(510) * lu(518) + lu(530) = lu(530) - lu(511) * lu(518) + lu(532) = lu(532) - lu(512) * lu(518) + lu(533) = lu(533) - lu(513) * lu(518) + lu(534) = lu(534) - lu(514) * lu(518) + lu(535) = lu(535) - lu(515) * lu(518) + lu(536) = lu(536) - lu(516) * lu(518) + lu(561) = lu(561) - lu(504) * lu(558) + lu(562) = lu(562) - lu(505) * lu(558) + lu(563) = lu(563) - lu(506) * lu(558) + lu(564) = lu(564) - lu(507) * lu(558) + lu(565) = lu(565) - lu(508) * lu(558) + lu(567) = lu(567) - lu(509) * lu(558) + lu(568) = lu(568) - lu(510) * lu(558) + lu(570) = lu(570) - lu(511) * lu(558) + lu(572) = lu(572) - lu(512) * lu(558) + lu(573) = lu(573) - lu(513) * lu(558) + lu(574) = lu(574) - lu(514) * lu(558) + lu(575) = lu(575) - lu(515) * lu(558) + lu(576) = lu(576) - lu(516) * lu(558) + lu(713) = lu(713) - lu(504) * lu(710) + lu(715) = lu(715) - lu(505) * lu(710) + lu(716) = lu(716) - lu(506) * lu(710) + lu(717) = lu(717) - lu(507) * lu(710) + lu(718) = lu(718) - lu(508) * lu(710) + lu(720) = lu(720) - lu(509) * lu(710) + lu(721) = lu(721) - lu(510) * lu(710) + lu(725) = lu(725) - lu(511) * lu(710) + lu(728) = lu(728) - lu(512) * lu(710) + lu(729) = lu(729) - lu(513) * lu(710) + lu(730) = lu(730) - lu(514) * lu(710) + lu(732) = lu(732) - lu(515) * lu(710) + lu(733) = lu(733) - lu(516) * lu(710) + lu(903) = lu(903) - lu(504) * lu(897) + lu(908) = lu(908) - lu(505) * lu(897) + lu(909) = lu(909) - lu(506) * lu(897) + lu(910) = lu(910) - lu(507) * lu(897) + lu(911) = lu(911) - lu(508) * lu(897) + lu(913) = lu(913) - lu(509) * lu(897) + lu(914) = lu(914) - lu(510) * lu(897) + lu(919) = lu(919) - lu(511) * lu(897) + lu(923) = lu(923) - lu(512) * lu(897) + lu(924) = lu(924) - lu(513) * lu(897) + lu(927) = lu(927) - lu(514) * lu(897) + lu(929) = lu(929) - lu(515) * lu(897) + lu(930) = lu(930) - lu(516) * lu(897) + lu(950) = lu(950) - lu(504) * lu(943) + lu(955) = lu(955) - lu(505) * lu(943) + lu(956) = lu(956) - lu(506) * lu(943) + lu(957) = lu(957) - lu(507) * lu(943) + lu(958) = lu(958) - lu(508) * lu(943) + lu(960) = lu(960) - lu(509) * lu(943) + lu(961) = lu(961) - lu(510) * lu(943) + lu(966) = lu(966) - lu(511) * lu(943) + lu(970) = lu(970) - lu(512) * lu(943) + lu(971) = lu(971) - lu(513) * lu(943) + lu(974) = lu(974) - lu(514) * lu(943) + lu(976) = lu(976) - lu(515) * lu(943) + lu(977) = lu(977) - lu(516) * lu(943) + lu(992) = lu(992) - lu(504) * lu(986) + lu(997) = lu(997) - lu(505) * lu(986) + lu(998) = lu(998) - lu(506) * lu(986) + lu(999) = lu(999) - lu(507) * lu(986) + lu(1000) = lu(1000) - lu(508) * lu(986) + lu(1002) = lu(1002) - lu(509) * lu(986) + lu(1003) = lu(1003) - lu(510) * lu(986) + lu(1008) = lu(1008) - lu(511) * lu(986) + lu(1012) = lu(1012) - lu(512) * lu(986) + lu(1013) = lu(1013) - lu(513) * lu(986) + lu(1016) = lu(1016) - lu(514) * lu(986) + lu(1018) = lu(1018) - lu(515) * lu(986) + lu(1019) = lu(1019) - lu(516) * lu(986) + lu(1087) = lu(1087) - lu(504) * lu(1079) + lu(1092) = - lu(505) * lu(1079) + lu(1093) = lu(1093) - lu(506) * lu(1079) + lu(1094) = - lu(507) * lu(1079) + lu(1095) = lu(1095) - lu(508) * lu(1079) + lu(1097) = - lu(509) * lu(1079) + lu(1098) = lu(1098) - lu(510) * lu(1079) + lu(1103) = lu(1103) - lu(511) * lu(1079) + lu(1107) = lu(1107) - lu(512) * lu(1079) + lu(1108) = lu(1108) - lu(513) * lu(1079) + lu(1111) = lu(1111) - lu(514) * lu(1079) + lu(1113) = lu(1113) - lu(515) * lu(1079) + lu(1114) = lu(1114) - lu(516) * lu(1079) + lu(1128) = lu(1128) - lu(504) * lu(1122) + lu(1133) = lu(1133) - lu(505) * lu(1122) + lu(1134) = lu(1134) - lu(506) * lu(1122) + lu(1135) = lu(1135) - lu(507) * lu(1122) + lu(1136) = lu(1136) - lu(508) * lu(1122) + lu(1138) = lu(1138) - lu(509) * lu(1122) + lu(1139) = lu(1139) - lu(510) * lu(1122) + lu(1144) = lu(1144) - lu(511) * lu(1122) + lu(1148) = lu(1148) - lu(512) * lu(1122) + lu(1149) = lu(1149) - lu(513) * lu(1122) + lu(1152) = lu(1152) - lu(514) * lu(1122) + lu(1154) = lu(1154) - lu(515) * lu(1122) + lu(1155) = lu(1155) - lu(516) * lu(1122) + lu(1314) = lu(1314) - lu(504) * lu(1308) + lu(1319) = lu(1319) - lu(505) * lu(1308) + lu(1320) = lu(1320) - lu(506) * lu(1308) + lu(1321) = lu(1321) - lu(507) * lu(1308) + lu(1322) = lu(1322) - lu(508) * lu(1308) + lu(1324) = lu(1324) - lu(509) * lu(1308) + lu(1325) = lu(1325) - lu(510) * lu(1308) + lu(1330) = lu(1330) - lu(511) * lu(1308) + lu(1334) = lu(1334) - lu(512) * lu(1308) + lu(1335) = lu(1335) - lu(513) * lu(1308) + lu(1338) = lu(1338) - lu(514) * lu(1308) + lu(1340) = lu(1340) - lu(515) * lu(1308) + lu(1341) = lu(1341) - lu(516) * lu(1308) + lu(1393) = lu(1393) - lu(504) * lu(1386) + lu(1398) = lu(1398) - lu(505) * lu(1386) + lu(1399) = lu(1399) - lu(506) * lu(1386) + lu(1400) = lu(1400) - lu(507) * lu(1386) + lu(1401) = lu(1401) - lu(508) * lu(1386) + lu(1403) = lu(1403) - lu(509) * lu(1386) + lu(1404) = lu(1404) - lu(510) * lu(1386) + lu(1409) = lu(1409) - lu(511) * lu(1386) + lu(1413) = lu(1413) - lu(512) * lu(1386) + lu(1414) = lu(1414) - lu(513) * lu(1386) + lu(1417) = lu(1417) - lu(514) * lu(1386) + lu(1419) = lu(1419) - lu(515) * lu(1386) + lu(1420) = lu(1420) - lu(516) * lu(1386) + lu(1555) = lu(1555) - lu(504) * lu(1549) + lu(1560) = lu(1560) - lu(505) * lu(1549) + lu(1561) = lu(1561) - lu(506) * lu(1549) + lu(1562) = lu(1562) - lu(507) * lu(1549) + lu(1563) = lu(1563) - lu(508) * lu(1549) + lu(1565) = lu(1565) - lu(509) * lu(1549) + lu(1566) = lu(1566) - lu(510) * lu(1549) + lu(1571) = lu(1571) - lu(511) * lu(1549) + lu(1575) = lu(1575) - lu(512) * lu(1549) + lu(1576) = lu(1576) - lu(513) * lu(1549) + lu(1579) = lu(1579) - lu(514) * lu(1549) + lu(1581) = lu(1581) - lu(515) * lu(1549) + lu(1582) = lu(1582) - lu(516) * lu(1549) + lu(1594) = lu(1594) - lu(504) * lu(1589) + lu(1599) = lu(1599) - lu(505) * lu(1589) + lu(1600) = lu(1600) - lu(506) * lu(1589) + lu(1601) = lu(1601) - lu(507) * lu(1589) + lu(1602) = lu(1602) - lu(508) * lu(1589) + lu(1604) = lu(1604) - lu(509) * lu(1589) + lu(1605) = lu(1605) - lu(510) * lu(1589) + lu(1610) = lu(1610) - lu(511) * lu(1589) + lu(1614) = lu(1614) - lu(512) * lu(1589) + lu(1615) = lu(1615) - lu(513) * lu(1589) + lu(1618) = lu(1618) - lu(514) * lu(1589) + lu(1620) = lu(1620) - lu(515) * lu(1589) + lu(1621) = lu(1621) - lu(516) * lu(1589) + lu(1703) = lu(1703) - lu(504) * lu(1697) + lu(1708) = lu(1708) - lu(505) * lu(1697) + lu(1709) = lu(1709) - lu(506) * lu(1697) + lu(1710) = lu(1710) - lu(507) * lu(1697) + lu(1711) = lu(1711) - lu(508) * lu(1697) + lu(1713) = lu(1713) - lu(509) * lu(1697) + lu(1714) = lu(1714) - lu(510) * lu(1697) + lu(1719) = lu(1719) - lu(511) * lu(1697) + lu(1723) = lu(1723) - lu(512) * lu(1697) + lu(1724) = lu(1724) - lu(513) * lu(1697) + lu(1727) = lu(1727) - lu(514) * lu(1697) + lu(1729) = lu(1729) - lu(515) * lu(1697) + lu(1730) = lu(1730) - lu(516) * lu(1697) + lu(1772) = - lu(504) * lu(1766) + lu(1776) = - lu(505) * lu(1766) + lu(1777) = - lu(506) * lu(1766) + lu(1778) = - lu(507) * lu(1766) + lu(1779) = lu(1779) - lu(508) * lu(1766) + lu(1781) = - lu(509) * lu(1766) + lu(1782) = lu(1782) - lu(510) * lu(1766) + lu(1787) = - lu(511) * lu(1766) + lu(1791) = lu(1791) - lu(512) * lu(1766) + lu(1792) = lu(1792) - lu(513) * lu(1766) + lu(1795) = lu(1795) - lu(514) * lu(1766) + lu(1797) = lu(1797) - lu(515) * lu(1766) + lu(1798) = lu(1798) - lu(516) * lu(1766) + lu(519) = 1._r8 / lu(519) + lu(520) = lu(520) * lu(519) + lu(521) = lu(521) * lu(519) + lu(522) = lu(522) * lu(519) + lu(523) = lu(523) * lu(519) + lu(524) = lu(524) * lu(519) + lu(525) = lu(525) * lu(519) + lu(526) = lu(526) * lu(519) + lu(527) = lu(527) * lu(519) + lu(528) = lu(528) * lu(519) + lu(529) = lu(529) * lu(519) + lu(530) = lu(530) * lu(519) + lu(531) = lu(531) * lu(519) + lu(532) = lu(532) * lu(519) + lu(533) = lu(533) * lu(519) + lu(534) = lu(534) * lu(519) + lu(535) = lu(535) * lu(519) + lu(536) = lu(536) * lu(519) + lu(560) = lu(560) - lu(520) * lu(559) + lu(561) = lu(561) - lu(521) * lu(559) + lu(562) = lu(562) - lu(522) * lu(559) + lu(563) = lu(563) - lu(523) * lu(559) + lu(564) = lu(564) - lu(524) * lu(559) + lu(565) = lu(565) - lu(525) * lu(559) + lu(566) = lu(566) - lu(526) * lu(559) + lu(567) = lu(567) - lu(527) * lu(559) + lu(568) = lu(568) - lu(528) * lu(559) + lu(569) = lu(569) - lu(529) * lu(559) + lu(570) = lu(570) - lu(530) * lu(559) + lu(571) = lu(571) - lu(531) * lu(559) + lu(572) = lu(572) - lu(532) * lu(559) + lu(573) = lu(573) - lu(533) * lu(559) + lu(574) = lu(574) - lu(534) * lu(559) + lu(575) = lu(575) - lu(535) * lu(559) + lu(576) = lu(576) - lu(536) * lu(559) + lu(900) = lu(900) - lu(520) * lu(898) + lu(903) = lu(903) - lu(521) * lu(898) + lu(908) = lu(908) - lu(522) * lu(898) + lu(909) = lu(909) - lu(523) * lu(898) + lu(910) = lu(910) - lu(524) * lu(898) + lu(911) = lu(911) - lu(525) * lu(898) + lu(912) = lu(912) - lu(526) * lu(898) + lu(913) = lu(913) - lu(527) * lu(898) + lu(914) = lu(914) - lu(528) * lu(898) + lu(915) = lu(915) - lu(529) * lu(898) + lu(919) = lu(919) - lu(530) * lu(898) + lu(921) = lu(921) - lu(531) * lu(898) + lu(923) = lu(923) - lu(532) * lu(898) + lu(924) = lu(924) - lu(533) * lu(898) + lu(927) = lu(927) - lu(534) * lu(898) + lu(929) = lu(929) - lu(535) * lu(898) + lu(930) = lu(930) - lu(536) * lu(898) + lu(946) = lu(946) - lu(520) * lu(944) + lu(950) = lu(950) - lu(521) * lu(944) + lu(955) = lu(955) - lu(522) * lu(944) + lu(956) = lu(956) - lu(523) * lu(944) + lu(957) = lu(957) - lu(524) * lu(944) + lu(958) = lu(958) - lu(525) * lu(944) + lu(959) = lu(959) - lu(526) * lu(944) + lu(960) = lu(960) - lu(527) * lu(944) + lu(961) = lu(961) - lu(528) * lu(944) + lu(962) = lu(962) - lu(529) * lu(944) + lu(966) = lu(966) - lu(530) * lu(944) + lu(968) = lu(968) - lu(531) * lu(944) + lu(970) = lu(970) - lu(532) * lu(944) + lu(971) = lu(971) - lu(533) * lu(944) + lu(974) = lu(974) - lu(534) * lu(944) + lu(976) = lu(976) - lu(535) * lu(944) + lu(977) = lu(977) - lu(536) * lu(944) + lu(989) = lu(989) - lu(520) * lu(987) + lu(992) = lu(992) - lu(521) * lu(987) + lu(997) = lu(997) - lu(522) * lu(987) + lu(998) = lu(998) - lu(523) * lu(987) + lu(999) = lu(999) - lu(524) * lu(987) + lu(1000) = lu(1000) - lu(525) * lu(987) + lu(1001) = lu(1001) - lu(526) * lu(987) + lu(1002) = lu(1002) - lu(527) * lu(987) + lu(1003) = lu(1003) - lu(528) * lu(987) + lu(1004) = lu(1004) - lu(529) * lu(987) + lu(1008) = lu(1008) - lu(530) * lu(987) + lu(1010) = lu(1010) - lu(531) * lu(987) + lu(1012) = lu(1012) - lu(532) * lu(987) + lu(1013) = lu(1013) - lu(533) * lu(987) + lu(1016) = lu(1016) - lu(534) * lu(987) + lu(1018) = lu(1018) - lu(535) * lu(987) + lu(1019) = lu(1019) - lu(536) * lu(987) + lu(1082) = lu(1082) - lu(520) * lu(1080) + lu(1087) = lu(1087) - lu(521) * lu(1080) + lu(1092) = lu(1092) - lu(522) * lu(1080) + lu(1093) = lu(1093) - lu(523) * lu(1080) + lu(1094) = lu(1094) - lu(524) * lu(1080) + lu(1095) = lu(1095) - lu(525) * lu(1080) + lu(1096) = lu(1096) - lu(526) * lu(1080) + lu(1097) = lu(1097) - lu(527) * lu(1080) + lu(1098) = lu(1098) - lu(528) * lu(1080) + lu(1099) = lu(1099) - lu(529) * lu(1080) + lu(1103) = lu(1103) - lu(530) * lu(1080) + lu(1105) = lu(1105) - lu(531) * lu(1080) + lu(1107) = lu(1107) - lu(532) * lu(1080) + lu(1108) = lu(1108) - lu(533) * lu(1080) + lu(1111) = lu(1111) - lu(534) * lu(1080) + lu(1113) = lu(1113) - lu(535) * lu(1080) + lu(1114) = lu(1114) - lu(536) * lu(1080) + lu(1125) = lu(1125) - lu(520) * lu(1123) + lu(1128) = lu(1128) - lu(521) * lu(1123) + lu(1133) = lu(1133) - lu(522) * lu(1123) + lu(1134) = lu(1134) - lu(523) * lu(1123) + lu(1135) = lu(1135) - lu(524) * lu(1123) + lu(1136) = lu(1136) - lu(525) * lu(1123) + lu(1137) = lu(1137) - lu(526) * lu(1123) + lu(1138) = lu(1138) - lu(527) * lu(1123) + lu(1139) = lu(1139) - lu(528) * lu(1123) + lu(1140) = lu(1140) - lu(529) * lu(1123) + lu(1144) = lu(1144) - lu(530) * lu(1123) + lu(1146) = lu(1146) - lu(531) * lu(1123) + lu(1148) = lu(1148) - lu(532) * lu(1123) + lu(1149) = lu(1149) - lu(533) * lu(1123) + lu(1152) = lu(1152) - lu(534) * lu(1123) + lu(1154) = lu(1154) - lu(535) * lu(1123) + lu(1155) = lu(1155) - lu(536) * lu(1123) + lu(1389) = lu(1389) - lu(520) * lu(1387) + lu(1393) = lu(1393) - lu(521) * lu(1387) + lu(1398) = lu(1398) - lu(522) * lu(1387) + lu(1399) = lu(1399) - lu(523) * lu(1387) + lu(1400) = lu(1400) - lu(524) * lu(1387) + lu(1401) = lu(1401) - lu(525) * lu(1387) + lu(1402) = lu(1402) - lu(526) * lu(1387) + lu(1403) = lu(1403) - lu(527) * lu(1387) + lu(1404) = lu(1404) - lu(528) * lu(1387) + lu(1405) = lu(1405) - lu(529) * lu(1387) + lu(1409) = lu(1409) - lu(530) * lu(1387) + lu(1411) = lu(1411) - lu(531) * lu(1387) + lu(1413) = lu(1413) - lu(532) * lu(1387) + lu(1414) = lu(1414) - lu(533) * lu(1387) + lu(1417) = lu(1417) - lu(534) * lu(1387) + lu(1419) = lu(1419) - lu(535) * lu(1387) + lu(1420) = lu(1420) - lu(536) * lu(1387) + lu(1552) = lu(1552) - lu(520) * lu(1550) + lu(1555) = lu(1555) - lu(521) * lu(1550) + lu(1560) = lu(1560) - lu(522) * lu(1550) + lu(1561) = lu(1561) - lu(523) * lu(1550) + lu(1562) = lu(1562) - lu(524) * lu(1550) + lu(1563) = lu(1563) - lu(525) * lu(1550) + lu(1564) = lu(1564) - lu(526) * lu(1550) + lu(1565) = lu(1565) - lu(527) * lu(1550) + lu(1566) = lu(1566) - lu(528) * lu(1550) + lu(1567) = lu(1567) - lu(529) * lu(1550) + lu(1571) = lu(1571) - lu(530) * lu(1550) + lu(1573) = lu(1573) - lu(531) * lu(1550) + lu(1575) = lu(1575) - lu(532) * lu(1550) + lu(1576) = lu(1576) - lu(533) * lu(1550) + lu(1579) = lu(1579) - lu(534) * lu(1550) + lu(1581) = lu(1581) - lu(535) * lu(1550) + lu(1582) = lu(1582) - lu(536) * lu(1550) + lu(1700) = lu(1700) - lu(520) * lu(1698) + lu(1703) = lu(1703) - lu(521) * lu(1698) + lu(1708) = lu(1708) - lu(522) * lu(1698) + lu(1709) = lu(1709) - lu(523) * lu(1698) + lu(1710) = lu(1710) - lu(524) * lu(1698) + lu(1711) = lu(1711) - lu(525) * lu(1698) + lu(1712) = lu(1712) - lu(526) * lu(1698) + lu(1713) = lu(1713) - lu(527) * lu(1698) + lu(1714) = lu(1714) - lu(528) * lu(1698) + lu(1715) = lu(1715) - lu(529) * lu(1698) + lu(1719) = lu(1719) - lu(530) * lu(1698) + lu(1721) = lu(1721) - lu(531) * lu(1698) + lu(1723) = lu(1723) - lu(532) * lu(1698) + lu(1724) = lu(1724) - lu(533) * lu(1698) + lu(1727) = lu(1727) - lu(534) * lu(1698) + lu(1729) = lu(1729) - lu(535) * lu(1698) + lu(1730) = lu(1730) - lu(536) * lu(1698) + lu(1768) = lu(1768) - lu(520) * lu(1767) + lu(1772) = lu(1772) - lu(521) * lu(1767) + lu(1776) = lu(1776) - lu(522) * lu(1767) + lu(1777) = lu(1777) - lu(523) * lu(1767) + lu(1778) = lu(1778) - lu(524) * lu(1767) + lu(1779) = lu(1779) - lu(525) * lu(1767) + lu(1780) = lu(1780) - lu(526) * lu(1767) + lu(1781) = lu(1781) - lu(527) * lu(1767) + lu(1782) = lu(1782) - lu(528) * lu(1767) + lu(1783) = lu(1783) - lu(529) * lu(1767) + lu(1787) = lu(1787) - lu(530) * lu(1767) + lu(1789) = lu(1789) - lu(531) * lu(1767) + lu(1791) = lu(1791) - lu(532) * lu(1767) + lu(1792) = lu(1792) - lu(533) * lu(1767) + lu(1795) = lu(1795) - lu(534) * lu(1767) + lu(1797) = lu(1797) - lu(535) * lu(1767) + lu(1798) = lu(1798) - lu(536) * lu(1767) + lu(1824) = lu(1824) - lu(520) * lu(1822) + lu(1829) = lu(1829) - lu(521) * lu(1822) + lu(1834) = lu(1834) - lu(522) * lu(1822) + lu(1835) = lu(1835) - lu(523) * lu(1822) + lu(1836) = lu(1836) - lu(524) * lu(1822) + lu(1837) = lu(1837) - lu(525) * lu(1822) + lu(1838) = lu(1838) - lu(526) * lu(1822) + lu(1839) = lu(1839) - lu(527) * lu(1822) + lu(1840) = lu(1840) - lu(528) * lu(1822) + lu(1841) = lu(1841) - lu(529) * lu(1822) + lu(1845) = lu(1845) - lu(530) * lu(1822) + lu(1847) = lu(1847) - lu(531) * lu(1822) + lu(1849) = lu(1849) - lu(532) * lu(1822) + lu(1850) = lu(1850) - lu(533) * lu(1822) + lu(1853) = lu(1853) - lu(534) * lu(1822) + lu(1855) = lu(1855) - lu(535) * lu(1822) + lu(1856) = lu(1856) - lu(536) * lu(1822) + lu(539) = 1._r8 / lu(539) + lu(540) = lu(540) * lu(539) + lu(541) = lu(541) * lu(539) + lu(542) = lu(542) * lu(539) + lu(543) = lu(543) * lu(539) + lu(544) = lu(544) * lu(539) + lu(545) = lu(545) * lu(539) + lu(546) = lu(546) * lu(539) + lu(547) = lu(547) * lu(539) + lu(548) = lu(548) * lu(539) + lu(549) = lu(549) * lu(539) + lu(550) = lu(550) * lu(539) + lu(551) = lu(551) * lu(539) + lu(552) = lu(552) * lu(539) + lu(553) = lu(553) * lu(539) + lu(554) = lu(554) * lu(539) + lu(555) = lu(555) * lu(539) + lu(556) = lu(556) * lu(539) + lu(818) = - lu(540) * lu(817) + lu(820) = lu(820) - lu(541) * lu(817) + lu(822) = lu(822) - lu(542) * lu(817) + lu(824) = lu(824) - lu(543) * lu(817) + lu(825) = lu(825) - lu(544) * lu(817) + lu(826) = lu(826) - lu(545) * lu(817) + lu(827) = lu(827) - lu(546) * lu(817) + lu(828) = lu(828) - lu(547) * lu(817) + lu(829) = lu(829) - lu(548) * lu(817) + lu(830) = lu(830) - lu(549) * lu(817) + lu(831) = lu(831) - lu(550) * lu(817) + lu(835) = lu(835) - lu(551) * lu(817) + lu(837) = lu(837) - lu(552) * lu(817) + lu(839) = lu(839) - lu(553) * lu(817) + lu(843) = lu(843) - lu(554) * lu(817) + lu(844) = lu(844) - lu(555) * lu(817) + lu(846) = lu(846) - lu(556) * lu(817) + lu(900) = lu(900) - lu(540) * lu(899) + lu(903) = lu(903) - lu(541) * lu(899) + lu(906) = lu(906) - lu(542) * lu(899) + lu(908) = lu(908) - lu(543) * lu(899) + lu(909) = lu(909) - lu(544) * lu(899) + lu(910) = lu(910) - lu(545) * lu(899) + lu(911) = lu(911) - lu(546) * lu(899) + lu(912) = lu(912) - lu(547) * lu(899) + lu(913) = lu(913) - lu(548) * lu(899) + lu(914) = lu(914) - lu(549) * lu(899) + lu(915) = lu(915) - lu(550) * lu(899) + lu(919) = lu(919) - lu(551) * lu(899) + lu(921) = lu(921) - lu(552) * lu(899) + lu(923) = lu(923) - lu(553) * lu(899) + lu(927) = lu(927) - lu(554) * lu(899) + lu(928) = lu(928) - lu(555) * lu(899) + lu(930) = lu(930) - lu(556) * lu(899) + lu(946) = lu(946) - lu(540) * lu(945) + lu(950) = lu(950) - lu(541) * lu(945) + lu(953) = lu(953) - lu(542) * lu(945) + lu(955) = lu(955) - lu(543) * lu(945) + lu(956) = lu(956) - lu(544) * lu(945) + lu(957) = lu(957) - lu(545) * lu(945) + lu(958) = lu(958) - lu(546) * lu(945) + lu(959) = lu(959) - lu(547) * lu(945) + lu(960) = lu(960) - lu(548) * lu(945) + lu(961) = lu(961) - lu(549) * lu(945) + lu(962) = lu(962) - lu(550) * lu(945) + lu(966) = lu(966) - lu(551) * lu(945) + lu(968) = lu(968) - lu(552) * lu(945) + lu(970) = lu(970) - lu(553) * lu(945) + lu(974) = lu(974) - lu(554) * lu(945) + lu(975) = lu(975) - lu(555) * lu(945) + lu(977) = lu(977) - lu(556) * lu(945) + lu(989) = lu(989) - lu(540) * lu(988) + lu(992) = lu(992) - lu(541) * lu(988) + lu(995) = lu(995) - lu(542) * lu(988) + lu(997) = lu(997) - lu(543) * lu(988) + lu(998) = lu(998) - lu(544) * lu(988) + lu(999) = lu(999) - lu(545) * lu(988) + lu(1000) = lu(1000) - lu(546) * lu(988) + lu(1001) = lu(1001) - lu(547) * lu(988) + lu(1002) = lu(1002) - lu(548) * lu(988) + lu(1003) = lu(1003) - lu(549) * lu(988) + lu(1004) = lu(1004) - lu(550) * lu(988) + lu(1008) = lu(1008) - lu(551) * lu(988) + lu(1010) = lu(1010) - lu(552) * lu(988) + lu(1012) = lu(1012) - lu(553) * lu(988) + lu(1016) = lu(1016) - lu(554) * lu(988) + lu(1017) = lu(1017) - lu(555) * lu(988) + lu(1019) = lu(1019) - lu(556) * lu(988) + lu(1082) = lu(1082) - lu(540) * lu(1081) + lu(1087) = lu(1087) - lu(541) * lu(1081) + lu(1090) = lu(1090) - lu(542) * lu(1081) + lu(1092) = lu(1092) - lu(543) * lu(1081) + lu(1093) = lu(1093) - lu(544) * lu(1081) + lu(1094) = lu(1094) - lu(545) * lu(1081) + lu(1095) = lu(1095) - lu(546) * lu(1081) + lu(1096) = lu(1096) - lu(547) * lu(1081) + lu(1097) = lu(1097) - lu(548) * lu(1081) + lu(1098) = lu(1098) - lu(549) * lu(1081) + lu(1099) = lu(1099) - lu(550) * lu(1081) + lu(1103) = lu(1103) - lu(551) * lu(1081) + lu(1105) = lu(1105) - lu(552) * lu(1081) + lu(1107) = lu(1107) - lu(553) * lu(1081) + lu(1111) = lu(1111) - lu(554) * lu(1081) + lu(1112) = lu(1112) - lu(555) * lu(1081) + lu(1114) = lu(1114) - lu(556) * lu(1081) + lu(1125) = lu(1125) - lu(540) * lu(1124) + lu(1128) = lu(1128) - lu(541) * lu(1124) + lu(1131) = lu(1131) - lu(542) * lu(1124) + lu(1133) = lu(1133) - lu(543) * lu(1124) + lu(1134) = lu(1134) - lu(544) * lu(1124) + lu(1135) = lu(1135) - lu(545) * lu(1124) + lu(1136) = lu(1136) - lu(546) * lu(1124) + lu(1137) = lu(1137) - lu(547) * lu(1124) + lu(1138) = lu(1138) - lu(548) * lu(1124) + lu(1139) = lu(1139) - lu(549) * lu(1124) + lu(1140) = lu(1140) - lu(550) * lu(1124) + lu(1144) = lu(1144) - lu(551) * lu(1124) + lu(1146) = lu(1146) - lu(552) * lu(1124) + lu(1148) = lu(1148) - lu(553) * lu(1124) + lu(1152) = lu(1152) - lu(554) * lu(1124) + lu(1153) = lu(1153) - lu(555) * lu(1124) + lu(1155) = lu(1155) - lu(556) * lu(1124) + lu(1164) = - lu(540) * lu(1163) + lu(1169) = lu(1169) - lu(541) * lu(1163) + lu(1172) = lu(1172) - lu(542) * lu(1163) + lu(1174) = lu(1174) - lu(543) * lu(1163) + lu(1175) = lu(1175) - lu(544) * lu(1163) + lu(1176) = lu(1176) - lu(545) * lu(1163) + lu(1177) = lu(1177) - lu(546) * lu(1163) + lu(1178) = lu(1178) - lu(547) * lu(1163) + lu(1179) = lu(1179) - lu(548) * lu(1163) + lu(1180) = lu(1180) - lu(549) * lu(1163) + lu(1181) = lu(1181) - lu(550) * lu(1163) + lu(1185) = lu(1185) - lu(551) * lu(1163) + lu(1187) = lu(1187) - lu(552) * lu(1163) + lu(1189) = lu(1189) - lu(553) * lu(1163) + lu(1193) = lu(1193) - lu(554) * lu(1163) + lu(1194) = lu(1194) - lu(555) * lu(1163) + lu(1196) = lu(1196) - lu(556) * lu(1163) + lu(1389) = lu(1389) - lu(540) * lu(1388) + lu(1393) = lu(1393) - lu(541) * lu(1388) + lu(1396) = lu(1396) - lu(542) * lu(1388) + lu(1398) = lu(1398) - lu(543) * lu(1388) + lu(1399) = lu(1399) - lu(544) * lu(1388) + lu(1400) = lu(1400) - lu(545) * lu(1388) + lu(1401) = lu(1401) - lu(546) * lu(1388) + lu(1402) = lu(1402) - lu(547) * lu(1388) + lu(1403) = lu(1403) - lu(548) * lu(1388) + lu(1404) = lu(1404) - lu(549) * lu(1388) + lu(1405) = lu(1405) - lu(550) * lu(1388) + lu(1409) = lu(1409) - lu(551) * lu(1388) + lu(1411) = lu(1411) - lu(552) * lu(1388) + lu(1413) = lu(1413) - lu(553) * lu(1388) + lu(1417) = lu(1417) - lu(554) * lu(1388) + lu(1418) = lu(1418) - lu(555) * lu(1388) + lu(1420) = lu(1420) - lu(556) * lu(1388) + lu(1552) = lu(1552) - lu(540) * lu(1551) + lu(1555) = lu(1555) - lu(541) * lu(1551) + lu(1558) = lu(1558) - lu(542) * lu(1551) + lu(1560) = lu(1560) - lu(543) * lu(1551) + lu(1561) = lu(1561) - lu(544) * lu(1551) + lu(1562) = lu(1562) - lu(545) * lu(1551) + lu(1563) = lu(1563) - lu(546) * lu(1551) + lu(1564) = lu(1564) - lu(547) * lu(1551) + lu(1565) = lu(1565) - lu(548) * lu(1551) + lu(1566) = lu(1566) - lu(549) * lu(1551) + lu(1567) = lu(1567) - lu(550) * lu(1551) + lu(1571) = lu(1571) - lu(551) * lu(1551) + lu(1573) = lu(1573) - lu(552) * lu(1551) + lu(1575) = lu(1575) - lu(553) * lu(1551) + lu(1579) = lu(1579) - lu(554) * lu(1551) + lu(1580) = lu(1580) - lu(555) * lu(1551) + lu(1582) = lu(1582) - lu(556) * lu(1551) + lu(1700) = lu(1700) - lu(540) * lu(1699) + lu(1703) = lu(1703) - lu(541) * lu(1699) + lu(1706) = lu(1706) - lu(542) * lu(1699) + lu(1708) = lu(1708) - lu(543) * lu(1699) + lu(1709) = lu(1709) - lu(544) * lu(1699) + lu(1710) = lu(1710) - lu(545) * lu(1699) + lu(1711) = lu(1711) - lu(546) * lu(1699) + lu(1712) = lu(1712) - lu(547) * lu(1699) + lu(1713) = lu(1713) - lu(548) * lu(1699) + lu(1714) = lu(1714) - lu(549) * lu(1699) + lu(1715) = lu(1715) - lu(550) * lu(1699) + lu(1719) = lu(1719) - lu(551) * lu(1699) + lu(1721) = lu(1721) - lu(552) * lu(1699) + lu(1723) = lu(1723) - lu(553) * lu(1699) + lu(1727) = lu(1727) - lu(554) * lu(1699) + lu(1728) = lu(1728) - lu(555) * lu(1699) + lu(1730) = lu(1730) - lu(556) * lu(1699) + lu(1824) = lu(1824) - lu(540) * lu(1823) + lu(1829) = lu(1829) - lu(541) * lu(1823) + lu(1832) = lu(1832) - lu(542) * lu(1823) + lu(1834) = lu(1834) - lu(543) * lu(1823) + lu(1835) = lu(1835) - lu(544) * lu(1823) + lu(1836) = lu(1836) - lu(545) * lu(1823) + lu(1837) = lu(1837) - lu(546) * lu(1823) + lu(1838) = lu(1838) - lu(547) * lu(1823) + lu(1839) = lu(1839) - lu(548) * lu(1823) + lu(1840) = lu(1840) - lu(549) * lu(1823) + lu(1841) = lu(1841) - lu(550) * lu(1823) + lu(1845) = lu(1845) - lu(551) * lu(1823) + lu(1847) = lu(1847) - lu(552) * lu(1823) + lu(1849) = lu(1849) - lu(553) * lu(1823) + lu(1853) = lu(1853) - lu(554) * lu(1823) + lu(1854) = lu(1854) - lu(555) * lu(1823) + lu(1856) = lu(1856) - lu(556) * lu(1823) end subroutine lu_fac14 - subroutine lu_fac15( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac15( lu ) 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,560) = 1._r8 / lu(k,560) - lu(k,561) = lu(k,561) * lu(k,560) - lu(k,562) = lu(k,562) * lu(k,560) - lu(k,563) = lu(k,563) * lu(k,560) - lu(k,564) = lu(k,564) * lu(k,560) - lu(k,565) = lu(k,565) * lu(k,560) - lu(k,566) = lu(k,566) * lu(k,560) - lu(k,567) = lu(k,567) * lu(k,560) - lu(k,568) = lu(k,568) * lu(k,560) - lu(k,569) = lu(k,569) * lu(k,560) - lu(k,570) = lu(k,570) * lu(k,560) - lu(k,571) = lu(k,571) * lu(k,560) - lu(k,572) = lu(k,572) * lu(k,560) - lu(k,573) = lu(k,573) * lu(k,560) - lu(k,574) = lu(k,574) * lu(k,560) - lu(k,575) = lu(k,575) * lu(k,560) - lu(k,576) = lu(k,576) * lu(k,560) - lu(k,713) = lu(k,713) - lu(k,561) * lu(k,711) - lu(k,715) = lu(k,715) - lu(k,562) * lu(k,711) - lu(k,716) = lu(k,716) - lu(k,563) * lu(k,711) - lu(k,717) = - lu(k,564) * lu(k,711) - lu(k,718) = lu(k,718) - lu(k,565) * lu(k,711) - lu(k,719) = lu(k,719) - lu(k,566) * lu(k,711) - lu(k,720) = lu(k,720) - lu(k,567) * lu(k,711) - lu(k,723) = lu(k,723) - lu(k,568) * lu(k,711) - lu(k,724) = lu(k,724) - lu(k,569) * lu(k,711) - lu(k,725) = lu(k,725) - lu(k,570) * lu(k,711) - lu(k,726) = lu(k,726) - lu(k,571) * lu(k,711) - lu(k,728) = lu(k,728) - lu(k,572) * lu(k,711) - lu(k,730) = lu(k,730) - lu(k,573) * lu(k,711) - lu(k,731) = lu(k,731) - lu(k,574) * lu(k,711) - lu(k,732) = lu(k,732) - lu(k,575) * lu(k,711) - lu(k,733) = lu(k,733) - lu(k,576) * lu(k,711) - lu(k,820) = lu(k,820) - lu(k,561) * lu(k,818) - lu(k,824) = lu(k,824) - lu(k,562) * lu(k,818) - lu(k,825) = lu(k,825) - lu(k,563) * lu(k,818) - lu(k,826) = lu(k,826) - lu(k,564) * lu(k,818) - lu(k,827) = lu(k,827) - lu(k,565) * lu(k,818) - lu(k,828) = lu(k,828) - lu(k,566) * lu(k,818) - lu(k,829) = - lu(k,567) * lu(k,818) - lu(k,832) = lu(k,832) - lu(k,568) * lu(k,818) - lu(k,833) = lu(k,833) - lu(k,569) * lu(k,818) - lu(k,835) = lu(k,835) - lu(k,570) * lu(k,818) - lu(k,836) = lu(k,836) - lu(k,571) * lu(k,818) - lu(k,838) = lu(k,838) - lu(k,572) * lu(k,818) - lu(k,840) = lu(k,840) - lu(k,573) * lu(k,818) - lu(k,843) = lu(k,843) - lu(k,574) * lu(k,818) - lu(k,845) = lu(k,845) - lu(k,575) * lu(k,818) - lu(k,846) = lu(k,846) - lu(k,576) * lu(k,818) - lu(k,895) = lu(k,895) - lu(k,561) * lu(k,891) - lu(k,900) = lu(k,900) - lu(k,562) * lu(k,891) - lu(k,901) = lu(k,901) - lu(k,563) * lu(k,891) - lu(k,902) = lu(k,902) - lu(k,564) * lu(k,891) - lu(k,903) = lu(k,903) - lu(k,565) * lu(k,891) - lu(k,904) = lu(k,904) - lu(k,566) * lu(k,891) - lu(k,905) = lu(k,905) - lu(k,567) * lu(k,891) - lu(k,908) = lu(k,908) - lu(k,568) * lu(k,891) - lu(k,909) = lu(k,909) - lu(k,569) * lu(k,891) - lu(k,911) = lu(k,911) - lu(k,570) * lu(k,891) - lu(k,912) = lu(k,912) - lu(k,571) * lu(k,891) - lu(k,914) = lu(k,914) - lu(k,572) * lu(k,891) - lu(k,916) = lu(k,916) - lu(k,573) * lu(k,891) - lu(k,919) = lu(k,919) - lu(k,574) * lu(k,891) - lu(k,921) = lu(k,921) - lu(k,575) * lu(k,891) - lu(k,922) = lu(k,922) - lu(k,576) * lu(k,891) - lu(k,937) = lu(k,937) - lu(k,561) * lu(k,934) - lu(k,942) = lu(k,942) - lu(k,562) * lu(k,934) - lu(k,943) = lu(k,943) - lu(k,563) * lu(k,934) - lu(k,944) = lu(k,944) - lu(k,564) * lu(k,934) - lu(k,945) = lu(k,945) - lu(k,565) * lu(k,934) - lu(k,946) = lu(k,946) - lu(k,566) * lu(k,934) - lu(k,947) = lu(k,947) - lu(k,567) * lu(k,934) - lu(k,950) = lu(k,950) - lu(k,568) * lu(k,934) - lu(k,951) = lu(k,951) - lu(k,569) * lu(k,934) - lu(k,953) = lu(k,953) - lu(k,570) * lu(k,934) - lu(k,954) = lu(k,954) - lu(k,571) * lu(k,934) - lu(k,956) = lu(k,956) - lu(k,572) * lu(k,934) - lu(k,958) = lu(k,958) - lu(k,573) * lu(k,934) - lu(k,961) = lu(k,961) - lu(k,574) * lu(k,934) - lu(k,963) = lu(k,963) - lu(k,575) * lu(k,934) - lu(k,964) = lu(k,964) - lu(k,576) * lu(k,934) - lu(k,983) = lu(k,983) - lu(k,561) * lu(k,978) - lu(k,988) = lu(k,988) - lu(k,562) * lu(k,978) - lu(k,989) = lu(k,989) - lu(k,563) * lu(k,978) - lu(k,990) = lu(k,990) - lu(k,564) * lu(k,978) - lu(k,991) = lu(k,991) - lu(k,565) * lu(k,978) - lu(k,992) = lu(k,992) - lu(k,566) * lu(k,978) - lu(k,993) = lu(k,993) - lu(k,567) * lu(k,978) - lu(k,996) = lu(k,996) - lu(k,568) * lu(k,978) - lu(k,997) = lu(k,997) - lu(k,569) * lu(k,978) - lu(k,999) = lu(k,999) - lu(k,570) * lu(k,978) - lu(k,1000) = lu(k,1000) - lu(k,571) * lu(k,978) - lu(k,1002) = lu(k,1002) - lu(k,572) * lu(k,978) - lu(k,1004) = lu(k,1004) - lu(k,573) * lu(k,978) - lu(k,1007) = lu(k,1007) - lu(k,574) * lu(k,978) - lu(k,1009) = lu(k,1009) - lu(k,575) * lu(k,978) - lu(k,1010) = lu(k,1010) - lu(k,576) * lu(k,978) - lu(k,1025) = lu(k,1025) - lu(k,561) * lu(k,1022) - lu(k,1030) = lu(k,1030) - lu(k,562) * lu(k,1022) - lu(k,1031) = lu(k,1031) - lu(k,563) * lu(k,1022) - lu(k,1032) = lu(k,1032) - lu(k,564) * lu(k,1022) - lu(k,1033) = lu(k,1033) - lu(k,565) * lu(k,1022) - lu(k,1034) = lu(k,1034) - lu(k,566) * lu(k,1022) - lu(k,1035) = lu(k,1035) - lu(k,567) * lu(k,1022) - lu(k,1038) = lu(k,1038) - lu(k,568) * lu(k,1022) - lu(k,1039) = lu(k,1039) - lu(k,569) * lu(k,1022) - lu(k,1041) = lu(k,1041) - lu(k,570) * lu(k,1022) - lu(k,1042) = lu(k,1042) - lu(k,571) * lu(k,1022) - lu(k,1044) = lu(k,1044) - lu(k,572) * lu(k,1022) - lu(k,1046) = lu(k,1046) - lu(k,573) * lu(k,1022) - lu(k,1049) = lu(k,1049) - lu(k,574) * lu(k,1022) - lu(k,1051) = lu(k,1051) - lu(k,575) * lu(k,1022) - lu(k,1052) = lu(k,1052) - lu(k,576) * lu(k,1022) - lu(k,1066) = lu(k,1066) - lu(k,561) * lu(k,1063) - lu(k,1071) = lu(k,1071) - lu(k,562) * lu(k,1063) - lu(k,1072) = lu(k,1072) - lu(k,563) * lu(k,1063) - lu(k,1073) = lu(k,1073) - lu(k,564) * lu(k,1063) - lu(k,1074) = lu(k,1074) - lu(k,565) * lu(k,1063) - lu(k,1075) = lu(k,1075) - lu(k,566) * lu(k,1063) - lu(k,1076) = lu(k,1076) - lu(k,567) * lu(k,1063) - lu(k,1079) = lu(k,1079) - lu(k,568) * lu(k,1063) - lu(k,1080) = lu(k,1080) - lu(k,569) * lu(k,1063) - lu(k,1082) = lu(k,1082) - lu(k,570) * lu(k,1063) - lu(k,1083) = lu(k,1083) - lu(k,571) * lu(k,1063) - lu(k,1085) = lu(k,1085) - lu(k,572) * lu(k,1063) - lu(k,1087) = lu(k,1087) - lu(k,573) * lu(k,1063) - lu(k,1090) = lu(k,1090) - lu(k,574) * lu(k,1063) - lu(k,1092) = lu(k,1092) - lu(k,575) * lu(k,1063) - lu(k,1093) = lu(k,1093) - lu(k,576) * lu(k,1063) - lu(k,1106) = lu(k,1106) - lu(k,561) * lu(k,1102) - lu(k,1110) = lu(k,1110) - lu(k,562) * lu(k,1102) - lu(k,1111) = lu(k,1111) - lu(k,563) * lu(k,1102) - lu(k,1112) = lu(k,1112) - lu(k,564) * lu(k,1102) - lu(k,1113) = lu(k,1113) - lu(k,565) * lu(k,1102) - lu(k,1114) = lu(k,1114) - lu(k,566) * lu(k,1102) - lu(k,1115) = lu(k,1115) - lu(k,567) * lu(k,1102) - lu(k,1118) = lu(k,1118) - lu(k,568) * lu(k,1102) - lu(k,1119) = lu(k,1119) - lu(k,569) * lu(k,1102) - lu(k,1121) = lu(k,1121) - lu(k,570) * lu(k,1102) - lu(k,1122) = lu(k,1122) - lu(k,571) * lu(k,1102) - lu(k,1124) = lu(k,1124) - lu(k,572) * lu(k,1102) - lu(k,1126) = lu(k,1126) - lu(k,573) * lu(k,1102) - lu(k,1129) = lu(k,1129) - lu(k,574) * lu(k,1102) - lu(k,1131) = lu(k,1131) - lu(k,575) * lu(k,1102) - lu(k,1132) = lu(k,1132) - lu(k,576) * lu(k,1102) - lu(k,1278) = lu(k,1278) - lu(k,561) * lu(k,1274) - lu(k,1283) = lu(k,1283) - lu(k,562) * lu(k,1274) - lu(k,1284) = lu(k,1284) - lu(k,563) * lu(k,1274) - lu(k,1285) = lu(k,1285) - lu(k,564) * lu(k,1274) - lu(k,1286) = lu(k,1286) - lu(k,565) * lu(k,1274) - lu(k,1287) = lu(k,1287) - lu(k,566) * lu(k,1274) - lu(k,1288) = lu(k,1288) - lu(k,567) * lu(k,1274) - lu(k,1291) = lu(k,1291) - lu(k,568) * lu(k,1274) - lu(k,1292) = lu(k,1292) - lu(k,569) * lu(k,1274) - lu(k,1294) = lu(k,1294) - lu(k,570) * lu(k,1274) - lu(k,1295) = lu(k,1295) - lu(k,571) * lu(k,1274) - lu(k,1297) = lu(k,1297) - lu(k,572) * lu(k,1274) - lu(k,1299) = lu(k,1299) - lu(k,573) * lu(k,1274) - lu(k,1302) = lu(k,1302) - lu(k,574) * lu(k,1274) - lu(k,1304) = lu(k,1304) - lu(k,575) * lu(k,1274) - lu(k,1305) = lu(k,1305) - lu(k,576) * lu(k,1274) - lu(k,1357) = lu(k,1357) - lu(k,561) * lu(k,1353) - lu(k,1362) = lu(k,1362) - lu(k,562) * lu(k,1353) - lu(k,1363) = lu(k,1363) - lu(k,563) * lu(k,1353) - lu(k,1364) = lu(k,1364) - lu(k,564) * lu(k,1353) - lu(k,1365) = lu(k,1365) - lu(k,565) * lu(k,1353) - lu(k,1366) = lu(k,1366) - lu(k,566) * lu(k,1353) - lu(k,1367) = lu(k,1367) - lu(k,567) * lu(k,1353) - lu(k,1370) = lu(k,1370) - lu(k,568) * lu(k,1353) - lu(k,1371) = lu(k,1371) - lu(k,569) * lu(k,1353) - lu(k,1373) = lu(k,1373) - lu(k,570) * lu(k,1353) - lu(k,1374) = lu(k,1374) - lu(k,571) * lu(k,1353) - lu(k,1376) = lu(k,1376) - lu(k,572) * lu(k,1353) - lu(k,1378) = lu(k,1378) - lu(k,573) * lu(k,1353) - lu(k,1381) = lu(k,1381) - lu(k,574) * lu(k,1353) - lu(k,1383) = lu(k,1383) - lu(k,575) * lu(k,1353) - lu(k,1384) = lu(k,1384) - lu(k,576) * lu(k,1353) - lu(k,1499) = lu(k,1499) - lu(k,561) * lu(k,1494) - lu(k,1504) = lu(k,1504) - lu(k,562) * lu(k,1494) - lu(k,1505) = lu(k,1505) - lu(k,563) * lu(k,1494) - lu(k,1506) = lu(k,1506) - lu(k,564) * lu(k,1494) - lu(k,1507) = lu(k,1507) - lu(k,565) * lu(k,1494) - lu(k,1508) = lu(k,1508) - lu(k,566) * lu(k,1494) - lu(k,1509) = lu(k,1509) - lu(k,567) * lu(k,1494) - lu(k,1512) = lu(k,1512) - lu(k,568) * lu(k,1494) - lu(k,1513) = - lu(k,569) * lu(k,1494) - lu(k,1515) = lu(k,1515) - lu(k,570) * lu(k,1494) - lu(k,1516) = lu(k,1516) - lu(k,571) * lu(k,1494) - lu(k,1518) = lu(k,1518) - lu(k,572) * lu(k,1494) - lu(k,1520) = lu(k,1520) - lu(k,573) * lu(k,1494) - lu(k,1523) = lu(k,1523) - lu(k,574) * lu(k,1494) - lu(k,1525) = lu(k,1525) - lu(k,575) * lu(k,1494) - lu(k,1526) = lu(k,1526) - lu(k,576) * lu(k,1494) - lu(k,1583) = lu(k,1583) - lu(k,561) * lu(k,1580) - lu(k,1588) = lu(k,1588) - lu(k,562) * lu(k,1580) - lu(k,1589) = lu(k,1589) - lu(k,563) * lu(k,1580) - lu(k,1590) = lu(k,1590) - lu(k,564) * lu(k,1580) - lu(k,1591) = lu(k,1591) - lu(k,565) * lu(k,1580) - lu(k,1592) = lu(k,1592) - lu(k,566) * lu(k,1580) - lu(k,1593) = lu(k,1593) - lu(k,567) * lu(k,1580) - lu(k,1596) = lu(k,1596) - lu(k,568) * lu(k,1580) - lu(k,1597) = lu(k,1597) - lu(k,569) * lu(k,1580) - lu(k,1599) = lu(k,1599) - lu(k,570) * lu(k,1580) - lu(k,1600) = lu(k,1600) - lu(k,571) * lu(k,1580) - lu(k,1602) = lu(k,1602) - lu(k,572) * lu(k,1580) - lu(k,1604) = lu(k,1604) - lu(k,573) * lu(k,1580) - lu(k,1607) = lu(k,1607) - lu(k,574) * lu(k,1580) - lu(k,1609) = lu(k,1609) - lu(k,575) * lu(k,1580) - lu(k,1610) = lu(k,1610) - lu(k,576) * lu(k,1580) - lu(k,1692) = lu(k,1692) - lu(k,561) * lu(k,1689) - lu(k,1697) = lu(k,1697) - lu(k,562) * lu(k,1689) - lu(k,1698) = lu(k,1698) - lu(k,563) * lu(k,1689) - lu(k,1699) = lu(k,1699) - lu(k,564) * lu(k,1689) - lu(k,1700) = lu(k,1700) - lu(k,565) * lu(k,1689) - lu(k,1701) = lu(k,1701) - lu(k,566) * lu(k,1689) - lu(k,1702) = lu(k,1702) - lu(k,567) * lu(k,1689) - lu(k,1705) = lu(k,1705) - lu(k,568) * lu(k,1689) - lu(k,1706) = lu(k,1706) - lu(k,569) * lu(k,1689) - lu(k,1708) = lu(k,1708) - lu(k,570) * lu(k,1689) - lu(k,1709) = lu(k,1709) - lu(k,571) * lu(k,1689) - lu(k,1711) = lu(k,1711) - lu(k,572) * lu(k,1689) - lu(k,1713) = lu(k,1713) - lu(k,573) * lu(k,1689) - lu(k,1716) = lu(k,1716) - lu(k,574) * lu(k,1689) - lu(k,1718) = lu(k,1718) - lu(k,575) * lu(k,1689) - lu(k,1719) = lu(k,1719) - lu(k,576) * lu(k,1689) - lu(k,1829) = lu(k,1829) - lu(k,561) * lu(k,1824) - lu(k,1834) = lu(k,1834) - lu(k,562) * lu(k,1824) - lu(k,1835) = lu(k,1835) - lu(k,563) * lu(k,1824) - lu(k,1836) = lu(k,1836) - lu(k,564) * lu(k,1824) - lu(k,1837) = lu(k,1837) - lu(k,565) * lu(k,1824) - lu(k,1838) = lu(k,1838) - lu(k,566) * lu(k,1824) - lu(k,1839) = lu(k,1839) - lu(k,567) * lu(k,1824) - lu(k,1842) = lu(k,1842) - lu(k,568) * lu(k,1824) - lu(k,1843) = lu(k,1843) - lu(k,569) * lu(k,1824) - lu(k,1845) = lu(k,1845) - lu(k,570) * lu(k,1824) - lu(k,1846) = lu(k,1846) - lu(k,571) * lu(k,1824) - lu(k,1848) = lu(k,1848) - lu(k,572) * lu(k,1824) - lu(k,1850) = lu(k,1850) - lu(k,573) * lu(k,1824) - lu(k,1853) = lu(k,1853) - lu(k,574) * lu(k,1824) - lu(k,1855) = lu(k,1855) - lu(k,575) * lu(k,1824) - lu(k,1856) = lu(k,1856) - lu(k,576) * lu(k,1824) - 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,596) = lu(k,596) * lu(k,584) - lu(k,597) = lu(k,597) * lu(k,584) - lu(k,598) = lu(k,598) * lu(k,584) - lu(k,599) = lu(k,599) * lu(k,584) - lu(k,600) = lu(k,600) * lu(k,584) - lu(k,606) = lu(k,606) - lu(k,585) * lu(k,605) - lu(k,607) = lu(k,607) - lu(k,586) * lu(k,605) - lu(k,608) = lu(k,608) - lu(k,587) * lu(k,605) - lu(k,609) = lu(k,609) - lu(k,588) * lu(k,605) - lu(k,610) = lu(k,610) - lu(k,589) * lu(k,605) - lu(k,611) = lu(k,611) - lu(k,590) * lu(k,605) - lu(k,612) = lu(k,612) - lu(k,591) * lu(k,605) - lu(k,613) = lu(k,613) - lu(k,592) * lu(k,605) - lu(k,614) = lu(k,614) - lu(k,593) * lu(k,605) - lu(k,615) = lu(k,615) - lu(k,594) * lu(k,605) - lu(k,616) = lu(k,616) - lu(k,595) * lu(k,605) - lu(k,617) = lu(k,617) - lu(k,596) * lu(k,605) - lu(k,618) = lu(k,618) - lu(k,597) * lu(k,605) - lu(k,622) = lu(k,622) - lu(k,598) * lu(k,605) - lu(k,623) = lu(k,623) - lu(k,599) * lu(k,605) - lu(k,624) = lu(k,624) - lu(k,600) * lu(k,605) - lu(k,636) = lu(k,636) - lu(k,585) * lu(k,635) - lu(k,637) = lu(k,637) - lu(k,586) * lu(k,635) - lu(k,638) = lu(k,638) - lu(k,587) * lu(k,635) - lu(k,639) = lu(k,639) - lu(k,588) * lu(k,635) - lu(k,640) = lu(k,640) - lu(k,589) * lu(k,635) - lu(k,642) = lu(k,642) - lu(k,590) * lu(k,635) - lu(k,643) = lu(k,643) - lu(k,591) * lu(k,635) - lu(k,644) = lu(k,644) - lu(k,592) * lu(k,635) - lu(k,645) = lu(k,645) - lu(k,593) * lu(k,635) - lu(k,646) = lu(k,646) - lu(k,594) * lu(k,635) - lu(k,649) = lu(k,649) - lu(k,595) * lu(k,635) - lu(k,650) = lu(k,650) - lu(k,596) * lu(k,635) - lu(k,651) = lu(k,651) - lu(k,597) * lu(k,635) - lu(k,655) = lu(k,655) - lu(k,598) * lu(k,635) - lu(k,656) = lu(k,656) - lu(k,599) * lu(k,635) - lu(k,657) = lu(k,657) - lu(k,600) * lu(k,635) - lu(k,745) = lu(k,745) - lu(k,585) * lu(k,744) - lu(k,746) = lu(k,746) - lu(k,586) * lu(k,744) - lu(k,747) = lu(k,747) - lu(k,587) * lu(k,744) - lu(k,748) = lu(k,748) - lu(k,588) * lu(k,744) - lu(k,749) = lu(k,749) - lu(k,589) * lu(k,744) - lu(k,752) = lu(k,752) - lu(k,590) * lu(k,744) - lu(k,753) = lu(k,753) - lu(k,591) * lu(k,744) - lu(k,754) = lu(k,754) - lu(k,592) * lu(k,744) - lu(k,755) = lu(k,755) - lu(k,593) * lu(k,744) - lu(k,756) = lu(k,756) - lu(k,594) * lu(k,744) - lu(k,759) = lu(k,759) - lu(k,595) * lu(k,744) - lu(k,760) = lu(k,760) - lu(k,596) * lu(k,744) - lu(k,761) = lu(k,761) - lu(k,597) * lu(k,744) - lu(k,765) = lu(k,765) - lu(k,598) * lu(k,744) - lu(k,766) = lu(k,766) - lu(k,599) * lu(k,744) - lu(k,767) = lu(k,767) - lu(k,600) * lu(k,744) - lu(k,791) = lu(k,791) - lu(k,585) * lu(k,790) - lu(k,792) = lu(k,792) - lu(k,586) * lu(k,790) - lu(k,793) = lu(k,793) - lu(k,587) * lu(k,790) - lu(k,794) = lu(k,794) - lu(k,588) * lu(k,790) - lu(k,796) = lu(k,796) - lu(k,589) * lu(k,790) - lu(k,799) = lu(k,799) - lu(k,590) * lu(k,790) - lu(k,800) = lu(k,800) - lu(k,591) * lu(k,790) - lu(k,801) = lu(k,801) - lu(k,592) * lu(k,790) - lu(k,802) = lu(k,802) - lu(k,593) * lu(k,790) - lu(k,803) = lu(k,803) - lu(k,594) * lu(k,790) - lu(k,806) = lu(k,806) - lu(k,595) * lu(k,790) - lu(k,807) = lu(k,807) - lu(k,596) * lu(k,790) - lu(k,808) = lu(k,808) - lu(k,597) * lu(k,790) - lu(k,812) = lu(k,812) - lu(k,598) * lu(k,790) - lu(k,813) = lu(k,813) - lu(k,599) * lu(k,790) - lu(k,814) = lu(k,814) - lu(k,600) * lu(k,790) - lu(k,980) = lu(k,980) - lu(k,585) * lu(k,979) - lu(k,981) = lu(k,981) - lu(k,586) * lu(k,979) - lu(k,984) = lu(k,984) - lu(k,587) * lu(k,979) - lu(k,985) = lu(k,985) - lu(k,588) * lu(k,979) - lu(k,990) = lu(k,990) - lu(k,589) * lu(k,979) - lu(k,993) = lu(k,993) - lu(k,590) * lu(k,979) - lu(k,994) = lu(k,994) - lu(k,591) * lu(k,979) - lu(k,995) = lu(k,995) - lu(k,592) * lu(k,979) - lu(k,996) = lu(k,996) - lu(k,593) * lu(k,979) - lu(k,997) = lu(k,997) - lu(k,594) * lu(k,979) - lu(k,1000) = lu(k,1000) - lu(k,595) * lu(k,979) - lu(k,1001) = lu(k,1001) - lu(k,596) * lu(k,979) - lu(k,1002) = lu(k,1002) - lu(k,597) * lu(k,979) - lu(k,1008) = lu(k,1008) - lu(k,598) * lu(k,979) - lu(k,1009) = lu(k,1009) - lu(k,599) * lu(k,979) - lu(k,1010) = lu(k,1010) - lu(k,600) * lu(k,979) - lu(k,1104) = lu(k,1104) - lu(k,585) * lu(k,1103) - lu(k,1105) = lu(k,1105) - lu(k,586) * lu(k,1103) - lu(k,1107) = lu(k,1107) - lu(k,587) * lu(k,1103) - lu(k,1108) = lu(k,1108) - lu(k,588) * lu(k,1103) - lu(k,1112) = lu(k,1112) - lu(k,589) * lu(k,1103) - lu(k,1115) = lu(k,1115) - lu(k,590) * lu(k,1103) - lu(k,1116) = - lu(k,591) * lu(k,1103) - lu(k,1117) = lu(k,1117) - lu(k,592) * lu(k,1103) - lu(k,1118) = lu(k,1118) - lu(k,593) * lu(k,1103) - lu(k,1119) = lu(k,1119) - lu(k,594) * lu(k,1103) - lu(k,1122) = lu(k,1122) - lu(k,595) * lu(k,1103) - lu(k,1123) = lu(k,1123) - lu(k,596) * lu(k,1103) - lu(k,1124) = lu(k,1124) - lu(k,597) * lu(k,1103) - lu(k,1130) = lu(k,1130) - lu(k,598) * lu(k,1103) - lu(k,1131) = lu(k,1131) - lu(k,599) * lu(k,1103) - lu(k,1132) = lu(k,1132) - lu(k,600) * lu(k,1103) - lu(k,1145) = lu(k,1145) - lu(k,585) * lu(k,1144) - lu(k,1146) = lu(k,1146) - lu(k,586) * lu(k,1144) - lu(k,1150) = lu(k,1150) - lu(k,587) * lu(k,1144) - lu(k,1151) = lu(k,1151) - lu(k,588) * lu(k,1144) - lu(k,1156) = lu(k,1156) - lu(k,589) * lu(k,1144) - lu(k,1159) = lu(k,1159) - lu(k,590) * lu(k,1144) - lu(k,1160) = lu(k,1160) - lu(k,591) * lu(k,1144) - lu(k,1161) = lu(k,1161) - lu(k,592) * lu(k,1144) - lu(k,1162) = lu(k,1162) - lu(k,593) * lu(k,1144) - lu(k,1163) = lu(k,1163) - lu(k,594) * lu(k,1144) - lu(k,1166) = lu(k,1166) - lu(k,595) * lu(k,1144) - lu(k,1167) = lu(k,1167) - lu(k,596) * lu(k,1144) - lu(k,1168) = lu(k,1168) - lu(k,597) * lu(k,1144) - lu(k,1174) = lu(k,1174) - lu(k,598) * lu(k,1144) - lu(k,1175) = lu(k,1175) - lu(k,599) * lu(k,1144) - lu(k,1176) = lu(k,1176) - lu(k,600) * lu(k,1144) - lu(k,1186) = lu(k,1186) - lu(k,585) * lu(k,1185) - lu(k,1187) = lu(k,1187) - lu(k,586) * lu(k,1185) - lu(k,1191) = lu(k,1191) - lu(k,587) * lu(k,1185) - lu(k,1192) = lu(k,1192) - lu(k,588) * lu(k,1185) - lu(k,1197) = lu(k,1197) - lu(k,589) * lu(k,1185) - lu(k,1200) = lu(k,1200) - lu(k,590) * lu(k,1185) - lu(k,1201) = - lu(k,591) * lu(k,1185) - lu(k,1202) = lu(k,1202) - lu(k,592) * lu(k,1185) - lu(k,1203) = lu(k,1203) - lu(k,593) * lu(k,1185) - lu(k,1204) = - lu(k,594) * lu(k,1185) - lu(k,1207) = lu(k,1207) - lu(k,595) * lu(k,1185) - lu(k,1208) = lu(k,1208) - lu(k,596) * lu(k,1185) - lu(k,1209) = lu(k,1209) - lu(k,597) * lu(k,1185) - lu(k,1215) = lu(k,1215) - lu(k,598) * lu(k,1185) - lu(k,1216) = lu(k,1216) - lu(k,599) * lu(k,1185) - lu(k,1217) = lu(k,1217) - lu(k,600) * lu(k,1185) - lu(k,1235) = lu(k,1235) - lu(k,585) * lu(k,1234) - lu(k,1236) = lu(k,1236) - lu(k,586) * lu(k,1234) - lu(k,1240) = lu(k,1240) - lu(k,587) * lu(k,1234) - lu(k,1241) = lu(k,1241) - lu(k,588) * lu(k,1234) - lu(k,1246) = lu(k,1246) - lu(k,589) * lu(k,1234) - lu(k,1249) = - lu(k,590) * lu(k,1234) - lu(k,1250) = - lu(k,591) * lu(k,1234) - lu(k,1251) = lu(k,1251) - lu(k,592) * lu(k,1234) - lu(k,1252) = lu(k,1252) - lu(k,593) * lu(k,1234) - lu(k,1253) = - lu(k,594) * lu(k,1234) - lu(k,1256) = lu(k,1256) - lu(k,595) * lu(k,1234) - lu(k,1257) = lu(k,1257) - lu(k,596) * lu(k,1234) - lu(k,1258) = lu(k,1258) - lu(k,597) * lu(k,1234) - lu(k,1264) = lu(k,1264) - lu(k,598) * lu(k,1234) - lu(k,1265) = lu(k,1265) - lu(k,599) * lu(k,1234) - lu(k,1266) = lu(k,1266) - lu(k,600) * lu(k,1234) - lu(k,1412) = lu(k,1412) - lu(k,585) * lu(k,1411) - lu(k,1413) = lu(k,1413) - lu(k,586) * lu(k,1411) - lu(k,1417) = lu(k,1417) - lu(k,587) * lu(k,1411) - lu(k,1418) = lu(k,1418) - lu(k,588) * lu(k,1411) - lu(k,1423) = lu(k,1423) - lu(k,589) * lu(k,1411) - lu(k,1426) = lu(k,1426) - lu(k,590) * lu(k,1411) - lu(k,1427) = lu(k,1427) - lu(k,591) * lu(k,1411) - lu(k,1428) = lu(k,1428) - lu(k,592) * lu(k,1411) - lu(k,1429) = lu(k,1429) - lu(k,593) * lu(k,1411) - lu(k,1430) = lu(k,1430) - lu(k,594) * lu(k,1411) - lu(k,1433) = lu(k,1433) - lu(k,595) * lu(k,1411) - lu(k,1434) = lu(k,1434) - lu(k,596) * lu(k,1411) - lu(k,1435) = lu(k,1435) - lu(k,597) * lu(k,1411) - lu(k,1441) = lu(k,1441) - lu(k,598) * lu(k,1411) - lu(k,1442) = lu(k,1442) - lu(k,599) * lu(k,1411) - lu(k,1443) = lu(k,1443) - lu(k,600) * lu(k,1411) - lu(k,1454) = lu(k,1454) - lu(k,585) * lu(k,1453) - lu(k,1455) = lu(k,1455) - lu(k,586) * lu(k,1453) - lu(k,1459) = lu(k,1459) - lu(k,587) * lu(k,1453) - lu(k,1460) = lu(k,1460) - lu(k,588) * lu(k,1453) - lu(k,1465) = lu(k,1465) - lu(k,589) * lu(k,1453) - lu(k,1468) = lu(k,1468) - lu(k,590) * lu(k,1453) - lu(k,1469) = lu(k,1469) - lu(k,591) * lu(k,1453) - lu(k,1470) = lu(k,1470) - lu(k,592) * lu(k,1453) - lu(k,1471) = lu(k,1471) - lu(k,593) * lu(k,1453) - lu(k,1472) = lu(k,1472) - lu(k,594) * lu(k,1453) - lu(k,1475) = lu(k,1475) - lu(k,595) * lu(k,1453) - lu(k,1476) = lu(k,1476) - lu(k,596) * lu(k,1453) - lu(k,1477) = lu(k,1477) - lu(k,597) * lu(k,1453) - lu(k,1483) = lu(k,1483) - lu(k,598) * lu(k,1453) - lu(k,1484) = lu(k,1484) - lu(k,599) * lu(k,1453) - lu(k,1485) = lu(k,1485) - lu(k,600) * lu(k,1453) - lu(k,1496) = lu(k,1496) - lu(k,585) * lu(k,1495) - lu(k,1497) = lu(k,1497) - lu(k,586) * lu(k,1495) - lu(k,1500) = lu(k,1500) - lu(k,587) * lu(k,1495) - lu(k,1501) = lu(k,1501) - lu(k,588) * lu(k,1495) - lu(k,1506) = lu(k,1506) - lu(k,589) * lu(k,1495) - lu(k,1509) = lu(k,1509) - lu(k,590) * lu(k,1495) - lu(k,1510) = - lu(k,591) * lu(k,1495) - lu(k,1511) = lu(k,1511) - lu(k,592) * lu(k,1495) - lu(k,1512) = lu(k,1512) - lu(k,593) * lu(k,1495) - lu(k,1513) = lu(k,1513) - lu(k,594) * lu(k,1495) - lu(k,1516) = lu(k,1516) - lu(k,595) * lu(k,1495) - lu(k,1517) = lu(k,1517) - lu(k,596) * lu(k,1495) - lu(k,1518) = lu(k,1518) - lu(k,597) * lu(k,1495) - lu(k,1524) = lu(k,1524) - lu(k,598) * lu(k,1495) - lu(k,1525) = lu(k,1525) - lu(k,599) * lu(k,1495) - lu(k,1526) = lu(k,1526) - lu(k,600) * lu(k,1495) - lu(k,1732) = lu(k,1732) - lu(k,585) * lu(k,1731) - lu(k,1733) = lu(k,1733) - lu(k,586) * lu(k,1731) - lu(k,1737) = lu(k,1737) - lu(k,587) * lu(k,1731) - lu(k,1738) = lu(k,1738) - lu(k,588) * lu(k,1731) - lu(k,1743) = lu(k,1743) - lu(k,589) * lu(k,1731) - lu(k,1746) = lu(k,1746) - lu(k,590) * lu(k,1731) - lu(k,1747) = lu(k,1747) - lu(k,591) * lu(k,1731) - lu(k,1748) = lu(k,1748) - lu(k,592) * lu(k,1731) - lu(k,1749) = lu(k,1749) - lu(k,593) * lu(k,1731) - lu(k,1750) = lu(k,1750) - lu(k,594) * lu(k,1731) - lu(k,1753) = lu(k,1753) - lu(k,595) * lu(k,1731) - lu(k,1754) = lu(k,1754) - lu(k,596) * lu(k,1731) - lu(k,1755) = lu(k,1755) - lu(k,597) * lu(k,1731) - lu(k,1761) = lu(k,1761) - lu(k,598) * lu(k,1731) - lu(k,1762) = lu(k,1762) - lu(k,599) * lu(k,1731) - lu(k,1763) = lu(k,1763) - lu(k,600) * lu(k,1731) - lu(k,1826) = lu(k,1826) - lu(k,585) * lu(k,1825) - lu(k,1827) = lu(k,1827) - lu(k,586) * lu(k,1825) - lu(k,1830) = lu(k,1830) - lu(k,587) * lu(k,1825) - lu(k,1831) = lu(k,1831) - lu(k,588) * lu(k,1825) - lu(k,1836) = lu(k,1836) - lu(k,589) * lu(k,1825) - lu(k,1839) = lu(k,1839) - lu(k,590) * lu(k,1825) - lu(k,1840) = lu(k,1840) - lu(k,591) * lu(k,1825) - lu(k,1841) = lu(k,1841) - lu(k,592) * lu(k,1825) - lu(k,1842) = lu(k,1842) - lu(k,593) * lu(k,1825) - lu(k,1843) = lu(k,1843) - lu(k,594) * lu(k,1825) - lu(k,1846) = lu(k,1846) - lu(k,595) * lu(k,1825) - lu(k,1847) = lu(k,1847) - lu(k,596) * lu(k,1825) - lu(k,1848) = lu(k,1848) - lu(k,597) * lu(k,1825) - lu(k,1854) = lu(k,1854) - lu(k,598) * lu(k,1825) - lu(k,1855) = lu(k,1855) - lu(k,599) * lu(k,1825) - lu(k,1856) = lu(k,1856) - lu(k,600) * lu(k,1825) - 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,615) = lu(k,615) * lu(k,606) - lu(k,616) = lu(k,616) * lu(k,606) - lu(k,617) = lu(k,617) * lu(k,606) - lu(k,618) = lu(k,618) * lu(k,606) - lu(k,619) = lu(k,619) * lu(k,606) - lu(k,620) = lu(k,620) * lu(k,606) - lu(k,621) = lu(k,621) * lu(k,606) - lu(k,622) = lu(k,622) * lu(k,606) - lu(k,623) = lu(k,623) * lu(k,606) - lu(k,624) = lu(k,624) * lu(k,606) - lu(k,637) = lu(k,637) - lu(k,607) * lu(k,636) - lu(k,638) = lu(k,638) - lu(k,608) * lu(k,636) - lu(k,639) = lu(k,639) - lu(k,609) * lu(k,636) - lu(k,640) = lu(k,640) - lu(k,610) * lu(k,636) - lu(k,642) = lu(k,642) - lu(k,611) * lu(k,636) - lu(k,643) = lu(k,643) - lu(k,612) * lu(k,636) - lu(k,644) = lu(k,644) - lu(k,613) * lu(k,636) - lu(k,645) = lu(k,645) - lu(k,614) * lu(k,636) - lu(k,646) = lu(k,646) - lu(k,615) * lu(k,636) - lu(k,649) = lu(k,649) - lu(k,616) * lu(k,636) - lu(k,650) = lu(k,650) - lu(k,617) * lu(k,636) - lu(k,651) = lu(k,651) - lu(k,618) * lu(k,636) - lu(k,652) = lu(k,652) - lu(k,619) * lu(k,636) - lu(k,653) = lu(k,653) - lu(k,620) * lu(k,636) - lu(k,654) = lu(k,654) - lu(k,621) * lu(k,636) - lu(k,655) = lu(k,655) - lu(k,622) * lu(k,636) - lu(k,656) = lu(k,656) - lu(k,623) * lu(k,636) - lu(k,657) = lu(k,657) - lu(k,624) * lu(k,636) - lu(k,746) = lu(k,746) - lu(k,607) * lu(k,745) - lu(k,747) = lu(k,747) - lu(k,608) * lu(k,745) - lu(k,748) = lu(k,748) - lu(k,609) * lu(k,745) - lu(k,749) = lu(k,749) - lu(k,610) * lu(k,745) - lu(k,752) = lu(k,752) - lu(k,611) * lu(k,745) - lu(k,753) = lu(k,753) - lu(k,612) * lu(k,745) - lu(k,754) = lu(k,754) - lu(k,613) * lu(k,745) - lu(k,755) = lu(k,755) - lu(k,614) * lu(k,745) - lu(k,756) = lu(k,756) - lu(k,615) * lu(k,745) - lu(k,759) = lu(k,759) - lu(k,616) * lu(k,745) - lu(k,760) = lu(k,760) - lu(k,617) * lu(k,745) - lu(k,761) = lu(k,761) - lu(k,618) * lu(k,745) - lu(k,762) = lu(k,762) - lu(k,619) * lu(k,745) - lu(k,763) = lu(k,763) - lu(k,620) * lu(k,745) - lu(k,764) = lu(k,764) - lu(k,621) * lu(k,745) - lu(k,765) = lu(k,765) - lu(k,622) * lu(k,745) - lu(k,766) = lu(k,766) - lu(k,623) * lu(k,745) - lu(k,767) = lu(k,767) - lu(k,624) * lu(k,745) - lu(k,792) = lu(k,792) - lu(k,607) * lu(k,791) - lu(k,793) = lu(k,793) - lu(k,608) * lu(k,791) - lu(k,794) = lu(k,794) - lu(k,609) * lu(k,791) - lu(k,796) = lu(k,796) - lu(k,610) * lu(k,791) - lu(k,799) = lu(k,799) - lu(k,611) * lu(k,791) - lu(k,800) = lu(k,800) - lu(k,612) * lu(k,791) - lu(k,801) = lu(k,801) - lu(k,613) * lu(k,791) - lu(k,802) = lu(k,802) - lu(k,614) * lu(k,791) - lu(k,803) = lu(k,803) - lu(k,615) * lu(k,791) - lu(k,806) = lu(k,806) - lu(k,616) * lu(k,791) - lu(k,807) = lu(k,807) - lu(k,617) * lu(k,791) - lu(k,808) = lu(k,808) - lu(k,618) * lu(k,791) - lu(k,809) = lu(k,809) - lu(k,619) * lu(k,791) - lu(k,810) = lu(k,810) - lu(k,620) * lu(k,791) - lu(k,811) = lu(k,811) - lu(k,621) * lu(k,791) - lu(k,812) = lu(k,812) - lu(k,622) * lu(k,791) - lu(k,813) = lu(k,813) - lu(k,623) * lu(k,791) - lu(k,814) = lu(k,814) - lu(k,624) * lu(k,791) - lu(k,981) = lu(k,981) - lu(k,607) * lu(k,980) - lu(k,984) = lu(k,984) - lu(k,608) * lu(k,980) - lu(k,985) = lu(k,985) - lu(k,609) * lu(k,980) - lu(k,990) = lu(k,990) - lu(k,610) * lu(k,980) - lu(k,993) = lu(k,993) - lu(k,611) * lu(k,980) - lu(k,994) = lu(k,994) - lu(k,612) * lu(k,980) - lu(k,995) = lu(k,995) - lu(k,613) * lu(k,980) - lu(k,996) = lu(k,996) - lu(k,614) * lu(k,980) - lu(k,997) = lu(k,997) - lu(k,615) * lu(k,980) - lu(k,1000) = lu(k,1000) - lu(k,616) * lu(k,980) - lu(k,1001) = lu(k,1001) - lu(k,617) * lu(k,980) - lu(k,1002) = lu(k,1002) - lu(k,618) * lu(k,980) - lu(k,1003) = lu(k,1003) - lu(k,619) * lu(k,980) - lu(k,1005) = lu(k,1005) - lu(k,620) * lu(k,980) - lu(k,1006) = lu(k,1006) - lu(k,621) * lu(k,980) - lu(k,1008) = lu(k,1008) - lu(k,622) * lu(k,980) - lu(k,1009) = lu(k,1009) - lu(k,623) * lu(k,980) - lu(k,1010) = lu(k,1010) - lu(k,624) * lu(k,980) - lu(k,1105) = lu(k,1105) - lu(k,607) * lu(k,1104) - lu(k,1107) = lu(k,1107) - lu(k,608) * lu(k,1104) - lu(k,1108) = lu(k,1108) - lu(k,609) * lu(k,1104) - lu(k,1112) = lu(k,1112) - lu(k,610) * lu(k,1104) - lu(k,1115) = lu(k,1115) - lu(k,611) * lu(k,1104) - lu(k,1116) = lu(k,1116) - lu(k,612) * lu(k,1104) - lu(k,1117) = lu(k,1117) - lu(k,613) * lu(k,1104) - lu(k,1118) = lu(k,1118) - lu(k,614) * lu(k,1104) - lu(k,1119) = lu(k,1119) - lu(k,615) * lu(k,1104) - lu(k,1122) = lu(k,1122) - lu(k,616) * lu(k,1104) - lu(k,1123) = lu(k,1123) - lu(k,617) * lu(k,1104) - lu(k,1124) = lu(k,1124) - lu(k,618) * lu(k,1104) - lu(k,1125) = - lu(k,619) * lu(k,1104) - lu(k,1127) = - lu(k,620) * lu(k,1104) - lu(k,1128) = - lu(k,621) * lu(k,1104) - lu(k,1130) = lu(k,1130) - lu(k,622) * lu(k,1104) - lu(k,1131) = lu(k,1131) - lu(k,623) * lu(k,1104) - lu(k,1132) = lu(k,1132) - lu(k,624) * lu(k,1104) - lu(k,1146) = lu(k,1146) - lu(k,607) * lu(k,1145) - lu(k,1150) = lu(k,1150) - lu(k,608) * lu(k,1145) - lu(k,1151) = lu(k,1151) - lu(k,609) * lu(k,1145) - lu(k,1156) = lu(k,1156) - lu(k,610) * lu(k,1145) - lu(k,1159) = lu(k,1159) - lu(k,611) * lu(k,1145) - lu(k,1160) = lu(k,1160) - lu(k,612) * lu(k,1145) - lu(k,1161) = lu(k,1161) - lu(k,613) * lu(k,1145) - lu(k,1162) = lu(k,1162) - lu(k,614) * lu(k,1145) - lu(k,1163) = lu(k,1163) - lu(k,615) * lu(k,1145) - lu(k,1166) = lu(k,1166) - lu(k,616) * lu(k,1145) - lu(k,1167) = lu(k,1167) - lu(k,617) * lu(k,1145) - lu(k,1168) = lu(k,1168) - lu(k,618) * lu(k,1145) - lu(k,1169) = - lu(k,619) * lu(k,1145) - lu(k,1171) = lu(k,1171) - lu(k,620) * lu(k,1145) - lu(k,1172) = lu(k,1172) - lu(k,621) * lu(k,1145) - lu(k,1174) = lu(k,1174) - lu(k,622) * lu(k,1145) - lu(k,1175) = lu(k,1175) - lu(k,623) * lu(k,1145) - lu(k,1176) = lu(k,1176) - lu(k,624) * lu(k,1145) - lu(k,1187) = lu(k,1187) - lu(k,607) * lu(k,1186) - lu(k,1191) = lu(k,1191) - lu(k,608) * lu(k,1186) - lu(k,1192) = lu(k,1192) - lu(k,609) * lu(k,1186) - lu(k,1197) = lu(k,1197) - lu(k,610) * lu(k,1186) - lu(k,1200) = lu(k,1200) - lu(k,611) * lu(k,1186) - lu(k,1201) = lu(k,1201) - lu(k,612) * lu(k,1186) - lu(k,1202) = lu(k,1202) - lu(k,613) * lu(k,1186) - lu(k,1203) = lu(k,1203) - lu(k,614) * lu(k,1186) - lu(k,1204) = lu(k,1204) - lu(k,615) * lu(k,1186) - lu(k,1207) = lu(k,1207) - lu(k,616) * lu(k,1186) - lu(k,1208) = lu(k,1208) - lu(k,617) * lu(k,1186) - lu(k,1209) = lu(k,1209) - lu(k,618) * lu(k,1186) - lu(k,1210) = lu(k,1210) - lu(k,619) * lu(k,1186) - lu(k,1212) = lu(k,1212) - lu(k,620) * lu(k,1186) - lu(k,1213) = lu(k,1213) - lu(k,621) * lu(k,1186) - lu(k,1215) = lu(k,1215) - lu(k,622) * lu(k,1186) - lu(k,1216) = lu(k,1216) - lu(k,623) * lu(k,1186) - lu(k,1217) = lu(k,1217) - lu(k,624) * lu(k,1186) - lu(k,1236) = lu(k,1236) - lu(k,607) * lu(k,1235) - lu(k,1240) = lu(k,1240) - lu(k,608) * lu(k,1235) - lu(k,1241) = lu(k,1241) - lu(k,609) * lu(k,1235) - lu(k,1246) = lu(k,1246) - lu(k,610) * lu(k,1235) - lu(k,1249) = lu(k,1249) - lu(k,611) * lu(k,1235) - lu(k,1250) = lu(k,1250) - lu(k,612) * lu(k,1235) - lu(k,1251) = lu(k,1251) - lu(k,613) * lu(k,1235) - lu(k,1252) = lu(k,1252) - lu(k,614) * lu(k,1235) - lu(k,1253) = lu(k,1253) - lu(k,615) * lu(k,1235) - lu(k,1256) = lu(k,1256) - lu(k,616) * lu(k,1235) - lu(k,1257) = lu(k,1257) - lu(k,617) * lu(k,1235) - lu(k,1258) = lu(k,1258) - lu(k,618) * lu(k,1235) - lu(k,1259) = lu(k,1259) - lu(k,619) * lu(k,1235) - lu(k,1261) = lu(k,1261) - lu(k,620) * lu(k,1235) - lu(k,1262) = lu(k,1262) - lu(k,621) * lu(k,1235) - lu(k,1264) = lu(k,1264) - lu(k,622) * lu(k,1235) - lu(k,1265) = lu(k,1265) - lu(k,623) * lu(k,1235) - lu(k,1266) = lu(k,1266) - lu(k,624) * lu(k,1235) - lu(k,1276) = lu(k,1276) - lu(k,607) * lu(k,1275) - lu(k,1279) = lu(k,1279) - lu(k,608) * lu(k,1275) - lu(k,1280) = lu(k,1280) - lu(k,609) * lu(k,1275) - lu(k,1285) = lu(k,1285) - lu(k,610) * lu(k,1275) - lu(k,1288) = lu(k,1288) - lu(k,611) * lu(k,1275) - lu(k,1289) = lu(k,1289) - lu(k,612) * lu(k,1275) - lu(k,1290) = - lu(k,613) * lu(k,1275) - lu(k,1291) = lu(k,1291) - lu(k,614) * lu(k,1275) - lu(k,1292) = lu(k,1292) - lu(k,615) * lu(k,1275) - lu(k,1295) = lu(k,1295) - lu(k,616) * lu(k,1275) - lu(k,1296) = lu(k,1296) - lu(k,617) * lu(k,1275) - lu(k,1297) = lu(k,1297) - lu(k,618) * lu(k,1275) - lu(k,1298) = lu(k,1298) - lu(k,619) * lu(k,1275) - lu(k,1300) = lu(k,1300) - lu(k,620) * lu(k,1275) - lu(k,1301) = lu(k,1301) - lu(k,621) * lu(k,1275) - lu(k,1303) = lu(k,1303) - lu(k,622) * lu(k,1275) - lu(k,1304) = lu(k,1304) - lu(k,623) * lu(k,1275) - lu(k,1305) = lu(k,1305) - lu(k,624) * lu(k,1275) - lu(k,1413) = lu(k,1413) - lu(k,607) * lu(k,1412) - lu(k,1417) = lu(k,1417) - lu(k,608) * lu(k,1412) - lu(k,1418) = lu(k,1418) - lu(k,609) * lu(k,1412) - lu(k,1423) = lu(k,1423) - lu(k,610) * lu(k,1412) - lu(k,1426) = lu(k,1426) - lu(k,611) * lu(k,1412) - lu(k,1427) = lu(k,1427) - lu(k,612) * lu(k,1412) - lu(k,1428) = lu(k,1428) - lu(k,613) * lu(k,1412) - lu(k,1429) = lu(k,1429) - lu(k,614) * lu(k,1412) - lu(k,1430) = lu(k,1430) - lu(k,615) * lu(k,1412) - lu(k,1433) = lu(k,1433) - lu(k,616) * lu(k,1412) - lu(k,1434) = lu(k,1434) - lu(k,617) * lu(k,1412) - lu(k,1435) = lu(k,1435) - lu(k,618) * lu(k,1412) - lu(k,1436) = lu(k,1436) - lu(k,619) * lu(k,1412) - lu(k,1438) = lu(k,1438) - lu(k,620) * lu(k,1412) - lu(k,1439) = lu(k,1439) - lu(k,621) * lu(k,1412) - lu(k,1441) = lu(k,1441) - lu(k,622) * lu(k,1412) - lu(k,1442) = lu(k,1442) - lu(k,623) * lu(k,1412) - lu(k,1443) = lu(k,1443) - lu(k,624) * lu(k,1412) - lu(k,1455) = lu(k,1455) - lu(k,607) * lu(k,1454) - lu(k,1459) = lu(k,1459) - lu(k,608) * lu(k,1454) - lu(k,1460) = lu(k,1460) - lu(k,609) * lu(k,1454) - lu(k,1465) = lu(k,1465) - lu(k,610) * lu(k,1454) - lu(k,1468) = lu(k,1468) - lu(k,611) * lu(k,1454) - lu(k,1469) = lu(k,1469) - lu(k,612) * lu(k,1454) - lu(k,1470) = lu(k,1470) - lu(k,613) * lu(k,1454) - lu(k,1471) = lu(k,1471) - lu(k,614) * lu(k,1454) - lu(k,1472) = lu(k,1472) - lu(k,615) * lu(k,1454) - lu(k,1475) = lu(k,1475) - lu(k,616) * lu(k,1454) - lu(k,1476) = lu(k,1476) - lu(k,617) * lu(k,1454) - lu(k,1477) = lu(k,1477) - lu(k,618) * lu(k,1454) - lu(k,1478) = lu(k,1478) - lu(k,619) * lu(k,1454) - lu(k,1480) = lu(k,1480) - lu(k,620) * lu(k,1454) - lu(k,1481) = lu(k,1481) - lu(k,621) * lu(k,1454) - lu(k,1483) = lu(k,1483) - lu(k,622) * lu(k,1454) - lu(k,1484) = lu(k,1484) - lu(k,623) * lu(k,1454) - lu(k,1485) = lu(k,1485) - lu(k,624) * lu(k,1454) - lu(k,1497) = lu(k,1497) - lu(k,607) * lu(k,1496) - lu(k,1500) = lu(k,1500) - lu(k,608) * lu(k,1496) - lu(k,1501) = lu(k,1501) - lu(k,609) * lu(k,1496) - lu(k,1506) = lu(k,1506) - lu(k,610) * lu(k,1496) - lu(k,1509) = lu(k,1509) - lu(k,611) * lu(k,1496) - lu(k,1510) = lu(k,1510) - lu(k,612) * lu(k,1496) - lu(k,1511) = lu(k,1511) - lu(k,613) * lu(k,1496) - lu(k,1512) = lu(k,1512) - lu(k,614) * lu(k,1496) - lu(k,1513) = lu(k,1513) - lu(k,615) * lu(k,1496) - lu(k,1516) = lu(k,1516) - lu(k,616) * lu(k,1496) - lu(k,1517) = lu(k,1517) - lu(k,617) * lu(k,1496) - lu(k,1518) = lu(k,1518) - lu(k,618) * lu(k,1496) - lu(k,1519) = lu(k,1519) - lu(k,619) * lu(k,1496) - lu(k,1521) = lu(k,1521) - lu(k,620) * lu(k,1496) - lu(k,1522) = lu(k,1522) - lu(k,621) * lu(k,1496) - lu(k,1524) = lu(k,1524) - lu(k,622) * lu(k,1496) - lu(k,1525) = lu(k,1525) - lu(k,623) * lu(k,1496) - lu(k,1526) = lu(k,1526) - lu(k,624) * lu(k,1496) - lu(k,1648) = lu(k,1648) - lu(k,607) * lu(k,1647) - lu(k,1651) = lu(k,1651) - lu(k,608) * lu(k,1647) - lu(k,1652) = lu(k,1652) - lu(k,609) * lu(k,1647) - lu(k,1657) = lu(k,1657) - lu(k,610) * lu(k,1647) - lu(k,1660) = lu(k,1660) - lu(k,611) * lu(k,1647) - lu(k,1661) = lu(k,1661) - lu(k,612) * lu(k,1647) - lu(k,1662) = lu(k,1662) - lu(k,613) * lu(k,1647) - lu(k,1663) = lu(k,1663) - lu(k,614) * lu(k,1647) - lu(k,1664) = lu(k,1664) - lu(k,615) * lu(k,1647) - lu(k,1667) = lu(k,1667) - lu(k,616) * lu(k,1647) - lu(k,1668) = lu(k,1668) - lu(k,617) * lu(k,1647) - lu(k,1669) = lu(k,1669) - lu(k,618) * lu(k,1647) - lu(k,1670) = lu(k,1670) - lu(k,619) * lu(k,1647) - lu(k,1672) = lu(k,1672) - lu(k,620) * lu(k,1647) - lu(k,1673) = lu(k,1673) - lu(k,621) * lu(k,1647) - lu(k,1675) = lu(k,1675) - lu(k,622) * lu(k,1647) - lu(k,1676) = lu(k,1676) - lu(k,623) * lu(k,1647) - lu(k,1677) = lu(k,1677) - lu(k,624) * lu(k,1647) - lu(k,1733) = lu(k,1733) - lu(k,607) * lu(k,1732) - lu(k,1737) = lu(k,1737) - lu(k,608) * lu(k,1732) - lu(k,1738) = lu(k,1738) - lu(k,609) * lu(k,1732) - lu(k,1743) = lu(k,1743) - lu(k,610) * lu(k,1732) - lu(k,1746) = lu(k,1746) - lu(k,611) * lu(k,1732) - lu(k,1747) = lu(k,1747) - lu(k,612) * lu(k,1732) - lu(k,1748) = lu(k,1748) - lu(k,613) * lu(k,1732) - lu(k,1749) = lu(k,1749) - lu(k,614) * lu(k,1732) - lu(k,1750) = lu(k,1750) - lu(k,615) * lu(k,1732) - lu(k,1753) = lu(k,1753) - lu(k,616) * lu(k,1732) - lu(k,1754) = lu(k,1754) - lu(k,617) * lu(k,1732) - lu(k,1755) = lu(k,1755) - lu(k,618) * lu(k,1732) - lu(k,1756) = - lu(k,619) * lu(k,1732) - lu(k,1758) = lu(k,1758) - lu(k,620) * lu(k,1732) - lu(k,1759) = lu(k,1759) - lu(k,621) * lu(k,1732) - lu(k,1761) = lu(k,1761) - lu(k,622) * lu(k,1732) - lu(k,1762) = lu(k,1762) - lu(k,623) * lu(k,1732) - lu(k,1763) = lu(k,1763) - lu(k,624) * lu(k,1732) - lu(k,1768) = lu(k,1768) - lu(k,607) * lu(k,1767) - lu(k,1772) = lu(k,1772) - lu(k,608) * lu(k,1767) - lu(k,1773) = lu(k,1773) - lu(k,609) * lu(k,1767) - lu(k,1778) = lu(k,1778) - lu(k,610) * lu(k,1767) - lu(k,1781) = lu(k,1781) - lu(k,611) * lu(k,1767) - lu(k,1782) = lu(k,1782) - lu(k,612) * lu(k,1767) - lu(k,1783) = lu(k,1783) - lu(k,613) * lu(k,1767) - lu(k,1784) = lu(k,1784) - lu(k,614) * lu(k,1767) - lu(k,1785) = lu(k,1785) - lu(k,615) * lu(k,1767) - lu(k,1788) = lu(k,1788) - lu(k,616) * lu(k,1767) - lu(k,1789) = lu(k,1789) - lu(k,617) * lu(k,1767) - lu(k,1790) = lu(k,1790) - lu(k,618) * lu(k,1767) - lu(k,1791) = lu(k,1791) - lu(k,619) * lu(k,1767) - lu(k,1793) = lu(k,1793) - lu(k,620) * lu(k,1767) - lu(k,1794) = lu(k,1794) - lu(k,621) * lu(k,1767) - lu(k,1796) = lu(k,1796) - lu(k,622) * lu(k,1767) - lu(k,1797) = lu(k,1797) - lu(k,623) * lu(k,1767) - lu(k,1798) = lu(k,1798) - lu(k,624) * lu(k,1767) - lu(k,1827) = lu(k,1827) - lu(k,607) * lu(k,1826) - lu(k,1830) = lu(k,1830) - lu(k,608) * lu(k,1826) - lu(k,1831) = lu(k,1831) - lu(k,609) * lu(k,1826) - lu(k,1836) = lu(k,1836) - lu(k,610) * lu(k,1826) - lu(k,1839) = lu(k,1839) - lu(k,611) * lu(k,1826) - lu(k,1840) = lu(k,1840) - lu(k,612) * lu(k,1826) - lu(k,1841) = lu(k,1841) - lu(k,613) * lu(k,1826) - lu(k,1842) = lu(k,1842) - lu(k,614) * lu(k,1826) - lu(k,1843) = lu(k,1843) - lu(k,615) * lu(k,1826) - lu(k,1846) = lu(k,1846) - lu(k,616) * lu(k,1826) - lu(k,1847) = lu(k,1847) - lu(k,617) * lu(k,1826) - lu(k,1848) = lu(k,1848) - lu(k,618) * lu(k,1826) - lu(k,1849) = lu(k,1849) - lu(k,619) * lu(k,1826) - lu(k,1851) = lu(k,1851) - lu(k,620) * lu(k,1826) - lu(k,1852) = lu(k,1852) - lu(k,621) * lu(k,1826) - lu(k,1854) = lu(k,1854) - lu(k,622) * lu(k,1826) - lu(k,1855) = lu(k,1855) - lu(k,623) * lu(k,1826) - lu(k,1856) = lu(k,1856) - lu(k,624) * lu(k,1826) - end do + real(r8), intent(inout) :: lu(:) + lu(560) = 1._r8 / lu(560) + lu(561) = lu(561) * lu(560) + lu(562) = lu(562) * lu(560) + lu(563) = lu(563) * lu(560) + lu(564) = lu(564) * lu(560) + lu(565) = lu(565) * lu(560) + lu(566) = lu(566) * lu(560) + lu(567) = lu(567) * lu(560) + lu(568) = lu(568) * lu(560) + lu(569) = lu(569) * lu(560) + lu(570) = lu(570) * lu(560) + lu(571) = lu(571) * lu(560) + lu(572) = lu(572) * lu(560) + lu(573) = lu(573) * lu(560) + lu(574) = lu(574) * lu(560) + lu(575) = lu(575) * lu(560) + lu(576) = lu(576) * lu(560) + lu(713) = lu(713) - lu(561) * lu(711) + lu(715) = lu(715) - lu(562) * lu(711) + lu(716) = lu(716) - lu(563) * lu(711) + lu(717) = lu(717) - lu(564) * lu(711) + lu(718) = lu(718) - lu(565) * lu(711) + lu(719) = - lu(566) * lu(711) + lu(720) = lu(720) - lu(567) * lu(711) + lu(721) = lu(721) - lu(568) * lu(711) + lu(722) = lu(722) - lu(569) * lu(711) + lu(725) = lu(725) - lu(570) * lu(711) + lu(727) = lu(727) - lu(571) * lu(711) + lu(728) = lu(728) - lu(572) * lu(711) + lu(729) = lu(729) - lu(573) * lu(711) + lu(730) = lu(730) - lu(574) * lu(711) + lu(732) = lu(732) - lu(575) * lu(711) + lu(733) = lu(733) - lu(576) * lu(711) + lu(820) = lu(820) - lu(561) * lu(818) + lu(824) = lu(824) - lu(562) * lu(818) + lu(825) = lu(825) - lu(563) * lu(818) + lu(826) = lu(826) - lu(564) * lu(818) + lu(827) = lu(827) - lu(565) * lu(818) + lu(828) = lu(828) - lu(566) * lu(818) + lu(829) = lu(829) - lu(567) * lu(818) + lu(830) = lu(830) - lu(568) * lu(818) + lu(831) = lu(831) - lu(569) * lu(818) + lu(835) = lu(835) - lu(570) * lu(818) + lu(837) = lu(837) - lu(571) * lu(818) + lu(839) = lu(839) - lu(572) * lu(818) + lu(840) = lu(840) - lu(573) * lu(818) + lu(843) = lu(843) - lu(574) * lu(818) + lu(845) = - lu(575) * lu(818) + lu(846) = lu(846) - lu(576) * lu(818) + lu(903) = lu(903) - lu(561) * lu(900) + lu(908) = lu(908) - lu(562) * lu(900) + lu(909) = lu(909) - lu(563) * lu(900) + lu(910) = lu(910) - lu(564) * lu(900) + lu(911) = lu(911) - lu(565) * lu(900) + lu(912) = lu(912) - lu(566) * lu(900) + lu(913) = lu(913) - lu(567) * lu(900) + lu(914) = lu(914) - lu(568) * lu(900) + lu(915) = lu(915) - lu(569) * lu(900) + lu(919) = lu(919) - lu(570) * lu(900) + lu(921) = lu(921) - lu(571) * lu(900) + lu(923) = lu(923) - lu(572) * lu(900) + lu(924) = lu(924) - lu(573) * lu(900) + lu(927) = lu(927) - lu(574) * lu(900) + lu(929) = lu(929) - lu(575) * lu(900) + lu(930) = lu(930) - lu(576) * lu(900) + lu(950) = lu(950) - lu(561) * lu(946) + lu(955) = lu(955) - lu(562) * lu(946) + lu(956) = lu(956) - lu(563) * lu(946) + lu(957) = lu(957) - lu(564) * lu(946) + lu(958) = lu(958) - lu(565) * lu(946) + lu(959) = lu(959) - lu(566) * lu(946) + lu(960) = lu(960) - lu(567) * lu(946) + lu(961) = lu(961) - lu(568) * lu(946) + lu(962) = lu(962) - lu(569) * lu(946) + lu(966) = lu(966) - lu(570) * lu(946) + lu(968) = lu(968) - lu(571) * lu(946) + lu(970) = lu(970) - lu(572) * lu(946) + lu(971) = lu(971) - lu(573) * lu(946) + lu(974) = lu(974) - lu(574) * lu(946) + lu(976) = lu(976) - lu(575) * lu(946) + lu(977) = lu(977) - lu(576) * lu(946) + lu(992) = lu(992) - lu(561) * lu(989) + lu(997) = lu(997) - lu(562) * lu(989) + lu(998) = lu(998) - lu(563) * lu(989) + lu(999) = lu(999) - lu(564) * lu(989) + lu(1000) = lu(1000) - lu(565) * lu(989) + lu(1001) = lu(1001) - lu(566) * lu(989) + lu(1002) = lu(1002) - lu(567) * lu(989) + lu(1003) = lu(1003) - lu(568) * lu(989) + lu(1004) = lu(1004) - lu(569) * lu(989) + lu(1008) = lu(1008) - lu(570) * lu(989) + lu(1010) = lu(1010) - lu(571) * lu(989) + lu(1012) = lu(1012) - lu(572) * lu(989) + lu(1013) = lu(1013) - lu(573) * lu(989) + lu(1016) = lu(1016) - lu(574) * lu(989) + lu(1018) = lu(1018) - lu(575) * lu(989) + lu(1019) = lu(1019) - lu(576) * lu(989) + lu(1087) = lu(1087) - lu(561) * lu(1082) + lu(1092) = lu(1092) - lu(562) * lu(1082) + lu(1093) = lu(1093) - lu(563) * lu(1082) + lu(1094) = lu(1094) - lu(564) * lu(1082) + lu(1095) = lu(1095) - lu(565) * lu(1082) + lu(1096) = lu(1096) - lu(566) * lu(1082) + lu(1097) = lu(1097) - lu(567) * lu(1082) + lu(1098) = lu(1098) - lu(568) * lu(1082) + lu(1099) = lu(1099) - lu(569) * lu(1082) + lu(1103) = lu(1103) - lu(570) * lu(1082) + lu(1105) = lu(1105) - lu(571) * lu(1082) + lu(1107) = lu(1107) - lu(572) * lu(1082) + lu(1108) = lu(1108) - lu(573) * lu(1082) + lu(1111) = lu(1111) - lu(574) * lu(1082) + lu(1113) = lu(1113) - lu(575) * lu(1082) + lu(1114) = lu(1114) - lu(576) * lu(1082) + lu(1128) = lu(1128) - lu(561) * lu(1125) + lu(1133) = lu(1133) - lu(562) * lu(1125) + lu(1134) = lu(1134) - lu(563) * lu(1125) + lu(1135) = lu(1135) - lu(564) * lu(1125) + lu(1136) = lu(1136) - lu(565) * lu(1125) + lu(1137) = lu(1137) - lu(566) * lu(1125) + lu(1138) = lu(1138) - lu(567) * lu(1125) + lu(1139) = lu(1139) - lu(568) * lu(1125) + lu(1140) = lu(1140) - lu(569) * lu(1125) + lu(1144) = lu(1144) - lu(570) * lu(1125) + lu(1146) = lu(1146) - lu(571) * lu(1125) + lu(1148) = lu(1148) - lu(572) * lu(1125) + lu(1149) = lu(1149) - lu(573) * lu(1125) + lu(1152) = lu(1152) - lu(574) * lu(1125) + lu(1154) = lu(1154) - lu(575) * lu(1125) + lu(1155) = lu(1155) - lu(576) * lu(1125) + lu(1169) = lu(1169) - lu(561) * lu(1164) + lu(1174) = lu(1174) - lu(562) * lu(1164) + lu(1175) = lu(1175) - lu(563) * lu(1164) + lu(1176) = lu(1176) - lu(564) * lu(1164) + lu(1177) = lu(1177) - lu(565) * lu(1164) + lu(1178) = lu(1178) - lu(566) * lu(1164) + lu(1179) = lu(1179) - lu(567) * lu(1164) + lu(1180) = lu(1180) - lu(568) * lu(1164) + lu(1181) = lu(1181) - lu(569) * lu(1164) + lu(1185) = lu(1185) - lu(570) * lu(1164) + lu(1187) = lu(1187) - lu(571) * lu(1164) + lu(1189) = lu(1189) - lu(572) * lu(1164) + lu(1190) = - lu(573) * lu(1164) + lu(1193) = lu(1193) - lu(574) * lu(1164) + lu(1195) = lu(1195) - lu(575) * lu(1164) + lu(1196) = lu(1196) - lu(576) * lu(1164) + lu(1393) = lu(1393) - lu(561) * lu(1389) + lu(1398) = lu(1398) - lu(562) * lu(1389) + lu(1399) = lu(1399) - lu(563) * lu(1389) + lu(1400) = lu(1400) - lu(564) * lu(1389) + lu(1401) = lu(1401) - lu(565) * lu(1389) + lu(1402) = lu(1402) - lu(566) * lu(1389) + lu(1403) = lu(1403) - lu(567) * lu(1389) + lu(1404) = lu(1404) - lu(568) * lu(1389) + lu(1405) = lu(1405) - lu(569) * lu(1389) + lu(1409) = lu(1409) - lu(570) * lu(1389) + lu(1411) = lu(1411) - lu(571) * lu(1389) + lu(1413) = lu(1413) - lu(572) * lu(1389) + lu(1414) = lu(1414) - lu(573) * lu(1389) + lu(1417) = lu(1417) - lu(574) * lu(1389) + lu(1419) = lu(1419) - lu(575) * lu(1389) + lu(1420) = lu(1420) - lu(576) * lu(1389) + lu(1555) = lu(1555) - lu(561) * lu(1552) + lu(1560) = lu(1560) - lu(562) * lu(1552) + lu(1561) = lu(1561) - lu(563) * lu(1552) + lu(1562) = lu(1562) - lu(564) * lu(1552) + lu(1563) = lu(1563) - lu(565) * lu(1552) + lu(1564) = lu(1564) - lu(566) * lu(1552) + lu(1565) = lu(1565) - lu(567) * lu(1552) + lu(1566) = lu(1566) - lu(568) * lu(1552) + lu(1567) = lu(1567) - lu(569) * lu(1552) + lu(1571) = lu(1571) - lu(570) * lu(1552) + lu(1573) = lu(1573) - lu(571) * lu(1552) + lu(1575) = lu(1575) - lu(572) * lu(1552) + lu(1576) = lu(1576) - lu(573) * lu(1552) + lu(1579) = lu(1579) - lu(574) * lu(1552) + lu(1581) = lu(1581) - lu(575) * lu(1552) + lu(1582) = lu(1582) - lu(576) * lu(1552) + lu(1594) = lu(1594) - lu(561) * lu(1590) + lu(1599) = lu(1599) - lu(562) * lu(1590) + lu(1600) = lu(1600) - lu(563) * lu(1590) + lu(1601) = lu(1601) - lu(564) * lu(1590) + lu(1602) = lu(1602) - lu(565) * lu(1590) + lu(1603) = lu(1603) - lu(566) * lu(1590) + lu(1604) = lu(1604) - lu(567) * lu(1590) + lu(1605) = lu(1605) - lu(568) * lu(1590) + lu(1606) = lu(1606) - lu(569) * lu(1590) + lu(1610) = lu(1610) - lu(570) * lu(1590) + lu(1612) = lu(1612) - lu(571) * lu(1590) + lu(1614) = lu(1614) - lu(572) * lu(1590) + lu(1615) = lu(1615) - lu(573) * lu(1590) + lu(1618) = lu(1618) - lu(574) * lu(1590) + lu(1620) = lu(1620) - lu(575) * lu(1590) + lu(1621) = lu(1621) - lu(576) * lu(1590) + lu(1703) = lu(1703) - lu(561) * lu(1700) + lu(1708) = lu(1708) - lu(562) * lu(1700) + lu(1709) = lu(1709) - lu(563) * lu(1700) + lu(1710) = lu(1710) - lu(564) * lu(1700) + lu(1711) = lu(1711) - lu(565) * lu(1700) + lu(1712) = lu(1712) - lu(566) * lu(1700) + lu(1713) = lu(1713) - lu(567) * lu(1700) + lu(1714) = lu(1714) - lu(568) * lu(1700) + lu(1715) = lu(1715) - lu(569) * lu(1700) + lu(1719) = lu(1719) - lu(570) * lu(1700) + lu(1721) = lu(1721) - lu(571) * lu(1700) + lu(1723) = lu(1723) - lu(572) * lu(1700) + lu(1724) = lu(1724) - lu(573) * lu(1700) + lu(1727) = lu(1727) - lu(574) * lu(1700) + lu(1729) = lu(1729) - lu(575) * lu(1700) + lu(1730) = lu(1730) - lu(576) * lu(1700) + lu(1772) = lu(1772) - lu(561) * lu(1768) + lu(1776) = lu(1776) - lu(562) * lu(1768) + lu(1777) = lu(1777) - lu(563) * lu(1768) + lu(1778) = lu(1778) - lu(564) * lu(1768) + lu(1779) = lu(1779) - lu(565) * lu(1768) + lu(1780) = lu(1780) - lu(566) * lu(1768) + lu(1781) = lu(1781) - lu(567) * lu(1768) + lu(1782) = lu(1782) - lu(568) * lu(1768) + lu(1783) = lu(1783) - lu(569) * lu(1768) + lu(1787) = lu(1787) - lu(570) * lu(1768) + lu(1789) = lu(1789) - lu(571) * lu(1768) + lu(1791) = lu(1791) - lu(572) * lu(1768) + lu(1792) = lu(1792) - lu(573) * lu(1768) + lu(1795) = lu(1795) - lu(574) * lu(1768) + lu(1797) = lu(1797) - lu(575) * lu(1768) + lu(1798) = lu(1798) - lu(576) * lu(1768) + lu(1829) = lu(1829) - lu(561) * lu(1824) + lu(1834) = lu(1834) - lu(562) * lu(1824) + lu(1835) = lu(1835) - lu(563) * lu(1824) + lu(1836) = lu(1836) - lu(564) * lu(1824) + lu(1837) = lu(1837) - lu(565) * lu(1824) + lu(1838) = lu(1838) - lu(566) * lu(1824) + lu(1839) = lu(1839) - lu(567) * lu(1824) + lu(1840) = lu(1840) - lu(568) * lu(1824) + lu(1841) = lu(1841) - lu(569) * lu(1824) + lu(1845) = lu(1845) - lu(570) * lu(1824) + lu(1847) = lu(1847) - lu(571) * lu(1824) + lu(1849) = lu(1849) - lu(572) * lu(1824) + lu(1850) = lu(1850) - lu(573) * lu(1824) + lu(1853) = lu(1853) - lu(574) * lu(1824) + lu(1855) = lu(1855) - lu(575) * lu(1824) + lu(1856) = lu(1856) - lu(576) * lu(1824) + lu(584) = 1._r8 / lu(584) + lu(585) = lu(585) * lu(584) + lu(586) = lu(586) * lu(584) + lu(587) = lu(587) * lu(584) + lu(588) = lu(588) * lu(584) + lu(589) = lu(589) * lu(584) + lu(590) = lu(590) * lu(584) + lu(591) = lu(591) * lu(584) + lu(592) = lu(592) * lu(584) + lu(593) = lu(593) * lu(584) + lu(594) = lu(594) * lu(584) + lu(595) = lu(595) * lu(584) + lu(596) = lu(596) * lu(584) + lu(597) = lu(597) * lu(584) + lu(598) = lu(598) * lu(584) + lu(599) = lu(599) * lu(584) + lu(600) = lu(600) * lu(584) + lu(606) = lu(606) - lu(585) * lu(605) + lu(607) = lu(607) - lu(586) * lu(605) + lu(608) = lu(608) - lu(587) * lu(605) + lu(609) = lu(609) - lu(588) * lu(605) + lu(611) = lu(611) - lu(589) * lu(605) + lu(612) = lu(612) - lu(590) * lu(605) + lu(613) = lu(613) - lu(591) * lu(605) + lu(614) = lu(614) - lu(592) * lu(605) + lu(615) = lu(615) - lu(593) * lu(605) + lu(616) = lu(616) - lu(594) * lu(605) + lu(617) = lu(617) - lu(595) * lu(605) + lu(618) = lu(618) - lu(596) * lu(605) + lu(619) = lu(619) - lu(597) * lu(605) + lu(620) = lu(620) - lu(598) * lu(605) + lu(623) = lu(623) - lu(599) * lu(605) + lu(624) = lu(624) - lu(600) * lu(605) + lu(636) = lu(636) - lu(585) * lu(635) + lu(637) = lu(637) - lu(586) * lu(635) + lu(638) = lu(638) - lu(587) * lu(635) + lu(639) = lu(639) - lu(588) * lu(635) + lu(642) = lu(642) - lu(589) * lu(635) + lu(643) = lu(643) - lu(590) * lu(635) + lu(644) = lu(644) - lu(591) * lu(635) + lu(645) = lu(645) - lu(592) * lu(635) + lu(646) = lu(646) - lu(593) * lu(635) + lu(647) = lu(647) - lu(594) * lu(635) + lu(650) = lu(650) - lu(595) * lu(635) + lu(651) = lu(651) - lu(596) * lu(635) + lu(652) = lu(652) - lu(597) * lu(635) + lu(653) = lu(653) - lu(598) * lu(635) + lu(656) = lu(656) - lu(599) * lu(635) + lu(657) = lu(657) - lu(600) * lu(635) + lu(745) = lu(745) - lu(585) * lu(744) + lu(746) = lu(746) - lu(586) * lu(744) + lu(747) = lu(747) - lu(587) * lu(744) + lu(748) = lu(748) - lu(588) * lu(744) + lu(751) = lu(751) - lu(589) * lu(744) + lu(752) = lu(752) - lu(590) * lu(744) + lu(754) = lu(754) - lu(591) * lu(744) + lu(755) = lu(755) - lu(592) * lu(744) + lu(756) = lu(756) - lu(593) * lu(744) + lu(757) = lu(757) - lu(594) * lu(744) + lu(760) = lu(760) - lu(595) * lu(744) + lu(761) = lu(761) - lu(596) * lu(744) + lu(762) = lu(762) - lu(597) * lu(744) + lu(763) = lu(763) - lu(598) * lu(744) + lu(766) = lu(766) - lu(599) * lu(744) + lu(767) = lu(767) - lu(600) * lu(744) + lu(791) = lu(791) - lu(585) * lu(790) + lu(792) = lu(792) - lu(586) * lu(790) + lu(793) = lu(793) - lu(587) * lu(790) + lu(794) = lu(794) - lu(588) * lu(790) + lu(798) = lu(798) - lu(589) * lu(790) + lu(799) = lu(799) - lu(590) * lu(790) + lu(801) = lu(801) - lu(591) * lu(790) + lu(802) = lu(802) - lu(592) * lu(790) + lu(803) = lu(803) - lu(593) * lu(790) + lu(804) = lu(804) - lu(594) * lu(790) + lu(807) = lu(807) - lu(595) * lu(790) + lu(808) = lu(808) - lu(596) * lu(790) + lu(809) = lu(809) - lu(597) * lu(790) + lu(810) = lu(810) - lu(598) * lu(790) + lu(813) = lu(813) - lu(599) * lu(790) + lu(814) = lu(814) - lu(600) * lu(790) + lu(1037) = lu(1037) - lu(585) * lu(1036) + lu(1038) = lu(1038) - lu(586) * lu(1036) + lu(1042) = lu(1042) - lu(587) * lu(1036) + lu(1043) = lu(1043) - lu(588) * lu(1036) + lu(1049) = lu(1049) - lu(589) * lu(1036) + lu(1050) = lu(1050) - lu(590) * lu(1036) + lu(1052) = lu(1052) - lu(591) * lu(1036) + lu(1053) = lu(1053) - lu(592) * lu(1036) + lu(1054) = lu(1054) - lu(593) * lu(1036) + lu(1055) = - lu(594) * lu(1036) + lu(1058) = lu(1058) - lu(595) * lu(1036) + lu(1059) = lu(1059) - lu(596) * lu(1036) + lu(1060) = lu(1060) - lu(597) * lu(1036) + lu(1062) = - lu(598) * lu(1036) + lu(1067) = - lu(599) * lu(1036) + lu(1068) = lu(1068) - lu(600) * lu(1036) + lu(1084) = lu(1084) - lu(585) * lu(1083) + lu(1085) = lu(1085) - lu(586) * lu(1083) + lu(1088) = lu(1088) - lu(587) * lu(1083) + lu(1089) = lu(1089) - lu(588) * lu(1083) + lu(1095) = lu(1095) - lu(589) * lu(1083) + lu(1096) = lu(1096) - lu(590) * lu(1083) + lu(1098) = lu(1098) - lu(591) * lu(1083) + lu(1099) = lu(1099) - lu(592) * lu(1083) + lu(1100) = lu(1100) - lu(593) * lu(1083) + lu(1101) = lu(1101) - lu(594) * lu(1083) + lu(1104) = lu(1104) - lu(595) * lu(1083) + lu(1105) = lu(1105) - lu(596) * lu(1083) + lu(1106) = lu(1106) - lu(597) * lu(1083) + lu(1108) = lu(1108) - lu(598) * lu(1083) + lu(1113) = lu(1113) - lu(599) * lu(1083) + lu(1114) = lu(1114) - lu(600) * lu(1083) + lu(1166) = lu(1166) - lu(585) * lu(1165) + lu(1167) = lu(1167) - lu(586) * lu(1165) + lu(1170) = lu(1170) - lu(587) * lu(1165) + lu(1171) = lu(1171) - lu(588) * lu(1165) + lu(1177) = lu(1177) - lu(589) * lu(1165) + lu(1178) = lu(1178) - lu(590) * lu(1165) + lu(1180) = lu(1180) - lu(591) * lu(1165) + lu(1181) = lu(1181) - lu(592) * lu(1165) + lu(1182) = lu(1182) - lu(593) * lu(1165) + lu(1183) = - lu(594) * lu(1165) + lu(1186) = lu(1186) - lu(595) * lu(1165) + lu(1187) = lu(1187) - lu(596) * lu(1165) + lu(1188) = lu(1188) - lu(597) * lu(1165) + lu(1190) = lu(1190) - lu(598) * lu(1165) + lu(1195) = lu(1195) - lu(599) * lu(1165) + lu(1196) = lu(1196) - lu(600) * lu(1165) + lu(1224) = lu(1224) - lu(585) * lu(1223) + lu(1225) = lu(1225) - lu(586) * lu(1223) + lu(1229) = lu(1229) - lu(587) * lu(1223) + lu(1230) = lu(1230) - lu(588) * lu(1223) + lu(1236) = lu(1236) - lu(589) * lu(1223) + lu(1237) = lu(1237) - lu(590) * lu(1223) + lu(1239) = lu(1239) - lu(591) * lu(1223) + lu(1240) = lu(1240) - lu(592) * lu(1223) + lu(1241) = lu(1241) - lu(593) * lu(1223) + lu(1242) = lu(1242) - lu(594) * lu(1223) + lu(1245) = lu(1245) - lu(595) * lu(1223) + lu(1246) = lu(1246) - lu(596) * lu(1223) + lu(1247) = lu(1247) - lu(597) * lu(1223) + lu(1249) = lu(1249) - lu(598) * lu(1223) + lu(1254) = lu(1254) - lu(599) * lu(1223) + lu(1255) = lu(1255) - lu(600) * lu(1223) + lu(1266) = lu(1266) - lu(585) * lu(1265) + lu(1267) = lu(1267) - lu(586) * lu(1265) + lu(1271) = lu(1271) - lu(587) * lu(1265) + lu(1272) = lu(1272) - lu(588) * lu(1265) + lu(1278) = lu(1278) - lu(589) * lu(1265) + lu(1279) = lu(1279) - lu(590) * lu(1265) + lu(1281) = lu(1281) - lu(591) * lu(1265) + lu(1282) = lu(1282) - lu(592) * lu(1265) + lu(1283) = lu(1283) - lu(593) * lu(1265) + lu(1284) = lu(1284) - lu(594) * lu(1265) + lu(1287) = lu(1287) - lu(595) * lu(1265) + lu(1288) = lu(1288) - lu(596) * lu(1265) + lu(1289) = lu(1289) - lu(597) * lu(1265) + lu(1291) = lu(1291) - lu(598) * lu(1265) + lu(1296) = lu(1296) - lu(599) * lu(1265) + lu(1297) = lu(1297) - lu(600) * lu(1265) + lu(1310) = lu(1310) - lu(585) * lu(1309) + lu(1311) = lu(1311) - lu(586) * lu(1309) + lu(1315) = lu(1315) - lu(587) * lu(1309) + lu(1316) = lu(1316) - lu(588) * lu(1309) + lu(1322) = lu(1322) - lu(589) * lu(1309) + lu(1323) = lu(1323) - lu(590) * lu(1309) + lu(1325) = lu(1325) - lu(591) * lu(1309) + lu(1326) = lu(1326) - lu(592) * lu(1309) + lu(1327) = lu(1327) - lu(593) * lu(1309) + lu(1328) = lu(1328) - lu(594) * lu(1309) + lu(1331) = lu(1331) - lu(595) * lu(1309) + lu(1332) = lu(1332) - lu(596) * lu(1309) + lu(1333) = lu(1333) - lu(597) * lu(1309) + lu(1335) = lu(1335) - lu(598) * lu(1309) + lu(1340) = lu(1340) - lu(599) * lu(1309) + lu(1341) = lu(1341) - lu(600) * lu(1309) + lu(1430) = lu(1430) - lu(585) * lu(1429) + lu(1431) = lu(1431) - lu(586) * lu(1429) + lu(1435) = lu(1435) - lu(587) * lu(1429) + lu(1436) = lu(1436) - lu(588) * lu(1429) + lu(1442) = lu(1442) - lu(589) * lu(1429) + lu(1443) = lu(1443) - lu(590) * lu(1429) + lu(1445) = lu(1445) - lu(591) * lu(1429) + lu(1446) = lu(1446) - lu(592) * lu(1429) + lu(1447) = lu(1447) - lu(593) * lu(1429) + lu(1448) = - lu(594) * lu(1429) + lu(1451) = lu(1451) - lu(595) * lu(1429) + lu(1452) = lu(1452) - lu(596) * lu(1429) + lu(1453) = lu(1453) - lu(597) * lu(1429) + lu(1455) = - lu(598) * lu(1429) + lu(1460) = lu(1460) - lu(599) * lu(1429) + lu(1461) = lu(1461) - lu(600) * lu(1429) + lu(1509) = lu(1509) - lu(585) * lu(1508) + lu(1510) = lu(1510) - lu(586) * lu(1508) + lu(1514) = lu(1514) - lu(587) * lu(1508) + lu(1515) = lu(1515) - lu(588) * lu(1508) + lu(1521) = lu(1521) - lu(589) * lu(1508) + lu(1522) = lu(1522) - lu(590) * lu(1508) + lu(1524) = lu(1524) - lu(591) * lu(1508) + lu(1525) = lu(1525) - lu(592) * lu(1508) + lu(1526) = lu(1526) - lu(593) * lu(1508) + lu(1527) = lu(1527) - lu(594) * lu(1508) + lu(1530) = lu(1530) - lu(595) * lu(1508) + lu(1531) = lu(1531) - lu(596) * lu(1508) + lu(1532) = lu(1532) - lu(597) * lu(1508) + lu(1534) = lu(1534) - lu(598) * lu(1508) + lu(1539) = lu(1539) - lu(599) * lu(1508) + lu(1540) = lu(1540) - lu(600) * lu(1508) + lu(1770) = lu(1770) - lu(585) * lu(1769) + lu(1771) = lu(1771) - lu(586) * lu(1769) + lu(1773) = lu(1773) - lu(587) * lu(1769) + lu(1774) = lu(1774) - lu(588) * lu(1769) + lu(1779) = lu(1779) - lu(589) * lu(1769) + lu(1780) = lu(1780) - lu(590) * lu(1769) + lu(1782) = lu(1782) - lu(591) * lu(1769) + lu(1783) = lu(1783) - lu(592) * lu(1769) + lu(1784) = lu(1784) - lu(593) * lu(1769) + lu(1785) = - lu(594) * lu(1769) + lu(1788) = lu(1788) - lu(595) * lu(1769) + lu(1789) = lu(1789) - lu(596) * lu(1769) + lu(1790) = lu(1790) - lu(597) * lu(1769) + lu(1792) = lu(1792) - lu(598) * lu(1769) + lu(1797) = lu(1797) - lu(599) * lu(1769) + lu(1798) = lu(1798) - lu(600) * lu(1769) + lu(1826) = lu(1826) - lu(585) * lu(1825) + lu(1827) = lu(1827) - lu(586) * lu(1825) + lu(1830) = lu(1830) - lu(587) * lu(1825) + lu(1831) = lu(1831) - lu(588) * lu(1825) + lu(1837) = lu(1837) - lu(589) * lu(1825) + lu(1838) = lu(1838) - lu(590) * lu(1825) + lu(1840) = lu(1840) - lu(591) * lu(1825) + lu(1841) = lu(1841) - lu(592) * lu(1825) + lu(1842) = lu(1842) - lu(593) * lu(1825) + lu(1843) = lu(1843) - lu(594) * lu(1825) + lu(1846) = lu(1846) - lu(595) * lu(1825) + lu(1847) = lu(1847) - lu(596) * lu(1825) + lu(1848) = lu(1848) - lu(597) * lu(1825) + lu(1850) = lu(1850) - lu(598) * lu(1825) + lu(1855) = lu(1855) - lu(599) * lu(1825) + lu(1856) = lu(1856) - lu(600) * lu(1825) + lu(606) = 1._r8 / lu(606) + lu(607) = lu(607) * lu(606) + lu(608) = lu(608) * lu(606) + lu(609) = lu(609) * lu(606) + lu(610) = lu(610) * lu(606) + lu(611) = lu(611) * lu(606) + lu(612) = lu(612) * lu(606) + lu(613) = lu(613) * lu(606) + lu(614) = lu(614) * lu(606) + lu(615) = lu(615) * lu(606) + lu(616) = lu(616) * lu(606) + lu(617) = lu(617) * lu(606) + lu(618) = lu(618) * lu(606) + lu(619) = lu(619) * lu(606) + lu(620) = lu(620) * lu(606) + lu(621) = lu(621) * lu(606) + lu(622) = lu(622) * lu(606) + lu(623) = lu(623) * lu(606) + lu(624) = lu(624) * lu(606) + lu(637) = lu(637) - lu(607) * lu(636) + lu(638) = lu(638) - lu(608) * lu(636) + lu(639) = lu(639) - lu(609) * lu(636) + lu(640) = lu(640) - lu(610) * lu(636) + lu(642) = lu(642) - lu(611) * lu(636) + lu(643) = lu(643) - lu(612) * lu(636) + lu(644) = lu(644) - lu(613) * lu(636) + lu(645) = lu(645) - lu(614) * lu(636) + lu(646) = lu(646) - lu(615) * lu(636) + lu(647) = lu(647) - lu(616) * lu(636) + lu(650) = lu(650) - lu(617) * lu(636) + lu(651) = lu(651) - lu(618) * lu(636) + lu(652) = lu(652) - lu(619) * lu(636) + lu(653) = lu(653) - lu(620) * lu(636) + lu(654) = lu(654) - lu(621) * lu(636) + lu(655) = lu(655) - lu(622) * lu(636) + lu(656) = lu(656) - lu(623) * lu(636) + lu(657) = lu(657) - lu(624) * lu(636) + lu(746) = lu(746) - lu(607) * lu(745) + lu(747) = lu(747) - lu(608) * lu(745) + lu(748) = lu(748) - lu(609) * lu(745) + lu(749) = lu(749) - lu(610) * lu(745) + lu(751) = lu(751) - lu(611) * lu(745) + lu(752) = lu(752) - lu(612) * lu(745) + lu(754) = lu(754) - lu(613) * lu(745) + lu(755) = lu(755) - lu(614) * lu(745) + lu(756) = lu(756) - lu(615) * lu(745) + lu(757) = lu(757) - lu(616) * lu(745) + lu(760) = lu(760) - lu(617) * lu(745) + lu(761) = lu(761) - lu(618) * lu(745) + lu(762) = lu(762) - lu(619) * lu(745) + lu(763) = lu(763) - lu(620) * lu(745) + lu(764) = lu(764) - lu(621) * lu(745) + lu(765) = lu(765) - lu(622) * lu(745) + lu(766) = lu(766) - lu(623) * lu(745) + lu(767) = lu(767) - lu(624) * lu(745) + lu(792) = lu(792) - lu(607) * lu(791) + lu(793) = lu(793) - lu(608) * lu(791) + lu(794) = lu(794) - lu(609) * lu(791) + lu(795) = lu(795) - lu(610) * lu(791) + lu(798) = lu(798) - lu(611) * lu(791) + lu(799) = lu(799) - lu(612) * lu(791) + lu(801) = lu(801) - lu(613) * lu(791) + lu(802) = lu(802) - lu(614) * lu(791) + lu(803) = lu(803) - lu(615) * lu(791) + lu(804) = lu(804) - lu(616) * lu(791) + lu(807) = lu(807) - lu(617) * lu(791) + lu(808) = lu(808) - lu(618) * lu(791) + lu(809) = lu(809) - lu(619) * lu(791) + lu(810) = lu(810) - lu(620) * lu(791) + lu(811) = lu(811) - lu(621) * lu(791) + lu(812) = lu(812) - lu(622) * lu(791) + lu(813) = lu(813) - lu(623) * lu(791) + lu(814) = lu(814) - lu(624) * lu(791) + lu(1038) = lu(1038) - lu(607) * lu(1037) + lu(1042) = lu(1042) - lu(608) * lu(1037) + lu(1043) = lu(1043) - lu(609) * lu(1037) + lu(1045) = lu(1045) - lu(610) * lu(1037) + lu(1049) = lu(1049) - lu(611) * lu(1037) + lu(1050) = lu(1050) - lu(612) * lu(1037) + lu(1052) = lu(1052) - lu(613) * lu(1037) + lu(1053) = lu(1053) - lu(614) * lu(1037) + lu(1054) = lu(1054) - lu(615) * lu(1037) + lu(1055) = lu(1055) - lu(616) * lu(1037) + lu(1058) = lu(1058) - lu(617) * lu(1037) + lu(1059) = lu(1059) - lu(618) * lu(1037) + lu(1060) = lu(1060) - lu(619) * lu(1037) + lu(1062) = lu(1062) - lu(620) * lu(1037) + lu(1063) = lu(1063) - lu(621) * lu(1037) + lu(1064) = lu(1064) - lu(622) * lu(1037) + lu(1067) = lu(1067) - lu(623) * lu(1037) + lu(1068) = lu(1068) - lu(624) * lu(1037) + lu(1085) = lu(1085) - lu(607) * lu(1084) + lu(1088) = lu(1088) - lu(608) * lu(1084) + lu(1089) = lu(1089) - lu(609) * lu(1084) + lu(1091) = lu(1091) - lu(610) * lu(1084) + lu(1095) = lu(1095) - lu(611) * lu(1084) + lu(1096) = lu(1096) - lu(612) * lu(1084) + lu(1098) = lu(1098) - lu(613) * lu(1084) + lu(1099) = lu(1099) - lu(614) * lu(1084) + lu(1100) = lu(1100) - lu(615) * lu(1084) + lu(1101) = lu(1101) - lu(616) * lu(1084) + lu(1104) = lu(1104) - lu(617) * lu(1084) + lu(1105) = lu(1105) - lu(618) * lu(1084) + lu(1106) = lu(1106) - lu(619) * lu(1084) + lu(1108) = lu(1108) - lu(620) * lu(1084) + lu(1109) = lu(1109) - lu(621) * lu(1084) + lu(1110) = lu(1110) - lu(622) * lu(1084) + lu(1113) = lu(1113) - lu(623) * lu(1084) + lu(1114) = lu(1114) - lu(624) * lu(1084) + lu(1167) = lu(1167) - lu(607) * lu(1166) + lu(1170) = lu(1170) - lu(608) * lu(1166) + lu(1171) = lu(1171) - lu(609) * lu(1166) + lu(1173) = lu(1173) - lu(610) * lu(1166) + lu(1177) = lu(1177) - lu(611) * lu(1166) + lu(1178) = lu(1178) - lu(612) * lu(1166) + lu(1180) = lu(1180) - lu(613) * lu(1166) + lu(1181) = lu(1181) - lu(614) * lu(1166) + lu(1182) = lu(1182) - lu(615) * lu(1166) + lu(1183) = lu(1183) - lu(616) * lu(1166) + lu(1186) = lu(1186) - lu(617) * lu(1166) + lu(1187) = lu(1187) - lu(618) * lu(1166) + lu(1188) = lu(1188) - lu(619) * lu(1166) + lu(1190) = lu(1190) - lu(620) * lu(1166) + lu(1191) = lu(1191) - lu(621) * lu(1166) + lu(1192) = lu(1192) - lu(622) * lu(1166) + lu(1195) = lu(1195) - lu(623) * lu(1166) + lu(1196) = lu(1196) - lu(624) * lu(1166) + lu(1225) = lu(1225) - lu(607) * lu(1224) + lu(1229) = lu(1229) - lu(608) * lu(1224) + lu(1230) = lu(1230) - lu(609) * lu(1224) + lu(1232) = lu(1232) - lu(610) * lu(1224) + lu(1236) = lu(1236) - lu(611) * lu(1224) + lu(1237) = lu(1237) - lu(612) * lu(1224) + lu(1239) = lu(1239) - lu(613) * lu(1224) + lu(1240) = lu(1240) - lu(614) * lu(1224) + lu(1241) = lu(1241) - lu(615) * lu(1224) + lu(1242) = lu(1242) - lu(616) * lu(1224) + lu(1245) = lu(1245) - lu(617) * lu(1224) + lu(1246) = lu(1246) - lu(618) * lu(1224) + lu(1247) = lu(1247) - lu(619) * lu(1224) + lu(1249) = lu(1249) - lu(620) * lu(1224) + lu(1250) = lu(1250) - lu(621) * lu(1224) + lu(1251) = lu(1251) - lu(622) * lu(1224) + lu(1254) = lu(1254) - lu(623) * lu(1224) + lu(1255) = lu(1255) - lu(624) * lu(1224) + lu(1267) = lu(1267) - lu(607) * lu(1266) + lu(1271) = lu(1271) - lu(608) * lu(1266) + lu(1272) = lu(1272) - lu(609) * lu(1266) + lu(1274) = lu(1274) - lu(610) * lu(1266) + lu(1278) = lu(1278) - lu(611) * lu(1266) + lu(1279) = lu(1279) - lu(612) * lu(1266) + lu(1281) = lu(1281) - lu(613) * lu(1266) + lu(1282) = lu(1282) - lu(614) * lu(1266) + lu(1283) = lu(1283) - lu(615) * lu(1266) + lu(1284) = lu(1284) - lu(616) * lu(1266) + lu(1287) = lu(1287) - lu(617) * lu(1266) + lu(1288) = lu(1288) - lu(618) * lu(1266) + lu(1289) = lu(1289) - lu(619) * lu(1266) + lu(1291) = lu(1291) - lu(620) * lu(1266) + lu(1292) = lu(1292) - lu(621) * lu(1266) + lu(1293) = lu(1293) - lu(622) * lu(1266) + lu(1296) = lu(1296) - lu(623) * lu(1266) + lu(1297) = lu(1297) - lu(624) * lu(1266) + lu(1311) = lu(1311) - lu(607) * lu(1310) + lu(1315) = lu(1315) - lu(608) * lu(1310) + lu(1316) = lu(1316) - lu(609) * lu(1310) + lu(1318) = - lu(610) * lu(1310) + lu(1322) = lu(1322) - lu(611) * lu(1310) + lu(1323) = lu(1323) - lu(612) * lu(1310) + lu(1325) = lu(1325) - lu(613) * lu(1310) + lu(1326) = lu(1326) - lu(614) * lu(1310) + lu(1327) = lu(1327) - lu(615) * lu(1310) + lu(1328) = lu(1328) - lu(616) * lu(1310) + lu(1331) = lu(1331) - lu(617) * lu(1310) + lu(1332) = lu(1332) - lu(618) * lu(1310) + lu(1333) = lu(1333) - lu(619) * lu(1310) + lu(1335) = lu(1335) - lu(620) * lu(1310) + lu(1336) = lu(1336) - lu(621) * lu(1310) + lu(1337) = lu(1337) - lu(622) * lu(1310) + lu(1340) = lu(1340) - lu(623) * lu(1310) + lu(1341) = lu(1341) - lu(624) * lu(1310) + lu(1431) = lu(1431) - lu(607) * lu(1430) + lu(1435) = lu(1435) - lu(608) * lu(1430) + lu(1436) = lu(1436) - lu(609) * lu(1430) + lu(1438) = lu(1438) - lu(610) * lu(1430) + lu(1442) = lu(1442) - lu(611) * lu(1430) + lu(1443) = lu(1443) - lu(612) * lu(1430) + lu(1445) = lu(1445) - lu(613) * lu(1430) + lu(1446) = lu(1446) - lu(614) * lu(1430) + lu(1447) = lu(1447) - lu(615) * lu(1430) + lu(1448) = lu(1448) - lu(616) * lu(1430) + lu(1451) = lu(1451) - lu(617) * lu(1430) + lu(1452) = lu(1452) - lu(618) * lu(1430) + lu(1453) = lu(1453) - lu(619) * lu(1430) + lu(1455) = lu(1455) - lu(620) * lu(1430) + lu(1456) = lu(1456) - lu(621) * lu(1430) + lu(1457) = lu(1457) - lu(622) * lu(1430) + lu(1460) = lu(1460) - lu(623) * lu(1430) + lu(1461) = lu(1461) - lu(624) * lu(1430) + lu(1466) = lu(1466) - lu(607) * lu(1465) + lu(1470) = lu(1470) - lu(608) * lu(1465) + lu(1471) = lu(1471) - lu(609) * lu(1465) + lu(1473) = lu(1473) - lu(610) * lu(1465) + lu(1477) = lu(1477) - lu(611) * lu(1465) + lu(1478) = lu(1478) - lu(612) * lu(1465) + lu(1480) = lu(1480) - lu(613) * lu(1465) + lu(1481) = lu(1481) - lu(614) * lu(1465) + lu(1482) = lu(1482) - lu(615) * lu(1465) + lu(1483) = lu(1483) - lu(616) * lu(1465) + lu(1486) = lu(1486) - lu(617) * lu(1465) + lu(1487) = lu(1487) - lu(618) * lu(1465) + lu(1488) = lu(1488) - lu(619) * lu(1465) + lu(1490) = lu(1490) - lu(620) * lu(1465) + lu(1491) = lu(1491) - lu(621) * lu(1465) + lu(1492) = lu(1492) - lu(622) * lu(1465) + lu(1495) = lu(1495) - lu(623) * lu(1465) + lu(1496) = lu(1496) - lu(624) * lu(1465) + lu(1510) = lu(1510) - lu(607) * lu(1509) + lu(1514) = lu(1514) - lu(608) * lu(1509) + lu(1515) = lu(1515) - lu(609) * lu(1509) + lu(1517) = - lu(610) * lu(1509) + lu(1521) = lu(1521) - lu(611) * lu(1509) + lu(1522) = lu(1522) - lu(612) * lu(1509) + lu(1524) = lu(1524) - lu(613) * lu(1509) + lu(1525) = lu(1525) - lu(614) * lu(1509) + lu(1526) = lu(1526) - lu(615) * lu(1509) + lu(1527) = lu(1527) - lu(616) * lu(1509) + lu(1530) = lu(1530) - lu(617) * lu(1509) + lu(1531) = lu(1531) - lu(618) * lu(1509) + lu(1532) = lu(1532) - lu(619) * lu(1509) + lu(1534) = lu(1534) - lu(620) * lu(1509) + lu(1535) = lu(1535) - lu(621) * lu(1509) + lu(1536) = lu(1536) - lu(622) * lu(1509) + lu(1539) = lu(1539) - lu(623) * lu(1509) + lu(1540) = lu(1540) - lu(624) * lu(1509) + lu(1592) = lu(1592) - lu(607) * lu(1591) + lu(1595) = lu(1595) - lu(608) * lu(1591) + lu(1596) = lu(1596) - lu(609) * lu(1591) + lu(1598) = lu(1598) - lu(610) * lu(1591) + lu(1602) = lu(1602) - lu(611) * lu(1591) + lu(1603) = lu(1603) - lu(612) * lu(1591) + lu(1605) = lu(1605) - lu(613) * lu(1591) + lu(1606) = lu(1606) - lu(614) * lu(1591) + lu(1607) = lu(1607) - lu(615) * lu(1591) + lu(1608) = lu(1608) - lu(616) * lu(1591) + lu(1611) = - lu(617) * lu(1591) + lu(1612) = lu(1612) - lu(618) * lu(1591) + lu(1613) = lu(1613) - lu(619) * lu(1591) + lu(1615) = lu(1615) - lu(620) * lu(1591) + lu(1616) = lu(1616) - lu(621) * lu(1591) + lu(1617) = lu(1617) - lu(622) * lu(1591) + lu(1620) = lu(1620) - lu(623) * lu(1591) + lu(1621) = lu(1621) - lu(624) * lu(1591) + lu(1659) = lu(1659) - lu(607) * lu(1658) + lu(1662) = lu(1662) - lu(608) * lu(1658) + lu(1663) = lu(1663) - lu(609) * lu(1658) + lu(1665) = lu(1665) - lu(610) * lu(1658) + lu(1669) = lu(1669) - lu(611) * lu(1658) + lu(1670) = lu(1670) - lu(612) * lu(1658) + lu(1672) = lu(1672) - lu(613) * lu(1658) + lu(1673) = lu(1673) - lu(614) * lu(1658) + lu(1674) = lu(1674) - lu(615) * lu(1658) + lu(1675) = lu(1675) - lu(616) * lu(1658) + lu(1678) = lu(1678) - lu(617) * lu(1658) + lu(1679) = lu(1679) - lu(618) * lu(1658) + lu(1680) = lu(1680) - lu(619) * lu(1658) + lu(1682) = lu(1682) - lu(620) * lu(1658) + lu(1683) = lu(1683) - lu(621) * lu(1658) + lu(1684) = lu(1684) - lu(622) * lu(1658) + lu(1687) = lu(1687) - lu(623) * lu(1658) + lu(1688) = lu(1688) - lu(624) * lu(1658) + lu(1771) = lu(1771) - lu(607) * lu(1770) + lu(1773) = lu(1773) - lu(608) * lu(1770) + lu(1774) = lu(1774) - lu(609) * lu(1770) + lu(1775) = - lu(610) * lu(1770) + lu(1779) = lu(1779) - lu(611) * lu(1770) + lu(1780) = lu(1780) - lu(612) * lu(1770) + lu(1782) = lu(1782) - lu(613) * lu(1770) + lu(1783) = lu(1783) - lu(614) * lu(1770) + lu(1784) = lu(1784) - lu(615) * lu(1770) + lu(1785) = lu(1785) - lu(616) * lu(1770) + lu(1788) = lu(1788) - lu(617) * lu(1770) + lu(1789) = lu(1789) - lu(618) * lu(1770) + lu(1790) = lu(1790) - lu(619) * lu(1770) + lu(1792) = lu(1792) - lu(620) * lu(1770) + lu(1793) = - lu(621) * lu(1770) + lu(1794) = - lu(622) * lu(1770) + lu(1797) = lu(1797) - lu(623) * lu(1770) + lu(1798) = lu(1798) - lu(624) * lu(1770) + lu(1827) = lu(1827) - lu(607) * lu(1826) + lu(1830) = lu(1830) - lu(608) * lu(1826) + lu(1831) = lu(1831) - lu(609) * lu(1826) + lu(1833) = lu(1833) - lu(610) * lu(1826) + lu(1837) = lu(1837) - lu(611) * lu(1826) + lu(1838) = lu(1838) - lu(612) * lu(1826) + lu(1840) = lu(1840) - lu(613) * lu(1826) + lu(1841) = lu(1841) - lu(614) * lu(1826) + lu(1842) = lu(1842) - lu(615) * lu(1826) + lu(1843) = lu(1843) - lu(616) * lu(1826) + lu(1846) = lu(1846) - lu(617) * lu(1826) + lu(1847) = lu(1847) - lu(618) * lu(1826) + lu(1848) = lu(1848) - lu(619) * lu(1826) + lu(1850) = lu(1850) - lu(620) * lu(1826) + lu(1851) = lu(1851) - lu(621) * lu(1826) + lu(1852) = lu(1852) - lu(622) * lu(1826) + lu(1855) = lu(1855) - lu(623) * lu(1826) + lu(1856) = lu(1856) - lu(624) * lu(1826) end subroutine lu_fac15 - subroutine lu_fac16( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac16( lu ) 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,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,644) = lu(k,644) * lu(k,637) - lu(k,645) = lu(k,645) * lu(k,637) - lu(k,646) = lu(k,646) * lu(k,637) - lu(k,647) = lu(k,647) * lu(k,637) - lu(k,648) = lu(k,648) * lu(k,637) - lu(k,649) = lu(k,649) * lu(k,637) - lu(k,650) = lu(k,650) * lu(k,637) - lu(k,651) = lu(k,651) * lu(k,637) - lu(k,652) = lu(k,652) * lu(k,637) - lu(k,653) = lu(k,653) * lu(k,637) - lu(k,654) = lu(k,654) * lu(k,637) - lu(k,655) = lu(k,655) * lu(k,637) - lu(k,656) = lu(k,656) * lu(k,637) - lu(k,657) = lu(k,657) * lu(k,637) - lu(k,747) = lu(k,747) - lu(k,638) * lu(k,746) - lu(k,748) = lu(k,748) - lu(k,639) * lu(k,746) - lu(k,749) = lu(k,749) - lu(k,640) * lu(k,746) - lu(k,750) = lu(k,750) - lu(k,641) * lu(k,746) - lu(k,752) = lu(k,752) - lu(k,642) * lu(k,746) - lu(k,753) = lu(k,753) - lu(k,643) * lu(k,746) - lu(k,754) = lu(k,754) - lu(k,644) * lu(k,746) - lu(k,755) = lu(k,755) - lu(k,645) * lu(k,746) - lu(k,756) = lu(k,756) - lu(k,646) * lu(k,746) - lu(k,757) = - lu(k,647) * lu(k,746) - lu(k,758) = - lu(k,648) * lu(k,746) - lu(k,759) = lu(k,759) - lu(k,649) * lu(k,746) - lu(k,760) = lu(k,760) - lu(k,650) * lu(k,746) - lu(k,761) = lu(k,761) - lu(k,651) * lu(k,746) - lu(k,762) = lu(k,762) - lu(k,652) * lu(k,746) - lu(k,763) = lu(k,763) - lu(k,653) * lu(k,746) - lu(k,764) = lu(k,764) - lu(k,654) * lu(k,746) - lu(k,765) = lu(k,765) - lu(k,655) * lu(k,746) - lu(k,766) = lu(k,766) - lu(k,656) * lu(k,746) - lu(k,767) = lu(k,767) - lu(k,657) * lu(k,746) - lu(k,793) = lu(k,793) - lu(k,638) * lu(k,792) - lu(k,794) = lu(k,794) - lu(k,639) * lu(k,792) - lu(k,796) = lu(k,796) - lu(k,640) * lu(k,792) - lu(k,797) = lu(k,797) - lu(k,641) * lu(k,792) - lu(k,799) = lu(k,799) - lu(k,642) * lu(k,792) - lu(k,800) = lu(k,800) - lu(k,643) * lu(k,792) - lu(k,801) = lu(k,801) - lu(k,644) * lu(k,792) - lu(k,802) = lu(k,802) - lu(k,645) * lu(k,792) - lu(k,803) = lu(k,803) - lu(k,646) * lu(k,792) - lu(k,804) = - lu(k,647) * lu(k,792) - lu(k,805) = lu(k,805) - lu(k,648) * lu(k,792) - lu(k,806) = lu(k,806) - lu(k,649) * lu(k,792) - lu(k,807) = lu(k,807) - lu(k,650) * lu(k,792) - lu(k,808) = lu(k,808) - lu(k,651) * lu(k,792) - lu(k,809) = lu(k,809) - lu(k,652) * lu(k,792) - lu(k,810) = lu(k,810) - lu(k,653) * lu(k,792) - lu(k,811) = lu(k,811) - lu(k,654) * lu(k,792) - lu(k,812) = lu(k,812) - lu(k,655) * lu(k,792) - lu(k,813) = lu(k,813) - lu(k,656) * lu(k,792) - lu(k,814) = lu(k,814) - lu(k,657) * lu(k,792) - lu(k,896) = lu(k,896) - lu(k,638) * lu(k,892) - lu(k,897) = lu(k,897) - lu(k,639) * lu(k,892) - lu(k,902) = lu(k,902) - lu(k,640) * lu(k,892) - lu(k,903) = lu(k,903) - lu(k,641) * lu(k,892) - lu(k,905) = lu(k,905) - lu(k,642) * lu(k,892) - lu(k,906) = lu(k,906) - lu(k,643) * lu(k,892) - lu(k,907) = - lu(k,644) * lu(k,892) - lu(k,908) = lu(k,908) - lu(k,645) * lu(k,892) - lu(k,909) = lu(k,909) - lu(k,646) * lu(k,892) - lu(k,910) = lu(k,910) - lu(k,647) * lu(k,892) - lu(k,911) = lu(k,911) - lu(k,648) * lu(k,892) - lu(k,912) = lu(k,912) - lu(k,649) * lu(k,892) - lu(k,913) = lu(k,913) - lu(k,650) * lu(k,892) - lu(k,914) = lu(k,914) - lu(k,651) * lu(k,892) - lu(k,915) = lu(k,915) - lu(k,652) * lu(k,892) - lu(k,917) = - lu(k,653) * lu(k,892) - lu(k,918) = - lu(k,654) * lu(k,892) - lu(k,920) = - lu(k,655) * lu(k,892) - lu(k,921) = lu(k,921) - lu(k,656) * lu(k,892) - lu(k,922) = lu(k,922) - lu(k,657) * lu(k,892) - lu(k,984) = lu(k,984) - lu(k,638) * lu(k,981) - lu(k,985) = lu(k,985) - lu(k,639) * lu(k,981) - lu(k,990) = lu(k,990) - lu(k,640) * lu(k,981) - lu(k,991) = lu(k,991) - lu(k,641) * lu(k,981) - lu(k,993) = lu(k,993) - lu(k,642) * lu(k,981) - lu(k,994) = lu(k,994) - lu(k,643) * lu(k,981) - lu(k,995) = lu(k,995) - lu(k,644) * lu(k,981) - lu(k,996) = lu(k,996) - lu(k,645) * lu(k,981) - lu(k,997) = lu(k,997) - lu(k,646) * lu(k,981) - lu(k,998) = lu(k,998) - lu(k,647) * lu(k,981) - lu(k,999) = lu(k,999) - lu(k,648) * lu(k,981) - lu(k,1000) = lu(k,1000) - lu(k,649) * lu(k,981) - lu(k,1001) = lu(k,1001) - lu(k,650) * lu(k,981) - lu(k,1002) = lu(k,1002) - lu(k,651) * lu(k,981) - lu(k,1003) = lu(k,1003) - lu(k,652) * lu(k,981) - lu(k,1005) = lu(k,1005) - lu(k,653) * lu(k,981) - lu(k,1006) = lu(k,1006) - lu(k,654) * lu(k,981) - lu(k,1008) = lu(k,1008) - lu(k,655) * lu(k,981) - lu(k,1009) = lu(k,1009) - lu(k,656) * lu(k,981) - lu(k,1010) = lu(k,1010) - lu(k,657) * lu(k,981) - lu(k,1107) = lu(k,1107) - lu(k,638) * lu(k,1105) - lu(k,1108) = lu(k,1108) - lu(k,639) * lu(k,1105) - lu(k,1112) = lu(k,1112) - lu(k,640) * lu(k,1105) - lu(k,1113) = lu(k,1113) - lu(k,641) * lu(k,1105) - lu(k,1115) = lu(k,1115) - lu(k,642) * lu(k,1105) - lu(k,1116) = lu(k,1116) - lu(k,643) * lu(k,1105) - lu(k,1117) = lu(k,1117) - lu(k,644) * lu(k,1105) - lu(k,1118) = lu(k,1118) - lu(k,645) * lu(k,1105) - lu(k,1119) = lu(k,1119) - lu(k,646) * lu(k,1105) - lu(k,1120) = - lu(k,647) * lu(k,1105) - lu(k,1121) = lu(k,1121) - lu(k,648) * lu(k,1105) - lu(k,1122) = lu(k,1122) - lu(k,649) * lu(k,1105) - lu(k,1123) = lu(k,1123) - lu(k,650) * lu(k,1105) - lu(k,1124) = lu(k,1124) - lu(k,651) * lu(k,1105) - lu(k,1125) = lu(k,1125) - lu(k,652) * lu(k,1105) - lu(k,1127) = lu(k,1127) - lu(k,653) * lu(k,1105) - lu(k,1128) = lu(k,1128) - lu(k,654) * lu(k,1105) - lu(k,1130) = lu(k,1130) - lu(k,655) * lu(k,1105) - lu(k,1131) = lu(k,1131) - lu(k,656) * lu(k,1105) - lu(k,1132) = lu(k,1132) - lu(k,657) * lu(k,1105) - lu(k,1150) = lu(k,1150) - lu(k,638) * lu(k,1146) - lu(k,1151) = lu(k,1151) - lu(k,639) * lu(k,1146) - lu(k,1156) = lu(k,1156) - lu(k,640) * lu(k,1146) - lu(k,1157) = lu(k,1157) - lu(k,641) * lu(k,1146) - lu(k,1159) = lu(k,1159) - lu(k,642) * lu(k,1146) - lu(k,1160) = lu(k,1160) - lu(k,643) * lu(k,1146) - lu(k,1161) = lu(k,1161) - lu(k,644) * lu(k,1146) - lu(k,1162) = lu(k,1162) - lu(k,645) * lu(k,1146) - lu(k,1163) = lu(k,1163) - lu(k,646) * lu(k,1146) - lu(k,1164) = lu(k,1164) - lu(k,647) * lu(k,1146) - lu(k,1165) = lu(k,1165) - lu(k,648) * lu(k,1146) - lu(k,1166) = lu(k,1166) - lu(k,649) * lu(k,1146) - lu(k,1167) = lu(k,1167) - lu(k,650) * lu(k,1146) - lu(k,1168) = lu(k,1168) - lu(k,651) * lu(k,1146) - lu(k,1169) = lu(k,1169) - lu(k,652) * lu(k,1146) - lu(k,1171) = lu(k,1171) - lu(k,653) * lu(k,1146) - lu(k,1172) = lu(k,1172) - lu(k,654) * lu(k,1146) - lu(k,1174) = lu(k,1174) - lu(k,655) * lu(k,1146) - lu(k,1175) = lu(k,1175) - lu(k,656) * lu(k,1146) - lu(k,1176) = lu(k,1176) - lu(k,657) * lu(k,1146) - lu(k,1191) = lu(k,1191) - lu(k,638) * lu(k,1187) - lu(k,1192) = lu(k,1192) - lu(k,639) * lu(k,1187) - lu(k,1197) = lu(k,1197) - lu(k,640) * lu(k,1187) - lu(k,1198) = lu(k,1198) - lu(k,641) * lu(k,1187) - lu(k,1200) = lu(k,1200) - lu(k,642) * lu(k,1187) - lu(k,1201) = lu(k,1201) - lu(k,643) * lu(k,1187) - lu(k,1202) = lu(k,1202) - lu(k,644) * lu(k,1187) - lu(k,1203) = lu(k,1203) - lu(k,645) * lu(k,1187) - lu(k,1204) = lu(k,1204) - lu(k,646) * lu(k,1187) - lu(k,1205) = lu(k,1205) - lu(k,647) * lu(k,1187) - lu(k,1206) = lu(k,1206) - lu(k,648) * lu(k,1187) - lu(k,1207) = lu(k,1207) - lu(k,649) * lu(k,1187) - lu(k,1208) = lu(k,1208) - lu(k,650) * lu(k,1187) - lu(k,1209) = lu(k,1209) - lu(k,651) * lu(k,1187) - lu(k,1210) = lu(k,1210) - lu(k,652) * lu(k,1187) - lu(k,1212) = lu(k,1212) - lu(k,653) * lu(k,1187) - lu(k,1213) = lu(k,1213) - lu(k,654) * lu(k,1187) - lu(k,1215) = lu(k,1215) - lu(k,655) * lu(k,1187) - lu(k,1216) = lu(k,1216) - lu(k,656) * lu(k,1187) - lu(k,1217) = lu(k,1217) - lu(k,657) * lu(k,1187) - lu(k,1240) = lu(k,1240) - lu(k,638) * lu(k,1236) - lu(k,1241) = lu(k,1241) - lu(k,639) * lu(k,1236) - lu(k,1246) = lu(k,1246) - lu(k,640) * lu(k,1236) - lu(k,1247) = lu(k,1247) - lu(k,641) * lu(k,1236) - lu(k,1249) = lu(k,1249) - lu(k,642) * lu(k,1236) - lu(k,1250) = lu(k,1250) - lu(k,643) * lu(k,1236) - lu(k,1251) = lu(k,1251) - lu(k,644) * lu(k,1236) - lu(k,1252) = lu(k,1252) - lu(k,645) * lu(k,1236) - lu(k,1253) = lu(k,1253) - lu(k,646) * lu(k,1236) - lu(k,1254) = lu(k,1254) - lu(k,647) * lu(k,1236) - lu(k,1255) = lu(k,1255) - lu(k,648) * lu(k,1236) - lu(k,1256) = lu(k,1256) - lu(k,649) * lu(k,1236) - lu(k,1257) = lu(k,1257) - lu(k,650) * lu(k,1236) - lu(k,1258) = lu(k,1258) - lu(k,651) * lu(k,1236) - lu(k,1259) = lu(k,1259) - lu(k,652) * lu(k,1236) - lu(k,1261) = lu(k,1261) - lu(k,653) * lu(k,1236) - lu(k,1262) = lu(k,1262) - lu(k,654) * lu(k,1236) - lu(k,1264) = lu(k,1264) - lu(k,655) * lu(k,1236) - lu(k,1265) = lu(k,1265) - lu(k,656) * lu(k,1236) - lu(k,1266) = lu(k,1266) - lu(k,657) * lu(k,1236) - lu(k,1279) = lu(k,1279) - lu(k,638) * lu(k,1276) - lu(k,1280) = lu(k,1280) - lu(k,639) * lu(k,1276) - lu(k,1285) = lu(k,1285) - lu(k,640) * lu(k,1276) - lu(k,1286) = lu(k,1286) - lu(k,641) * lu(k,1276) - lu(k,1288) = lu(k,1288) - lu(k,642) * lu(k,1276) - lu(k,1289) = lu(k,1289) - lu(k,643) * lu(k,1276) - lu(k,1290) = lu(k,1290) - lu(k,644) * lu(k,1276) - lu(k,1291) = lu(k,1291) - lu(k,645) * lu(k,1276) - lu(k,1292) = lu(k,1292) - lu(k,646) * lu(k,1276) - lu(k,1293) = lu(k,1293) - lu(k,647) * lu(k,1276) - lu(k,1294) = lu(k,1294) - lu(k,648) * lu(k,1276) - lu(k,1295) = lu(k,1295) - lu(k,649) * lu(k,1276) - lu(k,1296) = lu(k,1296) - lu(k,650) * lu(k,1276) - lu(k,1297) = lu(k,1297) - lu(k,651) * lu(k,1276) - lu(k,1298) = lu(k,1298) - lu(k,652) * lu(k,1276) - lu(k,1300) = lu(k,1300) - lu(k,653) * lu(k,1276) - lu(k,1301) = lu(k,1301) - lu(k,654) * lu(k,1276) - lu(k,1303) = lu(k,1303) - lu(k,655) * lu(k,1276) - lu(k,1304) = lu(k,1304) - lu(k,656) * lu(k,1276) - lu(k,1305) = lu(k,1305) - lu(k,657) * lu(k,1276) - lu(k,1358) = lu(k,1358) - lu(k,638) * lu(k,1354) - lu(k,1359) = lu(k,1359) - lu(k,639) * lu(k,1354) - lu(k,1364) = lu(k,1364) - lu(k,640) * lu(k,1354) - lu(k,1365) = lu(k,1365) - lu(k,641) * lu(k,1354) - lu(k,1367) = lu(k,1367) - lu(k,642) * lu(k,1354) - lu(k,1368) = lu(k,1368) - lu(k,643) * lu(k,1354) - lu(k,1369) = lu(k,1369) - lu(k,644) * lu(k,1354) - lu(k,1370) = lu(k,1370) - lu(k,645) * lu(k,1354) - lu(k,1371) = lu(k,1371) - lu(k,646) * lu(k,1354) - lu(k,1372) = lu(k,1372) - lu(k,647) * lu(k,1354) - lu(k,1373) = lu(k,1373) - lu(k,648) * lu(k,1354) - lu(k,1374) = lu(k,1374) - lu(k,649) * lu(k,1354) - lu(k,1375) = lu(k,1375) - lu(k,650) * lu(k,1354) - lu(k,1376) = lu(k,1376) - lu(k,651) * lu(k,1354) - lu(k,1377) = lu(k,1377) - lu(k,652) * lu(k,1354) - lu(k,1379) = - lu(k,653) * lu(k,1354) - lu(k,1380) = lu(k,1380) - lu(k,654) * lu(k,1354) - lu(k,1382) = - lu(k,655) * lu(k,1354) - lu(k,1383) = lu(k,1383) - lu(k,656) * lu(k,1354) - lu(k,1384) = lu(k,1384) - lu(k,657) * lu(k,1354) - lu(k,1417) = lu(k,1417) - lu(k,638) * lu(k,1413) - lu(k,1418) = lu(k,1418) - lu(k,639) * lu(k,1413) - lu(k,1423) = lu(k,1423) - lu(k,640) * lu(k,1413) - lu(k,1424) = lu(k,1424) - lu(k,641) * lu(k,1413) - lu(k,1426) = lu(k,1426) - lu(k,642) * lu(k,1413) - lu(k,1427) = lu(k,1427) - lu(k,643) * lu(k,1413) - lu(k,1428) = lu(k,1428) - lu(k,644) * lu(k,1413) - lu(k,1429) = lu(k,1429) - lu(k,645) * lu(k,1413) - lu(k,1430) = lu(k,1430) - lu(k,646) * lu(k,1413) - lu(k,1431) = lu(k,1431) - lu(k,647) * lu(k,1413) - lu(k,1432) = lu(k,1432) - lu(k,648) * lu(k,1413) - lu(k,1433) = lu(k,1433) - lu(k,649) * lu(k,1413) - lu(k,1434) = lu(k,1434) - lu(k,650) * lu(k,1413) - lu(k,1435) = lu(k,1435) - lu(k,651) * lu(k,1413) - lu(k,1436) = lu(k,1436) - lu(k,652) * lu(k,1413) - lu(k,1438) = lu(k,1438) - lu(k,653) * lu(k,1413) - lu(k,1439) = lu(k,1439) - lu(k,654) * lu(k,1413) - lu(k,1441) = lu(k,1441) - lu(k,655) * lu(k,1413) - lu(k,1442) = lu(k,1442) - lu(k,656) * lu(k,1413) - lu(k,1443) = lu(k,1443) - lu(k,657) * lu(k,1413) - lu(k,1459) = lu(k,1459) - lu(k,638) * lu(k,1455) - lu(k,1460) = lu(k,1460) - lu(k,639) * lu(k,1455) - lu(k,1465) = lu(k,1465) - lu(k,640) * lu(k,1455) - lu(k,1466) = - lu(k,641) * lu(k,1455) - lu(k,1468) = lu(k,1468) - lu(k,642) * lu(k,1455) - lu(k,1469) = lu(k,1469) - lu(k,643) * lu(k,1455) - lu(k,1470) = lu(k,1470) - lu(k,644) * lu(k,1455) - lu(k,1471) = lu(k,1471) - lu(k,645) * lu(k,1455) - lu(k,1472) = lu(k,1472) - lu(k,646) * lu(k,1455) - lu(k,1473) = lu(k,1473) - lu(k,647) * lu(k,1455) - lu(k,1474) = - lu(k,648) * lu(k,1455) - lu(k,1475) = lu(k,1475) - lu(k,649) * lu(k,1455) - lu(k,1476) = lu(k,1476) - lu(k,650) * lu(k,1455) - lu(k,1477) = lu(k,1477) - lu(k,651) * lu(k,1455) - lu(k,1478) = lu(k,1478) - lu(k,652) * lu(k,1455) - lu(k,1480) = lu(k,1480) - lu(k,653) * lu(k,1455) - lu(k,1481) = lu(k,1481) - lu(k,654) * lu(k,1455) - lu(k,1483) = lu(k,1483) - lu(k,655) * lu(k,1455) - lu(k,1484) = lu(k,1484) - lu(k,656) * lu(k,1455) - lu(k,1485) = lu(k,1485) - lu(k,657) * lu(k,1455) - lu(k,1500) = lu(k,1500) - lu(k,638) * lu(k,1497) - lu(k,1501) = lu(k,1501) - lu(k,639) * lu(k,1497) - lu(k,1506) = lu(k,1506) - lu(k,640) * lu(k,1497) - lu(k,1507) = lu(k,1507) - lu(k,641) * lu(k,1497) - lu(k,1509) = lu(k,1509) - lu(k,642) * lu(k,1497) - lu(k,1510) = lu(k,1510) - lu(k,643) * lu(k,1497) - lu(k,1511) = lu(k,1511) - lu(k,644) * lu(k,1497) - lu(k,1512) = lu(k,1512) - lu(k,645) * lu(k,1497) - lu(k,1513) = lu(k,1513) - lu(k,646) * lu(k,1497) - lu(k,1514) = lu(k,1514) - lu(k,647) * lu(k,1497) - lu(k,1515) = lu(k,1515) - lu(k,648) * lu(k,1497) - lu(k,1516) = lu(k,1516) - lu(k,649) * lu(k,1497) - lu(k,1517) = lu(k,1517) - lu(k,650) * lu(k,1497) - lu(k,1518) = lu(k,1518) - lu(k,651) * lu(k,1497) - lu(k,1519) = lu(k,1519) - lu(k,652) * lu(k,1497) - lu(k,1521) = lu(k,1521) - lu(k,653) * lu(k,1497) - lu(k,1522) = lu(k,1522) - lu(k,654) * lu(k,1497) - lu(k,1524) = lu(k,1524) - lu(k,655) * lu(k,1497) - lu(k,1525) = lu(k,1525) - lu(k,656) * lu(k,1497) - lu(k,1526) = lu(k,1526) - lu(k,657) * lu(k,1497) - lu(k,1544) = lu(k,1544) - lu(k,638) * lu(k,1543) - lu(k,1545) = lu(k,1545) - lu(k,639) * lu(k,1543) - lu(k,1548) = lu(k,1548) - lu(k,640) * lu(k,1543) - lu(k,1549) = lu(k,1549) - lu(k,641) * lu(k,1543) - lu(k,1551) = - lu(k,642) * lu(k,1543) - lu(k,1552) = - lu(k,643) * lu(k,1543) - lu(k,1553) = lu(k,1553) - lu(k,644) * lu(k,1543) - lu(k,1554) = lu(k,1554) - lu(k,645) * lu(k,1543) - lu(k,1555) = - lu(k,646) * lu(k,1543) - lu(k,1556) = lu(k,1556) - lu(k,647) * lu(k,1543) - lu(k,1557) = lu(k,1557) - lu(k,648) * lu(k,1543) - lu(k,1558) = lu(k,1558) - lu(k,649) * lu(k,1543) - lu(k,1559) = - lu(k,650) * lu(k,1543) - lu(k,1560) = lu(k,1560) - lu(k,651) * lu(k,1543) - lu(k,1561) = lu(k,1561) - lu(k,652) * lu(k,1543) - lu(k,1563) = - lu(k,653) * lu(k,1543) - lu(k,1564) = lu(k,1564) - lu(k,654) * lu(k,1543) - lu(k,1566) = - lu(k,655) * lu(k,1543) - lu(k,1567) = lu(k,1567) - lu(k,656) * lu(k,1543) - lu(k,1568) = lu(k,1568) - lu(k,657) * lu(k,1543) - lu(k,1651) = lu(k,1651) - lu(k,638) * lu(k,1648) - lu(k,1652) = lu(k,1652) - lu(k,639) * lu(k,1648) - lu(k,1657) = lu(k,1657) - lu(k,640) * lu(k,1648) - lu(k,1658) = lu(k,1658) - lu(k,641) * lu(k,1648) - lu(k,1660) = lu(k,1660) - lu(k,642) * lu(k,1648) - lu(k,1661) = lu(k,1661) - lu(k,643) * lu(k,1648) - lu(k,1662) = lu(k,1662) - lu(k,644) * lu(k,1648) - lu(k,1663) = lu(k,1663) - lu(k,645) * lu(k,1648) - lu(k,1664) = lu(k,1664) - lu(k,646) * lu(k,1648) - lu(k,1665) = lu(k,1665) - lu(k,647) * lu(k,1648) - lu(k,1666) = lu(k,1666) - lu(k,648) * lu(k,1648) - lu(k,1667) = lu(k,1667) - lu(k,649) * lu(k,1648) - lu(k,1668) = lu(k,1668) - lu(k,650) * lu(k,1648) - lu(k,1669) = lu(k,1669) - lu(k,651) * lu(k,1648) - lu(k,1670) = lu(k,1670) - lu(k,652) * lu(k,1648) - lu(k,1672) = lu(k,1672) - lu(k,653) * lu(k,1648) - lu(k,1673) = lu(k,1673) - lu(k,654) * lu(k,1648) - lu(k,1675) = lu(k,1675) - lu(k,655) * lu(k,1648) - lu(k,1676) = lu(k,1676) - lu(k,656) * lu(k,1648) - lu(k,1677) = lu(k,1677) - lu(k,657) * lu(k,1648) - lu(k,1737) = lu(k,1737) - lu(k,638) * lu(k,1733) - lu(k,1738) = lu(k,1738) - lu(k,639) * lu(k,1733) - lu(k,1743) = lu(k,1743) - lu(k,640) * lu(k,1733) - lu(k,1744) = - lu(k,641) * lu(k,1733) - lu(k,1746) = lu(k,1746) - lu(k,642) * lu(k,1733) - lu(k,1747) = lu(k,1747) - lu(k,643) * lu(k,1733) - lu(k,1748) = lu(k,1748) - lu(k,644) * lu(k,1733) - lu(k,1749) = lu(k,1749) - lu(k,645) * lu(k,1733) - lu(k,1750) = lu(k,1750) - lu(k,646) * lu(k,1733) - lu(k,1751) = lu(k,1751) - lu(k,647) * lu(k,1733) - lu(k,1752) = - lu(k,648) * lu(k,1733) - lu(k,1753) = lu(k,1753) - lu(k,649) * lu(k,1733) - lu(k,1754) = lu(k,1754) - lu(k,650) * lu(k,1733) - lu(k,1755) = lu(k,1755) - lu(k,651) * lu(k,1733) - lu(k,1756) = lu(k,1756) - lu(k,652) * lu(k,1733) - lu(k,1758) = lu(k,1758) - lu(k,653) * lu(k,1733) - lu(k,1759) = lu(k,1759) - lu(k,654) * lu(k,1733) - lu(k,1761) = lu(k,1761) - lu(k,655) * lu(k,1733) - lu(k,1762) = lu(k,1762) - lu(k,656) * lu(k,1733) - lu(k,1763) = lu(k,1763) - lu(k,657) * lu(k,1733) - lu(k,1772) = lu(k,1772) - lu(k,638) * lu(k,1768) - lu(k,1773) = lu(k,1773) - lu(k,639) * lu(k,1768) - lu(k,1778) = lu(k,1778) - lu(k,640) * lu(k,1768) - lu(k,1779) = lu(k,1779) - lu(k,641) * lu(k,1768) - lu(k,1781) = lu(k,1781) - lu(k,642) * lu(k,1768) - lu(k,1782) = lu(k,1782) - lu(k,643) * lu(k,1768) - lu(k,1783) = lu(k,1783) - lu(k,644) * lu(k,1768) - lu(k,1784) = lu(k,1784) - lu(k,645) * lu(k,1768) - lu(k,1785) = lu(k,1785) - lu(k,646) * lu(k,1768) - lu(k,1786) = lu(k,1786) - lu(k,647) * lu(k,1768) - lu(k,1787) = - lu(k,648) * lu(k,1768) - lu(k,1788) = lu(k,1788) - lu(k,649) * lu(k,1768) - lu(k,1789) = lu(k,1789) - lu(k,650) * lu(k,1768) - lu(k,1790) = lu(k,1790) - lu(k,651) * lu(k,1768) - lu(k,1791) = lu(k,1791) - lu(k,652) * lu(k,1768) - lu(k,1793) = lu(k,1793) - lu(k,653) * lu(k,1768) - lu(k,1794) = lu(k,1794) - lu(k,654) * lu(k,1768) - lu(k,1796) = lu(k,1796) - lu(k,655) * lu(k,1768) - lu(k,1797) = lu(k,1797) - lu(k,656) * lu(k,1768) - lu(k,1798) = lu(k,1798) - lu(k,657) * lu(k,1768) - lu(k,1830) = lu(k,1830) - lu(k,638) * lu(k,1827) - lu(k,1831) = lu(k,1831) - lu(k,639) * lu(k,1827) - lu(k,1836) = lu(k,1836) - lu(k,640) * lu(k,1827) - lu(k,1837) = lu(k,1837) - lu(k,641) * lu(k,1827) - lu(k,1839) = lu(k,1839) - lu(k,642) * lu(k,1827) - lu(k,1840) = lu(k,1840) - lu(k,643) * lu(k,1827) - lu(k,1841) = lu(k,1841) - lu(k,644) * lu(k,1827) - lu(k,1842) = lu(k,1842) - lu(k,645) * lu(k,1827) - lu(k,1843) = lu(k,1843) - lu(k,646) * lu(k,1827) - lu(k,1844) = lu(k,1844) - lu(k,647) * lu(k,1827) - lu(k,1845) = lu(k,1845) - lu(k,648) * lu(k,1827) - lu(k,1846) = lu(k,1846) - lu(k,649) * lu(k,1827) - lu(k,1847) = lu(k,1847) - lu(k,650) * lu(k,1827) - lu(k,1848) = lu(k,1848) - lu(k,651) * lu(k,1827) - lu(k,1849) = lu(k,1849) - lu(k,652) * lu(k,1827) - lu(k,1851) = lu(k,1851) - lu(k,653) * lu(k,1827) - lu(k,1852) = lu(k,1852) - lu(k,654) * lu(k,1827) - lu(k,1854) = lu(k,1854) - lu(k,655) * lu(k,1827) - lu(k,1855) = lu(k,1855) - lu(k,656) * lu(k,1827) - lu(k,1856) = lu(k,1856) - lu(k,657) * lu(k,1827) - lu(k,660) = 1._r8 / lu(k,660) - lu(k,661) = lu(k,661) * lu(k,660) - lu(k,662) = lu(k,662) * lu(k,660) - lu(k,663) = lu(k,663) * lu(k,660) - lu(k,664) = lu(k,664) * lu(k,660) - lu(k,665) = lu(k,665) * lu(k,660) - lu(k,666) = lu(k,666) * lu(k,660) - lu(k,667) = lu(k,667) * lu(k,660) - lu(k,668) = lu(k,668) * lu(k,660) - lu(k,669) = lu(k,669) * lu(k,660) - lu(k,670) = lu(k,670) * lu(k,660) - lu(k,671) = lu(k,671) * lu(k,660) - lu(k,672) = lu(k,672) * lu(k,660) - lu(k,673) = lu(k,673) * lu(k,660) - lu(k,674) = lu(k,674) * lu(k,660) - lu(k,675) = lu(k,675) * lu(k,660) - lu(k,676) = lu(k,676) * lu(k,660) - lu(k,677) = lu(k,677) * lu(k,660) - lu(k,678) = lu(k,678) * lu(k,660) - lu(k,679) = lu(k,679) * lu(k,660) - lu(k,680) = lu(k,680) * lu(k,660) - lu(k,681) = lu(k,681) * lu(k,660) - lu(k,682) = lu(k,682) * lu(k,660) - lu(k,683) = lu(k,683) * lu(k,660) - lu(k,684) = lu(k,684) * lu(k,660) - lu(k,685) = lu(k,685) * lu(k,660) - lu(k,686) = lu(k,686) * lu(k,660) - lu(k,687) = lu(k,687) * lu(k,660) - lu(k,894) = lu(k,894) - lu(k,661) * lu(k,893) - lu(k,895) = lu(k,895) - lu(k,662) * lu(k,893) - lu(k,896) = lu(k,896) - lu(k,663) * lu(k,893) - lu(k,897) = lu(k,897) - lu(k,664) * lu(k,893) - lu(k,898) = lu(k,898) - lu(k,665) * lu(k,893) - lu(k,899) = lu(k,899) - lu(k,666) * lu(k,893) - lu(k,900) = lu(k,900) - lu(k,667) * lu(k,893) - lu(k,901) = lu(k,901) - lu(k,668) * lu(k,893) - lu(k,902) = lu(k,902) - lu(k,669) * lu(k,893) - lu(k,903) = lu(k,903) - lu(k,670) * lu(k,893) - lu(k,904) = lu(k,904) - lu(k,671) * lu(k,893) - lu(k,906) = lu(k,906) - lu(k,672) * lu(k,893) - lu(k,907) = lu(k,907) - lu(k,673) * lu(k,893) - lu(k,908) = lu(k,908) - lu(k,674) * lu(k,893) - lu(k,910) = lu(k,910) - lu(k,675) * lu(k,893) - lu(k,911) = lu(k,911) - lu(k,676) * lu(k,893) - lu(k,912) = lu(k,912) - lu(k,677) * lu(k,893) - lu(k,913) = lu(k,913) - lu(k,678) * lu(k,893) - lu(k,914) = lu(k,914) - lu(k,679) * lu(k,893) - lu(k,915) = lu(k,915) - lu(k,680) * lu(k,893) - lu(k,916) = lu(k,916) - lu(k,681) * lu(k,893) - lu(k,917) = lu(k,917) - lu(k,682) * lu(k,893) - lu(k,918) = lu(k,918) - lu(k,683) * lu(k,893) - lu(k,919) = lu(k,919) - lu(k,684) * lu(k,893) - lu(k,920) = lu(k,920) - lu(k,685) * lu(k,893) - lu(k,921) = lu(k,921) - lu(k,686) * lu(k,893) - lu(k,922) = lu(k,922) - lu(k,687) * lu(k,893) - lu(k,936) = lu(k,936) - lu(k,661) * lu(k,935) - lu(k,937) = lu(k,937) - lu(k,662) * lu(k,935) - lu(k,938) = - lu(k,663) * lu(k,935) - lu(k,939) = lu(k,939) - lu(k,664) * lu(k,935) - lu(k,940) = lu(k,940) - lu(k,665) * lu(k,935) - lu(k,941) = lu(k,941) - lu(k,666) * lu(k,935) - lu(k,942) = lu(k,942) - lu(k,667) * lu(k,935) - lu(k,943) = lu(k,943) - lu(k,668) * lu(k,935) - lu(k,944) = lu(k,944) - lu(k,669) * lu(k,935) - lu(k,945) = lu(k,945) - lu(k,670) * lu(k,935) - lu(k,946) = lu(k,946) - lu(k,671) * lu(k,935) - lu(k,948) = lu(k,948) - lu(k,672) * lu(k,935) - lu(k,949) = - lu(k,673) * lu(k,935) - lu(k,950) = lu(k,950) - lu(k,674) * lu(k,935) - lu(k,952) = lu(k,952) - lu(k,675) * lu(k,935) - lu(k,953) = lu(k,953) - lu(k,676) * lu(k,935) - lu(k,954) = lu(k,954) - lu(k,677) * lu(k,935) - lu(k,955) = lu(k,955) - lu(k,678) * lu(k,935) - lu(k,956) = lu(k,956) - lu(k,679) * lu(k,935) - lu(k,957) = lu(k,957) - lu(k,680) * lu(k,935) - lu(k,958) = lu(k,958) - lu(k,681) * lu(k,935) - lu(k,959) = - lu(k,682) * lu(k,935) - lu(k,960) = - lu(k,683) * lu(k,935) - lu(k,961) = lu(k,961) - lu(k,684) * lu(k,935) - lu(k,962) = - lu(k,685) * lu(k,935) - lu(k,963) = lu(k,963) - lu(k,686) * lu(k,935) - lu(k,964) = lu(k,964) - lu(k,687) * lu(k,935) - lu(k,1024) = lu(k,1024) - lu(k,661) * lu(k,1023) - lu(k,1025) = lu(k,1025) - lu(k,662) * lu(k,1023) - lu(k,1026) = - lu(k,663) * lu(k,1023) - lu(k,1027) = lu(k,1027) - lu(k,664) * lu(k,1023) - lu(k,1028) = lu(k,1028) - lu(k,665) * lu(k,1023) - lu(k,1029) = lu(k,1029) - lu(k,666) * lu(k,1023) - lu(k,1030) = lu(k,1030) - lu(k,667) * lu(k,1023) - lu(k,1031) = lu(k,1031) - lu(k,668) * lu(k,1023) - lu(k,1032) = lu(k,1032) - lu(k,669) * lu(k,1023) - lu(k,1033) = lu(k,1033) - lu(k,670) * lu(k,1023) - lu(k,1034) = lu(k,1034) - lu(k,671) * lu(k,1023) - lu(k,1036) = lu(k,1036) - lu(k,672) * lu(k,1023) - lu(k,1037) = - lu(k,673) * lu(k,1023) - lu(k,1038) = lu(k,1038) - lu(k,674) * lu(k,1023) - lu(k,1040) = lu(k,1040) - lu(k,675) * lu(k,1023) - lu(k,1041) = lu(k,1041) - lu(k,676) * lu(k,1023) - lu(k,1042) = lu(k,1042) - lu(k,677) * lu(k,1023) - lu(k,1043) = lu(k,1043) - lu(k,678) * lu(k,1023) - lu(k,1044) = lu(k,1044) - lu(k,679) * lu(k,1023) - lu(k,1045) = lu(k,1045) - lu(k,680) * lu(k,1023) - lu(k,1046) = lu(k,1046) - lu(k,681) * lu(k,1023) - lu(k,1047) = - lu(k,682) * lu(k,1023) - lu(k,1048) = - lu(k,683) * lu(k,1023) - lu(k,1049) = lu(k,1049) - lu(k,684) * lu(k,1023) - lu(k,1050) = - lu(k,685) * lu(k,1023) - lu(k,1051) = lu(k,1051) - lu(k,686) * lu(k,1023) - lu(k,1052) = lu(k,1052) - lu(k,687) * lu(k,1023) - lu(k,1065) = lu(k,1065) - lu(k,661) * lu(k,1064) - lu(k,1066) = lu(k,1066) - lu(k,662) * lu(k,1064) - lu(k,1067) = lu(k,1067) - lu(k,663) * lu(k,1064) - lu(k,1068) = lu(k,1068) - lu(k,664) * lu(k,1064) - lu(k,1069) = lu(k,1069) - lu(k,665) * lu(k,1064) - lu(k,1070) = lu(k,1070) - lu(k,666) * lu(k,1064) - lu(k,1071) = lu(k,1071) - lu(k,667) * lu(k,1064) - lu(k,1072) = lu(k,1072) - lu(k,668) * lu(k,1064) - lu(k,1073) = lu(k,1073) - lu(k,669) * lu(k,1064) - lu(k,1074) = lu(k,1074) - lu(k,670) * lu(k,1064) - lu(k,1075) = lu(k,1075) - lu(k,671) * lu(k,1064) - lu(k,1077) = lu(k,1077) - lu(k,672) * lu(k,1064) - lu(k,1078) = - lu(k,673) * lu(k,1064) - lu(k,1079) = lu(k,1079) - lu(k,674) * lu(k,1064) - lu(k,1081) = lu(k,1081) - lu(k,675) * lu(k,1064) - lu(k,1082) = lu(k,1082) - lu(k,676) * lu(k,1064) - lu(k,1083) = lu(k,1083) - lu(k,677) * lu(k,1064) - lu(k,1084) = lu(k,1084) - lu(k,678) * lu(k,1064) - lu(k,1085) = lu(k,1085) - lu(k,679) * lu(k,1064) - lu(k,1086) = lu(k,1086) - lu(k,680) * lu(k,1064) - lu(k,1087) = lu(k,1087) - lu(k,681) * lu(k,1064) - lu(k,1088) = - lu(k,682) * lu(k,1064) - lu(k,1089) = - lu(k,683) * lu(k,1064) - lu(k,1090) = lu(k,1090) - lu(k,684) * lu(k,1064) - lu(k,1091) = - lu(k,685) * lu(k,1064) - lu(k,1092) = lu(k,1092) - lu(k,686) * lu(k,1064) - lu(k,1093) = lu(k,1093) - lu(k,687) * lu(k,1064) - lu(k,1148) = lu(k,1148) - lu(k,661) * lu(k,1147) - lu(k,1149) = lu(k,1149) - lu(k,662) * lu(k,1147) - lu(k,1150) = lu(k,1150) - lu(k,663) * lu(k,1147) - lu(k,1151) = lu(k,1151) - lu(k,664) * lu(k,1147) - lu(k,1152) = - lu(k,665) * lu(k,1147) - lu(k,1153) = lu(k,1153) - lu(k,666) * lu(k,1147) - lu(k,1154) = lu(k,1154) - lu(k,667) * lu(k,1147) - lu(k,1155) = lu(k,1155) - lu(k,668) * lu(k,1147) - lu(k,1156) = lu(k,1156) - lu(k,669) * lu(k,1147) - lu(k,1157) = lu(k,1157) - lu(k,670) * lu(k,1147) - lu(k,1158) = lu(k,1158) - lu(k,671) * lu(k,1147) - lu(k,1160) = lu(k,1160) - lu(k,672) * lu(k,1147) - lu(k,1161) = lu(k,1161) - lu(k,673) * lu(k,1147) - lu(k,1162) = lu(k,1162) - lu(k,674) * lu(k,1147) - lu(k,1164) = lu(k,1164) - lu(k,675) * lu(k,1147) - lu(k,1165) = lu(k,1165) - lu(k,676) * lu(k,1147) - lu(k,1166) = lu(k,1166) - lu(k,677) * lu(k,1147) - lu(k,1167) = lu(k,1167) - lu(k,678) * lu(k,1147) - lu(k,1168) = lu(k,1168) - lu(k,679) * lu(k,1147) - lu(k,1169) = lu(k,1169) - lu(k,680) * lu(k,1147) - lu(k,1170) = lu(k,1170) - lu(k,681) * lu(k,1147) - lu(k,1171) = lu(k,1171) - lu(k,682) * lu(k,1147) - lu(k,1172) = lu(k,1172) - lu(k,683) * lu(k,1147) - lu(k,1173) = lu(k,1173) - lu(k,684) * lu(k,1147) - lu(k,1174) = lu(k,1174) - lu(k,685) * lu(k,1147) - lu(k,1175) = lu(k,1175) - lu(k,686) * lu(k,1147) - lu(k,1176) = lu(k,1176) - lu(k,687) * lu(k,1147) - lu(k,1189) = - lu(k,661) * lu(k,1188) - lu(k,1190) = lu(k,1190) - lu(k,662) * lu(k,1188) - lu(k,1191) = lu(k,1191) - lu(k,663) * lu(k,1188) - lu(k,1192) = lu(k,1192) - lu(k,664) * lu(k,1188) - lu(k,1193) = lu(k,1193) - lu(k,665) * lu(k,1188) - lu(k,1194) = lu(k,1194) - lu(k,666) * lu(k,1188) - lu(k,1195) = - lu(k,667) * lu(k,1188) - lu(k,1196) = - lu(k,668) * lu(k,1188) - lu(k,1197) = lu(k,1197) - lu(k,669) * lu(k,1188) - lu(k,1198) = lu(k,1198) - lu(k,670) * lu(k,1188) - lu(k,1199) = - lu(k,671) * lu(k,1188) - lu(k,1201) = lu(k,1201) - lu(k,672) * lu(k,1188) - lu(k,1202) = lu(k,1202) - lu(k,673) * lu(k,1188) - lu(k,1203) = lu(k,1203) - lu(k,674) * lu(k,1188) - lu(k,1205) = lu(k,1205) - lu(k,675) * lu(k,1188) - lu(k,1206) = lu(k,1206) - lu(k,676) * lu(k,1188) - lu(k,1207) = lu(k,1207) - lu(k,677) * lu(k,1188) - lu(k,1208) = lu(k,1208) - lu(k,678) * lu(k,1188) - lu(k,1209) = lu(k,1209) - lu(k,679) * lu(k,1188) - lu(k,1210) = lu(k,1210) - lu(k,680) * lu(k,1188) - lu(k,1211) = - lu(k,681) * lu(k,1188) - lu(k,1212) = lu(k,1212) - lu(k,682) * lu(k,1188) - lu(k,1213) = lu(k,1213) - lu(k,683) * lu(k,1188) - lu(k,1214) = - lu(k,684) * lu(k,1188) - lu(k,1215) = lu(k,1215) - lu(k,685) * lu(k,1188) - lu(k,1216) = lu(k,1216) - lu(k,686) * lu(k,1188) - lu(k,1217) = lu(k,1217) - lu(k,687) * lu(k,1188) - lu(k,1238) = - lu(k,661) * lu(k,1237) - lu(k,1239) = lu(k,1239) - lu(k,662) * lu(k,1237) - lu(k,1240) = lu(k,1240) - lu(k,663) * lu(k,1237) - lu(k,1241) = lu(k,1241) - lu(k,664) * lu(k,1237) - lu(k,1242) = lu(k,1242) - lu(k,665) * lu(k,1237) - lu(k,1243) = lu(k,1243) - lu(k,666) * lu(k,1237) - lu(k,1244) = lu(k,1244) - lu(k,667) * lu(k,1237) - lu(k,1245) = - lu(k,668) * lu(k,1237) - lu(k,1246) = lu(k,1246) - lu(k,669) * lu(k,1237) - lu(k,1247) = lu(k,1247) - lu(k,670) * lu(k,1237) - lu(k,1248) = - lu(k,671) * lu(k,1237) - lu(k,1250) = lu(k,1250) - lu(k,672) * lu(k,1237) - lu(k,1251) = lu(k,1251) - lu(k,673) * lu(k,1237) - lu(k,1252) = lu(k,1252) - lu(k,674) * lu(k,1237) - lu(k,1254) = lu(k,1254) - lu(k,675) * lu(k,1237) - lu(k,1255) = lu(k,1255) - lu(k,676) * lu(k,1237) - lu(k,1256) = lu(k,1256) - lu(k,677) * lu(k,1237) - lu(k,1257) = lu(k,1257) - lu(k,678) * lu(k,1237) - lu(k,1258) = lu(k,1258) - lu(k,679) * lu(k,1237) - lu(k,1259) = lu(k,1259) - lu(k,680) * lu(k,1237) - lu(k,1260) = - lu(k,681) * lu(k,1237) - lu(k,1261) = lu(k,1261) - lu(k,682) * lu(k,1237) - lu(k,1262) = lu(k,1262) - lu(k,683) * lu(k,1237) - lu(k,1263) = - lu(k,684) * lu(k,1237) - lu(k,1264) = lu(k,1264) - lu(k,685) * lu(k,1237) - lu(k,1265) = lu(k,1265) - lu(k,686) * lu(k,1237) - lu(k,1266) = lu(k,1266) - lu(k,687) * lu(k,1237) - lu(k,1312) = lu(k,1312) - lu(k,661) * lu(k,1311) - lu(k,1313) = lu(k,1313) - lu(k,662) * lu(k,1311) - lu(k,1314) = lu(k,1314) - lu(k,663) * lu(k,1311) - lu(k,1315) = lu(k,1315) - lu(k,664) * lu(k,1311) - lu(k,1316) = lu(k,1316) - lu(k,665) * lu(k,1311) - lu(k,1317) = lu(k,1317) - lu(k,666) * lu(k,1311) - lu(k,1318) = lu(k,1318) - lu(k,667) * lu(k,1311) - lu(k,1319) = lu(k,1319) - lu(k,668) * lu(k,1311) - lu(k,1320) = lu(k,1320) - lu(k,669) * lu(k,1311) - lu(k,1321) = lu(k,1321) - lu(k,670) * lu(k,1311) - lu(k,1322) = lu(k,1322) - lu(k,671) * lu(k,1311) - lu(k,1324) = lu(k,1324) - lu(k,672) * lu(k,1311) - lu(k,1325) = lu(k,1325) - lu(k,673) * lu(k,1311) - lu(k,1326) = lu(k,1326) - lu(k,674) * lu(k,1311) - lu(k,1328) = lu(k,1328) - lu(k,675) * lu(k,1311) - lu(k,1329) = lu(k,1329) - lu(k,676) * lu(k,1311) - lu(k,1330) = lu(k,1330) - lu(k,677) * lu(k,1311) - lu(k,1331) = lu(k,1331) - lu(k,678) * lu(k,1311) - lu(k,1332) = lu(k,1332) - lu(k,679) * lu(k,1311) - lu(k,1333) = lu(k,1333) - lu(k,680) * lu(k,1311) - lu(k,1334) = lu(k,1334) - lu(k,681) * lu(k,1311) - lu(k,1335) = lu(k,1335) - lu(k,682) * lu(k,1311) - lu(k,1336) = lu(k,1336) - lu(k,683) * lu(k,1311) - lu(k,1337) = lu(k,1337) - lu(k,684) * lu(k,1311) - lu(k,1338) = lu(k,1338) - lu(k,685) * lu(k,1311) - lu(k,1339) = lu(k,1339) - lu(k,686) * lu(k,1311) - lu(k,1340) = lu(k,1340) - lu(k,687) * lu(k,1311) - lu(k,1356) = lu(k,1356) - lu(k,661) * lu(k,1355) - lu(k,1357) = lu(k,1357) - lu(k,662) * lu(k,1355) - lu(k,1358) = lu(k,1358) - lu(k,663) * lu(k,1355) - lu(k,1359) = lu(k,1359) - lu(k,664) * lu(k,1355) - lu(k,1360) = lu(k,1360) - lu(k,665) * lu(k,1355) - lu(k,1361) = lu(k,1361) - lu(k,666) * lu(k,1355) - lu(k,1362) = lu(k,1362) - lu(k,667) * lu(k,1355) - lu(k,1363) = lu(k,1363) - lu(k,668) * lu(k,1355) - lu(k,1364) = lu(k,1364) - lu(k,669) * lu(k,1355) - lu(k,1365) = lu(k,1365) - lu(k,670) * lu(k,1355) - lu(k,1366) = lu(k,1366) - lu(k,671) * lu(k,1355) - lu(k,1368) = lu(k,1368) - lu(k,672) * lu(k,1355) - lu(k,1369) = lu(k,1369) - lu(k,673) * lu(k,1355) - lu(k,1370) = lu(k,1370) - lu(k,674) * lu(k,1355) - lu(k,1372) = lu(k,1372) - lu(k,675) * lu(k,1355) - lu(k,1373) = lu(k,1373) - lu(k,676) * lu(k,1355) - lu(k,1374) = lu(k,1374) - lu(k,677) * lu(k,1355) - lu(k,1375) = lu(k,1375) - lu(k,678) * lu(k,1355) - lu(k,1376) = lu(k,1376) - lu(k,679) * lu(k,1355) - lu(k,1377) = lu(k,1377) - lu(k,680) * lu(k,1355) - lu(k,1378) = lu(k,1378) - lu(k,681) * lu(k,1355) - lu(k,1379) = lu(k,1379) - lu(k,682) * lu(k,1355) - lu(k,1380) = lu(k,1380) - lu(k,683) * lu(k,1355) - lu(k,1381) = lu(k,1381) - lu(k,684) * lu(k,1355) - lu(k,1382) = lu(k,1382) - lu(k,685) * lu(k,1355) - lu(k,1383) = lu(k,1383) - lu(k,686) * lu(k,1355) - lu(k,1384) = lu(k,1384) - lu(k,687) * lu(k,1355) - lu(k,1415) = lu(k,1415) - lu(k,661) * lu(k,1414) - lu(k,1416) = lu(k,1416) - lu(k,662) * lu(k,1414) - lu(k,1417) = lu(k,1417) - lu(k,663) * lu(k,1414) - lu(k,1418) = lu(k,1418) - lu(k,664) * lu(k,1414) - lu(k,1419) = lu(k,1419) - lu(k,665) * lu(k,1414) - lu(k,1420) = lu(k,1420) - lu(k,666) * lu(k,1414) - lu(k,1421) = lu(k,1421) - lu(k,667) * lu(k,1414) - lu(k,1422) = - lu(k,668) * lu(k,1414) - lu(k,1423) = lu(k,1423) - lu(k,669) * lu(k,1414) - lu(k,1424) = lu(k,1424) - lu(k,670) * lu(k,1414) - lu(k,1425) = - lu(k,671) * lu(k,1414) - lu(k,1427) = lu(k,1427) - lu(k,672) * lu(k,1414) - lu(k,1428) = lu(k,1428) - lu(k,673) * lu(k,1414) - lu(k,1429) = lu(k,1429) - lu(k,674) * lu(k,1414) - lu(k,1431) = lu(k,1431) - lu(k,675) * lu(k,1414) - lu(k,1432) = lu(k,1432) - lu(k,676) * lu(k,1414) - lu(k,1433) = lu(k,1433) - lu(k,677) * lu(k,1414) - lu(k,1434) = lu(k,1434) - lu(k,678) * lu(k,1414) - lu(k,1435) = lu(k,1435) - lu(k,679) * lu(k,1414) - lu(k,1436) = lu(k,1436) - lu(k,680) * lu(k,1414) - lu(k,1437) = - lu(k,681) * lu(k,1414) - lu(k,1438) = lu(k,1438) - lu(k,682) * lu(k,1414) - lu(k,1439) = lu(k,1439) - lu(k,683) * lu(k,1414) - lu(k,1440) = - lu(k,684) * lu(k,1414) - lu(k,1441) = lu(k,1441) - lu(k,685) * lu(k,1414) - lu(k,1442) = lu(k,1442) - lu(k,686) * lu(k,1414) - lu(k,1443) = lu(k,1443) - lu(k,687) * lu(k,1414) - lu(k,1457) = lu(k,1457) - lu(k,661) * lu(k,1456) - lu(k,1458) = - lu(k,662) * lu(k,1456) - lu(k,1459) = lu(k,1459) - lu(k,663) * lu(k,1456) - lu(k,1460) = lu(k,1460) - lu(k,664) * lu(k,1456) - lu(k,1461) = lu(k,1461) - lu(k,665) * lu(k,1456) - lu(k,1462) = lu(k,1462) - lu(k,666) * lu(k,1456) - lu(k,1463) = - lu(k,667) * lu(k,1456) - lu(k,1464) = - lu(k,668) * lu(k,1456) - lu(k,1465) = lu(k,1465) - lu(k,669) * lu(k,1456) - lu(k,1466) = lu(k,1466) - lu(k,670) * lu(k,1456) - lu(k,1467) = - lu(k,671) * lu(k,1456) - lu(k,1469) = lu(k,1469) - lu(k,672) * lu(k,1456) - lu(k,1470) = lu(k,1470) - lu(k,673) * lu(k,1456) - lu(k,1471) = lu(k,1471) - lu(k,674) * lu(k,1456) - lu(k,1473) = lu(k,1473) - lu(k,675) * lu(k,1456) - lu(k,1474) = lu(k,1474) - lu(k,676) * lu(k,1456) - lu(k,1475) = lu(k,1475) - lu(k,677) * lu(k,1456) - lu(k,1476) = lu(k,1476) - lu(k,678) * lu(k,1456) - lu(k,1477) = lu(k,1477) - lu(k,679) * lu(k,1456) - lu(k,1478) = lu(k,1478) - lu(k,680) * lu(k,1456) - lu(k,1479) = - lu(k,681) * lu(k,1456) - lu(k,1480) = lu(k,1480) - lu(k,682) * lu(k,1456) - lu(k,1481) = lu(k,1481) - lu(k,683) * lu(k,1456) - lu(k,1482) = - lu(k,684) * lu(k,1456) - lu(k,1483) = lu(k,1483) - lu(k,685) * lu(k,1456) - lu(k,1484) = lu(k,1484) - lu(k,686) * lu(k,1456) - lu(k,1485) = lu(k,1485) - lu(k,687) * lu(k,1456) - lu(k,1582) = lu(k,1582) - lu(k,661) * lu(k,1581) - lu(k,1583) = lu(k,1583) - lu(k,662) * lu(k,1581) - lu(k,1584) = - lu(k,663) * lu(k,1581) - lu(k,1585) = lu(k,1585) - lu(k,664) * lu(k,1581) - lu(k,1586) = lu(k,1586) - lu(k,665) * lu(k,1581) - lu(k,1587) = lu(k,1587) - lu(k,666) * lu(k,1581) - lu(k,1588) = lu(k,1588) - lu(k,667) * lu(k,1581) - lu(k,1589) = lu(k,1589) - lu(k,668) * lu(k,1581) - lu(k,1590) = lu(k,1590) - lu(k,669) * lu(k,1581) - lu(k,1591) = lu(k,1591) - lu(k,670) * lu(k,1581) - lu(k,1592) = lu(k,1592) - lu(k,671) * lu(k,1581) - lu(k,1594) = lu(k,1594) - lu(k,672) * lu(k,1581) - lu(k,1595) = - lu(k,673) * lu(k,1581) - lu(k,1596) = lu(k,1596) - lu(k,674) * lu(k,1581) - lu(k,1598) = lu(k,1598) - lu(k,675) * lu(k,1581) - lu(k,1599) = lu(k,1599) - lu(k,676) * lu(k,1581) - lu(k,1600) = lu(k,1600) - lu(k,677) * lu(k,1581) - lu(k,1601) = lu(k,1601) - lu(k,678) * lu(k,1581) - lu(k,1602) = lu(k,1602) - lu(k,679) * lu(k,1581) - lu(k,1603) = lu(k,1603) - lu(k,680) * lu(k,1581) - lu(k,1604) = lu(k,1604) - lu(k,681) * lu(k,1581) - lu(k,1605) = - lu(k,682) * lu(k,1581) - lu(k,1606) = - lu(k,683) * lu(k,1581) - lu(k,1607) = lu(k,1607) - lu(k,684) * lu(k,1581) - lu(k,1608) = - lu(k,685) * lu(k,1581) - lu(k,1609) = lu(k,1609) - lu(k,686) * lu(k,1581) - lu(k,1610) = lu(k,1610) - lu(k,687) * lu(k,1581) - lu(k,1691) = lu(k,1691) - lu(k,661) * lu(k,1690) - lu(k,1692) = lu(k,1692) - lu(k,662) * lu(k,1690) - lu(k,1693) = - lu(k,663) * lu(k,1690) - lu(k,1694) = lu(k,1694) - lu(k,664) * lu(k,1690) - lu(k,1695) = lu(k,1695) - lu(k,665) * lu(k,1690) - lu(k,1696) = lu(k,1696) - lu(k,666) * lu(k,1690) - lu(k,1697) = lu(k,1697) - lu(k,667) * lu(k,1690) - lu(k,1698) = lu(k,1698) - lu(k,668) * lu(k,1690) - lu(k,1699) = lu(k,1699) - lu(k,669) * lu(k,1690) - lu(k,1700) = lu(k,1700) - lu(k,670) * lu(k,1690) - lu(k,1701) = lu(k,1701) - lu(k,671) * lu(k,1690) - lu(k,1703) = lu(k,1703) - lu(k,672) * lu(k,1690) - lu(k,1704) = - lu(k,673) * lu(k,1690) - lu(k,1705) = lu(k,1705) - lu(k,674) * lu(k,1690) - lu(k,1707) = lu(k,1707) - lu(k,675) * lu(k,1690) - lu(k,1708) = lu(k,1708) - lu(k,676) * lu(k,1690) - lu(k,1709) = lu(k,1709) - lu(k,677) * lu(k,1690) - lu(k,1710) = lu(k,1710) - lu(k,678) * lu(k,1690) - lu(k,1711) = lu(k,1711) - lu(k,679) * lu(k,1690) - lu(k,1712) = lu(k,1712) - lu(k,680) * lu(k,1690) - lu(k,1713) = lu(k,1713) - lu(k,681) * lu(k,1690) - lu(k,1714) = - lu(k,682) * lu(k,1690) - lu(k,1715) = - lu(k,683) * lu(k,1690) - lu(k,1716) = lu(k,1716) - lu(k,684) * lu(k,1690) - lu(k,1717) = - lu(k,685) * lu(k,1690) - lu(k,1718) = lu(k,1718) - lu(k,686) * lu(k,1690) - lu(k,1719) = lu(k,1719) - lu(k,687) * lu(k,1690) - lu(k,1735) = lu(k,1735) - lu(k,661) * lu(k,1734) - lu(k,1736) = - lu(k,662) * lu(k,1734) - lu(k,1737) = lu(k,1737) - lu(k,663) * lu(k,1734) - lu(k,1738) = lu(k,1738) - lu(k,664) * lu(k,1734) - lu(k,1739) = lu(k,1739) - lu(k,665) * lu(k,1734) - lu(k,1740) = lu(k,1740) - lu(k,666) * lu(k,1734) - lu(k,1741) = - lu(k,667) * lu(k,1734) - lu(k,1742) = - lu(k,668) * lu(k,1734) - lu(k,1743) = lu(k,1743) - lu(k,669) * lu(k,1734) - lu(k,1744) = lu(k,1744) - lu(k,670) * lu(k,1734) - lu(k,1745) = - lu(k,671) * lu(k,1734) - lu(k,1747) = lu(k,1747) - lu(k,672) * lu(k,1734) - lu(k,1748) = lu(k,1748) - lu(k,673) * lu(k,1734) - lu(k,1749) = lu(k,1749) - lu(k,674) * lu(k,1734) - lu(k,1751) = lu(k,1751) - lu(k,675) * lu(k,1734) - lu(k,1752) = lu(k,1752) - lu(k,676) * lu(k,1734) - lu(k,1753) = lu(k,1753) - lu(k,677) * lu(k,1734) - lu(k,1754) = lu(k,1754) - lu(k,678) * lu(k,1734) - lu(k,1755) = lu(k,1755) - lu(k,679) * lu(k,1734) - lu(k,1756) = lu(k,1756) - lu(k,680) * lu(k,1734) - lu(k,1757) = - lu(k,681) * lu(k,1734) - lu(k,1758) = lu(k,1758) - lu(k,682) * lu(k,1734) - lu(k,1759) = lu(k,1759) - lu(k,683) * lu(k,1734) - lu(k,1760) = - lu(k,684) * lu(k,1734) - lu(k,1761) = lu(k,1761) - lu(k,685) * lu(k,1734) - lu(k,1762) = lu(k,1762) - lu(k,686) * lu(k,1734) - lu(k,1763) = lu(k,1763) - lu(k,687) * lu(k,1734) - lu(k,1770) = lu(k,1770) - lu(k,661) * lu(k,1769) - lu(k,1771) = lu(k,1771) - lu(k,662) * lu(k,1769) - lu(k,1772) = lu(k,1772) - lu(k,663) * lu(k,1769) - lu(k,1773) = lu(k,1773) - lu(k,664) * lu(k,1769) - lu(k,1774) = lu(k,1774) - lu(k,665) * lu(k,1769) - lu(k,1775) = lu(k,1775) - lu(k,666) * lu(k,1769) - lu(k,1776) = - lu(k,667) * lu(k,1769) - lu(k,1777) = - lu(k,668) * lu(k,1769) - lu(k,1778) = lu(k,1778) - lu(k,669) * lu(k,1769) - lu(k,1779) = lu(k,1779) - lu(k,670) * lu(k,1769) - lu(k,1780) = lu(k,1780) - lu(k,671) * lu(k,1769) - lu(k,1782) = lu(k,1782) - lu(k,672) * lu(k,1769) - lu(k,1783) = lu(k,1783) - lu(k,673) * lu(k,1769) - lu(k,1784) = lu(k,1784) - lu(k,674) * lu(k,1769) - lu(k,1786) = lu(k,1786) - lu(k,675) * lu(k,1769) - lu(k,1787) = lu(k,1787) - lu(k,676) * lu(k,1769) - lu(k,1788) = lu(k,1788) - lu(k,677) * lu(k,1769) - lu(k,1789) = lu(k,1789) - lu(k,678) * lu(k,1769) - lu(k,1790) = lu(k,1790) - lu(k,679) * lu(k,1769) - lu(k,1791) = lu(k,1791) - lu(k,680) * lu(k,1769) - lu(k,1792) = - lu(k,681) * lu(k,1769) - lu(k,1793) = lu(k,1793) - lu(k,682) * lu(k,1769) - lu(k,1794) = lu(k,1794) - lu(k,683) * lu(k,1769) - lu(k,1795) = - lu(k,684) * lu(k,1769) - lu(k,1796) = lu(k,1796) - lu(k,685) * lu(k,1769) - lu(k,1797) = lu(k,1797) - lu(k,686) * lu(k,1769) - lu(k,1798) = lu(k,1798) - lu(k,687) * lu(k,1769) - end do + real(r8), intent(inout) :: lu(:) + lu(637) = 1._r8 / lu(637) + lu(638) = lu(638) * lu(637) + lu(639) = lu(639) * lu(637) + lu(640) = lu(640) * lu(637) + lu(641) = lu(641) * lu(637) + lu(642) = lu(642) * lu(637) + lu(643) = lu(643) * lu(637) + lu(644) = lu(644) * lu(637) + lu(645) = lu(645) * lu(637) + lu(646) = lu(646) * lu(637) + lu(647) = lu(647) * lu(637) + lu(648) = lu(648) * lu(637) + lu(649) = lu(649) * lu(637) + lu(650) = lu(650) * lu(637) + lu(651) = lu(651) * lu(637) + lu(652) = lu(652) * lu(637) + lu(653) = lu(653) * lu(637) + lu(654) = lu(654) * lu(637) + lu(655) = lu(655) * lu(637) + lu(656) = lu(656) * lu(637) + lu(657) = lu(657) * lu(637) + lu(747) = lu(747) - lu(638) * lu(746) + lu(748) = lu(748) - lu(639) * lu(746) + lu(749) = lu(749) - lu(640) * lu(746) + lu(750) = lu(750) - lu(641) * lu(746) + lu(751) = lu(751) - lu(642) * lu(746) + lu(752) = lu(752) - lu(643) * lu(746) + lu(754) = lu(754) - lu(644) * lu(746) + lu(755) = lu(755) - lu(645) * lu(746) + lu(756) = lu(756) - lu(646) * lu(746) + lu(757) = lu(757) - lu(647) * lu(746) + lu(758) = - lu(648) * lu(746) + lu(759) = - lu(649) * lu(746) + lu(760) = lu(760) - lu(650) * lu(746) + lu(761) = lu(761) - lu(651) * lu(746) + lu(762) = lu(762) - lu(652) * lu(746) + lu(763) = lu(763) - lu(653) * lu(746) + lu(764) = lu(764) - lu(654) * lu(746) + lu(765) = lu(765) - lu(655) * lu(746) + lu(766) = lu(766) - lu(656) * lu(746) + lu(767) = lu(767) - lu(657) * lu(746) + lu(793) = lu(793) - lu(638) * lu(792) + lu(794) = lu(794) - lu(639) * lu(792) + lu(795) = lu(795) - lu(640) * lu(792) + lu(796) = lu(796) - lu(641) * lu(792) + lu(798) = lu(798) - lu(642) * lu(792) + lu(799) = lu(799) - lu(643) * lu(792) + lu(801) = lu(801) - lu(644) * lu(792) + lu(802) = lu(802) - lu(645) * lu(792) + lu(803) = lu(803) - lu(646) * lu(792) + lu(804) = lu(804) - lu(647) * lu(792) + lu(805) = - lu(648) * lu(792) + lu(806) = lu(806) - lu(649) * lu(792) + lu(807) = lu(807) - lu(650) * lu(792) + lu(808) = lu(808) - lu(651) * lu(792) + lu(809) = lu(809) - lu(652) * lu(792) + lu(810) = lu(810) - lu(653) * lu(792) + lu(811) = lu(811) - lu(654) * lu(792) + lu(812) = lu(812) - lu(655) * lu(792) + lu(813) = lu(813) - lu(656) * lu(792) + lu(814) = lu(814) - lu(657) * lu(792) + lu(864) = lu(864) - lu(638) * lu(863) + lu(865) = lu(865) - lu(639) * lu(863) + lu(866) = lu(866) - lu(640) * lu(863) + lu(867) = lu(867) - lu(641) * lu(863) + lu(870) = lu(870) - lu(642) * lu(863) + lu(871) = lu(871) - lu(643) * lu(863) + lu(873) = lu(873) - lu(644) * lu(863) + lu(874) = lu(874) - lu(645) * lu(863) + lu(875) = - lu(646) * lu(863) + lu(876) = - lu(647) * lu(863) + lu(877) = lu(877) - lu(648) * lu(863) + lu(878) = lu(878) - lu(649) * lu(863) + lu(879) = lu(879) - lu(650) * lu(863) + lu(880) = lu(880) - lu(651) * lu(863) + lu(881) = - lu(652) * lu(863) + lu(883) = - lu(653) * lu(863) + lu(884) = - lu(654) * lu(863) + lu(885) = lu(885) - lu(655) * lu(863) + lu(887) = - lu(656) * lu(863) + lu(888) = lu(888) - lu(657) * lu(863) + lu(951) = lu(951) - lu(638) * lu(947) + lu(952) = lu(952) - lu(639) * lu(947) + lu(954) = lu(954) - lu(640) * lu(947) + lu(955) = lu(955) - lu(641) * lu(947) + lu(958) = lu(958) - lu(642) * lu(947) + lu(959) = lu(959) - lu(643) * lu(947) + lu(961) = lu(961) - lu(644) * lu(947) + lu(962) = lu(962) - lu(645) * lu(947) + lu(963) = lu(963) - lu(646) * lu(947) + lu(964) = lu(964) - lu(647) * lu(947) + lu(965) = lu(965) - lu(648) * lu(947) + lu(966) = lu(966) - lu(649) * lu(947) + lu(967) = - lu(650) * lu(947) + lu(968) = lu(968) - lu(651) * lu(947) + lu(969) = - lu(652) * lu(947) + lu(971) = lu(971) - lu(653) * lu(947) + lu(972) = - lu(654) * lu(947) + lu(973) = - lu(655) * lu(947) + lu(976) = lu(976) - lu(656) * lu(947) + lu(977) = lu(977) - lu(657) * lu(947) + lu(1042) = lu(1042) - lu(638) * lu(1038) + lu(1043) = lu(1043) - lu(639) * lu(1038) + lu(1045) = lu(1045) - lu(640) * lu(1038) + lu(1046) = lu(1046) - lu(641) * lu(1038) + lu(1049) = lu(1049) - lu(642) * lu(1038) + lu(1050) = lu(1050) - lu(643) * lu(1038) + lu(1052) = lu(1052) - lu(644) * lu(1038) + lu(1053) = lu(1053) - lu(645) * lu(1038) + lu(1054) = lu(1054) - lu(646) * lu(1038) + lu(1055) = lu(1055) - lu(647) * lu(1038) + lu(1056) = lu(1056) - lu(648) * lu(1038) + lu(1057) = lu(1057) - lu(649) * lu(1038) + lu(1058) = lu(1058) - lu(650) * lu(1038) + lu(1059) = lu(1059) - lu(651) * lu(1038) + lu(1060) = lu(1060) - lu(652) * lu(1038) + lu(1062) = lu(1062) - lu(653) * lu(1038) + lu(1063) = lu(1063) - lu(654) * lu(1038) + lu(1064) = lu(1064) - lu(655) * lu(1038) + lu(1067) = lu(1067) - lu(656) * lu(1038) + lu(1068) = lu(1068) - lu(657) * lu(1038) + lu(1088) = lu(1088) - lu(638) * lu(1085) + lu(1089) = lu(1089) - lu(639) * lu(1085) + lu(1091) = lu(1091) - lu(640) * lu(1085) + lu(1092) = lu(1092) - lu(641) * lu(1085) + lu(1095) = lu(1095) - lu(642) * lu(1085) + lu(1096) = lu(1096) - lu(643) * lu(1085) + lu(1098) = lu(1098) - lu(644) * lu(1085) + lu(1099) = lu(1099) - lu(645) * lu(1085) + lu(1100) = lu(1100) - lu(646) * lu(1085) + lu(1101) = lu(1101) - lu(647) * lu(1085) + lu(1102) = lu(1102) - lu(648) * lu(1085) + lu(1103) = lu(1103) - lu(649) * lu(1085) + lu(1104) = lu(1104) - lu(650) * lu(1085) + lu(1105) = lu(1105) - lu(651) * lu(1085) + lu(1106) = lu(1106) - lu(652) * lu(1085) + lu(1108) = lu(1108) - lu(653) * lu(1085) + lu(1109) = lu(1109) - lu(654) * lu(1085) + lu(1110) = lu(1110) - lu(655) * lu(1085) + lu(1113) = lu(1113) - lu(656) * lu(1085) + lu(1114) = lu(1114) - lu(657) * lu(1085) + lu(1170) = lu(1170) - lu(638) * lu(1167) + lu(1171) = lu(1171) - lu(639) * lu(1167) + lu(1173) = lu(1173) - lu(640) * lu(1167) + lu(1174) = lu(1174) - lu(641) * lu(1167) + lu(1177) = lu(1177) - lu(642) * lu(1167) + lu(1178) = lu(1178) - lu(643) * lu(1167) + lu(1180) = lu(1180) - lu(644) * lu(1167) + lu(1181) = lu(1181) - lu(645) * lu(1167) + lu(1182) = lu(1182) - lu(646) * lu(1167) + lu(1183) = lu(1183) - lu(647) * lu(1167) + lu(1184) = lu(1184) - lu(648) * lu(1167) + lu(1185) = lu(1185) - lu(649) * lu(1167) + lu(1186) = lu(1186) - lu(650) * lu(1167) + lu(1187) = lu(1187) - lu(651) * lu(1167) + lu(1188) = lu(1188) - lu(652) * lu(1167) + lu(1190) = lu(1190) - lu(653) * lu(1167) + lu(1191) = lu(1191) - lu(654) * lu(1167) + lu(1192) = lu(1192) - lu(655) * lu(1167) + lu(1195) = lu(1195) - lu(656) * lu(1167) + lu(1196) = lu(1196) - lu(657) * lu(1167) + lu(1229) = lu(1229) - lu(638) * lu(1225) + lu(1230) = lu(1230) - lu(639) * lu(1225) + lu(1232) = lu(1232) - lu(640) * lu(1225) + lu(1233) = lu(1233) - lu(641) * lu(1225) + lu(1236) = lu(1236) - lu(642) * lu(1225) + lu(1237) = lu(1237) - lu(643) * lu(1225) + lu(1239) = lu(1239) - lu(644) * lu(1225) + lu(1240) = lu(1240) - lu(645) * lu(1225) + lu(1241) = lu(1241) - lu(646) * lu(1225) + lu(1242) = lu(1242) - lu(647) * lu(1225) + lu(1243) = lu(1243) - lu(648) * lu(1225) + lu(1244) = lu(1244) - lu(649) * lu(1225) + lu(1245) = lu(1245) - lu(650) * lu(1225) + lu(1246) = lu(1246) - lu(651) * lu(1225) + lu(1247) = lu(1247) - lu(652) * lu(1225) + lu(1249) = lu(1249) - lu(653) * lu(1225) + lu(1250) = lu(1250) - lu(654) * lu(1225) + lu(1251) = lu(1251) - lu(655) * lu(1225) + lu(1254) = lu(1254) - lu(656) * lu(1225) + lu(1255) = lu(1255) - lu(657) * lu(1225) + lu(1271) = lu(1271) - lu(638) * lu(1267) + lu(1272) = lu(1272) - lu(639) * lu(1267) + lu(1274) = lu(1274) - lu(640) * lu(1267) + lu(1275) = - lu(641) * lu(1267) + lu(1278) = lu(1278) - lu(642) * lu(1267) + lu(1279) = lu(1279) - lu(643) * lu(1267) + lu(1281) = lu(1281) - lu(644) * lu(1267) + lu(1282) = lu(1282) - lu(645) * lu(1267) + lu(1283) = lu(1283) - lu(646) * lu(1267) + lu(1284) = lu(1284) - lu(647) * lu(1267) + lu(1285) = lu(1285) - lu(648) * lu(1267) + lu(1286) = - lu(649) * lu(1267) + lu(1287) = lu(1287) - lu(650) * lu(1267) + lu(1288) = lu(1288) - lu(651) * lu(1267) + lu(1289) = lu(1289) - lu(652) * lu(1267) + lu(1291) = lu(1291) - lu(653) * lu(1267) + lu(1292) = lu(1292) - lu(654) * lu(1267) + lu(1293) = lu(1293) - lu(655) * lu(1267) + lu(1296) = lu(1296) - lu(656) * lu(1267) + lu(1297) = lu(1297) - lu(657) * lu(1267) + lu(1315) = lu(1315) - lu(638) * lu(1311) + lu(1316) = lu(1316) - lu(639) * lu(1311) + lu(1318) = lu(1318) - lu(640) * lu(1311) + lu(1319) = lu(1319) - lu(641) * lu(1311) + lu(1322) = lu(1322) - lu(642) * lu(1311) + lu(1323) = lu(1323) - lu(643) * lu(1311) + lu(1325) = lu(1325) - lu(644) * lu(1311) + lu(1326) = lu(1326) - lu(645) * lu(1311) + lu(1327) = lu(1327) - lu(646) * lu(1311) + lu(1328) = lu(1328) - lu(647) * lu(1311) + lu(1329) = lu(1329) - lu(648) * lu(1311) + lu(1330) = lu(1330) - lu(649) * lu(1311) + lu(1331) = lu(1331) - lu(650) * lu(1311) + lu(1332) = lu(1332) - lu(651) * lu(1311) + lu(1333) = lu(1333) - lu(652) * lu(1311) + lu(1335) = lu(1335) - lu(653) * lu(1311) + lu(1336) = lu(1336) - lu(654) * lu(1311) + lu(1337) = lu(1337) - lu(655) * lu(1311) + lu(1340) = lu(1340) - lu(656) * lu(1311) + lu(1341) = lu(1341) - lu(657) * lu(1311) + lu(1394) = lu(1394) - lu(638) * lu(1390) + lu(1395) = lu(1395) - lu(639) * lu(1390) + lu(1397) = lu(1397) - lu(640) * lu(1390) + lu(1398) = lu(1398) - lu(641) * lu(1390) + lu(1401) = lu(1401) - lu(642) * lu(1390) + lu(1402) = lu(1402) - lu(643) * lu(1390) + lu(1404) = lu(1404) - lu(644) * lu(1390) + lu(1405) = lu(1405) - lu(645) * lu(1390) + lu(1406) = lu(1406) - lu(646) * lu(1390) + lu(1407) = lu(1407) - lu(647) * lu(1390) + lu(1408) = lu(1408) - lu(648) * lu(1390) + lu(1409) = lu(1409) - lu(649) * lu(1390) + lu(1410) = lu(1410) - lu(650) * lu(1390) + lu(1411) = lu(1411) - lu(651) * lu(1390) + lu(1412) = - lu(652) * lu(1390) + lu(1414) = lu(1414) - lu(653) * lu(1390) + lu(1415) = - lu(654) * lu(1390) + lu(1416) = lu(1416) - lu(655) * lu(1390) + lu(1419) = lu(1419) - lu(656) * lu(1390) + lu(1420) = lu(1420) - lu(657) * lu(1390) + lu(1435) = lu(1435) - lu(638) * lu(1431) + lu(1436) = lu(1436) - lu(639) * lu(1431) + lu(1438) = lu(1438) - lu(640) * lu(1431) + lu(1439) = lu(1439) - lu(641) * lu(1431) + lu(1442) = lu(1442) - lu(642) * lu(1431) + lu(1443) = lu(1443) - lu(643) * lu(1431) + lu(1445) = lu(1445) - lu(644) * lu(1431) + lu(1446) = lu(1446) - lu(645) * lu(1431) + lu(1447) = lu(1447) - lu(646) * lu(1431) + lu(1448) = lu(1448) - lu(647) * lu(1431) + lu(1449) = lu(1449) - lu(648) * lu(1431) + lu(1450) = lu(1450) - lu(649) * lu(1431) + lu(1451) = lu(1451) - lu(650) * lu(1431) + lu(1452) = lu(1452) - lu(651) * lu(1431) + lu(1453) = lu(1453) - lu(652) * lu(1431) + lu(1455) = lu(1455) - lu(653) * lu(1431) + lu(1456) = lu(1456) - lu(654) * lu(1431) + lu(1457) = lu(1457) - lu(655) * lu(1431) + lu(1460) = lu(1460) - lu(656) * lu(1431) + lu(1461) = lu(1461) - lu(657) * lu(1431) + lu(1470) = lu(1470) - lu(638) * lu(1466) + lu(1471) = lu(1471) - lu(639) * lu(1466) + lu(1473) = lu(1473) - lu(640) * lu(1466) + lu(1474) = lu(1474) - lu(641) * lu(1466) + lu(1477) = lu(1477) - lu(642) * lu(1466) + lu(1478) = lu(1478) - lu(643) * lu(1466) + lu(1480) = lu(1480) - lu(644) * lu(1466) + lu(1481) = lu(1481) - lu(645) * lu(1466) + lu(1482) = lu(1482) - lu(646) * lu(1466) + lu(1483) = lu(1483) - lu(647) * lu(1466) + lu(1484) = lu(1484) - lu(648) * lu(1466) + lu(1485) = - lu(649) * lu(1466) + lu(1486) = lu(1486) - lu(650) * lu(1466) + lu(1487) = lu(1487) - lu(651) * lu(1466) + lu(1488) = lu(1488) - lu(652) * lu(1466) + lu(1490) = lu(1490) - lu(653) * lu(1466) + lu(1491) = lu(1491) - lu(654) * lu(1466) + lu(1492) = lu(1492) - lu(655) * lu(1466) + lu(1495) = lu(1495) - lu(656) * lu(1466) + lu(1496) = lu(1496) - lu(657) * lu(1466) + lu(1514) = lu(1514) - lu(638) * lu(1510) + lu(1515) = lu(1515) - lu(639) * lu(1510) + lu(1517) = lu(1517) - lu(640) * lu(1510) + lu(1518) = - lu(641) * lu(1510) + lu(1521) = lu(1521) - lu(642) * lu(1510) + lu(1522) = lu(1522) - lu(643) * lu(1510) + lu(1524) = lu(1524) - lu(644) * lu(1510) + lu(1525) = lu(1525) - lu(645) * lu(1510) + lu(1526) = lu(1526) - lu(646) * lu(1510) + lu(1527) = lu(1527) - lu(647) * lu(1510) + lu(1528) = lu(1528) - lu(648) * lu(1510) + lu(1529) = - lu(649) * lu(1510) + lu(1530) = lu(1530) - lu(650) * lu(1510) + lu(1531) = lu(1531) - lu(651) * lu(1510) + lu(1532) = lu(1532) - lu(652) * lu(1510) + lu(1534) = lu(1534) - lu(653) * lu(1510) + lu(1535) = lu(1535) - lu(654) * lu(1510) + lu(1536) = lu(1536) - lu(655) * lu(1510) + lu(1539) = lu(1539) - lu(656) * lu(1510) + lu(1540) = lu(1540) - lu(657) * lu(1510) + lu(1595) = lu(1595) - lu(638) * lu(1592) + lu(1596) = lu(1596) - lu(639) * lu(1592) + lu(1598) = lu(1598) - lu(640) * lu(1592) + lu(1599) = lu(1599) - lu(641) * lu(1592) + lu(1602) = lu(1602) - lu(642) * lu(1592) + lu(1603) = lu(1603) - lu(643) * lu(1592) + lu(1605) = lu(1605) - lu(644) * lu(1592) + lu(1606) = lu(1606) - lu(645) * lu(1592) + lu(1607) = lu(1607) - lu(646) * lu(1592) + lu(1608) = lu(1608) - lu(647) * lu(1592) + lu(1609) = lu(1609) - lu(648) * lu(1592) + lu(1610) = lu(1610) - lu(649) * lu(1592) + lu(1611) = lu(1611) - lu(650) * lu(1592) + lu(1612) = lu(1612) - lu(651) * lu(1592) + lu(1613) = lu(1613) - lu(652) * lu(1592) + lu(1615) = lu(1615) - lu(653) * lu(1592) + lu(1616) = lu(1616) - lu(654) * lu(1592) + lu(1617) = lu(1617) - lu(655) * lu(1592) + lu(1620) = lu(1620) - lu(656) * lu(1592) + lu(1621) = lu(1621) - lu(657) * lu(1592) + lu(1662) = lu(1662) - lu(638) * lu(1659) + lu(1663) = lu(1663) - lu(639) * lu(1659) + lu(1665) = lu(1665) - lu(640) * lu(1659) + lu(1666) = lu(1666) - lu(641) * lu(1659) + lu(1669) = lu(1669) - lu(642) * lu(1659) + lu(1670) = lu(1670) - lu(643) * lu(1659) + lu(1672) = lu(1672) - lu(644) * lu(1659) + lu(1673) = lu(1673) - lu(645) * lu(1659) + lu(1674) = lu(1674) - lu(646) * lu(1659) + lu(1675) = lu(1675) - lu(647) * lu(1659) + lu(1676) = lu(1676) - lu(648) * lu(1659) + lu(1677) = lu(1677) - lu(649) * lu(1659) + lu(1678) = lu(1678) - lu(650) * lu(1659) + lu(1679) = lu(1679) - lu(651) * lu(1659) + lu(1680) = lu(1680) - lu(652) * lu(1659) + lu(1682) = lu(1682) - lu(653) * lu(1659) + lu(1683) = lu(1683) - lu(654) * lu(1659) + lu(1684) = lu(1684) - lu(655) * lu(1659) + lu(1687) = lu(1687) - lu(656) * lu(1659) + lu(1688) = lu(1688) - lu(657) * lu(1659) + lu(1773) = lu(1773) - lu(638) * lu(1771) + lu(1774) = lu(1774) - lu(639) * lu(1771) + lu(1775) = lu(1775) - lu(640) * lu(1771) + lu(1776) = lu(1776) - lu(641) * lu(1771) + lu(1779) = lu(1779) - lu(642) * lu(1771) + lu(1780) = lu(1780) - lu(643) * lu(1771) + lu(1782) = lu(1782) - lu(644) * lu(1771) + lu(1783) = lu(1783) - lu(645) * lu(1771) + lu(1784) = lu(1784) - lu(646) * lu(1771) + lu(1785) = lu(1785) - lu(647) * lu(1771) + lu(1786) = - lu(648) * lu(1771) + lu(1787) = lu(1787) - lu(649) * lu(1771) + lu(1788) = lu(1788) - lu(650) * lu(1771) + lu(1789) = lu(1789) - lu(651) * lu(1771) + lu(1790) = lu(1790) - lu(652) * lu(1771) + lu(1792) = lu(1792) - lu(653) * lu(1771) + lu(1793) = lu(1793) - lu(654) * lu(1771) + lu(1794) = lu(1794) - lu(655) * lu(1771) + lu(1797) = lu(1797) - lu(656) * lu(1771) + lu(1798) = lu(1798) - lu(657) * lu(1771) + lu(1830) = lu(1830) - lu(638) * lu(1827) + lu(1831) = lu(1831) - lu(639) * lu(1827) + lu(1833) = lu(1833) - lu(640) * lu(1827) + lu(1834) = lu(1834) - lu(641) * lu(1827) + lu(1837) = lu(1837) - lu(642) * lu(1827) + lu(1838) = lu(1838) - lu(643) * lu(1827) + lu(1840) = lu(1840) - lu(644) * lu(1827) + lu(1841) = lu(1841) - lu(645) * lu(1827) + lu(1842) = lu(1842) - lu(646) * lu(1827) + lu(1843) = lu(1843) - lu(647) * lu(1827) + lu(1844) = lu(1844) - lu(648) * lu(1827) + lu(1845) = lu(1845) - lu(649) * lu(1827) + lu(1846) = lu(1846) - lu(650) * lu(1827) + lu(1847) = lu(1847) - lu(651) * lu(1827) + lu(1848) = lu(1848) - lu(652) * lu(1827) + lu(1850) = lu(1850) - lu(653) * lu(1827) + lu(1851) = lu(1851) - lu(654) * lu(1827) + lu(1852) = lu(1852) - lu(655) * lu(1827) + lu(1855) = lu(1855) - lu(656) * lu(1827) + lu(1856) = lu(1856) - lu(657) * lu(1827) + lu(660) = 1._r8 / lu(660) + lu(661) = lu(661) * lu(660) + lu(662) = lu(662) * lu(660) + lu(663) = lu(663) * lu(660) + lu(664) = lu(664) * lu(660) + lu(665) = lu(665) * lu(660) + lu(666) = lu(666) * lu(660) + lu(667) = lu(667) * lu(660) + lu(668) = lu(668) * lu(660) + lu(669) = lu(669) * lu(660) + lu(670) = lu(670) * lu(660) + lu(671) = lu(671) * lu(660) + lu(672) = lu(672) * lu(660) + lu(673) = lu(673) * lu(660) + lu(674) = lu(674) * lu(660) + lu(675) = lu(675) * lu(660) + lu(676) = lu(676) * lu(660) + lu(677) = lu(677) * lu(660) + lu(678) = lu(678) * lu(660) + lu(679) = lu(679) * lu(660) + lu(680) = lu(680) * lu(660) + lu(681) = lu(681) * lu(660) + lu(682) = lu(682) * lu(660) + lu(683) = lu(683) * lu(660) + lu(684) = lu(684) * lu(660) + lu(685) = lu(685) * lu(660) + lu(686) = lu(686) * lu(660) + lu(687) = lu(687) * lu(660) + lu(902) = lu(902) - lu(661) * lu(901) + lu(903) = lu(903) - lu(662) * lu(901) + lu(904) = - lu(663) * lu(901) + lu(905) = lu(905) - lu(664) * lu(901) + lu(906) = lu(906) - lu(665) * lu(901) + lu(907) = lu(907) - lu(666) * lu(901) + lu(908) = lu(908) - lu(667) * lu(901) + lu(909) = lu(909) - lu(668) * lu(901) + lu(910) = lu(910) - lu(669) * lu(901) + lu(911) = lu(911) - lu(670) * lu(901) + lu(912) = lu(912) - lu(671) * lu(901) + lu(913) = lu(913) - lu(672) * lu(901) + lu(914) = lu(914) - lu(673) * lu(901) + lu(915) = lu(915) - lu(674) * lu(901) + lu(916) = lu(916) - lu(675) * lu(901) + lu(917) = lu(917) - lu(676) * lu(901) + lu(918) = lu(918) - lu(677) * lu(901) + lu(919) = lu(919) - lu(678) * lu(901) + lu(920) = - lu(679) * lu(901) + lu(921) = lu(921) - lu(680) * lu(901) + lu(922) = - lu(681) * lu(901) + lu(923) = lu(923) - lu(682) * lu(901) + lu(925) = - lu(683) * lu(901) + lu(926) = - lu(684) * lu(901) + lu(927) = lu(927) - lu(685) * lu(901) + lu(928) = lu(928) - lu(686) * lu(901) + lu(930) = lu(930) - lu(687) * lu(901) + lu(949) = lu(949) - lu(661) * lu(948) + lu(950) = lu(950) - lu(662) * lu(948) + lu(951) = lu(951) - lu(663) * lu(948) + lu(952) = lu(952) - lu(664) * lu(948) + lu(953) = lu(953) - lu(665) * lu(948) + lu(954) = lu(954) - lu(666) * lu(948) + lu(955) = lu(955) - lu(667) * lu(948) + lu(956) = lu(956) - lu(668) * lu(948) + lu(957) = lu(957) - lu(669) * lu(948) + lu(958) = lu(958) - lu(670) * lu(948) + lu(959) = lu(959) - lu(671) * lu(948) + lu(960) = lu(960) - lu(672) * lu(948) + lu(961) = lu(961) - lu(673) * lu(948) + lu(962) = lu(962) - lu(674) * lu(948) + lu(963) = lu(963) - lu(675) * lu(948) + lu(964) = lu(964) - lu(676) * lu(948) + lu(965) = lu(965) - lu(677) * lu(948) + lu(966) = lu(966) - lu(678) * lu(948) + lu(967) = lu(967) - lu(679) * lu(948) + lu(968) = lu(968) - lu(680) * lu(948) + lu(969) = lu(969) - lu(681) * lu(948) + lu(970) = lu(970) - lu(682) * lu(948) + lu(972) = lu(972) - lu(683) * lu(948) + lu(973) = lu(973) - lu(684) * lu(948) + lu(974) = lu(974) - lu(685) * lu(948) + lu(975) = lu(975) - lu(686) * lu(948) + lu(977) = lu(977) - lu(687) * lu(948) + lu(991) = lu(991) - lu(661) * lu(990) + lu(992) = lu(992) - lu(662) * lu(990) + lu(993) = - lu(663) * lu(990) + lu(994) = lu(994) - lu(664) * lu(990) + lu(995) = lu(995) - lu(665) * lu(990) + lu(996) = lu(996) - lu(666) * lu(990) + lu(997) = lu(997) - lu(667) * lu(990) + lu(998) = lu(998) - lu(668) * lu(990) + lu(999) = lu(999) - lu(669) * lu(990) + lu(1000) = lu(1000) - lu(670) * lu(990) + lu(1001) = lu(1001) - lu(671) * lu(990) + lu(1002) = lu(1002) - lu(672) * lu(990) + lu(1003) = lu(1003) - lu(673) * lu(990) + lu(1004) = lu(1004) - lu(674) * lu(990) + lu(1005) = lu(1005) - lu(675) * lu(990) + lu(1006) = lu(1006) - lu(676) * lu(990) + lu(1007) = lu(1007) - lu(677) * lu(990) + lu(1008) = lu(1008) - lu(678) * lu(990) + lu(1009) = - lu(679) * lu(990) + lu(1010) = lu(1010) - lu(680) * lu(990) + lu(1011) = - lu(681) * lu(990) + lu(1012) = lu(1012) - lu(682) * lu(990) + lu(1014) = - lu(683) * lu(990) + lu(1015) = - lu(684) * lu(990) + lu(1016) = lu(1016) - lu(685) * lu(990) + lu(1017) = lu(1017) - lu(686) * lu(990) + lu(1019) = lu(1019) - lu(687) * lu(990) + lu(1040) = - lu(661) * lu(1039) + lu(1041) = lu(1041) - lu(662) * lu(1039) + lu(1042) = lu(1042) - lu(663) * lu(1039) + lu(1043) = lu(1043) - lu(664) * lu(1039) + lu(1044) = lu(1044) - lu(665) * lu(1039) + lu(1045) = lu(1045) - lu(666) * lu(1039) + lu(1046) = lu(1046) - lu(667) * lu(1039) + lu(1047) = lu(1047) - lu(668) * lu(1039) + lu(1048) = - lu(669) * lu(1039) + lu(1049) = lu(1049) - lu(670) * lu(1039) + lu(1050) = lu(1050) - lu(671) * lu(1039) + lu(1051) = - lu(672) * lu(1039) + lu(1052) = lu(1052) - lu(673) * lu(1039) + lu(1053) = lu(1053) - lu(674) * lu(1039) + lu(1054) = lu(1054) - lu(675) * lu(1039) + lu(1055) = lu(1055) - lu(676) * lu(1039) + lu(1056) = lu(1056) - lu(677) * lu(1039) + lu(1057) = lu(1057) - lu(678) * lu(1039) + lu(1058) = lu(1058) - lu(679) * lu(1039) + lu(1059) = lu(1059) - lu(680) * lu(1039) + lu(1060) = lu(1060) - lu(681) * lu(1039) + lu(1061) = - lu(682) * lu(1039) + lu(1063) = lu(1063) - lu(683) * lu(1039) + lu(1064) = lu(1064) - lu(684) * lu(1039) + lu(1065) = - lu(685) * lu(1039) + lu(1066) = lu(1066) - lu(686) * lu(1039) + lu(1068) = lu(1068) - lu(687) * lu(1039) + lu(1127) = lu(1127) - lu(661) * lu(1126) + lu(1128) = lu(1128) - lu(662) * lu(1126) + lu(1129) = lu(1129) - lu(663) * lu(1126) + lu(1130) = lu(1130) - lu(664) * lu(1126) + lu(1131) = lu(1131) - lu(665) * lu(1126) + lu(1132) = lu(1132) - lu(666) * lu(1126) + lu(1133) = lu(1133) - lu(667) * lu(1126) + lu(1134) = lu(1134) - lu(668) * lu(1126) + lu(1135) = lu(1135) - lu(669) * lu(1126) + lu(1136) = lu(1136) - lu(670) * lu(1126) + lu(1137) = lu(1137) - lu(671) * lu(1126) + lu(1138) = lu(1138) - lu(672) * lu(1126) + lu(1139) = lu(1139) - lu(673) * lu(1126) + lu(1140) = lu(1140) - lu(674) * lu(1126) + lu(1141) = lu(1141) - lu(675) * lu(1126) + lu(1142) = lu(1142) - lu(676) * lu(1126) + lu(1143) = lu(1143) - lu(677) * lu(1126) + lu(1144) = lu(1144) - lu(678) * lu(1126) + lu(1145) = - lu(679) * lu(1126) + lu(1146) = lu(1146) - lu(680) * lu(1126) + lu(1147) = - lu(681) * lu(1126) + lu(1148) = lu(1148) - lu(682) * lu(1126) + lu(1150) = - lu(683) * lu(1126) + lu(1151) = - lu(684) * lu(1126) + lu(1152) = lu(1152) - lu(685) * lu(1126) + lu(1153) = lu(1153) - lu(686) * lu(1126) + lu(1155) = lu(1155) - lu(687) * lu(1126) + lu(1227) = lu(1227) - lu(661) * lu(1226) + lu(1228) = lu(1228) - lu(662) * lu(1226) + lu(1229) = lu(1229) - lu(663) * lu(1226) + lu(1230) = lu(1230) - lu(664) * lu(1226) + lu(1231) = lu(1231) - lu(665) * lu(1226) + lu(1232) = lu(1232) - lu(666) * lu(1226) + lu(1233) = lu(1233) - lu(667) * lu(1226) + lu(1234) = lu(1234) - lu(668) * lu(1226) + lu(1235) = - lu(669) * lu(1226) + lu(1236) = lu(1236) - lu(670) * lu(1226) + lu(1237) = lu(1237) - lu(671) * lu(1226) + lu(1238) = - lu(672) * lu(1226) + lu(1239) = lu(1239) - lu(673) * lu(1226) + lu(1240) = lu(1240) - lu(674) * lu(1226) + lu(1241) = lu(1241) - lu(675) * lu(1226) + lu(1242) = lu(1242) - lu(676) * lu(1226) + lu(1243) = lu(1243) - lu(677) * lu(1226) + lu(1244) = lu(1244) - lu(678) * lu(1226) + lu(1245) = lu(1245) - lu(679) * lu(1226) + lu(1246) = lu(1246) - lu(680) * lu(1226) + lu(1247) = lu(1247) - lu(681) * lu(1226) + lu(1248) = - lu(682) * lu(1226) + lu(1250) = lu(1250) - lu(683) * lu(1226) + lu(1251) = lu(1251) - lu(684) * lu(1226) + lu(1252) = - lu(685) * lu(1226) + lu(1253) = lu(1253) - lu(686) * lu(1226) + lu(1255) = lu(1255) - lu(687) * lu(1226) + lu(1269) = lu(1269) - lu(661) * lu(1268) + lu(1270) = - lu(662) * lu(1268) + lu(1271) = lu(1271) - lu(663) * lu(1268) + lu(1272) = lu(1272) - lu(664) * lu(1268) + lu(1273) = lu(1273) - lu(665) * lu(1268) + lu(1274) = lu(1274) - lu(666) * lu(1268) + lu(1275) = lu(1275) - lu(667) * lu(1268) + lu(1276) = - lu(668) * lu(1268) + lu(1277) = - lu(669) * lu(1268) + lu(1278) = lu(1278) - lu(670) * lu(1268) + lu(1279) = lu(1279) - lu(671) * lu(1268) + lu(1280) = - lu(672) * lu(1268) + lu(1281) = lu(1281) - lu(673) * lu(1268) + lu(1282) = lu(1282) - lu(674) * lu(1268) + lu(1283) = lu(1283) - lu(675) * lu(1268) + lu(1284) = lu(1284) - lu(676) * lu(1268) + lu(1285) = lu(1285) - lu(677) * lu(1268) + lu(1286) = lu(1286) - lu(678) * lu(1268) + lu(1287) = lu(1287) - lu(679) * lu(1268) + lu(1288) = lu(1288) - lu(680) * lu(1268) + lu(1289) = lu(1289) - lu(681) * lu(1268) + lu(1290) = - lu(682) * lu(1268) + lu(1292) = lu(1292) - lu(683) * lu(1268) + lu(1293) = lu(1293) - lu(684) * lu(1268) + lu(1294) = - lu(685) * lu(1268) + lu(1295) = lu(1295) - lu(686) * lu(1268) + lu(1297) = lu(1297) - lu(687) * lu(1268) + lu(1313) = lu(1313) - lu(661) * lu(1312) + lu(1314) = lu(1314) - lu(662) * lu(1312) + lu(1315) = lu(1315) - lu(663) * lu(1312) + lu(1316) = lu(1316) - lu(664) * lu(1312) + lu(1317) = - lu(665) * lu(1312) + lu(1318) = lu(1318) - lu(666) * lu(1312) + lu(1319) = lu(1319) - lu(667) * lu(1312) + lu(1320) = lu(1320) - lu(668) * lu(1312) + lu(1321) = lu(1321) - lu(669) * lu(1312) + lu(1322) = lu(1322) - lu(670) * lu(1312) + lu(1323) = lu(1323) - lu(671) * lu(1312) + lu(1324) = lu(1324) - lu(672) * lu(1312) + lu(1325) = lu(1325) - lu(673) * lu(1312) + lu(1326) = lu(1326) - lu(674) * lu(1312) + lu(1327) = lu(1327) - lu(675) * lu(1312) + lu(1328) = lu(1328) - lu(676) * lu(1312) + lu(1329) = lu(1329) - lu(677) * lu(1312) + lu(1330) = lu(1330) - lu(678) * lu(1312) + lu(1331) = lu(1331) - lu(679) * lu(1312) + lu(1332) = lu(1332) - lu(680) * lu(1312) + lu(1333) = lu(1333) - lu(681) * lu(1312) + lu(1334) = lu(1334) - lu(682) * lu(1312) + lu(1336) = lu(1336) - lu(683) * lu(1312) + lu(1337) = lu(1337) - lu(684) * lu(1312) + lu(1338) = lu(1338) - lu(685) * lu(1312) + lu(1339) = lu(1339) - lu(686) * lu(1312) + lu(1341) = lu(1341) - lu(687) * lu(1312) + lu(1348) = lu(1348) - lu(661) * lu(1347) + lu(1349) = lu(1349) - lu(662) * lu(1347) + lu(1350) = lu(1350) - lu(663) * lu(1347) + lu(1351) = lu(1351) - lu(664) * lu(1347) + lu(1352) = lu(1352) - lu(665) * lu(1347) + lu(1353) = lu(1353) - lu(666) * lu(1347) + lu(1354) = lu(1354) - lu(667) * lu(1347) + lu(1355) = lu(1355) - lu(668) * lu(1347) + lu(1356) = lu(1356) - lu(669) * lu(1347) + lu(1357) = lu(1357) - lu(670) * lu(1347) + lu(1358) = lu(1358) - lu(671) * lu(1347) + lu(1359) = lu(1359) - lu(672) * lu(1347) + lu(1360) = lu(1360) - lu(673) * lu(1347) + lu(1361) = lu(1361) - lu(674) * lu(1347) + lu(1362) = lu(1362) - lu(675) * lu(1347) + lu(1363) = lu(1363) - lu(676) * lu(1347) + lu(1364) = lu(1364) - lu(677) * lu(1347) + lu(1365) = lu(1365) - lu(678) * lu(1347) + lu(1366) = lu(1366) - lu(679) * lu(1347) + lu(1367) = lu(1367) - lu(680) * lu(1347) + lu(1368) = lu(1368) - lu(681) * lu(1347) + lu(1369) = lu(1369) - lu(682) * lu(1347) + lu(1371) = lu(1371) - lu(683) * lu(1347) + lu(1372) = lu(1372) - lu(684) * lu(1347) + lu(1373) = lu(1373) - lu(685) * lu(1347) + lu(1374) = lu(1374) - lu(686) * lu(1347) + lu(1376) = lu(1376) - lu(687) * lu(1347) + lu(1392) = lu(1392) - lu(661) * lu(1391) + lu(1393) = lu(1393) - lu(662) * lu(1391) + lu(1394) = lu(1394) - lu(663) * lu(1391) + lu(1395) = lu(1395) - lu(664) * lu(1391) + lu(1396) = lu(1396) - lu(665) * lu(1391) + lu(1397) = lu(1397) - lu(666) * lu(1391) + lu(1398) = lu(1398) - lu(667) * lu(1391) + lu(1399) = lu(1399) - lu(668) * lu(1391) + lu(1400) = lu(1400) - lu(669) * lu(1391) + lu(1401) = lu(1401) - lu(670) * lu(1391) + lu(1402) = lu(1402) - lu(671) * lu(1391) + lu(1403) = lu(1403) - lu(672) * lu(1391) + lu(1404) = lu(1404) - lu(673) * lu(1391) + lu(1405) = lu(1405) - lu(674) * lu(1391) + lu(1406) = lu(1406) - lu(675) * lu(1391) + lu(1407) = lu(1407) - lu(676) * lu(1391) + lu(1408) = lu(1408) - lu(677) * lu(1391) + lu(1409) = lu(1409) - lu(678) * lu(1391) + lu(1410) = lu(1410) - lu(679) * lu(1391) + lu(1411) = lu(1411) - lu(680) * lu(1391) + lu(1412) = lu(1412) - lu(681) * lu(1391) + lu(1413) = lu(1413) - lu(682) * lu(1391) + lu(1415) = lu(1415) - lu(683) * lu(1391) + lu(1416) = lu(1416) - lu(684) * lu(1391) + lu(1417) = lu(1417) - lu(685) * lu(1391) + lu(1418) = lu(1418) - lu(686) * lu(1391) + lu(1420) = lu(1420) - lu(687) * lu(1391) + lu(1433) = - lu(661) * lu(1432) + lu(1434) = lu(1434) - lu(662) * lu(1432) + lu(1435) = lu(1435) - lu(663) * lu(1432) + lu(1436) = lu(1436) - lu(664) * lu(1432) + lu(1437) = lu(1437) - lu(665) * lu(1432) + lu(1438) = lu(1438) - lu(666) * lu(1432) + lu(1439) = lu(1439) - lu(667) * lu(1432) + lu(1440) = - lu(668) * lu(1432) + lu(1441) = - lu(669) * lu(1432) + lu(1442) = lu(1442) - lu(670) * lu(1432) + lu(1443) = lu(1443) - lu(671) * lu(1432) + lu(1444) = - lu(672) * lu(1432) + lu(1445) = lu(1445) - lu(673) * lu(1432) + lu(1446) = lu(1446) - lu(674) * lu(1432) + lu(1447) = lu(1447) - lu(675) * lu(1432) + lu(1448) = lu(1448) - lu(676) * lu(1432) + lu(1449) = lu(1449) - lu(677) * lu(1432) + lu(1450) = lu(1450) - lu(678) * lu(1432) + lu(1451) = lu(1451) - lu(679) * lu(1432) + lu(1452) = lu(1452) - lu(680) * lu(1432) + lu(1453) = lu(1453) - lu(681) * lu(1432) + lu(1454) = - lu(682) * lu(1432) + lu(1456) = lu(1456) - lu(683) * lu(1432) + lu(1457) = lu(1457) - lu(684) * lu(1432) + lu(1458) = - lu(685) * lu(1432) + lu(1459) = lu(1459) - lu(686) * lu(1432) + lu(1461) = lu(1461) - lu(687) * lu(1432) + lu(1468) = lu(1468) - lu(661) * lu(1467) + lu(1469) = lu(1469) - lu(662) * lu(1467) + lu(1470) = lu(1470) - lu(663) * lu(1467) + lu(1471) = lu(1471) - lu(664) * lu(1467) + lu(1472) = lu(1472) - lu(665) * lu(1467) + lu(1473) = lu(1473) - lu(666) * lu(1467) + lu(1474) = lu(1474) - lu(667) * lu(1467) + lu(1475) = - lu(668) * lu(1467) + lu(1476) = - lu(669) * lu(1467) + lu(1477) = lu(1477) - lu(670) * lu(1467) + lu(1478) = lu(1478) - lu(671) * lu(1467) + lu(1479) = lu(1479) - lu(672) * lu(1467) + lu(1480) = lu(1480) - lu(673) * lu(1467) + lu(1481) = lu(1481) - lu(674) * lu(1467) + lu(1482) = lu(1482) - lu(675) * lu(1467) + lu(1483) = lu(1483) - lu(676) * lu(1467) + lu(1484) = lu(1484) - lu(677) * lu(1467) + lu(1485) = lu(1485) - lu(678) * lu(1467) + lu(1486) = lu(1486) - lu(679) * lu(1467) + lu(1487) = lu(1487) - lu(680) * lu(1467) + lu(1488) = lu(1488) - lu(681) * lu(1467) + lu(1489) = - lu(682) * lu(1467) + lu(1491) = lu(1491) - lu(683) * lu(1467) + lu(1492) = lu(1492) - lu(684) * lu(1467) + lu(1493) = - lu(685) * lu(1467) + lu(1494) = lu(1494) - lu(686) * lu(1467) + lu(1496) = lu(1496) - lu(687) * lu(1467) + lu(1512) = lu(1512) - lu(661) * lu(1511) + lu(1513) = - lu(662) * lu(1511) + lu(1514) = lu(1514) - lu(663) * lu(1511) + lu(1515) = lu(1515) - lu(664) * lu(1511) + lu(1516) = lu(1516) - lu(665) * lu(1511) + lu(1517) = lu(1517) - lu(666) * lu(1511) + lu(1518) = lu(1518) - lu(667) * lu(1511) + lu(1519) = - lu(668) * lu(1511) + lu(1520) = - lu(669) * lu(1511) + lu(1521) = lu(1521) - lu(670) * lu(1511) + lu(1522) = lu(1522) - lu(671) * lu(1511) + lu(1523) = - lu(672) * lu(1511) + lu(1524) = lu(1524) - lu(673) * lu(1511) + lu(1525) = lu(1525) - lu(674) * lu(1511) + lu(1526) = lu(1526) - lu(675) * lu(1511) + lu(1527) = lu(1527) - lu(676) * lu(1511) + lu(1528) = lu(1528) - lu(677) * lu(1511) + lu(1529) = lu(1529) - lu(678) * lu(1511) + lu(1530) = lu(1530) - lu(679) * lu(1511) + lu(1531) = lu(1531) - lu(680) * lu(1511) + lu(1532) = lu(1532) - lu(681) * lu(1511) + lu(1533) = - lu(682) * lu(1511) + lu(1535) = lu(1535) - lu(683) * lu(1511) + lu(1536) = lu(1536) - lu(684) * lu(1511) + lu(1537) = - lu(685) * lu(1511) + lu(1538) = lu(1538) - lu(686) * lu(1511) + lu(1540) = lu(1540) - lu(687) * lu(1511) + lu(1554) = lu(1554) - lu(661) * lu(1553) + lu(1555) = lu(1555) - lu(662) * lu(1553) + lu(1556) = - lu(663) * lu(1553) + lu(1557) = lu(1557) - lu(664) * lu(1553) + lu(1558) = lu(1558) - lu(665) * lu(1553) + lu(1559) = lu(1559) - lu(666) * lu(1553) + lu(1560) = lu(1560) - lu(667) * lu(1553) + lu(1561) = lu(1561) - lu(668) * lu(1553) + lu(1562) = lu(1562) - lu(669) * lu(1553) + lu(1563) = lu(1563) - lu(670) * lu(1553) + lu(1564) = lu(1564) - lu(671) * lu(1553) + lu(1565) = lu(1565) - lu(672) * lu(1553) + lu(1566) = lu(1566) - lu(673) * lu(1553) + lu(1567) = lu(1567) - lu(674) * lu(1553) + lu(1568) = lu(1568) - lu(675) * lu(1553) + lu(1569) = lu(1569) - lu(676) * lu(1553) + lu(1570) = lu(1570) - lu(677) * lu(1553) + lu(1571) = lu(1571) - lu(678) * lu(1553) + lu(1572) = - lu(679) * lu(1553) + lu(1573) = lu(1573) - lu(680) * lu(1553) + lu(1574) = - lu(681) * lu(1553) + lu(1575) = lu(1575) - lu(682) * lu(1553) + lu(1577) = - lu(683) * lu(1553) + lu(1578) = - lu(684) * lu(1553) + lu(1579) = lu(1579) - lu(685) * lu(1553) + lu(1580) = lu(1580) - lu(686) * lu(1553) + lu(1582) = lu(1582) - lu(687) * lu(1553) + lu(1702) = lu(1702) - lu(661) * lu(1701) + lu(1703) = lu(1703) - lu(662) * lu(1701) + lu(1704) = - lu(663) * lu(1701) + lu(1705) = lu(1705) - lu(664) * lu(1701) + lu(1706) = lu(1706) - lu(665) * lu(1701) + lu(1707) = lu(1707) - lu(666) * lu(1701) + lu(1708) = lu(1708) - lu(667) * lu(1701) + lu(1709) = lu(1709) - lu(668) * lu(1701) + lu(1710) = lu(1710) - lu(669) * lu(1701) + lu(1711) = lu(1711) - lu(670) * lu(1701) + lu(1712) = lu(1712) - lu(671) * lu(1701) + lu(1713) = lu(1713) - lu(672) * lu(1701) + lu(1714) = lu(1714) - lu(673) * lu(1701) + lu(1715) = lu(1715) - lu(674) * lu(1701) + lu(1716) = lu(1716) - lu(675) * lu(1701) + lu(1717) = lu(1717) - lu(676) * lu(1701) + lu(1718) = lu(1718) - lu(677) * lu(1701) + lu(1719) = lu(1719) - lu(678) * lu(1701) + lu(1720) = - lu(679) * lu(1701) + lu(1721) = lu(1721) - lu(680) * lu(1701) + lu(1722) = - lu(681) * lu(1701) + lu(1723) = lu(1723) - lu(682) * lu(1701) + lu(1725) = - lu(683) * lu(1701) + lu(1726) = - lu(684) * lu(1701) + lu(1727) = lu(1727) - lu(685) * lu(1701) + lu(1728) = lu(1728) - lu(686) * lu(1701) + lu(1730) = lu(1730) - lu(687) * lu(1701) end subroutine lu_fac16 - subroutine lu_fac17( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac17( lu ) 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,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,696) = lu(k,696) * lu(k,690) - lu(k,697) = lu(k,697) * lu(k,690) - lu(k,698) = lu(k,698) * lu(k,690) - lu(k,699) = lu(k,699) * lu(k,690) - lu(k,700) = lu(k,700) * lu(k,690) - lu(k,701) = lu(k,701) * lu(k,690) - lu(k,702) = lu(k,702) * lu(k,690) - lu(k,703) = lu(k,703) * lu(k,690) - lu(k,704) = lu(k,704) * lu(k,690) - lu(k,705) = lu(k,705) * lu(k,690) - lu(k,706) = lu(k,706) * lu(k,690) - lu(k,707) = lu(k,707) * lu(k,690) - lu(k,708) = lu(k,708) * lu(k,690) - lu(k,713) = lu(k,713) - lu(k,691) * lu(k,712) - lu(k,714) = lu(k,714) - lu(k,692) * lu(k,712) - lu(k,715) = lu(k,715) - lu(k,693) * lu(k,712) - lu(k,716) = lu(k,716) - lu(k,694) * lu(k,712) - lu(k,717) = lu(k,717) - lu(k,695) * lu(k,712) - lu(k,718) = lu(k,718) - lu(k,696) * lu(k,712) - lu(k,719) = lu(k,719) - lu(k,697) * lu(k,712) - lu(k,721) = lu(k,721) - lu(k,698) * lu(k,712) - lu(k,723) = lu(k,723) - lu(k,699) * lu(k,712) - lu(k,724) = lu(k,724) - lu(k,700) * lu(k,712) - lu(k,725) = lu(k,725) - lu(k,701) * lu(k,712) - lu(k,727) = - lu(k,702) * lu(k,712) - lu(k,728) = lu(k,728) - lu(k,703) * lu(k,712) - lu(k,729) = lu(k,729) - lu(k,704) * lu(k,712) - lu(k,730) = lu(k,730) - lu(k,705) * lu(k,712) - lu(k,731) = lu(k,731) - lu(k,706) * lu(k,712) - lu(k,732) = lu(k,732) - lu(k,707) * lu(k,712) - lu(k,733) = lu(k,733) - lu(k,708) * lu(k,712) - lu(k,820) = lu(k,820) - lu(k,691) * lu(k,819) - lu(k,823) = lu(k,823) - lu(k,692) * lu(k,819) - lu(k,824) = lu(k,824) - lu(k,693) * lu(k,819) - lu(k,825) = lu(k,825) - lu(k,694) * lu(k,819) - lu(k,826) = lu(k,826) - lu(k,695) * lu(k,819) - lu(k,827) = lu(k,827) - lu(k,696) * lu(k,819) - lu(k,828) = lu(k,828) - lu(k,697) * lu(k,819) - lu(k,830) = - lu(k,698) * lu(k,819) - lu(k,832) = lu(k,832) - lu(k,699) * lu(k,819) - lu(k,833) = lu(k,833) - lu(k,700) * lu(k,819) - lu(k,835) = lu(k,835) - lu(k,701) * lu(k,819) - lu(k,837) = lu(k,837) - lu(k,702) * lu(k,819) - lu(k,838) = lu(k,838) - lu(k,703) * lu(k,819) - lu(k,839) = lu(k,839) - lu(k,704) * lu(k,819) - lu(k,840) = lu(k,840) - lu(k,705) * lu(k,819) - lu(k,843) = lu(k,843) - lu(k,706) * lu(k,819) - lu(k,845) = lu(k,845) - lu(k,707) * lu(k,819) - lu(k,846) = lu(k,846) - lu(k,708) * lu(k,819) - lu(k,850) = lu(k,850) - lu(k,691) * lu(k,849) - lu(k,852) = lu(k,852) - lu(k,692) * lu(k,849) - lu(k,853) = lu(k,853) - lu(k,693) * lu(k,849) - lu(k,854) = lu(k,854) - lu(k,694) * lu(k,849) - lu(k,855) = lu(k,855) - lu(k,695) * lu(k,849) - lu(k,856) = lu(k,856) - lu(k,696) * lu(k,849) - lu(k,857) = lu(k,857) - lu(k,697) * lu(k,849) - lu(k,859) = lu(k,859) - lu(k,698) * lu(k,849) - lu(k,861) = lu(k,861) - lu(k,699) * lu(k,849) - lu(k,862) = lu(k,862) - lu(k,700) * lu(k,849) - lu(k,864) = lu(k,864) - lu(k,701) * lu(k,849) - lu(k,866) = lu(k,866) - lu(k,702) * lu(k,849) - lu(k,867) = lu(k,867) - lu(k,703) * lu(k,849) - lu(k,868) = lu(k,868) - lu(k,704) * lu(k,849) - lu(k,869) = lu(k,869) - lu(k,705) * lu(k,849) - lu(k,872) = lu(k,872) - lu(k,706) * lu(k,849) - lu(k,874) = lu(k,874) - lu(k,707) * lu(k,849) - lu(k,875) = lu(k,875) - lu(k,708) * lu(k,849) - lu(k,895) = lu(k,895) - lu(k,691) * lu(k,894) - lu(k,899) = lu(k,899) - lu(k,692) * lu(k,894) - lu(k,900) = lu(k,900) - lu(k,693) * lu(k,894) - lu(k,901) = lu(k,901) - lu(k,694) * lu(k,894) - lu(k,902) = lu(k,902) - lu(k,695) * lu(k,894) - lu(k,903) = lu(k,903) - lu(k,696) * lu(k,894) - lu(k,904) = lu(k,904) - lu(k,697) * lu(k,894) - lu(k,906) = lu(k,906) - lu(k,698) * lu(k,894) - lu(k,908) = lu(k,908) - lu(k,699) * lu(k,894) - lu(k,909) = lu(k,909) - lu(k,700) * lu(k,894) - lu(k,911) = lu(k,911) - lu(k,701) * lu(k,894) - lu(k,913) = lu(k,913) - lu(k,702) * lu(k,894) - lu(k,914) = lu(k,914) - lu(k,703) * lu(k,894) - lu(k,915) = lu(k,915) - lu(k,704) * lu(k,894) - lu(k,916) = lu(k,916) - lu(k,705) * lu(k,894) - lu(k,919) = lu(k,919) - lu(k,706) * lu(k,894) - lu(k,921) = lu(k,921) - lu(k,707) * lu(k,894) - lu(k,922) = lu(k,922) - lu(k,708) * lu(k,894) - lu(k,937) = lu(k,937) - lu(k,691) * lu(k,936) - lu(k,941) = lu(k,941) - lu(k,692) * lu(k,936) - lu(k,942) = lu(k,942) - lu(k,693) * lu(k,936) - lu(k,943) = lu(k,943) - lu(k,694) * lu(k,936) - lu(k,944) = lu(k,944) - lu(k,695) * lu(k,936) - lu(k,945) = lu(k,945) - lu(k,696) * lu(k,936) - lu(k,946) = lu(k,946) - lu(k,697) * lu(k,936) - lu(k,948) = lu(k,948) - lu(k,698) * lu(k,936) - lu(k,950) = lu(k,950) - lu(k,699) * lu(k,936) - lu(k,951) = lu(k,951) - lu(k,700) * lu(k,936) - lu(k,953) = lu(k,953) - lu(k,701) * lu(k,936) - lu(k,955) = lu(k,955) - lu(k,702) * lu(k,936) - lu(k,956) = lu(k,956) - lu(k,703) * lu(k,936) - lu(k,957) = lu(k,957) - lu(k,704) * lu(k,936) - lu(k,958) = lu(k,958) - lu(k,705) * lu(k,936) - lu(k,961) = lu(k,961) - lu(k,706) * lu(k,936) - lu(k,963) = lu(k,963) - lu(k,707) * lu(k,936) - lu(k,964) = lu(k,964) - lu(k,708) * lu(k,936) - lu(k,983) = lu(k,983) - lu(k,691) * lu(k,982) - lu(k,987) = lu(k,987) - lu(k,692) * lu(k,982) - lu(k,988) = lu(k,988) - lu(k,693) * lu(k,982) - lu(k,989) = lu(k,989) - lu(k,694) * lu(k,982) - lu(k,990) = lu(k,990) - lu(k,695) * lu(k,982) - lu(k,991) = lu(k,991) - lu(k,696) * lu(k,982) - lu(k,992) = lu(k,992) - lu(k,697) * lu(k,982) - lu(k,994) = lu(k,994) - lu(k,698) * lu(k,982) - lu(k,996) = lu(k,996) - lu(k,699) * lu(k,982) - lu(k,997) = lu(k,997) - lu(k,700) * lu(k,982) - lu(k,999) = lu(k,999) - lu(k,701) * lu(k,982) - lu(k,1001) = lu(k,1001) - lu(k,702) * lu(k,982) - lu(k,1002) = lu(k,1002) - lu(k,703) * lu(k,982) - lu(k,1003) = lu(k,1003) - lu(k,704) * lu(k,982) - lu(k,1004) = lu(k,1004) - lu(k,705) * lu(k,982) - lu(k,1007) = lu(k,1007) - lu(k,706) * lu(k,982) - lu(k,1009) = lu(k,1009) - lu(k,707) * lu(k,982) - lu(k,1010) = lu(k,1010) - lu(k,708) * lu(k,982) - lu(k,1025) = lu(k,1025) - lu(k,691) * lu(k,1024) - lu(k,1029) = lu(k,1029) - lu(k,692) * lu(k,1024) - lu(k,1030) = lu(k,1030) - lu(k,693) * lu(k,1024) - lu(k,1031) = lu(k,1031) - lu(k,694) * lu(k,1024) - lu(k,1032) = lu(k,1032) - lu(k,695) * lu(k,1024) - lu(k,1033) = lu(k,1033) - lu(k,696) * lu(k,1024) - lu(k,1034) = lu(k,1034) - lu(k,697) * lu(k,1024) - lu(k,1036) = lu(k,1036) - lu(k,698) * lu(k,1024) - lu(k,1038) = lu(k,1038) - lu(k,699) * lu(k,1024) - lu(k,1039) = lu(k,1039) - lu(k,700) * lu(k,1024) - lu(k,1041) = lu(k,1041) - lu(k,701) * lu(k,1024) - lu(k,1043) = lu(k,1043) - lu(k,702) * lu(k,1024) - lu(k,1044) = lu(k,1044) - lu(k,703) * lu(k,1024) - lu(k,1045) = lu(k,1045) - lu(k,704) * lu(k,1024) - lu(k,1046) = lu(k,1046) - lu(k,705) * lu(k,1024) - lu(k,1049) = lu(k,1049) - lu(k,706) * lu(k,1024) - lu(k,1051) = lu(k,1051) - lu(k,707) * lu(k,1024) - lu(k,1052) = lu(k,1052) - lu(k,708) * lu(k,1024) - lu(k,1066) = lu(k,1066) - lu(k,691) * lu(k,1065) - lu(k,1070) = lu(k,1070) - lu(k,692) * lu(k,1065) - lu(k,1071) = lu(k,1071) - lu(k,693) * lu(k,1065) - lu(k,1072) = lu(k,1072) - lu(k,694) * lu(k,1065) - lu(k,1073) = lu(k,1073) - lu(k,695) * lu(k,1065) - lu(k,1074) = lu(k,1074) - lu(k,696) * lu(k,1065) - lu(k,1075) = lu(k,1075) - lu(k,697) * lu(k,1065) - lu(k,1077) = lu(k,1077) - lu(k,698) * lu(k,1065) - lu(k,1079) = lu(k,1079) - lu(k,699) * lu(k,1065) - lu(k,1080) = lu(k,1080) - lu(k,700) * lu(k,1065) - lu(k,1082) = lu(k,1082) - lu(k,701) * lu(k,1065) - lu(k,1084) = lu(k,1084) - lu(k,702) * lu(k,1065) - lu(k,1085) = lu(k,1085) - lu(k,703) * lu(k,1065) - lu(k,1086) = lu(k,1086) - lu(k,704) * lu(k,1065) - lu(k,1087) = lu(k,1087) - lu(k,705) * lu(k,1065) - lu(k,1090) = lu(k,1090) - lu(k,706) * lu(k,1065) - lu(k,1092) = lu(k,1092) - lu(k,707) * lu(k,1065) - lu(k,1093) = lu(k,1093) - lu(k,708) * lu(k,1065) - lu(k,1149) = lu(k,1149) - lu(k,691) * lu(k,1148) - lu(k,1153) = lu(k,1153) - lu(k,692) * lu(k,1148) - lu(k,1154) = lu(k,1154) - lu(k,693) * lu(k,1148) - lu(k,1155) = lu(k,1155) - lu(k,694) * lu(k,1148) - lu(k,1156) = lu(k,1156) - lu(k,695) * lu(k,1148) - lu(k,1157) = lu(k,1157) - lu(k,696) * lu(k,1148) - lu(k,1158) = lu(k,1158) - lu(k,697) * lu(k,1148) - lu(k,1160) = lu(k,1160) - lu(k,698) * lu(k,1148) - lu(k,1162) = lu(k,1162) - lu(k,699) * lu(k,1148) - lu(k,1163) = lu(k,1163) - lu(k,700) * lu(k,1148) - lu(k,1165) = lu(k,1165) - lu(k,701) * lu(k,1148) - lu(k,1167) = lu(k,1167) - lu(k,702) * lu(k,1148) - lu(k,1168) = lu(k,1168) - lu(k,703) * lu(k,1148) - lu(k,1169) = lu(k,1169) - lu(k,704) * lu(k,1148) - lu(k,1170) = lu(k,1170) - lu(k,705) * lu(k,1148) - lu(k,1173) = lu(k,1173) - lu(k,706) * lu(k,1148) - lu(k,1175) = lu(k,1175) - lu(k,707) * lu(k,1148) - lu(k,1176) = lu(k,1176) - lu(k,708) * lu(k,1148) - lu(k,1190) = lu(k,1190) - lu(k,691) * lu(k,1189) - lu(k,1194) = lu(k,1194) - lu(k,692) * lu(k,1189) - lu(k,1195) = lu(k,1195) - lu(k,693) * lu(k,1189) - lu(k,1196) = lu(k,1196) - lu(k,694) * lu(k,1189) - lu(k,1197) = lu(k,1197) - lu(k,695) * lu(k,1189) - lu(k,1198) = lu(k,1198) - lu(k,696) * lu(k,1189) - lu(k,1199) = lu(k,1199) - lu(k,697) * lu(k,1189) - lu(k,1201) = lu(k,1201) - lu(k,698) * lu(k,1189) - lu(k,1203) = lu(k,1203) - lu(k,699) * lu(k,1189) - lu(k,1204) = lu(k,1204) - lu(k,700) * lu(k,1189) - lu(k,1206) = lu(k,1206) - lu(k,701) * lu(k,1189) - lu(k,1208) = lu(k,1208) - lu(k,702) * lu(k,1189) - lu(k,1209) = lu(k,1209) - lu(k,703) * lu(k,1189) - lu(k,1210) = lu(k,1210) - lu(k,704) * lu(k,1189) - lu(k,1211) = lu(k,1211) - lu(k,705) * lu(k,1189) - lu(k,1214) = lu(k,1214) - lu(k,706) * lu(k,1189) - lu(k,1216) = lu(k,1216) - lu(k,707) * lu(k,1189) - lu(k,1217) = lu(k,1217) - lu(k,708) * lu(k,1189) - lu(k,1239) = lu(k,1239) - lu(k,691) * lu(k,1238) - lu(k,1243) = lu(k,1243) - lu(k,692) * lu(k,1238) - lu(k,1244) = lu(k,1244) - lu(k,693) * lu(k,1238) - lu(k,1245) = lu(k,1245) - lu(k,694) * lu(k,1238) - lu(k,1246) = lu(k,1246) - lu(k,695) * lu(k,1238) - lu(k,1247) = lu(k,1247) - lu(k,696) * lu(k,1238) - lu(k,1248) = lu(k,1248) - lu(k,697) * lu(k,1238) - lu(k,1250) = lu(k,1250) - lu(k,698) * lu(k,1238) - lu(k,1252) = lu(k,1252) - lu(k,699) * lu(k,1238) - lu(k,1253) = lu(k,1253) - lu(k,700) * lu(k,1238) - lu(k,1255) = lu(k,1255) - lu(k,701) * lu(k,1238) - lu(k,1257) = lu(k,1257) - lu(k,702) * lu(k,1238) - lu(k,1258) = lu(k,1258) - lu(k,703) * lu(k,1238) - lu(k,1259) = lu(k,1259) - lu(k,704) * lu(k,1238) - lu(k,1260) = lu(k,1260) - lu(k,705) * lu(k,1238) - lu(k,1263) = lu(k,1263) - lu(k,706) * lu(k,1238) - lu(k,1265) = lu(k,1265) - lu(k,707) * lu(k,1238) - lu(k,1266) = lu(k,1266) - lu(k,708) * lu(k,1238) - lu(k,1278) = lu(k,1278) - lu(k,691) * lu(k,1277) - lu(k,1282) = lu(k,1282) - lu(k,692) * lu(k,1277) - lu(k,1283) = lu(k,1283) - lu(k,693) * lu(k,1277) - lu(k,1284) = lu(k,1284) - lu(k,694) * lu(k,1277) - lu(k,1285) = lu(k,1285) - lu(k,695) * lu(k,1277) - lu(k,1286) = lu(k,1286) - lu(k,696) * lu(k,1277) - lu(k,1287) = lu(k,1287) - lu(k,697) * lu(k,1277) - lu(k,1289) = lu(k,1289) - lu(k,698) * lu(k,1277) - lu(k,1291) = lu(k,1291) - lu(k,699) * lu(k,1277) - lu(k,1292) = lu(k,1292) - lu(k,700) * lu(k,1277) - lu(k,1294) = lu(k,1294) - lu(k,701) * lu(k,1277) - lu(k,1296) = lu(k,1296) - lu(k,702) * lu(k,1277) - lu(k,1297) = lu(k,1297) - lu(k,703) * lu(k,1277) - lu(k,1298) = lu(k,1298) - lu(k,704) * lu(k,1277) - lu(k,1299) = lu(k,1299) - lu(k,705) * lu(k,1277) - lu(k,1302) = lu(k,1302) - lu(k,706) * lu(k,1277) - lu(k,1304) = lu(k,1304) - lu(k,707) * lu(k,1277) - lu(k,1305) = lu(k,1305) - lu(k,708) * lu(k,1277) - lu(k,1313) = lu(k,1313) - lu(k,691) * lu(k,1312) - lu(k,1317) = lu(k,1317) - lu(k,692) * lu(k,1312) - lu(k,1318) = lu(k,1318) - lu(k,693) * lu(k,1312) - lu(k,1319) = lu(k,1319) - lu(k,694) * lu(k,1312) - lu(k,1320) = lu(k,1320) - lu(k,695) * lu(k,1312) - lu(k,1321) = lu(k,1321) - lu(k,696) * lu(k,1312) - lu(k,1322) = lu(k,1322) - lu(k,697) * lu(k,1312) - lu(k,1324) = lu(k,1324) - lu(k,698) * lu(k,1312) - lu(k,1326) = lu(k,1326) - lu(k,699) * lu(k,1312) - lu(k,1327) = lu(k,1327) - lu(k,700) * lu(k,1312) - lu(k,1329) = lu(k,1329) - lu(k,701) * lu(k,1312) - lu(k,1331) = lu(k,1331) - lu(k,702) * lu(k,1312) - lu(k,1332) = lu(k,1332) - lu(k,703) * lu(k,1312) - lu(k,1333) = lu(k,1333) - lu(k,704) * lu(k,1312) - lu(k,1334) = lu(k,1334) - lu(k,705) * lu(k,1312) - lu(k,1337) = lu(k,1337) - lu(k,706) * lu(k,1312) - lu(k,1339) = lu(k,1339) - lu(k,707) * lu(k,1312) - lu(k,1340) = lu(k,1340) - lu(k,708) * lu(k,1312) - lu(k,1357) = lu(k,1357) - lu(k,691) * lu(k,1356) - lu(k,1361) = lu(k,1361) - lu(k,692) * lu(k,1356) - lu(k,1362) = lu(k,1362) - lu(k,693) * lu(k,1356) - lu(k,1363) = lu(k,1363) - lu(k,694) * lu(k,1356) - lu(k,1364) = lu(k,1364) - lu(k,695) * lu(k,1356) - lu(k,1365) = lu(k,1365) - lu(k,696) * lu(k,1356) - lu(k,1366) = lu(k,1366) - lu(k,697) * lu(k,1356) - lu(k,1368) = lu(k,1368) - lu(k,698) * lu(k,1356) - lu(k,1370) = lu(k,1370) - lu(k,699) * lu(k,1356) - lu(k,1371) = lu(k,1371) - lu(k,700) * lu(k,1356) - lu(k,1373) = lu(k,1373) - lu(k,701) * lu(k,1356) - lu(k,1375) = lu(k,1375) - lu(k,702) * lu(k,1356) - lu(k,1376) = lu(k,1376) - lu(k,703) * lu(k,1356) - lu(k,1377) = lu(k,1377) - lu(k,704) * lu(k,1356) - lu(k,1378) = lu(k,1378) - lu(k,705) * lu(k,1356) - lu(k,1381) = lu(k,1381) - lu(k,706) * lu(k,1356) - lu(k,1383) = lu(k,1383) - lu(k,707) * lu(k,1356) - lu(k,1384) = lu(k,1384) - lu(k,708) * lu(k,1356) - lu(k,1416) = lu(k,1416) - lu(k,691) * lu(k,1415) - lu(k,1420) = lu(k,1420) - lu(k,692) * lu(k,1415) - lu(k,1421) = lu(k,1421) - lu(k,693) * lu(k,1415) - lu(k,1422) = lu(k,1422) - lu(k,694) * lu(k,1415) - lu(k,1423) = lu(k,1423) - lu(k,695) * lu(k,1415) - lu(k,1424) = lu(k,1424) - lu(k,696) * lu(k,1415) - lu(k,1425) = lu(k,1425) - lu(k,697) * lu(k,1415) - lu(k,1427) = lu(k,1427) - lu(k,698) * lu(k,1415) - lu(k,1429) = lu(k,1429) - lu(k,699) * lu(k,1415) - lu(k,1430) = lu(k,1430) - lu(k,700) * lu(k,1415) - lu(k,1432) = lu(k,1432) - lu(k,701) * lu(k,1415) - lu(k,1434) = lu(k,1434) - lu(k,702) * lu(k,1415) - lu(k,1435) = lu(k,1435) - lu(k,703) * lu(k,1415) - lu(k,1436) = lu(k,1436) - lu(k,704) * lu(k,1415) - lu(k,1437) = lu(k,1437) - lu(k,705) * lu(k,1415) - lu(k,1440) = lu(k,1440) - lu(k,706) * lu(k,1415) - lu(k,1442) = lu(k,1442) - lu(k,707) * lu(k,1415) - lu(k,1443) = lu(k,1443) - lu(k,708) * lu(k,1415) - lu(k,1458) = lu(k,1458) - lu(k,691) * lu(k,1457) - lu(k,1462) = lu(k,1462) - lu(k,692) * lu(k,1457) - lu(k,1463) = lu(k,1463) - lu(k,693) * lu(k,1457) - lu(k,1464) = lu(k,1464) - lu(k,694) * lu(k,1457) - lu(k,1465) = lu(k,1465) - lu(k,695) * lu(k,1457) - lu(k,1466) = lu(k,1466) - lu(k,696) * lu(k,1457) - lu(k,1467) = lu(k,1467) - lu(k,697) * lu(k,1457) - lu(k,1469) = lu(k,1469) - lu(k,698) * lu(k,1457) - lu(k,1471) = lu(k,1471) - lu(k,699) * lu(k,1457) - lu(k,1472) = lu(k,1472) - lu(k,700) * lu(k,1457) - lu(k,1474) = lu(k,1474) - lu(k,701) * lu(k,1457) - lu(k,1476) = lu(k,1476) - lu(k,702) * lu(k,1457) - lu(k,1477) = lu(k,1477) - lu(k,703) * lu(k,1457) - lu(k,1478) = lu(k,1478) - lu(k,704) * lu(k,1457) - lu(k,1479) = lu(k,1479) - lu(k,705) * lu(k,1457) - lu(k,1482) = lu(k,1482) - lu(k,706) * lu(k,1457) - lu(k,1484) = lu(k,1484) - lu(k,707) * lu(k,1457) - lu(k,1485) = lu(k,1485) - lu(k,708) * lu(k,1457) - lu(k,1499) = lu(k,1499) - lu(k,691) * lu(k,1498) - lu(k,1503) = lu(k,1503) - lu(k,692) * lu(k,1498) - lu(k,1504) = lu(k,1504) - lu(k,693) * lu(k,1498) - lu(k,1505) = lu(k,1505) - lu(k,694) * lu(k,1498) - lu(k,1506) = lu(k,1506) - lu(k,695) * lu(k,1498) - lu(k,1507) = lu(k,1507) - lu(k,696) * lu(k,1498) - lu(k,1508) = lu(k,1508) - lu(k,697) * lu(k,1498) - lu(k,1510) = lu(k,1510) - lu(k,698) * lu(k,1498) - lu(k,1512) = lu(k,1512) - lu(k,699) * lu(k,1498) - lu(k,1513) = lu(k,1513) - lu(k,700) * lu(k,1498) - lu(k,1515) = lu(k,1515) - lu(k,701) * lu(k,1498) - lu(k,1517) = lu(k,1517) - lu(k,702) * lu(k,1498) - lu(k,1518) = lu(k,1518) - lu(k,703) * lu(k,1498) - lu(k,1519) = lu(k,1519) - lu(k,704) * lu(k,1498) - lu(k,1520) = lu(k,1520) - lu(k,705) * lu(k,1498) - lu(k,1523) = lu(k,1523) - lu(k,706) * lu(k,1498) - lu(k,1525) = lu(k,1525) - lu(k,707) * lu(k,1498) - lu(k,1526) = lu(k,1526) - lu(k,708) * lu(k,1498) - lu(k,1583) = lu(k,1583) - lu(k,691) * lu(k,1582) - lu(k,1587) = lu(k,1587) - lu(k,692) * lu(k,1582) - lu(k,1588) = lu(k,1588) - lu(k,693) * lu(k,1582) - lu(k,1589) = lu(k,1589) - lu(k,694) * lu(k,1582) - lu(k,1590) = lu(k,1590) - lu(k,695) * lu(k,1582) - lu(k,1591) = lu(k,1591) - lu(k,696) * lu(k,1582) - lu(k,1592) = lu(k,1592) - lu(k,697) * lu(k,1582) - lu(k,1594) = lu(k,1594) - lu(k,698) * lu(k,1582) - lu(k,1596) = lu(k,1596) - lu(k,699) * lu(k,1582) - lu(k,1597) = lu(k,1597) - lu(k,700) * lu(k,1582) - lu(k,1599) = lu(k,1599) - lu(k,701) * lu(k,1582) - lu(k,1601) = lu(k,1601) - lu(k,702) * lu(k,1582) - lu(k,1602) = lu(k,1602) - lu(k,703) * lu(k,1582) - lu(k,1603) = lu(k,1603) - lu(k,704) * lu(k,1582) - lu(k,1604) = lu(k,1604) - lu(k,705) * lu(k,1582) - lu(k,1607) = lu(k,1607) - lu(k,706) * lu(k,1582) - lu(k,1609) = lu(k,1609) - lu(k,707) * lu(k,1582) - lu(k,1610) = lu(k,1610) - lu(k,708) * lu(k,1582) - lu(k,1615) = lu(k,1615) - lu(k,691) * lu(k,1614) - lu(k,1619) = lu(k,1619) - lu(k,692) * lu(k,1614) - lu(k,1620) = lu(k,1620) - lu(k,693) * lu(k,1614) - lu(k,1621) = lu(k,1621) - lu(k,694) * lu(k,1614) - lu(k,1622) = lu(k,1622) - lu(k,695) * lu(k,1614) - lu(k,1623) = lu(k,1623) - lu(k,696) * lu(k,1614) - lu(k,1624) = lu(k,1624) - lu(k,697) * lu(k,1614) - lu(k,1626) = lu(k,1626) - lu(k,698) * lu(k,1614) - lu(k,1628) = lu(k,1628) - lu(k,699) * lu(k,1614) - lu(k,1629) = - lu(k,700) * lu(k,1614) - lu(k,1631) = lu(k,1631) - lu(k,701) * lu(k,1614) - lu(k,1633) = lu(k,1633) - lu(k,702) * lu(k,1614) - lu(k,1634) = lu(k,1634) - lu(k,703) * lu(k,1614) - lu(k,1635) = lu(k,1635) - lu(k,704) * lu(k,1614) - lu(k,1636) = lu(k,1636) - lu(k,705) * lu(k,1614) - lu(k,1639) = lu(k,1639) - lu(k,706) * lu(k,1614) - lu(k,1641) = lu(k,1641) - lu(k,707) * lu(k,1614) - lu(k,1642) = lu(k,1642) - lu(k,708) * lu(k,1614) - lu(k,1650) = lu(k,1650) - lu(k,691) * lu(k,1649) - lu(k,1654) = lu(k,1654) - lu(k,692) * lu(k,1649) - lu(k,1655) = - lu(k,693) * lu(k,1649) - lu(k,1656) = - lu(k,694) * lu(k,1649) - lu(k,1657) = lu(k,1657) - lu(k,695) * lu(k,1649) - lu(k,1658) = lu(k,1658) - lu(k,696) * lu(k,1649) - lu(k,1659) = - lu(k,697) * lu(k,1649) - lu(k,1661) = lu(k,1661) - lu(k,698) * lu(k,1649) - lu(k,1663) = lu(k,1663) - lu(k,699) * lu(k,1649) - lu(k,1664) = lu(k,1664) - lu(k,700) * lu(k,1649) - lu(k,1666) = lu(k,1666) - lu(k,701) * lu(k,1649) - lu(k,1668) = lu(k,1668) - lu(k,702) * lu(k,1649) - lu(k,1669) = lu(k,1669) - lu(k,703) * lu(k,1649) - lu(k,1670) = lu(k,1670) - lu(k,704) * lu(k,1649) - lu(k,1671) = - lu(k,705) * lu(k,1649) - lu(k,1674) = - lu(k,706) * lu(k,1649) - lu(k,1676) = lu(k,1676) - lu(k,707) * lu(k,1649) - lu(k,1677) = lu(k,1677) - lu(k,708) * lu(k,1649) - lu(k,1692) = lu(k,1692) - lu(k,691) * lu(k,1691) - lu(k,1696) = lu(k,1696) - lu(k,692) * lu(k,1691) - lu(k,1697) = lu(k,1697) - lu(k,693) * lu(k,1691) - lu(k,1698) = lu(k,1698) - lu(k,694) * lu(k,1691) - lu(k,1699) = lu(k,1699) - lu(k,695) * lu(k,1691) - lu(k,1700) = lu(k,1700) - lu(k,696) * lu(k,1691) - lu(k,1701) = lu(k,1701) - lu(k,697) * lu(k,1691) - lu(k,1703) = lu(k,1703) - lu(k,698) * lu(k,1691) - lu(k,1705) = lu(k,1705) - lu(k,699) * lu(k,1691) - lu(k,1706) = lu(k,1706) - lu(k,700) * lu(k,1691) - lu(k,1708) = lu(k,1708) - lu(k,701) * lu(k,1691) - lu(k,1710) = lu(k,1710) - lu(k,702) * lu(k,1691) - lu(k,1711) = lu(k,1711) - lu(k,703) * lu(k,1691) - lu(k,1712) = lu(k,1712) - lu(k,704) * lu(k,1691) - lu(k,1713) = lu(k,1713) - lu(k,705) * lu(k,1691) - lu(k,1716) = lu(k,1716) - lu(k,706) * lu(k,1691) - lu(k,1718) = lu(k,1718) - lu(k,707) * lu(k,1691) - lu(k,1719) = lu(k,1719) - lu(k,708) * lu(k,1691) - lu(k,1736) = lu(k,1736) - lu(k,691) * lu(k,1735) - lu(k,1740) = lu(k,1740) - lu(k,692) * lu(k,1735) - lu(k,1741) = lu(k,1741) - lu(k,693) * lu(k,1735) - lu(k,1742) = lu(k,1742) - lu(k,694) * lu(k,1735) - lu(k,1743) = lu(k,1743) - lu(k,695) * lu(k,1735) - lu(k,1744) = lu(k,1744) - lu(k,696) * lu(k,1735) - lu(k,1745) = lu(k,1745) - lu(k,697) * lu(k,1735) - lu(k,1747) = lu(k,1747) - lu(k,698) * lu(k,1735) - lu(k,1749) = lu(k,1749) - lu(k,699) * lu(k,1735) - lu(k,1750) = lu(k,1750) - lu(k,700) * lu(k,1735) - lu(k,1752) = lu(k,1752) - lu(k,701) * lu(k,1735) - lu(k,1754) = lu(k,1754) - lu(k,702) * lu(k,1735) - lu(k,1755) = lu(k,1755) - lu(k,703) * lu(k,1735) - lu(k,1756) = lu(k,1756) - lu(k,704) * lu(k,1735) - lu(k,1757) = lu(k,1757) - lu(k,705) * lu(k,1735) - lu(k,1760) = lu(k,1760) - lu(k,706) * lu(k,1735) - lu(k,1762) = lu(k,1762) - lu(k,707) * lu(k,1735) - lu(k,1763) = lu(k,1763) - lu(k,708) * lu(k,1735) - lu(k,1771) = lu(k,1771) - lu(k,691) * lu(k,1770) - lu(k,1775) = lu(k,1775) - lu(k,692) * lu(k,1770) - lu(k,1776) = lu(k,1776) - lu(k,693) * lu(k,1770) - lu(k,1777) = lu(k,1777) - lu(k,694) * lu(k,1770) - lu(k,1778) = lu(k,1778) - lu(k,695) * lu(k,1770) - lu(k,1779) = lu(k,1779) - lu(k,696) * lu(k,1770) - lu(k,1780) = lu(k,1780) - lu(k,697) * lu(k,1770) - lu(k,1782) = lu(k,1782) - lu(k,698) * lu(k,1770) - lu(k,1784) = lu(k,1784) - lu(k,699) * lu(k,1770) - lu(k,1785) = lu(k,1785) - lu(k,700) * lu(k,1770) - lu(k,1787) = lu(k,1787) - lu(k,701) * lu(k,1770) - lu(k,1789) = lu(k,1789) - lu(k,702) * lu(k,1770) - lu(k,1790) = lu(k,1790) - lu(k,703) * lu(k,1770) - lu(k,1791) = lu(k,1791) - lu(k,704) * lu(k,1770) - lu(k,1792) = lu(k,1792) - lu(k,705) * lu(k,1770) - lu(k,1795) = lu(k,1795) - lu(k,706) * lu(k,1770) - lu(k,1797) = lu(k,1797) - lu(k,707) * lu(k,1770) - lu(k,1798) = lu(k,1798) - lu(k,708) * lu(k,1770) - lu(k,1829) = lu(k,1829) - lu(k,691) * lu(k,1828) - lu(k,1833) = lu(k,1833) - lu(k,692) * lu(k,1828) - lu(k,1834) = lu(k,1834) - lu(k,693) * lu(k,1828) - lu(k,1835) = lu(k,1835) - lu(k,694) * lu(k,1828) - lu(k,1836) = lu(k,1836) - lu(k,695) * lu(k,1828) - lu(k,1837) = lu(k,1837) - lu(k,696) * lu(k,1828) - lu(k,1838) = lu(k,1838) - lu(k,697) * lu(k,1828) - lu(k,1840) = lu(k,1840) - lu(k,698) * lu(k,1828) - lu(k,1842) = lu(k,1842) - lu(k,699) * lu(k,1828) - lu(k,1843) = lu(k,1843) - lu(k,700) * lu(k,1828) - lu(k,1845) = lu(k,1845) - lu(k,701) * lu(k,1828) - lu(k,1847) = lu(k,1847) - lu(k,702) * lu(k,1828) - lu(k,1848) = lu(k,1848) - lu(k,703) * lu(k,1828) - lu(k,1849) = lu(k,1849) - lu(k,704) * lu(k,1828) - lu(k,1850) = lu(k,1850) - lu(k,705) * lu(k,1828) - lu(k,1853) = lu(k,1853) - lu(k,706) * lu(k,1828) - lu(k,1855) = lu(k,1855) - lu(k,707) * lu(k,1828) - lu(k,1856) = lu(k,1856) - lu(k,708) * lu(k,1828) - lu(k,713) = 1._r8 / lu(k,713) - lu(k,714) = lu(k,714) * lu(k,713) - lu(k,715) = lu(k,715) * lu(k,713) - lu(k,716) = lu(k,716) * lu(k,713) - lu(k,717) = lu(k,717) * lu(k,713) - lu(k,718) = lu(k,718) * lu(k,713) - lu(k,719) = lu(k,719) * lu(k,713) - lu(k,720) = lu(k,720) * lu(k,713) - lu(k,721) = lu(k,721) * lu(k,713) - lu(k,722) = lu(k,722) * lu(k,713) - lu(k,723) = lu(k,723) * lu(k,713) - lu(k,724) = lu(k,724) * lu(k,713) - lu(k,725) = lu(k,725) * lu(k,713) - lu(k,726) = lu(k,726) * lu(k,713) - lu(k,727) = lu(k,727) * lu(k,713) - lu(k,728) = lu(k,728) * lu(k,713) - lu(k,729) = lu(k,729) * lu(k,713) - lu(k,730) = lu(k,730) * lu(k,713) - lu(k,731) = lu(k,731) * lu(k,713) - lu(k,732) = lu(k,732) * lu(k,713) - lu(k,733) = lu(k,733) * lu(k,713) - lu(k,823) = lu(k,823) - lu(k,714) * lu(k,820) - lu(k,824) = lu(k,824) - lu(k,715) * lu(k,820) - lu(k,825) = lu(k,825) - lu(k,716) * lu(k,820) - lu(k,826) = lu(k,826) - lu(k,717) * lu(k,820) - lu(k,827) = lu(k,827) - lu(k,718) * lu(k,820) - lu(k,828) = lu(k,828) - lu(k,719) * lu(k,820) - lu(k,829) = lu(k,829) - lu(k,720) * lu(k,820) - lu(k,830) = lu(k,830) - lu(k,721) * lu(k,820) - lu(k,831) = lu(k,831) - lu(k,722) * lu(k,820) - lu(k,832) = lu(k,832) - lu(k,723) * lu(k,820) - lu(k,833) = lu(k,833) - lu(k,724) * lu(k,820) - lu(k,835) = lu(k,835) - lu(k,725) * lu(k,820) - lu(k,836) = lu(k,836) - lu(k,726) * lu(k,820) - lu(k,837) = lu(k,837) - lu(k,727) * lu(k,820) - lu(k,838) = lu(k,838) - lu(k,728) * lu(k,820) - lu(k,839) = lu(k,839) - lu(k,729) * lu(k,820) - lu(k,840) = lu(k,840) - lu(k,730) * lu(k,820) - lu(k,843) = lu(k,843) - lu(k,731) * lu(k,820) - lu(k,845) = lu(k,845) - lu(k,732) * lu(k,820) - lu(k,846) = lu(k,846) - lu(k,733) * lu(k,820) - lu(k,852) = lu(k,852) - lu(k,714) * lu(k,850) - lu(k,853) = lu(k,853) - lu(k,715) * lu(k,850) - lu(k,854) = lu(k,854) - lu(k,716) * lu(k,850) - lu(k,855) = lu(k,855) - lu(k,717) * lu(k,850) - lu(k,856) = lu(k,856) - lu(k,718) * lu(k,850) - lu(k,857) = lu(k,857) - lu(k,719) * lu(k,850) - lu(k,858) = lu(k,858) - lu(k,720) * lu(k,850) - lu(k,859) = lu(k,859) - lu(k,721) * lu(k,850) - lu(k,860) = lu(k,860) - lu(k,722) * lu(k,850) - lu(k,861) = lu(k,861) - lu(k,723) * lu(k,850) - lu(k,862) = lu(k,862) - lu(k,724) * lu(k,850) - lu(k,864) = lu(k,864) - lu(k,725) * lu(k,850) - lu(k,865) = - lu(k,726) * lu(k,850) - lu(k,866) = lu(k,866) - lu(k,727) * lu(k,850) - lu(k,867) = lu(k,867) - lu(k,728) * lu(k,850) - lu(k,868) = lu(k,868) - lu(k,729) * lu(k,850) - lu(k,869) = lu(k,869) - lu(k,730) * lu(k,850) - lu(k,872) = lu(k,872) - lu(k,731) * lu(k,850) - lu(k,874) = lu(k,874) - lu(k,732) * lu(k,850) - lu(k,875) = lu(k,875) - lu(k,733) * lu(k,850) - lu(k,899) = lu(k,899) - lu(k,714) * lu(k,895) - lu(k,900) = lu(k,900) - lu(k,715) * lu(k,895) - lu(k,901) = lu(k,901) - lu(k,716) * lu(k,895) - lu(k,902) = lu(k,902) - lu(k,717) * lu(k,895) - lu(k,903) = lu(k,903) - lu(k,718) * lu(k,895) - lu(k,904) = lu(k,904) - lu(k,719) * lu(k,895) - lu(k,905) = lu(k,905) - lu(k,720) * lu(k,895) - lu(k,906) = lu(k,906) - lu(k,721) * lu(k,895) - lu(k,907) = lu(k,907) - lu(k,722) * lu(k,895) - lu(k,908) = lu(k,908) - lu(k,723) * lu(k,895) - lu(k,909) = lu(k,909) - lu(k,724) * lu(k,895) - lu(k,911) = lu(k,911) - lu(k,725) * lu(k,895) - lu(k,912) = lu(k,912) - lu(k,726) * lu(k,895) - lu(k,913) = lu(k,913) - lu(k,727) * lu(k,895) - lu(k,914) = lu(k,914) - lu(k,728) * lu(k,895) - lu(k,915) = lu(k,915) - lu(k,729) * lu(k,895) - lu(k,916) = lu(k,916) - lu(k,730) * lu(k,895) - lu(k,919) = lu(k,919) - lu(k,731) * lu(k,895) - lu(k,921) = lu(k,921) - lu(k,732) * lu(k,895) - lu(k,922) = lu(k,922) - lu(k,733) * lu(k,895) - lu(k,941) = lu(k,941) - lu(k,714) * lu(k,937) - lu(k,942) = lu(k,942) - lu(k,715) * lu(k,937) - lu(k,943) = lu(k,943) - lu(k,716) * lu(k,937) - lu(k,944) = lu(k,944) - lu(k,717) * lu(k,937) - lu(k,945) = lu(k,945) - lu(k,718) * lu(k,937) - lu(k,946) = lu(k,946) - lu(k,719) * lu(k,937) - lu(k,947) = lu(k,947) - lu(k,720) * lu(k,937) - lu(k,948) = lu(k,948) - lu(k,721) * lu(k,937) - lu(k,949) = lu(k,949) - lu(k,722) * lu(k,937) - lu(k,950) = lu(k,950) - lu(k,723) * lu(k,937) - lu(k,951) = lu(k,951) - lu(k,724) * lu(k,937) - lu(k,953) = lu(k,953) - lu(k,725) * lu(k,937) - lu(k,954) = lu(k,954) - lu(k,726) * lu(k,937) - lu(k,955) = lu(k,955) - lu(k,727) * lu(k,937) - lu(k,956) = lu(k,956) - lu(k,728) * lu(k,937) - lu(k,957) = lu(k,957) - lu(k,729) * lu(k,937) - lu(k,958) = lu(k,958) - lu(k,730) * lu(k,937) - lu(k,961) = lu(k,961) - lu(k,731) * lu(k,937) - lu(k,963) = lu(k,963) - lu(k,732) * lu(k,937) - lu(k,964) = lu(k,964) - lu(k,733) * lu(k,937) - lu(k,987) = lu(k,987) - lu(k,714) * lu(k,983) - lu(k,988) = lu(k,988) - lu(k,715) * lu(k,983) - lu(k,989) = lu(k,989) - lu(k,716) * lu(k,983) - lu(k,990) = lu(k,990) - lu(k,717) * lu(k,983) - lu(k,991) = lu(k,991) - lu(k,718) * lu(k,983) - lu(k,992) = lu(k,992) - lu(k,719) * lu(k,983) - lu(k,993) = lu(k,993) - lu(k,720) * lu(k,983) - lu(k,994) = lu(k,994) - lu(k,721) * lu(k,983) - lu(k,995) = lu(k,995) - lu(k,722) * lu(k,983) - lu(k,996) = lu(k,996) - lu(k,723) * lu(k,983) - lu(k,997) = lu(k,997) - lu(k,724) * lu(k,983) - lu(k,999) = lu(k,999) - lu(k,725) * lu(k,983) - lu(k,1000) = lu(k,1000) - lu(k,726) * lu(k,983) - lu(k,1001) = lu(k,1001) - lu(k,727) * lu(k,983) - lu(k,1002) = lu(k,1002) - lu(k,728) * lu(k,983) - lu(k,1003) = lu(k,1003) - lu(k,729) * lu(k,983) - lu(k,1004) = lu(k,1004) - lu(k,730) * lu(k,983) - lu(k,1007) = lu(k,1007) - lu(k,731) * lu(k,983) - lu(k,1009) = lu(k,1009) - lu(k,732) * lu(k,983) - lu(k,1010) = lu(k,1010) - lu(k,733) * lu(k,983) - lu(k,1029) = lu(k,1029) - lu(k,714) * lu(k,1025) - lu(k,1030) = lu(k,1030) - lu(k,715) * lu(k,1025) - lu(k,1031) = lu(k,1031) - lu(k,716) * lu(k,1025) - lu(k,1032) = lu(k,1032) - lu(k,717) * lu(k,1025) - lu(k,1033) = lu(k,1033) - lu(k,718) * lu(k,1025) - lu(k,1034) = lu(k,1034) - lu(k,719) * lu(k,1025) - lu(k,1035) = lu(k,1035) - lu(k,720) * lu(k,1025) - lu(k,1036) = lu(k,1036) - lu(k,721) * lu(k,1025) - lu(k,1037) = lu(k,1037) - lu(k,722) * lu(k,1025) - lu(k,1038) = lu(k,1038) - lu(k,723) * lu(k,1025) - lu(k,1039) = lu(k,1039) - lu(k,724) * lu(k,1025) - lu(k,1041) = lu(k,1041) - lu(k,725) * lu(k,1025) - lu(k,1042) = lu(k,1042) - lu(k,726) * lu(k,1025) - lu(k,1043) = lu(k,1043) - lu(k,727) * lu(k,1025) - lu(k,1044) = lu(k,1044) - lu(k,728) * lu(k,1025) - lu(k,1045) = lu(k,1045) - lu(k,729) * lu(k,1025) - lu(k,1046) = lu(k,1046) - lu(k,730) * lu(k,1025) - lu(k,1049) = lu(k,1049) - lu(k,731) * lu(k,1025) - lu(k,1051) = lu(k,1051) - lu(k,732) * lu(k,1025) - lu(k,1052) = lu(k,1052) - lu(k,733) * lu(k,1025) - lu(k,1070) = lu(k,1070) - lu(k,714) * lu(k,1066) - lu(k,1071) = lu(k,1071) - lu(k,715) * lu(k,1066) - lu(k,1072) = lu(k,1072) - lu(k,716) * lu(k,1066) - lu(k,1073) = lu(k,1073) - lu(k,717) * lu(k,1066) - lu(k,1074) = lu(k,1074) - lu(k,718) * lu(k,1066) - lu(k,1075) = lu(k,1075) - lu(k,719) * lu(k,1066) - lu(k,1076) = lu(k,1076) - lu(k,720) * lu(k,1066) - lu(k,1077) = lu(k,1077) - lu(k,721) * lu(k,1066) - lu(k,1078) = lu(k,1078) - lu(k,722) * lu(k,1066) - lu(k,1079) = lu(k,1079) - lu(k,723) * lu(k,1066) - lu(k,1080) = lu(k,1080) - lu(k,724) * lu(k,1066) - lu(k,1082) = lu(k,1082) - lu(k,725) * lu(k,1066) - lu(k,1083) = lu(k,1083) - lu(k,726) * lu(k,1066) - lu(k,1084) = lu(k,1084) - lu(k,727) * lu(k,1066) - lu(k,1085) = lu(k,1085) - lu(k,728) * lu(k,1066) - lu(k,1086) = lu(k,1086) - lu(k,729) * lu(k,1066) - lu(k,1087) = lu(k,1087) - lu(k,730) * lu(k,1066) - lu(k,1090) = lu(k,1090) - lu(k,731) * lu(k,1066) - lu(k,1092) = lu(k,1092) - lu(k,732) * lu(k,1066) - lu(k,1093) = lu(k,1093) - lu(k,733) * lu(k,1066) - lu(k,1109) = - lu(k,714) * lu(k,1106) - lu(k,1110) = lu(k,1110) - lu(k,715) * lu(k,1106) - lu(k,1111) = lu(k,1111) - lu(k,716) * lu(k,1106) - lu(k,1112) = lu(k,1112) - lu(k,717) * lu(k,1106) - lu(k,1113) = lu(k,1113) - lu(k,718) * lu(k,1106) - lu(k,1114) = lu(k,1114) - lu(k,719) * lu(k,1106) - lu(k,1115) = lu(k,1115) - lu(k,720) * lu(k,1106) - lu(k,1116) = lu(k,1116) - lu(k,721) * lu(k,1106) - lu(k,1117) = lu(k,1117) - lu(k,722) * lu(k,1106) - lu(k,1118) = lu(k,1118) - lu(k,723) * lu(k,1106) - lu(k,1119) = lu(k,1119) - lu(k,724) * lu(k,1106) - lu(k,1121) = lu(k,1121) - lu(k,725) * lu(k,1106) - lu(k,1122) = lu(k,1122) - lu(k,726) * lu(k,1106) - lu(k,1123) = lu(k,1123) - lu(k,727) * lu(k,1106) - lu(k,1124) = lu(k,1124) - lu(k,728) * lu(k,1106) - lu(k,1125) = lu(k,1125) - lu(k,729) * lu(k,1106) - lu(k,1126) = lu(k,1126) - lu(k,730) * lu(k,1106) - lu(k,1129) = lu(k,1129) - lu(k,731) * lu(k,1106) - lu(k,1131) = lu(k,1131) - lu(k,732) * lu(k,1106) - lu(k,1132) = lu(k,1132) - lu(k,733) * lu(k,1106) - lu(k,1153) = lu(k,1153) - lu(k,714) * lu(k,1149) - lu(k,1154) = lu(k,1154) - lu(k,715) * lu(k,1149) - lu(k,1155) = lu(k,1155) - lu(k,716) * lu(k,1149) - lu(k,1156) = lu(k,1156) - lu(k,717) * lu(k,1149) - lu(k,1157) = lu(k,1157) - lu(k,718) * lu(k,1149) - lu(k,1158) = lu(k,1158) - lu(k,719) * lu(k,1149) - lu(k,1159) = lu(k,1159) - lu(k,720) * lu(k,1149) - lu(k,1160) = lu(k,1160) - lu(k,721) * lu(k,1149) - lu(k,1161) = lu(k,1161) - lu(k,722) * lu(k,1149) - lu(k,1162) = lu(k,1162) - lu(k,723) * lu(k,1149) - lu(k,1163) = lu(k,1163) - lu(k,724) * lu(k,1149) - lu(k,1165) = lu(k,1165) - lu(k,725) * lu(k,1149) - lu(k,1166) = lu(k,1166) - lu(k,726) * lu(k,1149) - lu(k,1167) = lu(k,1167) - lu(k,727) * lu(k,1149) - lu(k,1168) = lu(k,1168) - lu(k,728) * lu(k,1149) - lu(k,1169) = lu(k,1169) - lu(k,729) * lu(k,1149) - lu(k,1170) = lu(k,1170) - lu(k,730) * lu(k,1149) - lu(k,1173) = lu(k,1173) - lu(k,731) * lu(k,1149) - lu(k,1175) = lu(k,1175) - lu(k,732) * lu(k,1149) - lu(k,1176) = lu(k,1176) - lu(k,733) * lu(k,1149) - lu(k,1194) = lu(k,1194) - lu(k,714) * lu(k,1190) - lu(k,1195) = lu(k,1195) - lu(k,715) * lu(k,1190) - lu(k,1196) = lu(k,1196) - lu(k,716) * lu(k,1190) - lu(k,1197) = lu(k,1197) - lu(k,717) * lu(k,1190) - lu(k,1198) = lu(k,1198) - lu(k,718) * lu(k,1190) - lu(k,1199) = lu(k,1199) - lu(k,719) * lu(k,1190) - lu(k,1200) = lu(k,1200) - lu(k,720) * lu(k,1190) - lu(k,1201) = lu(k,1201) - lu(k,721) * lu(k,1190) - lu(k,1202) = lu(k,1202) - lu(k,722) * lu(k,1190) - lu(k,1203) = lu(k,1203) - lu(k,723) * lu(k,1190) - lu(k,1204) = lu(k,1204) - lu(k,724) * lu(k,1190) - lu(k,1206) = lu(k,1206) - lu(k,725) * lu(k,1190) - lu(k,1207) = lu(k,1207) - lu(k,726) * lu(k,1190) - lu(k,1208) = lu(k,1208) - lu(k,727) * lu(k,1190) - lu(k,1209) = lu(k,1209) - lu(k,728) * lu(k,1190) - lu(k,1210) = lu(k,1210) - lu(k,729) * lu(k,1190) - lu(k,1211) = lu(k,1211) - lu(k,730) * lu(k,1190) - lu(k,1214) = lu(k,1214) - lu(k,731) * lu(k,1190) - lu(k,1216) = lu(k,1216) - lu(k,732) * lu(k,1190) - lu(k,1217) = lu(k,1217) - lu(k,733) * lu(k,1190) - lu(k,1243) = lu(k,1243) - lu(k,714) * lu(k,1239) - lu(k,1244) = lu(k,1244) - lu(k,715) * lu(k,1239) - lu(k,1245) = lu(k,1245) - lu(k,716) * lu(k,1239) - lu(k,1246) = lu(k,1246) - lu(k,717) * lu(k,1239) - lu(k,1247) = lu(k,1247) - lu(k,718) * lu(k,1239) - lu(k,1248) = lu(k,1248) - lu(k,719) * lu(k,1239) - lu(k,1249) = lu(k,1249) - lu(k,720) * lu(k,1239) - lu(k,1250) = lu(k,1250) - lu(k,721) * lu(k,1239) - lu(k,1251) = lu(k,1251) - lu(k,722) * lu(k,1239) - lu(k,1252) = lu(k,1252) - lu(k,723) * lu(k,1239) - lu(k,1253) = lu(k,1253) - lu(k,724) * lu(k,1239) - lu(k,1255) = lu(k,1255) - lu(k,725) * lu(k,1239) - lu(k,1256) = lu(k,1256) - lu(k,726) * lu(k,1239) - lu(k,1257) = lu(k,1257) - lu(k,727) * lu(k,1239) - lu(k,1258) = lu(k,1258) - lu(k,728) * lu(k,1239) - lu(k,1259) = lu(k,1259) - lu(k,729) * lu(k,1239) - lu(k,1260) = lu(k,1260) - lu(k,730) * lu(k,1239) - lu(k,1263) = lu(k,1263) - lu(k,731) * lu(k,1239) - lu(k,1265) = lu(k,1265) - lu(k,732) * lu(k,1239) - lu(k,1266) = lu(k,1266) - lu(k,733) * lu(k,1239) - lu(k,1282) = lu(k,1282) - lu(k,714) * lu(k,1278) - lu(k,1283) = lu(k,1283) - lu(k,715) * lu(k,1278) - lu(k,1284) = lu(k,1284) - lu(k,716) * lu(k,1278) - lu(k,1285) = lu(k,1285) - lu(k,717) * lu(k,1278) - lu(k,1286) = lu(k,1286) - lu(k,718) * lu(k,1278) - lu(k,1287) = lu(k,1287) - lu(k,719) * lu(k,1278) - lu(k,1288) = lu(k,1288) - lu(k,720) * lu(k,1278) - lu(k,1289) = lu(k,1289) - lu(k,721) * lu(k,1278) - lu(k,1290) = lu(k,1290) - lu(k,722) * lu(k,1278) - lu(k,1291) = lu(k,1291) - lu(k,723) * lu(k,1278) - lu(k,1292) = lu(k,1292) - lu(k,724) * lu(k,1278) - lu(k,1294) = lu(k,1294) - lu(k,725) * lu(k,1278) - lu(k,1295) = lu(k,1295) - lu(k,726) * lu(k,1278) - lu(k,1296) = lu(k,1296) - lu(k,727) * lu(k,1278) - lu(k,1297) = lu(k,1297) - lu(k,728) * lu(k,1278) - lu(k,1298) = lu(k,1298) - lu(k,729) * lu(k,1278) - lu(k,1299) = lu(k,1299) - lu(k,730) * lu(k,1278) - lu(k,1302) = lu(k,1302) - lu(k,731) * lu(k,1278) - lu(k,1304) = lu(k,1304) - lu(k,732) * lu(k,1278) - lu(k,1305) = lu(k,1305) - lu(k,733) * lu(k,1278) - lu(k,1317) = lu(k,1317) - lu(k,714) * lu(k,1313) - lu(k,1318) = lu(k,1318) - lu(k,715) * lu(k,1313) - lu(k,1319) = lu(k,1319) - lu(k,716) * lu(k,1313) - lu(k,1320) = lu(k,1320) - lu(k,717) * lu(k,1313) - lu(k,1321) = lu(k,1321) - lu(k,718) * lu(k,1313) - lu(k,1322) = lu(k,1322) - lu(k,719) * lu(k,1313) - lu(k,1323) = - lu(k,720) * lu(k,1313) - lu(k,1324) = lu(k,1324) - lu(k,721) * lu(k,1313) - lu(k,1325) = lu(k,1325) - lu(k,722) * lu(k,1313) - lu(k,1326) = lu(k,1326) - lu(k,723) * lu(k,1313) - lu(k,1327) = lu(k,1327) - lu(k,724) * lu(k,1313) - lu(k,1329) = lu(k,1329) - lu(k,725) * lu(k,1313) - lu(k,1330) = lu(k,1330) - lu(k,726) * lu(k,1313) - lu(k,1331) = lu(k,1331) - lu(k,727) * lu(k,1313) - lu(k,1332) = lu(k,1332) - lu(k,728) * lu(k,1313) - lu(k,1333) = lu(k,1333) - lu(k,729) * lu(k,1313) - lu(k,1334) = lu(k,1334) - lu(k,730) * lu(k,1313) - lu(k,1337) = lu(k,1337) - lu(k,731) * lu(k,1313) - lu(k,1339) = lu(k,1339) - lu(k,732) * lu(k,1313) - lu(k,1340) = lu(k,1340) - lu(k,733) * lu(k,1313) - lu(k,1361) = lu(k,1361) - lu(k,714) * lu(k,1357) - lu(k,1362) = lu(k,1362) - lu(k,715) * lu(k,1357) - lu(k,1363) = lu(k,1363) - lu(k,716) * lu(k,1357) - lu(k,1364) = lu(k,1364) - lu(k,717) * lu(k,1357) - lu(k,1365) = lu(k,1365) - lu(k,718) * lu(k,1357) - lu(k,1366) = lu(k,1366) - lu(k,719) * lu(k,1357) - lu(k,1367) = lu(k,1367) - lu(k,720) * lu(k,1357) - lu(k,1368) = lu(k,1368) - lu(k,721) * lu(k,1357) - lu(k,1369) = lu(k,1369) - lu(k,722) * lu(k,1357) - lu(k,1370) = lu(k,1370) - lu(k,723) * lu(k,1357) - lu(k,1371) = lu(k,1371) - lu(k,724) * lu(k,1357) - lu(k,1373) = lu(k,1373) - lu(k,725) * lu(k,1357) - lu(k,1374) = lu(k,1374) - lu(k,726) * lu(k,1357) - lu(k,1375) = lu(k,1375) - lu(k,727) * lu(k,1357) - lu(k,1376) = lu(k,1376) - lu(k,728) * lu(k,1357) - lu(k,1377) = lu(k,1377) - lu(k,729) * lu(k,1357) - lu(k,1378) = lu(k,1378) - lu(k,730) * lu(k,1357) - lu(k,1381) = lu(k,1381) - lu(k,731) * lu(k,1357) - lu(k,1383) = lu(k,1383) - lu(k,732) * lu(k,1357) - lu(k,1384) = lu(k,1384) - lu(k,733) * lu(k,1357) - lu(k,1420) = lu(k,1420) - lu(k,714) * lu(k,1416) - lu(k,1421) = lu(k,1421) - lu(k,715) * lu(k,1416) - lu(k,1422) = lu(k,1422) - lu(k,716) * lu(k,1416) - lu(k,1423) = lu(k,1423) - lu(k,717) * lu(k,1416) - lu(k,1424) = lu(k,1424) - lu(k,718) * lu(k,1416) - lu(k,1425) = lu(k,1425) - lu(k,719) * lu(k,1416) - lu(k,1426) = lu(k,1426) - lu(k,720) * lu(k,1416) - lu(k,1427) = lu(k,1427) - lu(k,721) * lu(k,1416) - lu(k,1428) = lu(k,1428) - lu(k,722) * lu(k,1416) - lu(k,1429) = lu(k,1429) - lu(k,723) * lu(k,1416) - lu(k,1430) = lu(k,1430) - lu(k,724) * lu(k,1416) - lu(k,1432) = lu(k,1432) - lu(k,725) * lu(k,1416) - lu(k,1433) = lu(k,1433) - lu(k,726) * lu(k,1416) - lu(k,1434) = lu(k,1434) - lu(k,727) * lu(k,1416) - lu(k,1435) = lu(k,1435) - lu(k,728) * lu(k,1416) - lu(k,1436) = lu(k,1436) - lu(k,729) * lu(k,1416) - lu(k,1437) = lu(k,1437) - lu(k,730) * lu(k,1416) - lu(k,1440) = lu(k,1440) - lu(k,731) * lu(k,1416) - lu(k,1442) = lu(k,1442) - lu(k,732) * lu(k,1416) - lu(k,1443) = lu(k,1443) - lu(k,733) * lu(k,1416) - lu(k,1462) = lu(k,1462) - lu(k,714) * lu(k,1458) - lu(k,1463) = lu(k,1463) - lu(k,715) * lu(k,1458) - lu(k,1464) = lu(k,1464) - lu(k,716) * lu(k,1458) - lu(k,1465) = lu(k,1465) - lu(k,717) * lu(k,1458) - lu(k,1466) = lu(k,1466) - lu(k,718) * lu(k,1458) - lu(k,1467) = lu(k,1467) - lu(k,719) * lu(k,1458) - lu(k,1468) = lu(k,1468) - lu(k,720) * lu(k,1458) - lu(k,1469) = lu(k,1469) - lu(k,721) * lu(k,1458) - lu(k,1470) = lu(k,1470) - lu(k,722) * lu(k,1458) - lu(k,1471) = lu(k,1471) - lu(k,723) * lu(k,1458) - lu(k,1472) = lu(k,1472) - lu(k,724) * lu(k,1458) - lu(k,1474) = lu(k,1474) - lu(k,725) * lu(k,1458) - lu(k,1475) = lu(k,1475) - lu(k,726) * lu(k,1458) - lu(k,1476) = lu(k,1476) - lu(k,727) * lu(k,1458) - lu(k,1477) = lu(k,1477) - lu(k,728) * lu(k,1458) - lu(k,1478) = lu(k,1478) - lu(k,729) * lu(k,1458) - lu(k,1479) = lu(k,1479) - lu(k,730) * lu(k,1458) - lu(k,1482) = lu(k,1482) - lu(k,731) * lu(k,1458) - lu(k,1484) = lu(k,1484) - lu(k,732) * lu(k,1458) - lu(k,1485) = lu(k,1485) - lu(k,733) * lu(k,1458) - lu(k,1503) = lu(k,1503) - lu(k,714) * lu(k,1499) - lu(k,1504) = lu(k,1504) - lu(k,715) * lu(k,1499) - lu(k,1505) = lu(k,1505) - lu(k,716) * lu(k,1499) - lu(k,1506) = lu(k,1506) - lu(k,717) * lu(k,1499) - lu(k,1507) = lu(k,1507) - lu(k,718) * lu(k,1499) - lu(k,1508) = lu(k,1508) - lu(k,719) * lu(k,1499) - lu(k,1509) = lu(k,1509) - lu(k,720) * lu(k,1499) - lu(k,1510) = lu(k,1510) - lu(k,721) * lu(k,1499) - lu(k,1511) = lu(k,1511) - lu(k,722) * lu(k,1499) - lu(k,1512) = lu(k,1512) - lu(k,723) * lu(k,1499) - lu(k,1513) = lu(k,1513) - lu(k,724) * lu(k,1499) - lu(k,1515) = lu(k,1515) - lu(k,725) * lu(k,1499) - lu(k,1516) = lu(k,1516) - lu(k,726) * lu(k,1499) - lu(k,1517) = lu(k,1517) - lu(k,727) * lu(k,1499) - lu(k,1518) = lu(k,1518) - lu(k,728) * lu(k,1499) - lu(k,1519) = lu(k,1519) - lu(k,729) * lu(k,1499) - lu(k,1520) = lu(k,1520) - lu(k,730) * lu(k,1499) - lu(k,1523) = lu(k,1523) - lu(k,731) * lu(k,1499) - lu(k,1525) = lu(k,1525) - lu(k,732) * lu(k,1499) - lu(k,1526) = lu(k,1526) - lu(k,733) * lu(k,1499) - lu(k,1587) = lu(k,1587) - lu(k,714) * lu(k,1583) - lu(k,1588) = lu(k,1588) - lu(k,715) * lu(k,1583) - lu(k,1589) = lu(k,1589) - lu(k,716) * lu(k,1583) - lu(k,1590) = lu(k,1590) - lu(k,717) * lu(k,1583) - lu(k,1591) = lu(k,1591) - lu(k,718) * lu(k,1583) - lu(k,1592) = lu(k,1592) - lu(k,719) * lu(k,1583) - lu(k,1593) = lu(k,1593) - lu(k,720) * lu(k,1583) - lu(k,1594) = lu(k,1594) - lu(k,721) * lu(k,1583) - lu(k,1595) = lu(k,1595) - lu(k,722) * lu(k,1583) - lu(k,1596) = lu(k,1596) - lu(k,723) * lu(k,1583) - lu(k,1597) = lu(k,1597) - lu(k,724) * lu(k,1583) - lu(k,1599) = lu(k,1599) - lu(k,725) * lu(k,1583) - lu(k,1600) = lu(k,1600) - lu(k,726) * lu(k,1583) - lu(k,1601) = lu(k,1601) - lu(k,727) * lu(k,1583) - lu(k,1602) = lu(k,1602) - lu(k,728) * lu(k,1583) - lu(k,1603) = lu(k,1603) - lu(k,729) * lu(k,1583) - lu(k,1604) = lu(k,1604) - lu(k,730) * lu(k,1583) - lu(k,1607) = lu(k,1607) - lu(k,731) * lu(k,1583) - lu(k,1609) = lu(k,1609) - lu(k,732) * lu(k,1583) - lu(k,1610) = lu(k,1610) - lu(k,733) * lu(k,1583) - lu(k,1619) = lu(k,1619) - lu(k,714) * lu(k,1615) - lu(k,1620) = lu(k,1620) - lu(k,715) * lu(k,1615) - lu(k,1621) = lu(k,1621) - lu(k,716) * lu(k,1615) - lu(k,1622) = lu(k,1622) - lu(k,717) * lu(k,1615) - lu(k,1623) = lu(k,1623) - lu(k,718) * lu(k,1615) - lu(k,1624) = lu(k,1624) - lu(k,719) * lu(k,1615) - lu(k,1625) = - lu(k,720) * lu(k,1615) - lu(k,1626) = lu(k,1626) - lu(k,721) * lu(k,1615) - lu(k,1627) = lu(k,1627) - lu(k,722) * lu(k,1615) - lu(k,1628) = lu(k,1628) - lu(k,723) * lu(k,1615) - lu(k,1629) = lu(k,1629) - lu(k,724) * lu(k,1615) - lu(k,1631) = lu(k,1631) - lu(k,725) * lu(k,1615) - lu(k,1632) = lu(k,1632) - lu(k,726) * lu(k,1615) - lu(k,1633) = lu(k,1633) - lu(k,727) * lu(k,1615) - lu(k,1634) = lu(k,1634) - lu(k,728) * lu(k,1615) - lu(k,1635) = lu(k,1635) - lu(k,729) * lu(k,1615) - lu(k,1636) = lu(k,1636) - lu(k,730) * lu(k,1615) - lu(k,1639) = lu(k,1639) - lu(k,731) * lu(k,1615) - lu(k,1641) = lu(k,1641) - lu(k,732) * lu(k,1615) - lu(k,1642) = lu(k,1642) - lu(k,733) * lu(k,1615) - lu(k,1654) = lu(k,1654) - lu(k,714) * lu(k,1650) - lu(k,1655) = lu(k,1655) - lu(k,715) * lu(k,1650) - lu(k,1656) = lu(k,1656) - lu(k,716) * lu(k,1650) - lu(k,1657) = lu(k,1657) - lu(k,717) * lu(k,1650) - lu(k,1658) = lu(k,1658) - lu(k,718) * lu(k,1650) - lu(k,1659) = lu(k,1659) - lu(k,719) * lu(k,1650) - lu(k,1660) = lu(k,1660) - lu(k,720) * lu(k,1650) - lu(k,1661) = lu(k,1661) - lu(k,721) * lu(k,1650) - lu(k,1662) = lu(k,1662) - lu(k,722) * lu(k,1650) - lu(k,1663) = lu(k,1663) - lu(k,723) * lu(k,1650) - lu(k,1664) = lu(k,1664) - lu(k,724) * lu(k,1650) - lu(k,1666) = lu(k,1666) - lu(k,725) * lu(k,1650) - lu(k,1667) = lu(k,1667) - lu(k,726) * lu(k,1650) - lu(k,1668) = lu(k,1668) - lu(k,727) * lu(k,1650) - lu(k,1669) = lu(k,1669) - lu(k,728) * lu(k,1650) - lu(k,1670) = lu(k,1670) - lu(k,729) * lu(k,1650) - lu(k,1671) = lu(k,1671) - lu(k,730) * lu(k,1650) - lu(k,1674) = lu(k,1674) - lu(k,731) * lu(k,1650) - lu(k,1676) = lu(k,1676) - lu(k,732) * lu(k,1650) - lu(k,1677) = lu(k,1677) - lu(k,733) * lu(k,1650) - lu(k,1696) = lu(k,1696) - lu(k,714) * lu(k,1692) - lu(k,1697) = lu(k,1697) - lu(k,715) * lu(k,1692) - lu(k,1698) = lu(k,1698) - lu(k,716) * lu(k,1692) - lu(k,1699) = lu(k,1699) - lu(k,717) * lu(k,1692) - lu(k,1700) = lu(k,1700) - lu(k,718) * lu(k,1692) - lu(k,1701) = lu(k,1701) - lu(k,719) * lu(k,1692) - lu(k,1702) = lu(k,1702) - lu(k,720) * lu(k,1692) - lu(k,1703) = lu(k,1703) - lu(k,721) * lu(k,1692) - lu(k,1704) = lu(k,1704) - lu(k,722) * lu(k,1692) - lu(k,1705) = lu(k,1705) - lu(k,723) * lu(k,1692) - lu(k,1706) = lu(k,1706) - lu(k,724) * lu(k,1692) - lu(k,1708) = lu(k,1708) - lu(k,725) * lu(k,1692) - lu(k,1709) = lu(k,1709) - lu(k,726) * lu(k,1692) - lu(k,1710) = lu(k,1710) - lu(k,727) * lu(k,1692) - lu(k,1711) = lu(k,1711) - lu(k,728) * lu(k,1692) - lu(k,1712) = lu(k,1712) - lu(k,729) * lu(k,1692) - lu(k,1713) = lu(k,1713) - lu(k,730) * lu(k,1692) - lu(k,1716) = lu(k,1716) - lu(k,731) * lu(k,1692) - lu(k,1718) = lu(k,1718) - lu(k,732) * lu(k,1692) - lu(k,1719) = lu(k,1719) - lu(k,733) * lu(k,1692) - lu(k,1740) = lu(k,1740) - lu(k,714) * lu(k,1736) - lu(k,1741) = lu(k,1741) - lu(k,715) * lu(k,1736) - lu(k,1742) = lu(k,1742) - lu(k,716) * lu(k,1736) - lu(k,1743) = lu(k,1743) - lu(k,717) * lu(k,1736) - lu(k,1744) = lu(k,1744) - lu(k,718) * lu(k,1736) - lu(k,1745) = lu(k,1745) - lu(k,719) * lu(k,1736) - lu(k,1746) = lu(k,1746) - lu(k,720) * lu(k,1736) - lu(k,1747) = lu(k,1747) - lu(k,721) * lu(k,1736) - lu(k,1748) = lu(k,1748) - lu(k,722) * lu(k,1736) - lu(k,1749) = lu(k,1749) - lu(k,723) * lu(k,1736) - lu(k,1750) = lu(k,1750) - lu(k,724) * lu(k,1736) - lu(k,1752) = lu(k,1752) - lu(k,725) * lu(k,1736) - lu(k,1753) = lu(k,1753) - lu(k,726) * lu(k,1736) - lu(k,1754) = lu(k,1754) - lu(k,727) * lu(k,1736) - lu(k,1755) = lu(k,1755) - lu(k,728) * lu(k,1736) - lu(k,1756) = lu(k,1756) - lu(k,729) * lu(k,1736) - lu(k,1757) = lu(k,1757) - lu(k,730) * lu(k,1736) - lu(k,1760) = lu(k,1760) - lu(k,731) * lu(k,1736) - lu(k,1762) = lu(k,1762) - lu(k,732) * lu(k,1736) - lu(k,1763) = lu(k,1763) - lu(k,733) * lu(k,1736) - lu(k,1775) = lu(k,1775) - lu(k,714) * lu(k,1771) - lu(k,1776) = lu(k,1776) - lu(k,715) * lu(k,1771) - lu(k,1777) = lu(k,1777) - lu(k,716) * lu(k,1771) - lu(k,1778) = lu(k,1778) - lu(k,717) * lu(k,1771) - lu(k,1779) = lu(k,1779) - lu(k,718) * lu(k,1771) - lu(k,1780) = lu(k,1780) - lu(k,719) * lu(k,1771) - lu(k,1781) = lu(k,1781) - lu(k,720) * lu(k,1771) - lu(k,1782) = lu(k,1782) - lu(k,721) * lu(k,1771) - lu(k,1783) = lu(k,1783) - lu(k,722) * lu(k,1771) - lu(k,1784) = lu(k,1784) - lu(k,723) * lu(k,1771) - lu(k,1785) = lu(k,1785) - lu(k,724) * lu(k,1771) - lu(k,1787) = lu(k,1787) - lu(k,725) * lu(k,1771) - lu(k,1788) = lu(k,1788) - lu(k,726) * lu(k,1771) - lu(k,1789) = lu(k,1789) - lu(k,727) * lu(k,1771) - lu(k,1790) = lu(k,1790) - lu(k,728) * lu(k,1771) - lu(k,1791) = lu(k,1791) - lu(k,729) * lu(k,1771) - lu(k,1792) = lu(k,1792) - lu(k,730) * lu(k,1771) - lu(k,1795) = lu(k,1795) - lu(k,731) * lu(k,1771) - lu(k,1797) = lu(k,1797) - lu(k,732) * lu(k,1771) - lu(k,1798) = lu(k,1798) - lu(k,733) * lu(k,1771) - lu(k,1833) = lu(k,1833) - lu(k,714) * lu(k,1829) - lu(k,1834) = lu(k,1834) - lu(k,715) * lu(k,1829) - lu(k,1835) = lu(k,1835) - lu(k,716) * lu(k,1829) - lu(k,1836) = lu(k,1836) - lu(k,717) * lu(k,1829) - lu(k,1837) = lu(k,1837) - lu(k,718) * lu(k,1829) - lu(k,1838) = lu(k,1838) - lu(k,719) * lu(k,1829) - lu(k,1839) = lu(k,1839) - lu(k,720) * lu(k,1829) - lu(k,1840) = lu(k,1840) - lu(k,721) * lu(k,1829) - lu(k,1841) = lu(k,1841) - lu(k,722) * lu(k,1829) - lu(k,1842) = lu(k,1842) - lu(k,723) * lu(k,1829) - lu(k,1843) = lu(k,1843) - lu(k,724) * lu(k,1829) - lu(k,1845) = lu(k,1845) - lu(k,725) * lu(k,1829) - lu(k,1846) = lu(k,1846) - lu(k,726) * lu(k,1829) - lu(k,1847) = lu(k,1847) - lu(k,727) * lu(k,1829) - lu(k,1848) = lu(k,1848) - lu(k,728) * lu(k,1829) - lu(k,1849) = lu(k,1849) - lu(k,729) * lu(k,1829) - lu(k,1850) = lu(k,1850) - lu(k,730) * lu(k,1829) - lu(k,1853) = lu(k,1853) - lu(k,731) * lu(k,1829) - lu(k,1855) = lu(k,1855) - lu(k,732) * lu(k,1829) - lu(k,1856) = lu(k,1856) - lu(k,733) * lu(k,1829) - end do + real(r8), intent(inout) :: lu(:) + lu(690) = 1._r8 / lu(690) + lu(691) = lu(691) * lu(690) + lu(692) = lu(692) * lu(690) + lu(693) = lu(693) * lu(690) + lu(694) = lu(694) * lu(690) + lu(695) = lu(695) * lu(690) + lu(696) = lu(696) * lu(690) + lu(697) = lu(697) * lu(690) + lu(698) = lu(698) * lu(690) + lu(699) = lu(699) * lu(690) + lu(700) = lu(700) * lu(690) + lu(701) = lu(701) * lu(690) + lu(702) = lu(702) * lu(690) + lu(703) = lu(703) * lu(690) + lu(704) = lu(704) * lu(690) + lu(705) = lu(705) * lu(690) + lu(706) = lu(706) * lu(690) + lu(707) = lu(707) * lu(690) + lu(708) = lu(708) * lu(690) + lu(713) = lu(713) - lu(691) * lu(712) + lu(714) = lu(714) - lu(692) * lu(712) + lu(715) = lu(715) - lu(693) * lu(712) + lu(716) = lu(716) - lu(694) * lu(712) + lu(717) = lu(717) - lu(695) * lu(712) + lu(718) = lu(718) - lu(696) * lu(712) + lu(719) = lu(719) - lu(697) * lu(712) + lu(720) = lu(720) - lu(698) * lu(712) + lu(721) = lu(721) - lu(699) * lu(712) + lu(723) = - lu(700) * lu(712) + lu(724) = lu(724) - lu(701) * lu(712) + lu(725) = lu(725) - lu(702) * lu(712) + lu(727) = lu(727) - lu(703) * lu(712) + lu(728) = lu(728) - lu(704) * lu(712) + lu(729) = lu(729) - lu(705) * lu(712) + lu(730) = lu(730) - lu(706) * lu(712) + lu(731) = lu(731) - lu(707) * lu(712) + lu(733) = lu(733) - lu(708) * lu(712) + lu(820) = lu(820) - lu(691) * lu(819) + lu(823) = lu(823) - lu(692) * lu(819) + lu(824) = lu(824) - lu(693) * lu(819) + lu(825) = lu(825) - lu(694) * lu(819) + lu(826) = lu(826) - lu(695) * lu(819) + lu(827) = lu(827) - lu(696) * lu(819) + lu(828) = lu(828) - lu(697) * lu(819) + lu(829) = lu(829) - lu(698) * lu(819) + lu(830) = lu(830) - lu(699) * lu(819) + lu(832) = lu(832) - lu(700) * lu(819) + lu(833) = - lu(701) * lu(819) + lu(835) = lu(835) - lu(702) * lu(819) + lu(837) = lu(837) - lu(703) * lu(819) + lu(839) = lu(839) - lu(704) * lu(819) + lu(840) = lu(840) - lu(705) * lu(819) + lu(843) = lu(843) - lu(706) * lu(819) + lu(844) = lu(844) - lu(707) * lu(819) + lu(846) = lu(846) - lu(708) * lu(819) + lu(903) = lu(903) - lu(691) * lu(902) + lu(907) = lu(907) - lu(692) * lu(902) + lu(908) = lu(908) - lu(693) * lu(902) + lu(909) = lu(909) - lu(694) * lu(902) + lu(910) = lu(910) - lu(695) * lu(902) + lu(911) = lu(911) - lu(696) * lu(902) + lu(912) = lu(912) - lu(697) * lu(902) + lu(913) = lu(913) - lu(698) * lu(902) + lu(914) = lu(914) - lu(699) * lu(902) + lu(916) = lu(916) - lu(700) * lu(902) + lu(917) = lu(917) - lu(701) * lu(902) + lu(919) = lu(919) - lu(702) * lu(902) + lu(921) = lu(921) - lu(703) * lu(902) + lu(923) = lu(923) - lu(704) * lu(902) + lu(924) = lu(924) - lu(705) * lu(902) + lu(927) = lu(927) - lu(706) * lu(902) + lu(928) = lu(928) - lu(707) * lu(902) + lu(930) = lu(930) - lu(708) * lu(902) + lu(950) = lu(950) - lu(691) * lu(949) + lu(954) = lu(954) - lu(692) * lu(949) + lu(955) = lu(955) - lu(693) * lu(949) + lu(956) = lu(956) - lu(694) * lu(949) + lu(957) = lu(957) - lu(695) * lu(949) + lu(958) = lu(958) - lu(696) * lu(949) + lu(959) = lu(959) - lu(697) * lu(949) + lu(960) = lu(960) - lu(698) * lu(949) + lu(961) = lu(961) - lu(699) * lu(949) + lu(963) = lu(963) - lu(700) * lu(949) + lu(964) = lu(964) - lu(701) * lu(949) + lu(966) = lu(966) - lu(702) * lu(949) + lu(968) = lu(968) - lu(703) * lu(949) + lu(970) = lu(970) - lu(704) * lu(949) + lu(971) = lu(971) - lu(705) * lu(949) + lu(974) = lu(974) - lu(706) * lu(949) + lu(975) = lu(975) - lu(707) * lu(949) + lu(977) = lu(977) - lu(708) * lu(949) + lu(992) = lu(992) - lu(691) * lu(991) + lu(996) = lu(996) - lu(692) * lu(991) + lu(997) = lu(997) - lu(693) * lu(991) + lu(998) = lu(998) - lu(694) * lu(991) + lu(999) = lu(999) - lu(695) * lu(991) + lu(1000) = lu(1000) - lu(696) * lu(991) + lu(1001) = lu(1001) - lu(697) * lu(991) + lu(1002) = lu(1002) - lu(698) * lu(991) + lu(1003) = lu(1003) - lu(699) * lu(991) + lu(1005) = lu(1005) - lu(700) * lu(991) + lu(1006) = lu(1006) - lu(701) * lu(991) + lu(1008) = lu(1008) - lu(702) * lu(991) + lu(1010) = lu(1010) - lu(703) * lu(991) + lu(1012) = lu(1012) - lu(704) * lu(991) + lu(1013) = lu(1013) - lu(705) * lu(991) + lu(1016) = lu(1016) - lu(706) * lu(991) + lu(1017) = lu(1017) - lu(707) * lu(991) + lu(1019) = lu(1019) - lu(708) * lu(991) + lu(1041) = lu(1041) - lu(691) * lu(1040) + lu(1045) = lu(1045) - lu(692) * lu(1040) + lu(1046) = lu(1046) - lu(693) * lu(1040) + lu(1047) = lu(1047) - lu(694) * lu(1040) + lu(1048) = lu(1048) - lu(695) * lu(1040) + lu(1049) = lu(1049) - lu(696) * lu(1040) + lu(1050) = lu(1050) - lu(697) * lu(1040) + lu(1051) = lu(1051) - lu(698) * lu(1040) + lu(1052) = lu(1052) - lu(699) * lu(1040) + lu(1054) = lu(1054) - lu(700) * lu(1040) + lu(1055) = lu(1055) - lu(701) * lu(1040) + lu(1057) = lu(1057) - lu(702) * lu(1040) + lu(1059) = lu(1059) - lu(703) * lu(1040) + lu(1061) = lu(1061) - lu(704) * lu(1040) + lu(1062) = lu(1062) - lu(705) * lu(1040) + lu(1065) = lu(1065) - lu(706) * lu(1040) + lu(1066) = lu(1066) - lu(707) * lu(1040) + lu(1068) = lu(1068) - lu(708) * lu(1040) + lu(1087) = lu(1087) - lu(691) * lu(1086) + lu(1091) = lu(1091) - lu(692) * lu(1086) + lu(1092) = lu(1092) - lu(693) * lu(1086) + lu(1093) = lu(1093) - lu(694) * lu(1086) + lu(1094) = lu(1094) - lu(695) * lu(1086) + lu(1095) = lu(1095) - lu(696) * lu(1086) + lu(1096) = lu(1096) - lu(697) * lu(1086) + lu(1097) = lu(1097) - lu(698) * lu(1086) + lu(1098) = lu(1098) - lu(699) * lu(1086) + lu(1100) = lu(1100) - lu(700) * lu(1086) + lu(1101) = lu(1101) - lu(701) * lu(1086) + lu(1103) = lu(1103) - lu(702) * lu(1086) + lu(1105) = lu(1105) - lu(703) * lu(1086) + lu(1107) = lu(1107) - lu(704) * lu(1086) + lu(1108) = lu(1108) - lu(705) * lu(1086) + lu(1111) = lu(1111) - lu(706) * lu(1086) + lu(1112) = lu(1112) - lu(707) * lu(1086) + lu(1114) = lu(1114) - lu(708) * lu(1086) + lu(1128) = lu(1128) - lu(691) * lu(1127) + lu(1132) = lu(1132) - lu(692) * lu(1127) + lu(1133) = lu(1133) - lu(693) * lu(1127) + lu(1134) = lu(1134) - lu(694) * lu(1127) + lu(1135) = lu(1135) - lu(695) * lu(1127) + lu(1136) = lu(1136) - lu(696) * lu(1127) + lu(1137) = lu(1137) - lu(697) * lu(1127) + lu(1138) = lu(1138) - lu(698) * lu(1127) + lu(1139) = lu(1139) - lu(699) * lu(1127) + lu(1141) = lu(1141) - lu(700) * lu(1127) + lu(1142) = lu(1142) - lu(701) * lu(1127) + lu(1144) = lu(1144) - lu(702) * lu(1127) + lu(1146) = lu(1146) - lu(703) * lu(1127) + lu(1148) = lu(1148) - lu(704) * lu(1127) + lu(1149) = lu(1149) - lu(705) * lu(1127) + lu(1152) = lu(1152) - lu(706) * lu(1127) + lu(1153) = lu(1153) - lu(707) * lu(1127) + lu(1155) = lu(1155) - lu(708) * lu(1127) + lu(1169) = lu(1169) - lu(691) * lu(1168) + lu(1173) = lu(1173) - lu(692) * lu(1168) + lu(1174) = lu(1174) - lu(693) * lu(1168) + lu(1175) = lu(1175) - lu(694) * lu(1168) + lu(1176) = lu(1176) - lu(695) * lu(1168) + lu(1177) = lu(1177) - lu(696) * lu(1168) + lu(1178) = lu(1178) - lu(697) * lu(1168) + lu(1179) = lu(1179) - lu(698) * lu(1168) + lu(1180) = lu(1180) - lu(699) * lu(1168) + lu(1182) = lu(1182) - lu(700) * lu(1168) + lu(1183) = lu(1183) - lu(701) * lu(1168) + lu(1185) = lu(1185) - lu(702) * lu(1168) + lu(1187) = lu(1187) - lu(703) * lu(1168) + lu(1189) = lu(1189) - lu(704) * lu(1168) + lu(1190) = lu(1190) - lu(705) * lu(1168) + lu(1193) = lu(1193) - lu(706) * lu(1168) + lu(1194) = lu(1194) - lu(707) * lu(1168) + lu(1196) = lu(1196) - lu(708) * lu(1168) + lu(1228) = lu(1228) - lu(691) * lu(1227) + lu(1232) = lu(1232) - lu(692) * lu(1227) + lu(1233) = lu(1233) - lu(693) * lu(1227) + lu(1234) = lu(1234) - lu(694) * lu(1227) + lu(1235) = lu(1235) - lu(695) * lu(1227) + lu(1236) = lu(1236) - lu(696) * lu(1227) + lu(1237) = lu(1237) - lu(697) * lu(1227) + lu(1238) = lu(1238) - lu(698) * lu(1227) + lu(1239) = lu(1239) - lu(699) * lu(1227) + lu(1241) = lu(1241) - lu(700) * lu(1227) + lu(1242) = lu(1242) - lu(701) * lu(1227) + lu(1244) = lu(1244) - lu(702) * lu(1227) + lu(1246) = lu(1246) - lu(703) * lu(1227) + lu(1248) = lu(1248) - lu(704) * lu(1227) + lu(1249) = lu(1249) - lu(705) * lu(1227) + lu(1252) = lu(1252) - lu(706) * lu(1227) + lu(1253) = lu(1253) - lu(707) * lu(1227) + lu(1255) = lu(1255) - lu(708) * lu(1227) + lu(1270) = lu(1270) - lu(691) * lu(1269) + lu(1274) = lu(1274) - lu(692) * lu(1269) + lu(1275) = lu(1275) - lu(693) * lu(1269) + lu(1276) = lu(1276) - lu(694) * lu(1269) + lu(1277) = lu(1277) - lu(695) * lu(1269) + lu(1278) = lu(1278) - lu(696) * lu(1269) + lu(1279) = lu(1279) - lu(697) * lu(1269) + lu(1280) = lu(1280) - lu(698) * lu(1269) + lu(1281) = lu(1281) - lu(699) * lu(1269) + lu(1283) = lu(1283) - lu(700) * lu(1269) + lu(1284) = lu(1284) - lu(701) * lu(1269) + lu(1286) = lu(1286) - lu(702) * lu(1269) + lu(1288) = lu(1288) - lu(703) * lu(1269) + lu(1290) = lu(1290) - lu(704) * lu(1269) + lu(1291) = lu(1291) - lu(705) * lu(1269) + lu(1294) = lu(1294) - lu(706) * lu(1269) + lu(1295) = lu(1295) - lu(707) * lu(1269) + lu(1297) = lu(1297) - lu(708) * lu(1269) + lu(1314) = lu(1314) - lu(691) * lu(1313) + lu(1318) = lu(1318) - lu(692) * lu(1313) + lu(1319) = lu(1319) - lu(693) * lu(1313) + lu(1320) = lu(1320) - lu(694) * lu(1313) + lu(1321) = lu(1321) - lu(695) * lu(1313) + lu(1322) = lu(1322) - lu(696) * lu(1313) + lu(1323) = lu(1323) - lu(697) * lu(1313) + lu(1324) = lu(1324) - lu(698) * lu(1313) + lu(1325) = lu(1325) - lu(699) * lu(1313) + lu(1327) = lu(1327) - lu(700) * lu(1313) + lu(1328) = lu(1328) - lu(701) * lu(1313) + lu(1330) = lu(1330) - lu(702) * lu(1313) + lu(1332) = lu(1332) - lu(703) * lu(1313) + lu(1334) = lu(1334) - lu(704) * lu(1313) + lu(1335) = lu(1335) - lu(705) * lu(1313) + lu(1338) = lu(1338) - lu(706) * lu(1313) + lu(1339) = lu(1339) - lu(707) * lu(1313) + lu(1341) = lu(1341) - lu(708) * lu(1313) + lu(1349) = lu(1349) - lu(691) * lu(1348) + lu(1353) = lu(1353) - lu(692) * lu(1348) + lu(1354) = lu(1354) - lu(693) * lu(1348) + lu(1355) = lu(1355) - lu(694) * lu(1348) + lu(1356) = lu(1356) - lu(695) * lu(1348) + lu(1357) = lu(1357) - lu(696) * lu(1348) + lu(1358) = lu(1358) - lu(697) * lu(1348) + lu(1359) = lu(1359) - lu(698) * lu(1348) + lu(1360) = lu(1360) - lu(699) * lu(1348) + lu(1362) = lu(1362) - lu(700) * lu(1348) + lu(1363) = lu(1363) - lu(701) * lu(1348) + lu(1365) = lu(1365) - lu(702) * lu(1348) + lu(1367) = lu(1367) - lu(703) * lu(1348) + lu(1369) = lu(1369) - lu(704) * lu(1348) + lu(1370) = lu(1370) - lu(705) * lu(1348) + lu(1373) = lu(1373) - lu(706) * lu(1348) + lu(1374) = lu(1374) - lu(707) * lu(1348) + lu(1376) = lu(1376) - lu(708) * lu(1348) + lu(1393) = lu(1393) - lu(691) * lu(1392) + lu(1397) = lu(1397) - lu(692) * lu(1392) + lu(1398) = lu(1398) - lu(693) * lu(1392) + lu(1399) = lu(1399) - lu(694) * lu(1392) + lu(1400) = lu(1400) - lu(695) * lu(1392) + lu(1401) = lu(1401) - lu(696) * lu(1392) + lu(1402) = lu(1402) - lu(697) * lu(1392) + lu(1403) = lu(1403) - lu(698) * lu(1392) + lu(1404) = lu(1404) - lu(699) * lu(1392) + lu(1406) = lu(1406) - lu(700) * lu(1392) + lu(1407) = lu(1407) - lu(701) * lu(1392) + lu(1409) = lu(1409) - lu(702) * lu(1392) + lu(1411) = lu(1411) - lu(703) * lu(1392) + lu(1413) = lu(1413) - lu(704) * lu(1392) + lu(1414) = lu(1414) - lu(705) * lu(1392) + lu(1417) = lu(1417) - lu(706) * lu(1392) + lu(1418) = lu(1418) - lu(707) * lu(1392) + lu(1420) = lu(1420) - lu(708) * lu(1392) + lu(1434) = lu(1434) - lu(691) * lu(1433) + lu(1438) = lu(1438) - lu(692) * lu(1433) + lu(1439) = lu(1439) - lu(693) * lu(1433) + lu(1440) = lu(1440) - lu(694) * lu(1433) + lu(1441) = lu(1441) - lu(695) * lu(1433) + lu(1442) = lu(1442) - lu(696) * lu(1433) + lu(1443) = lu(1443) - lu(697) * lu(1433) + lu(1444) = lu(1444) - lu(698) * lu(1433) + lu(1445) = lu(1445) - lu(699) * lu(1433) + lu(1447) = lu(1447) - lu(700) * lu(1433) + lu(1448) = lu(1448) - lu(701) * lu(1433) + lu(1450) = lu(1450) - lu(702) * lu(1433) + lu(1452) = lu(1452) - lu(703) * lu(1433) + lu(1454) = lu(1454) - lu(704) * lu(1433) + lu(1455) = lu(1455) - lu(705) * lu(1433) + lu(1458) = lu(1458) - lu(706) * lu(1433) + lu(1459) = lu(1459) - lu(707) * lu(1433) + lu(1461) = lu(1461) - lu(708) * lu(1433) + lu(1469) = lu(1469) - lu(691) * lu(1468) + lu(1473) = lu(1473) - lu(692) * lu(1468) + lu(1474) = lu(1474) - lu(693) * lu(1468) + lu(1475) = lu(1475) - lu(694) * lu(1468) + lu(1476) = lu(1476) - lu(695) * lu(1468) + lu(1477) = lu(1477) - lu(696) * lu(1468) + lu(1478) = lu(1478) - lu(697) * lu(1468) + lu(1479) = lu(1479) - lu(698) * lu(1468) + lu(1480) = lu(1480) - lu(699) * lu(1468) + lu(1482) = lu(1482) - lu(700) * lu(1468) + lu(1483) = lu(1483) - lu(701) * lu(1468) + lu(1485) = lu(1485) - lu(702) * lu(1468) + lu(1487) = lu(1487) - lu(703) * lu(1468) + lu(1489) = lu(1489) - lu(704) * lu(1468) + lu(1490) = lu(1490) - lu(705) * lu(1468) + lu(1493) = lu(1493) - lu(706) * lu(1468) + lu(1494) = lu(1494) - lu(707) * lu(1468) + lu(1496) = lu(1496) - lu(708) * lu(1468) + lu(1513) = lu(1513) - lu(691) * lu(1512) + lu(1517) = lu(1517) - lu(692) * lu(1512) + lu(1518) = lu(1518) - lu(693) * lu(1512) + lu(1519) = lu(1519) - lu(694) * lu(1512) + lu(1520) = lu(1520) - lu(695) * lu(1512) + lu(1521) = lu(1521) - lu(696) * lu(1512) + lu(1522) = lu(1522) - lu(697) * lu(1512) + lu(1523) = lu(1523) - lu(698) * lu(1512) + lu(1524) = lu(1524) - lu(699) * lu(1512) + lu(1526) = lu(1526) - lu(700) * lu(1512) + lu(1527) = lu(1527) - lu(701) * lu(1512) + lu(1529) = lu(1529) - lu(702) * lu(1512) + lu(1531) = lu(1531) - lu(703) * lu(1512) + lu(1533) = lu(1533) - lu(704) * lu(1512) + lu(1534) = lu(1534) - lu(705) * lu(1512) + lu(1537) = lu(1537) - lu(706) * lu(1512) + lu(1538) = lu(1538) - lu(707) * lu(1512) + lu(1540) = lu(1540) - lu(708) * lu(1512) + lu(1555) = lu(1555) - lu(691) * lu(1554) + lu(1559) = lu(1559) - lu(692) * lu(1554) + lu(1560) = lu(1560) - lu(693) * lu(1554) + lu(1561) = lu(1561) - lu(694) * lu(1554) + lu(1562) = lu(1562) - lu(695) * lu(1554) + lu(1563) = lu(1563) - lu(696) * lu(1554) + lu(1564) = lu(1564) - lu(697) * lu(1554) + lu(1565) = lu(1565) - lu(698) * lu(1554) + lu(1566) = lu(1566) - lu(699) * lu(1554) + lu(1568) = lu(1568) - lu(700) * lu(1554) + lu(1569) = lu(1569) - lu(701) * lu(1554) + lu(1571) = lu(1571) - lu(702) * lu(1554) + lu(1573) = lu(1573) - lu(703) * lu(1554) + lu(1575) = lu(1575) - lu(704) * lu(1554) + lu(1576) = lu(1576) - lu(705) * lu(1554) + lu(1579) = lu(1579) - lu(706) * lu(1554) + lu(1580) = lu(1580) - lu(707) * lu(1554) + lu(1582) = lu(1582) - lu(708) * lu(1554) + lu(1594) = lu(1594) - lu(691) * lu(1593) + lu(1598) = lu(1598) - lu(692) * lu(1593) + lu(1599) = lu(1599) - lu(693) * lu(1593) + lu(1600) = lu(1600) - lu(694) * lu(1593) + lu(1601) = lu(1601) - lu(695) * lu(1593) + lu(1602) = lu(1602) - lu(696) * lu(1593) + lu(1603) = lu(1603) - lu(697) * lu(1593) + lu(1604) = lu(1604) - lu(698) * lu(1593) + lu(1605) = lu(1605) - lu(699) * lu(1593) + lu(1607) = lu(1607) - lu(700) * lu(1593) + lu(1608) = lu(1608) - lu(701) * lu(1593) + lu(1610) = lu(1610) - lu(702) * lu(1593) + lu(1612) = lu(1612) - lu(703) * lu(1593) + lu(1614) = lu(1614) - lu(704) * lu(1593) + lu(1615) = lu(1615) - lu(705) * lu(1593) + lu(1618) = lu(1618) - lu(706) * lu(1593) + lu(1619) = lu(1619) - lu(707) * lu(1593) + lu(1621) = lu(1621) - lu(708) * lu(1593) + lu(1626) = lu(1626) - lu(691) * lu(1625) + lu(1630) = lu(1630) - lu(692) * lu(1625) + lu(1631) = lu(1631) - lu(693) * lu(1625) + lu(1632) = lu(1632) - lu(694) * lu(1625) + lu(1633) = lu(1633) - lu(695) * lu(1625) + lu(1634) = lu(1634) - lu(696) * lu(1625) + lu(1635) = lu(1635) - lu(697) * lu(1625) + lu(1636) = lu(1636) - lu(698) * lu(1625) + lu(1637) = lu(1637) - lu(699) * lu(1625) + lu(1639) = lu(1639) - lu(700) * lu(1625) + lu(1640) = lu(1640) - lu(701) * lu(1625) + lu(1642) = lu(1642) - lu(702) * lu(1625) + lu(1644) = lu(1644) - lu(703) * lu(1625) + lu(1646) = lu(1646) - lu(704) * lu(1625) + lu(1647) = - lu(705) * lu(1625) + lu(1650) = lu(1650) - lu(706) * lu(1625) + lu(1651) = lu(1651) - lu(707) * lu(1625) + lu(1653) = lu(1653) - lu(708) * lu(1625) + lu(1661) = lu(1661) - lu(691) * lu(1660) + lu(1665) = lu(1665) - lu(692) * lu(1660) + lu(1666) = lu(1666) - lu(693) * lu(1660) + lu(1667) = - lu(694) * lu(1660) + lu(1668) = - lu(695) * lu(1660) + lu(1669) = lu(1669) - lu(696) * lu(1660) + lu(1670) = lu(1670) - lu(697) * lu(1660) + lu(1671) = - lu(698) * lu(1660) + lu(1672) = lu(1672) - lu(699) * lu(1660) + lu(1674) = lu(1674) - lu(700) * lu(1660) + lu(1675) = lu(1675) - lu(701) * lu(1660) + lu(1677) = lu(1677) - lu(702) * lu(1660) + lu(1679) = lu(1679) - lu(703) * lu(1660) + lu(1681) = - lu(704) * lu(1660) + lu(1682) = lu(1682) - lu(705) * lu(1660) + lu(1685) = - lu(706) * lu(1660) + lu(1686) = lu(1686) - lu(707) * lu(1660) + lu(1688) = lu(1688) - lu(708) * lu(1660) + lu(1703) = lu(1703) - lu(691) * lu(1702) + lu(1707) = lu(1707) - lu(692) * lu(1702) + lu(1708) = lu(1708) - lu(693) * lu(1702) + lu(1709) = lu(1709) - lu(694) * lu(1702) + lu(1710) = lu(1710) - lu(695) * lu(1702) + lu(1711) = lu(1711) - lu(696) * lu(1702) + lu(1712) = lu(1712) - lu(697) * lu(1702) + lu(1713) = lu(1713) - lu(698) * lu(1702) + lu(1714) = lu(1714) - lu(699) * lu(1702) + lu(1716) = lu(1716) - lu(700) * lu(1702) + lu(1717) = lu(1717) - lu(701) * lu(1702) + lu(1719) = lu(1719) - lu(702) * lu(1702) + lu(1721) = lu(1721) - lu(703) * lu(1702) + lu(1723) = lu(1723) - lu(704) * lu(1702) + lu(1724) = lu(1724) - lu(705) * lu(1702) + lu(1727) = lu(1727) - lu(706) * lu(1702) + lu(1728) = lu(1728) - lu(707) * lu(1702) + lu(1730) = lu(1730) - lu(708) * lu(1702) + lu(1734) = lu(1734) - lu(691) * lu(1733) + lu(1736) = lu(1736) - lu(692) * lu(1733) + lu(1737) = lu(1737) - lu(693) * lu(1733) + lu(1738) = lu(1738) - lu(694) * lu(1733) + lu(1739) = lu(1739) - lu(695) * lu(1733) + lu(1740) = lu(1740) - lu(696) * lu(1733) + lu(1741) = lu(1741) - lu(697) * lu(1733) + lu(1742) = lu(1742) - lu(698) * lu(1733) + lu(1743) = lu(1743) - lu(699) * lu(1733) + lu(1745) = lu(1745) - lu(700) * lu(1733) + lu(1746) = lu(1746) - lu(701) * lu(1733) + lu(1748) = lu(1748) - lu(702) * lu(1733) + lu(1750) = lu(1750) - lu(703) * lu(1733) + lu(1752) = lu(1752) - lu(704) * lu(1733) + lu(1753) = lu(1753) - lu(705) * lu(1733) + lu(1756) = lu(1756) - lu(706) * lu(1733) + lu(1757) = lu(1757) - lu(707) * lu(1733) + lu(1759) = lu(1759) - lu(708) * lu(1733) + lu(1829) = lu(1829) - lu(691) * lu(1828) + lu(1833) = lu(1833) - lu(692) * lu(1828) + lu(1834) = lu(1834) - lu(693) * lu(1828) + lu(1835) = lu(1835) - lu(694) * lu(1828) + lu(1836) = lu(1836) - lu(695) * lu(1828) + lu(1837) = lu(1837) - lu(696) * lu(1828) + lu(1838) = lu(1838) - lu(697) * lu(1828) + lu(1839) = lu(1839) - lu(698) * lu(1828) + lu(1840) = lu(1840) - lu(699) * lu(1828) + lu(1842) = lu(1842) - lu(700) * lu(1828) + lu(1843) = lu(1843) - lu(701) * lu(1828) + lu(1845) = lu(1845) - lu(702) * lu(1828) + lu(1847) = lu(1847) - lu(703) * lu(1828) + lu(1849) = lu(1849) - lu(704) * lu(1828) + lu(1850) = lu(1850) - lu(705) * lu(1828) + lu(1853) = lu(1853) - lu(706) * lu(1828) + lu(1854) = lu(1854) - lu(707) * lu(1828) + lu(1856) = lu(1856) - lu(708) * lu(1828) + lu(713) = 1._r8 / lu(713) + lu(714) = lu(714) * lu(713) + lu(715) = lu(715) * lu(713) + lu(716) = lu(716) * lu(713) + lu(717) = lu(717) * lu(713) + lu(718) = lu(718) * lu(713) + lu(719) = lu(719) * lu(713) + lu(720) = lu(720) * lu(713) + lu(721) = lu(721) * lu(713) + lu(722) = lu(722) * lu(713) + lu(723) = lu(723) * lu(713) + lu(724) = lu(724) * lu(713) + lu(725) = lu(725) * lu(713) + lu(726) = lu(726) * lu(713) + lu(727) = lu(727) * lu(713) + lu(728) = lu(728) * lu(713) + lu(729) = lu(729) * lu(713) + lu(730) = lu(730) * lu(713) + lu(731) = lu(731) * lu(713) + lu(732) = lu(732) * lu(713) + lu(733) = lu(733) * lu(713) + lu(823) = lu(823) - lu(714) * lu(820) + lu(824) = lu(824) - lu(715) * lu(820) + lu(825) = lu(825) - lu(716) * lu(820) + lu(826) = lu(826) - lu(717) * lu(820) + lu(827) = lu(827) - lu(718) * lu(820) + lu(828) = lu(828) - lu(719) * lu(820) + lu(829) = lu(829) - lu(720) * lu(820) + lu(830) = lu(830) - lu(721) * lu(820) + lu(831) = lu(831) - lu(722) * lu(820) + lu(832) = lu(832) - lu(723) * lu(820) + lu(833) = lu(833) - lu(724) * lu(820) + lu(835) = lu(835) - lu(725) * lu(820) + lu(836) = lu(836) - lu(726) * lu(820) + lu(837) = lu(837) - lu(727) * lu(820) + lu(839) = lu(839) - lu(728) * lu(820) + lu(840) = lu(840) - lu(729) * lu(820) + lu(843) = lu(843) - lu(730) * lu(820) + lu(844) = lu(844) - lu(731) * lu(820) + lu(845) = lu(845) - lu(732) * lu(820) + lu(846) = lu(846) - lu(733) * lu(820) + lu(907) = lu(907) - lu(714) * lu(903) + lu(908) = lu(908) - lu(715) * lu(903) + lu(909) = lu(909) - lu(716) * lu(903) + lu(910) = lu(910) - lu(717) * lu(903) + lu(911) = lu(911) - lu(718) * lu(903) + lu(912) = lu(912) - lu(719) * lu(903) + lu(913) = lu(913) - lu(720) * lu(903) + lu(914) = lu(914) - lu(721) * lu(903) + lu(915) = lu(915) - lu(722) * lu(903) + lu(916) = lu(916) - lu(723) * lu(903) + lu(917) = lu(917) - lu(724) * lu(903) + lu(919) = lu(919) - lu(725) * lu(903) + lu(920) = lu(920) - lu(726) * lu(903) + lu(921) = lu(921) - lu(727) * lu(903) + lu(923) = lu(923) - lu(728) * lu(903) + lu(924) = lu(924) - lu(729) * lu(903) + lu(927) = lu(927) - lu(730) * lu(903) + lu(928) = lu(928) - lu(731) * lu(903) + lu(929) = lu(929) - lu(732) * lu(903) + lu(930) = lu(930) - lu(733) * lu(903) + lu(954) = lu(954) - lu(714) * lu(950) + lu(955) = lu(955) - lu(715) * lu(950) + lu(956) = lu(956) - lu(716) * lu(950) + lu(957) = lu(957) - lu(717) * lu(950) + lu(958) = lu(958) - lu(718) * lu(950) + lu(959) = lu(959) - lu(719) * lu(950) + lu(960) = lu(960) - lu(720) * lu(950) + lu(961) = lu(961) - lu(721) * lu(950) + lu(962) = lu(962) - lu(722) * lu(950) + lu(963) = lu(963) - lu(723) * lu(950) + lu(964) = lu(964) - lu(724) * lu(950) + lu(966) = lu(966) - lu(725) * lu(950) + lu(967) = lu(967) - lu(726) * lu(950) + lu(968) = lu(968) - lu(727) * lu(950) + lu(970) = lu(970) - lu(728) * lu(950) + lu(971) = lu(971) - lu(729) * lu(950) + lu(974) = lu(974) - lu(730) * lu(950) + lu(975) = lu(975) - lu(731) * lu(950) + lu(976) = lu(976) - lu(732) * lu(950) + lu(977) = lu(977) - lu(733) * lu(950) + lu(996) = lu(996) - lu(714) * lu(992) + lu(997) = lu(997) - lu(715) * lu(992) + lu(998) = lu(998) - lu(716) * lu(992) + lu(999) = lu(999) - lu(717) * lu(992) + lu(1000) = lu(1000) - lu(718) * lu(992) + lu(1001) = lu(1001) - lu(719) * lu(992) + lu(1002) = lu(1002) - lu(720) * lu(992) + lu(1003) = lu(1003) - lu(721) * lu(992) + lu(1004) = lu(1004) - lu(722) * lu(992) + lu(1005) = lu(1005) - lu(723) * lu(992) + lu(1006) = lu(1006) - lu(724) * lu(992) + lu(1008) = lu(1008) - lu(725) * lu(992) + lu(1009) = lu(1009) - lu(726) * lu(992) + lu(1010) = lu(1010) - lu(727) * lu(992) + lu(1012) = lu(1012) - lu(728) * lu(992) + lu(1013) = lu(1013) - lu(729) * lu(992) + lu(1016) = lu(1016) - lu(730) * lu(992) + lu(1017) = lu(1017) - lu(731) * lu(992) + lu(1018) = lu(1018) - lu(732) * lu(992) + lu(1019) = lu(1019) - lu(733) * lu(992) + lu(1045) = lu(1045) - lu(714) * lu(1041) + lu(1046) = lu(1046) - lu(715) * lu(1041) + lu(1047) = lu(1047) - lu(716) * lu(1041) + lu(1048) = lu(1048) - lu(717) * lu(1041) + lu(1049) = lu(1049) - lu(718) * lu(1041) + lu(1050) = lu(1050) - lu(719) * lu(1041) + lu(1051) = lu(1051) - lu(720) * lu(1041) + lu(1052) = lu(1052) - lu(721) * lu(1041) + lu(1053) = lu(1053) - lu(722) * lu(1041) + lu(1054) = lu(1054) - lu(723) * lu(1041) + lu(1055) = lu(1055) - lu(724) * lu(1041) + lu(1057) = lu(1057) - lu(725) * lu(1041) + lu(1058) = lu(1058) - lu(726) * lu(1041) + lu(1059) = lu(1059) - lu(727) * lu(1041) + lu(1061) = lu(1061) - lu(728) * lu(1041) + lu(1062) = lu(1062) - lu(729) * lu(1041) + lu(1065) = lu(1065) - lu(730) * lu(1041) + lu(1066) = lu(1066) - lu(731) * lu(1041) + lu(1067) = lu(1067) - lu(732) * lu(1041) + lu(1068) = lu(1068) - lu(733) * lu(1041) + lu(1091) = lu(1091) - lu(714) * lu(1087) + lu(1092) = lu(1092) - lu(715) * lu(1087) + lu(1093) = lu(1093) - lu(716) * lu(1087) + lu(1094) = lu(1094) - lu(717) * lu(1087) + lu(1095) = lu(1095) - lu(718) * lu(1087) + lu(1096) = lu(1096) - lu(719) * lu(1087) + lu(1097) = lu(1097) - lu(720) * lu(1087) + lu(1098) = lu(1098) - lu(721) * lu(1087) + lu(1099) = lu(1099) - lu(722) * lu(1087) + lu(1100) = lu(1100) - lu(723) * lu(1087) + lu(1101) = lu(1101) - lu(724) * lu(1087) + lu(1103) = lu(1103) - lu(725) * lu(1087) + lu(1104) = lu(1104) - lu(726) * lu(1087) + lu(1105) = lu(1105) - lu(727) * lu(1087) + lu(1107) = lu(1107) - lu(728) * lu(1087) + lu(1108) = lu(1108) - lu(729) * lu(1087) + lu(1111) = lu(1111) - lu(730) * lu(1087) + lu(1112) = lu(1112) - lu(731) * lu(1087) + lu(1113) = lu(1113) - lu(732) * lu(1087) + lu(1114) = lu(1114) - lu(733) * lu(1087) + lu(1132) = lu(1132) - lu(714) * lu(1128) + lu(1133) = lu(1133) - lu(715) * lu(1128) + lu(1134) = lu(1134) - lu(716) * lu(1128) + lu(1135) = lu(1135) - lu(717) * lu(1128) + lu(1136) = lu(1136) - lu(718) * lu(1128) + lu(1137) = lu(1137) - lu(719) * lu(1128) + lu(1138) = lu(1138) - lu(720) * lu(1128) + lu(1139) = lu(1139) - lu(721) * lu(1128) + lu(1140) = lu(1140) - lu(722) * lu(1128) + lu(1141) = lu(1141) - lu(723) * lu(1128) + lu(1142) = lu(1142) - lu(724) * lu(1128) + lu(1144) = lu(1144) - lu(725) * lu(1128) + lu(1145) = lu(1145) - lu(726) * lu(1128) + lu(1146) = lu(1146) - lu(727) * lu(1128) + lu(1148) = lu(1148) - lu(728) * lu(1128) + lu(1149) = lu(1149) - lu(729) * lu(1128) + lu(1152) = lu(1152) - lu(730) * lu(1128) + lu(1153) = lu(1153) - lu(731) * lu(1128) + lu(1154) = lu(1154) - lu(732) * lu(1128) + lu(1155) = lu(1155) - lu(733) * lu(1128) + lu(1173) = lu(1173) - lu(714) * lu(1169) + lu(1174) = lu(1174) - lu(715) * lu(1169) + lu(1175) = lu(1175) - lu(716) * lu(1169) + lu(1176) = lu(1176) - lu(717) * lu(1169) + lu(1177) = lu(1177) - lu(718) * lu(1169) + lu(1178) = lu(1178) - lu(719) * lu(1169) + lu(1179) = lu(1179) - lu(720) * lu(1169) + lu(1180) = lu(1180) - lu(721) * lu(1169) + lu(1181) = lu(1181) - lu(722) * lu(1169) + lu(1182) = lu(1182) - lu(723) * lu(1169) + lu(1183) = lu(1183) - lu(724) * lu(1169) + lu(1185) = lu(1185) - lu(725) * lu(1169) + lu(1186) = lu(1186) - lu(726) * lu(1169) + lu(1187) = lu(1187) - lu(727) * lu(1169) + lu(1189) = lu(1189) - lu(728) * lu(1169) + lu(1190) = lu(1190) - lu(729) * lu(1169) + lu(1193) = lu(1193) - lu(730) * lu(1169) + lu(1194) = lu(1194) - lu(731) * lu(1169) + lu(1195) = lu(1195) - lu(732) * lu(1169) + lu(1196) = lu(1196) - lu(733) * lu(1169) + lu(1232) = lu(1232) - lu(714) * lu(1228) + lu(1233) = lu(1233) - lu(715) * lu(1228) + lu(1234) = lu(1234) - lu(716) * lu(1228) + lu(1235) = lu(1235) - lu(717) * lu(1228) + lu(1236) = lu(1236) - lu(718) * lu(1228) + lu(1237) = lu(1237) - lu(719) * lu(1228) + lu(1238) = lu(1238) - lu(720) * lu(1228) + lu(1239) = lu(1239) - lu(721) * lu(1228) + lu(1240) = lu(1240) - lu(722) * lu(1228) + lu(1241) = lu(1241) - lu(723) * lu(1228) + lu(1242) = lu(1242) - lu(724) * lu(1228) + lu(1244) = lu(1244) - lu(725) * lu(1228) + lu(1245) = lu(1245) - lu(726) * lu(1228) + lu(1246) = lu(1246) - lu(727) * lu(1228) + lu(1248) = lu(1248) - lu(728) * lu(1228) + lu(1249) = lu(1249) - lu(729) * lu(1228) + lu(1252) = lu(1252) - lu(730) * lu(1228) + lu(1253) = lu(1253) - lu(731) * lu(1228) + lu(1254) = lu(1254) - lu(732) * lu(1228) + lu(1255) = lu(1255) - lu(733) * lu(1228) + lu(1274) = lu(1274) - lu(714) * lu(1270) + lu(1275) = lu(1275) - lu(715) * lu(1270) + lu(1276) = lu(1276) - lu(716) * lu(1270) + lu(1277) = lu(1277) - lu(717) * lu(1270) + lu(1278) = lu(1278) - lu(718) * lu(1270) + lu(1279) = lu(1279) - lu(719) * lu(1270) + lu(1280) = lu(1280) - lu(720) * lu(1270) + lu(1281) = lu(1281) - lu(721) * lu(1270) + lu(1282) = lu(1282) - lu(722) * lu(1270) + lu(1283) = lu(1283) - lu(723) * lu(1270) + lu(1284) = lu(1284) - lu(724) * lu(1270) + lu(1286) = lu(1286) - lu(725) * lu(1270) + lu(1287) = lu(1287) - lu(726) * lu(1270) + lu(1288) = lu(1288) - lu(727) * lu(1270) + lu(1290) = lu(1290) - lu(728) * lu(1270) + lu(1291) = lu(1291) - lu(729) * lu(1270) + lu(1294) = lu(1294) - lu(730) * lu(1270) + lu(1295) = lu(1295) - lu(731) * lu(1270) + lu(1296) = lu(1296) - lu(732) * lu(1270) + lu(1297) = lu(1297) - lu(733) * lu(1270) + lu(1318) = lu(1318) - lu(714) * lu(1314) + lu(1319) = lu(1319) - lu(715) * lu(1314) + lu(1320) = lu(1320) - lu(716) * lu(1314) + lu(1321) = lu(1321) - lu(717) * lu(1314) + lu(1322) = lu(1322) - lu(718) * lu(1314) + lu(1323) = lu(1323) - lu(719) * lu(1314) + lu(1324) = lu(1324) - lu(720) * lu(1314) + lu(1325) = lu(1325) - lu(721) * lu(1314) + lu(1326) = lu(1326) - lu(722) * lu(1314) + lu(1327) = lu(1327) - lu(723) * lu(1314) + lu(1328) = lu(1328) - lu(724) * lu(1314) + lu(1330) = lu(1330) - lu(725) * lu(1314) + lu(1331) = lu(1331) - lu(726) * lu(1314) + lu(1332) = lu(1332) - lu(727) * lu(1314) + lu(1334) = lu(1334) - lu(728) * lu(1314) + lu(1335) = lu(1335) - lu(729) * lu(1314) + lu(1338) = lu(1338) - lu(730) * lu(1314) + lu(1339) = lu(1339) - lu(731) * lu(1314) + lu(1340) = lu(1340) - lu(732) * lu(1314) + lu(1341) = lu(1341) - lu(733) * lu(1314) + lu(1353) = lu(1353) - lu(714) * lu(1349) + lu(1354) = lu(1354) - lu(715) * lu(1349) + lu(1355) = lu(1355) - lu(716) * lu(1349) + lu(1356) = lu(1356) - lu(717) * lu(1349) + lu(1357) = lu(1357) - lu(718) * lu(1349) + lu(1358) = lu(1358) - lu(719) * lu(1349) + lu(1359) = lu(1359) - lu(720) * lu(1349) + lu(1360) = lu(1360) - lu(721) * lu(1349) + lu(1361) = lu(1361) - lu(722) * lu(1349) + lu(1362) = lu(1362) - lu(723) * lu(1349) + lu(1363) = lu(1363) - lu(724) * lu(1349) + lu(1365) = lu(1365) - lu(725) * lu(1349) + lu(1366) = lu(1366) - lu(726) * lu(1349) + lu(1367) = lu(1367) - lu(727) * lu(1349) + lu(1369) = lu(1369) - lu(728) * lu(1349) + lu(1370) = lu(1370) - lu(729) * lu(1349) + lu(1373) = lu(1373) - lu(730) * lu(1349) + lu(1374) = lu(1374) - lu(731) * lu(1349) + lu(1375) = - lu(732) * lu(1349) + lu(1376) = lu(1376) - lu(733) * lu(1349) + lu(1397) = lu(1397) - lu(714) * lu(1393) + lu(1398) = lu(1398) - lu(715) * lu(1393) + lu(1399) = lu(1399) - lu(716) * lu(1393) + lu(1400) = lu(1400) - lu(717) * lu(1393) + lu(1401) = lu(1401) - lu(718) * lu(1393) + lu(1402) = lu(1402) - lu(719) * lu(1393) + lu(1403) = lu(1403) - lu(720) * lu(1393) + lu(1404) = lu(1404) - lu(721) * lu(1393) + lu(1405) = lu(1405) - lu(722) * lu(1393) + lu(1406) = lu(1406) - lu(723) * lu(1393) + lu(1407) = lu(1407) - lu(724) * lu(1393) + lu(1409) = lu(1409) - lu(725) * lu(1393) + lu(1410) = lu(1410) - lu(726) * lu(1393) + lu(1411) = lu(1411) - lu(727) * lu(1393) + lu(1413) = lu(1413) - lu(728) * lu(1393) + lu(1414) = lu(1414) - lu(729) * lu(1393) + lu(1417) = lu(1417) - lu(730) * lu(1393) + lu(1418) = lu(1418) - lu(731) * lu(1393) + lu(1419) = lu(1419) - lu(732) * lu(1393) + lu(1420) = lu(1420) - lu(733) * lu(1393) + lu(1438) = lu(1438) - lu(714) * lu(1434) + lu(1439) = lu(1439) - lu(715) * lu(1434) + lu(1440) = lu(1440) - lu(716) * lu(1434) + lu(1441) = lu(1441) - lu(717) * lu(1434) + lu(1442) = lu(1442) - lu(718) * lu(1434) + lu(1443) = lu(1443) - lu(719) * lu(1434) + lu(1444) = lu(1444) - lu(720) * lu(1434) + lu(1445) = lu(1445) - lu(721) * lu(1434) + lu(1446) = lu(1446) - lu(722) * lu(1434) + lu(1447) = lu(1447) - lu(723) * lu(1434) + lu(1448) = lu(1448) - lu(724) * lu(1434) + lu(1450) = lu(1450) - lu(725) * lu(1434) + lu(1451) = lu(1451) - lu(726) * lu(1434) + lu(1452) = lu(1452) - lu(727) * lu(1434) + lu(1454) = lu(1454) - lu(728) * lu(1434) + lu(1455) = lu(1455) - lu(729) * lu(1434) + lu(1458) = lu(1458) - lu(730) * lu(1434) + lu(1459) = lu(1459) - lu(731) * lu(1434) + lu(1460) = lu(1460) - lu(732) * lu(1434) + lu(1461) = lu(1461) - lu(733) * lu(1434) + lu(1473) = lu(1473) - lu(714) * lu(1469) + lu(1474) = lu(1474) - lu(715) * lu(1469) + lu(1475) = lu(1475) - lu(716) * lu(1469) + lu(1476) = lu(1476) - lu(717) * lu(1469) + lu(1477) = lu(1477) - lu(718) * lu(1469) + lu(1478) = lu(1478) - lu(719) * lu(1469) + lu(1479) = lu(1479) - lu(720) * lu(1469) + lu(1480) = lu(1480) - lu(721) * lu(1469) + lu(1481) = lu(1481) - lu(722) * lu(1469) + lu(1482) = lu(1482) - lu(723) * lu(1469) + lu(1483) = lu(1483) - lu(724) * lu(1469) + lu(1485) = lu(1485) - lu(725) * lu(1469) + lu(1486) = lu(1486) - lu(726) * lu(1469) + lu(1487) = lu(1487) - lu(727) * lu(1469) + lu(1489) = lu(1489) - lu(728) * lu(1469) + lu(1490) = lu(1490) - lu(729) * lu(1469) + lu(1493) = lu(1493) - lu(730) * lu(1469) + lu(1494) = lu(1494) - lu(731) * lu(1469) + lu(1495) = lu(1495) - lu(732) * lu(1469) + lu(1496) = lu(1496) - lu(733) * lu(1469) + lu(1517) = lu(1517) - lu(714) * lu(1513) + lu(1518) = lu(1518) - lu(715) * lu(1513) + lu(1519) = lu(1519) - lu(716) * lu(1513) + lu(1520) = lu(1520) - lu(717) * lu(1513) + lu(1521) = lu(1521) - lu(718) * lu(1513) + lu(1522) = lu(1522) - lu(719) * lu(1513) + lu(1523) = lu(1523) - lu(720) * lu(1513) + lu(1524) = lu(1524) - lu(721) * lu(1513) + lu(1525) = lu(1525) - lu(722) * lu(1513) + lu(1526) = lu(1526) - lu(723) * lu(1513) + lu(1527) = lu(1527) - lu(724) * lu(1513) + lu(1529) = lu(1529) - lu(725) * lu(1513) + lu(1530) = lu(1530) - lu(726) * lu(1513) + lu(1531) = lu(1531) - lu(727) * lu(1513) + lu(1533) = lu(1533) - lu(728) * lu(1513) + lu(1534) = lu(1534) - lu(729) * lu(1513) + lu(1537) = lu(1537) - lu(730) * lu(1513) + lu(1538) = lu(1538) - lu(731) * lu(1513) + lu(1539) = lu(1539) - lu(732) * lu(1513) + lu(1540) = lu(1540) - lu(733) * lu(1513) + lu(1559) = lu(1559) - lu(714) * lu(1555) + lu(1560) = lu(1560) - lu(715) * lu(1555) + lu(1561) = lu(1561) - lu(716) * lu(1555) + lu(1562) = lu(1562) - lu(717) * lu(1555) + lu(1563) = lu(1563) - lu(718) * lu(1555) + lu(1564) = lu(1564) - lu(719) * lu(1555) + lu(1565) = lu(1565) - lu(720) * lu(1555) + lu(1566) = lu(1566) - lu(721) * lu(1555) + lu(1567) = lu(1567) - lu(722) * lu(1555) + lu(1568) = lu(1568) - lu(723) * lu(1555) + lu(1569) = lu(1569) - lu(724) * lu(1555) + lu(1571) = lu(1571) - lu(725) * lu(1555) + lu(1572) = lu(1572) - lu(726) * lu(1555) + lu(1573) = lu(1573) - lu(727) * lu(1555) + lu(1575) = lu(1575) - lu(728) * lu(1555) + lu(1576) = lu(1576) - lu(729) * lu(1555) + lu(1579) = lu(1579) - lu(730) * lu(1555) + lu(1580) = lu(1580) - lu(731) * lu(1555) + lu(1581) = lu(1581) - lu(732) * lu(1555) + lu(1582) = lu(1582) - lu(733) * lu(1555) + lu(1598) = lu(1598) - lu(714) * lu(1594) + lu(1599) = lu(1599) - lu(715) * lu(1594) + lu(1600) = lu(1600) - lu(716) * lu(1594) + lu(1601) = lu(1601) - lu(717) * lu(1594) + lu(1602) = lu(1602) - lu(718) * lu(1594) + lu(1603) = lu(1603) - lu(719) * lu(1594) + lu(1604) = lu(1604) - lu(720) * lu(1594) + lu(1605) = lu(1605) - lu(721) * lu(1594) + lu(1606) = lu(1606) - lu(722) * lu(1594) + lu(1607) = lu(1607) - lu(723) * lu(1594) + lu(1608) = lu(1608) - lu(724) * lu(1594) + lu(1610) = lu(1610) - lu(725) * lu(1594) + lu(1611) = lu(1611) - lu(726) * lu(1594) + lu(1612) = lu(1612) - lu(727) * lu(1594) + lu(1614) = lu(1614) - lu(728) * lu(1594) + lu(1615) = lu(1615) - lu(729) * lu(1594) + lu(1618) = lu(1618) - lu(730) * lu(1594) + lu(1619) = lu(1619) - lu(731) * lu(1594) + lu(1620) = lu(1620) - lu(732) * lu(1594) + lu(1621) = lu(1621) - lu(733) * lu(1594) + lu(1630) = lu(1630) - lu(714) * lu(1626) + lu(1631) = lu(1631) - lu(715) * lu(1626) + lu(1632) = lu(1632) - lu(716) * lu(1626) + lu(1633) = lu(1633) - lu(717) * lu(1626) + lu(1634) = lu(1634) - lu(718) * lu(1626) + lu(1635) = lu(1635) - lu(719) * lu(1626) + lu(1636) = lu(1636) - lu(720) * lu(1626) + lu(1637) = lu(1637) - lu(721) * lu(1626) + lu(1638) = lu(1638) - lu(722) * lu(1626) + lu(1639) = lu(1639) - lu(723) * lu(1626) + lu(1640) = lu(1640) - lu(724) * lu(1626) + lu(1642) = lu(1642) - lu(725) * lu(1626) + lu(1643) = lu(1643) - lu(726) * lu(1626) + lu(1644) = lu(1644) - lu(727) * lu(1626) + lu(1646) = lu(1646) - lu(728) * lu(1626) + lu(1647) = lu(1647) - lu(729) * lu(1626) + lu(1650) = lu(1650) - lu(730) * lu(1626) + lu(1651) = lu(1651) - lu(731) * lu(1626) + lu(1652) = - lu(732) * lu(1626) + lu(1653) = lu(1653) - lu(733) * lu(1626) + lu(1665) = lu(1665) - lu(714) * lu(1661) + lu(1666) = lu(1666) - lu(715) * lu(1661) + lu(1667) = lu(1667) - lu(716) * lu(1661) + lu(1668) = lu(1668) - lu(717) * lu(1661) + lu(1669) = lu(1669) - lu(718) * lu(1661) + lu(1670) = lu(1670) - lu(719) * lu(1661) + lu(1671) = lu(1671) - lu(720) * lu(1661) + lu(1672) = lu(1672) - lu(721) * lu(1661) + lu(1673) = lu(1673) - lu(722) * lu(1661) + lu(1674) = lu(1674) - lu(723) * lu(1661) + lu(1675) = lu(1675) - lu(724) * lu(1661) + lu(1677) = lu(1677) - lu(725) * lu(1661) + lu(1678) = lu(1678) - lu(726) * lu(1661) + lu(1679) = lu(1679) - lu(727) * lu(1661) + lu(1681) = lu(1681) - lu(728) * lu(1661) + lu(1682) = lu(1682) - lu(729) * lu(1661) + lu(1685) = lu(1685) - lu(730) * lu(1661) + lu(1686) = lu(1686) - lu(731) * lu(1661) + lu(1687) = lu(1687) - lu(732) * lu(1661) + lu(1688) = lu(1688) - lu(733) * lu(1661) + lu(1707) = lu(1707) - lu(714) * lu(1703) + lu(1708) = lu(1708) - lu(715) * lu(1703) + lu(1709) = lu(1709) - lu(716) * lu(1703) + lu(1710) = lu(1710) - lu(717) * lu(1703) + lu(1711) = lu(1711) - lu(718) * lu(1703) + lu(1712) = lu(1712) - lu(719) * lu(1703) + lu(1713) = lu(1713) - lu(720) * lu(1703) + lu(1714) = lu(1714) - lu(721) * lu(1703) + lu(1715) = lu(1715) - lu(722) * lu(1703) + lu(1716) = lu(1716) - lu(723) * lu(1703) + lu(1717) = lu(1717) - lu(724) * lu(1703) + lu(1719) = lu(1719) - lu(725) * lu(1703) + lu(1720) = lu(1720) - lu(726) * lu(1703) + lu(1721) = lu(1721) - lu(727) * lu(1703) + lu(1723) = lu(1723) - lu(728) * lu(1703) + lu(1724) = lu(1724) - lu(729) * lu(1703) + lu(1727) = lu(1727) - lu(730) * lu(1703) + lu(1728) = lu(1728) - lu(731) * lu(1703) + lu(1729) = lu(1729) - lu(732) * lu(1703) + lu(1730) = lu(1730) - lu(733) * lu(1703) + lu(1736) = lu(1736) - lu(714) * lu(1734) + lu(1737) = lu(1737) - lu(715) * lu(1734) + lu(1738) = lu(1738) - lu(716) * lu(1734) + lu(1739) = lu(1739) - lu(717) * lu(1734) + lu(1740) = lu(1740) - lu(718) * lu(1734) + lu(1741) = lu(1741) - lu(719) * lu(1734) + lu(1742) = lu(1742) - lu(720) * lu(1734) + lu(1743) = lu(1743) - lu(721) * lu(1734) + lu(1744) = - lu(722) * lu(1734) + lu(1745) = lu(1745) - lu(723) * lu(1734) + lu(1746) = lu(1746) - lu(724) * lu(1734) + lu(1748) = lu(1748) - lu(725) * lu(1734) + lu(1749) = lu(1749) - lu(726) * lu(1734) + lu(1750) = lu(1750) - lu(727) * lu(1734) + lu(1752) = lu(1752) - lu(728) * lu(1734) + lu(1753) = lu(1753) - lu(729) * lu(1734) + lu(1756) = lu(1756) - lu(730) * lu(1734) + lu(1757) = lu(1757) - lu(731) * lu(1734) + lu(1758) = lu(1758) - lu(732) * lu(1734) + lu(1759) = lu(1759) - lu(733) * lu(1734) + lu(1775) = lu(1775) - lu(714) * lu(1772) + lu(1776) = lu(1776) - lu(715) * lu(1772) + lu(1777) = lu(1777) - lu(716) * lu(1772) + lu(1778) = lu(1778) - lu(717) * lu(1772) + lu(1779) = lu(1779) - lu(718) * lu(1772) + lu(1780) = lu(1780) - lu(719) * lu(1772) + lu(1781) = lu(1781) - lu(720) * lu(1772) + lu(1782) = lu(1782) - lu(721) * lu(1772) + lu(1783) = lu(1783) - lu(722) * lu(1772) + lu(1784) = lu(1784) - lu(723) * lu(1772) + lu(1785) = lu(1785) - lu(724) * lu(1772) + lu(1787) = lu(1787) - lu(725) * lu(1772) + lu(1788) = lu(1788) - lu(726) * lu(1772) + lu(1789) = lu(1789) - lu(727) * lu(1772) + lu(1791) = lu(1791) - lu(728) * lu(1772) + lu(1792) = lu(1792) - lu(729) * lu(1772) + lu(1795) = lu(1795) - lu(730) * lu(1772) + lu(1796) = - lu(731) * lu(1772) + lu(1797) = lu(1797) - lu(732) * lu(1772) + lu(1798) = lu(1798) - lu(733) * lu(1772) + lu(1833) = lu(1833) - lu(714) * lu(1829) + lu(1834) = lu(1834) - lu(715) * lu(1829) + lu(1835) = lu(1835) - lu(716) * lu(1829) + lu(1836) = lu(1836) - lu(717) * lu(1829) + lu(1837) = lu(1837) - lu(718) * lu(1829) + lu(1838) = lu(1838) - lu(719) * lu(1829) + lu(1839) = lu(1839) - lu(720) * lu(1829) + lu(1840) = lu(1840) - lu(721) * lu(1829) + lu(1841) = lu(1841) - lu(722) * lu(1829) + lu(1842) = lu(1842) - lu(723) * lu(1829) + lu(1843) = lu(1843) - lu(724) * lu(1829) + lu(1845) = lu(1845) - lu(725) * lu(1829) + lu(1846) = lu(1846) - lu(726) * lu(1829) + lu(1847) = lu(1847) - lu(727) * lu(1829) + lu(1849) = lu(1849) - lu(728) * lu(1829) + lu(1850) = lu(1850) - lu(729) * lu(1829) + lu(1853) = lu(1853) - lu(730) * lu(1829) + lu(1854) = lu(1854) - lu(731) * lu(1829) + lu(1855) = lu(1855) - lu(732) * lu(1829) + lu(1856) = lu(1856) - lu(733) * lu(1829) end subroutine lu_fac17 - subroutine lu_fac18( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac18( lu ) 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,747) = 1._r8 / lu(k,747) - lu(k,748) = lu(k,748) * lu(k,747) - lu(k,749) = lu(k,749) * lu(k,747) - lu(k,750) = lu(k,750) * lu(k,747) - lu(k,751) = lu(k,751) * lu(k,747) - lu(k,752) = lu(k,752) * lu(k,747) - lu(k,753) = lu(k,753) * lu(k,747) - lu(k,754) = lu(k,754) * lu(k,747) - lu(k,755) = lu(k,755) * lu(k,747) - lu(k,756) = lu(k,756) * lu(k,747) - lu(k,757) = lu(k,757) * lu(k,747) - lu(k,758) = lu(k,758) * lu(k,747) - lu(k,759) = lu(k,759) * lu(k,747) - lu(k,760) = lu(k,760) * lu(k,747) - lu(k,761) = lu(k,761) * lu(k,747) - lu(k,762) = lu(k,762) * lu(k,747) - lu(k,763) = lu(k,763) * lu(k,747) - lu(k,764) = lu(k,764) * lu(k,747) - lu(k,765) = lu(k,765) * lu(k,747) - lu(k,766) = lu(k,766) * lu(k,747) - lu(k,767) = lu(k,767) * lu(k,747) - lu(k,794) = lu(k,794) - lu(k,748) * lu(k,793) - lu(k,796) = lu(k,796) - lu(k,749) * lu(k,793) - lu(k,797) = lu(k,797) - lu(k,750) * lu(k,793) - lu(k,798) = lu(k,798) - lu(k,751) * lu(k,793) - lu(k,799) = lu(k,799) - lu(k,752) * lu(k,793) - lu(k,800) = lu(k,800) - lu(k,753) * lu(k,793) - lu(k,801) = lu(k,801) - lu(k,754) * lu(k,793) - lu(k,802) = lu(k,802) - lu(k,755) * lu(k,793) - lu(k,803) = lu(k,803) - lu(k,756) * lu(k,793) - lu(k,804) = lu(k,804) - lu(k,757) * lu(k,793) - lu(k,805) = lu(k,805) - lu(k,758) * lu(k,793) - lu(k,806) = lu(k,806) - lu(k,759) * lu(k,793) - lu(k,807) = lu(k,807) - lu(k,760) * lu(k,793) - lu(k,808) = lu(k,808) - lu(k,761) * lu(k,793) - lu(k,809) = lu(k,809) - lu(k,762) * lu(k,793) - lu(k,810) = lu(k,810) - lu(k,763) * lu(k,793) - lu(k,811) = lu(k,811) - lu(k,764) * lu(k,793) - lu(k,812) = lu(k,812) - lu(k,765) * lu(k,793) - lu(k,813) = lu(k,813) - lu(k,766) * lu(k,793) - lu(k,814) = lu(k,814) - lu(k,767) * lu(k,793) - lu(k,897) = lu(k,897) - lu(k,748) * lu(k,896) - lu(k,902) = lu(k,902) - lu(k,749) * lu(k,896) - lu(k,903) = lu(k,903) - lu(k,750) * lu(k,896) - lu(k,904) = lu(k,904) - lu(k,751) * lu(k,896) - lu(k,905) = lu(k,905) - lu(k,752) * lu(k,896) - lu(k,906) = lu(k,906) - lu(k,753) * lu(k,896) - lu(k,907) = lu(k,907) - lu(k,754) * lu(k,896) - lu(k,908) = lu(k,908) - lu(k,755) * lu(k,896) - lu(k,909) = lu(k,909) - lu(k,756) * lu(k,896) - lu(k,910) = lu(k,910) - lu(k,757) * lu(k,896) - lu(k,911) = lu(k,911) - lu(k,758) * lu(k,896) - lu(k,912) = lu(k,912) - lu(k,759) * lu(k,896) - lu(k,913) = lu(k,913) - lu(k,760) * lu(k,896) - lu(k,914) = lu(k,914) - lu(k,761) * lu(k,896) - lu(k,915) = lu(k,915) - lu(k,762) * lu(k,896) - lu(k,917) = lu(k,917) - lu(k,763) * lu(k,896) - lu(k,918) = lu(k,918) - lu(k,764) * lu(k,896) - lu(k,920) = lu(k,920) - lu(k,765) * lu(k,896) - lu(k,921) = lu(k,921) - lu(k,766) * lu(k,896) - lu(k,922) = lu(k,922) - lu(k,767) * lu(k,896) - lu(k,939) = lu(k,939) - lu(k,748) * lu(k,938) - lu(k,944) = lu(k,944) - lu(k,749) * lu(k,938) - lu(k,945) = lu(k,945) - lu(k,750) * lu(k,938) - lu(k,946) = lu(k,946) - lu(k,751) * lu(k,938) - lu(k,947) = lu(k,947) - lu(k,752) * lu(k,938) - lu(k,948) = lu(k,948) - lu(k,753) * lu(k,938) - lu(k,949) = lu(k,949) - lu(k,754) * lu(k,938) - lu(k,950) = lu(k,950) - lu(k,755) * lu(k,938) - lu(k,951) = lu(k,951) - lu(k,756) * lu(k,938) - lu(k,952) = lu(k,952) - lu(k,757) * lu(k,938) - lu(k,953) = lu(k,953) - lu(k,758) * lu(k,938) - lu(k,954) = lu(k,954) - lu(k,759) * lu(k,938) - lu(k,955) = lu(k,955) - lu(k,760) * lu(k,938) - lu(k,956) = lu(k,956) - lu(k,761) * lu(k,938) - lu(k,957) = lu(k,957) - lu(k,762) * lu(k,938) - lu(k,959) = lu(k,959) - lu(k,763) * lu(k,938) - lu(k,960) = lu(k,960) - lu(k,764) * lu(k,938) - lu(k,962) = lu(k,962) - lu(k,765) * lu(k,938) - lu(k,963) = lu(k,963) - lu(k,766) * lu(k,938) - lu(k,964) = lu(k,964) - lu(k,767) * lu(k,938) - lu(k,985) = lu(k,985) - lu(k,748) * lu(k,984) - lu(k,990) = lu(k,990) - lu(k,749) * lu(k,984) - lu(k,991) = lu(k,991) - lu(k,750) * lu(k,984) - lu(k,992) = lu(k,992) - lu(k,751) * lu(k,984) - lu(k,993) = lu(k,993) - lu(k,752) * lu(k,984) - lu(k,994) = lu(k,994) - lu(k,753) * lu(k,984) - lu(k,995) = lu(k,995) - lu(k,754) * lu(k,984) - lu(k,996) = lu(k,996) - lu(k,755) * lu(k,984) - lu(k,997) = lu(k,997) - lu(k,756) * lu(k,984) - lu(k,998) = lu(k,998) - lu(k,757) * lu(k,984) - lu(k,999) = lu(k,999) - lu(k,758) * lu(k,984) - lu(k,1000) = lu(k,1000) - lu(k,759) * lu(k,984) - lu(k,1001) = lu(k,1001) - lu(k,760) * lu(k,984) - lu(k,1002) = lu(k,1002) - lu(k,761) * lu(k,984) - lu(k,1003) = lu(k,1003) - lu(k,762) * lu(k,984) - lu(k,1005) = lu(k,1005) - lu(k,763) * lu(k,984) - lu(k,1006) = lu(k,1006) - lu(k,764) * lu(k,984) - lu(k,1008) = lu(k,1008) - lu(k,765) * lu(k,984) - lu(k,1009) = lu(k,1009) - lu(k,766) * lu(k,984) - lu(k,1010) = lu(k,1010) - lu(k,767) * lu(k,984) - lu(k,1027) = lu(k,1027) - lu(k,748) * lu(k,1026) - lu(k,1032) = lu(k,1032) - lu(k,749) * lu(k,1026) - lu(k,1033) = lu(k,1033) - lu(k,750) * lu(k,1026) - lu(k,1034) = lu(k,1034) - lu(k,751) * lu(k,1026) - lu(k,1035) = lu(k,1035) - lu(k,752) * lu(k,1026) - lu(k,1036) = lu(k,1036) - lu(k,753) * lu(k,1026) - lu(k,1037) = lu(k,1037) - lu(k,754) * lu(k,1026) - lu(k,1038) = lu(k,1038) - lu(k,755) * lu(k,1026) - lu(k,1039) = lu(k,1039) - lu(k,756) * lu(k,1026) - lu(k,1040) = lu(k,1040) - lu(k,757) * lu(k,1026) - lu(k,1041) = lu(k,1041) - lu(k,758) * lu(k,1026) - lu(k,1042) = lu(k,1042) - lu(k,759) * lu(k,1026) - lu(k,1043) = lu(k,1043) - lu(k,760) * lu(k,1026) - lu(k,1044) = lu(k,1044) - lu(k,761) * lu(k,1026) - lu(k,1045) = lu(k,1045) - lu(k,762) * lu(k,1026) - lu(k,1047) = lu(k,1047) - lu(k,763) * lu(k,1026) - lu(k,1048) = lu(k,1048) - lu(k,764) * lu(k,1026) - lu(k,1050) = lu(k,1050) - lu(k,765) * lu(k,1026) - lu(k,1051) = lu(k,1051) - lu(k,766) * lu(k,1026) - lu(k,1052) = lu(k,1052) - lu(k,767) * lu(k,1026) - lu(k,1068) = lu(k,1068) - lu(k,748) * lu(k,1067) - lu(k,1073) = lu(k,1073) - lu(k,749) * lu(k,1067) - lu(k,1074) = lu(k,1074) - lu(k,750) * lu(k,1067) - lu(k,1075) = lu(k,1075) - lu(k,751) * lu(k,1067) - lu(k,1076) = lu(k,1076) - lu(k,752) * lu(k,1067) - lu(k,1077) = lu(k,1077) - lu(k,753) * lu(k,1067) - lu(k,1078) = lu(k,1078) - lu(k,754) * lu(k,1067) - lu(k,1079) = lu(k,1079) - lu(k,755) * lu(k,1067) - lu(k,1080) = lu(k,1080) - lu(k,756) * lu(k,1067) - lu(k,1081) = lu(k,1081) - lu(k,757) * lu(k,1067) - lu(k,1082) = lu(k,1082) - lu(k,758) * lu(k,1067) - lu(k,1083) = lu(k,1083) - lu(k,759) * lu(k,1067) - lu(k,1084) = lu(k,1084) - lu(k,760) * lu(k,1067) - lu(k,1085) = lu(k,1085) - lu(k,761) * lu(k,1067) - lu(k,1086) = lu(k,1086) - lu(k,762) * lu(k,1067) - lu(k,1088) = lu(k,1088) - lu(k,763) * lu(k,1067) - lu(k,1089) = lu(k,1089) - lu(k,764) * lu(k,1067) - lu(k,1091) = lu(k,1091) - lu(k,765) * lu(k,1067) - lu(k,1092) = lu(k,1092) - lu(k,766) * lu(k,1067) - lu(k,1093) = lu(k,1093) - lu(k,767) * lu(k,1067) - lu(k,1108) = lu(k,1108) - lu(k,748) * lu(k,1107) - lu(k,1112) = lu(k,1112) - lu(k,749) * lu(k,1107) - lu(k,1113) = lu(k,1113) - lu(k,750) * lu(k,1107) - lu(k,1114) = lu(k,1114) - lu(k,751) * lu(k,1107) - lu(k,1115) = lu(k,1115) - lu(k,752) * lu(k,1107) - lu(k,1116) = lu(k,1116) - lu(k,753) * lu(k,1107) - lu(k,1117) = lu(k,1117) - lu(k,754) * lu(k,1107) - lu(k,1118) = lu(k,1118) - lu(k,755) * lu(k,1107) - lu(k,1119) = lu(k,1119) - lu(k,756) * lu(k,1107) - lu(k,1120) = lu(k,1120) - lu(k,757) * lu(k,1107) - lu(k,1121) = lu(k,1121) - lu(k,758) * lu(k,1107) - lu(k,1122) = lu(k,1122) - lu(k,759) * lu(k,1107) - lu(k,1123) = lu(k,1123) - lu(k,760) * lu(k,1107) - lu(k,1124) = lu(k,1124) - lu(k,761) * lu(k,1107) - lu(k,1125) = lu(k,1125) - lu(k,762) * lu(k,1107) - lu(k,1127) = lu(k,1127) - lu(k,763) * lu(k,1107) - lu(k,1128) = lu(k,1128) - lu(k,764) * lu(k,1107) - lu(k,1130) = lu(k,1130) - lu(k,765) * lu(k,1107) - lu(k,1131) = lu(k,1131) - lu(k,766) * lu(k,1107) - lu(k,1132) = lu(k,1132) - lu(k,767) * lu(k,1107) - lu(k,1151) = lu(k,1151) - lu(k,748) * lu(k,1150) - lu(k,1156) = lu(k,1156) - lu(k,749) * lu(k,1150) - lu(k,1157) = lu(k,1157) - lu(k,750) * lu(k,1150) - lu(k,1158) = lu(k,1158) - lu(k,751) * lu(k,1150) - lu(k,1159) = lu(k,1159) - lu(k,752) * lu(k,1150) - lu(k,1160) = lu(k,1160) - lu(k,753) * lu(k,1150) - lu(k,1161) = lu(k,1161) - lu(k,754) * lu(k,1150) - lu(k,1162) = lu(k,1162) - lu(k,755) * lu(k,1150) - lu(k,1163) = lu(k,1163) - lu(k,756) * lu(k,1150) - lu(k,1164) = lu(k,1164) - lu(k,757) * lu(k,1150) - lu(k,1165) = lu(k,1165) - lu(k,758) * lu(k,1150) - lu(k,1166) = lu(k,1166) - lu(k,759) * lu(k,1150) - lu(k,1167) = lu(k,1167) - lu(k,760) * lu(k,1150) - lu(k,1168) = lu(k,1168) - lu(k,761) * lu(k,1150) - lu(k,1169) = lu(k,1169) - lu(k,762) * lu(k,1150) - lu(k,1171) = lu(k,1171) - lu(k,763) * lu(k,1150) - lu(k,1172) = lu(k,1172) - lu(k,764) * lu(k,1150) - lu(k,1174) = lu(k,1174) - lu(k,765) * lu(k,1150) - lu(k,1175) = lu(k,1175) - lu(k,766) * lu(k,1150) - lu(k,1176) = lu(k,1176) - lu(k,767) * lu(k,1150) - lu(k,1192) = lu(k,1192) - lu(k,748) * lu(k,1191) - lu(k,1197) = lu(k,1197) - lu(k,749) * lu(k,1191) - lu(k,1198) = lu(k,1198) - lu(k,750) * lu(k,1191) - lu(k,1199) = lu(k,1199) - lu(k,751) * lu(k,1191) - lu(k,1200) = lu(k,1200) - lu(k,752) * lu(k,1191) - lu(k,1201) = lu(k,1201) - lu(k,753) * lu(k,1191) - lu(k,1202) = lu(k,1202) - lu(k,754) * lu(k,1191) - lu(k,1203) = lu(k,1203) - lu(k,755) * lu(k,1191) - lu(k,1204) = lu(k,1204) - lu(k,756) * lu(k,1191) - lu(k,1205) = lu(k,1205) - lu(k,757) * lu(k,1191) - lu(k,1206) = lu(k,1206) - lu(k,758) * lu(k,1191) - lu(k,1207) = lu(k,1207) - lu(k,759) * lu(k,1191) - lu(k,1208) = lu(k,1208) - lu(k,760) * lu(k,1191) - lu(k,1209) = lu(k,1209) - lu(k,761) * lu(k,1191) - lu(k,1210) = lu(k,1210) - lu(k,762) * lu(k,1191) - lu(k,1212) = lu(k,1212) - lu(k,763) * lu(k,1191) - lu(k,1213) = lu(k,1213) - lu(k,764) * lu(k,1191) - lu(k,1215) = lu(k,1215) - lu(k,765) * lu(k,1191) - lu(k,1216) = lu(k,1216) - lu(k,766) * lu(k,1191) - lu(k,1217) = lu(k,1217) - lu(k,767) * lu(k,1191) - lu(k,1241) = lu(k,1241) - lu(k,748) * lu(k,1240) - lu(k,1246) = lu(k,1246) - lu(k,749) * lu(k,1240) - lu(k,1247) = lu(k,1247) - lu(k,750) * lu(k,1240) - lu(k,1248) = lu(k,1248) - lu(k,751) * lu(k,1240) - lu(k,1249) = lu(k,1249) - lu(k,752) * lu(k,1240) - lu(k,1250) = lu(k,1250) - lu(k,753) * lu(k,1240) - lu(k,1251) = lu(k,1251) - lu(k,754) * lu(k,1240) - lu(k,1252) = lu(k,1252) - lu(k,755) * lu(k,1240) - lu(k,1253) = lu(k,1253) - lu(k,756) * lu(k,1240) - lu(k,1254) = lu(k,1254) - lu(k,757) * lu(k,1240) - lu(k,1255) = lu(k,1255) - lu(k,758) * lu(k,1240) - lu(k,1256) = lu(k,1256) - lu(k,759) * lu(k,1240) - lu(k,1257) = lu(k,1257) - lu(k,760) * lu(k,1240) - lu(k,1258) = lu(k,1258) - lu(k,761) * lu(k,1240) - lu(k,1259) = lu(k,1259) - lu(k,762) * lu(k,1240) - lu(k,1261) = lu(k,1261) - lu(k,763) * lu(k,1240) - lu(k,1262) = lu(k,1262) - lu(k,764) * lu(k,1240) - lu(k,1264) = lu(k,1264) - lu(k,765) * lu(k,1240) - lu(k,1265) = lu(k,1265) - lu(k,766) * lu(k,1240) - lu(k,1266) = lu(k,1266) - lu(k,767) * lu(k,1240) - lu(k,1280) = lu(k,1280) - lu(k,748) * lu(k,1279) - lu(k,1285) = lu(k,1285) - lu(k,749) * lu(k,1279) - lu(k,1286) = lu(k,1286) - lu(k,750) * lu(k,1279) - lu(k,1287) = lu(k,1287) - lu(k,751) * lu(k,1279) - lu(k,1288) = lu(k,1288) - lu(k,752) * lu(k,1279) - lu(k,1289) = lu(k,1289) - lu(k,753) * lu(k,1279) - lu(k,1290) = lu(k,1290) - lu(k,754) * lu(k,1279) - lu(k,1291) = lu(k,1291) - lu(k,755) * lu(k,1279) - lu(k,1292) = lu(k,1292) - lu(k,756) * lu(k,1279) - lu(k,1293) = lu(k,1293) - lu(k,757) * lu(k,1279) - lu(k,1294) = lu(k,1294) - lu(k,758) * lu(k,1279) - lu(k,1295) = lu(k,1295) - lu(k,759) * lu(k,1279) - lu(k,1296) = lu(k,1296) - lu(k,760) * lu(k,1279) - lu(k,1297) = lu(k,1297) - lu(k,761) * lu(k,1279) - lu(k,1298) = lu(k,1298) - lu(k,762) * lu(k,1279) - lu(k,1300) = lu(k,1300) - lu(k,763) * lu(k,1279) - lu(k,1301) = lu(k,1301) - lu(k,764) * lu(k,1279) - lu(k,1303) = lu(k,1303) - lu(k,765) * lu(k,1279) - lu(k,1304) = lu(k,1304) - lu(k,766) * lu(k,1279) - lu(k,1305) = lu(k,1305) - lu(k,767) * lu(k,1279) - lu(k,1315) = lu(k,1315) - lu(k,748) * lu(k,1314) - lu(k,1320) = lu(k,1320) - lu(k,749) * lu(k,1314) - lu(k,1321) = lu(k,1321) - lu(k,750) * lu(k,1314) - lu(k,1322) = lu(k,1322) - lu(k,751) * lu(k,1314) - lu(k,1323) = lu(k,1323) - lu(k,752) * lu(k,1314) - lu(k,1324) = lu(k,1324) - lu(k,753) * lu(k,1314) - lu(k,1325) = lu(k,1325) - lu(k,754) * lu(k,1314) - lu(k,1326) = lu(k,1326) - lu(k,755) * lu(k,1314) - lu(k,1327) = lu(k,1327) - lu(k,756) * lu(k,1314) - lu(k,1328) = lu(k,1328) - lu(k,757) * lu(k,1314) - lu(k,1329) = lu(k,1329) - lu(k,758) * lu(k,1314) - lu(k,1330) = lu(k,1330) - lu(k,759) * lu(k,1314) - lu(k,1331) = lu(k,1331) - lu(k,760) * lu(k,1314) - lu(k,1332) = lu(k,1332) - lu(k,761) * lu(k,1314) - lu(k,1333) = lu(k,1333) - lu(k,762) * lu(k,1314) - lu(k,1335) = lu(k,1335) - lu(k,763) * lu(k,1314) - lu(k,1336) = lu(k,1336) - lu(k,764) * lu(k,1314) - lu(k,1338) = lu(k,1338) - lu(k,765) * lu(k,1314) - lu(k,1339) = lu(k,1339) - lu(k,766) * lu(k,1314) - lu(k,1340) = lu(k,1340) - lu(k,767) * lu(k,1314) - lu(k,1359) = lu(k,1359) - lu(k,748) * lu(k,1358) - lu(k,1364) = lu(k,1364) - lu(k,749) * lu(k,1358) - lu(k,1365) = lu(k,1365) - lu(k,750) * lu(k,1358) - lu(k,1366) = lu(k,1366) - lu(k,751) * lu(k,1358) - lu(k,1367) = lu(k,1367) - lu(k,752) * lu(k,1358) - lu(k,1368) = lu(k,1368) - lu(k,753) * lu(k,1358) - lu(k,1369) = lu(k,1369) - lu(k,754) * lu(k,1358) - lu(k,1370) = lu(k,1370) - lu(k,755) * lu(k,1358) - lu(k,1371) = lu(k,1371) - lu(k,756) * lu(k,1358) - lu(k,1372) = lu(k,1372) - lu(k,757) * lu(k,1358) - lu(k,1373) = lu(k,1373) - lu(k,758) * lu(k,1358) - lu(k,1374) = lu(k,1374) - lu(k,759) * lu(k,1358) - lu(k,1375) = lu(k,1375) - lu(k,760) * lu(k,1358) - lu(k,1376) = lu(k,1376) - lu(k,761) * lu(k,1358) - lu(k,1377) = lu(k,1377) - lu(k,762) * lu(k,1358) - lu(k,1379) = lu(k,1379) - lu(k,763) * lu(k,1358) - lu(k,1380) = lu(k,1380) - lu(k,764) * lu(k,1358) - lu(k,1382) = lu(k,1382) - lu(k,765) * lu(k,1358) - lu(k,1383) = lu(k,1383) - lu(k,766) * lu(k,1358) - lu(k,1384) = lu(k,1384) - lu(k,767) * lu(k,1358) - lu(k,1418) = lu(k,1418) - lu(k,748) * lu(k,1417) - lu(k,1423) = lu(k,1423) - lu(k,749) * lu(k,1417) - lu(k,1424) = lu(k,1424) - lu(k,750) * lu(k,1417) - lu(k,1425) = lu(k,1425) - lu(k,751) * lu(k,1417) - lu(k,1426) = lu(k,1426) - lu(k,752) * lu(k,1417) - lu(k,1427) = lu(k,1427) - lu(k,753) * lu(k,1417) - lu(k,1428) = lu(k,1428) - lu(k,754) * lu(k,1417) - lu(k,1429) = lu(k,1429) - lu(k,755) * lu(k,1417) - lu(k,1430) = lu(k,1430) - lu(k,756) * lu(k,1417) - lu(k,1431) = lu(k,1431) - lu(k,757) * lu(k,1417) - lu(k,1432) = lu(k,1432) - lu(k,758) * lu(k,1417) - lu(k,1433) = lu(k,1433) - lu(k,759) * lu(k,1417) - lu(k,1434) = lu(k,1434) - lu(k,760) * lu(k,1417) - lu(k,1435) = lu(k,1435) - lu(k,761) * lu(k,1417) - lu(k,1436) = lu(k,1436) - lu(k,762) * lu(k,1417) - lu(k,1438) = lu(k,1438) - lu(k,763) * lu(k,1417) - lu(k,1439) = lu(k,1439) - lu(k,764) * lu(k,1417) - lu(k,1441) = lu(k,1441) - lu(k,765) * lu(k,1417) - lu(k,1442) = lu(k,1442) - lu(k,766) * lu(k,1417) - lu(k,1443) = lu(k,1443) - lu(k,767) * lu(k,1417) - lu(k,1460) = lu(k,1460) - lu(k,748) * lu(k,1459) - lu(k,1465) = lu(k,1465) - lu(k,749) * lu(k,1459) - lu(k,1466) = lu(k,1466) - lu(k,750) * lu(k,1459) - lu(k,1467) = lu(k,1467) - lu(k,751) * lu(k,1459) - lu(k,1468) = lu(k,1468) - lu(k,752) * lu(k,1459) - lu(k,1469) = lu(k,1469) - lu(k,753) * lu(k,1459) - lu(k,1470) = lu(k,1470) - lu(k,754) * lu(k,1459) - lu(k,1471) = lu(k,1471) - lu(k,755) * lu(k,1459) - lu(k,1472) = lu(k,1472) - lu(k,756) * lu(k,1459) - lu(k,1473) = lu(k,1473) - lu(k,757) * lu(k,1459) - lu(k,1474) = lu(k,1474) - lu(k,758) * lu(k,1459) - lu(k,1475) = lu(k,1475) - lu(k,759) * lu(k,1459) - lu(k,1476) = lu(k,1476) - lu(k,760) * lu(k,1459) - lu(k,1477) = lu(k,1477) - lu(k,761) * lu(k,1459) - lu(k,1478) = lu(k,1478) - lu(k,762) * lu(k,1459) - lu(k,1480) = lu(k,1480) - lu(k,763) * lu(k,1459) - lu(k,1481) = lu(k,1481) - lu(k,764) * lu(k,1459) - lu(k,1483) = lu(k,1483) - lu(k,765) * lu(k,1459) - lu(k,1484) = lu(k,1484) - lu(k,766) * lu(k,1459) - lu(k,1485) = lu(k,1485) - lu(k,767) * lu(k,1459) - lu(k,1501) = lu(k,1501) - lu(k,748) * lu(k,1500) - lu(k,1506) = lu(k,1506) - lu(k,749) * lu(k,1500) - lu(k,1507) = lu(k,1507) - lu(k,750) * lu(k,1500) - lu(k,1508) = lu(k,1508) - lu(k,751) * lu(k,1500) - lu(k,1509) = lu(k,1509) - lu(k,752) * lu(k,1500) - lu(k,1510) = lu(k,1510) - lu(k,753) * lu(k,1500) - lu(k,1511) = lu(k,1511) - lu(k,754) * lu(k,1500) - lu(k,1512) = lu(k,1512) - lu(k,755) * lu(k,1500) - lu(k,1513) = lu(k,1513) - lu(k,756) * lu(k,1500) - lu(k,1514) = lu(k,1514) - lu(k,757) * lu(k,1500) - lu(k,1515) = lu(k,1515) - lu(k,758) * lu(k,1500) - lu(k,1516) = lu(k,1516) - lu(k,759) * lu(k,1500) - lu(k,1517) = lu(k,1517) - lu(k,760) * lu(k,1500) - lu(k,1518) = lu(k,1518) - lu(k,761) * lu(k,1500) - lu(k,1519) = lu(k,1519) - lu(k,762) * lu(k,1500) - lu(k,1521) = lu(k,1521) - lu(k,763) * lu(k,1500) - lu(k,1522) = lu(k,1522) - lu(k,764) * lu(k,1500) - lu(k,1524) = lu(k,1524) - lu(k,765) * lu(k,1500) - lu(k,1525) = lu(k,1525) - lu(k,766) * lu(k,1500) - lu(k,1526) = lu(k,1526) - lu(k,767) * lu(k,1500) - lu(k,1545) = lu(k,1545) - lu(k,748) * lu(k,1544) - lu(k,1548) = lu(k,1548) - lu(k,749) * lu(k,1544) - lu(k,1549) = lu(k,1549) - lu(k,750) * lu(k,1544) - lu(k,1550) = lu(k,1550) - lu(k,751) * lu(k,1544) - lu(k,1551) = lu(k,1551) - lu(k,752) * lu(k,1544) - lu(k,1552) = lu(k,1552) - lu(k,753) * lu(k,1544) - lu(k,1553) = lu(k,1553) - lu(k,754) * lu(k,1544) - lu(k,1554) = lu(k,1554) - lu(k,755) * lu(k,1544) - lu(k,1555) = lu(k,1555) - lu(k,756) * lu(k,1544) - lu(k,1556) = lu(k,1556) - lu(k,757) * lu(k,1544) - lu(k,1557) = lu(k,1557) - lu(k,758) * lu(k,1544) - lu(k,1558) = lu(k,1558) - lu(k,759) * lu(k,1544) - lu(k,1559) = lu(k,1559) - lu(k,760) * lu(k,1544) - lu(k,1560) = lu(k,1560) - lu(k,761) * lu(k,1544) - lu(k,1561) = lu(k,1561) - lu(k,762) * lu(k,1544) - lu(k,1563) = lu(k,1563) - lu(k,763) * lu(k,1544) - lu(k,1564) = lu(k,1564) - lu(k,764) * lu(k,1544) - lu(k,1566) = lu(k,1566) - lu(k,765) * lu(k,1544) - lu(k,1567) = lu(k,1567) - lu(k,766) * lu(k,1544) - lu(k,1568) = lu(k,1568) - lu(k,767) * lu(k,1544) - lu(k,1585) = lu(k,1585) - lu(k,748) * lu(k,1584) - lu(k,1590) = lu(k,1590) - lu(k,749) * lu(k,1584) - lu(k,1591) = lu(k,1591) - lu(k,750) * lu(k,1584) - lu(k,1592) = lu(k,1592) - lu(k,751) * lu(k,1584) - lu(k,1593) = lu(k,1593) - lu(k,752) * lu(k,1584) - lu(k,1594) = lu(k,1594) - lu(k,753) * lu(k,1584) - lu(k,1595) = lu(k,1595) - lu(k,754) * lu(k,1584) - lu(k,1596) = lu(k,1596) - lu(k,755) * lu(k,1584) - lu(k,1597) = lu(k,1597) - lu(k,756) * lu(k,1584) - lu(k,1598) = lu(k,1598) - lu(k,757) * lu(k,1584) - lu(k,1599) = lu(k,1599) - lu(k,758) * lu(k,1584) - lu(k,1600) = lu(k,1600) - lu(k,759) * lu(k,1584) - lu(k,1601) = lu(k,1601) - lu(k,760) * lu(k,1584) - lu(k,1602) = lu(k,1602) - lu(k,761) * lu(k,1584) - lu(k,1603) = lu(k,1603) - lu(k,762) * lu(k,1584) - lu(k,1605) = lu(k,1605) - lu(k,763) * lu(k,1584) - lu(k,1606) = lu(k,1606) - lu(k,764) * lu(k,1584) - lu(k,1608) = lu(k,1608) - lu(k,765) * lu(k,1584) - lu(k,1609) = lu(k,1609) - lu(k,766) * lu(k,1584) - lu(k,1610) = lu(k,1610) - lu(k,767) * lu(k,1584) - lu(k,1617) = lu(k,1617) - lu(k,748) * lu(k,1616) - lu(k,1622) = lu(k,1622) - lu(k,749) * lu(k,1616) - lu(k,1623) = lu(k,1623) - lu(k,750) * lu(k,1616) - lu(k,1624) = lu(k,1624) - lu(k,751) * lu(k,1616) - lu(k,1625) = lu(k,1625) - lu(k,752) * lu(k,1616) - lu(k,1626) = lu(k,1626) - lu(k,753) * lu(k,1616) - lu(k,1627) = lu(k,1627) - lu(k,754) * lu(k,1616) - lu(k,1628) = lu(k,1628) - lu(k,755) * lu(k,1616) - lu(k,1629) = lu(k,1629) - lu(k,756) * lu(k,1616) - lu(k,1630) = lu(k,1630) - lu(k,757) * lu(k,1616) - lu(k,1631) = lu(k,1631) - lu(k,758) * lu(k,1616) - lu(k,1632) = lu(k,1632) - lu(k,759) * lu(k,1616) - lu(k,1633) = lu(k,1633) - lu(k,760) * lu(k,1616) - lu(k,1634) = lu(k,1634) - lu(k,761) * lu(k,1616) - lu(k,1635) = lu(k,1635) - lu(k,762) * lu(k,1616) - lu(k,1637) = lu(k,1637) - lu(k,763) * lu(k,1616) - lu(k,1638) = lu(k,1638) - lu(k,764) * lu(k,1616) - lu(k,1640) = lu(k,1640) - lu(k,765) * lu(k,1616) - lu(k,1641) = lu(k,1641) - lu(k,766) * lu(k,1616) - lu(k,1642) = lu(k,1642) - lu(k,767) * lu(k,1616) - lu(k,1652) = lu(k,1652) - lu(k,748) * lu(k,1651) - lu(k,1657) = lu(k,1657) - lu(k,749) * lu(k,1651) - lu(k,1658) = lu(k,1658) - lu(k,750) * lu(k,1651) - lu(k,1659) = lu(k,1659) - lu(k,751) * lu(k,1651) - lu(k,1660) = lu(k,1660) - lu(k,752) * lu(k,1651) - lu(k,1661) = lu(k,1661) - lu(k,753) * lu(k,1651) - lu(k,1662) = lu(k,1662) - lu(k,754) * lu(k,1651) - lu(k,1663) = lu(k,1663) - lu(k,755) * lu(k,1651) - lu(k,1664) = lu(k,1664) - lu(k,756) * lu(k,1651) - lu(k,1665) = lu(k,1665) - lu(k,757) * lu(k,1651) - lu(k,1666) = lu(k,1666) - lu(k,758) * lu(k,1651) - lu(k,1667) = lu(k,1667) - lu(k,759) * lu(k,1651) - lu(k,1668) = lu(k,1668) - lu(k,760) * lu(k,1651) - lu(k,1669) = lu(k,1669) - lu(k,761) * lu(k,1651) - lu(k,1670) = lu(k,1670) - lu(k,762) * lu(k,1651) - lu(k,1672) = lu(k,1672) - lu(k,763) * lu(k,1651) - lu(k,1673) = lu(k,1673) - lu(k,764) * lu(k,1651) - lu(k,1675) = lu(k,1675) - lu(k,765) * lu(k,1651) - lu(k,1676) = lu(k,1676) - lu(k,766) * lu(k,1651) - lu(k,1677) = lu(k,1677) - lu(k,767) * lu(k,1651) - lu(k,1694) = lu(k,1694) - lu(k,748) * lu(k,1693) - lu(k,1699) = lu(k,1699) - lu(k,749) * lu(k,1693) - lu(k,1700) = lu(k,1700) - lu(k,750) * lu(k,1693) - lu(k,1701) = lu(k,1701) - lu(k,751) * lu(k,1693) - lu(k,1702) = lu(k,1702) - lu(k,752) * lu(k,1693) - lu(k,1703) = lu(k,1703) - lu(k,753) * lu(k,1693) - lu(k,1704) = lu(k,1704) - lu(k,754) * lu(k,1693) - lu(k,1705) = lu(k,1705) - lu(k,755) * lu(k,1693) - lu(k,1706) = lu(k,1706) - lu(k,756) * lu(k,1693) - lu(k,1707) = lu(k,1707) - lu(k,757) * lu(k,1693) - lu(k,1708) = lu(k,1708) - lu(k,758) * lu(k,1693) - lu(k,1709) = lu(k,1709) - lu(k,759) * lu(k,1693) - lu(k,1710) = lu(k,1710) - lu(k,760) * lu(k,1693) - lu(k,1711) = lu(k,1711) - lu(k,761) * lu(k,1693) - lu(k,1712) = lu(k,1712) - lu(k,762) * lu(k,1693) - lu(k,1714) = lu(k,1714) - lu(k,763) * lu(k,1693) - lu(k,1715) = lu(k,1715) - lu(k,764) * lu(k,1693) - lu(k,1717) = lu(k,1717) - lu(k,765) * lu(k,1693) - lu(k,1718) = lu(k,1718) - lu(k,766) * lu(k,1693) - lu(k,1719) = lu(k,1719) - lu(k,767) * lu(k,1693) - lu(k,1738) = lu(k,1738) - lu(k,748) * lu(k,1737) - lu(k,1743) = lu(k,1743) - lu(k,749) * lu(k,1737) - lu(k,1744) = lu(k,1744) - lu(k,750) * lu(k,1737) - lu(k,1745) = lu(k,1745) - lu(k,751) * lu(k,1737) - lu(k,1746) = lu(k,1746) - lu(k,752) * lu(k,1737) - lu(k,1747) = lu(k,1747) - lu(k,753) * lu(k,1737) - lu(k,1748) = lu(k,1748) - lu(k,754) * lu(k,1737) - lu(k,1749) = lu(k,1749) - lu(k,755) * lu(k,1737) - lu(k,1750) = lu(k,1750) - lu(k,756) * lu(k,1737) - lu(k,1751) = lu(k,1751) - lu(k,757) * lu(k,1737) - lu(k,1752) = lu(k,1752) - lu(k,758) * lu(k,1737) - lu(k,1753) = lu(k,1753) - lu(k,759) * lu(k,1737) - lu(k,1754) = lu(k,1754) - lu(k,760) * lu(k,1737) - lu(k,1755) = lu(k,1755) - lu(k,761) * lu(k,1737) - lu(k,1756) = lu(k,1756) - lu(k,762) * lu(k,1737) - lu(k,1758) = lu(k,1758) - lu(k,763) * lu(k,1737) - lu(k,1759) = lu(k,1759) - lu(k,764) * lu(k,1737) - lu(k,1761) = lu(k,1761) - lu(k,765) * lu(k,1737) - lu(k,1762) = lu(k,1762) - lu(k,766) * lu(k,1737) - lu(k,1763) = lu(k,1763) - lu(k,767) * lu(k,1737) - lu(k,1773) = lu(k,1773) - lu(k,748) * lu(k,1772) - lu(k,1778) = lu(k,1778) - lu(k,749) * lu(k,1772) - lu(k,1779) = lu(k,1779) - lu(k,750) * lu(k,1772) - lu(k,1780) = lu(k,1780) - lu(k,751) * lu(k,1772) - lu(k,1781) = lu(k,1781) - lu(k,752) * lu(k,1772) - lu(k,1782) = lu(k,1782) - lu(k,753) * lu(k,1772) - lu(k,1783) = lu(k,1783) - lu(k,754) * lu(k,1772) - lu(k,1784) = lu(k,1784) - lu(k,755) * lu(k,1772) - lu(k,1785) = lu(k,1785) - lu(k,756) * lu(k,1772) - lu(k,1786) = lu(k,1786) - lu(k,757) * lu(k,1772) - lu(k,1787) = lu(k,1787) - lu(k,758) * lu(k,1772) - lu(k,1788) = lu(k,1788) - lu(k,759) * lu(k,1772) - lu(k,1789) = lu(k,1789) - lu(k,760) * lu(k,1772) - lu(k,1790) = lu(k,1790) - lu(k,761) * lu(k,1772) - lu(k,1791) = lu(k,1791) - lu(k,762) * lu(k,1772) - lu(k,1793) = lu(k,1793) - lu(k,763) * lu(k,1772) - lu(k,1794) = lu(k,1794) - lu(k,764) * lu(k,1772) - lu(k,1796) = lu(k,1796) - lu(k,765) * lu(k,1772) - lu(k,1797) = lu(k,1797) - lu(k,766) * lu(k,1772) - lu(k,1798) = lu(k,1798) - lu(k,767) * lu(k,1772) - lu(k,1831) = lu(k,1831) - lu(k,748) * lu(k,1830) - lu(k,1836) = lu(k,1836) - lu(k,749) * lu(k,1830) - lu(k,1837) = lu(k,1837) - lu(k,750) * lu(k,1830) - lu(k,1838) = lu(k,1838) - lu(k,751) * lu(k,1830) - lu(k,1839) = lu(k,1839) - lu(k,752) * lu(k,1830) - lu(k,1840) = lu(k,1840) - lu(k,753) * lu(k,1830) - lu(k,1841) = lu(k,1841) - lu(k,754) * lu(k,1830) - lu(k,1842) = lu(k,1842) - lu(k,755) * lu(k,1830) - lu(k,1843) = lu(k,1843) - lu(k,756) * lu(k,1830) - lu(k,1844) = lu(k,1844) - lu(k,757) * lu(k,1830) - lu(k,1845) = lu(k,1845) - lu(k,758) * lu(k,1830) - lu(k,1846) = lu(k,1846) - lu(k,759) * lu(k,1830) - lu(k,1847) = lu(k,1847) - lu(k,760) * lu(k,1830) - lu(k,1848) = lu(k,1848) - lu(k,761) * lu(k,1830) - lu(k,1849) = lu(k,1849) - lu(k,762) * lu(k,1830) - lu(k,1851) = lu(k,1851) - lu(k,763) * lu(k,1830) - lu(k,1852) = lu(k,1852) - lu(k,764) * lu(k,1830) - lu(k,1854) = lu(k,1854) - lu(k,765) * lu(k,1830) - lu(k,1855) = lu(k,1855) - lu(k,766) * lu(k,1830) - lu(k,1856) = lu(k,1856) - lu(k,767) * lu(k,1830) - lu(k,794) = 1._r8 / lu(k,794) - lu(k,795) = lu(k,795) * lu(k,794) - lu(k,796) = lu(k,796) * lu(k,794) - lu(k,797) = lu(k,797) * lu(k,794) - lu(k,798) = lu(k,798) * lu(k,794) - lu(k,799) = lu(k,799) * lu(k,794) - lu(k,800) = lu(k,800) * lu(k,794) - lu(k,801) = lu(k,801) * lu(k,794) - lu(k,802) = lu(k,802) * lu(k,794) - lu(k,803) = lu(k,803) * lu(k,794) - lu(k,804) = lu(k,804) * lu(k,794) - lu(k,805) = lu(k,805) * lu(k,794) - lu(k,806) = lu(k,806) * lu(k,794) - lu(k,807) = lu(k,807) * lu(k,794) - lu(k,808) = lu(k,808) * lu(k,794) - lu(k,809) = lu(k,809) * lu(k,794) - lu(k,810) = lu(k,810) * lu(k,794) - lu(k,811) = lu(k,811) * lu(k,794) - lu(k,812) = lu(k,812) * lu(k,794) - lu(k,813) = lu(k,813) * lu(k,794) - lu(k,814) = lu(k,814) * lu(k,794) - lu(k,824) = lu(k,824) - lu(k,795) * lu(k,821) - lu(k,826) = lu(k,826) - lu(k,796) * lu(k,821) - lu(k,827) = lu(k,827) - lu(k,797) * lu(k,821) - lu(k,828) = lu(k,828) - lu(k,798) * lu(k,821) - lu(k,829) = lu(k,829) - lu(k,799) * lu(k,821) - lu(k,830) = lu(k,830) - lu(k,800) * lu(k,821) - lu(k,831) = lu(k,831) - lu(k,801) * lu(k,821) - lu(k,832) = lu(k,832) - lu(k,802) * lu(k,821) - lu(k,833) = lu(k,833) - lu(k,803) * lu(k,821) - lu(k,834) = lu(k,834) - lu(k,804) * lu(k,821) - lu(k,835) = lu(k,835) - lu(k,805) * lu(k,821) - lu(k,836) = lu(k,836) - lu(k,806) * lu(k,821) - lu(k,837) = lu(k,837) - lu(k,807) * lu(k,821) - lu(k,838) = lu(k,838) - lu(k,808) * lu(k,821) - lu(k,839) = lu(k,839) - lu(k,809) * lu(k,821) - lu(k,841) = lu(k,841) - lu(k,810) * lu(k,821) - lu(k,842) = lu(k,842) - lu(k,811) * lu(k,821) - lu(k,844) = lu(k,844) - lu(k,812) * lu(k,821) - lu(k,845) = lu(k,845) - lu(k,813) * lu(k,821) - lu(k,846) = lu(k,846) - lu(k,814) * lu(k,821) - lu(k,853) = lu(k,853) - lu(k,795) * lu(k,851) - lu(k,855) = lu(k,855) - lu(k,796) * lu(k,851) - lu(k,856) = lu(k,856) - lu(k,797) * lu(k,851) - lu(k,857) = lu(k,857) - lu(k,798) * lu(k,851) - lu(k,858) = lu(k,858) - lu(k,799) * lu(k,851) - lu(k,859) = lu(k,859) - lu(k,800) * lu(k,851) - lu(k,860) = lu(k,860) - lu(k,801) * lu(k,851) - lu(k,861) = lu(k,861) - lu(k,802) * lu(k,851) - lu(k,862) = lu(k,862) - lu(k,803) * lu(k,851) - lu(k,863) = - lu(k,804) * lu(k,851) - lu(k,864) = lu(k,864) - lu(k,805) * lu(k,851) - lu(k,865) = lu(k,865) - lu(k,806) * lu(k,851) - lu(k,866) = lu(k,866) - lu(k,807) * lu(k,851) - lu(k,867) = lu(k,867) - lu(k,808) * lu(k,851) - lu(k,868) = lu(k,868) - lu(k,809) * lu(k,851) - lu(k,870) = lu(k,870) - lu(k,810) * lu(k,851) - lu(k,871) = - lu(k,811) * lu(k,851) - lu(k,873) = lu(k,873) - lu(k,812) * lu(k,851) - lu(k,874) = lu(k,874) - lu(k,813) * lu(k,851) - lu(k,875) = lu(k,875) - lu(k,814) * lu(k,851) - lu(k,900) = lu(k,900) - lu(k,795) * lu(k,897) - lu(k,902) = lu(k,902) - lu(k,796) * lu(k,897) - lu(k,903) = lu(k,903) - lu(k,797) * lu(k,897) - lu(k,904) = lu(k,904) - lu(k,798) * lu(k,897) - lu(k,905) = lu(k,905) - lu(k,799) * lu(k,897) - lu(k,906) = lu(k,906) - lu(k,800) * lu(k,897) - lu(k,907) = lu(k,907) - lu(k,801) * lu(k,897) - lu(k,908) = lu(k,908) - lu(k,802) * lu(k,897) - lu(k,909) = lu(k,909) - lu(k,803) * lu(k,897) - lu(k,910) = lu(k,910) - lu(k,804) * lu(k,897) - lu(k,911) = lu(k,911) - lu(k,805) * lu(k,897) - lu(k,912) = lu(k,912) - lu(k,806) * lu(k,897) - lu(k,913) = lu(k,913) - lu(k,807) * lu(k,897) - lu(k,914) = lu(k,914) - lu(k,808) * lu(k,897) - lu(k,915) = lu(k,915) - lu(k,809) * lu(k,897) - lu(k,917) = lu(k,917) - lu(k,810) * lu(k,897) - lu(k,918) = lu(k,918) - lu(k,811) * lu(k,897) - lu(k,920) = lu(k,920) - lu(k,812) * lu(k,897) - lu(k,921) = lu(k,921) - lu(k,813) * lu(k,897) - lu(k,922) = lu(k,922) - lu(k,814) * lu(k,897) - lu(k,942) = lu(k,942) - lu(k,795) * lu(k,939) - lu(k,944) = lu(k,944) - lu(k,796) * lu(k,939) - lu(k,945) = lu(k,945) - lu(k,797) * lu(k,939) - lu(k,946) = lu(k,946) - lu(k,798) * lu(k,939) - lu(k,947) = lu(k,947) - lu(k,799) * lu(k,939) - lu(k,948) = lu(k,948) - lu(k,800) * lu(k,939) - lu(k,949) = lu(k,949) - lu(k,801) * lu(k,939) - lu(k,950) = lu(k,950) - lu(k,802) * lu(k,939) - lu(k,951) = lu(k,951) - lu(k,803) * lu(k,939) - lu(k,952) = lu(k,952) - lu(k,804) * lu(k,939) - lu(k,953) = lu(k,953) - lu(k,805) * lu(k,939) - lu(k,954) = lu(k,954) - lu(k,806) * lu(k,939) - lu(k,955) = lu(k,955) - lu(k,807) * lu(k,939) - lu(k,956) = lu(k,956) - lu(k,808) * lu(k,939) - lu(k,957) = lu(k,957) - lu(k,809) * lu(k,939) - lu(k,959) = lu(k,959) - lu(k,810) * lu(k,939) - lu(k,960) = lu(k,960) - lu(k,811) * lu(k,939) - lu(k,962) = lu(k,962) - lu(k,812) * lu(k,939) - lu(k,963) = lu(k,963) - lu(k,813) * lu(k,939) - lu(k,964) = lu(k,964) - lu(k,814) * lu(k,939) - lu(k,988) = lu(k,988) - lu(k,795) * lu(k,985) - lu(k,990) = lu(k,990) - lu(k,796) * lu(k,985) - lu(k,991) = lu(k,991) - lu(k,797) * lu(k,985) - lu(k,992) = lu(k,992) - lu(k,798) * lu(k,985) - lu(k,993) = lu(k,993) - lu(k,799) * lu(k,985) - lu(k,994) = lu(k,994) - lu(k,800) * lu(k,985) - lu(k,995) = lu(k,995) - lu(k,801) * lu(k,985) - lu(k,996) = lu(k,996) - lu(k,802) * lu(k,985) - lu(k,997) = lu(k,997) - lu(k,803) * lu(k,985) - lu(k,998) = lu(k,998) - lu(k,804) * lu(k,985) - lu(k,999) = lu(k,999) - lu(k,805) * lu(k,985) - lu(k,1000) = lu(k,1000) - lu(k,806) * lu(k,985) - lu(k,1001) = lu(k,1001) - lu(k,807) * lu(k,985) - lu(k,1002) = lu(k,1002) - lu(k,808) * lu(k,985) - lu(k,1003) = lu(k,1003) - lu(k,809) * lu(k,985) - lu(k,1005) = lu(k,1005) - lu(k,810) * lu(k,985) - lu(k,1006) = lu(k,1006) - lu(k,811) * lu(k,985) - lu(k,1008) = lu(k,1008) - lu(k,812) * lu(k,985) - lu(k,1009) = lu(k,1009) - lu(k,813) * lu(k,985) - lu(k,1010) = lu(k,1010) - lu(k,814) * lu(k,985) - lu(k,1030) = lu(k,1030) - lu(k,795) * lu(k,1027) - lu(k,1032) = lu(k,1032) - lu(k,796) * lu(k,1027) - lu(k,1033) = lu(k,1033) - lu(k,797) * lu(k,1027) - lu(k,1034) = lu(k,1034) - lu(k,798) * lu(k,1027) - lu(k,1035) = lu(k,1035) - lu(k,799) * lu(k,1027) - lu(k,1036) = lu(k,1036) - lu(k,800) * lu(k,1027) - lu(k,1037) = lu(k,1037) - lu(k,801) * lu(k,1027) - lu(k,1038) = lu(k,1038) - lu(k,802) * lu(k,1027) - lu(k,1039) = lu(k,1039) - lu(k,803) * lu(k,1027) - lu(k,1040) = lu(k,1040) - lu(k,804) * lu(k,1027) - lu(k,1041) = lu(k,1041) - lu(k,805) * lu(k,1027) - lu(k,1042) = lu(k,1042) - lu(k,806) * lu(k,1027) - lu(k,1043) = lu(k,1043) - lu(k,807) * lu(k,1027) - lu(k,1044) = lu(k,1044) - lu(k,808) * lu(k,1027) - lu(k,1045) = lu(k,1045) - lu(k,809) * lu(k,1027) - lu(k,1047) = lu(k,1047) - lu(k,810) * lu(k,1027) - lu(k,1048) = lu(k,1048) - lu(k,811) * lu(k,1027) - lu(k,1050) = lu(k,1050) - lu(k,812) * lu(k,1027) - lu(k,1051) = lu(k,1051) - lu(k,813) * lu(k,1027) - lu(k,1052) = lu(k,1052) - lu(k,814) * lu(k,1027) - lu(k,1071) = lu(k,1071) - lu(k,795) * lu(k,1068) - lu(k,1073) = lu(k,1073) - lu(k,796) * lu(k,1068) - lu(k,1074) = lu(k,1074) - lu(k,797) * lu(k,1068) - lu(k,1075) = lu(k,1075) - lu(k,798) * lu(k,1068) - lu(k,1076) = lu(k,1076) - lu(k,799) * lu(k,1068) - lu(k,1077) = lu(k,1077) - lu(k,800) * lu(k,1068) - lu(k,1078) = lu(k,1078) - lu(k,801) * lu(k,1068) - lu(k,1079) = lu(k,1079) - lu(k,802) * lu(k,1068) - lu(k,1080) = lu(k,1080) - lu(k,803) * lu(k,1068) - lu(k,1081) = lu(k,1081) - lu(k,804) * lu(k,1068) - lu(k,1082) = lu(k,1082) - lu(k,805) * lu(k,1068) - lu(k,1083) = lu(k,1083) - lu(k,806) * lu(k,1068) - lu(k,1084) = lu(k,1084) - lu(k,807) * lu(k,1068) - lu(k,1085) = lu(k,1085) - lu(k,808) * lu(k,1068) - lu(k,1086) = lu(k,1086) - lu(k,809) * lu(k,1068) - lu(k,1088) = lu(k,1088) - lu(k,810) * lu(k,1068) - lu(k,1089) = lu(k,1089) - lu(k,811) * lu(k,1068) - lu(k,1091) = lu(k,1091) - lu(k,812) * lu(k,1068) - lu(k,1092) = lu(k,1092) - lu(k,813) * lu(k,1068) - lu(k,1093) = lu(k,1093) - lu(k,814) * lu(k,1068) - lu(k,1110) = lu(k,1110) - lu(k,795) * lu(k,1108) - lu(k,1112) = lu(k,1112) - lu(k,796) * lu(k,1108) - lu(k,1113) = lu(k,1113) - lu(k,797) * lu(k,1108) - lu(k,1114) = lu(k,1114) - lu(k,798) * lu(k,1108) - lu(k,1115) = lu(k,1115) - lu(k,799) * lu(k,1108) - lu(k,1116) = lu(k,1116) - lu(k,800) * lu(k,1108) - lu(k,1117) = lu(k,1117) - lu(k,801) * lu(k,1108) - lu(k,1118) = lu(k,1118) - lu(k,802) * lu(k,1108) - lu(k,1119) = lu(k,1119) - lu(k,803) * lu(k,1108) - lu(k,1120) = lu(k,1120) - lu(k,804) * lu(k,1108) - lu(k,1121) = lu(k,1121) - lu(k,805) * lu(k,1108) - lu(k,1122) = lu(k,1122) - lu(k,806) * lu(k,1108) - lu(k,1123) = lu(k,1123) - lu(k,807) * lu(k,1108) - lu(k,1124) = lu(k,1124) - lu(k,808) * lu(k,1108) - lu(k,1125) = lu(k,1125) - lu(k,809) * lu(k,1108) - lu(k,1127) = lu(k,1127) - lu(k,810) * lu(k,1108) - lu(k,1128) = lu(k,1128) - lu(k,811) * lu(k,1108) - lu(k,1130) = lu(k,1130) - lu(k,812) * lu(k,1108) - lu(k,1131) = lu(k,1131) - lu(k,813) * lu(k,1108) - lu(k,1132) = lu(k,1132) - lu(k,814) * lu(k,1108) - lu(k,1154) = lu(k,1154) - lu(k,795) * lu(k,1151) - lu(k,1156) = lu(k,1156) - lu(k,796) * lu(k,1151) - lu(k,1157) = lu(k,1157) - lu(k,797) * lu(k,1151) - lu(k,1158) = lu(k,1158) - lu(k,798) * lu(k,1151) - lu(k,1159) = lu(k,1159) - lu(k,799) * lu(k,1151) - lu(k,1160) = lu(k,1160) - lu(k,800) * lu(k,1151) - lu(k,1161) = lu(k,1161) - lu(k,801) * lu(k,1151) - lu(k,1162) = lu(k,1162) - lu(k,802) * lu(k,1151) - lu(k,1163) = lu(k,1163) - lu(k,803) * lu(k,1151) - lu(k,1164) = lu(k,1164) - lu(k,804) * lu(k,1151) - lu(k,1165) = lu(k,1165) - lu(k,805) * lu(k,1151) - lu(k,1166) = lu(k,1166) - lu(k,806) * lu(k,1151) - lu(k,1167) = lu(k,1167) - lu(k,807) * lu(k,1151) - lu(k,1168) = lu(k,1168) - lu(k,808) * lu(k,1151) - lu(k,1169) = lu(k,1169) - lu(k,809) * lu(k,1151) - lu(k,1171) = lu(k,1171) - lu(k,810) * lu(k,1151) - lu(k,1172) = lu(k,1172) - lu(k,811) * lu(k,1151) - lu(k,1174) = lu(k,1174) - lu(k,812) * lu(k,1151) - lu(k,1175) = lu(k,1175) - lu(k,813) * lu(k,1151) - lu(k,1176) = lu(k,1176) - lu(k,814) * lu(k,1151) - lu(k,1195) = lu(k,1195) - lu(k,795) * lu(k,1192) - lu(k,1197) = lu(k,1197) - lu(k,796) * lu(k,1192) - lu(k,1198) = lu(k,1198) - lu(k,797) * lu(k,1192) - lu(k,1199) = lu(k,1199) - lu(k,798) * lu(k,1192) - lu(k,1200) = lu(k,1200) - lu(k,799) * lu(k,1192) - lu(k,1201) = lu(k,1201) - lu(k,800) * lu(k,1192) - lu(k,1202) = lu(k,1202) - lu(k,801) * lu(k,1192) - lu(k,1203) = lu(k,1203) - lu(k,802) * lu(k,1192) - lu(k,1204) = lu(k,1204) - lu(k,803) * lu(k,1192) - lu(k,1205) = lu(k,1205) - lu(k,804) * lu(k,1192) - lu(k,1206) = lu(k,1206) - lu(k,805) * lu(k,1192) - lu(k,1207) = lu(k,1207) - lu(k,806) * lu(k,1192) - lu(k,1208) = lu(k,1208) - lu(k,807) * lu(k,1192) - lu(k,1209) = lu(k,1209) - lu(k,808) * lu(k,1192) - lu(k,1210) = lu(k,1210) - lu(k,809) * lu(k,1192) - lu(k,1212) = lu(k,1212) - lu(k,810) * lu(k,1192) - lu(k,1213) = lu(k,1213) - lu(k,811) * lu(k,1192) - lu(k,1215) = lu(k,1215) - lu(k,812) * lu(k,1192) - lu(k,1216) = lu(k,1216) - lu(k,813) * lu(k,1192) - lu(k,1217) = lu(k,1217) - lu(k,814) * lu(k,1192) - lu(k,1244) = lu(k,1244) - lu(k,795) * lu(k,1241) - lu(k,1246) = lu(k,1246) - lu(k,796) * lu(k,1241) - lu(k,1247) = lu(k,1247) - lu(k,797) * lu(k,1241) - lu(k,1248) = lu(k,1248) - lu(k,798) * lu(k,1241) - lu(k,1249) = lu(k,1249) - lu(k,799) * lu(k,1241) - lu(k,1250) = lu(k,1250) - lu(k,800) * lu(k,1241) - lu(k,1251) = lu(k,1251) - lu(k,801) * lu(k,1241) - lu(k,1252) = lu(k,1252) - lu(k,802) * lu(k,1241) - lu(k,1253) = lu(k,1253) - lu(k,803) * lu(k,1241) - lu(k,1254) = lu(k,1254) - lu(k,804) * lu(k,1241) - lu(k,1255) = lu(k,1255) - lu(k,805) * lu(k,1241) - lu(k,1256) = lu(k,1256) - lu(k,806) * lu(k,1241) - lu(k,1257) = lu(k,1257) - lu(k,807) * lu(k,1241) - lu(k,1258) = lu(k,1258) - lu(k,808) * lu(k,1241) - lu(k,1259) = lu(k,1259) - lu(k,809) * lu(k,1241) - lu(k,1261) = lu(k,1261) - lu(k,810) * lu(k,1241) - lu(k,1262) = lu(k,1262) - lu(k,811) * lu(k,1241) - lu(k,1264) = lu(k,1264) - lu(k,812) * lu(k,1241) - lu(k,1265) = lu(k,1265) - lu(k,813) * lu(k,1241) - lu(k,1266) = lu(k,1266) - lu(k,814) * lu(k,1241) - lu(k,1283) = lu(k,1283) - lu(k,795) * lu(k,1280) - lu(k,1285) = lu(k,1285) - lu(k,796) * lu(k,1280) - lu(k,1286) = lu(k,1286) - lu(k,797) * lu(k,1280) - lu(k,1287) = lu(k,1287) - lu(k,798) * lu(k,1280) - lu(k,1288) = lu(k,1288) - lu(k,799) * lu(k,1280) - lu(k,1289) = lu(k,1289) - lu(k,800) * lu(k,1280) - lu(k,1290) = lu(k,1290) - lu(k,801) * lu(k,1280) - lu(k,1291) = lu(k,1291) - lu(k,802) * lu(k,1280) - lu(k,1292) = lu(k,1292) - lu(k,803) * lu(k,1280) - lu(k,1293) = lu(k,1293) - lu(k,804) * lu(k,1280) - lu(k,1294) = lu(k,1294) - lu(k,805) * lu(k,1280) - lu(k,1295) = lu(k,1295) - lu(k,806) * lu(k,1280) - lu(k,1296) = lu(k,1296) - lu(k,807) * lu(k,1280) - lu(k,1297) = lu(k,1297) - lu(k,808) * lu(k,1280) - lu(k,1298) = lu(k,1298) - lu(k,809) * lu(k,1280) - lu(k,1300) = lu(k,1300) - lu(k,810) * lu(k,1280) - lu(k,1301) = lu(k,1301) - lu(k,811) * lu(k,1280) - lu(k,1303) = lu(k,1303) - lu(k,812) * lu(k,1280) - lu(k,1304) = lu(k,1304) - lu(k,813) * lu(k,1280) - lu(k,1305) = lu(k,1305) - lu(k,814) * lu(k,1280) - lu(k,1318) = lu(k,1318) - lu(k,795) * lu(k,1315) - lu(k,1320) = lu(k,1320) - lu(k,796) * lu(k,1315) - lu(k,1321) = lu(k,1321) - lu(k,797) * lu(k,1315) - lu(k,1322) = lu(k,1322) - lu(k,798) * lu(k,1315) - lu(k,1323) = lu(k,1323) - lu(k,799) * lu(k,1315) - lu(k,1324) = lu(k,1324) - lu(k,800) * lu(k,1315) - lu(k,1325) = lu(k,1325) - lu(k,801) * lu(k,1315) - lu(k,1326) = lu(k,1326) - lu(k,802) * lu(k,1315) - lu(k,1327) = lu(k,1327) - lu(k,803) * lu(k,1315) - lu(k,1328) = lu(k,1328) - lu(k,804) * lu(k,1315) - lu(k,1329) = lu(k,1329) - lu(k,805) * lu(k,1315) - lu(k,1330) = lu(k,1330) - lu(k,806) * lu(k,1315) - lu(k,1331) = lu(k,1331) - lu(k,807) * lu(k,1315) - lu(k,1332) = lu(k,1332) - lu(k,808) * lu(k,1315) - lu(k,1333) = lu(k,1333) - lu(k,809) * lu(k,1315) - lu(k,1335) = lu(k,1335) - lu(k,810) * lu(k,1315) - lu(k,1336) = lu(k,1336) - lu(k,811) * lu(k,1315) - lu(k,1338) = lu(k,1338) - lu(k,812) * lu(k,1315) - lu(k,1339) = lu(k,1339) - lu(k,813) * lu(k,1315) - lu(k,1340) = lu(k,1340) - lu(k,814) * lu(k,1315) - lu(k,1362) = lu(k,1362) - lu(k,795) * lu(k,1359) - lu(k,1364) = lu(k,1364) - lu(k,796) * lu(k,1359) - lu(k,1365) = lu(k,1365) - lu(k,797) * lu(k,1359) - lu(k,1366) = lu(k,1366) - lu(k,798) * lu(k,1359) - lu(k,1367) = lu(k,1367) - lu(k,799) * lu(k,1359) - lu(k,1368) = lu(k,1368) - lu(k,800) * lu(k,1359) - lu(k,1369) = lu(k,1369) - lu(k,801) * lu(k,1359) - lu(k,1370) = lu(k,1370) - lu(k,802) * lu(k,1359) - lu(k,1371) = lu(k,1371) - lu(k,803) * lu(k,1359) - lu(k,1372) = lu(k,1372) - lu(k,804) * lu(k,1359) - lu(k,1373) = lu(k,1373) - lu(k,805) * lu(k,1359) - lu(k,1374) = lu(k,1374) - lu(k,806) * lu(k,1359) - lu(k,1375) = lu(k,1375) - lu(k,807) * lu(k,1359) - lu(k,1376) = lu(k,1376) - lu(k,808) * lu(k,1359) - lu(k,1377) = lu(k,1377) - lu(k,809) * lu(k,1359) - lu(k,1379) = lu(k,1379) - lu(k,810) * lu(k,1359) - lu(k,1380) = lu(k,1380) - lu(k,811) * lu(k,1359) - lu(k,1382) = lu(k,1382) - lu(k,812) * lu(k,1359) - lu(k,1383) = lu(k,1383) - lu(k,813) * lu(k,1359) - lu(k,1384) = lu(k,1384) - lu(k,814) * lu(k,1359) - lu(k,1421) = lu(k,1421) - lu(k,795) * lu(k,1418) - lu(k,1423) = lu(k,1423) - lu(k,796) * lu(k,1418) - lu(k,1424) = lu(k,1424) - lu(k,797) * lu(k,1418) - lu(k,1425) = lu(k,1425) - lu(k,798) * lu(k,1418) - lu(k,1426) = lu(k,1426) - lu(k,799) * lu(k,1418) - lu(k,1427) = lu(k,1427) - lu(k,800) * lu(k,1418) - lu(k,1428) = lu(k,1428) - lu(k,801) * lu(k,1418) - lu(k,1429) = lu(k,1429) - lu(k,802) * lu(k,1418) - lu(k,1430) = lu(k,1430) - lu(k,803) * lu(k,1418) - lu(k,1431) = lu(k,1431) - lu(k,804) * lu(k,1418) - lu(k,1432) = lu(k,1432) - lu(k,805) * lu(k,1418) - lu(k,1433) = lu(k,1433) - lu(k,806) * lu(k,1418) - lu(k,1434) = lu(k,1434) - lu(k,807) * lu(k,1418) - lu(k,1435) = lu(k,1435) - lu(k,808) * lu(k,1418) - lu(k,1436) = lu(k,1436) - lu(k,809) * lu(k,1418) - lu(k,1438) = lu(k,1438) - lu(k,810) * lu(k,1418) - lu(k,1439) = lu(k,1439) - lu(k,811) * lu(k,1418) - lu(k,1441) = lu(k,1441) - lu(k,812) * lu(k,1418) - lu(k,1442) = lu(k,1442) - lu(k,813) * lu(k,1418) - lu(k,1443) = lu(k,1443) - lu(k,814) * lu(k,1418) - lu(k,1463) = lu(k,1463) - lu(k,795) * lu(k,1460) - lu(k,1465) = lu(k,1465) - lu(k,796) * lu(k,1460) - lu(k,1466) = lu(k,1466) - lu(k,797) * lu(k,1460) - lu(k,1467) = lu(k,1467) - lu(k,798) * lu(k,1460) - lu(k,1468) = lu(k,1468) - lu(k,799) * lu(k,1460) - lu(k,1469) = lu(k,1469) - lu(k,800) * lu(k,1460) - lu(k,1470) = lu(k,1470) - lu(k,801) * lu(k,1460) - lu(k,1471) = lu(k,1471) - lu(k,802) * lu(k,1460) - lu(k,1472) = lu(k,1472) - lu(k,803) * lu(k,1460) - lu(k,1473) = lu(k,1473) - lu(k,804) * lu(k,1460) - lu(k,1474) = lu(k,1474) - lu(k,805) * lu(k,1460) - lu(k,1475) = lu(k,1475) - lu(k,806) * lu(k,1460) - lu(k,1476) = lu(k,1476) - lu(k,807) * lu(k,1460) - lu(k,1477) = lu(k,1477) - lu(k,808) * lu(k,1460) - lu(k,1478) = lu(k,1478) - lu(k,809) * lu(k,1460) - lu(k,1480) = lu(k,1480) - lu(k,810) * lu(k,1460) - lu(k,1481) = lu(k,1481) - lu(k,811) * lu(k,1460) - lu(k,1483) = lu(k,1483) - lu(k,812) * lu(k,1460) - lu(k,1484) = lu(k,1484) - lu(k,813) * lu(k,1460) - lu(k,1485) = lu(k,1485) - lu(k,814) * lu(k,1460) - lu(k,1504) = lu(k,1504) - lu(k,795) * lu(k,1501) - lu(k,1506) = lu(k,1506) - lu(k,796) * lu(k,1501) - lu(k,1507) = lu(k,1507) - lu(k,797) * lu(k,1501) - lu(k,1508) = lu(k,1508) - lu(k,798) * lu(k,1501) - lu(k,1509) = lu(k,1509) - lu(k,799) * lu(k,1501) - lu(k,1510) = lu(k,1510) - lu(k,800) * lu(k,1501) - lu(k,1511) = lu(k,1511) - lu(k,801) * lu(k,1501) - lu(k,1512) = lu(k,1512) - lu(k,802) * lu(k,1501) - lu(k,1513) = lu(k,1513) - lu(k,803) * lu(k,1501) - lu(k,1514) = lu(k,1514) - lu(k,804) * lu(k,1501) - lu(k,1515) = lu(k,1515) - lu(k,805) * lu(k,1501) - lu(k,1516) = lu(k,1516) - lu(k,806) * lu(k,1501) - lu(k,1517) = lu(k,1517) - lu(k,807) * lu(k,1501) - lu(k,1518) = lu(k,1518) - lu(k,808) * lu(k,1501) - lu(k,1519) = lu(k,1519) - lu(k,809) * lu(k,1501) - lu(k,1521) = lu(k,1521) - lu(k,810) * lu(k,1501) - lu(k,1522) = lu(k,1522) - lu(k,811) * lu(k,1501) - lu(k,1524) = lu(k,1524) - lu(k,812) * lu(k,1501) - lu(k,1525) = lu(k,1525) - lu(k,813) * lu(k,1501) - lu(k,1526) = lu(k,1526) - lu(k,814) * lu(k,1501) - lu(k,1546) = lu(k,1546) - lu(k,795) * lu(k,1545) - lu(k,1548) = lu(k,1548) - lu(k,796) * lu(k,1545) - lu(k,1549) = lu(k,1549) - lu(k,797) * lu(k,1545) - lu(k,1550) = lu(k,1550) - lu(k,798) * lu(k,1545) - lu(k,1551) = lu(k,1551) - lu(k,799) * lu(k,1545) - lu(k,1552) = lu(k,1552) - lu(k,800) * lu(k,1545) - lu(k,1553) = lu(k,1553) - lu(k,801) * lu(k,1545) - lu(k,1554) = lu(k,1554) - lu(k,802) * lu(k,1545) - lu(k,1555) = lu(k,1555) - lu(k,803) * lu(k,1545) - lu(k,1556) = lu(k,1556) - lu(k,804) * lu(k,1545) - lu(k,1557) = lu(k,1557) - lu(k,805) * lu(k,1545) - lu(k,1558) = lu(k,1558) - lu(k,806) * lu(k,1545) - lu(k,1559) = lu(k,1559) - lu(k,807) * lu(k,1545) - lu(k,1560) = lu(k,1560) - lu(k,808) * lu(k,1545) - lu(k,1561) = lu(k,1561) - lu(k,809) * lu(k,1545) - lu(k,1563) = lu(k,1563) - lu(k,810) * lu(k,1545) - lu(k,1564) = lu(k,1564) - lu(k,811) * lu(k,1545) - lu(k,1566) = lu(k,1566) - lu(k,812) * lu(k,1545) - lu(k,1567) = lu(k,1567) - lu(k,813) * lu(k,1545) - lu(k,1568) = lu(k,1568) - lu(k,814) * lu(k,1545) - lu(k,1588) = lu(k,1588) - lu(k,795) * lu(k,1585) - lu(k,1590) = lu(k,1590) - lu(k,796) * lu(k,1585) - lu(k,1591) = lu(k,1591) - lu(k,797) * lu(k,1585) - lu(k,1592) = lu(k,1592) - lu(k,798) * lu(k,1585) - lu(k,1593) = lu(k,1593) - lu(k,799) * lu(k,1585) - lu(k,1594) = lu(k,1594) - lu(k,800) * lu(k,1585) - lu(k,1595) = lu(k,1595) - lu(k,801) * lu(k,1585) - lu(k,1596) = lu(k,1596) - lu(k,802) * lu(k,1585) - lu(k,1597) = lu(k,1597) - lu(k,803) * lu(k,1585) - lu(k,1598) = lu(k,1598) - lu(k,804) * lu(k,1585) - lu(k,1599) = lu(k,1599) - lu(k,805) * lu(k,1585) - lu(k,1600) = lu(k,1600) - lu(k,806) * lu(k,1585) - lu(k,1601) = lu(k,1601) - lu(k,807) * lu(k,1585) - lu(k,1602) = lu(k,1602) - lu(k,808) * lu(k,1585) - lu(k,1603) = lu(k,1603) - lu(k,809) * lu(k,1585) - lu(k,1605) = lu(k,1605) - lu(k,810) * lu(k,1585) - lu(k,1606) = lu(k,1606) - lu(k,811) * lu(k,1585) - lu(k,1608) = lu(k,1608) - lu(k,812) * lu(k,1585) - lu(k,1609) = lu(k,1609) - lu(k,813) * lu(k,1585) - lu(k,1610) = lu(k,1610) - lu(k,814) * lu(k,1585) - lu(k,1620) = lu(k,1620) - lu(k,795) * lu(k,1617) - lu(k,1622) = lu(k,1622) - lu(k,796) * lu(k,1617) - lu(k,1623) = lu(k,1623) - lu(k,797) * lu(k,1617) - lu(k,1624) = lu(k,1624) - lu(k,798) * lu(k,1617) - lu(k,1625) = lu(k,1625) - lu(k,799) * lu(k,1617) - lu(k,1626) = lu(k,1626) - lu(k,800) * lu(k,1617) - lu(k,1627) = lu(k,1627) - lu(k,801) * lu(k,1617) - lu(k,1628) = lu(k,1628) - lu(k,802) * lu(k,1617) - lu(k,1629) = lu(k,1629) - lu(k,803) * lu(k,1617) - lu(k,1630) = lu(k,1630) - lu(k,804) * lu(k,1617) - lu(k,1631) = lu(k,1631) - lu(k,805) * lu(k,1617) - lu(k,1632) = lu(k,1632) - lu(k,806) * lu(k,1617) - lu(k,1633) = lu(k,1633) - lu(k,807) * lu(k,1617) - lu(k,1634) = lu(k,1634) - lu(k,808) * lu(k,1617) - lu(k,1635) = lu(k,1635) - lu(k,809) * lu(k,1617) - lu(k,1637) = lu(k,1637) - lu(k,810) * lu(k,1617) - lu(k,1638) = lu(k,1638) - lu(k,811) * lu(k,1617) - lu(k,1640) = lu(k,1640) - lu(k,812) * lu(k,1617) - lu(k,1641) = lu(k,1641) - lu(k,813) * lu(k,1617) - lu(k,1642) = lu(k,1642) - lu(k,814) * lu(k,1617) - lu(k,1655) = lu(k,1655) - lu(k,795) * lu(k,1652) - lu(k,1657) = lu(k,1657) - lu(k,796) * lu(k,1652) - lu(k,1658) = lu(k,1658) - lu(k,797) * lu(k,1652) - lu(k,1659) = lu(k,1659) - lu(k,798) * lu(k,1652) - lu(k,1660) = lu(k,1660) - lu(k,799) * lu(k,1652) - lu(k,1661) = lu(k,1661) - lu(k,800) * lu(k,1652) - lu(k,1662) = lu(k,1662) - lu(k,801) * lu(k,1652) - lu(k,1663) = lu(k,1663) - lu(k,802) * lu(k,1652) - lu(k,1664) = lu(k,1664) - lu(k,803) * lu(k,1652) - lu(k,1665) = lu(k,1665) - lu(k,804) * lu(k,1652) - lu(k,1666) = lu(k,1666) - lu(k,805) * lu(k,1652) - lu(k,1667) = lu(k,1667) - lu(k,806) * lu(k,1652) - lu(k,1668) = lu(k,1668) - lu(k,807) * lu(k,1652) - lu(k,1669) = lu(k,1669) - lu(k,808) * lu(k,1652) - lu(k,1670) = lu(k,1670) - lu(k,809) * lu(k,1652) - lu(k,1672) = lu(k,1672) - lu(k,810) * lu(k,1652) - lu(k,1673) = lu(k,1673) - lu(k,811) * lu(k,1652) - lu(k,1675) = lu(k,1675) - lu(k,812) * lu(k,1652) - lu(k,1676) = lu(k,1676) - lu(k,813) * lu(k,1652) - lu(k,1677) = lu(k,1677) - lu(k,814) * lu(k,1652) - lu(k,1697) = lu(k,1697) - lu(k,795) * lu(k,1694) - lu(k,1699) = lu(k,1699) - lu(k,796) * lu(k,1694) - lu(k,1700) = lu(k,1700) - lu(k,797) * lu(k,1694) - lu(k,1701) = lu(k,1701) - lu(k,798) * lu(k,1694) - lu(k,1702) = lu(k,1702) - lu(k,799) * lu(k,1694) - lu(k,1703) = lu(k,1703) - lu(k,800) * lu(k,1694) - lu(k,1704) = lu(k,1704) - lu(k,801) * lu(k,1694) - lu(k,1705) = lu(k,1705) - lu(k,802) * lu(k,1694) - lu(k,1706) = lu(k,1706) - lu(k,803) * lu(k,1694) - lu(k,1707) = lu(k,1707) - lu(k,804) * lu(k,1694) - lu(k,1708) = lu(k,1708) - lu(k,805) * lu(k,1694) - lu(k,1709) = lu(k,1709) - lu(k,806) * lu(k,1694) - lu(k,1710) = lu(k,1710) - lu(k,807) * lu(k,1694) - lu(k,1711) = lu(k,1711) - lu(k,808) * lu(k,1694) - lu(k,1712) = lu(k,1712) - lu(k,809) * lu(k,1694) - lu(k,1714) = lu(k,1714) - lu(k,810) * lu(k,1694) - lu(k,1715) = lu(k,1715) - lu(k,811) * lu(k,1694) - lu(k,1717) = lu(k,1717) - lu(k,812) * lu(k,1694) - lu(k,1718) = lu(k,1718) - lu(k,813) * lu(k,1694) - lu(k,1719) = lu(k,1719) - lu(k,814) * lu(k,1694) - lu(k,1741) = lu(k,1741) - lu(k,795) * lu(k,1738) - lu(k,1743) = lu(k,1743) - lu(k,796) * lu(k,1738) - lu(k,1744) = lu(k,1744) - lu(k,797) * lu(k,1738) - lu(k,1745) = lu(k,1745) - lu(k,798) * lu(k,1738) - lu(k,1746) = lu(k,1746) - lu(k,799) * lu(k,1738) - lu(k,1747) = lu(k,1747) - lu(k,800) * lu(k,1738) - lu(k,1748) = lu(k,1748) - lu(k,801) * lu(k,1738) - lu(k,1749) = lu(k,1749) - lu(k,802) * lu(k,1738) - lu(k,1750) = lu(k,1750) - lu(k,803) * lu(k,1738) - lu(k,1751) = lu(k,1751) - lu(k,804) * lu(k,1738) - lu(k,1752) = lu(k,1752) - lu(k,805) * lu(k,1738) - lu(k,1753) = lu(k,1753) - lu(k,806) * lu(k,1738) - lu(k,1754) = lu(k,1754) - lu(k,807) * lu(k,1738) - lu(k,1755) = lu(k,1755) - lu(k,808) * lu(k,1738) - lu(k,1756) = lu(k,1756) - lu(k,809) * lu(k,1738) - lu(k,1758) = lu(k,1758) - lu(k,810) * lu(k,1738) - lu(k,1759) = lu(k,1759) - lu(k,811) * lu(k,1738) - lu(k,1761) = lu(k,1761) - lu(k,812) * lu(k,1738) - lu(k,1762) = lu(k,1762) - lu(k,813) * lu(k,1738) - lu(k,1763) = lu(k,1763) - lu(k,814) * lu(k,1738) - lu(k,1776) = lu(k,1776) - lu(k,795) * lu(k,1773) - lu(k,1778) = lu(k,1778) - lu(k,796) * lu(k,1773) - lu(k,1779) = lu(k,1779) - lu(k,797) * lu(k,1773) - lu(k,1780) = lu(k,1780) - lu(k,798) * lu(k,1773) - lu(k,1781) = lu(k,1781) - lu(k,799) * lu(k,1773) - lu(k,1782) = lu(k,1782) - lu(k,800) * lu(k,1773) - lu(k,1783) = lu(k,1783) - lu(k,801) * lu(k,1773) - lu(k,1784) = lu(k,1784) - lu(k,802) * lu(k,1773) - lu(k,1785) = lu(k,1785) - lu(k,803) * lu(k,1773) - lu(k,1786) = lu(k,1786) - lu(k,804) * lu(k,1773) - lu(k,1787) = lu(k,1787) - lu(k,805) * lu(k,1773) - lu(k,1788) = lu(k,1788) - lu(k,806) * lu(k,1773) - lu(k,1789) = lu(k,1789) - lu(k,807) * lu(k,1773) - lu(k,1790) = lu(k,1790) - lu(k,808) * lu(k,1773) - lu(k,1791) = lu(k,1791) - lu(k,809) * lu(k,1773) - lu(k,1793) = lu(k,1793) - lu(k,810) * lu(k,1773) - lu(k,1794) = lu(k,1794) - lu(k,811) * lu(k,1773) - lu(k,1796) = lu(k,1796) - lu(k,812) * lu(k,1773) - lu(k,1797) = lu(k,1797) - lu(k,813) * lu(k,1773) - lu(k,1798) = lu(k,1798) - lu(k,814) * lu(k,1773) - lu(k,1834) = lu(k,1834) - lu(k,795) * lu(k,1831) - lu(k,1836) = lu(k,1836) - lu(k,796) * lu(k,1831) - lu(k,1837) = lu(k,1837) - lu(k,797) * lu(k,1831) - lu(k,1838) = lu(k,1838) - lu(k,798) * lu(k,1831) - lu(k,1839) = lu(k,1839) - lu(k,799) * lu(k,1831) - lu(k,1840) = lu(k,1840) - lu(k,800) * lu(k,1831) - lu(k,1841) = lu(k,1841) - lu(k,801) * lu(k,1831) - lu(k,1842) = lu(k,1842) - lu(k,802) * lu(k,1831) - lu(k,1843) = lu(k,1843) - lu(k,803) * lu(k,1831) - lu(k,1844) = lu(k,1844) - lu(k,804) * lu(k,1831) - lu(k,1845) = lu(k,1845) - lu(k,805) * lu(k,1831) - lu(k,1846) = lu(k,1846) - lu(k,806) * lu(k,1831) - lu(k,1847) = lu(k,1847) - lu(k,807) * lu(k,1831) - lu(k,1848) = lu(k,1848) - lu(k,808) * lu(k,1831) - lu(k,1849) = lu(k,1849) - lu(k,809) * lu(k,1831) - lu(k,1851) = lu(k,1851) - lu(k,810) * lu(k,1831) - lu(k,1852) = lu(k,1852) - lu(k,811) * lu(k,1831) - lu(k,1854) = lu(k,1854) - lu(k,812) * lu(k,1831) - lu(k,1855) = lu(k,1855) - lu(k,813) * lu(k,1831) - lu(k,1856) = lu(k,1856) - lu(k,814) * lu(k,1831) - 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,830) = lu(k,830) * lu(k,822) - lu(k,831) = lu(k,831) * lu(k,822) - lu(k,832) = lu(k,832) * lu(k,822) - lu(k,833) = lu(k,833) * lu(k,822) - lu(k,834) = lu(k,834) * lu(k,822) - lu(k,835) = lu(k,835) * lu(k,822) - lu(k,836) = lu(k,836) * lu(k,822) - lu(k,837) = lu(k,837) * lu(k,822) - lu(k,838) = lu(k,838) * lu(k,822) - lu(k,839) = lu(k,839) * lu(k,822) - lu(k,840) = lu(k,840) * lu(k,822) - lu(k,841) = lu(k,841) * lu(k,822) - lu(k,842) = lu(k,842) * lu(k,822) - lu(k,843) = lu(k,843) * lu(k,822) - lu(k,844) = lu(k,844) * lu(k,822) - lu(k,845) = lu(k,845) * lu(k,822) - lu(k,846) = lu(k,846) * lu(k,822) - lu(k,899) = lu(k,899) - lu(k,823) * lu(k,898) - lu(k,900) = lu(k,900) - lu(k,824) * lu(k,898) - lu(k,901) = lu(k,901) - lu(k,825) * lu(k,898) - lu(k,902) = lu(k,902) - lu(k,826) * lu(k,898) - lu(k,903) = lu(k,903) - lu(k,827) * lu(k,898) - lu(k,904) = lu(k,904) - lu(k,828) * lu(k,898) - lu(k,905) = lu(k,905) - lu(k,829) * lu(k,898) - lu(k,906) = lu(k,906) - lu(k,830) * lu(k,898) - lu(k,907) = lu(k,907) - lu(k,831) * lu(k,898) - lu(k,908) = lu(k,908) - lu(k,832) * lu(k,898) - lu(k,909) = lu(k,909) - lu(k,833) * lu(k,898) - lu(k,910) = lu(k,910) - lu(k,834) * lu(k,898) - lu(k,911) = lu(k,911) - lu(k,835) * lu(k,898) - lu(k,912) = lu(k,912) - lu(k,836) * lu(k,898) - lu(k,913) = lu(k,913) - lu(k,837) * lu(k,898) - lu(k,914) = lu(k,914) - lu(k,838) * lu(k,898) - lu(k,915) = lu(k,915) - lu(k,839) * lu(k,898) - lu(k,916) = lu(k,916) - lu(k,840) * lu(k,898) - lu(k,917) = lu(k,917) - lu(k,841) * lu(k,898) - lu(k,918) = lu(k,918) - lu(k,842) * lu(k,898) - lu(k,919) = lu(k,919) - lu(k,843) * lu(k,898) - lu(k,920) = lu(k,920) - lu(k,844) * lu(k,898) - lu(k,921) = lu(k,921) - lu(k,845) * lu(k,898) - lu(k,922) = lu(k,922) - lu(k,846) * lu(k,898) - lu(k,941) = lu(k,941) - lu(k,823) * lu(k,940) - lu(k,942) = lu(k,942) - lu(k,824) * lu(k,940) - lu(k,943) = lu(k,943) - lu(k,825) * lu(k,940) - lu(k,944) = lu(k,944) - lu(k,826) * lu(k,940) - lu(k,945) = lu(k,945) - lu(k,827) * lu(k,940) - lu(k,946) = lu(k,946) - lu(k,828) * lu(k,940) - lu(k,947) = lu(k,947) - lu(k,829) * lu(k,940) - lu(k,948) = lu(k,948) - lu(k,830) * lu(k,940) - lu(k,949) = lu(k,949) - lu(k,831) * lu(k,940) - lu(k,950) = lu(k,950) - lu(k,832) * lu(k,940) - lu(k,951) = lu(k,951) - lu(k,833) * lu(k,940) - lu(k,952) = lu(k,952) - lu(k,834) * lu(k,940) - lu(k,953) = lu(k,953) - lu(k,835) * lu(k,940) - lu(k,954) = lu(k,954) - lu(k,836) * lu(k,940) - lu(k,955) = lu(k,955) - lu(k,837) * lu(k,940) - lu(k,956) = lu(k,956) - lu(k,838) * lu(k,940) - lu(k,957) = lu(k,957) - lu(k,839) * lu(k,940) - lu(k,958) = lu(k,958) - lu(k,840) * lu(k,940) - lu(k,959) = lu(k,959) - lu(k,841) * lu(k,940) - lu(k,960) = lu(k,960) - lu(k,842) * lu(k,940) - lu(k,961) = lu(k,961) - lu(k,843) * lu(k,940) - lu(k,962) = lu(k,962) - lu(k,844) * lu(k,940) - lu(k,963) = lu(k,963) - lu(k,845) * lu(k,940) - lu(k,964) = lu(k,964) - lu(k,846) * lu(k,940) - lu(k,987) = lu(k,987) - lu(k,823) * lu(k,986) - lu(k,988) = lu(k,988) - lu(k,824) * lu(k,986) - lu(k,989) = lu(k,989) - lu(k,825) * lu(k,986) - lu(k,990) = lu(k,990) - lu(k,826) * lu(k,986) - lu(k,991) = lu(k,991) - lu(k,827) * lu(k,986) - lu(k,992) = lu(k,992) - lu(k,828) * lu(k,986) - lu(k,993) = lu(k,993) - lu(k,829) * lu(k,986) - lu(k,994) = lu(k,994) - lu(k,830) * lu(k,986) - lu(k,995) = lu(k,995) - lu(k,831) * lu(k,986) - lu(k,996) = lu(k,996) - lu(k,832) * lu(k,986) - lu(k,997) = lu(k,997) - lu(k,833) * lu(k,986) - lu(k,998) = lu(k,998) - lu(k,834) * lu(k,986) - lu(k,999) = lu(k,999) - lu(k,835) * lu(k,986) - lu(k,1000) = lu(k,1000) - lu(k,836) * lu(k,986) - lu(k,1001) = lu(k,1001) - lu(k,837) * lu(k,986) - lu(k,1002) = lu(k,1002) - lu(k,838) * lu(k,986) - lu(k,1003) = lu(k,1003) - lu(k,839) * lu(k,986) - lu(k,1004) = lu(k,1004) - lu(k,840) * lu(k,986) - lu(k,1005) = lu(k,1005) - lu(k,841) * lu(k,986) - lu(k,1006) = lu(k,1006) - lu(k,842) * lu(k,986) - lu(k,1007) = lu(k,1007) - lu(k,843) * lu(k,986) - lu(k,1008) = lu(k,1008) - lu(k,844) * lu(k,986) - lu(k,1009) = lu(k,1009) - lu(k,845) * lu(k,986) - lu(k,1010) = lu(k,1010) - lu(k,846) * lu(k,986) - lu(k,1029) = lu(k,1029) - lu(k,823) * lu(k,1028) - lu(k,1030) = lu(k,1030) - lu(k,824) * lu(k,1028) - lu(k,1031) = lu(k,1031) - lu(k,825) * lu(k,1028) - lu(k,1032) = lu(k,1032) - lu(k,826) * lu(k,1028) - lu(k,1033) = lu(k,1033) - lu(k,827) * lu(k,1028) - lu(k,1034) = lu(k,1034) - lu(k,828) * lu(k,1028) - lu(k,1035) = lu(k,1035) - lu(k,829) * lu(k,1028) - lu(k,1036) = lu(k,1036) - lu(k,830) * lu(k,1028) - lu(k,1037) = lu(k,1037) - lu(k,831) * lu(k,1028) - lu(k,1038) = lu(k,1038) - lu(k,832) * lu(k,1028) - lu(k,1039) = lu(k,1039) - lu(k,833) * lu(k,1028) - lu(k,1040) = lu(k,1040) - lu(k,834) * lu(k,1028) - lu(k,1041) = lu(k,1041) - lu(k,835) * lu(k,1028) - lu(k,1042) = lu(k,1042) - lu(k,836) * lu(k,1028) - lu(k,1043) = lu(k,1043) - lu(k,837) * lu(k,1028) - lu(k,1044) = lu(k,1044) - lu(k,838) * lu(k,1028) - lu(k,1045) = lu(k,1045) - lu(k,839) * lu(k,1028) - lu(k,1046) = lu(k,1046) - lu(k,840) * lu(k,1028) - lu(k,1047) = lu(k,1047) - lu(k,841) * lu(k,1028) - lu(k,1048) = lu(k,1048) - lu(k,842) * lu(k,1028) - lu(k,1049) = lu(k,1049) - lu(k,843) * lu(k,1028) - lu(k,1050) = lu(k,1050) - lu(k,844) * lu(k,1028) - lu(k,1051) = lu(k,1051) - lu(k,845) * lu(k,1028) - lu(k,1052) = lu(k,1052) - lu(k,846) * lu(k,1028) - lu(k,1070) = lu(k,1070) - lu(k,823) * lu(k,1069) - lu(k,1071) = lu(k,1071) - lu(k,824) * lu(k,1069) - lu(k,1072) = lu(k,1072) - lu(k,825) * lu(k,1069) - lu(k,1073) = lu(k,1073) - lu(k,826) * lu(k,1069) - lu(k,1074) = lu(k,1074) - lu(k,827) * lu(k,1069) - lu(k,1075) = lu(k,1075) - lu(k,828) * lu(k,1069) - lu(k,1076) = lu(k,1076) - lu(k,829) * lu(k,1069) - lu(k,1077) = lu(k,1077) - lu(k,830) * lu(k,1069) - lu(k,1078) = lu(k,1078) - lu(k,831) * lu(k,1069) - lu(k,1079) = lu(k,1079) - lu(k,832) * lu(k,1069) - lu(k,1080) = lu(k,1080) - lu(k,833) * lu(k,1069) - lu(k,1081) = lu(k,1081) - lu(k,834) * lu(k,1069) - lu(k,1082) = lu(k,1082) - lu(k,835) * lu(k,1069) - lu(k,1083) = lu(k,1083) - lu(k,836) * lu(k,1069) - lu(k,1084) = lu(k,1084) - lu(k,837) * lu(k,1069) - lu(k,1085) = lu(k,1085) - lu(k,838) * lu(k,1069) - lu(k,1086) = lu(k,1086) - lu(k,839) * lu(k,1069) - lu(k,1087) = lu(k,1087) - lu(k,840) * lu(k,1069) - lu(k,1088) = lu(k,1088) - lu(k,841) * lu(k,1069) - lu(k,1089) = lu(k,1089) - lu(k,842) * lu(k,1069) - lu(k,1090) = lu(k,1090) - lu(k,843) * lu(k,1069) - lu(k,1091) = lu(k,1091) - lu(k,844) * lu(k,1069) - lu(k,1092) = lu(k,1092) - lu(k,845) * lu(k,1069) - lu(k,1093) = lu(k,1093) - lu(k,846) * lu(k,1069) - lu(k,1153) = lu(k,1153) - lu(k,823) * lu(k,1152) - lu(k,1154) = lu(k,1154) - lu(k,824) * lu(k,1152) - lu(k,1155) = lu(k,1155) - lu(k,825) * lu(k,1152) - lu(k,1156) = lu(k,1156) - lu(k,826) * lu(k,1152) - lu(k,1157) = lu(k,1157) - lu(k,827) * lu(k,1152) - lu(k,1158) = lu(k,1158) - lu(k,828) * lu(k,1152) - lu(k,1159) = lu(k,1159) - lu(k,829) * lu(k,1152) - lu(k,1160) = lu(k,1160) - lu(k,830) * lu(k,1152) - lu(k,1161) = lu(k,1161) - lu(k,831) * lu(k,1152) - lu(k,1162) = lu(k,1162) - lu(k,832) * lu(k,1152) - lu(k,1163) = lu(k,1163) - lu(k,833) * lu(k,1152) - lu(k,1164) = lu(k,1164) - lu(k,834) * lu(k,1152) - lu(k,1165) = lu(k,1165) - lu(k,835) * lu(k,1152) - lu(k,1166) = lu(k,1166) - lu(k,836) * lu(k,1152) - lu(k,1167) = lu(k,1167) - lu(k,837) * lu(k,1152) - lu(k,1168) = lu(k,1168) - lu(k,838) * lu(k,1152) - lu(k,1169) = lu(k,1169) - lu(k,839) * lu(k,1152) - lu(k,1170) = lu(k,1170) - lu(k,840) * lu(k,1152) - lu(k,1171) = lu(k,1171) - lu(k,841) * lu(k,1152) - lu(k,1172) = lu(k,1172) - lu(k,842) * lu(k,1152) - lu(k,1173) = lu(k,1173) - lu(k,843) * lu(k,1152) - lu(k,1174) = lu(k,1174) - lu(k,844) * lu(k,1152) - lu(k,1175) = lu(k,1175) - lu(k,845) * lu(k,1152) - lu(k,1176) = lu(k,1176) - lu(k,846) * lu(k,1152) - lu(k,1194) = lu(k,1194) - lu(k,823) * lu(k,1193) - lu(k,1195) = lu(k,1195) - lu(k,824) * lu(k,1193) - lu(k,1196) = lu(k,1196) - lu(k,825) * lu(k,1193) - lu(k,1197) = lu(k,1197) - lu(k,826) * lu(k,1193) - lu(k,1198) = lu(k,1198) - lu(k,827) * lu(k,1193) - lu(k,1199) = lu(k,1199) - lu(k,828) * lu(k,1193) - lu(k,1200) = lu(k,1200) - lu(k,829) * lu(k,1193) - lu(k,1201) = lu(k,1201) - lu(k,830) * lu(k,1193) - lu(k,1202) = lu(k,1202) - lu(k,831) * lu(k,1193) - lu(k,1203) = lu(k,1203) - lu(k,832) * lu(k,1193) - lu(k,1204) = lu(k,1204) - lu(k,833) * lu(k,1193) - lu(k,1205) = lu(k,1205) - lu(k,834) * lu(k,1193) - lu(k,1206) = lu(k,1206) - lu(k,835) * lu(k,1193) - lu(k,1207) = lu(k,1207) - lu(k,836) * lu(k,1193) - lu(k,1208) = lu(k,1208) - lu(k,837) * lu(k,1193) - lu(k,1209) = lu(k,1209) - lu(k,838) * lu(k,1193) - lu(k,1210) = lu(k,1210) - lu(k,839) * lu(k,1193) - lu(k,1211) = lu(k,1211) - lu(k,840) * lu(k,1193) - lu(k,1212) = lu(k,1212) - lu(k,841) * lu(k,1193) - lu(k,1213) = lu(k,1213) - lu(k,842) * lu(k,1193) - lu(k,1214) = lu(k,1214) - lu(k,843) * lu(k,1193) - lu(k,1215) = lu(k,1215) - lu(k,844) * lu(k,1193) - lu(k,1216) = lu(k,1216) - lu(k,845) * lu(k,1193) - lu(k,1217) = lu(k,1217) - lu(k,846) * lu(k,1193) - lu(k,1243) = lu(k,1243) - lu(k,823) * lu(k,1242) - lu(k,1244) = lu(k,1244) - lu(k,824) * lu(k,1242) - lu(k,1245) = lu(k,1245) - lu(k,825) * lu(k,1242) - lu(k,1246) = lu(k,1246) - lu(k,826) * lu(k,1242) - lu(k,1247) = lu(k,1247) - lu(k,827) * lu(k,1242) - lu(k,1248) = lu(k,1248) - lu(k,828) * lu(k,1242) - lu(k,1249) = lu(k,1249) - lu(k,829) * lu(k,1242) - lu(k,1250) = lu(k,1250) - lu(k,830) * lu(k,1242) - lu(k,1251) = lu(k,1251) - lu(k,831) * lu(k,1242) - lu(k,1252) = lu(k,1252) - lu(k,832) * lu(k,1242) - lu(k,1253) = lu(k,1253) - lu(k,833) * lu(k,1242) - lu(k,1254) = lu(k,1254) - lu(k,834) * lu(k,1242) - lu(k,1255) = lu(k,1255) - lu(k,835) * lu(k,1242) - lu(k,1256) = lu(k,1256) - lu(k,836) * lu(k,1242) - lu(k,1257) = lu(k,1257) - lu(k,837) * lu(k,1242) - lu(k,1258) = lu(k,1258) - lu(k,838) * lu(k,1242) - lu(k,1259) = lu(k,1259) - lu(k,839) * lu(k,1242) - lu(k,1260) = lu(k,1260) - lu(k,840) * lu(k,1242) - lu(k,1261) = lu(k,1261) - lu(k,841) * lu(k,1242) - lu(k,1262) = lu(k,1262) - lu(k,842) * lu(k,1242) - lu(k,1263) = lu(k,1263) - lu(k,843) * lu(k,1242) - lu(k,1264) = lu(k,1264) - lu(k,844) * lu(k,1242) - lu(k,1265) = lu(k,1265) - lu(k,845) * lu(k,1242) - lu(k,1266) = lu(k,1266) - lu(k,846) * lu(k,1242) - lu(k,1282) = lu(k,1282) - lu(k,823) * lu(k,1281) - lu(k,1283) = lu(k,1283) - lu(k,824) * lu(k,1281) - lu(k,1284) = lu(k,1284) - lu(k,825) * lu(k,1281) - lu(k,1285) = lu(k,1285) - lu(k,826) * lu(k,1281) - lu(k,1286) = lu(k,1286) - lu(k,827) * lu(k,1281) - lu(k,1287) = lu(k,1287) - lu(k,828) * lu(k,1281) - lu(k,1288) = lu(k,1288) - lu(k,829) * lu(k,1281) - lu(k,1289) = lu(k,1289) - lu(k,830) * lu(k,1281) - lu(k,1290) = lu(k,1290) - lu(k,831) * lu(k,1281) - lu(k,1291) = lu(k,1291) - lu(k,832) * lu(k,1281) - lu(k,1292) = lu(k,1292) - lu(k,833) * lu(k,1281) - lu(k,1293) = lu(k,1293) - lu(k,834) * lu(k,1281) - lu(k,1294) = lu(k,1294) - lu(k,835) * lu(k,1281) - lu(k,1295) = lu(k,1295) - lu(k,836) * lu(k,1281) - lu(k,1296) = lu(k,1296) - lu(k,837) * lu(k,1281) - lu(k,1297) = lu(k,1297) - lu(k,838) * lu(k,1281) - lu(k,1298) = lu(k,1298) - lu(k,839) * lu(k,1281) - lu(k,1299) = lu(k,1299) - lu(k,840) * lu(k,1281) - lu(k,1300) = lu(k,1300) - lu(k,841) * lu(k,1281) - lu(k,1301) = lu(k,1301) - lu(k,842) * lu(k,1281) - lu(k,1302) = lu(k,1302) - lu(k,843) * lu(k,1281) - lu(k,1303) = lu(k,1303) - lu(k,844) * lu(k,1281) - lu(k,1304) = lu(k,1304) - lu(k,845) * lu(k,1281) - lu(k,1305) = lu(k,1305) - lu(k,846) * lu(k,1281) - lu(k,1317) = lu(k,1317) - lu(k,823) * lu(k,1316) - lu(k,1318) = lu(k,1318) - lu(k,824) * lu(k,1316) - lu(k,1319) = lu(k,1319) - lu(k,825) * lu(k,1316) - lu(k,1320) = lu(k,1320) - lu(k,826) * lu(k,1316) - lu(k,1321) = lu(k,1321) - lu(k,827) * lu(k,1316) - lu(k,1322) = lu(k,1322) - lu(k,828) * lu(k,1316) - lu(k,1323) = lu(k,1323) - lu(k,829) * lu(k,1316) - lu(k,1324) = lu(k,1324) - lu(k,830) * lu(k,1316) - lu(k,1325) = lu(k,1325) - lu(k,831) * lu(k,1316) - lu(k,1326) = lu(k,1326) - lu(k,832) * lu(k,1316) - lu(k,1327) = lu(k,1327) - lu(k,833) * lu(k,1316) - lu(k,1328) = lu(k,1328) - lu(k,834) * lu(k,1316) - lu(k,1329) = lu(k,1329) - lu(k,835) * lu(k,1316) - lu(k,1330) = lu(k,1330) - lu(k,836) * lu(k,1316) - lu(k,1331) = lu(k,1331) - lu(k,837) * lu(k,1316) - lu(k,1332) = lu(k,1332) - lu(k,838) * lu(k,1316) - lu(k,1333) = lu(k,1333) - lu(k,839) * lu(k,1316) - lu(k,1334) = lu(k,1334) - lu(k,840) * lu(k,1316) - lu(k,1335) = lu(k,1335) - lu(k,841) * lu(k,1316) - lu(k,1336) = lu(k,1336) - lu(k,842) * lu(k,1316) - lu(k,1337) = lu(k,1337) - lu(k,843) * lu(k,1316) - lu(k,1338) = lu(k,1338) - lu(k,844) * lu(k,1316) - lu(k,1339) = lu(k,1339) - lu(k,845) * lu(k,1316) - lu(k,1340) = lu(k,1340) - lu(k,846) * lu(k,1316) - lu(k,1361) = lu(k,1361) - lu(k,823) * lu(k,1360) - lu(k,1362) = lu(k,1362) - lu(k,824) * lu(k,1360) - lu(k,1363) = lu(k,1363) - lu(k,825) * lu(k,1360) - lu(k,1364) = lu(k,1364) - lu(k,826) * lu(k,1360) - lu(k,1365) = lu(k,1365) - lu(k,827) * lu(k,1360) - lu(k,1366) = lu(k,1366) - lu(k,828) * lu(k,1360) - lu(k,1367) = lu(k,1367) - lu(k,829) * lu(k,1360) - lu(k,1368) = lu(k,1368) - lu(k,830) * lu(k,1360) - lu(k,1369) = lu(k,1369) - lu(k,831) * lu(k,1360) - lu(k,1370) = lu(k,1370) - lu(k,832) * lu(k,1360) - lu(k,1371) = lu(k,1371) - lu(k,833) * lu(k,1360) - lu(k,1372) = lu(k,1372) - lu(k,834) * lu(k,1360) - lu(k,1373) = lu(k,1373) - lu(k,835) * lu(k,1360) - lu(k,1374) = lu(k,1374) - lu(k,836) * lu(k,1360) - lu(k,1375) = lu(k,1375) - lu(k,837) * lu(k,1360) - lu(k,1376) = lu(k,1376) - lu(k,838) * lu(k,1360) - lu(k,1377) = lu(k,1377) - lu(k,839) * lu(k,1360) - lu(k,1378) = lu(k,1378) - lu(k,840) * lu(k,1360) - lu(k,1379) = lu(k,1379) - lu(k,841) * lu(k,1360) - lu(k,1380) = lu(k,1380) - lu(k,842) * lu(k,1360) - lu(k,1381) = lu(k,1381) - lu(k,843) * lu(k,1360) - lu(k,1382) = lu(k,1382) - lu(k,844) * lu(k,1360) - lu(k,1383) = lu(k,1383) - lu(k,845) * lu(k,1360) - lu(k,1384) = lu(k,1384) - lu(k,846) * lu(k,1360) - lu(k,1420) = lu(k,1420) - lu(k,823) * lu(k,1419) - lu(k,1421) = lu(k,1421) - lu(k,824) * lu(k,1419) - lu(k,1422) = lu(k,1422) - lu(k,825) * lu(k,1419) - lu(k,1423) = lu(k,1423) - lu(k,826) * lu(k,1419) - lu(k,1424) = lu(k,1424) - lu(k,827) * lu(k,1419) - lu(k,1425) = lu(k,1425) - lu(k,828) * lu(k,1419) - lu(k,1426) = lu(k,1426) - lu(k,829) * lu(k,1419) - lu(k,1427) = lu(k,1427) - lu(k,830) * lu(k,1419) - lu(k,1428) = lu(k,1428) - lu(k,831) * lu(k,1419) - lu(k,1429) = lu(k,1429) - lu(k,832) * lu(k,1419) - lu(k,1430) = lu(k,1430) - lu(k,833) * lu(k,1419) - lu(k,1431) = lu(k,1431) - lu(k,834) * lu(k,1419) - lu(k,1432) = lu(k,1432) - lu(k,835) * lu(k,1419) - lu(k,1433) = lu(k,1433) - lu(k,836) * lu(k,1419) - lu(k,1434) = lu(k,1434) - lu(k,837) * lu(k,1419) - lu(k,1435) = lu(k,1435) - lu(k,838) * lu(k,1419) - lu(k,1436) = lu(k,1436) - lu(k,839) * lu(k,1419) - lu(k,1437) = lu(k,1437) - lu(k,840) * lu(k,1419) - lu(k,1438) = lu(k,1438) - lu(k,841) * lu(k,1419) - lu(k,1439) = lu(k,1439) - lu(k,842) * lu(k,1419) - lu(k,1440) = lu(k,1440) - lu(k,843) * lu(k,1419) - lu(k,1441) = lu(k,1441) - lu(k,844) * lu(k,1419) - lu(k,1442) = lu(k,1442) - lu(k,845) * lu(k,1419) - lu(k,1443) = lu(k,1443) - lu(k,846) * lu(k,1419) - lu(k,1462) = lu(k,1462) - lu(k,823) * lu(k,1461) - lu(k,1463) = lu(k,1463) - lu(k,824) * lu(k,1461) - lu(k,1464) = lu(k,1464) - lu(k,825) * lu(k,1461) - lu(k,1465) = lu(k,1465) - lu(k,826) * lu(k,1461) - lu(k,1466) = lu(k,1466) - lu(k,827) * lu(k,1461) - lu(k,1467) = lu(k,1467) - lu(k,828) * lu(k,1461) - lu(k,1468) = lu(k,1468) - lu(k,829) * lu(k,1461) - lu(k,1469) = lu(k,1469) - lu(k,830) * lu(k,1461) - lu(k,1470) = lu(k,1470) - lu(k,831) * lu(k,1461) - lu(k,1471) = lu(k,1471) - lu(k,832) * lu(k,1461) - lu(k,1472) = lu(k,1472) - lu(k,833) * lu(k,1461) - lu(k,1473) = lu(k,1473) - lu(k,834) * lu(k,1461) - lu(k,1474) = lu(k,1474) - lu(k,835) * lu(k,1461) - lu(k,1475) = lu(k,1475) - lu(k,836) * lu(k,1461) - lu(k,1476) = lu(k,1476) - lu(k,837) * lu(k,1461) - lu(k,1477) = lu(k,1477) - lu(k,838) * lu(k,1461) - lu(k,1478) = lu(k,1478) - lu(k,839) * lu(k,1461) - lu(k,1479) = lu(k,1479) - lu(k,840) * lu(k,1461) - lu(k,1480) = lu(k,1480) - lu(k,841) * lu(k,1461) - lu(k,1481) = lu(k,1481) - lu(k,842) * lu(k,1461) - lu(k,1482) = lu(k,1482) - lu(k,843) * lu(k,1461) - lu(k,1483) = lu(k,1483) - lu(k,844) * lu(k,1461) - lu(k,1484) = lu(k,1484) - lu(k,845) * lu(k,1461) - lu(k,1485) = lu(k,1485) - lu(k,846) * lu(k,1461) - lu(k,1503) = lu(k,1503) - lu(k,823) * lu(k,1502) - lu(k,1504) = lu(k,1504) - lu(k,824) * lu(k,1502) - lu(k,1505) = lu(k,1505) - lu(k,825) * lu(k,1502) - lu(k,1506) = lu(k,1506) - lu(k,826) * lu(k,1502) - lu(k,1507) = lu(k,1507) - lu(k,827) * lu(k,1502) - lu(k,1508) = lu(k,1508) - lu(k,828) * lu(k,1502) - lu(k,1509) = lu(k,1509) - lu(k,829) * lu(k,1502) - lu(k,1510) = lu(k,1510) - lu(k,830) * lu(k,1502) - lu(k,1511) = lu(k,1511) - lu(k,831) * lu(k,1502) - lu(k,1512) = lu(k,1512) - lu(k,832) * lu(k,1502) - lu(k,1513) = lu(k,1513) - lu(k,833) * lu(k,1502) - lu(k,1514) = lu(k,1514) - lu(k,834) * lu(k,1502) - lu(k,1515) = lu(k,1515) - lu(k,835) * lu(k,1502) - lu(k,1516) = lu(k,1516) - lu(k,836) * lu(k,1502) - lu(k,1517) = lu(k,1517) - lu(k,837) * lu(k,1502) - lu(k,1518) = lu(k,1518) - lu(k,838) * lu(k,1502) - lu(k,1519) = lu(k,1519) - lu(k,839) * lu(k,1502) - lu(k,1520) = lu(k,1520) - lu(k,840) * lu(k,1502) - lu(k,1521) = lu(k,1521) - lu(k,841) * lu(k,1502) - lu(k,1522) = lu(k,1522) - lu(k,842) * lu(k,1502) - lu(k,1523) = lu(k,1523) - lu(k,843) * lu(k,1502) - lu(k,1524) = lu(k,1524) - lu(k,844) * lu(k,1502) - lu(k,1525) = lu(k,1525) - lu(k,845) * lu(k,1502) - lu(k,1526) = lu(k,1526) - lu(k,846) * lu(k,1502) - lu(k,1587) = lu(k,1587) - lu(k,823) * lu(k,1586) - lu(k,1588) = lu(k,1588) - lu(k,824) * lu(k,1586) - lu(k,1589) = lu(k,1589) - lu(k,825) * lu(k,1586) - lu(k,1590) = lu(k,1590) - lu(k,826) * lu(k,1586) - lu(k,1591) = lu(k,1591) - lu(k,827) * lu(k,1586) - lu(k,1592) = lu(k,1592) - lu(k,828) * lu(k,1586) - lu(k,1593) = lu(k,1593) - lu(k,829) * lu(k,1586) - lu(k,1594) = lu(k,1594) - lu(k,830) * lu(k,1586) - lu(k,1595) = lu(k,1595) - lu(k,831) * lu(k,1586) - lu(k,1596) = lu(k,1596) - lu(k,832) * lu(k,1586) - lu(k,1597) = lu(k,1597) - lu(k,833) * lu(k,1586) - lu(k,1598) = lu(k,1598) - lu(k,834) * lu(k,1586) - lu(k,1599) = lu(k,1599) - lu(k,835) * lu(k,1586) - lu(k,1600) = lu(k,1600) - lu(k,836) * lu(k,1586) - lu(k,1601) = lu(k,1601) - lu(k,837) * lu(k,1586) - lu(k,1602) = lu(k,1602) - lu(k,838) * lu(k,1586) - lu(k,1603) = lu(k,1603) - lu(k,839) * lu(k,1586) - lu(k,1604) = lu(k,1604) - lu(k,840) * lu(k,1586) - lu(k,1605) = lu(k,1605) - lu(k,841) * lu(k,1586) - lu(k,1606) = lu(k,1606) - lu(k,842) * lu(k,1586) - lu(k,1607) = lu(k,1607) - lu(k,843) * lu(k,1586) - lu(k,1608) = lu(k,1608) - lu(k,844) * lu(k,1586) - lu(k,1609) = lu(k,1609) - lu(k,845) * lu(k,1586) - lu(k,1610) = lu(k,1610) - lu(k,846) * lu(k,1586) - lu(k,1619) = lu(k,1619) - lu(k,823) * lu(k,1618) - lu(k,1620) = lu(k,1620) - lu(k,824) * lu(k,1618) - lu(k,1621) = lu(k,1621) - lu(k,825) * lu(k,1618) - lu(k,1622) = lu(k,1622) - lu(k,826) * lu(k,1618) - lu(k,1623) = lu(k,1623) - lu(k,827) * lu(k,1618) - lu(k,1624) = lu(k,1624) - lu(k,828) * lu(k,1618) - lu(k,1625) = lu(k,1625) - lu(k,829) * lu(k,1618) - lu(k,1626) = lu(k,1626) - lu(k,830) * lu(k,1618) - lu(k,1627) = lu(k,1627) - lu(k,831) * lu(k,1618) - lu(k,1628) = lu(k,1628) - lu(k,832) * lu(k,1618) - lu(k,1629) = lu(k,1629) - lu(k,833) * lu(k,1618) - lu(k,1630) = lu(k,1630) - lu(k,834) * lu(k,1618) - lu(k,1631) = lu(k,1631) - lu(k,835) * lu(k,1618) - lu(k,1632) = lu(k,1632) - lu(k,836) * lu(k,1618) - lu(k,1633) = lu(k,1633) - lu(k,837) * lu(k,1618) - lu(k,1634) = lu(k,1634) - lu(k,838) * lu(k,1618) - lu(k,1635) = lu(k,1635) - lu(k,839) * lu(k,1618) - lu(k,1636) = lu(k,1636) - lu(k,840) * lu(k,1618) - lu(k,1637) = lu(k,1637) - lu(k,841) * lu(k,1618) - lu(k,1638) = lu(k,1638) - lu(k,842) * lu(k,1618) - lu(k,1639) = lu(k,1639) - lu(k,843) * lu(k,1618) - lu(k,1640) = lu(k,1640) - lu(k,844) * lu(k,1618) - lu(k,1641) = lu(k,1641) - lu(k,845) * lu(k,1618) - lu(k,1642) = lu(k,1642) - lu(k,846) * lu(k,1618) - lu(k,1654) = lu(k,1654) - lu(k,823) * lu(k,1653) - lu(k,1655) = lu(k,1655) - lu(k,824) * lu(k,1653) - lu(k,1656) = lu(k,1656) - lu(k,825) * lu(k,1653) - lu(k,1657) = lu(k,1657) - lu(k,826) * lu(k,1653) - lu(k,1658) = lu(k,1658) - lu(k,827) * lu(k,1653) - lu(k,1659) = lu(k,1659) - lu(k,828) * lu(k,1653) - lu(k,1660) = lu(k,1660) - lu(k,829) * lu(k,1653) - lu(k,1661) = lu(k,1661) - lu(k,830) * lu(k,1653) - lu(k,1662) = lu(k,1662) - lu(k,831) * lu(k,1653) - lu(k,1663) = lu(k,1663) - lu(k,832) * lu(k,1653) - lu(k,1664) = lu(k,1664) - lu(k,833) * lu(k,1653) - lu(k,1665) = lu(k,1665) - lu(k,834) * lu(k,1653) - lu(k,1666) = lu(k,1666) - lu(k,835) * lu(k,1653) - lu(k,1667) = lu(k,1667) - lu(k,836) * lu(k,1653) - lu(k,1668) = lu(k,1668) - lu(k,837) * lu(k,1653) - lu(k,1669) = lu(k,1669) - lu(k,838) * lu(k,1653) - lu(k,1670) = lu(k,1670) - lu(k,839) * lu(k,1653) - lu(k,1671) = lu(k,1671) - lu(k,840) * lu(k,1653) - lu(k,1672) = lu(k,1672) - lu(k,841) * lu(k,1653) - lu(k,1673) = lu(k,1673) - lu(k,842) * lu(k,1653) - lu(k,1674) = lu(k,1674) - lu(k,843) * lu(k,1653) - lu(k,1675) = lu(k,1675) - lu(k,844) * lu(k,1653) - lu(k,1676) = lu(k,1676) - lu(k,845) * lu(k,1653) - lu(k,1677) = lu(k,1677) - lu(k,846) * lu(k,1653) - lu(k,1696) = lu(k,1696) - lu(k,823) * lu(k,1695) - lu(k,1697) = lu(k,1697) - lu(k,824) * lu(k,1695) - lu(k,1698) = lu(k,1698) - lu(k,825) * lu(k,1695) - lu(k,1699) = lu(k,1699) - lu(k,826) * lu(k,1695) - lu(k,1700) = lu(k,1700) - lu(k,827) * lu(k,1695) - lu(k,1701) = lu(k,1701) - lu(k,828) * lu(k,1695) - lu(k,1702) = lu(k,1702) - lu(k,829) * lu(k,1695) - lu(k,1703) = lu(k,1703) - lu(k,830) * lu(k,1695) - lu(k,1704) = lu(k,1704) - lu(k,831) * lu(k,1695) - lu(k,1705) = lu(k,1705) - lu(k,832) * lu(k,1695) - lu(k,1706) = lu(k,1706) - lu(k,833) * lu(k,1695) - lu(k,1707) = lu(k,1707) - lu(k,834) * lu(k,1695) - lu(k,1708) = lu(k,1708) - lu(k,835) * lu(k,1695) - lu(k,1709) = lu(k,1709) - lu(k,836) * lu(k,1695) - lu(k,1710) = lu(k,1710) - lu(k,837) * lu(k,1695) - lu(k,1711) = lu(k,1711) - lu(k,838) * lu(k,1695) - lu(k,1712) = lu(k,1712) - lu(k,839) * lu(k,1695) - lu(k,1713) = lu(k,1713) - lu(k,840) * lu(k,1695) - lu(k,1714) = lu(k,1714) - lu(k,841) * lu(k,1695) - lu(k,1715) = lu(k,1715) - lu(k,842) * lu(k,1695) - lu(k,1716) = lu(k,1716) - lu(k,843) * lu(k,1695) - lu(k,1717) = lu(k,1717) - lu(k,844) * lu(k,1695) - lu(k,1718) = lu(k,1718) - lu(k,845) * lu(k,1695) - lu(k,1719) = lu(k,1719) - lu(k,846) * lu(k,1695) - lu(k,1740) = lu(k,1740) - lu(k,823) * lu(k,1739) - lu(k,1741) = lu(k,1741) - lu(k,824) * lu(k,1739) - lu(k,1742) = lu(k,1742) - lu(k,825) * lu(k,1739) - lu(k,1743) = lu(k,1743) - lu(k,826) * lu(k,1739) - lu(k,1744) = lu(k,1744) - lu(k,827) * lu(k,1739) - lu(k,1745) = lu(k,1745) - lu(k,828) * lu(k,1739) - lu(k,1746) = lu(k,1746) - lu(k,829) * lu(k,1739) - lu(k,1747) = lu(k,1747) - lu(k,830) * lu(k,1739) - lu(k,1748) = lu(k,1748) - lu(k,831) * lu(k,1739) - lu(k,1749) = lu(k,1749) - lu(k,832) * lu(k,1739) - lu(k,1750) = lu(k,1750) - lu(k,833) * lu(k,1739) - lu(k,1751) = lu(k,1751) - lu(k,834) * lu(k,1739) - lu(k,1752) = lu(k,1752) - lu(k,835) * lu(k,1739) - lu(k,1753) = lu(k,1753) - lu(k,836) * lu(k,1739) - lu(k,1754) = lu(k,1754) - lu(k,837) * lu(k,1739) - lu(k,1755) = lu(k,1755) - lu(k,838) * lu(k,1739) - lu(k,1756) = lu(k,1756) - lu(k,839) * lu(k,1739) - lu(k,1757) = lu(k,1757) - lu(k,840) * lu(k,1739) - lu(k,1758) = lu(k,1758) - lu(k,841) * lu(k,1739) - lu(k,1759) = lu(k,1759) - lu(k,842) * lu(k,1739) - lu(k,1760) = lu(k,1760) - lu(k,843) * lu(k,1739) - lu(k,1761) = lu(k,1761) - lu(k,844) * lu(k,1739) - lu(k,1762) = lu(k,1762) - lu(k,845) * lu(k,1739) - lu(k,1763) = lu(k,1763) - lu(k,846) * lu(k,1739) - lu(k,1775) = lu(k,1775) - lu(k,823) * lu(k,1774) - lu(k,1776) = lu(k,1776) - lu(k,824) * lu(k,1774) - lu(k,1777) = lu(k,1777) - lu(k,825) * lu(k,1774) - lu(k,1778) = lu(k,1778) - lu(k,826) * lu(k,1774) - lu(k,1779) = lu(k,1779) - lu(k,827) * lu(k,1774) - lu(k,1780) = lu(k,1780) - lu(k,828) * lu(k,1774) - lu(k,1781) = lu(k,1781) - lu(k,829) * lu(k,1774) - lu(k,1782) = lu(k,1782) - lu(k,830) * lu(k,1774) - lu(k,1783) = lu(k,1783) - lu(k,831) * lu(k,1774) - lu(k,1784) = lu(k,1784) - lu(k,832) * lu(k,1774) - lu(k,1785) = lu(k,1785) - lu(k,833) * lu(k,1774) - lu(k,1786) = lu(k,1786) - lu(k,834) * lu(k,1774) - lu(k,1787) = lu(k,1787) - lu(k,835) * lu(k,1774) - lu(k,1788) = lu(k,1788) - lu(k,836) * lu(k,1774) - lu(k,1789) = lu(k,1789) - lu(k,837) * lu(k,1774) - lu(k,1790) = lu(k,1790) - lu(k,838) * lu(k,1774) - lu(k,1791) = lu(k,1791) - lu(k,839) * lu(k,1774) - lu(k,1792) = lu(k,1792) - lu(k,840) * lu(k,1774) - lu(k,1793) = lu(k,1793) - lu(k,841) * lu(k,1774) - lu(k,1794) = lu(k,1794) - lu(k,842) * lu(k,1774) - lu(k,1795) = lu(k,1795) - lu(k,843) * lu(k,1774) - lu(k,1796) = lu(k,1796) - lu(k,844) * lu(k,1774) - lu(k,1797) = lu(k,1797) - lu(k,845) * lu(k,1774) - lu(k,1798) = lu(k,1798) - lu(k,846) * lu(k,1774) - lu(k,1833) = lu(k,1833) - lu(k,823) * lu(k,1832) - lu(k,1834) = lu(k,1834) - lu(k,824) * lu(k,1832) - lu(k,1835) = lu(k,1835) - lu(k,825) * lu(k,1832) - lu(k,1836) = lu(k,1836) - lu(k,826) * lu(k,1832) - lu(k,1837) = lu(k,1837) - lu(k,827) * lu(k,1832) - lu(k,1838) = lu(k,1838) - lu(k,828) * lu(k,1832) - lu(k,1839) = lu(k,1839) - lu(k,829) * lu(k,1832) - lu(k,1840) = lu(k,1840) - lu(k,830) * lu(k,1832) - lu(k,1841) = lu(k,1841) - lu(k,831) * lu(k,1832) - lu(k,1842) = lu(k,1842) - lu(k,832) * lu(k,1832) - lu(k,1843) = lu(k,1843) - lu(k,833) * lu(k,1832) - lu(k,1844) = lu(k,1844) - lu(k,834) * lu(k,1832) - lu(k,1845) = lu(k,1845) - lu(k,835) * lu(k,1832) - lu(k,1846) = lu(k,1846) - lu(k,836) * lu(k,1832) - lu(k,1847) = lu(k,1847) - lu(k,837) * lu(k,1832) - lu(k,1848) = lu(k,1848) - lu(k,838) * lu(k,1832) - lu(k,1849) = lu(k,1849) - lu(k,839) * lu(k,1832) - lu(k,1850) = lu(k,1850) - lu(k,840) * lu(k,1832) - lu(k,1851) = lu(k,1851) - lu(k,841) * lu(k,1832) - lu(k,1852) = lu(k,1852) - lu(k,842) * lu(k,1832) - lu(k,1853) = lu(k,1853) - lu(k,843) * lu(k,1832) - lu(k,1854) = lu(k,1854) - lu(k,844) * lu(k,1832) - lu(k,1855) = lu(k,1855) - lu(k,845) * lu(k,1832) - lu(k,1856) = lu(k,1856) - lu(k,846) * lu(k,1832) - end do + real(r8), intent(inout) :: lu(:) + lu(747) = 1._r8 / lu(747) + lu(748) = lu(748) * lu(747) + lu(749) = lu(749) * lu(747) + lu(750) = lu(750) * lu(747) + lu(751) = lu(751) * lu(747) + lu(752) = lu(752) * lu(747) + lu(753) = lu(753) * lu(747) + lu(754) = lu(754) * lu(747) + lu(755) = lu(755) * lu(747) + lu(756) = lu(756) * lu(747) + lu(757) = lu(757) * lu(747) + lu(758) = lu(758) * lu(747) + lu(759) = lu(759) * lu(747) + lu(760) = lu(760) * lu(747) + lu(761) = lu(761) * lu(747) + lu(762) = lu(762) * lu(747) + lu(763) = lu(763) * lu(747) + lu(764) = lu(764) * lu(747) + lu(765) = lu(765) * lu(747) + lu(766) = lu(766) * lu(747) + lu(767) = lu(767) * lu(747) + lu(794) = lu(794) - lu(748) * lu(793) + lu(795) = lu(795) - lu(749) * lu(793) + lu(796) = lu(796) - lu(750) * lu(793) + lu(798) = lu(798) - lu(751) * lu(793) + lu(799) = lu(799) - lu(752) * lu(793) + lu(800) = lu(800) - lu(753) * lu(793) + lu(801) = lu(801) - lu(754) * lu(793) + lu(802) = lu(802) - lu(755) * lu(793) + lu(803) = lu(803) - lu(756) * lu(793) + lu(804) = lu(804) - lu(757) * lu(793) + lu(805) = lu(805) - lu(758) * lu(793) + lu(806) = lu(806) - lu(759) * lu(793) + lu(807) = lu(807) - lu(760) * lu(793) + lu(808) = lu(808) - lu(761) * lu(793) + lu(809) = lu(809) - lu(762) * lu(793) + lu(810) = lu(810) - lu(763) * lu(793) + lu(811) = lu(811) - lu(764) * lu(793) + lu(812) = lu(812) - lu(765) * lu(793) + lu(813) = lu(813) - lu(766) * lu(793) + lu(814) = lu(814) - lu(767) * lu(793) + lu(865) = lu(865) - lu(748) * lu(864) + lu(866) = lu(866) - lu(749) * lu(864) + lu(867) = lu(867) - lu(750) * lu(864) + lu(870) = lu(870) - lu(751) * lu(864) + lu(871) = lu(871) - lu(752) * lu(864) + lu(872) = lu(872) - lu(753) * lu(864) + lu(873) = lu(873) - lu(754) * lu(864) + lu(874) = lu(874) - lu(755) * lu(864) + lu(875) = lu(875) - lu(756) * lu(864) + lu(876) = lu(876) - lu(757) * lu(864) + lu(877) = lu(877) - lu(758) * lu(864) + lu(878) = lu(878) - lu(759) * lu(864) + lu(879) = lu(879) - lu(760) * lu(864) + lu(880) = lu(880) - lu(761) * lu(864) + lu(881) = lu(881) - lu(762) * lu(864) + lu(883) = lu(883) - lu(763) * lu(864) + lu(884) = lu(884) - lu(764) * lu(864) + lu(885) = lu(885) - lu(765) * lu(864) + lu(887) = lu(887) - lu(766) * lu(864) + lu(888) = lu(888) - lu(767) * lu(864) + lu(905) = lu(905) - lu(748) * lu(904) + lu(907) = lu(907) - lu(749) * lu(904) + lu(908) = lu(908) - lu(750) * lu(904) + lu(911) = lu(911) - lu(751) * lu(904) + lu(912) = lu(912) - lu(752) * lu(904) + lu(913) = lu(913) - lu(753) * lu(904) + lu(914) = lu(914) - lu(754) * lu(904) + lu(915) = lu(915) - lu(755) * lu(904) + lu(916) = lu(916) - lu(756) * lu(904) + lu(917) = lu(917) - lu(757) * lu(904) + lu(918) = lu(918) - lu(758) * lu(904) + lu(919) = lu(919) - lu(759) * lu(904) + lu(920) = lu(920) - lu(760) * lu(904) + lu(921) = lu(921) - lu(761) * lu(904) + lu(922) = lu(922) - lu(762) * lu(904) + lu(924) = lu(924) - lu(763) * lu(904) + lu(925) = lu(925) - lu(764) * lu(904) + lu(926) = lu(926) - lu(765) * lu(904) + lu(929) = lu(929) - lu(766) * lu(904) + lu(930) = lu(930) - lu(767) * lu(904) + lu(952) = lu(952) - lu(748) * lu(951) + lu(954) = lu(954) - lu(749) * lu(951) + lu(955) = lu(955) - lu(750) * lu(951) + lu(958) = lu(958) - lu(751) * lu(951) + lu(959) = lu(959) - lu(752) * lu(951) + lu(960) = lu(960) - lu(753) * lu(951) + lu(961) = lu(961) - lu(754) * lu(951) + lu(962) = lu(962) - lu(755) * lu(951) + lu(963) = lu(963) - lu(756) * lu(951) + lu(964) = lu(964) - lu(757) * lu(951) + lu(965) = lu(965) - lu(758) * lu(951) + lu(966) = lu(966) - lu(759) * lu(951) + lu(967) = lu(967) - lu(760) * lu(951) + lu(968) = lu(968) - lu(761) * lu(951) + lu(969) = lu(969) - lu(762) * lu(951) + lu(971) = lu(971) - lu(763) * lu(951) + lu(972) = lu(972) - lu(764) * lu(951) + lu(973) = lu(973) - lu(765) * lu(951) + lu(976) = lu(976) - lu(766) * lu(951) + lu(977) = lu(977) - lu(767) * lu(951) + lu(994) = lu(994) - lu(748) * lu(993) + lu(996) = lu(996) - lu(749) * lu(993) + lu(997) = lu(997) - lu(750) * lu(993) + lu(1000) = lu(1000) - lu(751) * lu(993) + lu(1001) = lu(1001) - lu(752) * lu(993) + lu(1002) = lu(1002) - lu(753) * lu(993) + lu(1003) = lu(1003) - lu(754) * lu(993) + lu(1004) = lu(1004) - lu(755) * lu(993) + lu(1005) = lu(1005) - lu(756) * lu(993) + lu(1006) = lu(1006) - lu(757) * lu(993) + lu(1007) = lu(1007) - lu(758) * lu(993) + lu(1008) = lu(1008) - lu(759) * lu(993) + lu(1009) = lu(1009) - lu(760) * lu(993) + lu(1010) = lu(1010) - lu(761) * lu(993) + lu(1011) = lu(1011) - lu(762) * lu(993) + lu(1013) = lu(1013) - lu(763) * lu(993) + lu(1014) = lu(1014) - lu(764) * lu(993) + lu(1015) = lu(1015) - lu(765) * lu(993) + lu(1018) = lu(1018) - lu(766) * lu(993) + lu(1019) = lu(1019) - lu(767) * lu(993) + lu(1043) = lu(1043) - lu(748) * lu(1042) + lu(1045) = lu(1045) - lu(749) * lu(1042) + lu(1046) = lu(1046) - lu(750) * lu(1042) + lu(1049) = lu(1049) - lu(751) * lu(1042) + lu(1050) = lu(1050) - lu(752) * lu(1042) + lu(1051) = lu(1051) - lu(753) * lu(1042) + lu(1052) = lu(1052) - lu(754) * lu(1042) + lu(1053) = lu(1053) - lu(755) * lu(1042) + lu(1054) = lu(1054) - lu(756) * lu(1042) + lu(1055) = lu(1055) - lu(757) * lu(1042) + lu(1056) = lu(1056) - lu(758) * lu(1042) + lu(1057) = lu(1057) - lu(759) * lu(1042) + lu(1058) = lu(1058) - lu(760) * lu(1042) + lu(1059) = lu(1059) - lu(761) * lu(1042) + lu(1060) = lu(1060) - lu(762) * lu(1042) + lu(1062) = lu(1062) - lu(763) * lu(1042) + lu(1063) = lu(1063) - lu(764) * lu(1042) + lu(1064) = lu(1064) - lu(765) * lu(1042) + lu(1067) = lu(1067) - lu(766) * lu(1042) + lu(1068) = lu(1068) - lu(767) * lu(1042) + lu(1089) = lu(1089) - lu(748) * lu(1088) + lu(1091) = lu(1091) - lu(749) * lu(1088) + lu(1092) = lu(1092) - lu(750) * lu(1088) + lu(1095) = lu(1095) - lu(751) * lu(1088) + lu(1096) = lu(1096) - lu(752) * lu(1088) + lu(1097) = lu(1097) - lu(753) * lu(1088) + lu(1098) = lu(1098) - lu(754) * lu(1088) + lu(1099) = lu(1099) - lu(755) * lu(1088) + lu(1100) = lu(1100) - lu(756) * lu(1088) + lu(1101) = lu(1101) - lu(757) * lu(1088) + lu(1102) = lu(1102) - lu(758) * lu(1088) + lu(1103) = lu(1103) - lu(759) * lu(1088) + lu(1104) = lu(1104) - lu(760) * lu(1088) + lu(1105) = lu(1105) - lu(761) * lu(1088) + lu(1106) = lu(1106) - lu(762) * lu(1088) + lu(1108) = lu(1108) - lu(763) * lu(1088) + lu(1109) = lu(1109) - lu(764) * lu(1088) + lu(1110) = lu(1110) - lu(765) * lu(1088) + lu(1113) = lu(1113) - lu(766) * lu(1088) + lu(1114) = lu(1114) - lu(767) * lu(1088) + lu(1130) = lu(1130) - lu(748) * lu(1129) + lu(1132) = lu(1132) - lu(749) * lu(1129) + lu(1133) = lu(1133) - lu(750) * lu(1129) + lu(1136) = lu(1136) - lu(751) * lu(1129) + lu(1137) = lu(1137) - lu(752) * lu(1129) + lu(1138) = lu(1138) - lu(753) * lu(1129) + lu(1139) = lu(1139) - lu(754) * lu(1129) + lu(1140) = lu(1140) - lu(755) * lu(1129) + lu(1141) = lu(1141) - lu(756) * lu(1129) + lu(1142) = lu(1142) - lu(757) * lu(1129) + lu(1143) = lu(1143) - lu(758) * lu(1129) + lu(1144) = lu(1144) - lu(759) * lu(1129) + lu(1145) = lu(1145) - lu(760) * lu(1129) + lu(1146) = lu(1146) - lu(761) * lu(1129) + lu(1147) = lu(1147) - lu(762) * lu(1129) + lu(1149) = lu(1149) - lu(763) * lu(1129) + lu(1150) = lu(1150) - lu(764) * lu(1129) + lu(1151) = lu(1151) - lu(765) * lu(1129) + lu(1154) = lu(1154) - lu(766) * lu(1129) + lu(1155) = lu(1155) - lu(767) * lu(1129) + lu(1171) = lu(1171) - lu(748) * lu(1170) + lu(1173) = lu(1173) - lu(749) * lu(1170) + lu(1174) = lu(1174) - lu(750) * lu(1170) + lu(1177) = lu(1177) - lu(751) * lu(1170) + lu(1178) = lu(1178) - lu(752) * lu(1170) + lu(1179) = lu(1179) - lu(753) * lu(1170) + lu(1180) = lu(1180) - lu(754) * lu(1170) + lu(1181) = lu(1181) - lu(755) * lu(1170) + lu(1182) = lu(1182) - lu(756) * lu(1170) + lu(1183) = lu(1183) - lu(757) * lu(1170) + lu(1184) = lu(1184) - lu(758) * lu(1170) + lu(1185) = lu(1185) - lu(759) * lu(1170) + lu(1186) = lu(1186) - lu(760) * lu(1170) + lu(1187) = lu(1187) - lu(761) * lu(1170) + lu(1188) = lu(1188) - lu(762) * lu(1170) + lu(1190) = lu(1190) - lu(763) * lu(1170) + lu(1191) = lu(1191) - lu(764) * lu(1170) + lu(1192) = lu(1192) - lu(765) * lu(1170) + lu(1195) = lu(1195) - lu(766) * lu(1170) + lu(1196) = lu(1196) - lu(767) * lu(1170) + lu(1230) = lu(1230) - lu(748) * lu(1229) + lu(1232) = lu(1232) - lu(749) * lu(1229) + lu(1233) = lu(1233) - lu(750) * lu(1229) + lu(1236) = lu(1236) - lu(751) * lu(1229) + lu(1237) = lu(1237) - lu(752) * lu(1229) + lu(1238) = lu(1238) - lu(753) * lu(1229) + lu(1239) = lu(1239) - lu(754) * lu(1229) + lu(1240) = lu(1240) - lu(755) * lu(1229) + lu(1241) = lu(1241) - lu(756) * lu(1229) + lu(1242) = lu(1242) - lu(757) * lu(1229) + lu(1243) = lu(1243) - lu(758) * lu(1229) + lu(1244) = lu(1244) - lu(759) * lu(1229) + lu(1245) = lu(1245) - lu(760) * lu(1229) + lu(1246) = lu(1246) - lu(761) * lu(1229) + lu(1247) = lu(1247) - lu(762) * lu(1229) + lu(1249) = lu(1249) - lu(763) * lu(1229) + lu(1250) = lu(1250) - lu(764) * lu(1229) + lu(1251) = lu(1251) - lu(765) * lu(1229) + lu(1254) = lu(1254) - lu(766) * lu(1229) + lu(1255) = lu(1255) - lu(767) * lu(1229) + lu(1272) = lu(1272) - lu(748) * lu(1271) + lu(1274) = lu(1274) - lu(749) * lu(1271) + lu(1275) = lu(1275) - lu(750) * lu(1271) + lu(1278) = lu(1278) - lu(751) * lu(1271) + lu(1279) = lu(1279) - lu(752) * lu(1271) + lu(1280) = lu(1280) - lu(753) * lu(1271) + lu(1281) = lu(1281) - lu(754) * lu(1271) + lu(1282) = lu(1282) - lu(755) * lu(1271) + lu(1283) = lu(1283) - lu(756) * lu(1271) + lu(1284) = lu(1284) - lu(757) * lu(1271) + lu(1285) = lu(1285) - lu(758) * lu(1271) + lu(1286) = lu(1286) - lu(759) * lu(1271) + lu(1287) = lu(1287) - lu(760) * lu(1271) + lu(1288) = lu(1288) - lu(761) * lu(1271) + lu(1289) = lu(1289) - lu(762) * lu(1271) + lu(1291) = lu(1291) - lu(763) * lu(1271) + lu(1292) = lu(1292) - lu(764) * lu(1271) + lu(1293) = lu(1293) - lu(765) * lu(1271) + lu(1296) = lu(1296) - lu(766) * lu(1271) + lu(1297) = lu(1297) - lu(767) * lu(1271) + lu(1316) = lu(1316) - lu(748) * lu(1315) + lu(1318) = lu(1318) - lu(749) * lu(1315) + lu(1319) = lu(1319) - lu(750) * lu(1315) + lu(1322) = lu(1322) - lu(751) * lu(1315) + lu(1323) = lu(1323) - lu(752) * lu(1315) + lu(1324) = lu(1324) - lu(753) * lu(1315) + lu(1325) = lu(1325) - lu(754) * lu(1315) + lu(1326) = lu(1326) - lu(755) * lu(1315) + lu(1327) = lu(1327) - lu(756) * lu(1315) + lu(1328) = lu(1328) - lu(757) * lu(1315) + lu(1329) = lu(1329) - lu(758) * lu(1315) + lu(1330) = lu(1330) - lu(759) * lu(1315) + lu(1331) = lu(1331) - lu(760) * lu(1315) + lu(1332) = lu(1332) - lu(761) * lu(1315) + lu(1333) = lu(1333) - lu(762) * lu(1315) + lu(1335) = lu(1335) - lu(763) * lu(1315) + lu(1336) = lu(1336) - lu(764) * lu(1315) + lu(1337) = lu(1337) - lu(765) * lu(1315) + lu(1340) = lu(1340) - lu(766) * lu(1315) + lu(1341) = lu(1341) - lu(767) * lu(1315) + lu(1351) = lu(1351) - lu(748) * lu(1350) + lu(1353) = lu(1353) - lu(749) * lu(1350) + lu(1354) = lu(1354) - lu(750) * lu(1350) + lu(1357) = lu(1357) - lu(751) * lu(1350) + lu(1358) = lu(1358) - lu(752) * lu(1350) + lu(1359) = lu(1359) - lu(753) * lu(1350) + lu(1360) = lu(1360) - lu(754) * lu(1350) + lu(1361) = lu(1361) - lu(755) * lu(1350) + lu(1362) = lu(1362) - lu(756) * lu(1350) + lu(1363) = lu(1363) - lu(757) * lu(1350) + lu(1364) = lu(1364) - lu(758) * lu(1350) + lu(1365) = lu(1365) - lu(759) * lu(1350) + lu(1366) = lu(1366) - lu(760) * lu(1350) + lu(1367) = lu(1367) - lu(761) * lu(1350) + lu(1368) = lu(1368) - lu(762) * lu(1350) + lu(1370) = lu(1370) - lu(763) * lu(1350) + lu(1371) = lu(1371) - lu(764) * lu(1350) + lu(1372) = lu(1372) - lu(765) * lu(1350) + lu(1375) = lu(1375) - lu(766) * lu(1350) + lu(1376) = lu(1376) - lu(767) * lu(1350) + lu(1395) = lu(1395) - lu(748) * lu(1394) + lu(1397) = lu(1397) - lu(749) * lu(1394) + lu(1398) = lu(1398) - lu(750) * lu(1394) + lu(1401) = lu(1401) - lu(751) * lu(1394) + lu(1402) = lu(1402) - lu(752) * lu(1394) + lu(1403) = lu(1403) - lu(753) * lu(1394) + lu(1404) = lu(1404) - lu(754) * lu(1394) + lu(1405) = lu(1405) - lu(755) * lu(1394) + lu(1406) = lu(1406) - lu(756) * lu(1394) + lu(1407) = lu(1407) - lu(757) * lu(1394) + lu(1408) = lu(1408) - lu(758) * lu(1394) + lu(1409) = lu(1409) - lu(759) * lu(1394) + lu(1410) = lu(1410) - lu(760) * lu(1394) + lu(1411) = lu(1411) - lu(761) * lu(1394) + lu(1412) = lu(1412) - lu(762) * lu(1394) + lu(1414) = lu(1414) - lu(763) * lu(1394) + lu(1415) = lu(1415) - lu(764) * lu(1394) + lu(1416) = lu(1416) - lu(765) * lu(1394) + lu(1419) = lu(1419) - lu(766) * lu(1394) + lu(1420) = lu(1420) - lu(767) * lu(1394) + lu(1436) = lu(1436) - lu(748) * lu(1435) + lu(1438) = lu(1438) - lu(749) * lu(1435) + lu(1439) = lu(1439) - lu(750) * lu(1435) + lu(1442) = lu(1442) - lu(751) * lu(1435) + lu(1443) = lu(1443) - lu(752) * lu(1435) + lu(1444) = lu(1444) - lu(753) * lu(1435) + lu(1445) = lu(1445) - lu(754) * lu(1435) + lu(1446) = lu(1446) - lu(755) * lu(1435) + lu(1447) = lu(1447) - lu(756) * lu(1435) + lu(1448) = lu(1448) - lu(757) * lu(1435) + lu(1449) = lu(1449) - lu(758) * lu(1435) + lu(1450) = lu(1450) - lu(759) * lu(1435) + lu(1451) = lu(1451) - lu(760) * lu(1435) + lu(1452) = lu(1452) - lu(761) * lu(1435) + lu(1453) = lu(1453) - lu(762) * lu(1435) + lu(1455) = lu(1455) - lu(763) * lu(1435) + lu(1456) = lu(1456) - lu(764) * lu(1435) + lu(1457) = lu(1457) - lu(765) * lu(1435) + lu(1460) = lu(1460) - lu(766) * lu(1435) + lu(1461) = lu(1461) - lu(767) * lu(1435) + lu(1471) = lu(1471) - lu(748) * lu(1470) + lu(1473) = lu(1473) - lu(749) * lu(1470) + lu(1474) = lu(1474) - lu(750) * lu(1470) + lu(1477) = lu(1477) - lu(751) * lu(1470) + lu(1478) = lu(1478) - lu(752) * lu(1470) + lu(1479) = lu(1479) - lu(753) * lu(1470) + lu(1480) = lu(1480) - lu(754) * lu(1470) + lu(1481) = lu(1481) - lu(755) * lu(1470) + lu(1482) = lu(1482) - lu(756) * lu(1470) + lu(1483) = lu(1483) - lu(757) * lu(1470) + lu(1484) = lu(1484) - lu(758) * lu(1470) + lu(1485) = lu(1485) - lu(759) * lu(1470) + lu(1486) = lu(1486) - lu(760) * lu(1470) + lu(1487) = lu(1487) - lu(761) * lu(1470) + lu(1488) = lu(1488) - lu(762) * lu(1470) + lu(1490) = lu(1490) - lu(763) * lu(1470) + lu(1491) = lu(1491) - lu(764) * lu(1470) + lu(1492) = lu(1492) - lu(765) * lu(1470) + lu(1495) = lu(1495) - lu(766) * lu(1470) + lu(1496) = lu(1496) - lu(767) * lu(1470) + lu(1515) = lu(1515) - lu(748) * lu(1514) + lu(1517) = lu(1517) - lu(749) * lu(1514) + lu(1518) = lu(1518) - lu(750) * lu(1514) + lu(1521) = lu(1521) - lu(751) * lu(1514) + lu(1522) = lu(1522) - lu(752) * lu(1514) + lu(1523) = lu(1523) - lu(753) * lu(1514) + lu(1524) = lu(1524) - lu(754) * lu(1514) + lu(1525) = lu(1525) - lu(755) * lu(1514) + lu(1526) = lu(1526) - lu(756) * lu(1514) + lu(1527) = lu(1527) - lu(757) * lu(1514) + lu(1528) = lu(1528) - lu(758) * lu(1514) + lu(1529) = lu(1529) - lu(759) * lu(1514) + lu(1530) = lu(1530) - lu(760) * lu(1514) + lu(1531) = lu(1531) - lu(761) * lu(1514) + lu(1532) = lu(1532) - lu(762) * lu(1514) + lu(1534) = lu(1534) - lu(763) * lu(1514) + lu(1535) = lu(1535) - lu(764) * lu(1514) + lu(1536) = lu(1536) - lu(765) * lu(1514) + lu(1539) = lu(1539) - lu(766) * lu(1514) + lu(1540) = lu(1540) - lu(767) * lu(1514) + lu(1557) = lu(1557) - lu(748) * lu(1556) + lu(1559) = lu(1559) - lu(749) * lu(1556) + lu(1560) = lu(1560) - lu(750) * lu(1556) + lu(1563) = lu(1563) - lu(751) * lu(1556) + lu(1564) = lu(1564) - lu(752) * lu(1556) + lu(1565) = lu(1565) - lu(753) * lu(1556) + lu(1566) = lu(1566) - lu(754) * lu(1556) + lu(1567) = lu(1567) - lu(755) * lu(1556) + lu(1568) = lu(1568) - lu(756) * lu(1556) + lu(1569) = lu(1569) - lu(757) * lu(1556) + lu(1570) = lu(1570) - lu(758) * lu(1556) + lu(1571) = lu(1571) - lu(759) * lu(1556) + lu(1572) = lu(1572) - lu(760) * lu(1556) + lu(1573) = lu(1573) - lu(761) * lu(1556) + lu(1574) = lu(1574) - lu(762) * lu(1556) + lu(1576) = lu(1576) - lu(763) * lu(1556) + lu(1577) = lu(1577) - lu(764) * lu(1556) + lu(1578) = lu(1578) - lu(765) * lu(1556) + lu(1581) = lu(1581) - lu(766) * lu(1556) + lu(1582) = lu(1582) - lu(767) * lu(1556) + lu(1596) = lu(1596) - lu(748) * lu(1595) + lu(1598) = lu(1598) - lu(749) * lu(1595) + lu(1599) = lu(1599) - lu(750) * lu(1595) + lu(1602) = lu(1602) - lu(751) * lu(1595) + lu(1603) = lu(1603) - lu(752) * lu(1595) + lu(1604) = lu(1604) - lu(753) * lu(1595) + lu(1605) = lu(1605) - lu(754) * lu(1595) + lu(1606) = lu(1606) - lu(755) * lu(1595) + lu(1607) = lu(1607) - lu(756) * lu(1595) + lu(1608) = lu(1608) - lu(757) * lu(1595) + lu(1609) = lu(1609) - lu(758) * lu(1595) + lu(1610) = lu(1610) - lu(759) * lu(1595) + lu(1611) = lu(1611) - lu(760) * lu(1595) + lu(1612) = lu(1612) - lu(761) * lu(1595) + lu(1613) = lu(1613) - lu(762) * lu(1595) + lu(1615) = lu(1615) - lu(763) * lu(1595) + lu(1616) = lu(1616) - lu(764) * lu(1595) + lu(1617) = lu(1617) - lu(765) * lu(1595) + lu(1620) = lu(1620) - lu(766) * lu(1595) + lu(1621) = lu(1621) - lu(767) * lu(1595) + lu(1628) = lu(1628) - lu(748) * lu(1627) + lu(1630) = lu(1630) - lu(749) * lu(1627) + lu(1631) = lu(1631) - lu(750) * lu(1627) + lu(1634) = lu(1634) - lu(751) * lu(1627) + lu(1635) = lu(1635) - lu(752) * lu(1627) + lu(1636) = lu(1636) - lu(753) * lu(1627) + lu(1637) = lu(1637) - lu(754) * lu(1627) + lu(1638) = lu(1638) - lu(755) * lu(1627) + lu(1639) = lu(1639) - lu(756) * lu(1627) + lu(1640) = lu(1640) - lu(757) * lu(1627) + lu(1641) = lu(1641) - lu(758) * lu(1627) + lu(1642) = lu(1642) - lu(759) * lu(1627) + lu(1643) = lu(1643) - lu(760) * lu(1627) + lu(1644) = lu(1644) - lu(761) * lu(1627) + lu(1645) = lu(1645) - lu(762) * lu(1627) + lu(1647) = lu(1647) - lu(763) * lu(1627) + lu(1648) = lu(1648) - lu(764) * lu(1627) + lu(1649) = lu(1649) - lu(765) * lu(1627) + lu(1652) = lu(1652) - lu(766) * lu(1627) + lu(1653) = lu(1653) - lu(767) * lu(1627) + lu(1663) = lu(1663) - lu(748) * lu(1662) + lu(1665) = lu(1665) - lu(749) * lu(1662) + lu(1666) = lu(1666) - lu(750) * lu(1662) + lu(1669) = lu(1669) - lu(751) * lu(1662) + lu(1670) = lu(1670) - lu(752) * lu(1662) + lu(1671) = lu(1671) - lu(753) * lu(1662) + lu(1672) = lu(1672) - lu(754) * lu(1662) + lu(1673) = lu(1673) - lu(755) * lu(1662) + lu(1674) = lu(1674) - lu(756) * lu(1662) + lu(1675) = lu(1675) - lu(757) * lu(1662) + lu(1676) = lu(1676) - lu(758) * lu(1662) + lu(1677) = lu(1677) - lu(759) * lu(1662) + lu(1678) = lu(1678) - lu(760) * lu(1662) + lu(1679) = lu(1679) - lu(761) * lu(1662) + lu(1680) = lu(1680) - lu(762) * lu(1662) + lu(1682) = lu(1682) - lu(763) * lu(1662) + lu(1683) = lu(1683) - lu(764) * lu(1662) + lu(1684) = lu(1684) - lu(765) * lu(1662) + lu(1687) = lu(1687) - lu(766) * lu(1662) + lu(1688) = lu(1688) - lu(767) * lu(1662) + lu(1705) = lu(1705) - lu(748) * lu(1704) + lu(1707) = lu(1707) - lu(749) * lu(1704) + lu(1708) = lu(1708) - lu(750) * lu(1704) + lu(1711) = lu(1711) - lu(751) * lu(1704) + lu(1712) = lu(1712) - lu(752) * lu(1704) + lu(1713) = lu(1713) - lu(753) * lu(1704) + lu(1714) = lu(1714) - lu(754) * lu(1704) + lu(1715) = lu(1715) - lu(755) * lu(1704) + lu(1716) = lu(1716) - lu(756) * lu(1704) + lu(1717) = lu(1717) - lu(757) * lu(1704) + lu(1718) = lu(1718) - lu(758) * lu(1704) + lu(1719) = lu(1719) - lu(759) * lu(1704) + lu(1720) = lu(1720) - lu(760) * lu(1704) + lu(1721) = lu(1721) - lu(761) * lu(1704) + lu(1722) = lu(1722) - lu(762) * lu(1704) + lu(1724) = lu(1724) - lu(763) * lu(1704) + lu(1725) = lu(1725) - lu(764) * lu(1704) + lu(1726) = lu(1726) - lu(765) * lu(1704) + lu(1729) = lu(1729) - lu(766) * lu(1704) + lu(1730) = lu(1730) - lu(767) * lu(1704) + lu(1774) = lu(1774) - lu(748) * lu(1773) + lu(1775) = lu(1775) - lu(749) * lu(1773) + lu(1776) = lu(1776) - lu(750) * lu(1773) + lu(1779) = lu(1779) - lu(751) * lu(1773) + lu(1780) = lu(1780) - lu(752) * lu(1773) + lu(1781) = lu(1781) - lu(753) * lu(1773) + lu(1782) = lu(1782) - lu(754) * lu(1773) + lu(1783) = lu(1783) - lu(755) * lu(1773) + lu(1784) = lu(1784) - lu(756) * lu(1773) + lu(1785) = lu(1785) - lu(757) * lu(1773) + lu(1786) = lu(1786) - lu(758) * lu(1773) + lu(1787) = lu(1787) - lu(759) * lu(1773) + lu(1788) = lu(1788) - lu(760) * lu(1773) + lu(1789) = lu(1789) - lu(761) * lu(1773) + lu(1790) = lu(1790) - lu(762) * lu(1773) + lu(1792) = lu(1792) - lu(763) * lu(1773) + lu(1793) = lu(1793) - lu(764) * lu(1773) + lu(1794) = lu(1794) - lu(765) * lu(1773) + lu(1797) = lu(1797) - lu(766) * lu(1773) + lu(1798) = lu(1798) - lu(767) * lu(1773) + lu(1831) = lu(1831) - lu(748) * lu(1830) + lu(1833) = lu(1833) - lu(749) * lu(1830) + lu(1834) = lu(1834) - lu(750) * lu(1830) + lu(1837) = lu(1837) - lu(751) * lu(1830) + lu(1838) = lu(1838) - lu(752) * lu(1830) + lu(1839) = lu(1839) - lu(753) * lu(1830) + lu(1840) = lu(1840) - lu(754) * lu(1830) + lu(1841) = lu(1841) - lu(755) * lu(1830) + lu(1842) = lu(1842) - lu(756) * lu(1830) + lu(1843) = lu(1843) - lu(757) * lu(1830) + lu(1844) = lu(1844) - lu(758) * lu(1830) + lu(1845) = lu(1845) - lu(759) * lu(1830) + lu(1846) = lu(1846) - lu(760) * lu(1830) + lu(1847) = lu(1847) - lu(761) * lu(1830) + lu(1848) = lu(1848) - lu(762) * lu(1830) + lu(1850) = lu(1850) - lu(763) * lu(1830) + lu(1851) = lu(1851) - lu(764) * lu(1830) + lu(1852) = lu(1852) - lu(765) * lu(1830) + lu(1855) = lu(1855) - lu(766) * lu(1830) + lu(1856) = lu(1856) - lu(767) * lu(1830) + lu(794) = 1._r8 / lu(794) + lu(795) = lu(795) * lu(794) + lu(796) = lu(796) * lu(794) + lu(797) = lu(797) * lu(794) + lu(798) = lu(798) * lu(794) + lu(799) = lu(799) * lu(794) + lu(800) = lu(800) * lu(794) + lu(801) = lu(801) * lu(794) + lu(802) = lu(802) * lu(794) + lu(803) = lu(803) * lu(794) + lu(804) = lu(804) * lu(794) + lu(805) = lu(805) * lu(794) + lu(806) = lu(806) * lu(794) + lu(807) = lu(807) * lu(794) + lu(808) = lu(808) * lu(794) + lu(809) = lu(809) * lu(794) + lu(810) = lu(810) * lu(794) + lu(811) = lu(811) * lu(794) + lu(812) = lu(812) * lu(794) + lu(813) = lu(813) * lu(794) + lu(814) = lu(814) * lu(794) + lu(823) = lu(823) - lu(795) * lu(821) + lu(824) = lu(824) - lu(796) * lu(821) + lu(825) = lu(825) - lu(797) * lu(821) + lu(827) = lu(827) - lu(798) * lu(821) + lu(828) = lu(828) - lu(799) * lu(821) + lu(829) = lu(829) - lu(800) * lu(821) + lu(830) = lu(830) - lu(801) * lu(821) + lu(831) = lu(831) - lu(802) * lu(821) + lu(832) = lu(832) - lu(803) * lu(821) + lu(833) = lu(833) - lu(804) * lu(821) + lu(834) = lu(834) - lu(805) * lu(821) + lu(835) = lu(835) - lu(806) * lu(821) + lu(836) = lu(836) - lu(807) * lu(821) + lu(837) = lu(837) - lu(808) * lu(821) + lu(838) = lu(838) - lu(809) * lu(821) + lu(840) = lu(840) - lu(810) * lu(821) + lu(841) = lu(841) - lu(811) * lu(821) + lu(842) = lu(842) - lu(812) * lu(821) + lu(845) = lu(845) - lu(813) * lu(821) + lu(846) = lu(846) - lu(814) * lu(821) + lu(866) = lu(866) - lu(795) * lu(865) + lu(867) = lu(867) - lu(796) * lu(865) + lu(868) = lu(868) - lu(797) * lu(865) + lu(870) = lu(870) - lu(798) * lu(865) + lu(871) = lu(871) - lu(799) * lu(865) + lu(872) = lu(872) - lu(800) * lu(865) + lu(873) = lu(873) - lu(801) * lu(865) + lu(874) = lu(874) - lu(802) * lu(865) + lu(875) = lu(875) - lu(803) * lu(865) + lu(876) = lu(876) - lu(804) * lu(865) + lu(877) = lu(877) - lu(805) * lu(865) + lu(878) = lu(878) - lu(806) * lu(865) + lu(879) = lu(879) - lu(807) * lu(865) + lu(880) = lu(880) - lu(808) * lu(865) + lu(881) = lu(881) - lu(809) * lu(865) + lu(883) = lu(883) - lu(810) * lu(865) + lu(884) = lu(884) - lu(811) * lu(865) + lu(885) = lu(885) - lu(812) * lu(865) + lu(887) = lu(887) - lu(813) * lu(865) + lu(888) = lu(888) - lu(814) * lu(865) + lu(907) = lu(907) - lu(795) * lu(905) + lu(908) = lu(908) - lu(796) * lu(905) + lu(909) = lu(909) - lu(797) * lu(905) + lu(911) = lu(911) - lu(798) * lu(905) + lu(912) = lu(912) - lu(799) * lu(905) + lu(913) = lu(913) - lu(800) * lu(905) + lu(914) = lu(914) - lu(801) * lu(905) + lu(915) = lu(915) - lu(802) * lu(905) + lu(916) = lu(916) - lu(803) * lu(905) + lu(917) = lu(917) - lu(804) * lu(905) + lu(918) = lu(918) - lu(805) * lu(905) + lu(919) = lu(919) - lu(806) * lu(905) + lu(920) = lu(920) - lu(807) * lu(905) + lu(921) = lu(921) - lu(808) * lu(905) + lu(922) = lu(922) - lu(809) * lu(905) + lu(924) = lu(924) - lu(810) * lu(905) + lu(925) = lu(925) - lu(811) * lu(905) + lu(926) = lu(926) - lu(812) * lu(905) + lu(929) = lu(929) - lu(813) * lu(905) + lu(930) = lu(930) - lu(814) * lu(905) + lu(954) = lu(954) - lu(795) * lu(952) + lu(955) = lu(955) - lu(796) * lu(952) + lu(956) = lu(956) - lu(797) * lu(952) + lu(958) = lu(958) - lu(798) * lu(952) + lu(959) = lu(959) - lu(799) * lu(952) + lu(960) = lu(960) - lu(800) * lu(952) + lu(961) = lu(961) - lu(801) * lu(952) + lu(962) = lu(962) - lu(802) * lu(952) + lu(963) = lu(963) - lu(803) * lu(952) + lu(964) = lu(964) - lu(804) * lu(952) + lu(965) = lu(965) - lu(805) * lu(952) + lu(966) = lu(966) - lu(806) * lu(952) + lu(967) = lu(967) - lu(807) * lu(952) + lu(968) = lu(968) - lu(808) * lu(952) + lu(969) = lu(969) - lu(809) * lu(952) + lu(971) = lu(971) - lu(810) * lu(952) + lu(972) = lu(972) - lu(811) * lu(952) + lu(973) = lu(973) - lu(812) * lu(952) + lu(976) = lu(976) - lu(813) * lu(952) + lu(977) = lu(977) - lu(814) * lu(952) + lu(996) = lu(996) - lu(795) * lu(994) + lu(997) = lu(997) - lu(796) * lu(994) + lu(998) = lu(998) - lu(797) * lu(994) + lu(1000) = lu(1000) - lu(798) * lu(994) + lu(1001) = lu(1001) - lu(799) * lu(994) + lu(1002) = lu(1002) - lu(800) * lu(994) + lu(1003) = lu(1003) - lu(801) * lu(994) + lu(1004) = lu(1004) - lu(802) * lu(994) + lu(1005) = lu(1005) - lu(803) * lu(994) + lu(1006) = lu(1006) - lu(804) * lu(994) + lu(1007) = lu(1007) - lu(805) * lu(994) + lu(1008) = lu(1008) - lu(806) * lu(994) + lu(1009) = lu(1009) - lu(807) * lu(994) + lu(1010) = lu(1010) - lu(808) * lu(994) + lu(1011) = lu(1011) - lu(809) * lu(994) + lu(1013) = lu(1013) - lu(810) * lu(994) + lu(1014) = lu(1014) - lu(811) * lu(994) + lu(1015) = lu(1015) - lu(812) * lu(994) + lu(1018) = lu(1018) - lu(813) * lu(994) + lu(1019) = lu(1019) - lu(814) * lu(994) + lu(1045) = lu(1045) - lu(795) * lu(1043) + lu(1046) = lu(1046) - lu(796) * lu(1043) + lu(1047) = lu(1047) - lu(797) * lu(1043) + lu(1049) = lu(1049) - lu(798) * lu(1043) + lu(1050) = lu(1050) - lu(799) * lu(1043) + lu(1051) = lu(1051) - lu(800) * lu(1043) + lu(1052) = lu(1052) - lu(801) * lu(1043) + lu(1053) = lu(1053) - lu(802) * lu(1043) + lu(1054) = lu(1054) - lu(803) * lu(1043) + lu(1055) = lu(1055) - lu(804) * lu(1043) + lu(1056) = lu(1056) - lu(805) * lu(1043) + lu(1057) = lu(1057) - lu(806) * lu(1043) + lu(1058) = lu(1058) - lu(807) * lu(1043) + lu(1059) = lu(1059) - lu(808) * lu(1043) + lu(1060) = lu(1060) - lu(809) * lu(1043) + lu(1062) = lu(1062) - lu(810) * lu(1043) + lu(1063) = lu(1063) - lu(811) * lu(1043) + lu(1064) = lu(1064) - lu(812) * lu(1043) + lu(1067) = lu(1067) - lu(813) * lu(1043) + lu(1068) = lu(1068) - lu(814) * lu(1043) + lu(1091) = lu(1091) - lu(795) * lu(1089) + lu(1092) = lu(1092) - lu(796) * lu(1089) + lu(1093) = lu(1093) - lu(797) * lu(1089) + lu(1095) = lu(1095) - lu(798) * lu(1089) + lu(1096) = lu(1096) - lu(799) * lu(1089) + lu(1097) = lu(1097) - lu(800) * lu(1089) + lu(1098) = lu(1098) - lu(801) * lu(1089) + lu(1099) = lu(1099) - lu(802) * lu(1089) + lu(1100) = lu(1100) - lu(803) * lu(1089) + lu(1101) = lu(1101) - lu(804) * lu(1089) + lu(1102) = lu(1102) - lu(805) * lu(1089) + lu(1103) = lu(1103) - lu(806) * lu(1089) + lu(1104) = lu(1104) - lu(807) * lu(1089) + lu(1105) = lu(1105) - lu(808) * lu(1089) + lu(1106) = lu(1106) - lu(809) * lu(1089) + lu(1108) = lu(1108) - lu(810) * lu(1089) + lu(1109) = lu(1109) - lu(811) * lu(1089) + lu(1110) = lu(1110) - lu(812) * lu(1089) + lu(1113) = lu(1113) - lu(813) * lu(1089) + lu(1114) = lu(1114) - lu(814) * lu(1089) + lu(1132) = lu(1132) - lu(795) * lu(1130) + lu(1133) = lu(1133) - lu(796) * lu(1130) + lu(1134) = lu(1134) - lu(797) * lu(1130) + lu(1136) = lu(1136) - lu(798) * lu(1130) + lu(1137) = lu(1137) - lu(799) * lu(1130) + lu(1138) = lu(1138) - lu(800) * lu(1130) + lu(1139) = lu(1139) - lu(801) * lu(1130) + lu(1140) = lu(1140) - lu(802) * lu(1130) + lu(1141) = lu(1141) - lu(803) * lu(1130) + lu(1142) = lu(1142) - lu(804) * lu(1130) + lu(1143) = lu(1143) - lu(805) * lu(1130) + lu(1144) = lu(1144) - lu(806) * lu(1130) + lu(1145) = lu(1145) - lu(807) * lu(1130) + lu(1146) = lu(1146) - lu(808) * lu(1130) + lu(1147) = lu(1147) - lu(809) * lu(1130) + lu(1149) = lu(1149) - lu(810) * lu(1130) + lu(1150) = lu(1150) - lu(811) * lu(1130) + lu(1151) = lu(1151) - lu(812) * lu(1130) + lu(1154) = lu(1154) - lu(813) * lu(1130) + lu(1155) = lu(1155) - lu(814) * lu(1130) + lu(1173) = lu(1173) - lu(795) * lu(1171) + lu(1174) = lu(1174) - lu(796) * lu(1171) + lu(1175) = lu(1175) - lu(797) * lu(1171) + lu(1177) = lu(1177) - lu(798) * lu(1171) + lu(1178) = lu(1178) - lu(799) * lu(1171) + lu(1179) = lu(1179) - lu(800) * lu(1171) + lu(1180) = lu(1180) - lu(801) * lu(1171) + lu(1181) = lu(1181) - lu(802) * lu(1171) + lu(1182) = lu(1182) - lu(803) * lu(1171) + lu(1183) = lu(1183) - lu(804) * lu(1171) + lu(1184) = lu(1184) - lu(805) * lu(1171) + lu(1185) = lu(1185) - lu(806) * lu(1171) + lu(1186) = lu(1186) - lu(807) * lu(1171) + lu(1187) = lu(1187) - lu(808) * lu(1171) + lu(1188) = lu(1188) - lu(809) * lu(1171) + lu(1190) = lu(1190) - lu(810) * lu(1171) + lu(1191) = lu(1191) - lu(811) * lu(1171) + lu(1192) = lu(1192) - lu(812) * lu(1171) + lu(1195) = lu(1195) - lu(813) * lu(1171) + lu(1196) = lu(1196) - lu(814) * lu(1171) + lu(1232) = lu(1232) - lu(795) * lu(1230) + lu(1233) = lu(1233) - lu(796) * lu(1230) + lu(1234) = lu(1234) - lu(797) * lu(1230) + lu(1236) = lu(1236) - lu(798) * lu(1230) + lu(1237) = lu(1237) - lu(799) * lu(1230) + lu(1238) = lu(1238) - lu(800) * lu(1230) + lu(1239) = lu(1239) - lu(801) * lu(1230) + lu(1240) = lu(1240) - lu(802) * lu(1230) + lu(1241) = lu(1241) - lu(803) * lu(1230) + lu(1242) = lu(1242) - lu(804) * lu(1230) + lu(1243) = lu(1243) - lu(805) * lu(1230) + lu(1244) = lu(1244) - lu(806) * lu(1230) + lu(1245) = lu(1245) - lu(807) * lu(1230) + lu(1246) = lu(1246) - lu(808) * lu(1230) + lu(1247) = lu(1247) - lu(809) * lu(1230) + lu(1249) = lu(1249) - lu(810) * lu(1230) + lu(1250) = lu(1250) - lu(811) * lu(1230) + lu(1251) = lu(1251) - lu(812) * lu(1230) + lu(1254) = lu(1254) - lu(813) * lu(1230) + lu(1255) = lu(1255) - lu(814) * lu(1230) + lu(1274) = lu(1274) - lu(795) * lu(1272) + lu(1275) = lu(1275) - lu(796) * lu(1272) + lu(1276) = lu(1276) - lu(797) * lu(1272) + lu(1278) = lu(1278) - lu(798) * lu(1272) + lu(1279) = lu(1279) - lu(799) * lu(1272) + lu(1280) = lu(1280) - lu(800) * lu(1272) + lu(1281) = lu(1281) - lu(801) * lu(1272) + lu(1282) = lu(1282) - lu(802) * lu(1272) + lu(1283) = lu(1283) - lu(803) * lu(1272) + lu(1284) = lu(1284) - lu(804) * lu(1272) + lu(1285) = lu(1285) - lu(805) * lu(1272) + lu(1286) = lu(1286) - lu(806) * lu(1272) + lu(1287) = lu(1287) - lu(807) * lu(1272) + lu(1288) = lu(1288) - lu(808) * lu(1272) + lu(1289) = lu(1289) - lu(809) * lu(1272) + lu(1291) = lu(1291) - lu(810) * lu(1272) + lu(1292) = lu(1292) - lu(811) * lu(1272) + lu(1293) = lu(1293) - lu(812) * lu(1272) + lu(1296) = lu(1296) - lu(813) * lu(1272) + lu(1297) = lu(1297) - lu(814) * lu(1272) + lu(1318) = lu(1318) - lu(795) * lu(1316) + lu(1319) = lu(1319) - lu(796) * lu(1316) + lu(1320) = lu(1320) - lu(797) * lu(1316) + lu(1322) = lu(1322) - lu(798) * lu(1316) + lu(1323) = lu(1323) - lu(799) * lu(1316) + lu(1324) = lu(1324) - lu(800) * lu(1316) + lu(1325) = lu(1325) - lu(801) * lu(1316) + lu(1326) = lu(1326) - lu(802) * lu(1316) + lu(1327) = lu(1327) - lu(803) * lu(1316) + lu(1328) = lu(1328) - lu(804) * lu(1316) + lu(1329) = lu(1329) - lu(805) * lu(1316) + lu(1330) = lu(1330) - lu(806) * lu(1316) + lu(1331) = lu(1331) - lu(807) * lu(1316) + lu(1332) = lu(1332) - lu(808) * lu(1316) + lu(1333) = lu(1333) - lu(809) * lu(1316) + lu(1335) = lu(1335) - lu(810) * lu(1316) + lu(1336) = lu(1336) - lu(811) * lu(1316) + lu(1337) = lu(1337) - lu(812) * lu(1316) + lu(1340) = lu(1340) - lu(813) * lu(1316) + lu(1341) = lu(1341) - lu(814) * lu(1316) + lu(1353) = lu(1353) - lu(795) * lu(1351) + lu(1354) = lu(1354) - lu(796) * lu(1351) + lu(1355) = lu(1355) - lu(797) * lu(1351) + lu(1357) = lu(1357) - lu(798) * lu(1351) + lu(1358) = lu(1358) - lu(799) * lu(1351) + lu(1359) = lu(1359) - lu(800) * lu(1351) + lu(1360) = lu(1360) - lu(801) * lu(1351) + lu(1361) = lu(1361) - lu(802) * lu(1351) + lu(1362) = lu(1362) - lu(803) * lu(1351) + lu(1363) = lu(1363) - lu(804) * lu(1351) + lu(1364) = lu(1364) - lu(805) * lu(1351) + lu(1365) = lu(1365) - lu(806) * lu(1351) + lu(1366) = lu(1366) - lu(807) * lu(1351) + lu(1367) = lu(1367) - lu(808) * lu(1351) + lu(1368) = lu(1368) - lu(809) * lu(1351) + lu(1370) = lu(1370) - lu(810) * lu(1351) + lu(1371) = lu(1371) - lu(811) * lu(1351) + lu(1372) = lu(1372) - lu(812) * lu(1351) + lu(1375) = lu(1375) - lu(813) * lu(1351) + lu(1376) = lu(1376) - lu(814) * lu(1351) + lu(1397) = lu(1397) - lu(795) * lu(1395) + lu(1398) = lu(1398) - lu(796) * lu(1395) + lu(1399) = lu(1399) - lu(797) * lu(1395) + lu(1401) = lu(1401) - lu(798) * lu(1395) + lu(1402) = lu(1402) - lu(799) * lu(1395) + lu(1403) = lu(1403) - lu(800) * lu(1395) + lu(1404) = lu(1404) - lu(801) * lu(1395) + lu(1405) = lu(1405) - lu(802) * lu(1395) + lu(1406) = lu(1406) - lu(803) * lu(1395) + lu(1407) = lu(1407) - lu(804) * lu(1395) + lu(1408) = lu(1408) - lu(805) * lu(1395) + lu(1409) = lu(1409) - lu(806) * lu(1395) + lu(1410) = lu(1410) - lu(807) * lu(1395) + lu(1411) = lu(1411) - lu(808) * lu(1395) + lu(1412) = lu(1412) - lu(809) * lu(1395) + lu(1414) = lu(1414) - lu(810) * lu(1395) + lu(1415) = lu(1415) - lu(811) * lu(1395) + lu(1416) = lu(1416) - lu(812) * lu(1395) + lu(1419) = lu(1419) - lu(813) * lu(1395) + lu(1420) = lu(1420) - lu(814) * lu(1395) + lu(1438) = lu(1438) - lu(795) * lu(1436) + lu(1439) = lu(1439) - lu(796) * lu(1436) + lu(1440) = lu(1440) - lu(797) * lu(1436) + lu(1442) = lu(1442) - lu(798) * lu(1436) + lu(1443) = lu(1443) - lu(799) * lu(1436) + lu(1444) = lu(1444) - lu(800) * lu(1436) + lu(1445) = lu(1445) - lu(801) * lu(1436) + lu(1446) = lu(1446) - lu(802) * lu(1436) + lu(1447) = lu(1447) - lu(803) * lu(1436) + lu(1448) = lu(1448) - lu(804) * lu(1436) + lu(1449) = lu(1449) - lu(805) * lu(1436) + lu(1450) = lu(1450) - lu(806) * lu(1436) + lu(1451) = lu(1451) - lu(807) * lu(1436) + lu(1452) = lu(1452) - lu(808) * lu(1436) + lu(1453) = lu(1453) - lu(809) * lu(1436) + lu(1455) = lu(1455) - lu(810) * lu(1436) + lu(1456) = lu(1456) - lu(811) * lu(1436) + lu(1457) = lu(1457) - lu(812) * lu(1436) + lu(1460) = lu(1460) - lu(813) * lu(1436) + lu(1461) = lu(1461) - lu(814) * lu(1436) + lu(1473) = lu(1473) - lu(795) * lu(1471) + lu(1474) = lu(1474) - lu(796) * lu(1471) + lu(1475) = lu(1475) - lu(797) * lu(1471) + lu(1477) = lu(1477) - lu(798) * lu(1471) + lu(1478) = lu(1478) - lu(799) * lu(1471) + lu(1479) = lu(1479) - lu(800) * lu(1471) + lu(1480) = lu(1480) - lu(801) * lu(1471) + lu(1481) = lu(1481) - lu(802) * lu(1471) + lu(1482) = lu(1482) - lu(803) * lu(1471) + lu(1483) = lu(1483) - lu(804) * lu(1471) + lu(1484) = lu(1484) - lu(805) * lu(1471) + lu(1485) = lu(1485) - lu(806) * lu(1471) + lu(1486) = lu(1486) - lu(807) * lu(1471) + lu(1487) = lu(1487) - lu(808) * lu(1471) + lu(1488) = lu(1488) - lu(809) * lu(1471) + lu(1490) = lu(1490) - lu(810) * lu(1471) + lu(1491) = lu(1491) - lu(811) * lu(1471) + lu(1492) = lu(1492) - lu(812) * lu(1471) + lu(1495) = lu(1495) - lu(813) * lu(1471) + lu(1496) = lu(1496) - lu(814) * lu(1471) + lu(1517) = lu(1517) - lu(795) * lu(1515) + lu(1518) = lu(1518) - lu(796) * lu(1515) + lu(1519) = lu(1519) - lu(797) * lu(1515) + lu(1521) = lu(1521) - lu(798) * lu(1515) + lu(1522) = lu(1522) - lu(799) * lu(1515) + lu(1523) = lu(1523) - lu(800) * lu(1515) + lu(1524) = lu(1524) - lu(801) * lu(1515) + lu(1525) = lu(1525) - lu(802) * lu(1515) + lu(1526) = lu(1526) - lu(803) * lu(1515) + lu(1527) = lu(1527) - lu(804) * lu(1515) + lu(1528) = lu(1528) - lu(805) * lu(1515) + lu(1529) = lu(1529) - lu(806) * lu(1515) + lu(1530) = lu(1530) - lu(807) * lu(1515) + lu(1531) = lu(1531) - lu(808) * lu(1515) + lu(1532) = lu(1532) - lu(809) * lu(1515) + lu(1534) = lu(1534) - lu(810) * lu(1515) + lu(1535) = lu(1535) - lu(811) * lu(1515) + lu(1536) = lu(1536) - lu(812) * lu(1515) + lu(1539) = lu(1539) - lu(813) * lu(1515) + lu(1540) = lu(1540) - lu(814) * lu(1515) + lu(1559) = lu(1559) - lu(795) * lu(1557) + lu(1560) = lu(1560) - lu(796) * lu(1557) + lu(1561) = lu(1561) - lu(797) * lu(1557) + lu(1563) = lu(1563) - lu(798) * lu(1557) + lu(1564) = lu(1564) - lu(799) * lu(1557) + lu(1565) = lu(1565) - lu(800) * lu(1557) + lu(1566) = lu(1566) - lu(801) * lu(1557) + lu(1567) = lu(1567) - lu(802) * lu(1557) + lu(1568) = lu(1568) - lu(803) * lu(1557) + lu(1569) = lu(1569) - lu(804) * lu(1557) + lu(1570) = lu(1570) - lu(805) * lu(1557) + lu(1571) = lu(1571) - lu(806) * lu(1557) + lu(1572) = lu(1572) - lu(807) * lu(1557) + lu(1573) = lu(1573) - lu(808) * lu(1557) + lu(1574) = lu(1574) - lu(809) * lu(1557) + lu(1576) = lu(1576) - lu(810) * lu(1557) + lu(1577) = lu(1577) - lu(811) * lu(1557) + lu(1578) = lu(1578) - lu(812) * lu(1557) + lu(1581) = lu(1581) - lu(813) * lu(1557) + lu(1582) = lu(1582) - lu(814) * lu(1557) + lu(1598) = lu(1598) - lu(795) * lu(1596) + lu(1599) = lu(1599) - lu(796) * lu(1596) + lu(1600) = lu(1600) - lu(797) * lu(1596) + lu(1602) = lu(1602) - lu(798) * lu(1596) + lu(1603) = lu(1603) - lu(799) * lu(1596) + lu(1604) = lu(1604) - lu(800) * lu(1596) + lu(1605) = lu(1605) - lu(801) * lu(1596) + lu(1606) = lu(1606) - lu(802) * lu(1596) + lu(1607) = lu(1607) - lu(803) * lu(1596) + lu(1608) = lu(1608) - lu(804) * lu(1596) + lu(1609) = lu(1609) - lu(805) * lu(1596) + lu(1610) = lu(1610) - lu(806) * lu(1596) + lu(1611) = lu(1611) - lu(807) * lu(1596) + lu(1612) = lu(1612) - lu(808) * lu(1596) + lu(1613) = lu(1613) - lu(809) * lu(1596) + lu(1615) = lu(1615) - lu(810) * lu(1596) + lu(1616) = lu(1616) - lu(811) * lu(1596) + lu(1617) = lu(1617) - lu(812) * lu(1596) + lu(1620) = lu(1620) - lu(813) * lu(1596) + lu(1621) = lu(1621) - lu(814) * lu(1596) + lu(1630) = lu(1630) - lu(795) * lu(1628) + lu(1631) = lu(1631) - lu(796) * lu(1628) + lu(1632) = lu(1632) - lu(797) * lu(1628) + lu(1634) = lu(1634) - lu(798) * lu(1628) + lu(1635) = lu(1635) - lu(799) * lu(1628) + lu(1636) = lu(1636) - lu(800) * lu(1628) + lu(1637) = lu(1637) - lu(801) * lu(1628) + lu(1638) = lu(1638) - lu(802) * lu(1628) + lu(1639) = lu(1639) - lu(803) * lu(1628) + lu(1640) = lu(1640) - lu(804) * lu(1628) + lu(1641) = lu(1641) - lu(805) * lu(1628) + lu(1642) = lu(1642) - lu(806) * lu(1628) + lu(1643) = lu(1643) - lu(807) * lu(1628) + lu(1644) = lu(1644) - lu(808) * lu(1628) + lu(1645) = lu(1645) - lu(809) * lu(1628) + lu(1647) = lu(1647) - lu(810) * lu(1628) + lu(1648) = lu(1648) - lu(811) * lu(1628) + lu(1649) = lu(1649) - lu(812) * lu(1628) + lu(1652) = lu(1652) - lu(813) * lu(1628) + lu(1653) = lu(1653) - lu(814) * lu(1628) + lu(1665) = lu(1665) - lu(795) * lu(1663) + lu(1666) = lu(1666) - lu(796) * lu(1663) + lu(1667) = lu(1667) - lu(797) * lu(1663) + lu(1669) = lu(1669) - lu(798) * lu(1663) + lu(1670) = lu(1670) - lu(799) * lu(1663) + lu(1671) = lu(1671) - lu(800) * lu(1663) + lu(1672) = lu(1672) - lu(801) * lu(1663) + lu(1673) = lu(1673) - lu(802) * lu(1663) + lu(1674) = lu(1674) - lu(803) * lu(1663) + lu(1675) = lu(1675) - lu(804) * lu(1663) + lu(1676) = lu(1676) - lu(805) * lu(1663) + lu(1677) = lu(1677) - lu(806) * lu(1663) + lu(1678) = lu(1678) - lu(807) * lu(1663) + lu(1679) = lu(1679) - lu(808) * lu(1663) + lu(1680) = lu(1680) - lu(809) * lu(1663) + lu(1682) = lu(1682) - lu(810) * lu(1663) + lu(1683) = lu(1683) - lu(811) * lu(1663) + lu(1684) = lu(1684) - lu(812) * lu(1663) + lu(1687) = lu(1687) - lu(813) * lu(1663) + lu(1688) = lu(1688) - lu(814) * lu(1663) + lu(1707) = lu(1707) - lu(795) * lu(1705) + lu(1708) = lu(1708) - lu(796) * lu(1705) + lu(1709) = lu(1709) - lu(797) * lu(1705) + lu(1711) = lu(1711) - lu(798) * lu(1705) + lu(1712) = lu(1712) - lu(799) * lu(1705) + lu(1713) = lu(1713) - lu(800) * lu(1705) + lu(1714) = lu(1714) - lu(801) * lu(1705) + lu(1715) = lu(1715) - lu(802) * lu(1705) + lu(1716) = lu(1716) - lu(803) * lu(1705) + lu(1717) = lu(1717) - lu(804) * lu(1705) + lu(1718) = lu(1718) - lu(805) * lu(1705) + lu(1719) = lu(1719) - lu(806) * lu(1705) + lu(1720) = lu(1720) - lu(807) * lu(1705) + lu(1721) = lu(1721) - lu(808) * lu(1705) + lu(1722) = lu(1722) - lu(809) * lu(1705) + lu(1724) = lu(1724) - lu(810) * lu(1705) + lu(1725) = lu(1725) - lu(811) * lu(1705) + lu(1726) = lu(1726) - lu(812) * lu(1705) + lu(1729) = lu(1729) - lu(813) * lu(1705) + lu(1730) = lu(1730) - lu(814) * lu(1705) + lu(1736) = lu(1736) - lu(795) * lu(1735) + lu(1737) = lu(1737) - lu(796) * lu(1735) + lu(1738) = lu(1738) - lu(797) * lu(1735) + lu(1740) = lu(1740) - lu(798) * lu(1735) + lu(1741) = lu(1741) - lu(799) * lu(1735) + lu(1742) = lu(1742) - lu(800) * lu(1735) + lu(1743) = lu(1743) - lu(801) * lu(1735) + lu(1744) = lu(1744) - lu(802) * lu(1735) + lu(1745) = lu(1745) - lu(803) * lu(1735) + lu(1746) = lu(1746) - lu(804) * lu(1735) + lu(1747) = - lu(805) * lu(1735) + lu(1748) = lu(1748) - lu(806) * lu(1735) + lu(1749) = lu(1749) - lu(807) * lu(1735) + lu(1750) = lu(1750) - lu(808) * lu(1735) + lu(1751) = lu(1751) - lu(809) * lu(1735) + lu(1753) = lu(1753) - lu(810) * lu(1735) + lu(1754) = lu(1754) - lu(811) * lu(1735) + lu(1755) = - lu(812) * lu(1735) + lu(1758) = lu(1758) - lu(813) * lu(1735) + lu(1759) = lu(1759) - lu(814) * lu(1735) + lu(1775) = lu(1775) - lu(795) * lu(1774) + lu(1776) = lu(1776) - lu(796) * lu(1774) + lu(1777) = lu(1777) - lu(797) * lu(1774) + lu(1779) = lu(1779) - lu(798) * lu(1774) + lu(1780) = lu(1780) - lu(799) * lu(1774) + lu(1781) = lu(1781) - lu(800) * lu(1774) + lu(1782) = lu(1782) - lu(801) * lu(1774) + lu(1783) = lu(1783) - lu(802) * lu(1774) + lu(1784) = lu(1784) - lu(803) * lu(1774) + lu(1785) = lu(1785) - lu(804) * lu(1774) + lu(1786) = lu(1786) - lu(805) * lu(1774) + lu(1787) = lu(1787) - lu(806) * lu(1774) + lu(1788) = lu(1788) - lu(807) * lu(1774) + lu(1789) = lu(1789) - lu(808) * lu(1774) + lu(1790) = lu(1790) - lu(809) * lu(1774) + lu(1792) = lu(1792) - lu(810) * lu(1774) + lu(1793) = lu(1793) - lu(811) * lu(1774) + lu(1794) = lu(1794) - lu(812) * lu(1774) + lu(1797) = lu(1797) - lu(813) * lu(1774) + lu(1798) = lu(1798) - lu(814) * lu(1774) + lu(1833) = lu(1833) - lu(795) * lu(1831) + lu(1834) = lu(1834) - lu(796) * lu(1831) + lu(1835) = lu(1835) - lu(797) * lu(1831) + lu(1837) = lu(1837) - lu(798) * lu(1831) + lu(1838) = lu(1838) - lu(799) * lu(1831) + lu(1839) = lu(1839) - lu(800) * lu(1831) + lu(1840) = lu(1840) - lu(801) * lu(1831) + lu(1841) = lu(1841) - lu(802) * lu(1831) + lu(1842) = lu(1842) - lu(803) * lu(1831) + lu(1843) = lu(1843) - lu(804) * lu(1831) + lu(1844) = lu(1844) - lu(805) * lu(1831) + lu(1845) = lu(1845) - lu(806) * lu(1831) + lu(1846) = lu(1846) - lu(807) * lu(1831) + lu(1847) = lu(1847) - lu(808) * lu(1831) + lu(1848) = lu(1848) - lu(809) * lu(1831) + lu(1850) = lu(1850) - lu(810) * lu(1831) + lu(1851) = lu(1851) - lu(811) * lu(1831) + lu(1852) = lu(1852) - lu(812) * lu(1831) + lu(1855) = lu(1855) - lu(813) * lu(1831) + lu(1856) = lu(1856) - lu(814) * lu(1831) + lu(822) = 1._r8 / lu(822) + lu(823) = lu(823) * lu(822) + lu(824) = lu(824) * lu(822) + lu(825) = lu(825) * lu(822) + lu(826) = lu(826) * lu(822) + lu(827) = lu(827) * lu(822) + lu(828) = lu(828) * lu(822) + lu(829) = lu(829) * lu(822) + lu(830) = lu(830) * lu(822) + lu(831) = lu(831) * lu(822) + lu(832) = lu(832) * lu(822) + lu(833) = lu(833) * lu(822) + lu(834) = lu(834) * lu(822) + lu(835) = lu(835) * lu(822) + lu(836) = lu(836) * lu(822) + lu(837) = lu(837) * lu(822) + lu(838) = lu(838) * lu(822) + lu(839) = lu(839) * lu(822) + lu(840) = lu(840) * lu(822) + lu(841) = lu(841) * lu(822) + lu(842) = lu(842) * lu(822) + lu(843) = lu(843) * lu(822) + lu(844) = lu(844) * lu(822) + lu(845) = lu(845) * lu(822) + lu(846) = lu(846) * lu(822) + lu(907) = lu(907) - lu(823) * lu(906) + lu(908) = lu(908) - lu(824) * lu(906) + lu(909) = lu(909) - lu(825) * lu(906) + lu(910) = lu(910) - lu(826) * lu(906) + lu(911) = lu(911) - lu(827) * lu(906) + lu(912) = lu(912) - lu(828) * lu(906) + lu(913) = lu(913) - lu(829) * lu(906) + lu(914) = lu(914) - lu(830) * lu(906) + lu(915) = lu(915) - lu(831) * lu(906) + lu(916) = lu(916) - lu(832) * lu(906) + lu(917) = lu(917) - lu(833) * lu(906) + lu(918) = lu(918) - lu(834) * lu(906) + lu(919) = lu(919) - lu(835) * lu(906) + lu(920) = lu(920) - lu(836) * lu(906) + lu(921) = lu(921) - lu(837) * lu(906) + lu(922) = lu(922) - lu(838) * lu(906) + lu(923) = lu(923) - lu(839) * lu(906) + lu(924) = lu(924) - lu(840) * lu(906) + lu(925) = lu(925) - lu(841) * lu(906) + lu(926) = lu(926) - lu(842) * lu(906) + lu(927) = lu(927) - lu(843) * lu(906) + lu(928) = lu(928) - lu(844) * lu(906) + lu(929) = lu(929) - lu(845) * lu(906) + lu(930) = lu(930) - lu(846) * lu(906) + lu(954) = lu(954) - lu(823) * lu(953) + lu(955) = lu(955) - lu(824) * lu(953) + lu(956) = lu(956) - lu(825) * lu(953) + lu(957) = lu(957) - lu(826) * lu(953) + lu(958) = lu(958) - lu(827) * lu(953) + lu(959) = lu(959) - lu(828) * lu(953) + lu(960) = lu(960) - lu(829) * lu(953) + lu(961) = lu(961) - lu(830) * lu(953) + lu(962) = lu(962) - lu(831) * lu(953) + lu(963) = lu(963) - lu(832) * lu(953) + lu(964) = lu(964) - lu(833) * lu(953) + lu(965) = lu(965) - lu(834) * lu(953) + lu(966) = lu(966) - lu(835) * lu(953) + lu(967) = lu(967) - lu(836) * lu(953) + lu(968) = lu(968) - lu(837) * lu(953) + lu(969) = lu(969) - lu(838) * lu(953) + lu(970) = lu(970) - lu(839) * lu(953) + lu(971) = lu(971) - lu(840) * lu(953) + lu(972) = lu(972) - lu(841) * lu(953) + lu(973) = lu(973) - lu(842) * lu(953) + lu(974) = lu(974) - lu(843) * lu(953) + lu(975) = lu(975) - lu(844) * lu(953) + lu(976) = lu(976) - lu(845) * lu(953) + lu(977) = lu(977) - lu(846) * lu(953) + lu(996) = lu(996) - lu(823) * lu(995) + lu(997) = lu(997) - lu(824) * lu(995) + lu(998) = lu(998) - lu(825) * lu(995) + lu(999) = lu(999) - lu(826) * lu(995) + lu(1000) = lu(1000) - lu(827) * lu(995) + lu(1001) = lu(1001) - lu(828) * lu(995) + lu(1002) = lu(1002) - lu(829) * lu(995) + lu(1003) = lu(1003) - lu(830) * lu(995) + lu(1004) = lu(1004) - lu(831) * lu(995) + lu(1005) = lu(1005) - lu(832) * lu(995) + lu(1006) = lu(1006) - lu(833) * lu(995) + lu(1007) = lu(1007) - lu(834) * lu(995) + lu(1008) = lu(1008) - lu(835) * lu(995) + lu(1009) = lu(1009) - lu(836) * lu(995) + lu(1010) = lu(1010) - lu(837) * lu(995) + lu(1011) = lu(1011) - lu(838) * lu(995) + lu(1012) = lu(1012) - lu(839) * lu(995) + lu(1013) = lu(1013) - lu(840) * lu(995) + lu(1014) = lu(1014) - lu(841) * lu(995) + lu(1015) = lu(1015) - lu(842) * lu(995) + lu(1016) = lu(1016) - lu(843) * lu(995) + lu(1017) = lu(1017) - lu(844) * lu(995) + lu(1018) = lu(1018) - lu(845) * lu(995) + lu(1019) = lu(1019) - lu(846) * lu(995) + lu(1045) = lu(1045) - lu(823) * lu(1044) + lu(1046) = lu(1046) - lu(824) * lu(1044) + lu(1047) = lu(1047) - lu(825) * lu(1044) + lu(1048) = lu(1048) - lu(826) * lu(1044) + lu(1049) = lu(1049) - lu(827) * lu(1044) + lu(1050) = lu(1050) - lu(828) * lu(1044) + lu(1051) = lu(1051) - lu(829) * lu(1044) + lu(1052) = lu(1052) - lu(830) * lu(1044) + lu(1053) = lu(1053) - lu(831) * lu(1044) + lu(1054) = lu(1054) - lu(832) * lu(1044) + lu(1055) = lu(1055) - lu(833) * lu(1044) + lu(1056) = lu(1056) - lu(834) * lu(1044) + lu(1057) = lu(1057) - lu(835) * lu(1044) + lu(1058) = lu(1058) - lu(836) * lu(1044) + lu(1059) = lu(1059) - lu(837) * lu(1044) + lu(1060) = lu(1060) - lu(838) * lu(1044) + lu(1061) = lu(1061) - lu(839) * lu(1044) + lu(1062) = lu(1062) - lu(840) * lu(1044) + lu(1063) = lu(1063) - lu(841) * lu(1044) + lu(1064) = lu(1064) - lu(842) * lu(1044) + lu(1065) = lu(1065) - lu(843) * lu(1044) + lu(1066) = lu(1066) - lu(844) * lu(1044) + lu(1067) = lu(1067) - lu(845) * lu(1044) + lu(1068) = lu(1068) - lu(846) * lu(1044) + lu(1091) = lu(1091) - lu(823) * lu(1090) + lu(1092) = lu(1092) - lu(824) * lu(1090) + lu(1093) = lu(1093) - lu(825) * lu(1090) + lu(1094) = lu(1094) - lu(826) * lu(1090) + lu(1095) = lu(1095) - lu(827) * lu(1090) + lu(1096) = lu(1096) - lu(828) * lu(1090) + lu(1097) = lu(1097) - lu(829) * lu(1090) + lu(1098) = lu(1098) - lu(830) * lu(1090) + lu(1099) = lu(1099) - lu(831) * lu(1090) + lu(1100) = lu(1100) - lu(832) * lu(1090) + lu(1101) = lu(1101) - lu(833) * lu(1090) + lu(1102) = lu(1102) - lu(834) * lu(1090) + lu(1103) = lu(1103) - lu(835) * lu(1090) + lu(1104) = lu(1104) - lu(836) * lu(1090) + lu(1105) = lu(1105) - lu(837) * lu(1090) + lu(1106) = lu(1106) - lu(838) * lu(1090) + lu(1107) = lu(1107) - lu(839) * lu(1090) + lu(1108) = lu(1108) - lu(840) * lu(1090) + lu(1109) = lu(1109) - lu(841) * lu(1090) + lu(1110) = lu(1110) - lu(842) * lu(1090) + lu(1111) = lu(1111) - lu(843) * lu(1090) + lu(1112) = lu(1112) - lu(844) * lu(1090) + lu(1113) = lu(1113) - lu(845) * lu(1090) + lu(1114) = lu(1114) - lu(846) * lu(1090) + lu(1132) = lu(1132) - lu(823) * lu(1131) + lu(1133) = lu(1133) - lu(824) * lu(1131) + lu(1134) = lu(1134) - lu(825) * lu(1131) + lu(1135) = lu(1135) - lu(826) * lu(1131) + lu(1136) = lu(1136) - lu(827) * lu(1131) + lu(1137) = lu(1137) - lu(828) * lu(1131) + lu(1138) = lu(1138) - lu(829) * lu(1131) + lu(1139) = lu(1139) - lu(830) * lu(1131) + lu(1140) = lu(1140) - lu(831) * lu(1131) + lu(1141) = lu(1141) - lu(832) * lu(1131) + lu(1142) = lu(1142) - lu(833) * lu(1131) + lu(1143) = lu(1143) - lu(834) * lu(1131) + lu(1144) = lu(1144) - lu(835) * lu(1131) + lu(1145) = lu(1145) - lu(836) * lu(1131) + lu(1146) = lu(1146) - lu(837) * lu(1131) + lu(1147) = lu(1147) - lu(838) * lu(1131) + lu(1148) = lu(1148) - lu(839) * lu(1131) + lu(1149) = lu(1149) - lu(840) * lu(1131) + lu(1150) = lu(1150) - lu(841) * lu(1131) + lu(1151) = lu(1151) - lu(842) * lu(1131) + lu(1152) = lu(1152) - lu(843) * lu(1131) + lu(1153) = lu(1153) - lu(844) * lu(1131) + lu(1154) = lu(1154) - lu(845) * lu(1131) + lu(1155) = lu(1155) - lu(846) * lu(1131) + lu(1173) = lu(1173) - lu(823) * lu(1172) + lu(1174) = lu(1174) - lu(824) * lu(1172) + lu(1175) = lu(1175) - lu(825) * lu(1172) + lu(1176) = lu(1176) - lu(826) * lu(1172) + lu(1177) = lu(1177) - lu(827) * lu(1172) + lu(1178) = lu(1178) - lu(828) * lu(1172) + lu(1179) = lu(1179) - lu(829) * lu(1172) + lu(1180) = lu(1180) - lu(830) * lu(1172) + lu(1181) = lu(1181) - lu(831) * lu(1172) + lu(1182) = lu(1182) - lu(832) * lu(1172) + lu(1183) = lu(1183) - lu(833) * lu(1172) + lu(1184) = lu(1184) - lu(834) * lu(1172) + lu(1185) = lu(1185) - lu(835) * lu(1172) + lu(1186) = lu(1186) - lu(836) * lu(1172) + lu(1187) = lu(1187) - lu(837) * lu(1172) + lu(1188) = lu(1188) - lu(838) * lu(1172) + lu(1189) = lu(1189) - lu(839) * lu(1172) + lu(1190) = lu(1190) - lu(840) * lu(1172) + lu(1191) = lu(1191) - lu(841) * lu(1172) + lu(1192) = lu(1192) - lu(842) * lu(1172) + lu(1193) = lu(1193) - lu(843) * lu(1172) + lu(1194) = lu(1194) - lu(844) * lu(1172) + lu(1195) = lu(1195) - lu(845) * lu(1172) + lu(1196) = lu(1196) - lu(846) * lu(1172) + lu(1232) = lu(1232) - lu(823) * lu(1231) + lu(1233) = lu(1233) - lu(824) * lu(1231) + lu(1234) = lu(1234) - lu(825) * lu(1231) + lu(1235) = lu(1235) - lu(826) * lu(1231) + lu(1236) = lu(1236) - lu(827) * lu(1231) + lu(1237) = lu(1237) - lu(828) * lu(1231) + lu(1238) = lu(1238) - lu(829) * lu(1231) + lu(1239) = lu(1239) - lu(830) * lu(1231) + lu(1240) = lu(1240) - lu(831) * lu(1231) + lu(1241) = lu(1241) - lu(832) * lu(1231) + lu(1242) = lu(1242) - lu(833) * lu(1231) + lu(1243) = lu(1243) - lu(834) * lu(1231) + lu(1244) = lu(1244) - lu(835) * lu(1231) + lu(1245) = lu(1245) - lu(836) * lu(1231) + lu(1246) = lu(1246) - lu(837) * lu(1231) + lu(1247) = lu(1247) - lu(838) * lu(1231) + lu(1248) = lu(1248) - lu(839) * lu(1231) + lu(1249) = lu(1249) - lu(840) * lu(1231) + lu(1250) = lu(1250) - lu(841) * lu(1231) + lu(1251) = lu(1251) - lu(842) * lu(1231) + lu(1252) = lu(1252) - lu(843) * lu(1231) + lu(1253) = lu(1253) - lu(844) * lu(1231) + lu(1254) = lu(1254) - lu(845) * lu(1231) + lu(1255) = lu(1255) - lu(846) * lu(1231) + lu(1274) = lu(1274) - lu(823) * lu(1273) + lu(1275) = lu(1275) - lu(824) * lu(1273) + lu(1276) = lu(1276) - lu(825) * lu(1273) + lu(1277) = lu(1277) - lu(826) * lu(1273) + lu(1278) = lu(1278) - lu(827) * lu(1273) + lu(1279) = lu(1279) - lu(828) * lu(1273) + lu(1280) = lu(1280) - lu(829) * lu(1273) + lu(1281) = lu(1281) - lu(830) * lu(1273) + lu(1282) = lu(1282) - lu(831) * lu(1273) + lu(1283) = lu(1283) - lu(832) * lu(1273) + lu(1284) = lu(1284) - lu(833) * lu(1273) + lu(1285) = lu(1285) - lu(834) * lu(1273) + lu(1286) = lu(1286) - lu(835) * lu(1273) + lu(1287) = lu(1287) - lu(836) * lu(1273) + lu(1288) = lu(1288) - lu(837) * lu(1273) + lu(1289) = lu(1289) - lu(838) * lu(1273) + lu(1290) = lu(1290) - lu(839) * lu(1273) + lu(1291) = lu(1291) - lu(840) * lu(1273) + lu(1292) = lu(1292) - lu(841) * lu(1273) + lu(1293) = lu(1293) - lu(842) * lu(1273) + lu(1294) = lu(1294) - lu(843) * lu(1273) + lu(1295) = lu(1295) - lu(844) * lu(1273) + lu(1296) = lu(1296) - lu(845) * lu(1273) + lu(1297) = lu(1297) - lu(846) * lu(1273) + lu(1318) = lu(1318) - lu(823) * lu(1317) + lu(1319) = lu(1319) - lu(824) * lu(1317) + lu(1320) = lu(1320) - lu(825) * lu(1317) + lu(1321) = lu(1321) - lu(826) * lu(1317) + lu(1322) = lu(1322) - lu(827) * lu(1317) + lu(1323) = lu(1323) - lu(828) * lu(1317) + lu(1324) = lu(1324) - lu(829) * lu(1317) + lu(1325) = lu(1325) - lu(830) * lu(1317) + lu(1326) = lu(1326) - lu(831) * lu(1317) + lu(1327) = lu(1327) - lu(832) * lu(1317) + lu(1328) = lu(1328) - lu(833) * lu(1317) + lu(1329) = lu(1329) - lu(834) * lu(1317) + lu(1330) = lu(1330) - lu(835) * lu(1317) + lu(1331) = lu(1331) - lu(836) * lu(1317) + lu(1332) = lu(1332) - lu(837) * lu(1317) + lu(1333) = lu(1333) - lu(838) * lu(1317) + lu(1334) = lu(1334) - lu(839) * lu(1317) + lu(1335) = lu(1335) - lu(840) * lu(1317) + lu(1336) = lu(1336) - lu(841) * lu(1317) + lu(1337) = lu(1337) - lu(842) * lu(1317) + lu(1338) = lu(1338) - lu(843) * lu(1317) + lu(1339) = lu(1339) - lu(844) * lu(1317) + lu(1340) = lu(1340) - lu(845) * lu(1317) + lu(1341) = lu(1341) - lu(846) * lu(1317) + lu(1353) = lu(1353) - lu(823) * lu(1352) + lu(1354) = lu(1354) - lu(824) * lu(1352) + lu(1355) = lu(1355) - lu(825) * lu(1352) + lu(1356) = lu(1356) - lu(826) * lu(1352) + lu(1357) = lu(1357) - lu(827) * lu(1352) + lu(1358) = lu(1358) - lu(828) * lu(1352) + lu(1359) = lu(1359) - lu(829) * lu(1352) + lu(1360) = lu(1360) - lu(830) * lu(1352) + lu(1361) = lu(1361) - lu(831) * lu(1352) + lu(1362) = lu(1362) - lu(832) * lu(1352) + lu(1363) = lu(1363) - lu(833) * lu(1352) + lu(1364) = lu(1364) - lu(834) * lu(1352) + lu(1365) = lu(1365) - lu(835) * lu(1352) + lu(1366) = lu(1366) - lu(836) * lu(1352) + lu(1367) = lu(1367) - lu(837) * lu(1352) + lu(1368) = lu(1368) - lu(838) * lu(1352) + lu(1369) = lu(1369) - lu(839) * lu(1352) + lu(1370) = lu(1370) - lu(840) * lu(1352) + lu(1371) = lu(1371) - lu(841) * lu(1352) + lu(1372) = lu(1372) - lu(842) * lu(1352) + lu(1373) = lu(1373) - lu(843) * lu(1352) + lu(1374) = lu(1374) - lu(844) * lu(1352) + lu(1375) = lu(1375) - lu(845) * lu(1352) + lu(1376) = lu(1376) - lu(846) * lu(1352) + lu(1397) = lu(1397) - lu(823) * lu(1396) + lu(1398) = lu(1398) - lu(824) * lu(1396) + lu(1399) = lu(1399) - lu(825) * lu(1396) + lu(1400) = lu(1400) - lu(826) * lu(1396) + lu(1401) = lu(1401) - lu(827) * lu(1396) + lu(1402) = lu(1402) - lu(828) * lu(1396) + lu(1403) = lu(1403) - lu(829) * lu(1396) + lu(1404) = lu(1404) - lu(830) * lu(1396) + lu(1405) = lu(1405) - lu(831) * lu(1396) + lu(1406) = lu(1406) - lu(832) * lu(1396) + lu(1407) = lu(1407) - lu(833) * lu(1396) + lu(1408) = lu(1408) - lu(834) * lu(1396) + lu(1409) = lu(1409) - lu(835) * lu(1396) + lu(1410) = lu(1410) - lu(836) * lu(1396) + lu(1411) = lu(1411) - lu(837) * lu(1396) + lu(1412) = lu(1412) - lu(838) * lu(1396) + lu(1413) = lu(1413) - lu(839) * lu(1396) + lu(1414) = lu(1414) - lu(840) * lu(1396) + lu(1415) = lu(1415) - lu(841) * lu(1396) + lu(1416) = lu(1416) - lu(842) * lu(1396) + lu(1417) = lu(1417) - lu(843) * lu(1396) + lu(1418) = lu(1418) - lu(844) * lu(1396) + lu(1419) = lu(1419) - lu(845) * lu(1396) + lu(1420) = lu(1420) - lu(846) * lu(1396) + lu(1438) = lu(1438) - lu(823) * lu(1437) + lu(1439) = lu(1439) - lu(824) * lu(1437) + lu(1440) = lu(1440) - lu(825) * lu(1437) + lu(1441) = lu(1441) - lu(826) * lu(1437) + lu(1442) = lu(1442) - lu(827) * lu(1437) + lu(1443) = lu(1443) - lu(828) * lu(1437) + lu(1444) = lu(1444) - lu(829) * lu(1437) + lu(1445) = lu(1445) - lu(830) * lu(1437) + lu(1446) = lu(1446) - lu(831) * lu(1437) + lu(1447) = lu(1447) - lu(832) * lu(1437) + lu(1448) = lu(1448) - lu(833) * lu(1437) + lu(1449) = lu(1449) - lu(834) * lu(1437) + lu(1450) = lu(1450) - lu(835) * lu(1437) + lu(1451) = lu(1451) - lu(836) * lu(1437) + lu(1452) = lu(1452) - lu(837) * lu(1437) + lu(1453) = lu(1453) - lu(838) * lu(1437) + lu(1454) = lu(1454) - lu(839) * lu(1437) + lu(1455) = lu(1455) - lu(840) * lu(1437) + lu(1456) = lu(1456) - lu(841) * lu(1437) + lu(1457) = lu(1457) - lu(842) * lu(1437) + lu(1458) = lu(1458) - lu(843) * lu(1437) + lu(1459) = lu(1459) - lu(844) * lu(1437) + lu(1460) = lu(1460) - lu(845) * lu(1437) + lu(1461) = lu(1461) - lu(846) * lu(1437) + lu(1473) = lu(1473) - lu(823) * lu(1472) + lu(1474) = lu(1474) - lu(824) * lu(1472) + lu(1475) = lu(1475) - lu(825) * lu(1472) + lu(1476) = lu(1476) - lu(826) * lu(1472) + lu(1477) = lu(1477) - lu(827) * lu(1472) + lu(1478) = lu(1478) - lu(828) * lu(1472) + lu(1479) = lu(1479) - lu(829) * lu(1472) + lu(1480) = lu(1480) - lu(830) * lu(1472) + lu(1481) = lu(1481) - lu(831) * lu(1472) + lu(1482) = lu(1482) - lu(832) * lu(1472) + lu(1483) = lu(1483) - lu(833) * lu(1472) + lu(1484) = lu(1484) - lu(834) * lu(1472) + lu(1485) = lu(1485) - lu(835) * lu(1472) + lu(1486) = lu(1486) - lu(836) * lu(1472) + lu(1487) = lu(1487) - lu(837) * lu(1472) + lu(1488) = lu(1488) - lu(838) * lu(1472) + lu(1489) = lu(1489) - lu(839) * lu(1472) + lu(1490) = lu(1490) - lu(840) * lu(1472) + lu(1491) = lu(1491) - lu(841) * lu(1472) + lu(1492) = lu(1492) - lu(842) * lu(1472) + lu(1493) = lu(1493) - lu(843) * lu(1472) + lu(1494) = lu(1494) - lu(844) * lu(1472) + lu(1495) = lu(1495) - lu(845) * lu(1472) + lu(1496) = lu(1496) - lu(846) * lu(1472) + lu(1517) = lu(1517) - lu(823) * lu(1516) + lu(1518) = lu(1518) - lu(824) * lu(1516) + lu(1519) = lu(1519) - lu(825) * lu(1516) + lu(1520) = lu(1520) - lu(826) * lu(1516) + lu(1521) = lu(1521) - lu(827) * lu(1516) + lu(1522) = lu(1522) - lu(828) * lu(1516) + lu(1523) = lu(1523) - lu(829) * lu(1516) + lu(1524) = lu(1524) - lu(830) * lu(1516) + lu(1525) = lu(1525) - lu(831) * lu(1516) + lu(1526) = lu(1526) - lu(832) * lu(1516) + lu(1527) = lu(1527) - lu(833) * lu(1516) + lu(1528) = lu(1528) - lu(834) * lu(1516) + lu(1529) = lu(1529) - lu(835) * lu(1516) + lu(1530) = lu(1530) - lu(836) * lu(1516) + lu(1531) = lu(1531) - lu(837) * lu(1516) + lu(1532) = lu(1532) - lu(838) * lu(1516) + lu(1533) = lu(1533) - lu(839) * lu(1516) + lu(1534) = lu(1534) - lu(840) * lu(1516) + lu(1535) = lu(1535) - lu(841) * lu(1516) + lu(1536) = lu(1536) - lu(842) * lu(1516) + lu(1537) = lu(1537) - lu(843) * lu(1516) + lu(1538) = lu(1538) - lu(844) * lu(1516) + lu(1539) = lu(1539) - lu(845) * lu(1516) + lu(1540) = lu(1540) - lu(846) * lu(1516) + lu(1559) = lu(1559) - lu(823) * lu(1558) + lu(1560) = lu(1560) - lu(824) * lu(1558) + lu(1561) = lu(1561) - lu(825) * lu(1558) + lu(1562) = lu(1562) - lu(826) * lu(1558) + lu(1563) = lu(1563) - lu(827) * lu(1558) + lu(1564) = lu(1564) - lu(828) * lu(1558) + lu(1565) = lu(1565) - lu(829) * lu(1558) + lu(1566) = lu(1566) - lu(830) * lu(1558) + lu(1567) = lu(1567) - lu(831) * lu(1558) + lu(1568) = lu(1568) - lu(832) * lu(1558) + lu(1569) = lu(1569) - lu(833) * lu(1558) + lu(1570) = lu(1570) - lu(834) * lu(1558) + lu(1571) = lu(1571) - lu(835) * lu(1558) + lu(1572) = lu(1572) - lu(836) * lu(1558) + lu(1573) = lu(1573) - lu(837) * lu(1558) + lu(1574) = lu(1574) - lu(838) * lu(1558) + lu(1575) = lu(1575) - lu(839) * lu(1558) + lu(1576) = lu(1576) - lu(840) * lu(1558) + lu(1577) = lu(1577) - lu(841) * lu(1558) + lu(1578) = lu(1578) - lu(842) * lu(1558) + lu(1579) = lu(1579) - lu(843) * lu(1558) + lu(1580) = lu(1580) - lu(844) * lu(1558) + lu(1581) = lu(1581) - lu(845) * lu(1558) + lu(1582) = lu(1582) - lu(846) * lu(1558) + lu(1598) = lu(1598) - lu(823) * lu(1597) + lu(1599) = lu(1599) - lu(824) * lu(1597) + lu(1600) = lu(1600) - lu(825) * lu(1597) + lu(1601) = lu(1601) - lu(826) * lu(1597) + lu(1602) = lu(1602) - lu(827) * lu(1597) + lu(1603) = lu(1603) - lu(828) * lu(1597) + lu(1604) = lu(1604) - lu(829) * lu(1597) + lu(1605) = lu(1605) - lu(830) * lu(1597) + lu(1606) = lu(1606) - lu(831) * lu(1597) + lu(1607) = lu(1607) - lu(832) * lu(1597) + lu(1608) = lu(1608) - lu(833) * lu(1597) + lu(1609) = lu(1609) - lu(834) * lu(1597) + lu(1610) = lu(1610) - lu(835) * lu(1597) + lu(1611) = lu(1611) - lu(836) * lu(1597) + lu(1612) = lu(1612) - lu(837) * lu(1597) + lu(1613) = lu(1613) - lu(838) * lu(1597) + lu(1614) = lu(1614) - lu(839) * lu(1597) + lu(1615) = lu(1615) - lu(840) * lu(1597) + lu(1616) = lu(1616) - lu(841) * lu(1597) + lu(1617) = lu(1617) - lu(842) * lu(1597) + lu(1618) = lu(1618) - lu(843) * lu(1597) + lu(1619) = lu(1619) - lu(844) * lu(1597) + lu(1620) = lu(1620) - lu(845) * lu(1597) + lu(1621) = lu(1621) - lu(846) * lu(1597) + lu(1630) = lu(1630) - lu(823) * lu(1629) + lu(1631) = lu(1631) - lu(824) * lu(1629) + lu(1632) = lu(1632) - lu(825) * lu(1629) + lu(1633) = lu(1633) - lu(826) * lu(1629) + lu(1634) = lu(1634) - lu(827) * lu(1629) + lu(1635) = lu(1635) - lu(828) * lu(1629) + lu(1636) = lu(1636) - lu(829) * lu(1629) + lu(1637) = lu(1637) - lu(830) * lu(1629) + lu(1638) = lu(1638) - lu(831) * lu(1629) + lu(1639) = lu(1639) - lu(832) * lu(1629) + lu(1640) = lu(1640) - lu(833) * lu(1629) + lu(1641) = lu(1641) - lu(834) * lu(1629) + lu(1642) = lu(1642) - lu(835) * lu(1629) + lu(1643) = lu(1643) - lu(836) * lu(1629) + lu(1644) = lu(1644) - lu(837) * lu(1629) + lu(1645) = lu(1645) - lu(838) * lu(1629) + lu(1646) = lu(1646) - lu(839) * lu(1629) + lu(1647) = lu(1647) - lu(840) * lu(1629) + lu(1648) = lu(1648) - lu(841) * lu(1629) + lu(1649) = lu(1649) - lu(842) * lu(1629) + lu(1650) = lu(1650) - lu(843) * lu(1629) + lu(1651) = lu(1651) - lu(844) * lu(1629) + lu(1652) = lu(1652) - lu(845) * lu(1629) + lu(1653) = lu(1653) - lu(846) * lu(1629) + lu(1665) = lu(1665) - lu(823) * lu(1664) + lu(1666) = lu(1666) - lu(824) * lu(1664) + lu(1667) = lu(1667) - lu(825) * lu(1664) + lu(1668) = lu(1668) - lu(826) * lu(1664) + lu(1669) = lu(1669) - lu(827) * lu(1664) + lu(1670) = lu(1670) - lu(828) * lu(1664) + lu(1671) = lu(1671) - lu(829) * lu(1664) + lu(1672) = lu(1672) - lu(830) * lu(1664) + lu(1673) = lu(1673) - lu(831) * lu(1664) + lu(1674) = lu(1674) - lu(832) * lu(1664) + lu(1675) = lu(1675) - lu(833) * lu(1664) + lu(1676) = lu(1676) - lu(834) * lu(1664) + lu(1677) = lu(1677) - lu(835) * lu(1664) + lu(1678) = lu(1678) - lu(836) * lu(1664) + lu(1679) = lu(1679) - lu(837) * lu(1664) + lu(1680) = lu(1680) - lu(838) * lu(1664) + lu(1681) = lu(1681) - lu(839) * lu(1664) + lu(1682) = lu(1682) - lu(840) * lu(1664) + lu(1683) = lu(1683) - lu(841) * lu(1664) + lu(1684) = lu(1684) - lu(842) * lu(1664) + lu(1685) = lu(1685) - lu(843) * lu(1664) + lu(1686) = lu(1686) - lu(844) * lu(1664) + lu(1687) = lu(1687) - lu(845) * lu(1664) + lu(1688) = lu(1688) - lu(846) * lu(1664) + lu(1707) = lu(1707) - lu(823) * lu(1706) + lu(1708) = lu(1708) - lu(824) * lu(1706) + lu(1709) = lu(1709) - lu(825) * lu(1706) + lu(1710) = lu(1710) - lu(826) * lu(1706) + lu(1711) = lu(1711) - lu(827) * lu(1706) + lu(1712) = lu(1712) - lu(828) * lu(1706) + lu(1713) = lu(1713) - lu(829) * lu(1706) + lu(1714) = lu(1714) - lu(830) * lu(1706) + lu(1715) = lu(1715) - lu(831) * lu(1706) + lu(1716) = lu(1716) - lu(832) * lu(1706) + lu(1717) = lu(1717) - lu(833) * lu(1706) + lu(1718) = lu(1718) - lu(834) * lu(1706) + lu(1719) = lu(1719) - lu(835) * lu(1706) + lu(1720) = lu(1720) - lu(836) * lu(1706) + lu(1721) = lu(1721) - lu(837) * lu(1706) + lu(1722) = lu(1722) - lu(838) * lu(1706) + lu(1723) = lu(1723) - lu(839) * lu(1706) + lu(1724) = lu(1724) - lu(840) * lu(1706) + lu(1725) = lu(1725) - lu(841) * lu(1706) + lu(1726) = lu(1726) - lu(842) * lu(1706) + lu(1727) = lu(1727) - lu(843) * lu(1706) + lu(1728) = lu(1728) - lu(844) * lu(1706) + lu(1729) = lu(1729) - lu(845) * lu(1706) + lu(1730) = lu(1730) - lu(846) * lu(1706) + lu(1833) = lu(1833) - lu(823) * lu(1832) + lu(1834) = lu(1834) - lu(824) * lu(1832) + lu(1835) = lu(1835) - lu(825) * lu(1832) + lu(1836) = lu(1836) - lu(826) * lu(1832) + lu(1837) = lu(1837) - lu(827) * lu(1832) + lu(1838) = lu(1838) - lu(828) * lu(1832) + lu(1839) = lu(1839) - lu(829) * lu(1832) + lu(1840) = lu(1840) - lu(830) * lu(1832) + lu(1841) = lu(1841) - lu(831) * lu(1832) + lu(1842) = lu(1842) - lu(832) * lu(1832) + lu(1843) = lu(1843) - lu(833) * lu(1832) + lu(1844) = lu(1844) - lu(834) * lu(1832) + lu(1845) = lu(1845) - lu(835) * lu(1832) + lu(1846) = lu(1846) - lu(836) * lu(1832) + lu(1847) = lu(1847) - lu(837) * lu(1832) + lu(1848) = lu(1848) - lu(838) * lu(1832) + lu(1849) = lu(1849) - lu(839) * lu(1832) + lu(1850) = lu(1850) - lu(840) * lu(1832) + lu(1851) = lu(1851) - lu(841) * lu(1832) + lu(1852) = lu(1852) - lu(842) * lu(1832) + lu(1853) = lu(1853) - lu(843) * lu(1832) + lu(1854) = lu(1854) - lu(844) * lu(1832) + lu(1855) = lu(1855) - lu(845) * lu(1832) + lu(1856) = lu(1856) - lu(846) * lu(1832) end subroutine lu_fac18 - subroutine lu_fac19( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac19( lu ) 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,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,859) = lu(k,859) * lu(k,852) - lu(k,860) = lu(k,860) * lu(k,852) - lu(k,861) = lu(k,861) * lu(k,852) - lu(k,862) = lu(k,862) * lu(k,852) - lu(k,863) = lu(k,863) * lu(k,852) - lu(k,864) = lu(k,864) * lu(k,852) - lu(k,865) = lu(k,865) * lu(k,852) - lu(k,866) = lu(k,866) * lu(k,852) - lu(k,867) = lu(k,867) * lu(k,852) - lu(k,868) = lu(k,868) * lu(k,852) - lu(k,869) = lu(k,869) * lu(k,852) - lu(k,870) = lu(k,870) * lu(k,852) - lu(k,871) = lu(k,871) * lu(k,852) - lu(k,872) = lu(k,872) * lu(k,852) - lu(k,873) = lu(k,873) * lu(k,852) - lu(k,874) = lu(k,874) * lu(k,852) - lu(k,875) = lu(k,875) * lu(k,852) - lu(k,900) = lu(k,900) - lu(k,853) * lu(k,899) - lu(k,901) = lu(k,901) - lu(k,854) * lu(k,899) - lu(k,902) = lu(k,902) - lu(k,855) * lu(k,899) - lu(k,903) = lu(k,903) - lu(k,856) * lu(k,899) - lu(k,904) = lu(k,904) - lu(k,857) * lu(k,899) - lu(k,905) = lu(k,905) - lu(k,858) * lu(k,899) - lu(k,906) = lu(k,906) - lu(k,859) * lu(k,899) - lu(k,907) = lu(k,907) - lu(k,860) * lu(k,899) - lu(k,908) = lu(k,908) - lu(k,861) * lu(k,899) - lu(k,909) = lu(k,909) - lu(k,862) * lu(k,899) - lu(k,910) = lu(k,910) - lu(k,863) * lu(k,899) - lu(k,911) = lu(k,911) - lu(k,864) * lu(k,899) - lu(k,912) = lu(k,912) - lu(k,865) * lu(k,899) - lu(k,913) = lu(k,913) - lu(k,866) * lu(k,899) - lu(k,914) = lu(k,914) - lu(k,867) * lu(k,899) - lu(k,915) = lu(k,915) - lu(k,868) * lu(k,899) - lu(k,916) = lu(k,916) - lu(k,869) * lu(k,899) - lu(k,917) = lu(k,917) - lu(k,870) * lu(k,899) - lu(k,918) = lu(k,918) - lu(k,871) * lu(k,899) - lu(k,919) = lu(k,919) - lu(k,872) * lu(k,899) - lu(k,920) = lu(k,920) - lu(k,873) * lu(k,899) - lu(k,921) = lu(k,921) - lu(k,874) * lu(k,899) - lu(k,922) = lu(k,922) - lu(k,875) * lu(k,899) - lu(k,942) = lu(k,942) - lu(k,853) * lu(k,941) - lu(k,943) = lu(k,943) - lu(k,854) * lu(k,941) - lu(k,944) = lu(k,944) - lu(k,855) * lu(k,941) - lu(k,945) = lu(k,945) - lu(k,856) * lu(k,941) - lu(k,946) = lu(k,946) - lu(k,857) * lu(k,941) - lu(k,947) = lu(k,947) - lu(k,858) * lu(k,941) - lu(k,948) = lu(k,948) - lu(k,859) * lu(k,941) - lu(k,949) = lu(k,949) - lu(k,860) * lu(k,941) - lu(k,950) = lu(k,950) - lu(k,861) * lu(k,941) - lu(k,951) = lu(k,951) - lu(k,862) * lu(k,941) - lu(k,952) = lu(k,952) - lu(k,863) * lu(k,941) - lu(k,953) = lu(k,953) - lu(k,864) * lu(k,941) - lu(k,954) = lu(k,954) - lu(k,865) * lu(k,941) - lu(k,955) = lu(k,955) - lu(k,866) * lu(k,941) - lu(k,956) = lu(k,956) - lu(k,867) * lu(k,941) - lu(k,957) = lu(k,957) - lu(k,868) * lu(k,941) - lu(k,958) = lu(k,958) - lu(k,869) * lu(k,941) - lu(k,959) = lu(k,959) - lu(k,870) * lu(k,941) - lu(k,960) = lu(k,960) - lu(k,871) * lu(k,941) - lu(k,961) = lu(k,961) - lu(k,872) * lu(k,941) - lu(k,962) = lu(k,962) - lu(k,873) * lu(k,941) - lu(k,963) = lu(k,963) - lu(k,874) * lu(k,941) - lu(k,964) = lu(k,964) - lu(k,875) * lu(k,941) - lu(k,988) = lu(k,988) - lu(k,853) * lu(k,987) - lu(k,989) = lu(k,989) - lu(k,854) * lu(k,987) - lu(k,990) = lu(k,990) - lu(k,855) * lu(k,987) - lu(k,991) = lu(k,991) - lu(k,856) * lu(k,987) - lu(k,992) = lu(k,992) - lu(k,857) * lu(k,987) - lu(k,993) = lu(k,993) - lu(k,858) * lu(k,987) - lu(k,994) = lu(k,994) - lu(k,859) * lu(k,987) - lu(k,995) = lu(k,995) - lu(k,860) * lu(k,987) - lu(k,996) = lu(k,996) - lu(k,861) * lu(k,987) - lu(k,997) = lu(k,997) - lu(k,862) * lu(k,987) - lu(k,998) = lu(k,998) - lu(k,863) * lu(k,987) - lu(k,999) = lu(k,999) - lu(k,864) * lu(k,987) - lu(k,1000) = lu(k,1000) - lu(k,865) * lu(k,987) - lu(k,1001) = lu(k,1001) - lu(k,866) * lu(k,987) - lu(k,1002) = lu(k,1002) - lu(k,867) * lu(k,987) - lu(k,1003) = lu(k,1003) - lu(k,868) * lu(k,987) - lu(k,1004) = lu(k,1004) - lu(k,869) * lu(k,987) - lu(k,1005) = lu(k,1005) - lu(k,870) * lu(k,987) - lu(k,1006) = lu(k,1006) - lu(k,871) * lu(k,987) - lu(k,1007) = lu(k,1007) - lu(k,872) * lu(k,987) - lu(k,1008) = lu(k,1008) - lu(k,873) * lu(k,987) - lu(k,1009) = lu(k,1009) - lu(k,874) * lu(k,987) - lu(k,1010) = lu(k,1010) - lu(k,875) * lu(k,987) - lu(k,1030) = lu(k,1030) - lu(k,853) * lu(k,1029) - lu(k,1031) = lu(k,1031) - lu(k,854) * lu(k,1029) - lu(k,1032) = lu(k,1032) - lu(k,855) * lu(k,1029) - lu(k,1033) = lu(k,1033) - lu(k,856) * lu(k,1029) - lu(k,1034) = lu(k,1034) - lu(k,857) * lu(k,1029) - lu(k,1035) = lu(k,1035) - lu(k,858) * lu(k,1029) - lu(k,1036) = lu(k,1036) - lu(k,859) * lu(k,1029) - lu(k,1037) = lu(k,1037) - lu(k,860) * lu(k,1029) - lu(k,1038) = lu(k,1038) - lu(k,861) * lu(k,1029) - lu(k,1039) = lu(k,1039) - lu(k,862) * lu(k,1029) - lu(k,1040) = lu(k,1040) - lu(k,863) * lu(k,1029) - lu(k,1041) = lu(k,1041) - lu(k,864) * lu(k,1029) - lu(k,1042) = lu(k,1042) - lu(k,865) * lu(k,1029) - lu(k,1043) = lu(k,1043) - lu(k,866) * lu(k,1029) - lu(k,1044) = lu(k,1044) - lu(k,867) * lu(k,1029) - lu(k,1045) = lu(k,1045) - lu(k,868) * lu(k,1029) - lu(k,1046) = lu(k,1046) - lu(k,869) * lu(k,1029) - lu(k,1047) = lu(k,1047) - lu(k,870) * lu(k,1029) - lu(k,1048) = lu(k,1048) - lu(k,871) * lu(k,1029) - lu(k,1049) = lu(k,1049) - lu(k,872) * lu(k,1029) - lu(k,1050) = lu(k,1050) - lu(k,873) * lu(k,1029) - lu(k,1051) = lu(k,1051) - lu(k,874) * lu(k,1029) - lu(k,1052) = lu(k,1052) - lu(k,875) * lu(k,1029) - lu(k,1071) = lu(k,1071) - lu(k,853) * lu(k,1070) - lu(k,1072) = lu(k,1072) - lu(k,854) * lu(k,1070) - lu(k,1073) = lu(k,1073) - lu(k,855) * lu(k,1070) - lu(k,1074) = lu(k,1074) - lu(k,856) * lu(k,1070) - lu(k,1075) = lu(k,1075) - lu(k,857) * lu(k,1070) - lu(k,1076) = lu(k,1076) - lu(k,858) * lu(k,1070) - lu(k,1077) = lu(k,1077) - lu(k,859) * lu(k,1070) - lu(k,1078) = lu(k,1078) - lu(k,860) * lu(k,1070) - lu(k,1079) = lu(k,1079) - lu(k,861) * lu(k,1070) - lu(k,1080) = lu(k,1080) - lu(k,862) * lu(k,1070) - lu(k,1081) = lu(k,1081) - lu(k,863) * lu(k,1070) - lu(k,1082) = lu(k,1082) - lu(k,864) * lu(k,1070) - lu(k,1083) = lu(k,1083) - lu(k,865) * lu(k,1070) - lu(k,1084) = lu(k,1084) - lu(k,866) * lu(k,1070) - lu(k,1085) = lu(k,1085) - lu(k,867) * lu(k,1070) - lu(k,1086) = lu(k,1086) - lu(k,868) * lu(k,1070) - lu(k,1087) = lu(k,1087) - lu(k,869) * lu(k,1070) - lu(k,1088) = lu(k,1088) - lu(k,870) * lu(k,1070) - lu(k,1089) = lu(k,1089) - lu(k,871) * lu(k,1070) - lu(k,1090) = lu(k,1090) - lu(k,872) * lu(k,1070) - lu(k,1091) = lu(k,1091) - lu(k,873) * lu(k,1070) - lu(k,1092) = lu(k,1092) - lu(k,874) * lu(k,1070) - lu(k,1093) = lu(k,1093) - lu(k,875) * lu(k,1070) - lu(k,1110) = lu(k,1110) - lu(k,853) * lu(k,1109) - lu(k,1111) = lu(k,1111) - lu(k,854) * lu(k,1109) - lu(k,1112) = lu(k,1112) - lu(k,855) * lu(k,1109) - lu(k,1113) = lu(k,1113) - lu(k,856) * lu(k,1109) - lu(k,1114) = lu(k,1114) - lu(k,857) * lu(k,1109) - lu(k,1115) = lu(k,1115) - lu(k,858) * lu(k,1109) - lu(k,1116) = lu(k,1116) - lu(k,859) * lu(k,1109) - lu(k,1117) = lu(k,1117) - lu(k,860) * lu(k,1109) - lu(k,1118) = lu(k,1118) - lu(k,861) * lu(k,1109) - lu(k,1119) = lu(k,1119) - lu(k,862) * lu(k,1109) - lu(k,1120) = lu(k,1120) - lu(k,863) * lu(k,1109) - lu(k,1121) = lu(k,1121) - lu(k,864) * lu(k,1109) - lu(k,1122) = lu(k,1122) - lu(k,865) * lu(k,1109) - lu(k,1123) = lu(k,1123) - lu(k,866) * lu(k,1109) - lu(k,1124) = lu(k,1124) - lu(k,867) * lu(k,1109) - lu(k,1125) = lu(k,1125) - lu(k,868) * lu(k,1109) - lu(k,1126) = lu(k,1126) - lu(k,869) * lu(k,1109) - lu(k,1127) = lu(k,1127) - lu(k,870) * lu(k,1109) - lu(k,1128) = lu(k,1128) - lu(k,871) * lu(k,1109) - lu(k,1129) = lu(k,1129) - lu(k,872) * lu(k,1109) - lu(k,1130) = lu(k,1130) - lu(k,873) * lu(k,1109) - lu(k,1131) = lu(k,1131) - lu(k,874) * lu(k,1109) - lu(k,1132) = lu(k,1132) - lu(k,875) * lu(k,1109) - lu(k,1154) = lu(k,1154) - lu(k,853) * lu(k,1153) - lu(k,1155) = lu(k,1155) - lu(k,854) * lu(k,1153) - lu(k,1156) = lu(k,1156) - lu(k,855) * lu(k,1153) - lu(k,1157) = lu(k,1157) - lu(k,856) * lu(k,1153) - lu(k,1158) = lu(k,1158) - lu(k,857) * lu(k,1153) - lu(k,1159) = lu(k,1159) - lu(k,858) * lu(k,1153) - lu(k,1160) = lu(k,1160) - lu(k,859) * lu(k,1153) - lu(k,1161) = lu(k,1161) - lu(k,860) * lu(k,1153) - lu(k,1162) = lu(k,1162) - lu(k,861) * lu(k,1153) - lu(k,1163) = lu(k,1163) - lu(k,862) * lu(k,1153) - lu(k,1164) = lu(k,1164) - lu(k,863) * lu(k,1153) - lu(k,1165) = lu(k,1165) - lu(k,864) * lu(k,1153) - lu(k,1166) = lu(k,1166) - lu(k,865) * lu(k,1153) - lu(k,1167) = lu(k,1167) - lu(k,866) * lu(k,1153) - lu(k,1168) = lu(k,1168) - lu(k,867) * lu(k,1153) - lu(k,1169) = lu(k,1169) - lu(k,868) * lu(k,1153) - lu(k,1170) = lu(k,1170) - lu(k,869) * lu(k,1153) - lu(k,1171) = lu(k,1171) - lu(k,870) * lu(k,1153) - lu(k,1172) = lu(k,1172) - lu(k,871) * lu(k,1153) - lu(k,1173) = lu(k,1173) - lu(k,872) * lu(k,1153) - lu(k,1174) = lu(k,1174) - lu(k,873) * lu(k,1153) - lu(k,1175) = lu(k,1175) - lu(k,874) * lu(k,1153) - lu(k,1176) = lu(k,1176) - lu(k,875) * lu(k,1153) - lu(k,1195) = lu(k,1195) - lu(k,853) * lu(k,1194) - lu(k,1196) = lu(k,1196) - lu(k,854) * lu(k,1194) - lu(k,1197) = lu(k,1197) - lu(k,855) * lu(k,1194) - lu(k,1198) = lu(k,1198) - lu(k,856) * lu(k,1194) - lu(k,1199) = lu(k,1199) - lu(k,857) * lu(k,1194) - lu(k,1200) = lu(k,1200) - lu(k,858) * lu(k,1194) - lu(k,1201) = lu(k,1201) - lu(k,859) * lu(k,1194) - lu(k,1202) = lu(k,1202) - lu(k,860) * lu(k,1194) - lu(k,1203) = lu(k,1203) - lu(k,861) * lu(k,1194) - lu(k,1204) = lu(k,1204) - lu(k,862) * lu(k,1194) - lu(k,1205) = lu(k,1205) - lu(k,863) * lu(k,1194) - lu(k,1206) = lu(k,1206) - lu(k,864) * lu(k,1194) - lu(k,1207) = lu(k,1207) - lu(k,865) * lu(k,1194) - lu(k,1208) = lu(k,1208) - lu(k,866) * lu(k,1194) - lu(k,1209) = lu(k,1209) - lu(k,867) * lu(k,1194) - lu(k,1210) = lu(k,1210) - lu(k,868) * lu(k,1194) - lu(k,1211) = lu(k,1211) - lu(k,869) * lu(k,1194) - lu(k,1212) = lu(k,1212) - lu(k,870) * lu(k,1194) - lu(k,1213) = lu(k,1213) - lu(k,871) * lu(k,1194) - lu(k,1214) = lu(k,1214) - lu(k,872) * lu(k,1194) - lu(k,1215) = lu(k,1215) - lu(k,873) * lu(k,1194) - lu(k,1216) = lu(k,1216) - lu(k,874) * lu(k,1194) - lu(k,1217) = lu(k,1217) - lu(k,875) * lu(k,1194) - lu(k,1244) = lu(k,1244) - lu(k,853) * lu(k,1243) - lu(k,1245) = lu(k,1245) - lu(k,854) * lu(k,1243) - lu(k,1246) = lu(k,1246) - lu(k,855) * lu(k,1243) - lu(k,1247) = lu(k,1247) - lu(k,856) * lu(k,1243) - lu(k,1248) = lu(k,1248) - lu(k,857) * lu(k,1243) - lu(k,1249) = lu(k,1249) - lu(k,858) * lu(k,1243) - lu(k,1250) = lu(k,1250) - lu(k,859) * lu(k,1243) - lu(k,1251) = lu(k,1251) - lu(k,860) * lu(k,1243) - lu(k,1252) = lu(k,1252) - lu(k,861) * lu(k,1243) - lu(k,1253) = lu(k,1253) - lu(k,862) * lu(k,1243) - lu(k,1254) = lu(k,1254) - lu(k,863) * lu(k,1243) - lu(k,1255) = lu(k,1255) - lu(k,864) * lu(k,1243) - lu(k,1256) = lu(k,1256) - lu(k,865) * lu(k,1243) - lu(k,1257) = lu(k,1257) - lu(k,866) * lu(k,1243) - lu(k,1258) = lu(k,1258) - lu(k,867) * lu(k,1243) - lu(k,1259) = lu(k,1259) - lu(k,868) * lu(k,1243) - lu(k,1260) = lu(k,1260) - lu(k,869) * lu(k,1243) - lu(k,1261) = lu(k,1261) - lu(k,870) * lu(k,1243) - lu(k,1262) = lu(k,1262) - lu(k,871) * lu(k,1243) - lu(k,1263) = lu(k,1263) - lu(k,872) * lu(k,1243) - lu(k,1264) = lu(k,1264) - lu(k,873) * lu(k,1243) - lu(k,1265) = lu(k,1265) - lu(k,874) * lu(k,1243) - lu(k,1266) = lu(k,1266) - lu(k,875) * lu(k,1243) - lu(k,1283) = lu(k,1283) - lu(k,853) * lu(k,1282) - lu(k,1284) = lu(k,1284) - lu(k,854) * lu(k,1282) - lu(k,1285) = lu(k,1285) - lu(k,855) * lu(k,1282) - lu(k,1286) = lu(k,1286) - lu(k,856) * lu(k,1282) - lu(k,1287) = lu(k,1287) - lu(k,857) * lu(k,1282) - lu(k,1288) = lu(k,1288) - lu(k,858) * lu(k,1282) - lu(k,1289) = lu(k,1289) - lu(k,859) * lu(k,1282) - lu(k,1290) = lu(k,1290) - lu(k,860) * lu(k,1282) - lu(k,1291) = lu(k,1291) - lu(k,861) * lu(k,1282) - lu(k,1292) = lu(k,1292) - lu(k,862) * lu(k,1282) - lu(k,1293) = lu(k,1293) - lu(k,863) * lu(k,1282) - lu(k,1294) = lu(k,1294) - lu(k,864) * lu(k,1282) - lu(k,1295) = lu(k,1295) - lu(k,865) * lu(k,1282) - lu(k,1296) = lu(k,1296) - lu(k,866) * lu(k,1282) - lu(k,1297) = lu(k,1297) - lu(k,867) * lu(k,1282) - lu(k,1298) = lu(k,1298) - lu(k,868) * lu(k,1282) - lu(k,1299) = lu(k,1299) - lu(k,869) * lu(k,1282) - lu(k,1300) = lu(k,1300) - lu(k,870) * lu(k,1282) - lu(k,1301) = lu(k,1301) - lu(k,871) * lu(k,1282) - lu(k,1302) = lu(k,1302) - lu(k,872) * lu(k,1282) - lu(k,1303) = lu(k,1303) - lu(k,873) * lu(k,1282) - lu(k,1304) = lu(k,1304) - lu(k,874) * lu(k,1282) - lu(k,1305) = lu(k,1305) - lu(k,875) * lu(k,1282) - lu(k,1318) = lu(k,1318) - lu(k,853) * lu(k,1317) - lu(k,1319) = lu(k,1319) - lu(k,854) * lu(k,1317) - lu(k,1320) = lu(k,1320) - lu(k,855) * lu(k,1317) - lu(k,1321) = lu(k,1321) - lu(k,856) * lu(k,1317) - lu(k,1322) = lu(k,1322) - lu(k,857) * lu(k,1317) - lu(k,1323) = lu(k,1323) - lu(k,858) * lu(k,1317) - lu(k,1324) = lu(k,1324) - lu(k,859) * lu(k,1317) - lu(k,1325) = lu(k,1325) - lu(k,860) * lu(k,1317) - lu(k,1326) = lu(k,1326) - lu(k,861) * lu(k,1317) - lu(k,1327) = lu(k,1327) - lu(k,862) * lu(k,1317) - lu(k,1328) = lu(k,1328) - lu(k,863) * lu(k,1317) - lu(k,1329) = lu(k,1329) - lu(k,864) * lu(k,1317) - lu(k,1330) = lu(k,1330) - lu(k,865) * lu(k,1317) - lu(k,1331) = lu(k,1331) - lu(k,866) * lu(k,1317) - lu(k,1332) = lu(k,1332) - lu(k,867) * lu(k,1317) - lu(k,1333) = lu(k,1333) - lu(k,868) * lu(k,1317) - lu(k,1334) = lu(k,1334) - lu(k,869) * lu(k,1317) - lu(k,1335) = lu(k,1335) - lu(k,870) * lu(k,1317) - lu(k,1336) = lu(k,1336) - lu(k,871) * lu(k,1317) - lu(k,1337) = lu(k,1337) - lu(k,872) * lu(k,1317) - lu(k,1338) = lu(k,1338) - lu(k,873) * lu(k,1317) - lu(k,1339) = lu(k,1339) - lu(k,874) * lu(k,1317) - lu(k,1340) = lu(k,1340) - lu(k,875) * lu(k,1317) - lu(k,1362) = lu(k,1362) - lu(k,853) * lu(k,1361) - lu(k,1363) = lu(k,1363) - lu(k,854) * lu(k,1361) - lu(k,1364) = lu(k,1364) - lu(k,855) * lu(k,1361) - lu(k,1365) = lu(k,1365) - lu(k,856) * lu(k,1361) - lu(k,1366) = lu(k,1366) - lu(k,857) * lu(k,1361) - lu(k,1367) = lu(k,1367) - lu(k,858) * lu(k,1361) - lu(k,1368) = lu(k,1368) - lu(k,859) * lu(k,1361) - lu(k,1369) = lu(k,1369) - lu(k,860) * lu(k,1361) - lu(k,1370) = lu(k,1370) - lu(k,861) * lu(k,1361) - lu(k,1371) = lu(k,1371) - lu(k,862) * lu(k,1361) - lu(k,1372) = lu(k,1372) - lu(k,863) * lu(k,1361) - lu(k,1373) = lu(k,1373) - lu(k,864) * lu(k,1361) - lu(k,1374) = lu(k,1374) - lu(k,865) * lu(k,1361) - lu(k,1375) = lu(k,1375) - lu(k,866) * lu(k,1361) - lu(k,1376) = lu(k,1376) - lu(k,867) * lu(k,1361) - lu(k,1377) = lu(k,1377) - lu(k,868) * lu(k,1361) - lu(k,1378) = lu(k,1378) - lu(k,869) * lu(k,1361) - lu(k,1379) = lu(k,1379) - lu(k,870) * lu(k,1361) - lu(k,1380) = lu(k,1380) - lu(k,871) * lu(k,1361) - lu(k,1381) = lu(k,1381) - lu(k,872) * lu(k,1361) - lu(k,1382) = lu(k,1382) - lu(k,873) * lu(k,1361) - lu(k,1383) = lu(k,1383) - lu(k,874) * lu(k,1361) - lu(k,1384) = lu(k,1384) - lu(k,875) * lu(k,1361) - lu(k,1421) = lu(k,1421) - lu(k,853) * lu(k,1420) - lu(k,1422) = lu(k,1422) - lu(k,854) * lu(k,1420) - lu(k,1423) = lu(k,1423) - lu(k,855) * lu(k,1420) - lu(k,1424) = lu(k,1424) - lu(k,856) * lu(k,1420) - lu(k,1425) = lu(k,1425) - lu(k,857) * lu(k,1420) - lu(k,1426) = lu(k,1426) - lu(k,858) * lu(k,1420) - lu(k,1427) = lu(k,1427) - lu(k,859) * lu(k,1420) - lu(k,1428) = lu(k,1428) - lu(k,860) * lu(k,1420) - lu(k,1429) = lu(k,1429) - lu(k,861) * lu(k,1420) - lu(k,1430) = lu(k,1430) - lu(k,862) * lu(k,1420) - lu(k,1431) = lu(k,1431) - lu(k,863) * lu(k,1420) - lu(k,1432) = lu(k,1432) - lu(k,864) * lu(k,1420) - lu(k,1433) = lu(k,1433) - lu(k,865) * lu(k,1420) - lu(k,1434) = lu(k,1434) - lu(k,866) * lu(k,1420) - lu(k,1435) = lu(k,1435) - lu(k,867) * lu(k,1420) - lu(k,1436) = lu(k,1436) - lu(k,868) * lu(k,1420) - lu(k,1437) = lu(k,1437) - lu(k,869) * lu(k,1420) - lu(k,1438) = lu(k,1438) - lu(k,870) * lu(k,1420) - lu(k,1439) = lu(k,1439) - lu(k,871) * lu(k,1420) - lu(k,1440) = lu(k,1440) - lu(k,872) * lu(k,1420) - lu(k,1441) = lu(k,1441) - lu(k,873) * lu(k,1420) - lu(k,1442) = lu(k,1442) - lu(k,874) * lu(k,1420) - lu(k,1443) = lu(k,1443) - lu(k,875) * lu(k,1420) - lu(k,1463) = lu(k,1463) - lu(k,853) * lu(k,1462) - lu(k,1464) = lu(k,1464) - lu(k,854) * lu(k,1462) - lu(k,1465) = lu(k,1465) - lu(k,855) * lu(k,1462) - lu(k,1466) = lu(k,1466) - lu(k,856) * lu(k,1462) - lu(k,1467) = lu(k,1467) - lu(k,857) * lu(k,1462) - lu(k,1468) = lu(k,1468) - lu(k,858) * lu(k,1462) - lu(k,1469) = lu(k,1469) - lu(k,859) * lu(k,1462) - lu(k,1470) = lu(k,1470) - lu(k,860) * lu(k,1462) - lu(k,1471) = lu(k,1471) - lu(k,861) * lu(k,1462) - lu(k,1472) = lu(k,1472) - lu(k,862) * lu(k,1462) - lu(k,1473) = lu(k,1473) - lu(k,863) * lu(k,1462) - lu(k,1474) = lu(k,1474) - lu(k,864) * lu(k,1462) - lu(k,1475) = lu(k,1475) - lu(k,865) * lu(k,1462) - lu(k,1476) = lu(k,1476) - lu(k,866) * lu(k,1462) - lu(k,1477) = lu(k,1477) - lu(k,867) * lu(k,1462) - lu(k,1478) = lu(k,1478) - lu(k,868) * lu(k,1462) - lu(k,1479) = lu(k,1479) - lu(k,869) * lu(k,1462) - lu(k,1480) = lu(k,1480) - lu(k,870) * lu(k,1462) - lu(k,1481) = lu(k,1481) - lu(k,871) * lu(k,1462) - lu(k,1482) = lu(k,1482) - lu(k,872) * lu(k,1462) - lu(k,1483) = lu(k,1483) - lu(k,873) * lu(k,1462) - lu(k,1484) = lu(k,1484) - lu(k,874) * lu(k,1462) - lu(k,1485) = lu(k,1485) - lu(k,875) * lu(k,1462) - lu(k,1504) = lu(k,1504) - lu(k,853) * lu(k,1503) - lu(k,1505) = lu(k,1505) - lu(k,854) * lu(k,1503) - lu(k,1506) = lu(k,1506) - lu(k,855) * lu(k,1503) - lu(k,1507) = lu(k,1507) - lu(k,856) * lu(k,1503) - lu(k,1508) = lu(k,1508) - lu(k,857) * lu(k,1503) - lu(k,1509) = lu(k,1509) - lu(k,858) * lu(k,1503) - lu(k,1510) = lu(k,1510) - lu(k,859) * lu(k,1503) - lu(k,1511) = lu(k,1511) - lu(k,860) * lu(k,1503) - lu(k,1512) = lu(k,1512) - lu(k,861) * lu(k,1503) - lu(k,1513) = lu(k,1513) - lu(k,862) * lu(k,1503) - lu(k,1514) = lu(k,1514) - lu(k,863) * lu(k,1503) - lu(k,1515) = lu(k,1515) - lu(k,864) * lu(k,1503) - lu(k,1516) = lu(k,1516) - lu(k,865) * lu(k,1503) - lu(k,1517) = lu(k,1517) - lu(k,866) * lu(k,1503) - lu(k,1518) = lu(k,1518) - lu(k,867) * lu(k,1503) - lu(k,1519) = lu(k,1519) - lu(k,868) * lu(k,1503) - lu(k,1520) = lu(k,1520) - lu(k,869) * lu(k,1503) - lu(k,1521) = lu(k,1521) - lu(k,870) * lu(k,1503) - lu(k,1522) = lu(k,1522) - lu(k,871) * lu(k,1503) - lu(k,1523) = lu(k,1523) - lu(k,872) * lu(k,1503) - lu(k,1524) = lu(k,1524) - lu(k,873) * lu(k,1503) - lu(k,1525) = lu(k,1525) - lu(k,874) * lu(k,1503) - lu(k,1526) = lu(k,1526) - lu(k,875) * lu(k,1503) - lu(k,1588) = lu(k,1588) - lu(k,853) * lu(k,1587) - lu(k,1589) = lu(k,1589) - lu(k,854) * lu(k,1587) - lu(k,1590) = lu(k,1590) - lu(k,855) * lu(k,1587) - lu(k,1591) = lu(k,1591) - lu(k,856) * lu(k,1587) - lu(k,1592) = lu(k,1592) - lu(k,857) * lu(k,1587) - lu(k,1593) = lu(k,1593) - lu(k,858) * lu(k,1587) - lu(k,1594) = lu(k,1594) - lu(k,859) * lu(k,1587) - lu(k,1595) = lu(k,1595) - lu(k,860) * lu(k,1587) - lu(k,1596) = lu(k,1596) - lu(k,861) * lu(k,1587) - lu(k,1597) = lu(k,1597) - lu(k,862) * lu(k,1587) - lu(k,1598) = lu(k,1598) - lu(k,863) * lu(k,1587) - lu(k,1599) = lu(k,1599) - lu(k,864) * lu(k,1587) - lu(k,1600) = lu(k,1600) - lu(k,865) * lu(k,1587) - lu(k,1601) = lu(k,1601) - lu(k,866) * lu(k,1587) - lu(k,1602) = lu(k,1602) - lu(k,867) * lu(k,1587) - lu(k,1603) = lu(k,1603) - lu(k,868) * lu(k,1587) - lu(k,1604) = lu(k,1604) - lu(k,869) * lu(k,1587) - lu(k,1605) = lu(k,1605) - lu(k,870) * lu(k,1587) - lu(k,1606) = lu(k,1606) - lu(k,871) * lu(k,1587) - lu(k,1607) = lu(k,1607) - lu(k,872) * lu(k,1587) - lu(k,1608) = lu(k,1608) - lu(k,873) * lu(k,1587) - lu(k,1609) = lu(k,1609) - lu(k,874) * lu(k,1587) - lu(k,1610) = lu(k,1610) - lu(k,875) * lu(k,1587) - lu(k,1620) = lu(k,1620) - lu(k,853) * lu(k,1619) - lu(k,1621) = lu(k,1621) - lu(k,854) * lu(k,1619) - lu(k,1622) = lu(k,1622) - lu(k,855) * lu(k,1619) - lu(k,1623) = lu(k,1623) - lu(k,856) * lu(k,1619) - lu(k,1624) = lu(k,1624) - lu(k,857) * lu(k,1619) - lu(k,1625) = lu(k,1625) - lu(k,858) * lu(k,1619) - lu(k,1626) = lu(k,1626) - lu(k,859) * lu(k,1619) - lu(k,1627) = lu(k,1627) - lu(k,860) * lu(k,1619) - lu(k,1628) = lu(k,1628) - lu(k,861) * lu(k,1619) - lu(k,1629) = lu(k,1629) - lu(k,862) * lu(k,1619) - lu(k,1630) = lu(k,1630) - lu(k,863) * lu(k,1619) - lu(k,1631) = lu(k,1631) - lu(k,864) * lu(k,1619) - lu(k,1632) = lu(k,1632) - lu(k,865) * lu(k,1619) - lu(k,1633) = lu(k,1633) - lu(k,866) * lu(k,1619) - lu(k,1634) = lu(k,1634) - lu(k,867) * lu(k,1619) - lu(k,1635) = lu(k,1635) - lu(k,868) * lu(k,1619) - lu(k,1636) = lu(k,1636) - lu(k,869) * lu(k,1619) - lu(k,1637) = lu(k,1637) - lu(k,870) * lu(k,1619) - lu(k,1638) = lu(k,1638) - lu(k,871) * lu(k,1619) - lu(k,1639) = lu(k,1639) - lu(k,872) * lu(k,1619) - lu(k,1640) = lu(k,1640) - lu(k,873) * lu(k,1619) - lu(k,1641) = lu(k,1641) - lu(k,874) * lu(k,1619) - lu(k,1642) = lu(k,1642) - lu(k,875) * lu(k,1619) - lu(k,1655) = lu(k,1655) - lu(k,853) * lu(k,1654) - lu(k,1656) = lu(k,1656) - lu(k,854) * lu(k,1654) - lu(k,1657) = lu(k,1657) - lu(k,855) * lu(k,1654) - lu(k,1658) = lu(k,1658) - lu(k,856) * lu(k,1654) - lu(k,1659) = lu(k,1659) - lu(k,857) * lu(k,1654) - lu(k,1660) = lu(k,1660) - lu(k,858) * lu(k,1654) - lu(k,1661) = lu(k,1661) - lu(k,859) * lu(k,1654) - lu(k,1662) = lu(k,1662) - lu(k,860) * lu(k,1654) - lu(k,1663) = lu(k,1663) - lu(k,861) * lu(k,1654) - lu(k,1664) = lu(k,1664) - lu(k,862) * lu(k,1654) - lu(k,1665) = lu(k,1665) - lu(k,863) * lu(k,1654) - lu(k,1666) = lu(k,1666) - lu(k,864) * lu(k,1654) - lu(k,1667) = lu(k,1667) - lu(k,865) * lu(k,1654) - lu(k,1668) = lu(k,1668) - lu(k,866) * lu(k,1654) - lu(k,1669) = lu(k,1669) - lu(k,867) * lu(k,1654) - lu(k,1670) = lu(k,1670) - lu(k,868) * lu(k,1654) - lu(k,1671) = lu(k,1671) - lu(k,869) * lu(k,1654) - lu(k,1672) = lu(k,1672) - lu(k,870) * lu(k,1654) - lu(k,1673) = lu(k,1673) - lu(k,871) * lu(k,1654) - lu(k,1674) = lu(k,1674) - lu(k,872) * lu(k,1654) - lu(k,1675) = lu(k,1675) - lu(k,873) * lu(k,1654) - lu(k,1676) = lu(k,1676) - lu(k,874) * lu(k,1654) - lu(k,1677) = lu(k,1677) - lu(k,875) * lu(k,1654) - lu(k,1697) = lu(k,1697) - lu(k,853) * lu(k,1696) - lu(k,1698) = lu(k,1698) - lu(k,854) * lu(k,1696) - lu(k,1699) = lu(k,1699) - lu(k,855) * lu(k,1696) - lu(k,1700) = lu(k,1700) - lu(k,856) * lu(k,1696) - lu(k,1701) = lu(k,1701) - lu(k,857) * lu(k,1696) - lu(k,1702) = lu(k,1702) - lu(k,858) * lu(k,1696) - lu(k,1703) = lu(k,1703) - lu(k,859) * lu(k,1696) - lu(k,1704) = lu(k,1704) - lu(k,860) * lu(k,1696) - lu(k,1705) = lu(k,1705) - lu(k,861) * lu(k,1696) - lu(k,1706) = lu(k,1706) - lu(k,862) * lu(k,1696) - lu(k,1707) = lu(k,1707) - lu(k,863) * lu(k,1696) - lu(k,1708) = lu(k,1708) - lu(k,864) * lu(k,1696) - lu(k,1709) = lu(k,1709) - lu(k,865) * lu(k,1696) - lu(k,1710) = lu(k,1710) - lu(k,866) * lu(k,1696) - lu(k,1711) = lu(k,1711) - lu(k,867) * lu(k,1696) - lu(k,1712) = lu(k,1712) - lu(k,868) * lu(k,1696) - lu(k,1713) = lu(k,1713) - lu(k,869) * lu(k,1696) - lu(k,1714) = lu(k,1714) - lu(k,870) * lu(k,1696) - lu(k,1715) = lu(k,1715) - lu(k,871) * lu(k,1696) - lu(k,1716) = lu(k,1716) - lu(k,872) * lu(k,1696) - lu(k,1717) = lu(k,1717) - lu(k,873) * lu(k,1696) - lu(k,1718) = lu(k,1718) - lu(k,874) * lu(k,1696) - lu(k,1719) = lu(k,1719) - lu(k,875) * lu(k,1696) - lu(k,1741) = lu(k,1741) - lu(k,853) * lu(k,1740) - lu(k,1742) = lu(k,1742) - lu(k,854) * lu(k,1740) - lu(k,1743) = lu(k,1743) - lu(k,855) * lu(k,1740) - lu(k,1744) = lu(k,1744) - lu(k,856) * lu(k,1740) - lu(k,1745) = lu(k,1745) - lu(k,857) * lu(k,1740) - lu(k,1746) = lu(k,1746) - lu(k,858) * lu(k,1740) - lu(k,1747) = lu(k,1747) - lu(k,859) * lu(k,1740) - lu(k,1748) = lu(k,1748) - lu(k,860) * lu(k,1740) - lu(k,1749) = lu(k,1749) - lu(k,861) * lu(k,1740) - lu(k,1750) = lu(k,1750) - lu(k,862) * lu(k,1740) - lu(k,1751) = lu(k,1751) - lu(k,863) * lu(k,1740) - lu(k,1752) = lu(k,1752) - lu(k,864) * lu(k,1740) - lu(k,1753) = lu(k,1753) - lu(k,865) * lu(k,1740) - lu(k,1754) = lu(k,1754) - lu(k,866) * lu(k,1740) - lu(k,1755) = lu(k,1755) - lu(k,867) * lu(k,1740) - lu(k,1756) = lu(k,1756) - lu(k,868) * lu(k,1740) - lu(k,1757) = lu(k,1757) - lu(k,869) * lu(k,1740) - lu(k,1758) = lu(k,1758) - lu(k,870) * lu(k,1740) - lu(k,1759) = lu(k,1759) - lu(k,871) * lu(k,1740) - lu(k,1760) = lu(k,1760) - lu(k,872) * lu(k,1740) - lu(k,1761) = lu(k,1761) - lu(k,873) * lu(k,1740) - lu(k,1762) = lu(k,1762) - lu(k,874) * lu(k,1740) - lu(k,1763) = lu(k,1763) - lu(k,875) * lu(k,1740) - lu(k,1776) = lu(k,1776) - lu(k,853) * lu(k,1775) - lu(k,1777) = lu(k,1777) - lu(k,854) * lu(k,1775) - lu(k,1778) = lu(k,1778) - lu(k,855) * lu(k,1775) - lu(k,1779) = lu(k,1779) - lu(k,856) * lu(k,1775) - lu(k,1780) = lu(k,1780) - lu(k,857) * lu(k,1775) - lu(k,1781) = lu(k,1781) - lu(k,858) * lu(k,1775) - lu(k,1782) = lu(k,1782) - lu(k,859) * lu(k,1775) - lu(k,1783) = lu(k,1783) - lu(k,860) * lu(k,1775) - lu(k,1784) = lu(k,1784) - lu(k,861) * lu(k,1775) - lu(k,1785) = lu(k,1785) - lu(k,862) * lu(k,1775) - lu(k,1786) = lu(k,1786) - lu(k,863) * lu(k,1775) - lu(k,1787) = lu(k,1787) - lu(k,864) * lu(k,1775) - lu(k,1788) = lu(k,1788) - lu(k,865) * lu(k,1775) - lu(k,1789) = lu(k,1789) - lu(k,866) * lu(k,1775) - lu(k,1790) = lu(k,1790) - lu(k,867) * lu(k,1775) - lu(k,1791) = lu(k,1791) - lu(k,868) * lu(k,1775) - lu(k,1792) = lu(k,1792) - lu(k,869) * lu(k,1775) - lu(k,1793) = lu(k,1793) - lu(k,870) * lu(k,1775) - lu(k,1794) = lu(k,1794) - lu(k,871) * lu(k,1775) - lu(k,1795) = lu(k,1795) - lu(k,872) * lu(k,1775) - lu(k,1796) = lu(k,1796) - lu(k,873) * lu(k,1775) - lu(k,1797) = lu(k,1797) - lu(k,874) * lu(k,1775) - lu(k,1798) = lu(k,1798) - lu(k,875) * lu(k,1775) - lu(k,1834) = lu(k,1834) - lu(k,853) * lu(k,1833) - lu(k,1835) = lu(k,1835) - lu(k,854) * lu(k,1833) - lu(k,1836) = lu(k,1836) - lu(k,855) * lu(k,1833) - lu(k,1837) = lu(k,1837) - lu(k,856) * lu(k,1833) - lu(k,1838) = lu(k,1838) - lu(k,857) * lu(k,1833) - lu(k,1839) = lu(k,1839) - lu(k,858) * lu(k,1833) - lu(k,1840) = lu(k,1840) - lu(k,859) * lu(k,1833) - lu(k,1841) = lu(k,1841) - lu(k,860) * lu(k,1833) - lu(k,1842) = lu(k,1842) - lu(k,861) * lu(k,1833) - lu(k,1843) = lu(k,1843) - lu(k,862) * lu(k,1833) - lu(k,1844) = lu(k,1844) - lu(k,863) * lu(k,1833) - lu(k,1845) = lu(k,1845) - lu(k,864) * lu(k,1833) - lu(k,1846) = lu(k,1846) - lu(k,865) * lu(k,1833) - lu(k,1847) = lu(k,1847) - lu(k,866) * lu(k,1833) - lu(k,1848) = lu(k,1848) - lu(k,867) * lu(k,1833) - lu(k,1849) = lu(k,1849) - lu(k,868) * lu(k,1833) - lu(k,1850) = lu(k,1850) - lu(k,869) * lu(k,1833) - lu(k,1851) = lu(k,1851) - lu(k,870) * lu(k,1833) - lu(k,1852) = lu(k,1852) - lu(k,871) * lu(k,1833) - lu(k,1853) = lu(k,1853) - lu(k,872) * lu(k,1833) - lu(k,1854) = lu(k,1854) - lu(k,873) * lu(k,1833) - lu(k,1855) = lu(k,1855) - lu(k,874) * lu(k,1833) - lu(k,1856) = lu(k,1856) - lu(k,875) * lu(k,1833) - 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,922) = lu(k,922) * lu(k,900) - lu(k,943) = lu(k,943) - lu(k,901) * lu(k,942) - lu(k,944) = lu(k,944) - lu(k,902) * lu(k,942) - lu(k,945) = lu(k,945) - lu(k,903) * lu(k,942) - lu(k,946) = lu(k,946) - lu(k,904) * lu(k,942) - lu(k,947) = lu(k,947) - lu(k,905) * lu(k,942) - lu(k,948) = lu(k,948) - lu(k,906) * lu(k,942) - lu(k,949) = lu(k,949) - lu(k,907) * lu(k,942) - lu(k,950) = lu(k,950) - lu(k,908) * lu(k,942) - lu(k,951) = lu(k,951) - lu(k,909) * lu(k,942) - lu(k,952) = lu(k,952) - lu(k,910) * lu(k,942) - lu(k,953) = lu(k,953) - lu(k,911) * lu(k,942) - lu(k,954) = lu(k,954) - lu(k,912) * lu(k,942) - lu(k,955) = lu(k,955) - lu(k,913) * lu(k,942) - lu(k,956) = lu(k,956) - lu(k,914) * lu(k,942) - lu(k,957) = lu(k,957) - lu(k,915) * lu(k,942) - lu(k,958) = lu(k,958) - lu(k,916) * lu(k,942) - lu(k,959) = lu(k,959) - lu(k,917) * lu(k,942) - lu(k,960) = lu(k,960) - lu(k,918) * lu(k,942) - lu(k,961) = lu(k,961) - lu(k,919) * lu(k,942) - lu(k,962) = lu(k,962) - lu(k,920) * lu(k,942) - lu(k,963) = lu(k,963) - lu(k,921) * lu(k,942) - lu(k,964) = lu(k,964) - lu(k,922) * lu(k,942) - lu(k,989) = lu(k,989) - lu(k,901) * lu(k,988) - lu(k,990) = lu(k,990) - lu(k,902) * lu(k,988) - lu(k,991) = lu(k,991) - lu(k,903) * lu(k,988) - lu(k,992) = lu(k,992) - lu(k,904) * lu(k,988) - lu(k,993) = lu(k,993) - lu(k,905) * lu(k,988) - lu(k,994) = lu(k,994) - lu(k,906) * lu(k,988) - lu(k,995) = lu(k,995) - lu(k,907) * lu(k,988) - lu(k,996) = lu(k,996) - lu(k,908) * lu(k,988) - lu(k,997) = lu(k,997) - lu(k,909) * lu(k,988) - lu(k,998) = lu(k,998) - lu(k,910) * lu(k,988) - lu(k,999) = lu(k,999) - lu(k,911) * lu(k,988) - lu(k,1000) = lu(k,1000) - lu(k,912) * lu(k,988) - lu(k,1001) = lu(k,1001) - lu(k,913) * lu(k,988) - lu(k,1002) = lu(k,1002) - lu(k,914) * lu(k,988) - lu(k,1003) = lu(k,1003) - lu(k,915) * lu(k,988) - lu(k,1004) = lu(k,1004) - lu(k,916) * lu(k,988) - lu(k,1005) = lu(k,1005) - lu(k,917) * lu(k,988) - lu(k,1006) = lu(k,1006) - lu(k,918) * lu(k,988) - lu(k,1007) = lu(k,1007) - lu(k,919) * lu(k,988) - lu(k,1008) = lu(k,1008) - lu(k,920) * lu(k,988) - lu(k,1009) = lu(k,1009) - lu(k,921) * lu(k,988) - lu(k,1010) = lu(k,1010) - lu(k,922) * lu(k,988) - lu(k,1031) = lu(k,1031) - lu(k,901) * lu(k,1030) - lu(k,1032) = lu(k,1032) - lu(k,902) * lu(k,1030) - lu(k,1033) = lu(k,1033) - lu(k,903) * lu(k,1030) - lu(k,1034) = lu(k,1034) - lu(k,904) * lu(k,1030) - lu(k,1035) = lu(k,1035) - lu(k,905) * lu(k,1030) - lu(k,1036) = lu(k,1036) - lu(k,906) * lu(k,1030) - lu(k,1037) = lu(k,1037) - lu(k,907) * lu(k,1030) - lu(k,1038) = lu(k,1038) - lu(k,908) * lu(k,1030) - lu(k,1039) = lu(k,1039) - lu(k,909) * lu(k,1030) - lu(k,1040) = lu(k,1040) - lu(k,910) * lu(k,1030) - lu(k,1041) = lu(k,1041) - lu(k,911) * lu(k,1030) - lu(k,1042) = lu(k,1042) - lu(k,912) * lu(k,1030) - lu(k,1043) = lu(k,1043) - lu(k,913) * lu(k,1030) - lu(k,1044) = lu(k,1044) - lu(k,914) * lu(k,1030) - lu(k,1045) = lu(k,1045) - lu(k,915) * lu(k,1030) - lu(k,1046) = lu(k,1046) - lu(k,916) * lu(k,1030) - lu(k,1047) = lu(k,1047) - lu(k,917) * lu(k,1030) - lu(k,1048) = lu(k,1048) - lu(k,918) * lu(k,1030) - lu(k,1049) = lu(k,1049) - lu(k,919) * lu(k,1030) - lu(k,1050) = lu(k,1050) - lu(k,920) * lu(k,1030) - lu(k,1051) = lu(k,1051) - lu(k,921) * lu(k,1030) - lu(k,1052) = lu(k,1052) - lu(k,922) * lu(k,1030) - lu(k,1072) = lu(k,1072) - lu(k,901) * lu(k,1071) - lu(k,1073) = lu(k,1073) - lu(k,902) * lu(k,1071) - lu(k,1074) = lu(k,1074) - lu(k,903) * lu(k,1071) - lu(k,1075) = lu(k,1075) - lu(k,904) * lu(k,1071) - lu(k,1076) = lu(k,1076) - lu(k,905) * lu(k,1071) - lu(k,1077) = lu(k,1077) - lu(k,906) * lu(k,1071) - lu(k,1078) = lu(k,1078) - lu(k,907) * lu(k,1071) - lu(k,1079) = lu(k,1079) - lu(k,908) * lu(k,1071) - lu(k,1080) = lu(k,1080) - lu(k,909) * lu(k,1071) - lu(k,1081) = lu(k,1081) - lu(k,910) * lu(k,1071) - lu(k,1082) = lu(k,1082) - lu(k,911) * lu(k,1071) - lu(k,1083) = lu(k,1083) - lu(k,912) * lu(k,1071) - lu(k,1084) = lu(k,1084) - lu(k,913) * lu(k,1071) - lu(k,1085) = lu(k,1085) - lu(k,914) * lu(k,1071) - lu(k,1086) = lu(k,1086) - lu(k,915) * lu(k,1071) - lu(k,1087) = lu(k,1087) - lu(k,916) * lu(k,1071) - lu(k,1088) = lu(k,1088) - lu(k,917) * lu(k,1071) - lu(k,1089) = lu(k,1089) - lu(k,918) * lu(k,1071) - lu(k,1090) = lu(k,1090) - lu(k,919) * lu(k,1071) - lu(k,1091) = lu(k,1091) - lu(k,920) * lu(k,1071) - lu(k,1092) = lu(k,1092) - lu(k,921) * lu(k,1071) - lu(k,1093) = lu(k,1093) - lu(k,922) * lu(k,1071) - lu(k,1111) = lu(k,1111) - lu(k,901) * lu(k,1110) - lu(k,1112) = lu(k,1112) - lu(k,902) * lu(k,1110) - lu(k,1113) = lu(k,1113) - lu(k,903) * lu(k,1110) - lu(k,1114) = lu(k,1114) - lu(k,904) * lu(k,1110) - lu(k,1115) = lu(k,1115) - lu(k,905) * lu(k,1110) - lu(k,1116) = lu(k,1116) - lu(k,906) * lu(k,1110) - lu(k,1117) = lu(k,1117) - lu(k,907) * lu(k,1110) - lu(k,1118) = lu(k,1118) - lu(k,908) * lu(k,1110) - lu(k,1119) = lu(k,1119) - lu(k,909) * lu(k,1110) - lu(k,1120) = lu(k,1120) - lu(k,910) * lu(k,1110) - lu(k,1121) = lu(k,1121) - lu(k,911) * lu(k,1110) - lu(k,1122) = lu(k,1122) - lu(k,912) * lu(k,1110) - lu(k,1123) = lu(k,1123) - lu(k,913) * lu(k,1110) - lu(k,1124) = lu(k,1124) - lu(k,914) * lu(k,1110) - lu(k,1125) = lu(k,1125) - lu(k,915) * lu(k,1110) - lu(k,1126) = lu(k,1126) - lu(k,916) * lu(k,1110) - lu(k,1127) = lu(k,1127) - lu(k,917) * lu(k,1110) - lu(k,1128) = lu(k,1128) - lu(k,918) * lu(k,1110) - lu(k,1129) = lu(k,1129) - lu(k,919) * lu(k,1110) - lu(k,1130) = lu(k,1130) - lu(k,920) * lu(k,1110) - lu(k,1131) = lu(k,1131) - lu(k,921) * lu(k,1110) - lu(k,1132) = lu(k,1132) - lu(k,922) * lu(k,1110) - lu(k,1155) = lu(k,1155) - lu(k,901) * lu(k,1154) - lu(k,1156) = lu(k,1156) - lu(k,902) * lu(k,1154) - lu(k,1157) = lu(k,1157) - lu(k,903) * lu(k,1154) - lu(k,1158) = lu(k,1158) - lu(k,904) * lu(k,1154) - lu(k,1159) = lu(k,1159) - lu(k,905) * lu(k,1154) - lu(k,1160) = lu(k,1160) - lu(k,906) * lu(k,1154) - lu(k,1161) = lu(k,1161) - lu(k,907) * lu(k,1154) - lu(k,1162) = lu(k,1162) - lu(k,908) * lu(k,1154) - lu(k,1163) = lu(k,1163) - lu(k,909) * lu(k,1154) - lu(k,1164) = lu(k,1164) - lu(k,910) * lu(k,1154) - lu(k,1165) = lu(k,1165) - lu(k,911) * lu(k,1154) - lu(k,1166) = lu(k,1166) - lu(k,912) * lu(k,1154) - lu(k,1167) = lu(k,1167) - lu(k,913) * lu(k,1154) - lu(k,1168) = lu(k,1168) - lu(k,914) * lu(k,1154) - lu(k,1169) = lu(k,1169) - lu(k,915) * lu(k,1154) - lu(k,1170) = lu(k,1170) - lu(k,916) * lu(k,1154) - lu(k,1171) = lu(k,1171) - lu(k,917) * lu(k,1154) - lu(k,1172) = lu(k,1172) - lu(k,918) * lu(k,1154) - lu(k,1173) = lu(k,1173) - lu(k,919) * lu(k,1154) - lu(k,1174) = lu(k,1174) - lu(k,920) * lu(k,1154) - lu(k,1175) = lu(k,1175) - lu(k,921) * lu(k,1154) - lu(k,1176) = lu(k,1176) - lu(k,922) * lu(k,1154) - lu(k,1196) = lu(k,1196) - lu(k,901) * lu(k,1195) - lu(k,1197) = lu(k,1197) - lu(k,902) * lu(k,1195) - lu(k,1198) = lu(k,1198) - lu(k,903) * lu(k,1195) - lu(k,1199) = lu(k,1199) - lu(k,904) * lu(k,1195) - lu(k,1200) = lu(k,1200) - lu(k,905) * lu(k,1195) - lu(k,1201) = lu(k,1201) - lu(k,906) * lu(k,1195) - lu(k,1202) = lu(k,1202) - lu(k,907) * lu(k,1195) - lu(k,1203) = lu(k,1203) - lu(k,908) * lu(k,1195) - lu(k,1204) = lu(k,1204) - lu(k,909) * lu(k,1195) - lu(k,1205) = lu(k,1205) - lu(k,910) * lu(k,1195) - lu(k,1206) = lu(k,1206) - lu(k,911) * lu(k,1195) - lu(k,1207) = lu(k,1207) - lu(k,912) * lu(k,1195) - lu(k,1208) = lu(k,1208) - lu(k,913) * lu(k,1195) - lu(k,1209) = lu(k,1209) - lu(k,914) * lu(k,1195) - lu(k,1210) = lu(k,1210) - lu(k,915) * lu(k,1195) - lu(k,1211) = lu(k,1211) - lu(k,916) * lu(k,1195) - lu(k,1212) = lu(k,1212) - lu(k,917) * lu(k,1195) - lu(k,1213) = lu(k,1213) - lu(k,918) * lu(k,1195) - lu(k,1214) = lu(k,1214) - lu(k,919) * lu(k,1195) - lu(k,1215) = lu(k,1215) - lu(k,920) * lu(k,1195) - lu(k,1216) = lu(k,1216) - lu(k,921) * lu(k,1195) - lu(k,1217) = lu(k,1217) - lu(k,922) * lu(k,1195) - lu(k,1245) = lu(k,1245) - lu(k,901) * lu(k,1244) - lu(k,1246) = lu(k,1246) - lu(k,902) * lu(k,1244) - lu(k,1247) = lu(k,1247) - lu(k,903) * lu(k,1244) - lu(k,1248) = lu(k,1248) - lu(k,904) * lu(k,1244) - lu(k,1249) = lu(k,1249) - lu(k,905) * lu(k,1244) - lu(k,1250) = lu(k,1250) - lu(k,906) * lu(k,1244) - lu(k,1251) = lu(k,1251) - lu(k,907) * lu(k,1244) - lu(k,1252) = lu(k,1252) - lu(k,908) * lu(k,1244) - lu(k,1253) = lu(k,1253) - lu(k,909) * lu(k,1244) - lu(k,1254) = lu(k,1254) - lu(k,910) * lu(k,1244) - lu(k,1255) = lu(k,1255) - lu(k,911) * lu(k,1244) - lu(k,1256) = lu(k,1256) - lu(k,912) * lu(k,1244) - lu(k,1257) = lu(k,1257) - lu(k,913) * lu(k,1244) - lu(k,1258) = lu(k,1258) - lu(k,914) * lu(k,1244) - lu(k,1259) = lu(k,1259) - lu(k,915) * lu(k,1244) - lu(k,1260) = lu(k,1260) - lu(k,916) * lu(k,1244) - lu(k,1261) = lu(k,1261) - lu(k,917) * lu(k,1244) - lu(k,1262) = lu(k,1262) - lu(k,918) * lu(k,1244) - lu(k,1263) = lu(k,1263) - lu(k,919) * lu(k,1244) - lu(k,1264) = lu(k,1264) - lu(k,920) * lu(k,1244) - lu(k,1265) = lu(k,1265) - lu(k,921) * lu(k,1244) - lu(k,1266) = lu(k,1266) - lu(k,922) * lu(k,1244) - lu(k,1284) = lu(k,1284) - lu(k,901) * lu(k,1283) - lu(k,1285) = lu(k,1285) - lu(k,902) * lu(k,1283) - lu(k,1286) = lu(k,1286) - lu(k,903) * lu(k,1283) - lu(k,1287) = lu(k,1287) - lu(k,904) * lu(k,1283) - lu(k,1288) = lu(k,1288) - lu(k,905) * lu(k,1283) - lu(k,1289) = lu(k,1289) - lu(k,906) * lu(k,1283) - lu(k,1290) = lu(k,1290) - lu(k,907) * lu(k,1283) - lu(k,1291) = lu(k,1291) - lu(k,908) * lu(k,1283) - lu(k,1292) = lu(k,1292) - lu(k,909) * lu(k,1283) - lu(k,1293) = lu(k,1293) - lu(k,910) * lu(k,1283) - lu(k,1294) = lu(k,1294) - lu(k,911) * lu(k,1283) - lu(k,1295) = lu(k,1295) - lu(k,912) * lu(k,1283) - lu(k,1296) = lu(k,1296) - lu(k,913) * lu(k,1283) - lu(k,1297) = lu(k,1297) - lu(k,914) * lu(k,1283) - lu(k,1298) = lu(k,1298) - lu(k,915) * lu(k,1283) - lu(k,1299) = lu(k,1299) - lu(k,916) * lu(k,1283) - lu(k,1300) = lu(k,1300) - lu(k,917) * lu(k,1283) - lu(k,1301) = lu(k,1301) - lu(k,918) * lu(k,1283) - lu(k,1302) = lu(k,1302) - lu(k,919) * lu(k,1283) - lu(k,1303) = lu(k,1303) - lu(k,920) * lu(k,1283) - lu(k,1304) = lu(k,1304) - lu(k,921) * lu(k,1283) - lu(k,1305) = lu(k,1305) - lu(k,922) * lu(k,1283) - lu(k,1319) = lu(k,1319) - lu(k,901) * lu(k,1318) - lu(k,1320) = lu(k,1320) - lu(k,902) * lu(k,1318) - lu(k,1321) = lu(k,1321) - lu(k,903) * lu(k,1318) - lu(k,1322) = lu(k,1322) - lu(k,904) * lu(k,1318) - lu(k,1323) = lu(k,1323) - lu(k,905) * lu(k,1318) - lu(k,1324) = lu(k,1324) - lu(k,906) * lu(k,1318) - lu(k,1325) = lu(k,1325) - lu(k,907) * lu(k,1318) - lu(k,1326) = lu(k,1326) - lu(k,908) * lu(k,1318) - lu(k,1327) = lu(k,1327) - lu(k,909) * lu(k,1318) - lu(k,1328) = lu(k,1328) - lu(k,910) * lu(k,1318) - lu(k,1329) = lu(k,1329) - lu(k,911) * lu(k,1318) - lu(k,1330) = lu(k,1330) - lu(k,912) * lu(k,1318) - lu(k,1331) = lu(k,1331) - lu(k,913) * lu(k,1318) - lu(k,1332) = lu(k,1332) - lu(k,914) * lu(k,1318) - lu(k,1333) = lu(k,1333) - lu(k,915) * lu(k,1318) - lu(k,1334) = lu(k,1334) - lu(k,916) * lu(k,1318) - lu(k,1335) = lu(k,1335) - lu(k,917) * lu(k,1318) - lu(k,1336) = lu(k,1336) - lu(k,918) * lu(k,1318) - lu(k,1337) = lu(k,1337) - lu(k,919) * lu(k,1318) - lu(k,1338) = lu(k,1338) - lu(k,920) * lu(k,1318) - lu(k,1339) = lu(k,1339) - lu(k,921) * lu(k,1318) - lu(k,1340) = lu(k,1340) - lu(k,922) * lu(k,1318) - lu(k,1363) = lu(k,1363) - lu(k,901) * lu(k,1362) - lu(k,1364) = lu(k,1364) - lu(k,902) * lu(k,1362) - lu(k,1365) = lu(k,1365) - lu(k,903) * lu(k,1362) - lu(k,1366) = lu(k,1366) - lu(k,904) * lu(k,1362) - lu(k,1367) = lu(k,1367) - lu(k,905) * lu(k,1362) - lu(k,1368) = lu(k,1368) - lu(k,906) * lu(k,1362) - lu(k,1369) = lu(k,1369) - lu(k,907) * lu(k,1362) - lu(k,1370) = lu(k,1370) - lu(k,908) * lu(k,1362) - lu(k,1371) = lu(k,1371) - lu(k,909) * lu(k,1362) - lu(k,1372) = lu(k,1372) - lu(k,910) * lu(k,1362) - lu(k,1373) = lu(k,1373) - lu(k,911) * lu(k,1362) - lu(k,1374) = lu(k,1374) - lu(k,912) * lu(k,1362) - lu(k,1375) = lu(k,1375) - lu(k,913) * lu(k,1362) - lu(k,1376) = lu(k,1376) - lu(k,914) * lu(k,1362) - lu(k,1377) = lu(k,1377) - lu(k,915) * lu(k,1362) - lu(k,1378) = lu(k,1378) - lu(k,916) * lu(k,1362) - lu(k,1379) = lu(k,1379) - lu(k,917) * lu(k,1362) - lu(k,1380) = lu(k,1380) - lu(k,918) * lu(k,1362) - lu(k,1381) = lu(k,1381) - lu(k,919) * lu(k,1362) - lu(k,1382) = lu(k,1382) - lu(k,920) * lu(k,1362) - lu(k,1383) = lu(k,1383) - lu(k,921) * lu(k,1362) - lu(k,1384) = lu(k,1384) - lu(k,922) * lu(k,1362) - lu(k,1422) = lu(k,1422) - lu(k,901) * lu(k,1421) - lu(k,1423) = lu(k,1423) - lu(k,902) * lu(k,1421) - lu(k,1424) = lu(k,1424) - lu(k,903) * lu(k,1421) - lu(k,1425) = lu(k,1425) - lu(k,904) * lu(k,1421) - lu(k,1426) = lu(k,1426) - lu(k,905) * lu(k,1421) - lu(k,1427) = lu(k,1427) - lu(k,906) * lu(k,1421) - lu(k,1428) = lu(k,1428) - lu(k,907) * lu(k,1421) - lu(k,1429) = lu(k,1429) - lu(k,908) * lu(k,1421) - lu(k,1430) = lu(k,1430) - lu(k,909) * lu(k,1421) - lu(k,1431) = lu(k,1431) - lu(k,910) * lu(k,1421) - lu(k,1432) = lu(k,1432) - lu(k,911) * lu(k,1421) - lu(k,1433) = lu(k,1433) - lu(k,912) * lu(k,1421) - lu(k,1434) = lu(k,1434) - lu(k,913) * lu(k,1421) - lu(k,1435) = lu(k,1435) - lu(k,914) * lu(k,1421) - lu(k,1436) = lu(k,1436) - lu(k,915) * lu(k,1421) - lu(k,1437) = lu(k,1437) - lu(k,916) * lu(k,1421) - lu(k,1438) = lu(k,1438) - lu(k,917) * lu(k,1421) - lu(k,1439) = lu(k,1439) - lu(k,918) * lu(k,1421) - lu(k,1440) = lu(k,1440) - lu(k,919) * lu(k,1421) - lu(k,1441) = lu(k,1441) - lu(k,920) * lu(k,1421) - lu(k,1442) = lu(k,1442) - lu(k,921) * lu(k,1421) - lu(k,1443) = lu(k,1443) - lu(k,922) * lu(k,1421) - lu(k,1464) = lu(k,1464) - lu(k,901) * lu(k,1463) - lu(k,1465) = lu(k,1465) - lu(k,902) * lu(k,1463) - lu(k,1466) = lu(k,1466) - lu(k,903) * lu(k,1463) - lu(k,1467) = lu(k,1467) - lu(k,904) * lu(k,1463) - lu(k,1468) = lu(k,1468) - lu(k,905) * lu(k,1463) - lu(k,1469) = lu(k,1469) - lu(k,906) * lu(k,1463) - lu(k,1470) = lu(k,1470) - lu(k,907) * lu(k,1463) - lu(k,1471) = lu(k,1471) - lu(k,908) * lu(k,1463) - lu(k,1472) = lu(k,1472) - lu(k,909) * lu(k,1463) - lu(k,1473) = lu(k,1473) - lu(k,910) * lu(k,1463) - lu(k,1474) = lu(k,1474) - lu(k,911) * lu(k,1463) - lu(k,1475) = lu(k,1475) - lu(k,912) * lu(k,1463) - lu(k,1476) = lu(k,1476) - lu(k,913) * lu(k,1463) - lu(k,1477) = lu(k,1477) - lu(k,914) * lu(k,1463) - lu(k,1478) = lu(k,1478) - lu(k,915) * lu(k,1463) - lu(k,1479) = lu(k,1479) - lu(k,916) * lu(k,1463) - lu(k,1480) = lu(k,1480) - lu(k,917) * lu(k,1463) - lu(k,1481) = lu(k,1481) - lu(k,918) * lu(k,1463) - lu(k,1482) = lu(k,1482) - lu(k,919) * lu(k,1463) - lu(k,1483) = lu(k,1483) - lu(k,920) * lu(k,1463) - lu(k,1484) = lu(k,1484) - lu(k,921) * lu(k,1463) - lu(k,1485) = lu(k,1485) - lu(k,922) * lu(k,1463) - lu(k,1505) = lu(k,1505) - lu(k,901) * lu(k,1504) - lu(k,1506) = lu(k,1506) - lu(k,902) * lu(k,1504) - lu(k,1507) = lu(k,1507) - lu(k,903) * lu(k,1504) - lu(k,1508) = lu(k,1508) - lu(k,904) * lu(k,1504) - lu(k,1509) = lu(k,1509) - lu(k,905) * lu(k,1504) - lu(k,1510) = lu(k,1510) - lu(k,906) * lu(k,1504) - lu(k,1511) = lu(k,1511) - lu(k,907) * lu(k,1504) - lu(k,1512) = lu(k,1512) - lu(k,908) * lu(k,1504) - lu(k,1513) = lu(k,1513) - lu(k,909) * lu(k,1504) - lu(k,1514) = lu(k,1514) - lu(k,910) * lu(k,1504) - lu(k,1515) = lu(k,1515) - lu(k,911) * lu(k,1504) - lu(k,1516) = lu(k,1516) - lu(k,912) * lu(k,1504) - lu(k,1517) = lu(k,1517) - lu(k,913) * lu(k,1504) - lu(k,1518) = lu(k,1518) - lu(k,914) * lu(k,1504) - lu(k,1519) = lu(k,1519) - lu(k,915) * lu(k,1504) - lu(k,1520) = lu(k,1520) - lu(k,916) * lu(k,1504) - lu(k,1521) = lu(k,1521) - lu(k,917) * lu(k,1504) - lu(k,1522) = lu(k,1522) - lu(k,918) * lu(k,1504) - lu(k,1523) = lu(k,1523) - lu(k,919) * lu(k,1504) - lu(k,1524) = lu(k,1524) - lu(k,920) * lu(k,1504) - lu(k,1525) = lu(k,1525) - lu(k,921) * lu(k,1504) - lu(k,1526) = lu(k,1526) - lu(k,922) * lu(k,1504) - lu(k,1547) = lu(k,1547) - lu(k,901) * lu(k,1546) - lu(k,1548) = lu(k,1548) - lu(k,902) * lu(k,1546) - lu(k,1549) = lu(k,1549) - lu(k,903) * lu(k,1546) - lu(k,1550) = lu(k,1550) - lu(k,904) * lu(k,1546) - lu(k,1551) = lu(k,1551) - lu(k,905) * lu(k,1546) - lu(k,1552) = lu(k,1552) - lu(k,906) * lu(k,1546) - lu(k,1553) = lu(k,1553) - lu(k,907) * lu(k,1546) - lu(k,1554) = lu(k,1554) - lu(k,908) * lu(k,1546) - lu(k,1555) = lu(k,1555) - lu(k,909) * lu(k,1546) - lu(k,1556) = lu(k,1556) - lu(k,910) * lu(k,1546) - lu(k,1557) = lu(k,1557) - lu(k,911) * lu(k,1546) - lu(k,1558) = lu(k,1558) - lu(k,912) * lu(k,1546) - lu(k,1559) = lu(k,1559) - lu(k,913) * lu(k,1546) - lu(k,1560) = lu(k,1560) - lu(k,914) * lu(k,1546) - lu(k,1561) = lu(k,1561) - lu(k,915) * lu(k,1546) - lu(k,1562) = lu(k,1562) - lu(k,916) * lu(k,1546) - lu(k,1563) = lu(k,1563) - lu(k,917) * lu(k,1546) - lu(k,1564) = lu(k,1564) - lu(k,918) * lu(k,1546) - lu(k,1565) = lu(k,1565) - lu(k,919) * lu(k,1546) - lu(k,1566) = lu(k,1566) - lu(k,920) * lu(k,1546) - lu(k,1567) = lu(k,1567) - lu(k,921) * lu(k,1546) - lu(k,1568) = lu(k,1568) - lu(k,922) * lu(k,1546) - lu(k,1589) = lu(k,1589) - lu(k,901) * lu(k,1588) - lu(k,1590) = lu(k,1590) - lu(k,902) * lu(k,1588) - lu(k,1591) = lu(k,1591) - lu(k,903) * lu(k,1588) - lu(k,1592) = lu(k,1592) - lu(k,904) * lu(k,1588) - lu(k,1593) = lu(k,1593) - lu(k,905) * lu(k,1588) - lu(k,1594) = lu(k,1594) - lu(k,906) * lu(k,1588) - lu(k,1595) = lu(k,1595) - lu(k,907) * lu(k,1588) - lu(k,1596) = lu(k,1596) - lu(k,908) * lu(k,1588) - lu(k,1597) = lu(k,1597) - lu(k,909) * lu(k,1588) - lu(k,1598) = lu(k,1598) - lu(k,910) * lu(k,1588) - lu(k,1599) = lu(k,1599) - lu(k,911) * lu(k,1588) - lu(k,1600) = lu(k,1600) - lu(k,912) * lu(k,1588) - lu(k,1601) = lu(k,1601) - lu(k,913) * lu(k,1588) - lu(k,1602) = lu(k,1602) - lu(k,914) * lu(k,1588) - lu(k,1603) = lu(k,1603) - lu(k,915) * lu(k,1588) - lu(k,1604) = lu(k,1604) - lu(k,916) * lu(k,1588) - lu(k,1605) = lu(k,1605) - lu(k,917) * lu(k,1588) - lu(k,1606) = lu(k,1606) - lu(k,918) * lu(k,1588) - lu(k,1607) = lu(k,1607) - lu(k,919) * lu(k,1588) - lu(k,1608) = lu(k,1608) - lu(k,920) * lu(k,1588) - lu(k,1609) = lu(k,1609) - lu(k,921) * lu(k,1588) - lu(k,1610) = lu(k,1610) - lu(k,922) * lu(k,1588) - lu(k,1621) = lu(k,1621) - lu(k,901) * lu(k,1620) - lu(k,1622) = lu(k,1622) - lu(k,902) * lu(k,1620) - lu(k,1623) = lu(k,1623) - lu(k,903) * lu(k,1620) - lu(k,1624) = lu(k,1624) - lu(k,904) * lu(k,1620) - lu(k,1625) = lu(k,1625) - lu(k,905) * lu(k,1620) - lu(k,1626) = lu(k,1626) - lu(k,906) * lu(k,1620) - lu(k,1627) = lu(k,1627) - lu(k,907) * lu(k,1620) - lu(k,1628) = lu(k,1628) - lu(k,908) * lu(k,1620) - lu(k,1629) = lu(k,1629) - lu(k,909) * lu(k,1620) - lu(k,1630) = lu(k,1630) - lu(k,910) * lu(k,1620) - lu(k,1631) = lu(k,1631) - lu(k,911) * lu(k,1620) - lu(k,1632) = lu(k,1632) - lu(k,912) * lu(k,1620) - lu(k,1633) = lu(k,1633) - lu(k,913) * lu(k,1620) - lu(k,1634) = lu(k,1634) - lu(k,914) * lu(k,1620) - lu(k,1635) = lu(k,1635) - lu(k,915) * lu(k,1620) - lu(k,1636) = lu(k,1636) - lu(k,916) * lu(k,1620) - lu(k,1637) = lu(k,1637) - lu(k,917) * lu(k,1620) - lu(k,1638) = lu(k,1638) - lu(k,918) * lu(k,1620) - lu(k,1639) = lu(k,1639) - lu(k,919) * lu(k,1620) - lu(k,1640) = lu(k,1640) - lu(k,920) * lu(k,1620) - lu(k,1641) = lu(k,1641) - lu(k,921) * lu(k,1620) - lu(k,1642) = lu(k,1642) - lu(k,922) * lu(k,1620) - lu(k,1656) = lu(k,1656) - lu(k,901) * lu(k,1655) - lu(k,1657) = lu(k,1657) - lu(k,902) * lu(k,1655) - lu(k,1658) = lu(k,1658) - lu(k,903) * lu(k,1655) - lu(k,1659) = lu(k,1659) - lu(k,904) * lu(k,1655) - lu(k,1660) = lu(k,1660) - lu(k,905) * lu(k,1655) - lu(k,1661) = lu(k,1661) - lu(k,906) * lu(k,1655) - lu(k,1662) = lu(k,1662) - lu(k,907) * lu(k,1655) - lu(k,1663) = lu(k,1663) - lu(k,908) * lu(k,1655) - lu(k,1664) = lu(k,1664) - lu(k,909) * lu(k,1655) - lu(k,1665) = lu(k,1665) - lu(k,910) * lu(k,1655) - lu(k,1666) = lu(k,1666) - lu(k,911) * lu(k,1655) - lu(k,1667) = lu(k,1667) - lu(k,912) * lu(k,1655) - lu(k,1668) = lu(k,1668) - lu(k,913) * lu(k,1655) - lu(k,1669) = lu(k,1669) - lu(k,914) * lu(k,1655) - lu(k,1670) = lu(k,1670) - lu(k,915) * lu(k,1655) - lu(k,1671) = lu(k,1671) - lu(k,916) * lu(k,1655) - lu(k,1672) = lu(k,1672) - lu(k,917) * lu(k,1655) - lu(k,1673) = lu(k,1673) - lu(k,918) * lu(k,1655) - lu(k,1674) = lu(k,1674) - lu(k,919) * lu(k,1655) - lu(k,1675) = lu(k,1675) - lu(k,920) * lu(k,1655) - lu(k,1676) = lu(k,1676) - lu(k,921) * lu(k,1655) - lu(k,1677) = lu(k,1677) - lu(k,922) * lu(k,1655) - lu(k,1698) = lu(k,1698) - lu(k,901) * lu(k,1697) - lu(k,1699) = lu(k,1699) - lu(k,902) * lu(k,1697) - lu(k,1700) = lu(k,1700) - lu(k,903) * lu(k,1697) - lu(k,1701) = lu(k,1701) - lu(k,904) * lu(k,1697) - lu(k,1702) = lu(k,1702) - lu(k,905) * lu(k,1697) - lu(k,1703) = lu(k,1703) - lu(k,906) * lu(k,1697) - lu(k,1704) = lu(k,1704) - lu(k,907) * lu(k,1697) - lu(k,1705) = lu(k,1705) - lu(k,908) * lu(k,1697) - lu(k,1706) = lu(k,1706) - lu(k,909) * lu(k,1697) - lu(k,1707) = lu(k,1707) - lu(k,910) * lu(k,1697) - lu(k,1708) = lu(k,1708) - lu(k,911) * lu(k,1697) - lu(k,1709) = lu(k,1709) - lu(k,912) * lu(k,1697) - lu(k,1710) = lu(k,1710) - lu(k,913) * lu(k,1697) - lu(k,1711) = lu(k,1711) - lu(k,914) * lu(k,1697) - lu(k,1712) = lu(k,1712) - lu(k,915) * lu(k,1697) - lu(k,1713) = lu(k,1713) - lu(k,916) * lu(k,1697) - lu(k,1714) = lu(k,1714) - lu(k,917) * lu(k,1697) - lu(k,1715) = lu(k,1715) - lu(k,918) * lu(k,1697) - lu(k,1716) = lu(k,1716) - lu(k,919) * lu(k,1697) - lu(k,1717) = lu(k,1717) - lu(k,920) * lu(k,1697) - lu(k,1718) = lu(k,1718) - lu(k,921) * lu(k,1697) - lu(k,1719) = lu(k,1719) - lu(k,922) * lu(k,1697) - lu(k,1742) = lu(k,1742) - lu(k,901) * lu(k,1741) - lu(k,1743) = lu(k,1743) - lu(k,902) * lu(k,1741) - lu(k,1744) = lu(k,1744) - lu(k,903) * lu(k,1741) - lu(k,1745) = lu(k,1745) - lu(k,904) * lu(k,1741) - lu(k,1746) = lu(k,1746) - lu(k,905) * lu(k,1741) - lu(k,1747) = lu(k,1747) - lu(k,906) * lu(k,1741) - lu(k,1748) = lu(k,1748) - lu(k,907) * lu(k,1741) - lu(k,1749) = lu(k,1749) - lu(k,908) * lu(k,1741) - lu(k,1750) = lu(k,1750) - lu(k,909) * lu(k,1741) - lu(k,1751) = lu(k,1751) - lu(k,910) * lu(k,1741) - lu(k,1752) = lu(k,1752) - lu(k,911) * lu(k,1741) - lu(k,1753) = lu(k,1753) - lu(k,912) * lu(k,1741) - lu(k,1754) = lu(k,1754) - lu(k,913) * lu(k,1741) - lu(k,1755) = lu(k,1755) - lu(k,914) * lu(k,1741) - lu(k,1756) = lu(k,1756) - lu(k,915) * lu(k,1741) - lu(k,1757) = lu(k,1757) - lu(k,916) * lu(k,1741) - lu(k,1758) = lu(k,1758) - lu(k,917) * lu(k,1741) - lu(k,1759) = lu(k,1759) - lu(k,918) * lu(k,1741) - lu(k,1760) = lu(k,1760) - lu(k,919) * lu(k,1741) - lu(k,1761) = lu(k,1761) - lu(k,920) * lu(k,1741) - lu(k,1762) = lu(k,1762) - lu(k,921) * lu(k,1741) - lu(k,1763) = lu(k,1763) - lu(k,922) * lu(k,1741) - lu(k,1777) = lu(k,1777) - lu(k,901) * lu(k,1776) - lu(k,1778) = lu(k,1778) - lu(k,902) * lu(k,1776) - lu(k,1779) = lu(k,1779) - lu(k,903) * lu(k,1776) - lu(k,1780) = lu(k,1780) - lu(k,904) * lu(k,1776) - lu(k,1781) = lu(k,1781) - lu(k,905) * lu(k,1776) - lu(k,1782) = lu(k,1782) - lu(k,906) * lu(k,1776) - lu(k,1783) = lu(k,1783) - lu(k,907) * lu(k,1776) - lu(k,1784) = lu(k,1784) - lu(k,908) * lu(k,1776) - lu(k,1785) = lu(k,1785) - lu(k,909) * lu(k,1776) - lu(k,1786) = lu(k,1786) - lu(k,910) * lu(k,1776) - lu(k,1787) = lu(k,1787) - lu(k,911) * lu(k,1776) - lu(k,1788) = lu(k,1788) - lu(k,912) * lu(k,1776) - lu(k,1789) = lu(k,1789) - lu(k,913) * lu(k,1776) - lu(k,1790) = lu(k,1790) - lu(k,914) * lu(k,1776) - lu(k,1791) = lu(k,1791) - lu(k,915) * lu(k,1776) - lu(k,1792) = lu(k,1792) - lu(k,916) * lu(k,1776) - lu(k,1793) = lu(k,1793) - lu(k,917) * lu(k,1776) - lu(k,1794) = lu(k,1794) - lu(k,918) * lu(k,1776) - lu(k,1795) = lu(k,1795) - lu(k,919) * lu(k,1776) - lu(k,1796) = lu(k,1796) - lu(k,920) * lu(k,1776) - lu(k,1797) = lu(k,1797) - lu(k,921) * lu(k,1776) - lu(k,1798) = lu(k,1798) - lu(k,922) * lu(k,1776) - lu(k,1835) = lu(k,1835) - lu(k,901) * lu(k,1834) - lu(k,1836) = lu(k,1836) - lu(k,902) * lu(k,1834) - lu(k,1837) = lu(k,1837) - lu(k,903) * lu(k,1834) - lu(k,1838) = lu(k,1838) - lu(k,904) * lu(k,1834) - lu(k,1839) = lu(k,1839) - lu(k,905) * lu(k,1834) - lu(k,1840) = lu(k,1840) - lu(k,906) * lu(k,1834) - lu(k,1841) = lu(k,1841) - lu(k,907) * lu(k,1834) - lu(k,1842) = lu(k,1842) - lu(k,908) * lu(k,1834) - lu(k,1843) = lu(k,1843) - lu(k,909) * lu(k,1834) - lu(k,1844) = lu(k,1844) - lu(k,910) * lu(k,1834) - lu(k,1845) = lu(k,1845) - lu(k,911) * lu(k,1834) - lu(k,1846) = lu(k,1846) - lu(k,912) * lu(k,1834) - lu(k,1847) = lu(k,1847) - lu(k,913) * lu(k,1834) - lu(k,1848) = lu(k,1848) - lu(k,914) * lu(k,1834) - lu(k,1849) = lu(k,1849) - lu(k,915) * lu(k,1834) - lu(k,1850) = lu(k,1850) - lu(k,916) * lu(k,1834) - lu(k,1851) = lu(k,1851) - lu(k,917) * lu(k,1834) - lu(k,1852) = lu(k,1852) - lu(k,918) * lu(k,1834) - lu(k,1853) = lu(k,1853) - lu(k,919) * lu(k,1834) - lu(k,1854) = lu(k,1854) - lu(k,920) * lu(k,1834) - lu(k,1855) = lu(k,1855) - lu(k,921) * lu(k,1834) - lu(k,1856) = lu(k,1856) - lu(k,922) * lu(k,1834) - lu(k,943) = 1._r8 / lu(k,943) - lu(k,944) = lu(k,944) * lu(k,943) - lu(k,945) = lu(k,945) * lu(k,943) - lu(k,946) = lu(k,946) * lu(k,943) - lu(k,947) = lu(k,947) * lu(k,943) - lu(k,948) = lu(k,948) * lu(k,943) - lu(k,949) = lu(k,949) * lu(k,943) - lu(k,950) = lu(k,950) * lu(k,943) - lu(k,951) = lu(k,951) * lu(k,943) - lu(k,952) = lu(k,952) * lu(k,943) - lu(k,953) = lu(k,953) * lu(k,943) - lu(k,954) = lu(k,954) * lu(k,943) - lu(k,955) = lu(k,955) * lu(k,943) - lu(k,956) = lu(k,956) * lu(k,943) - lu(k,957) = lu(k,957) * lu(k,943) - lu(k,958) = lu(k,958) * lu(k,943) - lu(k,959) = lu(k,959) * lu(k,943) - lu(k,960) = lu(k,960) * lu(k,943) - lu(k,961) = lu(k,961) * lu(k,943) - lu(k,962) = lu(k,962) * lu(k,943) - lu(k,963) = lu(k,963) * lu(k,943) - lu(k,964) = lu(k,964) * lu(k,943) - lu(k,990) = lu(k,990) - lu(k,944) * lu(k,989) - lu(k,991) = lu(k,991) - lu(k,945) * lu(k,989) - lu(k,992) = lu(k,992) - lu(k,946) * lu(k,989) - lu(k,993) = lu(k,993) - lu(k,947) * lu(k,989) - lu(k,994) = lu(k,994) - lu(k,948) * lu(k,989) - lu(k,995) = lu(k,995) - lu(k,949) * lu(k,989) - lu(k,996) = lu(k,996) - lu(k,950) * lu(k,989) - lu(k,997) = lu(k,997) - lu(k,951) * lu(k,989) - lu(k,998) = lu(k,998) - lu(k,952) * lu(k,989) - lu(k,999) = lu(k,999) - lu(k,953) * lu(k,989) - lu(k,1000) = lu(k,1000) - lu(k,954) * lu(k,989) - lu(k,1001) = lu(k,1001) - lu(k,955) * lu(k,989) - lu(k,1002) = lu(k,1002) - lu(k,956) * lu(k,989) - lu(k,1003) = lu(k,1003) - lu(k,957) * lu(k,989) - lu(k,1004) = lu(k,1004) - lu(k,958) * lu(k,989) - lu(k,1005) = lu(k,1005) - lu(k,959) * lu(k,989) - lu(k,1006) = lu(k,1006) - lu(k,960) * lu(k,989) - lu(k,1007) = lu(k,1007) - lu(k,961) * lu(k,989) - lu(k,1008) = lu(k,1008) - lu(k,962) * lu(k,989) - lu(k,1009) = lu(k,1009) - lu(k,963) * lu(k,989) - lu(k,1010) = lu(k,1010) - lu(k,964) * lu(k,989) - lu(k,1032) = lu(k,1032) - lu(k,944) * lu(k,1031) - lu(k,1033) = lu(k,1033) - lu(k,945) * lu(k,1031) - lu(k,1034) = lu(k,1034) - lu(k,946) * lu(k,1031) - lu(k,1035) = lu(k,1035) - lu(k,947) * lu(k,1031) - lu(k,1036) = lu(k,1036) - lu(k,948) * lu(k,1031) - lu(k,1037) = lu(k,1037) - lu(k,949) * lu(k,1031) - lu(k,1038) = lu(k,1038) - lu(k,950) * lu(k,1031) - lu(k,1039) = lu(k,1039) - lu(k,951) * lu(k,1031) - lu(k,1040) = lu(k,1040) - lu(k,952) * lu(k,1031) - lu(k,1041) = lu(k,1041) - lu(k,953) * lu(k,1031) - lu(k,1042) = lu(k,1042) - lu(k,954) * lu(k,1031) - lu(k,1043) = lu(k,1043) - lu(k,955) * lu(k,1031) - lu(k,1044) = lu(k,1044) - lu(k,956) * lu(k,1031) - lu(k,1045) = lu(k,1045) - lu(k,957) * lu(k,1031) - lu(k,1046) = lu(k,1046) - lu(k,958) * lu(k,1031) - lu(k,1047) = lu(k,1047) - lu(k,959) * lu(k,1031) - lu(k,1048) = lu(k,1048) - lu(k,960) * lu(k,1031) - lu(k,1049) = lu(k,1049) - lu(k,961) * lu(k,1031) - lu(k,1050) = lu(k,1050) - lu(k,962) * lu(k,1031) - lu(k,1051) = lu(k,1051) - lu(k,963) * lu(k,1031) - lu(k,1052) = lu(k,1052) - lu(k,964) * lu(k,1031) - lu(k,1073) = lu(k,1073) - lu(k,944) * lu(k,1072) - lu(k,1074) = lu(k,1074) - lu(k,945) * lu(k,1072) - lu(k,1075) = lu(k,1075) - lu(k,946) * lu(k,1072) - lu(k,1076) = lu(k,1076) - lu(k,947) * lu(k,1072) - lu(k,1077) = lu(k,1077) - lu(k,948) * lu(k,1072) - lu(k,1078) = lu(k,1078) - lu(k,949) * lu(k,1072) - lu(k,1079) = lu(k,1079) - lu(k,950) * lu(k,1072) - lu(k,1080) = lu(k,1080) - lu(k,951) * lu(k,1072) - lu(k,1081) = lu(k,1081) - lu(k,952) * lu(k,1072) - lu(k,1082) = lu(k,1082) - lu(k,953) * lu(k,1072) - lu(k,1083) = lu(k,1083) - lu(k,954) * lu(k,1072) - lu(k,1084) = lu(k,1084) - lu(k,955) * lu(k,1072) - lu(k,1085) = lu(k,1085) - lu(k,956) * lu(k,1072) - lu(k,1086) = lu(k,1086) - lu(k,957) * lu(k,1072) - lu(k,1087) = lu(k,1087) - lu(k,958) * lu(k,1072) - lu(k,1088) = lu(k,1088) - lu(k,959) * lu(k,1072) - lu(k,1089) = lu(k,1089) - lu(k,960) * lu(k,1072) - lu(k,1090) = lu(k,1090) - lu(k,961) * lu(k,1072) - lu(k,1091) = lu(k,1091) - lu(k,962) * lu(k,1072) - lu(k,1092) = lu(k,1092) - lu(k,963) * lu(k,1072) - lu(k,1093) = lu(k,1093) - lu(k,964) * lu(k,1072) - lu(k,1112) = lu(k,1112) - lu(k,944) * lu(k,1111) - lu(k,1113) = lu(k,1113) - lu(k,945) * lu(k,1111) - lu(k,1114) = lu(k,1114) - lu(k,946) * lu(k,1111) - lu(k,1115) = lu(k,1115) - lu(k,947) * lu(k,1111) - lu(k,1116) = lu(k,1116) - lu(k,948) * lu(k,1111) - lu(k,1117) = lu(k,1117) - lu(k,949) * lu(k,1111) - lu(k,1118) = lu(k,1118) - lu(k,950) * lu(k,1111) - lu(k,1119) = lu(k,1119) - lu(k,951) * lu(k,1111) - lu(k,1120) = lu(k,1120) - lu(k,952) * lu(k,1111) - lu(k,1121) = lu(k,1121) - lu(k,953) * lu(k,1111) - lu(k,1122) = lu(k,1122) - lu(k,954) * lu(k,1111) - lu(k,1123) = lu(k,1123) - lu(k,955) * lu(k,1111) - lu(k,1124) = lu(k,1124) - lu(k,956) * lu(k,1111) - lu(k,1125) = lu(k,1125) - lu(k,957) * lu(k,1111) - lu(k,1126) = lu(k,1126) - lu(k,958) * lu(k,1111) - lu(k,1127) = lu(k,1127) - lu(k,959) * lu(k,1111) - lu(k,1128) = lu(k,1128) - lu(k,960) * lu(k,1111) - lu(k,1129) = lu(k,1129) - lu(k,961) * lu(k,1111) - lu(k,1130) = lu(k,1130) - lu(k,962) * lu(k,1111) - lu(k,1131) = lu(k,1131) - lu(k,963) * lu(k,1111) - lu(k,1132) = lu(k,1132) - lu(k,964) * lu(k,1111) - lu(k,1156) = lu(k,1156) - lu(k,944) * lu(k,1155) - lu(k,1157) = lu(k,1157) - lu(k,945) * lu(k,1155) - lu(k,1158) = lu(k,1158) - lu(k,946) * lu(k,1155) - lu(k,1159) = lu(k,1159) - lu(k,947) * lu(k,1155) - lu(k,1160) = lu(k,1160) - lu(k,948) * lu(k,1155) - lu(k,1161) = lu(k,1161) - lu(k,949) * lu(k,1155) - lu(k,1162) = lu(k,1162) - lu(k,950) * lu(k,1155) - lu(k,1163) = lu(k,1163) - lu(k,951) * lu(k,1155) - lu(k,1164) = lu(k,1164) - lu(k,952) * lu(k,1155) - lu(k,1165) = lu(k,1165) - lu(k,953) * lu(k,1155) - lu(k,1166) = lu(k,1166) - lu(k,954) * lu(k,1155) - lu(k,1167) = lu(k,1167) - lu(k,955) * lu(k,1155) - lu(k,1168) = lu(k,1168) - lu(k,956) * lu(k,1155) - lu(k,1169) = lu(k,1169) - lu(k,957) * lu(k,1155) - lu(k,1170) = lu(k,1170) - lu(k,958) * lu(k,1155) - lu(k,1171) = lu(k,1171) - lu(k,959) * lu(k,1155) - lu(k,1172) = lu(k,1172) - lu(k,960) * lu(k,1155) - lu(k,1173) = lu(k,1173) - lu(k,961) * lu(k,1155) - lu(k,1174) = lu(k,1174) - lu(k,962) * lu(k,1155) - lu(k,1175) = lu(k,1175) - lu(k,963) * lu(k,1155) - lu(k,1176) = lu(k,1176) - lu(k,964) * lu(k,1155) - lu(k,1197) = lu(k,1197) - lu(k,944) * lu(k,1196) - lu(k,1198) = lu(k,1198) - lu(k,945) * lu(k,1196) - lu(k,1199) = lu(k,1199) - lu(k,946) * lu(k,1196) - lu(k,1200) = lu(k,1200) - lu(k,947) * lu(k,1196) - lu(k,1201) = lu(k,1201) - lu(k,948) * lu(k,1196) - lu(k,1202) = lu(k,1202) - lu(k,949) * lu(k,1196) - lu(k,1203) = lu(k,1203) - lu(k,950) * lu(k,1196) - lu(k,1204) = lu(k,1204) - lu(k,951) * lu(k,1196) - lu(k,1205) = lu(k,1205) - lu(k,952) * lu(k,1196) - lu(k,1206) = lu(k,1206) - lu(k,953) * lu(k,1196) - lu(k,1207) = lu(k,1207) - lu(k,954) * lu(k,1196) - lu(k,1208) = lu(k,1208) - lu(k,955) * lu(k,1196) - lu(k,1209) = lu(k,1209) - lu(k,956) * lu(k,1196) - lu(k,1210) = lu(k,1210) - lu(k,957) * lu(k,1196) - lu(k,1211) = lu(k,1211) - lu(k,958) * lu(k,1196) - lu(k,1212) = lu(k,1212) - lu(k,959) * lu(k,1196) - lu(k,1213) = lu(k,1213) - lu(k,960) * lu(k,1196) - lu(k,1214) = lu(k,1214) - lu(k,961) * lu(k,1196) - lu(k,1215) = lu(k,1215) - lu(k,962) * lu(k,1196) - lu(k,1216) = lu(k,1216) - lu(k,963) * lu(k,1196) - lu(k,1217) = lu(k,1217) - lu(k,964) * lu(k,1196) - lu(k,1246) = lu(k,1246) - lu(k,944) * lu(k,1245) - lu(k,1247) = lu(k,1247) - lu(k,945) * lu(k,1245) - lu(k,1248) = lu(k,1248) - lu(k,946) * lu(k,1245) - lu(k,1249) = lu(k,1249) - lu(k,947) * lu(k,1245) - lu(k,1250) = lu(k,1250) - lu(k,948) * lu(k,1245) - lu(k,1251) = lu(k,1251) - lu(k,949) * lu(k,1245) - lu(k,1252) = lu(k,1252) - lu(k,950) * lu(k,1245) - lu(k,1253) = lu(k,1253) - lu(k,951) * lu(k,1245) - lu(k,1254) = lu(k,1254) - lu(k,952) * lu(k,1245) - lu(k,1255) = lu(k,1255) - lu(k,953) * lu(k,1245) - lu(k,1256) = lu(k,1256) - lu(k,954) * lu(k,1245) - lu(k,1257) = lu(k,1257) - lu(k,955) * lu(k,1245) - lu(k,1258) = lu(k,1258) - lu(k,956) * lu(k,1245) - lu(k,1259) = lu(k,1259) - lu(k,957) * lu(k,1245) - lu(k,1260) = lu(k,1260) - lu(k,958) * lu(k,1245) - lu(k,1261) = lu(k,1261) - lu(k,959) * lu(k,1245) - lu(k,1262) = lu(k,1262) - lu(k,960) * lu(k,1245) - lu(k,1263) = lu(k,1263) - lu(k,961) * lu(k,1245) - lu(k,1264) = lu(k,1264) - lu(k,962) * lu(k,1245) - lu(k,1265) = lu(k,1265) - lu(k,963) * lu(k,1245) - lu(k,1266) = lu(k,1266) - lu(k,964) * lu(k,1245) - lu(k,1285) = lu(k,1285) - lu(k,944) * lu(k,1284) - lu(k,1286) = lu(k,1286) - lu(k,945) * lu(k,1284) - lu(k,1287) = lu(k,1287) - lu(k,946) * lu(k,1284) - lu(k,1288) = lu(k,1288) - lu(k,947) * lu(k,1284) - lu(k,1289) = lu(k,1289) - lu(k,948) * lu(k,1284) - lu(k,1290) = lu(k,1290) - lu(k,949) * lu(k,1284) - lu(k,1291) = lu(k,1291) - lu(k,950) * lu(k,1284) - lu(k,1292) = lu(k,1292) - lu(k,951) * lu(k,1284) - lu(k,1293) = lu(k,1293) - lu(k,952) * lu(k,1284) - lu(k,1294) = lu(k,1294) - lu(k,953) * lu(k,1284) - lu(k,1295) = lu(k,1295) - lu(k,954) * lu(k,1284) - lu(k,1296) = lu(k,1296) - lu(k,955) * lu(k,1284) - lu(k,1297) = lu(k,1297) - lu(k,956) * lu(k,1284) - lu(k,1298) = lu(k,1298) - lu(k,957) * lu(k,1284) - lu(k,1299) = lu(k,1299) - lu(k,958) * lu(k,1284) - lu(k,1300) = lu(k,1300) - lu(k,959) * lu(k,1284) - lu(k,1301) = lu(k,1301) - lu(k,960) * lu(k,1284) - lu(k,1302) = lu(k,1302) - lu(k,961) * lu(k,1284) - lu(k,1303) = lu(k,1303) - lu(k,962) * lu(k,1284) - lu(k,1304) = lu(k,1304) - lu(k,963) * lu(k,1284) - lu(k,1305) = lu(k,1305) - lu(k,964) * lu(k,1284) - lu(k,1320) = lu(k,1320) - lu(k,944) * lu(k,1319) - lu(k,1321) = lu(k,1321) - lu(k,945) * lu(k,1319) - lu(k,1322) = lu(k,1322) - lu(k,946) * lu(k,1319) - lu(k,1323) = lu(k,1323) - lu(k,947) * lu(k,1319) - lu(k,1324) = lu(k,1324) - lu(k,948) * lu(k,1319) - lu(k,1325) = lu(k,1325) - lu(k,949) * lu(k,1319) - lu(k,1326) = lu(k,1326) - lu(k,950) * lu(k,1319) - lu(k,1327) = lu(k,1327) - lu(k,951) * lu(k,1319) - lu(k,1328) = lu(k,1328) - lu(k,952) * lu(k,1319) - lu(k,1329) = lu(k,1329) - lu(k,953) * lu(k,1319) - lu(k,1330) = lu(k,1330) - lu(k,954) * lu(k,1319) - lu(k,1331) = lu(k,1331) - lu(k,955) * lu(k,1319) - lu(k,1332) = lu(k,1332) - lu(k,956) * lu(k,1319) - lu(k,1333) = lu(k,1333) - lu(k,957) * lu(k,1319) - lu(k,1334) = lu(k,1334) - lu(k,958) * lu(k,1319) - lu(k,1335) = lu(k,1335) - lu(k,959) * lu(k,1319) - lu(k,1336) = lu(k,1336) - lu(k,960) * lu(k,1319) - lu(k,1337) = lu(k,1337) - lu(k,961) * lu(k,1319) - lu(k,1338) = lu(k,1338) - lu(k,962) * lu(k,1319) - lu(k,1339) = lu(k,1339) - lu(k,963) * lu(k,1319) - lu(k,1340) = lu(k,1340) - lu(k,964) * lu(k,1319) - lu(k,1364) = lu(k,1364) - lu(k,944) * lu(k,1363) - lu(k,1365) = lu(k,1365) - lu(k,945) * lu(k,1363) - lu(k,1366) = lu(k,1366) - lu(k,946) * lu(k,1363) - lu(k,1367) = lu(k,1367) - lu(k,947) * lu(k,1363) - lu(k,1368) = lu(k,1368) - lu(k,948) * lu(k,1363) - lu(k,1369) = lu(k,1369) - lu(k,949) * lu(k,1363) - lu(k,1370) = lu(k,1370) - lu(k,950) * lu(k,1363) - lu(k,1371) = lu(k,1371) - lu(k,951) * lu(k,1363) - lu(k,1372) = lu(k,1372) - lu(k,952) * lu(k,1363) - lu(k,1373) = lu(k,1373) - lu(k,953) * lu(k,1363) - lu(k,1374) = lu(k,1374) - lu(k,954) * lu(k,1363) - lu(k,1375) = lu(k,1375) - lu(k,955) * lu(k,1363) - lu(k,1376) = lu(k,1376) - lu(k,956) * lu(k,1363) - lu(k,1377) = lu(k,1377) - lu(k,957) * lu(k,1363) - lu(k,1378) = lu(k,1378) - lu(k,958) * lu(k,1363) - lu(k,1379) = lu(k,1379) - lu(k,959) * lu(k,1363) - lu(k,1380) = lu(k,1380) - lu(k,960) * lu(k,1363) - lu(k,1381) = lu(k,1381) - lu(k,961) * lu(k,1363) - lu(k,1382) = lu(k,1382) - lu(k,962) * lu(k,1363) - lu(k,1383) = lu(k,1383) - lu(k,963) * lu(k,1363) - lu(k,1384) = lu(k,1384) - lu(k,964) * lu(k,1363) - lu(k,1423) = lu(k,1423) - lu(k,944) * lu(k,1422) - lu(k,1424) = lu(k,1424) - lu(k,945) * lu(k,1422) - lu(k,1425) = lu(k,1425) - lu(k,946) * lu(k,1422) - lu(k,1426) = lu(k,1426) - lu(k,947) * lu(k,1422) - lu(k,1427) = lu(k,1427) - lu(k,948) * lu(k,1422) - lu(k,1428) = lu(k,1428) - lu(k,949) * lu(k,1422) - lu(k,1429) = lu(k,1429) - lu(k,950) * lu(k,1422) - lu(k,1430) = lu(k,1430) - lu(k,951) * lu(k,1422) - lu(k,1431) = lu(k,1431) - lu(k,952) * lu(k,1422) - lu(k,1432) = lu(k,1432) - lu(k,953) * lu(k,1422) - lu(k,1433) = lu(k,1433) - lu(k,954) * lu(k,1422) - lu(k,1434) = lu(k,1434) - lu(k,955) * lu(k,1422) - lu(k,1435) = lu(k,1435) - lu(k,956) * lu(k,1422) - lu(k,1436) = lu(k,1436) - lu(k,957) * lu(k,1422) - lu(k,1437) = lu(k,1437) - lu(k,958) * lu(k,1422) - lu(k,1438) = lu(k,1438) - lu(k,959) * lu(k,1422) - lu(k,1439) = lu(k,1439) - lu(k,960) * lu(k,1422) - lu(k,1440) = lu(k,1440) - lu(k,961) * lu(k,1422) - lu(k,1441) = lu(k,1441) - lu(k,962) * lu(k,1422) - lu(k,1442) = lu(k,1442) - lu(k,963) * lu(k,1422) - lu(k,1443) = lu(k,1443) - lu(k,964) * lu(k,1422) - lu(k,1465) = lu(k,1465) - lu(k,944) * lu(k,1464) - lu(k,1466) = lu(k,1466) - lu(k,945) * lu(k,1464) - lu(k,1467) = lu(k,1467) - lu(k,946) * lu(k,1464) - lu(k,1468) = lu(k,1468) - lu(k,947) * lu(k,1464) - lu(k,1469) = lu(k,1469) - lu(k,948) * lu(k,1464) - lu(k,1470) = lu(k,1470) - lu(k,949) * lu(k,1464) - lu(k,1471) = lu(k,1471) - lu(k,950) * lu(k,1464) - lu(k,1472) = lu(k,1472) - lu(k,951) * lu(k,1464) - lu(k,1473) = lu(k,1473) - lu(k,952) * lu(k,1464) - lu(k,1474) = lu(k,1474) - lu(k,953) * lu(k,1464) - lu(k,1475) = lu(k,1475) - lu(k,954) * lu(k,1464) - lu(k,1476) = lu(k,1476) - lu(k,955) * lu(k,1464) - lu(k,1477) = lu(k,1477) - lu(k,956) * lu(k,1464) - lu(k,1478) = lu(k,1478) - lu(k,957) * lu(k,1464) - lu(k,1479) = lu(k,1479) - lu(k,958) * lu(k,1464) - lu(k,1480) = lu(k,1480) - lu(k,959) * lu(k,1464) - lu(k,1481) = lu(k,1481) - lu(k,960) * lu(k,1464) - lu(k,1482) = lu(k,1482) - lu(k,961) * lu(k,1464) - lu(k,1483) = lu(k,1483) - lu(k,962) * lu(k,1464) - lu(k,1484) = lu(k,1484) - lu(k,963) * lu(k,1464) - lu(k,1485) = lu(k,1485) - lu(k,964) * lu(k,1464) - lu(k,1506) = lu(k,1506) - lu(k,944) * lu(k,1505) - lu(k,1507) = lu(k,1507) - lu(k,945) * lu(k,1505) - lu(k,1508) = lu(k,1508) - lu(k,946) * lu(k,1505) - lu(k,1509) = lu(k,1509) - lu(k,947) * lu(k,1505) - lu(k,1510) = lu(k,1510) - lu(k,948) * lu(k,1505) - lu(k,1511) = lu(k,1511) - lu(k,949) * lu(k,1505) - lu(k,1512) = lu(k,1512) - lu(k,950) * lu(k,1505) - lu(k,1513) = lu(k,1513) - lu(k,951) * lu(k,1505) - lu(k,1514) = lu(k,1514) - lu(k,952) * lu(k,1505) - lu(k,1515) = lu(k,1515) - lu(k,953) * lu(k,1505) - lu(k,1516) = lu(k,1516) - lu(k,954) * lu(k,1505) - lu(k,1517) = lu(k,1517) - lu(k,955) * lu(k,1505) - lu(k,1518) = lu(k,1518) - lu(k,956) * lu(k,1505) - lu(k,1519) = lu(k,1519) - lu(k,957) * lu(k,1505) - lu(k,1520) = lu(k,1520) - lu(k,958) * lu(k,1505) - lu(k,1521) = lu(k,1521) - lu(k,959) * lu(k,1505) - lu(k,1522) = lu(k,1522) - lu(k,960) * lu(k,1505) - lu(k,1523) = lu(k,1523) - lu(k,961) * lu(k,1505) - lu(k,1524) = lu(k,1524) - lu(k,962) * lu(k,1505) - lu(k,1525) = lu(k,1525) - lu(k,963) * lu(k,1505) - lu(k,1526) = lu(k,1526) - lu(k,964) * lu(k,1505) - lu(k,1548) = lu(k,1548) - lu(k,944) * lu(k,1547) - lu(k,1549) = lu(k,1549) - lu(k,945) * lu(k,1547) - lu(k,1550) = lu(k,1550) - lu(k,946) * lu(k,1547) - lu(k,1551) = lu(k,1551) - lu(k,947) * lu(k,1547) - lu(k,1552) = lu(k,1552) - lu(k,948) * lu(k,1547) - lu(k,1553) = lu(k,1553) - lu(k,949) * lu(k,1547) - lu(k,1554) = lu(k,1554) - lu(k,950) * lu(k,1547) - lu(k,1555) = lu(k,1555) - lu(k,951) * lu(k,1547) - lu(k,1556) = lu(k,1556) - lu(k,952) * lu(k,1547) - lu(k,1557) = lu(k,1557) - lu(k,953) * lu(k,1547) - lu(k,1558) = lu(k,1558) - lu(k,954) * lu(k,1547) - lu(k,1559) = lu(k,1559) - lu(k,955) * lu(k,1547) - lu(k,1560) = lu(k,1560) - lu(k,956) * lu(k,1547) - lu(k,1561) = lu(k,1561) - lu(k,957) * lu(k,1547) - lu(k,1562) = lu(k,1562) - lu(k,958) * lu(k,1547) - lu(k,1563) = lu(k,1563) - lu(k,959) * lu(k,1547) - lu(k,1564) = lu(k,1564) - lu(k,960) * lu(k,1547) - lu(k,1565) = lu(k,1565) - lu(k,961) * lu(k,1547) - lu(k,1566) = lu(k,1566) - lu(k,962) * lu(k,1547) - lu(k,1567) = lu(k,1567) - lu(k,963) * lu(k,1547) - lu(k,1568) = lu(k,1568) - lu(k,964) * lu(k,1547) - lu(k,1590) = lu(k,1590) - lu(k,944) * lu(k,1589) - lu(k,1591) = lu(k,1591) - lu(k,945) * lu(k,1589) - lu(k,1592) = lu(k,1592) - lu(k,946) * lu(k,1589) - lu(k,1593) = lu(k,1593) - lu(k,947) * lu(k,1589) - lu(k,1594) = lu(k,1594) - lu(k,948) * lu(k,1589) - lu(k,1595) = lu(k,1595) - lu(k,949) * lu(k,1589) - lu(k,1596) = lu(k,1596) - lu(k,950) * lu(k,1589) - lu(k,1597) = lu(k,1597) - lu(k,951) * lu(k,1589) - lu(k,1598) = lu(k,1598) - lu(k,952) * lu(k,1589) - lu(k,1599) = lu(k,1599) - lu(k,953) * lu(k,1589) - lu(k,1600) = lu(k,1600) - lu(k,954) * lu(k,1589) - lu(k,1601) = lu(k,1601) - lu(k,955) * lu(k,1589) - lu(k,1602) = lu(k,1602) - lu(k,956) * lu(k,1589) - lu(k,1603) = lu(k,1603) - lu(k,957) * lu(k,1589) - lu(k,1604) = lu(k,1604) - lu(k,958) * lu(k,1589) - lu(k,1605) = lu(k,1605) - lu(k,959) * lu(k,1589) - lu(k,1606) = lu(k,1606) - lu(k,960) * lu(k,1589) - lu(k,1607) = lu(k,1607) - lu(k,961) * lu(k,1589) - lu(k,1608) = lu(k,1608) - lu(k,962) * lu(k,1589) - lu(k,1609) = lu(k,1609) - lu(k,963) * lu(k,1589) - lu(k,1610) = lu(k,1610) - lu(k,964) * lu(k,1589) - lu(k,1622) = lu(k,1622) - lu(k,944) * lu(k,1621) - lu(k,1623) = lu(k,1623) - lu(k,945) * lu(k,1621) - lu(k,1624) = lu(k,1624) - lu(k,946) * lu(k,1621) - lu(k,1625) = lu(k,1625) - lu(k,947) * lu(k,1621) - lu(k,1626) = lu(k,1626) - lu(k,948) * lu(k,1621) - lu(k,1627) = lu(k,1627) - lu(k,949) * lu(k,1621) - lu(k,1628) = lu(k,1628) - lu(k,950) * lu(k,1621) - lu(k,1629) = lu(k,1629) - lu(k,951) * lu(k,1621) - lu(k,1630) = lu(k,1630) - lu(k,952) * lu(k,1621) - lu(k,1631) = lu(k,1631) - lu(k,953) * lu(k,1621) - lu(k,1632) = lu(k,1632) - lu(k,954) * lu(k,1621) - lu(k,1633) = lu(k,1633) - lu(k,955) * lu(k,1621) - lu(k,1634) = lu(k,1634) - lu(k,956) * lu(k,1621) - lu(k,1635) = lu(k,1635) - lu(k,957) * lu(k,1621) - lu(k,1636) = lu(k,1636) - lu(k,958) * lu(k,1621) - lu(k,1637) = lu(k,1637) - lu(k,959) * lu(k,1621) - lu(k,1638) = lu(k,1638) - lu(k,960) * lu(k,1621) - lu(k,1639) = lu(k,1639) - lu(k,961) * lu(k,1621) - lu(k,1640) = lu(k,1640) - lu(k,962) * lu(k,1621) - lu(k,1641) = lu(k,1641) - lu(k,963) * lu(k,1621) - lu(k,1642) = lu(k,1642) - lu(k,964) * lu(k,1621) - lu(k,1657) = lu(k,1657) - lu(k,944) * lu(k,1656) - lu(k,1658) = lu(k,1658) - lu(k,945) * lu(k,1656) - lu(k,1659) = lu(k,1659) - lu(k,946) * lu(k,1656) - lu(k,1660) = lu(k,1660) - lu(k,947) * lu(k,1656) - lu(k,1661) = lu(k,1661) - lu(k,948) * lu(k,1656) - lu(k,1662) = lu(k,1662) - lu(k,949) * lu(k,1656) - lu(k,1663) = lu(k,1663) - lu(k,950) * lu(k,1656) - lu(k,1664) = lu(k,1664) - lu(k,951) * lu(k,1656) - lu(k,1665) = lu(k,1665) - lu(k,952) * lu(k,1656) - lu(k,1666) = lu(k,1666) - lu(k,953) * lu(k,1656) - lu(k,1667) = lu(k,1667) - lu(k,954) * lu(k,1656) - lu(k,1668) = lu(k,1668) - lu(k,955) * lu(k,1656) - lu(k,1669) = lu(k,1669) - lu(k,956) * lu(k,1656) - lu(k,1670) = lu(k,1670) - lu(k,957) * lu(k,1656) - lu(k,1671) = lu(k,1671) - lu(k,958) * lu(k,1656) - lu(k,1672) = lu(k,1672) - lu(k,959) * lu(k,1656) - lu(k,1673) = lu(k,1673) - lu(k,960) * lu(k,1656) - lu(k,1674) = lu(k,1674) - lu(k,961) * lu(k,1656) - lu(k,1675) = lu(k,1675) - lu(k,962) * lu(k,1656) - lu(k,1676) = lu(k,1676) - lu(k,963) * lu(k,1656) - lu(k,1677) = lu(k,1677) - lu(k,964) * lu(k,1656) - lu(k,1699) = lu(k,1699) - lu(k,944) * lu(k,1698) - lu(k,1700) = lu(k,1700) - lu(k,945) * lu(k,1698) - lu(k,1701) = lu(k,1701) - lu(k,946) * lu(k,1698) - lu(k,1702) = lu(k,1702) - lu(k,947) * lu(k,1698) - lu(k,1703) = lu(k,1703) - lu(k,948) * lu(k,1698) - lu(k,1704) = lu(k,1704) - lu(k,949) * lu(k,1698) - lu(k,1705) = lu(k,1705) - lu(k,950) * lu(k,1698) - lu(k,1706) = lu(k,1706) - lu(k,951) * lu(k,1698) - lu(k,1707) = lu(k,1707) - lu(k,952) * lu(k,1698) - lu(k,1708) = lu(k,1708) - lu(k,953) * lu(k,1698) - lu(k,1709) = lu(k,1709) - lu(k,954) * lu(k,1698) - lu(k,1710) = lu(k,1710) - lu(k,955) * lu(k,1698) - lu(k,1711) = lu(k,1711) - lu(k,956) * lu(k,1698) - lu(k,1712) = lu(k,1712) - lu(k,957) * lu(k,1698) - lu(k,1713) = lu(k,1713) - lu(k,958) * lu(k,1698) - lu(k,1714) = lu(k,1714) - lu(k,959) * lu(k,1698) - lu(k,1715) = lu(k,1715) - lu(k,960) * lu(k,1698) - lu(k,1716) = lu(k,1716) - lu(k,961) * lu(k,1698) - lu(k,1717) = lu(k,1717) - lu(k,962) * lu(k,1698) - lu(k,1718) = lu(k,1718) - lu(k,963) * lu(k,1698) - lu(k,1719) = lu(k,1719) - lu(k,964) * lu(k,1698) - lu(k,1743) = lu(k,1743) - lu(k,944) * lu(k,1742) - lu(k,1744) = lu(k,1744) - lu(k,945) * lu(k,1742) - lu(k,1745) = lu(k,1745) - lu(k,946) * lu(k,1742) - lu(k,1746) = lu(k,1746) - lu(k,947) * lu(k,1742) - lu(k,1747) = lu(k,1747) - lu(k,948) * lu(k,1742) - lu(k,1748) = lu(k,1748) - lu(k,949) * lu(k,1742) - lu(k,1749) = lu(k,1749) - lu(k,950) * lu(k,1742) - lu(k,1750) = lu(k,1750) - lu(k,951) * lu(k,1742) - lu(k,1751) = lu(k,1751) - lu(k,952) * lu(k,1742) - lu(k,1752) = lu(k,1752) - lu(k,953) * lu(k,1742) - lu(k,1753) = lu(k,1753) - lu(k,954) * lu(k,1742) - lu(k,1754) = lu(k,1754) - lu(k,955) * lu(k,1742) - lu(k,1755) = lu(k,1755) - lu(k,956) * lu(k,1742) - lu(k,1756) = lu(k,1756) - lu(k,957) * lu(k,1742) - lu(k,1757) = lu(k,1757) - lu(k,958) * lu(k,1742) - lu(k,1758) = lu(k,1758) - lu(k,959) * lu(k,1742) - lu(k,1759) = lu(k,1759) - lu(k,960) * lu(k,1742) - lu(k,1760) = lu(k,1760) - lu(k,961) * lu(k,1742) - lu(k,1761) = lu(k,1761) - lu(k,962) * lu(k,1742) - lu(k,1762) = lu(k,1762) - lu(k,963) * lu(k,1742) - lu(k,1763) = lu(k,1763) - lu(k,964) * lu(k,1742) - lu(k,1778) = lu(k,1778) - lu(k,944) * lu(k,1777) - lu(k,1779) = lu(k,1779) - lu(k,945) * lu(k,1777) - lu(k,1780) = lu(k,1780) - lu(k,946) * lu(k,1777) - lu(k,1781) = lu(k,1781) - lu(k,947) * lu(k,1777) - lu(k,1782) = lu(k,1782) - lu(k,948) * lu(k,1777) - lu(k,1783) = lu(k,1783) - lu(k,949) * lu(k,1777) - lu(k,1784) = lu(k,1784) - lu(k,950) * lu(k,1777) - lu(k,1785) = lu(k,1785) - lu(k,951) * lu(k,1777) - lu(k,1786) = lu(k,1786) - lu(k,952) * lu(k,1777) - lu(k,1787) = lu(k,1787) - lu(k,953) * lu(k,1777) - lu(k,1788) = lu(k,1788) - lu(k,954) * lu(k,1777) - lu(k,1789) = lu(k,1789) - lu(k,955) * lu(k,1777) - lu(k,1790) = lu(k,1790) - lu(k,956) * lu(k,1777) - lu(k,1791) = lu(k,1791) - lu(k,957) * lu(k,1777) - lu(k,1792) = lu(k,1792) - lu(k,958) * lu(k,1777) - lu(k,1793) = lu(k,1793) - lu(k,959) * lu(k,1777) - lu(k,1794) = lu(k,1794) - lu(k,960) * lu(k,1777) - lu(k,1795) = lu(k,1795) - lu(k,961) * lu(k,1777) - lu(k,1796) = lu(k,1796) - lu(k,962) * lu(k,1777) - lu(k,1797) = lu(k,1797) - lu(k,963) * lu(k,1777) - lu(k,1798) = lu(k,1798) - lu(k,964) * lu(k,1777) - lu(k,1836) = lu(k,1836) - lu(k,944) * lu(k,1835) - lu(k,1837) = lu(k,1837) - lu(k,945) * lu(k,1835) - lu(k,1838) = lu(k,1838) - lu(k,946) * lu(k,1835) - lu(k,1839) = lu(k,1839) - lu(k,947) * lu(k,1835) - lu(k,1840) = lu(k,1840) - lu(k,948) * lu(k,1835) - lu(k,1841) = lu(k,1841) - lu(k,949) * lu(k,1835) - lu(k,1842) = lu(k,1842) - lu(k,950) * lu(k,1835) - lu(k,1843) = lu(k,1843) - lu(k,951) * lu(k,1835) - lu(k,1844) = lu(k,1844) - lu(k,952) * lu(k,1835) - lu(k,1845) = lu(k,1845) - lu(k,953) * lu(k,1835) - lu(k,1846) = lu(k,1846) - lu(k,954) * lu(k,1835) - lu(k,1847) = lu(k,1847) - lu(k,955) * lu(k,1835) - lu(k,1848) = lu(k,1848) - lu(k,956) * lu(k,1835) - lu(k,1849) = lu(k,1849) - lu(k,957) * lu(k,1835) - lu(k,1850) = lu(k,1850) - lu(k,958) * lu(k,1835) - lu(k,1851) = lu(k,1851) - lu(k,959) * lu(k,1835) - lu(k,1852) = lu(k,1852) - lu(k,960) * lu(k,1835) - lu(k,1853) = lu(k,1853) - lu(k,961) * lu(k,1835) - lu(k,1854) = lu(k,1854) - lu(k,962) * lu(k,1835) - lu(k,1855) = lu(k,1855) - lu(k,963) * lu(k,1835) - lu(k,1856) = lu(k,1856) - lu(k,964) * lu(k,1835) - end do + real(r8), intent(inout) :: lu(:) + lu(866) = 1._r8 / lu(866) + lu(867) = lu(867) * lu(866) + lu(868) = lu(868) * lu(866) + lu(869) = lu(869) * lu(866) + lu(870) = lu(870) * lu(866) + lu(871) = lu(871) * lu(866) + lu(872) = lu(872) * lu(866) + lu(873) = lu(873) * lu(866) + lu(874) = lu(874) * lu(866) + lu(875) = lu(875) * lu(866) + lu(876) = lu(876) * lu(866) + lu(877) = lu(877) * lu(866) + lu(878) = lu(878) * lu(866) + lu(879) = lu(879) * lu(866) + lu(880) = lu(880) * lu(866) + lu(881) = lu(881) * lu(866) + lu(882) = lu(882) * lu(866) + lu(883) = lu(883) * lu(866) + lu(884) = lu(884) * lu(866) + lu(885) = lu(885) * lu(866) + lu(886) = lu(886) * lu(866) + lu(887) = lu(887) * lu(866) + lu(888) = lu(888) * lu(866) + lu(908) = lu(908) - lu(867) * lu(907) + lu(909) = lu(909) - lu(868) * lu(907) + lu(910) = lu(910) - lu(869) * lu(907) + lu(911) = lu(911) - lu(870) * lu(907) + lu(912) = lu(912) - lu(871) * lu(907) + lu(913) = lu(913) - lu(872) * lu(907) + lu(914) = lu(914) - lu(873) * lu(907) + lu(915) = lu(915) - lu(874) * lu(907) + lu(916) = lu(916) - lu(875) * lu(907) + lu(917) = lu(917) - lu(876) * lu(907) + lu(918) = lu(918) - lu(877) * lu(907) + lu(919) = lu(919) - lu(878) * lu(907) + lu(920) = lu(920) - lu(879) * lu(907) + lu(921) = lu(921) - lu(880) * lu(907) + lu(922) = lu(922) - lu(881) * lu(907) + lu(923) = lu(923) - lu(882) * lu(907) + lu(924) = lu(924) - lu(883) * lu(907) + lu(925) = lu(925) - lu(884) * lu(907) + lu(926) = lu(926) - lu(885) * lu(907) + lu(927) = lu(927) - lu(886) * lu(907) + lu(929) = lu(929) - lu(887) * lu(907) + lu(930) = lu(930) - lu(888) * lu(907) + lu(955) = lu(955) - lu(867) * lu(954) + lu(956) = lu(956) - lu(868) * lu(954) + lu(957) = lu(957) - lu(869) * lu(954) + lu(958) = lu(958) - lu(870) * lu(954) + lu(959) = lu(959) - lu(871) * lu(954) + lu(960) = lu(960) - lu(872) * lu(954) + lu(961) = lu(961) - lu(873) * lu(954) + lu(962) = lu(962) - lu(874) * lu(954) + lu(963) = lu(963) - lu(875) * lu(954) + lu(964) = lu(964) - lu(876) * lu(954) + lu(965) = lu(965) - lu(877) * lu(954) + lu(966) = lu(966) - lu(878) * lu(954) + lu(967) = lu(967) - lu(879) * lu(954) + lu(968) = lu(968) - lu(880) * lu(954) + lu(969) = lu(969) - lu(881) * lu(954) + lu(970) = lu(970) - lu(882) * lu(954) + lu(971) = lu(971) - lu(883) * lu(954) + lu(972) = lu(972) - lu(884) * lu(954) + lu(973) = lu(973) - lu(885) * lu(954) + lu(974) = lu(974) - lu(886) * lu(954) + lu(976) = lu(976) - lu(887) * lu(954) + lu(977) = lu(977) - lu(888) * lu(954) + lu(997) = lu(997) - lu(867) * lu(996) + lu(998) = lu(998) - lu(868) * lu(996) + lu(999) = lu(999) - lu(869) * lu(996) + lu(1000) = lu(1000) - lu(870) * lu(996) + lu(1001) = lu(1001) - lu(871) * lu(996) + lu(1002) = lu(1002) - lu(872) * lu(996) + lu(1003) = lu(1003) - lu(873) * lu(996) + lu(1004) = lu(1004) - lu(874) * lu(996) + lu(1005) = lu(1005) - lu(875) * lu(996) + lu(1006) = lu(1006) - lu(876) * lu(996) + lu(1007) = lu(1007) - lu(877) * lu(996) + lu(1008) = lu(1008) - lu(878) * lu(996) + lu(1009) = lu(1009) - lu(879) * lu(996) + lu(1010) = lu(1010) - lu(880) * lu(996) + lu(1011) = lu(1011) - lu(881) * lu(996) + lu(1012) = lu(1012) - lu(882) * lu(996) + lu(1013) = lu(1013) - lu(883) * lu(996) + lu(1014) = lu(1014) - lu(884) * lu(996) + lu(1015) = lu(1015) - lu(885) * lu(996) + lu(1016) = lu(1016) - lu(886) * lu(996) + lu(1018) = lu(1018) - lu(887) * lu(996) + lu(1019) = lu(1019) - lu(888) * lu(996) + lu(1046) = lu(1046) - lu(867) * lu(1045) + lu(1047) = lu(1047) - lu(868) * lu(1045) + lu(1048) = lu(1048) - lu(869) * lu(1045) + lu(1049) = lu(1049) - lu(870) * lu(1045) + lu(1050) = lu(1050) - lu(871) * lu(1045) + lu(1051) = lu(1051) - lu(872) * lu(1045) + lu(1052) = lu(1052) - lu(873) * lu(1045) + lu(1053) = lu(1053) - lu(874) * lu(1045) + lu(1054) = lu(1054) - lu(875) * lu(1045) + lu(1055) = lu(1055) - lu(876) * lu(1045) + lu(1056) = lu(1056) - lu(877) * lu(1045) + lu(1057) = lu(1057) - lu(878) * lu(1045) + lu(1058) = lu(1058) - lu(879) * lu(1045) + lu(1059) = lu(1059) - lu(880) * lu(1045) + lu(1060) = lu(1060) - lu(881) * lu(1045) + lu(1061) = lu(1061) - lu(882) * lu(1045) + lu(1062) = lu(1062) - lu(883) * lu(1045) + lu(1063) = lu(1063) - lu(884) * lu(1045) + lu(1064) = lu(1064) - lu(885) * lu(1045) + lu(1065) = lu(1065) - lu(886) * lu(1045) + lu(1067) = lu(1067) - lu(887) * lu(1045) + lu(1068) = lu(1068) - lu(888) * lu(1045) + lu(1092) = lu(1092) - lu(867) * lu(1091) + lu(1093) = lu(1093) - lu(868) * lu(1091) + lu(1094) = lu(1094) - lu(869) * lu(1091) + lu(1095) = lu(1095) - lu(870) * lu(1091) + lu(1096) = lu(1096) - lu(871) * lu(1091) + lu(1097) = lu(1097) - lu(872) * lu(1091) + lu(1098) = lu(1098) - lu(873) * lu(1091) + lu(1099) = lu(1099) - lu(874) * lu(1091) + lu(1100) = lu(1100) - lu(875) * lu(1091) + lu(1101) = lu(1101) - lu(876) * lu(1091) + lu(1102) = lu(1102) - lu(877) * lu(1091) + lu(1103) = lu(1103) - lu(878) * lu(1091) + lu(1104) = lu(1104) - lu(879) * lu(1091) + lu(1105) = lu(1105) - lu(880) * lu(1091) + lu(1106) = lu(1106) - lu(881) * lu(1091) + lu(1107) = lu(1107) - lu(882) * lu(1091) + lu(1108) = lu(1108) - lu(883) * lu(1091) + lu(1109) = lu(1109) - lu(884) * lu(1091) + lu(1110) = lu(1110) - lu(885) * lu(1091) + lu(1111) = lu(1111) - lu(886) * lu(1091) + lu(1113) = lu(1113) - lu(887) * lu(1091) + lu(1114) = lu(1114) - lu(888) * lu(1091) + lu(1133) = lu(1133) - lu(867) * lu(1132) + lu(1134) = lu(1134) - lu(868) * lu(1132) + lu(1135) = lu(1135) - lu(869) * lu(1132) + lu(1136) = lu(1136) - lu(870) * lu(1132) + lu(1137) = lu(1137) - lu(871) * lu(1132) + lu(1138) = lu(1138) - lu(872) * lu(1132) + lu(1139) = lu(1139) - lu(873) * lu(1132) + lu(1140) = lu(1140) - lu(874) * lu(1132) + lu(1141) = lu(1141) - lu(875) * lu(1132) + lu(1142) = lu(1142) - lu(876) * lu(1132) + lu(1143) = lu(1143) - lu(877) * lu(1132) + lu(1144) = lu(1144) - lu(878) * lu(1132) + lu(1145) = lu(1145) - lu(879) * lu(1132) + lu(1146) = lu(1146) - lu(880) * lu(1132) + lu(1147) = lu(1147) - lu(881) * lu(1132) + lu(1148) = lu(1148) - lu(882) * lu(1132) + lu(1149) = lu(1149) - lu(883) * lu(1132) + lu(1150) = lu(1150) - lu(884) * lu(1132) + lu(1151) = lu(1151) - lu(885) * lu(1132) + lu(1152) = lu(1152) - lu(886) * lu(1132) + lu(1154) = lu(1154) - lu(887) * lu(1132) + lu(1155) = lu(1155) - lu(888) * lu(1132) + lu(1174) = lu(1174) - lu(867) * lu(1173) + lu(1175) = lu(1175) - lu(868) * lu(1173) + lu(1176) = lu(1176) - lu(869) * lu(1173) + lu(1177) = lu(1177) - lu(870) * lu(1173) + lu(1178) = lu(1178) - lu(871) * lu(1173) + lu(1179) = lu(1179) - lu(872) * lu(1173) + lu(1180) = lu(1180) - lu(873) * lu(1173) + lu(1181) = lu(1181) - lu(874) * lu(1173) + lu(1182) = lu(1182) - lu(875) * lu(1173) + lu(1183) = lu(1183) - lu(876) * lu(1173) + lu(1184) = lu(1184) - lu(877) * lu(1173) + lu(1185) = lu(1185) - lu(878) * lu(1173) + lu(1186) = lu(1186) - lu(879) * lu(1173) + lu(1187) = lu(1187) - lu(880) * lu(1173) + lu(1188) = lu(1188) - lu(881) * lu(1173) + lu(1189) = lu(1189) - lu(882) * lu(1173) + lu(1190) = lu(1190) - lu(883) * lu(1173) + lu(1191) = lu(1191) - lu(884) * lu(1173) + lu(1192) = lu(1192) - lu(885) * lu(1173) + lu(1193) = lu(1193) - lu(886) * lu(1173) + lu(1195) = lu(1195) - lu(887) * lu(1173) + lu(1196) = lu(1196) - lu(888) * lu(1173) + lu(1233) = lu(1233) - lu(867) * lu(1232) + lu(1234) = lu(1234) - lu(868) * lu(1232) + lu(1235) = lu(1235) - lu(869) * lu(1232) + lu(1236) = lu(1236) - lu(870) * lu(1232) + lu(1237) = lu(1237) - lu(871) * lu(1232) + lu(1238) = lu(1238) - lu(872) * lu(1232) + lu(1239) = lu(1239) - lu(873) * lu(1232) + lu(1240) = lu(1240) - lu(874) * lu(1232) + lu(1241) = lu(1241) - lu(875) * lu(1232) + lu(1242) = lu(1242) - lu(876) * lu(1232) + lu(1243) = lu(1243) - lu(877) * lu(1232) + lu(1244) = lu(1244) - lu(878) * lu(1232) + lu(1245) = lu(1245) - lu(879) * lu(1232) + lu(1246) = lu(1246) - lu(880) * lu(1232) + lu(1247) = lu(1247) - lu(881) * lu(1232) + lu(1248) = lu(1248) - lu(882) * lu(1232) + lu(1249) = lu(1249) - lu(883) * lu(1232) + lu(1250) = lu(1250) - lu(884) * lu(1232) + lu(1251) = lu(1251) - lu(885) * lu(1232) + lu(1252) = lu(1252) - lu(886) * lu(1232) + lu(1254) = lu(1254) - lu(887) * lu(1232) + lu(1255) = lu(1255) - lu(888) * lu(1232) + lu(1275) = lu(1275) - lu(867) * lu(1274) + lu(1276) = lu(1276) - lu(868) * lu(1274) + lu(1277) = lu(1277) - lu(869) * lu(1274) + lu(1278) = lu(1278) - lu(870) * lu(1274) + lu(1279) = lu(1279) - lu(871) * lu(1274) + lu(1280) = lu(1280) - lu(872) * lu(1274) + lu(1281) = lu(1281) - lu(873) * lu(1274) + lu(1282) = lu(1282) - lu(874) * lu(1274) + lu(1283) = lu(1283) - lu(875) * lu(1274) + lu(1284) = lu(1284) - lu(876) * lu(1274) + lu(1285) = lu(1285) - lu(877) * lu(1274) + lu(1286) = lu(1286) - lu(878) * lu(1274) + lu(1287) = lu(1287) - lu(879) * lu(1274) + lu(1288) = lu(1288) - lu(880) * lu(1274) + lu(1289) = lu(1289) - lu(881) * lu(1274) + lu(1290) = lu(1290) - lu(882) * lu(1274) + lu(1291) = lu(1291) - lu(883) * lu(1274) + lu(1292) = lu(1292) - lu(884) * lu(1274) + lu(1293) = lu(1293) - lu(885) * lu(1274) + lu(1294) = lu(1294) - lu(886) * lu(1274) + lu(1296) = lu(1296) - lu(887) * lu(1274) + lu(1297) = lu(1297) - lu(888) * lu(1274) + lu(1319) = lu(1319) - lu(867) * lu(1318) + lu(1320) = lu(1320) - lu(868) * lu(1318) + lu(1321) = lu(1321) - lu(869) * lu(1318) + lu(1322) = lu(1322) - lu(870) * lu(1318) + lu(1323) = lu(1323) - lu(871) * lu(1318) + lu(1324) = lu(1324) - lu(872) * lu(1318) + lu(1325) = lu(1325) - lu(873) * lu(1318) + lu(1326) = lu(1326) - lu(874) * lu(1318) + lu(1327) = lu(1327) - lu(875) * lu(1318) + lu(1328) = lu(1328) - lu(876) * lu(1318) + lu(1329) = lu(1329) - lu(877) * lu(1318) + lu(1330) = lu(1330) - lu(878) * lu(1318) + lu(1331) = lu(1331) - lu(879) * lu(1318) + lu(1332) = lu(1332) - lu(880) * lu(1318) + lu(1333) = lu(1333) - lu(881) * lu(1318) + lu(1334) = lu(1334) - lu(882) * lu(1318) + lu(1335) = lu(1335) - lu(883) * lu(1318) + lu(1336) = lu(1336) - lu(884) * lu(1318) + lu(1337) = lu(1337) - lu(885) * lu(1318) + lu(1338) = lu(1338) - lu(886) * lu(1318) + lu(1340) = lu(1340) - lu(887) * lu(1318) + lu(1341) = lu(1341) - lu(888) * lu(1318) + lu(1354) = lu(1354) - lu(867) * lu(1353) + lu(1355) = lu(1355) - lu(868) * lu(1353) + lu(1356) = lu(1356) - lu(869) * lu(1353) + lu(1357) = lu(1357) - lu(870) * lu(1353) + lu(1358) = lu(1358) - lu(871) * lu(1353) + lu(1359) = lu(1359) - lu(872) * lu(1353) + lu(1360) = lu(1360) - lu(873) * lu(1353) + lu(1361) = lu(1361) - lu(874) * lu(1353) + lu(1362) = lu(1362) - lu(875) * lu(1353) + lu(1363) = lu(1363) - lu(876) * lu(1353) + lu(1364) = lu(1364) - lu(877) * lu(1353) + lu(1365) = lu(1365) - lu(878) * lu(1353) + lu(1366) = lu(1366) - lu(879) * lu(1353) + lu(1367) = lu(1367) - lu(880) * lu(1353) + lu(1368) = lu(1368) - lu(881) * lu(1353) + lu(1369) = lu(1369) - lu(882) * lu(1353) + lu(1370) = lu(1370) - lu(883) * lu(1353) + lu(1371) = lu(1371) - lu(884) * lu(1353) + lu(1372) = lu(1372) - lu(885) * lu(1353) + lu(1373) = lu(1373) - lu(886) * lu(1353) + lu(1375) = lu(1375) - lu(887) * lu(1353) + lu(1376) = lu(1376) - lu(888) * lu(1353) + lu(1398) = lu(1398) - lu(867) * lu(1397) + lu(1399) = lu(1399) - lu(868) * lu(1397) + lu(1400) = lu(1400) - lu(869) * lu(1397) + lu(1401) = lu(1401) - lu(870) * lu(1397) + lu(1402) = lu(1402) - lu(871) * lu(1397) + lu(1403) = lu(1403) - lu(872) * lu(1397) + lu(1404) = lu(1404) - lu(873) * lu(1397) + lu(1405) = lu(1405) - lu(874) * lu(1397) + lu(1406) = lu(1406) - lu(875) * lu(1397) + lu(1407) = lu(1407) - lu(876) * lu(1397) + lu(1408) = lu(1408) - lu(877) * lu(1397) + lu(1409) = lu(1409) - lu(878) * lu(1397) + lu(1410) = lu(1410) - lu(879) * lu(1397) + lu(1411) = lu(1411) - lu(880) * lu(1397) + lu(1412) = lu(1412) - lu(881) * lu(1397) + lu(1413) = lu(1413) - lu(882) * lu(1397) + lu(1414) = lu(1414) - lu(883) * lu(1397) + lu(1415) = lu(1415) - lu(884) * lu(1397) + lu(1416) = lu(1416) - lu(885) * lu(1397) + lu(1417) = lu(1417) - lu(886) * lu(1397) + lu(1419) = lu(1419) - lu(887) * lu(1397) + lu(1420) = lu(1420) - lu(888) * lu(1397) + lu(1439) = lu(1439) - lu(867) * lu(1438) + lu(1440) = lu(1440) - lu(868) * lu(1438) + lu(1441) = lu(1441) - lu(869) * lu(1438) + lu(1442) = lu(1442) - lu(870) * lu(1438) + lu(1443) = lu(1443) - lu(871) * lu(1438) + lu(1444) = lu(1444) - lu(872) * lu(1438) + lu(1445) = lu(1445) - lu(873) * lu(1438) + lu(1446) = lu(1446) - lu(874) * lu(1438) + lu(1447) = lu(1447) - lu(875) * lu(1438) + lu(1448) = lu(1448) - lu(876) * lu(1438) + lu(1449) = lu(1449) - lu(877) * lu(1438) + lu(1450) = lu(1450) - lu(878) * lu(1438) + lu(1451) = lu(1451) - lu(879) * lu(1438) + lu(1452) = lu(1452) - lu(880) * lu(1438) + lu(1453) = lu(1453) - lu(881) * lu(1438) + lu(1454) = lu(1454) - lu(882) * lu(1438) + lu(1455) = lu(1455) - lu(883) * lu(1438) + lu(1456) = lu(1456) - lu(884) * lu(1438) + lu(1457) = lu(1457) - lu(885) * lu(1438) + lu(1458) = lu(1458) - lu(886) * lu(1438) + lu(1460) = lu(1460) - lu(887) * lu(1438) + lu(1461) = lu(1461) - lu(888) * lu(1438) + lu(1474) = lu(1474) - lu(867) * lu(1473) + lu(1475) = lu(1475) - lu(868) * lu(1473) + lu(1476) = lu(1476) - lu(869) * lu(1473) + lu(1477) = lu(1477) - lu(870) * lu(1473) + lu(1478) = lu(1478) - lu(871) * lu(1473) + lu(1479) = lu(1479) - lu(872) * lu(1473) + lu(1480) = lu(1480) - lu(873) * lu(1473) + lu(1481) = lu(1481) - lu(874) * lu(1473) + lu(1482) = lu(1482) - lu(875) * lu(1473) + lu(1483) = lu(1483) - lu(876) * lu(1473) + lu(1484) = lu(1484) - lu(877) * lu(1473) + lu(1485) = lu(1485) - lu(878) * lu(1473) + lu(1486) = lu(1486) - lu(879) * lu(1473) + lu(1487) = lu(1487) - lu(880) * lu(1473) + lu(1488) = lu(1488) - lu(881) * lu(1473) + lu(1489) = lu(1489) - lu(882) * lu(1473) + lu(1490) = lu(1490) - lu(883) * lu(1473) + lu(1491) = lu(1491) - lu(884) * lu(1473) + lu(1492) = lu(1492) - lu(885) * lu(1473) + lu(1493) = lu(1493) - lu(886) * lu(1473) + lu(1495) = lu(1495) - lu(887) * lu(1473) + lu(1496) = lu(1496) - lu(888) * lu(1473) + lu(1518) = lu(1518) - lu(867) * lu(1517) + lu(1519) = lu(1519) - lu(868) * lu(1517) + lu(1520) = lu(1520) - lu(869) * lu(1517) + lu(1521) = lu(1521) - lu(870) * lu(1517) + lu(1522) = lu(1522) - lu(871) * lu(1517) + lu(1523) = lu(1523) - lu(872) * lu(1517) + lu(1524) = lu(1524) - lu(873) * lu(1517) + lu(1525) = lu(1525) - lu(874) * lu(1517) + lu(1526) = lu(1526) - lu(875) * lu(1517) + lu(1527) = lu(1527) - lu(876) * lu(1517) + lu(1528) = lu(1528) - lu(877) * lu(1517) + lu(1529) = lu(1529) - lu(878) * lu(1517) + lu(1530) = lu(1530) - lu(879) * lu(1517) + lu(1531) = lu(1531) - lu(880) * lu(1517) + lu(1532) = lu(1532) - lu(881) * lu(1517) + lu(1533) = lu(1533) - lu(882) * lu(1517) + lu(1534) = lu(1534) - lu(883) * lu(1517) + lu(1535) = lu(1535) - lu(884) * lu(1517) + lu(1536) = lu(1536) - lu(885) * lu(1517) + lu(1537) = lu(1537) - lu(886) * lu(1517) + lu(1539) = lu(1539) - lu(887) * lu(1517) + lu(1540) = lu(1540) - lu(888) * lu(1517) + lu(1560) = lu(1560) - lu(867) * lu(1559) + lu(1561) = lu(1561) - lu(868) * lu(1559) + lu(1562) = lu(1562) - lu(869) * lu(1559) + lu(1563) = lu(1563) - lu(870) * lu(1559) + lu(1564) = lu(1564) - lu(871) * lu(1559) + lu(1565) = lu(1565) - lu(872) * lu(1559) + lu(1566) = lu(1566) - lu(873) * lu(1559) + lu(1567) = lu(1567) - lu(874) * lu(1559) + lu(1568) = lu(1568) - lu(875) * lu(1559) + lu(1569) = lu(1569) - lu(876) * lu(1559) + lu(1570) = lu(1570) - lu(877) * lu(1559) + lu(1571) = lu(1571) - lu(878) * lu(1559) + lu(1572) = lu(1572) - lu(879) * lu(1559) + lu(1573) = lu(1573) - lu(880) * lu(1559) + lu(1574) = lu(1574) - lu(881) * lu(1559) + lu(1575) = lu(1575) - lu(882) * lu(1559) + lu(1576) = lu(1576) - lu(883) * lu(1559) + lu(1577) = lu(1577) - lu(884) * lu(1559) + lu(1578) = lu(1578) - lu(885) * lu(1559) + lu(1579) = lu(1579) - lu(886) * lu(1559) + lu(1581) = lu(1581) - lu(887) * lu(1559) + lu(1582) = lu(1582) - lu(888) * lu(1559) + lu(1599) = lu(1599) - lu(867) * lu(1598) + lu(1600) = lu(1600) - lu(868) * lu(1598) + lu(1601) = lu(1601) - lu(869) * lu(1598) + lu(1602) = lu(1602) - lu(870) * lu(1598) + lu(1603) = lu(1603) - lu(871) * lu(1598) + lu(1604) = lu(1604) - lu(872) * lu(1598) + lu(1605) = lu(1605) - lu(873) * lu(1598) + lu(1606) = lu(1606) - lu(874) * lu(1598) + lu(1607) = lu(1607) - lu(875) * lu(1598) + lu(1608) = lu(1608) - lu(876) * lu(1598) + lu(1609) = lu(1609) - lu(877) * lu(1598) + lu(1610) = lu(1610) - lu(878) * lu(1598) + lu(1611) = lu(1611) - lu(879) * lu(1598) + lu(1612) = lu(1612) - lu(880) * lu(1598) + lu(1613) = lu(1613) - lu(881) * lu(1598) + lu(1614) = lu(1614) - lu(882) * lu(1598) + lu(1615) = lu(1615) - lu(883) * lu(1598) + lu(1616) = lu(1616) - lu(884) * lu(1598) + lu(1617) = lu(1617) - lu(885) * lu(1598) + lu(1618) = lu(1618) - lu(886) * lu(1598) + lu(1620) = lu(1620) - lu(887) * lu(1598) + lu(1621) = lu(1621) - lu(888) * lu(1598) + lu(1631) = lu(1631) - lu(867) * lu(1630) + lu(1632) = lu(1632) - lu(868) * lu(1630) + lu(1633) = lu(1633) - lu(869) * lu(1630) + lu(1634) = lu(1634) - lu(870) * lu(1630) + lu(1635) = lu(1635) - lu(871) * lu(1630) + lu(1636) = lu(1636) - lu(872) * lu(1630) + lu(1637) = lu(1637) - lu(873) * lu(1630) + lu(1638) = lu(1638) - lu(874) * lu(1630) + lu(1639) = lu(1639) - lu(875) * lu(1630) + lu(1640) = lu(1640) - lu(876) * lu(1630) + lu(1641) = lu(1641) - lu(877) * lu(1630) + lu(1642) = lu(1642) - lu(878) * lu(1630) + lu(1643) = lu(1643) - lu(879) * lu(1630) + lu(1644) = lu(1644) - lu(880) * lu(1630) + lu(1645) = lu(1645) - lu(881) * lu(1630) + lu(1646) = lu(1646) - lu(882) * lu(1630) + lu(1647) = lu(1647) - lu(883) * lu(1630) + lu(1648) = lu(1648) - lu(884) * lu(1630) + lu(1649) = lu(1649) - lu(885) * lu(1630) + lu(1650) = lu(1650) - lu(886) * lu(1630) + lu(1652) = lu(1652) - lu(887) * lu(1630) + lu(1653) = lu(1653) - lu(888) * lu(1630) + lu(1666) = lu(1666) - lu(867) * lu(1665) + lu(1667) = lu(1667) - lu(868) * lu(1665) + lu(1668) = lu(1668) - lu(869) * lu(1665) + lu(1669) = lu(1669) - lu(870) * lu(1665) + lu(1670) = lu(1670) - lu(871) * lu(1665) + lu(1671) = lu(1671) - lu(872) * lu(1665) + lu(1672) = lu(1672) - lu(873) * lu(1665) + lu(1673) = lu(1673) - lu(874) * lu(1665) + lu(1674) = lu(1674) - lu(875) * lu(1665) + lu(1675) = lu(1675) - lu(876) * lu(1665) + lu(1676) = lu(1676) - lu(877) * lu(1665) + lu(1677) = lu(1677) - lu(878) * lu(1665) + lu(1678) = lu(1678) - lu(879) * lu(1665) + lu(1679) = lu(1679) - lu(880) * lu(1665) + lu(1680) = lu(1680) - lu(881) * lu(1665) + lu(1681) = lu(1681) - lu(882) * lu(1665) + lu(1682) = lu(1682) - lu(883) * lu(1665) + lu(1683) = lu(1683) - lu(884) * lu(1665) + lu(1684) = lu(1684) - lu(885) * lu(1665) + lu(1685) = lu(1685) - lu(886) * lu(1665) + lu(1687) = lu(1687) - lu(887) * lu(1665) + lu(1688) = lu(1688) - lu(888) * lu(1665) + lu(1708) = lu(1708) - lu(867) * lu(1707) + lu(1709) = lu(1709) - lu(868) * lu(1707) + lu(1710) = lu(1710) - lu(869) * lu(1707) + lu(1711) = lu(1711) - lu(870) * lu(1707) + lu(1712) = lu(1712) - lu(871) * lu(1707) + lu(1713) = lu(1713) - lu(872) * lu(1707) + lu(1714) = lu(1714) - lu(873) * lu(1707) + lu(1715) = lu(1715) - lu(874) * lu(1707) + lu(1716) = lu(1716) - lu(875) * lu(1707) + lu(1717) = lu(1717) - lu(876) * lu(1707) + lu(1718) = lu(1718) - lu(877) * lu(1707) + lu(1719) = lu(1719) - lu(878) * lu(1707) + lu(1720) = lu(1720) - lu(879) * lu(1707) + lu(1721) = lu(1721) - lu(880) * lu(1707) + lu(1722) = lu(1722) - lu(881) * lu(1707) + lu(1723) = lu(1723) - lu(882) * lu(1707) + lu(1724) = lu(1724) - lu(883) * lu(1707) + lu(1725) = lu(1725) - lu(884) * lu(1707) + lu(1726) = lu(1726) - lu(885) * lu(1707) + lu(1727) = lu(1727) - lu(886) * lu(1707) + lu(1729) = lu(1729) - lu(887) * lu(1707) + lu(1730) = lu(1730) - lu(888) * lu(1707) + lu(1737) = lu(1737) - lu(867) * lu(1736) + lu(1738) = lu(1738) - lu(868) * lu(1736) + lu(1739) = lu(1739) - lu(869) * lu(1736) + lu(1740) = lu(1740) - lu(870) * lu(1736) + lu(1741) = lu(1741) - lu(871) * lu(1736) + lu(1742) = lu(1742) - lu(872) * lu(1736) + lu(1743) = lu(1743) - lu(873) * lu(1736) + lu(1744) = lu(1744) - lu(874) * lu(1736) + lu(1745) = lu(1745) - lu(875) * lu(1736) + lu(1746) = lu(1746) - lu(876) * lu(1736) + lu(1747) = lu(1747) - lu(877) * lu(1736) + lu(1748) = lu(1748) - lu(878) * lu(1736) + lu(1749) = lu(1749) - lu(879) * lu(1736) + lu(1750) = lu(1750) - lu(880) * lu(1736) + lu(1751) = lu(1751) - lu(881) * lu(1736) + lu(1752) = lu(1752) - lu(882) * lu(1736) + lu(1753) = lu(1753) - lu(883) * lu(1736) + lu(1754) = lu(1754) - lu(884) * lu(1736) + lu(1755) = lu(1755) - lu(885) * lu(1736) + lu(1756) = lu(1756) - lu(886) * lu(1736) + lu(1758) = lu(1758) - lu(887) * lu(1736) + lu(1759) = lu(1759) - lu(888) * lu(1736) + lu(1776) = lu(1776) - lu(867) * lu(1775) + lu(1777) = lu(1777) - lu(868) * lu(1775) + lu(1778) = lu(1778) - lu(869) * lu(1775) + lu(1779) = lu(1779) - lu(870) * lu(1775) + lu(1780) = lu(1780) - lu(871) * lu(1775) + lu(1781) = lu(1781) - lu(872) * lu(1775) + lu(1782) = lu(1782) - lu(873) * lu(1775) + lu(1783) = lu(1783) - lu(874) * lu(1775) + lu(1784) = lu(1784) - lu(875) * lu(1775) + lu(1785) = lu(1785) - lu(876) * lu(1775) + lu(1786) = lu(1786) - lu(877) * lu(1775) + lu(1787) = lu(1787) - lu(878) * lu(1775) + lu(1788) = lu(1788) - lu(879) * lu(1775) + lu(1789) = lu(1789) - lu(880) * lu(1775) + lu(1790) = lu(1790) - lu(881) * lu(1775) + lu(1791) = lu(1791) - lu(882) * lu(1775) + lu(1792) = lu(1792) - lu(883) * lu(1775) + lu(1793) = lu(1793) - lu(884) * lu(1775) + lu(1794) = lu(1794) - lu(885) * lu(1775) + lu(1795) = lu(1795) - lu(886) * lu(1775) + lu(1797) = lu(1797) - lu(887) * lu(1775) + lu(1798) = lu(1798) - lu(888) * lu(1775) + lu(1834) = lu(1834) - lu(867) * lu(1833) + lu(1835) = lu(1835) - lu(868) * lu(1833) + lu(1836) = lu(1836) - lu(869) * lu(1833) + lu(1837) = lu(1837) - lu(870) * lu(1833) + lu(1838) = lu(1838) - lu(871) * lu(1833) + lu(1839) = lu(1839) - lu(872) * lu(1833) + lu(1840) = lu(1840) - lu(873) * lu(1833) + lu(1841) = lu(1841) - lu(874) * lu(1833) + lu(1842) = lu(1842) - lu(875) * lu(1833) + lu(1843) = lu(1843) - lu(876) * lu(1833) + lu(1844) = lu(1844) - lu(877) * lu(1833) + lu(1845) = lu(1845) - lu(878) * lu(1833) + lu(1846) = lu(1846) - lu(879) * lu(1833) + lu(1847) = lu(1847) - lu(880) * lu(1833) + lu(1848) = lu(1848) - lu(881) * lu(1833) + lu(1849) = lu(1849) - lu(882) * lu(1833) + lu(1850) = lu(1850) - lu(883) * lu(1833) + lu(1851) = lu(1851) - lu(884) * lu(1833) + lu(1852) = lu(1852) - lu(885) * lu(1833) + lu(1853) = lu(1853) - lu(886) * lu(1833) + lu(1855) = lu(1855) - lu(887) * lu(1833) + lu(1856) = lu(1856) - lu(888) * lu(1833) + lu(908) = 1._r8 / lu(908) + lu(909) = lu(909) * lu(908) + lu(910) = lu(910) * lu(908) + lu(911) = lu(911) * lu(908) + lu(912) = lu(912) * lu(908) + lu(913) = lu(913) * lu(908) + lu(914) = lu(914) * lu(908) + lu(915) = lu(915) * lu(908) + lu(916) = lu(916) * lu(908) + lu(917) = lu(917) * lu(908) + lu(918) = lu(918) * lu(908) + lu(919) = lu(919) * lu(908) + lu(920) = lu(920) * lu(908) + lu(921) = lu(921) * lu(908) + lu(922) = lu(922) * lu(908) + lu(923) = lu(923) * lu(908) + lu(924) = lu(924) * lu(908) + lu(925) = lu(925) * lu(908) + lu(926) = lu(926) * lu(908) + lu(927) = lu(927) * lu(908) + lu(928) = lu(928) * lu(908) + lu(929) = lu(929) * lu(908) + lu(930) = lu(930) * lu(908) + lu(956) = lu(956) - lu(909) * lu(955) + lu(957) = lu(957) - lu(910) * lu(955) + lu(958) = lu(958) - lu(911) * lu(955) + lu(959) = lu(959) - lu(912) * lu(955) + lu(960) = lu(960) - lu(913) * lu(955) + lu(961) = lu(961) - lu(914) * lu(955) + lu(962) = lu(962) - lu(915) * lu(955) + lu(963) = lu(963) - lu(916) * lu(955) + lu(964) = lu(964) - lu(917) * lu(955) + lu(965) = lu(965) - lu(918) * lu(955) + lu(966) = lu(966) - lu(919) * lu(955) + lu(967) = lu(967) - lu(920) * lu(955) + lu(968) = lu(968) - lu(921) * lu(955) + lu(969) = lu(969) - lu(922) * lu(955) + lu(970) = lu(970) - lu(923) * lu(955) + lu(971) = lu(971) - lu(924) * lu(955) + lu(972) = lu(972) - lu(925) * lu(955) + lu(973) = lu(973) - lu(926) * lu(955) + lu(974) = lu(974) - lu(927) * lu(955) + lu(975) = lu(975) - lu(928) * lu(955) + lu(976) = lu(976) - lu(929) * lu(955) + lu(977) = lu(977) - lu(930) * lu(955) + lu(998) = lu(998) - lu(909) * lu(997) + lu(999) = lu(999) - lu(910) * lu(997) + lu(1000) = lu(1000) - lu(911) * lu(997) + lu(1001) = lu(1001) - lu(912) * lu(997) + lu(1002) = lu(1002) - lu(913) * lu(997) + lu(1003) = lu(1003) - lu(914) * lu(997) + lu(1004) = lu(1004) - lu(915) * lu(997) + lu(1005) = lu(1005) - lu(916) * lu(997) + lu(1006) = lu(1006) - lu(917) * lu(997) + lu(1007) = lu(1007) - lu(918) * lu(997) + lu(1008) = lu(1008) - lu(919) * lu(997) + lu(1009) = lu(1009) - lu(920) * lu(997) + lu(1010) = lu(1010) - lu(921) * lu(997) + lu(1011) = lu(1011) - lu(922) * lu(997) + lu(1012) = lu(1012) - lu(923) * lu(997) + lu(1013) = lu(1013) - lu(924) * lu(997) + lu(1014) = lu(1014) - lu(925) * lu(997) + lu(1015) = lu(1015) - lu(926) * lu(997) + lu(1016) = lu(1016) - lu(927) * lu(997) + lu(1017) = lu(1017) - lu(928) * lu(997) + lu(1018) = lu(1018) - lu(929) * lu(997) + lu(1019) = lu(1019) - lu(930) * lu(997) + lu(1047) = lu(1047) - lu(909) * lu(1046) + lu(1048) = lu(1048) - lu(910) * lu(1046) + lu(1049) = lu(1049) - lu(911) * lu(1046) + lu(1050) = lu(1050) - lu(912) * lu(1046) + lu(1051) = lu(1051) - lu(913) * lu(1046) + lu(1052) = lu(1052) - lu(914) * lu(1046) + lu(1053) = lu(1053) - lu(915) * lu(1046) + lu(1054) = lu(1054) - lu(916) * lu(1046) + lu(1055) = lu(1055) - lu(917) * lu(1046) + lu(1056) = lu(1056) - lu(918) * lu(1046) + lu(1057) = lu(1057) - lu(919) * lu(1046) + lu(1058) = lu(1058) - lu(920) * lu(1046) + lu(1059) = lu(1059) - lu(921) * lu(1046) + lu(1060) = lu(1060) - lu(922) * lu(1046) + lu(1061) = lu(1061) - lu(923) * lu(1046) + lu(1062) = lu(1062) - lu(924) * lu(1046) + lu(1063) = lu(1063) - lu(925) * lu(1046) + lu(1064) = lu(1064) - lu(926) * lu(1046) + lu(1065) = lu(1065) - lu(927) * lu(1046) + lu(1066) = lu(1066) - lu(928) * lu(1046) + lu(1067) = lu(1067) - lu(929) * lu(1046) + lu(1068) = lu(1068) - lu(930) * lu(1046) + lu(1093) = lu(1093) - lu(909) * lu(1092) + lu(1094) = lu(1094) - lu(910) * lu(1092) + lu(1095) = lu(1095) - lu(911) * lu(1092) + lu(1096) = lu(1096) - lu(912) * lu(1092) + lu(1097) = lu(1097) - lu(913) * lu(1092) + lu(1098) = lu(1098) - lu(914) * lu(1092) + lu(1099) = lu(1099) - lu(915) * lu(1092) + lu(1100) = lu(1100) - lu(916) * lu(1092) + lu(1101) = lu(1101) - lu(917) * lu(1092) + lu(1102) = lu(1102) - lu(918) * lu(1092) + lu(1103) = lu(1103) - lu(919) * lu(1092) + lu(1104) = lu(1104) - lu(920) * lu(1092) + lu(1105) = lu(1105) - lu(921) * lu(1092) + lu(1106) = lu(1106) - lu(922) * lu(1092) + lu(1107) = lu(1107) - lu(923) * lu(1092) + lu(1108) = lu(1108) - lu(924) * lu(1092) + lu(1109) = lu(1109) - lu(925) * lu(1092) + lu(1110) = lu(1110) - lu(926) * lu(1092) + lu(1111) = lu(1111) - lu(927) * lu(1092) + lu(1112) = lu(1112) - lu(928) * lu(1092) + lu(1113) = lu(1113) - lu(929) * lu(1092) + lu(1114) = lu(1114) - lu(930) * lu(1092) + lu(1134) = lu(1134) - lu(909) * lu(1133) + lu(1135) = lu(1135) - lu(910) * lu(1133) + lu(1136) = lu(1136) - lu(911) * lu(1133) + lu(1137) = lu(1137) - lu(912) * lu(1133) + lu(1138) = lu(1138) - lu(913) * lu(1133) + lu(1139) = lu(1139) - lu(914) * lu(1133) + lu(1140) = lu(1140) - lu(915) * lu(1133) + lu(1141) = lu(1141) - lu(916) * lu(1133) + lu(1142) = lu(1142) - lu(917) * lu(1133) + lu(1143) = lu(1143) - lu(918) * lu(1133) + lu(1144) = lu(1144) - lu(919) * lu(1133) + lu(1145) = lu(1145) - lu(920) * lu(1133) + lu(1146) = lu(1146) - lu(921) * lu(1133) + lu(1147) = lu(1147) - lu(922) * lu(1133) + lu(1148) = lu(1148) - lu(923) * lu(1133) + lu(1149) = lu(1149) - lu(924) * lu(1133) + lu(1150) = lu(1150) - lu(925) * lu(1133) + lu(1151) = lu(1151) - lu(926) * lu(1133) + lu(1152) = lu(1152) - lu(927) * lu(1133) + lu(1153) = lu(1153) - lu(928) * lu(1133) + lu(1154) = lu(1154) - lu(929) * lu(1133) + lu(1155) = lu(1155) - lu(930) * lu(1133) + lu(1175) = lu(1175) - lu(909) * lu(1174) + lu(1176) = lu(1176) - lu(910) * lu(1174) + lu(1177) = lu(1177) - lu(911) * lu(1174) + lu(1178) = lu(1178) - lu(912) * lu(1174) + lu(1179) = lu(1179) - lu(913) * lu(1174) + lu(1180) = lu(1180) - lu(914) * lu(1174) + lu(1181) = lu(1181) - lu(915) * lu(1174) + lu(1182) = lu(1182) - lu(916) * lu(1174) + lu(1183) = lu(1183) - lu(917) * lu(1174) + lu(1184) = lu(1184) - lu(918) * lu(1174) + lu(1185) = lu(1185) - lu(919) * lu(1174) + lu(1186) = lu(1186) - lu(920) * lu(1174) + lu(1187) = lu(1187) - lu(921) * lu(1174) + lu(1188) = lu(1188) - lu(922) * lu(1174) + lu(1189) = lu(1189) - lu(923) * lu(1174) + lu(1190) = lu(1190) - lu(924) * lu(1174) + lu(1191) = lu(1191) - lu(925) * lu(1174) + lu(1192) = lu(1192) - lu(926) * lu(1174) + lu(1193) = lu(1193) - lu(927) * lu(1174) + lu(1194) = lu(1194) - lu(928) * lu(1174) + lu(1195) = lu(1195) - lu(929) * lu(1174) + lu(1196) = lu(1196) - lu(930) * lu(1174) + lu(1234) = lu(1234) - lu(909) * lu(1233) + lu(1235) = lu(1235) - lu(910) * lu(1233) + lu(1236) = lu(1236) - lu(911) * lu(1233) + lu(1237) = lu(1237) - lu(912) * lu(1233) + lu(1238) = lu(1238) - lu(913) * lu(1233) + lu(1239) = lu(1239) - lu(914) * lu(1233) + lu(1240) = lu(1240) - lu(915) * lu(1233) + lu(1241) = lu(1241) - lu(916) * lu(1233) + lu(1242) = lu(1242) - lu(917) * lu(1233) + lu(1243) = lu(1243) - lu(918) * lu(1233) + lu(1244) = lu(1244) - lu(919) * lu(1233) + lu(1245) = lu(1245) - lu(920) * lu(1233) + lu(1246) = lu(1246) - lu(921) * lu(1233) + lu(1247) = lu(1247) - lu(922) * lu(1233) + lu(1248) = lu(1248) - lu(923) * lu(1233) + lu(1249) = lu(1249) - lu(924) * lu(1233) + lu(1250) = lu(1250) - lu(925) * lu(1233) + lu(1251) = lu(1251) - lu(926) * lu(1233) + lu(1252) = lu(1252) - lu(927) * lu(1233) + lu(1253) = lu(1253) - lu(928) * lu(1233) + lu(1254) = lu(1254) - lu(929) * lu(1233) + lu(1255) = lu(1255) - lu(930) * lu(1233) + lu(1276) = lu(1276) - lu(909) * lu(1275) + lu(1277) = lu(1277) - lu(910) * lu(1275) + lu(1278) = lu(1278) - lu(911) * lu(1275) + lu(1279) = lu(1279) - lu(912) * lu(1275) + lu(1280) = lu(1280) - lu(913) * lu(1275) + lu(1281) = lu(1281) - lu(914) * lu(1275) + lu(1282) = lu(1282) - lu(915) * lu(1275) + lu(1283) = lu(1283) - lu(916) * lu(1275) + lu(1284) = lu(1284) - lu(917) * lu(1275) + lu(1285) = lu(1285) - lu(918) * lu(1275) + lu(1286) = lu(1286) - lu(919) * lu(1275) + lu(1287) = lu(1287) - lu(920) * lu(1275) + lu(1288) = lu(1288) - lu(921) * lu(1275) + lu(1289) = lu(1289) - lu(922) * lu(1275) + lu(1290) = lu(1290) - lu(923) * lu(1275) + lu(1291) = lu(1291) - lu(924) * lu(1275) + lu(1292) = lu(1292) - lu(925) * lu(1275) + lu(1293) = lu(1293) - lu(926) * lu(1275) + lu(1294) = lu(1294) - lu(927) * lu(1275) + lu(1295) = lu(1295) - lu(928) * lu(1275) + lu(1296) = lu(1296) - lu(929) * lu(1275) + lu(1297) = lu(1297) - lu(930) * lu(1275) + lu(1320) = lu(1320) - lu(909) * lu(1319) + lu(1321) = lu(1321) - lu(910) * lu(1319) + lu(1322) = lu(1322) - lu(911) * lu(1319) + lu(1323) = lu(1323) - lu(912) * lu(1319) + lu(1324) = lu(1324) - lu(913) * lu(1319) + lu(1325) = lu(1325) - lu(914) * lu(1319) + lu(1326) = lu(1326) - lu(915) * lu(1319) + lu(1327) = lu(1327) - lu(916) * lu(1319) + lu(1328) = lu(1328) - lu(917) * lu(1319) + lu(1329) = lu(1329) - lu(918) * lu(1319) + lu(1330) = lu(1330) - lu(919) * lu(1319) + lu(1331) = lu(1331) - lu(920) * lu(1319) + lu(1332) = lu(1332) - lu(921) * lu(1319) + lu(1333) = lu(1333) - lu(922) * lu(1319) + lu(1334) = lu(1334) - lu(923) * lu(1319) + lu(1335) = lu(1335) - lu(924) * lu(1319) + lu(1336) = lu(1336) - lu(925) * lu(1319) + lu(1337) = lu(1337) - lu(926) * lu(1319) + lu(1338) = lu(1338) - lu(927) * lu(1319) + lu(1339) = lu(1339) - lu(928) * lu(1319) + lu(1340) = lu(1340) - lu(929) * lu(1319) + lu(1341) = lu(1341) - lu(930) * lu(1319) + lu(1355) = lu(1355) - lu(909) * lu(1354) + lu(1356) = lu(1356) - lu(910) * lu(1354) + lu(1357) = lu(1357) - lu(911) * lu(1354) + lu(1358) = lu(1358) - lu(912) * lu(1354) + lu(1359) = lu(1359) - lu(913) * lu(1354) + lu(1360) = lu(1360) - lu(914) * lu(1354) + lu(1361) = lu(1361) - lu(915) * lu(1354) + lu(1362) = lu(1362) - lu(916) * lu(1354) + lu(1363) = lu(1363) - lu(917) * lu(1354) + lu(1364) = lu(1364) - lu(918) * lu(1354) + lu(1365) = lu(1365) - lu(919) * lu(1354) + lu(1366) = lu(1366) - lu(920) * lu(1354) + lu(1367) = lu(1367) - lu(921) * lu(1354) + lu(1368) = lu(1368) - lu(922) * lu(1354) + lu(1369) = lu(1369) - lu(923) * lu(1354) + lu(1370) = lu(1370) - lu(924) * lu(1354) + lu(1371) = lu(1371) - lu(925) * lu(1354) + lu(1372) = lu(1372) - lu(926) * lu(1354) + lu(1373) = lu(1373) - lu(927) * lu(1354) + lu(1374) = lu(1374) - lu(928) * lu(1354) + lu(1375) = lu(1375) - lu(929) * lu(1354) + lu(1376) = lu(1376) - lu(930) * lu(1354) + lu(1399) = lu(1399) - lu(909) * lu(1398) + lu(1400) = lu(1400) - lu(910) * lu(1398) + lu(1401) = lu(1401) - lu(911) * lu(1398) + lu(1402) = lu(1402) - lu(912) * lu(1398) + lu(1403) = lu(1403) - lu(913) * lu(1398) + lu(1404) = lu(1404) - lu(914) * lu(1398) + lu(1405) = lu(1405) - lu(915) * lu(1398) + lu(1406) = lu(1406) - lu(916) * lu(1398) + lu(1407) = lu(1407) - lu(917) * lu(1398) + lu(1408) = lu(1408) - lu(918) * lu(1398) + lu(1409) = lu(1409) - lu(919) * lu(1398) + lu(1410) = lu(1410) - lu(920) * lu(1398) + lu(1411) = lu(1411) - lu(921) * lu(1398) + lu(1412) = lu(1412) - lu(922) * lu(1398) + lu(1413) = lu(1413) - lu(923) * lu(1398) + lu(1414) = lu(1414) - lu(924) * lu(1398) + lu(1415) = lu(1415) - lu(925) * lu(1398) + lu(1416) = lu(1416) - lu(926) * lu(1398) + lu(1417) = lu(1417) - lu(927) * lu(1398) + lu(1418) = lu(1418) - lu(928) * lu(1398) + lu(1419) = lu(1419) - lu(929) * lu(1398) + lu(1420) = lu(1420) - lu(930) * lu(1398) + lu(1440) = lu(1440) - lu(909) * lu(1439) + lu(1441) = lu(1441) - lu(910) * lu(1439) + lu(1442) = lu(1442) - lu(911) * lu(1439) + lu(1443) = lu(1443) - lu(912) * lu(1439) + lu(1444) = lu(1444) - lu(913) * lu(1439) + lu(1445) = lu(1445) - lu(914) * lu(1439) + lu(1446) = lu(1446) - lu(915) * lu(1439) + lu(1447) = lu(1447) - lu(916) * lu(1439) + lu(1448) = lu(1448) - lu(917) * lu(1439) + lu(1449) = lu(1449) - lu(918) * lu(1439) + lu(1450) = lu(1450) - lu(919) * lu(1439) + lu(1451) = lu(1451) - lu(920) * lu(1439) + lu(1452) = lu(1452) - lu(921) * lu(1439) + lu(1453) = lu(1453) - lu(922) * lu(1439) + lu(1454) = lu(1454) - lu(923) * lu(1439) + lu(1455) = lu(1455) - lu(924) * lu(1439) + lu(1456) = lu(1456) - lu(925) * lu(1439) + lu(1457) = lu(1457) - lu(926) * lu(1439) + lu(1458) = lu(1458) - lu(927) * lu(1439) + lu(1459) = lu(1459) - lu(928) * lu(1439) + lu(1460) = lu(1460) - lu(929) * lu(1439) + lu(1461) = lu(1461) - lu(930) * lu(1439) + lu(1475) = lu(1475) - lu(909) * lu(1474) + lu(1476) = lu(1476) - lu(910) * lu(1474) + lu(1477) = lu(1477) - lu(911) * lu(1474) + lu(1478) = lu(1478) - lu(912) * lu(1474) + lu(1479) = lu(1479) - lu(913) * lu(1474) + lu(1480) = lu(1480) - lu(914) * lu(1474) + lu(1481) = lu(1481) - lu(915) * lu(1474) + lu(1482) = lu(1482) - lu(916) * lu(1474) + lu(1483) = lu(1483) - lu(917) * lu(1474) + lu(1484) = lu(1484) - lu(918) * lu(1474) + lu(1485) = lu(1485) - lu(919) * lu(1474) + lu(1486) = lu(1486) - lu(920) * lu(1474) + lu(1487) = lu(1487) - lu(921) * lu(1474) + lu(1488) = lu(1488) - lu(922) * lu(1474) + lu(1489) = lu(1489) - lu(923) * lu(1474) + lu(1490) = lu(1490) - lu(924) * lu(1474) + lu(1491) = lu(1491) - lu(925) * lu(1474) + lu(1492) = lu(1492) - lu(926) * lu(1474) + lu(1493) = lu(1493) - lu(927) * lu(1474) + lu(1494) = lu(1494) - lu(928) * lu(1474) + lu(1495) = lu(1495) - lu(929) * lu(1474) + lu(1496) = lu(1496) - lu(930) * lu(1474) + lu(1519) = lu(1519) - lu(909) * lu(1518) + lu(1520) = lu(1520) - lu(910) * lu(1518) + lu(1521) = lu(1521) - lu(911) * lu(1518) + lu(1522) = lu(1522) - lu(912) * lu(1518) + lu(1523) = lu(1523) - lu(913) * lu(1518) + lu(1524) = lu(1524) - lu(914) * lu(1518) + lu(1525) = lu(1525) - lu(915) * lu(1518) + lu(1526) = lu(1526) - lu(916) * lu(1518) + lu(1527) = lu(1527) - lu(917) * lu(1518) + lu(1528) = lu(1528) - lu(918) * lu(1518) + lu(1529) = lu(1529) - lu(919) * lu(1518) + lu(1530) = lu(1530) - lu(920) * lu(1518) + lu(1531) = lu(1531) - lu(921) * lu(1518) + lu(1532) = lu(1532) - lu(922) * lu(1518) + lu(1533) = lu(1533) - lu(923) * lu(1518) + lu(1534) = lu(1534) - lu(924) * lu(1518) + lu(1535) = lu(1535) - lu(925) * lu(1518) + lu(1536) = lu(1536) - lu(926) * lu(1518) + lu(1537) = lu(1537) - lu(927) * lu(1518) + lu(1538) = lu(1538) - lu(928) * lu(1518) + lu(1539) = lu(1539) - lu(929) * lu(1518) + lu(1540) = lu(1540) - lu(930) * lu(1518) + lu(1561) = lu(1561) - lu(909) * lu(1560) + lu(1562) = lu(1562) - lu(910) * lu(1560) + lu(1563) = lu(1563) - lu(911) * lu(1560) + lu(1564) = lu(1564) - lu(912) * lu(1560) + lu(1565) = lu(1565) - lu(913) * lu(1560) + lu(1566) = lu(1566) - lu(914) * lu(1560) + lu(1567) = lu(1567) - lu(915) * lu(1560) + lu(1568) = lu(1568) - lu(916) * lu(1560) + lu(1569) = lu(1569) - lu(917) * lu(1560) + lu(1570) = lu(1570) - lu(918) * lu(1560) + lu(1571) = lu(1571) - lu(919) * lu(1560) + lu(1572) = lu(1572) - lu(920) * lu(1560) + lu(1573) = lu(1573) - lu(921) * lu(1560) + lu(1574) = lu(1574) - lu(922) * lu(1560) + lu(1575) = lu(1575) - lu(923) * lu(1560) + lu(1576) = lu(1576) - lu(924) * lu(1560) + lu(1577) = lu(1577) - lu(925) * lu(1560) + lu(1578) = lu(1578) - lu(926) * lu(1560) + lu(1579) = lu(1579) - lu(927) * lu(1560) + lu(1580) = lu(1580) - lu(928) * lu(1560) + lu(1581) = lu(1581) - lu(929) * lu(1560) + lu(1582) = lu(1582) - lu(930) * lu(1560) + lu(1600) = lu(1600) - lu(909) * lu(1599) + lu(1601) = lu(1601) - lu(910) * lu(1599) + lu(1602) = lu(1602) - lu(911) * lu(1599) + lu(1603) = lu(1603) - lu(912) * lu(1599) + lu(1604) = lu(1604) - lu(913) * lu(1599) + lu(1605) = lu(1605) - lu(914) * lu(1599) + lu(1606) = lu(1606) - lu(915) * lu(1599) + lu(1607) = lu(1607) - lu(916) * lu(1599) + lu(1608) = lu(1608) - lu(917) * lu(1599) + lu(1609) = lu(1609) - lu(918) * lu(1599) + lu(1610) = lu(1610) - lu(919) * lu(1599) + lu(1611) = lu(1611) - lu(920) * lu(1599) + lu(1612) = lu(1612) - lu(921) * lu(1599) + lu(1613) = lu(1613) - lu(922) * lu(1599) + lu(1614) = lu(1614) - lu(923) * lu(1599) + lu(1615) = lu(1615) - lu(924) * lu(1599) + lu(1616) = lu(1616) - lu(925) * lu(1599) + lu(1617) = lu(1617) - lu(926) * lu(1599) + lu(1618) = lu(1618) - lu(927) * lu(1599) + lu(1619) = lu(1619) - lu(928) * lu(1599) + lu(1620) = lu(1620) - lu(929) * lu(1599) + lu(1621) = lu(1621) - lu(930) * lu(1599) + lu(1632) = lu(1632) - lu(909) * lu(1631) + lu(1633) = lu(1633) - lu(910) * lu(1631) + lu(1634) = lu(1634) - lu(911) * lu(1631) + lu(1635) = lu(1635) - lu(912) * lu(1631) + lu(1636) = lu(1636) - lu(913) * lu(1631) + lu(1637) = lu(1637) - lu(914) * lu(1631) + lu(1638) = lu(1638) - lu(915) * lu(1631) + lu(1639) = lu(1639) - lu(916) * lu(1631) + lu(1640) = lu(1640) - lu(917) * lu(1631) + lu(1641) = lu(1641) - lu(918) * lu(1631) + lu(1642) = lu(1642) - lu(919) * lu(1631) + lu(1643) = lu(1643) - lu(920) * lu(1631) + lu(1644) = lu(1644) - lu(921) * lu(1631) + lu(1645) = lu(1645) - lu(922) * lu(1631) + lu(1646) = lu(1646) - lu(923) * lu(1631) + lu(1647) = lu(1647) - lu(924) * lu(1631) + lu(1648) = lu(1648) - lu(925) * lu(1631) + lu(1649) = lu(1649) - lu(926) * lu(1631) + lu(1650) = lu(1650) - lu(927) * lu(1631) + lu(1651) = lu(1651) - lu(928) * lu(1631) + lu(1652) = lu(1652) - lu(929) * lu(1631) + lu(1653) = lu(1653) - lu(930) * lu(1631) + lu(1667) = lu(1667) - lu(909) * lu(1666) + lu(1668) = lu(1668) - lu(910) * lu(1666) + lu(1669) = lu(1669) - lu(911) * lu(1666) + lu(1670) = lu(1670) - lu(912) * lu(1666) + lu(1671) = lu(1671) - lu(913) * lu(1666) + lu(1672) = lu(1672) - lu(914) * lu(1666) + lu(1673) = lu(1673) - lu(915) * lu(1666) + lu(1674) = lu(1674) - lu(916) * lu(1666) + lu(1675) = lu(1675) - lu(917) * lu(1666) + lu(1676) = lu(1676) - lu(918) * lu(1666) + lu(1677) = lu(1677) - lu(919) * lu(1666) + lu(1678) = lu(1678) - lu(920) * lu(1666) + lu(1679) = lu(1679) - lu(921) * lu(1666) + lu(1680) = lu(1680) - lu(922) * lu(1666) + lu(1681) = lu(1681) - lu(923) * lu(1666) + lu(1682) = lu(1682) - lu(924) * lu(1666) + lu(1683) = lu(1683) - lu(925) * lu(1666) + lu(1684) = lu(1684) - lu(926) * lu(1666) + lu(1685) = lu(1685) - lu(927) * lu(1666) + lu(1686) = lu(1686) - lu(928) * lu(1666) + lu(1687) = lu(1687) - lu(929) * lu(1666) + lu(1688) = lu(1688) - lu(930) * lu(1666) + lu(1709) = lu(1709) - lu(909) * lu(1708) + lu(1710) = lu(1710) - lu(910) * lu(1708) + lu(1711) = lu(1711) - lu(911) * lu(1708) + lu(1712) = lu(1712) - lu(912) * lu(1708) + lu(1713) = lu(1713) - lu(913) * lu(1708) + lu(1714) = lu(1714) - lu(914) * lu(1708) + lu(1715) = lu(1715) - lu(915) * lu(1708) + lu(1716) = lu(1716) - lu(916) * lu(1708) + lu(1717) = lu(1717) - lu(917) * lu(1708) + lu(1718) = lu(1718) - lu(918) * lu(1708) + lu(1719) = lu(1719) - lu(919) * lu(1708) + lu(1720) = lu(1720) - lu(920) * lu(1708) + lu(1721) = lu(1721) - lu(921) * lu(1708) + lu(1722) = lu(1722) - lu(922) * lu(1708) + lu(1723) = lu(1723) - lu(923) * lu(1708) + lu(1724) = lu(1724) - lu(924) * lu(1708) + lu(1725) = lu(1725) - lu(925) * lu(1708) + lu(1726) = lu(1726) - lu(926) * lu(1708) + lu(1727) = lu(1727) - lu(927) * lu(1708) + lu(1728) = lu(1728) - lu(928) * lu(1708) + lu(1729) = lu(1729) - lu(929) * lu(1708) + lu(1730) = lu(1730) - lu(930) * lu(1708) + lu(1738) = lu(1738) - lu(909) * lu(1737) + lu(1739) = lu(1739) - lu(910) * lu(1737) + lu(1740) = lu(1740) - lu(911) * lu(1737) + lu(1741) = lu(1741) - lu(912) * lu(1737) + lu(1742) = lu(1742) - lu(913) * lu(1737) + lu(1743) = lu(1743) - lu(914) * lu(1737) + lu(1744) = lu(1744) - lu(915) * lu(1737) + lu(1745) = lu(1745) - lu(916) * lu(1737) + lu(1746) = lu(1746) - lu(917) * lu(1737) + lu(1747) = lu(1747) - lu(918) * lu(1737) + lu(1748) = lu(1748) - lu(919) * lu(1737) + lu(1749) = lu(1749) - lu(920) * lu(1737) + lu(1750) = lu(1750) - lu(921) * lu(1737) + lu(1751) = lu(1751) - lu(922) * lu(1737) + lu(1752) = lu(1752) - lu(923) * lu(1737) + lu(1753) = lu(1753) - lu(924) * lu(1737) + lu(1754) = lu(1754) - lu(925) * lu(1737) + lu(1755) = lu(1755) - lu(926) * lu(1737) + lu(1756) = lu(1756) - lu(927) * lu(1737) + lu(1757) = lu(1757) - lu(928) * lu(1737) + lu(1758) = lu(1758) - lu(929) * lu(1737) + lu(1759) = lu(1759) - lu(930) * lu(1737) + lu(1777) = lu(1777) - lu(909) * lu(1776) + lu(1778) = lu(1778) - lu(910) * lu(1776) + lu(1779) = lu(1779) - lu(911) * lu(1776) + lu(1780) = lu(1780) - lu(912) * lu(1776) + lu(1781) = lu(1781) - lu(913) * lu(1776) + lu(1782) = lu(1782) - lu(914) * lu(1776) + lu(1783) = lu(1783) - lu(915) * lu(1776) + lu(1784) = lu(1784) - lu(916) * lu(1776) + lu(1785) = lu(1785) - lu(917) * lu(1776) + lu(1786) = lu(1786) - lu(918) * lu(1776) + lu(1787) = lu(1787) - lu(919) * lu(1776) + lu(1788) = lu(1788) - lu(920) * lu(1776) + lu(1789) = lu(1789) - lu(921) * lu(1776) + lu(1790) = lu(1790) - lu(922) * lu(1776) + lu(1791) = lu(1791) - lu(923) * lu(1776) + lu(1792) = lu(1792) - lu(924) * lu(1776) + lu(1793) = lu(1793) - lu(925) * lu(1776) + lu(1794) = lu(1794) - lu(926) * lu(1776) + lu(1795) = lu(1795) - lu(927) * lu(1776) + lu(1796) = lu(1796) - lu(928) * lu(1776) + lu(1797) = lu(1797) - lu(929) * lu(1776) + lu(1798) = lu(1798) - lu(930) * lu(1776) + lu(1835) = lu(1835) - lu(909) * lu(1834) + lu(1836) = lu(1836) - lu(910) * lu(1834) + lu(1837) = lu(1837) - lu(911) * lu(1834) + lu(1838) = lu(1838) - lu(912) * lu(1834) + lu(1839) = lu(1839) - lu(913) * lu(1834) + lu(1840) = lu(1840) - lu(914) * lu(1834) + lu(1841) = lu(1841) - lu(915) * lu(1834) + lu(1842) = lu(1842) - lu(916) * lu(1834) + lu(1843) = lu(1843) - lu(917) * lu(1834) + lu(1844) = lu(1844) - lu(918) * lu(1834) + lu(1845) = lu(1845) - lu(919) * lu(1834) + lu(1846) = lu(1846) - lu(920) * lu(1834) + lu(1847) = lu(1847) - lu(921) * lu(1834) + lu(1848) = lu(1848) - lu(922) * lu(1834) + lu(1849) = lu(1849) - lu(923) * lu(1834) + lu(1850) = lu(1850) - lu(924) * lu(1834) + lu(1851) = lu(1851) - lu(925) * lu(1834) + lu(1852) = lu(1852) - lu(926) * lu(1834) + lu(1853) = lu(1853) - lu(927) * lu(1834) + lu(1854) = lu(1854) - lu(928) * lu(1834) + lu(1855) = lu(1855) - lu(929) * lu(1834) + lu(1856) = lu(1856) - lu(930) * lu(1834) + lu(956) = 1._r8 / lu(956) + lu(957) = lu(957) * lu(956) + lu(958) = lu(958) * lu(956) + lu(959) = lu(959) * lu(956) + lu(960) = lu(960) * lu(956) + lu(961) = lu(961) * lu(956) + lu(962) = lu(962) * lu(956) + lu(963) = lu(963) * lu(956) + lu(964) = lu(964) * lu(956) + lu(965) = lu(965) * lu(956) + lu(966) = lu(966) * lu(956) + lu(967) = lu(967) * lu(956) + lu(968) = lu(968) * lu(956) + lu(969) = lu(969) * lu(956) + lu(970) = lu(970) * lu(956) + lu(971) = lu(971) * lu(956) + lu(972) = lu(972) * lu(956) + lu(973) = lu(973) * lu(956) + lu(974) = lu(974) * lu(956) + lu(975) = lu(975) * lu(956) + lu(976) = lu(976) * lu(956) + lu(977) = lu(977) * lu(956) + lu(999) = lu(999) - lu(957) * lu(998) + lu(1000) = lu(1000) - lu(958) * lu(998) + lu(1001) = lu(1001) - lu(959) * lu(998) + lu(1002) = lu(1002) - lu(960) * lu(998) + lu(1003) = lu(1003) - lu(961) * lu(998) + lu(1004) = lu(1004) - lu(962) * lu(998) + lu(1005) = lu(1005) - lu(963) * lu(998) + lu(1006) = lu(1006) - lu(964) * lu(998) + lu(1007) = lu(1007) - lu(965) * lu(998) + lu(1008) = lu(1008) - lu(966) * lu(998) + lu(1009) = lu(1009) - lu(967) * lu(998) + lu(1010) = lu(1010) - lu(968) * lu(998) + lu(1011) = lu(1011) - lu(969) * lu(998) + lu(1012) = lu(1012) - lu(970) * lu(998) + lu(1013) = lu(1013) - lu(971) * lu(998) + lu(1014) = lu(1014) - lu(972) * lu(998) + lu(1015) = lu(1015) - lu(973) * lu(998) + lu(1016) = lu(1016) - lu(974) * lu(998) + lu(1017) = lu(1017) - lu(975) * lu(998) + lu(1018) = lu(1018) - lu(976) * lu(998) + lu(1019) = lu(1019) - lu(977) * lu(998) + lu(1048) = lu(1048) - lu(957) * lu(1047) + lu(1049) = lu(1049) - lu(958) * lu(1047) + lu(1050) = lu(1050) - lu(959) * lu(1047) + lu(1051) = lu(1051) - lu(960) * lu(1047) + lu(1052) = lu(1052) - lu(961) * lu(1047) + lu(1053) = lu(1053) - lu(962) * lu(1047) + lu(1054) = lu(1054) - lu(963) * lu(1047) + lu(1055) = lu(1055) - lu(964) * lu(1047) + lu(1056) = lu(1056) - lu(965) * lu(1047) + lu(1057) = lu(1057) - lu(966) * lu(1047) + lu(1058) = lu(1058) - lu(967) * lu(1047) + lu(1059) = lu(1059) - lu(968) * lu(1047) + lu(1060) = lu(1060) - lu(969) * lu(1047) + lu(1061) = lu(1061) - lu(970) * lu(1047) + lu(1062) = lu(1062) - lu(971) * lu(1047) + lu(1063) = lu(1063) - lu(972) * lu(1047) + lu(1064) = lu(1064) - lu(973) * lu(1047) + lu(1065) = lu(1065) - lu(974) * lu(1047) + lu(1066) = lu(1066) - lu(975) * lu(1047) + lu(1067) = lu(1067) - lu(976) * lu(1047) + lu(1068) = lu(1068) - lu(977) * lu(1047) + lu(1094) = lu(1094) - lu(957) * lu(1093) + lu(1095) = lu(1095) - lu(958) * lu(1093) + lu(1096) = lu(1096) - lu(959) * lu(1093) + lu(1097) = lu(1097) - lu(960) * lu(1093) + lu(1098) = lu(1098) - lu(961) * lu(1093) + lu(1099) = lu(1099) - lu(962) * lu(1093) + lu(1100) = lu(1100) - lu(963) * lu(1093) + lu(1101) = lu(1101) - lu(964) * lu(1093) + lu(1102) = lu(1102) - lu(965) * lu(1093) + lu(1103) = lu(1103) - lu(966) * lu(1093) + lu(1104) = lu(1104) - lu(967) * lu(1093) + lu(1105) = lu(1105) - lu(968) * lu(1093) + lu(1106) = lu(1106) - lu(969) * lu(1093) + lu(1107) = lu(1107) - lu(970) * lu(1093) + lu(1108) = lu(1108) - lu(971) * lu(1093) + lu(1109) = lu(1109) - lu(972) * lu(1093) + lu(1110) = lu(1110) - lu(973) * lu(1093) + lu(1111) = lu(1111) - lu(974) * lu(1093) + lu(1112) = lu(1112) - lu(975) * lu(1093) + lu(1113) = lu(1113) - lu(976) * lu(1093) + lu(1114) = lu(1114) - lu(977) * lu(1093) + lu(1135) = lu(1135) - lu(957) * lu(1134) + lu(1136) = lu(1136) - lu(958) * lu(1134) + lu(1137) = lu(1137) - lu(959) * lu(1134) + lu(1138) = lu(1138) - lu(960) * lu(1134) + lu(1139) = lu(1139) - lu(961) * lu(1134) + lu(1140) = lu(1140) - lu(962) * lu(1134) + lu(1141) = lu(1141) - lu(963) * lu(1134) + lu(1142) = lu(1142) - lu(964) * lu(1134) + lu(1143) = lu(1143) - lu(965) * lu(1134) + lu(1144) = lu(1144) - lu(966) * lu(1134) + lu(1145) = lu(1145) - lu(967) * lu(1134) + lu(1146) = lu(1146) - lu(968) * lu(1134) + lu(1147) = lu(1147) - lu(969) * lu(1134) + lu(1148) = lu(1148) - lu(970) * lu(1134) + lu(1149) = lu(1149) - lu(971) * lu(1134) + lu(1150) = lu(1150) - lu(972) * lu(1134) + lu(1151) = lu(1151) - lu(973) * lu(1134) + lu(1152) = lu(1152) - lu(974) * lu(1134) + lu(1153) = lu(1153) - lu(975) * lu(1134) + lu(1154) = lu(1154) - lu(976) * lu(1134) + lu(1155) = lu(1155) - lu(977) * lu(1134) + lu(1176) = lu(1176) - lu(957) * lu(1175) + lu(1177) = lu(1177) - lu(958) * lu(1175) + lu(1178) = lu(1178) - lu(959) * lu(1175) + lu(1179) = lu(1179) - lu(960) * lu(1175) + lu(1180) = lu(1180) - lu(961) * lu(1175) + lu(1181) = lu(1181) - lu(962) * lu(1175) + lu(1182) = lu(1182) - lu(963) * lu(1175) + lu(1183) = lu(1183) - lu(964) * lu(1175) + lu(1184) = lu(1184) - lu(965) * lu(1175) + lu(1185) = lu(1185) - lu(966) * lu(1175) + lu(1186) = lu(1186) - lu(967) * lu(1175) + lu(1187) = lu(1187) - lu(968) * lu(1175) + lu(1188) = lu(1188) - lu(969) * lu(1175) + lu(1189) = lu(1189) - lu(970) * lu(1175) + lu(1190) = lu(1190) - lu(971) * lu(1175) + lu(1191) = lu(1191) - lu(972) * lu(1175) + lu(1192) = lu(1192) - lu(973) * lu(1175) + lu(1193) = lu(1193) - lu(974) * lu(1175) + lu(1194) = lu(1194) - lu(975) * lu(1175) + lu(1195) = lu(1195) - lu(976) * lu(1175) + lu(1196) = lu(1196) - lu(977) * lu(1175) + lu(1235) = lu(1235) - lu(957) * lu(1234) + lu(1236) = lu(1236) - lu(958) * lu(1234) + lu(1237) = lu(1237) - lu(959) * lu(1234) + lu(1238) = lu(1238) - lu(960) * lu(1234) + lu(1239) = lu(1239) - lu(961) * lu(1234) + lu(1240) = lu(1240) - lu(962) * lu(1234) + lu(1241) = lu(1241) - lu(963) * lu(1234) + lu(1242) = lu(1242) - lu(964) * lu(1234) + lu(1243) = lu(1243) - lu(965) * lu(1234) + lu(1244) = lu(1244) - lu(966) * lu(1234) + lu(1245) = lu(1245) - lu(967) * lu(1234) + lu(1246) = lu(1246) - lu(968) * lu(1234) + lu(1247) = lu(1247) - lu(969) * lu(1234) + lu(1248) = lu(1248) - lu(970) * lu(1234) + lu(1249) = lu(1249) - lu(971) * lu(1234) + lu(1250) = lu(1250) - lu(972) * lu(1234) + lu(1251) = lu(1251) - lu(973) * lu(1234) + lu(1252) = lu(1252) - lu(974) * lu(1234) + lu(1253) = lu(1253) - lu(975) * lu(1234) + lu(1254) = lu(1254) - lu(976) * lu(1234) + lu(1255) = lu(1255) - lu(977) * lu(1234) + lu(1277) = lu(1277) - lu(957) * lu(1276) + lu(1278) = lu(1278) - lu(958) * lu(1276) + lu(1279) = lu(1279) - lu(959) * lu(1276) + lu(1280) = lu(1280) - lu(960) * lu(1276) + lu(1281) = lu(1281) - lu(961) * lu(1276) + lu(1282) = lu(1282) - lu(962) * lu(1276) + lu(1283) = lu(1283) - lu(963) * lu(1276) + lu(1284) = lu(1284) - lu(964) * lu(1276) + lu(1285) = lu(1285) - lu(965) * lu(1276) + lu(1286) = lu(1286) - lu(966) * lu(1276) + lu(1287) = lu(1287) - lu(967) * lu(1276) + lu(1288) = lu(1288) - lu(968) * lu(1276) + lu(1289) = lu(1289) - lu(969) * lu(1276) + lu(1290) = lu(1290) - lu(970) * lu(1276) + lu(1291) = lu(1291) - lu(971) * lu(1276) + lu(1292) = lu(1292) - lu(972) * lu(1276) + lu(1293) = lu(1293) - lu(973) * lu(1276) + lu(1294) = lu(1294) - lu(974) * lu(1276) + lu(1295) = lu(1295) - lu(975) * lu(1276) + lu(1296) = lu(1296) - lu(976) * lu(1276) + lu(1297) = lu(1297) - lu(977) * lu(1276) + lu(1321) = lu(1321) - lu(957) * lu(1320) + lu(1322) = lu(1322) - lu(958) * lu(1320) + lu(1323) = lu(1323) - lu(959) * lu(1320) + lu(1324) = lu(1324) - lu(960) * lu(1320) + lu(1325) = lu(1325) - lu(961) * lu(1320) + lu(1326) = lu(1326) - lu(962) * lu(1320) + lu(1327) = lu(1327) - lu(963) * lu(1320) + lu(1328) = lu(1328) - lu(964) * lu(1320) + lu(1329) = lu(1329) - lu(965) * lu(1320) + lu(1330) = lu(1330) - lu(966) * lu(1320) + lu(1331) = lu(1331) - lu(967) * lu(1320) + lu(1332) = lu(1332) - lu(968) * lu(1320) + lu(1333) = lu(1333) - lu(969) * lu(1320) + lu(1334) = lu(1334) - lu(970) * lu(1320) + lu(1335) = lu(1335) - lu(971) * lu(1320) + lu(1336) = lu(1336) - lu(972) * lu(1320) + lu(1337) = lu(1337) - lu(973) * lu(1320) + lu(1338) = lu(1338) - lu(974) * lu(1320) + lu(1339) = lu(1339) - lu(975) * lu(1320) + lu(1340) = lu(1340) - lu(976) * lu(1320) + lu(1341) = lu(1341) - lu(977) * lu(1320) + lu(1356) = lu(1356) - lu(957) * lu(1355) + lu(1357) = lu(1357) - lu(958) * lu(1355) + lu(1358) = lu(1358) - lu(959) * lu(1355) + lu(1359) = lu(1359) - lu(960) * lu(1355) + lu(1360) = lu(1360) - lu(961) * lu(1355) + lu(1361) = lu(1361) - lu(962) * lu(1355) + lu(1362) = lu(1362) - lu(963) * lu(1355) + lu(1363) = lu(1363) - lu(964) * lu(1355) + lu(1364) = lu(1364) - lu(965) * lu(1355) + lu(1365) = lu(1365) - lu(966) * lu(1355) + lu(1366) = lu(1366) - lu(967) * lu(1355) + lu(1367) = lu(1367) - lu(968) * lu(1355) + lu(1368) = lu(1368) - lu(969) * lu(1355) + lu(1369) = lu(1369) - lu(970) * lu(1355) + lu(1370) = lu(1370) - lu(971) * lu(1355) + lu(1371) = lu(1371) - lu(972) * lu(1355) + lu(1372) = lu(1372) - lu(973) * lu(1355) + lu(1373) = lu(1373) - lu(974) * lu(1355) + lu(1374) = lu(1374) - lu(975) * lu(1355) + lu(1375) = lu(1375) - lu(976) * lu(1355) + lu(1376) = lu(1376) - lu(977) * lu(1355) + lu(1400) = lu(1400) - lu(957) * lu(1399) + lu(1401) = lu(1401) - lu(958) * lu(1399) + lu(1402) = lu(1402) - lu(959) * lu(1399) + lu(1403) = lu(1403) - lu(960) * lu(1399) + lu(1404) = lu(1404) - lu(961) * lu(1399) + lu(1405) = lu(1405) - lu(962) * lu(1399) + lu(1406) = lu(1406) - lu(963) * lu(1399) + lu(1407) = lu(1407) - lu(964) * lu(1399) + lu(1408) = lu(1408) - lu(965) * lu(1399) + lu(1409) = lu(1409) - lu(966) * lu(1399) + lu(1410) = lu(1410) - lu(967) * lu(1399) + lu(1411) = lu(1411) - lu(968) * lu(1399) + lu(1412) = lu(1412) - lu(969) * lu(1399) + lu(1413) = lu(1413) - lu(970) * lu(1399) + lu(1414) = lu(1414) - lu(971) * lu(1399) + lu(1415) = lu(1415) - lu(972) * lu(1399) + lu(1416) = lu(1416) - lu(973) * lu(1399) + lu(1417) = lu(1417) - lu(974) * lu(1399) + lu(1418) = lu(1418) - lu(975) * lu(1399) + lu(1419) = lu(1419) - lu(976) * lu(1399) + lu(1420) = lu(1420) - lu(977) * lu(1399) + lu(1441) = lu(1441) - lu(957) * lu(1440) + lu(1442) = lu(1442) - lu(958) * lu(1440) + lu(1443) = lu(1443) - lu(959) * lu(1440) + lu(1444) = lu(1444) - lu(960) * lu(1440) + lu(1445) = lu(1445) - lu(961) * lu(1440) + lu(1446) = lu(1446) - lu(962) * lu(1440) + lu(1447) = lu(1447) - lu(963) * lu(1440) + lu(1448) = lu(1448) - lu(964) * lu(1440) + lu(1449) = lu(1449) - lu(965) * lu(1440) + lu(1450) = lu(1450) - lu(966) * lu(1440) + lu(1451) = lu(1451) - lu(967) * lu(1440) + lu(1452) = lu(1452) - lu(968) * lu(1440) + lu(1453) = lu(1453) - lu(969) * lu(1440) + lu(1454) = lu(1454) - lu(970) * lu(1440) + lu(1455) = lu(1455) - lu(971) * lu(1440) + lu(1456) = lu(1456) - lu(972) * lu(1440) + lu(1457) = lu(1457) - lu(973) * lu(1440) + lu(1458) = lu(1458) - lu(974) * lu(1440) + lu(1459) = lu(1459) - lu(975) * lu(1440) + lu(1460) = lu(1460) - lu(976) * lu(1440) + lu(1461) = lu(1461) - lu(977) * lu(1440) + lu(1476) = lu(1476) - lu(957) * lu(1475) + lu(1477) = lu(1477) - lu(958) * lu(1475) + lu(1478) = lu(1478) - lu(959) * lu(1475) + lu(1479) = lu(1479) - lu(960) * lu(1475) + lu(1480) = lu(1480) - lu(961) * lu(1475) + lu(1481) = lu(1481) - lu(962) * lu(1475) + lu(1482) = lu(1482) - lu(963) * lu(1475) + lu(1483) = lu(1483) - lu(964) * lu(1475) + lu(1484) = lu(1484) - lu(965) * lu(1475) + lu(1485) = lu(1485) - lu(966) * lu(1475) + lu(1486) = lu(1486) - lu(967) * lu(1475) + lu(1487) = lu(1487) - lu(968) * lu(1475) + lu(1488) = lu(1488) - lu(969) * lu(1475) + lu(1489) = lu(1489) - lu(970) * lu(1475) + lu(1490) = lu(1490) - lu(971) * lu(1475) + lu(1491) = lu(1491) - lu(972) * lu(1475) + lu(1492) = lu(1492) - lu(973) * lu(1475) + lu(1493) = lu(1493) - lu(974) * lu(1475) + lu(1494) = lu(1494) - lu(975) * lu(1475) + lu(1495) = lu(1495) - lu(976) * lu(1475) + lu(1496) = lu(1496) - lu(977) * lu(1475) + lu(1520) = lu(1520) - lu(957) * lu(1519) + lu(1521) = lu(1521) - lu(958) * lu(1519) + lu(1522) = lu(1522) - lu(959) * lu(1519) + lu(1523) = lu(1523) - lu(960) * lu(1519) + lu(1524) = lu(1524) - lu(961) * lu(1519) + lu(1525) = lu(1525) - lu(962) * lu(1519) + lu(1526) = lu(1526) - lu(963) * lu(1519) + lu(1527) = lu(1527) - lu(964) * lu(1519) + lu(1528) = lu(1528) - lu(965) * lu(1519) + lu(1529) = lu(1529) - lu(966) * lu(1519) + lu(1530) = lu(1530) - lu(967) * lu(1519) + lu(1531) = lu(1531) - lu(968) * lu(1519) + lu(1532) = lu(1532) - lu(969) * lu(1519) + lu(1533) = lu(1533) - lu(970) * lu(1519) + lu(1534) = lu(1534) - lu(971) * lu(1519) + lu(1535) = lu(1535) - lu(972) * lu(1519) + lu(1536) = lu(1536) - lu(973) * lu(1519) + lu(1537) = lu(1537) - lu(974) * lu(1519) + lu(1538) = lu(1538) - lu(975) * lu(1519) + lu(1539) = lu(1539) - lu(976) * lu(1519) + lu(1540) = lu(1540) - lu(977) * lu(1519) + lu(1562) = lu(1562) - lu(957) * lu(1561) + lu(1563) = lu(1563) - lu(958) * lu(1561) + lu(1564) = lu(1564) - lu(959) * lu(1561) + lu(1565) = lu(1565) - lu(960) * lu(1561) + lu(1566) = lu(1566) - lu(961) * lu(1561) + lu(1567) = lu(1567) - lu(962) * lu(1561) + lu(1568) = lu(1568) - lu(963) * lu(1561) + lu(1569) = lu(1569) - lu(964) * lu(1561) + lu(1570) = lu(1570) - lu(965) * lu(1561) + lu(1571) = lu(1571) - lu(966) * lu(1561) + lu(1572) = lu(1572) - lu(967) * lu(1561) + lu(1573) = lu(1573) - lu(968) * lu(1561) + lu(1574) = lu(1574) - lu(969) * lu(1561) + lu(1575) = lu(1575) - lu(970) * lu(1561) + lu(1576) = lu(1576) - lu(971) * lu(1561) + lu(1577) = lu(1577) - lu(972) * lu(1561) + lu(1578) = lu(1578) - lu(973) * lu(1561) + lu(1579) = lu(1579) - lu(974) * lu(1561) + lu(1580) = lu(1580) - lu(975) * lu(1561) + lu(1581) = lu(1581) - lu(976) * lu(1561) + lu(1582) = lu(1582) - lu(977) * lu(1561) + lu(1601) = lu(1601) - lu(957) * lu(1600) + lu(1602) = lu(1602) - lu(958) * lu(1600) + lu(1603) = lu(1603) - lu(959) * lu(1600) + lu(1604) = lu(1604) - lu(960) * lu(1600) + lu(1605) = lu(1605) - lu(961) * lu(1600) + lu(1606) = lu(1606) - lu(962) * lu(1600) + lu(1607) = lu(1607) - lu(963) * lu(1600) + lu(1608) = lu(1608) - lu(964) * lu(1600) + lu(1609) = lu(1609) - lu(965) * lu(1600) + lu(1610) = lu(1610) - lu(966) * lu(1600) + lu(1611) = lu(1611) - lu(967) * lu(1600) + lu(1612) = lu(1612) - lu(968) * lu(1600) + lu(1613) = lu(1613) - lu(969) * lu(1600) + lu(1614) = lu(1614) - lu(970) * lu(1600) + lu(1615) = lu(1615) - lu(971) * lu(1600) + lu(1616) = lu(1616) - lu(972) * lu(1600) + lu(1617) = lu(1617) - lu(973) * lu(1600) + lu(1618) = lu(1618) - lu(974) * lu(1600) + lu(1619) = lu(1619) - lu(975) * lu(1600) + lu(1620) = lu(1620) - lu(976) * lu(1600) + lu(1621) = lu(1621) - lu(977) * lu(1600) + lu(1633) = lu(1633) - lu(957) * lu(1632) + lu(1634) = lu(1634) - lu(958) * lu(1632) + lu(1635) = lu(1635) - lu(959) * lu(1632) + lu(1636) = lu(1636) - lu(960) * lu(1632) + lu(1637) = lu(1637) - lu(961) * lu(1632) + lu(1638) = lu(1638) - lu(962) * lu(1632) + lu(1639) = lu(1639) - lu(963) * lu(1632) + lu(1640) = lu(1640) - lu(964) * lu(1632) + lu(1641) = lu(1641) - lu(965) * lu(1632) + lu(1642) = lu(1642) - lu(966) * lu(1632) + lu(1643) = lu(1643) - lu(967) * lu(1632) + lu(1644) = lu(1644) - lu(968) * lu(1632) + lu(1645) = lu(1645) - lu(969) * lu(1632) + lu(1646) = lu(1646) - lu(970) * lu(1632) + lu(1647) = lu(1647) - lu(971) * lu(1632) + lu(1648) = lu(1648) - lu(972) * lu(1632) + lu(1649) = lu(1649) - lu(973) * lu(1632) + lu(1650) = lu(1650) - lu(974) * lu(1632) + lu(1651) = lu(1651) - lu(975) * lu(1632) + lu(1652) = lu(1652) - lu(976) * lu(1632) + lu(1653) = lu(1653) - lu(977) * lu(1632) + lu(1668) = lu(1668) - lu(957) * lu(1667) + lu(1669) = lu(1669) - lu(958) * lu(1667) + lu(1670) = lu(1670) - lu(959) * lu(1667) + lu(1671) = lu(1671) - lu(960) * lu(1667) + lu(1672) = lu(1672) - lu(961) * lu(1667) + lu(1673) = lu(1673) - lu(962) * lu(1667) + lu(1674) = lu(1674) - lu(963) * lu(1667) + lu(1675) = lu(1675) - lu(964) * lu(1667) + lu(1676) = lu(1676) - lu(965) * lu(1667) + lu(1677) = lu(1677) - lu(966) * lu(1667) + lu(1678) = lu(1678) - lu(967) * lu(1667) + lu(1679) = lu(1679) - lu(968) * lu(1667) + lu(1680) = lu(1680) - lu(969) * lu(1667) + lu(1681) = lu(1681) - lu(970) * lu(1667) + lu(1682) = lu(1682) - lu(971) * lu(1667) + lu(1683) = lu(1683) - lu(972) * lu(1667) + lu(1684) = lu(1684) - lu(973) * lu(1667) + lu(1685) = lu(1685) - lu(974) * lu(1667) + lu(1686) = lu(1686) - lu(975) * lu(1667) + lu(1687) = lu(1687) - lu(976) * lu(1667) + lu(1688) = lu(1688) - lu(977) * lu(1667) + lu(1710) = lu(1710) - lu(957) * lu(1709) + lu(1711) = lu(1711) - lu(958) * lu(1709) + lu(1712) = lu(1712) - lu(959) * lu(1709) + lu(1713) = lu(1713) - lu(960) * lu(1709) + lu(1714) = lu(1714) - lu(961) * lu(1709) + lu(1715) = lu(1715) - lu(962) * lu(1709) + lu(1716) = lu(1716) - lu(963) * lu(1709) + lu(1717) = lu(1717) - lu(964) * lu(1709) + lu(1718) = lu(1718) - lu(965) * lu(1709) + lu(1719) = lu(1719) - lu(966) * lu(1709) + lu(1720) = lu(1720) - lu(967) * lu(1709) + lu(1721) = lu(1721) - lu(968) * lu(1709) + lu(1722) = lu(1722) - lu(969) * lu(1709) + lu(1723) = lu(1723) - lu(970) * lu(1709) + lu(1724) = lu(1724) - lu(971) * lu(1709) + lu(1725) = lu(1725) - lu(972) * lu(1709) + lu(1726) = lu(1726) - lu(973) * lu(1709) + lu(1727) = lu(1727) - lu(974) * lu(1709) + lu(1728) = lu(1728) - lu(975) * lu(1709) + lu(1729) = lu(1729) - lu(976) * lu(1709) + lu(1730) = lu(1730) - lu(977) * lu(1709) + lu(1739) = lu(1739) - lu(957) * lu(1738) + lu(1740) = lu(1740) - lu(958) * lu(1738) + lu(1741) = lu(1741) - lu(959) * lu(1738) + lu(1742) = lu(1742) - lu(960) * lu(1738) + lu(1743) = lu(1743) - lu(961) * lu(1738) + lu(1744) = lu(1744) - lu(962) * lu(1738) + lu(1745) = lu(1745) - lu(963) * lu(1738) + lu(1746) = lu(1746) - lu(964) * lu(1738) + lu(1747) = lu(1747) - lu(965) * lu(1738) + lu(1748) = lu(1748) - lu(966) * lu(1738) + lu(1749) = lu(1749) - lu(967) * lu(1738) + lu(1750) = lu(1750) - lu(968) * lu(1738) + lu(1751) = lu(1751) - lu(969) * lu(1738) + lu(1752) = lu(1752) - lu(970) * lu(1738) + lu(1753) = lu(1753) - lu(971) * lu(1738) + lu(1754) = lu(1754) - lu(972) * lu(1738) + lu(1755) = lu(1755) - lu(973) * lu(1738) + lu(1756) = lu(1756) - lu(974) * lu(1738) + lu(1757) = lu(1757) - lu(975) * lu(1738) + lu(1758) = lu(1758) - lu(976) * lu(1738) + lu(1759) = lu(1759) - lu(977) * lu(1738) + lu(1778) = lu(1778) - lu(957) * lu(1777) + lu(1779) = lu(1779) - lu(958) * lu(1777) + lu(1780) = lu(1780) - lu(959) * lu(1777) + lu(1781) = lu(1781) - lu(960) * lu(1777) + lu(1782) = lu(1782) - lu(961) * lu(1777) + lu(1783) = lu(1783) - lu(962) * lu(1777) + lu(1784) = lu(1784) - lu(963) * lu(1777) + lu(1785) = lu(1785) - lu(964) * lu(1777) + lu(1786) = lu(1786) - lu(965) * lu(1777) + lu(1787) = lu(1787) - lu(966) * lu(1777) + lu(1788) = lu(1788) - lu(967) * lu(1777) + lu(1789) = lu(1789) - lu(968) * lu(1777) + lu(1790) = lu(1790) - lu(969) * lu(1777) + lu(1791) = lu(1791) - lu(970) * lu(1777) + lu(1792) = lu(1792) - lu(971) * lu(1777) + lu(1793) = lu(1793) - lu(972) * lu(1777) + lu(1794) = lu(1794) - lu(973) * lu(1777) + lu(1795) = lu(1795) - lu(974) * lu(1777) + lu(1796) = lu(1796) - lu(975) * lu(1777) + lu(1797) = lu(1797) - lu(976) * lu(1777) + lu(1798) = lu(1798) - lu(977) * lu(1777) + lu(1836) = lu(1836) - lu(957) * lu(1835) + lu(1837) = lu(1837) - lu(958) * lu(1835) + lu(1838) = lu(1838) - lu(959) * lu(1835) + lu(1839) = lu(1839) - lu(960) * lu(1835) + lu(1840) = lu(1840) - lu(961) * lu(1835) + lu(1841) = lu(1841) - lu(962) * lu(1835) + lu(1842) = lu(1842) - lu(963) * lu(1835) + lu(1843) = lu(1843) - lu(964) * lu(1835) + lu(1844) = lu(1844) - lu(965) * lu(1835) + lu(1845) = lu(1845) - lu(966) * lu(1835) + lu(1846) = lu(1846) - lu(967) * lu(1835) + lu(1847) = lu(1847) - lu(968) * lu(1835) + lu(1848) = lu(1848) - lu(969) * lu(1835) + lu(1849) = lu(1849) - lu(970) * lu(1835) + lu(1850) = lu(1850) - lu(971) * lu(1835) + lu(1851) = lu(1851) - lu(972) * lu(1835) + lu(1852) = lu(1852) - lu(973) * lu(1835) + lu(1853) = lu(1853) - lu(974) * lu(1835) + lu(1854) = lu(1854) - lu(975) * lu(1835) + lu(1855) = lu(1855) - lu(976) * lu(1835) + lu(1856) = lu(1856) - lu(977) * lu(1835) end subroutine lu_fac19 - subroutine lu_fac20( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac20( lu ) 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,990) = 1._r8 / lu(k,990) - lu(k,991) = lu(k,991) * lu(k,990) - lu(k,992) = lu(k,992) * lu(k,990) - lu(k,993) = lu(k,993) * lu(k,990) - lu(k,994) = lu(k,994) * lu(k,990) - lu(k,995) = lu(k,995) * lu(k,990) - lu(k,996) = lu(k,996) * lu(k,990) - lu(k,997) = lu(k,997) * lu(k,990) - lu(k,998) = lu(k,998) * lu(k,990) - lu(k,999) = lu(k,999) * lu(k,990) - lu(k,1000) = lu(k,1000) * lu(k,990) - lu(k,1001) = lu(k,1001) * lu(k,990) - lu(k,1002) = lu(k,1002) * lu(k,990) - lu(k,1003) = lu(k,1003) * lu(k,990) - lu(k,1004) = lu(k,1004) * lu(k,990) - lu(k,1005) = lu(k,1005) * lu(k,990) - lu(k,1006) = lu(k,1006) * lu(k,990) - lu(k,1007) = lu(k,1007) * lu(k,990) - lu(k,1008) = lu(k,1008) * lu(k,990) - lu(k,1009) = lu(k,1009) * lu(k,990) - lu(k,1010) = lu(k,1010) * lu(k,990) - lu(k,1033) = lu(k,1033) - lu(k,991) * lu(k,1032) - lu(k,1034) = lu(k,1034) - lu(k,992) * lu(k,1032) - lu(k,1035) = lu(k,1035) - lu(k,993) * lu(k,1032) - lu(k,1036) = lu(k,1036) - lu(k,994) * lu(k,1032) - lu(k,1037) = lu(k,1037) - lu(k,995) * lu(k,1032) - lu(k,1038) = lu(k,1038) - lu(k,996) * lu(k,1032) - lu(k,1039) = lu(k,1039) - lu(k,997) * lu(k,1032) - lu(k,1040) = lu(k,1040) - lu(k,998) * lu(k,1032) - lu(k,1041) = lu(k,1041) - lu(k,999) * lu(k,1032) - lu(k,1042) = lu(k,1042) - lu(k,1000) * lu(k,1032) - lu(k,1043) = lu(k,1043) - lu(k,1001) * lu(k,1032) - lu(k,1044) = lu(k,1044) - lu(k,1002) * lu(k,1032) - lu(k,1045) = lu(k,1045) - lu(k,1003) * lu(k,1032) - lu(k,1046) = lu(k,1046) - lu(k,1004) * lu(k,1032) - lu(k,1047) = lu(k,1047) - lu(k,1005) * lu(k,1032) - lu(k,1048) = lu(k,1048) - lu(k,1006) * lu(k,1032) - lu(k,1049) = lu(k,1049) - lu(k,1007) * lu(k,1032) - lu(k,1050) = lu(k,1050) - lu(k,1008) * lu(k,1032) - lu(k,1051) = lu(k,1051) - lu(k,1009) * lu(k,1032) - lu(k,1052) = lu(k,1052) - lu(k,1010) * lu(k,1032) - lu(k,1074) = lu(k,1074) - lu(k,991) * lu(k,1073) - lu(k,1075) = lu(k,1075) - lu(k,992) * lu(k,1073) - lu(k,1076) = lu(k,1076) - lu(k,993) * lu(k,1073) - lu(k,1077) = lu(k,1077) - lu(k,994) * lu(k,1073) - lu(k,1078) = lu(k,1078) - lu(k,995) * lu(k,1073) - lu(k,1079) = lu(k,1079) - lu(k,996) * lu(k,1073) - lu(k,1080) = lu(k,1080) - lu(k,997) * lu(k,1073) - lu(k,1081) = lu(k,1081) - lu(k,998) * lu(k,1073) - lu(k,1082) = lu(k,1082) - lu(k,999) * lu(k,1073) - lu(k,1083) = lu(k,1083) - lu(k,1000) * lu(k,1073) - lu(k,1084) = lu(k,1084) - lu(k,1001) * lu(k,1073) - lu(k,1085) = lu(k,1085) - lu(k,1002) * lu(k,1073) - lu(k,1086) = lu(k,1086) - lu(k,1003) * lu(k,1073) - lu(k,1087) = lu(k,1087) - lu(k,1004) * lu(k,1073) - lu(k,1088) = lu(k,1088) - lu(k,1005) * lu(k,1073) - lu(k,1089) = lu(k,1089) - lu(k,1006) * lu(k,1073) - lu(k,1090) = lu(k,1090) - lu(k,1007) * lu(k,1073) - lu(k,1091) = lu(k,1091) - lu(k,1008) * lu(k,1073) - lu(k,1092) = lu(k,1092) - lu(k,1009) * lu(k,1073) - lu(k,1093) = lu(k,1093) - lu(k,1010) * lu(k,1073) - lu(k,1113) = lu(k,1113) - lu(k,991) * lu(k,1112) - lu(k,1114) = lu(k,1114) - lu(k,992) * lu(k,1112) - lu(k,1115) = lu(k,1115) - lu(k,993) * lu(k,1112) - lu(k,1116) = lu(k,1116) - lu(k,994) * lu(k,1112) - lu(k,1117) = lu(k,1117) - lu(k,995) * lu(k,1112) - lu(k,1118) = lu(k,1118) - lu(k,996) * lu(k,1112) - lu(k,1119) = lu(k,1119) - lu(k,997) * lu(k,1112) - lu(k,1120) = lu(k,1120) - lu(k,998) * lu(k,1112) - lu(k,1121) = lu(k,1121) - lu(k,999) * lu(k,1112) - lu(k,1122) = lu(k,1122) - lu(k,1000) * lu(k,1112) - lu(k,1123) = lu(k,1123) - lu(k,1001) * lu(k,1112) - lu(k,1124) = lu(k,1124) - lu(k,1002) * lu(k,1112) - lu(k,1125) = lu(k,1125) - lu(k,1003) * lu(k,1112) - lu(k,1126) = lu(k,1126) - lu(k,1004) * lu(k,1112) - lu(k,1127) = lu(k,1127) - lu(k,1005) * lu(k,1112) - lu(k,1128) = lu(k,1128) - lu(k,1006) * lu(k,1112) - lu(k,1129) = lu(k,1129) - lu(k,1007) * lu(k,1112) - lu(k,1130) = lu(k,1130) - lu(k,1008) * lu(k,1112) - lu(k,1131) = lu(k,1131) - lu(k,1009) * lu(k,1112) - lu(k,1132) = lu(k,1132) - lu(k,1010) * lu(k,1112) - lu(k,1157) = lu(k,1157) - lu(k,991) * lu(k,1156) - lu(k,1158) = lu(k,1158) - lu(k,992) * lu(k,1156) - lu(k,1159) = lu(k,1159) - lu(k,993) * lu(k,1156) - lu(k,1160) = lu(k,1160) - lu(k,994) * lu(k,1156) - lu(k,1161) = lu(k,1161) - lu(k,995) * lu(k,1156) - lu(k,1162) = lu(k,1162) - lu(k,996) * lu(k,1156) - lu(k,1163) = lu(k,1163) - lu(k,997) * lu(k,1156) - lu(k,1164) = lu(k,1164) - lu(k,998) * lu(k,1156) - lu(k,1165) = lu(k,1165) - lu(k,999) * lu(k,1156) - lu(k,1166) = lu(k,1166) - lu(k,1000) * lu(k,1156) - lu(k,1167) = lu(k,1167) - lu(k,1001) * lu(k,1156) - lu(k,1168) = lu(k,1168) - lu(k,1002) * lu(k,1156) - lu(k,1169) = lu(k,1169) - lu(k,1003) * lu(k,1156) - lu(k,1170) = lu(k,1170) - lu(k,1004) * lu(k,1156) - lu(k,1171) = lu(k,1171) - lu(k,1005) * lu(k,1156) - lu(k,1172) = lu(k,1172) - lu(k,1006) * lu(k,1156) - lu(k,1173) = lu(k,1173) - lu(k,1007) * lu(k,1156) - lu(k,1174) = lu(k,1174) - lu(k,1008) * lu(k,1156) - lu(k,1175) = lu(k,1175) - lu(k,1009) * lu(k,1156) - lu(k,1176) = lu(k,1176) - lu(k,1010) * lu(k,1156) - lu(k,1198) = lu(k,1198) - lu(k,991) * lu(k,1197) - lu(k,1199) = lu(k,1199) - lu(k,992) * lu(k,1197) - lu(k,1200) = lu(k,1200) - lu(k,993) * lu(k,1197) - lu(k,1201) = lu(k,1201) - lu(k,994) * lu(k,1197) - lu(k,1202) = lu(k,1202) - lu(k,995) * lu(k,1197) - lu(k,1203) = lu(k,1203) - lu(k,996) * lu(k,1197) - lu(k,1204) = lu(k,1204) - lu(k,997) * lu(k,1197) - lu(k,1205) = lu(k,1205) - lu(k,998) * lu(k,1197) - lu(k,1206) = lu(k,1206) - lu(k,999) * lu(k,1197) - lu(k,1207) = lu(k,1207) - lu(k,1000) * lu(k,1197) - lu(k,1208) = lu(k,1208) - lu(k,1001) * lu(k,1197) - lu(k,1209) = lu(k,1209) - lu(k,1002) * lu(k,1197) - lu(k,1210) = lu(k,1210) - lu(k,1003) * lu(k,1197) - lu(k,1211) = lu(k,1211) - lu(k,1004) * lu(k,1197) - lu(k,1212) = lu(k,1212) - lu(k,1005) * lu(k,1197) - lu(k,1213) = lu(k,1213) - lu(k,1006) * lu(k,1197) - lu(k,1214) = lu(k,1214) - lu(k,1007) * lu(k,1197) - lu(k,1215) = lu(k,1215) - lu(k,1008) * lu(k,1197) - lu(k,1216) = lu(k,1216) - lu(k,1009) * lu(k,1197) - lu(k,1217) = lu(k,1217) - lu(k,1010) * lu(k,1197) - lu(k,1247) = lu(k,1247) - lu(k,991) * lu(k,1246) - lu(k,1248) = lu(k,1248) - lu(k,992) * lu(k,1246) - lu(k,1249) = lu(k,1249) - lu(k,993) * lu(k,1246) - lu(k,1250) = lu(k,1250) - lu(k,994) * lu(k,1246) - lu(k,1251) = lu(k,1251) - lu(k,995) * lu(k,1246) - lu(k,1252) = lu(k,1252) - lu(k,996) * lu(k,1246) - lu(k,1253) = lu(k,1253) - lu(k,997) * lu(k,1246) - lu(k,1254) = lu(k,1254) - lu(k,998) * lu(k,1246) - lu(k,1255) = lu(k,1255) - lu(k,999) * lu(k,1246) - lu(k,1256) = lu(k,1256) - lu(k,1000) * lu(k,1246) - lu(k,1257) = lu(k,1257) - lu(k,1001) * lu(k,1246) - lu(k,1258) = lu(k,1258) - lu(k,1002) * lu(k,1246) - lu(k,1259) = lu(k,1259) - lu(k,1003) * lu(k,1246) - lu(k,1260) = lu(k,1260) - lu(k,1004) * lu(k,1246) - lu(k,1261) = lu(k,1261) - lu(k,1005) * lu(k,1246) - lu(k,1262) = lu(k,1262) - lu(k,1006) * lu(k,1246) - lu(k,1263) = lu(k,1263) - lu(k,1007) * lu(k,1246) - lu(k,1264) = lu(k,1264) - lu(k,1008) * lu(k,1246) - lu(k,1265) = lu(k,1265) - lu(k,1009) * lu(k,1246) - lu(k,1266) = lu(k,1266) - lu(k,1010) * lu(k,1246) - lu(k,1286) = lu(k,1286) - lu(k,991) * lu(k,1285) - lu(k,1287) = lu(k,1287) - lu(k,992) * lu(k,1285) - lu(k,1288) = lu(k,1288) - lu(k,993) * lu(k,1285) - lu(k,1289) = lu(k,1289) - lu(k,994) * lu(k,1285) - lu(k,1290) = lu(k,1290) - lu(k,995) * lu(k,1285) - lu(k,1291) = lu(k,1291) - lu(k,996) * lu(k,1285) - lu(k,1292) = lu(k,1292) - lu(k,997) * lu(k,1285) - lu(k,1293) = lu(k,1293) - lu(k,998) * lu(k,1285) - lu(k,1294) = lu(k,1294) - lu(k,999) * lu(k,1285) - lu(k,1295) = lu(k,1295) - lu(k,1000) * lu(k,1285) - lu(k,1296) = lu(k,1296) - lu(k,1001) * lu(k,1285) - lu(k,1297) = lu(k,1297) - lu(k,1002) * lu(k,1285) - lu(k,1298) = lu(k,1298) - lu(k,1003) * lu(k,1285) - lu(k,1299) = lu(k,1299) - lu(k,1004) * lu(k,1285) - lu(k,1300) = lu(k,1300) - lu(k,1005) * lu(k,1285) - lu(k,1301) = lu(k,1301) - lu(k,1006) * lu(k,1285) - lu(k,1302) = lu(k,1302) - lu(k,1007) * lu(k,1285) - lu(k,1303) = lu(k,1303) - lu(k,1008) * lu(k,1285) - lu(k,1304) = lu(k,1304) - lu(k,1009) * lu(k,1285) - lu(k,1305) = lu(k,1305) - lu(k,1010) * lu(k,1285) - lu(k,1321) = lu(k,1321) - lu(k,991) * lu(k,1320) - lu(k,1322) = lu(k,1322) - lu(k,992) * lu(k,1320) - lu(k,1323) = lu(k,1323) - lu(k,993) * lu(k,1320) - lu(k,1324) = lu(k,1324) - lu(k,994) * lu(k,1320) - lu(k,1325) = lu(k,1325) - lu(k,995) * lu(k,1320) - lu(k,1326) = lu(k,1326) - lu(k,996) * lu(k,1320) - lu(k,1327) = lu(k,1327) - lu(k,997) * lu(k,1320) - lu(k,1328) = lu(k,1328) - lu(k,998) * lu(k,1320) - lu(k,1329) = lu(k,1329) - lu(k,999) * lu(k,1320) - lu(k,1330) = lu(k,1330) - lu(k,1000) * lu(k,1320) - lu(k,1331) = lu(k,1331) - lu(k,1001) * lu(k,1320) - lu(k,1332) = lu(k,1332) - lu(k,1002) * lu(k,1320) - lu(k,1333) = lu(k,1333) - lu(k,1003) * lu(k,1320) - lu(k,1334) = lu(k,1334) - lu(k,1004) * lu(k,1320) - lu(k,1335) = lu(k,1335) - lu(k,1005) * lu(k,1320) - lu(k,1336) = lu(k,1336) - lu(k,1006) * lu(k,1320) - lu(k,1337) = lu(k,1337) - lu(k,1007) * lu(k,1320) - lu(k,1338) = lu(k,1338) - lu(k,1008) * lu(k,1320) - lu(k,1339) = lu(k,1339) - lu(k,1009) * lu(k,1320) - lu(k,1340) = lu(k,1340) - lu(k,1010) * lu(k,1320) - lu(k,1365) = lu(k,1365) - lu(k,991) * lu(k,1364) - lu(k,1366) = lu(k,1366) - lu(k,992) * lu(k,1364) - lu(k,1367) = lu(k,1367) - lu(k,993) * lu(k,1364) - lu(k,1368) = lu(k,1368) - lu(k,994) * lu(k,1364) - lu(k,1369) = lu(k,1369) - lu(k,995) * lu(k,1364) - lu(k,1370) = lu(k,1370) - lu(k,996) * lu(k,1364) - lu(k,1371) = lu(k,1371) - lu(k,997) * lu(k,1364) - lu(k,1372) = lu(k,1372) - lu(k,998) * lu(k,1364) - lu(k,1373) = lu(k,1373) - lu(k,999) * lu(k,1364) - lu(k,1374) = lu(k,1374) - lu(k,1000) * lu(k,1364) - lu(k,1375) = lu(k,1375) - lu(k,1001) * lu(k,1364) - lu(k,1376) = lu(k,1376) - lu(k,1002) * lu(k,1364) - lu(k,1377) = lu(k,1377) - lu(k,1003) * lu(k,1364) - lu(k,1378) = lu(k,1378) - lu(k,1004) * lu(k,1364) - lu(k,1379) = lu(k,1379) - lu(k,1005) * lu(k,1364) - lu(k,1380) = lu(k,1380) - lu(k,1006) * lu(k,1364) - lu(k,1381) = lu(k,1381) - lu(k,1007) * lu(k,1364) - lu(k,1382) = lu(k,1382) - lu(k,1008) * lu(k,1364) - lu(k,1383) = lu(k,1383) - lu(k,1009) * lu(k,1364) - lu(k,1384) = lu(k,1384) - lu(k,1010) * lu(k,1364) - lu(k,1424) = lu(k,1424) - lu(k,991) * lu(k,1423) - lu(k,1425) = lu(k,1425) - lu(k,992) * lu(k,1423) - lu(k,1426) = lu(k,1426) - lu(k,993) * lu(k,1423) - lu(k,1427) = lu(k,1427) - lu(k,994) * lu(k,1423) - lu(k,1428) = lu(k,1428) - lu(k,995) * lu(k,1423) - lu(k,1429) = lu(k,1429) - lu(k,996) * lu(k,1423) - lu(k,1430) = lu(k,1430) - lu(k,997) * lu(k,1423) - lu(k,1431) = lu(k,1431) - lu(k,998) * lu(k,1423) - lu(k,1432) = lu(k,1432) - lu(k,999) * lu(k,1423) - lu(k,1433) = lu(k,1433) - lu(k,1000) * lu(k,1423) - lu(k,1434) = lu(k,1434) - lu(k,1001) * lu(k,1423) - lu(k,1435) = lu(k,1435) - lu(k,1002) * lu(k,1423) - lu(k,1436) = lu(k,1436) - lu(k,1003) * lu(k,1423) - lu(k,1437) = lu(k,1437) - lu(k,1004) * lu(k,1423) - lu(k,1438) = lu(k,1438) - lu(k,1005) * lu(k,1423) - lu(k,1439) = lu(k,1439) - lu(k,1006) * lu(k,1423) - lu(k,1440) = lu(k,1440) - lu(k,1007) * lu(k,1423) - lu(k,1441) = lu(k,1441) - lu(k,1008) * lu(k,1423) - lu(k,1442) = lu(k,1442) - lu(k,1009) * lu(k,1423) - lu(k,1443) = lu(k,1443) - lu(k,1010) * lu(k,1423) - lu(k,1466) = lu(k,1466) - lu(k,991) * lu(k,1465) - lu(k,1467) = lu(k,1467) - lu(k,992) * lu(k,1465) - lu(k,1468) = lu(k,1468) - lu(k,993) * lu(k,1465) - lu(k,1469) = lu(k,1469) - lu(k,994) * lu(k,1465) - lu(k,1470) = lu(k,1470) - lu(k,995) * lu(k,1465) - lu(k,1471) = lu(k,1471) - lu(k,996) * lu(k,1465) - lu(k,1472) = lu(k,1472) - lu(k,997) * lu(k,1465) - lu(k,1473) = lu(k,1473) - lu(k,998) * lu(k,1465) - lu(k,1474) = lu(k,1474) - lu(k,999) * lu(k,1465) - lu(k,1475) = lu(k,1475) - lu(k,1000) * lu(k,1465) - lu(k,1476) = lu(k,1476) - lu(k,1001) * lu(k,1465) - lu(k,1477) = lu(k,1477) - lu(k,1002) * lu(k,1465) - lu(k,1478) = lu(k,1478) - lu(k,1003) * lu(k,1465) - lu(k,1479) = lu(k,1479) - lu(k,1004) * lu(k,1465) - lu(k,1480) = lu(k,1480) - lu(k,1005) * lu(k,1465) - lu(k,1481) = lu(k,1481) - lu(k,1006) * lu(k,1465) - lu(k,1482) = lu(k,1482) - lu(k,1007) * lu(k,1465) - lu(k,1483) = lu(k,1483) - lu(k,1008) * lu(k,1465) - lu(k,1484) = lu(k,1484) - lu(k,1009) * lu(k,1465) - lu(k,1485) = lu(k,1485) - lu(k,1010) * lu(k,1465) - lu(k,1507) = lu(k,1507) - lu(k,991) * lu(k,1506) - lu(k,1508) = lu(k,1508) - lu(k,992) * lu(k,1506) - lu(k,1509) = lu(k,1509) - lu(k,993) * lu(k,1506) - lu(k,1510) = lu(k,1510) - lu(k,994) * lu(k,1506) - lu(k,1511) = lu(k,1511) - lu(k,995) * lu(k,1506) - lu(k,1512) = lu(k,1512) - lu(k,996) * lu(k,1506) - lu(k,1513) = lu(k,1513) - lu(k,997) * lu(k,1506) - lu(k,1514) = lu(k,1514) - lu(k,998) * lu(k,1506) - lu(k,1515) = lu(k,1515) - lu(k,999) * lu(k,1506) - lu(k,1516) = lu(k,1516) - lu(k,1000) * lu(k,1506) - lu(k,1517) = lu(k,1517) - lu(k,1001) * lu(k,1506) - lu(k,1518) = lu(k,1518) - lu(k,1002) * lu(k,1506) - lu(k,1519) = lu(k,1519) - lu(k,1003) * lu(k,1506) - lu(k,1520) = lu(k,1520) - lu(k,1004) * lu(k,1506) - lu(k,1521) = lu(k,1521) - lu(k,1005) * lu(k,1506) - lu(k,1522) = lu(k,1522) - lu(k,1006) * lu(k,1506) - lu(k,1523) = lu(k,1523) - lu(k,1007) * lu(k,1506) - lu(k,1524) = lu(k,1524) - lu(k,1008) * lu(k,1506) - lu(k,1525) = lu(k,1525) - lu(k,1009) * lu(k,1506) - lu(k,1526) = lu(k,1526) - lu(k,1010) * lu(k,1506) - lu(k,1549) = lu(k,1549) - lu(k,991) * lu(k,1548) - lu(k,1550) = lu(k,1550) - lu(k,992) * lu(k,1548) - lu(k,1551) = lu(k,1551) - lu(k,993) * lu(k,1548) - lu(k,1552) = lu(k,1552) - lu(k,994) * lu(k,1548) - lu(k,1553) = lu(k,1553) - lu(k,995) * lu(k,1548) - lu(k,1554) = lu(k,1554) - lu(k,996) * lu(k,1548) - lu(k,1555) = lu(k,1555) - lu(k,997) * lu(k,1548) - lu(k,1556) = lu(k,1556) - lu(k,998) * lu(k,1548) - lu(k,1557) = lu(k,1557) - lu(k,999) * lu(k,1548) - lu(k,1558) = lu(k,1558) - lu(k,1000) * lu(k,1548) - lu(k,1559) = lu(k,1559) - lu(k,1001) * lu(k,1548) - lu(k,1560) = lu(k,1560) - lu(k,1002) * lu(k,1548) - lu(k,1561) = lu(k,1561) - lu(k,1003) * lu(k,1548) - lu(k,1562) = lu(k,1562) - lu(k,1004) * lu(k,1548) - lu(k,1563) = lu(k,1563) - lu(k,1005) * lu(k,1548) - lu(k,1564) = lu(k,1564) - lu(k,1006) * lu(k,1548) - lu(k,1565) = lu(k,1565) - lu(k,1007) * lu(k,1548) - lu(k,1566) = lu(k,1566) - lu(k,1008) * lu(k,1548) - lu(k,1567) = lu(k,1567) - lu(k,1009) * lu(k,1548) - lu(k,1568) = lu(k,1568) - lu(k,1010) * lu(k,1548) - lu(k,1591) = lu(k,1591) - lu(k,991) * lu(k,1590) - lu(k,1592) = lu(k,1592) - lu(k,992) * lu(k,1590) - lu(k,1593) = lu(k,1593) - lu(k,993) * lu(k,1590) - lu(k,1594) = lu(k,1594) - lu(k,994) * lu(k,1590) - lu(k,1595) = lu(k,1595) - lu(k,995) * lu(k,1590) - lu(k,1596) = lu(k,1596) - lu(k,996) * lu(k,1590) - lu(k,1597) = lu(k,1597) - lu(k,997) * lu(k,1590) - lu(k,1598) = lu(k,1598) - lu(k,998) * lu(k,1590) - lu(k,1599) = lu(k,1599) - lu(k,999) * lu(k,1590) - lu(k,1600) = lu(k,1600) - lu(k,1000) * lu(k,1590) - lu(k,1601) = lu(k,1601) - lu(k,1001) * lu(k,1590) - lu(k,1602) = lu(k,1602) - lu(k,1002) * lu(k,1590) - lu(k,1603) = lu(k,1603) - lu(k,1003) * lu(k,1590) - lu(k,1604) = lu(k,1604) - lu(k,1004) * lu(k,1590) - lu(k,1605) = lu(k,1605) - lu(k,1005) * lu(k,1590) - lu(k,1606) = lu(k,1606) - lu(k,1006) * lu(k,1590) - lu(k,1607) = lu(k,1607) - lu(k,1007) * lu(k,1590) - lu(k,1608) = lu(k,1608) - lu(k,1008) * lu(k,1590) - lu(k,1609) = lu(k,1609) - lu(k,1009) * lu(k,1590) - lu(k,1610) = lu(k,1610) - lu(k,1010) * lu(k,1590) - lu(k,1623) = lu(k,1623) - lu(k,991) * lu(k,1622) - lu(k,1624) = lu(k,1624) - lu(k,992) * lu(k,1622) - lu(k,1625) = lu(k,1625) - lu(k,993) * lu(k,1622) - lu(k,1626) = lu(k,1626) - lu(k,994) * lu(k,1622) - lu(k,1627) = lu(k,1627) - lu(k,995) * lu(k,1622) - lu(k,1628) = lu(k,1628) - lu(k,996) * lu(k,1622) - lu(k,1629) = lu(k,1629) - lu(k,997) * lu(k,1622) - lu(k,1630) = lu(k,1630) - lu(k,998) * lu(k,1622) - lu(k,1631) = lu(k,1631) - lu(k,999) * lu(k,1622) - lu(k,1632) = lu(k,1632) - lu(k,1000) * lu(k,1622) - lu(k,1633) = lu(k,1633) - lu(k,1001) * lu(k,1622) - lu(k,1634) = lu(k,1634) - lu(k,1002) * lu(k,1622) - lu(k,1635) = lu(k,1635) - lu(k,1003) * lu(k,1622) - lu(k,1636) = lu(k,1636) - lu(k,1004) * lu(k,1622) - lu(k,1637) = lu(k,1637) - lu(k,1005) * lu(k,1622) - lu(k,1638) = lu(k,1638) - lu(k,1006) * lu(k,1622) - lu(k,1639) = lu(k,1639) - lu(k,1007) * lu(k,1622) - lu(k,1640) = lu(k,1640) - lu(k,1008) * lu(k,1622) - lu(k,1641) = lu(k,1641) - lu(k,1009) * lu(k,1622) - lu(k,1642) = lu(k,1642) - lu(k,1010) * lu(k,1622) - lu(k,1658) = lu(k,1658) - lu(k,991) * lu(k,1657) - lu(k,1659) = lu(k,1659) - lu(k,992) * lu(k,1657) - lu(k,1660) = lu(k,1660) - lu(k,993) * lu(k,1657) - lu(k,1661) = lu(k,1661) - lu(k,994) * lu(k,1657) - lu(k,1662) = lu(k,1662) - lu(k,995) * lu(k,1657) - lu(k,1663) = lu(k,1663) - lu(k,996) * lu(k,1657) - lu(k,1664) = lu(k,1664) - lu(k,997) * lu(k,1657) - lu(k,1665) = lu(k,1665) - lu(k,998) * lu(k,1657) - lu(k,1666) = lu(k,1666) - lu(k,999) * lu(k,1657) - lu(k,1667) = lu(k,1667) - lu(k,1000) * lu(k,1657) - lu(k,1668) = lu(k,1668) - lu(k,1001) * lu(k,1657) - lu(k,1669) = lu(k,1669) - lu(k,1002) * lu(k,1657) - lu(k,1670) = lu(k,1670) - lu(k,1003) * lu(k,1657) - lu(k,1671) = lu(k,1671) - lu(k,1004) * lu(k,1657) - lu(k,1672) = lu(k,1672) - lu(k,1005) * lu(k,1657) - lu(k,1673) = lu(k,1673) - lu(k,1006) * lu(k,1657) - lu(k,1674) = lu(k,1674) - lu(k,1007) * lu(k,1657) - lu(k,1675) = lu(k,1675) - lu(k,1008) * lu(k,1657) - lu(k,1676) = lu(k,1676) - lu(k,1009) * lu(k,1657) - lu(k,1677) = lu(k,1677) - lu(k,1010) * lu(k,1657) - lu(k,1700) = lu(k,1700) - lu(k,991) * lu(k,1699) - lu(k,1701) = lu(k,1701) - lu(k,992) * lu(k,1699) - lu(k,1702) = lu(k,1702) - lu(k,993) * lu(k,1699) - lu(k,1703) = lu(k,1703) - lu(k,994) * lu(k,1699) - lu(k,1704) = lu(k,1704) - lu(k,995) * lu(k,1699) - lu(k,1705) = lu(k,1705) - lu(k,996) * lu(k,1699) - lu(k,1706) = lu(k,1706) - lu(k,997) * lu(k,1699) - lu(k,1707) = lu(k,1707) - lu(k,998) * lu(k,1699) - lu(k,1708) = lu(k,1708) - lu(k,999) * lu(k,1699) - lu(k,1709) = lu(k,1709) - lu(k,1000) * lu(k,1699) - lu(k,1710) = lu(k,1710) - lu(k,1001) * lu(k,1699) - lu(k,1711) = lu(k,1711) - lu(k,1002) * lu(k,1699) - lu(k,1712) = lu(k,1712) - lu(k,1003) * lu(k,1699) - lu(k,1713) = lu(k,1713) - lu(k,1004) * lu(k,1699) - lu(k,1714) = lu(k,1714) - lu(k,1005) * lu(k,1699) - lu(k,1715) = lu(k,1715) - lu(k,1006) * lu(k,1699) - lu(k,1716) = lu(k,1716) - lu(k,1007) * lu(k,1699) - lu(k,1717) = lu(k,1717) - lu(k,1008) * lu(k,1699) - lu(k,1718) = lu(k,1718) - lu(k,1009) * lu(k,1699) - lu(k,1719) = lu(k,1719) - lu(k,1010) * lu(k,1699) - lu(k,1744) = lu(k,1744) - lu(k,991) * lu(k,1743) - lu(k,1745) = lu(k,1745) - lu(k,992) * lu(k,1743) - lu(k,1746) = lu(k,1746) - lu(k,993) * lu(k,1743) - lu(k,1747) = lu(k,1747) - lu(k,994) * lu(k,1743) - lu(k,1748) = lu(k,1748) - lu(k,995) * lu(k,1743) - lu(k,1749) = lu(k,1749) - lu(k,996) * lu(k,1743) - lu(k,1750) = lu(k,1750) - lu(k,997) * lu(k,1743) - lu(k,1751) = lu(k,1751) - lu(k,998) * lu(k,1743) - lu(k,1752) = lu(k,1752) - lu(k,999) * lu(k,1743) - lu(k,1753) = lu(k,1753) - lu(k,1000) * lu(k,1743) - lu(k,1754) = lu(k,1754) - lu(k,1001) * lu(k,1743) - lu(k,1755) = lu(k,1755) - lu(k,1002) * lu(k,1743) - lu(k,1756) = lu(k,1756) - lu(k,1003) * lu(k,1743) - lu(k,1757) = lu(k,1757) - lu(k,1004) * lu(k,1743) - lu(k,1758) = lu(k,1758) - lu(k,1005) * lu(k,1743) - lu(k,1759) = lu(k,1759) - lu(k,1006) * lu(k,1743) - lu(k,1760) = lu(k,1760) - lu(k,1007) * lu(k,1743) - lu(k,1761) = lu(k,1761) - lu(k,1008) * lu(k,1743) - lu(k,1762) = lu(k,1762) - lu(k,1009) * lu(k,1743) - lu(k,1763) = lu(k,1763) - lu(k,1010) * lu(k,1743) - lu(k,1779) = lu(k,1779) - lu(k,991) * lu(k,1778) - lu(k,1780) = lu(k,1780) - lu(k,992) * lu(k,1778) - lu(k,1781) = lu(k,1781) - lu(k,993) * lu(k,1778) - lu(k,1782) = lu(k,1782) - lu(k,994) * lu(k,1778) - lu(k,1783) = lu(k,1783) - lu(k,995) * lu(k,1778) - lu(k,1784) = lu(k,1784) - lu(k,996) * lu(k,1778) - lu(k,1785) = lu(k,1785) - lu(k,997) * lu(k,1778) - lu(k,1786) = lu(k,1786) - lu(k,998) * lu(k,1778) - lu(k,1787) = lu(k,1787) - lu(k,999) * lu(k,1778) - lu(k,1788) = lu(k,1788) - lu(k,1000) * lu(k,1778) - lu(k,1789) = lu(k,1789) - lu(k,1001) * lu(k,1778) - lu(k,1790) = lu(k,1790) - lu(k,1002) * lu(k,1778) - lu(k,1791) = lu(k,1791) - lu(k,1003) * lu(k,1778) - lu(k,1792) = lu(k,1792) - lu(k,1004) * lu(k,1778) - lu(k,1793) = lu(k,1793) - lu(k,1005) * lu(k,1778) - lu(k,1794) = lu(k,1794) - lu(k,1006) * lu(k,1778) - lu(k,1795) = lu(k,1795) - lu(k,1007) * lu(k,1778) - lu(k,1796) = lu(k,1796) - lu(k,1008) * lu(k,1778) - lu(k,1797) = lu(k,1797) - lu(k,1009) * lu(k,1778) - lu(k,1798) = lu(k,1798) - lu(k,1010) * lu(k,1778) - lu(k,1837) = lu(k,1837) - lu(k,991) * lu(k,1836) - lu(k,1838) = lu(k,1838) - lu(k,992) * lu(k,1836) - lu(k,1839) = lu(k,1839) - lu(k,993) * lu(k,1836) - lu(k,1840) = lu(k,1840) - lu(k,994) * lu(k,1836) - lu(k,1841) = lu(k,1841) - lu(k,995) * lu(k,1836) - lu(k,1842) = lu(k,1842) - lu(k,996) * lu(k,1836) - lu(k,1843) = lu(k,1843) - lu(k,997) * lu(k,1836) - lu(k,1844) = lu(k,1844) - lu(k,998) * lu(k,1836) - lu(k,1845) = lu(k,1845) - lu(k,999) * lu(k,1836) - lu(k,1846) = lu(k,1846) - lu(k,1000) * lu(k,1836) - lu(k,1847) = lu(k,1847) - lu(k,1001) * lu(k,1836) - lu(k,1848) = lu(k,1848) - lu(k,1002) * lu(k,1836) - lu(k,1849) = lu(k,1849) - lu(k,1003) * lu(k,1836) - lu(k,1850) = lu(k,1850) - lu(k,1004) * lu(k,1836) - lu(k,1851) = lu(k,1851) - lu(k,1005) * lu(k,1836) - lu(k,1852) = lu(k,1852) - lu(k,1006) * lu(k,1836) - lu(k,1853) = lu(k,1853) - lu(k,1007) * lu(k,1836) - lu(k,1854) = lu(k,1854) - lu(k,1008) * lu(k,1836) - lu(k,1855) = lu(k,1855) - lu(k,1009) * lu(k,1836) - lu(k,1856) = lu(k,1856) - lu(k,1010) * lu(k,1836) - lu(k,1033) = 1._r8 / lu(k,1033) - lu(k,1034) = lu(k,1034) * lu(k,1033) - lu(k,1035) = lu(k,1035) * lu(k,1033) - lu(k,1036) = lu(k,1036) * lu(k,1033) - lu(k,1037) = lu(k,1037) * lu(k,1033) - lu(k,1038) = lu(k,1038) * lu(k,1033) - lu(k,1039) = lu(k,1039) * lu(k,1033) - lu(k,1040) = lu(k,1040) * lu(k,1033) - lu(k,1041) = lu(k,1041) * lu(k,1033) - lu(k,1042) = lu(k,1042) * lu(k,1033) - lu(k,1043) = lu(k,1043) * lu(k,1033) - lu(k,1044) = lu(k,1044) * lu(k,1033) - lu(k,1045) = lu(k,1045) * lu(k,1033) - lu(k,1046) = lu(k,1046) * lu(k,1033) - lu(k,1047) = lu(k,1047) * lu(k,1033) - lu(k,1048) = lu(k,1048) * lu(k,1033) - lu(k,1049) = lu(k,1049) * lu(k,1033) - lu(k,1050) = lu(k,1050) * lu(k,1033) - lu(k,1051) = lu(k,1051) * lu(k,1033) - lu(k,1052) = lu(k,1052) * lu(k,1033) - lu(k,1075) = lu(k,1075) - lu(k,1034) * lu(k,1074) - lu(k,1076) = lu(k,1076) - lu(k,1035) * lu(k,1074) - lu(k,1077) = lu(k,1077) - lu(k,1036) * lu(k,1074) - lu(k,1078) = lu(k,1078) - lu(k,1037) * lu(k,1074) - lu(k,1079) = lu(k,1079) - lu(k,1038) * lu(k,1074) - lu(k,1080) = lu(k,1080) - lu(k,1039) * lu(k,1074) - lu(k,1081) = lu(k,1081) - lu(k,1040) * lu(k,1074) - lu(k,1082) = lu(k,1082) - lu(k,1041) * lu(k,1074) - lu(k,1083) = lu(k,1083) - lu(k,1042) * lu(k,1074) - lu(k,1084) = lu(k,1084) - lu(k,1043) * lu(k,1074) - lu(k,1085) = lu(k,1085) - lu(k,1044) * lu(k,1074) - lu(k,1086) = lu(k,1086) - lu(k,1045) * lu(k,1074) - lu(k,1087) = lu(k,1087) - lu(k,1046) * lu(k,1074) - lu(k,1088) = lu(k,1088) - lu(k,1047) * lu(k,1074) - lu(k,1089) = lu(k,1089) - lu(k,1048) * lu(k,1074) - lu(k,1090) = lu(k,1090) - lu(k,1049) * lu(k,1074) - lu(k,1091) = lu(k,1091) - lu(k,1050) * lu(k,1074) - lu(k,1092) = lu(k,1092) - lu(k,1051) * lu(k,1074) - lu(k,1093) = lu(k,1093) - lu(k,1052) * lu(k,1074) - lu(k,1114) = lu(k,1114) - lu(k,1034) * lu(k,1113) - lu(k,1115) = lu(k,1115) - lu(k,1035) * lu(k,1113) - lu(k,1116) = lu(k,1116) - lu(k,1036) * lu(k,1113) - lu(k,1117) = lu(k,1117) - lu(k,1037) * lu(k,1113) - lu(k,1118) = lu(k,1118) - lu(k,1038) * lu(k,1113) - lu(k,1119) = lu(k,1119) - lu(k,1039) * lu(k,1113) - lu(k,1120) = lu(k,1120) - lu(k,1040) * lu(k,1113) - lu(k,1121) = lu(k,1121) - lu(k,1041) * lu(k,1113) - lu(k,1122) = lu(k,1122) - lu(k,1042) * lu(k,1113) - lu(k,1123) = lu(k,1123) - lu(k,1043) * lu(k,1113) - lu(k,1124) = lu(k,1124) - lu(k,1044) * lu(k,1113) - lu(k,1125) = lu(k,1125) - lu(k,1045) * lu(k,1113) - lu(k,1126) = lu(k,1126) - lu(k,1046) * lu(k,1113) - lu(k,1127) = lu(k,1127) - lu(k,1047) * lu(k,1113) - lu(k,1128) = lu(k,1128) - lu(k,1048) * lu(k,1113) - lu(k,1129) = lu(k,1129) - lu(k,1049) * lu(k,1113) - lu(k,1130) = lu(k,1130) - lu(k,1050) * lu(k,1113) - lu(k,1131) = lu(k,1131) - lu(k,1051) * lu(k,1113) - lu(k,1132) = lu(k,1132) - lu(k,1052) * lu(k,1113) - lu(k,1158) = lu(k,1158) - lu(k,1034) * lu(k,1157) - lu(k,1159) = lu(k,1159) - lu(k,1035) * lu(k,1157) - lu(k,1160) = lu(k,1160) - lu(k,1036) * lu(k,1157) - lu(k,1161) = lu(k,1161) - lu(k,1037) * lu(k,1157) - lu(k,1162) = lu(k,1162) - lu(k,1038) * lu(k,1157) - lu(k,1163) = lu(k,1163) - lu(k,1039) * lu(k,1157) - lu(k,1164) = lu(k,1164) - lu(k,1040) * lu(k,1157) - lu(k,1165) = lu(k,1165) - lu(k,1041) * lu(k,1157) - lu(k,1166) = lu(k,1166) - lu(k,1042) * lu(k,1157) - lu(k,1167) = lu(k,1167) - lu(k,1043) * lu(k,1157) - lu(k,1168) = lu(k,1168) - lu(k,1044) * lu(k,1157) - lu(k,1169) = lu(k,1169) - lu(k,1045) * lu(k,1157) - lu(k,1170) = lu(k,1170) - lu(k,1046) * lu(k,1157) - lu(k,1171) = lu(k,1171) - lu(k,1047) * lu(k,1157) - lu(k,1172) = lu(k,1172) - lu(k,1048) * lu(k,1157) - lu(k,1173) = lu(k,1173) - lu(k,1049) * lu(k,1157) - lu(k,1174) = lu(k,1174) - lu(k,1050) * lu(k,1157) - lu(k,1175) = lu(k,1175) - lu(k,1051) * lu(k,1157) - lu(k,1176) = lu(k,1176) - lu(k,1052) * lu(k,1157) - lu(k,1199) = lu(k,1199) - lu(k,1034) * lu(k,1198) - lu(k,1200) = lu(k,1200) - lu(k,1035) * lu(k,1198) - lu(k,1201) = lu(k,1201) - lu(k,1036) * lu(k,1198) - lu(k,1202) = lu(k,1202) - lu(k,1037) * lu(k,1198) - lu(k,1203) = lu(k,1203) - lu(k,1038) * lu(k,1198) - lu(k,1204) = lu(k,1204) - lu(k,1039) * lu(k,1198) - lu(k,1205) = lu(k,1205) - lu(k,1040) * lu(k,1198) - lu(k,1206) = lu(k,1206) - lu(k,1041) * lu(k,1198) - lu(k,1207) = lu(k,1207) - lu(k,1042) * lu(k,1198) - lu(k,1208) = lu(k,1208) - lu(k,1043) * lu(k,1198) - lu(k,1209) = lu(k,1209) - lu(k,1044) * lu(k,1198) - lu(k,1210) = lu(k,1210) - lu(k,1045) * lu(k,1198) - lu(k,1211) = lu(k,1211) - lu(k,1046) * lu(k,1198) - lu(k,1212) = lu(k,1212) - lu(k,1047) * lu(k,1198) - lu(k,1213) = lu(k,1213) - lu(k,1048) * lu(k,1198) - lu(k,1214) = lu(k,1214) - lu(k,1049) * lu(k,1198) - lu(k,1215) = lu(k,1215) - lu(k,1050) * lu(k,1198) - lu(k,1216) = lu(k,1216) - lu(k,1051) * lu(k,1198) - lu(k,1217) = lu(k,1217) - lu(k,1052) * lu(k,1198) - lu(k,1248) = lu(k,1248) - lu(k,1034) * lu(k,1247) - lu(k,1249) = lu(k,1249) - lu(k,1035) * lu(k,1247) - lu(k,1250) = lu(k,1250) - lu(k,1036) * lu(k,1247) - lu(k,1251) = lu(k,1251) - lu(k,1037) * lu(k,1247) - lu(k,1252) = lu(k,1252) - lu(k,1038) * lu(k,1247) - lu(k,1253) = lu(k,1253) - lu(k,1039) * lu(k,1247) - lu(k,1254) = lu(k,1254) - lu(k,1040) * lu(k,1247) - lu(k,1255) = lu(k,1255) - lu(k,1041) * lu(k,1247) - lu(k,1256) = lu(k,1256) - lu(k,1042) * lu(k,1247) - lu(k,1257) = lu(k,1257) - lu(k,1043) * lu(k,1247) - lu(k,1258) = lu(k,1258) - lu(k,1044) * lu(k,1247) - lu(k,1259) = lu(k,1259) - lu(k,1045) * lu(k,1247) - lu(k,1260) = lu(k,1260) - lu(k,1046) * lu(k,1247) - lu(k,1261) = lu(k,1261) - lu(k,1047) * lu(k,1247) - lu(k,1262) = lu(k,1262) - lu(k,1048) * lu(k,1247) - lu(k,1263) = lu(k,1263) - lu(k,1049) * lu(k,1247) - lu(k,1264) = lu(k,1264) - lu(k,1050) * lu(k,1247) - lu(k,1265) = lu(k,1265) - lu(k,1051) * lu(k,1247) - lu(k,1266) = lu(k,1266) - lu(k,1052) * lu(k,1247) - lu(k,1287) = lu(k,1287) - lu(k,1034) * lu(k,1286) - lu(k,1288) = lu(k,1288) - lu(k,1035) * lu(k,1286) - lu(k,1289) = lu(k,1289) - lu(k,1036) * lu(k,1286) - lu(k,1290) = lu(k,1290) - lu(k,1037) * lu(k,1286) - lu(k,1291) = lu(k,1291) - lu(k,1038) * lu(k,1286) - lu(k,1292) = lu(k,1292) - lu(k,1039) * lu(k,1286) - lu(k,1293) = lu(k,1293) - lu(k,1040) * lu(k,1286) - lu(k,1294) = lu(k,1294) - lu(k,1041) * lu(k,1286) - lu(k,1295) = lu(k,1295) - lu(k,1042) * lu(k,1286) - lu(k,1296) = lu(k,1296) - lu(k,1043) * lu(k,1286) - lu(k,1297) = lu(k,1297) - lu(k,1044) * lu(k,1286) - lu(k,1298) = lu(k,1298) - lu(k,1045) * lu(k,1286) - lu(k,1299) = lu(k,1299) - lu(k,1046) * lu(k,1286) - lu(k,1300) = lu(k,1300) - lu(k,1047) * lu(k,1286) - lu(k,1301) = lu(k,1301) - lu(k,1048) * lu(k,1286) - lu(k,1302) = lu(k,1302) - lu(k,1049) * lu(k,1286) - lu(k,1303) = lu(k,1303) - lu(k,1050) * lu(k,1286) - lu(k,1304) = lu(k,1304) - lu(k,1051) * lu(k,1286) - lu(k,1305) = lu(k,1305) - lu(k,1052) * lu(k,1286) - lu(k,1322) = lu(k,1322) - lu(k,1034) * lu(k,1321) - lu(k,1323) = lu(k,1323) - lu(k,1035) * lu(k,1321) - lu(k,1324) = lu(k,1324) - lu(k,1036) * lu(k,1321) - lu(k,1325) = lu(k,1325) - lu(k,1037) * lu(k,1321) - lu(k,1326) = lu(k,1326) - lu(k,1038) * lu(k,1321) - lu(k,1327) = lu(k,1327) - lu(k,1039) * lu(k,1321) - lu(k,1328) = lu(k,1328) - lu(k,1040) * lu(k,1321) - lu(k,1329) = lu(k,1329) - lu(k,1041) * lu(k,1321) - lu(k,1330) = lu(k,1330) - lu(k,1042) * lu(k,1321) - lu(k,1331) = lu(k,1331) - lu(k,1043) * lu(k,1321) - lu(k,1332) = lu(k,1332) - lu(k,1044) * lu(k,1321) - lu(k,1333) = lu(k,1333) - lu(k,1045) * lu(k,1321) - lu(k,1334) = lu(k,1334) - lu(k,1046) * lu(k,1321) - lu(k,1335) = lu(k,1335) - lu(k,1047) * lu(k,1321) - lu(k,1336) = lu(k,1336) - lu(k,1048) * lu(k,1321) - lu(k,1337) = lu(k,1337) - lu(k,1049) * lu(k,1321) - lu(k,1338) = lu(k,1338) - lu(k,1050) * lu(k,1321) - lu(k,1339) = lu(k,1339) - lu(k,1051) * lu(k,1321) - lu(k,1340) = lu(k,1340) - lu(k,1052) * lu(k,1321) - lu(k,1366) = lu(k,1366) - lu(k,1034) * lu(k,1365) - lu(k,1367) = lu(k,1367) - lu(k,1035) * lu(k,1365) - lu(k,1368) = lu(k,1368) - lu(k,1036) * lu(k,1365) - lu(k,1369) = lu(k,1369) - lu(k,1037) * lu(k,1365) - lu(k,1370) = lu(k,1370) - lu(k,1038) * lu(k,1365) - lu(k,1371) = lu(k,1371) - lu(k,1039) * lu(k,1365) - lu(k,1372) = lu(k,1372) - lu(k,1040) * lu(k,1365) - lu(k,1373) = lu(k,1373) - lu(k,1041) * lu(k,1365) - lu(k,1374) = lu(k,1374) - lu(k,1042) * lu(k,1365) - lu(k,1375) = lu(k,1375) - lu(k,1043) * lu(k,1365) - lu(k,1376) = lu(k,1376) - lu(k,1044) * lu(k,1365) - lu(k,1377) = lu(k,1377) - lu(k,1045) * lu(k,1365) - lu(k,1378) = lu(k,1378) - lu(k,1046) * lu(k,1365) - lu(k,1379) = lu(k,1379) - lu(k,1047) * lu(k,1365) - lu(k,1380) = lu(k,1380) - lu(k,1048) * lu(k,1365) - lu(k,1381) = lu(k,1381) - lu(k,1049) * lu(k,1365) - lu(k,1382) = lu(k,1382) - lu(k,1050) * lu(k,1365) - lu(k,1383) = lu(k,1383) - lu(k,1051) * lu(k,1365) - lu(k,1384) = lu(k,1384) - lu(k,1052) * lu(k,1365) - lu(k,1425) = lu(k,1425) - lu(k,1034) * lu(k,1424) - lu(k,1426) = lu(k,1426) - lu(k,1035) * lu(k,1424) - lu(k,1427) = lu(k,1427) - lu(k,1036) * lu(k,1424) - lu(k,1428) = lu(k,1428) - lu(k,1037) * lu(k,1424) - lu(k,1429) = lu(k,1429) - lu(k,1038) * lu(k,1424) - lu(k,1430) = lu(k,1430) - lu(k,1039) * lu(k,1424) - lu(k,1431) = lu(k,1431) - lu(k,1040) * lu(k,1424) - lu(k,1432) = lu(k,1432) - lu(k,1041) * lu(k,1424) - lu(k,1433) = lu(k,1433) - lu(k,1042) * lu(k,1424) - lu(k,1434) = lu(k,1434) - lu(k,1043) * lu(k,1424) - lu(k,1435) = lu(k,1435) - lu(k,1044) * lu(k,1424) - lu(k,1436) = lu(k,1436) - lu(k,1045) * lu(k,1424) - lu(k,1437) = lu(k,1437) - lu(k,1046) * lu(k,1424) - lu(k,1438) = lu(k,1438) - lu(k,1047) * lu(k,1424) - lu(k,1439) = lu(k,1439) - lu(k,1048) * lu(k,1424) - lu(k,1440) = lu(k,1440) - lu(k,1049) * lu(k,1424) - lu(k,1441) = lu(k,1441) - lu(k,1050) * lu(k,1424) - lu(k,1442) = lu(k,1442) - lu(k,1051) * lu(k,1424) - lu(k,1443) = lu(k,1443) - lu(k,1052) * lu(k,1424) - lu(k,1467) = lu(k,1467) - lu(k,1034) * lu(k,1466) - lu(k,1468) = lu(k,1468) - lu(k,1035) * lu(k,1466) - lu(k,1469) = lu(k,1469) - lu(k,1036) * lu(k,1466) - lu(k,1470) = lu(k,1470) - lu(k,1037) * lu(k,1466) - lu(k,1471) = lu(k,1471) - lu(k,1038) * lu(k,1466) - lu(k,1472) = lu(k,1472) - lu(k,1039) * lu(k,1466) - lu(k,1473) = lu(k,1473) - lu(k,1040) * lu(k,1466) - lu(k,1474) = lu(k,1474) - lu(k,1041) * lu(k,1466) - lu(k,1475) = lu(k,1475) - lu(k,1042) * lu(k,1466) - lu(k,1476) = lu(k,1476) - lu(k,1043) * lu(k,1466) - lu(k,1477) = lu(k,1477) - lu(k,1044) * lu(k,1466) - lu(k,1478) = lu(k,1478) - lu(k,1045) * lu(k,1466) - lu(k,1479) = lu(k,1479) - lu(k,1046) * lu(k,1466) - lu(k,1480) = lu(k,1480) - lu(k,1047) * lu(k,1466) - lu(k,1481) = lu(k,1481) - lu(k,1048) * lu(k,1466) - lu(k,1482) = lu(k,1482) - lu(k,1049) * lu(k,1466) - lu(k,1483) = lu(k,1483) - lu(k,1050) * lu(k,1466) - lu(k,1484) = lu(k,1484) - lu(k,1051) * lu(k,1466) - lu(k,1485) = lu(k,1485) - lu(k,1052) * lu(k,1466) - lu(k,1508) = lu(k,1508) - lu(k,1034) * lu(k,1507) - lu(k,1509) = lu(k,1509) - lu(k,1035) * lu(k,1507) - lu(k,1510) = lu(k,1510) - lu(k,1036) * lu(k,1507) - lu(k,1511) = lu(k,1511) - lu(k,1037) * lu(k,1507) - lu(k,1512) = lu(k,1512) - lu(k,1038) * lu(k,1507) - lu(k,1513) = lu(k,1513) - lu(k,1039) * lu(k,1507) - lu(k,1514) = lu(k,1514) - lu(k,1040) * lu(k,1507) - lu(k,1515) = lu(k,1515) - lu(k,1041) * lu(k,1507) - lu(k,1516) = lu(k,1516) - lu(k,1042) * lu(k,1507) - lu(k,1517) = lu(k,1517) - lu(k,1043) * lu(k,1507) - lu(k,1518) = lu(k,1518) - lu(k,1044) * lu(k,1507) - lu(k,1519) = lu(k,1519) - lu(k,1045) * lu(k,1507) - lu(k,1520) = lu(k,1520) - lu(k,1046) * lu(k,1507) - lu(k,1521) = lu(k,1521) - lu(k,1047) * lu(k,1507) - lu(k,1522) = lu(k,1522) - lu(k,1048) * lu(k,1507) - lu(k,1523) = lu(k,1523) - lu(k,1049) * lu(k,1507) - lu(k,1524) = lu(k,1524) - lu(k,1050) * lu(k,1507) - lu(k,1525) = lu(k,1525) - lu(k,1051) * lu(k,1507) - lu(k,1526) = lu(k,1526) - lu(k,1052) * lu(k,1507) - lu(k,1550) = lu(k,1550) - lu(k,1034) * lu(k,1549) - lu(k,1551) = lu(k,1551) - lu(k,1035) * lu(k,1549) - lu(k,1552) = lu(k,1552) - lu(k,1036) * lu(k,1549) - lu(k,1553) = lu(k,1553) - lu(k,1037) * lu(k,1549) - lu(k,1554) = lu(k,1554) - lu(k,1038) * lu(k,1549) - lu(k,1555) = lu(k,1555) - lu(k,1039) * lu(k,1549) - lu(k,1556) = lu(k,1556) - lu(k,1040) * lu(k,1549) - lu(k,1557) = lu(k,1557) - lu(k,1041) * lu(k,1549) - lu(k,1558) = lu(k,1558) - lu(k,1042) * lu(k,1549) - lu(k,1559) = lu(k,1559) - lu(k,1043) * lu(k,1549) - lu(k,1560) = lu(k,1560) - lu(k,1044) * lu(k,1549) - lu(k,1561) = lu(k,1561) - lu(k,1045) * lu(k,1549) - lu(k,1562) = lu(k,1562) - lu(k,1046) * lu(k,1549) - lu(k,1563) = lu(k,1563) - lu(k,1047) * lu(k,1549) - lu(k,1564) = lu(k,1564) - lu(k,1048) * lu(k,1549) - lu(k,1565) = lu(k,1565) - lu(k,1049) * lu(k,1549) - lu(k,1566) = lu(k,1566) - lu(k,1050) * lu(k,1549) - lu(k,1567) = lu(k,1567) - lu(k,1051) * lu(k,1549) - lu(k,1568) = lu(k,1568) - lu(k,1052) * lu(k,1549) - lu(k,1592) = lu(k,1592) - lu(k,1034) * lu(k,1591) - lu(k,1593) = lu(k,1593) - lu(k,1035) * lu(k,1591) - lu(k,1594) = lu(k,1594) - lu(k,1036) * lu(k,1591) - lu(k,1595) = lu(k,1595) - lu(k,1037) * lu(k,1591) - lu(k,1596) = lu(k,1596) - lu(k,1038) * lu(k,1591) - lu(k,1597) = lu(k,1597) - lu(k,1039) * lu(k,1591) - lu(k,1598) = lu(k,1598) - lu(k,1040) * lu(k,1591) - lu(k,1599) = lu(k,1599) - lu(k,1041) * lu(k,1591) - lu(k,1600) = lu(k,1600) - lu(k,1042) * lu(k,1591) - lu(k,1601) = lu(k,1601) - lu(k,1043) * lu(k,1591) - lu(k,1602) = lu(k,1602) - lu(k,1044) * lu(k,1591) - lu(k,1603) = lu(k,1603) - lu(k,1045) * lu(k,1591) - lu(k,1604) = lu(k,1604) - lu(k,1046) * lu(k,1591) - lu(k,1605) = lu(k,1605) - lu(k,1047) * lu(k,1591) - lu(k,1606) = lu(k,1606) - lu(k,1048) * lu(k,1591) - lu(k,1607) = lu(k,1607) - lu(k,1049) * lu(k,1591) - lu(k,1608) = lu(k,1608) - lu(k,1050) * lu(k,1591) - lu(k,1609) = lu(k,1609) - lu(k,1051) * lu(k,1591) - lu(k,1610) = lu(k,1610) - lu(k,1052) * lu(k,1591) - lu(k,1624) = lu(k,1624) - lu(k,1034) * lu(k,1623) - lu(k,1625) = lu(k,1625) - lu(k,1035) * lu(k,1623) - lu(k,1626) = lu(k,1626) - lu(k,1036) * lu(k,1623) - lu(k,1627) = lu(k,1627) - lu(k,1037) * lu(k,1623) - lu(k,1628) = lu(k,1628) - lu(k,1038) * lu(k,1623) - lu(k,1629) = lu(k,1629) - lu(k,1039) * lu(k,1623) - lu(k,1630) = lu(k,1630) - lu(k,1040) * lu(k,1623) - lu(k,1631) = lu(k,1631) - lu(k,1041) * lu(k,1623) - lu(k,1632) = lu(k,1632) - lu(k,1042) * lu(k,1623) - lu(k,1633) = lu(k,1633) - lu(k,1043) * lu(k,1623) - lu(k,1634) = lu(k,1634) - lu(k,1044) * lu(k,1623) - lu(k,1635) = lu(k,1635) - lu(k,1045) * lu(k,1623) - lu(k,1636) = lu(k,1636) - lu(k,1046) * lu(k,1623) - lu(k,1637) = lu(k,1637) - lu(k,1047) * lu(k,1623) - lu(k,1638) = lu(k,1638) - lu(k,1048) * lu(k,1623) - lu(k,1639) = lu(k,1639) - lu(k,1049) * lu(k,1623) - lu(k,1640) = lu(k,1640) - lu(k,1050) * lu(k,1623) - lu(k,1641) = lu(k,1641) - lu(k,1051) * lu(k,1623) - lu(k,1642) = lu(k,1642) - lu(k,1052) * lu(k,1623) - lu(k,1659) = lu(k,1659) - lu(k,1034) * lu(k,1658) - lu(k,1660) = lu(k,1660) - lu(k,1035) * lu(k,1658) - lu(k,1661) = lu(k,1661) - lu(k,1036) * lu(k,1658) - lu(k,1662) = lu(k,1662) - lu(k,1037) * lu(k,1658) - lu(k,1663) = lu(k,1663) - lu(k,1038) * lu(k,1658) - lu(k,1664) = lu(k,1664) - lu(k,1039) * lu(k,1658) - lu(k,1665) = lu(k,1665) - lu(k,1040) * lu(k,1658) - lu(k,1666) = lu(k,1666) - lu(k,1041) * lu(k,1658) - lu(k,1667) = lu(k,1667) - lu(k,1042) * lu(k,1658) - lu(k,1668) = lu(k,1668) - lu(k,1043) * lu(k,1658) - lu(k,1669) = lu(k,1669) - lu(k,1044) * lu(k,1658) - lu(k,1670) = lu(k,1670) - lu(k,1045) * lu(k,1658) - lu(k,1671) = lu(k,1671) - lu(k,1046) * lu(k,1658) - lu(k,1672) = lu(k,1672) - lu(k,1047) * lu(k,1658) - lu(k,1673) = lu(k,1673) - lu(k,1048) * lu(k,1658) - lu(k,1674) = lu(k,1674) - lu(k,1049) * lu(k,1658) - lu(k,1675) = lu(k,1675) - lu(k,1050) * lu(k,1658) - lu(k,1676) = lu(k,1676) - lu(k,1051) * lu(k,1658) - lu(k,1677) = lu(k,1677) - lu(k,1052) * lu(k,1658) - lu(k,1701) = lu(k,1701) - lu(k,1034) * lu(k,1700) - lu(k,1702) = lu(k,1702) - lu(k,1035) * lu(k,1700) - lu(k,1703) = lu(k,1703) - lu(k,1036) * lu(k,1700) - lu(k,1704) = lu(k,1704) - lu(k,1037) * lu(k,1700) - lu(k,1705) = lu(k,1705) - lu(k,1038) * lu(k,1700) - lu(k,1706) = lu(k,1706) - lu(k,1039) * lu(k,1700) - lu(k,1707) = lu(k,1707) - lu(k,1040) * lu(k,1700) - lu(k,1708) = lu(k,1708) - lu(k,1041) * lu(k,1700) - lu(k,1709) = lu(k,1709) - lu(k,1042) * lu(k,1700) - lu(k,1710) = lu(k,1710) - lu(k,1043) * lu(k,1700) - lu(k,1711) = lu(k,1711) - lu(k,1044) * lu(k,1700) - lu(k,1712) = lu(k,1712) - lu(k,1045) * lu(k,1700) - lu(k,1713) = lu(k,1713) - lu(k,1046) * lu(k,1700) - lu(k,1714) = lu(k,1714) - lu(k,1047) * lu(k,1700) - lu(k,1715) = lu(k,1715) - lu(k,1048) * lu(k,1700) - lu(k,1716) = lu(k,1716) - lu(k,1049) * lu(k,1700) - lu(k,1717) = lu(k,1717) - lu(k,1050) * lu(k,1700) - lu(k,1718) = lu(k,1718) - lu(k,1051) * lu(k,1700) - lu(k,1719) = lu(k,1719) - lu(k,1052) * lu(k,1700) - lu(k,1745) = lu(k,1745) - lu(k,1034) * lu(k,1744) - lu(k,1746) = lu(k,1746) - lu(k,1035) * lu(k,1744) - lu(k,1747) = lu(k,1747) - lu(k,1036) * lu(k,1744) - lu(k,1748) = lu(k,1748) - lu(k,1037) * lu(k,1744) - lu(k,1749) = lu(k,1749) - lu(k,1038) * lu(k,1744) - lu(k,1750) = lu(k,1750) - lu(k,1039) * lu(k,1744) - lu(k,1751) = lu(k,1751) - lu(k,1040) * lu(k,1744) - lu(k,1752) = lu(k,1752) - lu(k,1041) * lu(k,1744) - lu(k,1753) = lu(k,1753) - lu(k,1042) * lu(k,1744) - lu(k,1754) = lu(k,1754) - lu(k,1043) * lu(k,1744) - lu(k,1755) = lu(k,1755) - lu(k,1044) * lu(k,1744) - lu(k,1756) = lu(k,1756) - lu(k,1045) * lu(k,1744) - lu(k,1757) = lu(k,1757) - lu(k,1046) * lu(k,1744) - lu(k,1758) = lu(k,1758) - lu(k,1047) * lu(k,1744) - lu(k,1759) = lu(k,1759) - lu(k,1048) * lu(k,1744) - lu(k,1760) = lu(k,1760) - lu(k,1049) * lu(k,1744) - lu(k,1761) = lu(k,1761) - lu(k,1050) * lu(k,1744) - lu(k,1762) = lu(k,1762) - lu(k,1051) * lu(k,1744) - lu(k,1763) = lu(k,1763) - lu(k,1052) * lu(k,1744) - lu(k,1780) = lu(k,1780) - lu(k,1034) * lu(k,1779) - lu(k,1781) = lu(k,1781) - lu(k,1035) * lu(k,1779) - lu(k,1782) = lu(k,1782) - lu(k,1036) * lu(k,1779) - lu(k,1783) = lu(k,1783) - lu(k,1037) * lu(k,1779) - lu(k,1784) = lu(k,1784) - lu(k,1038) * lu(k,1779) - lu(k,1785) = lu(k,1785) - lu(k,1039) * lu(k,1779) - lu(k,1786) = lu(k,1786) - lu(k,1040) * lu(k,1779) - lu(k,1787) = lu(k,1787) - lu(k,1041) * lu(k,1779) - lu(k,1788) = lu(k,1788) - lu(k,1042) * lu(k,1779) - lu(k,1789) = lu(k,1789) - lu(k,1043) * lu(k,1779) - lu(k,1790) = lu(k,1790) - lu(k,1044) * lu(k,1779) - lu(k,1791) = lu(k,1791) - lu(k,1045) * lu(k,1779) - lu(k,1792) = lu(k,1792) - lu(k,1046) * lu(k,1779) - lu(k,1793) = lu(k,1793) - lu(k,1047) * lu(k,1779) - lu(k,1794) = lu(k,1794) - lu(k,1048) * lu(k,1779) - lu(k,1795) = lu(k,1795) - lu(k,1049) * lu(k,1779) - lu(k,1796) = lu(k,1796) - lu(k,1050) * lu(k,1779) - lu(k,1797) = lu(k,1797) - lu(k,1051) * lu(k,1779) - lu(k,1798) = lu(k,1798) - lu(k,1052) * lu(k,1779) - lu(k,1838) = lu(k,1838) - lu(k,1034) * lu(k,1837) - lu(k,1839) = lu(k,1839) - lu(k,1035) * lu(k,1837) - lu(k,1840) = lu(k,1840) - lu(k,1036) * lu(k,1837) - lu(k,1841) = lu(k,1841) - lu(k,1037) * lu(k,1837) - lu(k,1842) = lu(k,1842) - lu(k,1038) * lu(k,1837) - lu(k,1843) = lu(k,1843) - lu(k,1039) * lu(k,1837) - lu(k,1844) = lu(k,1844) - lu(k,1040) * lu(k,1837) - lu(k,1845) = lu(k,1845) - lu(k,1041) * lu(k,1837) - lu(k,1846) = lu(k,1846) - lu(k,1042) * lu(k,1837) - lu(k,1847) = lu(k,1847) - lu(k,1043) * lu(k,1837) - lu(k,1848) = lu(k,1848) - lu(k,1044) * lu(k,1837) - lu(k,1849) = lu(k,1849) - lu(k,1045) * lu(k,1837) - lu(k,1850) = lu(k,1850) - lu(k,1046) * lu(k,1837) - lu(k,1851) = lu(k,1851) - lu(k,1047) * lu(k,1837) - lu(k,1852) = lu(k,1852) - lu(k,1048) * lu(k,1837) - lu(k,1853) = lu(k,1853) - lu(k,1049) * lu(k,1837) - lu(k,1854) = lu(k,1854) - lu(k,1050) * lu(k,1837) - lu(k,1855) = lu(k,1855) - lu(k,1051) * lu(k,1837) - lu(k,1856) = lu(k,1856) - lu(k,1052) * lu(k,1837) - lu(k,1075) = 1._r8 / lu(k,1075) - lu(k,1076) = lu(k,1076) * lu(k,1075) - lu(k,1077) = lu(k,1077) * lu(k,1075) - lu(k,1078) = lu(k,1078) * lu(k,1075) - lu(k,1079) = lu(k,1079) * lu(k,1075) - lu(k,1080) = lu(k,1080) * lu(k,1075) - lu(k,1081) = lu(k,1081) * lu(k,1075) - lu(k,1082) = lu(k,1082) * lu(k,1075) - lu(k,1083) = lu(k,1083) * lu(k,1075) - lu(k,1084) = lu(k,1084) * lu(k,1075) - lu(k,1085) = lu(k,1085) * lu(k,1075) - lu(k,1086) = lu(k,1086) * lu(k,1075) - lu(k,1087) = lu(k,1087) * lu(k,1075) - lu(k,1088) = lu(k,1088) * lu(k,1075) - lu(k,1089) = lu(k,1089) * lu(k,1075) - lu(k,1090) = lu(k,1090) * lu(k,1075) - lu(k,1091) = lu(k,1091) * lu(k,1075) - lu(k,1092) = lu(k,1092) * lu(k,1075) - lu(k,1093) = lu(k,1093) * lu(k,1075) - lu(k,1115) = lu(k,1115) - lu(k,1076) * lu(k,1114) - lu(k,1116) = lu(k,1116) - lu(k,1077) * lu(k,1114) - lu(k,1117) = lu(k,1117) - lu(k,1078) * lu(k,1114) - lu(k,1118) = lu(k,1118) - lu(k,1079) * lu(k,1114) - lu(k,1119) = lu(k,1119) - lu(k,1080) * lu(k,1114) - lu(k,1120) = lu(k,1120) - lu(k,1081) * lu(k,1114) - lu(k,1121) = lu(k,1121) - lu(k,1082) * lu(k,1114) - lu(k,1122) = lu(k,1122) - lu(k,1083) * lu(k,1114) - lu(k,1123) = lu(k,1123) - lu(k,1084) * lu(k,1114) - lu(k,1124) = lu(k,1124) - lu(k,1085) * lu(k,1114) - lu(k,1125) = lu(k,1125) - lu(k,1086) * lu(k,1114) - lu(k,1126) = lu(k,1126) - lu(k,1087) * lu(k,1114) - lu(k,1127) = lu(k,1127) - lu(k,1088) * lu(k,1114) - lu(k,1128) = lu(k,1128) - lu(k,1089) * lu(k,1114) - lu(k,1129) = lu(k,1129) - lu(k,1090) * lu(k,1114) - lu(k,1130) = lu(k,1130) - lu(k,1091) * lu(k,1114) - lu(k,1131) = lu(k,1131) - lu(k,1092) * lu(k,1114) - lu(k,1132) = lu(k,1132) - lu(k,1093) * lu(k,1114) - lu(k,1159) = lu(k,1159) - lu(k,1076) * lu(k,1158) - lu(k,1160) = lu(k,1160) - lu(k,1077) * lu(k,1158) - lu(k,1161) = lu(k,1161) - lu(k,1078) * lu(k,1158) - lu(k,1162) = lu(k,1162) - lu(k,1079) * lu(k,1158) - lu(k,1163) = lu(k,1163) - lu(k,1080) * lu(k,1158) - lu(k,1164) = lu(k,1164) - lu(k,1081) * lu(k,1158) - lu(k,1165) = lu(k,1165) - lu(k,1082) * lu(k,1158) - lu(k,1166) = lu(k,1166) - lu(k,1083) * lu(k,1158) - lu(k,1167) = lu(k,1167) - lu(k,1084) * lu(k,1158) - lu(k,1168) = lu(k,1168) - lu(k,1085) * lu(k,1158) - lu(k,1169) = lu(k,1169) - lu(k,1086) * lu(k,1158) - lu(k,1170) = lu(k,1170) - lu(k,1087) * lu(k,1158) - lu(k,1171) = lu(k,1171) - lu(k,1088) * lu(k,1158) - lu(k,1172) = lu(k,1172) - lu(k,1089) * lu(k,1158) - lu(k,1173) = lu(k,1173) - lu(k,1090) * lu(k,1158) - lu(k,1174) = lu(k,1174) - lu(k,1091) * lu(k,1158) - lu(k,1175) = lu(k,1175) - lu(k,1092) * lu(k,1158) - lu(k,1176) = lu(k,1176) - lu(k,1093) * lu(k,1158) - lu(k,1200) = lu(k,1200) - lu(k,1076) * lu(k,1199) - lu(k,1201) = lu(k,1201) - lu(k,1077) * lu(k,1199) - lu(k,1202) = lu(k,1202) - lu(k,1078) * lu(k,1199) - lu(k,1203) = lu(k,1203) - lu(k,1079) * lu(k,1199) - lu(k,1204) = lu(k,1204) - lu(k,1080) * lu(k,1199) - lu(k,1205) = lu(k,1205) - lu(k,1081) * lu(k,1199) - lu(k,1206) = lu(k,1206) - lu(k,1082) * lu(k,1199) - lu(k,1207) = lu(k,1207) - lu(k,1083) * lu(k,1199) - lu(k,1208) = lu(k,1208) - lu(k,1084) * lu(k,1199) - lu(k,1209) = lu(k,1209) - lu(k,1085) * lu(k,1199) - lu(k,1210) = lu(k,1210) - lu(k,1086) * lu(k,1199) - lu(k,1211) = lu(k,1211) - lu(k,1087) * lu(k,1199) - lu(k,1212) = lu(k,1212) - lu(k,1088) * lu(k,1199) - lu(k,1213) = lu(k,1213) - lu(k,1089) * lu(k,1199) - lu(k,1214) = lu(k,1214) - lu(k,1090) * lu(k,1199) - lu(k,1215) = lu(k,1215) - lu(k,1091) * lu(k,1199) - lu(k,1216) = lu(k,1216) - lu(k,1092) * lu(k,1199) - lu(k,1217) = lu(k,1217) - lu(k,1093) * lu(k,1199) - lu(k,1249) = lu(k,1249) - lu(k,1076) * lu(k,1248) - lu(k,1250) = lu(k,1250) - lu(k,1077) * lu(k,1248) - lu(k,1251) = lu(k,1251) - lu(k,1078) * lu(k,1248) - lu(k,1252) = lu(k,1252) - lu(k,1079) * lu(k,1248) - lu(k,1253) = lu(k,1253) - lu(k,1080) * lu(k,1248) - lu(k,1254) = lu(k,1254) - lu(k,1081) * lu(k,1248) - lu(k,1255) = lu(k,1255) - lu(k,1082) * lu(k,1248) - lu(k,1256) = lu(k,1256) - lu(k,1083) * lu(k,1248) - lu(k,1257) = lu(k,1257) - lu(k,1084) * lu(k,1248) - lu(k,1258) = lu(k,1258) - lu(k,1085) * lu(k,1248) - lu(k,1259) = lu(k,1259) - lu(k,1086) * lu(k,1248) - lu(k,1260) = lu(k,1260) - lu(k,1087) * lu(k,1248) - lu(k,1261) = lu(k,1261) - lu(k,1088) * lu(k,1248) - lu(k,1262) = lu(k,1262) - lu(k,1089) * lu(k,1248) - lu(k,1263) = lu(k,1263) - lu(k,1090) * lu(k,1248) - lu(k,1264) = lu(k,1264) - lu(k,1091) * lu(k,1248) - lu(k,1265) = lu(k,1265) - lu(k,1092) * lu(k,1248) - lu(k,1266) = lu(k,1266) - lu(k,1093) * lu(k,1248) - lu(k,1288) = lu(k,1288) - lu(k,1076) * lu(k,1287) - lu(k,1289) = lu(k,1289) - lu(k,1077) * lu(k,1287) - lu(k,1290) = lu(k,1290) - lu(k,1078) * lu(k,1287) - lu(k,1291) = lu(k,1291) - lu(k,1079) * lu(k,1287) - lu(k,1292) = lu(k,1292) - lu(k,1080) * lu(k,1287) - lu(k,1293) = lu(k,1293) - lu(k,1081) * lu(k,1287) - lu(k,1294) = lu(k,1294) - lu(k,1082) * lu(k,1287) - lu(k,1295) = lu(k,1295) - lu(k,1083) * lu(k,1287) - lu(k,1296) = lu(k,1296) - lu(k,1084) * lu(k,1287) - lu(k,1297) = lu(k,1297) - lu(k,1085) * lu(k,1287) - lu(k,1298) = lu(k,1298) - lu(k,1086) * lu(k,1287) - lu(k,1299) = lu(k,1299) - lu(k,1087) * lu(k,1287) - lu(k,1300) = lu(k,1300) - lu(k,1088) * lu(k,1287) - lu(k,1301) = lu(k,1301) - lu(k,1089) * lu(k,1287) - lu(k,1302) = lu(k,1302) - lu(k,1090) * lu(k,1287) - lu(k,1303) = lu(k,1303) - lu(k,1091) * lu(k,1287) - lu(k,1304) = lu(k,1304) - lu(k,1092) * lu(k,1287) - lu(k,1305) = lu(k,1305) - lu(k,1093) * lu(k,1287) - lu(k,1323) = lu(k,1323) - lu(k,1076) * lu(k,1322) - lu(k,1324) = lu(k,1324) - lu(k,1077) * lu(k,1322) - lu(k,1325) = lu(k,1325) - lu(k,1078) * lu(k,1322) - lu(k,1326) = lu(k,1326) - lu(k,1079) * lu(k,1322) - lu(k,1327) = lu(k,1327) - lu(k,1080) * lu(k,1322) - lu(k,1328) = lu(k,1328) - lu(k,1081) * lu(k,1322) - lu(k,1329) = lu(k,1329) - lu(k,1082) * lu(k,1322) - lu(k,1330) = lu(k,1330) - lu(k,1083) * lu(k,1322) - lu(k,1331) = lu(k,1331) - lu(k,1084) * lu(k,1322) - lu(k,1332) = lu(k,1332) - lu(k,1085) * lu(k,1322) - lu(k,1333) = lu(k,1333) - lu(k,1086) * lu(k,1322) - lu(k,1334) = lu(k,1334) - lu(k,1087) * lu(k,1322) - lu(k,1335) = lu(k,1335) - lu(k,1088) * lu(k,1322) - lu(k,1336) = lu(k,1336) - lu(k,1089) * lu(k,1322) - lu(k,1337) = lu(k,1337) - lu(k,1090) * lu(k,1322) - lu(k,1338) = lu(k,1338) - lu(k,1091) * lu(k,1322) - lu(k,1339) = lu(k,1339) - lu(k,1092) * lu(k,1322) - lu(k,1340) = lu(k,1340) - lu(k,1093) * lu(k,1322) - lu(k,1367) = lu(k,1367) - lu(k,1076) * lu(k,1366) - lu(k,1368) = lu(k,1368) - lu(k,1077) * lu(k,1366) - lu(k,1369) = lu(k,1369) - lu(k,1078) * lu(k,1366) - lu(k,1370) = lu(k,1370) - lu(k,1079) * lu(k,1366) - lu(k,1371) = lu(k,1371) - lu(k,1080) * lu(k,1366) - lu(k,1372) = lu(k,1372) - lu(k,1081) * lu(k,1366) - lu(k,1373) = lu(k,1373) - lu(k,1082) * lu(k,1366) - lu(k,1374) = lu(k,1374) - lu(k,1083) * lu(k,1366) - lu(k,1375) = lu(k,1375) - lu(k,1084) * lu(k,1366) - lu(k,1376) = lu(k,1376) - lu(k,1085) * lu(k,1366) - lu(k,1377) = lu(k,1377) - lu(k,1086) * lu(k,1366) - lu(k,1378) = lu(k,1378) - lu(k,1087) * lu(k,1366) - lu(k,1379) = lu(k,1379) - lu(k,1088) * lu(k,1366) - lu(k,1380) = lu(k,1380) - lu(k,1089) * lu(k,1366) - lu(k,1381) = lu(k,1381) - lu(k,1090) * lu(k,1366) - lu(k,1382) = lu(k,1382) - lu(k,1091) * lu(k,1366) - lu(k,1383) = lu(k,1383) - lu(k,1092) * lu(k,1366) - lu(k,1384) = lu(k,1384) - lu(k,1093) * lu(k,1366) - lu(k,1426) = lu(k,1426) - lu(k,1076) * lu(k,1425) - lu(k,1427) = lu(k,1427) - lu(k,1077) * lu(k,1425) - lu(k,1428) = lu(k,1428) - lu(k,1078) * lu(k,1425) - lu(k,1429) = lu(k,1429) - lu(k,1079) * lu(k,1425) - lu(k,1430) = lu(k,1430) - lu(k,1080) * lu(k,1425) - lu(k,1431) = lu(k,1431) - lu(k,1081) * lu(k,1425) - lu(k,1432) = lu(k,1432) - lu(k,1082) * lu(k,1425) - lu(k,1433) = lu(k,1433) - lu(k,1083) * lu(k,1425) - lu(k,1434) = lu(k,1434) - lu(k,1084) * lu(k,1425) - lu(k,1435) = lu(k,1435) - lu(k,1085) * lu(k,1425) - lu(k,1436) = lu(k,1436) - lu(k,1086) * lu(k,1425) - lu(k,1437) = lu(k,1437) - lu(k,1087) * lu(k,1425) - lu(k,1438) = lu(k,1438) - lu(k,1088) * lu(k,1425) - lu(k,1439) = lu(k,1439) - lu(k,1089) * lu(k,1425) - lu(k,1440) = lu(k,1440) - lu(k,1090) * lu(k,1425) - lu(k,1441) = lu(k,1441) - lu(k,1091) * lu(k,1425) - lu(k,1442) = lu(k,1442) - lu(k,1092) * lu(k,1425) - lu(k,1443) = lu(k,1443) - lu(k,1093) * lu(k,1425) - lu(k,1468) = lu(k,1468) - lu(k,1076) * lu(k,1467) - lu(k,1469) = lu(k,1469) - lu(k,1077) * lu(k,1467) - lu(k,1470) = lu(k,1470) - lu(k,1078) * lu(k,1467) - lu(k,1471) = lu(k,1471) - lu(k,1079) * lu(k,1467) - lu(k,1472) = lu(k,1472) - lu(k,1080) * lu(k,1467) - lu(k,1473) = lu(k,1473) - lu(k,1081) * lu(k,1467) - lu(k,1474) = lu(k,1474) - lu(k,1082) * lu(k,1467) - lu(k,1475) = lu(k,1475) - lu(k,1083) * lu(k,1467) - lu(k,1476) = lu(k,1476) - lu(k,1084) * lu(k,1467) - lu(k,1477) = lu(k,1477) - lu(k,1085) * lu(k,1467) - lu(k,1478) = lu(k,1478) - lu(k,1086) * lu(k,1467) - lu(k,1479) = lu(k,1479) - lu(k,1087) * lu(k,1467) - lu(k,1480) = lu(k,1480) - lu(k,1088) * lu(k,1467) - lu(k,1481) = lu(k,1481) - lu(k,1089) * lu(k,1467) - lu(k,1482) = lu(k,1482) - lu(k,1090) * lu(k,1467) - lu(k,1483) = lu(k,1483) - lu(k,1091) * lu(k,1467) - lu(k,1484) = lu(k,1484) - lu(k,1092) * lu(k,1467) - lu(k,1485) = lu(k,1485) - lu(k,1093) * lu(k,1467) - lu(k,1509) = lu(k,1509) - lu(k,1076) * lu(k,1508) - lu(k,1510) = lu(k,1510) - lu(k,1077) * lu(k,1508) - lu(k,1511) = lu(k,1511) - lu(k,1078) * lu(k,1508) - lu(k,1512) = lu(k,1512) - lu(k,1079) * lu(k,1508) - lu(k,1513) = lu(k,1513) - lu(k,1080) * lu(k,1508) - lu(k,1514) = lu(k,1514) - lu(k,1081) * lu(k,1508) - lu(k,1515) = lu(k,1515) - lu(k,1082) * lu(k,1508) - lu(k,1516) = lu(k,1516) - lu(k,1083) * lu(k,1508) - lu(k,1517) = lu(k,1517) - lu(k,1084) * lu(k,1508) - lu(k,1518) = lu(k,1518) - lu(k,1085) * lu(k,1508) - lu(k,1519) = lu(k,1519) - lu(k,1086) * lu(k,1508) - lu(k,1520) = lu(k,1520) - lu(k,1087) * lu(k,1508) - lu(k,1521) = lu(k,1521) - lu(k,1088) * lu(k,1508) - lu(k,1522) = lu(k,1522) - lu(k,1089) * lu(k,1508) - lu(k,1523) = lu(k,1523) - lu(k,1090) * lu(k,1508) - lu(k,1524) = lu(k,1524) - lu(k,1091) * lu(k,1508) - lu(k,1525) = lu(k,1525) - lu(k,1092) * lu(k,1508) - lu(k,1526) = lu(k,1526) - lu(k,1093) * lu(k,1508) - lu(k,1551) = lu(k,1551) - lu(k,1076) * lu(k,1550) - lu(k,1552) = lu(k,1552) - lu(k,1077) * lu(k,1550) - lu(k,1553) = lu(k,1553) - lu(k,1078) * lu(k,1550) - lu(k,1554) = lu(k,1554) - lu(k,1079) * lu(k,1550) - lu(k,1555) = lu(k,1555) - lu(k,1080) * lu(k,1550) - lu(k,1556) = lu(k,1556) - lu(k,1081) * lu(k,1550) - lu(k,1557) = lu(k,1557) - lu(k,1082) * lu(k,1550) - lu(k,1558) = lu(k,1558) - lu(k,1083) * lu(k,1550) - lu(k,1559) = lu(k,1559) - lu(k,1084) * lu(k,1550) - lu(k,1560) = lu(k,1560) - lu(k,1085) * lu(k,1550) - lu(k,1561) = lu(k,1561) - lu(k,1086) * lu(k,1550) - lu(k,1562) = lu(k,1562) - lu(k,1087) * lu(k,1550) - lu(k,1563) = lu(k,1563) - lu(k,1088) * lu(k,1550) - lu(k,1564) = lu(k,1564) - lu(k,1089) * lu(k,1550) - lu(k,1565) = lu(k,1565) - lu(k,1090) * lu(k,1550) - lu(k,1566) = lu(k,1566) - lu(k,1091) * lu(k,1550) - lu(k,1567) = lu(k,1567) - lu(k,1092) * lu(k,1550) - lu(k,1568) = lu(k,1568) - lu(k,1093) * lu(k,1550) - lu(k,1593) = lu(k,1593) - lu(k,1076) * lu(k,1592) - lu(k,1594) = lu(k,1594) - lu(k,1077) * lu(k,1592) - lu(k,1595) = lu(k,1595) - lu(k,1078) * lu(k,1592) - lu(k,1596) = lu(k,1596) - lu(k,1079) * lu(k,1592) - lu(k,1597) = lu(k,1597) - lu(k,1080) * lu(k,1592) - lu(k,1598) = lu(k,1598) - lu(k,1081) * lu(k,1592) - lu(k,1599) = lu(k,1599) - lu(k,1082) * lu(k,1592) - lu(k,1600) = lu(k,1600) - lu(k,1083) * lu(k,1592) - lu(k,1601) = lu(k,1601) - lu(k,1084) * lu(k,1592) - lu(k,1602) = lu(k,1602) - lu(k,1085) * lu(k,1592) - lu(k,1603) = lu(k,1603) - lu(k,1086) * lu(k,1592) - lu(k,1604) = lu(k,1604) - lu(k,1087) * lu(k,1592) - lu(k,1605) = lu(k,1605) - lu(k,1088) * lu(k,1592) - lu(k,1606) = lu(k,1606) - lu(k,1089) * lu(k,1592) - lu(k,1607) = lu(k,1607) - lu(k,1090) * lu(k,1592) - lu(k,1608) = lu(k,1608) - lu(k,1091) * lu(k,1592) - lu(k,1609) = lu(k,1609) - lu(k,1092) * lu(k,1592) - lu(k,1610) = lu(k,1610) - lu(k,1093) * lu(k,1592) - lu(k,1625) = lu(k,1625) - lu(k,1076) * lu(k,1624) - lu(k,1626) = lu(k,1626) - lu(k,1077) * lu(k,1624) - lu(k,1627) = lu(k,1627) - lu(k,1078) * lu(k,1624) - lu(k,1628) = lu(k,1628) - lu(k,1079) * lu(k,1624) - lu(k,1629) = lu(k,1629) - lu(k,1080) * lu(k,1624) - lu(k,1630) = lu(k,1630) - lu(k,1081) * lu(k,1624) - lu(k,1631) = lu(k,1631) - lu(k,1082) * lu(k,1624) - lu(k,1632) = lu(k,1632) - lu(k,1083) * lu(k,1624) - lu(k,1633) = lu(k,1633) - lu(k,1084) * lu(k,1624) - lu(k,1634) = lu(k,1634) - lu(k,1085) * lu(k,1624) - lu(k,1635) = lu(k,1635) - lu(k,1086) * lu(k,1624) - lu(k,1636) = lu(k,1636) - lu(k,1087) * lu(k,1624) - lu(k,1637) = lu(k,1637) - lu(k,1088) * lu(k,1624) - lu(k,1638) = lu(k,1638) - lu(k,1089) * lu(k,1624) - lu(k,1639) = lu(k,1639) - lu(k,1090) * lu(k,1624) - lu(k,1640) = lu(k,1640) - lu(k,1091) * lu(k,1624) - lu(k,1641) = lu(k,1641) - lu(k,1092) * lu(k,1624) - lu(k,1642) = lu(k,1642) - lu(k,1093) * lu(k,1624) - lu(k,1660) = lu(k,1660) - lu(k,1076) * lu(k,1659) - lu(k,1661) = lu(k,1661) - lu(k,1077) * lu(k,1659) - lu(k,1662) = lu(k,1662) - lu(k,1078) * lu(k,1659) - lu(k,1663) = lu(k,1663) - lu(k,1079) * lu(k,1659) - lu(k,1664) = lu(k,1664) - lu(k,1080) * lu(k,1659) - lu(k,1665) = lu(k,1665) - lu(k,1081) * lu(k,1659) - lu(k,1666) = lu(k,1666) - lu(k,1082) * lu(k,1659) - lu(k,1667) = lu(k,1667) - lu(k,1083) * lu(k,1659) - lu(k,1668) = lu(k,1668) - lu(k,1084) * lu(k,1659) - lu(k,1669) = lu(k,1669) - lu(k,1085) * lu(k,1659) - lu(k,1670) = lu(k,1670) - lu(k,1086) * lu(k,1659) - lu(k,1671) = lu(k,1671) - lu(k,1087) * lu(k,1659) - lu(k,1672) = lu(k,1672) - lu(k,1088) * lu(k,1659) - lu(k,1673) = lu(k,1673) - lu(k,1089) * lu(k,1659) - lu(k,1674) = lu(k,1674) - lu(k,1090) * lu(k,1659) - lu(k,1675) = lu(k,1675) - lu(k,1091) * lu(k,1659) - lu(k,1676) = lu(k,1676) - lu(k,1092) * lu(k,1659) - lu(k,1677) = lu(k,1677) - lu(k,1093) * lu(k,1659) - lu(k,1702) = lu(k,1702) - lu(k,1076) * lu(k,1701) - lu(k,1703) = lu(k,1703) - lu(k,1077) * lu(k,1701) - lu(k,1704) = lu(k,1704) - lu(k,1078) * lu(k,1701) - lu(k,1705) = lu(k,1705) - lu(k,1079) * lu(k,1701) - lu(k,1706) = lu(k,1706) - lu(k,1080) * lu(k,1701) - lu(k,1707) = lu(k,1707) - lu(k,1081) * lu(k,1701) - lu(k,1708) = lu(k,1708) - lu(k,1082) * lu(k,1701) - lu(k,1709) = lu(k,1709) - lu(k,1083) * lu(k,1701) - lu(k,1710) = lu(k,1710) - lu(k,1084) * lu(k,1701) - lu(k,1711) = lu(k,1711) - lu(k,1085) * lu(k,1701) - lu(k,1712) = lu(k,1712) - lu(k,1086) * lu(k,1701) - lu(k,1713) = lu(k,1713) - lu(k,1087) * lu(k,1701) - lu(k,1714) = lu(k,1714) - lu(k,1088) * lu(k,1701) - lu(k,1715) = lu(k,1715) - lu(k,1089) * lu(k,1701) - lu(k,1716) = lu(k,1716) - lu(k,1090) * lu(k,1701) - lu(k,1717) = lu(k,1717) - lu(k,1091) * lu(k,1701) - lu(k,1718) = lu(k,1718) - lu(k,1092) * lu(k,1701) - lu(k,1719) = lu(k,1719) - lu(k,1093) * lu(k,1701) - lu(k,1746) = lu(k,1746) - lu(k,1076) * lu(k,1745) - lu(k,1747) = lu(k,1747) - lu(k,1077) * lu(k,1745) - lu(k,1748) = lu(k,1748) - lu(k,1078) * lu(k,1745) - lu(k,1749) = lu(k,1749) - lu(k,1079) * lu(k,1745) - lu(k,1750) = lu(k,1750) - lu(k,1080) * lu(k,1745) - lu(k,1751) = lu(k,1751) - lu(k,1081) * lu(k,1745) - lu(k,1752) = lu(k,1752) - lu(k,1082) * lu(k,1745) - lu(k,1753) = lu(k,1753) - lu(k,1083) * lu(k,1745) - lu(k,1754) = lu(k,1754) - lu(k,1084) * lu(k,1745) - lu(k,1755) = lu(k,1755) - lu(k,1085) * lu(k,1745) - lu(k,1756) = lu(k,1756) - lu(k,1086) * lu(k,1745) - lu(k,1757) = lu(k,1757) - lu(k,1087) * lu(k,1745) - lu(k,1758) = lu(k,1758) - lu(k,1088) * lu(k,1745) - lu(k,1759) = lu(k,1759) - lu(k,1089) * lu(k,1745) - lu(k,1760) = lu(k,1760) - lu(k,1090) * lu(k,1745) - lu(k,1761) = lu(k,1761) - lu(k,1091) * lu(k,1745) - lu(k,1762) = lu(k,1762) - lu(k,1092) * lu(k,1745) - lu(k,1763) = lu(k,1763) - lu(k,1093) * lu(k,1745) - lu(k,1781) = lu(k,1781) - lu(k,1076) * lu(k,1780) - lu(k,1782) = lu(k,1782) - lu(k,1077) * lu(k,1780) - lu(k,1783) = lu(k,1783) - lu(k,1078) * lu(k,1780) - lu(k,1784) = lu(k,1784) - lu(k,1079) * lu(k,1780) - lu(k,1785) = lu(k,1785) - lu(k,1080) * lu(k,1780) - lu(k,1786) = lu(k,1786) - lu(k,1081) * lu(k,1780) - lu(k,1787) = lu(k,1787) - lu(k,1082) * lu(k,1780) - lu(k,1788) = lu(k,1788) - lu(k,1083) * lu(k,1780) - lu(k,1789) = lu(k,1789) - lu(k,1084) * lu(k,1780) - lu(k,1790) = lu(k,1790) - lu(k,1085) * lu(k,1780) - lu(k,1791) = lu(k,1791) - lu(k,1086) * lu(k,1780) - lu(k,1792) = lu(k,1792) - lu(k,1087) * lu(k,1780) - lu(k,1793) = lu(k,1793) - lu(k,1088) * lu(k,1780) - lu(k,1794) = lu(k,1794) - lu(k,1089) * lu(k,1780) - lu(k,1795) = lu(k,1795) - lu(k,1090) * lu(k,1780) - lu(k,1796) = lu(k,1796) - lu(k,1091) * lu(k,1780) - lu(k,1797) = lu(k,1797) - lu(k,1092) * lu(k,1780) - lu(k,1798) = lu(k,1798) - lu(k,1093) * lu(k,1780) - lu(k,1839) = lu(k,1839) - lu(k,1076) * lu(k,1838) - lu(k,1840) = lu(k,1840) - lu(k,1077) * lu(k,1838) - lu(k,1841) = lu(k,1841) - lu(k,1078) * lu(k,1838) - lu(k,1842) = lu(k,1842) - lu(k,1079) * lu(k,1838) - lu(k,1843) = lu(k,1843) - lu(k,1080) * lu(k,1838) - lu(k,1844) = lu(k,1844) - lu(k,1081) * lu(k,1838) - lu(k,1845) = lu(k,1845) - lu(k,1082) * lu(k,1838) - lu(k,1846) = lu(k,1846) - lu(k,1083) * lu(k,1838) - lu(k,1847) = lu(k,1847) - lu(k,1084) * lu(k,1838) - lu(k,1848) = lu(k,1848) - lu(k,1085) * lu(k,1838) - lu(k,1849) = lu(k,1849) - lu(k,1086) * lu(k,1838) - lu(k,1850) = lu(k,1850) - lu(k,1087) * lu(k,1838) - lu(k,1851) = lu(k,1851) - lu(k,1088) * lu(k,1838) - lu(k,1852) = lu(k,1852) - lu(k,1089) * lu(k,1838) - lu(k,1853) = lu(k,1853) - lu(k,1090) * lu(k,1838) - lu(k,1854) = lu(k,1854) - lu(k,1091) * lu(k,1838) - lu(k,1855) = lu(k,1855) - lu(k,1092) * lu(k,1838) - lu(k,1856) = lu(k,1856) - lu(k,1093) * lu(k,1838) - end do + real(r8), intent(inout) :: lu(:) + lu(999) = 1._r8 / lu(999) + lu(1000) = lu(1000) * lu(999) + lu(1001) = lu(1001) * lu(999) + lu(1002) = lu(1002) * lu(999) + lu(1003) = lu(1003) * lu(999) + lu(1004) = lu(1004) * lu(999) + lu(1005) = lu(1005) * lu(999) + lu(1006) = lu(1006) * lu(999) + lu(1007) = lu(1007) * lu(999) + lu(1008) = lu(1008) * lu(999) + lu(1009) = lu(1009) * lu(999) + lu(1010) = lu(1010) * lu(999) + lu(1011) = lu(1011) * lu(999) + lu(1012) = lu(1012) * lu(999) + lu(1013) = lu(1013) * lu(999) + lu(1014) = lu(1014) * lu(999) + lu(1015) = lu(1015) * lu(999) + lu(1016) = lu(1016) * lu(999) + lu(1017) = lu(1017) * lu(999) + lu(1018) = lu(1018) * lu(999) + lu(1019) = lu(1019) * lu(999) + lu(1049) = lu(1049) - lu(1000) * lu(1048) + lu(1050) = lu(1050) - lu(1001) * lu(1048) + lu(1051) = lu(1051) - lu(1002) * lu(1048) + lu(1052) = lu(1052) - lu(1003) * lu(1048) + lu(1053) = lu(1053) - lu(1004) * lu(1048) + lu(1054) = lu(1054) - lu(1005) * lu(1048) + lu(1055) = lu(1055) - lu(1006) * lu(1048) + lu(1056) = lu(1056) - lu(1007) * lu(1048) + lu(1057) = lu(1057) - lu(1008) * lu(1048) + lu(1058) = lu(1058) - lu(1009) * lu(1048) + lu(1059) = lu(1059) - lu(1010) * lu(1048) + lu(1060) = lu(1060) - lu(1011) * lu(1048) + lu(1061) = lu(1061) - lu(1012) * lu(1048) + lu(1062) = lu(1062) - lu(1013) * lu(1048) + lu(1063) = lu(1063) - lu(1014) * lu(1048) + lu(1064) = lu(1064) - lu(1015) * lu(1048) + lu(1065) = lu(1065) - lu(1016) * lu(1048) + lu(1066) = lu(1066) - lu(1017) * lu(1048) + lu(1067) = lu(1067) - lu(1018) * lu(1048) + lu(1068) = lu(1068) - lu(1019) * lu(1048) + lu(1095) = lu(1095) - lu(1000) * lu(1094) + lu(1096) = lu(1096) - lu(1001) * lu(1094) + lu(1097) = lu(1097) - lu(1002) * lu(1094) + lu(1098) = lu(1098) - lu(1003) * lu(1094) + lu(1099) = lu(1099) - lu(1004) * lu(1094) + lu(1100) = lu(1100) - lu(1005) * lu(1094) + lu(1101) = lu(1101) - lu(1006) * lu(1094) + lu(1102) = lu(1102) - lu(1007) * lu(1094) + lu(1103) = lu(1103) - lu(1008) * lu(1094) + lu(1104) = lu(1104) - lu(1009) * lu(1094) + lu(1105) = lu(1105) - lu(1010) * lu(1094) + lu(1106) = lu(1106) - lu(1011) * lu(1094) + lu(1107) = lu(1107) - lu(1012) * lu(1094) + lu(1108) = lu(1108) - lu(1013) * lu(1094) + lu(1109) = lu(1109) - lu(1014) * lu(1094) + lu(1110) = lu(1110) - lu(1015) * lu(1094) + lu(1111) = lu(1111) - lu(1016) * lu(1094) + lu(1112) = lu(1112) - lu(1017) * lu(1094) + lu(1113) = lu(1113) - lu(1018) * lu(1094) + lu(1114) = lu(1114) - lu(1019) * lu(1094) + lu(1136) = lu(1136) - lu(1000) * lu(1135) + lu(1137) = lu(1137) - lu(1001) * lu(1135) + lu(1138) = lu(1138) - lu(1002) * lu(1135) + lu(1139) = lu(1139) - lu(1003) * lu(1135) + lu(1140) = lu(1140) - lu(1004) * lu(1135) + lu(1141) = lu(1141) - lu(1005) * lu(1135) + lu(1142) = lu(1142) - lu(1006) * lu(1135) + lu(1143) = lu(1143) - lu(1007) * lu(1135) + lu(1144) = lu(1144) - lu(1008) * lu(1135) + lu(1145) = lu(1145) - lu(1009) * lu(1135) + lu(1146) = lu(1146) - lu(1010) * lu(1135) + lu(1147) = lu(1147) - lu(1011) * lu(1135) + lu(1148) = lu(1148) - lu(1012) * lu(1135) + lu(1149) = lu(1149) - lu(1013) * lu(1135) + lu(1150) = lu(1150) - lu(1014) * lu(1135) + lu(1151) = lu(1151) - lu(1015) * lu(1135) + lu(1152) = lu(1152) - lu(1016) * lu(1135) + lu(1153) = lu(1153) - lu(1017) * lu(1135) + lu(1154) = lu(1154) - lu(1018) * lu(1135) + lu(1155) = lu(1155) - lu(1019) * lu(1135) + lu(1177) = lu(1177) - lu(1000) * lu(1176) + lu(1178) = lu(1178) - lu(1001) * lu(1176) + lu(1179) = lu(1179) - lu(1002) * lu(1176) + lu(1180) = lu(1180) - lu(1003) * lu(1176) + lu(1181) = lu(1181) - lu(1004) * lu(1176) + lu(1182) = lu(1182) - lu(1005) * lu(1176) + lu(1183) = lu(1183) - lu(1006) * lu(1176) + lu(1184) = lu(1184) - lu(1007) * lu(1176) + lu(1185) = lu(1185) - lu(1008) * lu(1176) + lu(1186) = lu(1186) - lu(1009) * lu(1176) + lu(1187) = lu(1187) - lu(1010) * lu(1176) + lu(1188) = lu(1188) - lu(1011) * lu(1176) + lu(1189) = lu(1189) - lu(1012) * lu(1176) + lu(1190) = lu(1190) - lu(1013) * lu(1176) + lu(1191) = lu(1191) - lu(1014) * lu(1176) + lu(1192) = lu(1192) - lu(1015) * lu(1176) + lu(1193) = lu(1193) - lu(1016) * lu(1176) + lu(1194) = lu(1194) - lu(1017) * lu(1176) + lu(1195) = lu(1195) - lu(1018) * lu(1176) + lu(1196) = lu(1196) - lu(1019) * lu(1176) + lu(1236) = lu(1236) - lu(1000) * lu(1235) + lu(1237) = lu(1237) - lu(1001) * lu(1235) + lu(1238) = lu(1238) - lu(1002) * lu(1235) + lu(1239) = lu(1239) - lu(1003) * lu(1235) + lu(1240) = lu(1240) - lu(1004) * lu(1235) + lu(1241) = lu(1241) - lu(1005) * lu(1235) + lu(1242) = lu(1242) - lu(1006) * lu(1235) + lu(1243) = lu(1243) - lu(1007) * lu(1235) + lu(1244) = lu(1244) - lu(1008) * lu(1235) + lu(1245) = lu(1245) - lu(1009) * lu(1235) + lu(1246) = lu(1246) - lu(1010) * lu(1235) + lu(1247) = lu(1247) - lu(1011) * lu(1235) + lu(1248) = lu(1248) - lu(1012) * lu(1235) + lu(1249) = lu(1249) - lu(1013) * lu(1235) + lu(1250) = lu(1250) - lu(1014) * lu(1235) + lu(1251) = lu(1251) - lu(1015) * lu(1235) + lu(1252) = lu(1252) - lu(1016) * lu(1235) + lu(1253) = lu(1253) - lu(1017) * lu(1235) + lu(1254) = lu(1254) - lu(1018) * lu(1235) + lu(1255) = lu(1255) - lu(1019) * lu(1235) + lu(1278) = lu(1278) - lu(1000) * lu(1277) + lu(1279) = lu(1279) - lu(1001) * lu(1277) + lu(1280) = lu(1280) - lu(1002) * lu(1277) + lu(1281) = lu(1281) - lu(1003) * lu(1277) + lu(1282) = lu(1282) - lu(1004) * lu(1277) + lu(1283) = lu(1283) - lu(1005) * lu(1277) + lu(1284) = lu(1284) - lu(1006) * lu(1277) + lu(1285) = lu(1285) - lu(1007) * lu(1277) + lu(1286) = lu(1286) - lu(1008) * lu(1277) + lu(1287) = lu(1287) - lu(1009) * lu(1277) + lu(1288) = lu(1288) - lu(1010) * lu(1277) + lu(1289) = lu(1289) - lu(1011) * lu(1277) + lu(1290) = lu(1290) - lu(1012) * lu(1277) + lu(1291) = lu(1291) - lu(1013) * lu(1277) + lu(1292) = lu(1292) - lu(1014) * lu(1277) + lu(1293) = lu(1293) - lu(1015) * lu(1277) + lu(1294) = lu(1294) - lu(1016) * lu(1277) + lu(1295) = lu(1295) - lu(1017) * lu(1277) + lu(1296) = lu(1296) - lu(1018) * lu(1277) + lu(1297) = lu(1297) - lu(1019) * lu(1277) + lu(1322) = lu(1322) - lu(1000) * lu(1321) + lu(1323) = lu(1323) - lu(1001) * lu(1321) + lu(1324) = lu(1324) - lu(1002) * lu(1321) + lu(1325) = lu(1325) - lu(1003) * lu(1321) + lu(1326) = lu(1326) - lu(1004) * lu(1321) + lu(1327) = lu(1327) - lu(1005) * lu(1321) + lu(1328) = lu(1328) - lu(1006) * lu(1321) + lu(1329) = lu(1329) - lu(1007) * lu(1321) + lu(1330) = lu(1330) - lu(1008) * lu(1321) + lu(1331) = lu(1331) - lu(1009) * lu(1321) + lu(1332) = lu(1332) - lu(1010) * lu(1321) + lu(1333) = lu(1333) - lu(1011) * lu(1321) + lu(1334) = lu(1334) - lu(1012) * lu(1321) + lu(1335) = lu(1335) - lu(1013) * lu(1321) + lu(1336) = lu(1336) - lu(1014) * lu(1321) + lu(1337) = lu(1337) - lu(1015) * lu(1321) + lu(1338) = lu(1338) - lu(1016) * lu(1321) + lu(1339) = lu(1339) - lu(1017) * lu(1321) + lu(1340) = lu(1340) - lu(1018) * lu(1321) + lu(1341) = lu(1341) - lu(1019) * lu(1321) + lu(1357) = lu(1357) - lu(1000) * lu(1356) + lu(1358) = lu(1358) - lu(1001) * lu(1356) + lu(1359) = lu(1359) - lu(1002) * lu(1356) + lu(1360) = lu(1360) - lu(1003) * lu(1356) + lu(1361) = lu(1361) - lu(1004) * lu(1356) + lu(1362) = lu(1362) - lu(1005) * lu(1356) + lu(1363) = lu(1363) - lu(1006) * lu(1356) + lu(1364) = lu(1364) - lu(1007) * lu(1356) + lu(1365) = lu(1365) - lu(1008) * lu(1356) + lu(1366) = lu(1366) - lu(1009) * lu(1356) + lu(1367) = lu(1367) - lu(1010) * lu(1356) + lu(1368) = lu(1368) - lu(1011) * lu(1356) + lu(1369) = lu(1369) - lu(1012) * lu(1356) + lu(1370) = lu(1370) - lu(1013) * lu(1356) + lu(1371) = lu(1371) - lu(1014) * lu(1356) + lu(1372) = lu(1372) - lu(1015) * lu(1356) + lu(1373) = lu(1373) - lu(1016) * lu(1356) + lu(1374) = lu(1374) - lu(1017) * lu(1356) + lu(1375) = lu(1375) - lu(1018) * lu(1356) + lu(1376) = lu(1376) - lu(1019) * lu(1356) + lu(1401) = lu(1401) - lu(1000) * lu(1400) + lu(1402) = lu(1402) - lu(1001) * lu(1400) + lu(1403) = lu(1403) - lu(1002) * lu(1400) + lu(1404) = lu(1404) - lu(1003) * lu(1400) + lu(1405) = lu(1405) - lu(1004) * lu(1400) + lu(1406) = lu(1406) - lu(1005) * lu(1400) + lu(1407) = lu(1407) - lu(1006) * lu(1400) + lu(1408) = lu(1408) - lu(1007) * lu(1400) + lu(1409) = lu(1409) - lu(1008) * lu(1400) + lu(1410) = lu(1410) - lu(1009) * lu(1400) + lu(1411) = lu(1411) - lu(1010) * lu(1400) + lu(1412) = lu(1412) - lu(1011) * lu(1400) + lu(1413) = lu(1413) - lu(1012) * lu(1400) + lu(1414) = lu(1414) - lu(1013) * lu(1400) + lu(1415) = lu(1415) - lu(1014) * lu(1400) + lu(1416) = lu(1416) - lu(1015) * lu(1400) + lu(1417) = lu(1417) - lu(1016) * lu(1400) + lu(1418) = lu(1418) - lu(1017) * lu(1400) + lu(1419) = lu(1419) - lu(1018) * lu(1400) + lu(1420) = lu(1420) - lu(1019) * lu(1400) + lu(1442) = lu(1442) - lu(1000) * lu(1441) + lu(1443) = lu(1443) - lu(1001) * lu(1441) + lu(1444) = lu(1444) - lu(1002) * lu(1441) + lu(1445) = lu(1445) - lu(1003) * lu(1441) + lu(1446) = lu(1446) - lu(1004) * lu(1441) + lu(1447) = lu(1447) - lu(1005) * lu(1441) + lu(1448) = lu(1448) - lu(1006) * lu(1441) + lu(1449) = lu(1449) - lu(1007) * lu(1441) + lu(1450) = lu(1450) - lu(1008) * lu(1441) + lu(1451) = lu(1451) - lu(1009) * lu(1441) + lu(1452) = lu(1452) - lu(1010) * lu(1441) + lu(1453) = lu(1453) - lu(1011) * lu(1441) + lu(1454) = lu(1454) - lu(1012) * lu(1441) + lu(1455) = lu(1455) - lu(1013) * lu(1441) + lu(1456) = lu(1456) - lu(1014) * lu(1441) + lu(1457) = lu(1457) - lu(1015) * lu(1441) + lu(1458) = lu(1458) - lu(1016) * lu(1441) + lu(1459) = lu(1459) - lu(1017) * lu(1441) + lu(1460) = lu(1460) - lu(1018) * lu(1441) + lu(1461) = lu(1461) - lu(1019) * lu(1441) + lu(1477) = lu(1477) - lu(1000) * lu(1476) + lu(1478) = lu(1478) - lu(1001) * lu(1476) + lu(1479) = lu(1479) - lu(1002) * lu(1476) + lu(1480) = lu(1480) - lu(1003) * lu(1476) + lu(1481) = lu(1481) - lu(1004) * lu(1476) + lu(1482) = lu(1482) - lu(1005) * lu(1476) + lu(1483) = lu(1483) - lu(1006) * lu(1476) + lu(1484) = lu(1484) - lu(1007) * lu(1476) + lu(1485) = lu(1485) - lu(1008) * lu(1476) + lu(1486) = lu(1486) - lu(1009) * lu(1476) + lu(1487) = lu(1487) - lu(1010) * lu(1476) + lu(1488) = lu(1488) - lu(1011) * lu(1476) + lu(1489) = lu(1489) - lu(1012) * lu(1476) + lu(1490) = lu(1490) - lu(1013) * lu(1476) + lu(1491) = lu(1491) - lu(1014) * lu(1476) + lu(1492) = lu(1492) - lu(1015) * lu(1476) + lu(1493) = lu(1493) - lu(1016) * lu(1476) + lu(1494) = lu(1494) - lu(1017) * lu(1476) + lu(1495) = lu(1495) - lu(1018) * lu(1476) + lu(1496) = lu(1496) - lu(1019) * lu(1476) + lu(1521) = lu(1521) - lu(1000) * lu(1520) + lu(1522) = lu(1522) - lu(1001) * lu(1520) + lu(1523) = lu(1523) - lu(1002) * lu(1520) + lu(1524) = lu(1524) - lu(1003) * lu(1520) + lu(1525) = lu(1525) - lu(1004) * lu(1520) + lu(1526) = lu(1526) - lu(1005) * lu(1520) + lu(1527) = lu(1527) - lu(1006) * lu(1520) + lu(1528) = lu(1528) - lu(1007) * lu(1520) + lu(1529) = lu(1529) - lu(1008) * lu(1520) + lu(1530) = lu(1530) - lu(1009) * lu(1520) + lu(1531) = lu(1531) - lu(1010) * lu(1520) + lu(1532) = lu(1532) - lu(1011) * lu(1520) + lu(1533) = lu(1533) - lu(1012) * lu(1520) + lu(1534) = lu(1534) - lu(1013) * lu(1520) + lu(1535) = lu(1535) - lu(1014) * lu(1520) + lu(1536) = lu(1536) - lu(1015) * lu(1520) + lu(1537) = lu(1537) - lu(1016) * lu(1520) + lu(1538) = lu(1538) - lu(1017) * lu(1520) + lu(1539) = lu(1539) - lu(1018) * lu(1520) + lu(1540) = lu(1540) - lu(1019) * lu(1520) + lu(1563) = lu(1563) - lu(1000) * lu(1562) + lu(1564) = lu(1564) - lu(1001) * lu(1562) + lu(1565) = lu(1565) - lu(1002) * lu(1562) + lu(1566) = lu(1566) - lu(1003) * lu(1562) + lu(1567) = lu(1567) - lu(1004) * lu(1562) + lu(1568) = lu(1568) - lu(1005) * lu(1562) + lu(1569) = lu(1569) - lu(1006) * lu(1562) + lu(1570) = lu(1570) - lu(1007) * lu(1562) + lu(1571) = lu(1571) - lu(1008) * lu(1562) + lu(1572) = lu(1572) - lu(1009) * lu(1562) + lu(1573) = lu(1573) - lu(1010) * lu(1562) + lu(1574) = lu(1574) - lu(1011) * lu(1562) + lu(1575) = lu(1575) - lu(1012) * lu(1562) + lu(1576) = lu(1576) - lu(1013) * lu(1562) + lu(1577) = lu(1577) - lu(1014) * lu(1562) + lu(1578) = lu(1578) - lu(1015) * lu(1562) + lu(1579) = lu(1579) - lu(1016) * lu(1562) + lu(1580) = lu(1580) - lu(1017) * lu(1562) + lu(1581) = lu(1581) - lu(1018) * lu(1562) + lu(1582) = lu(1582) - lu(1019) * lu(1562) + lu(1602) = lu(1602) - lu(1000) * lu(1601) + lu(1603) = lu(1603) - lu(1001) * lu(1601) + lu(1604) = lu(1604) - lu(1002) * lu(1601) + lu(1605) = lu(1605) - lu(1003) * lu(1601) + lu(1606) = lu(1606) - lu(1004) * lu(1601) + lu(1607) = lu(1607) - lu(1005) * lu(1601) + lu(1608) = lu(1608) - lu(1006) * lu(1601) + lu(1609) = lu(1609) - lu(1007) * lu(1601) + lu(1610) = lu(1610) - lu(1008) * lu(1601) + lu(1611) = lu(1611) - lu(1009) * lu(1601) + lu(1612) = lu(1612) - lu(1010) * lu(1601) + lu(1613) = lu(1613) - lu(1011) * lu(1601) + lu(1614) = lu(1614) - lu(1012) * lu(1601) + lu(1615) = lu(1615) - lu(1013) * lu(1601) + lu(1616) = lu(1616) - lu(1014) * lu(1601) + lu(1617) = lu(1617) - lu(1015) * lu(1601) + lu(1618) = lu(1618) - lu(1016) * lu(1601) + lu(1619) = lu(1619) - lu(1017) * lu(1601) + lu(1620) = lu(1620) - lu(1018) * lu(1601) + lu(1621) = lu(1621) - lu(1019) * lu(1601) + lu(1634) = lu(1634) - lu(1000) * lu(1633) + lu(1635) = lu(1635) - lu(1001) * lu(1633) + lu(1636) = lu(1636) - lu(1002) * lu(1633) + lu(1637) = lu(1637) - lu(1003) * lu(1633) + lu(1638) = lu(1638) - lu(1004) * lu(1633) + lu(1639) = lu(1639) - lu(1005) * lu(1633) + lu(1640) = lu(1640) - lu(1006) * lu(1633) + lu(1641) = lu(1641) - lu(1007) * lu(1633) + lu(1642) = lu(1642) - lu(1008) * lu(1633) + lu(1643) = lu(1643) - lu(1009) * lu(1633) + lu(1644) = lu(1644) - lu(1010) * lu(1633) + lu(1645) = lu(1645) - lu(1011) * lu(1633) + lu(1646) = lu(1646) - lu(1012) * lu(1633) + lu(1647) = lu(1647) - lu(1013) * lu(1633) + lu(1648) = lu(1648) - lu(1014) * lu(1633) + lu(1649) = lu(1649) - lu(1015) * lu(1633) + lu(1650) = lu(1650) - lu(1016) * lu(1633) + lu(1651) = lu(1651) - lu(1017) * lu(1633) + lu(1652) = lu(1652) - lu(1018) * lu(1633) + lu(1653) = lu(1653) - lu(1019) * lu(1633) + lu(1669) = lu(1669) - lu(1000) * lu(1668) + lu(1670) = lu(1670) - lu(1001) * lu(1668) + lu(1671) = lu(1671) - lu(1002) * lu(1668) + lu(1672) = lu(1672) - lu(1003) * lu(1668) + lu(1673) = lu(1673) - lu(1004) * lu(1668) + lu(1674) = lu(1674) - lu(1005) * lu(1668) + lu(1675) = lu(1675) - lu(1006) * lu(1668) + lu(1676) = lu(1676) - lu(1007) * lu(1668) + lu(1677) = lu(1677) - lu(1008) * lu(1668) + lu(1678) = lu(1678) - lu(1009) * lu(1668) + lu(1679) = lu(1679) - lu(1010) * lu(1668) + lu(1680) = lu(1680) - lu(1011) * lu(1668) + lu(1681) = lu(1681) - lu(1012) * lu(1668) + lu(1682) = lu(1682) - lu(1013) * lu(1668) + lu(1683) = lu(1683) - lu(1014) * lu(1668) + lu(1684) = lu(1684) - lu(1015) * lu(1668) + lu(1685) = lu(1685) - lu(1016) * lu(1668) + lu(1686) = lu(1686) - lu(1017) * lu(1668) + lu(1687) = lu(1687) - lu(1018) * lu(1668) + lu(1688) = lu(1688) - lu(1019) * lu(1668) + lu(1711) = lu(1711) - lu(1000) * lu(1710) + lu(1712) = lu(1712) - lu(1001) * lu(1710) + lu(1713) = lu(1713) - lu(1002) * lu(1710) + lu(1714) = lu(1714) - lu(1003) * lu(1710) + lu(1715) = lu(1715) - lu(1004) * lu(1710) + lu(1716) = lu(1716) - lu(1005) * lu(1710) + lu(1717) = lu(1717) - lu(1006) * lu(1710) + lu(1718) = lu(1718) - lu(1007) * lu(1710) + lu(1719) = lu(1719) - lu(1008) * lu(1710) + lu(1720) = lu(1720) - lu(1009) * lu(1710) + lu(1721) = lu(1721) - lu(1010) * lu(1710) + lu(1722) = lu(1722) - lu(1011) * lu(1710) + lu(1723) = lu(1723) - lu(1012) * lu(1710) + lu(1724) = lu(1724) - lu(1013) * lu(1710) + lu(1725) = lu(1725) - lu(1014) * lu(1710) + lu(1726) = lu(1726) - lu(1015) * lu(1710) + lu(1727) = lu(1727) - lu(1016) * lu(1710) + lu(1728) = lu(1728) - lu(1017) * lu(1710) + lu(1729) = lu(1729) - lu(1018) * lu(1710) + lu(1730) = lu(1730) - lu(1019) * lu(1710) + lu(1740) = lu(1740) - lu(1000) * lu(1739) + lu(1741) = lu(1741) - lu(1001) * lu(1739) + lu(1742) = lu(1742) - lu(1002) * lu(1739) + lu(1743) = lu(1743) - lu(1003) * lu(1739) + lu(1744) = lu(1744) - lu(1004) * lu(1739) + lu(1745) = lu(1745) - lu(1005) * lu(1739) + lu(1746) = lu(1746) - lu(1006) * lu(1739) + lu(1747) = lu(1747) - lu(1007) * lu(1739) + lu(1748) = lu(1748) - lu(1008) * lu(1739) + lu(1749) = lu(1749) - lu(1009) * lu(1739) + lu(1750) = lu(1750) - lu(1010) * lu(1739) + lu(1751) = lu(1751) - lu(1011) * lu(1739) + lu(1752) = lu(1752) - lu(1012) * lu(1739) + lu(1753) = lu(1753) - lu(1013) * lu(1739) + lu(1754) = lu(1754) - lu(1014) * lu(1739) + lu(1755) = lu(1755) - lu(1015) * lu(1739) + lu(1756) = lu(1756) - lu(1016) * lu(1739) + lu(1757) = lu(1757) - lu(1017) * lu(1739) + lu(1758) = lu(1758) - lu(1018) * lu(1739) + lu(1759) = lu(1759) - lu(1019) * lu(1739) + lu(1779) = lu(1779) - lu(1000) * lu(1778) + lu(1780) = lu(1780) - lu(1001) * lu(1778) + lu(1781) = lu(1781) - lu(1002) * lu(1778) + lu(1782) = lu(1782) - lu(1003) * lu(1778) + lu(1783) = lu(1783) - lu(1004) * lu(1778) + lu(1784) = lu(1784) - lu(1005) * lu(1778) + lu(1785) = lu(1785) - lu(1006) * lu(1778) + lu(1786) = lu(1786) - lu(1007) * lu(1778) + lu(1787) = lu(1787) - lu(1008) * lu(1778) + lu(1788) = lu(1788) - lu(1009) * lu(1778) + lu(1789) = lu(1789) - lu(1010) * lu(1778) + lu(1790) = lu(1790) - lu(1011) * lu(1778) + lu(1791) = lu(1791) - lu(1012) * lu(1778) + lu(1792) = lu(1792) - lu(1013) * lu(1778) + lu(1793) = lu(1793) - lu(1014) * lu(1778) + lu(1794) = lu(1794) - lu(1015) * lu(1778) + lu(1795) = lu(1795) - lu(1016) * lu(1778) + lu(1796) = lu(1796) - lu(1017) * lu(1778) + lu(1797) = lu(1797) - lu(1018) * lu(1778) + lu(1798) = lu(1798) - lu(1019) * lu(1778) + lu(1837) = lu(1837) - lu(1000) * lu(1836) + lu(1838) = lu(1838) - lu(1001) * lu(1836) + lu(1839) = lu(1839) - lu(1002) * lu(1836) + lu(1840) = lu(1840) - lu(1003) * lu(1836) + lu(1841) = lu(1841) - lu(1004) * lu(1836) + lu(1842) = lu(1842) - lu(1005) * lu(1836) + lu(1843) = lu(1843) - lu(1006) * lu(1836) + lu(1844) = lu(1844) - lu(1007) * lu(1836) + lu(1845) = lu(1845) - lu(1008) * lu(1836) + lu(1846) = lu(1846) - lu(1009) * lu(1836) + lu(1847) = lu(1847) - lu(1010) * lu(1836) + lu(1848) = lu(1848) - lu(1011) * lu(1836) + lu(1849) = lu(1849) - lu(1012) * lu(1836) + lu(1850) = lu(1850) - lu(1013) * lu(1836) + lu(1851) = lu(1851) - lu(1014) * lu(1836) + lu(1852) = lu(1852) - lu(1015) * lu(1836) + lu(1853) = lu(1853) - lu(1016) * lu(1836) + lu(1854) = lu(1854) - lu(1017) * lu(1836) + lu(1855) = lu(1855) - lu(1018) * lu(1836) + lu(1856) = lu(1856) - lu(1019) * lu(1836) + lu(1049) = 1._r8 / lu(1049) + lu(1050) = lu(1050) * lu(1049) + lu(1051) = lu(1051) * lu(1049) + lu(1052) = lu(1052) * lu(1049) + lu(1053) = lu(1053) * lu(1049) + lu(1054) = lu(1054) * lu(1049) + lu(1055) = lu(1055) * lu(1049) + lu(1056) = lu(1056) * lu(1049) + lu(1057) = lu(1057) * lu(1049) + lu(1058) = lu(1058) * lu(1049) + lu(1059) = lu(1059) * lu(1049) + lu(1060) = lu(1060) * lu(1049) + lu(1061) = lu(1061) * lu(1049) + lu(1062) = lu(1062) * lu(1049) + lu(1063) = lu(1063) * lu(1049) + lu(1064) = lu(1064) * lu(1049) + lu(1065) = lu(1065) * lu(1049) + lu(1066) = lu(1066) * lu(1049) + lu(1067) = lu(1067) * lu(1049) + lu(1068) = lu(1068) * lu(1049) + lu(1096) = lu(1096) - lu(1050) * lu(1095) + lu(1097) = lu(1097) - lu(1051) * lu(1095) + lu(1098) = lu(1098) - lu(1052) * lu(1095) + lu(1099) = lu(1099) - lu(1053) * lu(1095) + lu(1100) = lu(1100) - lu(1054) * lu(1095) + lu(1101) = lu(1101) - lu(1055) * lu(1095) + lu(1102) = lu(1102) - lu(1056) * lu(1095) + lu(1103) = lu(1103) - lu(1057) * lu(1095) + lu(1104) = lu(1104) - lu(1058) * lu(1095) + lu(1105) = lu(1105) - lu(1059) * lu(1095) + lu(1106) = lu(1106) - lu(1060) * lu(1095) + lu(1107) = lu(1107) - lu(1061) * lu(1095) + lu(1108) = lu(1108) - lu(1062) * lu(1095) + lu(1109) = lu(1109) - lu(1063) * lu(1095) + lu(1110) = lu(1110) - lu(1064) * lu(1095) + lu(1111) = lu(1111) - lu(1065) * lu(1095) + lu(1112) = lu(1112) - lu(1066) * lu(1095) + lu(1113) = lu(1113) - lu(1067) * lu(1095) + lu(1114) = lu(1114) - lu(1068) * lu(1095) + lu(1137) = lu(1137) - lu(1050) * lu(1136) + lu(1138) = lu(1138) - lu(1051) * lu(1136) + lu(1139) = lu(1139) - lu(1052) * lu(1136) + lu(1140) = lu(1140) - lu(1053) * lu(1136) + lu(1141) = lu(1141) - lu(1054) * lu(1136) + lu(1142) = lu(1142) - lu(1055) * lu(1136) + lu(1143) = lu(1143) - lu(1056) * lu(1136) + lu(1144) = lu(1144) - lu(1057) * lu(1136) + lu(1145) = lu(1145) - lu(1058) * lu(1136) + lu(1146) = lu(1146) - lu(1059) * lu(1136) + lu(1147) = lu(1147) - lu(1060) * lu(1136) + lu(1148) = lu(1148) - lu(1061) * lu(1136) + lu(1149) = lu(1149) - lu(1062) * lu(1136) + lu(1150) = lu(1150) - lu(1063) * lu(1136) + lu(1151) = lu(1151) - lu(1064) * lu(1136) + lu(1152) = lu(1152) - lu(1065) * lu(1136) + lu(1153) = lu(1153) - lu(1066) * lu(1136) + lu(1154) = lu(1154) - lu(1067) * lu(1136) + lu(1155) = lu(1155) - lu(1068) * lu(1136) + lu(1178) = lu(1178) - lu(1050) * lu(1177) + lu(1179) = lu(1179) - lu(1051) * lu(1177) + lu(1180) = lu(1180) - lu(1052) * lu(1177) + lu(1181) = lu(1181) - lu(1053) * lu(1177) + lu(1182) = lu(1182) - lu(1054) * lu(1177) + lu(1183) = lu(1183) - lu(1055) * lu(1177) + lu(1184) = lu(1184) - lu(1056) * lu(1177) + lu(1185) = lu(1185) - lu(1057) * lu(1177) + lu(1186) = lu(1186) - lu(1058) * lu(1177) + lu(1187) = lu(1187) - lu(1059) * lu(1177) + lu(1188) = lu(1188) - lu(1060) * lu(1177) + lu(1189) = lu(1189) - lu(1061) * lu(1177) + lu(1190) = lu(1190) - lu(1062) * lu(1177) + lu(1191) = lu(1191) - lu(1063) * lu(1177) + lu(1192) = lu(1192) - lu(1064) * lu(1177) + lu(1193) = lu(1193) - lu(1065) * lu(1177) + lu(1194) = lu(1194) - lu(1066) * lu(1177) + lu(1195) = lu(1195) - lu(1067) * lu(1177) + lu(1196) = lu(1196) - lu(1068) * lu(1177) + lu(1237) = lu(1237) - lu(1050) * lu(1236) + lu(1238) = lu(1238) - lu(1051) * lu(1236) + lu(1239) = lu(1239) - lu(1052) * lu(1236) + lu(1240) = lu(1240) - lu(1053) * lu(1236) + lu(1241) = lu(1241) - lu(1054) * lu(1236) + lu(1242) = lu(1242) - lu(1055) * lu(1236) + lu(1243) = lu(1243) - lu(1056) * lu(1236) + lu(1244) = lu(1244) - lu(1057) * lu(1236) + lu(1245) = lu(1245) - lu(1058) * lu(1236) + lu(1246) = lu(1246) - lu(1059) * lu(1236) + lu(1247) = lu(1247) - lu(1060) * lu(1236) + lu(1248) = lu(1248) - lu(1061) * lu(1236) + lu(1249) = lu(1249) - lu(1062) * lu(1236) + lu(1250) = lu(1250) - lu(1063) * lu(1236) + lu(1251) = lu(1251) - lu(1064) * lu(1236) + lu(1252) = lu(1252) - lu(1065) * lu(1236) + lu(1253) = lu(1253) - lu(1066) * lu(1236) + lu(1254) = lu(1254) - lu(1067) * lu(1236) + lu(1255) = lu(1255) - lu(1068) * lu(1236) + lu(1279) = lu(1279) - lu(1050) * lu(1278) + lu(1280) = lu(1280) - lu(1051) * lu(1278) + lu(1281) = lu(1281) - lu(1052) * lu(1278) + lu(1282) = lu(1282) - lu(1053) * lu(1278) + lu(1283) = lu(1283) - lu(1054) * lu(1278) + lu(1284) = lu(1284) - lu(1055) * lu(1278) + lu(1285) = lu(1285) - lu(1056) * lu(1278) + lu(1286) = lu(1286) - lu(1057) * lu(1278) + lu(1287) = lu(1287) - lu(1058) * lu(1278) + lu(1288) = lu(1288) - lu(1059) * lu(1278) + lu(1289) = lu(1289) - lu(1060) * lu(1278) + lu(1290) = lu(1290) - lu(1061) * lu(1278) + lu(1291) = lu(1291) - lu(1062) * lu(1278) + lu(1292) = lu(1292) - lu(1063) * lu(1278) + lu(1293) = lu(1293) - lu(1064) * lu(1278) + lu(1294) = lu(1294) - lu(1065) * lu(1278) + lu(1295) = lu(1295) - lu(1066) * lu(1278) + lu(1296) = lu(1296) - lu(1067) * lu(1278) + lu(1297) = lu(1297) - lu(1068) * lu(1278) + lu(1323) = lu(1323) - lu(1050) * lu(1322) + lu(1324) = lu(1324) - lu(1051) * lu(1322) + lu(1325) = lu(1325) - lu(1052) * lu(1322) + lu(1326) = lu(1326) - lu(1053) * lu(1322) + lu(1327) = lu(1327) - lu(1054) * lu(1322) + lu(1328) = lu(1328) - lu(1055) * lu(1322) + lu(1329) = lu(1329) - lu(1056) * lu(1322) + lu(1330) = lu(1330) - lu(1057) * lu(1322) + lu(1331) = lu(1331) - lu(1058) * lu(1322) + lu(1332) = lu(1332) - lu(1059) * lu(1322) + lu(1333) = lu(1333) - lu(1060) * lu(1322) + lu(1334) = lu(1334) - lu(1061) * lu(1322) + lu(1335) = lu(1335) - lu(1062) * lu(1322) + lu(1336) = lu(1336) - lu(1063) * lu(1322) + lu(1337) = lu(1337) - lu(1064) * lu(1322) + lu(1338) = lu(1338) - lu(1065) * lu(1322) + lu(1339) = lu(1339) - lu(1066) * lu(1322) + lu(1340) = lu(1340) - lu(1067) * lu(1322) + lu(1341) = lu(1341) - lu(1068) * lu(1322) + lu(1358) = lu(1358) - lu(1050) * lu(1357) + lu(1359) = lu(1359) - lu(1051) * lu(1357) + lu(1360) = lu(1360) - lu(1052) * lu(1357) + lu(1361) = lu(1361) - lu(1053) * lu(1357) + lu(1362) = lu(1362) - lu(1054) * lu(1357) + lu(1363) = lu(1363) - lu(1055) * lu(1357) + lu(1364) = lu(1364) - lu(1056) * lu(1357) + lu(1365) = lu(1365) - lu(1057) * lu(1357) + lu(1366) = lu(1366) - lu(1058) * lu(1357) + lu(1367) = lu(1367) - lu(1059) * lu(1357) + lu(1368) = lu(1368) - lu(1060) * lu(1357) + lu(1369) = lu(1369) - lu(1061) * lu(1357) + lu(1370) = lu(1370) - lu(1062) * lu(1357) + lu(1371) = lu(1371) - lu(1063) * lu(1357) + lu(1372) = lu(1372) - lu(1064) * lu(1357) + lu(1373) = lu(1373) - lu(1065) * lu(1357) + lu(1374) = lu(1374) - lu(1066) * lu(1357) + lu(1375) = lu(1375) - lu(1067) * lu(1357) + lu(1376) = lu(1376) - lu(1068) * lu(1357) + lu(1402) = lu(1402) - lu(1050) * lu(1401) + lu(1403) = lu(1403) - lu(1051) * lu(1401) + lu(1404) = lu(1404) - lu(1052) * lu(1401) + lu(1405) = lu(1405) - lu(1053) * lu(1401) + lu(1406) = lu(1406) - lu(1054) * lu(1401) + lu(1407) = lu(1407) - lu(1055) * lu(1401) + lu(1408) = lu(1408) - lu(1056) * lu(1401) + lu(1409) = lu(1409) - lu(1057) * lu(1401) + lu(1410) = lu(1410) - lu(1058) * lu(1401) + lu(1411) = lu(1411) - lu(1059) * lu(1401) + lu(1412) = lu(1412) - lu(1060) * lu(1401) + lu(1413) = lu(1413) - lu(1061) * lu(1401) + lu(1414) = lu(1414) - lu(1062) * lu(1401) + lu(1415) = lu(1415) - lu(1063) * lu(1401) + lu(1416) = lu(1416) - lu(1064) * lu(1401) + lu(1417) = lu(1417) - lu(1065) * lu(1401) + lu(1418) = lu(1418) - lu(1066) * lu(1401) + lu(1419) = lu(1419) - lu(1067) * lu(1401) + lu(1420) = lu(1420) - lu(1068) * lu(1401) + lu(1443) = lu(1443) - lu(1050) * lu(1442) + lu(1444) = lu(1444) - lu(1051) * lu(1442) + lu(1445) = lu(1445) - lu(1052) * lu(1442) + lu(1446) = lu(1446) - lu(1053) * lu(1442) + lu(1447) = lu(1447) - lu(1054) * lu(1442) + lu(1448) = lu(1448) - lu(1055) * lu(1442) + lu(1449) = lu(1449) - lu(1056) * lu(1442) + lu(1450) = lu(1450) - lu(1057) * lu(1442) + lu(1451) = lu(1451) - lu(1058) * lu(1442) + lu(1452) = lu(1452) - lu(1059) * lu(1442) + lu(1453) = lu(1453) - lu(1060) * lu(1442) + lu(1454) = lu(1454) - lu(1061) * lu(1442) + lu(1455) = lu(1455) - lu(1062) * lu(1442) + lu(1456) = lu(1456) - lu(1063) * lu(1442) + lu(1457) = lu(1457) - lu(1064) * lu(1442) + lu(1458) = lu(1458) - lu(1065) * lu(1442) + lu(1459) = lu(1459) - lu(1066) * lu(1442) + lu(1460) = lu(1460) - lu(1067) * lu(1442) + lu(1461) = lu(1461) - lu(1068) * lu(1442) + lu(1478) = lu(1478) - lu(1050) * lu(1477) + lu(1479) = lu(1479) - lu(1051) * lu(1477) + lu(1480) = lu(1480) - lu(1052) * lu(1477) + lu(1481) = lu(1481) - lu(1053) * lu(1477) + lu(1482) = lu(1482) - lu(1054) * lu(1477) + lu(1483) = lu(1483) - lu(1055) * lu(1477) + lu(1484) = lu(1484) - lu(1056) * lu(1477) + lu(1485) = lu(1485) - lu(1057) * lu(1477) + lu(1486) = lu(1486) - lu(1058) * lu(1477) + lu(1487) = lu(1487) - lu(1059) * lu(1477) + lu(1488) = lu(1488) - lu(1060) * lu(1477) + lu(1489) = lu(1489) - lu(1061) * lu(1477) + lu(1490) = lu(1490) - lu(1062) * lu(1477) + lu(1491) = lu(1491) - lu(1063) * lu(1477) + lu(1492) = lu(1492) - lu(1064) * lu(1477) + lu(1493) = lu(1493) - lu(1065) * lu(1477) + lu(1494) = lu(1494) - lu(1066) * lu(1477) + lu(1495) = lu(1495) - lu(1067) * lu(1477) + lu(1496) = lu(1496) - lu(1068) * lu(1477) + lu(1522) = lu(1522) - lu(1050) * lu(1521) + lu(1523) = lu(1523) - lu(1051) * lu(1521) + lu(1524) = lu(1524) - lu(1052) * lu(1521) + lu(1525) = lu(1525) - lu(1053) * lu(1521) + lu(1526) = lu(1526) - lu(1054) * lu(1521) + lu(1527) = lu(1527) - lu(1055) * lu(1521) + lu(1528) = lu(1528) - lu(1056) * lu(1521) + lu(1529) = lu(1529) - lu(1057) * lu(1521) + lu(1530) = lu(1530) - lu(1058) * lu(1521) + lu(1531) = lu(1531) - lu(1059) * lu(1521) + lu(1532) = lu(1532) - lu(1060) * lu(1521) + lu(1533) = lu(1533) - lu(1061) * lu(1521) + lu(1534) = lu(1534) - lu(1062) * lu(1521) + lu(1535) = lu(1535) - lu(1063) * lu(1521) + lu(1536) = lu(1536) - lu(1064) * lu(1521) + lu(1537) = lu(1537) - lu(1065) * lu(1521) + lu(1538) = lu(1538) - lu(1066) * lu(1521) + lu(1539) = lu(1539) - lu(1067) * lu(1521) + lu(1540) = lu(1540) - lu(1068) * lu(1521) + lu(1564) = lu(1564) - lu(1050) * lu(1563) + lu(1565) = lu(1565) - lu(1051) * lu(1563) + lu(1566) = lu(1566) - lu(1052) * lu(1563) + lu(1567) = lu(1567) - lu(1053) * lu(1563) + lu(1568) = lu(1568) - lu(1054) * lu(1563) + lu(1569) = lu(1569) - lu(1055) * lu(1563) + lu(1570) = lu(1570) - lu(1056) * lu(1563) + lu(1571) = lu(1571) - lu(1057) * lu(1563) + lu(1572) = lu(1572) - lu(1058) * lu(1563) + lu(1573) = lu(1573) - lu(1059) * lu(1563) + lu(1574) = lu(1574) - lu(1060) * lu(1563) + lu(1575) = lu(1575) - lu(1061) * lu(1563) + lu(1576) = lu(1576) - lu(1062) * lu(1563) + lu(1577) = lu(1577) - lu(1063) * lu(1563) + lu(1578) = lu(1578) - lu(1064) * lu(1563) + lu(1579) = lu(1579) - lu(1065) * lu(1563) + lu(1580) = lu(1580) - lu(1066) * lu(1563) + lu(1581) = lu(1581) - lu(1067) * lu(1563) + lu(1582) = lu(1582) - lu(1068) * lu(1563) + lu(1603) = lu(1603) - lu(1050) * lu(1602) + lu(1604) = lu(1604) - lu(1051) * lu(1602) + lu(1605) = lu(1605) - lu(1052) * lu(1602) + lu(1606) = lu(1606) - lu(1053) * lu(1602) + lu(1607) = lu(1607) - lu(1054) * lu(1602) + lu(1608) = lu(1608) - lu(1055) * lu(1602) + lu(1609) = lu(1609) - lu(1056) * lu(1602) + lu(1610) = lu(1610) - lu(1057) * lu(1602) + lu(1611) = lu(1611) - lu(1058) * lu(1602) + lu(1612) = lu(1612) - lu(1059) * lu(1602) + lu(1613) = lu(1613) - lu(1060) * lu(1602) + lu(1614) = lu(1614) - lu(1061) * lu(1602) + lu(1615) = lu(1615) - lu(1062) * lu(1602) + lu(1616) = lu(1616) - lu(1063) * lu(1602) + lu(1617) = lu(1617) - lu(1064) * lu(1602) + lu(1618) = lu(1618) - lu(1065) * lu(1602) + lu(1619) = lu(1619) - lu(1066) * lu(1602) + lu(1620) = lu(1620) - lu(1067) * lu(1602) + lu(1621) = lu(1621) - lu(1068) * lu(1602) + lu(1635) = lu(1635) - lu(1050) * lu(1634) + lu(1636) = lu(1636) - lu(1051) * lu(1634) + lu(1637) = lu(1637) - lu(1052) * lu(1634) + lu(1638) = lu(1638) - lu(1053) * lu(1634) + lu(1639) = lu(1639) - lu(1054) * lu(1634) + lu(1640) = lu(1640) - lu(1055) * lu(1634) + lu(1641) = lu(1641) - lu(1056) * lu(1634) + lu(1642) = lu(1642) - lu(1057) * lu(1634) + lu(1643) = lu(1643) - lu(1058) * lu(1634) + lu(1644) = lu(1644) - lu(1059) * lu(1634) + lu(1645) = lu(1645) - lu(1060) * lu(1634) + lu(1646) = lu(1646) - lu(1061) * lu(1634) + lu(1647) = lu(1647) - lu(1062) * lu(1634) + lu(1648) = lu(1648) - lu(1063) * lu(1634) + lu(1649) = lu(1649) - lu(1064) * lu(1634) + lu(1650) = lu(1650) - lu(1065) * lu(1634) + lu(1651) = lu(1651) - lu(1066) * lu(1634) + lu(1652) = lu(1652) - lu(1067) * lu(1634) + lu(1653) = lu(1653) - lu(1068) * lu(1634) + lu(1670) = lu(1670) - lu(1050) * lu(1669) + lu(1671) = lu(1671) - lu(1051) * lu(1669) + lu(1672) = lu(1672) - lu(1052) * lu(1669) + lu(1673) = lu(1673) - lu(1053) * lu(1669) + lu(1674) = lu(1674) - lu(1054) * lu(1669) + lu(1675) = lu(1675) - lu(1055) * lu(1669) + lu(1676) = lu(1676) - lu(1056) * lu(1669) + lu(1677) = lu(1677) - lu(1057) * lu(1669) + lu(1678) = lu(1678) - lu(1058) * lu(1669) + lu(1679) = lu(1679) - lu(1059) * lu(1669) + lu(1680) = lu(1680) - lu(1060) * lu(1669) + lu(1681) = lu(1681) - lu(1061) * lu(1669) + lu(1682) = lu(1682) - lu(1062) * lu(1669) + lu(1683) = lu(1683) - lu(1063) * lu(1669) + lu(1684) = lu(1684) - lu(1064) * lu(1669) + lu(1685) = lu(1685) - lu(1065) * lu(1669) + lu(1686) = lu(1686) - lu(1066) * lu(1669) + lu(1687) = lu(1687) - lu(1067) * lu(1669) + lu(1688) = lu(1688) - lu(1068) * lu(1669) + lu(1712) = lu(1712) - lu(1050) * lu(1711) + lu(1713) = lu(1713) - lu(1051) * lu(1711) + lu(1714) = lu(1714) - lu(1052) * lu(1711) + lu(1715) = lu(1715) - lu(1053) * lu(1711) + lu(1716) = lu(1716) - lu(1054) * lu(1711) + lu(1717) = lu(1717) - lu(1055) * lu(1711) + lu(1718) = lu(1718) - lu(1056) * lu(1711) + lu(1719) = lu(1719) - lu(1057) * lu(1711) + lu(1720) = lu(1720) - lu(1058) * lu(1711) + lu(1721) = lu(1721) - lu(1059) * lu(1711) + lu(1722) = lu(1722) - lu(1060) * lu(1711) + lu(1723) = lu(1723) - lu(1061) * lu(1711) + lu(1724) = lu(1724) - lu(1062) * lu(1711) + lu(1725) = lu(1725) - lu(1063) * lu(1711) + lu(1726) = lu(1726) - lu(1064) * lu(1711) + lu(1727) = lu(1727) - lu(1065) * lu(1711) + lu(1728) = lu(1728) - lu(1066) * lu(1711) + lu(1729) = lu(1729) - lu(1067) * lu(1711) + lu(1730) = lu(1730) - lu(1068) * lu(1711) + lu(1741) = lu(1741) - lu(1050) * lu(1740) + lu(1742) = lu(1742) - lu(1051) * lu(1740) + lu(1743) = lu(1743) - lu(1052) * lu(1740) + lu(1744) = lu(1744) - lu(1053) * lu(1740) + lu(1745) = lu(1745) - lu(1054) * lu(1740) + lu(1746) = lu(1746) - lu(1055) * lu(1740) + lu(1747) = lu(1747) - lu(1056) * lu(1740) + lu(1748) = lu(1748) - lu(1057) * lu(1740) + lu(1749) = lu(1749) - lu(1058) * lu(1740) + lu(1750) = lu(1750) - lu(1059) * lu(1740) + lu(1751) = lu(1751) - lu(1060) * lu(1740) + lu(1752) = lu(1752) - lu(1061) * lu(1740) + lu(1753) = lu(1753) - lu(1062) * lu(1740) + lu(1754) = lu(1754) - lu(1063) * lu(1740) + lu(1755) = lu(1755) - lu(1064) * lu(1740) + lu(1756) = lu(1756) - lu(1065) * lu(1740) + lu(1757) = lu(1757) - lu(1066) * lu(1740) + lu(1758) = lu(1758) - lu(1067) * lu(1740) + lu(1759) = lu(1759) - lu(1068) * lu(1740) + lu(1780) = lu(1780) - lu(1050) * lu(1779) + lu(1781) = lu(1781) - lu(1051) * lu(1779) + lu(1782) = lu(1782) - lu(1052) * lu(1779) + lu(1783) = lu(1783) - lu(1053) * lu(1779) + lu(1784) = lu(1784) - lu(1054) * lu(1779) + lu(1785) = lu(1785) - lu(1055) * lu(1779) + lu(1786) = lu(1786) - lu(1056) * lu(1779) + lu(1787) = lu(1787) - lu(1057) * lu(1779) + lu(1788) = lu(1788) - lu(1058) * lu(1779) + lu(1789) = lu(1789) - lu(1059) * lu(1779) + lu(1790) = lu(1790) - lu(1060) * lu(1779) + lu(1791) = lu(1791) - lu(1061) * lu(1779) + lu(1792) = lu(1792) - lu(1062) * lu(1779) + lu(1793) = lu(1793) - lu(1063) * lu(1779) + lu(1794) = lu(1794) - lu(1064) * lu(1779) + lu(1795) = lu(1795) - lu(1065) * lu(1779) + lu(1796) = lu(1796) - lu(1066) * lu(1779) + lu(1797) = lu(1797) - lu(1067) * lu(1779) + lu(1798) = lu(1798) - lu(1068) * lu(1779) + lu(1838) = lu(1838) - lu(1050) * lu(1837) + lu(1839) = lu(1839) - lu(1051) * lu(1837) + lu(1840) = lu(1840) - lu(1052) * lu(1837) + lu(1841) = lu(1841) - lu(1053) * lu(1837) + lu(1842) = lu(1842) - lu(1054) * lu(1837) + lu(1843) = lu(1843) - lu(1055) * lu(1837) + lu(1844) = lu(1844) - lu(1056) * lu(1837) + lu(1845) = lu(1845) - lu(1057) * lu(1837) + lu(1846) = lu(1846) - lu(1058) * lu(1837) + lu(1847) = lu(1847) - lu(1059) * lu(1837) + lu(1848) = lu(1848) - lu(1060) * lu(1837) + lu(1849) = lu(1849) - lu(1061) * lu(1837) + lu(1850) = lu(1850) - lu(1062) * lu(1837) + lu(1851) = lu(1851) - lu(1063) * lu(1837) + lu(1852) = lu(1852) - lu(1064) * lu(1837) + lu(1853) = lu(1853) - lu(1065) * lu(1837) + lu(1854) = lu(1854) - lu(1066) * lu(1837) + lu(1855) = lu(1855) - lu(1067) * lu(1837) + lu(1856) = lu(1856) - lu(1068) * lu(1837) + lu(1096) = 1._r8 / lu(1096) + lu(1097) = lu(1097) * lu(1096) + lu(1098) = lu(1098) * lu(1096) + lu(1099) = lu(1099) * lu(1096) + lu(1100) = lu(1100) * lu(1096) + lu(1101) = lu(1101) * lu(1096) + lu(1102) = lu(1102) * lu(1096) + lu(1103) = lu(1103) * lu(1096) + lu(1104) = lu(1104) * lu(1096) + lu(1105) = lu(1105) * lu(1096) + lu(1106) = lu(1106) * lu(1096) + lu(1107) = lu(1107) * lu(1096) + lu(1108) = lu(1108) * lu(1096) + lu(1109) = lu(1109) * lu(1096) + lu(1110) = lu(1110) * lu(1096) + lu(1111) = lu(1111) * lu(1096) + lu(1112) = lu(1112) * lu(1096) + lu(1113) = lu(1113) * lu(1096) + lu(1114) = lu(1114) * lu(1096) + lu(1138) = lu(1138) - lu(1097) * lu(1137) + lu(1139) = lu(1139) - lu(1098) * lu(1137) + lu(1140) = lu(1140) - lu(1099) * lu(1137) + lu(1141) = lu(1141) - lu(1100) * lu(1137) + lu(1142) = lu(1142) - lu(1101) * lu(1137) + lu(1143) = lu(1143) - lu(1102) * lu(1137) + lu(1144) = lu(1144) - lu(1103) * lu(1137) + lu(1145) = lu(1145) - lu(1104) * lu(1137) + lu(1146) = lu(1146) - lu(1105) * lu(1137) + lu(1147) = lu(1147) - lu(1106) * lu(1137) + lu(1148) = lu(1148) - lu(1107) * lu(1137) + lu(1149) = lu(1149) - lu(1108) * lu(1137) + lu(1150) = lu(1150) - lu(1109) * lu(1137) + lu(1151) = lu(1151) - lu(1110) * lu(1137) + lu(1152) = lu(1152) - lu(1111) * lu(1137) + lu(1153) = lu(1153) - lu(1112) * lu(1137) + lu(1154) = lu(1154) - lu(1113) * lu(1137) + lu(1155) = lu(1155) - lu(1114) * lu(1137) + lu(1179) = lu(1179) - lu(1097) * lu(1178) + lu(1180) = lu(1180) - lu(1098) * lu(1178) + lu(1181) = lu(1181) - lu(1099) * lu(1178) + lu(1182) = lu(1182) - lu(1100) * lu(1178) + lu(1183) = lu(1183) - lu(1101) * lu(1178) + lu(1184) = lu(1184) - lu(1102) * lu(1178) + lu(1185) = lu(1185) - lu(1103) * lu(1178) + lu(1186) = lu(1186) - lu(1104) * lu(1178) + lu(1187) = lu(1187) - lu(1105) * lu(1178) + lu(1188) = lu(1188) - lu(1106) * lu(1178) + lu(1189) = lu(1189) - lu(1107) * lu(1178) + lu(1190) = lu(1190) - lu(1108) * lu(1178) + lu(1191) = lu(1191) - lu(1109) * lu(1178) + lu(1192) = lu(1192) - lu(1110) * lu(1178) + lu(1193) = lu(1193) - lu(1111) * lu(1178) + lu(1194) = lu(1194) - lu(1112) * lu(1178) + lu(1195) = lu(1195) - lu(1113) * lu(1178) + lu(1196) = lu(1196) - lu(1114) * lu(1178) + lu(1238) = lu(1238) - lu(1097) * lu(1237) + lu(1239) = lu(1239) - lu(1098) * lu(1237) + lu(1240) = lu(1240) - lu(1099) * lu(1237) + lu(1241) = lu(1241) - lu(1100) * lu(1237) + lu(1242) = lu(1242) - lu(1101) * lu(1237) + lu(1243) = lu(1243) - lu(1102) * lu(1237) + lu(1244) = lu(1244) - lu(1103) * lu(1237) + lu(1245) = lu(1245) - lu(1104) * lu(1237) + lu(1246) = lu(1246) - lu(1105) * lu(1237) + lu(1247) = lu(1247) - lu(1106) * lu(1237) + lu(1248) = lu(1248) - lu(1107) * lu(1237) + lu(1249) = lu(1249) - lu(1108) * lu(1237) + lu(1250) = lu(1250) - lu(1109) * lu(1237) + lu(1251) = lu(1251) - lu(1110) * lu(1237) + lu(1252) = lu(1252) - lu(1111) * lu(1237) + lu(1253) = lu(1253) - lu(1112) * lu(1237) + lu(1254) = lu(1254) - lu(1113) * lu(1237) + lu(1255) = lu(1255) - lu(1114) * lu(1237) + lu(1280) = lu(1280) - lu(1097) * lu(1279) + lu(1281) = lu(1281) - lu(1098) * lu(1279) + lu(1282) = lu(1282) - lu(1099) * lu(1279) + lu(1283) = lu(1283) - lu(1100) * lu(1279) + lu(1284) = lu(1284) - lu(1101) * lu(1279) + lu(1285) = lu(1285) - lu(1102) * lu(1279) + lu(1286) = lu(1286) - lu(1103) * lu(1279) + lu(1287) = lu(1287) - lu(1104) * lu(1279) + lu(1288) = lu(1288) - lu(1105) * lu(1279) + lu(1289) = lu(1289) - lu(1106) * lu(1279) + lu(1290) = lu(1290) - lu(1107) * lu(1279) + lu(1291) = lu(1291) - lu(1108) * lu(1279) + lu(1292) = lu(1292) - lu(1109) * lu(1279) + lu(1293) = lu(1293) - lu(1110) * lu(1279) + lu(1294) = lu(1294) - lu(1111) * lu(1279) + lu(1295) = lu(1295) - lu(1112) * lu(1279) + lu(1296) = lu(1296) - lu(1113) * lu(1279) + lu(1297) = lu(1297) - lu(1114) * lu(1279) + lu(1324) = lu(1324) - lu(1097) * lu(1323) + lu(1325) = lu(1325) - lu(1098) * lu(1323) + lu(1326) = lu(1326) - lu(1099) * lu(1323) + lu(1327) = lu(1327) - lu(1100) * lu(1323) + lu(1328) = lu(1328) - lu(1101) * lu(1323) + lu(1329) = lu(1329) - lu(1102) * lu(1323) + lu(1330) = lu(1330) - lu(1103) * lu(1323) + lu(1331) = lu(1331) - lu(1104) * lu(1323) + lu(1332) = lu(1332) - lu(1105) * lu(1323) + lu(1333) = lu(1333) - lu(1106) * lu(1323) + lu(1334) = lu(1334) - lu(1107) * lu(1323) + lu(1335) = lu(1335) - lu(1108) * lu(1323) + lu(1336) = lu(1336) - lu(1109) * lu(1323) + lu(1337) = lu(1337) - lu(1110) * lu(1323) + lu(1338) = lu(1338) - lu(1111) * lu(1323) + lu(1339) = lu(1339) - lu(1112) * lu(1323) + lu(1340) = lu(1340) - lu(1113) * lu(1323) + lu(1341) = lu(1341) - lu(1114) * lu(1323) + lu(1359) = lu(1359) - lu(1097) * lu(1358) + lu(1360) = lu(1360) - lu(1098) * lu(1358) + lu(1361) = lu(1361) - lu(1099) * lu(1358) + lu(1362) = lu(1362) - lu(1100) * lu(1358) + lu(1363) = lu(1363) - lu(1101) * lu(1358) + lu(1364) = lu(1364) - lu(1102) * lu(1358) + lu(1365) = lu(1365) - lu(1103) * lu(1358) + lu(1366) = lu(1366) - lu(1104) * lu(1358) + lu(1367) = lu(1367) - lu(1105) * lu(1358) + lu(1368) = lu(1368) - lu(1106) * lu(1358) + lu(1369) = lu(1369) - lu(1107) * lu(1358) + lu(1370) = lu(1370) - lu(1108) * lu(1358) + lu(1371) = lu(1371) - lu(1109) * lu(1358) + lu(1372) = lu(1372) - lu(1110) * lu(1358) + lu(1373) = lu(1373) - lu(1111) * lu(1358) + lu(1374) = lu(1374) - lu(1112) * lu(1358) + lu(1375) = lu(1375) - lu(1113) * lu(1358) + lu(1376) = lu(1376) - lu(1114) * lu(1358) + lu(1403) = lu(1403) - lu(1097) * lu(1402) + lu(1404) = lu(1404) - lu(1098) * lu(1402) + lu(1405) = lu(1405) - lu(1099) * lu(1402) + lu(1406) = lu(1406) - lu(1100) * lu(1402) + lu(1407) = lu(1407) - lu(1101) * lu(1402) + lu(1408) = lu(1408) - lu(1102) * lu(1402) + lu(1409) = lu(1409) - lu(1103) * lu(1402) + lu(1410) = lu(1410) - lu(1104) * lu(1402) + lu(1411) = lu(1411) - lu(1105) * lu(1402) + lu(1412) = lu(1412) - lu(1106) * lu(1402) + lu(1413) = lu(1413) - lu(1107) * lu(1402) + lu(1414) = lu(1414) - lu(1108) * lu(1402) + lu(1415) = lu(1415) - lu(1109) * lu(1402) + lu(1416) = lu(1416) - lu(1110) * lu(1402) + lu(1417) = lu(1417) - lu(1111) * lu(1402) + lu(1418) = lu(1418) - lu(1112) * lu(1402) + lu(1419) = lu(1419) - lu(1113) * lu(1402) + lu(1420) = lu(1420) - lu(1114) * lu(1402) + lu(1444) = lu(1444) - lu(1097) * lu(1443) + lu(1445) = lu(1445) - lu(1098) * lu(1443) + lu(1446) = lu(1446) - lu(1099) * lu(1443) + lu(1447) = lu(1447) - lu(1100) * lu(1443) + lu(1448) = lu(1448) - lu(1101) * lu(1443) + lu(1449) = lu(1449) - lu(1102) * lu(1443) + lu(1450) = lu(1450) - lu(1103) * lu(1443) + lu(1451) = lu(1451) - lu(1104) * lu(1443) + lu(1452) = lu(1452) - lu(1105) * lu(1443) + lu(1453) = lu(1453) - lu(1106) * lu(1443) + lu(1454) = lu(1454) - lu(1107) * lu(1443) + lu(1455) = lu(1455) - lu(1108) * lu(1443) + lu(1456) = lu(1456) - lu(1109) * lu(1443) + lu(1457) = lu(1457) - lu(1110) * lu(1443) + lu(1458) = lu(1458) - lu(1111) * lu(1443) + lu(1459) = lu(1459) - lu(1112) * lu(1443) + lu(1460) = lu(1460) - lu(1113) * lu(1443) + lu(1461) = lu(1461) - lu(1114) * lu(1443) + lu(1479) = lu(1479) - lu(1097) * lu(1478) + lu(1480) = lu(1480) - lu(1098) * lu(1478) + lu(1481) = lu(1481) - lu(1099) * lu(1478) + lu(1482) = lu(1482) - lu(1100) * lu(1478) + lu(1483) = lu(1483) - lu(1101) * lu(1478) + lu(1484) = lu(1484) - lu(1102) * lu(1478) + lu(1485) = lu(1485) - lu(1103) * lu(1478) + lu(1486) = lu(1486) - lu(1104) * lu(1478) + lu(1487) = lu(1487) - lu(1105) * lu(1478) + lu(1488) = lu(1488) - lu(1106) * lu(1478) + lu(1489) = lu(1489) - lu(1107) * lu(1478) + lu(1490) = lu(1490) - lu(1108) * lu(1478) + lu(1491) = lu(1491) - lu(1109) * lu(1478) + lu(1492) = lu(1492) - lu(1110) * lu(1478) + lu(1493) = lu(1493) - lu(1111) * lu(1478) + lu(1494) = lu(1494) - lu(1112) * lu(1478) + lu(1495) = lu(1495) - lu(1113) * lu(1478) + lu(1496) = lu(1496) - lu(1114) * lu(1478) + lu(1523) = lu(1523) - lu(1097) * lu(1522) + lu(1524) = lu(1524) - lu(1098) * lu(1522) + lu(1525) = lu(1525) - lu(1099) * lu(1522) + lu(1526) = lu(1526) - lu(1100) * lu(1522) + lu(1527) = lu(1527) - lu(1101) * lu(1522) + lu(1528) = lu(1528) - lu(1102) * lu(1522) + lu(1529) = lu(1529) - lu(1103) * lu(1522) + lu(1530) = lu(1530) - lu(1104) * lu(1522) + lu(1531) = lu(1531) - lu(1105) * lu(1522) + lu(1532) = lu(1532) - lu(1106) * lu(1522) + lu(1533) = lu(1533) - lu(1107) * lu(1522) + lu(1534) = lu(1534) - lu(1108) * lu(1522) + lu(1535) = lu(1535) - lu(1109) * lu(1522) + lu(1536) = lu(1536) - lu(1110) * lu(1522) + lu(1537) = lu(1537) - lu(1111) * lu(1522) + lu(1538) = lu(1538) - lu(1112) * lu(1522) + lu(1539) = lu(1539) - lu(1113) * lu(1522) + lu(1540) = lu(1540) - lu(1114) * lu(1522) + lu(1565) = lu(1565) - lu(1097) * lu(1564) + lu(1566) = lu(1566) - lu(1098) * lu(1564) + lu(1567) = lu(1567) - lu(1099) * lu(1564) + lu(1568) = lu(1568) - lu(1100) * lu(1564) + lu(1569) = lu(1569) - lu(1101) * lu(1564) + lu(1570) = lu(1570) - lu(1102) * lu(1564) + lu(1571) = lu(1571) - lu(1103) * lu(1564) + lu(1572) = lu(1572) - lu(1104) * lu(1564) + lu(1573) = lu(1573) - lu(1105) * lu(1564) + lu(1574) = lu(1574) - lu(1106) * lu(1564) + lu(1575) = lu(1575) - lu(1107) * lu(1564) + lu(1576) = lu(1576) - lu(1108) * lu(1564) + lu(1577) = lu(1577) - lu(1109) * lu(1564) + lu(1578) = lu(1578) - lu(1110) * lu(1564) + lu(1579) = lu(1579) - lu(1111) * lu(1564) + lu(1580) = lu(1580) - lu(1112) * lu(1564) + lu(1581) = lu(1581) - lu(1113) * lu(1564) + lu(1582) = lu(1582) - lu(1114) * lu(1564) + lu(1604) = lu(1604) - lu(1097) * lu(1603) + lu(1605) = lu(1605) - lu(1098) * lu(1603) + lu(1606) = lu(1606) - lu(1099) * lu(1603) + lu(1607) = lu(1607) - lu(1100) * lu(1603) + lu(1608) = lu(1608) - lu(1101) * lu(1603) + lu(1609) = lu(1609) - lu(1102) * lu(1603) + lu(1610) = lu(1610) - lu(1103) * lu(1603) + lu(1611) = lu(1611) - lu(1104) * lu(1603) + lu(1612) = lu(1612) - lu(1105) * lu(1603) + lu(1613) = lu(1613) - lu(1106) * lu(1603) + lu(1614) = lu(1614) - lu(1107) * lu(1603) + lu(1615) = lu(1615) - lu(1108) * lu(1603) + lu(1616) = lu(1616) - lu(1109) * lu(1603) + lu(1617) = lu(1617) - lu(1110) * lu(1603) + lu(1618) = lu(1618) - lu(1111) * lu(1603) + lu(1619) = lu(1619) - lu(1112) * lu(1603) + lu(1620) = lu(1620) - lu(1113) * lu(1603) + lu(1621) = lu(1621) - lu(1114) * lu(1603) + lu(1636) = lu(1636) - lu(1097) * lu(1635) + lu(1637) = lu(1637) - lu(1098) * lu(1635) + lu(1638) = lu(1638) - lu(1099) * lu(1635) + lu(1639) = lu(1639) - lu(1100) * lu(1635) + lu(1640) = lu(1640) - lu(1101) * lu(1635) + lu(1641) = lu(1641) - lu(1102) * lu(1635) + lu(1642) = lu(1642) - lu(1103) * lu(1635) + lu(1643) = lu(1643) - lu(1104) * lu(1635) + lu(1644) = lu(1644) - lu(1105) * lu(1635) + lu(1645) = lu(1645) - lu(1106) * lu(1635) + lu(1646) = lu(1646) - lu(1107) * lu(1635) + lu(1647) = lu(1647) - lu(1108) * lu(1635) + lu(1648) = lu(1648) - lu(1109) * lu(1635) + lu(1649) = lu(1649) - lu(1110) * lu(1635) + lu(1650) = lu(1650) - lu(1111) * lu(1635) + lu(1651) = lu(1651) - lu(1112) * lu(1635) + lu(1652) = lu(1652) - lu(1113) * lu(1635) + lu(1653) = lu(1653) - lu(1114) * lu(1635) + lu(1671) = lu(1671) - lu(1097) * lu(1670) + lu(1672) = lu(1672) - lu(1098) * lu(1670) + lu(1673) = lu(1673) - lu(1099) * lu(1670) + lu(1674) = lu(1674) - lu(1100) * lu(1670) + lu(1675) = lu(1675) - lu(1101) * lu(1670) + lu(1676) = lu(1676) - lu(1102) * lu(1670) + lu(1677) = lu(1677) - lu(1103) * lu(1670) + lu(1678) = lu(1678) - lu(1104) * lu(1670) + lu(1679) = lu(1679) - lu(1105) * lu(1670) + lu(1680) = lu(1680) - lu(1106) * lu(1670) + lu(1681) = lu(1681) - lu(1107) * lu(1670) + lu(1682) = lu(1682) - lu(1108) * lu(1670) + lu(1683) = lu(1683) - lu(1109) * lu(1670) + lu(1684) = lu(1684) - lu(1110) * lu(1670) + lu(1685) = lu(1685) - lu(1111) * lu(1670) + lu(1686) = lu(1686) - lu(1112) * lu(1670) + lu(1687) = lu(1687) - lu(1113) * lu(1670) + lu(1688) = lu(1688) - lu(1114) * lu(1670) + lu(1713) = lu(1713) - lu(1097) * lu(1712) + lu(1714) = lu(1714) - lu(1098) * lu(1712) + lu(1715) = lu(1715) - lu(1099) * lu(1712) + lu(1716) = lu(1716) - lu(1100) * lu(1712) + lu(1717) = lu(1717) - lu(1101) * lu(1712) + lu(1718) = lu(1718) - lu(1102) * lu(1712) + lu(1719) = lu(1719) - lu(1103) * lu(1712) + lu(1720) = lu(1720) - lu(1104) * lu(1712) + lu(1721) = lu(1721) - lu(1105) * lu(1712) + lu(1722) = lu(1722) - lu(1106) * lu(1712) + lu(1723) = lu(1723) - lu(1107) * lu(1712) + lu(1724) = lu(1724) - lu(1108) * lu(1712) + lu(1725) = lu(1725) - lu(1109) * lu(1712) + lu(1726) = lu(1726) - lu(1110) * lu(1712) + lu(1727) = lu(1727) - lu(1111) * lu(1712) + lu(1728) = lu(1728) - lu(1112) * lu(1712) + lu(1729) = lu(1729) - lu(1113) * lu(1712) + lu(1730) = lu(1730) - lu(1114) * lu(1712) + lu(1742) = lu(1742) - lu(1097) * lu(1741) + lu(1743) = lu(1743) - lu(1098) * lu(1741) + lu(1744) = lu(1744) - lu(1099) * lu(1741) + lu(1745) = lu(1745) - lu(1100) * lu(1741) + lu(1746) = lu(1746) - lu(1101) * lu(1741) + lu(1747) = lu(1747) - lu(1102) * lu(1741) + lu(1748) = lu(1748) - lu(1103) * lu(1741) + lu(1749) = lu(1749) - lu(1104) * lu(1741) + lu(1750) = lu(1750) - lu(1105) * lu(1741) + lu(1751) = lu(1751) - lu(1106) * lu(1741) + lu(1752) = lu(1752) - lu(1107) * lu(1741) + lu(1753) = lu(1753) - lu(1108) * lu(1741) + lu(1754) = lu(1754) - lu(1109) * lu(1741) + lu(1755) = lu(1755) - lu(1110) * lu(1741) + lu(1756) = lu(1756) - lu(1111) * lu(1741) + lu(1757) = lu(1757) - lu(1112) * lu(1741) + lu(1758) = lu(1758) - lu(1113) * lu(1741) + lu(1759) = lu(1759) - lu(1114) * lu(1741) + lu(1781) = lu(1781) - lu(1097) * lu(1780) + lu(1782) = lu(1782) - lu(1098) * lu(1780) + lu(1783) = lu(1783) - lu(1099) * lu(1780) + lu(1784) = lu(1784) - lu(1100) * lu(1780) + lu(1785) = lu(1785) - lu(1101) * lu(1780) + lu(1786) = lu(1786) - lu(1102) * lu(1780) + lu(1787) = lu(1787) - lu(1103) * lu(1780) + lu(1788) = lu(1788) - lu(1104) * lu(1780) + lu(1789) = lu(1789) - lu(1105) * lu(1780) + lu(1790) = lu(1790) - lu(1106) * lu(1780) + lu(1791) = lu(1791) - lu(1107) * lu(1780) + lu(1792) = lu(1792) - lu(1108) * lu(1780) + lu(1793) = lu(1793) - lu(1109) * lu(1780) + lu(1794) = lu(1794) - lu(1110) * lu(1780) + lu(1795) = lu(1795) - lu(1111) * lu(1780) + lu(1796) = lu(1796) - lu(1112) * lu(1780) + lu(1797) = lu(1797) - lu(1113) * lu(1780) + lu(1798) = lu(1798) - lu(1114) * lu(1780) + lu(1839) = lu(1839) - lu(1097) * lu(1838) + lu(1840) = lu(1840) - lu(1098) * lu(1838) + lu(1841) = lu(1841) - lu(1099) * lu(1838) + lu(1842) = lu(1842) - lu(1100) * lu(1838) + lu(1843) = lu(1843) - lu(1101) * lu(1838) + lu(1844) = lu(1844) - lu(1102) * lu(1838) + lu(1845) = lu(1845) - lu(1103) * lu(1838) + lu(1846) = lu(1846) - lu(1104) * lu(1838) + lu(1847) = lu(1847) - lu(1105) * lu(1838) + lu(1848) = lu(1848) - lu(1106) * lu(1838) + lu(1849) = lu(1849) - lu(1107) * lu(1838) + lu(1850) = lu(1850) - lu(1108) * lu(1838) + lu(1851) = lu(1851) - lu(1109) * lu(1838) + lu(1852) = lu(1852) - lu(1110) * lu(1838) + lu(1853) = lu(1853) - lu(1111) * lu(1838) + lu(1854) = lu(1854) - lu(1112) * lu(1838) + lu(1855) = lu(1855) - lu(1113) * lu(1838) + lu(1856) = lu(1856) - lu(1114) * lu(1838) end subroutine lu_fac20 - subroutine lu_fac21( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac21( lu ) 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,1115) = 1._r8 / lu(k,1115) - lu(k,1116) = lu(k,1116) * lu(k,1115) - lu(k,1117) = lu(k,1117) * lu(k,1115) - lu(k,1118) = lu(k,1118) * lu(k,1115) - lu(k,1119) = lu(k,1119) * lu(k,1115) - lu(k,1120) = lu(k,1120) * lu(k,1115) - lu(k,1121) = lu(k,1121) * lu(k,1115) - lu(k,1122) = lu(k,1122) * lu(k,1115) - lu(k,1123) = lu(k,1123) * lu(k,1115) - lu(k,1124) = lu(k,1124) * lu(k,1115) - lu(k,1125) = lu(k,1125) * lu(k,1115) - lu(k,1126) = lu(k,1126) * lu(k,1115) - lu(k,1127) = lu(k,1127) * lu(k,1115) - lu(k,1128) = lu(k,1128) * lu(k,1115) - lu(k,1129) = lu(k,1129) * lu(k,1115) - lu(k,1130) = lu(k,1130) * lu(k,1115) - lu(k,1131) = lu(k,1131) * lu(k,1115) - lu(k,1132) = lu(k,1132) * lu(k,1115) - lu(k,1160) = lu(k,1160) - lu(k,1116) * lu(k,1159) - lu(k,1161) = lu(k,1161) - lu(k,1117) * lu(k,1159) - lu(k,1162) = lu(k,1162) - lu(k,1118) * lu(k,1159) - lu(k,1163) = lu(k,1163) - lu(k,1119) * lu(k,1159) - lu(k,1164) = lu(k,1164) - lu(k,1120) * lu(k,1159) - lu(k,1165) = lu(k,1165) - lu(k,1121) * lu(k,1159) - lu(k,1166) = lu(k,1166) - lu(k,1122) * lu(k,1159) - lu(k,1167) = lu(k,1167) - lu(k,1123) * lu(k,1159) - lu(k,1168) = lu(k,1168) - lu(k,1124) * lu(k,1159) - lu(k,1169) = lu(k,1169) - lu(k,1125) * lu(k,1159) - lu(k,1170) = lu(k,1170) - lu(k,1126) * lu(k,1159) - lu(k,1171) = lu(k,1171) - lu(k,1127) * lu(k,1159) - lu(k,1172) = lu(k,1172) - lu(k,1128) * lu(k,1159) - lu(k,1173) = lu(k,1173) - lu(k,1129) * lu(k,1159) - lu(k,1174) = lu(k,1174) - lu(k,1130) * lu(k,1159) - lu(k,1175) = lu(k,1175) - lu(k,1131) * lu(k,1159) - lu(k,1176) = lu(k,1176) - lu(k,1132) * lu(k,1159) - lu(k,1201) = lu(k,1201) - lu(k,1116) * lu(k,1200) - lu(k,1202) = lu(k,1202) - lu(k,1117) * lu(k,1200) - lu(k,1203) = lu(k,1203) - lu(k,1118) * lu(k,1200) - lu(k,1204) = lu(k,1204) - lu(k,1119) * lu(k,1200) - lu(k,1205) = lu(k,1205) - lu(k,1120) * lu(k,1200) - lu(k,1206) = lu(k,1206) - lu(k,1121) * lu(k,1200) - lu(k,1207) = lu(k,1207) - lu(k,1122) * lu(k,1200) - lu(k,1208) = lu(k,1208) - lu(k,1123) * lu(k,1200) - lu(k,1209) = lu(k,1209) - lu(k,1124) * lu(k,1200) - lu(k,1210) = lu(k,1210) - lu(k,1125) * lu(k,1200) - lu(k,1211) = lu(k,1211) - lu(k,1126) * lu(k,1200) - lu(k,1212) = lu(k,1212) - lu(k,1127) * lu(k,1200) - lu(k,1213) = lu(k,1213) - lu(k,1128) * lu(k,1200) - lu(k,1214) = lu(k,1214) - lu(k,1129) * lu(k,1200) - lu(k,1215) = lu(k,1215) - lu(k,1130) * lu(k,1200) - lu(k,1216) = lu(k,1216) - lu(k,1131) * lu(k,1200) - lu(k,1217) = lu(k,1217) - lu(k,1132) * lu(k,1200) - lu(k,1250) = lu(k,1250) - lu(k,1116) * lu(k,1249) - lu(k,1251) = lu(k,1251) - lu(k,1117) * lu(k,1249) - lu(k,1252) = lu(k,1252) - lu(k,1118) * lu(k,1249) - lu(k,1253) = lu(k,1253) - lu(k,1119) * lu(k,1249) - lu(k,1254) = lu(k,1254) - lu(k,1120) * lu(k,1249) - lu(k,1255) = lu(k,1255) - lu(k,1121) * lu(k,1249) - lu(k,1256) = lu(k,1256) - lu(k,1122) * lu(k,1249) - lu(k,1257) = lu(k,1257) - lu(k,1123) * lu(k,1249) - lu(k,1258) = lu(k,1258) - lu(k,1124) * lu(k,1249) - lu(k,1259) = lu(k,1259) - lu(k,1125) * lu(k,1249) - lu(k,1260) = lu(k,1260) - lu(k,1126) * lu(k,1249) - lu(k,1261) = lu(k,1261) - lu(k,1127) * lu(k,1249) - lu(k,1262) = lu(k,1262) - lu(k,1128) * lu(k,1249) - lu(k,1263) = lu(k,1263) - lu(k,1129) * lu(k,1249) - lu(k,1264) = lu(k,1264) - lu(k,1130) * lu(k,1249) - lu(k,1265) = lu(k,1265) - lu(k,1131) * lu(k,1249) - lu(k,1266) = lu(k,1266) - lu(k,1132) * lu(k,1249) - lu(k,1289) = lu(k,1289) - lu(k,1116) * lu(k,1288) - lu(k,1290) = lu(k,1290) - lu(k,1117) * lu(k,1288) - lu(k,1291) = lu(k,1291) - lu(k,1118) * lu(k,1288) - lu(k,1292) = lu(k,1292) - lu(k,1119) * lu(k,1288) - lu(k,1293) = lu(k,1293) - lu(k,1120) * lu(k,1288) - lu(k,1294) = lu(k,1294) - lu(k,1121) * lu(k,1288) - lu(k,1295) = lu(k,1295) - lu(k,1122) * lu(k,1288) - lu(k,1296) = lu(k,1296) - lu(k,1123) * lu(k,1288) - lu(k,1297) = lu(k,1297) - lu(k,1124) * lu(k,1288) - lu(k,1298) = lu(k,1298) - lu(k,1125) * lu(k,1288) - lu(k,1299) = lu(k,1299) - lu(k,1126) * lu(k,1288) - lu(k,1300) = lu(k,1300) - lu(k,1127) * lu(k,1288) - lu(k,1301) = lu(k,1301) - lu(k,1128) * lu(k,1288) - lu(k,1302) = lu(k,1302) - lu(k,1129) * lu(k,1288) - lu(k,1303) = lu(k,1303) - lu(k,1130) * lu(k,1288) - lu(k,1304) = lu(k,1304) - lu(k,1131) * lu(k,1288) - lu(k,1305) = lu(k,1305) - lu(k,1132) * lu(k,1288) - lu(k,1324) = lu(k,1324) - lu(k,1116) * lu(k,1323) - lu(k,1325) = lu(k,1325) - lu(k,1117) * lu(k,1323) - lu(k,1326) = lu(k,1326) - lu(k,1118) * lu(k,1323) - lu(k,1327) = lu(k,1327) - lu(k,1119) * lu(k,1323) - lu(k,1328) = lu(k,1328) - lu(k,1120) * lu(k,1323) - lu(k,1329) = lu(k,1329) - lu(k,1121) * lu(k,1323) - lu(k,1330) = lu(k,1330) - lu(k,1122) * lu(k,1323) - lu(k,1331) = lu(k,1331) - lu(k,1123) * lu(k,1323) - lu(k,1332) = lu(k,1332) - lu(k,1124) * lu(k,1323) - lu(k,1333) = lu(k,1333) - lu(k,1125) * lu(k,1323) - lu(k,1334) = lu(k,1334) - lu(k,1126) * lu(k,1323) - lu(k,1335) = lu(k,1335) - lu(k,1127) * lu(k,1323) - lu(k,1336) = lu(k,1336) - lu(k,1128) * lu(k,1323) - lu(k,1337) = lu(k,1337) - lu(k,1129) * lu(k,1323) - lu(k,1338) = lu(k,1338) - lu(k,1130) * lu(k,1323) - lu(k,1339) = lu(k,1339) - lu(k,1131) * lu(k,1323) - lu(k,1340) = lu(k,1340) - lu(k,1132) * lu(k,1323) - lu(k,1368) = lu(k,1368) - lu(k,1116) * lu(k,1367) - lu(k,1369) = lu(k,1369) - lu(k,1117) * lu(k,1367) - lu(k,1370) = lu(k,1370) - lu(k,1118) * lu(k,1367) - lu(k,1371) = lu(k,1371) - lu(k,1119) * lu(k,1367) - lu(k,1372) = lu(k,1372) - lu(k,1120) * lu(k,1367) - lu(k,1373) = lu(k,1373) - lu(k,1121) * lu(k,1367) - lu(k,1374) = lu(k,1374) - lu(k,1122) * lu(k,1367) - lu(k,1375) = lu(k,1375) - lu(k,1123) * lu(k,1367) - lu(k,1376) = lu(k,1376) - lu(k,1124) * lu(k,1367) - lu(k,1377) = lu(k,1377) - lu(k,1125) * lu(k,1367) - lu(k,1378) = lu(k,1378) - lu(k,1126) * lu(k,1367) - lu(k,1379) = lu(k,1379) - lu(k,1127) * lu(k,1367) - lu(k,1380) = lu(k,1380) - lu(k,1128) * lu(k,1367) - lu(k,1381) = lu(k,1381) - lu(k,1129) * lu(k,1367) - lu(k,1382) = lu(k,1382) - lu(k,1130) * lu(k,1367) - lu(k,1383) = lu(k,1383) - lu(k,1131) * lu(k,1367) - lu(k,1384) = lu(k,1384) - lu(k,1132) * lu(k,1367) - lu(k,1427) = lu(k,1427) - lu(k,1116) * lu(k,1426) - lu(k,1428) = lu(k,1428) - lu(k,1117) * lu(k,1426) - lu(k,1429) = lu(k,1429) - lu(k,1118) * lu(k,1426) - lu(k,1430) = lu(k,1430) - lu(k,1119) * lu(k,1426) - lu(k,1431) = lu(k,1431) - lu(k,1120) * lu(k,1426) - lu(k,1432) = lu(k,1432) - lu(k,1121) * lu(k,1426) - lu(k,1433) = lu(k,1433) - lu(k,1122) * lu(k,1426) - lu(k,1434) = lu(k,1434) - lu(k,1123) * lu(k,1426) - lu(k,1435) = lu(k,1435) - lu(k,1124) * lu(k,1426) - lu(k,1436) = lu(k,1436) - lu(k,1125) * lu(k,1426) - lu(k,1437) = lu(k,1437) - lu(k,1126) * lu(k,1426) - lu(k,1438) = lu(k,1438) - lu(k,1127) * lu(k,1426) - lu(k,1439) = lu(k,1439) - lu(k,1128) * lu(k,1426) - lu(k,1440) = lu(k,1440) - lu(k,1129) * lu(k,1426) - lu(k,1441) = lu(k,1441) - lu(k,1130) * lu(k,1426) - lu(k,1442) = lu(k,1442) - lu(k,1131) * lu(k,1426) - lu(k,1443) = lu(k,1443) - lu(k,1132) * lu(k,1426) - lu(k,1469) = lu(k,1469) - lu(k,1116) * lu(k,1468) - lu(k,1470) = lu(k,1470) - lu(k,1117) * lu(k,1468) - lu(k,1471) = lu(k,1471) - lu(k,1118) * lu(k,1468) - lu(k,1472) = lu(k,1472) - lu(k,1119) * lu(k,1468) - lu(k,1473) = lu(k,1473) - lu(k,1120) * lu(k,1468) - lu(k,1474) = lu(k,1474) - lu(k,1121) * lu(k,1468) - lu(k,1475) = lu(k,1475) - lu(k,1122) * lu(k,1468) - lu(k,1476) = lu(k,1476) - lu(k,1123) * lu(k,1468) - lu(k,1477) = lu(k,1477) - lu(k,1124) * lu(k,1468) - lu(k,1478) = lu(k,1478) - lu(k,1125) * lu(k,1468) - lu(k,1479) = lu(k,1479) - lu(k,1126) * lu(k,1468) - lu(k,1480) = lu(k,1480) - lu(k,1127) * lu(k,1468) - lu(k,1481) = lu(k,1481) - lu(k,1128) * lu(k,1468) - lu(k,1482) = lu(k,1482) - lu(k,1129) * lu(k,1468) - lu(k,1483) = lu(k,1483) - lu(k,1130) * lu(k,1468) - lu(k,1484) = lu(k,1484) - lu(k,1131) * lu(k,1468) - lu(k,1485) = lu(k,1485) - lu(k,1132) * lu(k,1468) - lu(k,1510) = lu(k,1510) - lu(k,1116) * lu(k,1509) - lu(k,1511) = lu(k,1511) - lu(k,1117) * lu(k,1509) - lu(k,1512) = lu(k,1512) - lu(k,1118) * lu(k,1509) - lu(k,1513) = lu(k,1513) - lu(k,1119) * lu(k,1509) - lu(k,1514) = lu(k,1514) - lu(k,1120) * lu(k,1509) - lu(k,1515) = lu(k,1515) - lu(k,1121) * lu(k,1509) - lu(k,1516) = lu(k,1516) - lu(k,1122) * lu(k,1509) - lu(k,1517) = lu(k,1517) - lu(k,1123) * lu(k,1509) - lu(k,1518) = lu(k,1518) - lu(k,1124) * lu(k,1509) - lu(k,1519) = lu(k,1519) - lu(k,1125) * lu(k,1509) - lu(k,1520) = lu(k,1520) - lu(k,1126) * lu(k,1509) - lu(k,1521) = lu(k,1521) - lu(k,1127) * lu(k,1509) - lu(k,1522) = lu(k,1522) - lu(k,1128) * lu(k,1509) - lu(k,1523) = lu(k,1523) - lu(k,1129) * lu(k,1509) - lu(k,1524) = lu(k,1524) - lu(k,1130) * lu(k,1509) - lu(k,1525) = lu(k,1525) - lu(k,1131) * lu(k,1509) - lu(k,1526) = lu(k,1526) - lu(k,1132) * lu(k,1509) - lu(k,1552) = lu(k,1552) - lu(k,1116) * lu(k,1551) - lu(k,1553) = lu(k,1553) - lu(k,1117) * lu(k,1551) - lu(k,1554) = lu(k,1554) - lu(k,1118) * lu(k,1551) - lu(k,1555) = lu(k,1555) - lu(k,1119) * lu(k,1551) - lu(k,1556) = lu(k,1556) - lu(k,1120) * lu(k,1551) - lu(k,1557) = lu(k,1557) - lu(k,1121) * lu(k,1551) - lu(k,1558) = lu(k,1558) - lu(k,1122) * lu(k,1551) - lu(k,1559) = lu(k,1559) - lu(k,1123) * lu(k,1551) - lu(k,1560) = lu(k,1560) - lu(k,1124) * lu(k,1551) - lu(k,1561) = lu(k,1561) - lu(k,1125) * lu(k,1551) - lu(k,1562) = lu(k,1562) - lu(k,1126) * lu(k,1551) - lu(k,1563) = lu(k,1563) - lu(k,1127) * lu(k,1551) - lu(k,1564) = lu(k,1564) - lu(k,1128) * lu(k,1551) - lu(k,1565) = lu(k,1565) - lu(k,1129) * lu(k,1551) - lu(k,1566) = lu(k,1566) - lu(k,1130) * lu(k,1551) - lu(k,1567) = lu(k,1567) - lu(k,1131) * lu(k,1551) - lu(k,1568) = lu(k,1568) - lu(k,1132) * lu(k,1551) - lu(k,1594) = lu(k,1594) - lu(k,1116) * lu(k,1593) - lu(k,1595) = lu(k,1595) - lu(k,1117) * lu(k,1593) - lu(k,1596) = lu(k,1596) - lu(k,1118) * lu(k,1593) - lu(k,1597) = lu(k,1597) - lu(k,1119) * lu(k,1593) - lu(k,1598) = lu(k,1598) - lu(k,1120) * lu(k,1593) - lu(k,1599) = lu(k,1599) - lu(k,1121) * lu(k,1593) - lu(k,1600) = lu(k,1600) - lu(k,1122) * lu(k,1593) - lu(k,1601) = lu(k,1601) - lu(k,1123) * lu(k,1593) - lu(k,1602) = lu(k,1602) - lu(k,1124) * lu(k,1593) - lu(k,1603) = lu(k,1603) - lu(k,1125) * lu(k,1593) - lu(k,1604) = lu(k,1604) - lu(k,1126) * lu(k,1593) - lu(k,1605) = lu(k,1605) - lu(k,1127) * lu(k,1593) - lu(k,1606) = lu(k,1606) - lu(k,1128) * lu(k,1593) - lu(k,1607) = lu(k,1607) - lu(k,1129) * lu(k,1593) - lu(k,1608) = lu(k,1608) - lu(k,1130) * lu(k,1593) - lu(k,1609) = lu(k,1609) - lu(k,1131) * lu(k,1593) - lu(k,1610) = lu(k,1610) - lu(k,1132) * lu(k,1593) - lu(k,1626) = lu(k,1626) - lu(k,1116) * lu(k,1625) - lu(k,1627) = lu(k,1627) - lu(k,1117) * lu(k,1625) - lu(k,1628) = lu(k,1628) - lu(k,1118) * lu(k,1625) - lu(k,1629) = lu(k,1629) - lu(k,1119) * lu(k,1625) - lu(k,1630) = lu(k,1630) - lu(k,1120) * lu(k,1625) - lu(k,1631) = lu(k,1631) - lu(k,1121) * lu(k,1625) - lu(k,1632) = lu(k,1632) - lu(k,1122) * lu(k,1625) - lu(k,1633) = lu(k,1633) - lu(k,1123) * lu(k,1625) - lu(k,1634) = lu(k,1634) - lu(k,1124) * lu(k,1625) - lu(k,1635) = lu(k,1635) - lu(k,1125) * lu(k,1625) - lu(k,1636) = lu(k,1636) - lu(k,1126) * lu(k,1625) - lu(k,1637) = lu(k,1637) - lu(k,1127) * lu(k,1625) - lu(k,1638) = lu(k,1638) - lu(k,1128) * lu(k,1625) - lu(k,1639) = lu(k,1639) - lu(k,1129) * lu(k,1625) - lu(k,1640) = lu(k,1640) - lu(k,1130) * lu(k,1625) - lu(k,1641) = lu(k,1641) - lu(k,1131) * lu(k,1625) - lu(k,1642) = lu(k,1642) - lu(k,1132) * lu(k,1625) - lu(k,1661) = lu(k,1661) - lu(k,1116) * lu(k,1660) - lu(k,1662) = lu(k,1662) - lu(k,1117) * lu(k,1660) - lu(k,1663) = lu(k,1663) - lu(k,1118) * lu(k,1660) - lu(k,1664) = lu(k,1664) - lu(k,1119) * lu(k,1660) - lu(k,1665) = lu(k,1665) - lu(k,1120) * lu(k,1660) - lu(k,1666) = lu(k,1666) - lu(k,1121) * lu(k,1660) - lu(k,1667) = lu(k,1667) - lu(k,1122) * lu(k,1660) - lu(k,1668) = lu(k,1668) - lu(k,1123) * lu(k,1660) - lu(k,1669) = lu(k,1669) - lu(k,1124) * lu(k,1660) - lu(k,1670) = lu(k,1670) - lu(k,1125) * lu(k,1660) - lu(k,1671) = lu(k,1671) - lu(k,1126) * lu(k,1660) - lu(k,1672) = lu(k,1672) - lu(k,1127) * lu(k,1660) - lu(k,1673) = lu(k,1673) - lu(k,1128) * lu(k,1660) - lu(k,1674) = lu(k,1674) - lu(k,1129) * lu(k,1660) - lu(k,1675) = lu(k,1675) - lu(k,1130) * lu(k,1660) - lu(k,1676) = lu(k,1676) - lu(k,1131) * lu(k,1660) - lu(k,1677) = lu(k,1677) - lu(k,1132) * lu(k,1660) - lu(k,1703) = lu(k,1703) - lu(k,1116) * lu(k,1702) - lu(k,1704) = lu(k,1704) - lu(k,1117) * lu(k,1702) - lu(k,1705) = lu(k,1705) - lu(k,1118) * lu(k,1702) - lu(k,1706) = lu(k,1706) - lu(k,1119) * lu(k,1702) - lu(k,1707) = lu(k,1707) - lu(k,1120) * lu(k,1702) - lu(k,1708) = lu(k,1708) - lu(k,1121) * lu(k,1702) - lu(k,1709) = lu(k,1709) - lu(k,1122) * lu(k,1702) - lu(k,1710) = lu(k,1710) - lu(k,1123) * lu(k,1702) - lu(k,1711) = lu(k,1711) - lu(k,1124) * lu(k,1702) - lu(k,1712) = lu(k,1712) - lu(k,1125) * lu(k,1702) - lu(k,1713) = lu(k,1713) - lu(k,1126) * lu(k,1702) - lu(k,1714) = lu(k,1714) - lu(k,1127) * lu(k,1702) - lu(k,1715) = lu(k,1715) - lu(k,1128) * lu(k,1702) - lu(k,1716) = lu(k,1716) - lu(k,1129) * lu(k,1702) - lu(k,1717) = lu(k,1717) - lu(k,1130) * lu(k,1702) - lu(k,1718) = lu(k,1718) - lu(k,1131) * lu(k,1702) - lu(k,1719) = lu(k,1719) - lu(k,1132) * lu(k,1702) - lu(k,1747) = lu(k,1747) - lu(k,1116) * lu(k,1746) - lu(k,1748) = lu(k,1748) - lu(k,1117) * lu(k,1746) - lu(k,1749) = lu(k,1749) - lu(k,1118) * lu(k,1746) - lu(k,1750) = lu(k,1750) - lu(k,1119) * lu(k,1746) - lu(k,1751) = lu(k,1751) - lu(k,1120) * lu(k,1746) - lu(k,1752) = lu(k,1752) - lu(k,1121) * lu(k,1746) - lu(k,1753) = lu(k,1753) - lu(k,1122) * lu(k,1746) - lu(k,1754) = lu(k,1754) - lu(k,1123) * lu(k,1746) - lu(k,1755) = lu(k,1755) - lu(k,1124) * lu(k,1746) - lu(k,1756) = lu(k,1756) - lu(k,1125) * lu(k,1746) - lu(k,1757) = lu(k,1757) - lu(k,1126) * lu(k,1746) - lu(k,1758) = lu(k,1758) - lu(k,1127) * lu(k,1746) - lu(k,1759) = lu(k,1759) - lu(k,1128) * lu(k,1746) - lu(k,1760) = lu(k,1760) - lu(k,1129) * lu(k,1746) - lu(k,1761) = lu(k,1761) - lu(k,1130) * lu(k,1746) - lu(k,1762) = lu(k,1762) - lu(k,1131) * lu(k,1746) - lu(k,1763) = lu(k,1763) - lu(k,1132) * lu(k,1746) - lu(k,1782) = lu(k,1782) - lu(k,1116) * lu(k,1781) - lu(k,1783) = lu(k,1783) - lu(k,1117) * lu(k,1781) - lu(k,1784) = lu(k,1784) - lu(k,1118) * lu(k,1781) - lu(k,1785) = lu(k,1785) - lu(k,1119) * lu(k,1781) - lu(k,1786) = lu(k,1786) - lu(k,1120) * lu(k,1781) - lu(k,1787) = lu(k,1787) - lu(k,1121) * lu(k,1781) - lu(k,1788) = lu(k,1788) - lu(k,1122) * lu(k,1781) - lu(k,1789) = lu(k,1789) - lu(k,1123) * lu(k,1781) - lu(k,1790) = lu(k,1790) - lu(k,1124) * lu(k,1781) - lu(k,1791) = lu(k,1791) - lu(k,1125) * lu(k,1781) - lu(k,1792) = lu(k,1792) - lu(k,1126) * lu(k,1781) - lu(k,1793) = lu(k,1793) - lu(k,1127) * lu(k,1781) - lu(k,1794) = lu(k,1794) - lu(k,1128) * lu(k,1781) - lu(k,1795) = lu(k,1795) - lu(k,1129) * lu(k,1781) - lu(k,1796) = lu(k,1796) - lu(k,1130) * lu(k,1781) - lu(k,1797) = lu(k,1797) - lu(k,1131) * lu(k,1781) - lu(k,1798) = lu(k,1798) - lu(k,1132) * lu(k,1781) - lu(k,1840) = lu(k,1840) - lu(k,1116) * lu(k,1839) - lu(k,1841) = lu(k,1841) - lu(k,1117) * lu(k,1839) - lu(k,1842) = lu(k,1842) - lu(k,1118) * lu(k,1839) - lu(k,1843) = lu(k,1843) - lu(k,1119) * lu(k,1839) - lu(k,1844) = lu(k,1844) - lu(k,1120) * lu(k,1839) - lu(k,1845) = lu(k,1845) - lu(k,1121) * lu(k,1839) - lu(k,1846) = lu(k,1846) - lu(k,1122) * lu(k,1839) - lu(k,1847) = lu(k,1847) - lu(k,1123) * lu(k,1839) - lu(k,1848) = lu(k,1848) - lu(k,1124) * lu(k,1839) - lu(k,1849) = lu(k,1849) - lu(k,1125) * lu(k,1839) - lu(k,1850) = lu(k,1850) - lu(k,1126) * lu(k,1839) - lu(k,1851) = lu(k,1851) - lu(k,1127) * lu(k,1839) - lu(k,1852) = lu(k,1852) - lu(k,1128) * lu(k,1839) - lu(k,1853) = lu(k,1853) - lu(k,1129) * lu(k,1839) - lu(k,1854) = lu(k,1854) - lu(k,1130) * lu(k,1839) - lu(k,1855) = lu(k,1855) - lu(k,1131) * lu(k,1839) - lu(k,1856) = lu(k,1856) - lu(k,1132) * lu(k,1839) - 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,1164) = lu(k,1164) * lu(k,1160) - lu(k,1165) = lu(k,1165) * lu(k,1160) - lu(k,1166) = lu(k,1166) * lu(k,1160) - lu(k,1167) = lu(k,1167) * lu(k,1160) - lu(k,1168) = lu(k,1168) * lu(k,1160) - lu(k,1169) = lu(k,1169) * lu(k,1160) - lu(k,1170) = lu(k,1170) * lu(k,1160) - lu(k,1171) = lu(k,1171) * lu(k,1160) - lu(k,1172) = lu(k,1172) * lu(k,1160) - lu(k,1173) = lu(k,1173) * lu(k,1160) - lu(k,1174) = lu(k,1174) * lu(k,1160) - lu(k,1175) = lu(k,1175) * lu(k,1160) - lu(k,1176) = lu(k,1176) * lu(k,1160) - lu(k,1202) = lu(k,1202) - lu(k,1161) * lu(k,1201) - lu(k,1203) = lu(k,1203) - lu(k,1162) * lu(k,1201) - lu(k,1204) = lu(k,1204) - lu(k,1163) * lu(k,1201) - lu(k,1205) = lu(k,1205) - lu(k,1164) * lu(k,1201) - lu(k,1206) = lu(k,1206) - lu(k,1165) * lu(k,1201) - lu(k,1207) = lu(k,1207) - lu(k,1166) * lu(k,1201) - lu(k,1208) = lu(k,1208) - lu(k,1167) * lu(k,1201) - lu(k,1209) = lu(k,1209) - lu(k,1168) * lu(k,1201) - lu(k,1210) = lu(k,1210) - lu(k,1169) * lu(k,1201) - lu(k,1211) = lu(k,1211) - lu(k,1170) * lu(k,1201) - lu(k,1212) = lu(k,1212) - lu(k,1171) * lu(k,1201) - lu(k,1213) = lu(k,1213) - lu(k,1172) * lu(k,1201) - lu(k,1214) = lu(k,1214) - lu(k,1173) * lu(k,1201) - lu(k,1215) = lu(k,1215) - lu(k,1174) * lu(k,1201) - lu(k,1216) = lu(k,1216) - lu(k,1175) * lu(k,1201) - lu(k,1217) = lu(k,1217) - lu(k,1176) * lu(k,1201) - lu(k,1251) = lu(k,1251) - lu(k,1161) * lu(k,1250) - lu(k,1252) = lu(k,1252) - lu(k,1162) * lu(k,1250) - lu(k,1253) = lu(k,1253) - lu(k,1163) * lu(k,1250) - lu(k,1254) = lu(k,1254) - lu(k,1164) * lu(k,1250) - lu(k,1255) = lu(k,1255) - lu(k,1165) * lu(k,1250) - lu(k,1256) = lu(k,1256) - lu(k,1166) * lu(k,1250) - lu(k,1257) = lu(k,1257) - lu(k,1167) * lu(k,1250) - lu(k,1258) = lu(k,1258) - lu(k,1168) * lu(k,1250) - lu(k,1259) = lu(k,1259) - lu(k,1169) * lu(k,1250) - lu(k,1260) = lu(k,1260) - lu(k,1170) * lu(k,1250) - lu(k,1261) = lu(k,1261) - lu(k,1171) * lu(k,1250) - lu(k,1262) = lu(k,1262) - lu(k,1172) * lu(k,1250) - lu(k,1263) = lu(k,1263) - lu(k,1173) * lu(k,1250) - lu(k,1264) = lu(k,1264) - lu(k,1174) * lu(k,1250) - lu(k,1265) = lu(k,1265) - lu(k,1175) * lu(k,1250) - lu(k,1266) = lu(k,1266) - lu(k,1176) * lu(k,1250) - lu(k,1290) = lu(k,1290) - lu(k,1161) * lu(k,1289) - lu(k,1291) = lu(k,1291) - lu(k,1162) * lu(k,1289) - lu(k,1292) = lu(k,1292) - lu(k,1163) * lu(k,1289) - lu(k,1293) = lu(k,1293) - lu(k,1164) * lu(k,1289) - lu(k,1294) = lu(k,1294) - lu(k,1165) * lu(k,1289) - lu(k,1295) = lu(k,1295) - lu(k,1166) * lu(k,1289) - lu(k,1296) = lu(k,1296) - lu(k,1167) * lu(k,1289) - lu(k,1297) = lu(k,1297) - lu(k,1168) * lu(k,1289) - lu(k,1298) = lu(k,1298) - lu(k,1169) * lu(k,1289) - lu(k,1299) = lu(k,1299) - lu(k,1170) * lu(k,1289) - lu(k,1300) = lu(k,1300) - lu(k,1171) * lu(k,1289) - lu(k,1301) = lu(k,1301) - lu(k,1172) * lu(k,1289) - lu(k,1302) = lu(k,1302) - lu(k,1173) * lu(k,1289) - lu(k,1303) = lu(k,1303) - lu(k,1174) * lu(k,1289) - lu(k,1304) = lu(k,1304) - lu(k,1175) * lu(k,1289) - lu(k,1305) = lu(k,1305) - lu(k,1176) * lu(k,1289) - lu(k,1325) = lu(k,1325) - lu(k,1161) * lu(k,1324) - lu(k,1326) = lu(k,1326) - lu(k,1162) * lu(k,1324) - lu(k,1327) = lu(k,1327) - lu(k,1163) * lu(k,1324) - lu(k,1328) = lu(k,1328) - lu(k,1164) * lu(k,1324) - lu(k,1329) = lu(k,1329) - lu(k,1165) * lu(k,1324) - lu(k,1330) = lu(k,1330) - lu(k,1166) * lu(k,1324) - lu(k,1331) = lu(k,1331) - lu(k,1167) * lu(k,1324) - lu(k,1332) = lu(k,1332) - lu(k,1168) * lu(k,1324) - lu(k,1333) = lu(k,1333) - lu(k,1169) * lu(k,1324) - lu(k,1334) = lu(k,1334) - lu(k,1170) * lu(k,1324) - lu(k,1335) = lu(k,1335) - lu(k,1171) * lu(k,1324) - lu(k,1336) = lu(k,1336) - lu(k,1172) * lu(k,1324) - lu(k,1337) = lu(k,1337) - lu(k,1173) * lu(k,1324) - lu(k,1338) = lu(k,1338) - lu(k,1174) * lu(k,1324) - lu(k,1339) = lu(k,1339) - lu(k,1175) * lu(k,1324) - lu(k,1340) = lu(k,1340) - lu(k,1176) * lu(k,1324) - lu(k,1369) = lu(k,1369) - lu(k,1161) * lu(k,1368) - lu(k,1370) = lu(k,1370) - lu(k,1162) * lu(k,1368) - lu(k,1371) = lu(k,1371) - lu(k,1163) * lu(k,1368) - lu(k,1372) = lu(k,1372) - lu(k,1164) * lu(k,1368) - lu(k,1373) = lu(k,1373) - lu(k,1165) * lu(k,1368) - lu(k,1374) = lu(k,1374) - lu(k,1166) * lu(k,1368) - lu(k,1375) = lu(k,1375) - lu(k,1167) * lu(k,1368) - lu(k,1376) = lu(k,1376) - lu(k,1168) * lu(k,1368) - lu(k,1377) = lu(k,1377) - lu(k,1169) * lu(k,1368) - lu(k,1378) = lu(k,1378) - lu(k,1170) * lu(k,1368) - lu(k,1379) = lu(k,1379) - lu(k,1171) * lu(k,1368) - lu(k,1380) = lu(k,1380) - lu(k,1172) * lu(k,1368) - lu(k,1381) = lu(k,1381) - lu(k,1173) * lu(k,1368) - lu(k,1382) = lu(k,1382) - lu(k,1174) * lu(k,1368) - lu(k,1383) = lu(k,1383) - lu(k,1175) * lu(k,1368) - lu(k,1384) = lu(k,1384) - lu(k,1176) * lu(k,1368) - lu(k,1428) = lu(k,1428) - lu(k,1161) * lu(k,1427) - lu(k,1429) = lu(k,1429) - lu(k,1162) * lu(k,1427) - lu(k,1430) = lu(k,1430) - lu(k,1163) * lu(k,1427) - lu(k,1431) = lu(k,1431) - lu(k,1164) * lu(k,1427) - lu(k,1432) = lu(k,1432) - lu(k,1165) * lu(k,1427) - lu(k,1433) = lu(k,1433) - lu(k,1166) * lu(k,1427) - lu(k,1434) = lu(k,1434) - lu(k,1167) * lu(k,1427) - lu(k,1435) = lu(k,1435) - lu(k,1168) * lu(k,1427) - lu(k,1436) = lu(k,1436) - lu(k,1169) * lu(k,1427) - lu(k,1437) = lu(k,1437) - lu(k,1170) * lu(k,1427) - lu(k,1438) = lu(k,1438) - lu(k,1171) * lu(k,1427) - lu(k,1439) = lu(k,1439) - lu(k,1172) * lu(k,1427) - lu(k,1440) = lu(k,1440) - lu(k,1173) * lu(k,1427) - lu(k,1441) = lu(k,1441) - lu(k,1174) * lu(k,1427) - lu(k,1442) = lu(k,1442) - lu(k,1175) * lu(k,1427) - lu(k,1443) = lu(k,1443) - lu(k,1176) * lu(k,1427) - lu(k,1470) = lu(k,1470) - lu(k,1161) * lu(k,1469) - lu(k,1471) = lu(k,1471) - lu(k,1162) * lu(k,1469) - lu(k,1472) = lu(k,1472) - lu(k,1163) * lu(k,1469) - lu(k,1473) = lu(k,1473) - lu(k,1164) * lu(k,1469) - lu(k,1474) = lu(k,1474) - lu(k,1165) * lu(k,1469) - lu(k,1475) = lu(k,1475) - lu(k,1166) * lu(k,1469) - lu(k,1476) = lu(k,1476) - lu(k,1167) * lu(k,1469) - lu(k,1477) = lu(k,1477) - lu(k,1168) * lu(k,1469) - lu(k,1478) = lu(k,1478) - lu(k,1169) * lu(k,1469) - lu(k,1479) = lu(k,1479) - lu(k,1170) * lu(k,1469) - lu(k,1480) = lu(k,1480) - lu(k,1171) * lu(k,1469) - lu(k,1481) = lu(k,1481) - lu(k,1172) * lu(k,1469) - lu(k,1482) = lu(k,1482) - lu(k,1173) * lu(k,1469) - lu(k,1483) = lu(k,1483) - lu(k,1174) * lu(k,1469) - lu(k,1484) = lu(k,1484) - lu(k,1175) * lu(k,1469) - lu(k,1485) = lu(k,1485) - lu(k,1176) * lu(k,1469) - lu(k,1511) = lu(k,1511) - lu(k,1161) * lu(k,1510) - lu(k,1512) = lu(k,1512) - lu(k,1162) * lu(k,1510) - lu(k,1513) = lu(k,1513) - lu(k,1163) * lu(k,1510) - lu(k,1514) = lu(k,1514) - lu(k,1164) * lu(k,1510) - lu(k,1515) = lu(k,1515) - lu(k,1165) * lu(k,1510) - lu(k,1516) = lu(k,1516) - lu(k,1166) * lu(k,1510) - lu(k,1517) = lu(k,1517) - lu(k,1167) * lu(k,1510) - lu(k,1518) = lu(k,1518) - lu(k,1168) * lu(k,1510) - lu(k,1519) = lu(k,1519) - lu(k,1169) * lu(k,1510) - lu(k,1520) = lu(k,1520) - lu(k,1170) * lu(k,1510) - lu(k,1521) = lu(k,1521) - lu(k,1171) * lu(k,1510) - lu(k,1522) = lu(k,1522) - lu(k,1172) * lu(k,1510) - lu(k,1523) = lu(k,1523) - lu(k,1173) * lu(k,1510) - lu(k,1524) = lu(k,1524) - lu(k,1174) * lu(k,1510) - lu(k,1525) = lu(k,1525) - lu(k,1175) * lu(k,1510) - lu(k,1526) = lu(k,1526) - lu(k,1176) * lu(k,1510) - lu(k,1553) = lu(k,1553) - lu(k,1161) * lu(k,1552) - lu(k,1554) = lu(k,1554) - lu(k,1162) * lu(k,1552) - lu(k,1555) = lu(k,1555) - lu(k,1163) * lu(k,1552) - lu(k,1556) = lu(k,1556) - lu(k,1164) * lu(k,1552) - lu(k,1557) = lu(k,1557) - lu(k,1165) * lu(k,1552) - lu(k,1558) = lu(k,1558) - lu(k,1166) * lu(k,1552) - lu(k,1559) = lu(k,1559) - lu(k,1167) * lu(k,1552) - lu(k,1560) = lu(k,1560) - lu(k,1168) * lu(k,1552) - lu(k,1561) = lu(k,1561) - lu(k,1169) * lu(k,1552) - lu(k,1562) = lu(k,1562) - lu(k,1170) * lu(k,1552) - lu(k,1563) = lu(k,1563) - lu(k,1171) * lu(k,1552) - lu(k,1564) = lu(k,1564) - lu(k,1172) * lu(k,1552) - lu(k,1565) = lu(k,1565) - lu(k,1173) * lu(k,1552) - lu(k,1566) = lu(k,1566) - lu(k,1174) * lu(k,1552) - lu(k,1567) = lu(k,1567) - lu(k,1175) * lu(k,1552) - lu(k,1568) = lu(k,1568) - lu(k,1176) * lu(k,1552) - lu(k,1595) = lu(k,1595) - lu(k,1161) * lu(k,1594) - lu(k,1596) = lu(k,1596) - lu(k,1162) * lu(k,1594) - lu(k,1597) = lu(k,1597) - lu(k,1163) * lu(k,1594) - lu(k,1598) = lu(k,1598) - lu(k,1164) * lu(k,1594) - lu(k,1599) = lu(k,1599) - lu(k,1165) * lu(k,1594) - lu(k,1600) = lu(k,1600) - lu(k,1166) * lu(k,1594) - lu(k,1601) = lu(k,1601) - lu(k,1167) * lu(k,1594) - lu(k,1602) = lu(k,1602) - lu(k,1168) * lu(k,1594) - lu(k,1603) = lu(k,1603) - lu(k,1169) * lu(k,1594) - lu(k,1604) = lu(k,1604) - lu(k,1170) * lu(k,1594) - lu(k,1605) = lu(k,1605) - lu(k,1171) * lu(k,1594) - lu(k,1606) = lu(k,1606) - lu(k,1172) * lu(k,1594) - lu(k,1607) = lu(k,1607) - lu(k,1173) * lu(k,1594) - lu(k,1608) = lu(k,1608) - lu(k,1174) * lu(k,1594) - lu(k,1609) = lu(k,1609) - lu(k,1175) * lu(k,1594) - lu(k,1610) = lu(k,1610) - lu(k,1176) * lu(k,1594) - lu(k,1627) = lu(k,1627) - lu(k,1161) * lu(k,1626) - lu(k,1628) = lu(k,1628) - lu(k,1162) * lu(k,1626) - lu(k,1629) = lu(k,1629) - lu(k,1163) * lu(k,1626) - lu(k,1630) = lu(k,1630) - lu(k,1164) * lu(k,1626) - lu(k,1631) = lu(k,1631) - lu(k,1165) * lu(k,1626) - lu(k,1632) = lu(k,1632) - lu(k,1166) * lu(k,1626) - lu(k,1633) = lu(k,1633) - lu(k,1167) * lu(k,1626) - lu(k,1634) = lu(k,1634) - lu(k,1168) * lu(k,1626) - lu(k,1635) = lu(k,1635) - lu(k,1169) * lu(k,1626) - lu(k,1636) = lu(k,1636) - lu(k,1170) * lu(k,1626) - lu(k,1637) = lu(k,1637) - lu(k,1171) * lu(k,1626) - lu(k,1638) = lu(k,1638) - lu(k,1172) * lu(k,1626) - lu(k,1639) = lu(k,1639) - lu(k,1173) * lu(k,1626) - lu(k,1640) = lu(k,1640) - lu(k,1174) * lu(k,1626) - lu(k,1641) = lu(k,1641) - lu(k,1175) * lu(k,1626) - lu(k,1642) = lu(k,1642) - lu(k,1176) * lu(k,1626) - lu(k,1662) = lu(k,1662) - lu(k,1161) * lu(k,1661) - lu(k,1663) = lu(k,1663) - lu(k,1162) * lu(k,1661) - lu(k,1664) = lu(k,1664) - lu(k,1163) * lu(k,1661) - lu(k,1665) = lu(k,1665) - lu(k,1164) * lu(k,1661) - lu(k,1666) = lu(k,1666) - lu(k,1165) * lu(k,1661) - lu(k,1667) = lu(k,1667) - lu(k,1166) * lu(k,1661) - lu(k,1668) = lu(k,1668) - lu(k,1167) * lu(k,1661) - lu(k,1669) = lu(k,1669) - lu(k,1168) * lu(k,1661) - lu(k,1670) = lu(k,1670) - lu(k,1169) * lu(k,1661) - lu(k,1671) = lu(k,1671) - lu(k,1170) * lu(k,1661) - lu(k,1672) = lu(k,1672) - lu(k,1171) * lu(k,1661) - lu(k,1673) = lu(k,1673) - lu(k,1172) * lu(k,1661) - lu(k,1674) = lu(k,1674) - lu(k,1173) * lu(k,1661) - lu(k,1675) = lu(k,1675) - lu(k,1174) * lu(k,1661) - lu(k,1676) = lu(k,1676) - lu(k,1175) * lu(k,1661) - lu(k,1677) = lu(k,1677) - lu(k,1176) * lu(k,1661) - lu(k,1704) = lu(k,1704) - lu(k,1161) * lu(k,1703) - lu(k,1705) = lu(k,1705) - lu(k,1162) * lu(k,1703) - lu(k,1706) = lu(k,1706) - lu(k,1163) * lu(k,1703) - lu(k,1707) = lu(k,1707) - lu(k,1164) * lu(k,1703) - lu(k,1708) = lu(k,1708) - lu(k,1165) * lu(k,1703) - lu(k,1709) = lu(k,1709) - lu(k,1166) * lu(k,1703) - lu(k,1710) = lu(k,1710) - lu(k,1167) * lu(k,1703) - lu(k,1711) = lu(k,1711) - lu(k,1168) * lu(k,1703) - lu(k,1712) = lu(k,1712) - lu(k,1169) * lu(k,1703) - lu(k,1713) = lu(k,1713) - lu(k,1170) * lu(k,1703) - lu(k,1714) = lu(k,1714) - lu(k,1171) * lu(k,1703) - lu(k,1715) = lu(k,1715) - lu(k,1172) * lu(k,1703) - lu(k,1716) = lu(k,1716) - lu(k,1173) * lu(k,1703) - lu(k,1717) = lu(k,1717) - lu(k,1174) * lu(k,1703) - lu(k,1718) = lu(k,1718) - lu(k,1175) * lu(k,1703) - lu(k,1719) = lu(k,1719) - lu(k,1176) * lu(k,1703) - lu(k,1748) = lu(k,1748) - lu(k,1161) * lu(k,1747) - lu(k,1749) = lu(k,1749) - lu(k,1162) * lu(k,1747) - lu(k,1750) = lu(k,1750) - lu(k,1163) * lu(k,1747) - lu(k,1751) = lu(k,1751) - lu(k,1164) * lu(k,1747) - lu(k,1752) = lu(k,1752) - lu(k,1165) * lu(k,1747) - lu(k,1753) = lu(k,1753) - lu(k,1166) * lu(k,1747) - lu(k,1754) = lu(k,1754) - lu(k,1167) * lu(k,1747) - lu(k,1755) = lu(k,1755) - lu(k,1168) * lu(k,1747) - lu(k,1756) = lu(k,1756) - lu(k,1169) * lu(k,1747) - lu(k,1757) = lu(k,1757) - lu(k,1170) * lu(k,1747) - lu(k,1758) = lu(k,1758) - lu(k,1171) * lu(k,1747) - lu(k,1759) = lu(k,1759) - lu(k,1172) * lu(k,1747) - lu(k,1760) = lu(k,1760) - lu(k,1173) * lu(k,1747) - lu(k,1761) = lu(k,1761) - lu(k,1174) * lu(k,1747) - lu(k,1762) = lu(k,1762) - lu(k,1175) * lu(k,1747) - lu(k,1763) = lu(k,1763) - lu(k,1176) * lu(k,1747) - lu(k,1783) = lu(k,1783) - lu(k,1161) * lu(k,1782) - lu(k,1784) = lu(k,1784) - lu(k,1162) * lu(k,1782) - lu(k,1785) = lu(k,1785) - lu(k,1163) * lu(k,1782) - lu(k,1786) = lu(k,1786) - lu(k,1164) * lu(k,1782) - lu(k,1787) = lu(k,1787) - lu(k,1165) * lu(k,1782) - lu(k,1788) = lu(k,1788) - lu(k,1166) * lu(k,1782) - lu(k,1789) = lu(k,1789) - lu(k,1167) * lu(k,1782) - lu(k,1790) = lu(k,1790) - lu(k,1168) * lu(k,1782) - lu(k,1791) = lu(k,1791) - lu(k,1169) * lu(k,1782) - lu(k,1792) = lu(k,1792) - lu(k,1170) * lu(k,1782) - lu(k,1793) = lu(k,1793) - lu(k,1171) * lu(k,1782) - lu(k,1794) = lu(k,1794) - lu(k,1172) * lu(k,1782) - lu(k,1795) = lu(k,1795) - lu(k,1173) * lu(k,1782) - lu(k,1796) = lu(k,1796) - lu(k,1174) * lu(k,1782) - lu(k,1797) = lu(k,1797) - lu(k,1175) * lu(k,1782) - lu(k,1798) = lu(k,1798) - lu(k,1176) * lu(k,1782) - lu(k,1841) = lu(k,1841) - lu(k,1161) * lu(k,1840) - lu(k,1842) = lu(k,1842) - lu(k,1162) * lu(k,1840) - lu(k,1843) = lu(k,1843) - lu(k,1163) * lu(k,1840) - lu(k,1844) = lu(k,1844) - lu(k,1164) * lu(k,1840) - lu(k,1845) = lu(k,1845) - lu(k,1165) * lu(k,1840) - lu(k,1846) = lu(k,1846) - lu(k,1166) * lu(k,1840) - lu(k,1847) = lu(k,1847) - lu(k,1167) * lu(k,1840) - lu(k,1848) = lu(k,1848) - lu(k,1168) * lu(k,1840) - lu(k,1849) = lu(k,1849) - lu(k,1169) * lu(k,1840) - lu(k,1850) = lu(k,1850) - lu(k,1170) * lu(k,1840) - lu(k,1851) = lu(k,1851) - lu(k,1171) * lu(k,1840) - lu(k,1852) = lu(k,1852) - lu(k,1172) * lu(k,1840) - lu(k,1853) = lu(k,1853) - lu(k,1173) * lu(k,1840) - lu(k,1854) = lu(k,1854) - lu(k,1174) * lu(k,1840) - lu(k,1855) = lu(k,1855) - lu(k,1175) * lu(k,1840) - lu(k,1856) = lu(k,1856) - lu(k,1176) * lu(k,1840) - lu(k,1202) = 1._r8 / lu(k,1202) - lu(k,1203) = lu(k,1203) * lu(k,1202) - lu(k,1204) = lu(k,1204) * lu(k,1202) - lu(k,1205) = lu(k,1205) * lu(k,1202) - lu(k,1206) = lu(k,1206) * lu(k,1202) - lu(k,1207) = lu(k,1207) * lu(k,1202) - lu(k,1208) = lu(k,1208) * lu(k,1202) - lu(k,1209) = lu(k,1209) * lu(k,1202) - lu(k,1210) = lu(k,1210) * lu(k,1202) - lu(k,1211) = lu(k,1211) * lu(k,1202) - lu(k,1212) = lu(k,1212) * lu(k,1202) - lu(k,1213) = lu(k,1213) * lu(k,1202) - lu(k,1214) = lu(k,1214) * lu(k,1202) - lu(k,1215) = lu(k,1215) * lu(k,1202) - lu(k,1216) = lu(k,1216) * lu(k,1202) - lu(k,1217) = lu(k,1217) * lu(k,1202) - lu(k,1252) = lu(k,1252) - lu(k,1203) * lu(k,1251) - lu(k,1253) = lu(k,1253) - lu(k,1204) * lu(k,1251) - lu(k,1254) = lu(k,1254) - lu(k,1205) * lu(k,1251) - lu(k,1255) = lu(k,1255) - lu(k,1206) * lu(k,1251) - lu(k,1256) = lu(k,1256) - lu(k,1207) * lu(k,1251) - lu(k,1257) = lu(k,1257) - lu(k,1208) * lu(k,1251) - lu(k,1258) = lu(k,1258) - lu(k,1209) * lu(k,1251) - lu(k,1259) = lu(k,1259) - lu(k,1210) * lu(k,1251) - lu(k,1260) = lu(k,1260) - lu(k,1211) * lu(k,1251) - lu(k,1261) = lu(k,1261) - lu(k,1212) * lu(k,1251) - lu(k,1262) = lu(k,1262) - lu(k,1213) * lu(k,1251) - lu(k,1263) = lu(k,1263) - lu(k,1214) * lu(k,1251) - lu(k,1264) = lu(k,1264) - lu(k,1215) * lu(k,1251) - lu(k,1265) = lu(k,1265) - lu(k,1216) * lu(k,1251) - lu(k,1266) = lu(k,1266) - lu(k,1217) * lu(k,1251) - lu(k,1291) = lu(k,1291) - lu(k,1203) * lu(k,1290) - lu(k,1292) = lu(k,1292) - lu(k,1204) * lu(k,1290) - lu(k,1293) = lu(k,1293) - lu(k,1205) * lu(k,1290) - lu(k,1294) = lu(k,1294) - lu(k,1206) * lu(k,1290) - lu(k,1295) = lu(k,1295) - lu(k,1207) * lu(k,1290) - lu(k,1296) = lu(k,1296) - lu(k,1208) * lu(k,1290) - lu(k,1297) = lu(k,1297) - lu(k,1209) * lu(k,1290) - lu(k,1298) = lu(k,1298) - lu(k,1210) * lu(k,1290) - lu(k,1299) = lu(k,1299) - lu(k,1211) * lu(k,1290) - lu(k,1300) = lu(k,1300) - lu(k,1212) * lu(k,1290) - lu(k,1301) = lu(k,1301) - lu(k,1213) * lu(k,1290) - lu(k,1302) = lu(k,1302) - lu(k,1214) * lu(k,1290) - lu(k,1303) = lu(k,1303) - lu(k,1215) * lu(k,1290) - lu(k,1304) = lu(k,1304) - lu(k,1216) * lu(k,1290) - lu(k,1305) = lu(k,1305) - lu(k,1217) * lu(k,1290) - lu(k,1326) = lu(k,1326) - lu(k,1203) * lu(k,1325) - lu(k,1327) = lu(k,1327) - lu(k,1204) * lu(k,1325) - lu(k,1328) = lu(k,1328) - lu(k,1205) * lu(k,1325) - lu(k,1329) = lu(k,1329) - lu(k,1206) * lu(k,1325) - lu(k,1330) = lu(k,1330) - lu(k,1207) * lu(k,1325) - lu(k,1331) = lu(k,1331) - lu(k,1208) * lu(k,1325) - lu(k,1332) = lu(k,1332) - lu(k,1209) * lu(k,1325) - lu(k,1333) = lu(k,1333) - lu(k,1210) * lu(k,1325) - lu(k,1334) = lu(k,1334) - lu(k,1211) * lu(k,1325) - lu(k,1335) = lu(k,1335) - lu(k,1212) * lu(k,1325) - lu(k,1336) = lu(k,1336) - lu(k,1213) * lu(k,1325) - lu(k,1337) = lu(k,1337) - lu(k,1214) * lu(k,1325) - lu(k,1338) = lu(k,1338) - lu(k,1215) * lu(k,1325) - lu(k,1339) = lu(k,1339) - lu(k,1216) * lu(k,1325) - lu(k,1340) = lu(k,1340) - lu(k,1217) * lu(k,1325) - lu(k,1370) = lu(k,1370) - lu(k,1203) * lu(k,1369) - lu(k,1371) = lu(k,1371) - lu(k,1204) * lu(k,1369) - lu(k,1372) = lu(k,1372) - lu(k,1205) * lu(k,1369) - lu(k,1373) = lu(k,1373) - lu(k,1206) * lu(k,1369) - lu(k,1374) = lu(k,1374) - lu(k,1207) * lu(k,1369) - lu(k,1375) = lu(k,1375) - lu(k,1208) * lu(k,1369) - lu(k,1376) = lu(k,1376) - lu(k,1209) * lu(k,1369) - lu(k,1377) = lu(k,1377) - lu(k,1210) * lu(k,1369) - lu(k,1378) = lu(k,1378) - lu(k,1211) * lu(k,1369) - lu(k,1379) = lu(k,1379) - lu(k,1212) * lu(k,1369) - lu(k,1380) = lu(k,1380) - lu(k,1213) * lu(k,1369) - lu(k,1381) = lu(k,1381) - lu(k,1214) * lu(k,1369) - lu(k,1382) = lu(k,1382) - lu(k,1215) * lu(k,1369) - lu(k,1383) = lu(k,1383) - lu(k,1216) * lu(k,1369) - lu(k,1384) = lu(k,1384) - lu(k,1217) * lu(k,1369) - lu(k,1429) = lu(k,1429) - lu(k,1203) * lu(k,1428) - lu(k,1430) = lu(k,1430) - lu(k,1204) * lu(k,1428) - lu(k,1431) = lu(k,1431) - lu(k,1205) * lu(k,1428) - lu(k,1432) = lu(k,1432) - lu(k,1206) * lu(k,1428) - lu(k,1433) = lu(k,1433) - lu(k,1207) * lu(k,1428) - lu(k,1434) = lu(k,1434) - lu(k,1208) * lu(k,1428) - lu(k,1435) = lu(k,1435) - lu(k,1209) * lu(k,1428) - lu(k,1436) = lu(k,1436) - lu(k,1210) * lu(k,1428) - lu(k,1437) = lu(k,1437) - lu(k,1211) * lu(k,1428) - lu(k,1438) = lu(k,1438) - lu(k,1212) * lu(k,1428) - lu(k,1439) = lu(k,1439) - lu(k,1213) * lu(k,1428) - lu(k,1440) = lu(k,1440) - lu(k,1214) * lu(k,1428) - lu(k,1441) = lu(k,1441) - lu(k,1215) * lu(k,1428) - lu(k,1442) = lu(k,1442) - lu(k,1216) * lu(k,1428) - lu(k,1443) = lu(k,1443) - lu(k,1217) * lu(k,1428) - lu(k,1471) = lu(k,1471) - lu(k,1203) * lu(k,1470) - lu(k,1472) = lu(k,1472) - lu(k,1204) * lu(k,1470) - lu(k,1473) = lu(k,1473) - lu(k,1205) * lu(k,1470) - lu(k,1474) = lu(k,1474) - lu(k,1206) * lu(k,1470) - lu(k,1475) = lu(k,1475) - lu(k,1207) * lu(k,1470) - lu(k,1476) = lu(k,1476) - lu(k,1208) * lu(k,1470) - lu(k,1477) = lu(k,1477) - lu(k,1209) * lu(k,1470) - lu(k,1478) = lu(k,1478) - lu(k,1210) * lu(k,1470) - lu(k,1479) = lu(k,1479) - lu(k,1211) * lu(k,1470) - lu(k,1480) = lu(k,1480) - lu(k,1212) * lu(k,1470) - lu(k,1481) = lu(k,1481) - lu(k,1213) * lu(k,1470) - lu(k,1482) = lu(k,1482) - lu(k,1214) * lu(k,1470) - lu(k,1483) = lu(k,1483) - lu(k,1215) * lu(k,1470) - lu(k,1484) = lu(k,1484) - lu(k,1216) * lu(k,1470) - lu(k,1485) = lu(k,1485) - lu(k,1217) * lu(k,1470) - lu(k,1512) = lu(k,1512) - lu(k,1203) * lu(k,1511) - lu(k,1513) = lu(k,1513) - lu(k,1204) * lu(k,1511) - lu(k,1514) = lu(k,1514) - lu(k,1205) * lu(k,1511) - lu(k,1515) = lu(k,1515) - lu(k,1206) * lu(k,1511) - lu(k,1516) = lu(k,1516) - lu(k,1207) * lu(k,1511) - lu(k,1517) = lu(k,1517) - lu(k,1208) * lu(k,1511) - lu(k,1518) = lu(k,1518) - lu(k,1209) * lu(k,1511) - lu(k,1519) = lu(k,1519) - lu(k,1210) * lu(k,1511) - lu(k,1520) = lu(k,1520) - lu(k,1211) * lu(k,1511) - lu(k,1521) = lu(k,1521) - lu(k,1212) * lu(k,1511) - lu(k,1522) = lu(k,1522) - lu(k,1213) * lu(k,1511) - lu(k,1523) = lu(k,1523) - lu(k,1214) * lu(k,1511) - lu(k,1524) = lu(k,1524) - lu(k,1215) * lu(k,1511) - lu(k,1525) = lu(k,1525) - lu(k,1216) * lu(k,1511) - lu(k,1526) = lu(k,1526) - lu(k,1217) * lu(k,1511) - lu(k,1554) = lu(k,1554) - lu(k,1203) * lu(k,1553) - lu(k,1555) = lu(k,1555) - lu(k,1204) * lu(k,1553) - lu(k,1556) = lu(k,1556) - lu(k,1205) * lu(k,1553) - lu(k,1557) = lu(k,1557) - lu(k,1206) * lu(k,1553) - lu(k,1558) = lu(k,1558) - lu(k,1207) * lu(k,1553) - lu(k,1559) = lu(k,1559) - lu(k,1208) * lu(k,1553) - lu(k,1560) = lu(k,1560) - lu(k,1209) * lu(k,1553) - lu(k,1561) = lu(k,1561) - lu(k,1210) * lu(k,1553) - lu(k,1562) = lu(k,1562) - lu(k,1211) * lu(k,1553) - lu(k,1563) = lu(k,1563) - lu(k,1212) * lu(k,1553) - lu(k,1564) = lu(k,1564) - lu(k,1213) * lu(k,1553) - lu(k,1565) = lu(k,1565) - lu(k,1214) * lu(k,1553) - lu(k,1566) = lu(k,1566) - lu(k,1215) * lu(k,1553) - lu(k,1567) = lu(k,1567) - lu(k,1216) * lu(k,1553) - lu(k,1568) = lu(k,1568) - lu(k,1217) * lu(k,1553) - lu(k,1596) = lu(k,1596) - lu(k,1203) * lu(k,1595) - lu(k,1597) = lu(k,1597) - lu(k,1204) * lu(k,1595) - lu(k,1598) = lu(k,1598) - lu(k,1205) * lu(k,1595) - lu(k,1599) = lu(k,1599) - lu(k,1206) * lu(k,1595) - lu(k,1600) = lu(k,1600) - lu(k,1207) * lu(k,1595) - lu(k,1601) = lu(k,1601) - lu(k,1208) * lu(k,1595) - lu(k,1602) = lu(k,1602) - lu(k,1209) * lu(k,1595) - lu(k,1603) = lu(k,1603) - lu(k,1210) * lu(k,1595) - lu(k,1604) = lu(k,1604) - lu(k,1211) * lu(k,1595) - lu(k,1605) = lu(k,1605) - lu(k,1212) * lu(k,1595) - lu(k,1606) = lu(k,1606) - lu(k,1213) * lu(k,1595) - lu(k,1607) = lu(k,1607) - lu(k,1214) * lu(k,1595) - lu(k,1608) = lu(k,1608) - lu(k,1215) * lu(k,1595) - lu(k,1609) = lu(k,1609) - lu(k,1216) * lu(k,1595) - lu(k,1610) = lu(k,1610) - lu(k,1217) * lu(k,1595) - lu(k,1628) = lu(k,1628) - lu(k,1203) * lu(k,1627) - lu(k,1629) = lu(k,1629) - lu(k,1204) * lu(k,1627) - lu(k,1630) = lu(k,1630) - lu(k,1205) * lu(k,1627) - lu(k,1631) = lu(k,1631) - lu(k,1206) * lu(k,1627) - lu(k,1632) = lu(k,1632) - lu(k,1207) * lu(k,1627) - lu(k,1633) = lu(k,1633) - lu(k,1208) * lu(k,1627) - lu(k,1634) = lu(k,1634) - lu(k,1209) * lu(k,1627) - lu(k,1635) = lu(k,1635) - lu(k,1210) * lu(k,1627) - lu(k,1636) = lu(k,1636) - lu(k,1211) * lu(k,1627) - lu(k,1637) = lu(k,1637) - lu(k,1212) * lu(k,1627) - lu(k,1638) = lu(k,1638) - lu(k,1213) * lu(k,1627) - lu(k,1639) = lu(k,1639) - lu(k,1214) * lu(k,1627) - lu(k,1640) = lu(k,1640) - lu(k,1215) * lu(k,1627) - lu(k,1641) = lu(k,1641) - lu(k,1216) * lu(k,1627) - lu(k,1642) = lu(k,1642) - lu(k,1217) * lu(k,1627) - lu(k,1663) = lu(k,1663) - lu(k,1203) * lu(k,1662) - lu(k,1664) = lu(k,1664) - lu(k,1204) * lu(k,1662) - lu(k,1665) = lu(k,1665) - lu(k,1205) * lu(k,1662) - lu(k,1666) = lu(k,1666) - lu(k,1206) * lu(k,1662) - lu(k,1667) = lu(k,1667) - lu(k,1207) * lu(k,1662) - lu(k,1668) = lu(k,1668) - lu(k,1208) * lu(k,1662) - lu(k,1669) = lu(k,1669) - lu(k,1209) * lu(k,1662) - lu(k,1670) = lu(k,1670) - lu(k,1210) * lu(k,1662) - lu(k,1671) = lu(k,1671) - lu(k,1211) * lu(k,1662) - lu(k,1672) = lu(k,1672) - lu(k,1212) * lu(k,1662) - lu(k,1673) = lu(k,1673) - lu(k,1213) * lu(k,1662) - lu(k,1674) = lu(k,1674) - lu(k,1214) * lu(k,1662) - lu(k,1675) = lu(k,1675) - lu(k,1215) * lu(k,1662) - lu(k,1676) = lu(k,1676) - lu(k,1216) * lu(k,1662) - lu(k,1677) = lu(k,1677) - lu(k,1217) * lu(k,1662) - lu(k,1705) = lu(k,1705) - lu(k,1203) * lu(k,1704) - lu(k,1706) = lu(k,1706) - lu(k,1204) * lu(k,1704) - lu(k,1707) = lu(k,1707) - lu(k,1205) * lu(k,1704) - lu(k,1708) = lu(k,1708) - lu(k,1206) * lu(k,1704) - lu(k,1709) = lu(k,1709) - lu(k,1207) * lu(k,1704) - lu(k,1710) = lu(k,1710) - lu(k,1208) * lu(k,1704) - lu(k,1711) = lu(k,1711) - lu(k,1209) * lu(k,1704) - lu(k,1712) = lu(k,1712) - lu(k,1210) * lu(k,1704) - lu(k,1713) = lu(k,1713) - lu(k,1211) * lu(k,1704) - lu(k,1714) = lu(k,1714) - lu(k,1212) * lu(k,1704) - lu(k,1715) = lu(k,1715) - lu(k,1213) * lu(k,1704) - lu(k,1716) = lu(k,1716) - lu(k,1214) * lu(k,1704) - lu(k,1717) = lu(k,1717) - lu(k,1215) * lu(k,1704) - lu(k,1718) = lu(k,1718) - lu(k,1216) * lu(k,1704) - lu(k,1719) = lu(k,1719) - lu(k,1217) * lu(k,1704) - lu(k,1749) = lu(k,1749) - lu(k,1203) * lu(k,1748) - lu(k,1750) = lu(k,1750) - lu(k,1204) * lu(k,1748) - lu(k,1751) = lu(k,1751) - lu(k,1205) * lu(k,1748) - lu(k,1752) = lu(k,1752) - lu(k,1206) * lu(k,1748) - lu(k,1753) = lu(k,1753) - lu(k,1207) * lu(k,1748) - lu(k,1754) = lu(k,1754) - lu(k,1208) * lu(k,1748) - lu(k,1755) = lu(k,1755) - lu(k,1209) * lu(k,1748) - lu(k,1756) = lu(k,1756) - lu(k,1210) * lu(k,1748) - lu(k,1757) = lu(k,1757) - lu(k,1211) * lu(k,1748) - lu(k,1758) = lu(k,1758) - lu(k,1212) * lu(k,1748) - lu(k,1759) = lu(k,1759) - lu(k,1213) * lu(k,1748) - lu(k,1760) = lu(k,1760) - lu(k,1214) * lu(k,1748) - lu(k,1761) = lu(k,1761) - lu(k,1215) * lu(k,1748) - lu(k,1762) = lu(k,1762) - lu(k,1216) * lu(k,1748) - lu(k,1763) = lu(k,1763) - lu(k,1217) * lu(k,1748) - lu(k,1784) = lu(k,1784) - lu(k,1203) * lu(k,1783) - lu(k,1785) = lu(k,1785) - lu(k,1204) * lu(k,1783) - lu(k,1786) = lu(k,1786) - lu(k,1205) * lu(k,1783) - lu(k,1787) = lu(k,1787) - lu(k,1206) * lu(k,1783) - lu(k,1788) = lu(k,1788) - lu(k,1207) * lu(k,1783) - lu(k,1789) = lu(k,1789) - lu(k,1208) * lu(k,1783) - lu(k,1790) = lu(k,1790) - lu(k,1209) * lu(k,1783) - lu(k,1791) = lu(k,1791) - lu(k,1210) * lu(k,1783) - lu(k,1792) = lu(k,1792) - lu(k,1211) * lu(k,1783) - lu(k,1793) = lu(k,1793) - lu(k,1212) * lu(k,1783) - lu(k,1794) = lu(k,1794) - lu(k,1213) * lu(k,1783) - lu(k,1795) = lu(k,1795) - lu(k,1214) * lu(k,1783) - lu(k,1796) = lu(k,1796) - lu(k,1215) * lu(k,1783) - lu(k,1797) = lu(k,1797) - lu(k,1216) * lu(k,1783) - lu(k,1798) = lu(k,1798) - lu(k,1217) * lu(k,1783) - lu(k,1842) = lu(k,1842) - lu(k,1203) * lu(k,1841) - lu(k,1843) = lu(k,1843) - lu(k,1204) * lu(k,1841) - lu(k,1844) = lu(k,1844) - lu(k,1205) * lu(k,1841) - lu(k,1845) = lu(k,1845) - lu(k,1206) * lu(k,1841) - lu(k,1846) = lu(k,1846) - lu(k,1207) * lu(k,1841) - lu(k,1847) = lu(k,1847) - lu(k,1208) * lu(k,1841) - lu(k,1848) = lu(k,1848) - lu(k,1209) * lu(k,1841) - lu(k,1849) = lu(k,1849) - lu(k,1210) * lu(k,1841) - lu(k,1850) = lu(k,1850) - lu(k,1211) * lu(k,1841) - lu(k,1851) = lu(k,1851) - lu(k,1212) * lu(k,1841) - lu(k,1852) = lu(k,1852) - lu(k,1213) * lu(k,1841) - lu(k,1853) = lu(k,1853) - lu(k,1214) * lu(k,1841) - lu(k,1854) = lu(k,1854) - lu(k,1215) * lu(k,1841) - lu(k,1855) = lu(k,1855) - lu(k,1216) * lu(k,1841) - lu(k,1856) = lu(k,1856) - lu(k,1217) * lu(k,1841) - end do + real(r8), intent(inout) :: lu(:) + lu(1138) = 1._r8 / lu(1138) + lu(1139) = lu(1139) * lu(1138) + lu(1140) = lu(1140) * lu(1138) + lu(1141) = lu(1141) * lu(1138) + lu(1142) = lu(1142) * lu(1138) + lu(1143) = lu(1143) * lu(1138) + lu(1144) = lu(1144) * lu(1138) + lu(1145) = lu(1145) * lu(1138) + lu(1146) = lu(1146) * lu(1138) + lu(1147) = lu(1147) * lu(1138) + lu(1148) = lu(1148) * lu(1138) + lu(1149) = lu(1149) * lu(1138) + lu(1150) = lu(1150) * lu(1138) + lu(1151) = lu(1151) * lu(1138) + lu(1152) = lu(1152) * lu(1138) + lu(1153) = lu(1153) * lu(1138) + lu(1154) = lu(1154) * lu(1138) + lu(1155) = lu(1155) * lu(1138) + lu(1180) = lu(1180) - lu(1139) * lu(1179) + lu(1181) = lu(1181) - lu(1140) * lu(1179) + lu(1182) = lu(1182) - lu(1141) * lu(1179) + lu(1183) = lu(1183) - lu(1142) * lu(1179) + lu(1184) = lu(1184) - lu(1143) * lu(1179) + lu(1185) = lu(1185) - lu(1144) * lu(1179) + lu(1186) = lu(1186) - lu(1145) * lu(1179) + lu(1187) = lu(1187) - lu(1146) * lu(1179) + lu(1188) = lu(1188) - lu(1147) * lu(1179) + lu(1189) = lu(1189) - lu(1148) * lu(1179) + lu(1190) = lu(1190) - lu(1149) * lu(1179) + lu(1191) = lu(1191) - lu(1150) * lu(1179) + lu(1192) = lu(1192) - lu(1151) * lu(1179) + lu(1193) = lu(1193) - lu(1152) * lu(1179) + lu(1194) = lu(1194) - lu(1153) * lu(1179) + lu(1195) = lu(1195) - lu(1154) * lu(1179) + lu(1196) = lu(1196) - lu(1155) * lu(1179) + lu(1239) = lu(1239) - lu(1139) * lu(1238) + lu(1240) = lu(1240) - lu(1140) * lu(1238) + lu(1241) = lu(1241) - lu(1141) * lu(1238) + lu(1242) = lu(1242) - lu(1142) * lu(1238) + lu(1243) = lu(1243) - lu(1143) * lu(1238) + lu(1244) = lu(1244) - lu(1144) * lu(1238) + lu(1245) = lu(1245) - lu(1145) * lu(1238) + lu(1246) = lu(1246) - lu(1146) * lu(1238) + lu(1247) = lu(1247) - lu(1147) * lu(1238) + lu(1248) = lu(1248) - lu(1148) * lu(1238) + lu(1249) = lu(1249) - lu(1149) * lu(1238) + lu(1250) = lu(1250) - lu(1150) * lu(1238) + lu(1251) = lu(1251) - lu(1151) * lu(1238) + lu(1252) = lu(1252) - lu(1152) * lu(1238) + lu(1253) = lu(1253) - lu(1153) * lu(1238) + lu(1254) = lu(1254) - lu(1154) * lu(1238) + lu(1255) = lu(1255) - lu(1155) * lu(1238) + lu(1281) = lu(1281) - lu(1139) * lu(1280) + lu(1282) = lu(1282) - lu(1140) * lu(1280) + lu(1283) = lu(1283) - lu(1141) * lu(1280) + lu(1284) = lu(1284) - lu(1142) * lu(1280) + lu(1285) = lu(1285) - lu(1143) * lu(1280) + lu(1286) = lu(1286) - lu(1144) * lu(1280) + lu(1287) = lu(1287) - lu(1145) * lu(1280) + lu(1288) = lu(1288) - lu(1146) * lu(1280) + lu(1289) = lu(1289) - lu(1147) * lu(1280) + lu(1290) = lu(1290) - lu(1148) * lu(1280) + lu(1291) = lu(1291) - lu(1149) * lu(1280) + lu(1292) = lu(1292) - lu(1150) * lu(1280) + lu(1293) = lu(1293) - lu(1151) * lu(1280) + lu(1294) = lu(1294) - lu(1152) * lu(1280) + lu(1295) = lu(1295) - lu(1153) * lu(1280) + lu(1296) = lu(1296) - lu(1154) * lu(1280) + lu(1297) = lu(1297) - lu(1155) * lu(1280) + lu(1325) = lu(1325) - lu(1139) * lu(1324) + lu(1326) = lu(1326) - lu(1140) * lu(1324) + lu(1327) = lu(1327) - lu(1141) * lu(1324) + lu(1328) = lu(1328) - lu(1142) * lu(1324) + lu(1329) = lu(1329) - lu(1143) * lu(1324) + lu(1330) = lu(1330) - lu(1144) * lu(1324) + lu(1331) = lu(1331) - lu(1145) * lu(1324) + lu(1332) = lu(1332) - lu(1146) * lu(1324) + lu(1333) = lu(1333) - lu(1147) * lu(1324) + lu(1334) = lu(1334) - lu(1148) * lu(1324) + lu(1335) = lu(1335) - lu(1149) * lu(1324) + lu(1336) = lu(1336) - lu(1150) * lu(1324) + lu(1337) = lu(1337) - lu(1151) * lu(1324) + lu(1338) = lu(1338) - lu(1152) * lu(1324) + lu(1339) = lu(1339) - lu(1153) * lu(1324) + lu(1340) = lu(1340) - lu(1154) * lu(1324) + lu(1341) = lu(1341) - lu(1155) * lu(1324) + lu(1360) = lu(1360) - lu(1139) * lu(1359) + lu(1361) = lu(1361) - lu(1140) * lu(1359) + lu(1362) = lu(1362) - lu(1141) * lu(1359) + lu(1363) = lu(1363) - lu(1142) * lu(1359) + lu(1364) = lu(1364) - lu(1143) * lu(1359) + lu(1365) = lu(1365) - lu(1144) * lu(1359) + lu(1366) = lu(1366) - lu(1145) * lu(1359) + lu(1367) = lu(1367) - lu(1146) * lu(1359) + lu(1368) = lu(1368) - lu(1147) * lu(1359) + lu(1369) = lu(1369) - lu(1148) * lu(1359) + lu(1370) = lu(1370) - lu(1149) * lu(1359) + lu(1371) = lu(1371) - lu(1150) * lu(1359) + lu(1372) = lu(1372) - lu(1151) * lu(1359) + lu(1373) = lu(1373) - lu(1152) * lu(1359) + lu(1374) = lu(1374) - lu(1153) * lu(1359) + lu(1375) = lu(1375) - lu(1154) * lu(1359) + lu(1376) = lu(1376) - lu(1155) * lu(1359) + lu(1404) = lu(1404) - lu(1139) * lu(1403) + lu(1405) = lu(1405) - lu(1140) * lu(1403) + lu(1406) = lu(1406) - lu(1141) * lu(1403) + lu(1407) = lu(1407) - lu(1142) * lu(1403) + lu(1408) = lu(1408) - lu(1143) * lu(1403) + lu(1409) = lu(1409) - lu(1144) * lu(1403) + lu(1410) = lu(1410) - lu(1145) * lu(1403) + lu(1411) = lu(1411) - lu(1146) * lu(1403) + lu(1412) = lu(1412) - lu(1147) * lu(1403) + lu(1413) = lu(1413) - lu(1148) * lu(1403) + lu(1414) = lu(1414) - lu(1149) * lu(1403) + lu(1415) = lu(1415) - lu(1150) * lu(1403) + lu(1416) = lu(1416) - lu(1151) * lu(1403) + lu(1417) = lu(1417) - lu(1152) * lu(1403) + lu(1418) = lu(1418) - lu(1153) * lu(1403) + lu(1419) = lu(1419) - lu(1154) * lu(1403) + lu(1420) = lu(1420) - lu(1155) * lu(1403) + lu(1445) = lu(1445) - lu(1139) * lu(1444) + lu(1446) = lu(1446) - lu(1140) * lu(1444) + lu(1447) = lu(1447) - lu(1141) * lu(1444) + lu(1448) = lu(1448) - lu(1142) * lu(1444) + lu(1449) = lu(1449) - lu(1143) * lu(1444) + lu(1450) = lu(1450) - lu(1144) * lu(1444) + lu(1451) = lu(1451) - lu(1145) * lu(1444) + lu(1452) = lu(1452) - lu(1146) * lu(1444) + lu(1453) = lu(1453) - lu(1147) * lu(1444) + lu(1454) = lu(1454) - lu(1148) * lu(1444) + lu(1455) = lu(1455) - lu(1149) * lu(1444) + lu(1456) = lu(1456) - lu(1150) * lu(1444) + lu(1457) = lu(1457) - lu(1151) * lu(1444) + lu(1458) = lu(1458) - lu(1152) * lu(1444) + lu(1459) = lu(1459) - lu(1153) * lu(1444) + lu(1460) = lu(1460) - lu(1154) * lu(1444) + lu(1461) = lu(1461) - lu(1155) * lu(1444) + lu(1480) = lu(1480) - lu(1139) * lu(1479) + lu(1481) = lu(1481) - lu(1140) * lu(1479) + lu(1482) = lu(1482) - lu(1141) * lu(1479) + lu(1483) = lu(1483) - lu(1142) * lu(1479) + lu(1484) = lu(1484) - lu(1143) * lu(1479) + lu(1485) = lu(1485) - lu(1144) * lu(1479) + lu(1486) = lu(1486) - lu(1145) * lu(1479) + lu(1487) = lu(1487) - lu(1146) * lu(1479) + lu(1488) = lu(1488) - lu(1147) * lu(1479) + lu(1489) = lu(1489) - lu(1148) * lu(1479) + lu(1490) = lu(1490) - lu(1149) * lu(1479) + lu(1491) = lu(1491) - lu(1150) * lu(1479) + lu(1492) = lu(1492) - lu(1151) * lu(1479) + lu(1493) = lu(1493) - lu(1152) * lu(1479) + lu(1494) = lu(1494) - lu(1153) * lu(1479) + lu(1495) = lu(1495) - lu(1154) * lu(1479) + lu(1496) = lu(1496) - lu(1155) * lu(1479) + lu(1524) = lu(1524) - lu(1139) * lu(1523) + lu(1525) = lu(1525) - lu(1140) * lu(1523) + lu(1526) = lu(1526) - lu(1141) * lu(1523) + lu(1527) = lu(1527) - lu(1142) * lu(1523) + lu(1528) = lu(1528) - lu(1143) * lu(1523) + lu(1529) = lu(1529) - lu(1144) * lu(1523) + lu(1530) = lu(1530) - lu(1145) * lu(1523) + lu(1531) = lu(1531) - lu(1146) * lu(1523) + lu(1532) = lu(1532) - lu(1147) * lu(1523) + lu(1533) = lu(1533) - lu(1148) * lu(1523) + lu(1534) = lu(1534) - lu(1149) * lu(1523) + lu(1535) = lu(1535) - lu(1150) * lu(1523) + lu(1536) = lu(1536) - lu(1151) * lu(1523) + lu(1537) = lu(1537) - lu(1152) * lu(1523) + lu(1538) = lu(1538) - lu(1153) * lu(1523) + lu(1539) = lu(1539) - lu(1154) * lu(1523) + lu(1540) = lu(1540) - lu(1155) * lu(1523) + lu(1566) = lu(1566) - lu(1139) * lu(1565) + lu(1567) = lu(1567) - lu(1140) * lu(1565) + lu(1568) = lu(1568) - lu(1141) * lu(1565) + lu(1569) = lu(1569) - lu(1142) * lu(1565) + lu(1570) = lu(1570) - lu(1143) * lu(1565) + lu(1571) = lu(1571) - lu(1144) * lu(1565) + lu(1572) = lu(1572) - lu(1145) * lu(1565) + lu(1573) = lu(1573) - lu(1146) * lu(1565) + lu(1574) = lu(1574) - lu(1147) * lu(1565) + lu(1575) = lu(1575) - lu(1148) * lu(1565) + lu(1576) = lu(1576) - lu(1149) * lu(1565) + lu(1577) = lu(1577) - lu(1150) * lu(1565) + lu(1578) = lu(1578) - lu(1151) * lu(1565) + lu(1579) = lu(1579) - lu(1152) * lu(1565) + lu(1580) = lu(1580) - lu(1153) * lu(1565) + lu(1581) = lu(1581) - lu(1154) * lu(1565) + lu(1582) = lu(1582) - lu(1155) * lu(1565) + lu(1605) = lu(1605) - lu(1139) * lu(1604) + lu(1606) = lu(1606) - lu(1140) * lu(1604) + lu(1607) = lu(1607) - lu(1141) * lu(1604) + lu(1608) = lu(1608) - lu(1142) * lu(1604) + lu(1609) = lu(1609) - lu(1143) * lu(1604) + lu(1610) = lu(1610) - lu(1144) * lu(1604) + lu(1611) = lu(1611) - lu(1145) * lu(1604) + lu(1612) = lu(1612) - lu(1146) * lu(1604) + lu(1613) = lu(1613) - lu(1147) * lu(1604) + lu(1614) = lu(1614) - lu(1148) * lu(1604) + lu(1615) = lu(1615) - lu(1149) * lu(1604) + lu(1616) = lu(1616) - lu(1150) * lu(1604) + lu(1617) = lu(1617) - lu(1151) * lu(1604) + lu(1618) = lu(1618) - lu(1152) * lu(1604) + lu(1619) = lu(1619) - lu(1153) * lu(1604) + lu(1620) = lu(1620) - lu(1154) * lu(1604) + lu(1621) = lu(1621) - lu(1155) * lu(1604) + lu(1637) = lu(1637) - lu(1139) * lu(1636) + lu(1638) = lu(1638) - lu(1140) * lu(1636) + lu(1639) = lu(1639) - lu(1141) * lu(1636) + lu(1640) = lu(1640) - lu(1142) * lu(1636) + lu(1641) = lu(1641) - lu(1143) * lu(1636) + lu(1642) = lu(1642) - lu(1144) * lu(1636) + lu(1643) = lu(1643) - lu(1145) * lu(1636) + lu(1644) = lu(1644) - lu(1146) * lu(1636) + lu(1645) = lu(1645) - lu(1147) * lu(1636) + lu(1646) = lu(1646) - lu(1148) * lu(1636) + lu(1647) = lu(1647) - lu(1149) * lu(1636) + lu(1648) = lu(1648) - lu(1150) * lu(1636) + lu(1649) = lu(1649) - lu(1151) * lu(1636) + lu(1650) = lu(1650) - lu(1152) * lu(1636) + lu(1651) = lu(1651) - lu(1153) * lu(1636) + lu(1652) = lu(1652) - lu(1154) * lu(1636) + lu(1653) = lu(1653) - lu(1155) * lu(1636) + lu(1672) = lu(1672) - lu(1139) * lu(1671) + lu(1673) = lu(1673) - lu(1140) * lu(1671) + lu(1674) = lu(1674) - lu(1141) * lu(1671) + lu(1675) = lu(1675) - lu(1142) * lu(1671) + lu(1676) = lu(1676) - lu(1143) * lu(1671) + lu(1677) = lu(1677) - lu(1144) * lu(1671) + lu(1678) = lu(1678) - lu(1145) * lu(1671) + lu(1679) = lu(1679) - lu(1146) * lu(1671) + lu(1680) = lu(1680) - lu(1147) * lu(1671) + lu(1681) = lu(1681) - lu(1148) * lu(1671) + lu(1682) = lu(1682) - lu(1149) * lu(1671) + lu(1683) = lu(1683) - lu(1150) * lu(1671) + lu(1684) = lu(1684) - lu(1151) * lu(1671) + lu(1685) = lu(1685) - lu(1152) * lu(1671) + lu(1686) = lu(1686) - lu(1153) * lu(1671) + lu(1687) = lu(1687) - lu(1154) * lu(1671) + lu(1688) = lu(1688) - lu(1155) * lu(1671) + lu(1714) = lu(1714) - lu(1139) * lu(1713) + lu(1715) = lu(1715) - lu(1140) * lu(1713) + lu(1716) = lu(1716) - lu(1141) * lu(1713) + lu(1717) = lu(1717) - lu(1142) * lu(1713) + lu(1718) = lu(1718) - lu(1143) * lu(1713) + lu(1719) = lu(1719) - lu(1144) * lu(1713) + lu(1720) = lu(1720) - lu(1145) * lu(1713) + lu(1721) = lu(1721) - lu(1146) * lu(1713) + lu(1722) = lu(1722) - lu(1147) * lu(1713) + lu(1723) = lu(1723) - lu(1148) * lu(1713) + lu(1724) = lu(1724) - lu(1149) * lu(1713) + lu(1725) = lu(1725) - lu(1150) * lu(1713) + lu(1726) = lu(1726) - lu(1151) * lu(1713) + lu(1727) = lu(1727) - lu(1152) * lu(1713) + lu(1728) = lu(1728) - lu(1153) * lu(1713) + lu(1729) = lu(1729) - lu(1154) * lu(1713) + lu(1730) = lu(1730) - lu(1155) * lu(1713) + lu(1743) = lu(1743) - lu(1139) * lu(1742) + lu(1744) = lu(1744) - lu(1140) * lu(1742) + lu(1745) = lu(1745) - lu(1141) * lu(1742) + lu(1746) = lu(1746) - lu(1142) * lu(1742) + lu(1747) = lu(1747) - lu(1143) * lu(1742) + lu(1748) = lu(1748) - lu(1144) * lu(1742) + lu(1749) = lu(1749) - lu(1145) * lu(1742) + lu(1750) = lu(1750) - lu(1146) * lu(1742) + lu(1751) = lu(1751) - lu(1147) * lu(1742) + lu(1752) = lu(1752) - lu(1148) * lu(1742) + lu(1753) = lu(1753) - lu(1149) * lu(1742) + lu(1754) = lu(1754) - lu(1150) * lu(1742) + lu(1755) = lu(1755) - lu(1151) * lu(1742) + lu(1756) = lu(1756) - lu(1152) * lu(1742) + lu(1757) = lu(1757) - lu(1153) * lu(1742) + lu(1758) = lu(1758) - lu(1154) * lu(1742) + lu(1759) = lu(1759) - lu(1155) * lu(1742) + lu(1782) = lu(1782) - lu(1139) * lu(1781) + lu(1783) = lu(1783) - lu(1140) * lu(1781) + lu(1784) = lu(1784) - lu(1141) * lu(1781) + lu(1785) = lu(1785) - lu(1142) * lu(1781) + lu(1786) = lu(1786) - lu(1143) * lu(1781) + lu(1787) = lu(1787) - lu(1144) * lu(1781) + lu(1788) = lu(1788) - lu(1145) * lu(1781) + lu(1789) = lu(1789) - lu(1146) * lu(1781) + lu(1790) = lu(1790) - lu(1147) * lu(1781) + lu(1791) = lu(1791) - lu(1148) * lu(1781) + lu(1792) = lu(1792) - lu(1149) * lu(1781) + lu(1793) = lu(1793) - lu(1150) * lu(1781) + lu(1794) = lu(1794) - lu(1151) * lu(1781) + lu(1795) = lu(1795) - lu(1152) * lu(1781) + lu(1796) = lu(1796) - lu(1153) * lu(1781) + lu(1797) = lu(1797) - lu(1154) * lu(1781) + lu(1798) = lu(1798) - lu(1155) * lu(1781) + lu(1840) = lu(1840) - lu(1139) * lu(1839) + lu(1841) = lu(1841) - lu(1140) * lu(1839) + lu(1842) = lu(1842) - lu(1141) * lu(1839) + lu(1843) = lu(1843) - lu(1142) * lu(1839) + lu(1844) = lu(1844) - lu(1143) * lu(1839) + lu(1845) = lu(1845) - lu(1144) * lu(1839) + lu(1846) = lu(1846) - lu(1145) * lu(1839) + lu(1847) = lu(1847) - lu(1146) * lu(1839) + lu(1848) = lu(1848) - lu(1147) * lu(1839) + lu(1849) = lu(1849) - lu(1148) * lu(1839) + lu(1850) = lu(1850) - lu(1149) * lu(1839) + lu(1851) = lu(1851) - lu(1150) * lu(1839) + lu(1852) = lu(1852) - lu(1151) * lu(1839) + lu(1853) = lu(1853) - lu(1152) * lu(1839) + lu(1854) = lu(1854) - lu(1153) * lu(1839) + lu(1855) = lu(1855) - lu(1154) * lu(1839) + lu(1856) = lu(1856) - lu(1155) * lu(1839) + lu(1180) = 1._r8 / lu(1180) + lu(1181) = lu(1181) * lu(1180) + lu(1182) = lu(1182) * lu(1180) + lu(1183) = lu(1183) * lu(1180) + lu(1184) = lu(1184) * lu(1180) + lu(1185) = lu(1185) * lu(1180) + lu(1186) = lu(1186) * lu(1180) + lu(1187) = lu(1187) * lu(1180) + lu(1188) = lu(1188) * lu(1180) + lu(1189) = lu(1189) * lu(1180) + lu(1190) = lu(1190) * lu(1180) + lu(1191) = lu(1191) * lu(1180) + lu(1192) = lu(1192) * lu(1180) + lu(1193) = lu(1193) * lu(1180) + lu(1194) = lu(1194) * lu(1180) + lu(1195) = lu(1195) * lu(1180) + lu(1196) = lu(1196) * lu(1180) + lu(1240) = lu(1240) - lu(1181) * lu(1239) + lu(1241) = lu(1241) - lu(1182) * lu(1239) + lu(1242) = lu(1242) - lu(1183) * lu(1239) + lu(1243) = lu(1243) - lu(1184) * lu(1239) + lu(1244) = lu(1244) - lu(1185) * lu(1239) + lu(1245) = lu(1245) - lu(1186) * lu(1239) + lu(1246) = lu(1246) - lu(1187) * lu(1239) + lu(1247) = lu(1247) - lu(1188) * lu(1239) + lu(1248) = lu(1248) - lu(1189) * lu(1239) + lu(1249) = lu(1249) - lu(1190) * lu(1239) + lu(1250) = lu(1250) - lu(1191) * lu(1239) + lu(1251) = lu(1251) - lu(1192) * lu(1239) + lu(1252) = lu(1252) - lu(1193) * lu(1239) + lu(1253) = lu(1253) - lu(1194) * lu(1239) + lu(1254) = lu(1254) - lu(1195) * lu(1239) + lu(1255) = lu(1255) - lu(1196) * lu(1239) + lu(1282) = lu(1282) - lu(1181) * lu(1281) + lu(1283) = lu(1283) - lu(1182) * lu(1281) + lu(1284) = lu(1284) - lu(1183) * lu(1281) + lu(1285) = lu(1285) - lu(1184) * lu(1281) + lu(1286) = lu(1286) - lu(1185) * lu(1281) + lu(1287) = lu(1287) - lu(1186) * lu(1281) + lu(1288) = lu(1288) - lu(1187) * lu(1281) + lu(1289) = lu(1289) - lu(1188) * lu(1281) + lu(1290) = lu(1290) - lu(1189) * lu(1281) + lu(1291) = lu(1291) - lu(1190) * lu(1281) + lu(1292) = lu(1292) - lu(1191) * lu(1281) + lu(1293) = lu(1293) - lu(1192) * lu(1281) + lu(1294) = lu(1294) - lu(1193) * lu(1281) + lu(1295) = lu(1295) - lu(1194) * lu(1281) + lu(1296) = lu(1296) - lu(1195) * lu(1281) + lu(1297) = lu(1297) - lu(1196) * lu(1281) + lu(1326) = lu(1326) - lu(1181) * lu(1325) + lu(1327) = lu(1327) - lu(1182) * lu(1325) + lu(1328) = lu(1328) - lu(1183) * lu(1325) + lu(1329) = lu(1329) - lu(1184) * lu(1325) + lu(1330) = lu(1330) - lu(1185) * lu(1325) + lu(1331) = lu(1331) - lu(1186) * lu(1325) + lu(1332) = lu(1332) - lu(1187) * lu(1325) + lu(1333) = lu(1333) - lu(1188) * lu(1325) + lu(1334) = lu(1334) - lu(1189) * lu(1325) + lu(1335) = lu(1335) - lu(1190) * lu(1325) + lu(1336) = lu(1336) - lu(1191) * lu(1325) + lu(1337) = lu(1337) - lu(1192) * lu(1325) + lu(1338) = lu(1338) - lu(1193) * lu(1325) + lu(1339) = lu(1339) - lu(1194) * lu(1325) + lu(1340) = lu(1340) - lu(1195) * lu(1325) + lu(1341) = lu(1341) - lu(1196) * lu(1325) + lu(1361) = lu(1361) - lu(1181) * lu(1360) + lu(1362) = lu(1362) - lu(1182) * lu(1360) + lu(1363) = lu(1363) - lu(1183) * lu(1360) + lu(1364) = lu(1364) - lu(1184) * lu(1360) + lu(1365) = lu(1365) - lu(1185) * lu(1360) + lu(1366) = lu(1366) - lu(1186) * lu(1360) + lu(1367) = lu(1367) - lu(1187) * lu(1360) + lu(1368) = lu(1368) - lu(1188) * lu(1360) + lu(1369) = lu(1369) - lu(1189) * lu(1360) + lu(1370) = lu(1370) - lu(1190) * lu(1360) + lu(1371) = lu(1371) - lu(1191) * lu(1360) + lu(1372) = lu(1372) - lu(1192) * lu(1360) + lu(1373) = lu(1373) - lu(1193) * lu(1360) + lu(1374) = lu(1374) - lu(1194) * lu(1360) + lu(1375) = lu(1375) - lu(1195) * lu(1360) + lu(1376) = lu(1376) - lu(1196) * lu(1360) + lu(1405) = lu(1405) - lu(1181) * lu(1404) + lu(1406) = lu(1406) - lu(1182) * lu(1404) + lu(1407) = lu(1407) - lu(1183) * lu(1404) + lu(1408) = lu(1408) - lu(1184) * lu(1404) + lu(1409) = lu(1409) - lu(1185) * lu(1404) + lu(1410) = lu(1410) - lu(1186) * lu(1404) + lu(1411) = lu(1411) - lu(1187) * lu(1404) + lu(1412) = lu(1412) - lu(1188) * lu(1404) + lu(1413) = lu(1413) - lu(1189) * lu(1404) + lu(1414) = lu(1414) - lu(1190) * lu(1404) + lu(1415) = lu(1415) - lu(1191) * lu(1404) + lu(1416) = lu(1416) - lu(1192) * lu(1404) + lu(1417) = lu(1417) - lu(1193) * lu(1404) + lu(1418) = lu(1418) - lu(1194) * lu(1404) + lu(1419) = lu(1419) - lu(1195) * lu(1404) + lu(1420) = lu(1420) - lu(1196) * lu(1404) + lu(1446) = lu(1446) - lu(1181) * lu(1445) + lu(1447) = lu(1447) - lu(1182) * lu(1445) + lu(1448) = lu(1448) - lu(1183) * lu(1445) + lu(1449) = lu(1449) - lu(1184) * lu(1445) + lu(1450) = lu(1450) - lu(1185) * lu(1445) + lu(1451) = lu(1451) - lu(1186) * lu(1445) + lu(1452) = lu(1452) - lu(1187) * lu(1445) + lu(1453) = lu(1453) - lu(1188) * lu(1445) + lu(1454) = lu(1454) - lu(1189) * lu(1445) + lu(1455) = lu(1455) - lu(1190) * lu(1445) + lu(1456) = lu(1456) - lu(1191) * lu(1445) + lu(1457) = lu(1457) - lu(1192) * lu(1445) + lu(1458) = lu(1458) - lu(1193) * lu(1445) + lu(1459) = lu(1459) - lu(1194) * lu(1445) + lu(1460) = lu(1460) - lu(1195) * lu(1445) + lu(1461) = lu(1461) - lu(1196) * lu(1445) + lu(1481) = lu(1481) - lu(1181) * lu(1480) + lu(1482) = lu(1482) - lu(1182) * lu(1480) + lu(1483) = lu(1483) - lu(1183) * lu(1480) + lu(1484) = lu(1484) - lu(1184) * lu(1480) + lu(1485) = lu(1485) - lu(1185) * lu(1480) + lu(1486) = lu(1486) - lu(1186) * lu(1480) + lu(1487) = lu(1487) - lu(1187) * lu(1480) + lu(1488) = lu(1488) - lu(1188) * lu(1480) + lu(1489) = lu(1489) - lu(1189) * lu(1480) + lu(1490) = lu(1490) - lu(1190) * lu(1480) + lu(1491) = lu(1491) - lu(1191) * lu(1480) + lu(1492) = lu(1492) - lu(1192) * lu(1480) + lu(1493) = lu(1493) - lu(1193) * lu(1480) + lu(1494) = lu(1494) - lu(1194) * lu(1480) + lu(1495) = lu(1495) - lu(1195) * lu(1480) + lu(1496) = lu(1496) - lu(1196) * lu(1480) + lu(1525) = lu(1525) - lu(1181) * lu(1524) + lu(1526) = lu(1526) - lu(1182) * lu(1524) + lu(1527) = lu(1527) - lu(1183) * lu(1524) + lu(1528) = lu(1528) - lu(1184) * lu(1524) + lu(1529) = lu(1529) - lu(1185) * lu(1524) + lu(1530) = lu(1530) - lu(1186) * lu(1524) + lu(1531) = lu(1531) - lu(1187) * lu(1524) + lu(1532) = lu(1532) - lu(1188) * lu(1524) + lu(1533) = lu(1533) - lu(1189) * lu(1524) + lu(1534) = lu(1534) - lu(1190) * lu(1524) + lu(1535) = lu(1535) - lu(1191) * lu(1524) + lu(1536) = lu(1536) - lu(1192) * lu(1524) + lu(1537) = lu(1537) - lu(1193) * lu(1524) + lu(1538) = lu(1538) - lu(1194) * lu(1524) + lu(1539) = lu(1539) - lu(1195) * lu(1524) + lu(1540) = lu(1540) - lu(1196) * lu(1524) + lu(1567) = lu(1567) - lu(1181) * lu(1566) + lu(1568) = lu(1568) - lu(1182) * lu(1566) + lu(1569) = lu(1569) - lu(1183) * lu(1566) + lu(1570) = lu(1570) - lu(1184) * lu(1566) + lu(1571) = lu(1571) - lu(1185) * lu(1566) + lu(1572) = lu(1572) - lu(1186) * lu(1566) + lu(1573) = lu(1573) - lu(1187) * lu(1566) + lu(1574) = lu(1574) - lu(1188) * lu(1566) + lu(1575) = lu(1575) - lu(1189) * lu(1566) + lu(1576) = lu(1576) - lu(1190) * lu(1566) + lu(1577) = lu(1577) - lu(1191) * lu(1566) + lu(1578) = lu(1578) - lu(1192) * lu(1566) + lu(1579) = lu(1579) - lu(1193) * lu(1566) + lu(1580) = lu(1580) - lu(1194) * lu(1566) + lu(1581) = lu(1581) - lu(1195) * lu(1566) + lu(1582) = lu(1582) - lu(1196) * lu(1566) + lu(1606) = lu(1606) - lu(1181) * lu(1605) + lu(1607) = lu(1607) - lu(1182) * lu(1605) + lu(1608) = lu(1608) - lu(1183) * lu(1605) + lu(1609) = lu(1609) - lu(1184) * lu(1605) + lu(1610) = lu(1610) - lu(1185) * lu(1605) + lu(1611) = lu(1611) - lu(1186) * lu(1605) + lu(1612) = lu(1612) - lu(1187) * lu(1605) + lu(1613) = lu(1613) - lu(1188) * lu(1605) + lu(1614) = lu(1614) - lu(1189) * lu(1605) + lu(1615) = lu(1615) - lu(1190) * lu(1605) + lu(1616) = lu(1616) - lu(1191) * lu(1605) + lu(1617) = lu(1617) - lu(1192) * lu(1605) + lu(1618) = lu(1618) - lu(1193) * lu(1605) + lu(1619) = lu(1619) - lu(1194) * lu(1605) + lu(1620) = lu(1620) - lu(1195) * lu(1605) + lu(1621) = lu(1621) - lu(1196) * lu(1605) + lu(1638) = lu(1638) - lu(1181) * lu(1637) + lu(1639) = lu(1639) - lu(1182) * lu(1637) + lu(1640) = lu(1640) - lu(1183) * lu(1637) + lu(1641) = lu(1641) - lu(1184) * lu(1637) + lu(1642) = lu(1642) - lu(1185) * lu(1637) + lu(1643) = lu(1643) - lu(1186) * lu(1637) + lu(1644) = lu(1644) - lu(1187) * lu(1637) + lu(1645) = lu(1645) - lu(1188) * lu(1637) + lu(1646) = lu(1646) - lu(1189) * lu(1637) + lu(1647) = lu(1647) - lu(1190) * lu(1637) + lu(1648) = lu(1648) - lu(1191) * lu(1637) + lu(1649) = lu(1649) - lu(1192) * lu(1637) + lu(1650) = lu(1650) - lu(1193) * lu(1637) + lu(1651) = lu(1651) - lu(1194) * lu(1637) + lu(1652) = lu(1652) - lu(1195) * lu(1637) + lu(1653) = lu(1653) - lu(1196) * lu(1637) + lu(1673) = lu(1673) - lu(1181) * lu(1672) + lu(1674) = lu(1674) - lu(1182) * lu(1672) + lu(1675) = lu(1675) - lu(1183) * lu(1672) + lu(1676) = lu(1676) - lu(1184) * lu(1672) + lu(1677) = lu(1677) - lu(1185) * lu(1672) + lu(1678) = lu(1678) - lu(1186) * lu(1672) + lu(1679) = lu(1679) - lu(1187) * lu(1672) + lu(1680) = lu(1680) - lu(1188) * lu(1672) + lu(1681) = lu(1681) - lu(1189) * lu(1672) + lu(1682) = lu(1682) - lu(1190) * lu(1672) + lu(1683) = lu(1683) - lu(1191) * lu(1672) + lu(1684) = lu(1684) - lu(1192) * lu(1672) + lu(1685) = lu(1685) - lu(1193) * lu(1672) + lu(1686) = lu(1686) - lu(1194) * lu(1672) + lu(1687) = lu(1687) - lu(1195) * lu(1672) + lu(1688) = lu(1688) - lu(1196) * lu(1672) + lu(1715) = lu(1715) - lu(1181) * lu(1714) + lu(1716) = lu(1716) - lu(1182) * lu(1714) + lu(1717) = lu(1717) - lu(1183) * lu(1714) + lu(1718) = lu(1718) - lu(1184) * lu(1714) + lu(1719) = lu(1719) - lu(1185) * lu(1714) + lu(1720) = lu(1720) - lu(1186) * lu(1714) + lu(1721) = lu(1721) - lu(1187) * lu(1714) + lu(1722) = lu(1722) - lu(1188) * lu(1714) + lu(1723) = lu(1723) - lu(1189) * lu(1714) + lu(1724) = lu(1724) - lu(1190) * lu(1714) + lu(1725) = lu(1725) - lu(1191) * lu(1714) + lu(1726) = lu(1726) - lu(1192) * lu(1714) + lu(1727) = lu(1727) - lu(1193) * lu(1714) + lu(1728) = lu(1728) - lu(1194) * lu(1714) + lu(1729) = lu(1729) - lu(1195) * lu(1714) + lu(1730) = lu(1730) - lu(1196) * lu(1714) + lu(1744) = lu(1744) - lu(1181) * lu(1743) + lu(1745) = lu(1745) - lu(1182) * lu(1743) + lu(1746) = lu(1746) - lu(1183) * lu(1743) + lu(1747) = lu(1747) - lu(1184) * lu(1743) + lu(1748) = lu(1748) - lu(1185) * lu(1743) + lu(1749) = lu(1749) - lu(1186) * lu(1743) + lu(1750) = lu(1750) - lu(1187) * lu(1743) + lu(1751) = lu(1751) - lu(1188) * lu(1743) + lu(1752) = lu(1752) - lu(1189) * lu(1743) + lu(1753) = lu(1753) - lu(1190) * lu(1743) + lu(1754) = lu(1754) - lu(1191) * lu(1743) + lu(1755) = lu(1755) - lu(1192) * lu(1743) + lu(1756) = lu(1756) - lu(1193) * lu(1743) + lu(1757) = lu(1757) - lu(1194) * lu(1743) + lu(1758) = lu(1758) - lu(1195) * lu(1743) + lu(1759) = lu(1759) - lu(1196) * lu(1743) + lu(1783) = lu(1783) - lu(1181) * lu(1782) + lu(1784) = lu(1784) - lu(1182) * lu(1782) + lu(1785) = lu(1785) - lu(1183) * lu(1782) + lu(1786) = lu(1786) - lu(1184) * lu(1782) + lu(1787) = lu(1787) - lu(1185) * lu(1782) + lu(1788) = lu(1788) - lu(1186) * lu(1782) + lu(1789) = lu(1789) - lu(1187) * lu(1782) + lu(1790) = lu(1790) - lu(1188) * lu(1782) + lu(1791) = lu(1791) - lu(1189) * lu(1782) + lu(1792) = lu(1792) - lu(1190) * lu(1782) + lu(1793) = lu(1793) - lu(1191) * lu(1782) + lu(1794) = lu(1794) - lu(1192) * lu(1782) + lu(1795) = lu(1795) - lu(1193) * lu(1782) + lu(1796) = lu(1796) - lu(1194) * lu(1782) + lu(1797) = lu(1797) - lu(1195) * lu(1782) + lu(1798) = lu(1798) - lu(1196) * lu(1782) + lu(1841) = lu(1841) - lu(1181) * lu(1840) + lu(1842) = lu(1842) - lu(1182) * lu(1840) + lu(1843) = lu(1843) - lu(1183) * lu(1840) + lu(1844) = lu(1844) - lu(1184) * lu(1840) + lu(1845) = lu(1845) - lu(1185) * lu(1840) + lu(1846) = lu(1846) - lu(1186) * lu(1840) + lu(1847) = lu(1847) - lu(1187) * lu(1840) + lu(1848) = lu(1848) - lu(1188) * lu(1840) + lu(1849) = lu(1849) - lu(1189) * lu(1840) + lu(1850) = lu(1850) - lu(1190) * lu(1840) + lu(1851) = lu(1851) - lu(1191) * lu(1840) + lu(1852) = lu(1852) - lu(1192) * lu(1840) + lu(1853) = lu(1853) - lu(1193) * lu(1840) + lu(1854) = lu(1854) - lu(1194) * lu(1840) + lu(1855) = lu(1855) - lu(1195) * lu(1840) + lu(1856) = lu(1856) - lu(1196) * lu(1840) + lu(1240) = 1._r8 / lu(1240) + lu(1241) = lu(1241) * lu(1240) + lu(1242) = lu(1242) * lu(1240) + lu(1243) = lu(1243) * lu(1240) + lu(1244) = lu(1244) * lu(1240) + lu(1245) = lu(1245) * lu(1240) + lu(1246) = lu(1246) * lu(1240) + lu(1247) = lu(1247) * lu(1240) + lu(1248) = lu(1248) * lu(1240) + lu(1249) = lu(1249) * lu(1240) + lu(1250) = lu(1250) * lu(1240) + lu(1251) = lu(1251) * lu(1240) + lu(1252) = lu(1252) * lu(1240) + lu(1253) = lu(1253) * lu(1240) + lu(1254) = lu(1254) * lu(1240) + lu(1255) = lu(1255) * lu(1240) + lu(1283) = lu(1283) - lu(1241) * lu(1282) + lu(1284) = lu(1284) - lu(1242) * lu(1282) + lu(1285) = lu(1285) - lu(1243) * lu(1282) + lu(1286) = lu(1286) - lu(1244) * lu(1282) + lu(1287) = lu(1287) - lu(1245) * lu(1282) + lu(1288) = lu(1288) - lu(1246) * lu(1282) + lu(1289) = lu(1289) - lu(1247) * lu(1282) + lu(1290) = lu(1290) - lu(1248) * lu(1282) + lu(1291) = lu(1291) - lu(1249) * lu(1282) + lu(1292) = lu(1292) - lu(1250) * lu(1282) + lu(1293) = lu(1293) - lu(1251) * lu(1282) + lu(1294) = lu(1294) - lu(1252) * lu(1282) + lu(1295) = lu(1295) - lu(1253) * lu(1282) + lu(1296) = lu(1296) - lu(1254) * lu(1282) + lu(1297) = lu(1297) - lu(1255) * lu(1282) + lu(1327) = lu(1327) - lu(1241) * lu(1326) + lu(1328) = lu(1328) - lu(1242) * lu(1326) + lu(1329) = lu(1329) - lu(1243) * lu(1326) + lu(1330) = lu(1330) - lu(1244) * lu(1326) + lu(1331) = lu(1331) - lu(1245) * lu(1326) + lu(1332) = lu(1332) - lu(1246) * lu(1326) + lu(1333) = lu(1333) - lu(1247) * lu(1326) + lu(1334) = lu(1334) - lu(1248) * lu(1326) + lu(1335) = lu(1335) - lu(1249) * lu(1326) + lu(1336) = lu(1336) - lu(1250) * lu(1326) + lu(1337) = lu(1337) - lu(1251) * lu(1326) + lu(1338) = lu(1338) - lu(1252) * lu(1326) + lu(1339) = lu(1339) - lu(1253) * lu(1326) + lu(1340) = lu(1340) - lu(1254) * lu(1326) + lu(1341) = lu(1341) - lu(1255) * lu(1326) + lu(1362) = lu(1362) - lu(1241) * lu(1361) + lu(1363) = lu(1363) - lu(1242) * lu(1361) + lu(1364) = lu(1364) - lu(1243) * lu(1361) + lu(1365) = lu(1365) - lu(1244) * lu(1361) + lu(1366) = lu(1366) - lu(1245) * lu(1361) + lu(1367) = lu(1367) - lu(1246) * lu(1361) + lu(1368) = lu(1368) - lu(1247) * lu(1361) + lu(1369) = lu(1369) - lu(1248) * lu(1361) + lu(1370) = lu(1370) - lu(1249) * lu(1361) + lu(1371) = lu(1371) - lu(1250) * lu(1361) + lu(1372) = lu(1372) - lu(1251) * lu(1361) + lu(1373) = lu(1373) - lu(1252) * lu(1361) + lu(1374) = lu(1374) - lu(1253) * lu(1361) + lu(1375) = lu(1375) - lu(1254) * lu(1361) + lu(1376) = lu(1376) - lu(1255) * lu(1361) + lu(1406) = lu(1406) - lu(1241) * lu(1405) + lu(1407) = lu(1407) - lu(1242) * lu(1405) + lu(1408) = lu(1408) - lu(1243) * lu(1405) + lu(1409) = lu(1409) - lu(1244) * lu(1405) + lu(1410) = lu(1410) - lu(1245) * lu(1405) + lu(1411) = lu(1411) - lu(1246) * lu(1405) + lu(1412) = lu(1412) - lu(1247) * lu(1405) + lu(1413) = lu(1413) - lu(1248) * lu(1405) + lu(1414) = lu(1414) - lu(1249) * lu(1405) + lu(1415) = lu(1415) - lu(1250) * lu(1405) + lu(1416) = lu(1416) - lu(1251) * lu(1405) + lu(1417) = lu(1417) - lu(1252) * lu(1405) + lu(1418) = lu(1418) - lu(1253) * lu(1405) + lu(1419) = lu(1419) - lu(1254) * lu(1405) + lu(1420) = lu(1420) - lu(1255) * lu(1405) + lu(1447) = lu(1447) - lu(1241) * lu(1446) + lu(1448) = lu(1448) - lu(1242) * lu(1446) + lu(1449) = lu(1449) - lu(1243) * lu(1446) + lu(1450) = lu(1450) - lu(1244) * lu(1446) + lu(1451) = lu(1451) - lu(1245) * lu(1446) + lu(1452) = lu(1452) - lu(1246) * lu(1446) + lu(1453) = lu(1453) - lu(1247) * lu(1446) + lu(1454) = lu(1454) - lu(1248) * lu(1446) + lu(1455) = lu(1455) - lu(1249) * lu(1446) + lu(1456) = lu(1456) - lu(1250) * lu(1446) + lu(1457) = lu(1457) - lu(1251) * lu(1446) + lu(1458) = lu(1458) - lu(1252) * lu(1446) + lu(1459) = lu(1459) - lu(1253) * lu(1446) + lu(1460) = lu(1460) - lu(1254) * lu(1446) + lu(1461) = lu(1461) - lu(1255) * lu(1446) + lu(1482) = lu(1482) - lu(1241) * lu(1481) + lu(1483) = lu(1483) - lu(1242) * lu(1481) + lu(1484) = lu(1484) - lu(1243) * lu(1481) + lu(1485) = lu(1485) - lu(1244) * lu(1481) + lu(1486) = lu(1486) - lu(1245) * lu(1481) + lu(1487) = lu(1487) - lu(1246) * lu(1481) + lu(1488) = lu(1488) - lu(1247) * lu(1481) + lu(1489) = lu(1489) - lu(1248) * lu(1481) + lu(1490) = lu(1490) - lu(1249) * lu(1481) + lu(1491) = lu(1491) - lu(1250) * lu(1481) + lu(1492) = lu(1492) - lu(1251) * lu(1481) + lu(1493) = lu(1493) - lu(1252) * lu(1481) + lu(1494) = lu(1494) - lu(1253) * lu(1481) + lu(1495) = lu(1495) - lu(1254) * lu(1481) + lu(1496) = lu(1496) - lu(1255) * lu(1481) + lu(1526) = lu(1526) - lu(1241) * lu(1525) + lu(1527) = lu(1527) - lu(1242) * lu(1525) + lu(1528) = lu(1528) - lu(1243) * lu(1525) + lu(1529) = lu(1529) - lu(1244) * lu(1525) + lu(1530) = lu(1530) - lu(1245) * lu(1525) + lu(1531) = lu(1531) - lu(1246) * lu(1525) + lu(1532) = lu(1532) - lu(1247) * lu(1525) + lu(1533) = lu(1533) - lu(1248) * lu(1525) + lu(1534) = lu(1534) - lu(1249) * lu(1525) + lu(1535) = lu(1535) - lu(1250) * lu(1525) + lu(1536) = lu(1536) - lu(1251) * lu(1525) + lu(1537) = lu(1537) - lu(1252) * lu(1525) + lu(1538) = lu(1538) - lu(1253) * lu(1525) + lu(1539) = lu(1539) - lu(1254) * lu(1525) + lu(1540) = lu(1540) - lu(1255) * lu(1525) + lu(1568) = lu(1568) - lu(1241) * lu(1567) + lu(1569) = lu(1569) - lu(1242) * lu(1567) + lu(1570) = lu(1570) - lu(1243) * lu(1567) + lu(1571) = lu(1571) - lu(1244) * lu(1567) + lu(1572) = lu(1572) - lu(1245) * lu(1567) + lu(1573) = lu(1573) - lu(1246) * lu(1567) + lu(1574) = lu(1574) - lu(1247) * lu(1567) + lu(1575) = lu(1575) - lu(1248) * lu(1567) + lu(1576) = lu(1576) - lu(1249) * lu(1567) + lu(1577) = lu(1577) - lu(1250) * lu(1567) + lu(1578) = lu(1578) - lu(1251) * lu(1567) + lu(1579) = lu(1579) - lu(1252) * lu(1567) + lu(1580) = lu(1580) - lu(1253) * lu(1567) + lu(1581) = lu(1581) - lu(1254) * lu(1567) + lu(1582) = lu(1582) - lu(1255) * lu(1567) + lu(1607) = lu(1607) - lu(1241) * lu(1606) + lu(1608) = lu(1608) - lu(1242) * lu(1606) + lu(1609) = lu(1609) - lu(1243) * lu(1606) + lu(1610) = lu(1610) - lu(1244) * lu(1606) + lu(1611) = lu(1611) - lu(1245) * lu(1606) + lu(1612) = lu(1612) - lu(1246) * lu(1606) + lu(1613) = lu(1613) - lu(1247) * lu(1606) + lu(1614) = lu(1614) - lu(1248) * lu(1606) + lu(1615) = lu(1615) - lu(1249) * lu(1606) + lu(1616) = lu(1616) - lu(1250) * lu(1606) + lu(1617) = lu(1617) - lu(1251) * lu(1606) + lu(1618) = lu(1618) - lu(1252) * lu(1606) + lu(1619) = lu(1619) - lu(1253) * lu(1606) + lu(1620) = lu(1620) - lu(1254) * lu(1606) + lu(1621) = lu(1621) - lu(1255) * lu(1606) + lu(1639) = lu(1639) - lu(1241) * lu(1638) + lu(1640) = lu(1640) - lu(1242) * lu(1638) + lu(1641) = lu(1641) - lu(1243) * lu(1638) + lu(1642) = lu(1642) - lu(1244) * lu(1638) + lu(1643) = lu(1643) - lu(1245) * lu(1638) + lu(1644) = lu(1644) - lu(1246) * lu(1638) + lu(1645) = lu(1645) - lu(1247) * lu(1638) + lu(1646) = lu(1646) - lu(1248) * lu(1638) + lu(1647) = lu(1647) - lu(1249) * lu(1638) + lu(1648) = lu(1648) - lu(1250) * lu(1638) + lu(1649) = lu(1649) - lu(1251) * lu(1638) + lu(1650) = lu(1650) - lu(1252) * lu(1638) + lu(1651) = lu(1651) - lu(1253) * lu(1638) + lu(1652) = lu(1652) - lu(1254) * lu(1638) + lu(1653) = lu(1653) - lu(1255) * lu(1638) + lu(1674) = lu(1674) - lu(1241) * lu(1673) + lu(1675) = lu(1675) - lu(1242) * lu(1673) + lu(1676) = lu(1676) - lu(1243) * lu(1673) + lu(1677) = lu(1677) - lu(1244) * lu(1673) + lu(1678) = lu(1678) - lu(1245) * lu(1673) + lu(1679) = lu(1679) - lu(1246) * lu(1673) + lu(1680) = lu(1680) - lu(1247) * lu(1673) + lu(1681) = lu(1681) - lu(1248) * lu(1673) + lu(1682) = lu(1682) - lu(1249) * lu(1673) + lu(1683) = lu(1683) - lu(1250) * lu(1673) + lu(1684) = lu(1684) - lu(1251) * lu(1673) + lu(1685) = lu(1685) - lu(1252) * lu(1673) + lu(1686) = lu(1686) - lu(1253) * lu(1673) + lu(1687) = lu(1687) - lu(1254) * lu(1673) + lu(1688) = lu(1688) - lu(1255) * lu(1673) + lu(1716) = lu(1716) - lu(1241) * lu(1715) + lu(1717) = lu(1717) - lu(1242) * lu(1715) + lu(1718) = lu(1718) - lu(1243) * lu(1715) + lu(1719) = lu(1719) - lu(1244) * lu(1715) + lu(1720) = lu(1720) - lu(1245) * lu(1715) + lu(1721) = lu(1721) - lu(1246) * lu(1715) + lu(1722) = lu(1722) - lu(1247) * lu(1715) + lu(1723) = lu(1723) - lu(1248) * lu(1715) + lu(1724) = lu(1724) - lu(1249) * lu(1715) + lu(1725) = lu(1725) - lu(1250) * lu(1715) + lu(1726) = lu(1726) - lu(1251) * lu(1715) + lu(1727) = lu(1727) - lu(1252) * lu(1715) + lu(1728) = lu(1728) - lu(1253) * lu(1715) + lu(1729) = lu(1729) - lu(1254) * lu(1715) + lu(1730) = lu(1730) - lu(1255) * lu(1715) + lu(1745) = lu(1745) - lu(1241) * lu(1744) + lu(1746) = lu(1746) - lu(1242) * lu(1744) + lu(1747) = lu(1747) - lu(1243) * lu(1744) + lu(1748) = lu(1748) - lu(1244) * lu(1744) + lu(1749) = lu(1749) - lu(1245) * lu(1744) + lu(1750) = lu(1750) - lu(1246) * lu(1744) + lu(1751) = lu(1751) - lu(1247) * lu(1744) + lu(1752) = lu(1752) - lu(1248) * lu(1744) + lu(1753) = lu(1753) - lu(1249) * lu(1744) + lu(1754) = lu(1754) - lu(1250) * lu(1744) + lu(1755) = lu(1755) - lu(1251) * lu(1744) + lu(1756) = lu(1756) - lu(1252) * lu(1744) + lu(1757) = lu(1757) - lu(1253) * lu(1744) + lu(1758) = lu(1758) - lu(1254) * lu(1744) + lu(1759) = lu(1759) - lu(1255) * lu(1744) + lu(1784) = lu(1784) - lu(1241) * lu(1783) + lu(1785) = lu(1785) - lu(1242) * lu(1783) + lu(1786) = lu(1786) - lu(1243) * lu(1783) + lu(1787) = lu(1787) - lu(1244) * lu(1783) + lu(1788) = lu(1788) - lu(1245) * lu(1783) + lu(1789) = lu(1789) - lu(1246) * lu(1783) + lu(1790) = lu(1790) - lu(1247) * lu(1783) + lu(1791) = lu(1791) - lu(1248) * lu(1783) + lu(1792) = lu(1792) - lu(1249) * lu(1783) + lu(1793) = lu(1793) - lu(1250) * lu(1783) + lu(1794) = lu(1794) - lu(1251) * lu(1783) + lu(1795) = lu(1795) - lu(1252) * lu(1783) + lu(1796) = lu(1796) - lu(1253) * lu(1783) + lu(1797) = lu(1797) - lu(1254) * lu(1783) + lu(1798) = lu(1798) - lu(1255) * lu(1783) + lu(1842) = lu(1842) - lu(1241) * lu(1841) + lu(1843) = lu(1843) - lu(1242) * lu(1841) + lu(1844) = lu(1844) - lu(1243) * lu(1841) + lu(1845) = lu(1845) - lu(1244) * lu(1841) + lu(1846) = lu(1846) - lu(1245) * lu(1841) + lu(1847) = lu(1847) - lu(1246) * lu(1841) + lu(1848) = lu(1848) - lu(1247) * lu(1841) + lu(1849) = lu(1849) - lu(1248) * lu(1841) + lu(1850) = lu(1850) - lu(1249) * lu(1841) + lu(1851) = lu(1851) - lu(1250) * lu(1841) + lu(1852) = lu(1852) - lu(1251) * lu(1841) + lu(1853) = lu(1853) - lu(1252) * lu(1841) + lu(1854) = lu(1854) - lu(1253) * lu(1841) + lu(1855) = lu(1855) - lu(1254) * lu(1841) + lu(1856) = lu(1856) - lu(1255) * lu(1841) end subroutine lu_fac21 - subroutine lu_fac22( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac22( lu ) 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,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,1266) = lu(k,1266) * lu(k,1252) - lu(k,1292) = lu(k,1292) - lu(k,1253) * lu(k,1291) - lu(k,1293) = lu(k,1293) - lu(k,1254) * lu(k,1291) - lu(k,1294) = lu(k,1294) - lu(k,1255) * lu(k,1291) - lu(k,1295) = lu(k,1295) - lu(k,1256) * lu(k,1291) - lu(k,1296) = lu(k,1296) - lu(k,1257) * lu(k,1291) - lu(k,1297) = lu(k,1297) - lu(k,1258) * lu(k,1291) - lu(k,1298) = lu(k,1298) - lu(k,1259) * lu(k,1291) - lu(k,1299) = lu(k,1299) - lu(k,1260) * lu(k,1291) - lu(k,1300) = lu(k,1300) - lu(k,1261) * lu(k,1291) - lu(k,1301) = lu(k,1301) - lu(k,1262) * lu(k,1291) - lu(k,1302) = lu(k,1302) - lu(k,1263) * lu(k,1291) - lu(k,1303) = lu(k,1303) - lu(k,1264) * lu(k,1291) - lu(k,1304) = lu(k,1304) - lu(k,1265) * lu(k,1291) - lu(k,1305) = lu(k,1305) - lu(k,1266) * lu(k,1291) - lu(k,1327) = lu(k,1327) - lu(k,1253) * lu(k,1326) - lu(k,1328) = lu(k,1328) - lu(k,1254) * lu(k,1326) - lu(k,1329) = lu(k,1329) - lu(k,1255) * lu(k,1326) - lu(k,1330) = lu(k,1330) - lu(k,1256) * lu(k,1326) - lu(k,1331) = lu(k,1331) - lu(k,1257) * lu(k,1326) - lu(k,1332) = lu(k,1332) - lu(k,1258) * lu(k,1326) - lu(k,1333) = lu(k,1333) - lu(k,1259) * lu(k,1326) - lu(k,1334) = lu(k,1334) - lu(k,1260) * lu(k,1326) - lu(k,1335) = lu(k,1335) - lu(k,1261) * lu(k,1326) - lu(k,1336) = lu(k,1336) - lu(k,1262) * lu(k,1326) - lu(k,1337) = lu(k,1337) - lu(k,1263) * lu(k,1326) - lu(k,1338) = lu(k,1338) - lu(k,1264) * lu(k,1326) - lu(k,1339) = lu(k,1339) - lu(k,1265) * lu(k,1326) - lu(k,1340) = lu(k,1340) - lu(k,1266) * lu(k,1326) - lu(k,1371) = lu(k,1371) - lu(k,1253) * lu(k,1370) - lu(k,1372) = lu(k,1372) - lu(k,1254) * lu(k,1370) - lu(k,1373) = lu(k,1373) - lu(k,1255) * lu(k,1370) - lu(k,1374) = lu(k,1374) - lu(k,1256) * lu(k,1370) - lu(k,1375) = lu(k,1375) - lu(k,1257) * lu(k,1370) - lu(k,1376) = lu(k,1376) - lu(k,1258) * lu(k,1370) - lu(k,1377) = lu(k,1377) - lu(k,1259) * lu(k,1370) - lu(k,1378) = lu(k,1378) - lu(k,1260) * lu(k,1370) - lu(k,1379) = lu(k,1379) - lu(k,1261) * lu(k,1370) - lu(k,1380) = lu(k,1380) - lu(k,1262) * lu(k,1370) - lu(k,1381) = lu(k,1381) - lu(k,1263) * lu(k,1370) - lu(k,1382) = lu(k,1382) - lu(k,1264) * lu(k,1370) - lu(k,1383) = lu(k,1383) - lu(k,1265) * lu(k,1370) - lu(k,1384) = lu(k,1384) - lu(k,1266) * lu(k,1370) - lu(k,1430) = lu(k,1430) - lu(k,1253) * lu(k,1429) - lu(k,1431) = lu(k,1431) - lu(k,1254) * lu(k,1429) - lu(k,1432) = lu(k,1432) - lu(k,1255) * lu(k,1429) - lu(k,1433) = lu(k,1433) - lu(k,1256) * lu(k,1429) - lu(k,1434) = lu(k,1434) - lu(k,1257) * lu(k,1429) - lu(k,1435) = lu(k,1435) - lu(k,1258) * lu(k,1429) - lu(k,1436) = lu(k,1436) - lu(k,1259) * lu(k,1429) - lu(k,1437) = lu(k,1437) - lu(k,1260) * lu(k,1429) - lu(k,1438) = lu(k,1438) - lu(k,1261) * lu(k,1429) - lu(k,1439) = lu(k,1439) - lu(k,1262) * lu(k,1429) - lu(k,1440) = lu(k,1440) - lu(k,1263) * lu(k,1429) - lu(k,1441) = lu(k,1441) - lu(k,1264) * lu(k,1429) - lu(k,1442) = lu(k,1442) - lu(k,1265) * lu(k,1429) - lu(k,1443) = lu(k,1443) - lu(k,1266) * lu(k,1429) - lu(k,1472) = lu(k,1472) - lu(k,1253) * lu(k,1471) - lu(k,1473) = lu(k,1473) - lu(k,1254) * lu(k,1471) - lu(k,1474) = lu(k,1474) - lu(k,1255) * lu(k,1471) - lu(k,1475) = lu(k,1475) - lu(k,1256) * lu(k,1471) - lu(k,1476) = lu(k,1476) - lu(k,1257) * lu(k,1471) - lu(k,1477) = lu(k,1477) - lu(k,1258) * lu(k,1471) - lu(k,1478) = lu(k,1478) - lu(k,1259) * lu(k,1471) - lu(k,1479) = lu(k,1479) - lu(k,1260) * lu(k,1471) - lu(k,1480) = lu(k,1480) - lu(k,1261) * lu(k,1471) - lu(k,1481) = lu(k,1481) - lu(k,1262) * lu(k,1471) - lu(k,1482) = lu(k,1482) - lu(k,1263) * lu(k,1471) - lu(k,1483) = lu(k,1483) - lu(k,1264) * lu(k,1471) - lu(k,1484) = lu(k,1484) - lu(k,1265) * lu(k,1471) - lu(k,1485) = lu(k,1485) - lu(k,1266) * lu(k,1471) - lu(k,1513) = lu(k,1513) - lu(k,1253) * lu(k,1512) - lu(k,1514) = lu(k,1514) - lu(k,1254) * lu(k,1512) - lu(k,1515) = lu(k,1515) - lu(k,1255) * lu(k,1512) - lu(k,1516) = lu(k,1516) - lu(k,1256) * lu(k,1512) - lu(k,1517) = lu(k,1517) - lu(k,1257) * lu(k,1512) - lu(k,1518) = lu(k,1518) - lu(k,1258) * lu(k,1512) - lu(k,1519) = lu(k,1519) - lu(k,1259) * lu(k,1512) - lu(k,1520) = lu(k,1520) - lu(k,1260) * lu(k,1512) - lu(k,1521) = lu(k,1521) - lu(k,1261) * lu(k,1512) - lu(k,1522) = lu(k,1522) - lu(k,1262) * lu(k,1512) - lu(k,1523) = lu(k,1523) - lu(k,1263) * lu(k,1512) - lu(k,1524) = lu(k,1524) - lu(k,1264) * lu(k,1512) - lu(k,1525) = lu(k,1525) - lu(k,1265) * lu(k,1512) - lu(k,1526) = lu(k,1526) - lu(k,1266) * lu(k,1512) - lu(k,1555) = lu(k,1555) - lu(k,1253) * lu(k,1554) - lu(k,1556) = lu(k,1556) - lu(k,1254) * lu(k,1554) - lu(k,1557) = lu(k,1557) - lu(k,1255) * lu(k,1554) - lu(k,1558) = lu(k,1558) - lu(k,1256) * lu(k,1554) - lu(k,1559) = lu(k,1559) - lu(k,1257) * lu(k,1554) - lu(k,1560) = lu(k,1560) - lu(k,1258) * lu(k,1554) - lu(k,1561) = lu(k,1561) - lu(k,1259) * lu(k,1554) - lu(k,1562) = lu(k,1562) - lu(k,1260) * lu(k,1554) - lu(k,1563) = lu(k,1563) - lu(k,1261) * lu(k,1554) - lu(k,1564) = lu(k,1564) - lu(k,1262) * lu(k,1554) - lu(k,1565) = lu(k,1565) - lu(k,1263) * lu(k,1554) - lu(k,1566) = lu(k,1566) - lu(k,1264) * lu(k,1554) - lu(k,1567) = lu(k,1567) - lu(k,1265) * lu(k,1554) - lu(k,1568) = lu(k,1568) - lu(k,1266) * lu(k,1554) - lu(k,1597) = lu(k,1597) - lu(k,1253) * lu(k,1596) - lu(k,1598) = lu(k,1598) - lu(k,1254) * lu(k,1596) - lu(k,1599) = lu(k,1599) - lu(k,1255) * lu(k,1596) - lu(k,1600) = lu(k,1600) - lu(k,1256) * lu(k,1596) - lu(k,1601) = lu(k,1601) - lu(k,1257) * lu(k,1596) - lu(k,1602) = lu(k,1602) - lu(k,1258) * lu(k,1596) - lu(k,1603) = lu(k,1603) - lu(k,1259) * lu(k,1596) - lu(k,1604) = lu(k,1604) - lu(k,1260) * lu(k,1596) - lu(k,1605) = lu(k,1605) - lu(k,1261) * lu(k,1596) - lu(k,1606) = lu(k,1606) - lu(k,1262) * lu(k,1596) - lu(k,1607) = lu(k,1607) - lu(k,1263) * lu(k,1596) - lu(k,1608) = lu(k,1608) - lu(k,1264) * lu(k,1596) - lu(k,1609) = lu(k,1609) - lu(k,1265) * lu(k,1596) - lu(k,1610) = lu(k,1610) - lu(k,1266) * lu(k,1596) - lu(k,1629) = lu(k,1629) - lu(k,1253) * lu(k,1628) - lu(k,1630) = lu(k,1630) - lu(k,1254) * lu(k,1628) - lu(k,1631) = lu(k,1631) - lu(k,1255) * lu(k,1628) - lu(k,1632) = lu(k,1632) - lu(k,1256) * lu(k,1628) - lu(k,1633) = lu(k,1633) - lu(k,1257) * lu(k,1628) - lu(k,1634) = lu(k,1634) - lu(k,1258) * lu(k,1628) - lu(k,1635) = lu(k,1635) - lu(k,1259) * lu(k,1628) - lu(k,1636) = lu(k,1636) - lu(k,1260) * lu(k,1628) - lu(k,1637) = lu(k,1637) - lu(k,1261) * lu(k,1628) - lu(k,1638) = lu(k,1638) - lu(k,1262) * lu(k,1628) - lu(k,1639) = lu(k,1639) - lu(k,1263) * lu(k,1628) - lu(k,1640) = lu(k,1640) - lu(k,1264) * lu(k,1628) - lu(k,1641) = lu(k,1641) - lu(k,1265) * lu(k,1628) - lu(k,1642) = lu(k,1642) - lu(k,1266) * lu(k,1628) - lu(k,1664) = lu(k,1664) - lu(k,1253) * lu(k,1663) - lu(k,1665) = lu(k,1665) - lu(k,1254) * lu(k,1663) - lu(k,1666) = lu(k,1666) - lu(k,1255) * lu(k,1663) - lu(k,1667) = lu(k,1667) - lu(k,1256) * lu(k,1663) - lu(k,1668) = lu(k,1668) - lu(k,1257) * lu(k,1663) - lu(k,1669) = lu(k,1669) - lu(k,1258) * lu(k,1663) - lu(k,1670) = lu(k,1670) - lu(k,1259) * lu(k,1663) - lu(k,1671) = lu(k,1671) - lu(k,1260) * lu(k,1663) - lu(k,1672) = lu(k,1672) - lu(k,1261) * lu(k,1663) - lu(k,1673) = lu(k,1673) - lu(k,1262) * lu(k,1663) - lu(k,1674) = lu(k,1674) - lu(k,1263) * lu(k,1663) - lu(k,1675) = lu(k,1675) - lu(k,1264) * lu(k,1663) - lu(k,1676) = lu(k,1676) - lu(k,1265) * lu(k,1663) - lu(k,1677) = lu(k,1677) - lu(k,1266) * lu(k,1663) - lu(k,1706) = lu(k,1706) - lu(k,1253) * lu(k,1705) - lu(k,1707) = lu(k,1707) - lu(k,1254) * lu(k,1705) - lu(k,1708) = lu(k,1708) - lu(k,1255) * lu(k,1705) - lu(k,1709) = lu(k,1709) - lu(k,1256) * lu(k,1705) - lu(k,1710) = lu(k,1710) - lu(k,1257) * lu(k,1705) - lu(k,1711) = lu(k,1711) - lu(k,1258) * lu(k,1705) - lu(k,1712) = lu(k,1712) - lu(k,1259) * lu(k,1705) - lu(k,1713) = lu(k,1713) - lu(k,1260) * lu(k,1705) - lu(k,1714) = lu(k,1714) - lu(k,1261) * lu(k,1705) - lu(k,1715) = lu(k,1715) - lu(k,1262) * lu(k,1705) - lu(k,1716) = lu(k,1716) - lu(k,1263) * lu(k,1705) - lu(k,1717) = lu(k,1717) - lu(k,1264) * lu(k,1705) - lu(k,1718) = lu(k,1718) - lu(k,1265) * lu(k,1705) - lu(k,1719) = lu(k,1719) - lu(k,1266) * lu(k,1705) - lu(k,1750) = lu(k,1750) - lu(k,1253) * lu(k,1749) - lu(k,1751) = lu(k,1751) - lu(k,1254) * lu(k,1749) - lu(k,1752) = lu(k,1752) - lu(k,1255) * lu(k,1749) - lu(k,1753) = lu(k,1753) - lu(k,1256) * lu(k,1749) - lu(k,1754) = lu(k,1754) - lu(k,1257) * lu(k,1749) - lu(k,1755) = lu(k,1755) - lu(k,1258) * lu(k,1749) - lu(k,1756) = lu(k,1756) - lu(k,1259) * lu(k,1749) - lu(k,1757) = lu(k,1757) - lu(k,1260) * lu(k,1749) - lu(k,1758) = lu(k,1758) - lu(k,1261) * lu(k,1749) - lu(k,1759) = lu(k,1759) - lu(k,1262) * lu(k,1749) - lu(k,1760) = lu(k,1760) - lu(k,1263) * lu(k,1749) - lu(k,1761) = lu(k,1761) - lu(k,1264) * lu(k,1749) - lu(k,1762) = lu(k,1762) - lu(k,1265) * lu(k,1749) - lu(k,1763) = lu(k,1763) - lu(k,1266) * lu(k,1749) - lu(k,1785) = lu(k,1785) - lu(k,1253) * lu(k,1784) - lu(k,1786) = lu(k,1786) - lu(k,1254) * lu(k,1784) - lu(k,1787) = lu(k,1787) - lu(k,1255) * lu(k,1784) - lu(k,1788) = lu(k,1788) - lu(k,1256) * lu(k,1784) - lu(k,1789) = lu(k,1789) - lu(k,1257) * lu(k,1784) - lu(k,1790) = lu(k,1790) - lu(k,1258) * lu(k,1784) - lu(k,1791) = lu(k,1791) - lu(k,1259) * lu(k,1784) - lu(k,1792) = lu(k,1792) - lu(k,1260) * lu(k,1784) - lu(k,1793) = lu(k,1793) - lu(k,1261) * lu(k,1784) - lu(k,1794) = lu(k,1794) - lu(k,1262) * lu(k,1784) - lu(k,1795) = lu(k,1795) - lu(k,1263) * lu(k,1784) - lu(k,1796) = lu(k,1796) - lu(k,1264) * lu(k,1784) - lu(k,1797) = lu(k,1797) - lu(k,1265) * lu(k,1784) - lu(k,1798) = lu(k,1798) - lu(k,1266) * lu(k,1784) - lu(k,1843) = lu(k,1843) - lu(k,1253) * lu(k,1842) - lu(k,1844) = lu(k,1844) - lu(k,1254) * lu(k,1842) - lu(k,1845) = lu(k,1845) - lu(k,1255) * lu(k,1842) - lu(k,1846) = lu(k,1846) - lu(k,1256) * lu(k,1842) - lu(k,1847) = lu(k,1847) - lu(k,1257) * lu(k,1842) - lu(k,1848) = lu(k,1848) - lu(k,1258) * lu(k,1842) - lu(k,1849) = lu(k,1849) - lu(k,1259) * lu(k,1842) - lu(k,1850) = lu(k,1850) - lu(k,1260) * lu(k,1842) - lu(k,1851) = lu(k,1851) - lu(k,1261) * lu(k,1842) - lu(k,1852) = lu(k,1852) - lu(k,1262) * lu(k,1842) - lu(k,1853) = lu(k,1853) - lu(k,1263) * lu(k,1842) - lu(k,1854) = lu(k,1854) - lu(k,1264) * lu(k,1842) - lu(k,1855) = lu(k,1855) - lu(k,1265) * lu(k,1842) - lu(k,1856) = lu(k,1856) - lu(k,1266) * lu(k,1842) - lu(k,1292) = 1._r8 / lu(k,1292) - lu(k,1293) = lu(k,1293) * lu(k,1292) - lu(k,1294) = lu(k,1294) * lu(k,1292) - lu(k,1295) = lu(k,1295) * lu(k,1292) - lu(k,1296) = lu(k,1296) * lu(k,1292) - lu(k,1297) = lu(k,1297) * lu(k,1292) - lu(k,1298) = lu(k,1298) * lu(k,1292) - lu(k,1299) = lu(k,1299) * lu(k,1292) - lu(k,1300) = lu(k,1300) * lu(k,1292) - lu(k,1301) = lu(k,1301) * lu(k,1292) - lu(k,1302) = lu(k,1302) * lu(k,1292) - lu(k,1303) = lu(k,1303) * lu(k,1292) - lu(k,1304) = lu(k,1304) * lu(k,1292) - lu(k,1305) = lu(k,1305) * lu(k,1292) - lu(k,1328) = lu(k,1328) - lu(k,1293) * lu(k,1327) - lu(k,1329) = lu(k,1329) - lu(k,1294) * lu(k,1327) - lu(k,1330) = lu(k,1330) - lu(k,1295) * lu(k,1327) - lu(k,1331) = lu(k,1331) - lu(k,1296) * lu(k,1327) - lu(k,1332) = lu(k,1332) - lu(k,1297) * lu(k,1327) - lu(k,1333) = lu(k,1333) - lu(k,1298) * lu(k,1327) - lu(k,1334) = lu(k,1334) - lu(k,1299) * lu(k,1327) - lu(k,1335) = lu(k,1335) - lu(k,1300) * lu(k,1327) - lu(k,1336) = lu(k,1336) - lu(k,1301) * lu(k,1327) - lu(k,1337) = lu(k,1337) - lu(k,1302) * lu(k,1327) - lu(k,1338) = lu(k,1338) - lu(k,1303) * lu(k,1327) - lu(k,1339) = lu(k,1339) - lu(k,1304) * lu(k,1327) - lu(k,1340) = lu(k,1340) - lu(k,1305) * lu(k,1327) - lu(k,1372) = lu(k,1372) - lu(k,1293) * lu(k,1371) - lu(k,1373) = lu(k,1373) - lu(k,1294) * lu(k,1371) - lu(k,1374) = lu(k,1374) - lu(k,1295) * lu(k,1371) - lu(k,1375) = lu(k,1375) - lu(k,1296) * lu(k,1371) - lu(k,1376) = lu(k,1376) - lu(k,1297) * lu(k,1371) - lu(k,1377) = lu(k,1377) - lu(k,1298) * lu(k,1371) - lu(k,1378) = lu(k,1378) - lu(k,1299) * lu(k,1371) - lu(k,1379) = lu(k,1379) - lu(k,1300) * lu(k,1371) - lu(k,1380) = lu(k,1380) - lu(k,1301) * lu(k,1371) - lu(k,1381) = lu(k,1381) - lu(k,1302) * lu(k,1371) - lu(k,1382) = lu(k,1382) - lu(k,1303) * lu(k,1371) - lu(k,1383) = lu(k,1383) - lu(k,1304) * lu(k,1371) - lu(k,1384) = lu(k,1384) - lu(k,1305) * lu(k,1371) - lu(k,1431) = lu(k,1431) - lu(k,1293) * lu(k,1430) - lu(k,1432) = lu(k,1432) - lu(k,1294) * lu(k,1430) - lu(k,1433) = lu(k,1433) - lu(k,1295) * lu(k,1430) - lu(k,1434) = lu(k,1434) - lu(k,1296) * lu(k,1430) - lu(k,1435) = lu(k,1435) - lu(k,1297) * lu(k,1430) - lu(k,1436) = lu(k,1436) - lu(k,1298) * lu(k,1430) - lu(k,1437) = lu(k,1437) - lu(k,1299) * lu(k,1430) - lu(k,1438) = lu(k,1438) - lu(k,1300) * lu(k,1430) - lu(k,1439) = lu(k,1439) - lu(k,1301) * lu(k,1430) - lu(k,1440) = lu(k,1440) - lu(k,1302) * lu(k,1430) - lu(k,1441) = lu(k,1441) - lu(k,1303) * lu(k,1430) - lu(k,1442) = lu(k,1442) - lu(k,1304) * lu(k,1430) - lu(k,1443) = lu(k,1443) - lu(k,1305) * lu(k,1430) - lu(k,1473) = lu(k,1473) - lu(k,1293) * lu(k,1472) - lu(k,1474) = lu(k,1474) - lu(k,1294) * lu(k,1472) - lu(k,1475) = lu(k,1475) - lu(k,1295) * lu(k,1472) - lu(k,1476) = lu(k,1476) - lu(k,1296) * lu(k,1472) - lu(k,1477) = lu(k,1477) - lu(k,1297) * lu(k,1472) - lu(k,1478) = lu(k,1478) - lu(k,1298) * lu(k,1472) - lu(k,1479) = lu(k,1479) - lu(k,1299) * lu(k,1472) - lu(k,1480) = lu(k,1480) - lu(k,1300) * lu(k,1472) - lu(k,1481) = lu(k,1481) - lu(k,1301) * lu(k,1472) - lu(k,1482) = lu(k,1482) - lu(k,1302) * lu(k,1472) - lu(k,1483) = lu(k,1483) - lu(k,1303) * lu(k,1472) - lu(k,1484) = lu(k,1484) - lu(k,1304) * lu(k,1472) - lu(k,1485) = lu(k,1485) - lu(k,1305) * lu(k,1472) - lu(k,1514) = lu(k,1514) - lu(k,1293) * lu(k,1513) - lu(k,1515) = lu(k,1515) - lu(k,1294) * lu(k,1513) - lu(k,1516) = lu(k,1516) - lu(k,1295) * lu(k,1513) - lu(k,1517) = lu(k,1517) - lu(k,1296) * lu(k,1513) - lu(k,1518) = lu(k,1518) - lu(k,1297) * lu(k,1513) - lu(k,1519) = lu(k,1519) - lu(k,1298) * lu(k,1513) - lu(k,1520) = lu(k,1520) - lu(k,1299) * lu(k,1513) - lu(k,1521) = lu(k,1521) - lu(k,1300) * lu(k,1513) - lu(k,1522) = lu(k,1522) - lu(k,1301) * lu(k,1513) - lu(k,1523) = lu(k,1523) - lu(k,1302) * lu(k,1513) - lu(k,1524) = lu(k,1524) - lu(k,1303) * lu(k,1513) - lu(k,1525) = lu(k,1525) - lu(k,1304) * lu(k,1513) - lu(k,1526) = lu(k,1526) - lu(k,1305) * lu(k,1513) - lu(k,1556) = lu(k,1556) - lu(k,1293) * lu(k,1555) - lu(k,1557) = lu(k,1557) - lu(k,1294) * lu(k,1555) - lu(k,1558) = lu(k,1558) - lu(k,1295) * lu(k,1555) - lu(k,1559) = lu(k,1559) - lu(k,1296) * lu(k,1555) - lu(k,1560) = lu(k,1560) - lu(k,1297) * lu(k,1555) - lu(k,1561) = lu(k,1561) - lu(k,1298) * lu(k,1555) - lu(k,1562) = lu(k,1562) - lu(k,1299) * lu(k,1555) - lu(k,1563) = lu(k,1563) - lu(k,1300) * lu(k,1555) - lu(k,1564) = lu(k,1564) - lu(k,1301) * lu(k,1555) - lu(k,1565) = lu(k,1565) - lu(k,1302) * lu(k,1555) - lu(k,1566) = lu(k,1566) - lu(k,1303) * lu(k,1555) - lu(k,1567) = lu(k,1567) - lu(k,1304) * lu(k,1555) - lu(k,1568) = lu(k,1568) - lu(k,1305) * lu(k,1555) - lu(k,1598) = lu(k,1598) - lu(k,1293) * lu(k,1597) - lu(k,1599) = lu(k,1599) - lu(k,1294) * lu(k,1597) - lu(k,1600) = lu(k,1600) - lu(k,1295) * lu(k,1597) - lu(k,1601) = lu(k,1601) - lu(k,1296) * lu(k,1597) - lu(k,1602) = lu(k,1602) - lu(k,1297) * lu(k,1597) - lu(k,1603) = lu(k,1603) - lu(k,1298) * lu(k,1597) - lu(k,1604) = lu(k,1604) - lu(k,1299) * lu(k,1597) - lu(k,1605) = lu(k,1605) - lu(k,1300) * lu(k,1597) - lu(k,1606) = lu(k,1606) - lu(k,1301) * lu(k,1597) - lu(k,1607) = lu(k,1607) - lu(k,1302) * lu(k,1597) - lu(k,1608) = lu(k,1608) - lu(k,1303) * lu(k,1597) - lu(k,1609) = lu(k,1609) - lu(k,1304) * lu(k,1597) - lu(k,1610) = lu(k,1610) - lu(k,1305) * lu(k,1597) - lu(k,1630) = lu(k,1630) - lu(k,1293) * lu(k,1629) - lu(k,1631) = lu(k,1631) - lu(k,1294) * lu(k,1629) - lu(k,1632) = lu(k,1632) - lu(k,1295) * lu(k,1629) - lu(k,1633) = lu(k,1633) - lu(k,1296) * lu(k,1629) - lu(k,1634) = lu(k,1634) - lu(k,1297) * lu(k,1629) - lu(k,1635) = lu(k,1635) - lu(k,1298) * lu(k,1629) - lu(k,1636) = lu(k,1636) - lu(k,1299) * lu(k,1629) - lu(k,1637) = lu(k,1637) - lu(k,1300) * lu(k,1629) - lu(k,1638) = lu(k,1638) - lu(k,1301) * lu(k,1629) - lu(k,1639) = lu(k,1639) - lu(k,1302) * lu(k,1629) - lu(k,1640) = lu(k,1640) - lu(k,1303) * lu(k,1629) - lu(k,1641) = lu(k,1641) - lu(k,1304) * lu(k,1629) - lu(k,1642) = lu(k,1642) - lu(k,1305) * lu(k,1629) - lu(k,1665) = lu(k,1665) - lu(k,1293) * lu(k,1664) - lu(k,1666) = lu(k,1666) - lu(k,1294) * lu(k,1664) - lu(k,1667) = lu(k,1667) - lu(k,1295) * lu(k,1664) - lu(k,1668) = lu(k,1668) - lu(k,1296) * lu(k,1664) - lu(k,1669) = lu(k,1669) - lu(k,1297) * lu(k,1664) - lu(k,1670) = lu(k,1670) - lu(k,1298) * lu(k,1664) - lu(k,1671) = lu(k,1671) - lu(k,1299) * lu(k,1664) - lu(k,1672) = lu(k,1672) - lu(k,1300) * lu(k,1664) - lu(k,1673) = lu(k,1673) - lu(k,1301) * lu(k,1664) - lu(k,1674) = lu(k,1674) - lu(k,1302) * lu(k,1664) - lu(k,1675) = lu(k,1675) - lu(k,1303) * lu(k,1664) - lu(k,1676) = lu(k,1676) - lu(k,1304) * lu(k,1664) - lu(k,1677) = lu(k,1677) - lu(k,1305) * lu(k,1664) - lu(k,1707) = lu(k,1707) - lu(k,1293) * lu(k,1706) - lu(k,1708) = lu(k,1708) - lu(k,1294) * lu(k,1706) - lu(k,1709) = lu(k,1709) - lu(k,1295) * lu(k,1706) - lu(k,1710) = lu(k,1710) - lu(k,1296) * lu(k,1706) - lu(k,1711) = lu(k,1711) - lu(k,1297) * lu(k,1706) - lu(k,1712) = lu(k,1712) - lu(k,1298) * lu(k,1706) - lu(k,1713) = lu(k,1713) - lu(k,1299) * lu(k,1706) - lu(k,1714) = lu(k,1714) - lu(k,1300) * lu(k,1706) - lu(k,1715) = lu(k,1715) - lu(k,1301) * lu(k,1706) - lu(k,1716) = lu(k,1716) - lu(k,1302) * lu(k,1706) - lu(k,1717) = lu(k,1717) - lu(k,1303) * lu(k,1706) - lu(k,1718) = lu(k,1718) - lu(k,1304) * lu(k,1706) - lu(k,1719) = lu(k,1719) - lu(k,1305) * lu(k,1706) - lu(k,1751) = lu(k,1751) - lu(k,1293) * lu(k,1750) - lu(k,1752) = lu(k,1752) - lu(k,1294) * lu(k,1750) - lu(k,1753) = lu(k,1753) - lu(k,1295) * lu(k,1750) - lu(k,1754) = lu(k,1754) - lu(k,1296) * lu(k,1750) - lu(k,1755) = lu(k,1755) - lu(k,1297) * lu(k,1750) - lu(k,1756) = lu(k,1756) - lu(k,1298) * lu(k,1750) - lu(k,1757) = lu(k,1757) - lu(k,1299) * lu(k,1750) - lu(k,1758) = lu(k,1758) - lu(k,1300) * lu(k,1750) - lu(k,1759) = lu(k,1759) - lu(k,1301) * lu(k,1750) - lu(k,1760) = lu(k,1760) - lu(k,1302) * lu(k,1750) - lu(k,1761) = lu(k,1761) - lu(k,1303) * lu(k,1750) - lu(k,1762) = lu(k,1762) - lu(k,1304) * lu(k,1750) - lu(k,1763) = lu(k,1763) - lu(k,1305) * lu(k,1750) - lu(k,1786) = lu(k,1786) - lu(k,1293) * lu(k,1785) - lu(k,1787) = lu(k,1787) - lu(k,1294) * lu(k,1785) - lu(k,1788) = lu(k,1788) - lu(k,1295) * lu(k,1785) - lu(k,1789) = lu(k,1789) - lu(k,1296) * lu(k,1785) - lu(k,1790) = lu(k,1790) - lu(k,1297) * lu(k,1785) - lu(k,1791) = lu(k,1791) - lu(k,1298) * lu(k,1785) - lu(k,1792) = lu(k,1792) - lu(k,1299) * lu(k,1785) - lu(k,1793) = lu(k,1793) - lu(k,1300) * lu(k,1785) - lu(k,1794) = lu(k,1794) - lu(k,1301) * lu(k,1785) - lu(k,1795) = lu(k,1795) - lu(k,1302) * lu(k,1785) - lu(k,1796) = lu(k,1796) - lu(k,1303) * lu(k,1785) - lu(k,1797) = lu(k,1797) - lu(k,1304) * lu(k,1785) - lu(k,1798) = lu(k,1798) - lu(k,1305) * lu(k,1785) - lu(k,1844) = lu(k,1844) - lu(k,1293) * lu(k,1843) - lu(k,1845) = lu(k,1845) - lu(k,1294) * lu(k,1843) - lu(k,1846) = lu(k,1846) - lu(k,1295) * lu(k,1843) - lu(k,1847) = lu(k,1847) - lu(k,1296) * lu(k,1843) - lu(k,1848) = lu(k,1848) - lu(k,1297) * lu(k,1843) - lu(k,1849) = lu(k,1849) - lu(k,1298) * lu(k,1843) - lu(k,1850) = lu(k,1850) - lu(k,1299) * lu(k,1843) - lu(k,1851) = lu(k,1851) - lu(k,1300) * lu(k,1843) - lu(k,1852) = lu(k,1852) - lu(k,1301) * lu(k,1843) - lu(k,1853) = lu(k,1853) - lu(k,1302) * lu(k,1843) - lu(k,1854) = lu(k,1854) - lu(k,1303) * lu(k,1843) - lu(k,1855) = lu(k,1855) - lu(k,1304) * lu(k,1843) - lu(k,1856) = lu(k,1856) - lu(k,1305) * lu(k,1843) - lu(k,1328) = 1._r8 / lu(k,1328) - lu(k,1329) = lu(k,1329) * lu(k,1328) - lu(k,1330) = lu(k,1330) * lu(k,1328) - lu(k,1331) = lu(k,1331) * lu(k,1328) - lu(k,1332) = lu(k,1332) * lu(k,1328) - lu(k,1333) = lu(k,1333) * lu(k,1328) - lu(k,1334) = lu(k,1334) * lu(k,1328) - lu(k,1335) = lu(k,1335) * lu(k,1328) - lu(k,1336) = lu(k,1336) * lu(k,1328) - lu(k,1337) = lu(k,1337) * lu(k,1328) - lu(k,1338) = lu(k,1338) * lu(k,1328) - lu(k,1339) = lu(k,1339) * lu(k,1328) - lu(k,1340) = lu(k,1340) * lu(k,1328) - lu(k,1373) = lu(k,1373) - lu(k,1329) * lu(k,1372) - lu(k,1374) = lu(k,1374) - lu(k,1330) * lu(k,1372) - lu(k,1375) = lu(k,1375) - lu(k,1331) * lu(k,1372) - lu(k,1376) = lu(k,1376) - lu(k,1332) * lu(k,1372) - lu(k,1377) = lu(k,1377) - lu(k,1333) * lu(k,1372) - lu(k,1378) = lu(k,1378) - lu(k,1334) * lu(k,1372) - lu(k,1379) = lu(k,1379) - lu(k,1335) * lu(k,1372) - lu(k,1380) = lu(k,1380) - lu(k,1336) * lu(k,1372) - lu(k,1381) = lu(k,1381) - lu(k,1337) * lu(k,1372) - lu(k,1382) = lu(k,1382) - lu(k,1338) * lu(k,1372) - lu(k,1383) = lu(k,1383) - lu(k,1339) * lu(k,1372) - lu(k,1384) = lu(k,1384) - lu(k,1340) * lu(k,1372) - lu(k,1432) = lu(k,1432) - lu(k,1329) * lu(k,1431) - lu(k,1433) = lu(k,1433) - lu(k,1330) * lu(k,1431) - lu(k,1434) = lu(k,1434) - lu(k,1331) * lu(k,1431) - lu(k,1435) = lu(k,1435) - lu(k,1332) * lu(k,1431) - lu(k,1436) = lu(k,1436) - lu(k,1333) * lu(k,1431) - lu(k,1437) = lu(k,1437) - lu(k,1334) * lu(k,1431) - lu(k,1438) = lu(k,1438) - lu(k,1335) * lu(k,1431) - lu(k,1439) = lu(k,1439) - lu(k,1336) * lu(k,1431) - lu(k,1440) = lu(k,1440) - lu(k,1337) * lu(k,1431) - lu(k,1441) = lu(k,1441) - lu(k,1338) * lu(k,1431) - lu(k,1442) = lu(k,1442) - lu(k,1339) * lu(k,1431) - lu(k,1443) = lu(k,1443) - lu(k,1340) * lu(k,1431) - lu(k,1474) = lu(k,1474) - lu(k,1329) * lu(k,1473) - lu(k,1475) = lu(k,1475) - lu(k,1330) * lu(k,1473) - lu(k,1476) = lu(k,1476) - lu(k,1331) * lu(k,1473) - lu(k,1477) = lu(k,1477) - lu(k,1332) * lu(k,1473) - lu(k,1478) = lu(k,1478) - lu(k,1333) * lu(k,1473) - lu(k,1479) = lu(k,1479) - lu(k,1334) * lu(k,1473) - lu(k,1480) = lu(k,1480) - lu(k,1335) * lu(k,1473) - lu(k,1481) = lu(k,1481) - lu(k,1336) * lu(k,1473) - lu(k,1482) = lu(k,1482) - lu(k,1337) * lu(k,1473) - lu(k,1483) = lu(k,1483) - lu(k,1338) * lu(k,1473) - lu(k,1484) = lu(k,1484) - lu(k,1339) * lu(k,1473) - lu(k,1485) = lu(k,1485) - lu(k,1340) * lu(k,1473) - lu(k,1515) = lu(k,1515) - lu(k,1329) * lu(k,1514) - lu(k,1516) = lu(k,1516) - lu(k,1330) * lu(k,1514) - lu(k,1517) = lu(k,1517) - lu(k,1331) * lu(k,1514) - lu(k,1518) = lu(k,1518) - lu(k,1332) * lu(k,1514) - lu(k,1519) = lu(k,1519) - lu(k,1333) * lu(k,1514) - lu(k,1520) = lu(k,1520) - lu(k,1334) * lu(k,1514) - lu(k,1521) = lu(k,1521) - lu(k,1335) * lu(k,1514) - lu(k,1522) = lu(k,1522) - lu(k,1336) * lu(k,1514) - lu(k,1523) = lu(k,1523) - lu(k,1337) * lu(k,1514) - lu(k,1524) = lu(k,1524) - lu(k,1338) * lu(k,1514) - lu(k,1525) = lu(k,1525) - lu(k,1339) * lu(k,1514) - lu(k,1526) = lu(k,1526) - lu(k,1340) * lu(k,1514) - lu(k,1557) = lu(k,1557) - lu(k,1329) * lu(k,1556) - lu(k,1558) = lu(k,1558) - lu(k,1330) * lu(k,1556) - lu(k,1559) = lu(k,1559) - lu(k,1331) * lu(k,1556) - lu(k,1560) = lu(k,1560) - lu(k,1332) * lu(k,1556) - lu(k,1561) = lu(k,1561) - lu(k,1333) * lu(k,1556) - lu(k,1562) = lu(k,1562) - lu(k,1334) * lu(k,1556) - lu(k,1563) = lu(k,1563) - lu(k,1335) * lu(k,1556) - lu(k,1564) = lu(k,1564) - lu(k,1336) * lu(k,1556) - lu(k,1565) = lu(k,1565) - lu(k,1337) * lu(k,1556) - lu(k,1566) = lu(k,1566) - lu(k,1338) * lu(k,1556) - lu(k,1567) = lu(k,1567) - lu(k,1339) * lu(k,1556) - lu(k,1568) = lu(k,1568) - lu(k,1340) * lu(k,1556) - lu(k,1599) = lu(k,1599) - lu(k,1329) * lu(k,1598) - lu(k,1600) = lu(k,1600) - lu(k,1330) * lu(k,1598) - lu(k,1601) = lu(k,1601) - lu(k,1331) * lu(k,1598) - lu(k,1602) = lu(k,1602) - lu(k,1332) * lu(k,1598) - lu(k,1603) = lu(k,1603) - lu(k,1333) * lu(k,1598) - lu(k,1604) = lu(k,1604) - lu(k,1334) * lu(k,1598) - lu(k,1605) = lu(k,1605) - lu(k,1335) * lu(k,1598) - lu(k,1606) = lu(k,1606) - lu(k,1336) * lu(k,1598) - lu(k,1607) = lu(k,1607) - lu(k,1337) * lu(k,1598) - lu(k,1608) = lu(k,1608) - lu(k,1338) * lu(k,1598) - lu(k,1609) = lu(k,1609) - lu(k,1339) * lu(k,1598) - lu(k,1610) = lu(k,1610) - lu(k,1340) * lu(k,1598) - lu(k,1631) = lu(k,1631) - lu(k,1329) * lu(k,1630) - lu(k,1632) = lu(k,1632) - lu(k,1330) * lu(k,1630) - lu(k,1633) = lu(k,1633) - lu(k,1331) * lu(k,1630) - lu(k,1634) = lu(k,1634) - lu(k,1332) * lu(k,1630) - lu(k,1635) = lu(k,1635) - lu(k,1333) * lu(k,1630) - lu(k,1636) = lu(k,1636) - lu(k,1334) * lu(k,1630) - lu(k,1637) = lu(k,1637) - lu(k,1335) * lu(k,1630) - lu(k,1638) = lu(k,1638) - lu(k,1336) * lu(k,1630) - lu(k,1639) = lu(k,1639) - lu(k,1337) * lu(k,1630) - lu(k,1640) = lu(k,1640) - lu(k,1338) * lu(k,1630) - lu(k,1641) = lu(k,1641) - lu(k,1339) * lu(k,1630) - lu(k,1642) = lu(k,1642) - lu(k,1340) * lu(k,1630) - lu(k,1666) = lu(k,1666) - lu(k,1329) * lu(k,1665) - lu(k,1667) = lu(k,1667) - lu(k,1330) * lu(k,1665) - lu(k,1668) = lu(k,1668) - lu(k,1331) * lu(k,1665) - lu(k,1669) = lu(k,1669) - lu(k,1332) * lu(k,1665) - lu(k,1670) = lu(k,1670) - lu(k,1333) * lu(k,1665) - lu(k,1671) = lu(k,1671) - lu(k,1334) * lu(k,1665) - lu(k,1672) = lu(k,1672) - lu(k,1335) * lu(k,1665) - lu(k,1673) = lu(k,1673) - lu(k,1336) * lu(k,1665) - lu(k,1674) = lu(k,1674) - lu(k,1337) * lu(k,1665) - lu(k,1675) = lu(k,1675) - lu(k,1338) * lu(k,1665) - lu(k,1676) = lu(k,1676) - lu(k,1339) * lu(k,1665) - lu(k,1677) = lu(k,1677) - lu(k,1340) * lu(k,1665) - lu(k,1708) = lu(k,1708) - lu(k,1329) * lu(k,1707) - lu(k,1709) = lu(k,1709) - lu(k,1330) * lu(k,1707) - lu(k,1710) = lu(k,1710) - lu(k,1331) * lu(k,1707) - lu(k,1711) = lu(k,1711) - lu(k,1332) * lu(k,1707) - lu(k,1712) = lu(k,1712) - lu(k,1333) * lu(k,1707) - lu(k,1713) = lu(k,1713) - lu(k,1334) * lu(k,1707) - lu(k,1714) = lu(k,1714) - lu(k,1335) * lu(k,1707) - lu(k,1715) = lu(k,1715) - lu(k,1336) * lu(k,1707) - lu(k,1716) = lu(k,1716) - lu(k,1337) * lu(k,1707) - lu(k,1717) = lu(k,1717) - lu(k,1338) * lu(k,1707) - lu(k,1718) = lu(k,1718) - lu(k,1339) * lu(k,1707) - lu(k,1719) = lu(k,1719) - lu(k,1340) * lu(k,1707) - lu(k,1752) = lu(k,1752) - lu(k,1329) * lu(k,1751) - lu(k,1753) = lu(k,1753) - lu(k,1330) * lu(k,1751) - lu(k,1754) = lu(k,1754) - lu(k,1331) * lu(k,1751) - lu(k,1755) = lu(k,1755) - lu(k,1332) * lu(k,1751) - lu(k,1756) = lu(k,1756) - lu(k,1333) * lu(k,1751) - lu(k,1757) = lu(k,1757) - lu(k,1334) * lu(k,1751) - lu(k,1758) = lu(k,1758) - lu(k,1335) * lu(k,1751) - lu(k,1759) = lu(k,1759) - lu(k,1336) * lu(k,1751) - lu(k,1760) = lu(k,1760) - lu(k,1337) * lu(k,1751) - lu(k,1761) = lu(k,1761) - lu(k,1338) * lu(k,1751) - lu(k,1762) = lu(k,1762) - lu(k,1339) * lu(k,1751) - lu(k,1763) = lu(k,1763) - lu(k,1340) * lu(k,1751) - lu(k,1787) = lu(k,1787) - lu(k,1329) * lu(k,1786) - lu(k,1788) = lu(k,1788) - lu(k,1330) * lu(k,1786) - lu(k,1789) = lu(k,1789) - lu(k,1331) * lu(k,1786) - lu(k,1790) = lu(k,1790) - lu(k,1332) * lu(k,1786) - lu(k,1791) = lu(k,1791) - lu(k,1333) * lu(k,1786) - lu(k,1792) = lu(k,1792) - lu(k,1334) * lu(k,1786) - lu(k,1793) = lu(k,1793) - lu(k,1335) * lu(k,1786) - lu(k,1794) = lu(k,1794) - lu(k,1336) * lu(k,1786) - lu(k,1795) = lu(k,1795) - lu(k,1337) * lu(k,1786) - lu(k,1796) = lu(k,1796) - lu(k,1338) * lu(k,1786) - lu(k,1797) = lu(k,1797) - lu(k,1339) * lu(k,1786) - lu(k,1798) = lu(k,1798) - lu(k,1340) * lu(k,1786) - lu(k,1845) = lu(k,1845) - lu(k,1329) * lu(k,1844) - lu(k,1846) = lu(k,1846) - lu(k,1330) * lu(k,1844) - lu(k,1847) = lu(k,1847) - lu(k,1331) * lu(k,1844) - lu(k,1848) = lu(k,1848) - lu(k,1332) * lu(k,1844) - lu(k,1849) = lu(k,1849) - lu(k,1333) * lu(k,1844) - lu(k,1850) = lu(k,1850) - lu(k,1334) * lu(k,1844) - lu(k,1851) = lu(k,1851) - lu(k,1335) * lu(k,1844) - lu(k,1852) = lu(k,1852) - lu(k,1336) * lu(k,1844) - lu(k,1853) = lu(k,1853) - lu(k,1337) * lu(k,1844) - lu(k,1854) = lu(k,1854) - lu(k,1338) * lu(k,1844) - lu(k,1855) = lu(k,1855) - lu(k,1339) * lu(k,1844) - lu(k,1856) = lu(k,1856) - lu(k,1340) * lu(k,1844) - lu(k,1373) = 1._r8 / lu(k,1373) - lu(k,1374) = lu(k,1374) * lu(k,1373) - lu(k,1375) = lu(k,1375) * lu(k,1373) - lu(k,1376) = lu(k,1376) * lu(k,1373) - lu(k,1377) = lu(k,1377) * lu(k,1373) - lu(k,1378) = lu(k,1378) * lu(k,1373) - lu(k,1379) = lu(k,1379) * lu(k,1373) - lu(k,1380) = lu(k,1380) * lu(k,1373) - lu(k,1381) = lu(k,1381) * lu(k,1373) - lu(k,1382) = lu(k,1382) * lu(k,1373) - lu(k,1383) = lu(k,1383) * lu(k,1373) - lu(k,1384) = lu(k,1384) * lu(k,1373) - lu(k,1433) = lu(k,1433) - lu(k,1374) * lu(k,1432) - lu(k,1434) = lu(k,1434) - lu(k,1375) * lu(k,1432) - lu(k,1435) = lu(k,1435) - lu(k,1376) * lu(k,1432) - lu(k,1436) = lu(k,1436) - lu(k,1377) * lu(k,1432) - lu(k,1437) = lu(k,1437) - lu(k,1378) * lu(k,1432) - lu(k,1438) = lu(k,1438) - lu(k,1379) * lu(k,1432) - lu(k,1439) = lu(k,1439) - lu(k,1380) * lu(k,1432) - lu(k,1440) = lu(k,1440) - lu(k,1381) * lu(k,1432) - lu(k,1441) = lu(k,1441) - lu(k,1382) * lu(k,1432) - lu(k,1442) = lu(k,1442) - lu(k,1383) * lu(k,1432) - lu(k,1443) = lu(k,1443) - lu(k,1384) * lu(k,1432) - lu(k,1475) = lu(k,1475) - lu(k,1374) * lu(k,1474) - lu(k,1476) = lu(k,1476) - lu(k,1375) * lu(k,1474) - lu(k,1477) = lu(k,1477) - lu(k,1376) * lu(k,1474) - lu(k,1478) = lu(k,1478) - lu(k,1377) * lu(k,1474) - lu(k,1479) = lu(k,1479) - lu(k,1378) * lu(k,1474) - lu(k,1480) = lu(k,1480) - lu(k,1379) * lu(k,1474) - lu(k,1481) = lu(k,1481) - lu(k,1380) * lu(k,1474) - lu(k,1482) = lu(k,1482) - lu(k,1381) * lu(k,1474) - lu(k,1483) = lu(k,1483) - lu(k,1382) * lu(k,1474) - lu(k,1484) = lu(k,1484) - lu(k,1383) * lu(k,1474) - lu(k,1485) = lu(k,1485) - lu(k,1384) * lu(k,1474) - lu(k,1516) = lu(k,1516) - lu(k,1374) * lu(k,1515) - lu(k,1517) = lu(k,1517) - lu(k,1375) * lu(k,1515) - lu(k,1518) = lu(k,1518) - lu(k,1376) * lu(k,1515) - lu(k,1519) = lu(k,1519) - lu(k,1377) * lu(k,1515) - lu(k,1520) = lu(k,1520) - lu(k,1378) * lu(k,1515) - lu(k,1521) = lu(k,1521) - lu(k,1379) * lu(k,1515) - lu(k,1522) = lu(k,1522) - lu(k,1380) * lu(k,1515) - lu(k,1523) = lu(k,1523) - lu(k,1381) * lu(k,1515) - lu(k,1524) = lu(k,1524) - lu(k,1382) * lu(k,1515) - lu(k,1525) = lu(k,1525) - lu(k,1383) * lu(k,1515) - lu(k,1526) = lu(k,1526) - lu(k,1384) * lu(k,1515) - lu(k,1558) = lu(k,1558) - lu(k,1374) * lu(k,1557) - lu(k,1559) = lu(k,1559) - lu(k,1375) * lu(k,1557) - lu(k,1560) = lu(k,1560) - lu(k,1376) * lu(k,1557) - lu(k,1561) = lu(k,1561) - lu(k,1377) * lu(k,1557) - lu(k,1562) = lu(k,1562) - lu(k,1378) * lu(k,1557) - lu(k,1563) = lu(k,1563) - lu(k,1379) * lu(k,1557) - lu(k,1564) = lu(k,1564) - lu(k,1380) * lu(k,1557) - lu(k,1565) = lu(k,1565) - lu(k,1381) * lu(k,1557) - lu(k,1566) = lu(k,1566) - lu(k,1382) * lu(k,1557) - lu(k,1567) = lu(k,1567) - lu(k,1383) * lu(k,1557) - lu(k,1568) = lu(k,1568) - lu(k,1384) * lu(k,1557) - lu(k,1600) = lu(k,1600) - lu(k,1374) * lu(k,1599) - lu(k,1601) = lu(k,1601) - lu(k,1375) * lu(k,1599) - lu(k,1602) = lu(k,1602) - lu(k,1376) * lu(k,1599) - lu(k,1603) = lu(k,1603) - lu(k,1377) * lu(k,1599) - lu(k,1604) = lu(k,1604) - lu(k,1378) * lu(k,1599) - lu(k,1605) = lu(k,1605) - lu(k,1379) * lu(k,1599) - lu(k,1606) = lu(k,1606) - lu(k,1380) * lu(k,1599) - lu(k,1607) = lu(k,1607) - lu(k,1381) * lu(k,1599) - lu(k,1608) = lu(k,1608) - lu(k,1382) * lu(k,1599) - lu(k,1609) = lu(k,1609) - lu(k,1383) * lu(k,1599) - lu(k,1610) = lu(k,1610) - lu(k,1384) * lu(k,1599) - lu(k,1632) = lu(k,1632) - lu(k,1374) * lu(k,1631) - lu(k,1633) = lu(k,1633) - lu(k,1375) * lu(k,1631) - lu(k,1634) = lu(k,1634) - lu(k,1376) * lu(k,1631) - lu(k,1635) = lu(k,1635) - lu(k,1377) * lu(k,1631) - lu(k,1636) = lu(k,1636) - lu(k,1378) * lu(k,1631) - lu(k,1637) = lu(k,1637) - lu(k,1379) * lu(k,1631) - lu(k,1638) = lu(k,1638) - lu(k,1380) * lu(k,1631) - lu(k,1639) = lu(k,1639) - lu(k,1381) * lu(k,1631) - lu(k,1640) = lu(k,1640) - lu(k,1382) * lu(k,1631) - lu(k,1641) = lu(k,1641) - lu(k,1383) * lu(k,1631) - lu(k,1642) = lu(k,1642) - lu(k,1384) * lu(k,1631) - lu(k,1667) = lu(k,1667) - lu(k,1374) * lu(k,1666) - lu(k,1668) = lu(k,1668) - lu(k,1375) * lu(k,1666) - lu(k,1669) = lu(k,1669) - lu(k,1376) * lu(k,1666) - lu(k,1670) = lu(k,1670) - lu(k,1377) * lu(k,1666) - lu(k,1671) = lu(k,1671) - lu(k,1378) * lu(k,1666) - lu(k,1672) = lu(k,1672) - lu(k,1379) * lu(k,1666) - lu(k,1673) = lu(k,1673) - lu(k,1380) * lu(k,1666) - lu(k,1674) = lu(k,1674) - lu(k,1381) * lu(k,1666) - lu(k,1675) = lu(k,1675) - lu(k,1382) * lu(k,1666) - lu(k,1676) = lu(k,1676) - lu(k,1383) * lu(k,1666) - lu(k,1677) = lu(k,1677) - lu(k,1384) * lu(k,1666) - lu(k,1709) = lu(k,1709) - lu(k,1374) * lu(k,1708) - lu(k,1710) = lu(k,1710) - lu(k,1375) * lu(k,1708) - lu(k,1711) = lu(k,1711) - lu(k,1376) * lu(k,1708) - lu(k,1712) = lu(k,1712) - lu(k,1377) * lu(k,1708) - lu(k,1713) = lu(k,1713) - lu(k,1378) * lu(k,1708) - lu(k,1714) = lu(k,1714) - lu(k,1379) * lu(k,1708) - lu(k,1715) = lu(k,1715) - lu(k,1380) * lu(k,1708) - lu(k,1716) = lu(k,1716) - lu(k,1381) * lu(k,1708) - lu(k,1717) = lu(k,1717) - lu(k,1382) * lu(k,1708) - lu(k,1718) = lu(k,1718) - lu(k,1383) * lu(k,1708) - lu(k,1719) = lu(k,1719) - lu(k,1384) * lu(k,1708) - lu(k,1753) = lu(k,1753) - lu(k,1374) * lu(k,1752) - lu(k,1754) = lu(k,1754) - lu(k,1375) * lu(k,1752) - lu(k,1755) = lu(k,1755) - lu(k,1376) * lu(k,1752) - lu(k,1756) = lu(k,1756) - lu(k,1377) * lu(k,1752) - lu(k,1757) = lu(k,1757) - lu(k,1378) * lu(k,1752) - lu(k,1758) = lu(k,1758) - lu(k,1379) * lu(k,1752) - lu(k,1759) = lu(k,1759) - lu(k,1380) * lu(k,1752) - lu(k,1760) = lu(k,1760) - lu(k,1381) * lu(k,1752) - lu(k,1761) = lu(k,1761) - lu(k,1382) * lu(k,1752) - lu(k,1762) = lu(k,1762) - lu(k,1383) * lu(k,1752) - lu(k,1763) = lu(k,1763) - lu(k,1384) * lu(k,1752) - lu(k,1788) = lu(k,1788) - lu(k,1374) * lu(k,1787) - lu(k,1789) = lu(k,1789) - lu(k,1375) * lu(k,1787) - lu(k,1790) = lu(k,1790) - lu(k,1376) * lu(k,1787) - lu(k,1791) = lu(k,1791) - lu(k,1377) * lu(k,1787) - lu(k,1792) = lu(k,1792) - lu(k,1378) * lu(k,1787) - lu(k,1793) = lu(k,1793) - lu(k,1379) * lu(k,1787) - lu(k,1794) = lu(k,1794) - lu(k,1380) * lu(k,1787) - lu(k,1795) = lu(k,1795) - lu(k,1381) * lu(k,1787) - lu(k,1796) = lu(k,1796) - lu(k,1382) * lu(k,1787) - lu(k,1797) = lu(k,1797) - lu(k,1383) * lu(k,1787) - lu(k,1798) = lu(k,1798) - lu(k,1384) * lu(k,1787) - lu(k,1846) = lu(k,1846) - lu(k,1374) * lu(k,1845) - lu(k,1847) = lu(k,1847) - lu(k,1375) * lu(k,1845) - lu(k,1848) = lu(k,1848) - lu(k,1376) * lu(k,1845) - lu(k,1849) = lu(k,1849) - lu(k,1377) * lu(k,1845) - lu(k,1850) = lu(k,1850) - lu(k,1378) * lu(k,1845) - lu(k,1851) = lu(k,1851) - lu(k,1379) * lu(k,1845) - lu(k,1852) = lu(k,1852) - lu(k,1380) * lu(k,1845) - lu(k,1853) = lu(k,1853) - lu(k,1381) * lu(k,1845) - lu(k,1854) = lu(k,1854) - lu(k,1382) * lu(k,1845) - lu(k,1855) = lu(k,1855) - lu(k,1383) * lu(k,1845) - lu(k,1856) = lu(k,1856) - lu(k,1384) * lu(k,1845) - end do + real(r8), intent(inout) :: lu(:) + lu(1283) = 1._r8 / lu(1283) + lu(1284) = lu(1284) * lu(1283) + lu(1285) = lu(1285) * lu(1283) + lu(1286) = lu(1286) * lu(1283) + lu(1287) = lu(1287) * lu(1283) + lu(1288) = lu(1288) * lu(1283) + lu(1289) = lu(1289) * lu(1283) + lu(1290) = lu(1290) * lu(1283) + lu(1291) = lu(1291) * lu(1283) + lu(1292) = lu(1292) * lu(1283) + lu(1293) = lu(1293) * lu(1283) + lu(1294) = lu(1294) * lu(1283) + lu(1295) = lu(1295) * lu(1283) + lu(1296) = lu(1296) * lu(1283) + lu(1297) = lu(1297) * lu(1283) + lu(1328) = lu(1328) - lu(1284) * lu(1327) + lu(1329) = lu(1329) - lu(1285) * lu(1327) + lu(1330) = lu(1330) - lu(1286) * lu(1327) + lu(1331) = lu(1331) - lu(1287) * lu(1327) + lu(1332) = lu(1332) - lu(1288) * lu(1327) + lu(1333) = lu(1333) - lu(1289) * lu(1327) + lu(1334) = lu(1334) - lu(1290) * lu(1327) + lu(1335) = lu(1335) - lu(1291) * lu(1327) + lu(1336) = lu(1336) - lu(1292) * lu(1327) + lu(1337) = lu(1337) - lu(1293) * lu(1327) + lu(1338) = lu(1338) - lu(1294) * lu(1327) + lu(1339) = lu(1339) - lu(1295) * lu(1327) + lu(1340) = lu(1340) - lu(1296) * lu(1327) + lu(1341) = lu(1341) - lu(1297) * lu(1327) + lu(1363) = lu(1363) - lu(1284) * lu(1362) + lu(1364) = lu(1364) - lu(1285) * lu(1362) + lu(1365) = lu(1365) - lu(1286) * lu(1362) + lu(1366) = lu(1366) - lu(1287) * lu(1362) + lu(1367) = lu(1367) - lu(1288) * lu(1362) + lu(1368) = lu(1368) - lu(1289) * lu(1362) + lu(1369) = lu(1369) - lu(1290) * lu(1362) + lu(1370) = lu(1370) - lu(1291) * lu(1362) + lu(1371) = lu(1371) - lu(1292) * lu(1362) + lu(1372) = lu(1372) - lu(1293) * lu(1362) + lu(1373) = lu(1373) - lu(1294) * lu(1362) + lu(1374) = lu(1374) - lu(1295) * lu(1362) + lu(1375) = lu(1375) - lu(1296) * lu(1362) + lu(1376) = lu(1376) - lu(1297) * lu(1362) + lu(1407) = lu(1407) - lu(1284) * lu(1406) + lu(1408) = lu(1408) - lu(1285) * lu(1406) + lu(1409) = lu(1409) - lu(1286) * lu(1406) + lu(1410) = lu(1410) - lu(1287) * lu(1406) + lu(1411) = lu(1411) - lu(1288) * lu(1406) + lu(1412) = lu(1412) - lu(1289) * lu(1406) + lu(1413) = lu(1413) - lu(1290) * lu(1406) + lu(1414) = lu(1414) - lu(1291) * lu(1406) + lu(1415) = lu(1415) - lu(1292) * lu(1406) + lu(1416) = lu(1416) - lu(1293) * lu(1406) + lu(1417) = lu(1417) - lu(1294) * lu(1406) + lu(1418) = lu(1418) - lu(1295) * lu(1406) + lu(1419) = lu(1419) - lu(1296) * lu(1406) + lu(1420) = lu(1420) - lu(1297) * lu(1406) + lu(1448) = lu(1448) - lu(1284) * lu(1447) + lu(1449) = lu(1449) - lu(1285) * lu(1447) + lu(1450) = lu(1450) - lu(1286) * lu(1447) + lu(1451) = lu(1451) - lu(1287) * lu(1447) + lu(1452) = lu(1452) - lu(1288) * lu(1447) + lu(1453) = lu(1453) - lu(1289) * lu(1447) + lu(1454) = lu(1454) - lu(1290) * lu(1447) + lu(1455) = lu(1455) - lu(1291) * lu(1447) + lu(1456) = lu(1456) - lu(1292) * lu(1447) + lu(1457) = lu(1457) - lu(1293) * lu(1447) + lu(1458) = lu(1458) - lu(1294) * lu(1447) + lu(1459) = lu(1459) - lu(1295) * lu(1447) + lu(1460) = lu(1460) - lu(1296) * lu(1447) + lu(1461) = lu(1461) - lu(1297) * lu(1447) + lu(1483) = lu(1483) - lu(1284) * lu(1482) + lu(1484) = lu(1484) - lu(1285) * lu(1482) + lu(1485) = lu(1485) - lu(1286) * lu(1482) + lu(1486) = lu(1486) - lu(1287) * lu(1482) + lu(1487) = lu(1487) - lu(1288) * lu(1482) + lu(1488) = lu(1488) - lu(1289) * lu(1482) + lu(1489) = lu(1489) - lu(1290) * lu(1482) + lu(1490) = lu(1490) - lu(1291) * lu(1482) + lu(1491) = lu(1491) - lu(1292) * lu(1482) + lu(1492) = lu(1492) - lu(1293) * lu(1482) + lu(1493) = lu(1493) - lu(1294) * lu(1482) + lu(1494) = lu(1494) - lu(1295) * lu(1482) + lu(1495) = lu(1495) - lu(1296) * lu(1482) + lu(1496) = lu(1496) - lu(1297) * lu(1482) + lu(1527) = lu(1527) - lu(1284) * lu(1526) + lu(1528) = lu(1528) - lu(1285) * lu(1526) + lu(1529) = lu(1529) - lu(1286) * lu(1526) + lu(1530) = lu(1530) - lu(1287) * lu(1526) + lu(1531) = lu(1531) - lu(1288) * lu(1526) + lu(1532) = lu(1532) - lu(1289) * lu(1526) + lu(1533) = lu(1533) - lu(1290) * lu(1526) + lu(1534) = lu(1534) - lu(1291) * lu(1526) + lu(1535) = lu(1535) - lu(1292) * lu(1526) + lu(1536) = lu(1536) - lu(1293) * lu(1526) + lu(1537) = lu(1537) - lu(1294) * lu(1526) + lu(1538) = lu(1538) - lu(1295) * lu(1526) + lu(1539) = lu(1539) - lu(1296) * lu(1526) + lu(1540) = lu(1540) - lu(1297) * lu(1526) + lu(1569) = lu(1569) - lu(1284) * lu(1568) + lu(1570) = lu(1570) - lu(1285) * lu(1568) + lu(1571) = lu(1571) - lu(1286) * lu(1568) + lu(1572) = lu(1572) - lu(1287) * lu(1568) + lu(1573) = lu(1573) - lu(1288) * lu(1568) + lu(1574) = lu(1574) - lu(1289) * lu(1568) + lu(1575) = lu(1575) - lu(1290) * lu(1568) + lu(1576) = lu(1576) - lu(1291) * lu(1568) + lu(1577) = lu(1577) - lu(1292) * lu(1568) + lu(1578) = lu(1578) - lu(1293) * lu(1568) + lu(1579) = lu(1579) - lu(1294) * lu(1568) + lu(1580) = lu(1580) - lu(1295) * lu(1568) + lu(1581) = lu(1581) - lu(1296) * lu(1568) + lu(1582) = lu(1582) - lu(1297) * lu(1568) + lu(1608) = lu(1608) - lu(1284) * lu(1607) + lu(1609) = lu(1609) - lu(1285) * lu(1607) + lu(1610) = lu(1610) - lu(1286) * lu(1607) + lu(1611) = lu(1611) - lu(1287) * lu(1607) + lu(1612) = lu(1612) - lu(1288) * lu(1607) + lu(1613) = lu(1613) - lu(1289) * lu(1607) + lu(1614) = lu(1614) - lu(1290) * lu(1607) + lu(1615) = lu(1615) - lu(1291) * lu(1607) + lu(1616) = lu(1616) - lu(1292) * lu(1607) + lu(1617) = lu(1617) - lu(1293) * lu(1607) + lu(1618) = lu(1618) - lu(1294) * lu(1607) + lu(1619) = lu(1619) - lu(1295) * lu(1607) + lu(1620) = lu(1620) - lu(1296) * lu(1607) + lu(1621) = lu(1621) - lu(1297) * lu(1607) + lu(1640) = lu(1640) - lu(1284) * lu(1639) + lu(1641) = lu(1641) - lu(1285) * lu(1639) + lu(1642) = lu(1642) - lu(1286) * lu(1639) + lu(1643) = lu(1643) - lu(1287) * lu(1639) + lu(1644) = lu(1644) - lu(1288) * lu(1639) + lu(1645) = lu(1645) - lu(1289) * lu(1639) + lu(1646) = lu(1646) - lu(1290) * lu(1639) + lu(1647) = lu(1647) - lu(1291) * lu(1639) + lu(1648) = lu(1648) - lu(1292) * lu(1639) + lu(1649) = lu(1649) - lu(1293) * lu(1639) + lu(1650) = lu(1650) - lu(1294) * lu(1639) + lu(1651) = lu(1651) - lu(1295) * lu(1639) + lu(1652) = lu(1652) - lu(1296) * lu(1639) + lu(1653) = lu(1653) - lu(1297) * lu(1639) + lu(1675) = lu(1675) - lu(1284) * lu(1674) + lu(1676) = lu(1676) - lu(1285) * lu(1674) + lu(1677) = lu(1677) - lu(1286) * lu(1674) + lu(1678) = lu(1678) - lu(1287) * lu(1674) + lu(1679) = lu(1679) - lu(1288) * lu(1674) + lu(1680) = lu(1680) - lu(1289) * lu(1674) + lu(1681) = lu(1681) - lu(1290) * lu(1674) + lu(1682) = lu(1682) - lu(1291) * lu(1674) + lu(1683) = lu(1683) - lu(1292) * lu(1674) + lu(1684) = lu(1684) - lu(1293) * lu(1674) + lu(1685) = lu(1685) - lu(1294) * lu(1674) + lu(1686) = lu(1686) - lu(1295) * lu(1674) + lu(1687) = lu(1687) - lu(1296) * lu(1674) + lu(1688) = lu(1688) - lu(1297) * lu(1674) + lu(1717) = lu(1717) - lu(1284) * lu(1716) + lu(1718) = lu(1718) - lu(1285) * lu(1716) + lu(1719) = lu(1719) - lu(1286) * lu(1716) + lu(1720) = lu(1720) - lu(1287) * lu(1716) + lu(1721) = lu(1721) - lu(1288) * lu(1716) + lu(1722) = lu(1722) - lu(1289) * lu(1716) + lu(1723) = lu(1723) - lu(1290) * lu(1716) + lu(1724) = lu(1724) - lu(1291) * lu(1716) + lu(1725) = lu(1725) - lu(1292) * lu(1716) + lu(1726) = lu(1726) - lu(1293) * lu(1716) + lu(1727) = lu(1727) - lu(1294) * lu(1716) + lu(1728) = lu(1728) - lu(1295) * lu(1716) + lu(1729) = lu(1729) - lu(1296) * lu(1716) + lu(1730) = lu(1730) - lu(1297) * lu(1716) + lu(1746) = lu(1746) - lu(1284) * lu(1745) + lu(1747) = lu(1747) - lu(1285) * lu(1745) + lu(1748) = lu(1748) - lu(1286) * lu(1745) + lu(1749) = lu(1749) - lu(1287) * lu(1745) + lu(1750) = lu(1750) - lu(1288) * lu(1745) + lu(1751) = lu(1751) - lu(1289) * lu(1745) + lu(1752) = lu(1752) - lu(1290) * lu(1745) + lu(1753) = lu(1753) - lu(1291) * lu(1745) + lu(1754) = lu(1754) - lu(1292) * lu(1745) + lu(1755) = lu(1755) - lu(1293) * lu(1745) + lu(1756) = lu(1756) - lu(1294) * lu(1745) + lu(1757) = lu(1757) - lu(1295) * lu(1745) + lu(1758) = lu(1758) - lu(1296) * lu(1745) + lu(1759) = lu(1759) - lu(1297) * lu(1745) + lu(1785) = lu(1785) - lu(1284) * lu(1784) + lu(1786) = lu(1786) - lu(1285) * lu(1784) + lu(1787) = lu(1787) - lu(1286) * lu(1784) + lu(1788) = lu(1788) - lu(1287) * lu(1784) + lu(1789) = lu(1789) - lu(1288) * lu(1784) + lu(1790) = lu(1790) - lu(1289) * lu(1784) + lu(1791) = lu(1791) - lu(1290) * lu(1784) + lu(1792) = lu(1792) - lu(1291) * lu(1784) + lu(1793) = lu(1793) - lu(1292) * lu(1784) + lu(1794) = lu(1794) - lu(1293) * lu(1784) + lu(1795) = lu(1795) - lu(1294) * lu(1784) + lu(1796) = lu(1796) - lu(1295) * lu(1784) + lu(1797) = lu(1797) - lu(1296) * lu(1784) + lu(1798) = lu(1798) - lu(1297) * lu(1784) + lu(1843) = lu(1843) - lu(1284) * lu(1842) + lu(1844) = lu(1844) - lu(1285) * lu(1842) + lu(1845) = lu(1845) - lu(1286) * lu(1842) + lu(1846) = lu(1846) - lu(1287) * lu(1842) + lu(1847) = lu(1847) - lu(1288) * lu(1842) + lu(1848) = lu(1848) - lu(1289) * lu(1842) + lu(1849) = lu(1849) - lu(1290) * lu(1842) + lu(1850) = lu(1850) - lu(1291) * lu(1842) + lu(1851) = lu(1851) - lu(1292) * lu(1842) + lu(1852) = lu(1852) - lu(1293) * lu(1842) + lu(1853) = lu(1853) - lu(1294) * lu(1842) + lu(1854) = lu(1854) - lu(1295) * lu(1842) + lu(1855) = lu(1855) - lu(1296) * lu(1842) + lu(1856) = lu(1856) - lu(1297) * lu(1842) + lu(1328) = 1._r8 / lu(1328) + lu(1329) = lu(1329) * lu(1328) + lu(1330) = lu(1330) * lu(1328) + lu(1331) = lu(1331) * lu(1328) + lu(1332) = lu(1332) * lu(1328) + lu(1333) = lu(1333) * lu(1328) + lu(1334) = lu(1334) * lu(1328) + lu(1335) = lu(1335) * lu(1328) + lu(1336) = lu(1336) * lu(1328) + lu(1337) = lu(1337) * lu(1328) + lu(1338) = lu(1338) * lu(1328) + lu(1339) = lu(1339) * lu(1328) + lu(1340) = lu(1340) * lu(1328) + lu(1341) = lu(1341) * lu(1328) + lu(1364) = lu(1364) - lu(1329) * lu(1363) + lu(1365) = lu(1365) - lu(1330) * lu(1363) + lu(1366) = lu(1366) - lu(1331) * lu(1363) + lu(1367) = lu(1367) - lu(1332) * lu(1363) + lu(1368) = lu(1368) - lu(1333) * lu(1363) + lu(1369) = lu(1369) - lu(1334) * lu(1363) + lu(1370) = lu(1370) - lu(1335) * lu(1363) + lu(1371) = lu(1371) - lu(1336) * lu(1363) + lu(1372) = lu(1372) - lu(1337) * lu(1363) + lu(1373) = lu(1373) - lu(1338) * lu(1363) + lu(1374) = lu(1374) - lu(1339) * lu(1363) + lu(1375) = lu(1375) - lu(1340) * lu(1363) + lu(1376) = lu(1376) - lu(1341) * lu(1363) + lu(1408) = lu(1408) - lu(1329) * lu(1407) + lu(1409) = lu(1409) - lu(1330) * lu(1407) + lu(1410) = lu(1410) - lu(1331) * lu(1407) + lu(1411) = lu(1411) - lu(1332) * lu(1407) + lu(1412) = lu(1412) - lu(1333) * lu(1407) + lu(1413) = lu(1413) - lu(1334) * lu(1407) + lu(1414) = lu(1414) - lu(1335) * lu(1407) + lu(1415) = lu(1415) - lu(1336) * lu(1407) + lu(1416) = lu(1416) - lu(1337) * lu(1407) + lu(1417) = lu(1417) - lu(1338) * lu(1407) + lu(1418) = lu(1418) - lu(1339) * lu(1407) + lu(1419) = lu(1419) - lu(1340) * lu(1407) + lu(1420) = lu(1420) - lu(1341) * lu(1407) + lu(1449) = lu(1449) - lu(1329) * lu(1448) + lu(1450) = lu(1450) - lu(1330) * lu(1448) + lu(1451) = lu(1451) - lu(1331) * lu(1448) + lu(1452) = lu(1452) - lu(1332) * lu(1448) + lu(1453) = lu(1453) - lu(1333) * lu(1448) + lu(1454) = lu(1454) - lu(1334) * lu(1448) + lu(1455) = lu(1455) - lu(1335) * lu(1448) + lu(1456) = lu(1456) - lu(1336) * lu(1448) + lu(1457) = lu(1457) - lu(1337) * lu(1448) + lu(1458) = lu(1458) - lu(1338) * lu(1448) + lu(1459) = lu(1459) - lu(1339) * lu(1448) + lu(1460) = lu(1460) - lu(1340) * lu(1448) + lu(1461) = lu(1461) - lu(1341) * lu(1448) + lu(1484) = lu(1484) - lu(1329) * lu(1483) + lu(1485) = lu(1485) - lu(1330) * lu(1483) + lu(1486) = lu(1486) - lu(1331) * lu(1483) + lu(1487) = lu(1487) - lu(1332) * lu(1483) + lu(1488) = lu(1488) - lu(1333) * lu(1483) + lu(1489) = lu(1489) - lu(1334) * lu(1483) + lu(1490) = lu(1490) - lu(1335) * lu(1483) + lu(1491) = lu(1491) - lu(1336) * lu(1483) + lu(1492) = lu(1492) - lu(1337) * lu(1483) + lu(1493) = lu(1493) - lu(1338) * lu(1483) + lu(1494) = lu(1494) - lu(1339) * lu(1483) + lu(1495) = lu(1495) - lu(1340) * lu(1483) + lu(1496) = lu(1496) - lu(1341) * lu(1483) + lu(1528) = lu(1528) - lu(1329) * lu(1527) + lu(1529) = lu(1529) - lu(1330) * lu(1527) + lu(1530) = lu(1530) - lu(1331) * lu(1527) + lu(1531) = lu(1531) - lu(1332) * lu(1527) + lu(1532) = lu(1532) - lu(1333) * lu(1527) + lu(1533) = lu(1533) - lu(1334) * lu(1527) + lu(1534) = lu(1534) - lu(1335) * lu(1527) + lu(1535) = lu(1535) - lu(1336) * lu(1527) + lu(1536) = lu(1536) - lu(1337) * lu(1527) + lu(1537) = lu(1537) - lu(1338) * lu(1527) + lu(1538) = lu(1538) - lu(1339) * lu(1527) + lu(1539) = lu(1539) - lu(1340) * lu(1527) + lu(1540) = lu(1540) - lu(1341) * lu(1527) + lu(1570) = lu(1570) - lu(1329) * lu(1569) + lu(1571) = lu(1571) - lu(1330) * lu(1569) + lu(1572) = lu(1572) - lu(1331) * lu(1569) + lu(1573) = lu(1573) - lu(1332) * lu(1569) + lu(1574) = lu(1574) - lu(1333) * lu(1569) + lu(1575) = lu(1575) - lu(1334) * lu(1569) + lu(1576) = lu(1576) - lu(1335) * lu(1569) + lu(1577) = lu(1577) - lu(1336) * lu(1569) + lu(1578) = lu(1578) - lu(1337) * lu(1569) + lu(1579) = lu(1579) - lu(1338) * lu(1569) + lu(1580) = lu(1580) - lu(1339) * lu(1569) + lu(1581) = lu(1581) - lu(1340) * lu(1569) + lu(1582) = lu(1582) - lu(1341) * lu(1569) + lu(1609) = lu(1609) - lu(1329) * lu(1608) + lu(1610) = lu(1610) - lu(1330) * lu(1608) + lu(1611) = lu(1611) - lu(1331) * lu(1608) + lu(1612) = lu(1612) - lu(1332) * lu(1608) + lu(1613) = lu(1613) - lu(1333) * lu(1608) + lu(1614) = lu(1614) - lu(1334) * lu(1608) + lu(1615) = lu(1615) - lu(1335) * lu(1608) + lu(1616) = lu(1616) - lu(1336) * lu(1608) + lu(1617) = lu(1617) - lu(1337) * lu(1608) + lu(1618) = lu(1618) - lu(1338) * lu(1608) + lu(1619) = lu(1619) - lu(1339) * lu(1608) + lu(1620) = lu(1620) - lu(1340) * lu(1608) + lu(1621) = lu(1621) - lu(1341) * lu(1608) + lu(1641) = lu(1641) - lu(1329) * lu(1640) + lu(1642) = lu(1642) - lu(1330) * lu(1640) + lu(1643) = lu(1643) - lu(1331) * lu(1640) + lu(1644) = lu(1644) - lu(1332) * lu(1640) + lu(1645) = lu(1645) - lu(1333) * lu(1640) + lu(1646) = lu(1646) - lu(1334) * lu(1640) + lu(1647) = lu(1647) - lu(1335) * lu(1640) + lu(1648) = lu(1648) - lu(1336) * lu(1640) + lu(1649) = lu(1649) - lu(1337) * lu(1640) + lu(1650) = lu(1650) - lu(1338) * lu(1640) + lu(1651) = lu(1651) - lu(1339) * lu(1640) + lu(1652) = lu(1652) - lu(1340) * lu(1640) + lu(1653) = lu(1653) - lu(1341) * lu(1640) + lu(1676) = lu(1676) - lu(1329) * lu(1675) + lu(1677) = lu(1677) - lu(1330) * lu(1675) + lu(1678) = lu(1678) - lu(1331) * lu(1675) + lu(1679) = lu(1679) - lu(1332) * lu(1675) + lu(1680) = lu(1680) - lu(1333) * lu(1675) + lu(1681) = lu(1681) - lu(1334) * lu(1675) + lu(1682) = lu(1682) - lu(1335) * lu(1675) + lu(1683) = lu(1683) - lu(1336) * lu(1675) + lu(1684) = lu(1684) - lu(1337) * lu(1675) + lu(1685) = lu(1685) - lu(1338) * lu(1675) + lu(1686) = lu(1686) - lu(1339) * lu(1675) + lu(1687) = lu(1687) - lu(1340) * lu(1675) + lu(1688) = lu(1688) - lu(1341) * lu(1675) + lu(1718) = lu(1718) - lu(1329) * lu(1717) + lu(1719) = lu(1719) - lu(1330) * lu(1717) + lu(1720) = lu(1720) - lu(1331) * lu(1717) + lu(1721) = lu(1721) - lu(1332) * lu(1717) + lu(1722) = lu(1722) - lu(1333) * lu(1717) + lu(1723) = lu(1723) - lu(1334) * lu(1717) + lu(1724) = lu(1724) - lu(1335) * lu(1717) + lu(1725) = lu(1725) - lu(1336) * lu(1717) + lu(1726) = lu(1726) - lu(1337) * lu(1717) + lu(1727) = lu(1727) - lu(1338) * lu(1717) + lu(1728) = lu(1728) - lu(1339) * lu(1717) + lu(1729) = lu(1729) - lu(1340) * lu(1717) + lu(1730) = lu(1730) - lu(1341) * lu(1717) + lu(1747) = lu(1747) - lu(1329) * lu(1746) + lu(1748) = lu(1748) - lu(1330) * lu(1746) + lu(1749) = lu(1749) - lu(1331) * lu(1746) + lu(1750) = lu(1750) - lu(1332) * lu(1746) + lu(1751) = lu(1751) - lu(1333) * lu(1746) + lu(1752) = lu(1752) - lu(1334) * lu(1746) + lu(1753) = lu(1753) - lu(1335) * lu(1746) + lu(1754) = lu(1754) - lu(1336) * lu(1746) + lu(1755) = lu(1755) - lu(1337) * lu(1746) + lu(1756) = lu(1756) - lu(1338) * lu(1746) + lu(1757) = lu(1757) - lu(1339) * lu(1746) + lu(1758) = lu(1758) - lu(1340) * lu(1746) + lu(1759) = lu(1759) - lu(1341) * lu(1746) + lu(1786) = lu(1786) - lu(1329) * lu(1785) + lu(1787) = lu(1787) - lu(1330) * lu(1785) + lu(1788) = lu(1788) - lu(1331) * lu(1785) + lu(1789) = lu(1789) - lu(1332) * lu(1785) + lu(1790) = lu(1790) - lu(1333) * lu(1785) + lu(1791) = lu(1791) - lu(1334) * lu(1785) + lu(1792) = lu(1792) - lu(1335) * lu(1785) + lu(1793) = lu(1793) - lu(1336) * lu(1785) + lu(1794) = lu(1794) - lu(1337) * lu(1785) + lu(1795) = lu(1795) - lu(1338) * lu(1785) + lu(1796) = lu(1796) - lu(1339) * lu(1785) + lu(1797) = lu(1797) - lu(1340) * lu(1785) + lu(1798) = lu(1798) - lu(1341) * lu(1785) + lu(1844) = lu(1844) - lu(1329) * lu(1843) + lu(1845) = lu(1845) - lu(1330) * lu(1843) + lu(1846) = lu(1846) - lu(1331) * lu(1843) + lu(1847) = lu(1847) - lu(1332) * lu(1843) + lu(1848) = lu(1848) - lu(1333) * lu(1843) + lu(1849) = lu(1849) - lu(1334) * lu(1843) + lu(1850) = lu(1850) - lu(1335) * lu(1843) + lu(1851) = lu(1851) - lu(1336) * lu(1843) + lu(1852) = lu(1852) - lu(1337) * lu(1843) + lu(1853) = lu(1853) - lu(1338) * lu(1843) + lu(1854) = lu(1854) - lu(1339) * lu(1843) + lu(1855) = lu(1855) - lu(1340) * lu(1843) + lu(1856) = lu(1856) - lu(1341) * lu(1843) + lu(1364) = 1._r8 / lu(1364) + lu(1365) = lu(1365) * lu(1364) + lu(1366) = lu(1366) * lu(1364) + lu(1367) = lu(1367) * lu(1364) + lu(1368) = lu(1368) * lu(1364) + lu(1369) = lu(1369) * lu(1364) + lu(1370) = lu(1370) * lu(1364) + lu(1371) = lu(1371) * lu(1364) + lu(1372) = lu(1372) * lu(1364) + lu(1373) = lu(1373) * lu(1364) + lu(1374) = lu(1374) * lu(1364) + lu(1375) = lu(1375) * lu(1364) + lu(1376) = lu(1376) * lu(1364) + lu(1409) = lu(1409) - lu(1365) * lu(1408) + lu(1410) = lu(1410) - lu(1366) * lu(1408) + lu(1411) = lu(1411) - lu(1367) * lu(1408) + lu(1412) = lu(1412) - lu(1368) * lu(1408) + lu(1413) = lu(1413) - lu(1369) * lu(1408) + lu(1414) = lu(1414) - lu(1370) * lu(1408) + lu(1415) = lu(1415) - lu(1371) * lu(1408) + lu(1416) = lu(1416) - lu(1372) * lu(1408) + lu(1417) = lu(1417) - lu(1373) * lu(1408) + lu(1418) = lu(1418) - lu(1374) * lu(1408) + lu(1419) = lu(1419) - lu(1375) * lu(1408) + lu(1420) = lu(1420) - lu(1376) * lu(1408) + lu(1450) = lu(1450) - lu(1365) * lu(1449) + lu(1451) = lu(1451) - lu(1366) * lu(1449) + lu(1452) = lu(1452) - lu(1367) * lu(1449) + lu(1453) = lu(1453) - lu(1368) * lu(1449) + lu(1454) = lu(1454) - lu(1369) * lu(1449) + lu(1455) = lu(1455) - lu(1370) * lu(1449) + lu(1456) = lu(1456) - lu(1371) * lu(1449) + lu(1457) = lu(1457) - lu(1372) * lu(1449) + lu(1458) = lu(1458) - lu(1373) * lu(1449) + lu(1459) = lu(1459) - lu(1374) * lu(1449) + lu(1460) = lu(1460) - lu(1375) * lu(1449) + lu(1461) = lu(1461) - lu(1376) * lu(1449) + lu(1485) = lu(1485) - lu(1365) * lu(1484) + lu(1486) = lu(1486) - lu(1366) * lu(1484) + lu(1487) = lu(1487) - lu(1367) * lu(1484) + lu(1488) = lu(1488) - lu(1368) * lu(1484) + lu(1489) = lu(1489) - lu(1369) * lu(1484) + lu(1490) = lu(1490) - lu(1370) * lu(1484) + lu(1491) = lu(1491) - lu(1371) * lu(1484) + lu(1492) = lu(1492) - lu(1372) * lu(1484) + lu(1493) = lu(1493) - lu(1373) * lu(1484) + lu(1494) = lu(1494) - lu(1374) * lu(1484) + lu(1495) = lu(1495) - lu(1375) * lu(1484) + lu(1496) = lu(1496) - lu(1376) * lu(1484) + lu(1529) = lu(1529) - lu(1365) * lu(1528) + lu(1530) = lu(1530) - lu(1366) * lu(1528) + lu(1531) = lu(1531) - lu(1367) * lu(1528) + lu(1532) = lu(1532) - lu(1368) * lu(1528) + lu(1533) = lu(1533) - lu(1369) * lu(1528) + lu(1534) = lu(1534) - lu(1370) * lu(1528) + lu(1535) = lu(1535) - lu(1371) * lu(1528) + lu(1536) = lu(1536) - lu(1372) * lu(1528) + lu(1537) = lu(1537) - lu(1373) * lu(1528) + lu(1538) = lu(1538) - lu(1374) * lu(1528) + lu(1539) = lu(1539) - lu(1375) * lu(1528) + lu(1540) = lu(1540) - lu(1376) * lu(1528) + lu(1571) = lu(1571) - lu(1365) * lu(1570) + lu(1572) = lu(1572) - lu(1366) * lu(1570) + lu(1573) = lu(1573) - lu(1367) * lu(1570) + lu(1574) = lu(1574) - lu(1368) * lu(1570) + lu(1575) = lu(1575) - lu(1369) * lu(1570) + lu(1576) = lu(1576) - lu(1370) * lu(1570) + lu(1577) = lu(1577) - lu(1371) * lu(1570) + lu(1578) = lu(1578) - lu(1372) * lu(1570) + lu(1579) = lu(1579) - lu(1373) * lu(1570) + lu(1580) = lu(1580) - lu(1374) * lu(1570) + lu(1581) = lu(1581) - lu(1375) * lu(1570) + lu(1582) = lu(1582) - lu(1376) * lu(1570) + lu(1610) = lu(1610) - lu(1365) * lu(1609) + lu(1611) = lu(1611) - lu(1366) * lu(1609) + lu(1612) = lu(1612) - lu(1367) * lu(1609) + lu(1613) = lu(1613) - lu(1368) * lu(1609) + lu(1614) = lu(1614) - lu(1369) * lu(1609) + lu(1615) = lu(1615) - lu(1370) * lu(1609) + lu(1616) = lu(1616) - lu(1371) * lu(1609) + lu(1617) = lu(1617) - lu(1372) * lu(1609) + lu(1618) = lu(1618) - lu(1373) * lu(1609) + lu(1619) = lu(1619) - lu(1374) * lu(1609) + lu(1620) = lu(1620) - lu(1375) * lu(1609) + lu(1621) = lu(1621) - lu(1376) * lu(1609) + lu(1642) = lu(1642) - lu(1365) * lu(1641) + lu(1643) = lu(1643) - lu(1366) * lu(1641) + lu(1644) = lu(1644) - lu(1367) * lu(1641) + lu(1645) = lu(1645) - lu(1368) * lu(1641) + lu(1646) = lu(1646) - lu(1369) * lu(1641) + lu(1647) = lu(1647) - lu(1370) * lu(1641) + lu(1648) = lu(1648) - lu(1371) * lu(1641) + lu(1649) = lu(1649) - lu(1372) * lu(1641) + lu(1650) = lu(1650) - lu(1373) * lu(1641) + lu(1651) = lu(1651) - lu(1374) * lu(1641) + lu(1652) = lu(1652) - lu(1375) * lu(1641) + lu(1653) = lu(1653) - lu(1376) * lu(1641) + lu(1677) = lu(1677) - lu(1365) * lu(1676) + lu(1678) = lu(1678) - lu(1366) * lu(1676) + lu(1679) = lu(1679) - lu(1367) * lu(1676) + lu(1680) = lu(1680) - lu(1368) * lu(1676) + lu(1681) = lu(1681) - lu(1369) * lu(1676) + lu(1682) = lu(1682) - lu(1370) * lu(1676) + lu(1683) = lu(1683) - lu(1371) * lu(1676) + lu(1684) = lu(1684) - lu(1372) * lu(1676) + lu(1685) = lu(1685) - lu(1373) * lu(1676) + lu(1686) = lu(1686) - lu(1374) * lu(1676) + lu(1687) = lu(1687) - lu(1375) * lu(1676) + lu(1688) = lu(1688) - lu(1376) * lu(1676) + lu(1719) = lu(1719) - lu(1365) * lu(1718) + lu(1720) = lu(1720) - lu(1366) * lu(1718) + lu(1721) = lu(1721) - lu(1367) * lu(1718) + lu(1722) = lu(1722) - lu(1368) * lu(1718) + lu(1723) = lu(1723) - lu(1369) * lu(1718) + lu(1724) = lu(1724) - lu(1370) * lu(1718) + lu(1725) = lu(1725) - lu(1371) * lu(1718) + lu(1726) = lu(1726) - lu(1372) * lu(1718) + lu(1727) = lu(1727) - lu(1373) * lu(1718) + lu(1728) = lu(1728) - lu(1374) * lu(1718) + lu(1729) = lu(1729) - lu(1375) * lu(1718) + lu(1730) = lu(1730) - lu(1376) * lu(1718) + lu(1748) = lu(1748) - lu(1365) * lu(1747) + lu(1749) = lu(1749) - lu(1366) * lu(1747) + lu(1750) = lu(1750) - lu(1367) * lu(1747) + lu(1751) = lu(1751) - lu(1368) * lu(1747) + lu(1752) = lu(1752) - lu(1369) * lu(1747) + lu(1753) = lu(1753) - lu(1370) * lu(1747) + lu(1754) = lu(1754) - lu(1371) * lu(1747) + lu(1755) = lu(1755) - lu(1372) * lu(1747) + lu(1756) = lu(1756) - lu(1373) * lu(1747) + lu(1757) = lu(1757) - lu(1374) * lu(1747) + lu(1758) = lu(1758) - lu(1375) * lu(1747) + lu(1759) = lu(1759) - lu(1376) * lu(1747) + lu(1787) = lu(1787) - lu(1365) * lu(1786) + lu(1788) = lu(1788) - lu(1366) * lu(1786) + lu(1789) = lu(1789) - lu(1367) * lu(1786) + lu(1790) = lu(1790) - lu(1368) * lu(1786) + lu(1791) = lu(1791) - lu(1369) * lu(1786) + lu(1792) = lu(1792) - lu(1370) * lu(1786) + lu(1793) = lu(1793) - lu(1371) * lu(1786) + lu(1794) = lu(1794) - lu(1372) * lu(1786) + lu(1795) = lu(1795) - lu(1373) * lu(1786) + lu(1796) = lu(1796) - lu(1374) * lu(1786) + lu(1797) = lu(1797) - lu(1375) * lu(1786) + lu(1798) = lu(1798) - lu(1376) * lu(1786) + lu(1845) = lu(1845) - lu(1365) * lu(1844) + lu(1846) = lu(1846) - lu(1366) * lu(1844) + lu(1847) = lu(1847) - lu(1367) * lu(1844) + lu(1848) = lu(1848) - lu(1368) * lu(1844) + lu(1849) = lu(1849) - lu(1369) * lu(1844) + lu(1850) = lu(1850) - lu(1370) * lu(1844) + lu(1851) = lu(1851) - lu(1371) * lu(1844) + lu(1852) = lu(1852) - lu(1372) * lu(1844) + lu(1853) = lu(1853) - lu(1373) * lu(1844) + lu(1854) = lu(1854) - lu(1374) * lu(1844) + lu(1855) = lu(1855) - lu(1375) * lu(1844) + lu(1856) = lu(1856) - lu(1376) * lu(1844) + lu(1409) = 1._r8 / lu(1409) + lu(1410) = lu(1410) * lu(1409) + lu(1411) = lu(1411) * lu(1409) + lu(1412) = lu(1412) * lu(1409) + lu(1413) = lu(1413) * lu(1409) + lu(1414) = lu(1414) * lu(1409) + lu(1415) = lu(1415) * lu(1409) + lu(1416) = lu(1416) * lu(1409) + lu(1417) = lu(1417) * lu(1409) + lu(1418) = lu(1418) * lu(1409) + lu(1419) = lu(1419) * lu(1409) + lu(1420) = lu(1420) * lu(1409) + lu(1451) = lu(1451) - lu(1410) * lu(1450) + lu(1452) = lu(1452) - lu(1411) * lu(1450) + lu(1453) = lu(1453) - lu(1412) * lu(1450) + lu(1454) = lu(1454) - lu(1413) * lu(1450) + lu(1455) = lu(1455) - lu(1414) * lu(1450) + lu(1456) = lu(1456) - lu(1415) * lu(1450) + lu(1457) = lu(1457) - lu(1416) * lu(1450) + lu(1458) = lu(1458) - lu(1417) * lu(1450) + lu(1459) = lu(1459) - lu(1418) * lu(1450) + lu(1460) = lu(1460) - lu(1419) * lu(1450) + lu(1461) = lu(1461) - lu(1420) * lu(1450) + lu(1486) = lu(1486) - lu(1410) * lu(1485) + lu(1487) = lu(1487) - lu(1411) * lu(1485) + lu(1488) = lu(1488) - lu(1412) * lu(1485) + lu(1489) = lu(1489) - lu(1413) * lu(1485) + lu(1490) = lu(1490) - lu(1414) * lu(1485) + lu(1491) = lu(1491) - lu(1415) * lu(1485) + lu(1492) = lu(1492) - lu(1416) * lu(1485) + lu(1493) = lu(1493) - lu(1417) * lu(1485) + lu(1494) = lu(1494) - lu(1418) * lu(1485) + lu(1495) = lu(1495) - lu(1419) * lu(1485) + lu(1496) = lu(1496) - lu(1420) * lu(1485) + lu(1530) = lu(1530) - lu(1410) * lu(1529) + lu(1531) = lu(1531) - lu(1411) * lu(1529) + lu(1532) = lu(1532) - lu(1412) * lu(1529) + lu(1533) = lu(1533) - lu(1413) * lu(1529) + lu(1534) = lu(1534) - lu(1414) * lu(1529) + lu(1535) = lu(1535) - lu(1415) * lu(1529) + lu(1536) = lu(1536) - lu(1416) * lu(1529) + lu(1537) = lu(1537) - lu(1417) * lu(1529) + lu(1538) = lu(1538) - lu(1418) * lu(1529) + lu(1539) = lu(1539) - lu(1419) * lu(1529) + lu(1540) = lu(1540) - lu(1420) * lu(1529) + lu(1572) = lu(1572) - lu(1410) * lu(1571) + lu(1573) = lu(1573) - lu(1411) * lu(1571) + lu(1574) = lu(1574) - lu(1412) * lu(1571) + lu(1575) = lu(1575) - lu(1413) * lu(1571) + lu(1576) = lu(1576) - lu(1414) * lu(1571) + lu(1577) = lu(1577) - lu(1415) * lu(1571) + lu(1578) = lu(1578) - lu(1416) * lu(1571) + lu(1579) = lu(1579) - lu(1417) * lu(1571) + lu(1580) = lu(1580) - lu(1418) * lu(1571) + lu(1581) = lu(1581) - lu(1419) * lu(1571) + lu(1582) = lu(1582) - lu(1420) * lu(1571) + lu(1611) = lu(1611) - lu(1410) * lu(1610) + lu(1612) = lu(1612) - lu(1411) * lu(1610) + lu(1613) = lu(1613) - lu(1412) * lu(1610) + lu(1614) = lu(1614) - lu(1413) * lu(1610) + lu(1615) = lu(1615) - lu(1414) * lu(1610) + lu(1616) = lu(1616) - lu(1415) * lu(1610) + lu(1617) = lu(1617) - lu(1416) * lu(1610) + lu(1618) = lu(1618) - lu(1417) * lu(1610) + lu(1619) = lu(1619) - lu(1418) * lu(1610) + lu(1620) = lu(1620) - lu(1419) * lu(1610) + lu(1621) = lu(1621) - lu(1420) * lu(1610) + lu(1643) = lu(1643) - lu(1410) * lu(1642) + lu(1644) = lu(1644) - lu(1411) * lu(1642) + lu(1645) = lu(1645) - lu(1412) * lu(1642) + lu(1646) = lu(1646) - lu(1413) * lu(1642) + lu(1647) = lu(1647) - lu(1414) * lu(1642) + lu(1648) = lu(1648) - lu(1415) * lu(1642) + lu(1649) = lu(1649) - lu(1416) * lu(1642) + lu(1650) = lu(1650) - lu(1417) * lu(1642) + lu(1651) = lu(1651) - lu(1418) * lu(1642) + lu(1652) = lu(1652) - lu(1419) * lu(1642) + lu(1653) = lu(1653) - lu(1420) * lu(1642) + lu(1678) = lu(1678) - lu(1410) * lu(1677) + lu(1679) = lu(1679) - lu(1411) * lu(1677) + lu(1680) = lu(1680) - lu(1412) * lu(1677) + lu(1681) = lu(1681) - lu(1413) * lu(1677) + lu(1682) = lu(1682) - lu(1414) * lu(1677) + lu(1683) = lu(1683) - lu(1415) * lu(1677) + lu(1684) = lu(1684) - lu(1416) * lu(1677) + lu(1685) = lu(1685) - lu(1417) * lu(1677) + lu(1686) = lu(1686) - lu(1418) * lu(1677) + lu(1687) = lu(1687) - lu(1419) * lu(1677) + lu(1688) = lu(1688) - lu(1420) * lu(1677) + lu(1720) = lu(1720) - lu(1410) * lu(1719) + lu(1721) = lu(1721) - lu(1411) * lu(1719) + lu(1722) = lu(1722) - lu(1412) * lu(1719) + lu(1723) = lu(1723) - lu(1413) * lu(1719) + lu(1724) = lu(1724) - lu(1414) * lu(1719) + lu(1725) = lu(1725) - lu(1415) * lu(1719) + lu(1726) = lu(1726) - lu(1416) * lu(1719) + lu(1727) = lu(1727) - lu(1417) * lu(1719) + lu(1728) = lu(1728) - lu(1418) * lu(1719) + lu(1729) = lu(1729) - lu(1419) * lu(1719) + lu(1730) = lu(1730) - lu(1420) * lu(1719) + lu(1749) = lu(1749) - lu(1410) * lu(1748) + lu(1750) = lu(1750) - lu(1411) * lu(1748) + lu(1751) = lu(1751) - lu(1412) * lu(1748) + lu(1752) = lu(1752) - lu(1413) * lu(1748) + lu(1753) = lu(1753) - lu(1414) * lu(1748) + lu(1754) = lu(1754) - lu(1415) * lu(1748) + lu(1755) = lu(1755) - lu(1416) * lu(1748) + lu(1756) = lu(1756) - lu(1417) * lu(1748) + lu(1757) = lu(1757) - lu(1418) * lu(1748) + lu(1758) = lu(1758) - lu(1419) * lu(1748) + lu(1759) = lu(1759) - lu(1420) * lu(1748) + lu(1788) = lu(1788) - lu(1410) * lu(1787) + lu(1789) = lu(1789) - lu(1411) * lu(1787) + lu(1790) = lu(1790) - lu(1412) * lu(1787) + lu(1791) = lu(1791) - lu(1413) * lu(1787) + lu(1792) = lu(1792) - lu(1414) * lu(1787) + lu(1793) = lu(1793) - lu(1415) * lu(1787) + lu(1794) = lu(1794) - lu(1416) * lu(1787) + lu(1795) = lu(1795) - lu(1417) * lu(1787) + lu(1796) = lu(1796) - lu(1418) * lu(1787) + lu(1797) = lu(1797) - lu(1419) * lu(1787) + lu(1798) = lu(1798) - lu(1420) * lu(1787) + lu(1846) = lu(1846) - lu(1410) * lu(1845) + lu(1847) = lu(1847) - lu(1411) * lu(1845) + lu(1848) = lu(1848) - lu(1412) * lu(1845) + lu(1849) = lu(1849) - lu(1413) * lu(1845) + lu(1850) = lu(1850) - lu(1414) * lu(1845) + lu(1851) = lu(1851) - lu(1415) * lu(1845) + lu(1852) = lu(1852) - lu(1416) * lu(1845) + lu(1853) = lu(1853) - lu(1417) * lu(1845) + lu(1854) = lu(1854) - lu(1418) * lu(1845) + lu(1855) = lu(1855) - lu(1419) * lu(1845) + lu(1856) = lu(1856) - lu(1420) * lu(1845) end subroutine lu_fac22 - subroutine lu_fac23( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac23( lu ) 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,1433) = 1._r8 / lu(k,1433) - lu(k,1434) = lu(k,1434) * lu(k,1433) - lu(k,1435) = lu(k,1435) * lu(k,1433) - lu(k,1436) = lu(k,1436) * lu(k,1433) - lu(k,1437) = lu(k,1437) * lu(k,1433) - lu(k,1438) = lu(k,1438) * lu(k,1433) - lu(k,1439) = lu(k,1439) * lu(k,1433) - lu(k,1440) = lu(k,1440) * lu(k,1433) - lu(k,1441) = lu(k,1441) * lu(k,1433) - lu(k,1442) = lu(k,1442) * lu(k,1433) - lu(k,1443) = lu(k,1443) * lu(k,1433) - lu(k,1476) = lu(k,1476) - lu(k,1434) * lu(k,1475) - lu(k,1477) = lu(k,1477) - lu(k,1435) * lu(k,1475) - lu(k,1478) = lu(k,1478) - lu(k,1436) * lu(k,1475) - lu(k,1479) = lu(k,1479) - lu(k,1437) * lu(k,1475) - lu(k,1480) = lu(k,1480) - lu(k,1438) * lu(k,1475) - lu(k,1481) = lu(k,1481) - lu(k,1439) * lu(k,1475) - lu(k,1482) = lu(k,1482) - lu(k,1440) * lu(k,1475) - lu(k,1483) = lu(k,1483) - lu(k,1441) * lu(k,1475) - lu(k,1484) = lu(k,1484) - lu(k,1442) * lu(k,1475) - lu(k,1485) = lu(k,1485) - lu(k,1443) * lu(k,1475) - lu(k,1517) = lu(k,1517) - lu(k,1434) * lu(k,1516) - lu(k,1518) = lu(k,1518) - lu(k,1435) * lu(k,1516) - lu(k,1519) = lu(k,1519) - lu(k,1436) * lu(k,1516) - lu(k,1520) = lu(k,1520) - lu(k,1437) * lu(k,1516) - lu(k,1521) = lu(k,1521) - lu(k,1438) * lu(k,1516) - lu(k,1522) = lu(k,1522) - lu(k,1439) * lu(k,1516) - lu(k,1523) = lu(k,1523) - lu(k,1440) * lu(k,1516) - lu(k,1524) = lu(k,1524) - lu(k,1441) * lu(k,1516) - lu(k,1525) = lu(k,1525) - lu(k,1442) * lu(k,1516) - lu(k,1526) = lu(k,1526) - lu(k,1443) * lu(k,1516) - lu(k,1559) = lu(k,1559) - lu(k,1434) * lu(k,1558) - lu(k,1560) = lu(k,1560) - lu(k,1435) * lu(k,1558) - lu(k,1561) = lu(k,1561) - lu(k,1436) * lu(k,1558) - lu(k,1562) = lu(k,1562) - lu(k,1437) * lu(k,1558) - lu(k,1563) = lu(k,1563) - lu(k,1438) * lu(k,1558) - lu(k,1564) = lu(k,1564) - lu(k,1439) * lu(k,1558) - lu(k,1565) = lu(k,1565) - lu(k,1440) * lu(k,1558) - lu(k,1566) = lu(k,1566) - lu(k,1441) * lu(k,1558) - lu(k,1567) = lu(k,1567) - lu(k,1442) * lu(k,1558) - lu(k,1568) = lu(k,1568) - lu(k,1443) * lu(k,1558) - lu(k,1601) = lu(k,1601) - lu(k,1434) * lu(k,1600) - lu(k,1602) = lu(k,1602) - lu(k,1435) * lu(k,1600) - lu(k,1603) = lu(k,1603) - lu(k,1436) * lu(k,1600) - lu(k,1604) = lu(k,1604) - lu(k,1437) * lu(k,1600) - lu(k,1605) = lu(k,1605) - lu(k,1438) * lu(k,1600) - lu(k,1606) = lu(k,1606) - lu(k,1439) * lu(k,1600) - lu(k,1607) = lu(k,1607) - lu(k,1440) * lu(k,1600) - lu(k,1608) = lu(k,1608) - lu(k,1441) * lu(k,1600) - lu(k,1609) = lu(k,1609) - lu(k,1442) * lu(k,1600) - lu(k,1610) = lu(k,1610) - lu(k,1443) * lu(k,1600) - lu(k,1633) = lu(k,1633) - lu(k,1434) * lu(k,1632) - lu(k,1634) = lu(k,1634) - lu(k,1435) * lu(k,1632) - lu(k,1635) = lu(k,1635) - lu(k,1436) * lu(k,1632) - lu(k,1636) = lu(k,1636) - lu(k,1437) * lu(k,1632) - lu(k,1637) = lu(k,1637) - lu(k,1438) * lu(k,1632) - lu(k,1638) = lu(k,1638) - lu(k,1439) * lu(k,1632) - lu(k,1639) = lu(k,1639) - lu(k,1440) * lu(k,1632) - lu(k,1640) = lu(k,1640) - lu(k,1441) * lu(k,1632) - lu(k,1641) = lu(k,1641) - lu(k,1442) * lu(k,1632) - lu(k,1642) = lu(k,1642) - lu(k,1443) * lu(k,1632) - lu(k,1668) = lu(k,1668) - lu(k,1434) * lu(k,1667) - lu(k,1669) = lu(k,1669) - lu(k,1435) * lu(k,1667) - lu(k,1670) = lu(k,1670) - lu(k,1436) * lu(k,1667) - lu(k,1671) = lu(k,1671) - lu(k,1437) * lu(k,1667) - lu(k,1672) = lu(k,1672) - lu(k,1438) * lu(k,1667) - lu(k,1673) = lu(k,1673) - lu(k,1439) * lu(k,1667) - lu(k,1674) = lu(k,1674) - lu(k,1440) * lu(k,1667) - lu(k,1675) = lu(k,1675) - lu(k,1441) * lu(k,1667) - lu(k,1676) = lu(k,1676) - lu(k,1442) * lu(k,1667) - lu(k,1677) = lu(k,1677) - lu(k,1443) * lu(k,1667) - lu(k,1710) = lu(k,1710) - lu(k,1434) * lu(k,1709) - lu(k,1711) = lu(k,1711) - lu(k,1435) * lu(k,1709) - lu(k,1712) = lu(k,1712) - lu(k,1436) * lu(k,1709) - lu(k,1713) = lu(k,1713) - lu(k,1437) * lu(k,1709) - lu(k,1714) = lu(k,1714) - lu(k,1438) * lu(k,1709) - lu(k,1715) = lu(k,1715) - lu(k,1439) * lu(k,1709) - lu(k,1716) = lu(k,1716) - lu(k,1440) * lu(k,1709) - lu(k,1717) = lu(k,1717) - lu(k,1441) * lu(k,1709) - lu(k,1718) = lu(k,1718) - lu(k,1442) * lu(k,1709) - lu(k,1719) = lu(k,1719) - lu(k,1443) * lu(k,1709) - lu(k,1754) = lu(k,1754) - lu(k,1434) * lu(k,1753) - lu(k,1755) = lu(k,1755) - lu(k,1435) * lu(k,1753) - lu(k,1756) = lu(k,1756) - lu(k,1436) * lu(k,1753) - lu(k,1757) = lu(k,1757) - lu(k,1437) * lu(k,1753) - lu(k,1758) = lu(k,1758) - lu(k,1438) * lu(k,1753) - lu(k,1759) = lu(k,1759) - lu(k,1439) * lu(k,1753) - lu(k,1760) = lu(k,1760) - lu(k,1440) * lu(k,1753) - lu(k,1761) = lu(k,1761) - lu(k,1441) * lu(k,1753) - lu(k,1762) = lu(k,1762) - lu(k,1442) * lu(k,1753) - lu(k,1763) = lu(k,1763) - lu(k,1443) * lu(k,1753) - lu(k,1789) = lu(k,1789) - lu(k,1434) * lu(k,1788) - lu(k,1790) = lu(k,1790) - lu(k,1435) * lu(k,1788) - lu(k,1791) = lu(k,1791) - lu(k,1436) * lu(k,1788) - lu(k,1792) = lu(k,1792) - lu(k,1437) * lu(k,1788) - lu(k,1793) = lu(k,1793) - lu(k,1438) * lu(k,1788) - lu(k,1794) = lu(k,1794) - lu(k,1439) * lu(k,1788) - lu(k,1795) = lu(k,1795) - lu(k,1440) * lu(k,1788) - lu(k,1796) = lu(k,1796) - lu(k,1441) * lu(k,1788) - lu(k,1797) = lu(k,1797) - lu(k,1442) * lu(k,1788) - lu(k,1798) = lu(k,1798) - lu(k,1443) * lu(k,1788) - lu(k,1847) = lu(k,1847) - lu(k,1434) * lu(k,1846) - lu(k,1848) = lu(k,1848) - lu(k,1435) * lu(k,1846) - lu(k,1849) = lu(k,1849) - lu(k,1436) * lu(k,1846) - lu(k,1850) = lu(k,1850) - lu(k,1437) * lu(k,1846) - lu(k,1851) = lu(k,1851) - lu(k,1438) * lu(k,1846) - lu(k,1852) = lu(k,1852) - lu(k,1439) * lu(k,1846) - lu(k,1853) = lu(k,1853) - lu(k,1440) * lu(k,1846) - lu(k,1854) = lu(k,1854) - lu(k,1441) * lu(k,1846) - lu(k,1855) = lu(k,1855) - lu(k,1442) * lu(k,1846) - lu(k,1856) = lu(k,1856) - lu(k,1443) * lu(k,1846) - 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,1518) = lu(k,1518) - lu(k,1477) * lu(k,1517) - lu(k,1519) = lu(k,1519) - lu(k,1478) * lu(k,1517) - lu(k,1520) = lu(k,1520) - lu(k,1479) * lu(k,1517) - lu(k,1521) = lu(k,1521) - lu(k,1480) * lu(k,1517) - lu(k,1522) = lu(k,1522) - lu(k,1481) * lu(k,1517) - lu(k,1523) = lu(k,1523) - lu(k,1482) * lu(k,1517) - lu(k,1524) = lu(k,1524) - lu(k,1483) * lu(k,1517) - lu(k,1525) = lu(k,1525) - lu(k,1484) * lu(k,1517) - lu(k,1526) = lu(k,1526) - lu(k,1485) * lu(k,1517) - lu(k,1560) = lu(k,1560) - lu(k,1477) * lu(k,1559) - lu(k,1561) = lu(k,1561) - lu(k,1478) * lu(k,1559) - lu(k,1562) = lu(k,1562) - lu(k,1479) * lu(k,1559) - lu(k,1563) = lu(k,1563) - lu(k,1480) * lu(k,1559) - lu(k,1564) = lu(k,1564) - lu(k,1481) * lu(k,1559) - lu(k,1565) = lu(k,1565) - lu(k,1482) * lu(k,1559) - lu(k,1566) = lu(k,1566) - lu(k,1483) * lu(k,1559) - lu(k,1567) = lu(k,1567) - lu(k,1484) * lu(k,1559) - lu(k,1568) = lu(k,1568) - lu(k,1485) * lu(k,1559) - lu(k,1602) = lu(k,1602) - lu(k,1477) * lu(k,1601) - lu(k,1603) = lu(k,1603) - lu(k,1478) * lu(k,1601) - lu(k,1604) = lu(k,1604) - lu(k,1479) * lu(k,1601) - lu(k,1605) = lu(k,1605) - lu(k,1480) * lu(k,1601) - lu(k,1606) = lu(k,1606) - lu(k,1481) * lu(k,1601) - lu(k,1607) = lu(k,1607) - lu(k,1482) * lu(k,1601) - lu(k,1608) = lu(k,1608) - lu(k,1483) * lu(k,1601) - lu(k,1609) = lu(k,1609) - lu(k,1484) * lu(k,1601) - lu(k,1610) = lu(k,1610) - lu(k,1485) * lu(k,1601) - lu(k,1634) = lu(k,1634) - lu(k,1477) * lu(k,1633) - lu(k,1635) = lu(k,1635) - lu(k,1478) * lu(k,1633) - lu(k,1636) = lu(k,1636) - lu(k,1479) * lu(k,1633) - lu(k,1637) = lu(k,1637) - lu(k,1480) * lu(k,1633) - lu(k,1638) = lu(k,1638) - lu(k,1481) * lu(k,1633) - lu(k,1639) = lu(k,1639) - lu(k,1482) * lu(k,1633) - lu(k,1640) = lu(k,1640) - lu(k,1483) * lu(k,1633) - lu(k,1641) = lu(k,1641) - lu(k,1484) * lu(k,1633) - lu(k,1642) = lu(k,1642) - lu(k,1485) * lu(k,1633) - lu(k,1669) = lu(k,1669) - lu(k,1477) * lu(k,1668) - lu(k,1670) = lu(k,1670) - lu(k,1478) * lu(k,1668) - lu(k,1671) = lu(k,1671) - lu(k,1479) * lu(k,1668) - lu(k,1672) = lu(k,1672) - lu(k,1480) * lu(k,1668) - lu(k,1673) = lu(k,1673) - lu(k,1481) * lu(k,1668) - lu(k,1674) = lu(k,1674) - lu(k,1482) * lu(k,1668) - lu(k,1675) = lu(k,1675) - lu(k,1483) * lu(k,1668) - lu(k,1676) = lu(k,1676) - lu(k,1484) * lu(k,1668) - lu(k,1677) = lu(k,1677) - lu(k,1485) * lu(k,1668) - lu(k,1711) = lu(k,1711) - lu(k,1477) * lu(k,1710) - lu(k,1712) = lu(k,1712) - lu(k,1478) * lu(k,1710) - lu(k,1713) = lu(k,1713) - lu(k,1479) * lu(k,1710) - lu(k,1714) = lu(k,1714) - lu(k,1480) * lu(k,1710) - lu(k,1715) = lu(k,1715) - lu(k,1481) * lu(k,1710) - lu(k,1716) = lu(k,1716) - lu(k,1482) * lu(k,1710) - lu(k,1717) = lu(k,1717) - lu(k,1483) * lu(k,1710) - lu(k,1718) = lu(k,1718) - lu(k,1484) * lu(k,1710) - lu(k,1719) = lu(k,1719) - lu(k,1485) * lu(k,1710) - lu(k,1755) = lu(k,1755) - lu(k,1477) * lu(k,1754) - lu(k,1756) = lu(k,1756) - lu(k,1478) * lu(k,1754) - lu(k,1757) = lu(k,1757) - lu(k,1479) * lu(k,1754) - lu(k,1758) = lu(k,1758) - lu(k,1480) * lu(k,1754) - lu(k,1759) = lu(k,1759) - lu(k,1481) * lu(k,1754) - lu(k,1760) = lu(k,1760) - lu(k,1482) * lu(k,1754) - lu(k,1761) = lu(k,1761) - lu(k,1483) * lu(k,1754) - lu(k,1762) = lu(k,1762) - lu(k,1484) * lu(k,1754) - lu(k,1763) = lu(k,1763) - lu(k,1485) * lu(k,1754) - lu(k,1790) = lu(k,1790) - lu(k,1477) * lu(k,1789) - lu(k,1791) = lu(k,1791) - lu(k,1478) * lu(k,1789) - lu(k,1792) = lu(k,1792) - lu(k,1479) * lu(k,1789) - lu(k,1793) = lu(k,1793) - lu(k,1480) * lu(k,1789) - lu(k,1794) = lu(k,1794) - lu(k,1481) * lu(k,1789) - lu(k,1795) = lu(k,1795) - lu(k,1482) * lu(k,1789) - lu(k,1796) = lu(k,1796) - lu(k,1483) * lu(k,1789) - lu(k,1797) = lu(k,1797) - lu(k,1484) * lu(k,1789) - lu(k,1798) = lu(k,1798) - lu(k,1485) * lu(k,1789) - lu(k,1848) = lu(k,1848) - lu(k,1477) * lu(k,1847) - lu(k,1849) = lu(k,1849) - lu(k,1478) * lu(k,1847) - lu(k,1850) = lu(k,1850) - lu(k,1479) * lu(k,1847) - lu(k,1851) = lu(k,1851) - lu(k,1480) * lu(k,1847) - lu(k,1852) = lu(k,1852) - lu(k,1481) * lu(k,1847) - lu(k,1853) = lu(k,1853) - lu(k,1482) * lu(k,1847) - lu(k,1854) = lu(k,1854) - lu(k,1483) * lu(k,1847) - lu(k,1855) = lu(k,1855) - lu(k,1484) * lu(k,1847) - lu(k,1856) = lu(k,1856) - lu(k,1485) * lu(k,1847) - lu(k,1518) = 1._r8 / lu(k,1518) - lu(k,1519) = lu(k,1519) * lu(k,1518) - lu(k,1520) = lu(k,1520) * lu(k,1518) - lu(k,1521) = lu(k,1521) * lu(k,1518) - lu(k,1522) = lu(k,1522) * lu(k,1518) - lu(k,1523) = lu(k,1523) * lu(k,1518) - lu(k,1524) = lu(k,1524) * lu(k,1518) - lu(k,1525) = lu(k,1525) * lu(k,1518) - lu(k,1526) = lu(k,1526) * lu(k,1518) - lu(k,1561) = lu(k,1561) - lu(k,1519) * lu(k,1560) - lu(k,1562) = lu(k,1562) - lu(k,1520) * lu(k,1560) - lu(k,1563) = lu(k,1563) - lu(k,1521) * lu(k,1560) - lu(k,1564) = lu(k,1564) - lu(k,1522) * lu(k,1560) - lu(k,1565) = lu(k,1565) - lu(k,1523) * lu(k,1560) - lu(k,1566) = lu(k,1566) - lu(k,1524) * lu(k,1560) - lu(k,1567) = lu(k,1567) - lu(k,1525) * lu(k,1560) - lu(k,1568) = lu(k,1568) - lu(k,1526) * lu(k,1560) - lu(k,1603) = lu(k,1603) - lu(k,1519) * lu(k,1602) - lu(k,1604) = lu(k,1604) - lu(k,1520) * lu(k,1602) - lu(k,1605) = lu(k,1605) - lu(k,1521) * lu(k,1602) - lu(k,1606) = lu(k,1606) - lu(k,1522) * lu(k,1602) - lu(k,1607) = lu(k,1607) - lu(k,1523) * lu(k,1602) - lu(k,1608) = lu(k,1608) - lu(k,1524) * lu(k,1602) - lu(k,1609) = lu(k,1609) - lu(k,1525) * lu(k,1602) - lu(k,1610) = lu(k,1610) - lu(k,1526) * lu(k,1602) - lu(k,1635) = lu(k,1635) - lu(k,1519) * lu(k,1634) - lu(k,1636) = lu(k,1636) - lu(k,1520) * lu(k,1634) - lu(k,1637) = lu(k,1637) - lu(k,1521) * lu(k,1634) - lu(k,1638) = lu(k,1638) - lu(k,1522) * lu(k,1634) - lu(k,1639) = lu(k,1639) - lu(k,1523) * lu(k,1634) - lu(k,1640) = lu(k,1640) - lu(k,1524) * lu(k,1634) - lu(k,1641) = lu(k,1641) - lu(k,1525) * lu(k,1634) - lu(k,1642) = lu(k,1642) - lu(k,1526) * lu(k,1634) - lu(k,1670) = lu(k,1670) - lu(k,1519) * lu(k,1669) - lu(k,1671) = lu(k,1671) - lu(k,1520) * lu(k,1669) - lu(k,1672) = lu(k,1672) - lu(k,1521) * lu(k,1669) - lu(k,1673) = lu(k,1673) - lu(k,1522) * lu(k,1669) - lu(k,1674) = lu(k,1674) - lu(k,1523) * lu(k,1669) - lu(k,1675) = lu(k,1675) - lu(k,1524) * lu(k,1669) - lu(k,1676) = lu(k,1676) - lu(k,1525) * lu(k,1669) - lu(k,1677) = lu(k,1677) - lu(k,1526) * lu(k,1669) - lu(k,1712) = lu(k,1712) - lu(k,1519) * lu(k,1711) - lu(k,1713) = lu(k,1713) - lu(k,1520) * lu(k,1711) - lu(k,1714) = lu(k,1714) - lu(k,1521) * lu(k,1711) - lu(k,1715) = lu(k,1715) - lu(k,1522) * lu(k,1711) - lu(k,1716) = lu(k,1716) - lu(k,1523) * lu(k,1711) - lu(k,1717) = lu(k,1717) - lu(k,1524) * lu(k,1711) - lu(k,1718) = lu(k,1718) - lu(k,1525) * lu(k,1711) - lu(k,1719) = lu(k,1719) - lu(k,1526) * lu(k,1711) - lu(k,1756) = lu(k,1756) - lu(k,1519) * lu(k,1755) - lu(k,1757) = lu(k,1757) - lu(k,1520) * lu(k,1755) - lu(k,1758) = lu(k,1758) - lu(k,1521) * lu(k,1755) - lu(k,1759) = lu(k,1759) - lu(k,1522) * lu(k,1755) - lu(k,1760) = lu(k,1760) - lu(k,1523) * lu(k,1755) - lu(k,1761) = lu(k,1761) - lu(k,1524) * lu(k,1755) - lu(k,1762) = lu(k,1762) - lu(k,1525) * lu(k,1755) - lu(k,1763) = lu(k,1763) - lu(k,1526) * lu(k,1755) - lu(k,1791) = lu(k,1791) - lu(k,1519) * lu(k,1790) - lu(k,1792) = lu(k,1792) - lu(k,1520) * lu(k,1790) - lu(k,1793) = lu(k,1793) - lu(k,1521) * lu(k,1790) - lu(k,1794) = lu(k,1794) - lu(k,1522) * lu(k,1790) - lu(k,1795) = lu(k,1795) - lu(k,1523) * lu(k,1790) - lu(k,1796) = lu(k,1796) - lu(k,1524) * lu(k,1790) - lu(k,1797) = lu(k,1797) - lu(k,1525) * lu(k,1790) - lu(k,1798) = lu(k,1798) - lu(k,1526) * lu(k,1790) - lu(k,1849) = lu(k,1849) - lu(k,1519) * lu(k,1848) - lu(k,1850) = lu(k,1850) - lu(k,1520) * lu(k,1848) - lu(k,1851) = lu(k,1851) - lu(k,1521) * lu(k,1848) - lu(k,1852) = lu(k,1852) - lu(k,1522) * lu(k,1848) - lu(k,1853) = lu(k,1853) - lu(k,1523) * lu(k,1848) - lu(k,1854) = lu(k,1854) - lu(k,1524) * lu(k,1848) - lu(k,1855) = lu(k,1855) - lu(k,1525) * lu(k,1848) - lu(k,1856) = lu(k,1856) - lu(k,1526) * lu(k,1848) - lu(k,1561) = 1._r8 / lu(k,1561) - lu(k,1562) = lu(k,1562) * lu(k,1561) - lu(k,1563) = lu(k,1563) * lu(k,1561) - lu(k,1564) = lu(k,1564) * lu(k,1561) - lu(k,1565) = lu(k,1565) * lu(k,1561) - lu(k,1566) = lu(k,1566) * lu(k,1561) - lu(k,1567) = lu(k,1567) * lu(k,1561) - lu(k,1568) = lu(k,1568) * lu(k,1561) - lu(k,1604) = lu(k,1604) - lu(k,1562) * lu(k,1603) - lu(k,1605) = lu(k,1605) - lu(k,1563) * lu(k,1603) - lu(k,1606) = lu(k,1606) - lu(k,1564) * lu(k,1603) - lu(k,1607) = lu(k,1607) - lu(k,1565) * lu(k,1603) - lu(k,1608) = lu(k,1608) - lu(k,1566) * lu(k,1603) - lu(k,1609) = lu(k,1609) - lu(k,1567) * lu(k,1603) - lu(k,1610) = lu(k,1610) - lu(k,1568) * lu(k,1603) - lu(k,1636) = lu(k,1636) - lu(k,1562) * lu(k,1635) - lu(k,1637) = lu(k,1637) - lu(k,1563) * lu(k,1635) - lu(k,1638) = lu(k,1638) - lu(k,1564) * lu(k,1635) - lu(k,1639) = lu(k,1639) - lu(k,1565) * lu(k,1635) - lu(k,1640) = lu(k,1640) - lu(k,1566) * lu(k,1635) - lu(k,1641) = lu(k,1641) - lu(k,1567) * lu(k,1635) - lu(k,1642) = lu(k,1642) - lu(k,1568) * lu(k,1635) - lu(k,1671) = lu(k,1671) - lu(k,1562) * lu(k,1670) - lu(k,1672) = lu(k,1672) - lu(k,1563) * lu(k,1670) - lu(k,1673) = lu(k,1673) - lu(k,1564) * lu(k,1670) - lu(k,1674) = lu(k,1674) - lu(k,1565) * lu(k,1670) - lu(k,1675) = lu(k,1675) - lu(k,1566) * lu(k,1670) - lu(k,1676) = lu(k,1676) - lu(k,1567) * lu(k,1670) - lu(k,1677) = lu(k,1677) - lu(k,1568) * lu(k,1670) - lu(k,1713) = lu(k,1713) - lu(k,1562) * lu(k,1712) - lu(k,1714) = lu(k,1714) - lu(k,1563) * lu(k,1712) - lu(k,1715) = lu(k,1715) - lu(k,1564) * lu(k,1712) - lu(k,1716) = lu(k,1716) - lu(k,1565) * lu(k,1712) - lu(k,1717) = lu(k,1717) - lu(k,1566) * lu(k,1712) - lu(k,1718) = lu(k,1718) - lu(k,1567) * lu(k,1712) - lu(k,1719) = lu(k,1719) - lu(k,1568) * lu(k,1712) - lu(k,1757) = lu(k,1757) - lu(k,1562) * lu(k,1756) - lu(k,1758) = lu(k,1758) - lu(k,1563) * lu(k,1756) - lu(k,1759) = lu(k,1759) - lu(k,1564) * lu(k,1756) - lu(k,1760) = lu(k,1760) - lu(k,1565) * lu(k,1756) - lu(k,1761) = lu(k,1761) - lu(k,1566) * lu(k,1756) - lu(k,1762) = lu(k,1762) - lu(k,1567) * lu(k,1756) - lu(k,1763) = lu(k,1763) - lu(k,1568) * lu(k,1756) - lu(k,1792) = lu(k,1792) - lu(k,1562) * lu(k,1791) - lu(k,1793) = lu(k,1793) - lu(k,1563) * lu(k,1791) - lu(k,1794) = lu(k,1794) - lu(k,1564) * lu(k,1791) - lu(k,1795) = lu(k,1795) - lu(k,1565) * lu(k,1791) - lu(k,1796) = lu(k,1796) - lu(k,1566) * lu(k,1791) - lu(k,1797) = lu(k,1797) - lu(k,1567) * lu(k,1791) - lu(k,1798) = lu(k,1798) - lu(k,1568) * lu(k,1791) - lu(k,1850) = lu(k,1850) - lu(k,1562) * lu(k,1849) - lu(k,1851) = lu(k,1851) - lu(k,1563) * lu(k,1849) - lu(k,1852) = lu(k,1852) - lu(k,1564) * lu(k,1849) - lu(k,1853) = lu(k,1853) - lu(k,1565) * lu(k,1849) - lu(k,1854) = lu(k,1854) - lu(k,1566) * lu(k,1849) - lu(k,1855) = lu(k,1855) - lu(k,1567) * lu(k,1849) - lu(k,1856) = lu(k,1856) - lu(k,1568) * lu(k,1849) - lu(k,1604) = 1._r8 / lu(k,1604) - lu(k,1605) = lu(k,1605) * lu(k,1604) - lu(k,1606) = lu(k,1606) * lu(k,1604) - lu(k,1607) = lu(k,1607) * lu(k,1604) - lu(k,1608) = lu(k,1608) * lu(k,1604) - lu(k,1609) = lu(k,1609) * lu(k,1604) - lu(k,1610) = lu(k,1610) * lu(k,1604) - lu(k,1637) = lu(k,1637) - lu(k,1605) * lu(k,1636) - lu(k,1638) = lu(k,1638) - lu(k,1606) * lu(k,1636) - lu(k,1639) = lu(k,1639) - lu(k,1607) * lu(k,1636) - lu(k,1640) = lu(k,1640) - lu(k,1608) * lu(k,1636) - lu(k,1641) = lu(k,1641) - lu(k,1609) * lu(k,1636) - lu(k,1642) = lu(k,1642) - lu(k,1610) * lu(k,1636) - lu(k,1672) = lu(k,1672) - lu(k,1605) * lu(k,1671) - lu(k,1673) = lu(k,1673) - lu(k,1606) * lu(k,1671) - lu(k,1674) = lu(k,1674) - lu(k,1607) * lu(k,1671) - lu(k,1675) = lu(k,1675) - lu(k,1608) * lu(k,1671) - lu(k,1676) = lu(k,1676) - lu(k,1609) * lu(k,1671) - lu(k,1677) = lu(k,1677) - lu(k,1610) * lu(k,1671) - lu(k,1714) = lu(k,1714) - lu(k,1605) * lu(k,1713) - lu(k,1715) = lu(k,1715) - lu(k,1606) * lu(k,1713) - lu(k,1716) = lu(k,1716) - lu(k,1607) * lu(k,1713) - lu(k,1717) = lu(k,1717) - lu(k,1608) * lu(k,1713) - lu(k,1718) = lu(k,1718) - lu(k,1609) * lu(k,1713) - lu(k,1719) = lu(k,1719) - lu(k,1610) * lu(k,1713) - lu(k,1758) = lu(k,1758) - lu(k,1605) * lu(k,1757) - lu(k,1759) = lu(k,1759) - lu(k,1606) * lu(k,1757) - lu(k,1760) = lu(k,1760) - lu(k,1607) * lu(k,1757) - lu(k,1761) = lu(k,1761) - lu(k,1608) * lu(k,1757) - lu(k,1762) = lu(k,1762) - lu(k,1609) * lu(k,1757) - lu(k,1763) = lu(k,1763) - lu(k,1610) * lu(k,1757) - lu(k,1793) = lu(k,1793) - lu(k,1605) * lu(k,1792) - lu(k,1794) = lu(k,1794) - lu(k,1606) * lu(k,1792) - lu(k,1795) = lu(k,1795) - lu(k,1607) * lu(k,1792) - lu(k,1796) = lu(k,1796) - lu(k,1608) * lu(k,1792) - lu(k,1797) = lu(k,1797) - lu(k,1609) * lu(k,1792) - lu(k,1798) = lu(k,1798) - lu(k,1610) * lu(k,1792) - lu(k,1851) = lu(k,1851) - lu(k,1605) * lu(k,1850) - lu(k,1852) = lu(k,1852) - lu(k,1606) * lu(k,1850) - lu(k,1853) = lu(k,1853) - lu(k,1607) * lu(k,1850) - lu(k,1854) = lu(k,1854) - lu(k,1608) * lu(k,1850) - lu(k,1855) = lu(k,1855) - lu(k,1609) * lu(k,1850) - lu(k,1856) = lu(k,1856) - lu(k,1610) * lu(k,1850) - lu(k,1637) = 1._r8 / lu(k,1637) - lu(k,1638) = lu(k,1638) * lu(k,1637) - lu(k,1639) = lu(k,1639) * lu(k,1637) - lu(k,1640) = lu(k,1640) * lu(k,1637) - lu(k,1641) = lu(k,1641) * lu(k,1637) - lu(k,1642) = lu(k,1642) * lu(k,1637) - lu(k,1673) = lu(k,1673) - lu(k,1638) * lu(k,1672) - lu(k,1674) = lu(k,1674) - lu(k,1639) * lu(k,1672) - lu(k,1675) = lu(k,1675) - lu(k,1640) * lu(k,1672) - lu(k,1676) = lu(k,1676) - lu(k,1641) * lu(k,1672) - lu(k,1677) = lu(k,1677) - lu(k,1642) * lu(k,1672) - lu(k,1715) = lu(k,1715) - lu(k,1638) * lu(k,1714) - lu(k,1716) = lu(k,1716) - lu(k,1639) * lu(k,1714) - lu(k,1717) = lu(k,1717) - lu(k,1640) * lu(k,1714) - lu(k,1718) = lu(k,1718) - lu(k,1641) * lu(k,1714) - lu(k,1719) = lu(k,1719) - lu(k,1642) * lu(k,1714) - lu(k,1759) = lu(k,1759) - lu(k,1638) * lu(k,1758) - lu(k,1760) = lu(k,1760) - lu(k,1639) * lu(k,1758) - lu(k,1761) = lu(k,1761) - lu(k,1640) * lu(k,1758) - lu(k,1762) = lu(k,1762) - lu(k,1641) * lu(k,1758) - lu(k,1763) = lu(k,1763) - lu(k,1642) * lu(k,1758) - lu(k,1794) = lu(k,1794) - lu(k,1638) * lu(k,1793) - lu(k,1795) = lu(k,1795) - lu(k,1639) * lu(k,1793) - lu(k,1796) = lu(k,1796) - lu(k,1640) * lu(k,1793) - lu(k,1797) = lu(k,1797) - lu(k,1641) * lu(k,1793) - lu(k,1798) = lu(k,1798) - lu(k,1642) * lu(k,1793) - lu(k,1852) = lu(k,1852) - lu(k,1638) * lu(k,1851) - lu(k,1853) = lu(k,1853) - lu(k,1639) * lu(k,1851) - lu(k,1854) = lu(k,1854) - lu(k,1640) * lu(k,1851) - lu(k,1855) = lu(k,1855) - lu(k,1641) * lu(k,1851) - lu(k,1856) = lu(k,1856) - lu(k,1642) * lu(k,1851) - end do + real(r8), intent(inout) :: lu(:) + lu(1451) = 1._r8 / lu(1451) + lu(1452) = lu(1452) * lu(1451) + lu(1453) = lu(1453) * lu(1451) + lu(1454) = lu(1454) * lu(1451) + lu(1455) = lu(1455) * lu(1451) + lu(1456) = lu(1456) * lu(1451) + lu(1457) = lu(1457) * lu(1451) + lu(1458) = lu(1458) * lu(1451) + lu(1459) = lu(1459) * lu(1451) + lu(1460) = lu(1460) * lu(1451) + lu(1461) = lu(1461) * lu(1451) + lu(1487) = lu(1487) - lu(1452) * lu(1486) + lu(1488) = lu(1488) - lu(1453) * lu(1486) + lu(1489) = lu(1489) - lu(1454) * lu(1486) + lu(1490) = lu(1490) - lu(1455) * lu(1486) + lu(1491) = lu(1491) - lu(1456) * lu(1486) + lu(1492) = lu(1492) - lu(1457) * lu(1486) + lu(1493) = lu(1493) - lu(1458) * lu(1486) + lu(1494) = lu(1494) - lu(1459) * lu(1486) + lu(1495) = lu(1495) - lu(1460) * lu(1486) + lu(1496) = lu(1496) - lu(1461) * lu(1486) + lu(1531) = lu(1531) - lu(1452) * lu(1530) + lu(1532) = lu(1532) - lu(1453) * lu(1530) + lu(1533) = lu(1533) - lu(1454) * lu(1530) + lu(1534) = lu(1534) - lu(1455) * lu(1530) + lu(1535) = lu(1535) - lu(1456) * lu(1530) + lu(1536) = lu(1536) - lu(1457) * lu(1530) + lu(1537) = lu(1537) - lu(1458) * lu(1530) + lu(1538) = lu(1538) - lu(1459) * lu(1530) + lu(1539) = lu(1539) - lu(1460) * lu(1530) + lu(1540) = lu(1540) - lu(1461) * lu(1530) + lu(1573) = lu(1573) - lu(1452) * lu(1572) + lu(1574) = lu(1574) - lu(1453) * lu(1572) + lu(1575) = lu(1575) - lu(1454) * lu(1572) + lu(1576) = lu(1576) - lu(1455) * lu(1572) + lu(1577) = lu(1577) - lu(1456) * lu(1572) + lu(1578) = lu(1578) - lu(1457) * lu(1572) + lu(1579) = lu(1579) - lu(1458) * lu(1572) + lu(1580) = lu(1580) - lu(1459) * lu(1572) + lu(1581) = lu(1581) - lu(1460) * lu(1572) + lu(1582) = lu(1582) - lu(1461) * lu(1572) + lu(1612) = lu(1612) - lu(1452) * lu(1611) + lu(1613) = lu(1613) - lu(1453) * lu(1611) + lu(1614) = lu(1614) - lu(1454) * lu(1611) + lu(1615) = lu(1615) - lu(1455) * lu(1611) + lu(1616) = lu(1616) - lu(1456) * lu(1611) + lu(1617) = lu(1617) - lu(1457) * lu(1611) + lu(1618) = lu(1618) - lu(1458) * lu(1611) + lu(1619) = lu(1619) - lu(1459) * lu(1611) + lu(1620) = lu(1620) - lu(1460) * lu(1611) + lu(1621) = lu(1621) - lu(1461) * lu(1611) + lu(1644) = lu(1644) - lu(1452) * lu(1643) + lu(1645) = lu(1645) - lu(1453) * lu(1643) + lu(1646) = lu(1646) - lu(1454) * lu(1643) + lu(1647) = lu(1647) - lu(1455) * lu(1643) + lu(1648) = lu(1648) - lu(1456) * lu(1643) + lu(1649) = lu(1649) - lu(1457) * lu(1643) + lu(1650) = lu(1650) - lu(1458) * lu(1643) + lu(1651) = lu(1651) - lu(1459) * lu(1643) + lu(1652) = lu(1652) - lu(1460) * lu(1643) + lu(1653) = lu(1653) - lu(1461) * lu(1643) + lu(1679) = lu(1679) - lu(1452) * lu(1678) + lu(1680) = lu(1680) - lu(1453) * lu(1678) + lu(1681) = lu(1681) - lu(1454) * lu(1678) + lu(1682) = lu(1682) - lu(1455) * lu(1678) + lu(1683) = lu(1683) - lu(1456) * lu(1678) + lu(1684) = lu(1684) - lu(1457) * lu(1678) + lu(1685) = lu(1685) - lu(1458) * lu(1678) + lu(1686) = lu(1686) - lu(1459) * lu(1678) + lu(1687) = lu(1687) - lu(1460) * lu(1678) + lu(1688) = lu(1688) - lu(1461) * lu(1678) + lu(1721) = lu(1721) - lu(1452) * lu(1720) + lu(1722) = lu(1722) - lu(1453) * lu(1720) + lu(1723) = lu(1723) - lu(1454) * lu(1720) + lu(1724) = lu(1724) - lu(1455) * lu(1720) + lu(1725) = lu(1725) - lu(1456) * lu(1720) + lu(1726) = lu(1726) - lu(1457) * lu(1720) + lu(1727) = lu(1727) - lu(1458) * lu(1720) + lu(1728) = lu(1728) - lu(1459) * lu(1720) + lu(1729) = lu(1729) - lu(1460) * lu(1720) + lu(1730) = lu(1730) - lu(1461) * lu(1720) + lu(1750) = lu(1750) - lu(1452) * lu(1749) + lu(1751) = lu(1751) - lu(1453) * lu(1749) + lu(1752) = lu(1752) - lu(1454) * lu(1749) + lu(1753) = lu(1753) - lu(1455) * lu(1749) + lu(1754) = lu(1754) - lu(1456) * lu(1749) + lu(1755) = lu(1755) - lu(1457) * lu(1749) + lu(1756) = lu(1756) - lu(1458) * lu(1749) + lu(1757) = lu(1757) - lu(1459) * lu(1749) + lu(1758) = lu(1758) - lu(1460) * lu(1749) + lu(1759) = lu(1759) - lu(1461) * lu(1749) + lu(1789) = lu(1789) - lu(1452) * lu(1788) + lu(1790) = lu(1790) - lu(1453) * lu(1788) + lu(1791) = lu(1791) - lu(1454) * lu(1788) + lu(1792) = lu(1792) - lu(1455) * lu(1788) + lu(1793) = lu(1793) - lu(1456) * lu(1788) + lu(1794) = lu(1794) - lu(1457) * lu(1788) + lu(1795) = lu(1795) - lu(1458) * lu(1788) + lu(1796) = lu(1796) - lu(1459) * lu(1788) + lu(1797) = lu(1797) - lu(1460) * lu(1788) + lu(1798) = lu(1798) - lu(1461) * lu(1788) + lu(1847) = lu(1847) - lu(1452) * lu(1846) + lu(1848) = lu(1848) - lu(1453) * lu(1846) + lu(1849) = lu(1849) - lu(1454) * lu(1846) + lu(1850) = lu(1850) - lu(1455) * lu(1846) + lu(1851) = lu(1851) - lu(1456) * lu(1846) + lu(1852) = lu(1852) - lu(1457) * lu(1846) + lu(1853) = lu(1853) - lu(1458) * lu(1846) + lu(1854) = lu(1854) - lu(1459) * lu(1846) + lu(1855) = lu(1855) - lu(1460) * lu(1846) + lu(1856) = lu(1856) - lu(1461) * lu(1846) + lu(1487) = 1._r8 / lu(1487) + lu(1488) = lu(1488) * lu(1487) + lu(1489) = lu(1489) * lu(1487) + lu(1490) = lu(1490) * lu(1487) + lu(1491) = lu(1491) * lu(1487) + lu(1492) = lu(1492) * lu(1487) + lu(1493) = lu(1493) * lu(1487) + lu(1494) = lu(1494) * lu(1487) + lu(1495) = lu(1495) * lu(1487) + lu(1496) = lu(1496) * lu(1487) + lu(1532) = lu(1532) - lu(1488) * lu(1531) + lu(1533) = lu(1533) - lu(1489) * lu(1531) + lu(1534) = lu(1534) - lu(1490) * lu(1531) + lu(1535) = lu(1535) - lu(1491) * lu(1531) + lu(1536) = lu(1536) - lu(1492) * lu(1531) + lu(1537) = lu(1537) - lu(1493) * lu(1531) + lu(1538) = lu(1538) - lu(1494) * lu(1531) + lu(1539) = lu(1539) - lu(1495) * lu(1531) + lu(1540) = lu(1540) - lu(1496) * lu(1531) + lu(1574) = lu(1574) - lu(1488) * lu(1573) + lu(1575) = lu(1575) - lu(1489) * lu(1573) + lu(1576) = lu(1576) - lu(1490) * lu(1573) + lu(1577) = lu(1577) - lu(1491) * lu(1573) + lu(1578) = lu(1578) - lu(1492) * lu(1573) + lu(1579) = lu(1579) - lu(1493) * lu(1573) + lu(1580) = lu(1580) - lu(1494) * lu(1573) + lu(1581) = lu(1581) - lu(1495) * lu(1573) + lu(1582) = lu(1582) - lu(1496) * lu(1573) + lu(1613) = lu(1613) - lu(1488) * lu(1612) + lu(1614) = lu(1614) - lu(1489) * lu(1612) + lu(1615) = lu(1615) - lu(1490) * lu(1612) + lu(1616) = lu(1616) - lu(1491) * lu(1612) + lu(1617) = lu(1617) - lu(1492) * lu(1612) + lu(1618) = lu(1618) - lu(1493) * lu(1612) + lu(1619) = lu(1619) - lu(1494) * lu(1612) + lu(1620) = lu(1620) - lu(1495) * lu(1612) + lu(1621) = lu(1621) - lu(1496) * lu(1612) + lu(1645) = lu(1645) - lu(1488) * lu(1644) + lu(1646) = lu(1646) - lu(1489) * lu(1644) + lu(1647) = lu(1647) - lu(1490) * lu(1644) + lu(1648) = lu(1648) - lu(1491) * lu(1644) + lu(1649) = lu(1649) - lu(1492) * lu(1644) + lu(1650) = lu(1650) - lu(1493) * lu(1644) + lu(1651) = lu(1651) - lu(1494) * lu(1644) + lu(1652) = lu(1652) - lu(1495) * lu(1644) + lu(1653) = lu(1653) - lu(1496) * lu(1644) + lu(1680) = lu(1680) - lu(1488) * lu(1679) + lu(1681) = lu(1681) - lu(1489) * lu(1679) + lu(1682) = lu(1682) - lu(1490) * lu(1679) + lu(1683) = lu(1683) - lu(1491) * lu(1679) + lu(1684) = lu(1684) - lu(1492) * lu(1679) + lu(1685) = lu(1685) - lu(1493) * lu(1679) + lu(1686) = lu(1686) - lu(1494) * lu(1679) + lu(1687) = lu(1687) - lu(1495) * lu(1679) + lu(1688) = lu(1688) - lu(1496) * lu(1679) + lu(1722) = lu(1722) - lu(1488) * lu(1721) + lu(1723) = lu(1723) - lu(1489) * lu(1721) + lu(1724) = lu(1724) - lu(1490) * lu(1721) + lu(1725) = lu(1725) - lu(1491) * lu(1721) + lu(1726) = lu(1726) - lu(1492) * lu(1721) + lu(1727) = lu(1727) - lu(1493) * lu(1721) + lu(1728) = lu(1728) - lu(1494) * lu(1721) + lu(1729) = lu(1729) - lu(1495) * lu(1721) + lu(1730) = lu(1730) - lu(1496) * lu(1721) + lu(1751) = lu(1751) - lu(1488) * lu(1750) + lu(1752) = lu(1752) - lu(1489) * lu(1750) + lu(1753) = lu(1753) - lu(1490) * lu(1750) + lu(1754) = lu(1754) - lu(1491) * lu(1750) + lu(1755) = lu(1755) - lu(1492) * lu(1750) + lu(1756) = lu(1756) - lu(1493) * lu(1750) + lu(1757) = lu(1757) - lu(1494) * lu(1750) + lu(1758) = lu(1758) - lu(1495) * lu(1750) + lu(1759) = lu(1759) - lu(1496) * lu(1750) + lu(1790) = lu(1790) - lu(1488) * lu(1789) + lu(1791) = lu(1791) - lu(1489) * lu(1789) + lu(1792) = lu(1792) - lu(1490) * lu(1789) + lu(1793) = lu(1793) - lu(1491) * lu(1789) + lu(1794) = lu(1794) - lu(1492) * lu(1789) + lu(1795) = lu(1795) - lu(1493) * lu(1789) + lu(1796) = lu(1796) - lu(1494) * lu(1789) + lu(1797) = lu(1797) - lu(1495) * lu(1789) + lu(1798) = lu(1798) - lu(1496) * lu(1789) + lu(1848) = lu(1848) - lu(1488) * lu(1847) + lu(1849) = lu(1849) - lu(1489) * lu(1847) + lu(1850) = lu(1850) - lu(1490) * lu(1847) + lu(1851) = lu(1851) - lu(1491) * lu(1847) + lu(1852) = lu(1852) - lu(1492) * lu(1847) + lu(1853) = lu(1853) - lu(1493) * lu(1847) + lu(1854) = lu(1854) - lu(1494) * lu(1847) + lu(1855) = lu(1855) - lu(1495) * lu(1847) + lu(1856) = lu(1856) - lu(1496) * lu(1847) + lu(1532) = 1._r8 / lu(1532) + lu(1533) = lu(1533) * lu(1532) + lu(1534) = lu(1534) * lu(1532) + lu(1535) = lu(1535) * lu(1532) + lu(1536) = lu(1536) * lu(1532) + lu(1537) = lu(1537) * lu(1532) + lu(1538) = lu(1538) * lu(1532) + lu(1539) = lu(1539) * lu(1532) + lu(1540) = lu(1540) * lu(1532) + lu(1575) = lu(1575) - lu(1533) * lu(1574) + lu(1576) = lu(1576) - lu(1534) * lu(1574) + lu(1577) = lu(1577) - lu(1535) * lu(1574) + lu(1578) = lu(1578) - lu(1536) * lu(1574) + lu(1579) = lu(1579) - lu(1537) * lu(1574) + lu(1580) = lu(1580) - lu(1538) * lu(1574) + lu(1581) = lu(1581) - lu(1539) * lu(1574) + lu(1582) = lu(1582) - lu(1540) * lu(1574) + lu(1614) = lu(1614) - lu(1533) * lu(1613) + lu(1615) = lu(1615) - lu(1534) * lu(1613) + lu(1616) = lu(1616) - lu(1535) * lu(1613) + lu(1617) = lu(1617) - lu(1536) * lu(1613) + lu(1618) = lu(1618) - lu(1537) * lu(1613) + lu(1619) = lu(1619) - lu(1538) * lu(1613) + lu(1620) = lu(1620) - lu(1539) * lu(1613) + lu(1621) = lu(1621) - lu(1540) * lu(1613) + lu(1646) = lu(1646) - lu(1533) * lu(1645) + lu(1647) = lu(1647) - lu(1534) * lu(1645) + lu(1648) = lu(1648) - lu(1535) * lu(1645) + lu(1649) = lu(1649) - lu(1536) * lu(1645) + lu(1650) = lu(1650) - lu(1537) * lu(1645) + lu(1651) = lu(1651) - lu(1538) * lu(1645) + lu(1652) = lu(1652) - lu(1539) * lu(1645) + lu(1653) = lu(1653) - lu(1540) * lu(1645) + lu(1681) = lu(1681) - lu(1533) * lu(1680) + lu(1682) = lu(1682) - lu(1534) * lu(1680) + lu(1683) = lu(1683) - lu(1535) * lu(1680) + lu(1684) = lu(1684) - lu(1536) * lu(1680) + lu(1685) = lu(1685) - lu(1537) * lu(1680) + lu(1686) = lu(1686) - lu(1538) * lu(1680) + lu(1687) = lu(1687) - lu(1539) * lu(1680) + lu(1688) = lu(1688) - lu(1540) * lu(1680) + lu(1723) = lu(1723) - lu(1533) * lu(1722) + lu(1724) = lu(1724) - lu(1534) * lu(1722) + lu(1725) = lu(1725) - lu(1535) * lu(1722) + lu(1726) = lu(1726) - lu(1536) * lu(1722) + lu(1727) = lu(1727) - lu(1537) * lu(1722) + lu(1728) = lu(1728) - lu(1538) * lu(1722) + lu(1729) = lu(1729) - lu(1539) * lu(1722) + lu(1730) = lu(1730) - lu(1540) * lu(1722) + lu(1752) = lu(1752) - lu(1533) * lu(1751) + lu(1753) = lu(1753) - lu(1534) * lu(1751) + lu(1754) = lu(1754) - lu(1535) * lu(1751) + lu(1755) = lu(1755) - lu(1536) * lu(1751) + lu(1756) = lu(1756) - lu(1537) * lu(1751) + lu(1757) = lu(1757) - lu(1538) * lu(1751) + lu(1758) = lu(1758) - lu(1539) * lu(1751) + lu(1759) = lu(1759) - lu(1540) * lu(1751) + lu(1791) = lu(1791) - lu(1533) * lu(1790) + lu(1792) = lu(1792) - lu(1534) * lu(1790) + lu(1793) = lu(1793) - lu(1535) * lu(1790) + lu(1794) = lu(1794) - lu(1536) * lu(1790) + lu(1795) = lu(1795) - lu(1537) * lu(1790) + lu(1796) = lu(1796) - lu(1538) * lu(1790) + lu(1797) = lu(1797) - lu(1539) * lu(1790) + lu(1798) = lu(1798) - lu(1540) * lu(1790) + lu(1849) = lu(1849) - lu(1533) * lu(1848) + lu(1850) = lu(1850) - lu(1534) * lu(1848) + lu(1851) = lu(1851) - lu(1535) * lu(1848) + lu(1852) = lu(1852) - lu(1536) * lu(1848) + lu(1853) = lu(1853) - lu(1537) * lu(1848) + lu(1854) = lu(1854) - lu(1538) * lu(1848) + lu(1855) = lu(1855) - lu(1539) * lu(1848) + lu(1856) = lu(1856) - lu(1540) * lu(1848) + lu(1575) = 1._r8 / lu(1575) + lu(1576) = lu(1576) * lu(1575) + lu(1577) = lu(1577) * lu(1575) + lu(1578) = lu(1578) * lu(1575) + lu(1579) = lu(1579) * lu(1575) + lu(1580) = lu(1580) * lu(1575) + lu(1581) = lu(1581) * lu(1575) + lu(1582) = lu(1582) * lu(1575) + lu(1615) = lu(1615) - lu(1576) * lu(1614) + lu(1616) = lu(1616) - lu(1577) * lu(1614) + lu(1617) = lu(1617) - lu(1578) * lu(1614) + lu(1618) = lu(1618) - lu(1579) * lu(1614) + lu(1619) = lu(1619) - lu(1580) * lu(1614) + lu(1620) = lu(1620) - lu(1581) * lu(1614) + lu(1621) = lu(1621) - lu(1582) * lu(1614) + lu(1647) = lu(1647) - lu(1576) * lu(1646) + lu(1648) = lu(1648) - lu(1577) * lu(1646) + lu(1649) = lu(1649) - lu(1578) * lu(1646) + lu(1650) = lu(1650) - lu(1579) * lu(1646) + lu(1651) = lu(1651) - lu(1580) * lu(1646) + lu(1652) = lu(1652) - lu(1581) * lu(1646) + lu(1653) = lu(1653) - lu(1582) * lu(1646) + lu(1682) = lu(1682) - lu(1576) * lu(1681) + lu(1683) = lu(1683) - lu(1577) * lu(1681) + lu(1684) = lu(1684) - lu(1578) * lu(1681) + lu(1685) = lu(1685) - lu(1579) * lu(1681) + lu(1686) = lu(1686) - lu(1580) * lu(1681) + lu(1687) = lu(1687) - lu(1581) * lu(1681) + lu(1688) = lu(1688) - lu(1582) * lu(1681) + lu(1724) = lu(1724) - lu(1576) * lu(1723) + lu(1725) = lu(1725) - lu(1577) * lu(1723) + lu(1726) = lu(1726) - lu(1578) * lu(1723) + lu(1727) = lu(1727) - lu(1579) * lu(1723) + lu(1728) = lu(1728) - lu(1580) * lu(1723) + lu(1729) = lu(1729) - lu(1581) * lu(1723) + lu(1730) = lu(1730) - lu(1582) * lu(1723) + lu(1753) = lu(1753) - lu(1576) * lu(1752) + lu(1754) = lu(1754) - lu(1577) * lu(1752) + lu(1755) = lu(1755) - lu(1578) * lu(1752) + lu(1756) = lu(1756) - lu(1579) * lu(1752) + lu(1757) = lu(1757) - lu(1580) * lu(1752) + lu(1758) = lu(1758) - lu(1581) * lu(1752) + lu(1759) = lu(1759) - lu(1582) * lu(1752) + lu(1792) = lu(1792) - lu(1576) * lu(1791) + lu(1793) = lu(1793) - lu(1577) * lu(1791) + lu(1794) = lu(1794) - lu(1578) * lu(1791) + lu(1795) = lu(1795) - lu(1579) * lu(1791) + lu(1796) = lu(1796) - lu(1580) * lu(1791) + lu(1797) = lu(1797) - lu(1581) * lu(1791) + lu(1798) = lu(1798) - lu(1582) * lu(1791) + lu(1850) = lu(1850) - lu(1576) * lu(1849) + lu(1851) = lu(1851) - lu(1577) * lu(1849) + lu(1852) = lu(1852) - lu(1578) * lu(1849) + lu(1853) = lu(1853) - lu(1579) * lu(1849) + lu(1854) = lu(1854) - lu(1580) * lu(1849) + lu(1855) = lu(1855) - lu(1581) * lu(1849) + lu(1856) = lu(1856) - lu(1582) * lu(1849) + lu(1615) = 1._r8 / lu(1615) + lu(1616) = lu(1616) * lu(1615) + lu(1617) = lu(1617) * lu(1615) + lu(1618) = lu(1618) * lu(1615) + lu(1619) = lu(1619) * lu(1615) + lu(1620) = lu(1620) * lu(1615) + lu(1621) = lu(1621) * lu(1615) + lu(1648) = lu(1648) - lu(1616) * lu(1647) + lu(1649) = lu(1649) - lu(1617) * lu(1647) + lu(1650) = lu(1650) - lu(1618) * lu(1647) + lu(1651) = lu(1651) - lu(1619) * lu(1647) + lu(1652) = lu(1652) - lu(1620) * lu(1647) + lu(1653) = lu(1653) - lu(1621) * lu(1647) + lu(1683) = lu(1683) - lu(1616) * lu(1682) + lu(1684) = lu(1684) - lu(1617) * lu(1682) + lu(1685) = lu(1685) - lu(1618) * lu(1682) + lu(1686) = lu(1686) - lu(1619) * lu(1682) + lu(1687) = lu(1687) - lu(1620) * lu(1682) + lu(1688) = lu(1688) - lu(1621) * lu(1682) + lu(1725) = lu(1725) - lu(1616) * lu(1724) + lu(1726) = lu(1726) - lu(1617) * lu(1724) + lu(1727) = lu(1727) - lu(1618) * lu(1724) + lu(1728) = lu(1728) - lu(1619) * lu(1724) + lu(1729) = lu(1729) - lu(1620) * lu(1724) + lu(1730) = lu(1730) - lu(1621) * lu(1724) + lu(1754) = lu(1754) - lu(1616) * lu(1753) + lu(1755) = lu(1755) - lu(1617) * lu(1753) + lu(1756) = lu(1756) - lu(1618) * lu(1753) + lu(1757) = lu(1757) - lu(1619) * lu(1753) + lu(1758) = lu(1758) - lu(1620) * lu(1753) + lu(1759) = lu(1759) - lu(1621) * lu(1753) + lu(1793) = lu(1793) - lu(1616) * lu(1792) + lu(1794) = lu(1794) - lu(1617) * lu(1792) + lu(1795) = lu(1795) - lu(1618) * lu(1792) + lu(1796) = lu(1796) - lu(1619) * lu(1792) + lu(1797) = lu(1797) - lu(1620) * lu(1792) + lu(1798) = lu(1798) - lu(1621) * lu(1792) + lu(1851) = lu(1851) - lu(1616) * lu(1850) + lu(1852) = lu(1852) - lu(1617) * lu(1850) + lu(1853) = lu(1853) - lu(1618) * lu(1850) + lu(1854) = lu(1854) - lu(1619) * lu(1850) + lu(1855) = lu(1855) - lu(1620) * lu(1850) + lu(1856) = lu(1856) - lu(1621) * lu(1850) + lu(1648) = 1._r8 / lu(1648) + lu(1649) = lu(1649) * lu(1648) + lu(1650) = lu(1650) * lu(1648) + lu(1651) = lu(1651) * lu(1648) + lu(1652) = lu(1652) * lu(1648) + lu(1653) = lu(1653) * lu(1648) + lu(1684) = lu(1684) - lu(1649) * lu(1683) + lu(1685) = lu(1685) - lu(1650) * lu(1683) + lu(1686) = lu(1686) - lu(1651) * lu(1683) + lu(1687) = lu(1687) - lu(1652) * lu(1683) + lu(1688) = lu(1688) - lu(1653) * lu(1683) + lu(1726) = lu(1726) - lu(1649) * lu(1725) + lu(1727) = lu(1727) - lu(1650) * lu(1725) + lu(1728) = lu(1728) - lu(1651) * lu(1725) + lu(1729) = lu(1729) - lu(1652) * lu(1725) + lu(1730) = lu(1730) - lu(1653) * lu(1725) + lu(1755) = lu(1755) - lu(1649) * lu(1754) + lu(1756) = lu(1756) - lu(1650) * lu(1754) + lu(1757) = lu(1757) - lu(1651) * lu(1754) + lu(1758) = lu(1758) - lu(1652) * lu(1754) + lu(1759) = lu(1759) - lu(1653) * lu(1754) + lu(1794) = lu(1794) - lu(1649) * lu(1793) + lu(1795) = lu(1795) - lu(1650) * lu(1793) + lu(1796) = lu(1796) - lu(1651) * lu(1793) + lu(1797) = lu(1797) - lu(1652) * lu(1793) + lu(1798) = lu(1798) - lu(1653) * lu(1793) + lu(1852) = lu(1852) - lu(1649) * lu(1851) + lu(1853) = lu(1853) - lu(1650) * lu(1851) + lu(1854) = lu(1854) - lu(1651) * lu(1851) + lu(1855) = lu(1855) - lu(1652) * lu(1851) + lu(1856) = lu(1856) - lu(1653) * lu(1851) end subroutine lu_fac23 - subroutine lu_fac24( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac24( lu ) 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,1673) = 1._r8 / lu(k,1673) - lu(k,1674) = lu(k,1674) * lu(k,1673) - lu(k,1675) = lu(k,1675) * lu(k,1673) - lu(k,1676) = lu(k,1676) * lu(k,1673) - lu(k,1677) = lu(k,1677) * lu(k,1673) - lu(k,1716) = lu(k,1716) - lu(k,1674) * lu(k,1715) - lu(k,1717) = lu(k,1717) - lu(k,1675) * lu(k,1715) - lu(k,1718) = lu(k,1718) - lu(k,1676) * lu(k,1715) - lu(k,1719) = lu(k,1719) - lu(k,1677) * lu(k,1715) - lu(k,1760) = lu(k,1760) - lu(k,1674) * lu(k,1759) - lu(k,1761) = lu(k,1761) - lu(k,1675) * lu(k,1759) - lu(k,1762) = lu(k,1762) - lu(k,1676) * lu(k,1759) - lu(k,1763) = lu(k,1763) - lu(k,1677) * lu(k,1759) - lu(k,1795) = lu(k,1795) - lu(k,1674) * lu(k,1794) - lu(k,1796) = lu(k,1796) - lu(k,1675) * lu(k,1794) - lu(k,1797) = lu(k,1797) - lu(k,1676) * lu(k,1794) - lu(k,1798) = lu(k,1798) - lu(k,1677) * lu(k,1794) - lu(k,1853) = lu(k,1853) - lu(k,1674) * lu(k,1852) - lu(k,1854) = lu(k,1854) - lu(k,1675) * lu(k,1852) - lu(k,1855) = lu(k,1855) - lu(k,1676) * lu(k,1852) - lu(k,1856) = lu(k,1856) - lu(k,1677) * lu(k,1852) - lu(k,1716) = 1._r8 / lu(k,1716) - lu(k,1717) = lu(k,1717) * lu(k,1716) - lu(k,1718) = lu(k,1718) * lu(k,1716) - lu(k,1719) = lu(k,1719) * lu(k,1716) - lu(k,1761) = lu(k,1761) - lu(k,1717) * lu(k,1760) - lu(k,1762) = lu(k,1762) - lu(k,1718) * lu(k,1760) - lu(k,1763) = lu(k,1763) - lu(k,1719) * lu(k,1760) - lu(k,1796) = lu(k,1796) - lu(k,1717) * lu(k,1795) - lu(k,1797) = lu(k,1797) - lu(k,1718) * lu(k,1795) - lu(k,1798) = lu(k,1798) - lu(k,1719) * lu(k,1795) - lu(k,1854) = lu(k,1854) - lu(k,1717) * lu(k,1853) - lu(k,1855) = lu(k,1855) - lu(k,1718) * lu(k,1853) - lu(k,1856) = lu(k,1856) - lu(k,1719) * lu(k,1853) - lu(k,1761) = 1._r8 / lu(k,1761) - lu(k,1762) = lu(k,1762) * lu(k,1761) - lu(k,1763) = lu(k,1763) * lu(k,1761) - lu(k,1797) = lu(k,1797) - lu(k,1762) * lu(k,1796) - lu(k,1798) = lu(k,1798) - lu(k,1763) * lu(k,1796) - lu(k,1855) = lu(k,1855) - lu(k,1762) * lu(k,1854) - lu(k,1856) = lu(k,1856) - lu(k,1763) * lu(k,1854) - lu(k,1797) = 1._r8 / lu(k,1797) - lu(k,1798) = lu(k,1798) * lu(k,1797) - lu(k,1856) = lu(k,1856) - lu(k,1798) * lu(k,1855) - lu(k,1856) = 1._r8 / lu(k,1856) - end do + real(r8), intent(inout) :: lu(:) + lu(1684) = 1._r8 / lu(1684) + lu(1685) = lu(1685) * lu(1684) + lu(1686) = lu(1686) * lu(1684) + lu(1687) = lu(1687) * lu(1684) + lu(1688) = lu(1688) * lu(1684) + lu(1727) = lu(1727) - lu(1685) * lu(1726) + lu(1728) = lu(1728) - lu(1686) * lu(1726) + lu(1729) = lu(1729) - lu(1687) * lu(1726) + lu(1730) = lu(1730) - lu(1688) * lu(1726) + lu(1756) = lu(1756) - lu(1685) * lu(1755) + lu(1757) = lu(1757) - lu(1686) * lu(1755) + lu(1758) = lu(1758) - lu(1687) * lu(1755) + lu(1759) = lu(1759) - lu(1688) * lu(1755) + lu(1795) = lu(1795) - lu(1685) * lu(1794) + lu(1796) = lu(1796) - lu(1686) * lu(1794) + lu(1797) = lu(1797) - lu(1687) * lu(1794) + lu(1798) = lu(1798) - lu(1688) * lu(1794) + lu(1853) = lu(1853) - lu(1685) * lu(1852) + lu(1854) = lu(1854) - lu(1686) * lu(1852) + lu(1855) = lu(1855) - lu(1687) * lu(1852) + lu(1856) = lu(1856) - lu(1688) * lu(1852) + lu(1727) = 1._r8 / lu(1727) + lu(1728) = lu(1728) * lu(1727) + lu(1729) = lu(1729) * lu(1727) + lu(1730) = lu(1730) * lu(1727) + lu(1757) = lu(1757) - lu(1728) * lu(1756) + lu(1758) = lu(1758) - lu(1729) * lu(1756) + lu(1759) = lu(1759) - lu(1730) * lu(1756) + lu(1796) = lu(1796) - lu(1728) * lu(1795) + lu(1797) = lu(1797) - lu(1729) * lu(1795) + lu(1798) = lu(1798) - lu(1730) * lu(1795) + lu(1854) = lu(1854) - lu(1728) * lu(1853) + lu(1855) = lu(1855) - lu(1729) * lu(1853) + lu(1856) = lu(1856) - lu(1730) * lu(1853) + lu(1757) = 1._r8 / lu(1757) + lu(1758) = lu(1758) * lu(1757) + lu(1759) = lu(1759) * lu(1757) + lu(1797) = lu(1797) - lu(1758) * lu(1796) + lu(1798) = lu(1798) - lu(1759) * lu(1796) + lu(1855) = lu(1855) - lu(1758) * lu(1854) + lu(1856) = lu(1856) - lu(1759) * lu(1854) + lu(1797) = 1._r8 / lu(1797) + lu(1798) = lu(1798) * lu(1797) + lu(1856) = lu(1856) - lu(1798) * lu(1855) + lu(1856) = 1._r8 / lu(1856) end subroutine lu_fac24 - subroutine lu_fac( avec_len, lu ) - use chem_mods, only : nzcnt + subroutine lu_fac( lu ) 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) - call lu_fac01( avec_len, lu ) - call lu_fac02( avec_len, lu ) - call lu_fac03( avec_len, lu ) - call lu_fac04( avec_len, lu ) - call lu_fac05( avec_len, lu ) - call lu_fac06( avec_len, lu ) - call lu_fac07( avec_len, lu ) - call lu_fac08( avec_len, lu ) - call lu_fac09( avec_len, lu ) - call lu_fac10( avec_len, lu ) - call lu_fac11( avec_len, lu ) - call lu_fac12( avec_len, lu ) - call lu_fac13( avec_len, lu ) - call lu_fac14( avec_len, lu ) - call lu_fac15( avec_len, lu ) - call lu_fac16( avec_len, lu ) - call lu_fac17( avec_len, lu ) - call lu_fac18( avec_len, lu ) - call lu_fac19( avec_len, lu ) - call lu_fac20( avec_len, lu ) - call lu_fac21( avec_len, lu ) - call lu_fac22( avec_len, lu ) - call lu_fac23( avec_len, lu ) - call lu_fac24( avec_len, lu ) + real(r8), intent(inout) :: lu(:) + call lu_fac01( lu ) + call lu_fac02( lu ) + call lu_fac03( lu ) + call lu_fac04( lu ) + call lu_fac05( lu ) + call lu_fac06( lu ) + call lu_fac07( lu ) + call lu_fac08( lu ) + call lu_fac09( lu ) + call lu_fac10( lu ) + call lu_fac11( lu ) + call lu_fac12( lu ) + call lu_fac13( lu ) + call lu_fac14( lu ) + call lu_fac15( lu ) + call lu_fac16( lu ) + call lu_fac17( lu ) + call lu_fac18( lu ) + call lu_fac19( lu ) + call lu_fac20( lu ) + call lu_fac21( lu ) + call lu_fac22( lu ) + call lu_fac23( lu ) + call lu_fac24( lu ) end subroutine lu_fac end module mo_lu_factor diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_lu_solve.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_lu_solve.F90 index 4cf6552a1f..c6d8116885 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_lu_solve.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_lu_solve.F90 @@ -1,2086 +1,2044 @@ module mo_lu_solve - use chem_mods, only: veclen private public :: lu_slv contains - subroutine lu_slv01( avec_len, lu, b ) + subroutine lu_slv01( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,105) = b(k,105) - lu(k,22) * b(k,21) - b(k,112) = b(k,112) - lu(k,23) * b(k,21) - b(k,29) = b(k,29) - lu(k,25) * b(k,22) - b(k,114) = b(k,114) - lu(k,26) * b(k,22) - b(k,53) = b(k,53) - lu(k,28) * b(k,23) - b(k,84) = b(k,84) - lu(k,29) * b(k,23) - b(k,105) = b(k,105) - lu(k,31) * b(k,24) - b(k,53) = b(k,53) - lu(k,33) * b(k,25) - b(k,84) = b(k,84) - lu(k,34) * b(k,25) - b(k,105) = b(k,105) - lu(k,35) * b(k,25) - b(k,53) = b(k,53) - lu(k,37) * b(k,26) - b(k,113) = b(k,113) - lu(k,38) * b(k,26) - b(k,75) = b(k,75) - lu(k,40) * b(k,27) - b(k,105) = b(k,105) - lu(k,41) * b(k,27) - b(k,59) = b(k,59) - lu(k,43) * b(k,28) - b(k,100) = b(k,100) - lu(k,44) * b(k,28) - b(k,60) = b(k,60) - lu(k,47) * b(k,29) - b(k,104) = b(k,104) - lu(k,48) * b(k,29) - b(k,114) = b(k,114) - lu(k,49) * b(k,29) - b(k,101) = b(k,101) - lu(k,51) * b(k,30) - b(k,111) = b(k,111) - lu(k,52) * b(k,30) - b(k,114) = b(k,114) - lu(k,53) * b(k,30) - b(k,101) = b(k,101) - lu(k,55) * b(k,31) - b(k,108) = b(k,108) - lu(k,56) * b(k,31) - b(k,114) = b(k,114) - lu(k,57) * b(k,31) - b(k,60) = b(k,60) - lu(k,59) * b(k,32) - b(k,88) = b(k,88) - lu(k,60) * b(k,32) - b(k,89) = b(k,89) - lu(k,61) * b(k,32) - b(k,97) = b(k,97) - lu(k,62) * b(k,32) - b(k,101) = b(k,101) - lu(k,63) * b(k,32) - b(k,60) = b(k,60) - lu(k,65) * b(k,33) - b(k,70) = b(k,70) - lu(k,66) * b(k,33) - b(k,104) = b(k,104) - lu(k,67) * b(k,33) - b(k,112) = b(k,112) - lu(k,68) * b(k,33) - b(k,44) = b(k,44) - lu(k,70) * b(k,34) - b(k,49) = b(k,49) - lu(k,71) * b(k,34) - b(k,60) = b(k,60) - lu(k,72) * b(k,34) - b(k,70) = b(k,70) - lu(k,73) * b(k,34) - b(k,89) = b(k,89) - lu(k,74) * b(k,34) - b(k,104) = b(k,104) - lu(k,75) * b(k,34) - b(k,113) = b(k,113) - lu(k,76) * b(k,34) - b(k,66) = b(k,66) - lu(k,78) * b(k,35) - b(k,83) = b(k,83) - lu(k,79) * b(k,35) - b(k,89) = b(k,89) - lu(k,80) * b(k,35) - b(k,113) = b(k,113) - lu(k,81) * b(k,35) - b(k,114) = b(k,114) - lu(k,82) * b(k,35) - b(k,48) = b(k,48) - lu(k,84) * b(k,36) - b(k,89) = b(k,89) - lu(k,85) * b(k,36) - b(k,107) = b(k,107) - lu(k,86) * b(k,36) - b(k,113) = b(k,113) - lu(k,87) * b(k,36) - b(k,114) = b(k,114) - lu(k,88) * b(k,36) - b(k,50) = b(k,50) - lu(k,90) * b(k,37) - b(k,95) = b(k,95) - lu(k,91) * b(k,37) - b(k,106) = b(k,106) - lu(k,92) * b(k,37) - b(k,107) = b(k,107) - lu(k,93) * b(k,37) - b(k,114) = b(k,114) - lu(k,94) * b(k,37) - b(k,74) = b(k,74) - lu(k,96) * b(k,38) - b(k,85) = b(k,85) - lu(k,97) * b(k,38) - b(k,100) = b(k,100) - lu(k,98) * b(k,38) - b(k,102) = b(k,102) - lu(k,99) * b(k,38) - b(k,104) = b(k,104) - lu(k,100) * b(k,38) - b(k,88) = b(k,88) - lu(k,102) * b(k,39) - b(k,89) = b(k,89) - lu(k,103) * b(k,39) - b(k,94) = b(k,94) - lu(k,104) * b(k,39) - b(k,97) = b(k,97) - lu(k,105) * b(k,39) - b(k,100) = b(k,100) - lu(k,106) * b(k,39) - b(k,114) = b(k,114) - lu(k,107) * b(k,39) - b(k,41) = b(k,41) - lu(k,109) * b(k,40) - b(k,92) = b(k,92) - lu(k,110) * b(k,40) - b(k,96) = b(k,96) - lu(k,111) * b(k,40) - b(k,106) = b(k,106) - lu(k,112) * b(k,40) - b(k,107) = b(k,107) - lu(k,113) * b(k,40) - b(k,114) = b(k,114) - lu(k,114) * b(k,40) - b(k,92) = b(k,92) - lu(k,116) * b(k,41) - b(k,96) = b(k,96) - lu(k,117) * b(k,41) - b(k,106) = b(k,106) - lu(k,118) * b(k,41) - b(k,107) = b(k,107) - lu(k,119) * b(k,41) - b(k,114) = b(k,114) - lu(k,120) * b(k,41) - b(k,43) = b(k,43) - lu(k,122) * b(k,42) - b(k,47) = b(k,47) - lu(k,123) * b(k,42) - b(k,56) = b(k,56) - lu(k,124) * b(k,42) - b(k,61) = b(k,61) - lu(k,125) * b(k,42) - b(k,104) = b(k,104) - lu(k,126) * b(k,42) - b(k,106) = b(k,106) - lu(k,127) * b(k,42) - b(k,47) = b(k,47) - lu(k,129) * b(k,43) - b(k,61) = b(k,61) - lu(k,130) * b(k,43) - b(k,100) = b(k,100) - lu(k,131) * b(k,43) - b(k,103) = b(k,103) - lu(k,132) * b(k,43) - b(k,104) = b(k,104) - lu(k,133) * b(k,43) - b(k,88) = b(k,88) - lu(k,135) * b(k,44) - b(k,89) = b(k,89) - lu(k,136) * b(k,44) - b(k,113) = b(k,113) - lu(k,137) * b(k,44) - b(k,54) = b(k,54) - lu(k,139) * b(k,45) - b(k,75) = b(k,75) - lu(k,140) * b(k,45) - b(k,82) = b(k,82) - lu(k,141) * b(k,45) - b(k,94) = b(k,94) - lu(k,142) * b(k,45) - b(k,97) = b(k,97) - lu(k,143) * b(k,45) - b(k,101) = b(k,101) - lu(k,144) * b(k,45) - b(k,104) = b(k,104) - lu(k,145) * b(k,45) - b(k,88) = b(k,88) - lu(k,147) * b(k,46) - b(k,89) = b(k,89) - lu(k,148) * b(k,46) - b(k,98) = b(k,98) - lu(k,149) * b(k,46) - b(k,104) = b(k,104) - lu(k,150) * b(k,46) - b(k,105) = b(k,105) - lu(k,151) * b(k,46) - b(k,114) = b(k,114) - lu(k,152) * b(k,46) - b(k,55) = b(k,55) - lu(k,154) * b(k,47) - b(k,61) = b(k,61) - lu(k,155) * b(k,47) - b(k,65) = b(k,65) - lu(k,156) * b(k,47) - b(k,92) = b(k,92) - lu(k,157) * b(k,47) - b(k,100) = b(k,100) - lu(k,158) * b(k,47) - b(k,103) = b(k,103) - lu(k,159) * b(k,47) - b(k,104) = b(k,104) - lu(k,160) * b(k,47) - b(k,107) = b(k,107) - lu(k,161) * b(k,47) - b(k,51) = b(k,51) - lu(k,163) * b(k,48) - b(k,95) = b(k,95) - lu(k,164) * b(k,48) - b(k,107) = b(k,107) - lu(k,165) * b(k,48) - b(k,113) = b(k,113) - lu(k,166) * b(k,48) - b(k,114) = b(k,114) - lu(k,167) * b(k,48) - b(k,70) = b(k,70) - lu(k,169) * b(k,49) - b(k,89) = b(k,89) - lu(k,170) * b(k,49) - b(k,99) = b(k,99) - lu(k,171) * b(k,49) - b(k,100) = b(k,100) - lu(k,172) * b(k,49) - b(k,104) = b(k,104) - lu(k,173) * b(k,49) - b(k,113) = b(k,113) - lu(k,174) * b(k,49) - b(k,89) = b(k,89) - lu(k,176) * b(k,50) - b(k,94) = b(k,94) - lu(k,177) * b(k,50) - b(k,106) = b(k,106) - lu(k,178) * b(k,50) - b(k,114) = b(k,114) - lu(k,179) * b(k,50) - b(k,95) = b(k,95) - lu(k,182) * b(k,51) - b(k,107) = b(k,107) - lu(k,183) * b(k,51) - b(k,113) = b(k,113) - lu(k,184) * b(k,51) - b(k,114) = b(k,114) - lu(k,185) * b(k,51) - b(k,89) = b(k,89) - lu(k,190) * b(k,52) - b(k,95) = b(k,95) - lu(k,191) * b(k,52) - b(k,100) = b(k,100) - lu(k,192) * b(k,52) - b(k,103) = b(k,103) - lu(k,193) * b(k,52) - b(k,107) = b(k,107) - lu(k,194) * b(k,52) - b(k,113) = b(k,113) - lu(k,195) * b(k,52) - b(k,114) = b(k,114) - lu(k,196) * b(k,52) - b(k,66) = b(k,66) - lu(k,199) * b(k,53) - b(k,77) = b(k,77) - lu(k,200) * b(k,53) - b(k,89) = b(k,89) - lu(k,201) * b(k,53) - b(k,97) = b(k,97) - lu(k,202) * b(k,53) - b(k,101) = b(k,101) - lu(k,203) * b(k,53) - b(k,113) = b(k,113) - lu(k,204) * b(k,53) - b(k,114) = b(k,114) - lu(k,205) * b(k,53) - b(k,75) = b(k,75) - lu(k,208) * b(k,54) - b(k,82) = b(k,82) - lu(k,209) * b(k,54) - b(k,89) = b(k,89) - lu(k,210) * b(k,54) - b(k,98) = b(k,98) - lu(k,211) * b(k,54) - b(k,104) = b(k,104) - lu(k,212) * b(k,54) - b(k,105) = b(k,105) - lu(k,213) * b(k,54) - b(k,114) = b(k,114) - lu(k,214) * b(k,54) - b(k,56) = b(k,56) - lu(k,216) * b(k,55) - b(k,61) = b(k,61) - lu(k,217) * b(k,55) - b(k,65) = b(k,65) - lu(k,218) * b(k,55) - b(k,84) = b(k,84) - lu(k,219) * b(k,55) - b(k,100) = b(k,100) - lu(k,220) * b(k,55) - b(k,104) = b(k,104) - lu(k,221) * b(k,55) - b(k,106) = b(k,106) - lu(k,222) * b(k,55) - b(k,61) = b(k,61) - lu(k,224) * b(k,56) - b(k,65) = b(k,65) - lu(k,225) * b(k,56) - b(k,92) = b(k,92) - lu(k,226) * b(k,56) - b(k,100) = b(k,100) - lu(k,227) * b(k,56) - b(k,103) = b(k,103) - lu(k,228) * b(k,56) - b(k,104) = b(k,104) - lu(k,229) * b(k,56) - b(k,89) = b(k,89) - lu(k,232) * b(k,57) - b(k,98) = b(k,98) - lu(k,233) * b(k,57) - b(k,104) = b(k,104) - lu(k,234) * b(k,57) - b(k,105) = b(k,105) - lu(k,235) * b(k,57) - b(k,112) = b(k,112) - lu(k,236) * b(k,57) - b(k,114) = b(k,114) - lu(k,237) * b(k,57) - b(k,75) = b(k,75) - lu(k,239) * b(k,58) - b(k,82) = b(k,82) - lu(k,240) * b(k,58) - b(k,84) = b(k,84) - lu(k,241) * b(k,58) - b(k,89) = b(k,89) - lu(k,242) * b(k,58) - b(k,104) = b(k,104) - lu(k,243) * b(k,58) - b(k,113) = b(k,113) - lu(k,244) * b(k,58) - b(k,114) = b(k,114) - lu(k,245) * b(k,58) - b(k,68) = b(k,68) - lu(k,247) * b(k,59) - b(k,99) = b(k,99) - lu(k,248) * b(k,59) - b(k,100) = b(k,100) - lu(k,249) * b(k,59) - b(k,102) = b(k,102) - lu(k,250) * b(k,59) - b(k,103) = b(k,103) - lu(k,251) * b(k,59) - b(k,107) = b(k,107) - lu(k,252) * b(k,59) - b(k,110) = b(k,110) - lu(k,253) * b(k,59) - b(k,70) = b(k,70) - lu(k,256) * b(k,60) - b(k,88) = b(k,88) - lu(k,257) * b(k,60) - b(k,89) = b(k,89) - lu(k,258) * b(k,60) - b(k,104) = b(k,104) - lu(k,259) * b(k,60) - b(k,114) = b(k,114) - lu(k,260) * b(k,60) - b(k,65) = b(k,65) - lu(k,265) * b(k,61) - b(k,84) = b(k,84) - lu(k,266) * b(k,61) - b(k,88) = b(k,88) - lu(k,267) * b(k,61) - b(k,89) = b(k,89) - lu(k,268) * b(k,61) - b(k,92) = b(k,92) - lu(k,269) * b(k,61) - b(k,100) = b(k,100) - lu(k,270) * b(k,61) - b(k,103) = b(k,103) - lu(k,271) * b(k,61) - b(k,104) = b(k,104) - lu(k,272) * b(k,61) - b(k,106) = b(k,106) - lu(k,273) * b(k,61) - b(k,113) = b(k,113) - lu(k,274) * b(k,61) - end do + b(100) = b(100) - lu(22) * b(21) + b(106) = b(106) - lu(23) * b(21) + b(29) = b(29) - lu(25) * b(22) + b(114) = b(114) - lu(26) * b(22) + b(53) = b(53) - lu(28) * b(23) + b(84) = b(84) - lu(29) * b(23) + b(100) = b(100) - lu(31) * b(24) + b(53) = b(53) - lu(33) * b(25) + b(84) = b(84) - lu(34) * b(25) + b(100) = b(100) - lu(35) * b(25) + b(53) = b(53) - lu(37) * b(26) + b(105) = b(105) - lu(38) * b(26) + b(76) = b(76) - lu(40) * b(27) + b(100) = b(100) - lu(41) * b(27) + b(59) = b(59) - lu(43) * b(28) + b(95) = b(95) - lu(44) * b(28) + b(60) = b(60) - lu(47) * b(29) + b(99) = b(99) - lu(48) * b(29) + b(114) = b(114) - lu(49) * b(29) + b(107) = b(107) - lu(51) * b(30) + b(108) = b(108) - lu(52) * b(30) + b(114) = b(114) - lu(53) * b(30) + b(108) = b(108) - lu(55) * b(31) + b(111) = b(111) - lu(56) * b(31) + b(114) = b(114) - lu(57) * b(31) + b(60) = b(60) - lu(59) * b(32) + b(88) = b(88) - lu(60) * b(32) + b(89) = b(89) - lu(61) * b(32) + b(108) = b(108) - lu(62) * b(32) + b(113) = b(113) - lu(63) * b(32) + b(60) = b(60) - lu(65) * b(33) + b(70) = b(70) - lu(66) * b(33) + b(99) = b(99) - lu(67) * b(33) + b(106) = b(106) - lu(68) * b(33) + b(44) = b(44) - lu(70) * b(34) + b(49) = b(49) - lu(71) * b(34) + b(60) = b(60) - lu(72) * b(34) + b(70) = b(70) - lu(73) * b(34) + b(89) = b(89) - lu(74) * b(34) + b(99) = b(99) - lu(75) * b(34) + b(105) = b(105) - lu(76) * b(34) + b(66) = b(66) - lu(78) * b(35) + b(83) = b(83) - lu(79) * b(35) + b(89) = b(89) - lu(80) * b(35) + b(105) = b(105) - lu(81) * b(35) + b(114) = b(114) - lu(82) * b(35) + b(48) = b(48) - lu(84) * b(36) + b(89) = b(89) - lu(85) * b(36) + b(91) = b(91) - lu(86) * b(36) + b(105) = b(105) - lu(87) * b(36) + b(114) = b(114) - lu(88) * b(36) + b(50) = b(50) - lu(90) * b(37) + b(91) = b(91) - lu(91) * b(37) + b(92) = b(92) - lu(92) * b(37) + b(98) = b(98) - lu(93) * b(37) + b(114) = b(114) - lu(94) * b(37) + b(74) = b(74) - lu(96) * b(38) + b(85) = b(85) - lu(97) * b(38) + b(95) = b(95) - lu(98) * b(38) + b(99) = b(99) - lu(99) * b(38) + b(102) = b(102) - lu(100) * b(38) + b(88) = b(88) - lu(102) * b(39) + b(89) = b(89) - lu(103) * b(39) + b(95) = b(95) - lu(104) * b(39) + b(96) = b(96) - lu(105) * b(39) + b(113) = b(113) - lu(106) * b(39) + b(114) = b(114) - lu(107) * b(39) + b(41) = b(41) - lu(109) * b(40) + b(91) = b(91) - lu(110) * b(40) + b(93) = b(93) - lu(111) * b(40) + b(97) = b(97) - lu(112) * b(40) + b(98) = b(98) - lu(113) * b(40) + b(114) = b(114) - lu(114) * b(40) + b(91) = b(91) - lu(116) * b(41) + b(93) = b(93) - lu(117) * b(41) + b(97) = b(97) - lu(118) * b(41) + b(98) = b(98) - lu(119) * b(41) + b(114) = b(114) - lu(120) * b(41) + b(43) = b(43) - lu(122) * b(42) + b(47) = b(47) - lu(123) * b(42) + b(56) = b(56) - lu(124) * b(42) + b(61) = b(61) - lu(125) * b(42) + b(98) = b(98) - lu(126) * b(42) + b(99) = b(99) - lu(127) * b(42) + b(47) = b(47) - lu(129) * b(43) + b(61) = b(61) - lu(130) * b(43) + b(95) = b(95) - lu(131) * b(43) + b(99) = b(99) - lu(132) * b(43) + b(103) = b(103) - lu(133) * b(43) + b(88) = b(88) - lu(135) * b(44) + b(89) = b(89) - lu(136) * b(44) + b(105) = b(105) - lu(137) * b(44) + b(54) = b(54) - lu(139) * b(45) + b(76) = b(76) - lu(140) * b(45) + b(82) = b(82) - lu(141) * b(45) + b(96) = b(96) - lu(142) * b(45) + b(99) = b(99) - lu(143) * b(45) + b(108) = b(108) - lu(144) * b(45) + b(113) = b(113) - lu(145) * b(45) + b(88) = b(88) - lu(147) * b(46) + b(89) = b(89) - lu(148) * b(46) + b(99) = b(99) - lu(149) * b(46) + b(100) = b(100) - lu(150) * b(46) + b(101) = b(101) - lu(151) * b(46) + b(114) = b(114) - lu(152) * b(46) + b(55) = b(55) - lu(154) * b(47) + b(61) = b(61) - lu(155) * b(47) + b(65) = b(65) - lu(156) * b(47) + b(91) = b(91) - lu(157) * b(47) + b(93) = b(93) - lu(158) * b(47) + b(95) = b(95) - lu(159) * b(47) + b(99) = b(99) - lu(160) * b(47) + b(103) = b(103) - lu(161) * b(47) + b(51) = b(51) - lu(163) * b(48) + b(91) = b(91) - lu(164) * b(48) + b(92) = b(92) - lu(165) * b(48) + b(105) = b(105) - lu(166) * b(48) + b(114) = b(114) - lu(167) * b(48) + b(70) = b(70) - lu(169) * b(49) + b(89) = b(89) - lu(170) * b(49) + b(95) = b(95) - lu(171) * b(49) + b(99) = b(99) - lu(172) * b(49) + b(104) = b(104) - lu(173) * b(49) + b(105) = b(105) - lu(174) * b(49) + b(89) = b(89) - lu(176) * b(50) + b(96) = b(96) - lu(177) * b(50) + b(98) = b(98) - lu(178) * b(50) + b(114) = b(114) - lu(179) * b(50) + b(91) = b(91) - lu(182) * b(51) + b(92) = b(92) - lu(183) * b(51) + b(105) = b(105) - lu(184) * b(51) + b(114) = b(114) - lu(185) * b(51) + b(89) = b(89) - lu(190) * b(52) + b(91) = b(91) - lu(191) * b(52) + b(92) = b(92) - lu(192) * b(52) + b(95) = b(95) - lu(193) * b(52) + b(103) = b(103) - lu(194) * b(52) + b(105) = b(105) - lu(195) * b(52) + b(114) = b(114) - lu(196) * b(52) + b(66) = b(66) - lu(199) * b(53) + b(77) = b(77) - lu(200) * b(53) + b(89) = b(89) - lu(201) * b(53) + b(105) = b(105) - lu(202) * b(53) + b(108) = b(108) - lu(203) * b(53) + b(113) = b(113) - lu(204) * b(53) + b(114) = b(114) - lu(205) * b(53) + b(76) = b(76) - lu(208) * b(54) + b(82) = b(82) - lu(209) * b(54) + b(89) = b(89) - lu(210) * b(54) + b(99) = b(99) - lu(211) * b(54) + b(100) = b(100) - lu(212) * b(54) + b(101) = b(101) - lu(213) * b(54) + b(114) = b(114) - lu(214) * b(54) + b(56) = b(56) - lu(216) * b(55) + b(61) = b(61) - lu(217) * b(55) + b(65) = b(65) - lu(218) * b(55) + b(84) = b(84) - lu(219) * b(55) + b(95) = b(95) - lu(220) * b(55) + b(98) = b(98) - lu(221) * b(55) + b(99) = b(99) - lu(222) * b(55) + b(61) = b(61) - lu(224) * b(56) + b(65) = b(65) - lu(225) * b(56) + b(93) = b(93) - lu(226) * b(56) + b(95) = b(95) - lu(227) * b(56) + b(99) = b(99) - lu(228) * b(56) + b(103) = b(103) - lu(229) * b(56) + b(76) = b(76) - lu(231) * b(57) + b(82) = b(82) - lu(232) * b(57) + b(84) = b(84) - lu(233) * b(57) + b(89) = b(89) - lu(234) * b(57) + b(99) = b(99) - lu(235) * b(57) + b(105) = b(105) - lu(236) * b(57) + b(114) = b(114) - lu(237) * b(57) + b(89) = b(89) - lu(240) * b(58) + b(99) = b(99) - lu(241) * b(58) + b(100) = b(100) - lu(242) * b(58) + b(101) = b(101) - lu(243) * b(58) + b(106) = b(106) - lu(244) * b(58) + b(114) = b(114) - lu(245) * b(58) + b(68) = b(68) - lu(247) * b(59) + b(91) = b(91) - lu(248) * b(59) + b(95) = b(95) - lu(249) * b(59) + b(102) = b(102) - lu(250) * b(59) + b(103) = b(103) - lu(251) * b(59) + b(104) = b(104) - lu(252) * b(59) + b(110) = b(110) - lu(253) * b(59) + b(70) = b(70) - lu(256) * b(60) + b(88) = b(88) - lu(257) * b(60) + b(89) = b(89) - lu(258) * b(60) + b(99) = b(99) - lu(259) * b(60) + b(114) = b(114) - lu(260) * b(60) + b(65) = b(65) - lu(265) * b(61) + b(84) = b(84) - lu(266) * b(61) + b(88) = b(88) - lu(267) * b(61) + b(89) = b(89) - lu(268) * b(61) + b(93) = b(93) - lu(269) * b(61) + b(95) = b(95) - lu(270) * b(61) + b(98) = b(98) - lu(271) * b(61) + b(99) = b(99) - lu(272) * b(61) + b(103) = b(103) - lu(273) * b(61) + b(105) = b(105) - lu(274) * b(61) end subroutine lu_slv01 - subroutine lu_slv02( avec_len, lu, b ) + subroutine lu_slv02( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,89) = b(k,89) - lu(k,278) * b(k,62) - b(k,94) = b(k,94) - lu(k,279) * b(k,62) - b(k,97) = b(k,97) - lu(k,280) * b(k,62) - b(k,98) = b(k,98) - lu(k,281) * b(k,62) - b(k,101) = b(k,101) - lu(k,282) * b(k,62) - b(k,104) = b(k,104) - lu(k,283) * b(k,62) - b(k,105) = b(k,105) - lu(k,284) * b(k,62) - b(k,112) = b(k,112) - lu(k,285) * b(k,62) - b(k,114) = b(k,114) - lu(k,286) * b(k,62) - b(k,86) = b(k,86) - lu(k,288) * b(k,63) - b(k,91) = b(k,91) - lu(k,289) * b(k,63) - b(k,94) = b(k,94) - lu(k,290) * b(k,63) - b(k,100) = b(k,100) - lu(k,291) * b(k,63) - b(k,104) = b(k,104) - lu(k,292) * b(k,63) - b(k,105) = b(k,105) - lu(k,293) * b(k,63) - b(k,106) = b(k,106) - lu(k,294) * b(k,63) - b(k,78) = b(k,78) - lu(k,298) * b(k,64) - b(k,79) = b(k,79) - lu(k,299) * b(k,64) - b(k,81) = b(k,81) - lu(k,300) * b(k,64) - b(k,94) = b(k,94) - lu(k,301) * b(k,64) - b(k,97) = b(k,97) - lu(k,302) * b(k,64) - b(k,101) = b(k,101) - lu(k,303) * b(k,64) - b(k,104) = b(k,104) - lu(k,304) * b(k,64) - b(k,106) = b(k,106) - lu(k,305) * b(k,64) - b(k,108) = b(k,108) - lu(k,306) * b(k,64) - b(k,111) = b(k,111) - lu(k,307) * b(k,64) - b(k,114) = b(k,114) - lu(k,308) * b(k,64) - b(k,84) = b(k,84) - lu(k,312) * b(k,65) - b(k,88) = b(k,88) - lu(k,313) * b(k,65) - b(k,89) = b(k,89) - lu(k,314) * b(k,65) - b(k,92) = b(k,92) - lu(k,315) * b(k,65) - b(k,94) = b(k,94) - lu(k,316) * b(k,65) - b(k,100) = b(k,100) - lu(k,317) * b(k,65) - b(k,103) = b(k,103) - lu(k,318) * b(k,65) - b(k,104) = b(k,104) - lu(k,319) * b(k,65) - b(k,106) = b(k,106) - lu(k,320) * b(k,65) - b(k,107) = b(k,107) - lu(k,321) * b(k,65) - b(k,113) = b(k,113) - lu(k,322) * b(k,65) - b(k,83) = b(k,83) - lu(k,325) * b(k,66) - b(k,88) = b(k,88) - lu(k,326) * b(k,66) - b(k,89) = b(k,89) - lu(k,327) * b(k,66) - b(k,94) = b(k,94) - lu(k,328) * b(k,66) - b(k,100) = b(k,100) - lu(k,329) * b(k,66) - b(k,105) = b(k,105) - lu(k,330) * b(k,66) - b(k,106) = b(k,106) - lu(k,331) * b(k,66) - b(k,112) = b(k,112) - lu(k,332) * b(k,66) - b(k,113) = b(k,113) - lu(k,333) * b(k,66) - b(k,114) = b(k,114) - lu(k,334) * b(k,66) - b(k,89) = b(k,89) - lu(k,336) * b(k,67) - b(k,92) = b(k,92) - lu(k,337) * b(k,67) - b(k,93) = b(k,93) - lu(k,338) * b(k,67) - b(k,95) = b(k,95) - lu(k,339) * b(k,67) - b(k,96) = b(k,96) - lu(k,340) * b(k,67) - b(k,100) = b(k,100) - lu(k,341) * b(k,67) - b(k,103) = b(k,103) - lu(k,342) * b(k,67) - b(k,106) = b(k,106) - lu(k,343) * b(k,67) - b(k,108) = b(k,108) - lu(k,344) * b(k,67) - b(k,111) = b(k,111) - lu(k,345) * b(k,67) - b(k,113) = b(k,113) - lu(k,346) * b(k,67) - b(k,114) = b(k,114) - lu(k,347) * b(k,67) - b(k,89) = b(k,89) - lu(k,351) * b(k,68) - b(k,95) = b(k,95) - lu(k,352) * b(k,68) - b(k,99) = b(k,99) - lu(k,353) * b(k,68) - b(k,100) = b(k,100) - lu(k,354) * b(k,68) - b(k,102) = b(k,102) - lu(k,355) * b(k,68) - b(k,103) = b(k,103) - lu(k,356) * b(k,68) - b(k,104) = b(k,104) - lu(k,357) * b(k,68) - b(k,107) = b(k,107) - lu(k,358) * b(k,68) - b(k,110) = b(k,110) - lu(k,359) * b(k,68) - b(k,113) = b(k,113) - lu(k,360) * b(k,68) - b(k,114) = b(k,114) - lu(k,361) * b(k,68) - b(k,80) = b(k,80) - lu(k,363) * b(k,69) - b(k,92) = b(k,92) - lu(k,364) * b(k,69) - b(k,93) = b(k,93) - lu(k,365) * b(k,69) - b(k,95) = b(k,95) - lu(k,366) * b(k,69) - b(k,96) = b(k,96) - lu(k,367) * b(k,69) - b(k,100) = b(k,100) - lu(k,368) * b(k,69) - b(k,103) = b(k,103) - lu(k,369) * b(k,69) - b(k,104) = b(k,104) - lu(k,370) * b(k,69) - b(k,106) = b(k,106) - lu(k,371) * b(k,69) - b(k,108) = b(k,108) - lu(k,372) * b(k,69) - b(k,111) = b(k,111) - lu(k,373) * b(k,69) - b(k,113) = b(k,113) - lu(k,374) * b(k,69) - b(k,114) = b(k,114) - lu(k,375) * b(k,69) - b(k,75) = b(k,75) - lu(k,380) * b(k,70) - b(k,82) = b(k,82) - lu(k,381) * b(k,70) - b(k,88) = b(k,88) - lu(k,382) * b(k,70) - b(k,89) = b(k,89) - lu(k,383) * b(k,70) - b(k,94) = b(k,94) - lu(k,384) * b(k,70) - b(k,99) = b(k,99) - lu(k,385) * b(k,70) - b(k,100) = b(k,100) - lu(k,386) * b(k,70) - b(k,104) = b(k,104) - lu(k,387) * b(k,70) - b(k,105) = b(k,105) - lu(k,388) * b(k,70) - b(k,106) = b(k,106) - lu(k,389) * b(k,70) - b(k,112) = b(k,112) - lu(k,390) * b(k,70) - b(k,113) = b(k,113) - lu(k,391) * b(k,70) - b(k,114) = b(k,114) - lu(k,392) * b(k,70) - b(k,86) = b(k,86) - lu(k,394) * b(k,71) - b(k,92) = b(k,92) - lu(k,395) * b(k,71) - b(k,93) = b(k,93) - lu(k,396) * b(k,71) - b(k,95) = b(k,95) - lu(k,397) * b(k,71) - b(k,96) = b(k,96) - lu(k,398) * b(k,71) - b(k,98) = b(k,98) - lu(k,399) * b(k,71) - b(k,100) = b(k,100) - lu(k,400) * b(k,71) - b(k,103) = b(k,103) - lu(k,401) * b(k,71) - b(k,105) = b(k,105) - lu(k,402) * b(k,71) - b(k,106) = b(k,106) - lu(k,403) * b(k,71) - b(k,108) = b(k,108) - lu(k,404) * b(k,71) - b(k,111) = b(k,111) - lu(k,405) * b(k,71) - b(k,113) = b(k,113) - lu(k,406) * b(k,71) - b(k,114) = b(k,114) - lu(k,407) * b(k,71) - b(k,86) = b(k,86) - lu(k,410) * b(k,72) - b(k,92) = b(k,92) - lu(k,411) * b(k,72) - b(k,93) = b(k,93) - lu(k,412) * b(k,72) - b(k,95) = b(k,95) - lu(k,413) * b(k,72) - b(k,96) = b(k,96) - lu(k,414) * b(k,72) - b(k,98) = b(k,98) - lu(k,415) * b(k,72) - b(k,100) = b(k,100) - lu(k,416) * b(k,72) - b(k,103) = b(k,103) - lu(k,417) * b(k,72) - b(k,105) = b(k,105) - lu(k,418) * b(k,72) - b(k,106) = b(k,106) - lu(k,419) * b(k,72) - b(k,108) = b(k,108) - lu(k,420) * b(k,72) - b(k,111) = b(k,111) - lu(k,421) * b(k,72) - b(k,113) = b(k,113) - lu(k,422) * b(k,72) - b(k,114) = b(k,114) - lu(k,423) * b(k,72) - b(k,91) = b(k,91) - lu(k,425) * b(k,73) - b(k,92) = b(k,92) - lu(k,426) * b(k,73) - b(k,93) = b(k,93) - lu(k,427) * b(k,73) - b(k,94) = b(k,94) - lu(k,428) * b(k,73) - b(k,95) = b(k,95) - lu(k,429) * b(k,73) - b(k,96) = b(k,96) - lu(k,430) * b(k,73) - b(k,100) = b(k,100) - lu(k,431) * b(k,73) - b(k,103) = b(k,103) - lu(k,432) * b(k,73) - b(k,106) = b(k,106) - lu(k,433) * b(k,73) - b(k,108) = b(k,108) - lu(k,434) * b(k,73) - b(k,111) = b(k,111) - lu(k,435) * b(k,73) - b(k,113) = b(k,113) - lu(k,436) * b(k,73) - b(k,114) = b(k,114) - lu(k,437) * b(k,73) - b(k,87) = b(k,87) - lu(k,439) * b(k,74) - b(k,90) = b(k,90) - lu(k,440) * b(k,74) - b(k,91) = b(k,91) - lu(k,441) * b(k,74) - b(k,94) = b(k,94) - lu(k,442) * b(k,74) - b(k,99) = b(k,99) - lu(k,443) * b(k,74) - b(k,100) = b(k,100) - lu(k,444) * b(k,74) - b(k,102) = b(k,102) - lu(k,445) * b(k,74) - b(k,104) = b(k,104) - lu(k,446) * b(k,74) - b(k,106) = b(k,106) - lu(k,447) * b(k,74) - b(k,107) = b(k,107) - lu(k,448) * b(k,74) - b(k,109) = b(k,109) - lu(k,449) * b(k,74) - b(k,110) = b(k,110) - lu(k,450) * b(k,74) - b(k,113) = b(k,113) - lu(k,451) * b(k,74) - b(k,82) = b(k,82) - lu(k,455) * b(k,75) - b(k,83) = b(k,83) - lu(k,456) * b(k,75) - b(k,84) = b(k,84) - lu(k,457) * b(k,75) - b(k,88) = b(k,88) - lu(k,458) * b(k,75) - b(k,89) = b(k,89) - lu(k,459) * b(k,75) - b(k,99) = b(k,99) - lu(k,460) * b(k,75) - b(k,100) = b(k,100) - lu(k,461) * b(k,75) - b(k,104) = b(k,104) - lu(k,462) * b(k,75) - b(k,113) = b(k,113) - lu(k,463) * b(k,75) - b(k,114) = b(k,114) - lu(k,464) * b(k,75) - b(k,78) = b(k,78) - lu(k,466) * b(k,76) - b(k,92) = b(k,92) - lu(k,467) * b(k,76) - b(k,93) = b(k,93) - lu(k,468) * b(k,76) - b(k,95) = b(k,95) - lu(k,469) * b(k,76) - b(k,96) = b(k,96) - lu(k,470) * b(k,76) - b(k,97) = b(k,97) - lu(k,471) * b(k,76) - b(k,98) = b(k,98) - lu(k,472) * b(k,76) - b(k,100) = b(k,100) - lu(k,473) * b(k,76) - b(k,101) = b(k,101) - lu(k,474) * b(k,76) - b(k,103) = b(k,103) - lu(k,475) * b(k,76) - b(k,106) = b(k,106) - lu(k,476) * b(k,76) - b(k,108) = b(k,108) - lu(k,477) * b(k,76) - b(k,111) = b(k,111) - lu(k,478) * b(k,76) - b(k,113) = b(k,113) - lu(k,479) * b(k,76) - b(k,114) = b(k,114) - lu(k,480) * b(k,76) - b(k,83) = b(k,83) - lu(k,485) * b(k,77) - b(k,84) = b(k,84) - lu(k,486) * b(k,77) - b(k,88) = b(k,88) - lu(k,487) * b(k,77) - b(k,89) = b(k,89) - lu(k,488) * b(k,77) - b(k,94) = b(k,94) - lu(k,489) * b(k,77) - b(k,97) = b(k,97) - lu(k,490) * b(k,77) - b(k,98) = b(k,98) - lu(k,491) * b(k,77) - b(k,100) = b(k,100) - lu(k,492) * b(k,77) - b(k,101) = b(k,101) - lu(k,493) * b(k,77) - b(k,104) = b(k,104) - lu(k,494) * b(k,77) - b(k,105) = b(k,105) - lu(k,495) * b(k,77) - b(k,106) = b(k,106) - lu(k,496) * b(k,77) - b(k,107) = b(k,107) - lu(k,497) * b(k,77) - b(k,109) = b(k,109) - lu(k,498) * b(k,77) - b(k,110) = b(k,110) - lu(k,499) * b(k,77) - b(k,112) = b(k,112) - lu(k,500) * b(k,77) - b(k,113) = b(k,113) - lu(k,501) * b(k,77) - b(k,114) = b(k,114) - lu(k,502) * b(k,77) - b(k,87) = b(k,87) - lu(k,504) * b(k,78) - b(k,92) = b(k,92) - lu(k,505) * b(k,78) - b(k,93) = b(k,93) - lu(k,506) * b(k,78) - b(k,95) = b(k,95) - lu(k,507) * b(k,78) - b(k,96) = b(k,96) - lu(k,508) * b(k,78) - b(k,97) = b(k,97) - lu(k,509) * b(k,78) - b(k,100) = b(k,100) - lu(k,510) * b(k,78) - b(k,101) = b(k,101) - lu(k,511) * b(k,78) - b(k,103) = b(k,103) - lu(k,512) * b(k,78) - b(k,106) = b(k,106) - lu(k,513) * b(k,78) - b(k,108) = b(k,108) - lu(k,514) * b(k,78) - b(k,111) = b(k,111) - lu(k,515) * b(k,78) - b(k,114) = b(k,114) - lu(k,516) * b(k,78) - end do + b(89) = b(89) - lu(278) * b(62) + b(96) = b(96) - lu(279) * b(62) + b(99) = b(99) - lu(280) * b(62) + b(100) = b(100) - lu(281) * b(62) + b(101) = b(101) - lu(282) * b(62) + b(106) = b(106) - lu(283) * b(62) + b(108) = b(108) - lu(284) * b(62) + b(113) = b(113) - lu(285) * b(62) + b(114) = b(114) - lu(286) * b(62) + b(86) = b(86) - lu(288) * b(63) + b(95) = b(95) - lu(289) * b(63) + b(96) = b(96) - lu(290) * b(63) + b(98) = b(98) - lu(291) * b(63) + b(99) = b(99) - lu(292) * b(63) + b(100) = b(100) - lu(293) * b(63) + b(112) = b(112) - lu(294) * b(63) + b(78) = b(78) - lu(298) * b(64) + b(79) = b(79) - lu(299) * b(64) + b(81) = b(81) - lu(300) * b(64) + b(96) = b(96) - lu(301) * b(64) + b(98) = b(98) - lu(302) * b(64) + b(99) = b(99) - lu(303) * b(64) + b(107) = b(107) - lu(304) * b(64) + b(108) = b(108) - lu(305) * b(64) + b(111) = b(111) - lu(306) * b(64) + b(113) = b(113) - lu(307) * b(64) + b(114) = b(114) - lu(308) * b(64) + b(84) = b(84) - lu(312) * b(65) + b(88) = b(88) - lu(313) * b(65) + b(89) = b(89) - lu(314) * b(65) + b(91) = b(91) - lu(315) * b(65) + b(93) = b(93) - lu(316) * b(65) + b(95) = b(95) - lu(317) * b(65) + b(96) = b(96) - lu(318) * b(65) + b(98) = b(98) - lu(319) * b(65) + b(99) = b(99) - lu(320) * b(65) + b(103) = b(103) - lu(321) * b(65) + b(105) = b(105) - lu(322) * b(65) + b(83) = b(83) - lu(325) * b(66) + b(88) = b(88) - lu(326) * b(66) + b(89) = b(89) - lu(327) * b(66) + b(95) = b(95) - lu(328) * b(66) + b(96) = b(96) - lu(329) * b(66) + b(98) = b(98) - lu(330) * b(66) + b(100) = b(100) - lu(331) * b(66) + b(105) = b(105) - lu(332) * b(66) + b(106) = b(106) - lu(333) * b(66) + b(114) = b(114) - lu(334) * b(66) + b(89) = b(89) - lu(336) * b(67) + b(92) = b(92) - lu(337) * b(67) + b(93) = b(93) - lu(338) * b(67) + b(94) = b(94) - lu(339) * b(67) + b(95) = b(95) - lu(340) * b(67) + b(97) = b(97) - lu(341) * b(67) + b(98) = b(98) - lu(342) * b(67) + b(103) = b(103) - lu(343) * b(67) + b(105) = b(105) - lu(344) * b(67) + b(107) = b(107) - lu(345) * b(67) + b(111) = b(111) - lu(346) * b(67) + b(114) = b(114) - lu(347) * b(67) + b(89) = b(89) - lu(351) * b(68) + b(91) = b(91) - lu(352) * b(68) + b(92) = b(92) - lu(353) * b(68) + b(95) = b(95) - lu(354) * b(68) + b(99) = b(99) - lu(355) * b(68) + b(102) = b(102) - lu(356) * b(68) + b(103) = b(103) - lu(357) * b(68) + b(104) = b(104) - lu(358) * b(68) + b(105) = b(105) - lu(359) * b(68) + b(110) = b(110) - lu(360) * b(68) + b(114) = b(114) - lu(361) * b(68) + b(80) = b(80) - lu(363) * b(69) + b(92) = b(92) - lu(364) * b(69) + b(93) = b(93) - lu(365) * b(69) + b(94) = b(94) - lu(366) * b(69) + b(95) = b(95) - lu(367) * b(69) + b(97) = b(97) - lu(368) * b(69) + b(98) = b(98) - lu(369) * b(69) + b(99) = b(99) - lu(370) * b(69) + b(103) = b(103) - lu(371) * b(69) + b(105) = b(105) - lu(372) * b(69) + b(107) = b(107) - lu(373) * b(69) + b(111) = b(111) - lu(374) * b(69) + b(114) = b(114) - lu(375) * b(69) + b(76) = b(76) - lu(380) * b(70) + b(82) = b(82) - lu(381) * b(70) + b(88) = b(88) - lu(382) * b(70) + b(89) = b(89) - lu(383) * b(70) + b(95) = b(95) - lu(384) * b(70) + b(96) = b(96) - lu(385) * b(70) + b(98) = b(98) - lu(386) * b(70) + b(99) = b(99) - lu(387) * b(70) + b(100) = b(100) - lu(388) * b(70) + b(104) = b(104) - lu(389) * b(70) + b(105) = b(105) - lu(390) * b(70) + b(106) = b(106) - lu(391) * b(70) + b(114) = b(114) - lu(392) * b(70) + b(86) = b(86) - lu(394) * b(71) + b(92) = b(92) - lu(395) * b(71) + b(93) = b(93) - lu(396) * b(71) + b(94) = b(94) - lu(397) * b(71) + b(95) = b(95) - lu(398) * b(71) + b(97) = b(97) - lu(399) * b(71) + b(98) = b(98) - lu(400) * b(71) + b(100) = b(100) - lu(401) * b(71) + b(101) = b(101) - lu(402) * b(71) + b(103) = b(103) - lu(403) * b(71) + b(105) = b(105) - lu(404) * b(71) + b(107) = b(107) - lu(405) * b(71) + b(111) = b(111) - lu(406) * b(71) + b(114) = b(114) - lu(407) * b(71) + b(86) = b(86) - lu(410) * b(72) + b(92) = b(92) - lu(411) * b(72) + b(93) = b(93) - lu(412) * b(72) + b(94) = b(94) - lu(413) * b(72) + b(95) = b(95) - lu(414) * b(72) + b(97) = b(97) - lu(415) * b(72) + b(98) = b(98) - lu(416) * b(72) + b(100) = b(100) - lu(417) * b(72) + b(101) = b(101) - lu(418) * b(72) + b(103) = b(103) - lu(419) * b(72) + b(105) = b(105) - lu(420) * b(72) + b(107) = b(107) - lu(421) * b(72) + b(111) = b(111) - lu(422) * b(72) + b(114) = b(114) - lu(423) * b(72) + b(92) = b(92) - lu(425) * b(73) + b(93) = b(93) - lu(426) * b(73) + b(94) = b(94) - lu(427) * b(73) + b(95) = b(95) - lu(428) * b(73) + b(96) = b(96) - lu(429) * b(73) + b(97) = b(97) - lu(430) * b(73) + b(98) = b(98) - lu(431) * b(73) + b(103) = b(103) - lu(432) * b(73) + b(105) = b(105) - lu(433) * b(73) + b(107) = b(107) - lu(434) * b(73) + b(111) = b(111) - lu(435) * b(73) + b(112) = b(112) - lu(436) * b(73) + b(114) = b(114) - lu(437) * b(73) + b(87) = b(87) - lu(439) * b(74) + b(90) = b(90) - lu(440) * b(74) + b(91) = b(91) - lu(441) * b(74) + b(95) = b(95) - lu(442) * b(74) + b(96) = b(96) - lu(443) * b(74) + b(98) = b(98) - lu(444) * b(74) + b(99) = b(99) - lu(445) * b(74) + b(102) = b(102) - lu(446) * b(74) + b(104) = b(104) - lu(447) * b(74) + b(105) = b(105) - lu(448) * b(74) + b(109) = b(109) - lu(449) * b(74) + b(110) = b(110) - lu(450) * b(74) + b(112) = b(112) - lu(451) * b(74) + b(78) = b(78) - lu(453) * b(75) + b(92) = b(92) - lu(454) * b(75) + b(93) = b(93) - lu(455) * b(75) + b(94) = b(94) - lu(456) * b(75) + b(95) = b(95) - lu(457) * b(75) + b(97) = b(97) - lu(458) * b(75) + b(98) = b(98) - lu(459) * b(75) + b(101) = b(101) - lu(460) * b(75) + b(103) = b(103) - lu(461) * b(75) + b(105) = b(105) - lu(462) * b(75) + b(107) = b(107) - lu(463) * b(75) + b(108) = b(108) - lu(464) * b(75) + b(111) = b(111) - lu(465) * b(75) + b(113) = b(113) - lu(466) * b(75) + b(114) = b(114) - lu(467) * b(75) + b(82) = b(82) - lu(471) * b(76) + b(83) = b(83) - lu(472) * b(76) + b(84) = b(84) - lu(473) * b(76) + b(88) = b(88) - lu(474) * b(76) + b(89) = b(89) - lu(475) * b(76) + b(95) = b(95) - lu(476) * b(76) + b(99) = b(99) - lu(477) * b(76) + b(104) = b(104) - lu(478) * b(76) + b(105) = b(105) - lu(479) * b(76) + b(114) = b(114) - lu(480) * b(76) + b(83) = b(83) - lu(485) * b(77) + b(84) = b(84) - lu(486) * b(77) + b(88) = b(88) - lu(487) * b(77) + b(89) = b(89) - lu(488) * b(77) + b(91) = b(91) - lu(489) * b(77) + b(95) = b(95) - lu(490) * b(77) + b(96) = b(96) - lu(491) * b(77) + b(98) = b(98) - lu(492) * b(77) + b(99) = b(99) - lu(493) * b(77) + b(100) = b(100) - lu(494) * b(77) + b(101) = b(101) - lu(495) * b(77) + b(105) = b(105) - lu(496) * b(77) + b(106) = b(106) - lu(497) * b(77) + b(108) = b(108) - lu(498) * b(77) + b(109) = b(109) - lu(499) * b(77) + b(110) = b(110) - lu(500) * b(77) + b(113) = b(113) - lu(501) * b(77) + b(114) = b(114) - lu(502) * b(77) + b(87) = b(87) - lu(504) * b(78) + b(92) = b(92) - lu(505) * b(78) + b(93) = b(93) - lu(506) * b(78) + b(94) = b(94) - lu(507) * b(78) + b(95) = b(95) - lu(508) * b(78) + b(97) = b(97) - lu(509) * b(78) + b(98) = b(98) - lu(510) * b(78) + b(103) = b(103) - lu(511) * b(78) + b(107) = b(107) - lu(512) * b(78) + b(108) = b(108) - lu(513) * b(78) + b(111) = b(111) - lu(514) * b(78) + b(113) = b(113) - lu(515) * b(78) + b(114) = b(114) - lu(516) * b(78) end subroutine lu_slv02 - subroutine lu_slv03( avec_len, lu, b ) + subroutine lu_slv03( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,81) = b(k,81) - lu(k,520) * b(k,79) - b(k,87) = b(k,87) - lu(k,521) * b(k,79) - b(k,92) = b(k,92) - lu(k,522) * b(k,79) - b(k,93) = b(k,93) - lu(k,523) * b(k,79) - b(k,94) = b(k,94) - lu(k,524) * b(k,79) - b(k,95) = b(k,95) - lu(k,525) * b(k,79) - b(k,96) = b(k,96) - lu(k,526) * b(k,79) - b(k,97) = b(k,97) - lu(k,527) * b(k,79) - b(k,100) = b(k,100) - lu(k,528) * b(k,79) - b(k,101) = b(k,101) - lu(k,529) * b(k,79) - b(k,103) = b(k,103) - lu(k,530) * b(k,79) - b(k,104) = b(k,104) - lu(k,531) * b(k,79) - b(k,106) = b(k,106) - lu(k,532) * b(k,79) - b(k,108) = b(k,108) - lu(k,533) * b(k,79) - b(k,111) = b(k,111) - lu(k,534) * b(k,79) - b(k,113) = b(k,113) - lu(k,535) * b(k,79) - b(k,114) = b(k,114) - lu(k,536) * b(k,79) - b(k,81) = b(k,81) - lu(k,540) * b(k,80) - b(k,87) = b(k,87) - lu(k,541) * b(k,80) - b(k,90) = b(k,90) - lu(k,542) * b(k,80) - b(k,91) = b(k,91) - lu(k,543) * b(k,80) - b(k,92) = b(k,92) - lu(k,544) * b(k,80) - b(k,93) = b(k,93) - lu(k,545) * b(k,80) - b(k,94) = b(k,94) - lu(k,546) * b(k,80) - b(k,95) = b(k,95) - lu(k,547) * b(k,80) - b(k,96) = b(k,96) - lu(k,548) * b(k,80) - b(k,100) = b(k,100) - lu(k,549) * b(k,80) - b(k,103) = b(k,103) - lu(k,550) * b(k,80) - b(k,104) = b(k,104) - lu(k,551) * b(k,80) - b(k,106) = b(k,106) - lu(k,552) * b(k,80) - b(k,108) = b(k,108) - lu(k,553) * b(k,80) - b(k,111) = b(k,111) - lu(k,554) * b(k,80) - b(k,113) = b(k,113) - lu(k,555) * b(k,80) - b(k,114) = b(k,114) - lu(k,556) * b(k,80) - b(k,87) = b(k,87) - lu(k,561) * b(k,81) - b(k,92) = b(k,92) - lu(k,562) * b(k,81) - b(k,93) = b(k,93) - lu(k,563) * b(k,81) - b(k,94) = b(k,94) - lu(k,564) * b(k,81) - b(k,95) = b(k,95) - lu(k,565) * b(k,81) - b(k,96) = b(k,96) - lu(k,566) * b(k,81) - b(k,97) = b(k,97) - lu(k,567) * b(k,81) - b(k,100) = b(k,100) - lu(k,568) * b(k,81) - b(k,101) = b(k,101) - lu(k,569) * b(k,81) - b(k,103) = b(k,103) - lu(k,570) * b(k,81) - b(k,104) = b(k,104) - lu(k,571) * b(k,81) - b(k,106) = b(k,106) - lu(k,572) * b(k,81) - b(k,108) = b(k,108) - lu(k,573) * b(k,81) - b(k,111) = b(k,111) - lu(k,574) * b(k,81) - b(k,113) = b(k,113) - lu(k,575) * b(k,81) - b(k,114) = b(k,114) - lu(k,576) * b(k,81) - b(k,83) = b(k,83) - lu(k,585) * b(k,82) - b(k,84) = b(k,84) - lu(k,586) * b(k,82) - b(k,88) = b(k,88) - lu(k,587) * b(k,82) - b(k,89) = b(k,89) - lu(k,588) * b(k,82) - b(k,94) = b(k,94) - lu(k,589) * b(k,82) - b(k,97) = b(k,97) - lu(k,590) * b(k,82) - b(k,98) = b(k,98) - lu(k,591) * b(k,82) - b(k,99) = b(k,99) - lu(k,592) * b(k,82) - b(k,100) = b(k,100) - lu(k,593) * b(k,82) - b(k,101) = b(k,101) - lu(k,594) * b(k,82) - b(k,104) = b(k,104) - lu(k,595) * b(k,82) - b(k,105) = b(k,105) - lu(k,596) * b(k,82) - b(k,106) = b(k,106) - lu(k,597) * b(k,82) - b(k,112) = b(k,112) - lu(k,598) * b(k,82) - b(k,113) = b(k,113) - lu(k,599) * b(k,82) - b(k,114) = b(k,114) - lu(k,600) * b(k,82) - b(k,84) = b(k,84) - lu(k,607) * b(k,83) - b(k,88) = b(k,88) - lu(k,608) * b(k,83) - b(k,89) = b(k,89) - lu(k,609) * b(k,83) - b(k,94) = b(k,94) - lu(k,610) * b(k,83) - b(k,97) = b(k,97) - lu(k,611) * b(k,83) - b(k,98) = b(k,98) - lu(k,612) * b(k,83) - b(k,99) = b(k,99) - lu(k,613) * b(k,83) - b(k,100) = b(k,100) - lu(k,614) * b(k,83) - b(k,101) = b(k,101) - lu(k,615) * b(k,83) - b(k,104) = b(k,104) - lu(k,616) * b(k,83) - b(k,105) = b(k,105) - lu(k,617) * b(k,83) - b(k,106) = b(k,106) - lu(k,618) * b(k,83) - b(k,107) = b(k,107) - lu(k,619) * b(k,83) - b(k,109) = b(k,109) - lu(k,620) * b(k,83) - b(k,110) = b(k,110) - lu(k,621) * b(k,83) - b(k,112) = b(k,112) - lu(k,622) * b(k,83) - b(k,113) = b(k,113) - lu(k,623) * b(k,83) - b(k,114) = b(k,114) - lu(k,624) * b(k,83) - b(k,88) = b(k,88) - lu(k,638) * b(k,84) - b(k,89) = b(k,89) - lu(k,639) * b(k,84) - b(k,94) = b(k,94) - lu(k,640) * b(k,84) - b(k,95) = b(k,95) - lu(k,641) * b(k,84) - b(k,97) = b(k,97) - lu(k,642) * b(k,84) - b(k,98) = b(k,98) - lu(k,643) * b(k,84) - b(k,99) = b(k,99) - lu(k,644) * b(k,84) - b(k,100) = b(k,100) - lu(k,645) * b(k,84) - b(k,101) = b(k,101) - lu(k,646) * b(k,84) - b(k,102) = b(k,102) - lu(k,647) * b(k,84) - b(k,103) = b(k,103) - lu(k,648) * b(k,84) - b(k,104) = b(k,104) - lu(k,649) * b(k,84) - b(k,105) = b(k,105) - lu(k,650) * b(k,84) - b(k,106) = b(k,106) - lu(k,651) * b(k,84) - b(k,107) = b(k,107) - lu(k,652) * b(k,84) - b(k,109) = b(k,109) - lu(k,653) * b(k,84) - b(k,110) = b(k,110) - lu(k,654) * b(k,84) - b(k,112) = b(k,112) - lu(k,655) * b(k,84) - b(k,113) = b(k,113) - lu(k,656) * b(k,84) - b(k,114) = b(k,114) - lu(k,657) * b(k,84) - b(k,86) = b(k,86) - lu(k,661) * b(k,85) - b(k,87) = b(k,87) - lu(k,662) * b(k,85) - b(k,88) = b(k,88) - lu(k,663) * b(k,85) - b(k,89) = b(k,89) - lu(k,664) * b(k,85) - b(k,90) = b(k,90) - lu(k,665) * b(k,85) - b(k,91) = b(k,91) - lu(k,666) * b(k,85) - b(k,92) = b(k,92) - lu(k,667) * b(k,85) - b(k,93) = b(k,93) - lu(k,668) * b(k,85) - b(k,94) = b(k,94) - lu(k,669) * b(k,85) - b(k,95) = b(k,95) - lu(k,670) * b(k,85) - b(k,96) = b(k,96) - lu(k,671) * b(k,85) - b(k,98) = b(k,98) - lu(k,672) * b(k,85) - b(k,99) = b(k,99) - lu(k,673) * b(k,85) - b(k,100) = b(k,100) - lu(k,674) * b(k,85) - b(k,102) = b(k,102) - lu(k,675) * b(k,85) - b(k,103) = b(k,103) - lu(k,676) * b(k,85) - b(k,104) = b(k,104) - lu(k,677) * b(k,85) - b(k,105) = b(k,105) - lu(k,678) * b(k,85) - b(k,106) = b(k,106) - lu(k,679) * b(k,85) - b(k,107) = b(k,107) - lu(k,680) * b(k,85) - b(k,108) = b(k,108) - lu(k,681) * b(k,85) - b(k,109) = b(k,109) - lu(k,682) * b(k,85) - b(k,110) = b(k,110) - lu(k,683) * b(k,85) - b(k,111) = b(k,111) - lu(k,684) * b(k,85) - b(k,112) = b(k,112) - lu(k,685) * b(k,85) - b(k,113) = b(k,113) - lu(k,686) * b(k,85) - b(k,114) = b(k,114) - lu(k,687) * b(k,85) - b(k,87) = b(k,87) - lu(k,691) * b(k,86) - b(k,91) = b(k,91) - lu(k,692) * b(k,86) - b(k,92) = b(k,92) - lu(k,693) * b(k,86) - b(k,93) = b(k,93) - lu(k,694) * b(k,86) - b(k,94) = b(k,94) - lu(k,695) * b(k,86) - b(k,95) = b(k,95) - lu(k,696) * b(k,86) - b(k,96) = b(k,96) - lu(k,697) * b(k,86) - b(k,98) = b(k,98) - lu(k,698) * b(k,86) - b(k,100) = b(k,100) - lu(k,699) * b(k,86) - b(k,101) = b(k,101) - lu(k,700) * b(k,86) - b(k,103) = b(k,103) - lu(k,701) * b(k,86) - b(k,105) = b(k,105) - lu(k,702) * b(k,86) - b(k,106) = b(k,106) - lu(k,703) * b(k,86) - b(k,107) = b(k,107) - lu(k,704) * b(k,86) - b(k,108) = b(k,108) - lu(k,705) * b(k,86) - b(k,111) = b(k,111) - lu(k,706) * b(k,86) - b(k,113) = b(k,113) - lu(k,707) * b(k,86) - b(k,114) = b(k,114) - lu(k,708) * b(k,86) - b(k,91) = b(k,91) - lu(k,714) * b(k,87) - b(k,92) = b(k,92) - lu(k,715) * b(k,87) - b(k,93) = b(k,93) - lu(k,716) * b(k,87) - b(k,94) = b(k,94) - lu(k,717) * b(k,87) - b(k,95) = b(k,95) - lu(k,718) * b(k,87) - b(k,96) = b(k,96) - lu(k,719) * b(k,87) - b(k,97) = b(k,97) - lu(k,720) * b(k,87) - b(k,98) = b(k,98) - lu(k,721) * b(k,87) - b(k,99) = b(k,99) - lu(k,722) * b(k,87) - b(k,100) = b(k,100) - lu(k,723) * b(k,87) - b(k,101) = b(k,101) - lu(k,724) * b(k,87) - b(k,103) = b(k,103) - lu(k,725) * b(k,87) - b(k,104) = b(k,104) - lu(k,726) * b(k,87) - b(k,105) = b(k,105) - lu(k,727) * b(k,87) - b(k,106) = b(k,106) - lu(k,728) * b(k,87) - b(k,107) = b(k,107) - lu(k,729) * b(k,87) - b(k,108) = b(k,108) - lu(k,730) * b(k,87) - b(k,111) = b(k,111) - lu(k,731) * b(k,87) - b(k,113) = b(k,113) - lu(k,732) * b(k,87) - b(k,114) = b(k,114) - lu(k,733) * b(k,87) - b(k,89) = b(k,89) - lu(k,748) * b(k,88) - b(k,94) = b(k,94) - lu(k,749) * b(k,88) - b(k,95) = b(k,95) - lu(k,750) * b(k,88) - b(k,96) = b(k,96) - lu(k,751) * b(k,88) - b(k,97) = b(k,97) - lu(k,752) * b(k,88) - b(k,98) = b(k,98) - lu(k,753) * b(k,88) - b(k,99) = b(k,99) - lu(k,754) * b(k,88) - b(k,100) = b(k,100) - lu(k,755) * b(k,88) - b(k,101) = b(k,101) - lu(k,756) * b(k,88) - b(k,102) = b(k,102) - lu(k,757) * b(k,88) - b(k,103) = b(k,103) - lu(k,758) * b(k,88) - b(k,104) = b(k,104) - lu(k,759) * b(k,88) - b(k,105) = b(k,105) - lu(k,760) * b(k,88) - b(k,106) = b(k,106) - lu(k,761) * b(k,88) - b(k,107) = b(k,107) - lu(k,762) * b(k,88) - b(k,109) = b(k,109) - lu(k,763) * b(k,88) - b(k,110) = b(k,110) - lu(k,764) * b(k,88) - b(k,112) = b(k,112) - lu(k,765) * b(k,88) - b(k,113) = b(k,113) - lu(k,766) * b(k,88) - b(k,114) = b(k,114) - lu(k,767) * b(k,88) - b(k,92) = b(k,92) - lu(k,795) * b(k,89) - b(k,94) = b(k,94) - lu(k,796) * b(k,89) - b(k,95) = b(k,95) - lu(k,797) * b(k,89) - b(k,96) = b(k,96) - lu(k,798) * b(k,89) - b(k,97) = b(k,97) - lu(k,799) * b(k,89) - b(k,98) = b(k,98) - lu(k,800) * b(k,89) - b(k,99) = b(k,99) - lu(k,801) * b(k,89) - b(k,100) = b(k,100) - lu(k,802) * b(k,89) - b(k,101) = b(k,101) - lu(k,803) * b(k,89) - b(k,102) = b(k,102) - lu(k,804) * b(k,89) - b(k,103) = b(k,103) - lu(k,805) * b(k,89) - b(k,104) = b(k,104) - lu(k,806) * b(k,89) - b(k,105) = b(k,105) - lu(k,807) * b(k,89) - b(k,106) = b(k,106) - lu(k,808) * b(k,89) - b(k,107) = b(k,107) - lu(k,809) * b(k,89) - b(k,109) = b(k,109) - lu(k,810) * b(k,89) - b(k,110) = b(k,110) - lu(k,811) * b(k,89) - b(k,112) = b(k,112) - lu(k,812) * b(k,89) - b(k,113) = b(k,113) - lu(k,813) * b(k,89) - b(k,114) = b(k,114) - lu(k,814) * b(k,89) - end do + b(81) = b(81) - lu(520) * b(79) + b(87) = b(87) - lu(521) * b(79) + b(92) = b(92) - lu(522) * b(79) + b(93) = b(93) - lu(523) * b(79) + b(94) = b(94) - lu(524) * b(79) + b(95) = b(95) - lu(525) * b(79) + b(96) = b(96) - lu(526) * b(79) + b(97) = b(97) - lu(527) * b(79) + b(98) = b(98) - lu(528) * b(79) + b(99) = b(99) - lu(529) * b(79) + b(103) = b(103) - lu(530) * b(79) + b(105) = b(105) - lu(531) * b(79) + b(107) = b(107) - lu(532) * b(79) + b(108) = b(108) - lu(533) * b(79) + b(111) = b(111) - lu(534) * b(79) + b(113) = b(113) - lu(535) * b(79) + b(114) = b(114) - lu(536) * b(79) + b(81) = b(81) - lu(540) * b(80) + b(87) = b(87) - lu(541) * b(80) + b(90) = b(90) - lu(542) * b(80) + b(92) = b(92) - lu(543) * b(80) + b(93) = b(93) - lu(544) * b(80) + b(94) = b(94) - lu(545) * b(80) + b(95) = b(95) - lu(546) * b(80) + b(96) = b(96) - lu(547) * b(80) + b(97) = b(97) - lu(548) * b(80) + b(98) = b(98) - lu(549) * b(80) + b(99) = b(99) - lu(550) * b(80) + b(103) = b(103) - lu(551) * b(80) + b(105) = b(105) - lu(552) * b(80) + b(107) = b(107) - lu(553) * b(80) + b(111) = b(111) - lu(554) * b(80) + b(112) = b(112) - lu(555) * b(80) + b(114) = b(114) - lu(556) * b(80) + b(87) = b(87) - lu(561) * b(81) + b(92) = b(92) - lu(562) * b(81) + b(93) = b(93) - lu(563) * b(81) + b(94) = b(94) - lu(564) * b(81) + b(95) = b(95) - lu(565) * b(81) + b(96) = b(96) - lu(566) * b(81) + b(97) = b(97) - lu(567) * b(81) + b(98) = b(98) - lu(568) * b(81) + b(99) = b(99) - lu(569) * b(81) + b(103) = b(103) - lu(570) * b(81) + b(105) = b(105) - lu(571) * b(81) + b(107) = b(107) - lu(572) * b(81) + b(108) = b(108) - lu(573) * b(81) + b(111) = b(111) - lu(574) * b(81) + b(113) = b(113) - lu(575) * b(81) + b(114) = b(114) - lu(576) * b(81) + b(83) = b(83) - lu(585) * b(82) + b(84) = b(84) - lu(586) * b(82) + b(88) = b(88) - lu(587) * b(82) + b(89) = b(89) - lu(588) * b(82) + b(95) = b(95) - lu(589) * b(82) + b(96) = b(96) - lu(590) * b(82) + b(98) = b(98) - lu(591) * b(82) + b(99) = b(99) - lu(592) * b(82) + b(100) = b(100) - lu(593) * b(82) + b(101) = b(101) - lu(594) * b(82) + b(104) = b(104) - lu(595) * b(82) + b(105) = b(105) - lu(596) * b(82) + b(106) = b(106) - lu(597) * b(82) + b(108) = b(108) - lu(598) * b(82) + b(113) = b(113) - lu(599) * b(82) + b(114) = b(114) - lu(600) * b(82) + b(84) = b(84) - lu(607) * b(83) + b(88) = b(88) - lu(608) * b(83) + b(89) = b(89) - lu(609) * b(83) + b(91) = b(91) - lu(610) * b(83) + b(95) = b(95) - lu(611) * b(83) + b(96) = b(96) - lu(612) * b(83) + b(98) = b(98) - lu(613) * b(83) + b(99) = b(99) - lu(614) * b(83) + b(100) = b(100) - lu(615) * b(83) + b(101) = b(101) - lu(616) * b(83) + b(104) = b(104) - lu(617) * b(83) + b(105) = b(105) - lu(618) * b(83) + b(106) = b(106) - lu(619) * b(83) + b(108) = b(108) - lu(620) * b(83) + b(109) = b(109) - lu(621) * b(83) + b(110) = b(110) - lu(622) * b(83) + b(113) = b(113) - lu(623) * b(83) + b(114) = b(114) - lu(624) * b(83) + b(88) = b(88) - lu(638) * b(84) + b(89) = b(89) - lu(639) * b(84) + b(91) = b(91) - lu(640) * b(84) + b(92) = b(92) - lu(641) * b(84) + b(95) = b(95) - lu(642) * b(84) + b(96) = b(96) - lu(643) * b(84) + b(98) = b(98) - lu(644) * b(84) + b(99) = b(99) - lu(645) * b(84) + b(100) = b(100) - lu(646) * b(84) + b(101) = b(101) - lu(647) * b(84) + b(102) = b(102) - lu(648) * b(84) + b(103) = b(103) - lu(649) * b(84) + b(104) = b(104) - lu(650) * b(84) + b(105) = b(105) - lu(651) * b(84) + b(106) = b(106) - lu(652) * b(84) + b(108) = b(108) - lu(653) * b(84) + b(109) = b(109) - lu(654) * b(84) + b(110) = b(110) - lu(655) * b(84) + b(113) = b(113) - lu(656) * b(84) + b(114) = b(114) - lu(657) * b(84) + b(86) = b(86) - lu(661) * b(85) + b(87) = b(87) - lu(662) * b(85) + b(88) = b(88) - lu(663) * b(85) + b(89) = b(89) - lu(664) * b(85) + b(90) = b(90) - lu(665) * b(85) + b(91) = b(91) - lu(666) * b(85) + b(92) = b(92) - lu(667) * b(85) + b(93) = b(93) - lu(668) * b(85) + b(94) = b(94) - lu(669) * b(85) + b(95) = b(95) - lu(670) * b(85) + b(96) = b(96) - lu(671) * b(85) + b(97) = b(97) - lu(672) * b(85) + b(98) = b(98) - lu(673) * b(85) + b(99) = b(99) - lu(674) * b(85) + b(100) = b(100) - lu(675) * b(85) + b(101) = b(101) - lu(676) * b(85) + b(102) = b(102) - lu(677) * b(85) + b(103) = b(103) - lu(678) * b(85) + b(104) = b(104) - lu(679) * b(85) + b(105) = b(105) - lu(680) * b(85) + b(106) = b(106) - lu(681) * b(85) + b(107) = b(107) - lu(682) * b(85) + b(109) = b(109) - lu(683) * b(85) + b(110) = b(110) - lu(684) * b(85) + b(111) = b(111) - lu(685) * b(85) + b(112) = b(112) - lu(686) * b(85) + b(114) = b(114) - lu(687) * b(85) + b(87) = b(87) - lu(691) * b(86) + b(91) = b(91) - lu(692) * b(86) + b(92) = b(92) - lu(693) * b(86) + b(93) = b(93) - lu(694) * b(86) + b(94) = b(94) - lu(695) * b(86) + b(95) = b(95) - lu(696) * b(86) + b(96) = b(96) - lu(697) * b(86) + b(97) = b(97) - lu(698) * b(86) + b(98) = b(98) - lu(699) * b(86) + b(100) = b(100) - lu(700) * b(86) + b(101) = b(101) - lu(701) * b(86) + b(103) = b(103) - lu(702) * b(86) + b(105) = b(105) - lu(703) * b(86) + b(107) = b(107) - lu(704) * b(86) + b(108) = b(108) - lu(705) * b(86) + b(111) = b(111) - lu(706) * b(86) + b(112) = b(112) - lu(707) * b(86) + b(114) = b(114) - lu(708) * b(86) + b(91) = b(91) - lu(714) * b(87) + b(92) = b(92) - lu(715) * b(87) + b(93) = b(93) - lu(716) * b(87) + b(94) = b(94) - lu(717) * b(87) + b(95) = b(95) - lu(718) * b(87) + b(96) = b(96) - lu(719) * b(87) + b(97) = b(97) - lu(720) * b(87) + b(98) = b(98) - lu(721) * b(87) + b(99) = b(99) - lu(722) * b(87) + b(100) = b(100) - lu(723) * b(87) + b(101) = b(101) - lu(724) * b(87) + b(103) = b(103) - lu(725) * b(87) + b(104) = b(104) - lu(726) * b(87) + b(105) = b(105) - lu(727) * b(87) + b(107) = b(107) - lu(728) * b(87) + b(108) = b(108) - lu(729) * b(87) + b(111) = b(111) - lu(730) * b(87) + b(112) = b(112) - lu(731) * b(87) + b(113) = b(113) - lu(732) * b(87) + b(114) = b(114) - lu(733) * b(87) + b(89) = b(89) - lu(748) * b(88) + b(91) = b(91) - lu(749) * b(88) + b(92) = b(92) - lu(750) * b(88) + b(95) = b(95) - lu(751) * b(88) + b(96) = b(96) - lu(752) * b(88) + b(97) = b(97) - lu(753) * b(88) + b(98) = b(98) - lu(754) * b(88) + b(99) = b(99) - lu(755) * b(88) + b(100) = b(100) - lu(756) * b(88) + b(101) = b(101) - lu(757) * b(88) + b(102) = b(102) - lu(758) * b(88) + b(103) = b(103) - lu(759) * b(88) + b(104) = b(104) - lu(760) * b(88) + b(105) = b(105) - lu(761) * b(88) + b(106) = b(106) - lu(762) * b(88) + b(108) = b(108) - lu(763) * b(88) + b(109) = b(109) - lu(764) * b(88) + b(110) = b(110) - lu(765) * b(88) + b(113) = b(113) - lu(766) * b(88) + b(114) = b(114) - lu(767) * b(88) + b(91) = b(91) - lu(795) * b(89) + b(92) = b(92) - lu(796) * b(89) + b(93) = b(93) - lu(797) * b(89) + b(95) = b(95) - lu(798) * b(89) + b(96) = b(96) - lu(799) * b(89) + b(97) = b(97) - lu(800) * b(89) + b(98) = b(98) - lu(801) * b(89) + b(99) = b(99) - lu(802) * b(89) + b(100) = b(100) - lu(803) * b(89) + b(101) = b(101) - lu(804) * b(89) + b(102) = b(102) - lu(805) * b(89) + b(103) = b(103) - lu(806) * b(89) + b(104) = b(104) - lu(807) * b(89) + b(105) = b(105) - lu(808) * b(89) + b(106) = b(106) - lu(809) * b(89) + b(108) = b(108) - lu(810) * b(89) + b(109) = b(109) - lu(811) * b(89) + b(110) = b(110) - lu(812) * b(89) + b(113) = b(113) - lu(813) * b(89) + b(114) = b(114) - lu(814) * b(89) end subroutine lu_slv03 - subroutine lu_slv04( avec_len, lu, b ) + subroutine lu_slv04( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,91) = b(k,91) - lu(k,823) * b(k,90) - b(k,92) = b(k,92) - lu(k,824) * b(k,90) - b(k,93) = b(k,93) - lu(k,825) * b(k,90) - b(k,94) = b(k,94) - lu(k,826) * b(k,90) - b(k,95) = b(k,95) - lu(k,827) * b(k,90) - b(k,96) = b(k,96) - lu(k,828) * b(k,90) - b(k,97) = b(k,97) - lu(k,829) * b(k,90) - b(k,98) = b(k,98) - lu(k,830) * b(k,90) - b(k,99) = b(k,99) - lu(k,831) * b(k,90) - b(k,100) = b(k,100) - lu(k,832) * b(k,90) - b(k,101) = b(k,101) - lu(k,833) * b(k,90) - b(k,102) = b(k,102) - lu(k,834) * b(k,90) - b(k,103) = b(k,103) - lu(k,835) * b(k,90) - b(k,104) = b(k,104) - lu(k,836) * b(k,90) - b(k,105) = b(k,105) - lu(k,837) * b(k,90) - b(k,106) = b(k,106) - lu(k,838) * b(k,90) - b(k,107) = b(k,107) - lu(k,839) * b(k,90) - b(k,108) = b(k,108) - lu(k,840) * b(k,90) - b(k,109) = b(k,109) - lu(k,841) * b(k,90) - b(k,110) = b(k,110) - lu(k,842) * b(k,90) - b(k,111) = b(k,111) - lu(k,843) * b(k,90) - b(k,112) = b(k,112) - lu(k,844) * b(k,90) - b(k,113) = b(k,113) - lu(k,845) * b(k,90) - b(k,114) = b(k,114) - lu(k,846) * b(k,90) - b(k,92) = b(k,92) - lu(k,853) * b(k,91) - b(k,93) = b(k,93) - lu(k,854) * b(k,91) - b(k,94) = b(k,94) - lu(k,855) * b(k,91) - b(k,95) = b(k,95) - lu(k,856) * b(k,91) - b(k,96) = b(k,96) - lu(k,857) * b(k,91) - b(k,97) = b(k,97) - lu(k,858) * b(k,91) - b(k,98) = b(k,98) - lu(k,859) * b(k,91) - b(k,99) = b(k,99) - lu(k,860) * b(k,91) - b(k,100) = b(k,100) - lu(k,861) * b(k,91) - b(k,101) = b(k,101) - lu(k,862) * b(k,91) - b(k,102) = b(k,102) - lu(k,863) * b(k,91) - b(k,103) = b(k,103) - lu(k,864) * b(k,91) - b(k,104) = b(k,104) - lu(k,865) * b(k,91) - b(k,105) = b(k,105) - lu(k,866) * b(k,91) - b(k,106) = b(k,106) - lu(k,867) * b(k,91) - b(k,107) = b(k,107) - lu(k,868) * b(k,91) - b(k,108) = b(k,108) - lu(k,869) * b(k,91) - b(k,109) = b(k,109) - lu(k,870) * b(k,91) - b(k,110) = b(k,110) - lu(k,871) * b(k,91) - b(k,111) = b(k,111) - lu(k,872) * b(k,91) - b(k,112) = b(k,112) - lu(k,873) * b(k,91) - b(k,113) = b(k,113) - lu(k,874) * b(k,91) - b(k,114) = b(k,114) - lu(k,875) * b(k,91) - b(k,93) = b(k,93) - lu(k,901) * b(k,92) - b(k,94) = b(k,94) - lu(k,902) * b(k,92) - b(k,95) = b(k,95) - lu(k,903) * b(k,92) - b(k,96) = b(k,96) - lu(k,904) * b(k,92) - b(k,97) = b(k,97) - lu(k,905) * b(k,92) - b(k,98) = b(k,98) - lu(k,906) * b(k,92) - b(k,99) = b(k,99) - lu(k,907) * b(k,92) - b(k,100) = b(k,100) - lu(k,908) * b(k,92) - b(k,101) = b(k,101) - lu(k,909) * b(k,92) - b(k,102) = b(k,102) - lu(k,910) * b(k,92) - b(k,103) = b(k,103) - lu(k,911) * b(k,92) - b(k,104) = b(k,104) - lu(k,912) * b(k,92) - b(k,105) = b(k,105) - lu(k,913) * b(k,92) - b(k,106) = b(k,106) - lu(k,914) * b(k,92) - b(k,107) = b(k,107) - lu(k,915) * b(k,92) - b(k,108) = b(k,108) - lu(k,916) * b(k,92) - b(k,109) = b(k,109) - lu(k,917) * b(k,92) - b(k,110) = b(k,110) - lu(k,918) * b(k,92) - b(k,111) = b(k,111) - lu(k,919) * b(k,92) - b(k,112) = b(k,112) - lu(k,920) * b(k,92) - b(k,113) = b(k,113) - lu(k,921) * b(k,92) - b(k,114) = b(k,114) - lu(k,922) * b(k,92) - b(k,94) = b(k,94) - lu(k,944) * b(k,93) - b(k,95) = b(k,95) - lu(k,945) * b(k,93) - b(k,96) = b(k,96) - lu(k,946) * b(k,93) - b(k,97) = b(k,97) - lu(k,947) * b(k,93) - b(k,98) = b(k,98) - lu(k,948) * b(k,93) - b(k,99) = b(k,99) - lu(k,949) * b(k,93) - b(k,100) = b(k,100) - lu(k,950) * b(k,93) - b(k,101) = b(k,101) - lu(k,951) * b(k,93) - b(k,102) = b(k,102) - lu(k,952) * b(k,93) - b(k,103) = b(k,103) - lu(k,953) * b(k,93) - b(k,104) = b(k,104) - lu(k,954) * b(k,93) - b(k,105) = b(k,105) - lu(k,955) * b(k,93) - b(k,106) = b(k,106) - lu(k,956) * b(k,93) - b(k,107) = b(k,107) - lu(k,957) * b(k,93) - b(k,108) = b(k,108) - lu(k,958) * b(k,93) - b(k,109) = b(k,109) - lu(k,959) * b(k,93) - b(k,110) = b(k,110) - lu(k,960) * b(k,93) - b(k,111) = b(k,111) - lu(k,961) * b(k,93) - b(k,112) = b(k,112) - lu(k,962) * b(k,93) - b(k,113) = b(k,113) - lu(k,963) * b(k,93) - b(k,114) = b(k,114) - lu(k,964) * b(k,93) - b(k,95) = b(k,95) - lu(k,991) * b(k,94) - b(k,96) = b(k,96) - lu(k,992) * b(k,94) - b(k,97) = b(k,97) - lu(k,993) * b(k,94) - b(k,98) = b(k,98) - lu(k,994) * b(k,94) - b(k,99) = b(k,99) - lu(k,995) * b(k,94) - b(k,100) = b(k,100) - lu(k,996) * b(k,94) - b(k,101) = b(k,101) - lu(k,997) * b(k,94) - b(k,102) = b(k,102) - lu(k,998) * b(k,94) - b(k,103) = b(k,103) - lu(k,999) * b(k,94) - b(k,104) = b(k,104) - lu(k,1000) * b(k,94) - b(k,105) = b(k,105) - lu(k,1001) * b(k,94) - b(k,106) = b(k,106) - lu(k,1002) * b(k,94) - b(k,107) = b(k,107) - lu(k,1003) * b(k,94) - b(k,108) = b(k,108) - lu(k,1004) * b(k,94) - b(k,109) = b(k,109) - lu(k,1005) * b(k,94) - b(k,110) = b(k,110) - lu(k,1006) * b(k,94) - b(k,111) = b(k,111) - lu(k,1007) * b(k,94) - b(k,112) = b(k,112) - lu(k,1008) * b(k,94) - b(k,113) = b(k,113) - lu(k,1009) * b(k,94) - b(k,114) = b(k,114) - lu(k,1010) * b(k,94) - b(k,96) = b(k,96) - lu(k,1034) * b(k,95) - b(k,97) = b(k,97) - lu(k,1035) * b(k,95) - b(k,98) = b(k,98) - lu(k,1036) * b(k,95) - b(k,99) = b(k,99) - lu(k,1037) * b(k,95) - b(k,100) = b(k,100) - lu(k,1038) * b(k,95) - b(k,101) = b(k,101) - lu(k,1039) * b(k,95) - b(k,102) = b(k,102) - lu(k,1040) * b(k,95) - b(k,103) = b(k,103) - lu(k,1041) * b(k,95) - b(k,104) = b(k,104) - lu(k,1042) * b(k,95) - b(k,105) = b(k,105) - lu(k,1043) * b(k,95) - b(k,106) = b(k,106) - lu(k,1044) * b(k,95) - b(k,107) = b(k,107) - lu(k,1045) * b(k,95) - b(k,108) = b(k,108) - lu(k,1046) * b(k,95) - b(k,109) = b(k,109) - lu(k,1047) * b(k,95) - b(k,110) = b(k,110) - lu(k,1048) * b(k,95) - b(k,111) = b(k,111) - lu(k,1049) * b(k,95) - b(k,112) = b(k,112) - lu(k,1050) * b(k,95) - b(k,113) = b(k,113) - lu(k,1051) * b(k,95) - b(k,114) = b(k,114) - lu(k,1052) * b(k,95) - b(k,97) = b(k,97) - lu(k,1076) * b(k,96) - b(k,98) = b(k,98) - lu(k,1077) * b(k,96) - b(k,99) = b(k,99) - lu(k,1078) * b(k,96) - b(k,100) = b(k,100) - lu(k,1079) * b(k,96) - b(k,101) = b(k,101) - lu(k,1080) * b(k,96) - b(k,102) = b(k,102) - lu(k,1081) * b(k,96) - b(k,103) = b(k,103) - lu(k,1082) * b(k,96) - b(k,104) = b(k,104) - lu(k,1083) * b(k,96) - b(k,105) = b(k,105) - lu(k,1084) * b(k,96) - b(k,106) = b(k,106) - lu(k,1085) * b(k,96) - b(k,107) = b(k,107) - lu(k,1086) * b(k,96) - b(k,108) = b(k,108) - lu(k,1087) * b(k,96) - b(k,109) = b(k,109) - lu(k,1088) * b(k,96) - b(k,110) = b(k,110) - lu(k,1089) * b(k,96) - b(k,111) = b(k,111) - lu(k,1090) * b(k,96) - b(k,112) = b(k,112) - lu(k,1091) * b(k,96) - b(k,113) = b(k,113) - lu(k,1092) * b(k,96) - b(k,114) = b(k,114) - lu(k,1093) * b(k,96) - b(k,98) = b(k,98) - lu(k,1116) * b(k,97) - b(k,99) = b(k,99) - lu(k,1117) * b(k,97) - b(k,100) = b(k,100) - lu(k,1118) * b(k,97) - b(k,101) = b(k,101) - lu(k,1119) * b(k,97) - b(k,102) = b(k,102) - lu(k,1120) * b(k,97) - b(k,103) = b(k,103) - lu(k,1121) * b(k,97) - b(k,104) = b(k,104) - lu(k,1122) * b(k,97) - b(k,105) = b(k,105) - lu(k,1123) * b(k,97) - b(k,106) = b(k,106) - lu(k,1124) * b(k,97) - b(k,107) = b(k,107) - lu(k,1125) * b(k,97) - b(k,108) = b(k,108) - lu(k,1126) * b(k,97) - b(k,109) = b(k,109) - lu(k,1127) * b(k,97) - b(k,110) = b(k,110) - lu(k,1128) * b(k,97) - b(k,111) = b(k,111) - lu(k,1129) * b(k,97) - b(k,112) = b(k,112) - lu(k,1130) * b(k,97) - b(k,113) = b(k,113) - lu(k,1131) * b(k,97) - b(k,114) = b(k,114) - lu(k,1132) * b(k,97) - b(k,99) = b(k,99) - lu(k,1161) * b(k,98) - b(k,100) = b(k,100) - lu(k,1162) * b(k,98) - b(k,101) = b(k,101) - lu(k,1163) * b(k,98) - b(k,102) = b(k,102) - lu(k,1164) * b(k,98) - b(k,103) = b(k,103) - lu(k,1165) * b(k,98) - b(k,104) = b(k,104) - lu(k,1166) * b(k,98) - b(k,105) = b(k,105) - lu(k,1167) * b(k,98) - b(k,106) = b(k,106) - lu(k,1168) * b(k,98) - b(k,107) = b(k,107) - lu(k,1169) * b(k,98) - b(k,108) = b(k,108) - lu(k,1170) * b(k,98) - b(k,109) = b(k,109) - lu(k,1171) * b(k,98) - b(k,110) = b(k,110) - lu(k,1172) * b(k,98) - b(k,111) = b(k,111) - lu(k,1173) * b(k,98) - b(k,112) = b(k,112) - lu(k,1174) * b(k,98) - b(k,113) = b(k,113) - lu(k,1175) * b(k,98) - b(k,114) = b(k,114) - lu(k,1176) * b(k,98) - b(k,100) = b(k,100) - lu(k,1203) * b(k,99) - b(k,101) = b(k,101) - lu(k,1204) * b(k,99) - b(k,102) = b(k,102) - lu(k,1205) * b(k,99) - b(k,103) = b(k,103) - lu(k,1206) * b(k,99) - b(k,104) = b(k,104) - lu(k,1207) * b(k,99) - b(k,105) = b(k,105) - lu(k,1208) * b(k,99) - b(k,106) = b(k,106) - lu(k,1209) * b(k,99) - b(k,107) = b(k,107) - lu(k,1210) * b(k,99) - b(k,108) = b(k,108) - lu(k,1211) * b(k,99) - b(k,109) = b(k,109) - lu(k,1212) * b(k,99) - b(k,110) = b(k,110) - lu(k,1213) * b(k,99) - b(k,111) = b(k,111) - lu(k,1214) * b(k,99) - b(k,112) = b(k,112) - lu(k,1215) * b(k,99) - b(k,113) = b(k,113) - lu(k,1216) * b(k,99) - b(k,114) = b(k,114) - lu(k,1217) * b(k,99) - b(k,101) = b(k,101) - lu(k,1253) * b(k,100) - b(k,102) = b(k,102) - lu(k,1254) * b(k,100) - b(k,103) = b(k,103) - lu(k,1255) * b(k,100) - b(k,104) = b(k,104) - lu(k,1256) * b(k,100) - b(k,105) = b(k,105) - lu(k,1257) * b(k,100) - b(k,106) = b(k,106) - lu(k,1258) * b(k,100) - b(k,107) = b(k,107) - lu(k,1259) * b(k,100) - b(k,108) = b(k,108) - lu(k,1260) * b(k,100) - b(k,109) = b(k,109) - lu(k,1261) * b(k,100) - b(k,110) = b(k,110) - lu(k,1262) * b(k,100) - b(k,111) = b(k,111) - lu(k,1263) * b(k,100) - b(k,112) = b(k,112) - lu(k,1264) * b(k,100) - b(k,113) = b(k,113) - lu(k,1265) * b(k,100) - b(k,114) = b(k,114) - lu(k,1266) * b(k,100) - end do + b(91) = b(91) - lu(823) * b(90) + b(92) = b(92) - lu(824) * b(90) + b(93) = b(93) - lu(825) * b(90) + b(94) = b(94) - lu(826) * b(90) + b(95) = b(95) - lu(827) * b(90) + b(96) = b(96) - lu(828) * b(90) + b(97) = b(97) - lu(829) * b(90) + b(98) = b(98) - lu(830) * b(90) + b(99) = b(99) - lu(831) * b(90) + b(100) = b(100) - lu(832) * b(90) + b(101) = b(101) - lu(833) * b(90) + b(102) = b(102) - lu(834) * b(90) + b(103) = b(103) - lu(835) * b(90) + b(104) = b(104) - lu(836) * b(90) + b(105) = b(105) - lu(837) * b(90) + b(106) = b(106) - lu(838) * b(90) + b(107) = b(107) - lu(839) * b(90) + b(108) = b(108) - lu(840) * b(90) + b(109) = b(109) - lu(841) * b(90) + b(110) = b(110) - lu(842) * b(90) + b(111) = b(111) - lu(843) * b(90) + b(112) = b(112) - lu(844) * b(90) + b(113) = b(113) - lu(845) * b(90) + b(114) = b(114) - lu(846) * b(90) + b(92) = b(92) - lu(867) * b(91) + b(93) = b(93) - lu(868) * b(91) + b(94) = b(94) - lu(869) * b(91) + b(95) = b(95) - lu(870) * b(91) + b(96) = b(96) - lu(871) * b(91) + b(97) = b(97) - lu(872) * b(91) + b(98) = b(98) - lu(873) * b(91) + b(99) = b(99) - lu(874) * b(91) + b(100) = b(100) - lu(875) * b(91) + b(101) = b(101) - lu(876) * b(91) + b(102) = b(102) - lu(877) * b(91) + b(103) = b(103) - lu(878) * b(91) + b(104) = b(104) - lu(879) * b(91) + b(105) = b(105) - lu(880) * b(91) + b(106) = b(106) - lu(881) * b(91) + b(107) = b(107) - lu(882) * b(91) + b(108) = b(108) - lu(883) * b(91) + b(109) = b(109) - lu(884) * b(91) + b(110) = b(110) - lu(885) * b(91) + b(111) = b(111) - lu(886) * b(91) + b(113) = b(113) - lu(887) * b(91) + b(114) = b(114) - lu(888) * b(91) + b(93) = b(93) - lu(909) * b(92) + b(94) = b(94) - lu(910) * b(92) + b(95) = b(95) - lu(911) * b(92) + b(96) = b(96) - lu(912) * b(92) + b(97) = b(97) - lu(913) * b(92) + b(98) = b(98) - lu(914) * b(92) + b(99) = b(99) - lu(915) * b(92) + b(100) = b(100) - lu(916) * b(92) + b(101) = b(101) - lu(917) * b(92) + b(102) = b(102) - lu(918) * b(92) + b(103) = b(103) - lu(919) * b(92) + b(104) = b(104) - lu(920) * b(92) + b(105) = b(105) - lu(921) * b(92) + b(106) = b(106) - lu(922) * b(92) + b(107) = b(107) - lu(923) * b(92) + b(108) = b(108) - lu(924) * b(92) + b(109) = b(109) - lu(925) * b(92) + b(110) = b(110) - lu(926) * b(92) + b(111) = b(111) - lu(927) * b(92) + b(112) = b(112) - lu(928) * b(92) + b(113) = b(113) - lu(929) * b(92) + b(114) = b(114) - lu(930) * b(92) + b(94) = b(94) - lu(957) * b(93) + b(95) = b(95) - lu(958) * b(93) + b(96) = b(96) - lu(959) * b(93) + b(97) = b(97) - lu(960) * b(93) + b(98) = b(98) - lu(961) * b(93) + b(99) = b(99) - lu(962) * b(93) + b(100) = b(100) - lu(963) * b(93) + b(101) = b(101) - lu(964) * b(93) + b(102) = b(102) - lu(965) * b(93) + b(103) = b(103) - lu(966) * b(93) + b(104) = b(104) - lu(967) * b(93) + b(105) = b(105) - lu(968) * b(93) + b(106) = b(106) - lu(969) * b(93) + b(107) = b(107) - lu(970) * b(93) + b(108) = b(108) - lu(971) * b(93) + b(109) = b(109) - lu(972) * b(93) + b(110) = b(110) - lu(973) * b(93) + b(111) = b(111) - lu(974) * b(93) + b(112) = b(112) - lu(975) * b(93) + b(113) = b(113) - lu(976) * b(93) + b(114) = b(114) - lu(977) * b(93) + b(95) = b(95) - lu(1000) * b(94) + b(96) = b(96) - lu(1001) * b(94) + b(97) = b(97) - lu(1002) * b(94) + b(98) = b(98) - lu(1003) * b(94) + b(99) = b(99) - lu(1004) * b(94) + b(100) = b(100) - lu(1005) * b(94) + b(101) = b(101) - lu(1006) * b(94) + b(102) = b(102) - lu(1007) * b(94) + b(103) = b(103) - lu(1008) * b(94) + b(104) = b(104) - lu(1009) * b(94) + b(105) = b(105) - lu(1010) * b(94) + b(106) = b(106) - lu(1011) * b(94) + b(107) = b(107) - lu(1012) * b(94) + b(108) = b(108) - lu(1013) * b(94) + b(109) = b(109) - lu(1014) * b(94) + b(110) = b(110) - lu(1015) * b(94) + b(111) = b(111) - lu(1016) * b(94) + b(112) = b(112) - lu(1017) * b(94) + b(113) = b(113) - lu(1018) * b(94) + b(114) = b(114) - lu(1019) * b(94) + b(96) = b(96) - lu(1050) * b(95) + b(97) = b(97) - lu(1051) * b(95) + b(98) = b(98) - lu(1052) * b(95) + b(99) = b(99) - lu(1053) * b(95) + b(100) = b(100) - lu(1054) * b(95) + b(101) = b(101) - lu(1055) * b(95) + b(102) = b(102) - lu(1056) * b(95) + b(103) = b(103) - lu(1057) * b(95) + b(104) = b(104) - lu(1058) * b(95) + b(105) = b(105) - lu(1059) * b(95) + b(106) = b(106) - lu(1060) * b(95) + b(107) = b(107) - lu(1061) * b(95) + b(108) = b(108) - lu(1062) * b(95) + b(109) = b(109) - lu(1063) * b(95) + b(110) = b(110) - lu(1064) * b(95) + b(111) = b(111) - lu(1065) * b(95) + b(112) = b(112) - lu(1066) * b(95) + b(113) = b(113) - lu(1067) * b(95) + b(114) = b(114) - lu(1068) * b(95) + b(97) = b(97) - lu(1097) * b(96) + b(98) = b(98) - lu(1098) * b(96) + b(99) = b(99) - lu(1099) * b(96) + b(100) = b(100) - lu(1100) * b(96) + b(101) = b(101) - lu(1101) * b(96) + b(102) = b(102) - lu(1102) * b(96) + b(103) = b(103) - lu(1103) * b(96) + b(104) = b(104) - lu(1104) * b(96) + b(105) = b(105) - lu(1105) * b(96) + b(106) = b(106) - lu(1106) * b(96) + b(107) = b(107) - lu(1107) * b(96) + b(108) = b(108) - lu(1108) * b(96) + b(109) = b(109) - lu(1109) * b(96) + b(110) = b(110) - lu(1110) * b(96) + b(111) = b(111) - lu(1111) * b(96) + b(112) = b(112) - lu(1112) * b(96) + b(113) = b(113) - lu(1113) * b(96) + b(114) = b(114) - lu(1114) * b(96) + b(98) = b(98) - lu(1139) * b(97) + b(99) = b(99) - lu(1140) * b(97) + b(100) = b(100) - lu(1141) * b(97) + b(101) = b(101) - lu(1142) * b(97) + b(102) = b(102) - lu(1143) * b(97) + b(103) = b(103) - lu(1144) * b(97) + b(104) = b(104) - lu(1145) * b(97) + b(105) = b(105) - lu(1146) * b(97) + b(106) = b(106) - lu(1147) * b(97) + b(107) = b(107) - lu(1148) * b(97) + b(108) = b(108) - lu(1149) * b(97) + b(109) = b(109) - lu(1150) * b(97) + b(110) = b(110) - lu(1151) * b(97) + b(111) = b(111) - lu(1152) * b(97) + b(112) = b(112) - lu(1153) * b(97) + b(113) = b(113) - lu(1154) * b(97) + b(114) = b(114) - lu(1155) * b(97) + b(99) = b(99) - lu(1181) * b(98) + b(100) = b(100) - lu(1182) * b(98) + b(101) = b(101) - lu(1183) * b(98) + b(102) = b(102) - lu(1184) * b(98) + b(103) = b(103) - lu(1185) * b(98) + b(104) = b(104) - lu(1186) * b(98) + b(105) = b(105) - lu(1187) * b(98) + b(106) = b(106) - lu(1188) * b(98) + b(107) = b(107) - lu(1189) * b(98) + b(108) = b(108) - lu(1190) * b(98) + b(109) = b(109) - lu(1191) * b(98) + b(110) = b(110) - lu(1192) * b(98) + b(111) = b(111) - lu(1193) * b(98) + b(112) = b(112) - lu(1194) * b(98) + b(113) = b(113) - lu(1195) * b(98) + b(114) = b(114) - lu(1196) * b(98) + b(100) = b(100) - lu(1241) * b(99) + b(101) = b(101) - lu(1242) * b(99) + b(102) = b(102) - lu(1243) * b(99) + b(103) = b(103) - lu(1244) * b(99) + b(104) = b(104) - lu(1245) * b(99) + b(105) = b(105) - lu(1246) * b(99) + b(106) = b(106) - lu(1247) * b(99) + b(107) = b(107) - lu(1248) * b(99) + b(108) = b(108) - lu(1249) * b(99) + b(109) = b(109) - lu(1250) * b(99) + b(110) = b(110) - lu(1251) * b(99) + b(111) = b(111) - lu(1252) * b(99) + b(112) = b(112) - lu(1253) * b(99) + b(113) = b(113) - lu(1254) * b(99) + b(114) = b(114) - lu(1255) * b(99) + b(101) = b(101) - lu(1284) * b(100) + b(102) = b(102) - lu(1285) * b(100) + b(103) = b(103) - lu(1286) * b(100) + b(104) = b(104) - lu(1287) * b(100) + b(105) = b(105) - lu(1288) * b(100) + b(106) = b(106) - lu(1289) * b(100) + b(107) = b(107) - lu(1290) * b(100) + b(108) = b(108) - lu(1291) * b(100) + b(109) = b(109) - lu(1292) * b(100) + b(110) = b(110) - lu(1293) * b(100) + b(111) = b(111) - lu(1294) * b(100) + b(112) = b(112) - lu(1295) * b(100) + b(113) = b(113) - lu(1296) * b(100) + b(114) = b(114) - lu(1297) * b(100) end subroutine lu_slv04 - subroutine lu_slv05( avec_len, lu, b ) + subroutine lu_slv05( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,102) = b(k,102) - lu(k,1293) * b(k,101) - b(k,103) = b(k,103) - lu(k,1294) * b(k,101) - b(k,104) = b(k,104) - lu(k,1295) * b(k,101) - b(k,105) = b(k,105) - lu(k,1296) * b(k,101) - b(k,106) = b(k,106) - lu(k,1297) * b(k,101) - b(k,107) = b(k,107) - lu(k,1298) * b(k,101) - b(k,108) = b(k,108) - lu(k,1299) * b(k,101) - b(k,109) = b(k,109) - lu(k,1300) * b(k,101) - b(k,110) = b(k,110) - lu(k,1301) * b(k,101) - b(k,111) = b(k,111) - lu(k,1302) * b(k,101) - b(k,112) = b(k,112) - lu(k,1303) * b(k,101) - b(k,113) = b(k,113) - lu(k,1304) * b(k,101) - b(k,114) = b(k,114) - lu(k,1305) * b(k,101) - b(k,103) = b(k,103) - lu(k,1329) * b(k,102) - b(k,104) = b(k,104) - lu(k,1330) * b(k,102) - b(k,105) = b(k,105) - lu(k,1331) * b(k,102) - b(k,106) = b(k,106) - lu(k,1332) * b(k,102) - b(k,107) = b(k,107) - lu(k,1333) * b(k,102) - b(k,108) = b(k,108) - lu(k,1334) * b(k,102) - b(k,109) = b(k,109) - lu(k,1335) * b(k,102) - b(k,110) = b(k,110) - lu(k,1336) * b(k,102) - b(k,111) = b(k,111) - lu(k,1337) * b(k,102) - b(k,112) = b(k,112) - lu(k,1338) * b(k,102) - b(k,113) = b(k,113) - lu(k,1339) * b(k,102) - b(k,114) = b(k,114) - lu(k,1340) * b(k,102) - b(k,104) = b(k,104) - lu(k,1374) * b(k,103) - b(k,105) = b(k,105) - lu(k,1375) * b(k,103) - b(k,106) = b(k,106) - lu(k,1376) * b(k,103) - b(k,107) = b(k,107) - lu(k,1377) * b(k,103) - b(k,108) = b(k,108) - lu(k,1378) * b(k,103) - b(k,109) = b(k,109) - lu(k,1379) * b(k,103) - b(k,110) = b(k,110) - lu(k,1380) * b(k,103) - b(k,111) = b(k,111) - lu(k,1381) * b(k,103) - b(k,112) = b(k,112) - lu(k,1382) * b(k,103) - b(k,113) = b(k,113) - lu(k,1383) * b(k,103) - b(k,114) = b(k,114) - lu(k,1384) * b(k,103) - b(k,105) = b(k,105) - lu(k,1434) * b(k,104) - b(k,106) = b(k,106) - lu(k,1435) * b(k,104) - b(k,107) = b(k,107) - lu(k,1436) * b(k,104) - b(k,108) = b(k,108) - lu(k,1437) * b(k,104) - b(k,109) = b(k,109) - lu(k,1438) * b(k,104) - b(k,110) = b(k,110) - lu(k,1439) * b(k,104) - b(k,111) = b(k,111) - lu(k,1440) * b(k,104) - b(k,112) = b(k,112) - lu(k,1441) * b(k,104) - b(k,113) = b(k,113) - lu(k,1442) * b(k,104) - b(k,114) = b(k,114) - lu(k,1443) * b(k,104) - b(k,106) = b(k,106) - lu(k,1477) * b(k,105) - b(k,107) = b(k,107) - lu(k,1478) * b(k,105) - b(k,108) = b(k,108) - lu(k,1479) * b(k,105) - b(k,109) = b(k,109) - lu(k,1480) * b(k,105) - b(k,110) = b(k,110) - lu(k,1481) * b(k,105) - b(k,111) = b(k,111) - lu(k,1482) * b(k,105) - b(k,112) = b(k,112) - lu(k,1483) * b(k,105) - b(k,113) = b(k,113) - lu(k,1484) * b(k,105) - b(k,114) = b(k,114) - lu(k,1485) * b(k,105) - b(k,107) = b(k,107) - lu(k,1519) * b(k,106) - b(k,108) = b(k,108) - lu(k,1520) * b(k,106) - b(k,109) = b(k,109) - lu(k,1521) * b(k,106) - b(k,110) = b(k,110) - lu(k,1522) * b(k,106) - b(k,111) = b(k,111) - lu(k,1523) * b(k,106) - b(k,112) = b(k,112) - lu(k,1524) * b(k,106) - b(k,113) = b(k,113) - lu(k,1525) * b(k,106) - b(k,114) = b(k,114) - lu(k,1526) * b(k,106) - b(k,108) = b(k,108) - lu(k,1562) * b(k,107) - b(k,109) = b(k,109) - lu(k,1563) * b(k,107) - b(k,110) = b(k,110) - lu(k,1564) * b(k,107) - b(k,111) = b(k,111) - lu(k,1565) * b(k,107) - b(k,112) = b(k,112) - lu(k,1566) * b(k,107) - b(k,113) = b(k,113) - lu(k,1567) * b(k,107) - b(k,114) = b(k,114) - lu(k,1568) * b(k,107) - b(k,109) = b(k,109) - lu(k,1605) * b(k,108) - b(k,110) = b(k,110) - lu(k,1606) * b(k,108) - b(k,111) = b(k,111) - lu(k,1607) * b(k,108) - b(k,112) = b(k,112) - lu(k,1608) * b(k,108) - b(k,113) = b(k,113) - lu(k,1609) * b(k,108) - b(k,114) = b(k,114) - lu(k,1610) * b(k,108) - b(k,110) = b(k,110) - lu(k,1638) * b(k,109) - b(k,111) = b(k,111) - lu(k,1639) * b(k,109) - b(k,112) = b(k,112) - lu(k,1640) * b(k,109) - b(k,113) = b(k,113) - lu(k,1641) * b(k,109) - b(k,114) = b(k,114) - lu(k,1642) * b(k,109) - b(k,111) = b(k,111) - lu(k,1674) * b(k,110) - b(k,112) = b(k,112) - lu(k,1675) * b(k,110) - b(k,113) = b(k,113) - lu(k,1676) * b(k,110) - b(k,114) = b(k,114) - lu(k,1677) * b(k,110) - b(k,112) = b(k,112) - lu(k,1717) * b(k,111) - b(k,113) = b(k,113) - lu(k,1718) * b(k,111) - b(k,114) = b(k,114) - lu(k,1719) * b(k,111) - b(k,113) = b(k,113) - lu(k,1762) * b(k,112) - b(k,114) = b(k,114) - lu(k,1763) * b(k,112) - b(k,114) = b(k,114) - lu(k,1798) * b(k,113) - end do + b(102) = b(102) - lu(1329) * b(101) + b(103) = b(103) - lu(1330) * b(101) + b(104) = b(104) - lu(1331) * b(101) + b(105) = b(105) - lu(1332) * b(101) + b(106) = b(106) - lu(1333) * b(101) + b(107) = b(107) - lu(1334) * b(101) + b(108) = b(108) - lu(1335) * b(101) + b(109) = b(109) - lu(1336) * b(101) + b(110) = b(110) - lu(1337) * b(101) + b(111) = b(111) - lu(1338) * b(101) + b(112) = b(112) - lu(1339) * b(101) + b(113) = b(113) - lu(1340) * b(101) + b(114) = b(114) - lu(1341) * b(101) + b(103) = b(103) - lu(1365) * b(102) + b(104) = b(104) - lu(1366) * b(102) + b(105) = b(105) - lu(1367) * b(102) + b(106) = b(106) - lu(1368) * b(102) + b(107) = b(107) - lu(1369) * b(102) + b(108) = b(108) - lu(1370) * b(102) + b(109) = b(109) - lu(1371) * b(102) + b(110) = b(110) - lu(1372) * b(102) + b(111) = b(111) - lu(1373) * b(102) + b(112) = b(112) - lu(1374) * b(102) + b(113) = b(113) - lu(1375) * b(102) + b(114) = b(114) - lu(1376) * b(102) + b(104) = b(104) - lu(1410) * b(103) + b(105) = b(105) - lu(1411) * b(103) + b(106) = b(106) - lu(1412) * b(103) + b(107) = b(107) - lu(1413) * b(103) + b(108) = b(108) - lu(1414) * b(103) + b(109) = b(109) - lu(1415) * b(103) + b(110) = b(110) - lu(1416) * b(103) + b(111) = b(111) - lu(1417) * b(103) + b(112) = b(112) - lu(1418) * b(103) + b(113) = b(113) - lu(1419) * b(103) + b(114) = b(114) - lu(1420) * b(103) + b(105) = b(105) - lu(1452) * b(104) + b(106) = b(106) - lu(1453) * b(104) + b(107) = b(107) - lu(1454) * b(104) + b(108) = b(108) - lu(1455) * b(104) + b(109) = b(109) - lu(1456) * b(104) + b(110) = b(110) - lu(1457) * b(104) + b(111) = b(111) - lu(1458) * b(104) + b(112) = b(112) - lu(1459) * b(104) + b(113) = b(113) - lu(1460) * b(104) + b(114) = b(114) - lu(1461) * b(104) + b(106) = b(106) - lu(1488) * b(105) + b(107) = b(107) - lu(1489) * b(105) + b(108) = b(108) - lu(1490) * b(105) + b(109) = b(109) - lu(1491) * b(105) + b(110) = b(110) - lu(1492) * b(105) + b(111) = b(111) - lu(1493) * b(105) + b(112) = b(112) - lu(1494) * b(105) + b(113) = b(113) - lu(1495) * b(105) + b(114) = b(114) - lu(1496) * b(105) + b(107) = b(107) - lu(1533) * b(106) + b(108) = b(108) - lu(1534) * b(106) + b(109) = b(109) - lu(1535) * b(106) + b(110) = b(110) - lu(1536) * b(106) + b(111) = b(111) - lu(1537) * b(106) + b(112) = b(112) - lu(1538) * b(106) + b(113) = b(113) - lu(1539) * b(106) + b(114) = b(114) - lu(1540) * b(106) + b(108) = b(108) - lu(1576) * b(107) + b(109) = b(109) - lu(1577) * b(107) + b(110) = b(110) - lu(1578) * b(107) + b(111) = b(111) - lu(1579) * b(107) + b(112) = b(112) - lu(1580) * b(107) + b(113) = b(113) - lu(1581) * b(107) + b(114) = b(114) - lu(1582) * b(107) + b(109) = b(109) - lu(1616) * b(108) + b(110) = b(110) - lu(1617) * b(108) + b(111) = b(111) - lu(1618) * b(108) + b(112) = b(112) - lu(1619) * b(108) + b(113) = b(113) - lu(1620) * b(108) + b(114) = b(114) - lu(1621) * b(108) + b(110) = b(110) - lu(1649) * b(109) + b(111) = b(111) - lu(1650) * b(109) + b(112) = b(112) - lu(1651) * b(109) + b(113) = b(113) - lu(1652) * b(109) + b(114) = b(114) - lu(1653) * b(109) + b(111) = b(111) - lu(1685) * b(110) + b(112) = b(112) - lu(1686) * b(110) + b(113) = b(113) - lu(1687) * b(110) + b(114) = b(114) - lu(1688) * b(110) + b(112) = b(112) - lu(1728) * b(111) + b(113) = b(113) - lu(1729) * b(111) + b(114) = b(114) - lu(1730) * b(111) + b(113) = b(113) - lu(1758) * b(112) + b(114) = b(114) - lu(1759) * b(112) + b(114) = b(114) - lu(1798) * b(113) end subroutine lu_slv05 - subroutine lu_slv06( avec_len, lu, b ) + subroutine lu_slv06( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len !----------------------------------------------------------------------- ! ... Solve U * x = y !----------------------------------------------------------------------- - b(k,114) = b(k,114) * lu(k,1856) - b(k,113) = b(k,113) - lu(k,1855) * b(k,114) - b(k,112) = b(k,112) - lu(k,1854) * b(k,114) - b(k,111) = b(k,111) - lu(k,1853) * b(k,114) - b(k,110) = b(k,110) - lu(k,1852) * b(k,114) - b(k,109) = b(k,109) - lu(k,1851) * b(k,114) - b(k,108) = b(k,108) - lu(k,1850) * b(k,114) - b(k,107) = b(k,107) - lu(k,1849) * b(k,114) - b(k,106) = b(k,106) - lu(k,1848) * b(k,114) - b(k,105) = b(k,105) - lu(k,1847) * b(k,114) - b(k,104) = b(k,104) - lu(k,1846) * b(k,114) - b(k,103) = b(k,103) - lu(k,1845) * b(k,114) - b(k,102) = b(k,102) - lu(k,1844) * b(k,114) - b(k,101) = b(k,101) - lu(k,1843) * b(k,114) - b(k,100) = b(k,100) - lu(k,1842) * b(k,114) - b(k,99) = b(k,99) - lu(k,1841) * b(k,114) - b(k,98) = b(k,98) - lu(k,1840) * b(k,114) - b(k,97) = b(k,97) - lu(k,1839) * b(k,114) - b(k,96) = b(k,96) - lu(k,1838) * b(k,114) - b(k,95) = b(k,95) - lu(k,1837) * b(k,114) - b(k,94) = b(k,94) - lu(k,1836) * b(k,114) - b(k,93) = b(k,93) - lu(k,1835) * b(k,114) - b(k,92) = b(k,92) - lu(k,1834) * b(k,114) - b(k,91) = b(k,91) - lu(k,1833) * b(k,114) - b(k,90) = b(k,90) - lu(k,1832) * b(k,114) - b(k,89) = b(k,89) - lu(k,1831) * b(k,114) - b(k,88) = b(k,88) - lu(k,1830) * b(k,114) - b(k,87) = b(k,87) - lu(k,1829) * b(k,114) - b(k,86) = b(k,86) - lu(k,1828) * b(k,114) - b(k,84) = b(k,84) - lu(k,1827) * b(k,114) - b(k,83) = b(k,83) - lu(k,1826) * b(k,114) - b(k,82) = b(k,82) - lu(k,1825) * b(k,114) - b(k,81) = b(k,81) - lu(k,1824) * b(k,114) - b(k,80) = b(k,80) - lu(k,1823) * b(k,114) - b(k,79) = b(k,79) - lu(k,1822) * b(k,114) - b(k,77) = b(k,77) - lu(k,1821) * b(k,114) - b(k,75) = b(k,75) - lu(k,1820) * b(k,114) - b(k,73) = b(k,73) - lu(k,1819) * b(k,114) - b(k,72) = b(k,72) - lu(k,1818) * b(k,114) - b(k,70) = b(k,70) - lu(k,1817) * b(k,114) - b(k,69) = b(k,69) - lu(k,1816) * b(k,114) - b(k,68) = b(k,68) - lu(k,1815) * b(k,114) - b(k,66) = b(k,66) - lu(k,1814) * b(k,114) - b(k,60) = b(k,60) - lu(k,1813) * b(k,114) - b(k,53) = b(k,53) - lu(k,1812) * b(k,114) - b(k,52) = b(k,52) - lu(k,1811) * b(k,114) - b(k,51) = b(k,51) - lu(k,1810) * b(k,114) - b(k,50) = b(k,50) - lu(k,1809) * b(k,114) - b(k,48) = b(k,48) - lu(k,1808) * b(k,114) - b(k,41) = b(k,41) - lu(k,1807) * b(k,114) - b(k,40) = b(k,40) - lu(k,1806) * b(k,114) - b(k,37) = b(k,37) - lu(k,1805) * b(k,114) - b(k,36) = b(k,36) - lu(k,1804) * b(k,114) - b(k,31) = b(k,31) - lu(k,1803) * b(k,114) - b(k,30) = b(k,30) - lu(k,1802) * b(k,114) - b(k,29) = b(k,29) - lu(k,1801) * b(k,114) - b(k,26) = b(k,26) - lu(k,1800) * b(k,114) - b(k,22) = b(k,22) - lu(k,1799) * b(k,114) - b(k,113) = b(k,113) * lu(k,1797) - b(k,112) = b(k,112) - lu(k,1796) * b(k,113) - b(k,111) = b(k,111) - lu(k,1795) * b(k,113) - b(k,110) = b(k,110) - lu(k,1794) * b(k,113) - b(k,109) = b(k,109) - lu(k,1793) * b(k,113) - b(k,108) = b(k,108) - lu(k,1792) * b(k,113) - b(k,107) = b(k,107) - lu(k,1791) * b(k,113) - b(k,106) = b(k,106) - lu(k,1790) * b(k,113) - b(k,105) = b(k,105) - lu(k,1789) * b(k,113) - b(k,104) = b(k,104) - lu(k,1788) * b(k,113) - b(k,103) = b(k,103) - lu(k,1787) * b(k,113) - b(k,102) = b(k,102) - lu(k,1786) * b(k,113) - b(k,101) = b(k,101) - lu(k,1785) * b(k,113) - b(k,100) = b(k,100) - lu(k,1784) * b(k,113) - b(k,99) = b(k,99) - lu(k,1783) * b(k,113) - b(k,98) = b(k,98) - lu(k,1782) * b(k,113) - b(k,97) = b(k,97) - lu(k,1781) * b(k,113) - b(k,96) = b(k,96) - lu(k,1780) * b(k,113) - b(k,95) = b(k,95) - lu(k,1779) * b(k,113) - b(k,94) = b(k,94) - lu(k,1778) * b(k,113) - b(k,93) = b(k,93) - lu(k,1777) * b(k,113) - b(k,92) = b(k,92) - lu(k,1776) * b(k,113) - b(k,91) = b(k,91) - lu(k,1775) * b(k,113) - b(k,90) = b(k,90) - lu(k,1774) * b(k,113) - b(k,89) = b(k,89) - lu(k,1773) * b(k,113) - b(k,88) = b(k,88) - lu(k,1772) * b(k,113) - b(k,87) = b(k,87) - lu(k,1771) * b(k,113) - b(k,86) = b(k,86) - lu(k,1770) * b(k,113) - b(k,85) = b(k,85) - lu(k,1769) * b(k,113) - b(k,84) = b(k,84) - lu(k,1768) * b(k,113) - b(k,83) = b(k,83) - lu(k,1767) * b(k,113) - b(k,77) = b(k,77) - lu(k,1766) * b(k,113) - b(k,74) = b(k,74) - lu(k,1765) * b(k,113) - b(k,51) = b(k,51) - lu(k,1764) * b(k,113) - b(k,112) = b(k,112) * lu(k,1761) - b(k,111) = b(k,111) - lu(k,1760) * b(k,112) - b(k,110) = b(k,110) - lu(k,1759) * b(k,112) - b(k,109) = b(k,109) - lu(k,1758) * b(k,112) - b(k,108) = b(k,108) - lu(k,1757) * b(k,112) - b(k,107) = b(k,107) - lu(k,1756) * b(k,112) - b(k,106) = b(k,106) - lu(k,1755) * b(k,112) - b(k,105) = b(k,105) - lu(k,1754) * b(k,112) - b(k,104) = b(k,104) - lu(k,1753) * b(k,112) - b(k,103) = b(k,103) - lu(k,1752) * b(k,112) - b(k,102) = b(k,102) - lu(k,1751) * b(k,112) - b(k,101) = b(k,101) - lu(k,1750) * b(k,112) - b(k,100) = b(k,100) - lu(k,1749) * b(k,112) - b(k,99) = b(k,99) - lu(k,1748) * b(k,112) - b(k,98) = b(k,98) - lu(k,1747) * b(k,112) - b(k,97) = b(k,97) - lu(k,1746) * b(k,112) - b(k,96) = b(k,96) - lu(k,1745) * b(k,112) - b(k,95) = b(k,95) - lu(k,1744) * b(k,112) - b(k,94) = b(k,94) - lu(k,1743) * b(k,112) - b(k,93) = b(k,93) - lu(k,1742) * b(k,112) - b(k,92) = b(k,92) - lu(k,1741) * b(k,112) - b(k,91) = b(k,91) - lu(k,1740) * b(k,112) - b(k,90) = b(k,90) - lu(k,1739) * b(k,112) - b(k,89) = b(k,89) - lu(k,1738) * b(k,112) - b(k,88) = b(k,88) - lu(k,1737) * b(k,112) - b(k,87) = b(k,87) - lu(k,1736) * b(k,112) - b(k,86) = b(k,86) - lu(k,1735) * b(k,112) - b(k,85) = b(k,85) - lu(k,1734) * b(k,112) - b(k,84) = b(k,84) - lu(k,1733) * b(k,112) - b(k,83) = b(k,83) - lu(k,1732) * b(k,112) - b(k,82) = b(k,82) - lu(k,1731) * b(k,112) - b(k,75) = b(k,75) - lu(k,1730) * b(k,112) - b(k,70) = b(k,70) - lu(k,1729) * b(k,112) - b(k,66) = b(k,66) - lu(k,1728) * b(k,112) - b(k,63) = b(k,63) - lu(k,1727) * b(k,112) - b(k,62) = b(k,62) - lu(k,1726) * b(k,112) - b(k,60) = b(k,60) - lu(k,1725) * b(k,112) - b(k,57) = b(k,57) - lu(k,1724) * b(k,112) - b(k,33) = b(k,33) - lu(k,1723) * b(k,112) - b(k,27) = b(k,27) - lu(k,1722) * b(k,112) - b(k,24) = b(k,24) - lu(k,1721) * b(k,112) - b(k,21) = b(k,21) - lu(k,1720) * b(k,112) - b(k,111) = b(k,111) * lu(k,1716) - b(k,110) = b(k,110) - lu(k,1715) * b(k,111) - b(k,109) = b(k,109) - lu(k,1714) * b(k,111) - b(k,108) = b(k,108) - lu(k,1713) * b(k,111) - b(k,107) = b(k,107) - lu(k,1712) * b(k,111) - b(k,106) = b(k,106) - lu(k,1711) * b(k,111) - b(k,105) = b(k,105) - lu(k,1710) * b(k,111) - b(k,104) = b(k,104) - lu(k,1709) * b(k,111) - b(k,103) = b(k,103) - lu(k,1708) * b(k,111) - b(k,102) = b(k,102) - lu(k,1707) * b(k,111) - b(k,101) = b(k,101) - lu(k,1706) * b(k,111) - b(k,100) = b(k,100) - lu(k,1705) * b(k,111) - b(k,99) = b(k,99) - lu(k,1704) * b(k,111) - b(k,98) = b(k,98) - lu(k,1703) * b(k,111) - b(k,97) = b(k,97) - lu(k,1702) * b(k,111) - b(k,96) = b(k,96) - lu(k,1701) * b(k,111) - b(k,95) = b(k,95) - lu(k,1700) * b(k,111) - b(k,94) = b(k,94) - lu(k,1699) * b(k,111) - b(k,93) = b(k,93) - lu(k,1698) * b(k,111) - b(k,92) = b(k,92) - lu(k,1697) * b(k,111) - b(k,91) = b(k,91) - lu(k,1696) * b(k,111) - b(k,90) = b(k,90) - lu(k,1695) * b(k,111) - b(k,89) = b(k,89) - lu(k,1694) * b(k,111) - b(k,88) = b(k,88) - lu(k,1693) * b(k,111) - b(k,87) = b(k,87) - lu(k,1692) * b(k,111) - b(k,86) = b(k,86) - lu(k,1691) * b(k,111) - b(k,85) = b(k,85) - lu(k,1690) * b(k,111) - b(k,81) = b(k,81) - lu(k,1689) * b(k,111) - b(k,80) = b(k,80) - lu(k,1688) * b(k,111) - b(k,79) = b(k,79) - lu(k,1687) * b(k,111) - b(k,78) = b(k,78) - lu(k,1686) * b(k,111) - b(k,76) = b(k,76) - lu(k,1685) * b(k,111) - b(k,73) = b(k,73) - lu(k,1684) * b(k,111) - b(k,72) = b(k,72) - lu(k,1683) * b(k,111) - b(k,71) = b(k,71) - lu(k,1682) * b(k,111) - b(k,69) = b(k,69) - lu(k,1681) * b(k,111) - b(k,67) = b(k,67) - lu(k,1680) * b(k,111) - b(k,64) = b(k,64) - lu(k,1679) * b(k,111) - b(k,30) = b(k,30) - lu(k,1678) * b(k,111) - b(k,110) = b(k,110) * lu(k,1673) - b(k,109) = b(k,109) - lu(k,1672) * b(k,110) - b(k,108) = b(k,108) - lu(k,1671) * b(k,110) - b(k,107) = b(k,107) - lu(k,1670) * b(k,110) - b(k,106) = b(k,106) - lu(k,1669) * b(k,110) - b(k,105) = b(k,105) - lu(k,1668) * b(k,110) - b(k,104) = b(k,104) - lu(k,1667) * b(k,110) - b(k,103) = b(k,103) - lu(k,1666) * b(k,110) - b(k,102) = b(k,102) - lu(k,1665) * b(k,110) - b(k,101) = b(k,101) - lu(k,1664) * b(k,110) - b(k,100) = b(k,100) - lu(k,1663) * b(k,110) - b(k,99) = b(k,99) - lu(k,1662) * b(k,110) - b(k,98) = b(k,98) - lu(k,1661) * b(k,110) - b(k,97) = b(k,97) - lu(k,1660) * b(k,110) - b(k,96) = b(k,96) - lu(k,1659) * b(k,110) - b(k,95) = b(k,95) - lu(k,1658) * b(k,110) - b(k,94) = b(k,94) - lu(k,1657) * b(k,110) - b(k,93) = b(k,93) - lu(k,1656) * b(k,110) - b(k,92) = b(k,92) - lu(k,1655) * b(k,110) - b(k,91) = b(k,91) - lu(k,1654) * b(k,110) - b(k,90) = b(k,90) - lu(k,1653) * b(k,110) - b(k,89) = b(k,89) - lu(k,1652) * b(k,110) - b(k,88) = b(k,88) - lu(k,1651) * b(k,110) - b(k,87) = b(k,87) - lu(k,1650) * b(k,110) - b(k,86) = b(k,86) - lu(k,1649) * b(k,110) - b(k,84) = b(k,84) - lu(k,1648) * b(k,110) - b(k,83) = b(k,83) - lu(k,1647) * b(k,110) - b(k,77) = b(k,77) - lu(k,1646) * b(k,110) - b(k,74) = b(k,74) - lu(k,1645) * b(k,110) - b(k,68) = b(k,68) - lu(k,1644) * b(k,110) - b(k,59) = b(k,59) - lu(k,1643) * b(k,110) - end do + b(114) = b(114) * lu(1856) + b(113) = b(113) - lu(1855) * b(114) + b(112) = b(112) - lu(1854) * b(114) + b(111) = b(111) - lu(1853) * b(114) + b(110) = b(110) - lu(1852) * b(114) + b(109) = b(109) - lu(1851) * b(114) + b(108) = b(108) - lu(1850) * b(114) + b(107) = b(107) - lu(1849) * b(114) + b(106) = b(106) - lu(1848) * b(114) + b(105) = b(105) - lu(1847) * b(114) + b(104) = b(104) - lu(1846) * b(114) + b(103) = b(103) - lu(1845) * b(114) + b(102) = b(102) - lu(1844) * b(114) + b(101) = b(101) - lu(1843) * b(114) + b(100) = b(100) - lu(1842) * b(114) + b(99) = b(99) - lu(1841) * b(114) + b(98) = b(98) - lu(1840) * b(114) + b(97) = b(97) - lu(1839) * b(114) + b(96) = b(96) - lu(1838) * b(114) + b(95) = b(95) - lu(1837) * b(114) + b(94) = b(94) - lu(1836) * b(114) + b(93) = b(93) - lu(1835) * b(114) + b(92) = b(92) - lu(1834) * b(114) + b(91) = b(91) - lu(1833) * b(114) + b(90) = b(90) - lu(1832) * b(114) + b(89) = b(89) - lu(1831) * b(114) + b(88) = b(88) - lu(1830) * b(114) + b(87) = b(87) - lu(1829) * b(114) + b(86) = b(86) - lu(1828) * b(114) + b(84) = b(84) - lu(1827) * b(114) + b(83) = b(83) - lu(1826) * b(114) + b(82) = b(82) - lu(1825) * b(114) + b(81) = b(81) - lu(1824) * b(114) + b(80) = b(80) - lu(1823) * b(114) + b(79) = b(79) - lu(1822) * b(114) + b(77) = b(77) - lu(1821) * b(114) + b(76) = b(76) - lu(1820) * b(114) + b(73) = b(73) - lu(1819) * b(114) + b(72) = b(72) - lu(1818) * b(114) + b(70) = b(70) - lu(1817) * b(114) + b(69) = b(69) - lu(1816) * b(114) + b(68) = b(68) - lu(1815) * b(114) + b(66) = b(66) - lu(1814) * b(114) + b(60) = b(60) - lu(1813) * b(114) + b(53) = b(53) - lu(1812) * b(114) + b(52) = b(52) - lu(1811) * b(114) + b(51) = b(51) - lu(1810) * b(114) + b(50) = b(50) - lu(1809) * b(114) + b(48) = b(48) - lu(1808) * b(114) + b(41) = b(41) - lu(1807) * b(114) + b(40) = b(40) - lu(1806) * b(114) + b(37) = b(37) - lu(1805) * b(114) + b(36) = b(36) - lu(1804) * b(114) + b(31) = b(31) - lu(1803) * b(114) + b(30) = b(30) - lu(1802) * b(114) + b(29) = b(29) - lu(1801) * b(114) + b(26) = b(26) - lu(1800) * b(114) + b(22) = b(22) - lu(1799) * b(114) + b(113) = b(113) * lu(1797) + b(112) = b(112) - lu(1796) * b(113) + b(111) = b(111) - lu(1795) * b(113) + b(110) = b(110) - lu(1794) * b(113) + b(109) = b(109) - lu(1793) * b(113) + b(108) = b(108) - lu(1792) * b(113) + b(107) = b(107) - lu(1791) * b(113) + b(106) = b(106) - lu(1790) * b(113) + b(105) = b(105) - lu(1789) * b(113) + b(104) = b(104) - lu(1788) * b(113) + b(103) = b(103) - lu(1787) * b(113) + b(102) = b(102) - lu(1786) * b(113) + b(101) = b(101) - lu(1785) * b(113) + b(100) = b(100) - lu(1784) * b(113) + b(99) = b(99) - lu(1783) * b(113) + b(98) = b(98) - lu(1782) * b(113) + b(97) = b(97) - lu(1781) * b(113) + b(96) = b(96) - lu(1780) * b(113) + b(95) = b(95) - lu(1779) * b(113) + b(94) = b(94) - lu(1778) * b(113) + b(93) = b(93) - lu(1777) * b(113) + b(92) = b(92) - lu(1776) * b(113) + b(91) = b(91) - lu(1775) * b(113) + b(89) = b(89) - lu(1774) * b(113) + b(88) = b(88) - lu(1773) * b(113) + b(87) = b(87) - lu(1772) * b(113) + b(84) = b(84) - lu(1771) * b(113) + b(83) = b(83) - lu(1770) * b(113) + b(82) = b(82) - lu(1769) * b(113) + b(81) = b(81) - lu(1768) * b(113) + b(79) = b(79) - lu(1767) * b(113) + b(78) = b(78) - lu(1766) * b(113) + b(76) = b(76) - lu(1765) * b(113) + b(70) = b(70) - lu(1764) * b(113) + b(64) = b(64) - lu(1763) * b(113) + b(60) = b(60) - lu(1762) * b(113) + b(44) = b(44) - lu(1761) * b(113) + b(32) = b(32) - lu(1760) * b(113) + b(112) = b(112) * lu(1757) + b(111) = b(111) - lu(1756) * b(112) + b(110) = b(110) - lu(1755) * b(112) + b(109) = b(109) - lu(1754) * b(112) + b(108) = b(108) - lu(1753) * b(112) + b(107) = b(107) - lu(1752) * b(112) + b(106) = b(106) - lu(1751) * b(112) + b(105) = b(105) - lu(1750) * b(112) + b(104) = b(104) - lu(1749) * b(112) + b(103) = b(103) - lu(1748) * b(112) + b(102) = b(102) - lu(1747) * b(112) + b(101) = b(101) - lu(1746) * b(112) + b(100) = b(100) - lu(1745) * b(112) + b(99) = b(99) - lu(1744) * b(112) + b(98) = b(98) - lu(1743) * b(112) + b(97) = b(97) - lu(1742) * b(112) + b(96) = b(96) - lu(1741) * b(112) + b(95) = b(95) - lu(1740) * b(112) + b(94) = b(94) - lu(1739) * b(112) + b(93) = b(93) - lu(1738) * b(112) + b(92) = b(92) - lu(1737) * b(112) + b(91) = b(91) - lu(1736) * b(112) + b(89) = b(89) - lu(1735) * b(112) + b(87) = b(87) - lu(1734) * b(112) + b(86) = b(86) - lu(1733) * b(112) + b(73) = b(73) - lu(1732) * b(112) + b(50) = b(50) - lu(1731) * b(112) + b(111) = b(111) * lu(1727) + b(110) = b(110) - lu(1726) * b(111) + b(109) = b(109) - lu(1725) * b(111) + b(108) = b(108) - lu(1724) * b(111) + b(107) = b(107) - lu(1723) * b(111) + b(106) = b(106) - lu(1722) * b(111) + b(105) = b(105) - lu(1721) * b(111) + b(104) = b(104) - lu(1720) * b(111) + b(103) = b(103) - lu(1719) * b(111) + b(102) = b(102) - lu(1718) * b(111) + b(101) = b(101) - lu(1717) * b(111) + b(100) = b(100) - lu(1716) * b(111) + b(99) = b(99) - lu(1715) * b(111) + b(98) = b(98) - lu(1714) * b(111) + b(97) = b(97) - lu(1713) * b(111) + b(96) = b(96) - lu(1712) * b(111) + b(95) = b(95) - lu(1711) * b(111) + b(94) = b(94) - lu(1710) * b(111) + b(93) = b(93) - lu(1709) * b(111) + b(92) = b(92) - lu(1708) * b(111) + b(91) = b(91) - lu(1707) * b(111) + b(90) = b(90) - lu(1706) * b(111) + b(89) = b(89) - lu(1705) * b(111) + b(88) = b(88) - lu(1704) * b(111) + b(87) = b(87) - lu(1703) * b(111) + b(86) = b(86) - lu(1702) * b(111) + b(85) = b(85) - lu(1701) * b(111) + b(81) = b(81) - lu(1700) * b(111) + b(80) = b(80) - lu(1699) * b(111) + b(79) = b(79) - lu(1698) * b(111) + b(78) = b(78) - lu(1697) * b(111) + b(75) = b(75) - lu(1696) * b(111) + b(73) = b(73) - lu(1695) * b(111) + b(72) = b(72) - lu(1694) * b(111) + b(71) = b(71) - lu(1693) * b(111) + b(69) = b(69) - lu(1692) * b(111) + b(67) = b(67) - lu(1691) * b(111) + b(64) = b(64) - lu(1690) * b(111) + b(31) = b(31) - lu(1689) * b(111) + b(110) = b(110) * lu(1684) + b(109) = b(109) - lu(1683) * b(110) + b(108) = b(108) - lu(1682) * b(110) + b(107) = b(107) - lu(1681) * b(110) + b(106) = b(106) - lu(1680) * b(110) + b(105) = b(105) - lu(1679) * b(110) + b(104) = b(104) - lu(1678) * b(110) + b(103) = b(103) - lu(1677) * b(110) + b(102) = b(102) - lu(1676) * b(110) + b(101) = b(101) - lu(1675) * b(110) + b(100) = b(100) - lu(1674) * b(110) + b(99) = b(99) - lu(1673) * b(110) + b(98) = b(98) - lu(1672) * b(110) + b(97) = b(97) - lu(1671) * b(110) + b(96) = b(96) - lu(1670) * b(110) + b(95) = b(95) - lu(1669) * b(110) + b(94) = b(94) - lu(1668) * b(110) + b(93) = b(93) - lu(1667) * b(110) + b(92) = b(92) - lu(1666) * b(110) + b(91) = b(91) - lu(1665) * b(110) + b(90) = b(90) - lu(1664) * b(110) + b(89) = b(89) - lu(1663) * b(110) + b(88) = b(88) - lu(1662) * b(110) + b(87) = b(87) - lu(1661) * b(110) + b(86) = b(86) - lu(1660) * b(110) + b(84) = b(84) - lu(1659) * b(110) + b(83) = b(83) - lu(1658) * b(110) + b(77) = b(77) - lu(1657) * b(110) + b(74) = b(74) - lu(1656) * b(110) + b(68) = b(68) - lu(1655) * b(110) + b(59) = b(59) - lu(1654) * b(110) + b(109) = b(109) * lu(1648) + b(108) = b(108) - lu(1647) * b(109) + b(107) = b(107) - lu(1646) * b(109) + b(106) = b(106) - lu(1645) * b(109) + b(105) = b(105) - lu(1644) * b(109) + b(104) = b(104) - lu(1643) * b(109) + b(103) = b(103) - lu(1642) * b(109) + b(102) = b(102) - lu(1641) * b(109) + b(101) = b(101) - lu(1640) * b(109) + b(100) = b(100) - lu(1639) * b(109) + b(99) = b(99) - lu(1638) * b(109) + b(98) = b(98) - lu(1637) * b(109) + b(97) = b(97) - lu(1636) * b(109) + b(96) = b(96) - lu(1635) * b(109) + b(95) = b(95) - lu(1634) * b(109) + b(94) = b(94) - lu(1633) * b(109) + b(93) = b(93) - lu(1632) * b(109) + b(92) = b(92) - lu(1631) * b(109) + b(91) = b(91) - lu(1630) * b(109) + b(90) = b(90) - lu(1629) * b(109) + b(89) = b(89) - lu(1628) * b(109) + b(88) = b(88) - lu(1627) * b(109) + b(87) = b(87) - lu(1626) * b(109) + b(86) = b(86) - lu(1625) * b(109) + b(74) = b(74) - lu(1624) * b(109) + b(67) = b(67) - lu(1623) * b(109) + b(63) = b(63) - lu(1622) * b(109) end subroutine lu_slv06 - subroutine lu_slv07( avec_len, lu, b ) + subroutine lu_slv07( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,109) = b(k,109) * lu(k,1637) - b(k,108) = b(k,108) - lu(k,1636) * b(k,109) - b(k,107) = b(k,107) - lu(k,1635) * b(k,109) - b(k,106) = b(k,106) - lu(k,1634) * b(k,109) - b(k,105) = b(k,105) - lu(k,1633) * b(k,109) - b(k,104) = b(k,104) - lu(k,1632) * b(k,109) - b(k,103) = b(k,103) - lu(k,1631) * b(k,109) - b(k,102) = b(k,102) - lu(k,1630) * b(k,109) - b(k,101) = b(k,101) - lu(k,1629) * b(k,109) - b(k,100) = b(k,100) - lu(k,1628) * b(k,109) - b(k,99) = b(k,99) - lu(k,1627) * b(k,109) - b(k,98) = b(k,98) - lu(k,1626) * b(k,109) - b(k,97) = b(k,97) - lu(k,1625) * b(k,109) - b(k,96) = b(k,96) - lu(k,1624) * b(k,109) - b(k,95) = b(k,95) - lu(k,1623) * b(k,109) - b(k,94) = b(k,94) - lu(k,1622) * b(k,109) - b(k,93) = b(k,93) - lu(k,1621) * b(k,109) - b(k,92) = b(k,92) - lu(k,1620) * b(k,109) - b(k,91) = b(k,91) - lu(k,1619) * b(k,109) - b(k,90) = b(k,90) - lu(k,1618) * b(k,109) - b(k,89) = b(k,89) - lu(k,1617) * b(k,109) - b(k,88) = b(k,88) - lu(k,1616) * b(k,109) - b(k,87) = b(k,87) - lu(k,1615) * b(k,109) - b(k,86) = b(k,86) - lu(k,1614) * b(k,109) - b(k,74) = b(k,74) - lu(k,1613) * b(k,109) - b(k,67) = b(k,67) - lu(k,1612) * b(k,109) - b(k,63) = b(k,63) - lu(k,1611) * b(k,109) - b(k,108) = b(k,108) * lu(k,1604) - b(k,107) = b(k,107) - lu(k,1603) * b(k,108) - b(k,106) = b(k,106) - lu(k,1602) * b(k,108) - b(k,105) = b(k,105) - lu(k,1601) * b(k,108) - b(k,104) = b(k,104) - lu(k,1600) * b(k,108) - b(k,103) = b(k,103) - lu(k,1599) * b(k,108) - b(k,102) = b(k,102) - lu(k,1598) * b(k,108) - b(k,101) = b(k,101) - lu(k,1597) * b(k,108) - b(k,100) = b(k,100) - lu(k,1596) * b(k,108) - b(k,99) = b(k,99) - lu(k,1595) * b(k,108) - b(k,98) = b(k,98) - lu(k,1594) * b(k,108) - b(k,97) = b(k,97) - lu(k,1593) * b(k,108) - b(k,96) = b(k,96) - lu(k,1592) * b(k,108) - b(k,95) = b(k,95) - lu(k,1591) * b(k,108) - b(k,94) = b(k,94) - lu(k,1590) * b(k,108) - b(k,93) = b(k,93) - lu(k,1589) * b(k,108) - b(k,92) = b(k,92) - lu(k,1588) * b(k,108) - b(k,91) = b(k,91) - lu(k,1587) * b(k,108) - b(k,90) = b(k,90) - lu(k,1586) * b(k,108) - b(k,89) = b(k,89) - lu(k,1585) * b(k,108) - b(k,88) = b(k,88) - lu(k,1584) * b(k,108) - b(k,87) = b(k,87) - lu(k,1583) * b(k,108) - b(k,86) = b(k,86) - lu(k,1582) * b(k,108) - b(k,85) = b(k,85) - lu(k,1581) * b(k,108) - b(k,81) = b(k,81) - lu(k,1580) * b(k,108) - b(k,80) = b(k,80) - lu(k,1579) * b(k,108) - b(k,79) = b(k,79) - lu(k,1578) * b(k,108) - b(k,78) = b(k,78) - lu(k,1577) * b(k,108) - b(k,76) = b(k,76) - lu(k,1576) * b(k,108) - b(k,73) = b(k,73) - lu(k,1575) * b(k,108) - b(k,72) = b(k,72) - lu(k,1574) * b(k,108) - b(k,71) = b(k,71) - lu(k,1573) * b(k,108) - b(k,69) = b(k,69) - lu(k,1572) * b(k,108) - b(k,67) = b(k,67) - lu(k,1571) * b(k,108) - b(k,64) = b(k,64) - lu(k,1570) * b(k,108) - b(k,31) = b(k,31) - lu(k,1569) * b(k,108) - b(k,107) = b(k,107) * lu(k,1561) - b(k,106) = b(k,106) - lu(k,1560) * b(k,107) - b(k,105) = b(k,105) - lu(k,1559) * b(k,107) - b(k,104) = b(k,104) - lu(k,1558) * b(k,107) - b(k,103) = b(k,103) - lu(k,1557) * b(k,107) - b(k,102) = b(k,102) - lu(k,1556) * b(k,107) - b(k,101) = b(k,101) - lu(k,1555) * b(k,107) - b(k,100) = b(k,100) - lu(k,1554) * b(k,107) - b(k,99) = b(k,99) - lu(k,1553) * b(k,107) - b(k,98) = b(k,98) - lu(k,1552) * b(k,107) - b(k,97) = b(k,97) - lu(k,1551) * b(k,107) - b(k,96) = b(k,96) - lu(k,1550) * b(k,107) - b(k,95) = b(k,95) - lu(k,1549) * b(k,107) - b(k,94) = b(k,94) - lu(k,1548) * b(k,107) - b(k,93) = b(k,93) - lu(k,1547) * b(k,107) - b(k,92) = b(k,92) - lu(k,1546) * b(k,107) - b(k,89) = b(k,89) - lu(k,1545) * b(k,107) - b(k,88) = b(k,88) - lu(k,1544) * b(k,107) - b(k,84) = b(k,84) - lu(k,1543) * b(k,107) - b(k,68) = b(k,68) - lu(k,1542) * b(k,107) - b(k,65) = b(k,65) - lu(k,1541) * b(k,107) - b(k,61) = b(k,61) - lu(k,1540) * b(k,107) - b(k,56) = b(k,56) - lu(k,1539) * b(k,107) - b(k,55) = b(k,55) - lu(k,1538) * b(k,107) - b(k,52) = b(k,52) - lu(k,1537) * b(k,107) - b(k,51) = b(k,51) - lu(k,1536) * b(k,107) - b(k,50) = b(k,50) - lu(k,1535) * b(k,107) - b(k,48) = b(k,48) - lu(k,1534) * b(k,107) - b(k,47) = b(k,47) - lu(k,1533) * b(k,107) - b(k,43) = b(k,43) - lu(k,1532) * b(k,107) - b(k,42) = b(k,42) - lu(k,1531) * b(k,107) - b(k,41) = b(k,41) - lu(k,1530) * b(k,107) - b(k,40) = b(k,40) - lu(k,1529) * b(k,107) - b(k,37) = b(k,37) - lu(k,1528) * b(k,107) - b(k,36) = b(k,36) - lu(k,1527) * b(k,107) - b(k,106) = b(k,106) * lu(k,1518) - b(k,105) = b(k,105) - lu(k,1517) * b(k,106) - b(k,104) = b(k,104) - lu(k,1516) * b(k,106) - b(k,103) = b(k,103) - lu(k,1515) * b(k,106) - b(k,102) = b(k,102) - lu(k,1514) * b(k,106) - b(k,101) = b(k,101) - lu(k,1513) * b(k,106) - b(k,100) = b(k,100) - lu(k,1512) * b(k,106) - b(k,99) = b(k,99) - lu(k,1511) * b(k,106) - b(k,98) = b(k,98) - lu(k,1510) * b(k,106) - b(k,97) = b(k,97) - lu(k,1509) * b(k,106) - b(k,96) = b(k,96) - lu(k,1508) * b(k,106) - b(k,95) = b(k,95) - lu(k,1507) * b(k,106) - b(k,94) = b(k,94) - lu(k,1506) * b(k,106) - b(k,93) = b(k,93) - lu(k,1505) * b(k,106) - b(k,92) = b(k,92) - lu(k,1504) * b(k,106) - b(k,91) = b(k,91) - lu(k,1503) * b(k,106) - b(k,90) = b(k,90) - lu(k,1502) * b(k,106) - b(k,89) = b(k,89) - lu(k,1501) * b(k,106) - b(k,88) = b(k,88) - lu(k,1500) * b(k,106) - b(k,87) = b(k,87) - lu(k,1499) * b(k,106) - b(k,86) = b(k,86) - lu(k,1498) * b(k,106) - b(k,84) = b(k,84) - lu(k,1497) * b(k,106) - b(k,83) = b(k,83) - lu(k,1496) * b(k,106) - b(k,82) = b(k,82) - lu(k,1495) * b(k,106) - b(k,81) = b(k,81) - lu(k,1494) * b(k,106) - b(k,80) = b(k,80) - lu(k,1493) * b(k,106) - b(k,75) = b(k,75) - lu(k,1492) * b(k,106) - b(k,74) = b(k,74) - lu(k,1491) * b(k,106) - b(k,73) = b(k,73) - lu(k,1490) * b(k,106) - b(k,66) = b(k,66) - lu(k,1489) * b(k,106) - b(k,65) = b(k,65) - lu(k,1488) * b(k,106) - b(k,63) = b(k,63) - lu(k,1487) * b(k,106) - b(k,50) = b(k,50) - lu(k,1486) * b(k,106) - b(k,105) = b(k,105) * lu(k,1476) - b(k,104) = b(k,104) - lu(k,1475) * b(k,105) - b(k,103) = b(k,103) - lu(k,1474) * b(k,105) - b(k,102) = b(k,102) - lu(k,1473) * b(k,105) - b(k,101) = b(k,101) - lu(k,1472) * b(k,105) - b(k,100) = b(k,100) - lu(k,1471) * b(k,105) - b(k,99) = b(k,99) - lu(k,1470) * b(k,105) - b(k,98) = b(k,98) - lu(k,1469) * b(k,105) - b(k,97) = b(k,97) - lu(k,1468) * b(k,105) - b(k,96) = b(k,96) - lu(k,1467) * b(k,105) - b(k,95) = b(k,95) - lu(k,1466) * b(k,105) - b(k,94) = b(k,94) - lu(k,1465) * b(k,105) - b(k,93) = b(k,93) - lu(k,1464) * b(k,105) - b(k,92) = b(k,92) - lu(k,1463) * b(k,105) - b(k,91) = b(k,91) - lu(k,1462) * b(k,105) - b(k,90) = b(k,90) - lu(k,1461) * b(k,105) - b(k,89) = b(k,89) - lu(k,1460) * b(k,105) - b(k,88) = b(k,88) - lu(k,1459) * b(k,105) - b(k,87) = b(k,87) - lu(k,1458) * b(k,105) - b(k,86) = b(k,86) - lu(k,1457) * b(k,105) - b(k,85) = b(k,85) - lu(k,1456) * b(k,105) - b(k,84) = b(k,84) - lu(k,1455) * b(k,105) - b(k,83) = b(k,83) - lu(k,1454) * b(k,105) - b(k,82) = b(k,82) - lu(k,1453) * b(k,105) - b(k,77) = b(k,77) - lu(k,1452) * b(k,105) - b(k,75) = b(k,75) - lu(k,1451) * b(k,105) - b(k,66) = b(k,66) - lu(k,1450) * b(k,105) - b(k,63) = b(k,63) - lu(k,1449) * b(k,105) - b(k,62) = b(k,62) - lu(k,1448) * b(k,105) - b(k,57) = b(k,57) - lu(k,1447) * b(k,105) - b(k,46) = b(k,46) - lu(k,1446) * b(k,105) - b(k,44) = b(k,44) - lu(k,1445) * b(k,105) - b(k,24) = b(k,24) - lu(k,1444) * b(k,105) - b(k,104) = b(k,104) * lu(k,1433) - b(k,103) = b(k,103) - lu(k,1432) * b(k,104) - b(k,102) = b(k,102) - lu(k,1431) * b(k,104) - b(k,101) = b(k,101) - lu(k,1430) * b(k,104) - b(k,100) = b(k,100) - lu(k,1429) * b(k,104) - b(k,99) = b(k,99) - lu(k,1428) * b(k,104) - b(k,98) = b(k,98) - lu(k,1427) * b(k,104) - b(k,97) = b(k,97) - lu(k,1426) * b(k,104) - b(k,96) = b(k,96) - lu(k,1425) * b(k,104) - b(k,95) = b(k,95) - lu(k,1424) * b(k,104) - b(k,94) = b(k,94) - lu(k,1423) * b(k,104) - b(k,93) = b(k,93) - lu(k,1422) * b(k,104) - b(k,92) = b(k,92) - lu(k,1421) * b(k,104) - b(k,91) = b(k,91) - lu(k,1420) * b(k,104) - b(k,90) = b(k,90) - lu(k,1419) * b(k,104) - b(k,89) = b(k,89) - lu(k,1418) * b(k,104) - b(k,88) = b(k,88) - lu(k,1417) * b(k,104) - b(k,87) = b(k,87) - lu(k,1416) * b(k,104) - b(k,86) = b(k,86) - lu(k,1415) * b(k,104) - b(k,85) = b(k,85) - lu(k,1414) * b(k,104) - b(k,84) = b(k,84) - lu(k,1413) * b(k,104) - b(k,83) = b(k,83) - lu(k,1412) * b(k,104) - b(k,82) = b(k,82) - lu(k,1411) * b(k,104) - b(k,77) = b(k,77) - lu(k,1410) * b(k,104) - b(k,75) = b(k,75) - lu(k,1409) * b(k,104) - b(k,74) = b(k,74) - lu(k,1408) * b(k,104) - b(k,70) = b(k,70) - lu(k,1407) * b(k,104) - b(k,68) = b(k,68) - lu(k,1406) * b(k,104) - b(k,65) = b(k,65) - lu(k,1405) * b(k,104) - b(k,63) = b(k,63) - lu(k,1404) * b(k,104) - b(k,62) = b(k,62) - lu(k,1403) * b(k,104) - b(k,61) = b(k,61) - lu(k,1402) * b(k,104) - b(k,60) = b(k,60) - lu(k,1401) * b(k,104) - b(k,59) = b(k,59) - lu(k,1400) * b(k,104) - b(k,58) = b(k,58) - lu(k,1399) * b(k,104) - b(k,57) = b(k,57) - lu(k,1398) * b(k,104) - b(k,56) = b(k,56) - lu(k,1397) * b(k,104) - b(k,55) = b(k,55) - lu(k,1396) * b(k,104) - b(k,54) = b(k,54) - lu(k,1395) * b(k,104) - b(k,49) = b(k,49) - lu(k,1394) * b(k,104) - b(k,47) = b(k,47) - lu(k,1393) * b(k,104) - b(k,46) = b(k,46) - lu(k,1392) * b(k,104) - b(k,45) = b(k,45) - lu(k,1391) * b(k,104) - b(k,44) = b(k,44) - lu(k,1390) * b(k,104) - b(k,43) = b(k,43) - lu(k,1389) * b(k,104) - b(k,42) = b(k,42) - lu(k,1388) * b(k,104) - b(k,38) = b(k,38) - lu(k,1387) * b(k,104) - b(k,34) = b(k,34) - lu(k,1386) * b(k,104) - b(k,28) = b(k,28) - lu(k,1385) * b(k,104) - end do + b(108) = b(108) * lu(1615) + b(107) = b(107) - lu(1614) * b(108) + b(106) = b(106) - lu(1613) * b(108) + b(105) = b(105) - lu(1612) * b(108) + b(104) = b(104) - lu(1611) * b(108) + b(103) = b(103) - lu(1610) * b(108) + b(102) = b(102) - lu(1609) * b(108) + b(101) = b(101) - lu(1608) * b(108) + b(100) = b(100) - lu(1607) * b(108) + b(99) = b(99) - lu(1606) * b(108) + b(98) = b(98) - lu(1605) * b(108) + b(97) = b(97) - lu(1604) * b(108) + b(96) = b(96) - lu(1603) * b(108) + b(95) = b(95) - lu(1602) * b(108) + b(94) = b(94) - lu(1601) * b(108) + b(93) = b(93) - lu(1600) * b(108) + b(92) = b(92) - lu(1599) * b(108) + b(91) = b(91) - lu(1598) * b(108) + b(90) = b(90) - lu(1597) * b(108) + b(89) = b(89) - lu(1596) * b(108) + b(88) = b(88) - lu(1595) * b(108) + b(87) = b(87) - lu(1594) * b(108) + b(86) = b(86) - lu(1593) * b(108) + b(84) = b(84) - lu(1592) * b(108) + b(83) = b(83) - lu(1591) * b(108) + b(81) = b(81) - lu(1590) * b(108) + b(78) = b(78) - lu(1589) * b(108) + b(77) = b(77) - lu(1588) * b(108) + b(75) = b(75) - lu(1587) * b(108) + b(66) = b(66) - lu(1586) * b(108) + b(53) = b(53) - lu(1585) * b(108) + b(50) = b(50) - lu(1584) * b(108) + b(26) = b(26) - lu(1583) * b(108) + b(107) = b(107) * lu(1575) + b(106) = b(106) - lu(1574) * b(107) + b(105) = b(105) - lu(1573) * b(107) + b(104) = b(104) - lu(1572) * b(107) + b(103) = b(103) - lu(1571) * b(107) + b(102) = b(102) - lu(1570) * b(107) + b(101) = b(101) - lu(1569) * b(107) + b(100) = b(100) - lu(1568) * b(107) + b(99) = b(99) - lu(1567) * b(107) + b(98) = b(98) - lu(1566) * b(107) + b(97) = b(97) - lu(1565) * b(107) + b(96) = b(96) - lu(1564) * b(107) + b(95) = b(95) - lu(1563) * b(107) + b(94) = b(94) - lu(1562) * b(107) + b(93) = b(93) - lu(1561) * b(107) + b(92) = b(92) - lu(1560) * b(107) + b(91) = b(91) - lu(1559) * b(107) + b(90) = b(90) - lu(1558) * b(107) + b(89) = b(89) - lu(1557) * b(107) + b(88) = b(88) - lu(1556) * b(107) + b(87) = b(87) - lu(1555) * b(107) + b(86) = b(86) - lu(1554) * b(107) + b(85) = b(85) - lu(1553) * b(107) + b(81) = b(81) - lu(1552) * b(107) + b(80) = b(80) - lu(1551) * b(107) + b(79) = b(79) - lu(1550) * b(107) + b(78) = b(78) - lu(1549) * b(107) + b(75) = b(75) - lu(1548) * b(107) + b(73) = b(73) - lu(1547) * b(107) + b(72) = b(72) - lu(1546) * b(107) + b(71) = b(71) - lu(1545) * b(107) + b(69) = b(69) - lu(1544) * b(107) + b(67) = b(67) - lu(1543) * b(107) + b(64) = b(64) - lu(1542) * b(107) + b(30) = b(30) - lu(1541) * b(107) + b(106) = b(106) * lu(1532) + b(105) = b(105) - lu(1531) * b(106) + b(104) = b(104) - lu(1530) * b(106) + b(103) = b(103) - lu(1529) * b(106) + b(102) = b(102) - lu(1528) * b(106) + b(101) = b(101) - lu(1527) * b(106) + b(100) = b(100) - lu(1526) * b(106) + b(99) = b(99) - lu(1525) * b(106) + b(98) = b(98) - lu(1524) * b(106) + b(97) = b(97) - lu(1523) * b(106) + b(96) = b(96) - lu(1522) * b(106) + b(95) = b(95) - lu(1521) * b(106) + b(94) = b(94) - lu(1520) * b(106) + b(93) = b(93) - lu(1519) * b(106) + b(92) = b(92) - lu(1518) * b(106) + b(91) = b(91) - lu(1517) * b(106) + b(90) = b(90) - lu(1516) * b(106) + b(89) = b(89) - lu(1515) * b(106) + b(88) = b(88) - lu(1514) * b(106) + b(87) = b(87) - lu(1513) * b(106) + b(86) = b(86) - lu(1512) * b(106) + b(85) = b(85) - lu(1511) * b(106) + b(84) = b(84) - lu(1510) * b(106) + b(83) = b(83) - lu(1509) * b(106) + b(82) = b(82) - lu(1508) * b(106) + b(76) = b(76) - lu(1507) * b(106) + b(70) = b(70) - lu(1506) * b(106) + b(66) = b(66) - lu(1505) * b(106) + b(63) = b(63) - lu(1504) * b(106) + b(62) = b(62) - lu(1503) * b(106) + b(60) = b(60) - lu(1502) * b(106) + b(58) = b(58) - lu(1501) * b(106) + b(33) = b(33) - lu(1500) * b(106) + b(27) = b(27) - lu(1499) * b(106) + b(24) = b(24) - lu(1498) * b(106) + b(21) = b(21) - lu(1497) * b(106) + b(105) = b(105) * lu(1487) + b(104) = b(104) - lu(1486) * b(105) + b(103) = b(103) - lu(1485) * b(105) + b(102) = b(102) - lu(1484) * b(105) + b(101) = b(101) - lu(1483) * b(105) + b(100) = b(100) - lu(1482) * b(105) + b(99) = b(99) - lu(1481) * b(105) + b(98) = b(98) - lu(1480) * b(105) + b(97) = b(97) - lu(1479) * b(105) + b(96) = b(96) - lu(1478) * b(105) + b(95) = b(95) - lu(1477) * b(105) + b(94) = b(94) - lu(1476) * b(105) + b(93) = b(93) - lu(1475) * b(105) + b(92) = b(92) - lu(1474) * b(105) + b(91) = b(91) - lu(1473) * b(105) + b(90) = b(90) - lu(1472) * b(105) + b(89) = b(89) - lu(1471) * b(105) + b(88) = b(88) - lu(1470) * b(105) + b(87) = b(87) - lu(1469) * b(105) + b(86) = b(86) - lu(1468) * b(105) + b(85) = b(85) - lu(1467) * b(105) + b(84) = b(84) - lu(1466) * b(105) + b(83) = b(83) - lu(1465) * b(105) + b(77) = b(77) - lu(1464) * b(105) + b(74) = b(74) - lu(1463) * b(105) + b(51) = b(51) - lu(1462) * b(105) + b(104) = b(104) * lu(1451) + b(103) = b(103) - lu(1450) * b(104) + b(102) = b(102) - lu(1449) * b(104) + b(101) = b(101) - lu(1448) * b(104) + b(100) = b(100) - lu(1447) * b(104) + b(99) = b(99) - lu(1446) * b(104) + b(98) = b(98) - lu(1445) * b(104) + b(97) = b(97) - lu(1444) * b(104) + b(96) = b(96) - lu(1443) * b(104) + b(95) = b(95) - lu(1442) * b(104) + b(94) = b(94) - lu(1441) * b(104) + b(93) = b(93) - lu(1440) * b(104) + b(92) = b(92) - lu(1439) * b(104) + b(91) = b(91) - lu(1438) * b(104) + b(90) = b(90) - lu(1437) * b(104) + b(89) = b(89) - lu(1436) * b(104) + b(88) = b(88) - lu(1435) * b(104) + b(87) = b(87) - lu(1434) * b(104) + b(86) = b(86) - lu(1433) * b(104) + b(85) = b(85) - lu(1432) * b(104) + b(84) = b(84) - lu(1431) * b(104) + b(83) = b(83) - lu(1430) * b(104) + b(82) = b(82) - lu(1429) * b(104) + b(76) = b(76) - lu(1428) * b(104) + b(74) = b(74) - lu(1427) * b(104) + b(70) = b(70) - lu(1426) * b(104) + b(68) = b(68) - lu(1425) * b(104) + b(60) = b(60) - lu(1424) * b(104) + b(59) = b(59) - lu(1423) * b(104) + b(49) = b(49) - lu(1422) * b(104) + b(28) = b(28) - lu(1421) * b(104) + b(103) = b(103) * lu(1409) + b(102) = b(102) - lu(1408) * b(103) + b(101) = b(101) - lu(1407) * b(103) + b(100) = b(100) - lu(1406) * b(103) + b(99) = b(99) - lu(1405) * b(103) + b(98) = b(98) - lu(1404) * b(103) + b(97) = b(97) - lu(1403) * b(103) + b(96) = b(96) - lu(1402) * b(103) + b(95) = b(95) - lu(1401) * b(103) + b(94) = b(94) - lu(1400) * b(103) + b(93) = b(93) - lu(1399) * b(103) + b(92) = b(92) - lu(1398) * b(103) + b(91) = b(91) - lu(1397) * b(103) + b(90) = b(90) - lu(1396) * b(103) + b(89) = b(89) - lu(1395) * b(103) + b(88) = b(88) - lu(1394) * b(103) + b(87) = b(87) - lu(1393) * b(103) + b(86) = b(86) - lu(1392) * b(103) + b(85) = b(85) - lu(1391) * b(103) + b(84) = b(84) - lu(1390) * b(103) + b(81) = b(81) - lu(1389) * b(103) + b(80) = b(80) - lu(1388) * b(103) + b(79) = b(79) - lu(1387) * b(103) + b(78) = b(78) - lu(1386) * b(103) + b(75) = b(75) - lu(1385) * b(103) + b(73) = b(73) - lu(1384) * b(103) + b(72) = b(72) - lu(1383) * b(103) + b(71) = b(71) - lu(1382) * b(103) + b(69) = b(69) - lu(1381) * b(103) + b(68) = b(68) - lu(1380) * b(103) + b(67) = b(67) - lu(1379) * b(103) + b(65) = b(65) - lu(1378) * b(103) + b(52) = b(52) - lu(1377) * b(103) + b(102) = b(102) * lu(1364) + b(101) = b(101) - lu(1363) * b(102) + b(100) = b(100) - lu(1362) * b(102) + b(99) = b(99) - lu(1361) * b(102) + b(98) = b(98) - lu(1360) * b(102) + b(97) = b(97) - lu(1359) * b(102) + b(96) = b(96) - lu(1358) * b(102) + b(95) = b(95) - lu(1357) * b(102) + b(94) = b(94) - lu(1356) * b(102) + b(93) = b(93) - lu(1355) * b(102) + b(92) = b(92) - lu(1354) * b(102) + b(91) = b(91) - lu(1353) * b(102) + b(90) = b(90) - lu(1352) * b(102) + b(89) = b(89) - lu(1351) * b(102) + b(88) = b(88) - lu(1350) * b(102) + b(87) = b(87) - lu(1349) * b(102) + b(86) = b(86) - lu(1348) * b(102) + b(85) = b(85) - lu(1347) * b(102) + b(74) = b(74) - lu(1346) * b(102) + b(68) = b(68) - lu(1345) * b(102) + b(63) = b(63) - lu(1344) * b(102) + b(59) = b(59) - lu(1343) * b(102) + b(38) = b(38) - lu(1342) * b(102) end subroutine lu_slv07 - subroutine lu_slv08( avec_len, lu, b ) + subroutine lu_slv08( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,103) = b(k,103) * lu(k,1373) - b(k,102) = b(k,102) - lu(k,1372) * b(k,103) - b(k,101) = b(k,101) - lu(k,1371) * b(k,103) - b(k,100) = b(k,100) - lu(k,1370) * b(k,103) - b(k,99) = b(k,99) - lu(k,1369) * b(k,103) - b(k,98) = b(k,98) - lu(k,1368) * b(k,103) - b(k,97) = b(k,97) - lu(k,1367) * b(k,103) - b(k,96) = b(k,96) - lu(k,1366) * b(k,103) - b(k,95) = b(k,95) - lu(k,1365) * b(k,103) - b(k,94) = b(k,94) - lu(k,1364) * b(k,103) - b(k,93) = b(k,93) - lu(k,1363) * b(k,103) - b(k,92) = b(k,92) - lu(k,1362) * b(k,103) - b(k,91) = b(k,91) - lu(k,1361) * b(k,103) - b(k,90) = b(k,90) - lu(k,1360) * b(k,103) - b(k,89) = b(k,89) - lu(k,1359) * b(k,103) - b(k,88) = b(k,88) - lu(k,1358) * b(k,103) - b(k,87) = b(k,87) - lu(k,1357) * b(k,103) - b(k,86) = b(k,86) - lu(k,1356) * b(k,103) - b(k,85) = b(k,85) - lu(k,1355) * b(k,103) - b(k,84) = b(k,84) - lu(k,1354) * b(k,103) - b(k,81) = b(k,81) - lu(k,1353) * b(k,103) - b(k,80) = b(k,80) - lu(k,1352) * b(k,103) - b(k,79) = b(k,79) - lu(k,1351) * b(k,103) - b(k,78) = b(k,78) - lu(k,1350) * b(k,103) - b(k,76) = b(k,76) - lu(k,1349) * b(k,103) - b(k,73) = b(k,73) - lu(k,1348) * b(k,103) - b(k,72) = b(k,72) - lu(k,1347) * b(k,103) - b(k,71) = b(k,71) - lu(k,1346) * b(k,103) - b(k,69) = b(k,69) - lu(k,1345) * b(k,103) - b(k,68) = b(k,68) - lu(k,1344) * b(k,103) - b(k,67) = b(k,67) - lu(k,1343) * b(k,103) - b(k,65) = b(k,65) - lu(k,1342) * b(k,103) - b(k,52) = b(k,52) - lu(k,1341) * b(k,103) - b(k,102) = b(k,102) * lu(k,1328) - b(k,101) = b(k,101) - lu(k,1327) * b(k,102) - b(k,100) = b(k,100) - lu(k,1326) * b(k,102) - b(k,99) = b(k,99) - lu(k,1325) * b(k,102) - b(k,98) = b(k,98) - lu(k,1324) * b(k,102) - b(k,97) = b(k,97) - lu(k,1323) * b(k,102) - b(k,96) = b(k,96) - lu(k,1322) * b(k,102) - b(k,95) = b(k,95) - lu(k,1321) * b(k,102) - b(k,94) = b(k,94) - lu(k,1320) * b(k,102) - b(k,93) = b(k,93) - lu(k,1319) * b(k,102) - b(k,92) = b(k,92) - lu(k,1318) * b(k,102) - b(k,91) = b(k,91) - lu(k,1317) * b(k,102) - b(k,90) = b(k,90) - lu(k,1316) * b(k,102) - b(k,89) = b(k,89) - lu(k,1315) * b(k,102) - b(k,88) = b(k,88) - lu(k,1314) * b(k,102) - b(k,87) = b(k,87) - lu(k,1313) * b(k,102) - b(k,86) = b(k,86) - lu(k,1312) * b(k,102) - b(k,85) = b(k,85) - lu(k,1311) * b(k,102) - b(k,74) = b(k,74) - lu(k,1310) * b(k,102) - b(k,68) = b(k,68) - lu(k,1309) * b(k,102) - b(k,63) = b(k,63) - lu(k,1308) * b(k,102) - b(k,59) = b(k,59) - lu(k,1307) * b(k,102) - b(k,38) = b(k,38) - lu(k,1306) * b(k,102) - b(k,101) = b(k,101) * lu(k,1292) - b(k,100) = b(k,100) - lu(k,1291) * b(k,101) - b(k,99) = b(k,99) - lu(k,1290) * b(k,101) - b(k,98) = b(k,98) - lu(k,1289) * b(k,101) - b(k,97) = b(k,97) - lu(k,1288) * b(k,101) - b(k,96) = b(k,96) - lu(k,1287) * b(k,101) - b(k,95) = b(k,95) - lu(k,1286) * b(k,101) - b(k,94) = b(k,94) - lu(k,1285) * b(k,101) - b(k,93) = b(k,93) - lu(k,1284) * b(k,101) - b(k,92) = b(k,92) - lu(k,1283) * b(k,101) - b(k,91) = b(k,91) - lu(k,1282) * b(k,101) - b(k,90) = b(k,90) - lu(k,1281) * b(k,101) - b(k,89) = b(k,89) - lu(k,1280) * b(k,101) - b(k,88) = b(k,88) - lu(k,1279) * b(k,101) - b(k,87) = b(k,87) - lu(k,1278) * b(k,101) - b(k,86) = b(k,86) - lu(k,1277) * b(k,101) - b(k,84) = b(k,84) - lu(k,1276) * b(k,101) - b(k,83) = b(k,83) - lu(k,1275) * b(k,101) - b(k,81) = b(k,81) - lu(k,1274) * b(k,101) - b(k,78) = b(k,78) - lu(k,1273) * b(k,101) - b(k,77) = b(k,77) - lu(k,1272) * b(k,101) - b(k,76) = b(k,76) - lu(k,1271) * b(k,101) - b(k,66) = b(k,66) - lu(k,1270) * b(k,101) - b(k,53) = b(k,53) - lu(k,1269) * b(k,101) - b(k,50) = b(k,50) - lu(k,1268) * b(k,101) - b(k,26) = b(k,26) - lu(k,1267) * b(k,101) - b(k,100) = b(k,100) * lu(k,1252) - b(k,99) = b(k,99) - lu(k,1251) * b(k,100) - b(k,98) = b(k,98) - lu(k,1250) * b(k,100) - b(k,97) = b(k,97) - lu(k,1249) * b(k,100) - b(k,96) = b(k,96) - lu(k,1248) * b(k,100) - b(k,95) = b(k,95) - lu(k,1247) * b(k,100) - b(k,94) = b(k,94) - lu(k,1246) * b(k,100) - b(k,93) = b(k,93) - lu(k,1245) * b(k,100) - b(k,92) = b(k,92) - lu(k,1244) * b(k,100) - b(k,91) = b(k,91) - lu(k,1243) * b(k,100) - b(k,90) = b(k,90) - lu(k,1242) * b(k,100) - b(k,89) = b(k,89) - lu(k,1241) * b(k,100) - b(k,88) = b(k,88) - lu(k,1240) * b(k,100) - b(k,87) = b(k,87) - lu(k,1239) * b(k,100) - b(k,86) = b(k,86) - lu(k,1238) * b(k,100) - b(k,85) = b(k,85) - lu(k,1237) * b(k,100) - b(k,84) = b(k,84) - lu(k,1236) * b(k,100) - b(k,83) = b(k,83) - lu(k,1235) * b(k,100) - b(k,82) = b(k,82) - lu(k,1234) * b(k,100) - b(k,75) = b(k,75) - lu(k,1233) * b(k,100) - b(k,74) = b(k,74) - lu(k,1232) * b(k,100) - b(k,70) = b(k,70) - lu(k,1231) * b(k,100) - b(k,68) = b(k,68) - lu(k,1230) * b(k,100) - b(k,65) = b(k,65) - lu(k,1229) * b(k,100) - b(k,61) = b(k,61) - lu(k,1228) * b(k,100) - b(k,60) = b(k,60) - lu(k,1227) * b(k,100) - b(k,59) = b(k,59) - lu(k,1226) * b(k,100) - b(k,56) = b(k,56) - lu(k,1225) * b(k,100) - b(k,55) = b(k,55) - lu(k,1224) * b(k,100) - b(k,49) = b(k,49) - lu(k,1223) * b(k,100) - b(k,47) = b(k,47) - lu(k,1222) * b(k,100) - b(k,43) = b(k,43) - lu(k,1221) * b(k,100) - b(k,42) = b(k,42) - lu(k,1220) * b(k,100) - b(k,38) = b(k,38) - lu(k,1219) * b(k,100) - b(k,28) = b(k,28) - lu(k,1218) * b(k,100) - b(k,99) = b(k,99) * lu(k,1202) - b(k,98) = b(k,98) - lu(k,1201) * b(k,99) - b(k,97) = b(k,97) - lu(k,1200) * b(k,99) - b(k,96) = b(k,96) - lu(k,1199) * b(k,99) - b(k,95) = b(k,95) - lu(k,1198) * b(k,99) - b(k,94) = b(k,94) - lu(k,1197) * b(k,99) - b(k,93) = b(k,93) - lu(k,1196) * b(k,99) - b(k,92) = b(k,92) - lu(k,1195) * b(k,99) - b(k,91) = b(k,91) - lu(k,1194) * b(k,99) - b(k,90) = b(k,90) - lu(k,1193) * b(k,99) - b(k,89) = b(k,89) - lu(k,1192) * b(k,99) - b(k,88) = b(k,88) - lu(k,1191) * b(k,99) - b(k,87) = b(k,87) - lu(k,1190) * b(k,99) - b(k,86) = b(k,86) - lu(k,1189) * b(k,99) - b(k,85) = b(k,85) - lu(k,1188) * b(k,99) - b(k,84) = b(k,84) - lu(k,1187) * b(k,99) - b(k,83) = b(k,83) - lu(k,1186) * b(k,99) - b(k,82) = b(k,82) - lu(k,1185) * b(k,99) - b(k,75) = b(k,75) - lu(k,1184) * b(k,99) - b(k,74) = b(k,74) - lu(k,1183) * b(k,99) - b(k,70) = b(k,70) - lu(k,1182) * b(k,99) - b(k,68) = b(k,68) - lu(k,1181) * b(k,99) - b(k,60) = b(k,60) - lu(k,1180) * b(k,99) - b(k,59) = b(k,59) - lu(k,1179) * b(k,99) - b(k,49) = b(k,49) - lu(k,1178) * b(k,99) - b(k,28) = b(k,28) - lu(k,1177) * b(k,99) - b(k,98) = b(k,98) * lu(k,1160) - b(k,97) = b(k,97) - lu(k,1159) * b(k,98) - b(k,96) = b(k,96) - lu(k,1158) * b(k,98) - b(k,95) = b(k,95) - lu(k,1157) * b(k,98) - b(k,94) = b(k,94) - lu(k,1156) * b(k,98) - b(k,93) = b(k,93) - lu(k,1155) * b(k,98) - b(k,92) = b(k,92) - lu(k,1154) * b(k,98) - b(k,91) = b(k,91) - lu(k,1153) * b(k,98) - b(k,90) = b(k,90) - lu(k,1152) * b(k,98) - b(k,89) = b(k,89) - lu(k,1151) * b(k,98) - b(k,88) = b(k,88) - lu(k,1150) * b(k,98) - b(k,87) = b(k,87) - lu(k,1149) * b(k,98) - b(k,86) = b(k,86) - lu(k,1148) * b(k,98) - b(k,85) = b(k,85) - lu(k,1147) * b(k,98) - b(k,84) = b(k,84) - lu(k,1146) * b(k,98) - b(k,83) = b(k,83) - lu(k,1145) * b(k,98) - b(k,82) = b(k,82) - lu(k,1144) * b(k,98) - b(k,78) = b(k,78) - lu(k,1143) * b(k,98) - b(k,76) = b(k,76) - lu(k,1142) * b(k,98) - b(k,75) = b(k,75) - lu(k,1141) * b(k,98) - b(k,72) = b(k,72) - lu(k,1140) * b(k,98) - b(k,71) = b(k,71) - lu(k,1139) * b(k,98) - b(k,62) = b(k,62) - lu(k,1138) * b(k,98) - b(k,57) = b(k,57) - lu(k,1137) * b(k,98) - b(k,54) = b(k,54) - lu(k,1136) * b(k,98) - b(k,50) = b(k,50) - lu(k,1135) * b(k,98) - b(k,27) = b(k,27) - lu(k,1134) * b(k,98) - b(k,24) = b(k,24) - lu(k,1133) * b(k,98) - b(k,97) = b(k,97) * lu(k,1115) - b(k,96) = b(k,96) - lu(k,1114) * b(k,97) - b(k,95) = b(k,95) - lu(k,1113) * b(k,97) - b(k,94) = b(k,94) - lu(k,1112) * b(k,97) - b(k,93) = b(k,93) - lu(k,1111) * b(k,97) - b(k,92) = b(k,92) - lu(k,1110) * b(k,97) - b(k,91) = b(k,91) - lu(k,1109) * b(k,97) - b(k,89) = b(k,89) - lu(k,1108) * b(k,97) - b(k,88) = b(k,88) - lu(k,1107) * b(k,97) - b(k,87) = b(k,87) - lu(k,1106) * b(k,97) - b(k,84) = b(k,84) - lu(k,1105) * b(k,97) - b(k,83) = b(k,83) - lu(k,1104) * b(k,97) - b(k,82) = b(k,82) - lu(k,1103) * b(k,97) - b(k,81) = b(k,81) - lu(k,1102) * b(k,97) - b(k,79) = b(k,79) - lu(k,1101) * b(k,97) - b(k,78) = b(k,78) - lu(k,1100) * b(k,97) - b(k,75) = b(k,75) - lu(k,1099) * b(k,97) - b(k,70) = b(k,70) - lu(k,1098) * b(k,97) - b(k,64) = b(k,64) - lu(k,1097) * b(k,97) - b(k,60) = b(k,60) - lu(k,1096) * b(k,97) - b(k,44) = b(k,44) - lu(k,1095) * b(k,97) - b(k,32) = b(k,32) - lu(k,1094) * b(k,97) - b(k,96) = b(k,96) * lu(k,1075) - b(k,95) = b(k,95) - lu(k,1074) * b(k,96) - b(k,94) = b(k,94) - lu(k,1073) * b(k,96) - b(k,93) = b(k,93) - lu(k,1072) * b(k,96) - b(k,92) = b(k,92) - lu(k,1071) * b(k,96) - b(k,91) = b(k,91) - lu(k,1070) * b(k,96) - b(k,90) = b(k,90) - lu(k,1069) * b(k,96) - b(k,89) = b(k,89) - lu(k,1068) * b(k,96) - b(k,88) = b(k,88) - lu(k,1067) * b(k,96) - b(k,87) = b(k,87) - lu(k,1066) * b(k,96) - b(k,86) = b(k,86) - lu(k,1065) * b(k,96) - b(k,85) = b(k,85) - lu(k,1064) * b(k,96) - b(k,81) = b(k,81) - lu(k,1063) * b(k,96) - b(k,80) = b(k,80) - lu(k,1062) * b(k,96) - b(k,79) = b(k,79) - lu(k,1061) * b(k,96) - b(k,78) = b(k,78) - lu(k,1060) * b(k,96) - b(k,76) = b(k,76) - lu(k,1059) * b(k,96) - b(k,73) = b(k,73) - lu(k,1058) * b(k,96) - b(k,72) = b(k,72) - lu(k,1057) * b(k,96) - b(k,71) = b(k,71) - lu(k,1056) * b(k,96) - b(k,69) = b(k,69) - lu(k,1055) * b(k,96) - b(k,67) = b(k,67) - lu(k,1054) * b(k,96) - b(k,51) = b(k,51) - lu(k,1053) * b(k,96) - end do + b(101) = b(101) * lu(1328) + b(100) = b(100) - lu(1327) * b(101) + b(99) = b(99) - lu(1326) * b(101) + b(98) = b(98) - lu(1325) * b(101) + b(97) = b(97) - lu(1324) * b(101) + b(96) = b(96) - lu(1323) * b(101) + b(95) = b(95) - lu(1322) * b(101) + b(94) = b(94) - lu(1321) * b(101) + b(93) = b(93) - lu(1320) * b(101) + b(92) = b(92) - lu(1319) * b(101) + b(91) = b(91) - lu(1318) * b(101) + b(90) = b(90) - lu(1317) * b(101) + b(89) = b(89) - lu(1316) * b(101) + b(88) = b(88) - lu(1315) * b(101) + b(87) = b(87) - lu(1314) * b(101) + b(86) = b(86) - lu(1313) * b(101) + b(85) = b(85) - lu(1312) * b(101) + b(84) = b(84) - lu(1311) * b(101) + b(83) = b(83) - lu(1310) * b(101) + b(82) = b(82) - lu(1309) * b(101) + b(78) = b(78) - lu(1308) * b(101) + b(76) = b(76) - lu(1307) * b(101) + b(75) = b(75) - lu(1306) * b(101) + b(72) = b(72) - lu(1305) * b(101) + b(71) = b(71) - lu(1304) * b(101) + b(62) = b(62) - lu(1303) * b(101) + b(58) = b(58) - lu(1302) * b(101) + b(54) = b(54) - lu(1301) * b(101) + b(50) = b(50) - lu(1300) * b(101) + b(27) = b(27) - lu(1299) * b(101) + b(24) = b(24) - lu(1298) * b(101) + b(100) = b(100) * lu(1283) + b(99) = b(99) - lu(1282) * b(100) + b(98) = b(98) - lu(1281) * b(100) + b(97) = b(97) - lu(1280) * b(100) + b(96) = b(96) - lu(1279) * b(100) + b(95) = b(95) - lu(1278) * b(100) + b(94) = b(94) - lu(1277) * b(100) + b(93) = b(93) - lu(1276) * b(100) + b(92) = b(92) - lu(1275) * b(100) + b(91) = b(91) - lu(1274) * b(100) + b(90) = b(90) - lu(1273) * b(100) + b(89) = b(89) - lu(1272) * b(100) + b(88) = b(88) - lu(1271) * b(100) + b(87) = b(87) - lu(1270) * b(100) + b(86) = b(86) - lu(1269) * b(100) + b(85) = b(85) - lu(1268) * b(100) + b(84) = b(84) - lu(1267) * b(100) + b(83) = b(83) - lu(1266) * b(100) + b(82) = b(82) - lu(1265) * b(100) + b(77) = b(77) - lu(1264) * b(100) + b(76) = b(76) - lu(1263) * b(100) + b(66) = b(66) - lu(1262) * b(100) + b(63) = b(63) - lu(1261) * b(100) + b(62) = b(62) - lu(1260) * b(100) + b(58) = b(58) - lu(1259) * b(100) + b(46) = b(46) - lu(1258) * b(100) + b(44) = b(44) - lu(1257) * b(100) + b(24) = b(24) - lu(1256) * b(100) + b(99) = b(99) * lu(1240) + b(98) = b(98) - lu(1239) * b(99) + b(97) = b(97) - lu(1238) * b(99) + b(96) = b(96) - lu(1237) * b(99) + b(95) = b(95) - lu(1236) * b(99) + b(94) = b(94) - lu(1235) * b(99) + b(93) = b(93) - lu(1234) * b(99) + b(92) = b(92) - lu(1233) * b(99) + b(91) = b(91) - lu(1232) * b(99) + b(90) = b(90) - lu(1231) * b(99) + b(89) = b(89) - lu(1230) * b(99) + b(88) = b(88) - lu(1229) * b(99) + b(87) = b(87) - lu(1228) * b(99) + b(86) = b(86) - lu(1227) * b(99) + b(85) = b(85) - lu(1226) * b(99) + b(84) = b(84) - lu(1225) * b(99) + b(83) = b(83) - lu(1224) * b(99) + b(82) = b(82) - lu(1223) * b(99) + b(77) = b(77) - lu(1222) * b(99) + b(76) = b(76) - lu(1221) * b(99) + b(74) = b(74) - lu(1220) * b(99) + b(70) = b(70) - lu(1219) * b(99) + b(68) = b(68) - lu(1218) * b(99) + b(65) = b(65) - lu(1217) * b(99) + b(63) = b(63) - lu(1216) * b(99) + b(62) = b(62) - lu(1215) * b(99) + b(61) = b(61) - lu(1214) * b(99) + b(60) = b(60) - lu(1213) * b(99) + b(59) = b(59) - lu(1212) * b(99) + b(58) = b(58) - lu(1211) * b(99) + b(57) = b(57) - lu(1210) * b(99) + b(56) = b(56) - lu(1209) * b(99) + b(55) = b(55) - lu(1208) * b(99) + b(54) = b(54) - lu(1207) * b(99) + b(49) = b(49) - lu(1206) * b(99) + b(47) = b(47) - lu(1205) * b(99) + b(46) = b(46) - lu(1204) * b(99) + b(45) = b(45) - lu(1203) * b(99) + b(44) = b(44) - lu(1202) * b(99) + b(43) = b(43) - lu(1201) * b(99) + b(42) = b(42) - lu(1200) * b(99) + b(38) = b(38) - lu(1199) * b(99) + b(34) = b(34) - lu(1198) * b(99) + b(28) = b(28) - lu(1197) * b(99) + b(98) = b(98) * lu(1180) + b(97) = b(97) - lu(1179) * b(98) + b(96) = b(96) - lu(1178) * b(98) + b(95) = b(95) - lu(1177) * b(98) + b(94) = b(94) - lu(1176) * b(98) + b(93) = b(93) - lu(1175) * b(98) + b(92) = b(92) - lu(1174) * b(98) + b(91) = b(91) - lu(1173) * b(98) + b(90) = b(90) - lu(1172) * b(98) + b(89) = b(89) - lu(1171) * b(98) + b(88) = b(88) - lu(1170) * b(98) + b(87) = b(87) - lu(1169) * b(98) + b(86) = b(86) - lu(1168) * b(98) + b(84) = b(84) - lu(1167) * b(98) + b(83) = b(83) - lu(1166) * b(98) + b(82) = b(82) - lu(1165) * b(98) + b(81) = b(81) - lu(1164) * b(98) + b(80) = b(80) - lu(1163) * b(98) + b(76) = b(76) - lu(1162) * b(98) + b(74) = b(74) - lu(1161) * b(98) + b(73) = b(73) - lu(1160) * b(98) + b(66) = b(66) - lu(1159) * b(98) + b(65) = b(65) - lu(1158) * b(98) + b(63) = b(63) - lu(1157) * b(98) + b(50) = b(50) - lu(1156) * b(98) + b(97) = b(97) * lu(1138) + b(96) = b(96) - lu(1137) * b(97) + b(95) = b(95) - lu(1136) * b(97) + b(94) = b(94) - lu(1135) * b(97) + b(93) = b(93) - lu(1134) * b(97) + b(92) = b(92) - lu(1133) * b(97) + b(91) = b(91) - lu(1132) * b(97) + b(90) = b(90) - lu(1131) * b(97) + b(89) = b(89) - lu(1130) * b(97) + b(88) = b(88) - lu(1129) * b(97) + b(87) = b(87) - lu(1128) * b(97) + b(86) = b(86) - lu(1127) * b(97) + b(85) = b(85) - lu(1126) * b(97) + b(81) = b(81) - lu(1125) * b(97) + b(80) = b(80) - lu(1124) * b(97) + b(79) = b(79) - lu(1123) * b(97) + b(78) = b(78) - lu(1122) * b(97) + b(75) = b(75) - lu(1121) * b(97) + b(73) = b(73) - lu(1120) * b(97) + b(72) = b(72) - lu(1119) * b(97) + b(71) = b(71) - lu(1118) * b(97) + b(69) = b(69) - lu(1117) * b(97) + b(67) = b(67) - lu(1116) * b(97) + b(51) = b(51) - lu(1115) * b(97) + b(96) = b(96) * lu(1096) + b(95) = b(95) - lu(1095) * b(96) + b(94) = b(94) - lu(1094) * b(96) + b(93) = b(93) - lu(1093) * b(96) + b(92) = b(92) - lu(1092) * b(96) + b(91) = b(91) - lu(1091) * b(96) + b(90) = b(90) - lu(1090) * b(96) + b(89) = b(89) - lu(1089) * b(96) + b(88) = b(88) - lu(1088) * b(96) + b(87) = b(87) - lu(1087) * b(96) + b(86) = b(86) - lu(1086) * b(96) + b(84) = b(84) - lu(1085) * b(96) + b(83) = b(83) - lu(1084) * b(96) + b(82) = b(82) - lu(1083) * b(96) + b(81) = b(81) - lu(1082) * b(96) + b(80) = b(80) - lu(1081) * b(96) + b(79) = b(79) - lu(1080) * b(96) + b(78) = b(78) - lu(1079) * b(96) + b(76) = b(76) - lu(1078) * b(96) + b(74) = b(74) - lu(1077) * b(96) + b(70) = b(70) - lu(1076) * b(96) + b(65) = b(65) - lu(1075) * b(96) + b(64) = b(64) - lu(1074) * b(96) + b(62) = b(62) - lu(1073) * b(96) + b(60) = b(60) - lu(1072) * b(96) + b(54) = b(54) - lu(1071) * b(96) + b(45) = b(45) - lu(1070) * b(96) + b(39) = b(39) - lu(1069) * b(96) + b(95) = b(95) * lu(1049) + b(94) = b(94) - lu(1048) * b(95) + b(93) = b(93) - lu(1047) * b(95) + b(92) = b(92) - lu(1046) * b(95) + b(91) = b(91) - lu(1045) * b(95) + b(90) = b(90) - lu(1044) * b(95) + b(89) = b(89) - lu(1043) * b(95) + b(88) = b(88) - lu(1042) * b(95) + b(87) = b(87) - lu(1041) * b(95) + b(86) = b(86) - lu(1040) * b(95) + b(85) = b(85) - lu(1039) * b(95) + b(84) = b(84) - lu(1038) * b(95) + b(83) = b(83) - lu(1037) * b(95) + b(82) = b(82) - lu(1036) * b(95) + b(76) = b(76) - lu(1035) * b(95) + b(74) = b(74) - lu(1034) * b(95) + b(70) = b(70) - lu(1033) * b(95) + b(68) = b(68) - lu(1032) * b(95) + b(65) = b(65) - lu(1031) * b(95) + b(61) = b(61) - lu(1030) * b(95) + b(60) = b(60) - lu(1029) * b(95) + b(59) = b(59) - lu(1028) * b(95) + b(56) = b(56) - lu(1027) * b(95) + b(55) = b(55) - lu(1026) * b(95) + b(49) = b(49) - lu(1025) * b(95) + b(47) = b(47) - lu(1024) * b(95) + b(43) = b(43) - lu(1023) * b(95) + b(42) = b(42) - lu(1022) * b(95) + b(38) = b(38) - lu(1021) * b(95) + b(28) = b(28) - lu(1020) * b(95) end subroutine lu_slv08 - subroutine lu_slv09( avec_len, lu, b ) + subroutine lu_slv09( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,95) = b(k,95) * lu(k,1033) - b(k,94) = b(k,94) - lu(k,1032) * b(k,95) - b(k,93) = b(k,93) - lu(k,1031) * b(k,95) - b(k,92) = b(k,92) - lu(k,1030) * b(k,95) - b(k,91) = b(k,91) - lu(k,1029) * b(k,95) - b(k,90) = b(k,90) - lu(k,1028) * b(k,95) - b(k,89) = b(k,89) - lu(k,1027) * b(k,95) - b(k,88) = b(k,88) - lu(k,1026) * b(k,95) - b(k,87) = b(k,87) - lu(k,1025) * b(k,95) - b(k,86) = b(k,86) - lu(k,1024) * b(k,95) - b(k,85) = b(k,85) - lu(k,1023) * b(k,95) - b(k,81) = b(k,81) - lu(k,1022) * b(k,95) - b(k,80) = b(k,80) - lu(k,1021) * b(k,95) - b(k,79) = b(k,79) - lu(k,1020) * b(k,95) - b(k,78) = b(k,78) - lu(k,1019) * b(k,95) - b(k,76) = b(k,76) - lu(k,1018) * b(k,95) - b(k,73) = b(k,73) - lu(k,1017) * b(k,95) - b(k,72) = b(k,72) - lu(k,1016) * b(k,95) - b(k,71) = b(k,71) - lu(k,1015) * b(k,95) - b(k,69) = b(k,69) - lu(k,1014) * b(k,95) - b(k,67) = b(k,67) - lu(k,1013) * b(k,95) - b(k,51) = b(k,51) - lu(k,1012) * b(k,95) - b(k,48) = b(k,48) - lu(k,1011) * b(k,95) - b(k,94) = b(k,94) * lu(k,990) - b(k,93) = b(k,93) - lu(k,989) * b(k,94) - b(k,92) = b(k,92) - lu(k,988) * b(k,94) - b(k,91) = b(k,91) - lu(k,987) * b(k,94) - b(k,90) = b(k,90) - lu(k,986) * b(k,94) - b(k,89) = b(k,89) - lu(k,985) * b(k,94) - b(k,88) = b(k,88) - lu(k,984) * b(k,94) - b(k,87) = b(k,87) - lu(k,983) * b(k,94) - b(k,86) = b(k,86) - lu(k,982) * b(k,94) - b(k,84) = b(k,84) - lu(k,981) * b(k,94) - b(k,83) = b(k,83) - lu(k,980) * b(k,94) - b(k,82) = b(k,82) - lu(k,979) * b(k,94) - b(k,81) = b(k,81) - lu(k,978) * b(k,94) - b(k,80) = b(k,80) - lu(k,977) * b(k,94) - b(k,79) = b(k,79) - lu(k,976) * b(k,94) - b(k,78) = b(k,78) - lu(k,975) * b(k,94) - b(k,75) = b(k,75) - lu(k,974) * b(k,94) - b(k,74) = b(k,74) - lu(k,973) * b(k,94) - b(k,70) = b(k,70) - lu(k,972) * b(k,94) - b(k,65) = b(k,65) - lu(k,971) * b(k,94) - b(k,64) = b(k,64) - lu(k,970) * b(k,94) - b(k,62) = b(k,62) - lu(k,969) * b(k,94) - b(k,60) = b(k,60) - lu(k,968) * b(k,94) - b(k,54) = b(k,54) - lu(k,967) * b(k,94) - b(k,45) = b(k,45) - lu(k,966) * b(k,94) - b(k,39) = b(k,39) - lu(k,965) * b(k,94) - b(k,93) = b(k,93) * lu(k,943) - b(k,92) = b(k,92) - lu(k,942) * b(k,93) - b(k,91) = b(k,91) - lu(k,941) * b(k,93) - b(k,90) = b(k,90) - lu(k,940) * b(k,93) - b(k,89) = b(k,89) - lu(k,939) * b(k,93) - b(k,88) = b(k,88) - lu(k,938) * b(k,93) - b(k,87) = b(k,87) - lu(k,937) * b(k,93) - b(k,86) = b(k,86) - lu(k,936) * b(k,93) - b(k,85) = b(k,85) - lu(k,935) * b(k,93) - b(k,81) = b(k,81) - lu(k,934) * b(k,93) - b(k,80) = b(k,80) - lu(k,933) * b(k,93) - b(k,79) = b(k,79) - lu(k,932) * b(k,93) - b(k,78) = b(k,78) - lu(k,931) * b(k,93) - b(k,76) = b(k,76) - lu(k,930) * b(k,93) - b(k,73) = b(k,73) - lu(k,929) * b(k,93) - b(k,72) = b(k,72) - lu(k,928) * b(k,93) - b(k,71) = b(k,71) - lu(k,927) * b(k,93) - b(k,69) = b(k,69) - lu(k,926) * b(k,93) - b(k,67) = b(k,67) - lu(k,925) * b(k,93) - b(k,50) = b(k,50) - lu(k,924) * b(k,93) - b(k,37) = b(k,37) - lu(k,923) * b(k,93) - b(k,92) = b(k,92) * lu(k,900) - b(k,91) = b(k,91) - lu(k,899) * b(k,92) - b(k,90) = b(k,90) - lu(k,898) * b(k,92) - b(k,89) = b(k,89) - lu(k,897) * b(k,92) - b(k,88) = b(k,88) - lu(k,896) * b(k,92) - b(k,87) = b(k,87) - lu(k,895) * b(k,92) - b(k,86) = b(k,86) - lu(k,894) * b(k,92) - b(k,85) = b(k,85) - lu(k,893) * b(k,92) - b(k,84) = b(k,84) - lu(k,892) * b(k,92) - b(k,81) = b(k,81) - lu(k,891) * b(k,92) - b(k,80) = b(k,80) - lu(k,890) * b(k,92) - b(k,79) = b(k,79) - lu(k,889) * b(k,92) - b(k,78) = b(k,78) - lu(k,888) * b(k,92) - b(k,76) = b(k,76) - lu(k,887) * b(k,92) - b(k,73) = b(k,73) - lu(k,886) * b(k,92) - b(k,72) = b(k,72) - lu(k,885) * b(k,92) - b(k,71) = b(k,71) - lu(k,884) * b(k,92) - b(k,69) = b(k,69) - lu(k,883) * b(k,92) - b(k,67) = b(k,67) - lu(k,882) * b(k,92) - b(k,65) = b(k,65) - lu(k,881) * b(k,92) - b(k,61) = b(k,61) - lu(k,880) * b(k,92) - b(k,56) = b(k,56) - lu(k,879) * b(k,92) - b(k,55) = b(k,55) - lu(k,878) * b(k,92) - b(k,41) = b(k,41) - lu(k,877) * b(k,92) - b(k,40) = b(k,40) - lu(k,876) * b(k,92) - b(k,91) = b(k,91) * lu(k,852) - b(k,89) = b(k,89) - lu(k,851) * b(k,91) - b(k,87) = b(k,87) - lu(k,850) * b(k,91) - b(k,86) = b(k,86) - lu(k,849) * b(k,91) - b(k,73) = b(k,73) - lu(k,848) * b(k,91) - b(k,50) = b(k,50) - lu(k,847) * b(k,91) - b(k,90) = b(k,90) * lu(k,822) - b(k,89) = b(k,89) - lu(k,821) * b(k,90) - b(k,87) = b(k,87) - lu(k,820) * b(k,90) - b(k,86) = b(k,86) - lu(k,819) * b(k,90) - b(k,81) = b(k,81) - lu(k,818) * b(k,90) - b(k,80) = b(k,80) - lu(k,817) * b(k,90) - b(k,74) = b(k,74) - lu(k,816) * b(k,90) - b(k,63) = b(k,63) - lu(k,815) * b(k,90) - b(k,89) = b(k,89) * lu(k,794) - b(k,88) = b(k,88) - lu(k,793) * b(k,89) - b(k,84) = b(k,84) - lu(k,792) * b(k,89) - b(k,83) = b(k,83) - lu(k,791) * b(k,89) - b(k,82) = b(k,82) - lu(k,790) * b(k,89) - b(k,77) = b(k,77) - lu(k,789) * b(k,89) - b(k,75) = b(k,75) - lu(k,788) * b(k,89) - b(k,70) = b(k,70) - lu(k,787) * b(k,89) - b(k,66) = b(k,66) - lu(k,786) * b(k,89) - b(k,65) = b(k,65) - lu(k,785) * b(k,89) - b(k,62) = b(k,62) - lu(k,784) * b(k,89) - b(k,60) = b(k,60) - lu(k,783) * b(k,89) - b(k,58) = b(k,58) - lu(k,782) * b(k,89) - b(k,57) = b(k,57) - lu(k,781) * b(k,89) - b(k,53) = b(k,53) - lu(k,780) * b(k,89) - b(k,51) = b(k,51) - lu(k,779) * b(k,89) - b(k,50) = b(k,50) - lu(k,778) * b(k,89) - b(k,49) = b(k,49) - lu(k,777) * b(k,89) - b(k,46) = b(k,46) - lu(k,776) * b(k,89) - b(k,44) = b(k,44) - lu(k,775) * b(k,89) - b(k,39) = b(k,39) - lu(k,774) * b(k,89) - b(k,35) = b(k,35) - lu(k,773) * b(k,89) - b(k,34) = b(k,34) - lu(k,772) * b(k,89) - b(k,32) = b(k,32) - lu(k,771) * b(k,89) - b(k,29) = b(k,29) - lu(k,770) * b(k,89) - b(k,25) = b(k,25) - lu(k,769) * b(k,89) - b(k,23) = b(k,23) - lu(k,768) * b(k,89) - b(k,88) = b(k,88) * lu(k,747) - b(k,84) = b(k,84) - lu(k,746) * b(k,88) - b(k,83) = b(k,83) - lu(k,745) * b(k,88) - b(k,82) = b(k,82) - lu(k,744) * b(k,88) - b(k,77) = b(k,77) - lu(k,743) * b(k,88) - b(k,75) = b(k,75) - lu(k,742) * b(k,88) - b(k,66) = b(k,66) - lu(k,741) * b(k,88) - b(k,58) = b(k,58) - lu(k,740) * b(k,88) - b(k,57) = b(k,57) - lu(k,739) * b(k,88) - b(k,54) = b(k,54) - lu(k,738) * b(k,88) - b(k,51) = b(k,51) - lu(k,737) * b(k,88) - b(k,46) = b(k,46) - lu(k,736) * b(k,88) - b(k,39) = b(k,39) - lu(k,735) * b(k,88) - b(k,35) = b(k,35) - lu(k,734) * b(k,88) - b(k,87) = b(k,87) * lu(k,713) - b(k,86) = b(k,86) - lu(k,712) * b(k,87) - b(k,81) = b(k,81) - lu(k,711) * b(k,87) - b(k,78) = b(k,78) - lu(k,710) * b(k,87) - b(k,76) = b(k,76) - lu(k,709) * b(k,87) - b(k,86) = b(k,86) * lu(k,690) - b(k,72) = b(k,72) - lu(k,689) * b(k,86) - b(k,71) = b(k,71) - lu(k,688) * b(k,86) - b(k,85) = b(k,85) * lu(k,660) - b(k,74) = b(k,74) - lu(k,659) * b(k,85) - b(k,63) = b(k,63) - lu(k,658) * b(k,85) - b(k,84) = b(k,84) * lu(k,637) - b(k,83) = b(k,83) - lu(k,636) * b(k,84) - b(k,82) = b(k,82) - lu(k,635) * b(k,84) - b(k,77) = b(k,77) - lu(k,634) * b(k,84) - b(k,75) = b(k,75) - lu(k,633) * b(k,84) - b(k,68) = b(k,68) - lu(k,632) * b(k,84) - b(k,66) = b(k,66) - lu(k,631) * b(k,84) - b(k,59) = b(k,59) - lu(k,630) * b(k,84) - b(k,58) = b(k,58) - lu(k,629) * b(k,84) - b(k,53) = b(k,53) - lu(k,628) * b(k,84) - b(k,28) = b(k,28) - lu(k,627) * b(k,84) - b(k,25) = b(k,25) - lu(k,626) * b(k,84) - b(k,23) = b(k,23) - lu(k,625) * b(k,84) - b(k,83) = b(k,83) * lu(k,606) - b(k,82) = b(k,82) - lu(k,605) * b(k,83) - b(k,77) = b(k,77) - lu(k,604) * b(k,83) - b(k,75) = b(k,75) - lu(k,603) * b(k,83) - b(k,58) = b(k,58) - lu(k,602) * b(k,83) - b(k,44) = b(k,44) - lu(k,601) * b(k,83) - b(k,82) = b(k,82) * lu(k,584) - b(k,75) = b(k,75) - lu(k,583) * b(k,82) - b(k,70) = b(k,70) - lu(k,582) * b(k,82) - b(k,60) = b(k,60) - lu(k,581) * b(k,82) - b(k,54) = b(k,54) - lu(k,580) * b(k,82) - b(k,45) = b(k,45) - lu(k,579) * b(k,82) - b(k,33) = b(k,33) - lu(k,578) * b(k,82) - b(k,27) = b(k,27) - lu(k,577) * b(k,82) - b(k,81) = b(k,81) * lu(k,560) - b(k,79) = b(k,79) - lu(k,559) * b(k,81) - b(k,78) = b(k,78) - lu(k,558) * b(k,81) - b(k,64) = b(k,64) - lu(k,557) * b(k,81) - b(k,80) = b(k,80) * lu(k,539) - b(k,73) = b(k,73) - lu(k,538) * b(k,80) - b(k,69) = b(k,69) - lu(k,537) * b(k,80) - b(k,79) = b(k,79) * lu(k,519) - b(k,78) = b(k,78) - lu(k,518) * b(k,79) - b(k,64) = b(k,64) - lu(k,517) * b(k,79) - b(k,78) = b(k,78) * lu(k,503) - b(k,77) = b(k,77) * lu(k,484) - b(k,66) = b(k,66) - lu(k,483) * b(k,77) - b(k,53) = b(k,53) - lu(k,482) * b(k,77) - b(k,26) = b(k,26) - lu(k,481) * b(k,77) - end do + b(94) = b(94) * lu(999) + b(93) = b(93) - lu(998) * b(94) + b(92) = b(92) - lu(997) * b(94) + b(91) = b(91) - lu(996) * b(94) + b(90) = b(90) - lu(995) * b(94) + b(89) = b(89) - lu(994) * b(94) + b(88) = b(88) - lu(993) * b(94) + b(87) = b(87) - lu(992) * b(94) + b(86) = b(86) - lu(991) * b(94) + b(85) = b(85) - lu(990) * b(94) + b(81) = b(81) - lu(989) * b(94) + b(80) = b(80) - lu(988) * b(94) + b(79) = b(79) - lu(987) * b(94) + b(78) = b(78) - lu(986) * b(94) + b(75) = b(75) - lu(985) * b(94) + b(73) = b(73) - lu(984) * b(94) + b(72) = b(72) - lu(983) * b(94) + b(71) = b(71) - lu(982) * b(94) + b(69) = b(69) - lu(981) * b(94) + b(67) = b(67) - lu(980) * b(94) + b(50) = b(50) - lu(979) * b(94) + b(37) = b(37) - lu(978) * b(94) + b(93) = b(93) * lu(956) + b(92) = b(92) - lu(955) * b(93) + b(91) = b(91) - lu(954) * b(93) + b(90) = b(90) - lu(953) * b(93) + b(89) = b(89) - lu(952) * b(93) + b(88) = b(88) - lu(951) * b(93) + b(87) = b(87) - lu(950) * b(93) + b(86) = b(86) - lu(949) * b(93) + b(85) = b(85) - lu(948) * b(93) + b(84) = b(84) - lu(947) * b(93) + b(81) = b(81) - lu(946) * b(93) + b(80) = b(80) - lu(945) * b(93) + b(79) = b(79) - lu(944) * b(93) + b(78) = b(78) - lu(943) * b(93) + b(75) = b(75) - lu(942) * b(93) + b(73) = b(73) - lu(941) * b(93) + b(72) = b(72) - lu(940) * b(93) + b(71) = b(71) - lu(939) * b(93) + b(69) = b(69) - lu(938) * b(93) + b(67) = b(67) - lu(937) * b(93) + b(65) = b(65) - lu(936) * b(93) + b(61) = b(61) - lu(935) * b(93) + b(56) = b(56) - lu(934) * b(93) + b(55) = b(55) - lu(933) * b(93) + b(41) = b(41) - lu(932) * b(93) + b(40) = b(40) - lu(931) * b(93) + b(92) = b(92) * lu(908) + b(91) = b(91) - lu(907) * b(92) + b(90) = b(90) - lu(906) * b(92) + b(89) = b(89) - lu(905) * b(92) + b(88) = b(88) - lu(904) * b(92) + b(87) = b(87) - lu(903) * b(92) + b(86) = b(86) - lu(902) * b(92) + b(85) = b(85) - lu(901) * b(92) + b(81) = b(81) - lu(900) * b(92) + b(80) = b(80) - lu(899) * b(92) + b(79) = b(79) - lu(898) * b(92) + b(78) = b(78) - lu(897) * b(92) + b(75) = b(75) - lu(896) * b(92) + b(73) = b(73) - lu(895) * b(92) + b(72) = b(72) - lu(894) * b(92) + b(71) = b(71) - lu(893) * b(92) + b(69) = b(69) - lu(892) * b(92) + b(67) = b(67) - lu(891) * b(92) + b(51) = b(51) - lu(890) * b(92) + b(48) = b(48) - lu(889) * b(92) + b(91) = b(91) * lu(866) + b(89) = b(89) - lu(865) * b(91) + b(88) = b(88) - lu(864) * b(91) + b(84) = b(84) - lu(863) * b(91) + b(68) = b(68) - lu(862) * b(91) + b(65) = b(65) - lu(861) * b(91) + b(61) = b(61) - lu(860) * b(91) + b(56) = b(56) - lu(859) * b(91) + b(55) = b(55) - lu(858) * b(91) + b(52) = b(52) - lu(857) * b(91) + b(51) = b(51) - lu(856) * b(91) + b(50) = b(50) - lu(855) * b(91) + b(48) = b(48) - lu(854) * b(91) + b(47) = b(47) - lu(853) * b(91) + b(43) = b(43) - lu(852) * b(91) + b(42) = b(42) - lu(851) * b(91) + b(41) = b(41) - lu(850) * b(91) + b(40) = b(40) - lu(849) * b(91) + b(37) = b(37) - lu(848) * b(91) + b(36) = b(36) - lu(847) * b(91) + b(90) = b(90) * lu(822) + b(89) = b(89) - lu(821) * b(90) + b(87) = b(87) - lu(820) * b(90) + b(86) = b(86) - lu(819) * b(90) + b(81) = b(81) - lu(818) * b(90) + b(80) = b(80) - lu(817) * b(90) + b(74) = b(74) - lu(816) * b(90) + b(63) = b(63) - lu(815) * b(90) + b(89) = b(89) * lu(794) + b(88) = b(88) - lu(793) * b(89) + b(84) = b(84) - lu(792) * b(89) + b(83) = b(83) - lu(791) * b(89) + b(82) = b(82) - lu(790) * b(89) + b(77) = b(77) - lu(789) * b(89) + b(76) = b(76) - lu(788) * b(89) + b(70) = b(70) - lu(787) * b(89) + b(66) = b(66) - lu(786) * b(89) + b(65) = b(65) - lu(785) * b(89) + b(62) = b(62) - lu(784) * b(89) + b(60) = b(60) - lu(783) * b(89) + b(58) = b(58) - lu(782) * b(89) + b(57) = b(57) - lu(781) * b(89) + b(53) = b(53) - lu(780) * b(89) + b(51) = b(51) - lu(779) * b(89) + b(50) = b(50) - lu(778) * b(89) + b(49) = b(49) - lu(777) * b(89) + b(46) = b(46) - lu(776) * b(89) + b(44) = b(44) - lu(775) * b(89) + b(39) = b(39) - lu(774) * b(89) + b(35) = b(35) - lu(773) * b(89) + b(34) = b(34) - lu(772) * b(89) + b(32) = b(32) - lu(771) * b(89) + b(29) = b(29) - lu(770) * b(89) + b(25) = b(25) - lu(769) * b(89) + b(23) = b(23) - lu(768) * b(89) + b(88) = b(88) * lu(747) + b(84) = b(84) - lu(746) * b(88) + b(83) = b(83) - lu(745) * b(88) + b(82) = b(82) - lu(744) * b(88) + b(77) = b(77) - lu(743) * b(88) + b(76) = b(76) - lu(742) * b(88) + b(66) = b(66) - lu(741) * b(88) + b(58) = b(58) - lu(740) * b(88) + b(57) = b(57) - lu(739) * b(88) + b(54) = b(54) - lu(738) * b(88) + b(51) = b(51) - lu(737) * b(88) + b(46) = b(46) - lu(736) * b(88) + b(39) = b(39) - lu(735) * b(88) + b(35) = b(35) - lu(734) * b(88) + b(87) = b(87) * lu(713) + b(86) = b(86) - lu(712) * b(87) + b(81) = b(81) - lu(711) * b(87) + b(78) = b(78) - lu(710) * b(87) + b(75) = b(75) - lu(709) * b(87) + b(86) = b(86) * lu(690) + b(72) = b(72) - lu(689) * b(86) + b(71) = b(71) - lu(688) * b(86) + b(85) = b(85) * lu(660) + b(74) = b(74) - lu(659) * b(85) + b(63) = b(63) - lu(658) * b(85) + b(84) = b(84) * lu(637) + b(83) = b(83) - lu(636) * b(84) + b(82) = b(82) - lu(635) * b(84) + b(77) = b(77) - lu(634) * b(84) + b(76) = b(76) - lu(633) * b(84) + b(68) = b(68) - lu(632) * b(84) + b(66) = b(66) - lu(631) * b(84) + b(59) = b(59) - lu(630) * b(84) + b(57) = b(57) - lu(629) * b(84) + b(53) = b(53) - lu(628) * b(84) + b(28) = b(28) - lu(627) * b(84) + b(25) = b(25) - lu(626) * b(84) + b(23) = b(23) - lu(625) * b(84) + b(83) = b(83) * lu(606) + b(82) = b(82) - lu(605) * b(83) + b(77) = b(77) - lu(604) * b(83) + b(76) = b(76) - lu(603) * b(83) + b(57) = b(57) - lu(602) * b(83) + b(44) = b(44) - lu(601) * b(83) + b(82) = b(82) * lu(584) + b(76) = b(76) - lu(583) * b(82) + b(70) = b(70) - lu(582) * b(82) + b(60) = b(60) - lu(581) * b(82) + b(54) = b(54) - lu(580) * b(82) + b(45) = b(45) - lu(579) * b(82) + b(33) = b(33) - lu(578) * b(82) + b(27) = b(27) - lu(577) * b(82) + b(81) = b(81) * lu(560) + b(79) = b(79) - lu(559) * b(81) + b(78) = b(78) - lu(558) * b(81) + b(64) = b(64) - lu(557) * b(81) + b(80) = b(80) * lu(539) + b(73) = b(73) - lu(538) * b(80) + b(69) = b(69) - lu(537) * b(80) + b(79) = b(79) * lu(519) + b(78) = b(78) - lu(518) * b(79) + b(64) = b(64) - lu(517) * b(79) + b(78) = b(78) * lu(503) + b(77) = b(77) * lu(484) + b(66) = b(66) - lu(483) * b(77) + b(53) = b(53) - lu(482) * b(77) + b(26) = b(26) - lu(481) * b(77) + b(76) = b(76) * lu(470) + b(57) = b(57) - lu(469) * b(76) + b(44) = b(44) - lu(468) * b(76) + b(75) = b(75) * lu(452) + b(74) = b(74) * lu(438) + b(73) = b(73) * lu(424) + b(72) = b(72) * lu(409) + b(71) = b(71) - lu(408) * b(72) + b(71) = b(71) * lu(393) + b(70) = b(70) * lu(379) + b(60) = b(60) - lu(378) * b(70) + b(49) = b(49) - lu(377) * b(70) + b(33) = b(33) - lu(376) * b(70) end subroutine lu_slv09 - subroutine lu_slv10( avec_len, lu, b ) + subroutine lu_slv10( 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) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) !----------------------------------------------------------------------- ! ... Local variables !----------------------------------------------------------------------- - integer :: k !----------------------------------------------------------------------- ! ... solve L * y = b !----------------------------------------------------------------------- - do k = 1,avec_len - b(k,76) = b(k,76) * lu(k,465) - b(k,75) = b(k,75) * lu(k,454) - b(k,58) = b(k,58) - lu(k,453) * b(k,75) - b(k,44) = b(k,44) - lu(k,452) * b(k,75) - b(k,74) = b(k,74) * lu(k,438) - b(k,73) = b(k,73) * lu(k,424) - b(k,72) = b(k,72) * lu(k,409) - b(k,71) = b(k,71) - lu(k,408) * b(k,72) - b(k,71) = b(k,71) * lu(k,393) - b(k,70) = b(k,70) * lu(k,379) - b(k,60) = b(k,60) - lu(k,378) * b(k,70) - b(k,49) = b(k,49) - lu(k,377) * b(k,70) - b(k,33) = b(k,33) - lu(k,376) * b(k,70) - b(k,69) = b(k,69) * lu(k,362) - b(k,68) = b(k,68) * lu(k,350) - b(k,59) = b(k,59) - lu(k,349) * b(k,68) - b(k,52) = b(k,52) - lu(k,348) * b(k,68) - b(k,67) = b(k,67) * lu(k,335) - b(k,66) = b(k,66) * lu(k,324) - b(k,35) = b(k,35) - lu(k,323) * b(k,66) - b(k,65) = b(k,65) * lu(k,311) - b(k,61) = b(k,61) - lu(k,310) * b(k,65) - b(k,56) = b(k,56) - lu(k,309) * b(k,65) - b(k,64) = b(k,64) * lu(k,297) - b(k,31) = b(k,31) - lu(k,296) * b(k,64) - b(k,30) = b(k,30) - lu(k,295) * b(k,64) - b(k,63) = b(k,63) * lu(k,287) - b(k,62) = b(k,62) * lu(k,277) - b(k,57) = b(k,57) - lu(k,276) * b(k,62) - b(k,24) = b(k,24) - lu(k,275) * b(k,62) - b(k,61) = b(k,61) * lu(k,264) - b(k,56) = b(k,56) - lu(k,263) * b(k,61) - b(k,55) = b(k,55) - lu(k,262) * b(k,61) - b(k,44) = b(k,44) - lu(k,261) * b(k,61) - b(k,60) = b(k,60) * lu(k,255) - b(k,29) = b(k,29) - lu(k,254) * b(k,60) - b(k,59) = b(k,59) * lu(k,246) - b(k,58) = b(k,58) * lu(k,238) - b(k,57) = b(k,57) * lu(k,231) - b(k,24) = b(k,24) - lu(k,230) * b(k,57) - b(k,56) = b(k,56) * lu(k,223) - b(k,55) = b(k,55) * lu(k,215) - b(k,54) = b(k,54) * lu(k,207) - b(k,27) = b(k,27) - lu(k,206) * b(k,54) - b(k,53) = b(k,53) * lu(k,198) - b(k,26) = b(k,26) - lu(k,197) * b(k,53) - b(k,52) = b(k,52) * lu(k,189) - b(k,51) = b(k,51) - lu(k,188) * b(k,52) - b(k,48) = b(k,48) - lu(k,187) * b(k,52) - b(k,36) = b(k,36) - lu(k,186) * b(k,52) - b(k,51) = b(k,51) * lu(k,181) - b(k,48) = b(k,48) - lu(k,180) * b(k,51) - b(k,50) = b(k,50) * lu(k,175) - b(k,49) = b(k,49) * lu(k,168) - b(k,48) = b(k,48) * lu(k,162) - b(k,47) = b(k,47) * lu(k,153) - b(k,46) = b(k,46) * lu(k,146) - b(k,45) = b(k,45) * lu(k,138) - b(k,44) = b(k,44) * lu(k,134) - b(k,43) = b(k,43) * lu(k,128) - b(k,42) = b(k,42) * lu(k,121) - b(k,41) = b(k,41) * lu(k,115) - b(k,40) = b(k,40) * lu(k,108) - b(k,39) = b(k,39) * lu(k,101) - b(k,38) = b(k,38) * lu(k,95) - b(k,37) = b(k,37) * lu(k,89) - b(k,36) = b(k,36) * lu(k,83) - b(k,35) = b(k,35) * lu(k,77) - b(k,34) = b(k,34) * lu(k,69) - b(k,33) = b(k,33) * lu(k,64) - b(k,32) = b(k,32) * lu(k,58) - b(k,31) = b(k,31) * lu(k,54) - b(k,30) = b(k,30) * lu(k,50) - b(k,29) = b(k,29) * lu(k,46) - b(k,22) = b(k,22) - lu(k,45) * b(k,29) - b(k,28) = b(k,28) * lu(k,42) - b(k,27) = b(k,27) * lu(k,39) - b(k,26) = b(k,26) * lu(k,36) - b(k,25) = b(k,25) * lu(k,32) - b(k,24) = b(k,24) * lu(k,30) - b(k,23) = b(k,23) * lu(k,27) - b(k,22) = b(k,22) * lu(k,24) - b(k,21) = b(k,21) * lu(k,21) - b(k,20) = b(k,20) * lu(k,20) - b(k,19) = b(k,19) * lu(k,19) - b(k,18) = b(k,18) * lu(k,18) - b(k,17) = b(k,17) * lu(k,17) - b(k,16) = b(k,16) * lu(k,16) - b(k,15) = b(k,15) * lu(k,15) - b(k,14) = b(k,14) * lu(k,14) - b(k,13) = b(k,13) * lu(k,13) - b(k,12) = b(k,12) * lu(k,12) - b(k,11) = b(k,11) * lu(k,11) - b(k,10) = b(k,10) * lu(k,10) - 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) - 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) - b(k,3) = b(k,3) * lu(k,3) - b(k,2) = b(k,2) * lu(k,2) - b(k,1) = b(k,1) * lu(k,1) - end do + b(69) = b(69) * lu(362) + b(68) = b(68) * lu(350) + b(59) = b(59) - lu(349) * b(68) + b(52) = b(52) - lu(348) * b(68) + b(67) = b(67) * lu(335) + b(66) = b(66) * lu(324) + b(35) = b(35) - lu(323) * b(66) + b(65) = b(65) * lu(311) + b(61) = b(61) - lu(310) * b(65) + b(56) = b(56) - lu(309) * b(65) + b(64) = b(64) * lu(297) + b(31) = b(31) - lu(296) * b(64) + b(30) = b(30) - lu(295) * b(64) + b(63) = b(63) * lu(287) + b(62) = b(62) * lu(277) + b(58) = b(58) - lu(276) * b(62) + b(24) = b(24) - lu(275) * b(62) + b(61) = b(61) * lu(264) + b(56) = b(56) - lu(263) * b(61) + b(55) = b(55) - lu(262) * b(61) + b(44) = b(44) - lu(261) * b(61) + b(60) = b(60) * lu(255) + b(29) = b(29) - lu(254) * b(60) + b(59) = b(59) * lu(246) + b(58) = b(58) * lu(239) + b(24) = b(24) - lu(238) * b(58) + b(57) = b(57) * lu(230) + b(56) = b(56) * lu(223) + b(55) = b(55) * lu(215) + b(54) = b(54) * lu(207) + b(27) = b(27) - lu(206) * b(54) + b(53) = b(53) * lu(198) + b(26) = b(26) - lu(197) * b(53) + b(52) = b(52) * lu(189) + b(51) = b(51) - lu(188) * b(52) + b(48) = b(48) - lu(187) * b(52) + b(36) = b(36) - lu(186) * b(52) + b(51) = b(51) * lu(181) + b(48) = b(48) - lu(180) * b(51) + b(50) = b(50) * lu(175) + b(49) = b(49) * lu(168) + b(48) = b(48) * lu(162) + b(47) = b(47) * lu(153) + b(46) = b(46) * lu(146) + b(45) = b(45) * lu(138) + b(44) = b(44) * lu(134) + b(43) = b(43) * lu(128) + b(42) = b(42) * lu(121) + b(41) = b(41) * lu(115) + b(40) = b(40) * lu(108) + b(39) = b(39) * lu(101) + b(38) = b(38) * lu(95) + b(37) = b(37) * lu(89) + b(36) = b(36) * lu(83) + b(35) = b(35) * lu(77) + b(34) = b(34) * lu(69) + b(33) = b(33) * lu(64) + b(32) = b(32) * lu(58) + b(31) = b(31) * lu(54) + b(30) = b(30) * lu(50) + b(29) = b(29) * lu(46) + b(22) = b(22) - lu(45) * b(29) + b(28) = b(28) * lu(42) + b(27) = b(27) * lu(39) + b(26) = b(26) * lu(36) + b(25) = b(25) * lu(32) + b(24) = b(24) * lu(30) + b(23) = b(23) * lu(27) + b(22) = b(22) * lu(24) + b(21) = b(21) * lu(21) + b(20) = b(20) * lu(20) + b(19) = b(19) * lu(19) + b(18) = b(18) * lu(18) + b(17) = b(17) * lu(17) + b(16) = b(16) * lu(16) + b(15) = b(15) * lu(15) + b(14) = b(14) * lu(14) + b(13) = b(13) * lu(13) + b(12) = b(12) * lu(12) + b(11) = b(11) * lu(11) + b(10) = b(10) * lu(10) + b(9) = b(9) * lu(9) + b(8) = b(8) * lu(8) + b(7) = b(7) * lu(7) + b(6) = b(6) * lu(6) + b(5) = b(5) * lu(5) + b(4) = b(4) * lu(4) + b(3) = b(3) * lu(3) + b(2) = b(2) * lu(2) + b(1) = b(1) * lu(1) end subroutine lu_slv10 - subroutine lu_slv( avec_len, lu, b ) + subroutine lu_slv( 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) - call lu_slv01( avec_len, lu, b ) - call lu_slv02( avec_len, lu, b ) - call lu_slv03( avec_len, lu, b ) - call lu_slv04( avec_len, lu, b ) - call lu_slv05( avec_len, lu, b ) - call lu_slv06( avec_len, lu, b ) - call lu_slv07( avec_len, lu, b ) - call lu_slv08( avec_len, lu, b ) - call lu_slv09( avec_len, lu, b ) - call lu_slv10( avec_len, lu, b ) + real(r8), intent(in) :: lu(:) + real(r8), intent(inout) :: b(:) + call lu_slv01( lu, b ) + call lu_slv02( lu, b ) + call lu_slv03( lu, b ) + call lu_slv04( lu, b ) + call lu_slv05( lu, b ) + call lu_slv06( lu, b ) + call lu_slv07( lu, b ) + call lu_slv08( lu, b ) + call lu_slv09( lu, b ) + call lu_slv10( lu, b ) end subroutine lu_slv end module mo_lu_solve diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_nln_matrix.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_nln_matrix.F90 index 6a96a574b2..a55e5a7e9b 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_nln_matrix.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_nln_matrix.F90 @@ -1,3071 +1,2909 @@ module mo_nln_matrix use shr_kind_mod, only : r8 => shr_kind_r8 - use chem_mods, only: veclen private public :: nlnmat contains - subroutine nlnmat01( avec_len, mat, y, rxt ) + subroutine nlnmat01( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,577) = rxt(k,492)*y(k,26) - mat(k,1722) = rxt(k,492)*y(k,4) - mat(k,1134) = (rxt(k,571)+rxt(k,576))*y(k,51) - mat(k,206) = (rxt(k,571)+rxt(k,576))*y(k,47) - mat(k,584) = -(4._r8*rxt(k,489)*y(k,4) + (rxt(k,490) + rxt(k,491) + rxt(k,492) & - ) * y(k,26) + rxt(k,493)*y(k,98) + rxt(k,494)*y(k,60) + rxt(k,495) & - *y(k,61) + rxt(k,497)*y(k,67) + rxt(k,498)*y(k,131) + rxt(k,546) & - *y(k,76)) - mat(k,1731) = -(rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,4) - mat(k,744) = -rxt(k,493)*y(k,4) - mat(k,1495) = -rxt(k,494)*y(k,4) - mat(k,979) = -rxt(k,495)*y(k,4) - mat(k,1411) = -rxt(k,497)*y(k,4) - mat(k,790) = -rxt(k,498)*y(k,4) - mat(k,381) = -rxt(k,546)*y(k,4) - mat(k,141) = rxt(k,496)*y(k,67) - mat(k,240) = rxt(k,506)*y(k,122) - mat(k,209) = rxt(k,501)*y(k,67) - mat(k,1411) = mat(k,1411) + rxt(k,496)*y(k,5) + rxt(k,501)*y(k,51) - mat(k,1185) = rxt(k,488)*y(k,85) - mat(k,455) = rxt(k,488)*y(k,69) - mat(k,635) = rxt(k,506)*y(k,43) - mat(k,138) = -(rxt(k,496)*y(k,67)) - mat(k,1391) = -rxt(k,496)*y(k,5) - mat(k,579) = rxt(k,495)*y(k,61) - mat(k,966) = rxt(k,495)*y(k,4) - mat(k,606) = -(rxt(k,450)*y(k,86) + rxt(k,486)*y(k,85) + rxt(k,530)*y(k,62) & - + rxt(k,531)*y(k,67) + rxt(k,532)*y(k,131)) - mat(k,1454) = -rxt(k,450)*y(k,16) - mat(k,456) = -rxt(k,486)*y(k,16) - mat(k,1104) = -rxt(k,530)*y(k,16) - mat(k,1412) = -rxt(k,531)*y(k,16) - mat(k,791) = -rxt(k,532)*y(k,16) - mat(k,325) = rxt(k,457)*y(k,26) + rxt(k,534)*y(k,60) - mat(k,79) = .300_r8*rxt(k,535)*y(k,131) - mat(k,1732) = rxt(k,457)*y(k,20) - mat(k,1496) = rxt(k,534)*y(k,20) - mat(k,791) = mat(k,791) + .300_r8*rxt(k,535)*y(k,21) - mat(k,324) = -(rxt(k,457)*y(k,26) + rxt(k,533)*y(k,98) + rxt(k,534)*y(k,60)) - mat(k,1728) = -rxt(k,457)*y(k,20) - mat(k,741) = -rxt(k,533)*y(k,20) - mat(k,1489) = -rxt(k,534)*y(k,20) - mat(k,78) = .700_r8*rxt(k,535)*y(k,131) - mat(k,786) = .700_r8*rxt(k,535)*y(k,21) - mat(k,77) = -(rxt(k,535)*y(k,131)) - mat(k,773) = -rxt(k,535)*y(k,21) - mat(k,323) = rxt(k,533)*y(k,98) - mat(k,734) = rxt(k,533)*y(k,20) - mat(k,1721) = 2.000_r8*rxt(k,459)*y(k,26) - mat(k,275) = (rxt(k,569)+rxt(k,574)+rxt(k,579))*y(k,47) + rxt(k,463)*y(k,86) - mat(k,1133) = (rxt(k,569)+rxt(k,574)+rxt(k,579))*y(k,27) + (rxt(k,564) & - +rxt(k,570)+rxt(k,575))*y(k,52) - mat(k,230) = (rxt(k,564)+rxt(k,570)+rxt(k,575))*y(k,47) - mat(k,1444) = rxt(k,463)*y(k,27) - mat(k,1720) = 2.000_r8*rxt(k,484)*y(k,26) - mat(k,1761) = -(rxt(k,116)*y(k,91) + rxt(k,128)*y(k,94) + rxt(k,286)*y(k,108) & - + rxt(k,315)*y(k,125) + rxt(k,342)*y(k,132) + rxt(k,351) & - *y(k,133) + rxt(k,457)*y(k,20) + (4._r8*rxt(k,458) & - + 4._r8*rxt(k,459) + 4._r8*rxt(k,460) + 4._r8*rxt(k,484) & - ) * y(k,26) + rxt(k,461)*y(k,98) + rxt(k,462)*y(k,60) + rxt(k,464) & - *y(k,61) + rxt(k,467)*y(k,67) + (rxt(k,468) + rxt(k,469) & - ) * y(k,131) + (rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,4) & - + rxt(k,547)*y(k,76)) - mat(k,844) = -rxt(k,116)*y(k,26) - mat(k,685) = -rxt(k,128)*y(k,26) - mat(k,873) = -rxt(k,286)*y(k,26) - mat(k,1338) = -rxt(k,315)*y(k,26) - mat(k,1640) = -rxt(k,342)*y(k,26) - mat(k,1675) = -rxt(k,351)*y(k,26) - mat(k,332) = -rxt(k,457)*y(k,26) - mat(k,765) = -rxt(k,461)*y(k,26) - mat(k,1524) = -rxt(k,462)*y(k,26) - mat(k,1008) = -rxt(k,464)*y(k,26) - mat(k,1441) = -rxt(k,467)*y(k,26) - mat(k,812) = -(rxt(k,468) + rxt(k,469)) * y(k,26) - mat(k,598) = -(rxt(k,490) + rxt(k,491) + rxt(k,492)) * y(k,26) - mat(k,390) = -rxt(k,547)*y(k,26) - mat(k,285) = rxt(k,465)*y(k,67) - mat(k,1174) = rxt(k,483)*y(k,122) - mat(k,236) = rxt(k,473)*y(k,67) + rxt(k,472)*y(k,86) + rxt(k,474)*y(k,131) - mat(k,1441) = mat(k,1441) + rxt(k,465)*y(k,27) + rxt(k,473)*y(k,52) - mat(k,1215) = rxt(k,456)*y(k,86) - mat(k,68) = rxt(k,552)*y(k,76) - mat(k,390) = mat(k,390) + rxt(k,552)*y(k,70) - mat(k,1483) = rxt(k,472)*y(k,52) + rxt(k,456)*y(k,69) + rxt(k,455)*y(k,98) - mat(k,765) = mat(k,765) + rxt(k,455)*y(k,86) - mat(k,655) = rxt(k,483)*y(k,47) - mat(k,812) = mat(k,812) + rxt(k,474)*y(k,52) - mat(k,277) = -(rxt(k,463)*y(k,86) + rxt(k,465)*y(k,67) + rxt(k,466)*y(k,131) & - + (rxt(k,569) + rxt(k,574) + rxt(k,579)) * y(k,47)) - mat(k,1448) = -rxt(k,463)*y(k,27) - mat(k,1403) = -rxt(k,465)*y(k,27) - mat(k,784) = -rxt(k,466)*y(k,27) - mat(k,1138) = -(rxt(k,569) + rxt(k,574) + rxt(k,579)) * y(k,27) - mat(k,1726) = rxt(k,464)*y(k,61) - mat(k,969) = rxt(k,464)*y(k,26) - mat(k,134) = -((rxt(k,537) + rxt(k,541)) * y(k,131)) - mat(k,775) = -(rxt(k,537) + rxt(k,541)) * y(k,29) - mat(k,601) = rxt(k,530)*y(k,62) + rxt(k,531)*y(k,67) + rxt(k,486)*y(k,85) & - + rxt(k,450)*y(k,86) + rxt(k,532)*y(k,131) - mat(k,1095) = rxt(k,530)*y(k,16) - mat(k,1390) = rxt(k,531)*y(k,16) + rxt(k,542)*y(k,71) - mat(k,70) = rxt(k,542)*y(k,67) + rxt(k,543)*y(k,131) - mat(k,452) = rxt(k,486)*y(k,16) - mat(k,1445) = rxt(k,450)*y(k,16) - mat(k,775) = mat(k,775) + rxt(k,532)*y(k,16) + rxt(k,543)*y(k,71) - mat(k,27) = -(rxt(k,511)*y(k,122)) - mat(k,625) = -rxt(k,511)*y(k,31) - mat(k,32) = -(rxt(k,512)*y(k,122)) - mat(k,626) = -rxt(k,512)*y(k,32) - mat(k,58) = -(rxt(k,556)*y(k,62) + (rxt(k,557) + rxt(k,558)) * y(k,131)) - mat(k,1094) = -rxt(k,556)*y(k,33) - mat(k,771) = -(rxt(k,557) + rxt(k,558)) * y(k,33) - mat(k,198) = -(rxt(k,508)*y(k,39) + rxt(k,509)*y(k,137) + rxt(k,510)*y(k,49)) - mat(k,482) = -rxt(k,508)*y(k,37) - mat(k,1812) = -rxt(k,509)*y(k,37) - mat(k,1269) = -rxt(k,510)*y(k,37) - mat(k,28) = 2.000_r8*rxt(k,511)*y(k,122) - mat(k,33) = rxt(k,512)*y(k,122) - mat(k,628) = 2.000_r8*rxt(k,511)*y(k,31) + rxt(k,512)*y(k,32) - mat(k,1797) = -(rxt(k,105)*y(k,87) + rxt(k,117)*y(k,91) + rxt(k,129)*y(k,94) & - + rxt(k,287)*y(k,108) + rxt(k,309)*y(k,119) + rxt(k,317) & - *y(k,125) + rxt(k,331)*y(k,128) + rxt(k,344)*y(k,132) + (rxt(k,408) & - + rxt(k,409) + rxt(k,410)) * y(k,98) + rxt(k,411)*y(k,68) & - + rxt(k,414)*y(k,69)) - mat(k,707) = -rxt(k,105)*y(k,38) - mat(k,845) = -rxt(k,117)*y(k,38) - mat(k,686) = -rxt(k,129)*y(k,38) - mat(k,874) = -rxt(k,287)*y(k,38) - mat(k,1092) = -rxt(k,309)*y(k,38) - mat(k,1339) = -rxt(k,317)*y(k,38) - mat(k,451) = -rxt(k,331)*y(k,38) - mat(k,1641) = -rxt(k,344)*y(k,38) - mat(k,766) = -(rxt(k,408) + rxt(k,409) + rxt(k,410)) * y(k,38) - mat(k,1265) = -rxt(k,411)*y(k,38) - mat(k,1216) = -rxt(k,414)*y(k,38) - mat(k,623) = rxt(k,532)*y(k,131) - mat(k,137) = rxt(k,541)*y(k,131) - mat(k,204) = rxt(k,508)*y(k,39) - mat(k,501) = rxt(k,508)*y(k,37) + rxt(k,406)*y(k,67) + rxt(k,452)*y(k,86) & - + rxt(k,389)*y(k,122) + rxt(k,415)*y(k,131) + rxt(k,354) & - *y(k,133) - mat(k,244) = rxt(k,506)*y(k,122) - mat(k,1175) = rxt(k,483)*y(k,122) - mat(k,322) = rxt(k,438)*y(k,131) - mat(k,1442) = rxt(k,406)*y(k,39) + rxt(k,418)*y(k,131) - mat(k,76) = rxt(k,543)*y(k,131) - mat(k,174) = rxt(k,548)*y(k,131) - mat(k,391) = rxt(k,553)*y(k,131) - mat(k,1484) = rxt(k,452)*y(k,39) - mat(k,707) = mat(k,707) + rxt(k,195)*y(k,100) + rxt(k,147)*y(k,102) & - + rxt(k,177)*y(k,104) - mat(k,422) = rxt(k,199)*y(k,100) + rxt(k,164)*y(k,102) + rxt(k,182)*y(k,104) - mat(k,406) = rxt(k,187)*y(k,100) + rxt(k,181)*y(k,102) + rxt(k,169)*y(k,104) - mat(k,845) = mat(k,845) + rxt(k,186)*y(k,100) + (rxt(k,170)+rxt(k,258)) & - *y(k,102) + (rxt(k,168)+rxt(k,265))*y(k,104) - mat(k,374) = rxt(k,194)*y(k,100) + (rxt(k,247)+rxt(k,271))*y(k,102) + ( & - + rxt(k,176)+rxt(k,259))*y(k,104) - mat(k,555) = rxt(k,196)*y(k,100) + (rxt(k,158)+rxt(k,260))*y(k,102) + ( & - + rxt(k,178)+rxt(k,261))*y(k,104) - mat(k,686) = mat(k,686) + rxt(k,191)*y(k,100) + rxt(k,225)*y(k,102) & - + rxt(k,174)*y(k,104) - mat(k,1567) = rxt(k,138)*y(k,96) + rxt(k,382)*y(k,99) + rxt(k,383)*y(k,100) & - + rxt(k,141)*y(k,102) + rxt(k,144)*y(k,104) + rxt(k,381) & - *y(k,105) - mat(k,87) = rxt(k,138)*y(k,95) - mat(k,346) = rxt(k,189)*y(k,100) + rxt(k,203)*y(k,102) + rxt(k,172)*y(k,104) - mat(k,166) = rxt(k,382)*y(k,95) - mat(k,1051) = rxt(k,195)*y(k,87) + rxt(k,199)*y(k,88) + rxt(k,187)*y(k,89) & - + rxt(k,186)*y(k,91) + rxt(k,194)*y(k,92) + rxt(k,196)*y(k,93) & - + rxt(k,191)*y(k,94) + rxt(k,383)*y(k,95) + rxt(k,189)*y(k,97) & - + rxt(k,201)*y(k,108) + rxt(k,197)*y(k,109) + rxt(k,200) & - *y(k,111) + rxt(k,193)*y(k,112) + rxt(k,198)*y(k,113) & - + rxt(k,190)*y(k,125) - mat(k,1718) = rxt(k,147)*y(k,87) + rxt(k,164)*y(k,88) + rxt(k,181)*y(k,89) + ( & - + rxt(k,170)+rxt(k,258))*y(k,91) + (rxt(k,247)+rxt(k,271)) & - *y(k,92) + (rxt(k,158)+rxt(k,260))*y(k,93) + rxt(k,225)*y(k,94) & - + rxt(k,141)*y(k,95) + rxt(k,203)*y(k,97) + rxt(k,166)*y(k,108) & - + rxt(k,162)*y(k,109) + rxt(k,165)*y(k,111) + (rxt(k,236) & - +rxt(k,262))*y(k,112) + rxt(k,163)*y(k,113) + rxt(k,214) & - *y(k,125) - mat(k,1609) = rxt(k,177)*y(k,87) + rxt(k,182)*y(k,88) + rxt(k,169)*y(k,89) + ( & - + rxt(k,168)+rxt(k,265))*y(k,91) + (rxt(k,176)+rxt(k,259)) & - *y(k,92) + (rxt(k,178)+rxt(k,261))*y(k,93) + rxt(k,174)*y(k,94) & - + rxt(k,144)*y(k,95) + rxt(k,172)*y(k,97) + rxt(k,184)*y(k,108) & - + rxt(k,179)*y(k,109) + rxt(k,183)*y(k,111) + (rxt(k,175) & - +rxt(k,263))*y(k,112) + rxt(k,180)*y(k,113) + rxt(k,173) & - *y(k,125) - mat(k,184) = rxt(k,381)*y(k,95) - mat(k,874) = mat(k,874) + rxt(k,201)*y(k,100) + rxt(k,166)*y(k,102) & - + rxt(k,184)*y(k,104) - mat(k,436) = rxt(k,197)*y(k,100) + rxt(k,162)*y(k,102) + rxt(k,179)*y(k,104) - mat(k,535) = rxt(k,200)*y(k,100) + rxt(k,165)*y(k,102) + rxt(k,183)*y(k,104) - mat(k,575) = rxt(k,193)*y(k,100) + (rxt(k,236)+rxt(k,262))*y(k,102) + ( & - + rxt(k,175)+rxt(k,263))*y(k,104) - mat(k,479) = rxt(k,198)*y(k,100) + rxt(k,163)*y(k,102) + rxt(k,180)*y(k,104) - mat(k,656) = rxt(k,389)*y(k,39) + rxt(k,506)*y(k,43) + rxt(k,483)*y(k,47) - mat(k,1339) = mat(k,1339) + rxt(k,190)*y(k,100) + rxt(k,214)*y(k,102) & - + rxt(k,173)*y(k,104) - mat(k,813) = rxt(k,532)*y(k,16) + rxt(k,541)*y(k,29) + rxt(k,415)*y(k,39) & - + rxt(k,438)*y(k,54) + rxt(k,418)*y(k,67) + rxt(k,543)*y(k,71) & - + rxt(k,548)*y(k,74) + rxt(k,553)*y(k,76) - mat(k,1676) = rxt(k,354)*y(k,39) - end do + mat(470) = -(rxt(486)*y(17) + rxt(487)*y(99) + rxt(488)*y(72)) + mat(603) = -rxt(486)*y(3) + mat(742) = -rxt(487)*y(3) + mat(1428) = -rxt(488)*y(3) + mat(583) = 4.000_r8*rxt(489)*y(5) + (rxt(490)+rxt(491))*y(28) + rxt(494) & + *y(62) + rxt(497)*y(69) + rxt(548)*y(79) + rxt(498)*y(131) + mat(1507) = (rxt(490)+rxt(491))*y(5) + mat(231) = rxt(499)*y(69) + rxt(505)*y(70) + rxt(500)*y(131) + mat(1162) = rxt(494)*y(5) + mat(1221) = rxt(497)*y(5) + rxt(499)*y(45) + mat(633) = rxt(505)*y(45) + mat(380) = rxt(548)*y(5) + mat(788) = rxt(498)*y(5) + rxt(500)*y(45) + mat(577) = rxt(492)*y(28) + mat(1499) = rxt(492)*y(5) + mat(1299) = (rxt(571)+rxt(576))*y(53) + mat(206) = (rxt(571)+rxt(576))*y(49) + mat(584) = -(4._r8*rxt(489)*y(5) + (rxt(490) + rxt(491) + rxt(492)) * y(28) & + + rxt(493)*y(99) + rxt(494)*y(62) + rxt(495)*y(63) + rxt(497) & + *y(69) + rxt(498)*y(131) + rxt(548)*y(79)) + mat(1508) = -(rxt(490) + rxt(491) + rxt(492)) * y(5) + mat(744) = -rxt(493)*y(5) + mat(1165) = -rxt(494)*y(5) + mat(1083) = -rxt(495)*y(5) + mat(1223) = -rxt(497)*y(5) + mat(790) = -rxt(498)*y(5) + mat(381) = -rxt(548)*y(5) + mat(471) = rxt(488)*y(72) + mat(141) = rxt(496)*y(69) + mat(232) = rxt(506)*y(70) + mat(209) = rxt(501)*y(69) + mat(1223) = mat(1223) + rxt(496)*y(6) + rxt(501)*y(53) + mat(635) = rxt(506)*y(45) + mat(1429) = rxt(488)*y(3) + mat(138) = -(rxt(496)*y(69)) + mat(1203) = -rxt(496)*y(6) + mat(579) = rxt(495)*y(63) + mat(1070) = rxt(495)*y(5) + mat(606) = -(rxt(450)*y(25) + rxt(486)*y(3) + rxt(530)*y(64) + rxt(531)*y(69) & + + rxt(532)*y(131)) + mat(1266) = -rxt(450)*y(17) + mat(472) = -rxt(486)*y(17) + mat(1770) = -rxt(530)*y(17) + mat(1224) = -rxt(531)*y(17) + mat(791) = -rxt(532)*y(17) + mat(325) = rxt(457)*y(28) + rxt(534)*y(62) + mat(79) = .300_r8*rxt(535)*y(131) + mat(1509) = rxt(457)*y(21) + mat(1166) = rxt(534)*y(21) + mat(791) = mat(791) + .300_r8*rxt(535)*y(22) + mat(324) = -(rxt(457)*y(28) + rxt(533)*y(99) + rxt(534)*y(62)) + mat(1505) = -rxt(457)*y(21) + mat(741) = -rxt(533)*y(21) + mat(1159) = -rxt(534)*y(21) + mat(78) = .700_r8*rxt(535)*y(131) + mat(786) = .700_r8*rxt(535)*y(22) + mat(77) = -(rxt(535)*y(131)) + mat(773) = -rxt(535)*y(22) + mat(323) = rxt(533)*y(99) + mat(734) = rxt(533)*y(21) + mat(1283) = -((rxt(114) + rxt(115)) * y(92) + rxt(127)*y(95) + rxt(285) & + *y(109) + rxt(314)*y(125) + rxt(341)*y(132) + rxt(350)*y(133) & + + rxt(450)*y(17) + rxt(452)*y(41) + rxt(453)*y(43) + (rxt(454) & + + rxt(455)) * y(99) + rxt(456)*y(72) + rxt(463)*y(29) + rxt(472) & + *y(54)) + mat(832) = -(rxt(114) + rxt(115)) * y(25) + mat(675) = -rxt(127)*y(25) + mat(1745) = -rxt(285)*y(25) + mat(1362) = -rxt(314)*y(25) + mat(1639) = -rxt(341)*y(25) + mat(1674) = -rxt(350)*y(25) + mat(615) = -rxt(450)*y(25) + mat(494) = -rxt(452)*y(25) + mat(150) = -rxt(453)*y(25) + mat(756) = -(rxt(454) + rxt(455)) * y(25) + mat(1447) = -rxt(456)*y(25) + mat(281) = -rxt(463)*y(25) + mat(242) = -rxt(472)*y(25) + mat(593) = rxt(491)*y(28) + mat(331) = rxt(457)*y(28) + mat(1526) = rxt(491)*y(5) + rxt(457)*y(21) + (4.000_r8*rxt(458) & + +2.000_r8*rxt(460))*y(28) + rxt(462)*y(62) + rxt(467)*y(69) & + + rxt(549)*y(79) + rxt(468)*y(131) + mat(35) = rxt(512)*y(70) + mat(1327) = rxt(470)*y(69) + rxt(482)*y(70) + rxt(471)*y(131) + mat(1182) = rxt(462)*y(28) + rxt(111)*y(91) + mat(1100) = rxt(110)*y(88) + mat(1241) = rxt(467)*y(28) + rxt(470)*y(49) + mat(646) = rxt(512)*y(34) + rxt(482)*y(49) + mat(388) = rxt(549)*y(28) + mat(700) = rxt(110)*y(63) + rxt(195)*y(101) + rxt(147)*y(103) + rxt(177) & + *y(105) + rxt(248)*y(116) + rxt(230)*y(117) + rxt(212)*y(120) & + + rxt(154)*y(126) + mat(417) = rxt(199)*y(101) + rxt(164)*y(103) + rxt(182)*y(105) + rxt(252) & + *y(116) + rxt(234)*y(117) + rxt(217)*y(120) + rxt(159)*y(126) + mat(401) = rxt(187)*y(101) + rxt(181)*y(103) + rxt(169)*y(105) + rxt(240) & + *y(116) + rxt(222)*y(117) + rxt(205)*y(120) + rxt(257)*y(126) + mat(293) = rxt(111)*y(62) + mat(916) = rxt(195)*y(88) + rxt(199)*y(89) + rxt(187)*y(90) + mat(1568) = rxt(147)*y(88) + rxt(164)*y(89) + rxt(181)*y(90) + mat(1716) = rxt(177)*y(88) + rxt(182)*y(89) + rxt(169)*y(90) + mat(963) = rxt(248)*y(88) + rxt(252)*y(89) + rxt(240)*y(90) + mat(1005) = rxt(230)*y(88) + rxt(234)*y(89) + rxt(222)*y(90) + mat(1141) = rxt(212)*y(88) + rxt(217)*y(89) + rxt(205)*y(90) + mat(1406) = rxt(154)*y(88) + rxt(159)*y(89) + rxt(257)*y(90) + mat(803) = rxt(468)*y(28) + rxt(471)*y(49) + mat(1256) = rxt(463)*y(29) + mat(1498) = 2.000_r8*rxt(459)*y(28) + mat(275) = rxt(463)*y(25) + (rxt(569)+rxt(574)+rxt(579))*y(49) + mat(1298) = (rxt(569)+rxt(574)+rxt(579))*y(29) + (rxt(564)+rxt(570)+rxt(575)) & + *y(54) + mat(238) = (rxt(564)+rxt(570)+rxt(575))*y(49) + mat(1497) = 2.000_r8*rxt(484)*y(28) + mat(1532) = -(rxt(116)*y(92) + rxt(128)*y(95) + rxt(286)*y(109) + rxt(315) & + *y(125) + rxt(342)*y(132) + rxt(351)*y(133) + rxt(457)*y(21) & + + (4._r8*rxt(458) + 4._r8*rxt(459) + 4._r8*rxt(460) & + + 4._r8*rxt(484)) * y(28) + rxt(461)*y(99) + rxt(462)*y(62) & + + rxt(464)*y(63) + rxt(467)*y(69) + (rxt(468) + rxt(469) & + ) * y(131) + (rxt(490) + rxt(491) + rxt(492)) * y(5) + rxt(549) & + *y(79)) + mat(838) = -rxt(116)*y(28) + mat(681) = -rxt(128)*y(28) + mat(1751) = -rxt(286)*y(28) + mat(1368) = -rxt(315)*y(28) + mat(1645) = -rxt(342)*y(28) + mat(1680) = -rxt(351)*y(28) + mat(333) = -rxt(457)*y(28) + mat(762) = -rxt(461)*y(28) + mat(1188) = -rxt(462)*y(28) + mat(1106) = -rxt(464)*y(28) + mat(1247) = -rxt(467)*y(28) + mat(809) = -(rxt(468) + rxt(469)) * y(28) + mat(597) = -(rxt(490) + rxt(491) + rxt(492)) * y(28) + mat(391) = -rxt(549)*y(28) + mat(1289) = rxt(472)*y(54) + rxt(456)*y(72) + rxt(455)*y(99) + mat(283) = rxt(465)*y(69) + mat(1333) = rxt(483)*y(70) + mat(244) = rxt(472)*y(25) + rxt(473)*y(69) + rxt(474)*y(131) + mat(1247) = mat(1247) + rxt(465)*y(29) + rxt(473)*y(54) + mat(652) = rxt(483)*y(49) + mat(1453) = rxt(456)*y(25) + mat(68) = rxt(554)*y(79) + mat(391) = mat(391) + rxt(554)*y(73) + mat(762) = mat(762) + rxt(455)*y(25) + mat(809) = mat(809) + rxt(474)*y(54) + mat(277) = -(rxt(463)*y(25) + rxt(465)*y(69) + rxt(466)*y(131) + (rxt(569) & + + rxt(574) + rxt(579)) * y(49)) + mat(1260) = -rxt(463)*y(29) + mat(1215) = -rxt(465)*y(29) + mat(784) = -rxt(466)*y(29) + mat(1303) = -(rxt(569) + rxt(574) + rxt(579)) * y(29) + mat(1503) = rxt(464)*y(63) + mat(1073) = rxt(464)*y(28) + mat(134) = -((rxt(537) + rxt(541)) * y(131)) + mat(775) = -(rxt(537) + rxt(541)) * y(31) + mat(468) = rxt(486)*y(17) + mat(601) = rxt(486)*y(3) + rxt(450)*y(25) + rxt(530)*y(64) + rxt(531)*y(69) & + + rxt(532)*y(131) + mat(1257) = rxt(450)*y(17) + mat(1761) = rxt(530)*y(17) + mat(1202) = rxt(531)*y(17) + rxt(544)*y(74) + mat(70) = rxt(544)*y(69) + rxt(545)*y(131) + mat(775) = mat(775) + rxt(532)*y(17) + rxt(545)*y(74) + mat(27) = -(rxt(511)*y(70)) + mat(625) = -rxt(511)*y(33) + mat(32) = -(rxt(512)*y(70)) + mat(626) = -rxt(512)*y(34) + mat(58) = -(rxt(542)*y(64) + (rxt(543) + rxt(556)) * y(131)) + mat(1760) = -rxt(542)*y(35) + mat(771) = -(rxt(543) + rxt(556)) * y(35) + mat(198) = -(rxt(508)*y(41) + rxt(509)*y(137) + rxt(510)*y(51)) + mat(482) = -rxt(508)*y(39) + mat(1812) = -rxt(509)*y(39) + mat(1585) = -rxt(510)*y(39) + mat(28) = 2.000_r8*rxt(511)*y(70) + mat(33) = rxt(512)*y(70) + mat(628) = 2.000_r8*rxt(511)*y(33) + rxt(512)*y(34) + mat(1487) = -(rxt(105)*y(88) + rxt(117)*y(92) + rxt(129)*y(95) + rxt(287) & + *y(109) + rxt(309)*y(120) + rxt(317)*y(125) + rxt(331)*y(128) & + + rxt(344)*y(132) + (rxt(408) + rxt(409) + rxt(410)) * y(99) & + + rxt(411)*y(71) + rxt(414)*y(72)) + mat(703) = -rxt(105)*y(40) + mat(837) = -rxt(117)*y(40) + mat(680) = -rxt(129)*y(40) + mat(1750) = -rxt(287)*y(40) + mat(1146) = -rxt(309)*y(40) + mat(1367) = -rxt(317)*y(40) + mat(448) = -rxt(331)*y(40) + mat(1644) = -rxt(344)*y(40) + mat(761) = -(rxt(408) + rxt(409) + rxt(410)) * y(40) + mat(1059) = -rxt(411)*y(40) + mat(1452) = -rxt(414)*y(40) + mat(618) = rxt(532)*y(131) + mat(1288) = rxt(452)*y(41) + mat(137) = rxt(541)*y(131) + mat(202) = rxt(508)*y(41) + mat(496) = rxt(452)*y(25) + rxt(508)*y(39) + rxt(406)*y(69) + rxt(389)*y(70) & + + rxt(415)*y(131) + rxt(354)*y(133) + mat(236) = rxt(506)*y(70) + mat(1332) = rxt(483)*y(70) + mat(322) = rxt(438)*y(131) + mat(1246) = rxt(406)*y(41) + rxt(418)*y(131) + mat(651) = rxt(389)*y(41) + rxt(506)*y(45) + rxt(483)*y(49) + mat(76) = rxt(545)*y(131) + mat(174) = rxt(550)*y(131) + mat(390) = rxt(555)*y(131) + mat(703) = mat(703) + rxt(195)*y(101) + rxt(147)*y(103) + rxt(177)*y(105) + mat(420) = rxt(199)*y(101) + rxt(164)*y(103) + rxt(182)*y(105) + mat(404) = rxt(187)*y(101) + rxt(181)*y(103) + rxt(169)*y(105) + mat(837) = mat(837) + rxt(186)*y(101) + (rxt(170)+rxt(258))*y(103) + ( & + + rxt(168)+rxt(265))*y(105) + mat(372) = rxt(194)*y(101) + (rxt(247)+rxt(271))*y(103) + (rxt(176)+rxt(259)) & + *y(105) + mat(552) = rxt(196)*y(101) + (rxt(158)+rxt(260))*y(103) + (rxt(178)+rxt(261)) & + *y(105) + mat(680) = mat(680) + rxt(191)*y(101) + rxt(225)*y(103) + rxt(174)*y(105) + mat(880) = rxt(138)*y(97) + rxt(382)*y(100) + rxt(383)*y(101) + rxt(141) & + *y(103) + rxt(144)*y(105) + rxt(381)*y(106) + mat(87) = rxt(138)*y(96) + mat(344) = rxt(189)*y(101) + rxt(203)*y(103) + rxt(172)*y(105) + mat(166) = rxt(382)*y(96) + mat(921) = rxt(195)*y(88) + rxt(199)*y(89) + rxt(187)*y(90) + rxt(186)*y(92) & + + rxt(194)*y(93) + rxt(196)*y(94) + rxt(191)*y(95) + rxt(383) & + *y(96) + rxt(189)*y(98) + rxt(201)*y(109) + rxt(197)*y(110) & + + rxt(200)*y(112) + rxt(193)*y(113) + rxt(198)*y(114) + rxt(190) & + *y(125) + mat(1573) = rxt(147)*y(88) + rxt(164)*y(89) + rxt(181)*y(90) + (rxt(170) & + +rxt(258))*y(92) + (rxt(247)+rxt(271))*y(93) + (rxt(158) & + +rxt(260))*y(94) + rxt(225)*y(95) + rxt(141)*y(96) + rxt(203) & + *y(98) + rxt(166)*y(109) + rxt(162)*y(110) + rxt(165)*y(112) + ( & + + rxt(236)+rxt(262))*y(113) + rxt(163)*y(114) + rxt(214)*y(125) + mat(1721) = rxt(177)*y(88) + rxt(182)*y(89) + rxt(169)*y(90) + (rxt(168) & + +rxt(265))*y(92) + (rxt(176)+rxt(259))*y(93) + (rxt(178) & + +rxt(261))*y(94) + rxt(174)*y(95) + rxt(144)*y(96) + rxt(172) & + *y(98) + rxt(184)*y(109) + rxt(179)*y(110) + rxt(183)*y(112) + ( & + + rxt(175)+rxt(263))*y(113) + rxt(180)*y(114) + rxt(173)*y(125) + mat(184) = rxt(381)*y(96) + mat(1750) = mat(1750) + rxt(201)*y(101) + rxt(166)*y(103) + rxt(184)*y(105) + mat(433) = rxt(197)*y(101) + rxt(162)*y(103) + rxt(179)*y(105) + mat(531) = rxt(200)*y(101) + rxt(165)*y(103) + rxt(183)*y(105) + mat(571) = rxt(193)*y(101) + (rxt(236)+rxt(262))*y(103) + (rxt(175)+rxt(263)) & + *y(105) + mat(462) = rxt(198)*y(101) + rxt(163)*y(103) + rxt(180)*y(105) + mat(1367) = mat(1367) + rxt(190)*y(101) + rxt(214)*y(103) + rxt(173)*y(105) + mat(808) = rxt(532)*y(17) + rxt(541)*y(31) + rxt(415)*y(41) + rxt(438)*y(56) & + + rxt(418)*y(69) + rxt(545)*y(74) + rxt(550)*y(77) + rxt(555) & + *y(79) + mat(1679) = rxt(354)*y(41) end subroutine nlnmat01 - subroutine nlnmat02( avec_len, mat, y, rxt ) + subroutine nlnmat02( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,484) = -((rxt(k,353) + rxt(k,354)) * y(k,133) + rxt(k,389)*y(k,122) & - + rxt(k,406)*y(k,67) + rxt(k,415)*y(k,131) + rxt(k,452)*y(k,86) & - + rxt(k,508)*y(k,37)) - mat(k,1646) = -(rxt(k,353) + rxt(k,354)) * y(k,39) - mat(k,634) = -rxt(k,389)*y(k,39) - mat(k,1410) = -rxt(k,406)*y(k,39) - mat(k,789) = -rxt(k,415)*y(k,39) - mat(k,1452) = -rxt(k,452)*y(k,39) - mat(k,200) = -rxt(k,508)*y(k,39) - mat(k,1766) = rxt(k,408)*y(k,98) - mat(k,743) = rxt(k,408)*y(k,38) - mat(k,146) = -(rxt(k,407)*y(k,67) + rxt(k,416)*y(k,131) + rxt(k,453)*y(k,86)) - mat(k,1392) = -rxt(k,407)*y(k,41) - mat(k,776) = -rxt(k,416)*y(k,41) - mat(k,1446) = -rxt(k,453)*y(k,41) - mat(k,736) = 2.000_r8*rxt(k,422)*y(k,98) - mat(k,776) = mat(k,776) + 2.000_r8*rxt(k,421)*y(k,131) - mat(k,45) = rxt(k,555)*y(k,137) - mat(k,1799) = rxt(k,555)*y(k,78) - mat(k,238) = -(rxt(k,499)*y(k,67) + rxt(k,500)*y(k,131) + (rxt(k,505) & - + rxt(k,506)) * y(k,122)) - mat(k,1399) = -rxt(k,499)*y(k,43) - mat(k,782) = -rxt(k,500)*y(k,43) - mat(k,629) = -(rxt(k,505) + rxt(k,506)) * y(k,43) - mat(k,602) = rxt(k,486)*y(k,85) - mat(k,453) = rxt(k,486)*y(k,16) + rxt(k,487)*y(k,98) - mat(k,740) = rxt(k,487)*y(k,85) - mat(k,1160) = -(rxt(k,106)*y(k,88) + rxt(k,108)*y(k,87) + rxt(k,130)*y(k,94) & - + (rxt(k,276) + rxt(k,298)) * y(k,110) + rxt(k,289)*y(k,108) & - + rxt(k,318)*y(k,125) + rxt(k,345)*y(k,132) + rxt(k,356) & - *y(k,133) + rxt(k,470)*y(k,67) + rxt(k,471)*y(k,131) + (rxt(k,482) & - + rxt(k,483)) * y(k,122) + (rxt(k,564) + rxt(k,570) + rxt(k,575) & - ) * y(k,52) + (rxt(k,569) + rxt(k,574) + rxt(k,579)) * y(k,27) & - + (rxt(k,571) + rxt(k,576)) * y(k,51)) - mat(k,415) = -rxt(k,106)*y(k,47) - mat(k,698) = -rxt(k,108)*y(k,47) - mat(k,672) = -rxt(k,130)*y(k,47) - mat(k,721) = -(rxt(k,276) + rxt(k,298)) * y(k,47) - mat(k,859) = -rxt(k,289)*y(k,47) - mat(k,1324) = -rxt(k,318)*y(k,47) - mat(k,1626) = -rxt(k,345)*y(k,47) - mat(k,1661) = -rxt(k,356)*y(k,47) - mat(k,1427) = -rxt(k,470)*y(k,47) - mat(k,800) = -rxt(k,471)*y(k,47) - mat(k,643) = -(rxt(k,482) + rxt(k,483)) * y(k,47) - mat(k,233) = -(rxt(k,564) + rxt(k,570) + rxt(k,575)) * y(k,47) - mat(k,281) = -(rxt(k,569) + rxt(k,574) + rxt(k,579)) * y(k,47) - mat(k,211) = -(rxt(k,571) + rxt(k,576)) * y(k,47) - mat(k,612) = rxt(k,450)*y(k,86) - mat(k,1747) = rxt(k,469)*y(k,131) - mat(k,1782) = rxt(k,105)*y(k,87) - mat(k,491) = rxt(k,452)*y(k,86) - mat(k,149) = rxt(k,453)*y(k,86) - mat(k,1289) = rxt(k,109)*y(k,87) + rxt(k,299)*y(k,113) - mat(k,233) = mat(k,233) + rxt(k,472)*y(k,86) - mat(k,1469) = rxt(k,450)*y(k,16) + rxt(k,452)*y(k,39) + rxt(k,453)*y(k,41) & - + rxt(k,472)*y(k,52) + rxt(k,454)*y(k,98) - mat(k,698) = mat(k,698) + rxt(k,105)*y(k,38) + rxt(k,109)*y(k,49) - mat(k,399) = rxt(k,187)*y(k,100) + (rxt(k,181)+2.000_r8*rxt(k,267))*y(k,102) + ( & - + rxt(k,169)+2.000_r8*rxt(k,268))*y(k,104) + rxt(k,240)*y(k,115) & - + rxt(k,222)*y(k,116) + rxt(k,205)*y(k,119) + rxt(k,257) & - *y(k,126) - mat(k,753) = rxt(k,454)*y(k,86) - mat(k,1036) = rxt(k,187)*y(k,89) + rxt(k,198)*y(k,113) - mat(k,1703) = (rxt(k,181)+2.000_r8*rxt(k,267))*y(k,89) + rxt(k,163)*y(k,113) - mat(k,1594) = (rxt(k,169)+2.000_r8*rxt(k,268))*y(k,89) + rxt(k,180)*y(k,113) - mat(k,472) = rxt(k,299)*y(k,49) + rxt(k,198)*y(k,100) + rxt(k,163)*y(k,102) & - + rxt(k,180)*y(k,104) + rxt(k,251)*y(k,115) + rxt(k,233) & - *y(k,116) + rxt(k,216)*y(k,119) + rxt(k,157)*y(k,126) - mat(k,906) = rxt(k,240)*y(k,89) + rxt(k,251)*y(k,113) - mat(k,948) = rxt(k,222)*y(k,89) + rxt(k,233)*y(k,113) - mat(k,1077) = rxt(k,205)*y(k,89) + rxt(k,216)*y(k,113) - mat(k,1368) = rxt(k,257)*y(k,89) + rxt(k,157)*y(k,113) - mat(k,800) = mat(k,800) + rxt(k,469)*y(k,26) - mat(k,197) = rxt(k,508)*y(k,39) + rxt(k,510)*y(k,49) + rxt(k,509)*y(k,137) - mat(k,481) = rxt(k,508)*y(k,37) - mat(k,1267) = rxt(k,510)*y(k,37) - mat(k,1800) = rxt(k,509)*y(k,37) - mat(k,1292) = -(rxt(k,109)*y(k,87) + rxt(k,124)*y(k,91) + rxt(k,290)*y(k,108) & - + rxt(k,295)*y(k,112) + rxt(k,299)*y(k,113) + rxt(k,300) & - *y(k,110) + rxt(k,319)*y(k,125) + rxt(k,357)*y(k,133) + rxt(k,447) & - *y(k,131) + rxt(k,510)*y(k,37)) - mat(k,700) = -rxt(k,109)*y(k,49) - mat(k,833) = -rxt(k,124)*y(k,49) - mat(k,862) = -rxt(k,290)*y(k,49) - mat(k,569) = -rxt(k,295)*y(k,49) - mat(k,474) = -rxt(k,299)*y(k,49) - mat(k,724) = -rxt(k,300)*y(k,49) - mat(k,1327) = -rxt(k,319)*y(k,49) - mat(k,1664) = -rxt(k,357)*y(k,49) - mat(k,803) = -rxt(k,447)*y(k,49) - mat(k,203) = -rxt(k,510)*y(k,49) - mat(k,615) = rxt(k,530)*y(k,62) - mat(k,282) = (rxt(k,569)+rxt(k,574)+rxt(k,579))*y(k,47) - mat(k,63) = rxt(k,556)*y(k,62) - mat(k,1163) = (rxt(k,569)+rxt(k,574)+rxt(k,579))*y(k,27) + rxt(k,298) & - *y(k,110) - mat(k,303) = rxt(k,142)*y(k,102) + rxt(k,145)*y(k,104) + rxt(k,293)*y(k,111) & - + rxt(k,297)*y(k,112) - mat(k,997) = rxt(k,446)*y(k,131) - mat(k,1119) = rxt(k,530)*y(k,16) + rxt(k,556)*y(k,33) - mat(k,1039) = rxt(k,188)*y(k,110) + 2.000_r8*rxt(k,185)*y(k,114) - mat(k,51) = rxt(k,140)*y(k,137) - mat(k,1706) = rxt(k,142)*y(k,56) + (rxt(k,192)+rxt(k,264))*y(k,110) + ( & - + 2.000_r8*rxt(k,146)+2.000_r8*rxt(k,269))*y(k,114) - mat(k,55) = rxt(k,143)*y(k,137) - mat(k,1597) = rxt(k,145)*y(k,56) + (rxt(k,171)+rxt(k,266))*y(k,110) + ( & - + 2.000_r8*rxt(k,167)+2.000_r8*rxt(k,270))*y(k,114) - mat(k,724) = mat(k,724) + rxt(k,298)*y(k,47) + rxt(k,188)*y(k,100) + ( & - + rxt(k,192)+rxt(k,264))*y(k,102) + (rxt(k,171)+rxt(k,266)) & - *y(k,104) - mat(k,529) = rxt(k,293)*y(k,56) - mat(k,569) = mat(k,569) + rxt(k,297)*y(k,56) - mat(k,511) = 2.000_r8*rxt(k,185)*y(k,100) + (2.000_r8*rxt(k,146) & - +2.000_r8*rxt(k,269))*y(k,102) + (2.000_r8*rxt(k,167) & - +2.000_r8*rxt(k,270))*y(k,104) + rxt(k,238)*y(k,115) & - + rxt(k,220)*y(k,116) + rxt(k,202)*y(k,119) + rxt(k,255) & - *y(k,126) - mat(k,909) = rxt(k,238)*y(k,114) - mat(k,951) = rxt(k,220)*y(k,114) - mat(k,1080) = rxt(k,202)*y(k,114) - mat(k,1371) = rxt(k,255)*y(k,114) - mat(k,803) = mat(k,803) + rxt(k,446)*y(k,61) - mat(k,1843) = rxt(k,140)*y(k,101) + rxt(k,143)*y(k,103) - mat(k,101) = -(rxt(k,423)*y(k,131)) - mat(k,774) = -rxt(k,423)*y(k,50) - mat(k,965) = rxt(k,444)*y(k,98) - mat(k,735) = rxt(k,444)*y(k,61) - mat(k,207) = -(rxt(k,501)*y(k,67) + (rxt(k,571) + rxt(k,576)) * y(k,47)) - mat(k,1395) = -rxt(k,501)*y(k,51) - mat(k,1136) = -(rxt(k,571) + rxt(k,576)) * y(k,51) - mat(k,580) = rxt(k,493)*y(k,98) - mat(k,738) = rxt(k,493)*y(k,4) - mat(k,231) = -(rxt(k,472)*y(k,86) + rxt(k,473)*y(k,67) + rxt(k,474)*y(k,131) & - + (rxt(k,564) + rxt(k,570) + rxt(k,575)) * y(k,47)) - mat(k,1447) = -rxt(k,472)*y(k,52) - mat(k,1398) = -rxt(k,473)*y(k,52) - mat(k,781) = -rxt(k,474)*y(k,52) - mat(k,1137) = -(rxt(k,564) + rxt(k,570) + rxt(k,575)) * y(k,52) - mat(k,1724) = rxt(k,461)*y(k,98) - mat(k,276) = rxt(k,466)*y(k,131) - mat(k,739) = rxt(k,461)*y(k,26) - mat(k,781) = mat(k,781) + rxt(k,466)*y(k,27) - mat(k,175) = -(rxt(k,340)*y(k,131)) - mat(k,778) = -rxt(k,340)*y(k,53) - mat(k,1135) = rxt(k,289)*y(k,108) - mat(k,1268) = rxt(k,290)*y(k,108) - mat(k,1486) = rxt(k,349)*y(k,131) - mat(k,847) = rxt(k,289)*y(k,47) + rxt(k,290)*y(k,49) - mat(k,90) = rxt(k,305)*y(k,137) - mat(k,778) = mat(k,778) + rxt(k,349)*y(k,60) - mat(k,1809) = rxt(k,305)*y(k,117) - mat(k,311) = -(rxt(k,426)*y(k,60) + (rxt(k,427) + rxt(k,428) + rxt(k,429) & - ) * y(k,61) + rxt(k,430)*y(k,68) + rxt(k,438)*y(k,131) + rxt(k,592) & - *y(k,126)) - mat(k,1488) = -rxt(k,426)*y(k,54) - mat(k,971) = -(rxt(k,427) + rxt(k,428) + rxt(k,429)) * y(k,54) - mat(k,1229) = -rxt(k,430)*y(k,54) - mat(k,785) = -rxt(k,438)*y(k,54) - mat(k,1342) = -rxt(k,592)*y(k,54) - mat(k,1405) = rxt(k,424)*y(k,106) + rxt(k,589)*y(k,121) - mat(k,1229) = mat(k,1229) + rxt(k,590)*y(k,121) - mat(k,1541) = 1.100_r8*rxt(k,585)*y(k,107) + .200_r8*rxt(k,583)*y(k,115) - mat(k,218) = rxt(k,424)*y(k,67) - mat(k,156) = 1.100_r8*rxt(k,585)*y(k,95) - mat(k,881) = .200_r8*rxt(k,583)*y(k,95) - mat(k,225) = rxt(k,589)*y(k,67) + rxt(k,590)*y(k,68) - mat(k,297) = -(rxt(k,142)*y(k,102) + rxt(k,145)*y(k,104) + rxt(k,293) & - *y(k,111) + rxt(k,297)*y(k,112)) - mat(k,1679) = -rxt(k,142)*y(k,56) - mat(k,1570) = -rxt(k,145)*y(k,56) - mat(k,517) = -rxt(k,293)*y(k,56) - mat(k,557) = -rxt(k,297)*y(k,56) - mat(k,970) = rxt(k,445)*y(k,62) - mat(k,1097) = rxt(k,445)*y(k,61) - mat(k,1518) = -((rxt(k,111) + rxt(k,112)) * y(k,90) + (rxt(k,122) + rxt(k,123) & - ) * y(k,93) + rxt(k,136)*y(k,133) + (rxt(k,272) + rxt(k,279) & - ) * y(k,128) + rxt(k,280)*y(k,91) + rxt(k,349)*y(k,131) & - + rxt(k,426)*y(k,54) + rxt(k,435)*y(k,62) + rxt(k,439)*y(k,98) & - + rxt(k,440)*y(k,69) + rxt(k,441)*y(k,67) + rxt(k,462)*y(k,26) & - + rxt(k,494)*y(k,4) + rxt(k,534)*y(k,20) + rxt(k,594)*y(k,126)) - mat(k,294) = -(rxt(k,111) + rxt(k,112)) * y(k,60) - mat(k,552) = -(rxt(k,122) + rxt(k,123)) * y(k,60) - mat(k,1669) = -rxt(k,136)*y(k,60) - mat(k,447) = -(rxt(k,272) + rxt(k,279)) * y(k,60) - mat(k,838) = -rxt(k,280)*y(k,60) - mat(k,808) = -rxt(k,349)*y(k,60) - mat(k,320) = -rxt(k,426)*y(k,60) - mat(k,1124) = -rxt(k,435)*y(k,60) - mat(k,761) = -rxt(k,439)*y(k,60) - mat(k,1209) = -rxt(k,440)*y(k,60) - mat(k,1435) = -rxt(k,441)*y(k,60) - mat(k,1755) = -rxt(k,462)*y(k,60) - mat(k,597) = -rxt(k,494)*y(k,60) - mat(k,331) = -rxt(k,534)*y(k,60) - mat(k,1376) = -rxt(k,594)*y(k,60) - mat(k,1790) = rxt(k,287)*y(k,108) + rxt(k,309)*y(k,119) - mat(k,320) = mat(k,320) + 2.000_r8*rxt(k,428)*y(k,61) + rxt(k,430)*y(k,68) & - + rxt(k,438)*y(k,131) - mat(k,1002) = 2.000_r8*rxt(k,428)*y(k,54) + rxt(k,431)*y(k,67) + rxt(k,549) & - *y(k,76) + rxt(k,291)*y(k,108) - mat(k,1435) = mat(k,1435) + rxt(k,431)*y(k,61) - mat(k,1258) = rxt(k,430)*y(k,54) + rxt(k,425)*y(k,106) - mat(k,389) = rxt(k,549)*y(k,61) - mat(k,703) = rxt(k,248)*y(k,115) + rxt(k,230)*y(k,116) + rxt(k,212)*y(k,119) - mat(k,419) = rxt(k,252)*y(k,115) + rxt(k,234)*y(k,116) + rxt(k,217)*y(k,119) - mat(k,403) = rxt(k,240)*y(k,115) + rxt(k,222)*y(k,116) + rxt(k,205)*y(k,119) - mat(k,838) = mat(k,838) + rxt(k,239)*y(k,115) + rxt(k,221)*y(k,116) & - + rxt(k,204)*y(k,119) - mat(k,371) = rxt(k,246)*y(k,115) + rxt(k,229)*y(k,116) + rxt(k,211)*y(k,119) - mat(k,552) = mat(k,552) + rxt(k,249)*y(k,115) + rxt(k,231)*y(k,116) & - + rxt(k,213)*y(k,119) - mat(k,679) = rxt(k,244)*y(k,115) + rxt(k,227)*y(k,116) + rxt(k,209)*y(k,119) - mat(k,1560) = rxt(k,303)*y(k,116) + rxt(k,304)*y(k,117) + rxt(k,306)*y(k,118) & - + rxt(k,308)*y(k,119) + rxt(k,384)*y(k,120) - mat(k,343) = rxt(k,242)*y(k,115) + rxt(k,224)*y(k,116) + rxt(k,207)*y(k,119) - mat(k,222) = rxt(k,425)*y(k,68) - mat(k,867) = rxt(k,287)*y(k,38) + rxt(k,291)*y(k,61) + rxt(k,254)*y(k,115) & - + rxt(k,237)*y(k,116) + rxt(k,219)*y(k,119) - mat(k,433) = rxt(k,250)*y(k,115) + rxt(k,232)*y(k,116) + rxt(k,215)*y(k,119) - mat(k,728) = rxt(k,241)*y(k,115) + rxt(k,223)*y(k,116) + rxt(k,206)*y(k,119) - mat(k,532) = rxt(k,253)*y(k,115) + rxt(k,235)*y(k,116) + rxt(k,218)*y(k,119) - mat(k,572) = rxt(k,245)*y(k,115) + rxt(k,228)*y(k,116) + rxt(k,210)*y(k,119) - mat(k,476) = rxt(k,251)*y(k,115) + rxt(k,233)*y(k,116) + rxt(k,216)*y(k,119) - mat(k,513) = rxt(k,238)*y(k,115) + rxt(k,220)*y(k,116) + rxt(k,202)*y(k,119) - mat(k,914) = rxt(k,248)*y(k,87) + rxt(k,252)*y(k,88) + rxt(k,240)*y(k,89) & - + rxt(k,239)*y(k,91) + rxt(k,246)*y(k,92) + rxt(k,249)*y(k,93) & - + rxt(k,244)*y(k,94) + rxt(k,242)*y(k,97) + rxt(k,254)*y(k,108) & - + rxt(k,250)*y(k,109) + rxt(k,241)*y(k,110) + rxt(k,253) & - *y(k,111) + rxt(k,245)*y(k,112) + rxt(k,251)*y(k,113) & - + rxt(k,238)*y(k,114) + rxt(k,243)*y(k,125) - mat(k,956) = rxt(k,230)*y(k,87) + rxt(k,234)*y(k,88) + rxt(k,222)*y(k,89) & - + rxt(k,221)*y(k,91) + rxt(k,229)*y(k,92) + rxt(k,231)*y(k,93) & - + rxt(k,227)*y(k,94) + rxt(k,303)*y(k,95) + rxt(k,224)*y(k,97) & - + rxt(k,237)*y(k,108) + rxt(k,232)*y(k,109) + rxt(k,223) & - *y(k,110) + rxt(k,235)*y(k,111) + rxt(k,228)*y(k,112) & - + rxt(k,233)*y(k,113) + rxt(k,220)*y(k,114) + rxt(k,226) & - *y(k,125) - mat(k,92) = rxt(k,304)*y(k,95) - mat(k,118) = rxt(k,306)*y(k,95) - mat(k,1085) = rxt(k,309)*y(k,38) + rxt(k,212)*y(k,87) + rxt(k,217)*y(k,88) & - + rxt(k,205)*y(k,89) + rxt(k,204)*y(k,91) + rxt(k,211)*y(k,92) & - + rxt(k,213)*y(k,93) + rxt(k,209)*y(k,94) + rxt(k,308)*y(k,95) & - + rxt(k,207)*y(k,97) + rxt(k,219)*y(k,108) + rxt(k,215)*y(k,109) & - + rxt(k,206)*y(k,110) + rxt(k,218)*y(k,111) + rxt(k,210) & - *y(k,112) + rxt(k,216)*y(k,113) + rxt(k,202)*y(k,114) & - + rxt(k,208)*y(k,125) - mat(k,112) = rxt(k,384)*y(k,95) - mat(k,1332) = rxt(k,243)*y(k,115) + rxt(k,226)*y(k,116) + rxt(k,208)*y(k,119) - mat(k,808) = mat(k,808) + rxt(k,438)*y(k,54) - end do + mat(484) = -((rxt(353) + rxt(354)) * y(133) + rxt(389)*y(70) + rxt(406)*y(69) & + + rxt(415)*y(131) + rxt(452)*y(25) + rxt(508)*y(39)) + mat(1657) = -(rxt(353) + rxt(354)) * y(41) + mat(634) = -rxt(389)*y(41) + mat(1222) = -rxt(406)*y(41) + mat(789) = -rxt(415)*y(41) + mat(1264) = -rxt(452)*y(41) + mat(200) = -rxt(508)*y(41) + mat(1464) = rxt(408)*y(99) + mat(743) = rxt(408)*y(40) + mat(146) = -(rxt(407)*y(69) + rxt(416)*y(131) + rxt(453)*y(25)) + mat(1204) = -rxt(407)*y(43) + mat(776) = -rxt(416)*y(43) + mat(1258) = -rxt(453)*y(43) + mat(736) = 2.000_r8*rxt(422)*y(99) + mat(776) = mat(776) + 2.000_r8*rxt(421)*y(131) + mat(45) = rxt(558)*y(137) + mat(1799) = rxt(558)*y(81) + mat(230) = -(rxt(499)*y(69) + rxt(500)*y(131) + (rxt(505) + rxt(506)) * y(70)) + mat(1210) = -rxt(499)*y(45) + mat(781) = -rxt(500)*y(45) + mat(629) = -(rxt(505) + rxt(506)) * y(45) + mat(469) = rxt(486)*y(17) + rxt(487)*y(99) + mat(602) = rxt(486)*y(3) + mat(739) = rxt(487)*y(3) + mat(1328) = -(rxt(106)*y(89) + rxt(108)*y(88) + rxt(130)*y(95) + (rxt(276) & + + rxt(298)) * y(111) + rxt(289)*y(109) + rxt(318)*y(125) + rxt(345) & + *y(132) + rxt(356)*y(133) + rxt(470)*y(69) + rxt(471)*y(131) & + + (rxt(482) + rxt(483)) * y(70) + (rxt(564) + rxt(570) + rxt(575) & + ) * y(54) + (rxt(569) + rxt(574) + rxt(579)) * y(29) + (rxt(571) & + + rxt(576)) * y(53)) + mat(418) = -rxt(106)*y(49) + mat(701) = -rxt(108)*y(49) + mat(676) = -rxt(130)*y(49) + mat(724) = -(rxt(276) + rxt(298)) * y(49) + mat(1746) = -rxt(289)*y(49) + mat(1363) = -rxt(318)*y(49) + mat(1640) = -rxt(345)*y(49) + mat(1675) = -rxt(356)*y(49) + mat(1242) = -rxt(470)*y(49) + mat(804) = -rxt(471)*y(49) + mat(647) = -(rxt(482) + rxt(483)) * y(49) + mat(243) = -(rxt(564) + rxt(570) + rxt(575)) * y(49) + mat(282) = -(rxt(569) + rxt(574) + rxt(579)) * y(49) + mat(213) = -(rxt(571) + rxt(576)) * y(49) + mat(616) = rxt(450)*y(25) + mat(1284) = rxt(450)*y(17) + rxt(452)*y(41) + rxt(453)*y(43) + rxt(472)*y(54) & + + rxt(454)*y(99) + mat(1527) = rxt(469)*y(131) + mat(1483) = rxt(105)*y(88) + mat(495) = rxt(452)*y(25) + mat(151) = rxt(453)*y(25) + mat(1608) = rxt(109)*y(88) + rxt(299)*y(114) + mat(243) = mat(243) + rxt(472)*y(25) + mat(701) = mat(701) + rxt(105)*y(40) + rxt(109)*y(51) + mat(402) = rxt(187)*y(101) + (rxt(181)+2.000_r8*rxt(267))*y(103) + (rxt(169) & + +2.000_r8*rxt(268))*y(105) + rxt(240)*y(116) + rxt(222)*y(117) & + + rxt(205)*y(120) + rxt(257)*y(126) + mat(757) = rxt(454)*y(25) + mat(917) = rxt(187)*y(90) + rxt(198)*y(114) + mat(1569) = (rxt(181)+2.000_r8*rxt(267))*y(90) + rxt(163)*y(114) + mat(1717) = (rxt(169)+2.000_r8*rxt(268))*y(90) + rxt(180)*y(114) + mat(460) = rxt(299)*y(51) + rxt(198)*y(101) + rxt(163)*y(103) + rxt(180) & + *y(105) + rxt(251)*y(116) + rxt(233)*y(117) + rxt(216)*y(120) & + + rxt(157)*y(126) + mat(964) = rxt(240)*y(90) + rxt(251)*y(114) + mat(1006) = rxt(222)*y(90) + rxt(233)*y(114) + mat(1142) = rxt(205)*y(90) + rxt(216)*y(114) + mat(1407) = rxt(257)*y(90) + rxt(157)*y(114) + mat(804) = mat(804) + rxt(469)*y(28) + mat(197) = rxt(508)*y(41) + rxt(510)*y(51) + rxt(509)*y(137) + mat(481) = rxt(508)*y(39) + mat(1583) = rxt(510)*y(39) + mat(1800) = rxt(509)*y(39) + mat(1615) = -(rxt(109)*y(88) + rxt(124)*y(92) + rxt(290)*y(109) + rxt(295) & + *y(113) + rxt(299)*y(114) + rxt(300)*y(111) + rxt(319)*y(125) & + + rxt(357)*y(133) + rxt(447)*y(131) + rxt(510)*y(39)) + mat(705) = -rxt(109)*y(51) + mat(840) = -rxt(124)*y(51) + mat(1753) = -rxt(290)*y(51) + mat(573) = -rxt(295)*y(51) + mat(464) = -rxt(299)*y(51) + mat(729) = -rxt(300)*y(51) + mat(1370) = -rxt(319)*y(51) + mat(1682) = -rxt(357)*y(51) + mat(810) = -rxt(447)*y(51) + mat(203) = -rxt(510)*y(51) + mat(620) = rxt(530)*y(64) + mat(284) = (rxt(569)+rxt(574)+rxt(579))*y(49) + mat(62) = rxt(542)*y(64) + mat(1335) = (rxt(569)+rxt(574)+rxt(579))*y(29) + rxt(298)*y(111) + mat(305) = rxt(142)*y(103) + rxt(145)*y(105) + rxt(293)*y(112) + rxt(297) & + *y(113) + mat(1108) = rxt(446)*y(131) + mat(1792) = rxt(530)*y(17) + rxt(542)*y(35) + mat(924) = rxt(188)*y(111) + 2.000_r8*rxt(185)*y(115) + mat(52) = rxt(140)*y(137) + mat(1576) = rxt(142)*y(58) + (rxt(192)+rxt(264))*y(111) + (2.000_r8*rxt(146) & + +2.000_r8*rxt(269))*y(115) + mat(55) = rxt(143)*y(137) + mat(1724) = rxt(145)*y(58) + (rxt(171)+rxt(266))*y(111) + (2.000_r8*rxt(167) & + +2.000_r8*rxt(270))*y(115) + mat(729) = mat(729) + rxt(298)*y(49) + rxt(188)*y(101) + (rxt(192)+rxt(264)) & + *y(103) + (rxt(171)+rxt(266))*y(105) + mat(533) = rxt(293)*y(58) + mat(573) = mat(573) + rxt(297)*y(58) + mat(513) = 2.000_r8*rxt(185)*y(101) + (2.000_r8*rxt(146)+2.000_r8*rxt(269)) & + *y(103) + (2.000_r8*rxt(167)+2.000_r8*rxt(270))*y(105) & + + rxt(238)*y(116) + rxt(220)*y(117) + rxt(202)*y(120) + rxt(255) & + *y(126) + mat(971) = rxt(238)*y(115) + mat(1013) = rxt(220)*y(115) + mat(1149) = rxt(202)*y(115) + mat(1414) = rxt(255)*y(115) + mat(810) = mat(810) + rxt(446)*y(63) + mat(1850) = rxt(140)*y(102) + rxt(143)*y(104) + mat(101) = -(rxt(423)*y(131)) + mat(774) = -rxt(423)*y(52) + mat(1069) = rxt(444)*y(99) + mat(735) = rxt(444)*y(63) + mat(207) = -(rxt(501)*y(69) + (rxt(571) + rxt(576)) * y(49)) + mat(1207) = -rxt(501)*y(53) + mat(1301) = -(rxt(571) + rxt(576)) * y(53) + mat(580) = rxt(493)*y(99) + mat(738) = rxt(493)*y(5) + mat(239) = -(rxt(472)*y(25) + rxt(473)*y(69) + rxt(474)*y(131) + (rxt(564) & + + rxt(570) + rxt(575)) * y(49)) + mat(1259) = -rxt(472)*y(54) + mat(1211) = -rxt(473)*y(54) + mat(782) = -rxt(474)*y(54) + mat(1302) = -(rxt(564) + rxt(570) + rxt(575)) * y(54) + mat(1501) = rxt(461)*y(99) + mat(276) = rxt(466)*y(131) + mat(740) = rxt(461)*y(28) + mat(782) = mat(782) + rxt(466)*y(29) + mat(175) = -(rxt(340)*y(131)) + mat(778) = -rxt(340)*y(55) + mat(1300) = rxt(289)*y(109) + mat(1584) = rxt(290)*y(109) + mat(1156) = rxt(349)*y(131) + mat(1731) = rxt(289)*y(49) + rxt(290)*y(51) + mat(90) = rxt(305)*y(137) + mat(778) = mat(778) + rxt(349)*y(62) + mat(1809) = rxt(305)*y(118) + mat(311) = -(rxt(426)*y(62) + (rxt(427) + rxt(428) + rxt(429)) * y(63) & + + rxt(430)*y(71) + rxt(438)*y(131) + rxt(592)*y(126)) + mat(1158) = -rxt(426)*y(56) + mat(1075) = -(rxt(427) + rxt(428) + rxt(429)) * y(56) + mat(1031) = -rxt(430)*y(56) + mat(785) = -rxt(438)*y(56) + mat(1378) = -rxt(592)*y(56) + mat(1217) = rxt(424)*y(107) + rxt(589)*y(122) + mat(1031) = mat(1031) + rxt(590)*y(122) + mat(861) = 1.100_r8*rxt(585)*y(108) + .200_r8*rxt(583)*y(116) + mat(218) = rxt(424)*y(69) + mat(156) = 1.100_r8*rxt(585)*y(96) + mat(936) = .200_r8*rxt(583)*y(96) + mat(225) = rxt(589)*y(69) + rxt(590)*y(71) + mat(297) = -(rxt(142)*y(103) + rxt(145)*y(105) + rxt(293)*y(112) + rxt(297) & + *y(113)) + mat(1542) = -rxt(142)*y(58) + mat(1690) = -rxt(145)*y(58) + mat(517) = -rxt(293)*y(58) + mat(557) = -rxt(297)*y(58) + mat(1074) = rxt(445)*y(64) + mat(1763) = rxt(445)*y(63) + mat(1180) = -((rxt(111) + rxt(112)) * y(91) + (rxt(122) + rxt(123)) * y(94) & + + rxt(136)*y(133) + (rxt(272) + rxt(279)) * y(128) + rxt(280) & + *y(92) + rxt(349)*y(131) + rxt(426)*y(56) + rxt(435)*y(64) & + + rxt(439)*y(99) + rxt(440)*y(72) + rxt(441)*y(69) + rxt(462) & + *y(28) + rxt(494)*y(5) + rxt(534)*y(21) + rxt(594)*y(126)) + mat(291) = -(rxt(111) + rxt(112)) * y(62) + mat(549) = -(rxt(122) + rxt(123)) * y(62) + mat(1672) = -rxt(136)*y(62) + mat(444) = -(rxt(272) + rxt(279)) * y(62) + mat(830) = -rxt(280)*y(62) + mat(801) = -rxt(349)*y(62) + mat(319) = -rxt(426)*y(62) + mat(1782) = -rxt(435)*y(62) + mat(754) = -rxt(439)*y(62) + mat(1445) = -rxt(440)*y(62) + mat(1239) = -rxt(441)*y(62) + mat(1524) = -rxt(462)*y(62) + mat(591) = -rxt(494)*y(62) + mat(330) = -rxt(534)*y(62) + mat(1404) = -rxt(594)*y(62) + mat(1480) = rxt(287)*y(109) + rxt(309)*y(120) + mat(319) = mat(319) + 2.000_r8*rxt(428)*y(63) + rxt(430)*y(71) + rxt(438) & + *y(131) + mat(1098) = 2.000_r8*rxt(428)*y(56) + rxt(431)*y(69) + rxt(551)*y(79) & + + rxt(291)*y(109) + mat(1239) = mat(1239) + rxt(431)*y(63) + mat(1052) = rxt(430)*y(56) + rxt(425)*y(107) + mat(386) = rxt(551)*y(63) + mat(699) = rxt(248)*y(116) + rxt(230)*y(117) + rxt(212)*y(120) + mat(416) = rxt(252)*y(116) + rxt(234)*y(117) + rxt(217)*y(120) + mat(400) = rxt(240)*y(116) + rxt(222)*y(117) + rxt(205)*y(120) + mat(830) = mat(830) + rxt(239)*y(116) + rxt(221)*y(117) + rxt(204)*y(120) + mat(369) = rxt(246)*y(116) + rxt(229)*y(117) + rxt(211)*y(120) + mat(549) = mat(549) + rxt(249)*y(116) + rxt(231)*y(117) + rxt(213)*y(120) + mat(673) = rxt(244)*y(116) + rxt(227)*y(117) + rxt(209)*y(120) + mat(873) = rxt(303)*y(117) + rxt(304)*y(118) + rxt(306)*y(119) + rxt(308) & + *y(120) + rxt(384)*y(121) + mat(342) = rxt(242)*y(116) + rxt(224)*y(117) + rxt(207)*y(120) + mat(221) = rxt(425)*y(71) + mat(1743) = rxt(287)*y(40) + rxt(291)*y(63) + rxt(254)*y(116) + rxt(237) & + *y(117) + rxt(219)*y(120) + mat(431) = rxt(250)*y(116) + rxt(232)*y(117) + rxt(215)*y(120) + mat(721) = rxt(241)*y(116) + rxt(223)*y(117) + rxt(206)*y(120) + mat(528) = rxt(253)*y(116) + rxt(235)*y(117) + rxt(218)*y(120) + mat(568) = rxt(245)*y(116) + rxt(228)*y(117) + rxt(210)*y(120) + mat(459) = rxt(251)*y(116) + rxt(233)*y(117) + rxt(216)*y(120) + mat(510) = rxt(238)*y(116) + rxt(220)*y(117) + rxt(202)*y(120) + mat(961) = rxt(248)*y(88) + rxt(252)*y(89) + rxt(240)*y(90) + rxt(239)*y(92) & + + rxt(246)*y(93) + rxt(249)*y(94) + rxt(244)*y(95) + rxt(242) & + *y(98) + rxt(254)*y(109) + rxt(250)*y(110) + rxt(241)*y(111) & + + rxt(253)*y(112) + rxt(245)*y(113) + rxt(251)*y(114) + rxt(238) & + *y(115) + rxt(243)*y(125) + mat(1003) = rxt(230)*y(88) + rxt(234)*y(89) + rxt(222)*y(90) + rxt(221)*y(92) & + + rxt(229)*y(93) + rxt(231)*y(94) + rxt(227)*y(95) + rxt(303) & + *y(96) + rxt(224)*y(98) + rxt(237)*y(109) + rxt(232)*y(110) & + + rxt(223)*y(111) + rxt(235)*y(112) + rxt(228)*y(113) + rxt(233) & + *y(114) + rxt(220)*y(115) + rxt(226)*y(125) + mat(93) = rxt(304)*y(96) + mat(119) = rxt(306)*y(96) + mat(1139) = rxt(309)*y(40) + rxt(212)*y(88) + rxt(217)*y(89) + rxt(205)*y(90) & + + rxt(204)*y(92) + rxt(211)*y(93) + rxt(213)*y(94) + rxt(209) & + *y(95) + rxt(308)*y(96) + rxt(207)*y(98) + rxt(219)*y(109) & + + rxt(215)*y(110) + rxt(206)*y(111) + rxt(218)*y(112) + rxt(210) & + *y(113) + rxt(216)*y(114) + rxt(202)*y(115) + rxt(208)*y(125) + mat(113) = rxt(384)*y(96) + mat(1360) = rxt(243)*y(116) + rxt(226)*y(117) + rxt(208)*y(120) + mat(801) = mat(801) + rxt(438)*y(56) end subroutine nlnmat02 - subroutine nlnmat03( avec_len, mat, y, rxt ) + subroutine nlnmat03( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,990) = -(rxt(k,110)*y(k,87) + (rxt(k,120) + rxt(k,121)) * y(k,93) & - + (rxt(k,277) + rxt(k,278)) * y(k,128) + rxt(k,281)*y(k,91) & - + rxt(k,291)*y(k,108) + rxt(k,320)*y(k,125) + rxt(k,346) & - *y(k,132) + rxt(k,359)*y(k,133) + (rxt(k,427) + rxt(k,428) & - + rxt(k,429)) * y(k,54) + (rxt(k,431) + rxt(k,433)) * y(k,67) & - + rxt(k,432)*y(k,69) + rxt(k,444)*y(k,98) + rxt(k,445)*y(k,62) & - + rxt(k,446)*y(k,131) + rxt(k,464)*y(k,26) + rxt(k,495)*y(k,4) & - + rxt(k,549)*y(k,76)) - mat(k,695) = -rxt(k,110)*y(k,61) - mat(k,546) = -(rxt(k,120) + rxt(k,121)) * y(k,61) - mat(k,442) = -(rxt(k,277) + rxt(k,278)) * y(k,61) - mat(k,826) = -rxt(k,281)*y(k,61) - mat(k,855) = -rxt(k,291)*y(k,61) - mat(k,1320) = -rxt(k,320)*y(k,61) - mat(k,1622) = -rxt(k,346)*y(k,61) - mat(k,1657) = -rxt(k,359)*y(k,61) - mat(k,316) = -(rxt(k,427) + rxt(k,428) + rxt(k,429)) * y(k,61) - mat(k,1423) = -(rxt(k,431) + rxt(k,433)) * y(k,61) - mat(k,1197) = -rxt(k,432)*y(k,61) - mat(k,749) = -rxt(k,444)*y(k,61) - mat(k,1112) = -rxt(k,445)*y(k,61) - mat(k,796) = -rxt(k,446)*y(k,61) - mat(k,1743) = -rxt(k,464)*y(k,61) - mat(k,589) = -rxt(k,495)*y(k,61) - mat(k,384) = -rxt(k,549)*y(k,61) - mat(k,589) = mat(k,589) + rxt(k,494)*y(k,60) - mat(k,328) = rxt(k,534)*y(k,60) - mat(k,1743) = mat(k,1743) + rxt(k,462)*y(k,60) - mat(k,104) = rxt(k,423)*y(k,131) - mat(k,177) = rxt(k,340)*y(k,131) - mat(k,1506) = rxt(k,494)*y(k,4) + rxt(k,534)*y(k,20) + rxt(k,462)*y(k,26) & - + 2.000_r8*rxt(k,435)*y(k,62) + rxt(k,441)*y(k,67) + rxt(k,440) & - *y(k,69) + rxt(k,112)*y(k,90) + rxt(k,439)*y(k,98) + rxt(k,136) & - *y(k,133) - mat(k,1112) = mat(k,1112) + 2.000_r8*rxt(k,435)*y(k,60) + rxt(k,436)*y(k,67) & - + rxt(k,434)*y(k,98) + rxt(k,437)*y(k,131) - mat(k,1423) = mat(k,1423) + rxt(k,441)*y(k,60) + rxt(k,436)*y(k,62) - mat(k,1197) = mat(k,1197) + rxt(k,440)*y(k,60) - mat(k,1465) = rxt(k,285)*y(k,108) - mat(k,290) = rxt(k,112)*y(k,60) - mat(k,749) = mat(k,749) + rxt(k,439)*y(k,60) + rxt(k,434)*y(k,62) - mat(k,1032) = rxt(k,201)*y(k,108) + rxt(k,197)*y(k,109) - mat(k,1699) = rxt(k,166)*y(k,108) + rxt(k,162)*y(k,109) - mat(k,1590) = rxt(k,184)*y(k,108) + rxt(k,179)*y(k,109) - mat(k,855) = mat(k,855) + rxt(k,285)*y(k,86) + rxt(k,201)*y(k,100) & - + rxt(k,166)*y(k,102) + rxt(k,184)*y(k,104) + rxt(k,254) & - *y(k,115) + rxt(k,237)*y(k,116) + rxt(k,219)*y(k,119) & - + rxt(k,161)*y(k,126) - mat(k,428) = rxt(k,197)*y(k,100) + rxt(k,162)*y(k,102) + rxt(k,179)*y(k,104) & - + rxt(k,250)*y(k,115) + rxt(k,232)*y(k,116) + rxt(k,215) & - *y(k,119) + rxt(k,156)*y(k,126) - mat(k,902) = rxt(k,254)*y(k,108) + rxt(k,250)*y(k,109) - mat(k,944) = rxt(k,237)*y(k,108) + rxt(k,232)*y(k,109) - mat(k,1073) = rxt(k,219)*y(k,108) + rxt(k,215)*y(k,109) + rxt(k,311)*y(k,131) - mat(k,1364) = rxt(k,161)*y(k,108) + rxt(k,156)*y(k,109) - mat(k,796) = mat(k,796) + rxt(k,423)*y(k,50) + rxt(k,340)*y(k,53) & - + rxt(k,437)*y(k,62) + rxt(k,311)*y(k,119) - mat(k,1657) = mat(k,1657) + rxt(k,136)*y(k,60) - mat(k,1115) = -(rxt(k,434)*y(k,98) + rxt(k,435)*y(k,60) + rxt(k,436)*y(k,67) & - + rxt(k,437)*y(k,131) + rxt(k,445)*y(k,61) + rxt(k,530)*y(k,16) & - + rxt(k,556)*y(k,33)) - mat(k,752) = -rxt(k,434)*y(k,62) - mat(k,1509) = -rxt(k,435)*y(k,62) - mat(k,1426) = -rxt(k,436)*y(k,62) - mat(k,799) = -rxt(k,437)*y(k,62) - mat(k,993) = -rxt(k,445)*y(k,62) - mat(k,611) = -rxt(k,530)*y(k,62) - mat(k,62) = -rxt(k,556)*y(k,62) - mat(k,143) = rxt(k,496)*y(k,67) - mat(k,1746) = rxt(k,286)*y(k,108) - mat(k,280) = rxt(k,465)*y(k,67) + rxt(k,463)*y(k,86) + rxt(k,466)*y(k,131) - mat(k,202) = rxt(k,510)*y(k,49) - mat(k,1288) = rxt(k,510)*y(k,37) + rxt(k,447)*y(k,131) - mat(k,993) = mat(k,993) + rxt(k,433)*y(k,67) + rxt(k,432)*y(k,69) - mat(k,1426) = mat(k,1426) + rxt(k,496)*y(k,5) + rxt(k,465)*y(k,27) & - + rxt(k,433)*y(k,61) - mat(k,1200) = rxt(k,432)*y(k,61) - mat(k,1468) = rxt(k,463)*y(k,27) - mat(k,752) = mat(k,752) + rxt(k,310)*y(k,119) - mat(k,1035) = rxt(k,200)*y(k,111) + rxt(k,193)*y(k,112) + rxt(k,198)*y(k,113) - mat(k,1702) = rxt(k,165)*y(k,111) + (rxt(k,236)+rxt(k,262))*y(k,112) & - + rxt(k,163)*y(k,113) - mat(k,1593) = rxt(k,183)*y(k,111) + (rxt(k,175)+rxt(k,263))*y(k,112) & - + rxt(k,180)*y(k,113) - mat(k,858) = rxt(k,286)*y(k,26) - mat(k,720) = rxt(k,241)*y(k,115) + rxt(k,223)*y(k,116) + rxt(k,206)*y(k,119) & - + rxt(k,148)*y(k,126) - mat(k,527) = rxt(k,200)*y(k,100) + rxt(k,165)*y(k,102) + rxt(k,183)*y(k,104) & - + rxt(k,253)*y(k,115) + rxt(k,235)*y(k,116) + rxt(k,218) & - *y(k,119) + rxt(k,160)*y(k,126) - mat(k,567) = rxt(k,193)*y(k,100) + (rxt(k,236)+rxt(k,262))*y(k,102) + ( & - + rxt(k,175)+rxt(k,263))*y(k,104) + rxt(k,245)*y(k,115) & - + rxt(k,228)*y(k,116) + rxt(k,210)*y(k,119) + rxt(k,152) & - *y(k,126) - mat(k,471) = rxt(k,198)*y(k,100) + rxt(k,163)*y(k,102) + rxt(k,180)*y(k,104) & - + rxt(k,251)*y(k,115) + rxt(k,233)*y(k,116) + rxt(k,216) & - *y(k,119) + rxt(k,157)*y(k,126) - mat(k,509) = rxt(k,238)*y(k,115) + rxt(k,220)*y(k,116) + rxt(k,202)*y(k,119) & - + rxt(k,255)*y(k,126) - mat(k,905) = rxt(k,241)*y(k,110) + rxt(k,253)*y(k,111) + rxt(k,245)*y(k,112) & - + rxt(k,251)*y(k,113) + rxt(k,238)*y(k,114) - mat(k,947) = rxt(k,223)*y(k,110) + rxt(k,235)*y(k,111) + rxt(k,228)*y(k,112) & - + rxt(k,233)*y(k,113) + rxt(k,220)*y(k,114) - mat(k,1076) = rxt(k,310)*y(k,98) + rxt(k,206)*y(k,110) + rxt(k,218)*y(k,111) & - + rxt(k,210)*y(k,112) + rxt(k,216)*y(k,113) + rxt(k,202) & - *y(k,114) - mat(k,1367) = rxt(k,148)*y(k,110) + rxt(k,160)*y(k,111) + rxt(k,152)*y(k,112) & - + rxt(k,157)*y(k,113) + rxt(k,255)*y(k,114) - mat(k,799) = mat(k,799) + rxt(k,466)*y(k,27) + rxt(k,447)*y(k,49) - mat(k,1433) = -(rxt(k,113)*y(k,90) + rxt(k,125)*y(k,91) + rxt(k,131)*y(k,94) & - + rxt(k,301)*y(k,110) + (rxt(k,324) + rxt(k,325)) * y(k,125) & - + (rxt(k,333) + rxt(k,334)) * y(k,128) + rxt(k,336)*y(k,129) & - + rxt(k,338)*y(k,130) + rxt(k,347)*y(k,132) + rxt(k,360) & - *y(k,133) + rxt(k,403)*y(k,69) + 4._r8*rxt(k,404)*y(k,67) & - + rxt(k,405)*y(k,68) + rxt(k,406)*y(k,39) + rxt(k,407)*y(k,41) & - + rxt(k,412)*y(k,98) + rxt(k,418)*y(k,131) + (rxt(k,431) & - + rxt(k,433)) * y(k,61) + rxt(k,436)*y(k,62) + rxt(k,441) & - *y(k,60) + rxt(k,465)*y(k,27) + rxt(k,467)*y(k,26) + rxt(k,470) & - *y(k,47) + rxt(k,473)*y(k,52) + rxt(k,496)*y(k,5) + rxt(k,497) & - *y(k,4) + rxt(k,499)*y(k,43) + rxt(k,501)*y(k,51) + rxt(k,531) & - *y(k,16) + rxt(k,542)*y(k,71) + (rxt(k,587) + rxt(k,588) & - ) * y(k,107) + rxt(k,589)*y(k,121)) - mat(k,292) = -rxt(k,113)*y(k,67) - mat(k,836) = -rxt(k,125)*y(k,67) - mat(k,677) = -rxt(k,131)*y(k,67) - mat(k,726) = -rxt(k,301)*y(k,67) - mat(k,1330) = -(rxt(k,324) + rxt(k,325)) * y(k,67) - mat(k,446) = -(rxt(k,333) + rxt(k,334)) * y(k,67) - mat(k,100) = -rxt(k,336)*y(k,67) - mat(k,357) = -rxt(k,338)*y(k,67) - mat(k,1632) = -rxt(k,347)*y(k,67) - mat(k,1667) = -rxt(k,360)*y(k,67) - mat(k,1207) = -rxt(k,403)*y(k,67) - mat(k,1256) = -rxt(k,405)*y(k,67) - mat(k,494) = -rxt(k,406)*y(k,67) - mat(k,150) = -rxt(k,407)*y(k,67) - mat(k,759) = -rxt(k,412)*y(k,67) - mat(k,806) = -rxt(k,418)*y(k,67) - mat(k,1000) = -(rxt(k,431) + rxt(k,433)) * y(k,67) - mat(k,1122) = -rxt(k,436)*y(k,67) - mat(k,1516) = -rxt(k,441)*y(k,67) - mat(k,283) = -rxt(k,465)*y(k,67) - mat(k,1753) = -rxt(k,467)*y(k,67) - mat(k,1166) = -rxt(k,470)*y(k,67) - mat(k,234) = -rxt(k,473)*y(k,67) - mat(k,145) = -rxt(k,496)*y(k,67) - mat(k,595) = -rxt(k,497)*y(k,67) - mat(k,243) = -rxt(k,499)*y(k,67) - mat(k,212) = -rxt(k,501)*y(k,67) - mat(k,616) = -rxt(k,531)*y(k,67) - mat(k,75) = -rxt(k,542)*y(k,67) - mat(k,160) = -(rxt(k,587) + rxt(k,588)) * y(k,67) - mat(k,229) = -rxt(k,589)*y(k,67) - mat(k,1788) = rxt(k,410)*y(k,98) - mat(k,319) = rxt(k,426)*y(k,60) + rxt(k,427)*y(k,61) + rxt(k,430)*y(k,68) & - + rxt(k,592)*y(k,126) - mat(k,1516) = mat(k,1516) + rxt(k,426)*y(k,54) + rxt(k,272)*y(k,128) - mat(k,1000) = mat(k,1000) + rxt(k,427)*y(k,54) + rxt(k,359)*y(k,133) - mat(k,1256) = mat(k,1256) + rxt(k,430)*y(k,54) + rxt(k,544)*y(k,74) & - + rxt(k,550)*y(k,76) + rxt(k,591)*y(k,121) + (rxt(k,392) & - +rxt(k,393))*y(k,122) + rxt(k,598)*y(k,134) + rxt(k,602) & - *y(k,135) - mat(k,1207) = mat(k,1207) + rxt(k,363)*y(k,133) - mat(k,173) = rxt(k,544)*y(k,68) - mat(k,387) = rxt(k,550)*y(k,68) - mat(k,1475) = rxt(k,114)*y(k,91) + rxt(k,350)*y(k,133) - mat(k,836) = mat(k,836) + rxt(k,114)*y(k,86) + rxt(k,186)*y(k,100) + ( & - + rxt(k,170)+rxt(k,258))*y(k,102) + (rxt(k,168)+rxt(k,265)) & - *y(k,104) + rxt(k,239)*y(k,115) + rxt(k,221)*y(k,116) & - + rxt(k,204)*y(k,119) + rxt(k,256)*y(k,126) - mat(k,370) = rxt(k,194)*y(k,100) + (rxt(k,247)+rxt(k,271))*y(k,102) + ( & - + rxt(k,176)+rxt(k,259))*y(k,104) + rxt(k,246)*y(k,115) & - + rxt(k,229)*y(k,116) + rxt(k,211)*y(k,119) + rxt(k,153) & - *y(k,126) - mat(k,551) = rxt(k,196)*y(k,100) + (rxt(k,158)+rxt(k,260))*y(k,102) + ( & - + rxt(k,178)+rxt(k,261))*y(k,104) + rxt(k,249)*y(k,115) & - + rxt(k,231)*y(k,116) + rxt(k,213)*y(k,119) + rxt(k,155) & - *y(k,126) - mat(k,1558) = rxt(k,583)*y(k,115) + 1.150_r8*rxt(k,584)*y(k,126) - mat(k,759) = mat(k,759) + rxt(k,410)*y(k,38) - mat(k,1042) = rxt(k,186)*y(k,91) + rxt(k,194)*y(k,92) + rxt(k,196)*y(k,93) - mat(k,1709) = (rxt(k,170)+rxt(k,258))*y(k,91) + (rxt(k,247)+rxt(k,271)) & - *y(k,92) + (rxt(k,158)+rxt(k,260))*y(k,93) - mat(k,1600) = (rxt(k,168)+rxt(k,265))*y(k,91) + (rxt(k,176)+rxt(k,259)) & - *y(k,92) + (rxt(k,178)+rxt(k,261))*y(k,93) - mat(k,221) = rxt(k,597)*y(k,134) - mat(k,912) = rxt(k,239)*y(k,91) + rxt(k,246)*y(k,92) + rxt(k,249)*y(k,93) & - + rxt(k,583)*y(k,95) - mat(k,954) = rxt(k,221)*y(k,91) + rxt(k,229)*y(k,92) + rxt(k,231)*y(k,93) - mat(k,1083) = rxt(k,204)*y(k,91) + rxt(k,211)*y(k,92) + rxt(k,213)*y(k,93) - mat(k,229) = mat(k,229) + rxt(k,591)*y(k,68) - mat(k,649) = (rxt(k,392)+rxt(k,393))*y(k,68) - mat(k,1374) = rxt(k,592)*y(k,54) + rxt(k,256)*y(k,91) + rxt(k,153)*y(k,92) & - + rxt(k,155)*y(k,93) + 1.150_r8*rxt(k,584)*y(k,95) - mat(k,446) = mat(k,446) + rxt(k,272)*y(k,60) - mat(k,806) = mat(k,806) + 2.000_r8*rxt(k,420)*y(k,131) - mat(k,1667) = mat(k,1667) + rxt(k,359)*y(k,61) + rxt(k,363)*y(k,69) & - + rxt(k,350)*y(k,86) - mat(k,272) = rxt(k,598)*y(k,68) + rxt(k,597)*y(k,106) - mat(k,133) = rxt(k,602)*y(k,68) - mat(k,1252) = -(rxt(k,126)*y(k,91) + (rxt(k,133) + rxt(k,135)) * y(k,95) & - + rxt(k,322)*y(k,125) + rxt(k,362)*y(k,133) + rxt(k,364) & - *y(k,126) + rxt(k,392)*y(k,122) + rxt(k,397)*y(k,123) + rxt(k,405) & - *y(k,67) + rxt(k,411)*y(k,38) + rxt(k,425)*y(k,106) + rxt(k,430) & - *y(k,54) + rxt(k,544)*y(k,74) + rxt(k,550)*y(k,76) + rxt(k,586) & - *y(k,107) + (rxt(k,590) + rxt(k,591)) * y(k,121) + rxt(k,598) & - *y(k,134) + rxt(k,602)*y(k,135)) - mat(k,832) = -rxt(k,126)*y(k,68) - mat(k,1554) = -(rxt(k,133) + rxt(k,135)) * y(k,68) - mat(k,1326) = -rxt(k,322)*y(k,68) - mat(k,1663) = -rxt(k,362)*y(k,68) - mat(k,1370) = -rxt(k,364)*y(k,68) - mat(k,645) = -rxt(k,392)*y(k,68) - mat(k,249) = -rxt(k,397)*y(k,68) - mat(k,1429) = -rxt(k,405)*y(k,68) - mat(k,1784) = -rxt(k,411)*y(k,68) - mat(k,220) = -rxt(k,425)*y(k,68) - mat(k,317) = -rxt(k,430)*y(k,68) - mat(k,172) = -rxt(k,544)*y(k,68) - mat(k,386) = -rxt(k,550)*y(k,68) - mat(k,158) = -rxt(k,586)*y(k,68) - mat(k,227) = -(rxt(k,590) + rxt(k,591)) * y(k,68) - mat(k,270) = -rxt(k,598)*y(k,68) - mat(k,131) = -rxt(k,602)*y(k,68) - mat(k,593) = 2.000_r8*rxt(k,489)*y(k,4) + (rxt(k,491)+rxt(k,492))*y(k,26) & - + rxt(k,497)*y(k,67) + rxt(k,493)*y(k,98) - mat(k,329) = rxt(k,533)*y(k,98) - mat(k,1749) = (rxt(k,491)+rxt(k,492))*y(k,4) + (2.000_r8*rxt(k,458) & - +2.000_r8*rxt(k,459))*y(k,26) + rxt(k,467)*y(k,67) + rxt(k,116) & - *y(k,91) + rxt(k,128)*y(k,94) + rxt(k,461)*y(k,98) + rxt(k,315) & - *y(k,125) + rxt(k,469)*y(k,131) + rxt(k,351)*y(k,133) - mat(k,1784) = mat(k,1784) + rxt(k,414)*y(k,69) + rxt(k,408)*y(k,98) & - + rxt(k,331)*y(k,128) - mat(k,106) = rxt(k,423)*y(k,131) - mat(k,317) = mat(k,317) + rxt(k,429)*y(k,61) - mat(k,1512) = rxt(k,440)*y(k,69) + rxt(k,594)*y(k,126) + rxt(k,279)*y(k,128) - mat(k,996) = rxt(k,429)*y(k,54) + rxt(k,431)*y(k,67) + rxt(k,432)*y(k,69) & - + rxt(k,320)*y(k,125) + rxt(k,277)*y(k,128) - mat(k,1118) = rxt(k,436)*y(k,67) + rxt(k,434)*y(k,98) - mat(k,1429) = mat(k,1429) + rxt(k,497)*y(k,4) + rxt(k,467)*y(k,26) & - + rxt(k,431)*y(k,61) + rxt(k,436)*y(k,62) + 2.000_r8*rxt(k,404) & - *y(k,67) + 2.000_r8*rxt(k,403)*y(k,69) + rxt(k,113)*y(k,90) & - + rxt(k,131)*y(k,94) + rxt(k,412)*y(k,98) + rxt(k,301)*y(k,110) & - + rxt(k,396)*y(k,123) + rxt(k,325)*y(k,125) + ( & - + 2.000_r8*rxt(k,333)+rxt(k,334))*y(k,128) + rxt(k,336)*y(k,129) & - + rxt(k,418)*y(k,131) + rxt(k,360)*y(k,133) - mat(k,1252) = mat(k,1252) + 2.000_r8*rxt(k,397)*y(k,123) - mat(k,1203) = rxt(k,414)*y(k,38) + rxt(k,440)*y(k,60) + rxt(k,432)*y(k,61) & - + 2.000_r8*rxt(k,403)*y(k,67) + rxt(k,545)*y(k,74) + rxt(k,551) & - *y(k,76) + rxt(k,488)*y(k,85) + rxt(k,456)*y(k,86) + rxt(k,132) & - *y(k,94) + rxt(k,134)*y(k,95) + 2.000_r8*rxt(k,413)*y(k,98) & - + rxt(k,292)*y(k,108) + 2.000_r8*rxt(k,302)*y(k,110) & - + 2.000_r8*rxt(k,394)*y(k,122) + rxt(k,323)*y(k,125) & - + 3.000_r8*rxt(k,332)*y(k,128) + rxt(k,419)*y(k,131) - mat(k,172) = mat(k,172) + rxt(k,545)*y(k,69) - mat(k,386) = mat(k,386) + rxt(k,551)*y(k,69) - mat(k,461) = rxt(k,488)*y(k,69) + rxt(k,487)*y(k,98) - mat(k,1471) = rxt(k,456)*y(k,69) + rxt(k,127)*y(k,94) + rxt(k,454)*y(k,98) & - + rxt(k,314)*y(k,125) - mat(k,699) = rxt(k,154)*y(k,126) - mat(k,416) = rxt(k,159)*y(k,126) - mat(k,400) = rxt(k,257)*y(k,126) - mat(k,291) = rxt(k,113)*y(k,67) - mat(k,832) = mat(k,832) + rxt(k,116)*y(k,26) + rxt(k,256)*y(k,126) - mat(k,368) = rxt(k,153)*y(k,126) - mat(k,549) = rxt(k,155)*y(k,126) - mat(k,674) = rxt(k,128)*y(k,26) + rxt(k,131)*y(k,67) + rxt(k,132)*y(k,69) & - + rxt(k,127)*y(k,86) + rxt(k,191)*y(k,100) + rxt(k,225)*y(k,102) & - + rxt(k,174)*y(k,104) + rxt(k,244)*y(k,115) + rxt(k,227) & - *y(k,116) + rxt(k,209)*y(k,119) + 2.000_r8*rxt(k,151)*y(k,126) - mat(k,1554) = mat(k,1554) + rxt(k,134)*y(k,69) + rxt(k,326)*y(k,127) & - + 2.000_r8*rxt(k,380)*y(k,130) - mat(k,341) = rxt(k,149)*y(k,126) - mat(k,755) = rxt(k,493)*y(k,4) + rxt(k,533)*y(k,20) + rxt(k,461)*y(k,26) & - + rxt(k,408)*y(k,38) + rxt(k,434)*y(k,62) + rxt(k,412)*y(k,67) & - + 2.000_r8*rxt(k,413)*y(k,69) + rxt(k,487)*y(k,85) + rxt(k,454) & - *y(k,86) + 2.000_r8*rxt(k,422)*y(k,98) + rxt(k,417)*y(k,131) - mat(k,1038) = rxt(k,191)*y(k,94) + rxt(k,190)*y(k,125) - mat(k,1705) = rxt(k,225)*y(k,94) + rxt(k,214)*y(k,125) - mat(k,1596) = rxt(k,174)*y(k,94) + rxt(k,173)*y(k,125) - mat(k,861) = rxt(k,292)*y(k,69) + rxt(k,161)*y(k,126) - mat(k,431) = rxt(k,156)*y(k,126) - mat(k,723) = rxt(k,301)*y(k,67) + 2.000_r8*rxt(k,302)*y(k,69) + rxt(k,148) & - *y(k,126) - mat(k,528) = rxt(k,160)*y(k,126) - mat(k,568) = rxt(k,152)*y(k,126) - mat(k,473) = rxt(k,157)*y(k,126) - mat(k,510) = rxt(k,255)*y(k,126) - mat(k,908) = rxt(k,244)*y(k,94) + rxt(k,243)*y(k,125) - mat(k,950) = rxt(k,227)*y(k,94) + rxt(k,226)*y(k,125) - mat(k,1079) = rxt(k,209)*y(k,94) + rxt(k,208)*y(k,125) - mat(k,645) = mat(k,645) + 2.000_r8*rxt(k,394)*y(k,69) - mat(k,249) = mat(k,249) + rxt(k,396)*y(k,67) + 2.000_r8*rxt(k,397)*y(k,68) & - + 2.000_r8*rxt(k,321)*y(k,125) + 2.000_r8*rxt(k,339)*y(k,130) - mat(k,1326) = mat(k,1326) + rxt(k,315)*y(k,26) + rxt(k,320)*y(k,61) & - + rxt(k,325)*y(k,67) + rxt(k,323)*y(k,69) + rxt(k,314)*y(k,86) & - + rxt(k,190)*y(k,100) + rxt(k,214)*y(k,102) + rxt(k,173) & - *y(k,104) + rxt(k,243)*y(k,115) + rxt(k,226)*y(k,116) & - + rxt(k,208)*y(k,119) + 2.000_r8*rxt(k,321)*y(k,123) - mat(k,1370) = mat(k,1370) + rxt(k,594)*y(k,60) + rxt(k,154)*y(k,87) & - + rxt(k,159)*y(k,88) + rxt(k,257)*y(k,89) + rxt(k,256)*y(k,91) & - + rxt(k,153)*y(k,92) + rxt(k,155)*y(k,93) + 2.000_r8*rxt(k,151) & - *y(k,94) + rxt(k,149)*y(k,97) + rxt(k,161)*y(k,108) + rxt(k,156) & - *y(k,109) + rxt(k,148)*y(k,110) + rxt(k,160)*y(k,111) & - + rxt(k,152)*y(k,112) + rxt(k,157)*y(k,113) + rxt(k,255) & - *y(k,114) - mat(k,192) = rxt(k,326)*y(k,95) + (rxt(k,327)+rxt(k,328))*y(k,137) - mat(k,444) = rxt(k,331)*y(k,38) + rxt(k,279)*y(k,60) + rxt(k,277)*y(k,61) + ( & - + 2.000_r8*rxt(k,333)+rxt(k,334))*y(k,67) + 3.000_r8*rxt(k,332) & - *y(k,69) - mat(k,98) = rxt(k,336)*y(k,67) - mat(k,354) = 2.000_r8*rxt(k,380)*y(k,95) + 2.000_r8*rxt(k,339)*y(k,123) & - + rxt(k,337)*y(k,137) - mat(k,802) = rxt(k,469)*y(k,26) + rxt(k,423)*y(k,50) + rxt(k,418)*y(k,67) & - + rxt(k,419)*y(k,69) + rxt(k,417)*y(k,98) - mat(k,1663) = mat(k,1663) + rxt(k,351)*y(k,26) + rxt(k,360)*y(k,67) - mat(k,1842) = (rxt(k,327)+rxt(k,328))*y(k,127) + rxt(k,337)*y(k,130) - end do + mat(1096) = -(rxt(110)*y(88) + (rxt(120) + rxt(121)) * y(94) + (rxt(277) & + + rxt(278)) * y(128) + rxt(281)*y(92) + rxt(291)*y(109) + rxt(320) & + *y(125) + rxt(346)*y(132) + rxt(359)*y(133) + (rxt(427) + rxt(428) & + + rxt(429)) * y(56) + (rxt(431) + rxt(433)) * y(69) + rxt(432) & + *y(72) + rxt(444)*y(99) + rxt(445)*y(64) + rxt(446)*y(131) & + + rxt(464)*y(28) + rxt(495)*y(5) + rxt(551)*y(79)) + mat(697) = -rxt(110)*y(63) + mat(547) = -(rxt(120) + rxt(121)) * y(63) + mat(443) = -(rxt(277) + rxt(278)) * y(63) + mat(828) = -rxt(281)*y(63) + mat(1741) = -rxt(291)*y(63) + mat(1358) = -rxt(320)*y(63) + mat(1635) = -rxt(346)*y(63) + mat(1670) = -rxt(359)*y(63) + mat(318) = -(rxt(427) + rxt(428) + rxt(429)) * y(63) + mat(1237) = -(rxt(431) + rxt(433)) * y(63) + mat(1443) = -rxt(432)*y(63) + mat(752) = -rxt(444)*y(63) + mat(1780) = -rxt(445)*y(63) + mat(799) = -rxt(446)*y(63) + mat(1522) = -rxt(464)*y(63) + mat(590) = -rxt(495)*y(63) + mat(385) = -rxt(551)*y(63) + mat(590) = mat(590) + rxt(494)*y(62) + mat(329) = rxt(534)*y(62) + mat(1279) = rxt(285)*y(109) + mat(1522) = mat(1522) + rxt(462)*y(62) + mat(105) = rxt(423)*y(131) + mat(177) = rxt(340)*y(131) + mat(1178) = rxt(494)*y(5) + rxt(534)*y(21) + rxt(462)*y(28) & + + 2.000_r8*rxt(435)*y(64) + rxt(441)*y(69) + rxt(440)*y(72) & + + rxt(112)*y(91) + rxt(439)*y(99) + rxt(136)*y(133) + mat(1780) = mat(1780) + 2.000_r8*rxt(435)*y(62) + rxt(436)*y(69) + rxt(434) & + *y(99) + rxt(437)*y(131) + mat(1237) = mat(1237) + rxt(441)*y(62) + rxt(436)*y(64) + mat(1443) = mat(1443) + rxt(440)*y(62) + mat(290) = rxt(112)*y(62) + mat(752) = mat(752) + rxt(439)*y(62) + rxt(434)*y(64) + mat(912) = rxt(201)*y(109) + rxt(197)*y(110) + mat(1564) = rxt(166)*y(109) + rxt(162)*y(110) + mat(1712) = rxt(184)*y(109) + rxt(179)*y(110) + mat(1741) = mat(1741) + rxt(285)*y(25) + rxt(201)*y(101) + rxt(166)*y(103) & + + rxt(184)*y(105) + rxt(254)*y(116) + rxt(237)*y(117) + rxt(219) & + *y(120) + rxt(161)*y(126) + mat(429) = rxt(197)*y(101) + rxt(162)*y(103) + rxt(179)*y(105) + rxt(250) & + *y(116) + rxt(232)*y(117) + rxt(215)*y(120) + rxt(156)*y(126) + mat(959) = rxt(254)*y(109) + rxt(250)*y(110) + mat(1001) = rxt(237)*y(109) + rxt(232)*y(110) + mat(1137) = rxt(219)*y(109) + rxt(215)*y(110) + rxt(311)*y(131) + mat(1402) = rxt(161)*y(109) + rxt(156)*y(110) + mat(799) = mat(799) + rxt(423)*y(52) + rxt(340)*y(55) + rxt(437)*y(64) & + + rxt(311)*y(120) + mat(1670) = mat(1670) + rxt(136)*y(62) + mat(1797) = -(rxt(434)*y(99) + rxt(435)*y(62) + rxt(436)*y(69) + rxt(437) & + *y(131) + rxt(445)*y(63) + rxt(530)*y(17) + rxt(542)*y(35)) + mat(766) = -rxt(434)*y(64) + mat(1195) = -rxt(435)*y(64) + mat(1254) = -rxt(436)*y(64) + mat(813) = -rxt(437)*y(64) + mat(1113) = -rxt(445)*y(64) + mat(623) = -rxt(530)*y(64) + mat(63) = -rxt(542)*y(64) + mat(145) = rxt(496)*y(69) + mat(1296) = rxt(463)*y(29) + mat(1539) = rxt(286)*y(109) + mat(285) = rxt(463)*y(25) + rxt(465)*y(69) + rxt(466)*y(131) + mat(204) = rxt(510)*y(51) + mat(1620) = rxt(510)*y(39) + rxt(447)*y(131) + mat(1113) = mat(1113) + rxt(433)*y(69) + rxt(432)*y(72) + mat(1254) = mat(1254) + rxt(496)*y(6) + rxt(465)*y(29) + rxt(433)*y(63) + mat(1460) = rxt(432)*y(63) + mat(766) = mat(766) + rxt(310)*y(120) + mat(929) = rxt(200)*y(112) + rxt(193)*y(113) + rxt(198)*y(114) + mat(1581) = rxt(165)*y(112) + (rxt(236)+rxt(262))*y(113) + rxt(163)*y(114) + mat(1729) = rxt(183)*y(112) + (rxt(175)+rxt(263))*y(113) + rxt(180)*y(114) + mat(1758) = rxt(286)*y(28) + mat(732) = rxt(241)*y(116) + rxt(223)*y(117) + rxt(206)*y(120) + rxt(148) & + *y(126) + mat(535) = rxt(200)*y(101) + rxt(165)*y(103) + rxt(183)*y(105) + rxt(253) & + *y(116) + rxt(235)*y(117) + rxt(218)*y(120) + rxt(160)*y(126) + mat(575) = rxt(193)*y(101) + (rxt(236)+rxt(262))*y(103) + (rxt(175)+rxt(263)) & + *y(105) + rxt(245)*y(116) + rxt(228)*y(117) + rxt(210)*y(120) & + + rxt(152)*y(126) + mat(466) = rxt(198)*y(101) + rxt(163)*y(103) + rxt(180)*y(105) + rxt(251) & + *y(116) + rxt(233)*y(117) + rxt(216)*y(120) + rxt(157)*y(126) + mat(515) = rxt(238)*y(116) + rxt(220)*y(117) + rxt(202)*y(120) + rxt(255) & + *y(126) + mat(976) = rxt(241)*y(111) + rxt(253)*y(112) + rxt(245)*y(113) + rxt(251) & + *y(114) + rxt(238)*y(115) + mat(1018) = rxt(223)*y(111) + rxt(235)*y(112) + rxt(228)*y(113) + rxt(233) & + *y(114) + rxt(220)*y(115) + mat(1154) = rxt(310)*y(99) + rxt(206)*y(111) + rxt(218)*y(112) + rxt(210) & + *y(113) + rxt(216)*y(114) + rxt(202)*y(115) + mat(1419) = rxt(148)*y(111) + rxt(160)*y(112) + rxt(152)*y(113) + rxt(157) & + *y(114) + rxt(255)*y(115) + mat(813) = mat(813) + rxt(466)*y(29) + rxt(447)*y(51) + mat(1240) = -(rxt(113)*y(91) + rxt(125)*y(92) + rxt(131)*y(95) + rxt(301) & + *y(111) + (rxt(324) + rxt(325)) * y(125) + (rxt(333) + rxt(334) & + ) * y(128) + rxt(336)*y(129) + rxt(338)*y(130) + rxt(347)*y(132) & + + rxt(360)*y(133) + rxt(403)*y(72) + 4._r8*rxt(404)*y(69) & + + rxt(405)*y(71) + rxt(406)*y(41) + rxt(407)*y(43) + rxt(412) & + *y(99) + rxt(418)*y(131) + (rxt(431) + rxt(433)) * y(63) + rxt(436) & + *y(64) + rxt(441)*y(62) + rxt(465)*y(29) + rxt(467)*y(28) & + + rxt(470)*y(49) + rxt(473)*y(54) + rxt(496)*y(6) + rxt(497) & + *y(5) + rxt(499)*y(45) + rxt(501)*y(53) + rxt(531)*y(17) + rxt(544) & + *y(74) + (rxt(587) + rxt(588)) * y(108) + rxt(589)*y(122)) + mat(292) = -rxt(113)*y(69) + mat(831) = -rxt(125)*y(69) + mat(674) = -rxt(131)*y(69) + mat(722) = -rxt(301)*y(69) + mat(1361) = -(rxt(324) + rxt(325)) * y(69) + mat(445) = -(rxt(333) + rxt(334)) * y(69) + mat(99) = -rxt(336)*y(69) + mat(355) = -rxt(338)*y(69) + mat(1638) = -rxt(347)*y(69) + mat(1673) = -rxt(360)*y(69) + mat(1446) = -rxt(403)*y(69) + mat(1053) = -rxt(405)*y(69) + mat(493) = -rxt(406)*y(69) + mat(149) = -rxt(407)*y(69) + mat(755) = -rxt(412)*y(69) + mat(802) = -rxt(418)*y(69) + mat(1099) = -(rxt(431) + rxt(433)) * y(69) + mat(1783) = -rxt(436)*y(69) + mat(1181) = -rxt(441)*y(69) + mat(280) = -rxt(465)*y(69) + mat(1525) = -rxt(467)*y(69) + mat(1326) = -rxt(470)*y(69) + mat(241) = -rxt(473)*y(69) + mat(143) = -rxt(496)*y(69) + mat(592) = -rxt(497)*y(69) + mat(235) = -rxt(499)*y(69) + mat(211) = -rxt(501)*y(69) + mat(614) = -rxt(531)*y(69) + mat(75) = -rxt(544)*y(69) + mat(160) = -(rxt(587) + rxt(588)) * y(69) + mat(228) = -rxt(589)*y(69) + mat(1282) = rxt(114)*y(92) + rxt(350)*y(133) + mat(1481) = rxt(410)*y(99) + mat(320) = rxt(426)*y(62) + rxt(427)*y(63) + rxt(430)*y(71) + rxt(592)*y(126) + mat(1181) = mat(1181) + rxt(426)*y(56) + rxt(272)*y(128) + mat(1099) = mat(1099) + rxt(427)*y(56) + rxt(359)*y(133) + mat(645) = (rxt(392)+rxt(393))*y(71) + mat(1053) = mat(1053) + rxt(430)*y(56) + (rxt(392)+rxt(393))*y(70) + rxt(546) & + *y(77) + rxt(552)*y(79) + rxt(591)*y(122) + rxt(598)*y(134) & + + rxt(602)*y(135) + mat(1446) = mat(1446) + rxt(363)*y(133) + mat(172) = rxt(546)*y(71) + mat(387) = rxt(552)*y(71) + mat(831) = mat(831) + rxt(114)*y(25) + rxt(186)*y(101) + (rxt(170)+rxt(258)) & + *y(103) + (rxt(168)+rxt(265))*y(105) + rxt(239)*y(116) & + + rxt(221)*y(117) + rxt(204)*y(120) + rxt(256)*y(126) + mat(370) = rxt(194)*y(101) + (rxt(247)+rxt(271))*y(103) + (rxt(176)+rxt(259)) & + *y(105) + rxt(246)*y(116) + rxt(229)*y(117) + rxt(211)*y(120) & + + rxt(153)*y(126) + mat(550) = rxt(196)*y(101) + (rxt(158)+rxt(260))*y(103) + (rxt(178)+rxt(261)) & + *y(105) + rxt(249)*y(116) + rxt(231)*y(117) + rxt(213)*y(120) & + + rxt(155)*y(126) + mat(874) = rxt(583)*y(116) + 1.150_r8*rxt(584)*y(126) + mat(755) = mat(755) + rxt(410)*y(40) + mat(915) = rxt(186)*y(92) + rxt(194)*y(93) + rxt(196)*y(94) + mat(1567) = (rxt(170)+rxt(258))*y(92) + (rxt(247)+rxt(271))*y(93) + (rxt(158) & + +rxt(260))*y(94) + mat(1715) = (rxt(168)+rxt(265))*y(92) + (rxt(176)+rxt(259))*y(93) + (rxt(178) & + +rxt(261))*y(94) + mat(222) = rxt(597)*y(134) + mat(962) = rxt(239)*y(92) + rxt(246)*y(93) + rxt(249)*y(94) + rxt(583)*y(96) + mat(1004) = rxt(221)*y(92) + rxt(229)*y(93) + rxt(231)*y(94) + mat(1140) = rxt(204)*y(92) + rxt(211)*y(93) + rxt(213)*y(94) + mat(228) = mat(228) + rxt(591)*y(71) + mat(1405) = rxt(592)*y(56) + rxt(256)*y(92) + rxt(153)*y(93) + rxt(155)*y(94) & + + 1.150_r8*rxt(584)*y(96) + mat(445) = mat(445) + rxt(272)*y(62) + mat(802) = mat(802) + 2.000_r8*rxt(420)*y(131) + mat(1673) = mat(1673) + rxt(350)*y(25) + rxt(359)*y(63) + rxt(363)*y(72) + mat(272) = rxt(598)*y(71) + rxt(597)*y(107) + mat(132) = rxt(602)*y(71) + mat(637) = -(rxt(389)*y(41) + rxt(390)*y(137) + (rxt(392) + rxt(393)) * y(71) & + + rxt(394)*y(72) + (rxt(482) + rxt(483)) * y(49) + (rxt(505) & + + rxt(506)) * y(45) + rxt(511)*y(33) + rxt(512)*y(34)) + mat(486) = -rxt(389)*y(70) + mat(1827) = -rxt(390)*y(70) + mat(1038) = -(rxt(392) + rxt(393)) * y(70) + mat(1431) = -rxt(394)*y(70) + mat(1311) = -(rxt(482) + rxt(483)) * y(70) + mat(233) = -(rxt(505) + rxt(506)) * y(70) + mat(29) = -rxt(511)*y(70) + mat(34) = -rxt(512)*y(70) + mat(1038) = mat(1038) + rxt(425)*y(107) + mat(863) = .850_r8*rxt(584)*y(126) + mat(219) = rxt(425)*y(71) + mat(1390) = .850_r8*rxt(584)*y(96) + mat(1049) = -(rxt(126)*y(92) + (rxt(133) + rxt(135)) * y(96) + rxt(322) & + *y(125) + rxt(362)*y(133) + rxt(364)*y(126) + rxt(392)*y(70) & + + rxt(397)*y(123) + rxt(405)*y(69) + rxt(411)*y(40) + rxt(425) & + *y(107) + rxt(430)*y(56) + rxt(546)*y(77) + rxt(552)*y(79) & + + rxt(586)*y(108) + (rxt(590) + rxt(591)) * y(122) + rxt(598) & + *y(134) + rxt(602)*y(135)) + mat(827) = -rxt(126)*y(71) + mat(870) = -(rxt(133) + rxt(135)) * y(71) + mat(1357) = -rxt(322)*y(71) + mat(1669) = -rxt(362)*y(71) + mat(1401) = -rxt(364)*y(71) + mat(642) = -rxt(392)*y(71) + mat(249) = -rxt(397)*y(71) + mat(1236) = -rxt(405)*y(71) + mat(1477) = -rxt(411)*y(71) + mat(220) = -rxt(425)*y(71) + mat(317) = -rxt(430)*y(71) + mat(171) = -rxt(546)*y(71) + mat(384) = -rxt(552)*y(71) + mat(159) = -rxt(586)*y(71) + mat(227) = -(rxt(590) + rxt(591)) * y(71) + mat(270) = -rxt(598)*y(71) + mat(131) = -rxt(602)*y(71) + mat(476) = rxt(488)*y(72) + rxt(487)*y(99) + mat(589) = 2.000_r8*rxt(489)*y(5) + (rxt(491)+rxt(492))*y(28) + rxt(497) & + *y(69) + rxt(493)*y(99) + mat(328) = rxt(533)*y(99) + mat(1278) = rxt(456)*y(72) + rxt(127)*y(95) + rxt(454)*y(99) + rxt(314) & + *y(125) + mat(1521) = (rxt(491)+rxt(492))*y(5) + (2.000_r8*rxt(458)+2.000_r8*rxt(459)) & + *y(28) + rxt(467)*y(69) + rxt(116)*y(92) + rxt(128)*y(95) & + + rxt(461)*y(99) + rxt(315)*y(125) + rxt(469)*y(131) + rxt(351) & + *y(133) + mat(1477) = mat(1477) + rxt(414)*y(72) + rxt(408)*y(99) + rxt(331)*y(128) + mat(104) = rxt(423)*y(131) + mat(317) = mat(317) + rxt(429)*y(63) + mat(1177) = rxt(440)*y(72) + rxt(594)*y(126) + rxt(279)*y(128) + mat(1095) = rxt(429)*y(56) + rxt(431)*y(69) + rxt(432)*y(72) + rxt(320) & + *y(125) + rxt(277)*y(128) + mat(1779) = rxt(436)*y(69) + rxt(434)*y(99) + mat(1236) = mat(1236) + rxt(497)*y(5) + rxt(467)*y(28) + rxt(431)*y(63) & + + rxt(436)*y(64) + 2.000_r8*rxt(404)*y(69) + 2.000_r8*rxt(403) & + *y(72) + rxt(113)*y(91) + rxt(131)*y(95) + rxt(412)*y(99) & + + rxt(301)*y(111) + rxt(396)*y(123) + rxt(325)*y(125) + ( & + + 2.000_r8*rxt(333)+rxt(334))*y(128) + rxt(336)*y(129) & + + rxt(418)*y(131) + rxt(360)*y(133) + mat(642) = mat(642) + 2.000_r8*rxt(394)*y(72) + mat(1049) = mat(1049) + 2.000_r8*rxt(397)*y(123) + mat(1442) = rxt(488)*y(3) + rxt(456)*y(25) + rxt(414)*y(40) + rxt(440)*y(62) & + + rxt(432)*y(63) + 2.000_r8*rxt(403)*y(69) + 2.000_r8*rxt(394) & + *y(70) + rxt(547)*y(77) + rxt(553)*y(79) + rxt(132)*y(95) & + + rxt(134)*y(96) + 2.000_r8*rxt(413)*y(99) + rxt(292)*y(109) & + + 2.000_r8*rxt(302)*y(111) + rxt(323)*y(125) + 3.000_r8*rxt(332) & + *y(128) + rxt(419)*y(131) + mat(171) = mat(171) + rxt(547)*y(72) + mat(384) = mat(384) + rxt(553)*y(72) + mat(696) = rxt(154)*y(126) + mat(414) = rxt(159)*y(126) + mat(398) = rxt(257)*y(126) + mat(289) = rxt(113)*y(69) + mat(827) = mat(827) + rxt(116)*y(28) + rxt(256)*y(126) + mat(367) = rxt(153)*y(126) + mat(546) = rxt(155)*y(126) + mat(670) = rxt(127)*y(25) + rxt(128)*y(28) + rxt(131)*y(69) + rxt(132)*y(72) & + + rxt(191)*y(101) + rxt(225)*y(103) + rxt(174)*y(105) + rxt(244) & + *y(116) + rxt(227)*y(117) + rxt(209)*y(120) + 2.000_r8*rxt(151) & + *y(126) + mat(870) = mat(870) + rxt(134)*y(72) + rxt(326)*y(127) + 2.000_r8*rxt(380) & + *y(130) + mat(340) = rxt(149)*y(126) + mat(751) = rxt(487)*y(3) + rxt(493)*y(5) + rxt(533)*y(21) + rxt(454)*y(25) & + + rxt(461)*y(28) + rxt(408)*y(40) + rxt(434)*y(64) + rxt(412) & + *y(69) + 2.000_r8*rxt(413)*y(72) + 2.000_r8*rxt(422)*y(99) & + + rxt(417)*y(131) + mat(911) = rxt(191)*y(95) + rxt(190)*y(125) + mat(1563) = rxt(225)*y(95) + rxt(214)*y(125) + mat(1711) = rxt(174)*y(95) + rxt(173)*y(125) + mat(1740) = rxt(292)*y(72) + rxt(161)*y(126) + mat(428) = rxt(156)*y(126) + mat(718) = rxt(301)*y(69) + 2.000_r8*rxt(302)*y(72) + rxt(148)*y(126) + mat(525) = rxt(160)*y(126) + mat(565) = rxt(152)*y(126) + mat(457) = rxt(157)*y(126) + mat(508) = rxt(255)*y(126) + mat(958) = rxt(244)*y(95) + rxt(243)*y(125) + mat(1000) = rxt(227)*y(95) + rxt(226)*y(125) + mat(1136) = rxt(209)*y(95) + rxt(208)*y(125) + mat(249) = mat(249) + rxt(396)*y(69) + 2.000_r8*rxt(397)*y(71) & + + 2.000_r8*rxt(321)*y(125) + 2.000_r8*rxt(339)*y(130) + mat(1357) = mat(1357) + rxt(314)*y(25) + rxt(315)*y(28) + rxt(320)*y(63) & + + rxt(325)*y(69) + rxt(323)*y(72) + rxt(190)*y(101) + rxt(214) & + *y(103) + rxt(173)*y(105) + rxt(243)*y(116) + rxt(226)*y(117) & + + rxt(208)*y(120) + 2.000_r8*rxt(321)*y(123) + mat(1401) = mat(1401) + rxt(594)*y(62) + rxt(154)*y(88) + rxt(159)*y(89) & + + rxt(257)*y(90) + rxt(256)*y(92) + rxt(153)*y(93) + rxt(155) & + *y(94) + 2.000_r8*rxt(151)*y(95) + rxt(149)*y(98) + rxt(161) & + *y(109) + rxt(156)*y(110) + rxt(148)*y(111) + rxt(160)*y(112) & + + rxt(152)*y(113) + rxt(157)*y(114) + rxt(255)*y(115) + mat(193) = rxt(326)*y(96) + (rxt(327)+rxt(328))*y(137) + mat(442) = rxt(331)*y(40) + rxt(279)*y(62) + rxt(277)*y(63) + ( & + + 2.000_r8*rxt(333)+rxt(334))*y(69) + 3.000_r8*rxt(332)*y(72) + mat(98) = rxt(336)*y(69) + mat(354) = 2.000_r8*rxt(380)*y(96) + 2.000_r8*rxt(339)*y(123) + rxt(337) & + *y(137) + mat(798) = rxt(469)*y(28) + rxt(423)*y(52) + rxt(418)*y(69) + rxt(419)*y(72) & + + rxt(417)*y(99) + mat(1669) = mat(1669) + rxt(351)*y(28) + rxt(360)*y(69) + mat(1837) = (rxt(327)+rxt(328))*y(127) + rxt(337)*y(130) end subroutine nlnmat03 - subroutine nlnmat04( avec_len, mat, y, rxt ) + subroutine nlnmat04( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,1202) = -(rxt(k,132)*y(k,94) + rxt(k,134)*y(k,95) + rxt(k,292)*y(k,108) & - + rxt(k,302)*y(k,110) + rxt(k,323)*y(k,125) + rxt(k,332) & - *y(k,128) + rxt(k,348)*y(k,132) + rxt(k,363)*y(k,133) + rxt(k,394) & - *y(k,122) + rxt(k,403)*y(k,67) + rxt(k,413)*y(k,98) + rxt(k,414) & - *y(k,38) + rxt(k,419)*y(k,131) + rxt(k,432)*y(k,61) + rxt(k,440) & - *y(k,60) + rxt(k,456)*y(k,86) + rxt(k,488)*y(k,85) + rxt(k,545) & - *y(k,74) + rxt(k,551)*y(k,76)) - mat(k,673) = -rxt(k,132)*y(k,69) - mat(k,1553) = -rxt(k,134)*y(k,69) - mat(k,860) = -rxt(k,292)*y(k,69) - mat(k,722) = -rxt(k,302)*y(k,69) - mat(k,1325) = -rxt(k,323)*y(k,69) - mat(k,443) = -rxt(k,332)*y(k,69) - mat(k,1627) = -rxt(k,348)*y(k,69) - mat(k,1662) = -rxt(k,363)*y(k,69) - mat(k,644) = -rxt(k,394)*y(k,69) - mat(k,1428) = -rxt(k,403)*y(k,69) - mat(k,754) = -rxt(k,413)*y(k,69) - mat(k,1783) = -rxt(k,414)*y(k,69) - mat(k,801) = -rxt(k,419)*y(k,69) - mat(k,995) = -rxt(k,432)*y(k,69) - mat(k,1511) = -rxt(k,440)*y(k,69) - mat(k,1470) = -rxt(k,456)*y(k,69) - mat(k,460) = -rxt(k,488)*y(k,69) - mat(k,171) = -rxt(k,545)*y(k,69) - mat(k,385) = -rxt(k,551)*y(k,69) - mat(k,995) = mat(k,995) + rxt(k,278)*y(k,128) - mat(k,1428) = mat(k,1428) + rxt(k,405)*y(k,68) + rxt(k,324)*y(k,125) & - + rxt(k,338)*y(k,130) - mat(k,1251) = rxt(k,405)*y(k,67) - mat(k,248) = rxt(k,361)*y(k,133) - mat(k,1325) = mat(k,1325) + rxt(k,324)*y(k,67) - mat(k,443) = mat(k,443) + rxt(k,278)*y(k,61) - mat(k,353) = rxt(k,338)*y(k,67) - mat(k,1662) = mat(k,1662) + rxt(k,361)*y(k,123) - mat(k,64) = -(rxt(k,552)*y(k,76)) - mat(k,376) = -rxt(k,552)*y(k,70) - mat(k,578) = rxt(k,490)*y(k,26) - mat(k,1723) = rxt(k,490)*y(k,4) + 2.000_r8*rxt(k,460)*y(k,26) - mat(k,69) = -(rxt(k,542)*y(k,67) + rxt(k,543)*y(k,131)) - mat(k,1386) = -rxt(k,542)*y(k,71) - mat(k,772) = -rxt(k,543)*y(k,71) - mat(k,168) = -(rxt(k,544)*y(k,68) + rxt(k,545)*y(k,69) + rxt(k,548)*y(k,131)) - mat(k,1223) = -rxt(k,544)*y(k,74) - mat(k,1178) = -rxt(k,545)*y(k,74) - mat(k,777) = -rxt(k,548)*y(k,74) - mat(k,379) = -(rxt(k,546)*y(k,4) + rxt(k,547)*y(k,26) + rxt(k,549)*y(k,61) & - + rxt(k,550)*y(k,68) + rxt(k,551)*y(k,69) + rxt(k,552)*y(k,70) & - + rxt(k,553)*y(k,131)) - mat(k,582) = -rxt(k,546)*y(k,76) - mat(k,1729) = -rxt(k,547)*y(k,76) - mat(k,972) = -rxt(k,549)*y(k,76) - mat(k,1231) = -rxt(k,550)*y(k,76) - mat(k,1182) = -rxt(k,551)*y(k,76) - mat(k,66) = -rxt(k,552)*y(k,76) - mat(k,787) = -rxt(k,553)*y(k,76) - mat(k,1407) = rxt(k,542)*y(k,71) - mat(k,1231) = mat(k,1231) + rxt(k,544)*y(k,74) - mat(k,1182) = mat(k,1182) + rxt(k,545)*y(k,74) - mat(k,73) = rxt(k,542)*y(k,67) - mat(k,169) = rxt(k,544)*y(k,68) + rxt(k,545)*y(k,69) + rxt(k,548)*y(k,131) - mat(k,787) = mat(k,787) + rxt(k,548)*y(k,74) - mat(k,255) = -(rxt(k,554)*y(k,131)) - mat(k,783) = -rxt(k,554)*y(k,77) - mat(k,581) = rxt(k,546)*y(k,76) - mat(k,1725) = rxt(k,547)*y(k,76) - mat(k,59) = rxt(k,556)*y(k,62) + (rxt(k,557)+.500_r8*rxt(k,558))*y(k,131) - mat(k,968) = rxt(k,549)*y(k,76) - mat(k,1096) = rxt(k,556)*y(k,33) - mat(k,1227) = rxt(k,550)*y(k,76) - mat(k,1180) = rxt(k,551)*y(k,76) - mat(k,65) = rxt(k,552)*y(k,76) - mat(k,72) = rxt(k,543)*y(k,131) - mat(k,378) = rxt(k,546)*y(k,4) + rxt(k,547)*y(k,26) + rxt(k,549)*y(k,61) & - + rxt(k,550)*y(k,68) + rxt(k,551)*y(k,69) + rxt(k,552)*y(k,70) & - + rxt(k,553)*y(k,131) - mat(k,783) = mat(k,783) + (rxt(k,557)+.500_r8*rxt(k,558))*y(k,33) & - + rxt(k,543)*y(k,71) + rxt(k,553)*y(k,76) - mat(k,46) = -(rxt(k,555)*y(k,137)) - mat(k,1801) = -rxt(k,555)*y(k,78) - mat(k,254) = rxt(k,554)*y(k,131) - mat(k,770) = rxt(k,554)*y(k,77) - mat(k,454) = -(rxt(k,486)*y(k,16) + rxt(k,487)*y(k,98) + rxt(k,488)*y(k,69)) - mat(k,603) = -rxt(k,486)*y(k,85) - mat(k,742) = -rxt(k,487)*y(k,85) - mat(k,1184) = -rxt(k,488)*y(k,85) - mat(k,583) = 4.000_r8*rxt(k,489)*y(k,4) + (rxt(k,490)+rxt(k,491))*y(k,26) & - + rxt(k,494)*y(k,60) + rxt(k,497)*y(k,67) + rxt(k,546)*y(k,76) & - + rxt(k,498)*y(k,131) - mat(k,1730) = (rxt(k,490)+rxt(k,491))*y(k,4) - mat(k,239) = rxt(k,499)*y(k,67) + rxt(k,505)*y(k,122) + rxt(k,500)*y(k,131) - mat(k,1492) = rxt(k,494)*y(k,4) - mat(k,1409) = rxt(k,497)*y(k,4) + rxt(k,499)*y(k,43) - mat(k,380) = rxt(k,546)*y(k,4) - mat(k,633) = rxt(k,505)*y(k,43) - mat(k,788) = rxt(k,498)*y(k,4) + rxt(k,500)*y(k,43) - mat(k,1476) = -((rxt(k,114) + rxt(k,115)) * y(k,91) + rxt(k,127)*y(k,94) & - + rxt(k,285)*y(k,108) + rxt(k,314)*y(k,125) + rxt(k,341) & - *y(k,132) + rxt(k,350)*y(k,133) + rxt(k,450)*y(k,16) + rxt(k,452) & - *y(k,39) + rxt(k,453)*y(k,41) + (rxt(k,454) + rxt(k,455) & - ) * y(k,98) + rxt(k,456)*y(k,69) + rxt(k,463)*y(k,27) + rxt(k,472) & - *y(k,52)) - mat(k,837) = -(rxt(k,114) + rxt(k,115)) * y(k,86) - mat(k,678) = -rxt(k,127)*y(k,86) - mat(k,866) = -rxt(k,285)*y(k,86) - mat(k,1331) = -rxt(k,314)*y(k,86) - mat(k,1633) = -rxt(k,341)*y(k,86) - mat(k,1668) = -rxt(k,350)*y(k,86) - mat(k,617) = -rxt(k,450)*y(k,86) - mat(k,495) = -rxt(k,452)*y(k,86) - mat(k,151) = -rxt(k,453)*y(k,86) - mat(k,760) = -(rxt(k,454) + rxt(k,455)) * y(k,86) - mat(k,1208) = -rxt(k,456)*y(k,86) - mat(k,284) = -rxt(k,463)*y(k,86) - mat(k,235) = -rxt(k,472)*y(k,86) - mat(k,596) = rxt(k,491)*y(k,26) - mat(k,330) = rxt(k,457)*y(k,26) - mat(k,1754) = rxt(k,491)*y(k,4) + rxt(k,457)*y(k,20) + (4.000_r8*rxt(k,458) & - +2.000_r8*rxt(k,460))*y(k,26) + rxt(k,462)*y(k,60) + rxt(k,467) & - *y(k,67) + rxt(k,547)*y(k,76) + rxt(k,468)*y(k,131) - mat(k,35) = rxt(k,512)*y(k,122) - mat(k,1167) = rxt(k,470)*y(k,67) + rxt(k,482)*y(k,122) + rxt(k,471)*y(k,131) - mat(k,1517) = rxt(k,462)*y(k,26) + rxt(k,111)*y(k,90) - mat(k,1001) = rxt(k,110)*y(k,87) - mat(k,1434) = rxt(k,467)*y(k,26) + rxt(k,470)*y(k,47) - mat(k,388) = rxt(k,547)*y(k,26) - mat(k,702) = rxt(k,110)*y(k,61) + rxt(k,195)*y(k,100) + rxt(k,147)*y(k,102) & - + rxt(k,177)*y(k,104) + rxt(k,248)*y(k,115) + rxt(k,230) & - *y(k,116) + rxt(k,212)*y(k,119) + rxt(k,154)*y(k,126) - mat(k,418) = rxt(k,199)*y(k,100) + rxt(k,164)*y(k,102) + rxt(k,182)*y(k,104) & - + rxt(k,252)*y(k,115) + rxt(k,234)*y(k,116) + rxt(k,217) & - *y(k,119) + rxt(k,159)*y(k,126) - mat(k,402) = rxt(k,187)*y(k,100) + rxt(k,181)*y(k,102) + rxt(k,169)*y(k,104) & - + rxt(k,240)*y(k,115) + rxt(k,222)*y(k,116) + rxt(k,205) & - *y(k,119) + rxt(k,257)*y(k,126) - mat(k,293) = rxt(k,111)*y(k,60) - mat(k,1043) = rxt(k,195)*y(k,87) + rxt(k,199)*y(k,88) + rxt(k,187)*y(k,89) - mat(k,1710) = rxt(k,147)*y(k,87) + rxt(k,164)*y(k,88) + rxt(k,181)*y(k,89) - mat(k,1601) = rxt(k,177)*y(k,87) + rxt(k,182)*y(k,88) + rxt(k,169)*y(k,89) - mat(k,913) = rxt(k,248)*y(k,87) + rxt(k,252)*y(k,88) + rxt(k,240)*y(k,89) - mat(k,955) = rxt(k,230)*y(k,87) + rxt(k,234)*y(k,88) + rxt(k,222)*y(k,89) - mat(k,1084) = rxt(k,212)*y(k,87) + rxt(k,217)*y(k,88) + rxt(k,205)*y(k,89) - mat(k,650) = rxt(k,512)*y(k,32) + rxt(k,482)*y(k,47) - mat(k,1375) = rxt(k,154)*y(k,87) + rxt(k,159)*y(k,88) + rxt(k,257)*y(k,89) - mat(k,807) = rxt(k,468)*y(k,26) + rxt(k,471)*y(k,47) - mat(k,690) = -(rxt(k,105)*y(k,38) + rxt(k,107)*y(k,137) + rxt(k,108)*y(k,47) & - + rxt(k,109)*y(k,49) + rxt(k,110)*y(k,61) + rxt(k,147)*y(k,102) & - + rxt(k,154)*y(k,126) + rxt(k,177)*y(k,104) + rxt(k,195) & - *y(k,100) + rxt(k,212)*y(k,119) + rxt(k,230)*y(k,116) + rxt(k,248) & - *y(k,115)) - mat(k,1770) = -rxt(k,105)*y(k,87) - mat(k,1828) = -rxt(k,107)*y(k,87) - mat(k,1148) = -rxt(k,108)*y(k,87) - mat(k,1277) = -rxt(k,109)*y(k,87) - mat(k,982) = -rxt(k,110)*y(k,87) - mat(k,1691) = -rxt(k,147)*y(k,87) - mat(k,1356) = -rxt(k,154)*y(k,87) - mat(k,1582) = -rxt(k,177)*y(k,87) - mat(k,1024) = -rxt(k,195)*y(k,87) - mat(k,1065) = -rxt(k,212)*y(k,87) - mat(k,936) = -rxt(k,230)*y(k,87) - mat(k,894) = -rxt(k,248)*y(k,87) - mat(k,1735) = rxt(k,116)*y(k,91) + rxt(k,286)*y(k,108) + rxt(k,351)*y(k,133) - mat(k,1148) = mat(k,1148) + rxt(k,130)*y(k,94) + rxt(k,289)*y(k,108) & - + rxt(k,298)*y(k,110) + rxt(k,318)*y(k,125) + rxt(k,345) & - *y(k,132) + rxt(k,356)*y(k,133) - mat(k,1498) = rxt(k,112)*y(k,90) - mat(k,1415) = rxt(k,113)*y(k,90) - mat(k,1457) = rxt(k,114)*y(k,91) + rxt(k,127)*y(k,94) + rxt(k,285)*y(k,108) & - + rxt(k,314)*y(k,125) + rxt(k,341)*y(k,132) + rxt(k,350) & - *y(k,133) - mat(k,288) = rxt(k,112)*y(k,60) + rxt(k,113)*y(k,67) - mat(k,819) = rxt(k,116)*y(k,26) + rxt(k,114)*y(k,86) - mat(k,661) = rxt(k,130)*y(k,47) + rxt(k,127)*y(k,86) - mat(k,849) = rxt(k,286)*y(k,26) + rxt(k,289)*y(k,47) + rxt(k,285)*y(k,86) - mat(k,712) = rxt(k,298)*y(k,47) - mat(k,1312) = rxt(k,318)*y(k,47) + rxt(k,314)*y(k,86) - mat(k,1614) = rxt(k,345)*y(k,47) + rxt(k,341)*y(k,86) - mat(k,1649) = rxt(k,351)*y(k,26) + rxt(k,356)*y(k,47) + rxt(k,350)*y(k,86) - mat(k,409) = -(rxt(k,106)*y(k,47) + rxt(k,159)*y(k,126) + rxt(k,164)*y(k,102) & - + rxt(k,182)*y(k,104) + rxt(k,199)*y(k,100) + rxt(k,217) & - *y(k,119) + rxt(k,234)*y(k,116) + rxt(k,252)*y(k,115)) - mat(k,1140) = -rxt(k,106)*y(k,88) - mat(k,1347) = -rxt(k,159)*y(k,88) - mat(k,1683) = -rxt(k,164)*y(k,88) - mat(k,1574) = -rxt(k,182)*y(k,88) - mat(k,1016) = -rxt(k,199)*y(k,88) - mat(k,1057) = -rxt(k,217)*y(k,88) - mat(k,928) = -rxt(k,234)*y(k,88) - mat(k,885) = -rxt(k,252)*y(k,88) - mat(k,689) = rxt(k,107)*y(k,137) - mat(k,1818) = rxt(k,107)*y(k,87) - mat(k,393) = -((rxt(k,169) + rxt(k,268)) * y(k,104) + (rxt(k,181) + rxt(k,267) & - ) * y(k,102) + rxt(k,187)*y(k,100) + rxt(k,205)*y(k,119) & - + rxt(k,222)*y(k,116) + rxt(k,240)*y(k,115) + rxt(k,257) & - *y(k,126)) - mat(k,1573) = -(rxt(k,169) + rxt(k,268)) * y(k,89) - mat(k,1682) = -(rxt(k,181) + rxt(k,267)) * y(k,89) - mat(k,1015) = -rxt(k,187)*y(k,89) - mat(k,1056) = -rxt(k,205)*y(k,89) - mat(k,927) = -rxt(k,222)*y(k,89) - mat(k,884) = -rxt(k,240)*y(k,89) - mat(k,1346) = -rxt(k,257)*y(k,89) - mat(k,1139) = rxt(k,108)*y(k,87) + rxt(k,106)*y(k,88) - mat(k,688) = rxt(k,108)*y(k,47) - mat(k,408) = rxt(k,106)*y(k,47) - end do + mat(1451) = -(rxt(132)*y(95) + rxt(134)*y(96) + rxt(292)*y(109) + rxt(302) & + *y(111) + rxt(323)*y(125) + rxt(332)*y(128) + rxt(348)*y(132) & + + rxt(363)*y(133) + rxt(394)*y(70) + rxt(403)*y(69) + rxt(413) & + *y(99) + rxt(414)*y(40) + rxt(419)*y(131) + rxt(432)*y(63) & + + rxt(440)*y(62) + rxt(456)*y(25) + rxt(488)*y(3) + rxt(547) & + *y(77) + rxt(553)*y(79)) + mat(679) = -rxt(132)*y(72) + mat(879) = -rxt(134)*y(72) + mat(1749) = -rxt(292)*y(72) + mat(726) = -rxt(302)*y(72) + mat(1366) = -rxt(323)*y(72) + mat(447) = -rxt(332)*y(72) + mat(1643) = -rxt(348)*y(72) + mat(1678) = -rxt(363)*y(72) + mat(650) = -rxt(394)*y(72) + mat(1245) = -rxt(403)*y(72) + mat(760) = -rxt(413)*y(72) + mat(1486) = -rxt(414)*y(72) + mat(807) = -rxt(419)*y(72) + mat(1104) = -rxt(432)*y(72) + mat(1186) = -rxt(440)*y(72) + mat(1287) = -rxt(456)*y(72) + mat(478) = -rxt(488)*y(72) + mat(173) = -rxt(547)*y(72) + mat(389) = -rxt(553)*y(72) + mat(1104) = mat(1104) + rxt(278)*y(128) + mat(1245) = mat(1245) + rxt(405)*y(71) + rxt(324)*y(125) + rxt(338)*y(130) + mat(1058) = rxt(405)*y(69) + mat(252) = rxt(361)*y(133) + mat(1366) = mat(1366) + rxt(324)*y(69) + mat(447) = mat(447) + rxt(278)*y(63) + mat(358) = rxt(338)*y(69) + mat(1678) = mat(1678) + rxt(361)*y(123) + mat(64) = -(rxt(554)*y(79)) + mat(376) = -rxt(554)*y(73) + mat(578) = rxt(490)*y(28) + mat(1500) = rxt(490)*y(5) + 2.000_r8*rxt(460)*y(28) + mat(69) = -(rxt(544)*y(69) + rxt(545)*y(131)) + mat(1198) = -rxt(544)*y(74) + mat(772) = -rxt(545)*y(74) + mat(168) = -(rxt(546)*y(71) + rxt(547)*y(72) + rxt(550)*y(131)) + mat(1025) = -rxt(546)*y(77) + mat(1422) = -rxt(547)*y(77) + mat(777) = -rxt(550)*y(77) + mat(379) = -(rxt(548)*y(5) + rxt(549)*y(28) + rxt(551)*y(63) + rxt(552)*y(71) & + + rxt(553)*y(72) + rxt(554)*y(73) + rxt(555)*y(131)) + mat(582) = -rxt(548)*y(79) + mat(1506) = -rxt(549)*y(79) + mat(1076) = -rxt(551)*y(79) + mat(1033) = -rxt(552)*y(79) + mat(1426) = -rxt(553)*y(79) + mat(66) = -rxt(554)*y(79) + mat(787) = -rxt(555)*y(79) + mat(1219) = rxt(544)*y(74) + mat(1033) = mat(1033) + rxt(546)*y(77) + mat(1426) = mat(1426) + rxt(547)*y(77) + mat(73) = rxt(544)*y(69) + mat(169) = rxt(546)*y(71) + rxt(547)*y(72) + rxt(550)*y(131) + mat(787) = mat(787) + rxt(550)*y(77) + mat(255) = -(rxt(557)*y(131)) + mat(783) = -rxt(557)*y(80) + mat(581) = rxt(548)*y(79) + mat(1502) = rxt(549)*y(79) + mat(59) = rxt(542)*y(64) + (rxt(543)+.500_r8*rxt(556))*y(131) + mat(1072) = rxt(551)*y(79) + mat(1762) = rxt(542)*y(35) + mat(1029) = rxt(552)*y(79) + mat(1424) = rxt(553)*y(79) + mat(65) = rxt(554)*y(79) + mat(72) = rxt(545)*y(131) + mat(378) = rxt(548)*y(5) + rxt(549)*y(28) + rxt(551)*y(63) + rxt(552)*y(71) & + + rxt(553)*y(72) + rxt(554)*y(73) + rxt(555)*y(131) + mat(783) = mat(783) + (rxt(543)+.500_r8*rxt(556))*y(35) + rxt(545)*y(74) & + + rxt(555)*y(79) + mat(46) = -(rxt(558)*y(137)) + mat(1801) = -rxt(558)*y(81) + mat(254) = rxt(557)*y(131) + mat(770) = rxt(557)*y(80) + mat(690) = -(rxt(105)*y(40) + rxt(107)*y(137) + rxt(108)*y(49) + rxt(109) & + *y(51) + rxt(110)*y(63) + rxt(147)*y(103) + rxt(154)*y(126) & + + rxt(177)*y(105) + rxt(195)*y(101) + rxt(212)*y(120) + rxt(230) & + *y(117) + rxt(248)*y(116)) + mat(1468) = -rxt(105)*y(88) + mat(1828) = -rxt(107)*y(88) + mat(1313) = -rxt(108)*y(88) + mat(1593) = -rxt(109)*y(88) + mat(1086) = -rxt(110)*y(88) + mat(1554) = -rxt(147)*y(88) + mat(1392) = -rxt(154)*y(88) + mat(1702) = -rxt(177)*y(88) + mat(902) = -rxt(195)*y(88) + mat(1127) = -rxt(212)*y(88) + mat(991) = -rxt(230)*y(88) + mat(949) = -rxt(248)*y(88) + mat(1269) = rxt(114)*y(92) + rxt(127)*y(95) + rxt(285)*y(109) + rxt(314) & + *y(125) + rxt(341)*y(132) + rxt(350)*y(133) + mat(1512) = rxt(116)*y(92) + rxt(286)*y(109) + rxt(351)*y(133) + mat(1313) = mat(1313) + rxt(130)*y(95) + rxt(289)*y(109) + rxt(298)*y(111) & + + rxt(318)*y(125) + rxt(345)*y(132) + rxt(356)*y(133) + mat(1168) = rxt(112)*y(91) + mat(1227) = rxt(113)*y(91) + mat(288) = rxt(112)*y(62) + rxt(113)*y(69) + mat(819) = rxt(114)*y(25) + rxt(116)*y(28) + mat(661) = rxt(127)*y(25) + rxt(130)*y(49) + mat(1733) = rxt(285)*y(25) + rxt(286)*y(28) + rxt(289)*y(49) + mat(712) = rxt(298)*y(49) + mat(1348) = rxt(314)*y(25) + rxt(318)*y(49) + mat(1625) = rxt(341)*y(25) + rxt(345)*y(49) + mat(1660) = rxt(350)*y(25) + rxt(351)*y(28) + rxt(356)*y(49) + mat(409) = -(rxt(106)*y(49) + rxt(159)*y(126) + rxt(164)*y(103) + rxt(182) & + *y(105) + rxt(199)*y(101) + rxt(217)*y(120) + rxt(234)*y(117) & + + rxt(252)*y(116)) + mat(1305) = -rxt(106)*y(89) + mat(1383) = -rxt(159)*y(89) + mat(1546) = -rxt(164)*y(89) + mat(1694) = -rxt(182)*y(89) + mat(894) = -rxt(199)*y(89) + mat(1119) = -rxt(217)*y(89) + mat(983) = -rxt(234)*y(89) + mat(940) = -rxt(252)*y(89) + mat(689) = rxt(107)*y(137) + mat(1818) = rxt(107)*y(88) + mat(393) = -((rxt(169) + rxt(268)) * y(105) + (rxt(181) + rxt(267)) * y(103) & + + rxt(187)*y(101) + rxt(205)*y(120) + rxt(222)*y(117) + rxt(240) & + *y(116) + rxt(257)*y(126)) + mat(1693) = -(rxt(169) + rxt(268)) * y(90) + mat(1545) = -(rxt(181) + rxt(267)) * y(90) + mat(893) = -rxt(187)*y(90) + mat(1118) = -rxt(205)*y(90) + mat(982) = -rxt(222)*y(90) + mat(939) = -rxt(240)*y(90) + mat(1382) = -rxt(257)*y(90) + mat(1304) = rxt(108)*y(88) + rxt(106)*y(89) + mat(688) = rxt(108)*y(49) + mat(408) = rxt(106)*y(49) + mat(287) = -((rxt(111) + rxt(112)) * y(62) + rxt(113)*y(69)) + mat(1157) = -(rxt(111) + rxt(112)) * y(91) + mat(1216) = -rxt(113)*y(91) + mat(1261) = rxt(115)*y(92) + mat(1504) = rxt(128)*y(95) + rxt(315)*y(125) + rxt(342)*y(132) + mat(815) = rxt(115)*y(25) + mat(658) = rxt(128)*y(28) + mat(1344) = rxt(315)*y(28) + mat(1622) = rxt(342)*y(28) + mat(822) = -((rxt(114) + rxt(115)) * y(25) + rxt(116)*y(28) + rxt(117)*y(40) & + + rxt(119)*y(137) + rxt(124)*y(51) + rxt(125)*y(69) + rxt(126) & + *y(71) + (rxt(168) + rxt(265)) * y(105) + (rxt(170) + rxt(258) & + ) * y(103) + rxt(186)*y(101) + rxt(204)*y(120) + rxt(221)*y(117) & + + rxt(239)*y(116) + rxt(256)*y(126) + rxt(280)*y(62) + rxt(281) & + *y(63)) + mat(1273) = -(rxt(114) + rxt(115)) * y(92) + mat(1516) = -rxt(116)*y(92) + mat(1472) = -rxt(117)*y(92) + mat(1832) = -rxt(119)*y(92) + mat(1597) = -rxt(124)*y(92) + mat(1231) = -rxt(125)*y(92) + mat(1044) = -rxt(126)*y(92) + mat(1706) = -(rxt(168) + rxt(265)) * y(92) + mat(1558) = -(rxt(170) + rxt(258)) * y(92) + mat(906) = -rxt(186)*y(92) + mat(1131) = -rxt(204)*y(92) + mat(995) = -rxt(221)*y(92) + mat(953) = -rxt(239)*y(92) + mat(1396) = -rxt(256)*y(92) + mat(1172) = -rxt(280)*y(92) + mat(1090) = -rxt(281)*y(92) + mat(1472) = mat(1472) + rxt(129)*y(95) + mat(1231) = mat(1231) + rxt(131)*y(95) + mat(665) = rxt(129)*y(40) + rxt(131)*y(69) + mat(362) = -(rxt(153)*y(126) + (rxt(176) + rxt(259)) * y(105) + rxt(194) & + *y(101) + rxt(211)*y(120) + rxt(229)*y(117) + rxt(246)*y(116) & + + (rxt(247) + rxt(271)) * y(103)) + mat(1381) = -rxt(153)*y(93) + mat(1692) = -(rxt(176) + rxt(259)) * y(93) + mat(892) = -rxt(194)*y(93) + mat(1117) = -rxt(211)*y(93) + mat(981) = -rxt(229)*y(93) + mat(938) = -rxt(246)*y(93) + mat(1544) = -(rxt(247) + rxt(271)) * y(93) + mat(537) = rxt(118)*y(137) + mat(1816) = rxt(118)*y(94) + mat(539) = -(rxt(118)*y(137) + (rxt(120) + rxt(121)) * y(63) + (rxt(122) & + + rxt(123)) * y(62) + rxt(155)*y(126) + (rxt(158) + rxt(260) & + ) * y(103) + (rxt(178) + rxt(261)) * y(105) + rxt(196)*y(101) & + + rxt(213)*y(120) + rxt(231)*y(117) + rxt(249)*y(116)) + mat(1823) = -rxt(118)*y(94) + mat(1081) = -(rxt(120) + rxt(121)) * y(94) + mat(1163) = -(rxt(122) + rxt(123)) * y(94) + mat(1388) = -rxt(155)*y(94) + mat(1551) = -(rxt(158) + rxt(260)) * y(94) + mat(1699) = -(rxt(178) + rxt(261)) * y(94) + mat(899) = -rxt(196)*y(94) + mat(1124) = -rxt(213)*y(94) + mat(988) = -rxt(231)*y(94) + mat(945) = -rxt(249)*y(94) + mat(817) = rxt(119)*y(137) + mat(1823) = mat(1823) + rxt(119)*y(92) + mat(660) = -(rxt(127)*y(25) + rxt(128)*y(28) + rxt(129)*y(40) + rxt(130) & + *y(49) + rxt(131)*y(69) + rxt(132)*y(72) + rxt(151)*y(126) & + + rxt(174)*y(105) + rxt(191)*y(101) + rxt(209)*y(120) + rxt(225) & + *y(103) + rxt(227)*y(117) + rxt(244)*y(116)) + mat(1268) = -rxt(127)*y(95) + mat(1511) = -rxt(128)*y(95) + mat(1467) = -rxt(129)*y(95) + mat(1312) = -rxt(130)*y(95) + mat(1226) = -rxt(131)*y(95) + mat(1432) = -rxt(132)*y(95) + mat(1391) = -rxt(151)*y(95) + mat(1701) = -rxt(174)*y(95) + mat(901) = -rxt(191)*y(95) + mat(1126) = -rxt(209)*y(95) + mat(1553) = -rxt(225)*y(95) + mat(990) = -rxt(227)*y(95) + mat(948) = -rxt(244)*y(95) + mat(866) = -((rxt(133) + rxt(135)) * y(71) + rxt(134)*y(72) + rxt(138)*y(97) & + + rxt(141)*y(103) + rxt(144)*y(105) + rxt(303)*y(117) + rxt(304) & + *y(118) + rxt(306)*y(119) + rxt(308)*y(120) + rxt(326)*y(127) & + + rxt(380)*y(130) + rxt(381)*y(106) + rxt(382)*y(100) + rxt(383) & + *y(101) + rxt(384)*y(121) + rxt(583)*y(116) + rxt(584)*y(126) & + + rxt(585)*y(108)) + mat(1045) = -(rxt(133) + rxt(135)) * y(96) + mat(1438) = -rxt(134)*y(96) + mat(86) = -rxt(138)*y(96) + mat(1559) = -rxt(141)*y(96) + mat(1707) = -rxt(144)*y(96) + mat(996) = -rxt(303)*y(96) + mat(91) = -rxt(304)*y(96) + mat(116) = -rxt(306)*y(96) + mat(1132) = -rxt(308)*y(96) + mat(191) = -rxt(326)*y(96) + mat(352) = -rxt(380)*y(96) + mat(182) = -rxt(381)*y(96) + mat(164) = -rxt(382)*y(96) + mat(907) = -rxt(383)*y(96) + mat(110) = -rxt(384)*y(96) + mat(954) = -rxt(583)*y(96) + mat(1397) = -rxt(584)*y(96) + mat(157) = -rxt(585)*y(96) + mat(1473) = rxt(105)*y(88) + rxt(317)*y(125) + rxt(344)*y(132) + mat(489) = rxt(353)*y(133) + mat(1173) = rxt(136)*y(133) + mat(1232) = rxt(324)*y(125) + rxt(333)*y(128) + rxt(347)*y(132) + rxt(360) & + *y(133) + mat(1438) = mat(1438) + rxt(332)*y(128) + mat(692) = rxt(105)*y(40) + mat(248) = rxt(321)*y(125) + rxt(361)*y(133) + mat(1353) = rxt(317)*y(40) + rxt(324)*y(69) + rxt(321)*y(123) + mat(441) = rxt(333)*y(69) + rxt(332)*y(72) + mat(1630) = rxt(344)*y(40) + rxt(347)*y(69) + mat(1665) = rxt(353)*y(41) + rxt(136)*y(62) + rxt(360)*y(69) + rxt(361) & + *y(123) end subroutine nlnmat04 - subroutine nlnmat05( avec_len, mat, y, rxt ) + subroutine nlnmat05( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,287) = -((rxt(k,111) + rxt(k,112)) * y(k,60) + rxt(k,113)*y(k,67)) - mat(k,1487) = -(rxt(k,111) + rxt(k,112)) * y(k,90) - mat(k,1404) = -rxt(k,113)*y(k,90) - mat(k,1727) = rxt(k,128)*y(k,94) + rxt(k,315)*y(k,125) + rxt(k,342)*y(k,132) - mat(k,1449) = rxt(k,115)*y(k,91) - mat(k,815) = rxt(k,115)*y(k,86) - mat(k,658) = rxt(k,128)*y(k,26) - mat(k,1308) = rxt(k,315)*y(k,26) - mat(k,1611) = rxt(k,342)*y(k,26) - mat(k,822) = -((rxt(k,114) + rxt(k,115)) * y(k,86) + rxt(k,116)*y(k,26) & - + rxt(k,117)*y(k,38) + rxt(k,119)*y(k,137) + rxt(k,124)*y(k,49) & - + rxt(k,125)*y(k,67) + rxt(k,126)*y(k,68) + (rxt(k,168) & - + rxt(k,265)) * y(k,104) + (rxt(k,170) + rxt(k,258)) * y(k,102) & - + rxt(k,186)*y(k,100) + rxt(k,204)*y(k,119) + rxt(k,221) & - *y(k,116) + rxt(k,239)*y(k,115) + rxt(k,256)*y(k,126) + rxt(k,280) & - *y(k,60) + rxt(k,281)*y(k,61)) - mat(k,1461) = -(rxt(k,114) + rxt(k,115)) * y(k,91) - mat(k,1739) = -rxt(k,116)*y(k,91) - mat(k,1774) = -rxt(k,117)*y(k,91) - mat(k,1832) = -rxt(k,119)*y(k,91) - mat(k,1281) = -rxt(k,124)*y(k,91) - mat(k,1419) = -rxt(k,125)*y(k,91) - mat(k,1242) = -rxt(k,126)*y(k,91) - mat(k,1586) = -(rxt(k,168) + rxt(k,265)) * y(k,91) - mat(k,1695) = -(rxt(k,170) + rxt(k,258)) * y(k,91) - mat(k,1028) = -rxt(k,186)*y(k,91) - mat(k,1069) = -rxt(k,204)*y(k,91) - mat(k,940) = -rxt(k,221)*y(k,91) - mat(k,898) = -rxt(k,239)*y(k,91) - mat(k,1360) = -rxt(k,256)*y(k,91) - mat(k,1502) = -rxt(k,280)*y(k,91) - mat(k,986) = -rxt(k,281)*y(k,91) - mat(k,1774) = mat(k,1774) + rxt(k,129)*y(k,94) - mat(k,1419) = mat(k,1419) + rxt(k,131)*y(k,94) - mat(k,665) = rxt(k,129)*y(k,38) + rxt(k,131)*y(k,67) - mat(k,362) = -(rxt(k,153)*y(k,126) + (rxt(k,176) + rxt(k,259)) * y(k,104) & - + rxt(k,194)*y(k,100) + rxt(k,211)*y(k,119) + rxt(k,229) & - *y(k,116) + rxt(k,246)*y(k,115) + (rxt(k,247) + rxt(k,271) & - ) * y(k,102)) - mat(k,1345) = -rxt(k,153)*y(k,92) - mat(k,1572) = -(rxt(k,176) + rxt(k,259)) * y(k,92) - mat(k,1014) = -rxt(k,194)*y(k,92) - mat(k,1055) = -rxt(k,211)*y(k,92) - mat(k,926) = -rxt(k,229)*y(k,92) - mat(k,883) = -rxt(k,246)*y(k,92) - mat(k,1681) = -(rxt(k,247) + rxt(k,271)) * y(k,92) - mat(k,537) = rxt(k,118)*y(k,137) - mat(k,1816) = rxt(k,118)*y(k,93) - mat(k,539) = -(rxt(k,118)*y(k,137) + (rxt(k,120) + rxt(k,121)) * y(k,61) & - + (rxt(k,122) + rxt(k,123)) * y(k,60) + rxt(k,155)*y(k,126) & - + (rxt(k,158) + rxt(k,260)) * y(k,102) + (rxt(k,178) + rxt(k,261) & - ) * y(k,104) + rxt(k,196)*y(k,100) + rxt(k,213)*y(k,119) & - + rxt(k,231)*y(k,116) + rxt(k,249)*y(k,115)) - mat(k,1823) = -rxt(k,118)*y(k,93) - mat(k,977) = -(rxt(k,120) + rxt(k,121)) * y(k,93) - mat(k,1493) = -(rxt(k,122) + rxt(k,123)) * y(k,93) - mat(k,1352) = -rxt(k,155)*y(k,93) - mat(k,1688) = -(rxt(k,158) + rxt(k,260)) * y(k,93) - mat(k,1579) = -(rxt(k,178) + rxt(k,261)) * y(k,93) - mat(k,1021) = -rxt(k,196)*y(k,93) - mat(k,1062) = -rxt(k,213)*y(k,93) - mat(k,933) = -rxt(k,231)*y(k,93) - mat(k,890) = -rxt(k,249)*y(k,93) - mat(k,817) = rxt(k,119)*y(k,137) - mat(k,1823) = mat(k,1823) + rxt(k,119)*y(k,91) - mat(k,660) = -(rxt(k,127)*y(k,86) + rxt(k,128)*y(k,26) + rxt(k,129)*y(k,38) & - + rxt(k,130)*y(k,47) + rxt(k,131)*y(k,67) + rxt(k,132)*y(k,69) & - + rxt(k,151)*y(k,126) + rxt(k,174)*y(k,104) + rxt(k,191) & - *y(k,100) + rxt(k,209)*y(k,119) + rxt(k,225)*y(k,102) + rxt(k,227) & - *y(k,116) + rxt(k,244)*y(k,115)) - mat(k,1456) = -rxt(k,127)*y(k,94) - mat(k,1734) = -rxt(k,128)*y(k,94) - mat(k,1769) = -rxt(k,129)*y(k,94) - mat(k,1147) = -rxt(k,130)*y(k,94) - mat(k,1414) = -rxt(k,131)*y(k,94) - mat(k,1188) = -rxt(k,132)*y(k,94) - mat(k,1355) = -rxt(k,151)*y(k,94) - mat(k,1581) = -rxt(k,174)*y(k,94) - mat(k,1023) = -rxt(k,191)*y(k,94) - mat(k,1064) = -rxt(k,209)*y(k,94) - mat(k,1690) = -rxt(k,225)*y(k,94) - mat(k,935) = -rxt(k,227)*y(k,94) - mat(k,893) = -rxt(k,244)*y(k,94) - mat(k,1561) = -((rxt(k,133) + rxt(k,135)) * y(k,68) + rxt(k,134)*y(k,69) & - + rxt(k,138)*y(k,96) + rxt(k,141)*y(k,102) + rxt(k,144)*y(k,104) & - + rxt(k,303)*y(k,116) + rxt(k,304)*y(k,117) + rxt(k,306) & - *y(k,118) + rxt(k,308)*y(k,119) + rxt(k,326)*y(k,127) + rxt(k,380) & - *y(k,130) + rxt(k,381)*y(k,105) + rxt(k,382)*y(k,99) + rxt(k,383) & - *y(k,100) + rxt(k,384)*y(k,120) + rxt(k,583)*y(k,115) + rxt(k,584) & - *y(k,126) + rxt(k,585)*y(k,107)) - mat(k,1259) = -(rxt(k,133) + rxt(k,135)) * y(k,95) - mat(k,1210) = -rxt(k,134)*y(k,95) - mat(k,86) = -rxt(k,138)*y(k,95) - mat(k,1712) = -rxt(k,141)*y(k,95) - mat(k,1603) = -rxt(k,144)*y(k,95) - mat(k,957) = -rxt(k,303)*y(k,95) - mat(k,93) = -rxt(k,304)*y(k,95) - mat(k,119) = -rxt(k,306)*y(k,95) - mat(k,1086) = -rxt(k,308)*y(k,95) - mat(k,194) = -rxt(k,326)*y(k,95) - mat(k,358) = -rxt(k,380)*y(k,95) - mat(k,183) = -rxt(k,381)*y(k,95) - mat(k,165) = -rxt(k,382)*y(k,95) - mat(k,1045) = -rxt(k,383)*y(k,95) - mat(k,113) = -rxt(k,384)*y(k,95) - mat(k,915) = -rxt(k,583)*y(k,95) - mat(k,1377) = -rxt(k,584)*y(k,95) - mat(k,161) = -rxt(k,585)*y(k,95) - mat(k,1791) = rxt(k,105)*y(k,87) + rxt(k,317)*y(k,125) + rxt(k,344)*y(k,132) - mat(k,497) = rxt(k,353)*y(k,133) - mat(k,1519) = rxt(k,136)*y(k,133) - mat(k,1436) = rxt(k,324)*y(k,125) + rxt(k,333)*y(k,128) + rxt(k,347)*y(k,132) & - + rxt(k,360)*y(k,133) - mat(k,1210) = mat(k,1210) + rxt(k,332)*y(k,128) - mat(k,704) = rxt(k,105)*y(k,38) - mat(k,252) = rxt(k,321)*y(k,125) + rxt(k,361)*y(k,133) - mat(k,1333) = rxt(k,317)*y(k,38) + rxt(k,324)*y(k,67) + rxt(k,321)*y(k,123) - mat(k,448) = rxt(k,333)*y(k,67) + rxt(k,332)*y(k,69) - mat(k,1635) = rxt(k,344)*y(k,38) + rxt(k,347)*y(k,67) - mat(k,1670) = rxt(k,353)*y(k,39) + rxt(k,136)*y(k,60) + rxt(k,360)*y(k,67) & - + rxt(k,361)*y(k,123) - mat(k,83) = -(rxt(k,138)*y(k,95) + rxt(k,139)*y(k,137)) - mat(k,1527) = -rxt(k,138)*y(k,96) - mat(k,1804) = -rxt(k,139)*y(k,96) - mat(k,186) = rxt(k,327)*y(k,137) - mat(k,1804) = mat(k,1804) + rxt(k,327)*y(k,127) - mat(k,335) = -(rxt(k,149)*y(k,126) + rxt(k,172)*y(k,104) + rxt(k,189) & - *y(k,100) + rxt(k,203)*y(k,102) + rxt(k,207)*y(k,119) + rxt(k,224) & - *y(k,116) + rxt(k,242)*y(k,115)) - mat(k,1343) = -rxt(k,149)*y(k,97) - mat(k,1571) = -rxt(k,172)*y(k,97) - mat(k,1013) = -rxt(k,189)*y(k,97) - mat(k,1680) = -rxt(k,203)*y(k,97) - mat(k,1054) = -rxt(k,207)*y(k,97) - mat(k,925) = -rxt(k,224)*y(k,97) - mat(k,882) = -rxt(k,242)*y(k,97) - mat(k,747) = -(rxt(k,310)*y(k,119) + (rxt(k,408) + rxt(k,409) + rxt(k,410) & - ) * y(k,38) + rxt(k,412)*y(k,67) + rxt(k,413)*y(k,69) + rxt(k,417) & - *y(k,131) + 4._r8*rxt(k,422)*y(k,98) + rxt(k,434)*y(k,62) & - + rxt(k,439)*y(k,60) + rxt(k,444)*y(k,61) + (rxt(k,454) & - + rxt(k,455)) * y(k,86) + rxt(k,461)*y(k,26) + rxt(k,487) & - *y(k,85) + rxt(k,493)*y(k,4) + rxt(k,533)*y(k,20)) - mat(k,1067) = -rxt(k,310)*y(k,98) - mat(k,1772) = -(rxt(k,408) + rxt(k,409) + rxt(k,410)) * y(k,98) - mat(k,1417) = -rxt(k,412)*y(k,98) - mat(k,1191) = -rxt(k,413)*y(k,98) - mat(k,793) = -rxt(k,417)*y(k,98) - mat(k,1107) = -rxt(k,434)*y(k,98) - mat(k,1500) = -rxt(k,439)*y(k,98) - mat(k,984) = -rxt(k,444)*y(k,98) - mat(k,1459) = -(rxt(k,454) + rxt(k,455)) * y(k,98) - mat(k,1737) = -rxt(k,461)*y(k,98) - mat(k,458) = -rxt(k,487)*y(k,98) - mat(k,587) = -rxt(k,493)*y(k,98) - mat(k,326) = -rxt(k,533)*y(k,98) - mat(k,587) = mat(k,587) + rxt(k,498)*y(k,131) - mat(k,608) = rxt(k,530)*y(k,62) + rxt(k,531)*y(k,67) + rxt(k,486)*y(k,85) & - + rxt(k,450)*y(k,86) - mat(k,326) = mat(k,326) + rxt(k,457)*y(k,26) + rxt(k,534)*y(k,60) - mat(k,1737) = mat(k,1737) + rxt(k,457)*y(k,20) + rxt(k,468)*y(k,131) - mat(k,135) = rxt(k,537)*y(k,131) - mat(k,60) = .500_r8*rxt(k,558)*y(k,131) - mat(k,1772) = mat(k,1772) + rxt(k,411)*y(k,68) + rxt(k,317)*y(k,125) - mat(k,147) = rxt(k,407)*y(k,67) + rxt(k,453)*y(k,86) + rxt(k,416)*y(k,131) - mat(k,1150) = rxt(k,130)*y(k,94) + rxt(k,318)*y(k,125) - mat(k,1279) = rxt(k,319)*y(k,125) - mat(k,1500) = mat(k,1500) + rxt(k,534)*y(k,20) - mat(k,1107) = mat(k,1107) + rxt(k,530)*y(k,16) + rxt(k,437)*y(k,131) - mat(k,1417) = mat(k,1417) + rxt(k,531)*y(k,16) + rxt(k,407)*y(k,41) & - + rxt(k,347)*y(k,132) - mat(k,1240) = rxt(k,411)*y(k,38) - mat(k,1191) = mat(k,1191) + rxt(k,419)*y(k,131) - mat(k,257) = rxt(k,554)*y(k,131) - mat(k,458) = mat(k,458) + rxt(k,486)*y(k,16) - mat(k,1459) = mat(k,1459) + rxt(k,450)*y(k,16) + rxt(k,453)*y(k,41) - mat(k,663) = rxt(k,130)*y(k,47) - mat(k,1314) = rxt(k,317)*y(k,38) + rxt(k,318)*y(k,47) + rxt(k,319)*y(k,49) - mat(k,793) = mat(k,793) + rxt(k,498)*y(k,4) + rxt(k,468)*y(k,26) + rxt(k,537) & - *y(k,29) + .500_r8*rxt(k,558)*y(k,33) + rxt(k,416)*y(k,41) & - + rxt(k,437)*y(k,62) + rxt(k,419)*y(k,69) + rxt(k,554)*y(k,77) - mat(k,1616) = rxt(k,347)*y(k,67) - mat(k,162) = -(rxt(k,374)*y(k,137) + rxt(k,382)*y(k,95)) - mat(k,1808) = -rxt(k,374)*y(k,99) - mat(k,1534) = -rxt(k,382)*y(k,99) - mat(k,84) = rxt(k,139)*y(k,137) - mat(k,180) = rxt(k,372)*y(k,137) - mat(k,1808) = mat(k,1808) + rxt(k,139)*y(k,96) + rxt(k,372)*y(k,105) - mat(k,1033) = -(rxt(k,185)*y(k,114) + rxt(k,186)*y(k,91) + rxt(k,187)*y(k,89) & - + rxt(k,188)*y(k,110) + rxt(k,189)*y(k,97) + rxt(k,190)*y(k,125) & - + rxt(k,191)*y(k,94) + rxt(k,193)*y(k,112) + rxt(k,194)*y(k,92) & - + rxt(k,195)*y(k,87) + rxt(k,196)*y(k,93) + rxt(k,197)*y(k,109) & - + rxt(k,198)*y(k,113) + rxt(k,199)*y(k,88) + rxt(k,200)*y(k,111) & - + rxt(k,201)*y(k,108) + rxt(k,376)*y(k,137) + rxt(k,383)*y(k,95)) - mat(k,507) = -rxt(k,185)*y(k,100) - mat(k,827) = -rxt(k,186)*y(k,100) - mat(k,397) = -rxt(k,187)*y(k,100) - mat(k,718) = -rxt(k,188)*y(k,100) - mat(k,339) = -rxt(k,189)*y(k,100) - mat(k,1321) = -rxt(k,190)*y(k,100) - mat(k,670) = -rxt(k,191)*y(k,100) - mat(k,565) = -rxt(k,193)*y(k,100) - mat(k,366) = -rxt(k,194)*y(k,100) - mat(k,696) = -rxt(k,195)*y(k,100) - mat(k,547) = -rxt(k,196)*y(k,100) - mat(k,429) = -rxt(k,197)*y(k,100) - mat(k,469) = -rxt(k,198)*y(k,100) - mat(k,413) = -rxt(k,199)*y(k,100) - mat(k,525) = -rxt(k,200)*y(k,100) - mat(k,856) = -rxt(k,201)*y(k,100) - mat(k,1837) = -rxt(k,376)*y(k,100) - mat(k,1549) = -rxt(k,383)*y(k,100) - mat(k,164) = rxt(k,374)*y(k,137) - mat(k,91) = rxt(k,305)*y(k,137) - mat(k,1837) = mat(k,1837) + rxt(k,374)*y(k,99) + rxt(k,305)*y(k,117) - end do + mat(83) = -(rxt(138)*y(96) + rxt(139)*y(137)) + mat(847) = -rxt(138)*y(97) + mat(1804) = -rxt(139)*y(97) + mat(186) = rxt(327)*y(137) + mat(1804) = mat(1804) + rxt(327)*y(127) + mat(335) = -(rxt(149)*y(126) + rxt(172)*y(105) + rxt(189)*y(101) + rxt(203) & + *y(103) + rxt(207)*y(120) + rxt(224)*y(117) + rxt(242)*y(116)) + mat(1379) = -rxt(149)*y(98) + mat(1691) = -rxt(172)*y(98) + mat(891) = -rxt(189)*y(98) + mat(1543) = -rxt(203)*y(98) + mat(1116) = -rxt(207)*y(98) + mat(980) = -rxt(224)*y(98) + mat(937) = -rxt(242)*y(98) + mat(747) = -(rxt(310)*y(120) + (rxt(408) + rxt(409) + rxt(410)) * y(40) & + + rxt(412)*y(69) + rxt(413)*y(72) + rxt(417)*y(131) & + + 4._r8*rxt(422)*y(99) + rxt(434)*y(64) + rxt(439)*y(62) + rxt(444) & + *y(63) + (rxt(454) + rxt(455)) * y(25) + rxt(461)*y(28) + rxt(487) & + *y(3) + rxt(493)*y(5) + rxt(533)*y(21)) + mat(1129) = -rxt(310)*y(99) + mat(1470) = -(rxt(408) + rxt(409) + rxt(410)) * y(99) + mat(1229) = -rxt(412)*y(99) + mat(1435) = -rxt(413)*y(99) + mat(793) = -rxt(417)*y(99) + mat(1773) = -rxt(434)*y(99) + mat(1170) = -rxt(439)*y(99) + mat(1088) = -rxt(444)*y(99) + mat(1271) = -(rxt(454) + rxt(455)) * y(99) + mat(1514) = -rxt(461)*y(99) + mat(474) = -rxt(487)*y(99) + mat(587) = -rxt(493)*y(99) + mat(326) = -rxt(533)*y(99) + mat(474) = mat(474) + rxt(486)*y(17) + mat(587) = mat(587) + rxt(498)*y(131) + mat(608) = rxt(486)*y(3) + rxt(450)*y(25) + rxt(530)*y(64) + rxt(531)*y(69) + mat(326) = mat(326) + rxt(457)*y(28) + rxt(534)*y(62) + mat(1271) = mat(1271) + rxt(450)*y(17) + rxt(453)*y(43) + mat(1514) = mat(1514) + rxt(457)*y(21) + rxt(468)*y(131) + mat(135) = rxt(537)*y(131) + mat(60) = .500_r8*rxt(556)*y(131) + mat(1470) = mat(1470) + rxt(411)*y(71) + rxt(317)*y(125) + mat(147) = rxt(453)*y(25) + rxt(407)*y(69) + rxt(416)*y(131) + mat(1315) = rxt(130)*y(95) + rxt(318)*y(125) + mat(1595) = rxt(319)*y(125) + mat(1170) = mat(1170) + rxt(534)*y(21) + mat(1773) = mat(1773) + rxt(530)*y(17) + rxt(437)*y(131) + mat(1229) = mat(1229) + rxt(531)*y(17) + rxt(407)*y(43) + rxt(347)*y(132) + mat(1042) = rxt(411)*y(40) + mat(1435) = mat(1435) + rxt(419)*y(131) + mat(257) = rxt(557)*y(131) + mat(663) = rxt(130)*y(49) + mat(1350) = rxt(317)*y(40) + rxt(318)*y(49) + rxt(319)*y(51) + mat(793) = mat(793) + rxt(498)*y(5) + rxt(468)*y(28) + rxt(537)*y(31) & + + .500_r8*rxt(556)*y(35) + rxt(416)*y(43) + rxt(437)*y(64) & + + rxt(419)*y(72) + rxt(557)*y(80) + mat(1627) = rxt(347)*y(69) + mat(162) = -(rxt(374)*y(137) + rxt(382)*y(96)) + mat(1808) = -rxt(374)*y(100) + mat(854) = -rxt(382)*y(100) + mat(84) = rxt(139)*y(137) + mat(180) = rxt(372)*y(137) + mat(1808) = mat(1808) + rxt(139)*y(97) + rxt(372)*y(106) + mat(908) = -(rxt(185)*y(115) + rxt(186)*y(92) + rxt(187)*y(90) + rxt(188) & + *y(111) + rxt(189)*y(98) + rxt(190)*y(125) + rxt(191)*y(95) & + + rxt(193)*y(113) + rxt(194)*y(93) + rxt(195)*y(88) + rxt(196) & + *y(94) + rxt(197)*y(110) + rxt(198)*y(114) + rxt(199)*y(89) & + + rxt(200)*y(112) + rxt(201)*y(109) + rxt(376)*y(137) + rxt(383) & + *y(96)) + mat(505) = -rxt(185)*y(101) + mat(824) = -rxt(186)*y(101) + mat(395) = -rxt(187)*y(101) + mat(715) = -rxt(188)*y(101) + mat(337) = -rxt(189)*y(101) + mat(1354) = -rxt(190)*y(101) + mat(667) = -rxt(191)*y(101) + mat(562) = -rxt(193)*y(101) + mat(364) = -rxt(194)*y(101) + mat(693) = -rxt(195)*y(101) + mat(543) = -rxt(196)*y(101) + mat(425) = -rxt(197)*y(101) + mat(454) = -rxt(198)*y(101) + mat(411) = -rxt(199)*y(101) + mat(522) = -rxt(200)*y(101) + mat(1737) = -rxt(201)*y(101) + mat(1834) = -rxt(376)*y(101) + mat(867) = -rxt(383)*y(101) + mat(165) = rxt(374)*y(137) + mat(92) = rxt(305)*y(137) + mat(1834) = mat(1834) + rxt(374)*y(100) + rxt(305)*y(118) + mat(50) = -(rxt(140)*y(137)) + mat(1802) = -rxt(140)*y(102) + mat(295) = rxt(142)*y(103) + mat(1541) = rxt(142)*y(58) + mat(1575) = -(rxt(141)*y(96) + rxt(142)*y(58) + (rxt(146) + rxt(269) & + ) * y(115) + rxt(147)*y(88) + (rxt(158) + rxt(260)) * y(94) & + + rxt(162)*y(110) + rxt(163)*y(114) + rxt(164)*y(89) + rxt(165) & + *y(112) + rxt(166)*y(109) + (rxt(170) + rxt(258)) * y(92) & + + (rxt(181) + rxt(267)) * y(90) + (rxt(192) + rxt(264)) * y(111) & + + rxt(203)*y(98) + rxt(214)*y(125) + rxt(225)*y(95) + (rxt(236) & + + rxt(262)) * y(113) + (rxt(247) + rxt(271)) * y(93) + rxt(378) & + *y(137)) + mat(882) = -rxt(141)*y(103) + mat(304) = -rxt(142)*y(103) + mat(512) = -(rxt(146) + rxt(269)) * y(103) + mat(704) = -rxt(147)*y(103) + mat(553) = -(rxt(158) + rxt(260)) * y(103) + mat(434) = -rxt(162)*y(103) + mat(463) = -rxt(163)*y(103) + mat(421) = -rxt(164)*y(103) + mat(532) = -rxt(165)*y(103) + mat(1752) = -rxt(166)*y(103) + mat(839) = -(rxt(170) + rxt(258)) * y(103) + mat(405) = -(rxt(181) + rxt(267)) * y(103) + mat(728) = -(rxt(192) + rxt(264)) * y(103) + mat(345) = -rxt(203)*y(103) + mat(1369) = -rxt(214)*y(103) + mat(682) = -rxt(225)*y(103) + mat(572) = -(rxt(236) + rxt(262)) * y(103) + mat(373) = -(rxt(247) + rxt(271)) * y(103) + mat(1849) = -rxt(378)*y(103) + mat(923) = rxt(376)*y(137) + mat(51) = rxt(140)*y(137) + mat(1849) = mat(1849) + rxt(376)*y(101) + rxt(140)*y(102) + mat(54) = -(rxt(143)*y(137)) + mat(1803) = -rxt(143)*y(104) + mat(296) = rxt(145)*y(105) + mat(1689) = rxt(145)*y(58) + mat(1727) = -(rxt(144)*y(96) + rxt(145)*y(58) + (rxt(167) + rxt(270) & + ) * y(115) + (rxt(168) + rxt(265)) * y(92) + (rxt(169) + rxt(268) & + ) * y(90) + (rxt(171) + rxt(266)) * y(111) + rxt(172)*y(98) & + + rxt(173)*y(125) + rxt(174)*y(95) + (rxt(175) + rxt(263) & + ) * y(113) + (rxt(176) + rxt(259)) * y(93) + rxt(177)*y(88) & + + (rxt(178) + rxt(261)) * y(94) + rxt(179)*y(110) + rxt(180) & + *y(114) + rxt(182)*y(89) + rxt(183)*y(112) + rxt(184)*y(109)) + mat(886) = -rxt(144)*y(105) + mat(306) = -rxt(145)*y(105) + mat(514) = -(rxt(167) + rxt(270)) * y(105) + mat(843) = -(rxt(168) + rxt(265)) * y(105) + mat(406) = -(rxt(169) + rxt(268)) * y(105) + mat(730) = -(rxt(171) + rxt(266)) * y(105) + mat(346) = -rxt(172)*y(105) + mat(1373) = -rxt(173)*y(105) + mat(685) = -rxt(174)*y(105) + mat(574) = -(rxt(175) + rxt(263)) * y(105) + mat(374) = -(rxt(176) + rxt(259)) * y(105) + mat(706) = -rxt(177)*y(105) + mat(554) = -(rxt(178) + rxt(261)) * y(105) + mat(435) = -rxt(179)*y(105) + mat(465) = -rxt(180)*y(105) + mat(422) = -rxt(182)*y(105) + mat(534) = -rxt(183)*y(105) + mat(1756) = -rxt(184)*y(105) + mat(1579) = rxt(378)*y(137) + mat(56) = rxt(143)*y(137) + mat(1853) = rxt(378)*y(103) + rxt(143)*y(104) + mat(181) = -(rxt(372)*y(137) + rxt(381)*y(96)) + mat(1810) = -rxt(372)*y(106) + mat(856) = -rxt(381)*y(106) + mat(1462) = rxt(309)*y(120) + mat(737) = rxt(310)*y(120) + mat(1115) = rxt(309)*y(40) + rxt(310)*y(99) + rxt(311)*y(131) + mat(188) = rxt(328)*y(137) + mat(779) = rxt(311)*y(120) + mat(1810) = mat(1810) + rxt(328)*y(127) + mat(215) = -(rxt(424)*y(69) + rxt(425)*y(71) + rxt(597)*y(134)) + mat(1208) = -rxt(424)*y(107) + mat(1026) = -rxt(425)*y(107) + mat(262) = -rxt(597)*y(107) + mat(1208) = mat(1208) + rxt(587)*y(108) + mat(858) = .900_r8*rxt(585)*y(108) + .800_r8*rxt(583)*y(116) + mat(154) = rxt(587)*y(69) + .900_r8*rxt(585)*y(96) + mat(933) = .800_r8*rxt(583)*y(96) + mat(153) = -(rxt(585)*y(96) + rxt(586)*y(71) + (rxt(587) + rxt(588)) * y(69)) + mat(853) = -rxt(585)*y(108) + mat(1024) = -rxt(586)*y(108) + mat(1205) = -(rxt(587) + rxt(588)) * y(108) + mat(1757) = -(rxt(161)*y(126) + rxt(166)*y(103) + rxt(184)*y(105) + rxt(201) & + *y(101) + rxt(219)*y(120) + rxt(237)*y(117) + rxt(254)*y(116) & + + rxt(285)*y(25) + rxt(286)*y(28) + rxt(287)*y(40) + rxt(288) & + *y(137) + rxt(289)*y(49) + rxt(290)*y(51) + rxt(291)*y(63) & + + rxt(292)*y(72)) + mat(1418) = -rxt(161)*y(109) + mat(1580) = -rxt(166)*y(109) + mat(1728) = -rxt(184)*y(109) + mat(928) = -rxt(201)*y(109) + mat(1153) = -rxt(219)*y(109) + mat(1017) = -rxt(237)*y(109) + mat(975) = -rxt(254)*y(109) + mat(1295) = -rxt(285)*y(109) + mat(1538) = -rxt(286)*y(109) + mat(1494) = -rxt(287)*y(109) + mat(1854) = -rxt(288)*y(109) + mat(1339) = -rxt(289)*y(109) + mat(1619) = -rxt(290)*y(109) + mat(1112) = -rxt(291)*y(109) + mat(1459) = -rxt(292)*y(109) + mat(1194) = rxt(111)*y(91) + rxt(280)*y(92) + rxt(123)*y(94) + rxt(279) & + *y(128) + mat(1112) = mat(1112) + rxt(110)*y(88) + rxt(320)*y(125) + rxt(278)*y(128) & + + rxt(346)*y(132) + rxt(359)*y(133) + mat(1253) = rxt(301)*y(111) + mat(1459) = mat(1459) + rxt(302)*y(111) + mat(707) = rxt(110)*y(63) + mat(294) = rxt(111)*y(62) + mat(844) = rxt(280)*y(62) + mat(555) = rxt(123)*y(62) + mat(731) = rxt(301)*y(69) + rxt(302)*y(72) + mat(1374) = rxt(320)*y(63) + mat(451) = rxt(279)*y(62) + rxt(278)*y(63) + mat(1651) = rxt(346)*y(63) + mat(1686) = rxt(359)*y(63) end subroutine nlnmat05 - subroutine nlnmat06( avec_len, mat, y, rxt ) + subroutine nlnmat06( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,50) = -(rxt(k,140)*y(k,137)) - mat(k,1802) = -rxt(k,140)*y(k,101) - mat(k,295) = rxt(k,142)*y(k,102) - mat(k,1678) = rxt(k,142)*y(k,56) - mat(k,1716) = -(rxt(k,141)*y(k,95) + rxt(k,142)*y(k,56) + (rxt(k,146) & - + rxt(k,269)) * y(k,114) + rxt(k,147)*y(k,87) + (rxt(k,158) & - + rxt(k,260)) * y(k,93) + rxt(k,162)*y(k,109) + rxt(k,163) & - *y(k,113) + rxt(k,164)*y(k,88) + rxt(k,165)*y(k,111) + rxt(k,166) & - *y(k,108) + (rxt(k,170) + rxt(k,258)) * y(k,91) + (rxt(k,181) & - + rxt(k,267)) * y(k,89) + (rxt(k,192) + rxt(k,264)) * y(k,110) & - + rxt(k,203)*y(k,97) + rxt(k,214)*y(k,125) + rxt(k,225)*y(k,94) & - + (rxt(k,236) + rxt(k,262)) * y(k,112) + (rxt(k,247) + rxt(k,271) & - ) * y(k,92) + rxt(k,378)*y(k,137)) - mat(k,1565) = -rxt(k,141)*y(k,102) - mat(k,307) = -rxt(k,142)*y(k,102) - mat(k,515) = -(rxt(k,146) + rxt(k,269)) * y(k,102) - mat(k,706) = -rxt(k,147)*y(k,102) - mat(k,554) = -(rxt(k,158) + rxt(k,260)) * y(k,102) - mat(k,435) = -rxt(k,162)*y(k,102) - mat(k,478) = -rxt(k,163)*y(k,102) - mat(k,421) = -rxt(k,164)*y(k,102) - mat(k,534) = -rxt(k,165)*y(k,102) - mat(k,872) = -rxt(k,166)*y(k,102) - mat(k,843) = -(rxt(k,170) + rxt(k,258)) * y(k,102) - mat(k,405) = -(rxt(k,181) + rxt(k,267)) * y(k,102) - mat(k,731) = -(rxt(k,192) + rxt(k,264)) * y(k,102) - mat(k,345) = -rxt(k,203)*y(k,102) - mat(k,1337) = -rxt(k,214)*y(k,102) - mat(k,684) = -rxt(k,225)*y(k,102) - mat(k,574) = -(rxt(k,236) + rxt(k,262)) * y(k,102) - mat(k,373) = -(rxt(k,247) + rxt(k,271)) * y(k,102) - mat(k,1853) = -rxt(k,378)*y(k,102) - mat(k,1049) = rxt(k,376)*y(k,137) - mat(k,52) = rxt(k,140)*y(k,137) - mat(k,1853) = mat(k,1853) + rxt(k,376)*y(k,100) + rxt(k,140)*y(k,101) - mat(k,54) = -(rxt(k,143)*y(k,137)) - mat(k,1803) = -rxt(k,143)*y(k,103) - mat(k,296) = rxt(k,145)*y(k,104) - mat(k,1569) = rxt(k,145)*y(k,56) - mat(k,1604) = -(rxt(k,144)*y(k,95) + rxt(k,145)*y(k,56) + (rxt(k,167) & - + rxt(k,270)) * y(k,114) + (rxt(k,168) + rxt(k,265)) * y(k,91) & - + (rxt(k,169) + rxt(k,268)) * y(k,89) + (rxt(k,171) + rxt(k,266) & - ) * y(k,110) + rxt(k,172)*y(k,97) + rxt(k,173)*y(k,125) & - + rxt(k,174)*y(k,94) + (rxt(k,175) + rxt(k,263)) * y(k,112) & - + (rxt(k,176) + rxt(k,259)) * y(k,92) + rxt(k,177)*y(k,87) & - + (rxt(k,178) + rxt(k,261)) * y(k,93) + rxt(k,179)*y(k,109) & - + rxt(k,180)*y(k,113) + rxt(k,182)*y(k,88) + rxt(k,183)*y(k,111) & - + rxt(k,184)*y(k,108)) - mat(k,1562) = -rxt(k,144)*y(k,104) - mat(k,306) = -rxt(k,145)*y(k,104) - mat(k,514) = -(rxt(k,167) + rxt(k,270)) * y(k,104) - mat(k,840) = -(rxt(k,168) + rxt(k,265)) * y(k,104) - mat(k,404) = -(rxt(k,169) + rxt(k,268)) * y(k,104) - mat(k,730) = -(rxt(k,171) + rxt(k,266)) * y(k,104) - mat(k,344) = -rxt(k,172)*y(k,104) - mat(k,1334) = -rxt(k,173)*y(k,104) - mat(k,681) = -rxt(k,174)*y(k,104) - mat(k,573) = -(rxt(k,175) + rxt(k,263)) * y(k,104) - mat(k,372) = -(rxt(k,176) + rxt(k,259)) * y(k,104) - mat(k,705) = -rxt(k,177)*y(k,104) - mat(k,553) = -(rxt(k,178) + rxt(k,261)) * y(k,104) - mat(k,434) = -rxt(k,179)*y(k,104) - mat(k,477) = -rxt(k,180)*y(k,104) - mat(k,420) = -rxt(k,182)*y(k,104) - mat(k,533) = -rxt(k,183)*y(k,104) - mat(k,869) = -rxt(k,184)*y(k,104) - mat(k,1713) = rxt(k,378)*y(k,137) - mat(k,56) = rxt(k,143)*y(k,137) - mat(k,1850) = rxt(k,378)*y(k,102) + rxt(k,143)*y(k,103) - mat(k,181) = -(rxt(k,372)*y(k,137) + rxt(k,381)*y(k,95)) - mat(k,1810) = -rxt(k,372)*y(k,105) - mat(k,1536) = -rxt(k,381)*y(k,105) - mat(k,1764) = rxt(k,309)*y(k,119) - mat(k,737) = rxt(k,310)*y(k,119) - mat(k,1053) = rxt(k,309)*y(k,38) + rxt(k,310)*y(k,98) + rxt(k,311)*y(k,131) - mat(k,188) = rxt(k,328)*y(k,137) - mat(k,779) = rxt(k,311)*y(k,119) - mat(k,1810) = mat(k,1810) + rxt(k,328)*y(k,127) - mat(k,215) = -(rxt(k,424)*y(k,67) + rxt(k,425)*y(k,68) + rxt(k,597)*y(k,134)) - mat(k,1396) = -rxt(k,424)*y(k,106) - mat(k,1224) = -rxt(k,425)*y(k,106) - mat(k,262) = -rxt(k,597)*y(k,106) - mat(k,1396) = mat(k,1396) + rxt(k,587)*y(k,107) - mat(k,1538) = .900_r8*rxt(k,585)*y(k,107) + .800_r8*rxt(k,583)*y(k,115) - mat(k,154) = rxt(k,587)*y(k,67) + .900_r8*rxt(k,585)*y(k,95) - mat(k,878) = .800_r8*rxt(k,583)*y(k,95) - mat(k,153) = -(rxt(k,585)*y(k,95) + rxt(k,586)*y(k,68) + (rxt(k,587) & - + rxt(k,588)) * y(k,67)) - mat(k,1533) = -rxt(k,585)*y(k,107) - mat(k,1222) = -rxt(k,586)*y(k,107) - mat(k,1393) = -(rxt(k,587) + rxt(k,588)) * y(k,107) - mat(k,852) = -(rxt(k,161)*y(k,126) + rxt(k,166)*y(k,102) + rxt(k,184) & - *y(k,104) + rxt(k,201)*y(k,100) + rxt(k,219)*y(k,119) + rxt(k,237) & - *y(k,116) + rxt(k,254)*y(k,115) + rxt(k,285)*y(k,86) + rxt(k,286) & - *y(k,26) + rxt(k,287)*y(k,38) + rxt(k,288)*y(k,137) + rxt(k,289) & - *y(k,47) + rxt(k,290)*y(k,49) + rxt(k,291)*y(k,61) + rxt(k,292) & - *y(k,69)) - mat(k,1361) = -rxt(k,161)*y(k,108) - mat(k,1696) = -rxt(k,166)*y(k,108) - mat(k,1587) = -rxt(k,184)*y(k,108) - mat(k,1029) = -rxt(k,201)*y(k,108) - mat(k,1070) = -rxt(k,219)*y(k,108) - mat(k,941) = -rxt(k,237)*y(k,108) - mat(k,899) = -rxt(k,254)*y(k,108) - mat(k,1462) = -rxt(k,285)*y(k,108) - mat(k,1740) = -rxt(k,286)*y(k,108) - mat(k,1775) = -rxt(k,287)*y(k,108) - mat(k,1833) = -rxt(k,288)*y(k,108) - mat(k,1153) = -rxt(k,289)*y(k,108) - mat(k,1282) = -rxt(k,290)*y(k,108) - mat(k,987) = -rxt(k,291)*y(k,108) - mat(k,1194) = -rxt(k,292)*y(k,108) - mat(k,1503) = rxt(k,111)*y(k,90) + rxt(k,280)*y(k,91) + rxt(k,123)*y(k,93) & - + rxt(k,279)*y(k,128) - mat(k,987) = mat(k,987) + rxt(k,110)*y(k,87) + rxt(k,320)*y(k,125) & - + rxt(k,278)*y(k,128) + rxt(k,346)*y(k,132) + rxt(k,359) & - *y(k,133) - mat(k,1420) = rxt(k,301)*y(k,110) - mat(k,1194) = mat(k,1194) + rxt(k,302)*y(k,110) - mat(k,692) = rxt(k,110)*y(k,61) - mat(k,289) = rxt(k,111)*y(k,60) - mat(k,823) = rxt(k,280)*y(k,60) - mat(k,543) = rxt(k,123)*y(k,60) - mat(k,714) = rxt(k,301)*y(k,67) + rxt(k,302)*y(k,69) - mat(k,1317) = rxt(k,320)*y(k,61) - mat(k,441) = rxt(k,279)*y(k,60) + rxt(k,278)*y(k,61) - mat(k,1619) = rxt(k,346)*y(k,61) - mat(k,1654) = rxt(k,359)*y(k,61) - mat(k,424) = -(rxt(k,156)*y(k,126) + rxt(k,162)*y(k,102) + rxt(k,179) & - *y(k,104) + rxt(k,197)*y(k,100) + rxt(k,215)*y(k,119) + rxt(k,232) & - *y(k,116) + rxt(k,250)*y(k,115)) - mat(k,1348) = -rxt(k,156)*y(k,109) - mat(k,1684) = -rxt(k,162)*y(k,109) - mat(k,1575) = -rxt(k,179)*y(k,109) - mat(k,1017) = -rxt(k,197)*y(k,109) - mat(k,1058) = -rxt(k,215)*y(k,109) - mat(k,929) = -rxt(k,232)*y(k,109) - mat(k,886) = -rxt(k,250)*y(k,109) - mat(k,1490) = rxt(k,122)*y(k,93) - mat(k,538) = rxt(k,122)*y(k,60) - mat(k,848) = rxt(k,288)*y(k,137) - mat(k,1819) = rxt(k,288)*y(k,108) - mat(k,713) = -(rxt(k,148)*y(k,126) + (rxt(k,171) + rxt(k,266)) * y(k,104) & - + rxt(k,188)*y(k,100) + (rxt(k,192) + rxt(k,264)) * y(k,102) & - + rxt(k,206)*y(k,119) + rxt(k,223)*y(k,116) + rxt(k,241) & - *y(k,115) + (rxt(k,276) + rxt(k,298)) * y(k,47) + rxt(k,296) & - *y(k,137) + rxt(k,300)*y(k,49) + rxt(k,301)*y(k,67) + rxt(k,302) & - *y(k,69)) - mat(k,1357) = -rxt(k,148)*y(k,110) - mat(k,1583) = -(rxt(k,171) + rxt(k,266)) * y(k,110) - mat(k,1025) = -rxt(k,188)*y(k,110) - mat(k,1692) = -(rxt(k,192) + rxt(k,264)) * y(k,110) - mat(k,1066) = -rxt(k,206)*y(k,110) - mat(k,937) = -rxt(k,223)*y(k,110) - mat(k,895) = -rxt(k,241)*y(k,110) - mat(k,1149) = -(rxt(k,276) + rxt(k,298)) * y(k,110) - mat(k,1829) = -rxt(k,296)*y(k,110) - mat(k,1278) = -rxt(k,300)*y(k,110) - mat(k,1416) = -rxt(k,301)*y(k,110) - mat(k,1190) = -rxt(k,302)*y(k,110) - mat(k,1278) = mat(k,1278) + rxt(k,109)*y(k,87) + rxt(k,124)*y(k,91) & - + rxt(k,290)*y(k,108) + rxt(k,319)*y(k,125) + rxt(k,357) & - *y(k,133) - mat(k,1499) = rxt(k,272)*y(k,128) - mat(k,983) = rxt(k,281)*y(k,91) + rxt(k,120)*y(k,93) + rxt(k,291)*y(k,108) & - + rxt(k,277)*y(k,128) - mat(k,1190) = mat(k,1190) + rxt(k,292)*y(k,108) - mat(k,691) = rxt(k,109)*y(k,49) - mat(k,820) = rxt(k,124)*y(k,49) + rxt(k,281)*y(k,61) - mat(k,541) = rxt(k,120)*y(k,61) - mat(k,850) = rxt(k,290)*y(k,49) + rxt(k,291)*y(k,61) + rxt(k,292)*y(k,69) - mat(k,1313) = rxt(k,319)*y(k,49) - mat(k,439) = rxt(k,272)*y(k,60) + rxt(k,277)*y(k,61) - mat(k,1650) = rxt(k,357)*y(k,49) - mat(k,519) = -(rxt(k,160)*y(k,126) + rxt(k,165)*y(k,102) + rxt(k,183) & - *y(k,104) + rxt(k,200)*y(k,100) + rxt(k,218)*y(k,119) + rxt(k,235) & - *y(k,116) + rxt(k,253)*y(k,115) + rxt(k,293)*y(k,56)) - mat(k,1351) = -rxt(k,160)*y(k,111) - mat(k,1687) = -rxt(k,165)*y(k,111) - mat(k,1578) = -rxt(k,183)*y(k,111) - mat(k,1020) = -rxt(k,200)*y(k,111) - mat(k,1061) = -rxt(k,218)*y(k,111) - mat(k,932) = -rxt(k,235)*y(k,111) - mat(k,889) = -rxt(k,253)*y(k,111) - mat(k,299) = -rxt(k,293)*y(k,111) - mat(k,559) = rxt(k,294)*y(k,137) - mat(k,1822) = rxt(k,294)*y(k,112) - mat(k,560) = -(rxt(k,152)*y(k,126) + (rxt(k,175) + rxt(k,263)) * y(k,104) & - + rxt(k,193)*y(k,100) + rxt(k,210)*y(k,119) + rxt(k,228) & - *y(k,116) + (rxt(k,236) + rxt(k,262)) * y(k,102) + rxt(k,245) & - *y(k,115) + rxt(k,294)*y(k,137) + rxt(k,295)*y(k,49) + rxt(k,297) & - *y(k,56)) - mat(k,1353) = -rxt(k,152)*y(k,112) - mat(k,1580) = -(rxt(k,175) + rxt(k,263)) * y(k,112) - mat(k,1022) = -rxt(k,193)*y(k,112) - mat(k,1063) = -rxt(k,210)*y(k,112) - mat(k,934) = -rxt(k,228)*y(k,112) - mat(k,1689) = -(rxt(k,236) + rxt(k,262)) * y(k,112) - mat(k,891) = -rxt(k,245)*y(k,112) - mat(k,1824) = -rxt(k,294)*y(k,112) - mat(k,1274) = -rxt(k,295)*y(k,112) - mat(k,300) = -rxt(k,297)*y(k,112) - mat(k,978) = rxt(k,121)*y(k,93) - mat(k,540) = rxt(k,121)*y(k,61) - mat(k,711) = rxt(k,296)*y(k,137) - mat(k,1824) = mat(k,1824) + rxt(k,296)*y(k,110) - end do + mat(424) = -(rxt(156)*y(126) + rxt(162)*y(103) + rxt(179)*y(105) + rxt(197) & + *y(101) + rxt(215)*y(120) + rxt(232)*y(117) + rxt(250)*y(116)) + mat(1384) = -rxt(156)*y(110) + mat(1547) = -rxt(162)*y(110) + mat(1695) = -rxt(179)*y(110) + mat(895) = -rxt(197)*y(110) + mat(1120) = -rxt(215)*y(110) + mat(984) = -rxt(232)*y(110) + mat(941) = -rxt(250)*y(110) + mat(1160) = rxt(122)*y(94) + mat(538) = rxt(122)*y(62) + mat(1732) = rxt(288)*y(137) + mat(1819) = rxt(288)*y(109) + mat(713) = -(rxt(148)*y(126) + (rxt(171) + rxt(266)) * y(105) + rxt(188) & + *y(101) + (rxt(192) + rxt(264)) * y(103) + rxt(206)*y(120) & + + rxt(223)*y(117) + rxt(241)*y(116) + (rxt(276) + rxt(298) & + ) * y(49) + rxt(296)*y(137) + rxt(300)*y(51) + rxt(301)*y(69) & + + rxt(302)*y(72)) + mat(1393) = -rxt(148)*y(111) + mat(1703) = -(rxt(171) + rxt(266)) * y(111) + mat(903) = -rxt(188)*y(111) + mat(1555) = -(rxt(192) + rxt(264)) * y(111) + mat(1128) = -rxt(206)*y(111) + mat(992) = -rxt(223)*y(111) + mat(950) = -rxt(241)*y(111) + mat(1314) = -(rxt(276) + rxt(298)) * y(111) + mat(1829) = -rxt(296)*y(111) + mat(1594) = -rxt(300)*y(111) + mat(1228) = -rxt(301)*y(111) + mat(1434) = -rxt(302)*y(111) + mat(1594) = mat(1594) + rxt(109)*y(88) + rxt(124)*y(92) + rxt(290)*y(109) & + + rxt(319)*y(125) + rxt(357)*y(133) + mat(1169) = rxt(272)*y(128) + mat(1087) = rxt(281)*y(92) + rxt(120)*y(94) + rxt(291)*y(109) + rxt(277) & + *y(128) + mat(1434) = mat(1434) + rxt(292)*y(109) + mat(691) = rxt(109)*y(51) + mat(820) = rxt(124)*y(51) + rxt(281)*y(63) + mat(541) = rxt(120)*y(63) + mat(1734) = rxt(290)*y(51) + rxt(291)*y(63) + rxt(292)*y(72) + mat(1349) = rxt(319)*y(51) + mat(439) = rxt(272)*y(62) + rxt(277)*y(63) + mat(1661) = rxt(357)*y(51) + mat(519) = -(rxt(160)*y(126) + rxt(165)*y(103) + rxt(183)*y(105) + rxt(200) & + *y(101) + rxt(218)*y(120) + rxt(235)*y(117) + rxt(253)*y(116) & + + rxt(293)*y(58)) + mat(1387) = -rxt(160)*y(112) + mat(1550) = -rxt(165)*y(112) + mat(1698) = -rxt(183)*y(112) + mat(898) = -rxt(200)*y(112) + mat(1123) = -rxt(218)*y(112) + mat(987) = -rxt(235)*y(112) + mat(944) = -rxt(253)*y(112) + mat(299) = -rxt(293)*y(112) + mat(559) = rxt(294)*y(137) + mat(1822) = rxt(294)*y(113) + mat(560) = -(rxt(152)*y(126) + (rxt(175) + rxt(263)) * y(105) + rxt(193) & + *y(101) + rxt(210)*y(120) + rxt(228)*y(117) + (rxt(236) + rxt(262) & + ) * y(103) + rxt(245)*y(116) + rxt(294)*y(137) + rxt(295)*y(51) & + + rxt(297)*y(58)) + mat(1389) = -rxt(152)*y(113) + mat(1700) = -(rxt(175) + rxt(263)) * y(113) + mat(900) = -rxt(193)*y(113) + mat(1125) = -rxt(210)*y(113) + mat(989) = -rxt(228)*y(113) + mat(1552) = -(rxt(236) + rxt(262)) * y(113) + mat(946) = -rxt(245)*y(113) + mat(1824) = -rxt(294)*y(113) + mat(1590) = -rxt(295)*y(113) + mat(300) = -rxt(297)*y(113) + mat(1082) = rxt(121)*y(94) + mat(540) = rxt(121)*y(63) + mat(711) = rxt(296)*y(137) + mat(1824) = mat(1824) + rxt(296)*y(111) + mat(452) = -(rxt(157)*y(126) + rxt(163)*y(103) + rxt(180)*y(105) + rxt(198) & + *y(101) + rxt(216)*y(120) + rxt(233)*y(117) + rxt(251)*y(116) & + + rxt(299)*y(51)) + mat(1385) = -rxt(157)*y(114) + mat(1548) = -rxt(163)*y(114) + mat(1696) = -rxt(180)*y(114) + mat(896) = -rxt(198)*y(114) + mat(1121) = -rxt(216)*y(114) + mat(985) = -rxt(233)*y(114) + mat(942) = -rxt(251)*y(114) + mat(1587) = -rxt(299)*y(114) + mat(1306) = rxt(276)*y(111) + mat(709) = rxt(276)*y(49) + mat(503) = -((rxt(146) + rxt(269)) * y(103) + (rxt(167) + rxt(270)) * y(105) & + + rxt(185)*y(101) + rxt(202)*y(120) + rxt(220)*y(117) + rxt(238) & + *y(116) + rxt(255)*y(126)) + mat(1549) = -(rxt(146) + rxt(269)) * y(115) + mat(1697) = -(rxt(167) + rxt(270)) * y(115) + mat(897) = -rxt(185)*y(115) + mat(1122) = -rxt(202)*y(115) + mat(986) = -rxt(220)*y(115) + mat(943) = -rxt(238)*y(115) + mat(1386) = -rxt(255)*y(115) + mat(1589) = rxt(300)*y(111) + rxt(295)*y(113) + rxt(299)*y(114) + mat(298) = rxt(293)*y(112) + rxt(297)*y(113) + mat(710) = rxt(300)*y(51) + mat(518) = rxt(293)*y(58) + mat(558) = rxt(295)*y(51) + rxt(297)*y(58) + mat(453) = rxt(299)*y(51) + mat(956) = -(rxt(238)*y(115) + rxt(239)*y(92) + rxt(240)*y(90) + rxt(241) & + *y(111) + rxt(242)*y(98) + rxt(243)*y(125) + rxt(244)*y(95) & + + rxt(245)*y(113) + rxt(246)*y(93) + rxt(248)*y(88) + rxt(249) & + *y(94) + rxt(250)*y(110) + rxt(251)*y(114) + rxt(252)*y(89) & + + rxt(253)*y(112) + rxt(254)*y(109) + rxt(365)*y(137) + rxt(583) & + *y(96)) + mat(506) = -rxt(238)*y(116) + mat(825) = -rxt(239)*y(116) + mat(396) = -rxt(240)*y(116) + mat(716) = -rxt(241)*y(116) + mat(338) = -rxt(242)*y(116) + mat(1355) = -rxt(243)*y(116) + mat(668) = -rxt(244)*y(116) + mat(563) = -rxt(245)*y(116) + mat(365) = -rxt(246)*y(116) + mat(694) = -rxt(248)*y(116) + mat(544) = -rxt(249)*y(116) + mat(426) = -rxt(250)*y(116) + mat(455) = -rxt(251)*y(116) + mat(412) = -rxt(252)*y(116) + mat(523) = -rxt(253)*y(116) + mat(1738) = -rxt(254)*y(116) + mat(1835) = -rxt(365)*y(116) + mat(868) = -rxt(583)*y(116) + mat(316) = rxt(592)*y(126) + mat(1175) = rxt(594)*y(126) + mat(1234) = rxt(587)*y(108) + mat(1047) = rxt(591)*y(122) + mat(158) = rxt(587)*y(69) + mat(226) = rxt(591)*y(71) + mat(1399) = rxt(592)*y(56) + rxt(594)*y(62) + mat(999) = -(rxt(220)*y(115) + rxt(221)*y(92) + rxt(222)*y(90) + rxt(223) & + *y(111) + rxt(224)*y(98) + rxt(226)*y(125) + rxt(227)*y(95) & + + rxt(228)*y(113) + rxt(229)*y(93) + rxt(230)*y(88) + rxt(231) & + *y(94) + rxt(232)*y(110) + rxt(233)*y(114) + rxt(234)*y(89) & + + rxt(235)*y(112) + rxt(237)*y(109) + rxt(303)*y(96) + rxt(367) & + *y(137)) + mat(507) = -rxt(220)*y(117) + mat(826) = -rxt(221)*y(117) + mat(397) = -rxt(222)*y(117) + mat(717) = -rxt(223)*y(117) + mat(339) = -rxt(224)*y(117) + mat(1356) = -rxt(226)*y(117) + mat(669) = -rxt(227)*y(117) + mat(564) = -rxt(228)*y(117) + mat(366) = -rxt(229)*y(117) + mat(695) = -rxt(230)*y(117) + mat(545) = -rxt(231)*y(117) + mat(427) = -rxt(232)*y(117) + mat(456) = -rxt(233)*y(117) + mat(413) = -rxt(234)*y(117) + mat(524) = -rxt(235)*y(117) + mat(1739) = -rxt(237)*y(117) + mat(869) = -rxt(303)*y(117) + mat(1836) = -rxt(367)*y(117) + mat(1135) = rxt(366)*y(137) + mat(1836) = mat(1836) + rxt(366)*y(120) + mat(89) = -(rxt(304)*y(96) + rxt(305)*y(137)) + mat(848) = -rxt(304)*y(118) + mat(1805) = -rxt(305)*y(118) + mat(978) = rxt(367)*y(137) + mat(1805) = mat(1805) + rxt(367)*y(117) + mat(115) = -(rxt(306)*y(96) + rxt(307)*y(137)) + mat(850) = -rxt(306)*y(119) + mat(1807) = -rxt(307)*y(119) + mat(1138) = -(rxt(202)*y(115) + rxt(204)*y(92) + rxt(205)*y(90) + rxt(206) & + *y(111) + rxt(207)*y(98) + rxt(208)*y(125) + rxt(209)*y(95) & + + rxt(210)*y(113) + rxt(211)*y(93) + rxt(212)*y(88) + rxt(213) & + *y(94) + rxt(215)*y(110) + rxt(216)*y(114) + rxt(217)*y(89) & + + rxt(218)*y(112) + rxt(219)*y(109) + rxt(308)*y(96) + rxt(309) & + *y(40) + rxt(310)*y(99) + rxt(311)*y(131) + rxt(366)*y(137)) + mat(509) = -rxt(202)*y(120) + mat(829) = -rxt(204)*y(120) + mat(399) = -rxt(205)*y(120) + mat(720) = -rxt(206)*y(120) + mat(341) = -rxt(207)*y(120) + mat(1359) = -rxt(208)*y(120) + mat(672) = -rxt(209)*y(120) + mat(567) = -rxt(210)*y(120) + mat(368) = -rxt(211)*y(120) + mat(698) = -rxt(212)*y(120) + mat(548) = -rxt(213)*y(120) + mat(430) = -rxt(215)*y(120) + mat(458) = -rxt(216)*y(120) + mat(415) = -rxt(217)*y(120) + mat(527) = -rxt(218)*y(120) + mat(1742) = -rxt(219)*y(120) + mat(872) = -rxt(308)*y(120) + mat(1479) = -rxt(309)*y(120) + mat(753) = -rxt(310)*y(120) + mat(800) = -rxt(311)*y(120) + mat(1839) = -rxt(366)*y(120) + mat(960) = rxt(365)*y(137) + mat(118) = rxt(307)*y(137) + mat(112) = rxt(313)*y(137) + mat(1839) = mat(1839) + rxt(365)*y(116) + rxt(307)*y(119) + rxt(313)*y(121) + mat(108) = -(rxt(313)*y(137) + rxt(384)*y(96)) + mat(1806) = -rxt(313)*y(121) + mat(849) = -rxt(384)*y(121) + mat(223) = -(rxt(589)*y(69) + (rxt(590) + rxt(591)) * y(71)) + mat(1209) = -rxt(589)*y(122) + mat(1027) = -(rxt(590) + rxt(591)) * y(122) + mat(216) = rxt(597)*y(134) + mat(263) = rxt(597)*y(107) end subroutine nlnmat06 - subroutine nlnmat07( avec_len, mat, y, rxt ) + subroutine nlnmat07( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,465) = -(rxt(k,157)*y(k,126) + rxt(k,163)*y(k,102) + rxt(k,180) & - *y(k,104) + rxt(k,198)*y(k,100) + rxt(k,216)*y(k,119) + rxt(k,233) & - *y(k,116) + rxt(k,251)*y(k,115) + rxt(k,299)*y(k,49)) - mat(k,1349) = -rxt(k,157)*y(k,113) - mat(k,1685) = -rxt(k,163)*y(k,113) - mat(k,1576) = -rxt(k,180)*y(k,113) - mat(k,1018) = -rxt(k,198)*y(k,113) - mat(k,1059) = -rxt(k,216)*y(k,113) - mat(k,930) = -rxt(k,233)*y(k,113) - mat(k,887) = -rxt(k,251)*y(k,113) - mat(k,1271) = -rxt(k,299)*y(k,113) - mat(k,1142) = rxt(k,276)*y(k,110) - mat(k,709) = rxt(k,276)*y(k,47) - mat(k,503) = -((rxt(k,146) + rxt(k,269)) * y(k,102) + (rxt(k,167) + rxt(k,270) & - ) * y(k,104) + rxt(k,185)*y(k,100) + rxt(k,202)*y(k,119) & - + rxt(k,220)*y(k,116) + rxt(k,238)*y(k,115) + rxt(k,255) & - *y(k,126)) - mat(k,1686) = -(rxt(k,146) + rxt(k,269)) * y(k,114) - mat(k,1577) = -(rxt(k,167) + rxt(k,270)) * y(k,114) - mat(k,1019) = -rxt(k,185)*y(k,114) - mat(k,1060) = -rxt(k,202)*y(k,114) - mat(k,931) = -rxt(k,220)*y(k,114) - mat(k,888) = -rxt(k,238)*y(k,114) - mat(k,1350) = -rxt(k,255)*y(k,114) - mat(k,1273) = rxt(k,300)*y(k,110) + rxt(k,295)*y(k,112) + rxt(k,299)*y(k,113) - mat(k,298) = rxt(k,293)*y(k,111) + rxt(k,297)*y(k,112) - mat(k,710) = rxt(k,300)*y(k,49) - mat(k,518) = rxt(k,293)*y(k,56) - mat(k,558) = rxt(k,295)*y(k,49) + rxt(k,297)*y(k,56) - mat(k,466) = rxt(k,299)*y(k,49) - mat(k,900) = -(rxt(k,238)*y(k,114) + rxt(k,239)*y(k,91) + rxt(k,240)*y(k,89) & - + rxt(k,241)*y(k,110) + rxt(k,242)*y(k,97) + rxt(k,243)*y(k,125) & - + rxt(k,244)*y(k,94) + rxt(k,245)*y(k,112) + rxt(k,246)*y(k,92) & - + rxt(k,248)*y(k,87) + rxt(k,249)*y(k,93) + rxt(k,250)*y(k,109) & - + rxt(k,251)*y(k,113) + rxt(k,252)*y(k,88) + rxt(k,253)*y(k,111) & - + rxt(k,254)*y(k,108) + rxt(k,365)*y(k,137) + rxt(k,583)*y(k,95)) - mat(k,505) = -rxt(k,238)*y(k,115) - mat(k,824) = -rxt(k,239)*y(k,115) - mat(k,395) = -rxt(k,240)*y(k,115) - mat(k,715) = -rxt(k,241)*y(k,115) - mat(k,337) = -rxt(k,242)*y(k,115) - mat(k,1318) = -rxt(k,243)*y(k,115) - mat(k,667) = -rxt(k,244)*y(k,115) - mat(k,562) = -rxt(k,245)*y(k,115) - mat(k,364) = -rxt(k,246)*y(k,115) - mat(k,693) = -rxt(k,248)*y(k,115) - mat(k,544) = -rxt(k,249)*y(k,115) - mat(k,426) = -rxt(k,250)*y(k,115) - mat(k,467) = -rxt(k,251)*y(k,115) - mat(k,411) = -rxt(k,252)*y(k,115) - mat(k,522) = -rxt(k,253)*y(k,115) - mat(k,853) = -rxt(k,254)*y(k,115) - mat(k,1834) = -rxt(k,365)*y(k,115) - mat(k,1546) = -rxt(k,583)*y(k,115) - mat(k,315) = rxt(k,592)*y(k,126) - mat(k,1504) = rxt(k,594)*y(k,126) - mat(k,1421) = rxt(k,587)*y(k,107) - mat(k,1244) = rxt(k,591)*y(k,121) - mat(k,157) = rxt(k,587)*y(k,67) - mat(k,226) = rxt(k,591)*y(k,68) - mat(k,1362) = rxt(k,592)*y(k,54) + rxt(k,594)*y(k,60) - mat(k,943) = -(rxt(k,220)*y(k,114) + rxt(k,221)*y(k,91) + rxt(k,222)*y(k,89) & - + rxt(k,223)*y(k,110) + rxt(k,224)*y(k,97) + rxt(k,226)*y(k,125) & - + rxt(k,227)*y(k,94) + rxt(k,228)*y(k,112) + rxt(k,229)*y(k,92) & - + rxt(k,230)*y(k,87) + rxt(k,231)*y(k,93) + rxt(k,232)*y(k,109) & - + rxt(k,233)*y(k,113) + rxt(k,234)*y(k,88) + rxt(k,235)*y(k,111) & - + rxt(k,237)*y(k,108) + rxt(k,303)*y(k,95) + rxt(k,367)*y(k,137)) - mat(k,506) = -rxt(k,220)*y(k,116) - mat(k,825) = -rxt(k,221)*y(k,116) - mat(k,396) = -rxt(k,222)*y(k,116) - mat(k,716) = -rxt(k,223)*y(k,116) - mat(k,338) = -rxt(k,224)*y(k,116) - mat(k,1319) = -rxt(k,226)*y(k,116) - mat(k,668) = -rxt(k,227)*y(k,116) - mat(k,563) = -rxt(k,228)*y(k,116) - mat(k,365) = -rxt(k,229)*y(k,116) - mat(k,694) = -rxt(k,230)*y(k,116) - mat(k,545) = -rxt(k,231)*y(k,116) - mat(k,427) = -rxt(k,232)*y(k,116) - mat(k,468) = -rxt(k,233)*y(k,116) - mat(k,412) = -rxt(k,234)*y(k,116) - mat(k,523) = -rxt(k,235)*y(k,116) - mat(k,854) = -rxt(k,237)*y(k,116) - mat(k,1547) = -rxt(k,303)*y(k,116) - mat(k,1835) = -rxt(k,367)*y(k,116) - mat(k,1072) = rxt(k,366)*y(k,137) - mat(k,1835) = mat(k,1835) + rxt(k,366)*y(k,119) - mat(k,89) = -(rxt(k,304)*y(k,95) + rxt(k,305)*y(k,137)) - mat(k,1528) = -rxt(k,304)*y(k,117) - mat(k,1805) = -rxt(k,305)*y(k,117) - mat(k,923) = rxt(k,367)*y(k,137) - mat(k,1805) = mat(k,1805) + rxt(k,367)*y(k,116) - mat(k,115) = -(rxt(k,306)*y(k,95) + rxt(k,307)*y(k,137)) - mat(k,1530) = -rxt(k,306)*y(k,118) - mat(k,1807) = -rxt(k,307)*y(k,118) - mat(k,1075) = -(rxt(k,202)*y(k,114) + rxt(k,204)*y(k,91) + rxt(k,205)*y(k,89) & - + rxt(k,206)*y(k,110) + rxt(k,207)*y(k,97) + rxt(k,208)*y(k,125) & - + rxt(k,209)*y(k,94) + rxt(k,210)*y(k,112) + rxt(k,211)*y(k,92) & - + rxt(k,212)*y(k,87) + rxt(k,213)*y(k,93) + rxt(k,215)*y(k,109) & - + rxt(k,216)*y(k,113) + rxt(k,217)*y(k,88) + rxt(k,218)*y(k,111) & - + rxt(k,219)*y(k,108) + rxt(k,308)*y(k,95) + rxt(k,309)*y(k,38) & - + rxt(k,310)*y(k,98) + rxt(k,311)*y(k,131) + rxt(k,366)*y(k,137)) - mat(k,508) = -rxt(k,202)*y(k,119) - mat(k,828) = -rxt(k,204)*y(k,119) - mat(k,398) = -rxt(k,205)*y(k,119) - mat(k,719) = -rxt(k,206)*y(k,119) - mat(k,340) = -rxt(k,207)*y(k,119) - mat(k,1322) = -rxt(k,208)*y(k,119) - mat(k,671) = -rxt(k,209)*y(k,119) - mat(k,566) = -rxt(k,210)*y(k,119) - mat(k,367) = -rxt(k,211)*y(k,119) - mat(k,697) = -rxt(k,212)*y(k,119) - mat(k,548) = -rxt(k,213)*y(k,119) - mat(k,430) = -rxt(k,215)*y(k,119) - mat(k,470) = -rxt(k,216)*y(k,119) - mat(k,414) = -rxt(k,217)*y(k,119) - mat(k,526) = -rxt(k,218)*y(k,119) - mat(k,857) = -rxt(k,219)*y(k,119) - mat(k,1550) = -rxt(k,308)*y(k,119) - mat(k,1780) = -rxt(k,309)*y(k,119) - mat(k,751) = -rxt(k,310)*y(k,119) - mat(k,798) = -rxt(k,311)*y(k,119) - mat(k,1838) = -rxt(k,366)*y(k,119) - mat(k,904) = rxt(k,365)*y(k,137) - mat(k,117) = rxt(k,307)*y(k,137) - mat(k,111) = rxt(k,313)*y(k,137) - mat(k,1838) = mat(k,1838) + rxt(k,365)*y(k,115) + rxt(k,307)*y(k,118) & - + rxt(k,313)*y(k,120) - mat(k,108) = -(rxt(k,313)*y(k,137) + rxt(k,384)*y(k,95)) - mat(k,1806) = -rxt(k,313)*y(k,120) - mat(k,1529) = -rxt(k,384)*y(k,120) - mat(k,223) = -(rxt(k,589)*y(k,67) + (rxt(k,590) + rxt(k,591)) * y(k,68)) - mat(k,1397) = -rxt(k,589)*y(k,121) - mat(k,1225) = -(rxt(k,590) + rxt(k,591)) * y(k,121) - mat(k,216) = rxt(k,597)*y(k,134) - mat(k,263) = rxt(k,597)*y(k,106) - mat(k,637) = -(rxt(k,389)*y(k,39) + rxt(k,390)*y(k,137) + (rxt(k,392) & - + rxt(k,393)) * y(k,68) + rxt(k,394)*y(k,69) + (rxt(k,482) & - + rxt(k,483)) * y(k,47) + (rxt(k,505) + rxt(k,506)) * y(k,43) & - + rxt(k,511)*y(k,31) + rxt(k,512)*y(k,32)) - mat(k,486) = -rxt(k,389)*y(k,122) - mat(k,1827) = -rxt(k,390)*y(k,122) - mat(k,1236) = -(rxt(k,392) + rxt(k,393)) * y(k,122) - mat(k,1187) = -rxt(k,394)*y(k,122) - mat(k,1146) = -(rxt(k,482) + rxt(k,483)) * y(k,122) - mat(k,241) = -(rxt(k,505) + rxt(k,506)) * y(k,122) - mat(k,29) = -rxt(k,511)*y(k,122) - mat(k,34) = -rxt(k,512)*y(k,122) - mat(k,1236) = mat(k,1236) + rxt(k,425)*y(k,106) - mat(k,1543) = .850_r8*rxt(k,584)*y(k,126) - mat(k,219) = rxt(k,425)*y(k,68) - mat(k,1354) = .850_r8*rxt(k,584)*y(k,95) - mat(k,246) = -(rxt(k,321)*y(k,125) + rxt(k,339)*y(k,130) + rxt(k,361) & - *y(k,133) + rxt(k,396)*y(k,67) + rxt(k,397)*y(k,68)) - mat(k,1307) = -rxt(k,321)*y(k,123) - mat(k,349) = -rxt(k,339)*y(k,123) - mat(k,1643) = -rxt(k,361)*y(k,123) - mat(k,1400) = -rxt(k,396)*y(k,123) - mat(k,1226) = -rxt(k,397)*y(k,123) - mat(k,1400) = mat(k,1400) + rxt(k,400)*y(k,124) - mat(k,1226) = mat(k,1226) + rxt(k,401)*y(k,124) - mat(k,1179) = rxt(k,402)*y(k,124) - mat(k,43) = rxt(k,400)*y(k,67) + rxt(k,401)*y(k,68) + rxt(k,402)*y(k,69) - mat(k,42) = -(rxt(k,400)*y(k,67) + rxt(k,401)*y(k,68) + rxt(k,402)*y(k,69)) - mat(k,1385) = -rxt(k,400)*y(k,124) - mat(k,1218) = -rxt(k,401)*y(k,124) - mat(k,1177) = -rxt(k,402)*y(k,124) - mat(k,1218) = mat(k,1218) + rxt(k,392)*y(k,122) - mat(k,627) = rxt(k,392)*y(k,68) - mat(k,1328) = -(rxt(k,150)*y(k,126) + rxt(k,173)*y(k,104) + rxt(k,190) & - *y(k,100) + rxt(k,208)*y(k,119) + rxt(k,214)*y(k,102) + rxt(k,226) & - *y(k,116) + rxt(k,243)*y(k,115) + rxt(k,314)*y(k,86) + rxt(k,315) & - *y(k,26) + rxt(k,317)*y(k,38) + rxt(k,318)*y(k,47) + rxt(k,319) & - *y(k,49) + rxt(k,320)*y(k,61) + rxt(k,321)*y(k,123) + rxt(k,322) & - *y(k,68) + rxt(k,323)*y(k,69) + (rxt(k,324) + rxt(k,325) & - ) * y(k,67)) - mat(k,1372) = -rxt(k,150)*y(k,125) - mat(k,1598) = -rxt(k,173)*y(k,125) - mat(k,1040) = -rxt(k,190)*y(k,125) - mat(k,1081) = -rxt(k,208)*y(k,125) - mat(k,1707) = -rxt(k,214)*y(k,125) - mat(k,952) = -rxt(k,226)*y(k,125) - mat(k,910) = -rxt(k,243)*y(k,125) - mat(k,1473) = -rxt(k,314)*y(k,125) - mat(k,1751) = -rxt(k,315)*y(k,125) - mat(k,1786) = -rxt(k,317)*y(k,125) - mat(k,1164) = -rxt(k,318)*y(k,125) - mat(k,1293) = -rxt(k,319)*y(k,125) - mat(k,998) = -rxt(k,320)*y(k,125) - mat(k,250) = -rxt(k,321)*y(k,125) - mat(k,1254) = -rxt(k,322)*y(k,125) - mat(k,1205) = -rxt(k,323)*y(k,125) - mat(k,1431) = -(rxt(k,324) + rxt(k,325)) * y(k,125) - mat(k,1431) = mat(k,1431) + rxt(k,125)*y(k,91) + rxt(k,334)*y(k,128) - mat(k,1254) = mat(k,1254) + (rxt(k,133)+rxt(k,135))*y(k,95) - mat(k,834) = rxt(k,125)*y(k,67) - mat(k,1556) = (rxt(k,133)+rxt(k,135))*y(k,68) - mat(k,445) = rxt(k,334)*y(k,67) - mat(k,1373) = -(rxt(k,148)*y(k,110) + rxt(k,149)*y(k,97) + rxt(k,150) & - *y(k,125) + rxt(k,151)*y(k,94) + rxt(k,152)*y(k,112) + rxt(k,153) & - *y(k,92) + rxt(k,154)*y(k,87) + rxt(k,155)*y(k,93) + rxt(k,156) & - *y(k,109) + rxt(k,157)*y(k,113) + rxt(k,159)*y(k,88) + rxt(k,160) & - *y(k,111) + rxt(k,161)*y(k,108) + rxt(k,255)*y(k,114) + rxt(k,256) & - *y(k,91) + rxt(k,257)*y(k,89) + rxt(k,329)*y(k,137) + rxt(k,364) & - *y(k,68) + rxt(k,584)*y(k,95) + rxt(k,592)*y(k,54) + rxt(k,594) & - *y(k,60)) - mat(k,725) = -rxt(k,148)*y(k,126) - mat(k,342) = -rxt(k,149)*y(k,126) - mat(k,1329) = -rxt(k,150)*y(k,126) - mat(k,676) = -rxt(k,151)*y(k,126) - mat(k,570) = -rxt(k,152)*y(k,126) - mat(k,369) = -rxt(k,153)*y(k,126) - mat(k,701) = -rxt(k,154)*y(k,126) - mat(k,550) = -rxt(k,155)*y(k,126) - mat(k,432) = -rxt(k,156)*y(k,126) - mat(k,475) = -rxt(k,157)*y(k,126) - mat(k,417) = -rxt(k,159)*y(k,126) - mat(k,530) = -rxt(k,160)*y(k,126) - mat(k,864) = -rxt(k,161)*y(k,126) - mat(k,512) = -rxt(k,255)*y(k,126) - mat(k,835) = -rxt(k,256)*y(k,126) - mat(k,401) = -rxt(k,257)*y(k,126) - mat(k,1845) = -rxt(k,329)*y(k,126) - mat(k,1255) = -rxt(k,364)*y(k,126) - mat(k,1557) = -rxt(k,584)*y(k,126) - mat(k,318) = -rxt(k,592)*y(k,126) - mat(k,1515) = -rxt(k,594)*y(k,126) - mat(k,1432) = rxt(k,338)*y(k,130) - mat(k,1255) = mat(k,1255) + rxt(k,586)*y(k,107) + rxt(k,590)*y(k,121) & - + rxt(k,598)*y(k,134) + rxt(k,602)*y(k,135) - mat(k,159) = rxt(k,586)*y(k,68) - mat(k,228) = rxt(k,590)*y(k,68) - mat(k,251) = rxt(k,339)*y(k,130) - mat(k,1329) = mat(k,1329) + 2.000_r8*rxt(k,150)*y(k,126) - mat(k,1373) = mat(k,1373) + 2.000_r8*rxt(k,150)*y(k,125) - mat(k,356) = rxt(k,338)*y(k,67) + rxt(k,339)*y(k,123) - mat(k,271) = rxt(k,598)*y(k,68) - mat(k,132) = rxt(k,602)*y(k,68) - end do + mat(246) = -(rxt(321)*y(125) + rxt(339)*y(130) + rxt(361)*y(133) + rxt(396) & + *y(69) + rxt(397)*y(71)) + mat(1343) = -rxt(321)*y(123) + mat(349) = -rxt(339)*y(123) + mat(1654) = -rxt(361)*y(123) + mat(1212) = -rxt(396)*y(123) + mat(1028) = -rxt(397)*y(123) + mat(1212) = mat(1212) + rxt(400)*y(124) + mat(1028) = mat(1028) + rxt(401)*y(124) + mat(1423) = rxt(402)*y(124) + mat(43) = rxt(400)*y(69) + rxt(401)*y(71) + rxt(402)*y(72) + mat(42) = -(rxt(400)*y(69) + rxt(401)*y(71) + rxt(402)*y(72)) + mat(1197) = -rxt(400)*y(124) + mat(1020) = -rxt(401)*y(124) + mat(1421) = -rxt(402)*y(124) + mat(627) = rxt(392)*y(71) + mat(1020) = mat(1020) + rxt(392)*y(70) + mat(1364) = -(rxt(150)*y(126) + rxt(173)*y(105) + rxt(190)*y(101) + rxt(208) & + *y(120) + rxt(214)*y(103) + rxt(226)*y(117) + rxt(243)*y(116) & + + rxt(314)*y(25) + rxt(315)*y(28) + rxt(317)*y(40) + rxt(318) & + *y(49) + rxt(319)*y(51) + rxt(320)*y(63) + rxt(321)*y(123) & + + rxt(322)*y(71) + rxt(323)*y(72) + (rxt(324) + rxt(325) & + ) * y(69)) + mat(1408) = -rxt(150)*y(125) + mat(1718) = -rxt(173)*y(125) + mat(918) = -rxt(190)*y(125) + mat(1143) = -rxt(208)*y(125) + mat(1570) = -rxt(214)*y(125) + mat(1007) = -rxt(226)*y(125) + mat(965) = -rxt(243)*y(125) + mat(1285) = -rxt(314)*y(125) + mat(1528) = -rxt(315)*y(125) + mat(1484) = -rxt(317)*y(125) + mat(1329) = -rxt(318)*y(125) + mat(1609) = -rxt(319)*y(125) + mat(1102) = -rxt(320)*y(125) + mat(250) = -rxt(321)*y(125) + mat(1056) = -rxt(322)*y(125) + mat(1449) = -rxt(323)*y(125) + mat(1243) = -(rxt(324) + rxt(325)) * y(125) + mat(1243) = mat(1243) + rxt(125)*y(92) + rxt(334)*y(128) + mat(1056) = mat(1056) + (rxt(133)+rxt(135))*y(96) + mat(834) = rxt(125)*y(69) + mat(877) = (rxt(133)+rxt(135))*y(71) + mat(446) = rxt(334)*y(69) + mat(1409) = -(rxt(148)*y(111) + rxt(149)*y(98) + rxt(150)*y(125) + rxt(151) & + *y(95) + rxt(152)*y(113) + rxt(153)*y(93) + rxt(154)*y(88) & + + rxt(155)*y(94) + rxt(156)*y(110) + rxt(157)*y(114) + rxt(159) & + *y(89) + rxt(160)*y(112) + rxt(161)*y(109) + rxt(255)*y(115) & + + rxt(256)*y(92) + rxt(257)*y(90) + rxt(329)*y(137) + rxt(364) & + *y(71) + rxt(584)*y(96) + rxt(592)*y(56) + rxt(594)*y(62)) + mat(725) = -rxt(148)*y(126) + mat(343) = -rxt(149)*y(126) + mat(1365) = -rxt(150)*y(126) + mat(678) = -rxt(151)*y(126) + mat(570) = -rxt(152)*y(126) + mat(371) = -rxt(153)*y(126) + mat(702) = -rxt(154)*y(126) + mat(551) = -rxt(155)*y(126) + mat(432) = -rxt(156)*y(126) + mat(461) = -rxt(157)*y(126) + mat(419) = -rxt(159)*y(126) + mat(530) = -rxt(160)*y(126) + mat(1748) = -rxt(161)*y(126) + mat(511) = -rxt(255)*y(126) + mat(835) = -rxt(256)*y(126) + mat(403) = -rxt(257)*y(126) + mat(1845) = -rxt(329)*y(126) + mat(1057) = -rxt(364)*y(126) + mat(878) = -rxt(584)*y(126) + mat(321) = -rxt(592)*y(126) + mat(1185) = -rxt(594)*y(126) + mat(1244) = rxt(338)*y(130) + mat(1057) = mat(1057) + rxt(586)*y(108) + rxt(590)*y(122) + rxt(598)*y(134) & + + rxt(602)*y(135) + mat(161) = rxt(586)*y(71) + mat(229) = rxt(590)*y(71) + mat(251) = rxt(339)*y(130) + mat(1365) = mat(1365) + 2.000_r8*rxt(150)*y(126) + mat(1409) = mat(1409) + 2.000_r8*rxt(150)*y(125) + mat(357) = rxt(338)*y(69) + rxt(339)*y(123) + mat(273) = rxt(598)*y(71) + mat(133) = rxt(602)*y(71) + mat(189) = -(rxt(326)*y(96) + (rxt(327) + rxt(328)) * y(137)) + mat(857) = -rxt(326)*y(127) + mat(1811) = -(rxt(327) + rxt(328)) * y(127) + mat(1377) = rxt(329)*y(137) + mat(348) = rxt(337)*y(137) + mat(1811) = mat(1811) + rxt(329)*y(126) + rxt(337)*y(130) + mat(438) = -((rxt(272) + rxt(279)) * y(62) + (rxt(277) + rxt(278)) * y(63) & + + rxt(331)*y(40) + rxt(332)*y(72) + (rxt(333) + rxt(334) & + ) * y(69)) + mat(1161) = -(rxt(272) + rxt(279)) * y(128) + mat(1077) = -(rxt(277) + rxt(278)) * y(128) + mat(1463) = -rxt(331)*y(128) + mat(1427) = -rxt(332)*y(128) + mat(1220) = -(rxt(333) + rxt(334)) * y(128) + mat(1220) = mat(1220) + rxt(336)*y(129) + mat(1034) = rxt(126)*y(92) + rxt(362)*y(133) + mat(1427) = mat(1427) + rxt(132)*y(95) + rxt(323)*y(125) + rxt(348)*y(132) & + + rxt(363)*y(133) + mat(816) = rxt(126)*y(71) + mat(659) = rxt(132)*y(72) + mat(1346) = rxt(323)*y(72) + mat(96) = rxt(336)*y(69) + mat(1624) = rxt(348)*y(72) + mat(1656) = rxt(362)*y(71) + rxt(363)*y(72) + mat(95) = -(rxt(336)*y(69)) + mat(1199) = -rxt(336)*y(129) + mat(1021) = rxt(322)*y(125) + mat(1342) = rxt(322)*y(71) + mat(350) = -(rxt(337)*y(137) + rxt(338)*y(69) + rxt(339)*y(123) + rxt(380) & + *y(96)) + mat(1815) = -rxt(337)*y(130) + mat(1218) = -rxt(338)*y(130) + mat(247) = -rxt(339)*y(130) + mat(862) = -rxt(380)*y(130) + mat(1032) = rxt(364)*y(126) + mat(1380) = rxt(364)*y(71) + mat(794) = -(rxt(311)*y(120) + rxt(340)*y(55) + rxt(349)*y(62) + rxt(415) & + *y(41) + rxt(416)*y(43) + rxt(417)*y(99) + rxt(418)*y(69) & + + rxt(419)*y(72) + (4._r8*rxt(420) + 4._r8*rxt(421)) * y(131) & + + rxt(423)*y(52) + rxt(437)*y(64) + rxt(438)*y(56) + rxt(446) & + *y(63) + rxt(447)*y(51) + rxt(466)*y(29) + (rxt(468) + rxt(469) & + ) * y(28) + rxt(471)*y(49) + rxt(474)*y(54) + rxt(498)*y(5) & + + rxt(500)*y(45) + rxt(532)*y(17) + rxt(535)*y(22) + (rxt(537) & + + rxt(541)) * y(31) + (rxt(543) + rxt(556)) * y(35) + rxt(545) & + *y(74) + rxt(550)*y(77) + rxt(555)*y(79) + rxt(557)*y(80)) + mat(1130) = -rxt(311)*y(131) + mat(176) = -rxt(340)*y(131) + mat(1171) = -rxt(349)*y(131) + mat(488) = -rxt(415)*y(131) + mat(148) = -rxt(416)*y(131) + mat(748) = -rxt(417)*y(131) + mat(1230) = -rxt(418)*y(131) + mat(1436) = -rxt(419)*y(131) + mat(103) = -rxt(423)*y(131) + mat(1774) = -rxt(437)*y(131) + mat(314) = -rxt(438)*y(131) + mat(1089) = -rxt(446)*y(131) + mat(1596) = -rxt(447)*y(131) + mat(278) = -rxt(466)*y(131) + mat(1515) = -(rxt(468) + rxt(469)) * y(131) + mat(1316) = -rxt(471)*y(131) + mat(240) = -rxt(474)*y(131) + mat(588) = -rxt(498)*y(131) + mat(234) = -rxt(500)*y(131) + mat(609) = -rxt(532)*y(131) + mat(80) = -rxt(535)*y(131) + mat(136) = -(rxt(537) + rxt(541)) * y(131) + mat(61) = -(rxt(543) + rxt(556)) * y(131) + mat(74) = -rxt(545)*y(131) + mat(170) = -rxt(550)*y(131) + mat(383) = -rxt(555)*y(131) + mat(258) = -rxt(557)*y(131) + mat(609) = mat(609) + rxt(531)*y(69) + mat(80) = mat(80) + .300_r8*rxt(535)*y(131) + mat(1272) = rxt(455)*y(99) + rxt(341)*y(132) + mat(1515) = mat(1515) + rxt(342)*y(132) + mat(201) = rxt(509)*y(137) + mat(1471) = rxt(414)*y(72) + rxt(129)*y(95) + 2.000_r8*rxt(409)*y(99) + mat(488) = mat(488) + rxt(406)*y(69) + rxt(389)*y(70) + mat(148) = mat(148) + rxt(407)*y(69) + mat(234) = mat(234) + rxt(499)*y(69) + rxt(505)*y(70) + mat(1316) = mat(1316) + rxt(470)*y(69) + rxt(482)*y(70) + rxt(356)*y(133) + mat(1596) = mat(1596) + rxt(124)*y(92) + rxt(357)*y(133) + mat(210) = rxt(501)*y(69) + mat(240) = mat(240) + rxt(473)*y(69) + mat(1171) = mat(1171) + rxt(439)*y(99) + mat(1089) = mat(1089) + rxt(346)*y(132) + mat(1774) = mat(1774) + rxt(434)*y(99) + mat(1230) = mat(1230) + rxt(531)*y(17) + rxt(406)*y(41) + rxt(407)*y(43) & + + rxt(499)*y(45) + rxt(470)*y(49) + rxt(501)*y(53) + rxt(473) & + *y(54) + rxt(412)*y(99) + mat(639) = rxt(389)*y(41) + rxt(505)*y(45) + rxt(482)*y(49) & + + 2.000_r8*rxt(390)*y(137) + mat(1436) = mat(1436) + rxt(414)*y(40) + rxt(413)*y(99) + rxt(348)*y(132) + mat(821) = rxt(124)*y(51) + mat(664) = rxt(129)*y(40) + mat(865) = rxt(138)*y(97) + mat(85) = rxt(138)*y(96) + rxt(139)*y(137) + mat(336) = rxt(189)*y(101) + rxt(203)*y(103) + rxt(172)*y(105) + rxt(242) & + *y(116) + rxt(224)*y(117) + rxt(207)*y(120) + rxt(149)*y(126) + mat(748) = mat(748) + rxt(455)*y(25) + 2.000_r8*rxt(409)*y(40) + rxt(439) & + *y(62) + rxt(434)*y(64) + rxt(412)*y(69) + rxt(413)*y(72) + mat(905) = rxt(189)*y(98) + mat(1557) = rxt(203)*y(98) + mat(1705) = rxt(172)*y(98) + mat(952) = rxt(242)*y(98) + mat(994) = rxt(224)*y(98) + mat(1130) = mat(1130) + rxt(207)*y(98) + mat(1395) = rxt(149)*y(98) + mat(190) = rxt(328)*y(137) + mat(794) = mat(794) + .300_r8*rxt(535)*y(22) + mat(1628) = rxt(341)*y(25) + rxt(342)*y(28) + rxt(346)*y(63) + rxt(348)*y(72) + mat(1663) = rxt(356)*y(49) + rxt(357)*y(51) + rxt(355)*y(137) + mat(1831) = rxt(509)*y(39) + 2.000_r8*rxt(390)*y(70) + rxt(139)*y(97) & + + rxt(328)*y(127) + rxt(355)*y(133) + mat(1648) = -(rxt(341)*y(25) + rxt(342)*y(28) + rxt(344)*y(40) + rxt(345) & + *y(49) + rxt(346)*y(63) + rxt(347)*y(69) + rxt(348)*y(72)) + mat(1292) = -rxt(341)*y(132) + mat(1535) = -rxt(342)*y(132) + mat(1491) = -rxt(344)*y(132) + mat(1336) = -rxt(345)*y(132) + mat(1109) = -rxt(346)*y(132) + mat(1250) = -rxt(347)*y(132) + mat(1456) = -rxt(348)*y(132) + mat(1491) = mat(1491) + rxt(117)*y(92) + rxt(287)*y(109) + rxt(331)*y(128) + mat(499) = rxt(354)*y(133) + mat(841) = rxt(117)*y(40) + mat(1754) = rxt(287)*y(40) + mat(449) = rxt(331)*y(40) + mat(1683) = rxt(354)*y(41) + rxt(355)*y(137) + mat(1851) = rxt(355)*y(133) end subroutine nlnmat07 - subroutine nlnmat08( avec_len, mat, y, rxt ) + subroutine nlnmat08( mat, y, rxt ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k,189) = -(rxt(k,326)*y(k,95) + (rxt(k,327) + rxt(k,328)) * y(k,137)) - mat(k,1537) = -rxt(k,326)*y(k,127) - mat(k,1811) = -(rxt(k,327) + rxt(k,328)) * y(k,127) - mat(k,1341) = rxt(k,329)*y(k,137) - mat(k,348) = rxt(k,337)*y(k,137) - mat(k,1811) = mat(k,1811) + rxt(k,329)*y(k,126) + rxt(k,337)*y(k,130) - mat(k,438) = -((rxt(k,272) + rxt(k,279)) * y(k,60) + (rxt(k,277) + rxt(k,278) & - ) * y(k,61) + rxt(k,331)*y(k,38) + rxt(k,332)*y(k,69) + (rxt(k,333) & - + rxt(k,334)) * y(k,67)) - mat(k,1491) = -(rxt(k,272) + rxt(k,279)) * y(k,128) - mat(k,973) = -(rxt(k,277) + rxt(k,278)) * y(k,128) - mat(k,1765) = -rxt(k,331)*y(k,128) - mat(k,1183) = -rxt(k,332)*y(k,128) - mat(k,1408) = -(rxt(k,333) + rxt(k,334)) * y(k,128) - mat(k,1408) = mat(k,1408) + rxt(k,336)*y(k,129) - mat(k,1232) = rxt(k,126)*y(k,91) + rxt(k,362)*y(k,133) - mat(k,1183) = mat(k,1183) + rxt(k,132)*y(k,94) + rxt(k,323)*y(k,125) & - + rxt(k,348)*y(k,132) + rxt(k,363)*y(k,133) - mat(k,816) = rxt(k,126)*y(k,68) - mat(k,659) = rxt(k,132)*y(k,69) - mat(k,1310) = rxt(k,323)*y(k,69) - mat(k,96) = rxt(k,336)*y(k,67) - mat(k,1613) = rxt(k,348)*y(k,69) - mat(k,1645) = rxt(k,362)*y(k,68) + rxt(k,363)*y(k,69) - mat(k,95) = -(rxt(k,336)*y(k,67)) - mat(k,1387) = -rxt(k,336)*y(k,129) - mat(k,1219) = rxt(k,322)*y(k,125) - mat(k,1306) = rxt(k,322)*y(k,68) - mat(k,350) = -(rxt(k,337)*y(k,137) + rxt(k,338)*y(k,67) + rxt(k,339)*y(k,123) & - + rxt(k,380)*y(k,95)) - mat(k,1815) = -rxt(k,337)*y(k,130) - mat(k,1406) = -rxt(k,338)*y(k,130) - mat(k,247) = -rxt(k,339)*y(k,130) - mat(k,1542) = -rxt(k,380)*y(k,130) - mat(k,1230) = rxt(k,364)*y(k,126) - mat(k,1344) = rxt(k,364)*y(k,68) - mat(k,794) = -(rxt(k,311)*y(k,119) + rxt(k,340)*y(k,53) + rxt(k,349)*y(k,60) & - + rxt(k,415)*y(k,39) + rxt(k,416)*y(k,41) + rxt(k,417)*y(k,98) & - + rxt(k,418)*y(k,67) + rxt(k,419)*y(k,69) + (4._r8*rxt(k,420) & - + 4._r8*rxt(k,421)) * y(k,131) + rxt(k,423)*y(k,50) + rxt(k,437) & - *y(k,62) + rxt(k,438)*y(k,54) + rxt(k,446)*y(k,61) + rxt(k,447) & - *y(k,49) + rxt(k,466)*y(k,27) + (rxt(k,468) + rxt(k,469) & - ) * y(k,26) + rxt(k,471)*y(k,47) + rxt(k,474)*y(k,52) + rxt(k,498) & - *y(k,4) + rxt(k,500)*y(k,43) + rxt(k,532)*y(k,16) + rxt(k,535) & - *y(k,21) + (rxt(k,537) + rxt(k,541)) * y(k,29) + rxt(k,543) & - *y(k,71) + rxt(k,548)*y(k,74) + rxt(k,553)*y(k,76) + rxt(k,554) & - *y(k,77) + (rxt(k,557) + rxt(k,558)) * y(k,33)) - mat(k,1068) = -rxt(k,311)*y(k,131) - mat(k,176) = -rxt(k,340)*y(k,131) - mat(k,1501) = -rxt(k,349)*y(k,131) - mat(k,488) = -rxt(k,415)*y(k,131) - mat(k,148) = -rxt(k,416)*y(k,131) - mat(k,748) = -rxt(k,417)*y(k,131) - mat(k,1418) = -rxt(k,418)*y(k,131) - mat(k,1192) = -rxt(k,419)*y(k,131) - mat(k,103) = -rxt(k,423)*y(k,131) - mat(k,1108) = -rxt(k,437)*y(k,131) - mat(k,314) = -rxt(k,438)*y(k,131) - mat(k,985) = -rxt(k,446)*y(k,131) - mat(k,1280) = -rxt(k,447)*y(k,131) - mat(k,278) = -rxt(k,466)*y(k,131) - mat(k,1738) = -(rxt(k,468) + rxt(k,469)) * y(k,131) - mat(k,1151) = -rxt(k,471)*y(k,131) - mat(k,232) = -rxt(k,474)*y(k,131) - mat(k,588) = -rxt(k,498)*y(k,131) - mat(k,242) = -rxt(k,500)*y(k,131) - mat(k,609) = -rxt(k,532)*y(k,131) - mat(k,80) = -rxt(k,535)*y(k,131) - mat(k,136) = -(rxt(k,537) + rxt(k,541)) * y(k,131) - mat(k,74) = -rxt(k,543)*y(k,131) - mat(k,170) = -rxt(k,548)*y(k,131) - mat(k,383) = -rxt(k,553)*y(k,131) - mat(k,258) = -rxt(k,554)*y(k,131) - mat(k,61) = -(rxt(k,557) + rxt(k,558)) * y(k,131) - mat(k,609) = mat(k,609) + rxt(k,531)*y(k,67) - mat(k,80) = mat(k,80) + .300_r8*rxt(k,535)*y(k,131) - mat(k,1738) = mat(k,1738) + rxt(k,342)*y(k,132) - mat(k,201) = rxt(k,509)*y(k,137) - mat(k,1773) = rxt(k,414)*y(k,69) + rxt(k,129)*y(k,94) + 2.000_r8*rxt(k,409) & - *y(k,98) - mat(k,488) = mat(k,488) + rxt(k,406)*y(k,67) + rxt(k,389)*y(k,122) - mat(k,148) = mat(k,148) + rxt(k,407)*y(k,67) - mat(k,242) = mat(k,242) + rxt(k,499)*y(k,67) + rxt(k,505)*y(k,122) - mat(k,1151) = mat(k,1151) + rxt(k,470)*y(k,67) + rxt(k,482)*y(k,122) & - + rxt(k,356)*y(k,133) - mat(k,1280) = mat(k,1280) + rxt(k,124)*y(k,91) + rxt(k,357)*y(k,133) - mat(k,210) = rxt(k,501)*y(k,67) - mat(k,232) = mat(k,232) + rxt(k,473)*y(k,67) - mat(k,1501) = mat(k,1501) + rxt(k,439)*y(k,98) - mat(k,985) = mat(k,985) + rxt(k,346)*y(k,132) - mat(k,1108) = mat(k,1108) + rxt(k,434)*y(k,98) - mat(k,1418) = mat(k,1418) + rxt(k,531)*y(k,16) + rxt(k,406)*y(k,39) & - + rxt(k,407)*y(k,41) + rxt(k,499)*y(k,43) + rxt(k,470)*y(k,47) & - + rxt(k,501)*y(k,51) + rxt(k,473)*y(k,52) + rxt(k,412)*y(k,98) - mat(k,1192) = mat(k,1192) + rxt(k,414)*y(k,38) + rxt(k,413)*y(k,98) & - + rxt(k,348)*y(k,132) - mat(k,1460) = rxt(k,455)*y(k,98) + rxt(k,341)*y(k,132) - mat(k,821) = rxt(k,124)*y(k,49) - mat(k,664) = rxt(k,129)*y(k,38) - mat(k,1545) = rxt(k,138)*y(k,96) - mat(k,85) = rxt(k,138)*y(k,95) + rxt(k,139)*y(k,137) - mat(k,336) = rxt(k,189)*y(k,100) + rxt(k,203)*y(k,102) + rxt(k,172)*y(k,104) & - + rxt(k,242)*y(k,115) + rxt(k,224)*y(k,116) + rxt(k,207) & - *y(k,119) + rxt(k,149)*y(k,126) - mat(k,748) = mat(k,748) + 2.000_r8*rxt(k,409)*y(k,38) + rxt(k,439)*y(k,60) & - + rxt(k,434)*y(k,62) + rxt(k,412)*y(k,67) + rxt(k,413)*y(k,69) & - + rxt(k,455)*y(k,86) - mat(k,1027) = rxt(k,189)*y(k,97) - mat(k,1694) = rxt(k,203)*y(k,97) - mat(k,1585) = rxt(k,172)*y(k,97) - mat(k,897) = rxt(k,242)*y(k,97) - mat(k,939) = rxt(k,224)*y(k,97) - mat(k,1068) = mat(k,1068) + rxt(k,207)*y(k,97) - mat(k,639) = rxt(k,389)*y(k,39) + rxt(k,505)*y(k,43) + rxt(k,482)*y(k,47) & - + 2.000_r8*rxt(k,390)*y(k,137) - mat(k,1359) = rxt(k,149)*y(k,97) - mat(k,190) = rxt(k,328)*y(k,137) - mat(k,794) = mat(k,794) + .300_r8*rxt(k,535)*y(k,21) - mat(k,1617) = rxt(k,342)*y(k,26) + rxt(k,346)*y(k,61) + rxt(k,348)*y(k,69) & - + rxt(k,341)*y(k,86) - mat(k,1652) = rxt(k,356)*y(k,47) + rxt(k,357)*y(k,49) + rxt(k,355)*y(k,137) - mat(k,1831) = rxt(k,509)*y(k,37) + rxt(k,139)*y(k,96) + 2.000_r8*rxt(k,390) & - *y(k,122) + rxt(k,328)*y(k,127) + rxt(k,355)*y(k,133) - mat(k,1637) = -(rxt(k,341)*y(k,86) + rxt(k,342)*y(k,26) + rxt(k,344)*y(k,38) & - + rxt(k,345)*y(k,47) + rxt(k,346)*y(k,61) + rxt(k,347)*y(k,67) & - + rxt(k,348)*y(k,69)) - mat(k,1480) = -rxt(k,341)*y(k,132) - mat(k,1758) = -rxt(k,342)*y(k,132) - mat(k,1793) = -rxt(k,344)*y(k,132) - mat(k,1171) = -rxt(k,345)*y(k,132) - mat(k,1005) = -rxt(k,346)*y(k,132) - mat(k,1438) = -rxt(k,347)*y(k,132) - mat(k,1212) = -rxt(k,348)*y(k,132) - mat(k,1793) = mat(k,1793) + rxt(k,117)*y(k,91) + rxt(k,287)*y(k,108) & - + rxt(k,331)*y(k,128) - mat(k,498) = rxt(k,354)*y(k,133) - mat(k,841) = rxt(k,117)*y(k,38) - mat(k,870) = rxt(k,287)*y(k,38) - mat(k,449) = rxt(k,331)*y(k,38) - mat(k,1672) = rxt(k,354)*y(k,39) + rxt(k,355)*y(k,137) - mat(k,1851) = rxt(k,355)*y(k,133) - mat(k,1673) = -(rxt(k,136)*y(k,60) + rxt(k,350)*y(k,86) + rxt(k,351)*y(k,26) & - + (rxt(k,353) + rxt(k,354)) * y(k,39) + rxt(k,355)*y(k,137) & - + rxt(k,356)*y(k,47) + rxt(k,357)*y(k,49) + rxt(k,359)*y(k,61) & - + rxt(k,360)*y(k,67) + rxt(k,361)*y(k,123) + rxt(k,362)*y(k,68) & - + rxt(k,363)*y(k,69)) - mat(k,1522) = -rxt(k,136)*y(k,133) - mat(k,1481) = -rxt(k,350)*y(k,133) - mat(k,1759) = -rxt(k,351)*y(k,133) - mat(k,499) = -(rxt(k,353) + rxt(k,354)) * y(k,133) - mat(k,1852) = -rxt(k,355)*y(k,133) - mat(k,1172) = -rxt(k,356)*y(k,133) - mat(k,1301) = -rxt(k,357)*y(k,133) - mat(k,1006) = -rxt(k,359)*y(k,133) - mat(k,1439) = -rxt(k,360)*y(k,133) - mat(k,253) = -rxt(k,361)*y(k,133) - mat(k,1262) = -rxt(k,362)*y(k,133) - mat(k,1213) = -rxt(k,363)*y(k,133) - mat(k,1439) = mat(k,1439) + rxt(k,325)*y(k,125) - mat(k,1213) = mat(k,1213) + rxt(k,134)*y(k,95) - mat(k,1564) = rxt(k,134)*y(k,69) - mat(k,1336) = rxt(k,325)*y(k,67) - mat(k,264) = -(rxt(k,597)*y(k,106) + rxt(k,598)*y(k,68)) - mat(k,217) = -rxt(k,597)*y(k,134) - mat(k,1228) = -rxt(k,598)*y(k,134) - mat(k,1402) = rxt(k,588)*y(k,107) + rxt(k,589)*y(k,121) + rxt(k,601)*y(k,135) & - + rxt(k,607)*y(k,136) - mat(k,1540) = rxt(k,599)*y(k,135) + rxt(k,604)*y(k,136) - mat(k,155) = rxt(k,588)*y(k,67) - mat(k,224) = rxt(k,589)*y(k,67) - mat(k,130) = rxt(k,601)*y(k,67) + rxt(k,599)*y(k,95) - mat(k,125) = rxt(k,607)*y(k,67) + rxt(k,604)*y(k,95) - mat(k,128) = -(rxt(k,599)*y(k,95) + rxt(k,601)*y(k,67) + rxt(k,602)*y(k,68)) - mat(k,1532) = -rxt(k,599)*y(k,135) - mat(k,1389) = -rxt(k,601)*y(k,135) - mat(k,1221) = -rxt(k,602)*y(k,135) - mat(k,1532) = mat(k,1532) + rxt(k,603)*y(k,136) - mat(k,122) = rxt(k,603)*y(k,95) - mat(k,121) = -((rxt(k,603) + rxt(k,604)) * y(k,95) + rxt(k,607)*y(k,67)) - mat(k,1531) = -(rxt(k,603) + rxt(k,604)) * y(k,136) - mat(k,1388) = -rxt(k,607)*y(k,136) - mat(k,1856) = -(rxt(k,107)*y(k,87) + rxt(k,118)*y(k,93) + rxt(k,119)*y(k,91) & - + rxt(k,139)*y(k,96) + rxt(k,140)*y(k,101) + rxt(k,143)*y(k,103) & - + rxt(k,288)*y(k,108) + rxt(k,294)*y(k,112) + rxt(k,296) & - *y(k,110) + rxt(k,305)*y(k,117) + rxt(k,307)*y(k,118) + rxt(k,313) & - *y(k,120) + (rxt(k,327) + rxt(k,328)) * y(k,127) + rxt(k,329) & - *y(k,126) + rxt(k,337)*y(k,130) + rxt(k,355)*y(k,133) + rxt(k,365) & - *y(k,115) + rxt(k,366)*y(k,119) + rxt(k,367)*y(k,116) + rxt(k,372) & - *y(k,105) + rxt(k,374)*y(k,99) + rxt(k,376)*y(k,100) + rxt(k,378) & - *y(k,102) + rxt(k,390)*y(k,122) + rxt(k,509)*y(k,37) + rxt(k,555) & - *y(k,78)) - mat(k,708) = -rxt(k,107)*y(k,137) - mat(k,556) = -rxt(k,118)*y(k,137) - mat(k,846) = -rxt(k,119)*y(k,137) - mat(k,88) = -rxt(k,139)*y(k,137) - mat(k,53) = -rxt(k,140)*y(k,137) - mat(k,57) = -rxt(k,143)*y(k,137) - mat(k,875) = -rxt(k,288)*y(k,137) - mat(k,576) = -rxt(k,294)*y(k,137) - mat(k,733) = -rxt(k,296)*y(k,137) - mat(k,94) = -rxt(k,305)*y(k,137) - mat(k,120) = -rxt(k,307)*y(k,137) - mat(k,114) = -rxt(k,313)*y(k,137) - mat(k,196) = -(rxt(k,327) + rxt(k,328)) * y(k,137) - mat(k,1384) = -rxt(k,329)*y(k,137) - mat(k,361) = -rxt(k,337)*y(k,137) - mat(k,1677) = -rxt(k,355)*y(k,137) - mat(k,922) = -rxt(k,365)*y(k,137) - mat(k,1093) = -rxt(k,366)*y(k,137) - mat(k,964) = -rxt(k,367)*y(k,137) - mat(k,185) = -rxt(k,372)*y(k,137) - mat(k,167) = -rxt(k,374)*y(k,137) - mat(k,1052) = -rxt(k,376)*y(k,137) - mat(k,1719) = -rxt(k,378)*y(k,137) - mat(k,657) = -rxt(k,390)*y(k,137) - mat(k,205) = -rxt(k,509)*y(k,137) - mat(k,49) = -rxt(k,555)*y(k,137) - mat(k,624) = rxt(k,532)*y(k,131) - mat(k,82) = rxt(k,535)*y(k,131) - mat(k,1798) = rxt(k,410)*y(k,98) + rxt(k,344)*y(k,132) - mat(k,502) = rxt(k,415)*y(k,131) + rxt(k,353)*y(k,133) - mat(k,152) = rxt(k,416)*y(k,131) - mat(k,245) = rxt(k,500)*y(k,131) - mat(k,1176) = (rxt(k,571)+rxt(k,576))*y(k,51) + (rxt(k,564)+rxt(k,570) & - +rxt(k,575))*y(k,52) + rxt(k,106)*y(k,88) + rxt(k,471)*y(k,131) & - + rxt(k,345)*y(k,132) - mat(k,1305) = rxt(k,295)*y(k,112) + rxt(k,447)*y(k,131) - mat(k,107) = rxt(k,423)*y(k,131) - mat(k,214) = (rxt(k,571)+rxt(k,576))*y(k,47) - mat(k,237) = (rxt(k,564)+rxt(k,570)+rxt(k,575))*y(k,47) + rxt(k,474)*y(k,131) - mat(k,179) = rxt(k,340)*y(k,131) - mat(k,308) = rxt(k,293)*y(k,111) - mat(k,1526) = rxt(k,123)*y(k,93) - mat(k,1010) = rxt(k,120)*y(k,93) - mat(k,708) = mat(k,708) + 3.000_r8*rxt(k,195)*y(k,100) + 4.000_r8*rxt(k,147) & - *y(k,102) + 5.000_r8*rxt(k,177)*y(k,104) + 2.000_r8*rxt(k,230) & - *y(k,116) + rxt(k,212)*y(k,119) - mat(k,423) = rxt(k,106)*y(k,47) + 4.000_r8*rxt(k,199)*y(k,100) & - + 5.000_r8*rxt(k,164)*y(k,102) + 6.000_r8*rxt(k,182)*y(k,104) & - + rxt(k,252)*y(k,115) + 3.000_r8*rxt(k,234)*y(k,116) & - + 2.000_r8*rxt(k,217)*y(k,119) + rxt(k,159)*y(k,126) - mat(k,407) = 3.000_r8*rxt(k,187)*y(k,100) + (4.000_r8*rxt(k,181) & - +4.000_r8*rxt(k,267))*y(k,102) + (5.000_r8*rxt(k,169) & - +5.000_r8*rxt(k,268))*y(k,104) + 2.000_r8*rxt(k,222)*y(k,116) & - + rxt(k,205)*y(k,119) - mat(k,846) = mat(k,846) + 3.000_r8*rxt(k,186)*y(k,100) + (4.000_r8*rxt(k,170) & - +4.000_r8*rxt(k,258))*y(k,102) + (5.000_r8*rxt(k,168) & - +5.000_r8*rxt(k,265))*y(k,104) + 2.000_r8*rxt(k,221)*y(k,116) & - + rxt(k,204)*y(k,119) - mat(k,375) = 5.000_r8*rxt(k,194)*y(k,100) + (6.000_r8*rxt(k,247) & - +6.000_r8*rxt(k,271))*y(k,102) + (7.000_r8*rxt(k,176) & - +7.000_r8*rxt(k,259))*y(k,104) + 2.000_r8*rxt(k,246)*y(k,115) & - + 4.000_r8*rxt(k,229)*y(k,116) + 3.000_r8*rxt(k,211)*y(k,119) & - + 2.000_r8*rxt(k,153)*y(k,126) - mat(k,556) = mat(k,556) + rxt(k,123)*y(k,60) + rxt(k,120)*y(k,61) & - + 4.000_r8*rxt(k,196)*y(k,100) + (5.000_r8*rxt(k,158) & - +5.000_r8*rxt(k,260))*y(k,102) + (6.000_r8*rxt(k,178) & - +6.000_r8*rxt(k,261))*y(k,104) + rxt(k,249)*y(k,115) & - + 3.000_r8*rxt(k,231)*y(k,116) + 2.000_r8*rxt(k,213)*y(k,119) & - + rxt(k,155)*y(k,126) - mat(k,687) = 3.000_r8*rxt(k,191)*y(k,100) + 4.000_r8*rxt(k,225)*y(k,102) & - + 5.000_r8*rxt(k,174)*y(k,104) + 2.000_r8*rxt(k,227)*y(k,116) & - + rxt(k,209)*y(k,119) - mat(k,1568) = rxt(k,138)*y(k,96) + 2.000_r8*rxt(k,382)*y(k,99) & - + 3.000_r8*rxt(k,383)*y(k,100) + 4.000_r8*rxt(k,141)*y(k,102) & - + 5.000_r8*rxt(k,144)*y(k,104) + rxt(k,381)*y(k,105) & - + 2.000_r8*rxt(k,303)*y(k,116) + 3.000_r8*rxt(k,304)*y(k,117) & - + rxt(k,308)*y(k,119) + rxt(k,326)*y(k,127) - mat(k,88) = mat(k,88) + rxt(k,138)*y(k,95) - mat(k,347) = 3.000_r8*rxt(k,189)*y(k,100) + 4.000_r8*rxt(k,203)*y(k,102) & - + 5.000_r8*rxt(k,172)*y(k,104) + 2.000_r8*rxt(k,224)*y(k,116) & - + rxt(k,207)*y(k,119) - mat(k,767) = rxt(k,410)*y(k,38) + rxt(k,417)*y(k,131) - mat(k,167) = mat(k,167) + 2.000_r8*rxt(k,382)*y(k,95) - mat(k,1052) = mat(k,1052) + 3.000_r8*rxt(k,195)*y(k,87) + 4.000_r8*rxt(k,199) & - *y(k,88) + 3.000_r8*rxt(k,187)*y(k,89) + 3.000_r8*rxt(k,186) & - *y(k,91) + 5.000_r8*rxt(k,194)*y(k,92) + 4.000_r8*rxt(k,196) & - *y(k,93) + 3.000_r8*rxt(k,191)*y(k,94) + 3.000_r8*rxt(k,383) & - *y(k,95) + 3.000_r8*rxt(k,189)*y(k,97) + 3.000_r8*rxt(k,201) & - *y(k,108) + 4.000_r8*rxt(k,197)*y(k,109) + 3.000_r8*rxt(k,188) & - *y(k,110) + 5.000_r8*rxt(k,200)*y(k,111) + 4.000_r8*rxt(k,193) & - *y(k,112) + 3.000_r8*rxt(k,198)*y(k,113) + 3.000_r8*rxt(k,185) & - *y(k,114) + 3.000_r8*rxt(k,190)*y(k,125) - mat(k,1719) = mat(k,1719) + 4.000_r8*rxt(k,147)*y(k,87) + 5.000_r8*rxt(k,164) & - *y(k,88) + (4.000_r8*rxt(k,181)+4.000_r8*rxt(k,267))*y(k,89) + ( & - + 4.000_r8*rxt(k,170)+4.000_r8*rxt(k,258))*y(k,91) + ( & - + 6.000_r8*rxt(k,247)+6.000_r8*rxt(k,271))*y(k,92) + ( & - + 5.000_r8*rxt(k,158)+5.000_r8*rxt(k,260))*y(k,93) & - + 4.000_r8*rxt(k,225)*y(k,94) + 4.000_r8*rxt(k,141)*y(k,95) & - + 4.000_r8*rxt(k,203)*y(k,97) + 4.000_r8*rxt(k,166)*y(k,108) & - + 5.000_r8*rxt(k,162)*y(k,109) + (4.000_r8*rxt(k,192) & - +4.000_r8*rxt(k,264))*y(k,110) + 6.000_r8*rxt(k,165)*y(k,111) + ( & - + 5.000_r8*rxt(k,236)+5.000_r8*rxt(k,262))*y(k,112) & - + 4.000_r8*rxt(k,163)*y(k,113) + (4.000_r8*rxt(k,146) & - +4.000_r8*rxt(k,269))*y(k,114) + 4.000_r8*rxt(k,214)*y(k,125) - mat(k,1610) = 5.000_r8*rxt(k,177)*y(k,87) + 6.000_r8*rxt(k,182)*y(k,88) + ( & - + 5.000_r8*rxt(k,169)+5.000_r8*rxt(k,268))*y(k,89) + ( & - + 5.000_r8*rxt(k,168)+5.000_r8*rxt(k,265))*y(k,91) + ( & - + 7.000_r8*rxt(k,176)+7.000_r8*rxt(k,259))*y(k,92) + ( & - + 6.000_r8*rxt(k,178)+6.000_r8*rxt(k,261))*y(k,93) & - + 5.000_r8*rxt(k,174)*y(k,94) + 5.000_r8*rxt(k,144)*y(k,95) & - + 5.000_r8*rxt(k,172)*y(k,97) + 5.000_r8*rxt(k,184)*y(k,108) & - + 6.000_r8*rxt(k,179)*y(k,109) + (5.000_r8*rxt(k,171) & - +5.000_r8*rxt(k,266))*y(k,110) + 7.000_r8*rxt(k,183)*y(k,111) + ( & - + 6.000_r8*rxt(k,175)+6.000_r8*rxt(k,263))*y(k,112) & - + 5.000_r8*rxt(k,180)*y(k,113) + (5.000_r8*rxt(k,167) & - +5.000_r8*rxt(k,270))*y(k,114) + 5.000_r8*rxt(k,173)*y(k,125) - mat(k,185) = mat(k,185) + rxt(k,381)*y(k,95) - mat(k,875) = mat(k,875) + 3.000_r8*rxt(k,201)*y(k,100) + 4.000_r8*rxt(k,166) & - *y(k,102) + 5.000_r8*rxt(k,184)*y(k,104) + 2.000_r8*rxt(k,237) & - *y(k,116) + rxt(k,219)*y(k,119) - mat(k,437) = 4.000_r8*rxt(k,197)*y(k,100) + 5.000_r8*rxt(k,162)*y(k,102) & - + 6.000_r8*rxt(k,179)*y(k,104) + rxt(k,250)*y(k,115) & - + 3.000_r8*rxt(k,232)*y(k,116) + 2.000_r8*rxt(k,215)*y(k,119) & - + rxt(k,156)*y(k,126) - mat(k,733) = mat(k,733) + 3.000_r8*rxt(k,188)*y(k,100) + (4.000_r8*rxt(k,192) & - +4.000_r8*rxt(k,264))*y(k,102) + (5.000_r8*rxt(k,171) & - +5.000_r8*rxt(k,266))*y(k,104) + 2.000_r8*rxt(k,223)*y(k,116) & - + rxt(k,206)*y(k,119) - mat(k,536) = rxt(k,293)*y(k,56) + 5.000_r8*rxt(k,200)*y(k,100) & - + 6.000_r8*rxt(k,165)*y(k,102) + 7.000_r8*rxt(k,183)*y(k,104) & - + 2.000_r8*rxt(k,253)*y(k,115) + 4.000_r8*rxt(k,235)*y(k,116) & - + 3.000_r8*rxt(k,218)*y(k,119) + 2.000_r8*rxt(k,160)*y(k,126) - mat(k,576) = mat(k,576) + rxt(k,295)*y(k,49) + 4.000_r8*rxt(k,193)*y(k,100) + ( & - + 5.000_r8*rxt(k,236)+5.000_r8*rxt(k,262))*y(k,102) + ( & - + 6.000_r8*rxt(k,175)+6.000_r8*rxt(k,263))*y(k,104) + rxt(k,245) & - *y(k,115) + 3.000_r8*rxt(k,228)*y(k,116) + 2.000_r8*rxt(k,210) & - *y(k,119) + rxt(k,152)*y(k,126) - mat(k,480) = 3.000_r8*rxt(k,198)*y(k,100) + 4.000_r8*rxt(k,163)*y(k,102) & - + 5.000_r8*rxt(k,180)*y(k,104) + 2.000_r8*rxt(k,233)*y(k,116) & - + rxt(k,216)*y(k,119) - mat(k,516) = 3.000_r8*rxt(k,185)*y(k,100) + (4.000_r8*rxt(k,146) & - +4.000_r8*rxt(k,269))*y(k,102) + (5.000_r8*rxt(k,167) & - +5.000_r8*rxt(k,270))*y(k,104) + 2.000_r8*rxt(k,220)*y(k,116) & - + rxt(k,202)*y(k,119) - mat(k,922) = mat(k,922) + rxt(k,252)*y(k,88) + 2.000_r8*rxt(k,246)*y(k,92) & - + rxt(k,249)*y(k,93) + rxt(k,250)*y(k,109) + 2.000_r8*rxt(k,253) & - *y(k,111) + rxt(k,245)*y(k,112) - mat(k,964) = mat(k,964) + 2.000_r8*rxt(k,230)*y(k,87) + 3.000_r8*rxt(k,234) & - *y(k,88) + 2.000_r8*rxt(k,222)*y(k,89) + 2.000_r8*rxt(k,221) & - *y(k,91) + 4.000_r8*rxt(k,229)*y(k,92) + 3.000_r8*rxt(k,231) & - *y(k,93) + 2.000_r8*rxt(k,227)*y(k,94) + 2.000_r8*rxt(k,303) & - *y(k,95) + 2.000_r8*rxt(k,224)*y(k,97) + 2.000_r8*rxt(k,237) & - *y(k,108) + 3.000_r8*rxt(k,232)*y(k,109) + 2.000_r8*rxt(k,223) & - *y(k,110) + 4.000_r8*rxt(k,235)*y(k,111) + 3.000_r8*rxt(k,228) & - *y(k,112) + 2.000_r8*rxt(k,233)*y(k,113) + 2.000_r8*rxt(k,220) & - *y(k,114) + 2.000_r8*rxt(k,226)*y(k,125) - mat(k,94) = mat(k,94) + 3.000_r8*rxt(k,304)*y(k,95) - mat(k,1093) = mat(k,1093) + rxt(k,212)*y(k,87) + 2.000_r8*rxt(k,217)*y(k,88) & - + rxt(k,205)*y(k,89) + rxt(k,204)*y(k,91) + 3.000_r8*rxt(k,211) & - *y(k,92) + 2.000_r8*rxt(k,213)*y(k,93) + rxt(k,209)*y(k,94) & - + rxt(k,308)*y(k,95) + rxt(k,207)*y(k,97) + rxt(k,219)*y(k,108) & - + 2.000_r8*rxt(k,215)*y(k,109) + rxt(k,206)*y(k,110) & - + 3.000_r8*rxt(k,218)*y(k,111) + 2.000_r8*rxt(k,210)*y(k,112) & - + rxt(k,216)*y(k,113) + rxt(k,202)*y(k,114) + rxt(k,208) & - *y(k,125) - mat(k,1340) = 3.000_r8*rxt(k,190)*y(k,100) + 4.000_r8*rxt(k,214)*y(k,102) & - + 5.000_r8*rxt(k,173)*y(k,104) + 2.000_r8*rxt(k,226)*y(k,116) & - + rxt(k,208)*y(k,119) - mat(k,1384) = mat(k,1384) + rxt(k,159)*y(k,88) + 2.000_r8*rxt(k,153)*y(k,92) & - + rxt(k,155)*y(k,93) + rxt(k,156)*y(k,109) + 2.000_r8*rxt(k,160) & - *y(k,111) + rxt(k,152)*y(k,112) - mat(k,196) = mat(k,196) + rxt(k,326)*y(k,95) - mat(k,814) = rxt(k,532)*y(k,16) + rxt(k,535)*y(k,21) + rxt(k,415)*y(k,39) & - + rxt(k,416)*y(k,41) + rxt(k,500)*y(k,43) + rxt(k,471)*y(k,47) & - + rxt(k,447)*y(k,49) + rxt(k,423)*y(k,50) + rxt(k,474)*y(k,52) & - + rxt(k,340)*y(k,53) + rxt(k,417)*y(k,98) + 2.000_r8*rxt(k,420) & - *y(k,131) - mat(k,1642) = rxt(k,344)*y(k,38) + rxt(k,345)*y(k,47) - mat(k,1677) = mat(k,1677) + rxt(k,353)*y(k,39) - end do + mat(1684) = -(rxt(136)*y(62) + rxt(350)*y(25) + rxt(351)*y(28) + (rxt(353) & + + rxt(354)) * y(41) + rxt(355)*y(137) + rxt(356)*y(49) + rxt(357) & + *y(51) + rxt(359)*y(63) + rxt(360)*y(69) + rxt(361)*y(123) & + + rxt(362)*y(71) + rxt(363)*y(72)) + mat(1192) = -rxt(136)*y(133) + mat(1293) = -rxt(350)*y(133) + mat(1536) = -rxt(351)*y(133) + mat(500) = -(rxt(353) + rxt(354)) * y(133) + mat(1852) = -rxt(355)*y(133) + mat(1337) = -rxt(356)*y(133) + mat(1617) = -rxt(357)*y(133) + mat(1110) = -rxt(359)*y(133) + mat(1251) = -rxt(360)*y(133) + mat(253) = -rxt(361)*y(133) + mat(1064) = -rxt(362)*y(133) + mat(1457) = -rxt(363)*y(133) + mat(1251) = mat(1251) + rxt(325)*y(125) + mat(1457) = mat(1457) + rxt(134)*y(96) + mat(885) = rxt(134)*y(72) + mat(1372) = rxt(325)*y(69) + mat(264) = -(rxt(597)*y(107) + rxt(598)*y(71)) + mat(217) = -rxt(597)*y(134) + mat(1030) = -rxt(598)*y(134) + mat(1214) = rxt(588)*y(108) + rxt(589)*y(122) + rxt(601)*y(135) + rxt(607) & + *y(136) + mat(860) = rxt(599)*y(135) + rxt(604)*y(136) + mat(155) = rxt(588)*y(69) + mat(224) = rxt(589)*y(69) + mat(130) = rxt(601)*y(69) + rxt(599)*y(96) + mat(125) = rxt(607)*y(69) + rxt(604)*y(96) + mat(128) = -(rxt(599)*y(96) + rxt(601)*y(69) + rxt(602)*y(71)) + mat(852) = -rxt(599)*y(135) + mat(1201) = -rxt(601)*y(135) + mat(1023) = -rxt(602)*y(135) + mat(852) = mat(852) + rxt(603)*y(136) + mat(122) = rxt(603)*y(96) + mat(121) = -((rxt(603) + rxt(604)) * y(96) + rxt(607)*y(69)) + mat(851) = -(rxt(603) + rxt(604)) * y(136) + mat(1200) = -rxt(607)*y(136) + mat(1856) = -(rxt(107)*y(88) + rxt(118)*y(94) + rxt(119)*y(92) + rxt(139) & + *y(97) + rxt(140)*y(102) + rxt(143)*y(104) + rxt(288)*y(109) & + + rxt(294)*y(113) + rxt(296)*y(111) + rxt(305)*y(118) + rxt(307) & + *y(119) + rxt(313)*y(121) + (rxt(327) + rxt(328)) * y(127) & + + rxt(329)*y(126) + rxt(337)*y(130) + rxt(355)*y(133) + rxt(365) & + *y(116) + rxt(366)*y(120) + rxt(367)*y(117) + rxt(372)*y(106) & + + rxt(374)*y(100) + rxt(376)*y(101) + rxt(378)*y(103) + rxt(390) & + *y(70) + rxt(509)*y(39) + rxt(558)*y(81)) + mat(708) = -rxt(107)*y(137) + mat(556) = -rxt(118)*y(137) + mat(846) = -rxt(119)*y(137) + mat(88) = -rxt(139)*y(137) + mat(53) = -rxt(140)*y(137) + mat(57) = -rxt(143)*y(137) + mat(1759) = -rxt(288)*y(137) + mat(576) = -rxt(294)*y(137) + mat(733) = -rxt(296)*y(137) + mat(94) = -rxt(305)*y(137) + mat(120) = -rxt(307)*y(137) + mat(114) = -rxt(313)*y(137) + mat(196) = -(rxt(327) + rxt(328)) * y(137) + mat(1420) = -rxt(329)*y(137) + mat(361) = -rxt(337)*y(137) + mat(1688) = -rxt(355)*y(137) + mat(977) = -rxt(365)*y(137) + mat(1155) = -rxt(366)*y(137) + mat(1019) = -rxt(367)*y(137) + mat(185) = -rxt(372)*y(137) + mat(167) = -rxt(374)*y(137) + mat(930) = -rxt(376)*y(137) + mat(1582) = -rxt(378)*y(137) + mat(657) = -rxt(390)*y(137) + mat(205) = -rxt(509)*y(137) + mat(49) = -rxt(558)*y(137) + mat(624) = rxt(532)*y(131) + mat(82) = rxt(535)*y(131) + mat(1496) = rxt(410)*y(99) + rxt(344)*y(132) + mat(502) = rxt(415)*y(131) + rxt(353)*y(133) + mat(152) = rxt(416)*y(131) + mat(237) = rxt(500)*y(131) + mat(1341) = (rxt(571)+rxt(576))*y(53) + (rxt(564)+rxt(570)+rxt(575))*y(54) & + + rxt(106)*y(89) + rxt(471)*y(131) + rxt(345)*y(132) + mat(1621) = rxt(295)*y(113) + rxt(447)*y(131) + mat(107) = rxt(423)*y(131) + mat(214) = (rxt(571)+rxt(576))*y(49) + mat(245) = (rxt(564)+rxt(570)+rxt(575))*y(49) + rxt(474)*y(131) + mat(179) = rxt(340)*y(131) + mat(308) = rxt(293)*y(112) + mat(1196) = rxt(123)*y(94) + mat(1114) = rxt(120)*y(94) + mat(708) = mat(708) + 3.000_r8*rxt(195)*y(101) + 4.000_r8*rxt(147)*y(103) & + + 5.000_r8*rxt(177)*y(105) + 2.000_r8*rxt(230)*y(117) + rxt(212) & + *y(120) + mat(423) = rxt(106)*y(49) + 4.000_r8*rxt(199)*y(101) + 5.000_r8*rxt(164) & + *y(103) + 6.000_r8*rxt(182)*y(105) + rxt(252)*y(116) & + + 3.000_r8*rxt(234)*y(117) + 2.000_r8*rxt(217)*y(120) + rxt(159) & + *y(126) + mat(407) = 3.000_r8*rxt(187)*y(101) + (4.000_r8*rxt(181)+4.000_r8*rxt(267)) & + *y(103) + (5.000_r8*rxt(169)+5.000_r8*rxt(268))*y(105) & + + 2.000_r8*rxt(222)*y(117) + rxt(205)*y(120) + mat(846) = mat(846) + 3.000_r8*rxt(186)*y(101) + (4.000_r8*rxt(170) & + +4.000_r8*rxt(258))*y(103) + (5.000_r8*rxt(168) & + +5.000_r8*rxt(265))*y(105) + 2.000_r8*rxt(221)*y(117) & + + rxt(204)*y(120) + mat(375) = 5.000_r8*rxt(194)*y(101) + (6.000_r8*rxt(247)+6.000_r8*rxt(271)) & + *y(103) + (7.000_r8*rxt(176)+7.000_r8*rxt(259))*y(105) & + + 2.000_r8*rxt(246)*y(116) + 4.000_r8*rxt(229)*y(117) & + + 3.000_r8*rxt(211)*y(120) + 2.000_r8*rxt(153)*y(126) + mat(556) = mat(556) + rxt(123)*y(62) + rxt(120)*y(63) + 4.000_r8*rxt(196) & + *y(101) + (5.000_r8*rxt(158)+5.000_r8*rxt(260))*y(103) + ( & + + 6.000_r8*rxt(178)+6.000_r8*rxt(261))*y(105) + rxt(249)*y(116) & + + 3.000_r8*rxt(231)*y(117) + 2.000_r8*rxt(213)*y(120) + rxt(155) & + *y(126) + mat(687) = 3.000_r8*rxt(191)*y(101) + 4.000_r8*rxt(225)*y(103) & + + 5.000_r8*rxt(174)*y(105) + 2.000_r8*rxt(227)*y(117) + rxt(209) & + *y(120) + mat(888) = rxt(138)*y(97) + 2.000_r8*rxt(382)*y(100) + 3.000_r8*rxt(383) & + *y(101) + 4.000_r8*rxt(141)*y(103) + 5.000_r8*rxt(144)*y(105) & + + rxt(381)*y(106) + 2.000_r8*rxt(303)*y(117) + 3.000_r8*rxt(304) & + *y(118) + rxt(308)*y(120) + rxt(326)*y(127) + mat(88) = mat(88) + rxt(138)*y(96) + mat(347) = 3.000_r8*rxt(189)*y(101) + 4.000_r8*rxt(203)*y(103) & + + 5.000_r8*rxt(172)*y(105) + 2.000_r8*rxt(224)*y(117) + rxt(207) & + *y(120) + mat(767) = rxt(410)*y(40) + rxt(417)*y(131) + mat(167) = mat(167) + 2.000_r8*rxt(382)*y(96) + mat(930) = mat(930) + 3.000_r8*rxt(195)*y(88) + 4.000_r8*rxt(199)*y(89) & + + 3.000_r8*rxt(187)*y(90) + 3.000_r8*rxt(186)*y(92) & + + 5.000_r8*rxt(194)*y(93) + 4.000_r8*rxt(196)*y(94) & + + 3.000_r8*rxt(191)*y(95) + 3.000_r8*rxt(383)*y(96) & + + 3.000_r8*rxt(189)*y(98) + 3.000_r8*rxt(201)*y(109) & + + 4.000_r8*rxt(197)*y(110) + 3.000_r8*rxt(188)*y(111) & + + 5.000_r8*rxt(200)*y(112) + 4.000_r8*rxt(193)*y(113) & + + 3.000_r8*rxt(198)*y(114) + 3.000_r8*rxt(185)*y(115) & + + 3.000_r8*rxt(190)*y(125) + mat(1582) = mat(1582) + 4.000_r8*rxt(147)*y(88) + 5.000_r8*rxt(164)*y(89) + ( & + + 4.000_r8*rxt(181)+4.000_r8*rxt(267))*y(90) + ( & + + 4.000_r8*rxt(170)+4.000_r8*rxt(258))*y(92) + ( & + + 6.000_r8*rxt(247)+6.000_r8*rxt(271))*y(93) + ( & + + 5.000_r8*rxt(158)+5.000_r8*rxt(260))*y(94) + 4.000_r8*rxt(225) & + *y(95) + 4.000_r8*rxt(141)*y(96) + 4.000_r8*rxt(203)*y(98) & + + 4.000_r8*rxt(166)*y(109) + 5.000_r8*rxt(162)*y(110) + ( & + + 4.000_r8*rxt(192)+4.000_r8*rxt(264))*y(111) & + + 6.000_r8*rxt(165)*y(112) + (5.000_r8*rxt(236) & + +5.000_r8*rxt(262))*y(113) + 4.000_r8*rxt(163)*y(114) + ( & + + 4.000_r8*rxt(146)+4.000_r8*rxt(269))*y(115) & + + 4.000_r8*rxt(214)*y(125) + mat(1730) = 5.000_r8*rxt(177)*y(88) + 6.000_r8*rxt(182)*y(89) + ( & + + 5.000_r8*rxt(169)+5.000_r8*rxt(268))*y(90) + ( & + + 5.000_r8*rxt(168)+5.000_r8*rxt(265))*y(92) + ( & + + 7.000_r8*rxt(176)+7.000_r8*rxt(259))*y(93) + ( & + + 6.000_r8*rxt(178)+6.000_r8*rxt(261))*y(94) + 5.000_r8*rxt(174) & + *y(95) + 5.000_r8*rxt(144)*y(96) + 5.000_r8*rxt(172)*y(98) & + + 5.000_r8*rxt(184)*y(109) + 6.000_r8*rxt(179)*y(110) + ( & + + 5.000_r8*rxt(171)+5.000_r8*rxt(266))*y(111) & + + 7.000_r8*rxt(183)*y(112) + (6.000_r8*rxt(175) & + +6.000_r8*rxt(263))*y(113) + 5.000_r8*rxt(180)*y(114) + ( & + + 5.000_r8*rxt(167)+5.000_r8*rxt(270))*y(115) & + + 5.000_r8*rxt(173)*y(125) + mat(185) = mat(185) + rxt(381)*y(96) + mat(1759) = mat(1759) + 3.000_r8*rxt(201)*y(101) + 4.000_r8*rxt(166)*y(103) & + + 5.000_r8*rxt(184)*y(105) + 2.000_r8*rxt(237)*y(117) + rxt(219) & + *y(120) + mat(437) = 4.000_r8*rxt(197)*y(101) + 5.000_r8*rxt(162)*y(103) & + + 6.000_r8*rxt(179)*y(105) + rxt(250)*y(116) + 3.000_r8*rxt(232) & + *y(117) + 2.000_r8*rxt(215)*y(120) + rxt(156)*y(126) + mat(733) = mat(733) + 3.000_r8*rxt(188)*y(101) + (4.000_r8*rxt(192) & + +4.000_r8*rxt(264))*y(103) + (5.000_r8*rxt(171) & + +5.000_r8*rxt(266))*y(105) + 2.000_r8*rxt(223)*y(117) & + + rxt(206)*y(120) + mat(536) = rxt(293)*y(58) + 5.000_r8*rxt(200)*y(101) + 6.000_r8*rxt(165) & + *y(103) + 7.000_r8*rxt(183)*y(105) + 2.000_r8*rxt(253)*y(116) & + + 4.000_r8*rxt(235)*y(117) + 3.000_r8*rxt(218)*y(120) & + + 2.000_r8*rxt(160)*y(126) + mat(576) = mat(576) + rxt(295)*y(51) + 4.000_r8*rxt(193)*y(101) + ( & + + 5.000_r8*rxt(236)+5.000_r8*rxt(262))*y(103) + ( & + + 6.000_r8*rxt(175)+6.000_r8*rxt(263))*y(105) + rxt(245)*y(116) & + + 3.000_r8*rxt(228)*y(117) + 2.000_r8*rxt(210)*y(120) + rxt(152) & + *y(126) + mat(467) = 3.000_r8*rxt(198)*y(101) + 4.000_r8*rxt(163)*y(103) & + + 5.000_r8*rxt(180)*y(105) + 2.000_r8*rxt(233)*y(117) + rxt(216) & + *y(120) + mat(516) = 3.000_r8*rxt(185)*y(101) + (4.000_r8*rxt(146)+4.000_r8*rxt(269)) & + *y(103) + (5.000_r8*rxt(167)+5.000_r8*rxt(270))*y(105) & + + 2.000_r8*rxt(220)*y(117) + rxt(202)*y(120) + mat(977) = mat(977) + rxt(252)*y(89) + 2.000_r8*rxt(246)*y(93) + rxt(249) & + *y(94) + rxt(250)*y(110) + 2.000_r8*rxt(253)*y(112) + rxt(245) & + *y(113) + mat(1019) = mat(1019) + 2.000_r8*rxt(230)*y(88) + 3.000_r8*rxt(234)*y(89) & + + 2.000_r8*rxt(222)*y(90) + 2.000_r8*rxt(221)*y(92) & + + 4.000_r8*rxt(229)*y(93) + 3.000_r8*rxt(231)*y(94) & + + 2.000_r8*rxt(227)*y(95) + 2.000_r8*rxt(303)*y(96) & + + 2.000_r8*rxt(224)*y(98) + 2.000_r8*rxt(237)*y(109) & + + 3.000_r8*rxt(232)*y(110) + 2.000_r8*rxt(223)*y(111) & + + 4.000_r8*rxt(235)*y(112) + 3.000_r8*rxt(228)*y(113) & + + 2.000_r8*rxt(233)*y(114) + 2.000_r8*rxt(220)*y(115) & + + 2.000_r8*rxt(226)*y(125) + mat(94) = mat(94) + 3.000_r8*rxt(304)*y(96) + mat(1155) = mat(1155) + rxt(212)*y(88) + 2.000_r8*rxt(217)*y(89) + rxt(205) & + *y(90) + rxt(204)*y(92) + 3.000_r8*rxt(211)*y(93) & + + 2.000_r8*rxt(213)*y(94) + rxt(209)*y(95) + rxt(308)*y(96) & + + rxt(207)*y(98) + rxt(219)*y(109) + 2.000_r8*rxt(215)*y(110) & + + rxt(206)*y(111) + 3.000_r8*rxt(218)*y(112) + 2.000_r8*rxt(210) & + *y(113) + rxt(216)*y(114) + rxt(202)*y(115) + rxt(208)*y(125) + mat(1376) = 3.000_r8*rxt(190)*y(101) + 4.000_r8*rxt(214)*y(103) & + + 5.000_r8*rxt(173)*y(105) + 2.000_r8*rxt(226)*y(117) + rxt(208) & + *y(120) + mat(1420) = mat(1420) + rxt(159)*y(89) + 2.000_r8*rxt(153)*y(93) + rxt(155) & + *y(94) + rxt(156)*y(110) + 2.000_r8*rxt(160)*y(112) + rxt(152) & + *y(113) + mat(196) = mat(196) + rxt(326)*y(96) + mat(814) = rxt(532)*y(17) + rxt(535)*y(22) + rxt(415)*y(41) + rxt(416)*y(43) & + + rxt(500)*y(45) + rxt(471)*y(49) + rxt(447)*y(51) + rxt(423) & + *y(52) + rxt(474)*y(54) + rxt(340)*y(55) + rxt(417)*y(99) & + + 2.000_r8*rxt(420)*y(131) + mat(1653) = rxt(344)*y(40) + rxt(345)*y(49) + mat(1688) = mat(1688) + rxt(353)*y(41) end subroutine nlnmat08 - subroutine nlnmat_finit( avec_len, mat, lmat, dti ) + subroutine nlnmat_finit( mat, lmat, dti ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: dti(veclen) - real(r8), intent(in) :: lmat(veclen,nzcnt) - real(r8), intent(inout) :: mat(veclen,nzcnt) + real(r8), intent(in) :: dti + real(r8), intent(in) :: lmat(nzcnt) + real(r8), intent(inout) :: mat(nzcnt) !---------------------------------------------- ! ... local variables !---------------------------------------------- - integer :: k !---------------------------------------------- ! ... complete matrix entries implicit species !---------------------------------------------- - do k = 1,avec_len - mat(k, 1) = lmat(k, 1) - mat(k, 2) = lmat(k, 2) - mat(k, 3) = lmat(k, 3) - mat(k, 4) = lmat(k, 4) - mat(k, 5) = lmat(k, 5) - mat(k, 6) = lmat(k, 6) - mat(k, 7) = lmat(k, 7) - mat(k, 8) = lmat(k, 8) - mat(k, 9) = lmat(k, 9) - mat(k, 10) = lmat(k, 10) - mat(k, 11) = lmat(k, 11) - mat(k, 12) = lmat(k, 12) - mat(k, 13) = lmat(k, 13) - mat(k, 14) = lmat(k, 14) - mat(k, 15) = lmat(k, 15) - mat(k, 16) = lmat(k, 16) - mat(k, 17) = lmat(k, 17) - mat(k, 18) = lmat(k, 18) - mat(k, 19) = lmat(k, 19) - mat(k, 20) = lmat(k, 20) - mat(k, 21) = lmat(k, 21) - mat(k, 22) = lmat(k, 22) - mat(k, 23) = lmat(k, 23) - mat(k, 24) = lmat(k, 24) - mat(k, 25) = lmat(k, 25) - mat(k, 26) = lmat(k, 26) - mat(k, 27) = mat(k, 27) + lmat(k, 27) - mat(k, 28) = mat(k, 28) + lmat(k, 28) - mat(k, 30) = lmat(k, 30) - mat(k, 31) = lmat(k, 31) - mat(k, 32) = mat(k, 32) + lmat(k, 32) - mat(k, 33) = mat(k, 33) + lmat(k, 33) - mat(k, 35) = mat(k, 35) + lmat(k, 35) - mat(k, 36) = lmat(k, 36) - mat(k, 37) = lmat(k, 37) - mat(k, 38) = lmat(k, 38) - mat(k, 39) = lmat(k, 39) - mat(k, 40) = lmat(k, 40) - mat(k, 41) = lmat(k, 41) - mat(k, 42) = mat(k, 42) + lmat(k, 42) - mat(k, 43) = mat(k, 43) + lmat(k, 43) - mat(k, 44) = lmat(k, 44) - mat(k, 46) = mat(k, 46) + lmat(k, 46) - mat(k, 47) = lmat(k, 47) - mat(k, 48) = lmat(k, 48) - mat(k, 50) = mat(k, 50) + lmat(k, 50) - mat(k, 54) = mat(k, 54) + lmat(k, 54) - mat(k, 58) = mat(k, 58) + lmat(k, 58) - mat(k, 64) = mat(k, 64) + lmat(k, 64) - mat(k, 67) = lmat(k, 67) - mat(k, 68) = mat(k, 68) + lmat(k, 68) - mat(k, 69) = mat(k, 69) + lmat(k, 69) - mat(k, 70) = mat(k, 70) + lmat(k, 70) - mat(k, 71) = lmat(k, 71) - mat(k, 77) = mat(k, 77) + lmat(k, 77) - mat(k, 79) = mat(k, 79) + lmat(k, 79) - mat(k, 80) = mat(k, 80) + lmat(k, 80) - mat(k, 81) = lmat(k, 81) - mat(k, 83) = mat(k, 83) + lmat(k, 83) - mat(k, 89) = mat(k, 89) + lmat(k, 89) - mat(k, 95) = mat(k, 95) + lmat(k, 95) - mat(k, 97) = lmat(k, 97) - mat(k, 98) = mat(k, 98) + lmat(k, 98) - mat(k, 99) = lmat(k, 99) - mat(k, 101) = mat(k, 101) + lmat(k, 101) - mat(k, 102) = lmat(k, 102) - mat(k, 103) = mat(k, 103) + lmat(k, 103) - mat(k, 104) = mat(k, 104) + lmat(k, 104) - mat(k, 105) = lmat(k, 105) - mat(k, 108) = mat(k, 108) + lmat(k, 108) - mat(k, 109) = lmat(k, 109) - mat(k, 110) = lmat(k, 110) - mat(k, 115) = mat(k, 115) + lmat(k, 115) - mat(k, 116) = lmat(k, 116) - mat(k, 121) = mat(k, 121) + lmat(k, 121) - mat(k, 122) = mat(k, 122) + lmat(k, 122) - mat(k, 123) = lmat(k, 123) - mat(k, 124) = lmat(k, 124) - mat(k, 125) = mat(k, 125) + lmat(k, 125) - mat(k, 126) = lmat(k, 126) - mat(k, 127) = lmat(k, 127) - mat(k, 128) = mat(k, 128) + lmat(k, 128) - mat(k, 129) = lmat(k, 129) - mat(k, 130) = mat(k, 130) + lmat(k, 130) - mat(k, 133) = mat(k, 133) + lmat(k, 133) - mat(k, 134) = mat(k, 134) + lmat(k, 134) - mat(k, 138) = mat(k, 138) + lmat(k, 138) - mat(k, 139) = lmat(k, 139) - mat(k, 140) = lmat(k, 140) - mat(k, 141) = mat(k, 141) + lmat(k, 141) - mat(k, 142) = lmat(k, 142) - mat(k, 143) = mat(k, 143) + lmat(k, 143) - mat(k, 144) = lmat(k, 144) - mat(k, 146) = mat(k, 146) + lmat(k, 146) - mat(k, 148) = mat(k, 148) + lmat(k, 148) - mat(k, 153) = mat(k, 153) + lmat(k, 153) - mat(k, 162) = mat(k, 162) + lmat(k, 162) - mat(k, 163) = lmat(k, 163) - mat(k, 167) = mat(k, 167) + lmat(k, 167) - mat(k, 168) = mat(k, 168) + lmat(k, 168) - mat(k, 175) = mat(k, 175) + lmat(k, 175) - mat(k, 176) = mat(k, 176) + lmat(k, 176) - mat(k, 178) = lmat(k, 178) - mat(k, 181) = mat(k, 181) + lmat(k, 181) - mat(k, 189) = mat(k, 189) + lmat(k, 189) - mat(k, 193) = lmat(k, 193) - mat(k, 196) = mat(k, 196) + lmat(k, 196) - mat(k, 197) = mat(k, 197) + lmat(k, 197) - mat(k, 198) = mat(k, 198) + lmat(k, 198) - mat(k, 199) = lmat(k, 199) - mat(k, 207) = mat(k, 207) + lmat(k, 207) - mat(k, 208) = lmat(k, 208) - mat(k, 210) = mat(k, 210) + lmat(k, 210) - mat(k, 215) = mat(k, 215) + lmat(k, 215) - mat(k, 223) = mat(k, 223) + lmat(k, 223) - mat(k, 231) = mat(k, 231) + lmat(k, 231) - mat(k, 232) = mat(k, 232) + lmat(k, 232) - mat(k, 235) = mat(k, 235) + lmat(k, 235) - mat(k, 238) = mat(k, 238) + lmat(k, 238) - mat(k, 239) = mat(k, 239) + lmat(k, 239) - mat(k, 244) = mat(k, 244) + lmat(k, 244) - mat(k, 246) = mat(k, 246) + lmat(k, 246) - mat(k, 249) = mat(k, 249) + lmat(k, 249) - mat(k, 255) = mat(k, 255) + lmat(k, 255) - mat(k, 256) = lmat(k, 256) - mat(k, 259) = lmat(k, 259) - mat(k, 261) = lmat(k, 261) - mat(k, 264) = mat(k, 264) + lmat(k, 264) - mat(k, 265) = lmat(k, 265) - mat(k, 269) = lmat(k, 269) - mat(k, 271) = mat(k, 271) + lmat(k, 271) - mat(k, 276) = mat(k, 276) + lmat(k, 276) - mat(k, 277) = mat(k, 277) + lmat(k, 277) - mat(k, 279) = lmat(k, 279) - mat(k, 280) = mat(k, 280) + lmat(k, 280) - mat(k, 282) = mat(k, 282) + lmat(k, 282) - mat(k, 284) = mat(k, 284) + lmat(k, 284) - mat(k, 285) = mat(k, 285) + lmat(k, 285) - mat(k, 287) = mat(k, 287) + lmat(k, 287) - mat(k, 297) = mat(k, 297) + lmat(k, 297) - mat(k, 301) = lmat(k, 301) - mat(k, 302) = lmat(k, 302) - mat(k, 303) = mat(k, 303) + lmat(k, 303) - mat(k, 304) = lmat(k, 304) - mat(k, 305) = lmat(k, 305) - mat(k, 309) = lmat(k, 309) - mat(k, 311) = mat(k, 311) + lmat(k, 311) - mat(k, 321) = lmat(k, 321) - mat(k, 324) = mat(k, 324) + lmat(k, 324) - mat(k, 335) = mat(k, 335) + lmat(k, 335) - mat(k, 350) = mat(k, 350) + lmat(k, 350) - mat(k, 362) = mat(k, 362) + lmat(k, 362) - mat(k, 363) = lmat(k, 363) - mat(k, 375) = mat(k, 375) + lmat(k, 375) - mat(k, 377) = lmat(k, 377) - mat(k, 379) = mat(k, 379) + lmat(k, 379) - mat(k, 387) = mat(k, 387) + lmat(k, 387) - mat(k, 393) = mat(k, 393) + lmat(k, 393) - mat(k, 394) = lmat(k, 394) - mat(k, 399) = mat(k, 399) + lmat(k, 399) - mat(k, 409) = mat(k, 409) + lmat(k, 409) - mat(k, 410) = lmat(k, 410) - mat(k, 423) = mat(k, 423) + lmat(k, 423) - mat(k, 424) = mat(k, 424) + lmat(k, 424) - mat(k, 425) = lmat(k, 425) - mat(k, 437) = mat(k, 437) + lmat(k, 437) - mat(k, 438) = mat(k, 438) + lmat(k, 438) - mat(k, 440) = lmat(k, 440) - mat(k, 443) = mat(k, 443) + lmat(k, 443) - mat(k, 444) = mat(k, 444) + lmat(k, 444) - mat(k, 448) = mat(k, 448) + lmat(k, 448) - mat(k, 450) = lmat(k, 450) - mat(k, 454) = mat(k, 454) + lmat(k, 454) - mat(k, 465) = mat(k, 465) + lmat(k, 465) - mat(k, 484) = mat(k, 484) + lmat(k, 484) - mat(k, 503) = mat(k, 503) + lmat(k, 503) - mat(k, 504) = lmat(k, 504) - mat(k, 511) = mat(k, 511) + lmat(k, 511) - mat(k, 519) = mat(k, 519) + lmat(k, 519) - mat(k, 520) = lmat(k, 520) - mat(k, 536) = mat(k, 536) + lmat(k, 536) - mat(k, 539) = mat(k, 539) + lmat(k, 539) - mat(k, 542) = lmat(k, 542) - mat(k, 556) = mat(k, 556) + lmat(k, 556) - mat(k, 560) = mat(k, 560) + lmat(k, 560) - mat(k, 561) = lmat(k, 561) - mat(k, 576) = mat(k, 576) + lmat(k, 576) - mat(k, 583) = mat(k, 583) + lmat(k, 583) - mat(k, 584) = mat(k, 584) + lmat(k, 584) - mat(k, 595) = mat(k, 595) + lmat(k, 595) - mat(k, 601) = mat(k, 601) + lmat(k, 601) - mat(k, 604) = lmat(k, 604) - mat(k, 606) = mat(k, 606) + lmat(k, 606) - mat(k, 623) = mat(k, 623) + lmat(k, 623) - mat(k, 625) = mat(k, 625) + lmat(k, 625) - mat(k, 626) = mat(k, 626) + lmat(k, 626) - mat(k, 628) = mat(k, 628) + lmat(k, 628) - mat(k, 631) = lmat(k, 631) - mat(k, 633) = mat(k, 633) + lmat(k, 633) - mat(k, 634) = mat(k, 634) + lmat(k, 634) - mat(k, 636) = lmat(k, 636) - mat(k, 637) = mat(k, 637) + lmat(k, 637) - mat(k, 638) = lmat(k, 638) - mat(k, 639) = mat(k, 639) + lmat(k, 639) - mat(k, 645) = mat(k, 645) + lmat(k, 645) - 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, 656) = mat(k, 656) + lmat(k, 656) - mat(k, 660) = mat(k, 660) + lmat(k, 660) - mat(k, 675) = lmat(k, 675) - mat(k, 690) = mat(k, 690) + lmat(k, 690) - mat(k, 713) = mat(k, 713) + lmat(k, 713) - mat(k, 720) = mat(k, 720) + lmat(k, 720) - mat(k, 729) = lmat(k, 729) - mat(k, 736) = mat(k, 736) + lmat(k, 736) - mat(k, 747) = mat(k, 747) + lmat(k, 747) - mat(k, 768) = lmat(k, 768) - mat(k, 769) = lmat(k, 769) - mat(k, 786) = mat(k, 786) + lmat(k, 786) - mat(k, 788) = mat(k, 788) + lmat(k, 788) - mat(k, 793) = mat(k, 793) + lmat(k, 793) - mat(k, 794) = mat(k, 794) + lmat(k, 794) - mat(k, 807) = mat(k, 807) + lmat(k, 807) - mat(k, 814) = mat(k, 814) + lmat(k, 814) - mat(k, 822) = mat(k, 822) + lmat(k, 822) - mat(k, 842) = lmat(k, 842) - mat(k, 852) = mat(k, 852) + lmat(k, 852) - mat(k, 855) = mat(k, 855) + lmat(k, 855) - mat(k, 868) = lmat(k, 868) - mat(k, 876) = lmat(k, 876) - mat(k, 877) = lmat(k, 877) - mat(k, 900) = mat(k, 900) + lmat(k, 900) - mat(k, 943) = mat(k, 943) + lmat(k, 943) - mat(k, 985) = mat(k, 985) + lmat(k, 985) - mat(k, 990) = mat(k, 990) + lmat(k, 990) - mat(k, 997) = mat(k, 997) + lmat(k, 997) - mat(k,1000) = mat(k,1000) + lmat(k,1000) - mat(k,1002) = mat(k,1002) + lmat(k,1002) - mat(k,1011) = lmat(k,1011) - mat(k,1033) = mat(k,1033) + lmat(k,1033) - mat(k,1052) = mat(k,1052) + lmat(k,1052) - mat(k,1075) = mat(k,1075) + lmat(k,1075) - mat(k,1112) = mat(k,1112) + lmat(k,1112) - mat(k,1115) = mat(k,1115) + lmat(k,1115) - mat(k,1118) = mat(k,1118) + lmat(k,1118) - mat(k,1119) = mat(k,1119) + lmat(k,1119) - mat(k,1122) = mat(k,1122) + lmat(k,1122) - mat(k,1124) = mat(k,1124) + lmat(k,1124) - mat(k,1160) = mat(k,1160) + lmat(k,1160) - mat(k,1167) = mat(k,1167) + lmat(k,1167) - mat(k,1175) = mat(k,1175) + lmat(k,1175) - mat(k,1179) = mat(k,1179) + lmat(k,1179) - mat(k,1187) = mat(k,1187) + lmat(k,1187) - mat(k,1202) = mat(k,1202) + lmat(k,1202) - mat(k,1203) = mat(k,1203) + lmat(k,1203) - mat(k,1207) = mat(k,1207) + lmat(k,1207) - mat(k,1220) = lmat(k,1220) - mat(k,1221) = mat(k,1221) + lmat(k,1221) - mat(k,1228) = mat(k,1228) + lmat(k,1228) - mat(k,1236) = mat(k,1236) + lmat(k,1236) - mat(k,1252) = mat(k,1252) + lmat(k,1252) - mat(k,1255) = mat(k,1255) + lmat(k,1255) - mat(k,1256) = mat(k,1256) + lmat(k,1256) - mat(k,1259) = mat(k,1259) + lmat(k,1259) - mat(k,1280) = mat(k,1280) + lmat(k,1280) - mat(k,1285) = lmat(k,1285) - mat(k,1292) = mat(k,1292) + lmat(k,1292) - mat(k,1311) = lmat(k,1311) - mat(k,1326) = mat(k,1326) + lmat(k,1326) - mat(k,1328) = mat(k,1328) + lmat(k,1328) - mat(k,1333) = mat(k,1333) + lmat(k,1333) - mat(k,1362) = mat(k,1362) + lmat(k,1362) - mat(k,1373) = mat(k,1373) + lmat(k,1373) - mat(k,1376) = mat(k,1376) + lmat(k,1376) - mat(k,1388) = mat(k,1388) + lmat(k,1388) - mat(k,1389) = mat(k,1389) + lmat(k,1389) - mat(k,1402) = mat(k,1402) + lmat(k,1402) - mat(k,1433) = mat(k,1433) + lmat(k,1433) - mat(k,1436) = mat(k,1436) + lmat(k,1436) - mat(k,1445) = mat(k,1445) + lmat(k,1445) - mat(k,1450) = lmat(k,1450) - mat(k,1451) = lmat(k,1451) - mat(k,1459) = mat(k,1459) + lmat(k,1459) - mat(k,1469) = mat(k,1469) + lmat(k,1469) - mat(k,1476) = mat(k,1476) + lmat(k,1476) - mat(k,1488) = mat(k,1488) + lmat(k,1488) - mat(k,1504) = mat(k,1504) + lmat(k,1504) - mat(k,1516) = mat(k,1516) + lmat(k,1516) - mat(k,1518) = mat(k,1518) + lmat(k,1518) - mat(k,1519) = mat(k,1519) + lmat(k,1519) - mat(k,1561) = mat(k,1561) + lmat(k,1561) - mat(k,1604) = mat(k,1604) + lmat(k,1604) - mat(k,1607) = lmat(k,1607) - mat(k,1610) = mat(k,1610) + lmat(k,1610) - mat(k,1612) = lmat(k,1612) - mat(k,1617) = mat(k,1617) + lmat(k,1617) - mat(k,1635) = mat(k,1635) + lmat(k,1635) - mat(k,1637) = mat(k,1637) + lmat(k,1637) - mat(k,1653) = lmat(k,1653) - mat(k,1667) = mat(k,1667) + lmat(k,1667) - mat(k,1670) = mat(k,1670) + lmat(k,1670) - mat(k,1673) = mat(k,1673) + lmat(k,1673) - mat(k,1700) = lmat(k,1700) - mat(k,1716) = mat(k,1716) + lmat(k,1716) - mat(k,1719) = mat(k,1719) + lmat(k,1719) - mat(k,1753) = mat(k,1753) + lmat(k,1753) - mat(k,1754) = mat(k,1754) + lmat(k,1754) - mat(k,1761) = mat(k,1761) + lmat(k,1761) - mat(k,1797) = mat(k,1797) + lmat(k,1797) - mat(k,1821) = lmat(k,1821) - mat(k,1827) = mat(k,1827) + lmat(k,1827) - mat(k,1831) = mat(k,1831) + lmat(k,1831) - mat(k,1846) = lmat(k,1846) - mat(k,1855) = lmat(k,1855) - mat(k,1856) = mat(k,1856) + lmat(k,1856) - mat(k, 182) = 0._r8 - mat(k, 187) = 0._r8 - mat(k, 191) = 0._r8 - mat(k, 195) = 0._r8 - mat(k, 213) = 0._r8 - mat(k, 260) = 0._r8 - mat(k, 266) = 0._r8 - mat(k, 267) = 0._r8 - mat(k, 268) = 0._r8 - mat(k, 273) = 0._r8 - mat(k, 274) = 0._r8 - mat(k, 286) = 0._r8 - mat(k, 310) = 0._r8 - mat(k, 312) = 0._r8 - mat(k, 313) = 0._r8 - mat(k, 327) = 0._r8 - mat(k, 333) = 0._r8 - mat(k, 334) = 0._r8 - mat(k, 351) = 0._r8 - mat(k, 352) = 0._r8 - mat(k, 355) = 0._r8 - mat(k, 359) = 0._r8 - mat(k, 360) = 0._r8 - mat(k, 382) = 0._r8 - mat(k, 392) = 0._r8 - mat(k, 457) = 0._r8 - mat(k, 459) = 0._r8 - mat(k, 462) = 0._r8 - mat(k, 463) = 0._r8 - mat(k, 464) = 0._r8 - mat(k, 483) = 0._r8 - mat(k, 485) = 0._r8 - mat(k, 487) = 0._r8 - mat(k, 489) = 0._r8 - mat(k, 490) = 0._r8 - mat(k, 492) = 0._r8 - mat(k, 493) = 0._r8 - mat(k, 496) = 0._r8 - mat(k, 500) = 0._r8 - mat(k, 521) = 0._r8 - mat(k, 524) = 0._r8 - mat(k, 531) = 0._r8 - mat(k, 564) = 0._r8 - mat(k, 571) = 0._r8 - mat(k, 585) = 0._r8 - mat(k, 586) = 0._r8 - mat(k, 590) = 0._r8 - mat(k, 591) = 0._r8 - mat(k, 592) = 0._r8 - mat(k, 594) = 0._r8 - mat(k, 599) = 0._r8 - mat(k, 600) = 0._r8 - mat(k, 605) = 0._r8 - mat(k, 607) = 0._r8 - mat(k, 610) = 0._r8 - mat(k, 613) = 0._r8 - mat(k, 614) = 0._r8 - mat(k, 618) = 0._r8 - mat(k, 619) = 0._r8 - mat(k, 620) = 0._r8 - mat(k, 621) = 0._r8 - mat(k, 622) = 0._r8 - mat(k, 630) = 0._r8 - mat(k, 632) = 0._r8 - mat(k, 640) = 0._r8 - mat(k, 641) = 0._r8 - mat(k, 642) = 0._r8 - mat(k, 646) = 0._r8 - mat(k, 647) = 0._r8 - mat(k, 648) = 0._r8 - mat(k, 652) = 0._r8 - mat(k, 653) = 0._r8 - mat(k, 654) = 0._r8 - mat(k, 662) = 0._r8 - mat(k, 666) = 0._r8 - mat(k, 669) = 0._r8 - mat(k, 680) = 0._r8 - mat(k, 682) = 0._r8 - mat(k, 683) = 0._r8 - mat(k, 717) = 0._r8 - mat(k, 727) = 0._r8 - mat(k, 732) = 0._r8 - mat(k, 745) = 0._r8 - mat(k, 746) = 0._r8 - mat(k, 750) = 0._r8 - mat(k, 756) = 0._r8 - mat(k, 757) = 0._r8 - mat(k, 758) = 0._r8 - mat(k, 762) = 0._r8 - mat(k, 763) = 0._r8 - mat(k, 764) = 0._r8 - mat(k, 780) = 0._r8 - mat(k, 792) = 0._r8 - mat(k, 795) = 0._r8 - mat(k, 797) = 0._r8 - mat(k, 804) = 0._r8 - mat(k, 805) = 0._r8 - mat(k, 809) = 0._r8 - mat(k, 810) = 0._r8 - mat(k, 811) = 0._r8 - mat(k, 818) = 0._r8 - mat(k, 829) = 0._r8 - mat(k, 830) = 0._r8 - mat(k, 831) = 0._r8 - mat(k, 839) = 0._r8 - mat(k, 851) = 0._r8 - mat(k, 863) = 0._r8 - mat(k, 865) = 0._r8 - mat(k, 871) = 0._r8 - mat(k, 879) = 0._r8 - mat(k, 880) = 0._r8 - mat(k, 892) = 0._r8 - mat(k, 896) = 0._r8 - mat(k, 901) = 0._r8 - mat(k, 903) = 0._r8 - mat(k, 907) = 0._r8 - mat(k, 911) = 0._r8 - mat(k, 916) = 0._r8 - mat(k, 917) = 0._r8 - mat(k, 918) = 0._r8 - mat(k, 919) = 0._r8 - mat(k, 920) = 0._r8 - mat(k, 921) = 0._r8 - mat(k, 924) = 0._r8 - mat(k, 938) = 0._r8 - mat(k, 942) = 0._r8 - mat(k, 945) = 0._r8 - mat(k, 946) = 0._r8 - mat(k, 949) = 0._r8 - mat(k, 953) = 0._r8 - mat(k, 958) = 0._r8 - mat(k, 959) = 0._r8 - mat(k, 960) = 0._r8 - mat(k, 961) = 0._r8 - mat(k, 962) = 0._r8 - mat(k, 963) = 0._r8 - mat(k, 967) = 0._r8 - mat(k, 974) = 0._r8 - mat(k, 975) = 0._r8 - mat(k, 976) = 0._r8 - mat(k, 980) = 0._r8 - mat(k, 981) = 0._r8 - mat(k, 988) = 0._r8 - mat(k, 989) = 0._r8 - mat(k, 991) = 0._r8 - mat(k, 992) = 0._r8 - mat(k, 994) = 0._r8 - mat(k, 999) = 0._r8 - mat(k,1003) = 0._r8 - mat(k,1004) = 0._r8 - mat(k,1007) = 0._r8 - mat(k,1009) = 0._r8 - mat(k,1012) = 0._r8 - mat(k,1026) = 0._r8 - mat(k,1030) = 0._r8 - mat(k,1031) = 0._r8 - mat(k,1034) = 0._r8 - mat(k,1037) = 0._r8 - mat(k,1041) = 0._r8 - mat(k,1044) = 0._r8 - mat(k,1046) = 0._r8 - mat(k,1047) = 0._r8 - mat(k,1048) = 0._r8 - mat(k,1050) = 0._r8 - mat(k,1071) = 0._r8 - mat(k,1074) = 0._r8 - mat(k,1078) = 0._r8 - mat(k,1082) = 0._r8 - mat(k,1087) = 0._r8 - mat(k,1088) = 0._r8 - mat(k,1089) = 0._r8 - mat(k,1090) = 0._r8 - mat(k,1091) = 0._r8 - mat(k,1098) = 0._r8 - mat(k,1099) = 0._r8 - mat(k,1100) = 0._r8 - mat(k,1101) = 0._r8 - mat(k,1102) = 0._r8 - mat(k,1103) = 0._r8 - mat(k,1105) = 0._r8 - mat(k,1106) = 0._r8 - mat(k,1109) = 0._r8 - mat(k,1110) = 0._r8 - mat(k,1111) = 0._r8 - mat(k,1113) = 0._r8 - mat(k,1114) = 0._r8 - mat(k,1116) = 0._r8 - mat(k,1117) = 0._r8 - mat(k,1120) = 0._r8 - mat(k,1121) = 0._r8 - mat(k,1123) = 0._r8 - mat(k,1125) = 0._r8 - mat(k,1126) = 0._r8 - mat(k,1127) = 0._r8 - mat(k,1128) = 0._r8 - mat(k,1129) = 0._r8 - mat(k,1130) = 0._r8 - mat(k,1131) = 0._r8 - mat(k,1132) = 0._r8 - mat(k,1141) = 0._r8 - mat(k,1143) = 0._r8 - mat(k,1144) = 0._r8 - mat(k,1145) = 0._r8 - mat(k,1152) = 0._r8 - mat(k,1154) = 0._r8 - mat(k,1155) = 0._r8 - mat(k,1156) = 0._r8 - mat(k,1157) = 0._r8 - mat(k,1158) = 0._r8 - mat(k,1159) = 0._r8 - mat(k,1161) = 0._r8 - mat(k,1162) = 0._r8 - mat(k,1165) = 0._r8 - mat(k,1168) = 0._r8 - mat(k,1169) = 0._r8 - mat(k,1170) = 0._r8 - mat(k,1173) = 0._r8 - mat(k,1181) = 0._r8 - mat(k,1186) = 0._r8 - mat(k,1189) = 0._r8 - mat(k,1193) = 0._r8 - mat(k,1195) = 0._r8 - mat(k,1196) = 0._r8 - mat(k,1198) = 0._r8 - mat(k,1199) = 0._r8 - mat(k,1201) = 0._r8 - mat(k,1204) = 0._r8 - mat(k,1206) = 0._r8 - mat(k,1211) = 0._r8 - mat(k,1214) = 0._r8 - mat(k,1217) = 0._r8 - mat(k,1233) = 0._r8 - mat(k,1234) = 0._r8 - mat(k,1235) = 0._r8 - mat(k,1237) = 0._r8 - mat(k,1238) = 0._r8 - mat(k,1239) = 0._r8 - mat(k,1241) = 0._r8 - mat(k,1243) = 0._r8 - mat(k,1245) = 0._r8 - mat(k,1246) = 0._r8 - mat(k,1247) = 0._r8 - mat(k,1248) = 0._r8 - mat(k,1249) = 0._r8 - mat(k,1250) = 0._r8 - mat(k,1253) = 0._r8 - mat(k,1257) = 0._r8 - mat(k,1260) = 0._r8 - mat(k,1261) = 0._r8 - mat(k,1263) = 0._r8 - mat(k,1264) = 0._r8 - mat(k,1266) = 0._r8 - mat(k,1270) = 0._r8 - mat(k,1272) = 0._r8 - mat(k,1275) = 0._r8 - mat(k,1276) = 0._r8 - mat(k,1283) = 0._r8 - mat(k,1284) = 0._r8 - mat(k,1286) = 0._r8 - mat(k,1287) = 0._r8 - mat(k,1290) = 0._r8 - mat(k,1291) = 0._r8 - mat(k,1294) = 0._r8 - mat(k,1295) = 0._r8 - mat(k,1296) = 0._r8 - mat(k,1297) = 0._r8 - mat(k,1298) = 0._r8 - mat(k,1299) = 0._r8 - mat(k,1300) = 0._r8 - mat(k,1302) = 0._r8 - mat(k,1303) = 0._r8 - mat(k,1304) = 0._r8 - mat(k,1309) = 0._r8 - mat(k,1315) = 0._r8 - mat(k,1316) = 0._r8 - mat(k,1323) = 0._r8 - mat(k,1335) = 0._r8 - mat(k,1358) = 0._r8 - mat(k,1363) = 0._r8 - mat(k,1365) = 0._r8 - mat(k,1366) = 0._r8 - mat(k,1369) = 0._r8 - mat(k,1378) = 0._r8 - mat(k,1379) = 0._r8 - mat(k,1380) = 0._r8 - mat(k,1381) = 0._r8 - mat(k,1382) = 0._r8 - mat(k,1383) = 0._r8 - mat(k,1394) = 0._r8 - mat(k,1401) = 0._r8 - mat(k,1413) = 0._r8 - mat(k,1422) = 0._r8 - mat(k,1424) = 0._r8 - mat(k,1425) = 0._r8 - mat(k,1430) = 0._r8 - mat(k,1437) = 0._r8 - mat(k,1440) = 0._r8 - mat(k,1443) = 0._r8 - mat(k,1453) = 0._r8 - mat(k,1455) = 0._r8 - mat(k,1458) = 0._r8 - mat(k,1463) = 0._r8 - mat(k,1464) = 0._r8 - mat(k,1466) = 0._r8 - mat(k,1467) = 0._r8 - mat(k,1472) = 0._r8 - mat(k,1474) = 0._r8 - mat(k,1477) = 0._r8 - mat(k,1478) = 0._r8 - mat(k,1479) = 0._r8 - mat(k,1482) = 0._r8 - mat(k,1485) = 0._r8 - mat(k,1494) = 0._r8 - mat(k,1497) = 0._r8 - mat(k,1505) = 0._r8 - mat(k,1507) = 0._r8 - mat(k,1508) = 0._r8 - mat(k,1510) = 0._r8 - mat(k,1513) = 0._r8 - mat(k,1514) = 0._r8 - mat(k,1520) = 0._r8 - mat(k,1521) = 0._r8 - mat(k,1523) = 0._r8 - mat(k,1525) = 0._r8 - mat(k,1535) = 0._r8 - mat(k,1539) = 0._r8 - mat(k,1544) = 0._r8 - mat(k,1548) = 0._r8 - mat(k,1551) = 0._r8 - mat(k,1552) = 0._r8 - mat(k,1555) = 0._r8 - mat(k,1559) = 0._r8 - mat(k,1563) = 0._r8 - mat(k,1566) = 0._r8 - mat(k,1584) = 0._r8 - mat(k,1588) = 0._r8 - mat(k,1589) = 0._r8 - mat(k,1591) = 0._r8 - mat(k,1592) = 0._r8 - mat(k,1595) = 0._r8 - mat(k,1599) = 0._r8 - mat(k,1602) = 0._r8 - mat(k,1605) = 0._r8 - mat(k,1606) = 0._r8 - mat(k,1608) = 0._r8 - mat(k,1615) = 0._r8 - mat(k,1618) = 0._r8 - mat(k,1620) = 0._r8 - mat(k,1621) = 0._r8 - mat(k,1623) = 0._r8 - mat(k,1624) = 0._r8 - mat(k,1625) = 0._r8 - mat(k,1628) = 0._r8 - mat(k,1629) = 0._r8 - mat(k,1630) = 0._r8 - mat(k,1631) = 0._r8 - mat(k,1634) = 0._r8 - mat(k,1636) = 0._r8 - mat(k,1638) = 0._r8 - mat(k,1639) = 0._r8 - mat(k,1644) = 0._r8 - mat(k,1647) = 0._r8 - mat(k,1648) = 0._r8 - mat(k,1651) = 0._r8 - mat(k,1655) = 0._r8 - mat(k,1656) = 0._r8 - mat(k,1658) = 0._r8 - mat(k,1659) = 0._r8 - mat(k,1660) = 0._r8 - mat(k,1665) = 0._r8 - mat(k,1666) = 0._r8 - mat(k,1671) = 0._r8 - mat(k,1674) = 0._r8 - mat(k,1693) = 0._r8 - mat(k,1697) = 0._r8 - mat(k,1698) = 0._r8 - mat(k,1701) = 0._r8 - mat(k,1704) = 0._r8 - mat(k,1708) = 0._r8 - mat(k,1711) = 0._r8 - mat(k,1714) = 0._r8 - mat(k,1715) = 0._r8 - mat(k,1717) = 0._r8 - mat(k,1733) = 0._r8 - mat(k,1736) = 0._r8 - mat(k,1741) = 0._r8 - mat(k,1742) = 0._r8 - mat(k,1744) = 0._r8 - mat(k,1745) = 0._r8 - mat(k,1748) = 0._r8 - mat(k,1750) = 0._r8 - mat(k,1752) = 0._r8 - mat(k,1756) = 0._r8 - mat(k,1757) = 0._r8 - mat(k,1760) = 0._r8 - mat(k,1762) = 0._r8 - mat(k,1763) = 0._r8 - mat(k,1767) = 0._r8 - mat(k,1768) = 0._r8 - mat(k,1771) = 0._r8 - mat(k,1776) = 0._r8 - mat(k,1777) = 0._r8 - mat(k,1778) = 0._r8 - mat(k,1779) = 0._r8 - mat(k,1781) = 0._r8 - mat(k,1785) = 0._r8 - mat(k,1787) = 0._r8 - mat(k,1789) = 0._r8 - mat(k,1792) = 0._r8 - mat(k,1794) = 0._r8 - mat(k,1795) = 0._r8 - mat(k,1796) = 0._r8 - mat(k,1813) = 0._r8 - mat(k,1814) = 0._r8 - mat(k,1817) = 0._r8 - mat(k,1820) = 0._r8 - mat(k,1825) = 0._r8 - mat(k,1826) = 0._r8 - mat(k,1830) = 0._r8 - mat(k,1836) = 0._r8 - mat(k,1839) = 0._r8 - mat(k,1840) = 0._r8 - mat(k,1841) = 0._r8 - mat(k,1844) = 0._r8 - mat(k,1847) = 0._r8 - mat(k,1848) = 0._r8 - mat(k,1849) = 0._r8 - mat(k,1854) = 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) - mat(k, 4) = mat(k, 4) - dti(k) - mat(k, 5) = mat(k, 5) - dti(k) - mat(k, 6) = mat(k, 6) - dti(k) - mat(k, 7) = mat(k, 7) - dti(k) - mat(k, 8) = mat(k, 8) - dti(k) - mat(k, 9) = mat(k, 9) - dti(k) - mat(k, 10) = mat(k, 10) - dti(k) - mat(k, 11) = mat(k, 11) - dti(k) - mat(k, 12) = mat(k, 12) - dti(k) - mat(k, 13) = mat(k, 13) - dti(k) - mat(k, 14) = mat(k, 14) - dti(k) - mat(k, 15) = mat(k, 15) - dti(k) - mat(k, 16) = mat(k, 16) - dti(k) - mat(k, 17) = mat(k, 17) - dti(k) - mat(k, 18) = mat(k, 18) - dti(k) - mat(k, 19) = mat(k, 19) - dti(k) - mat(k, 20) = mat(k, 20) - dti(k) - mat(k, 21) = mat(k, 21) - dti(k) - mat(k, 24) = mat(k, 24) - dti(k) - mat(k, 27) = mat(k, 27) - dti(k) - mat(k, 30) = mat(k, 30) - dti(k) - mat(k, 32) = mat(k, 32) - dti(k) - mat(k, 36) = mat(k, 36) - dti(k) - mat(k, 39) = mat(k, 39) - dti(k) - mat(k, 42) = mat(k, 42) - dti(k) - mat(k, 46) = mat(k, 46) - dti(k) - mat(k, 50) = mat(k, 50) - dti(k) - mat(k, 54) = mat(k, 54) - dti(k) - mat(k, 58) = mat(k, 58) - dti(k) - mat(k, 64) = mat(k, 64) - dti(k) - mat(k, 69) = mat(k, 69) - dti(k) - mat(k, 77) = mat(k, 77) - dti(k) - mat(k, 83) = mat(k, 83) - dti(k) - mat(k, 89) = mat(k, 89) - dti(k) - mat(k, 95) = mat(k, 95) - dti(k) - mat(k, 101) = mat(k, 101) - dti(k) - mat(k, 108) = mat(k, 108) - dti(k) - mat(k, 115) = mat(k, 115) - dti(k) - mat(k, 121) = mat(k, 121) - dti(k) - mat(k, 128) = mat(k, 128) - dti(k) - mat(k, 134) = mat(k, 134) - dti(k) - mat(k, 138) = mat(k, 138) - dti(k) - mat(k, 146) = mat(k, 146) - dti(k) - mat(k, 153) = mat(k, 153) - dti(k) - mat(k, 162) = mat(k, 162) - dti(k) - mat(k, 168) = mat(k, 168) - dti(k) - mat(k, 175) = mat(k, 175) - dti(k) - mat(k, 181) = mat(k, 181) - dti(k) - mat(k, 189) = mat(k, 189) - dti(k) - mat(k, 198) = mat(k, 198) - dti(k) - mat(k, 207) = mat(k, 207) - dti(k) - mat(k, 215) = mat(k, 215) - dti(k) - mat(k, 223) = mat(k, 223) - dti(k) - mat(k, 231) = mat(k, 231) - dti(k) - mat(k, 238) = mat(k, 238) - dti(k) - mat(k, 246) = mat(k, 246) - dti(k) - mat(k, 255) = mat(k, 255) - dti(k) - mat(k, 264) = mat(k, 264) - dti(k) - mat(k, 277) = mat(k, 277) - dti(k) - mat(k, 287) = mat(k, 287) - dti(k) - mat(k, 297) = mat(k, 297) - dti(k) - mat(k, 311) = mat(k, 311) - dti(k) - mat(k, 324) = mat(k, 324) - dti(k) - mat(k, 335) = mat(k, 335) - dti(k) - mat(k, 350) = mat(k, 350) - dti(k) - mat(k, 362) = mat(k, 362) - dti(k) - mat(k, 379) = mat(k, 379) - dti(k) - mat(k, 393) = mat(k, 393) - dti(k) - mat(k, 409) = mat(k, 409) - dti(k) - mat(k, 424) = mat(k, 424) - dti(k) - mat(k, 438) = mat(k, 438) - dti(k) - mat(k, 454) = mat(k, 454) - dti(k) - mat(k, 465) = mat(k, 465) - dti(k) - mat(k, 484) = mat(k, 484) - dti(k) - mat(k, 503) = mat(k, 503) - dti(k) - mat(k, 519) = mat(k, 519) - dti(k) - mat(k, 539) = mat(k, 539) - dti(k) - mat(k, 560) = mat(k, 560) - dti(k) - mat(k, 584) = mat(k, 584) - dti(k) - mat(k, 606) = mat(k, 606) - dti(k) - mat(k, 637) = mat(k, 637) - dti(k) - mat(k, 660) = mat(k, 660) - dti(k) - mat(k, 690) = mat(k, 690) - dti(k) - mat(k, 713) = mat(k, 713) - dti(k) - mat(k, 747) = mat(k, 747) - dti(k) - mat(k, 794) = mat(k, 794) - dti(k) - mat(k, 822) = mat(k, 822) - dti(k) - mat(k, 852) = mat(k, 852) - dti(k) - mat(k, 900) = mat(k, 900) - dti(k) - mat(k, 943) = mat(k, 943) - dti(k) - mat(k, 990) = mat(k, 990) - dti(k) - mat(k,1033) = mat(k,1033) - dti(k) - mat(k,1075) = mat(k,1075) - dti(k) - mat(k,1115) = mat(k,1115) - dti(k) - mat(k,1160) = mat(k,1160) - dti(k) - mat(k,1202) = mat(k,1202) - dti(k) - mat(k,1252) = mat(k,1252) - dti(k) - mat(k,1292) = mat(k,1292) - dti(k) - mat(k,1328) = mat(k,1328) - dti(k) - mat(k,1373) = mat(k,1373) - dti(k) - mat(k,1433) = mat(k,1433) - dti(k) - mat(k,1476) = mat(k,1476) - dti(k) - mat(k,1518) = mat(k,1518) - dti(k) - mat(k,1561) = mat(k,1561) - dti(k) - mat(k,1604) = mat(k,1604) - dti(k) - mat(k,1637) = mat(k,1637) - dti(k) - mat(k,1673) = mat(k,1673) - dti(k) - mat(k,1716) = mat(k,1716) - dti(k) - mat(k,1761) = mat(k,1761) - dti(k) - mat(k,1797) = mat(k,1797) - dti(k) - mat(k,1856) = mat(k,1856) - dti(k) - end do + mat( 1) = lmat( 1) + mat( 2) = lmat( 2) + mat( 3) = lmat( 3) + mat( 4) = lmat( 4) + mat( 5) = lmat( 5) + mat( 6) = lmat( 6) + mat( 7) = lmat( 7) + mat( 8) = lmat( 8) + mat( 9) = lmat( 9) + mat( 10) = lmat( 10) + mat( 11) = lmat( 11) + mat( 12) = lmat( 12) + mat( 13) = lmat( 13) + mat( 14) = lmat( 14) + mat( 15) = lmat( 15) + mat( 16) = lmat( 16) + mat( 17) = lmat( 17) + mat( 18) = lmat( 18) + mat( 19) = lmat( 19) + mat( 20) = lmat( 20) + mat( 21) = lmat( 21) + mat( 22) = lmat( 22) + mat( 23) = lmat( 23) + mat( 24) = lmat( 24) + mat( 25) = lmat( 25) + mat( 26) = lmat( 26) + mat( 27) = mat( 27) + lmat( 27) + mat( 28) = mat( 28) + lmat( 28) + mat( 30) = lmat( 30) + mat( 31) = lmat( 31) + mat( 32) = mat( 32) + lmat( 32) + mat( 33) = mat( 33) + lmat( 33) + mat( 35) = mat( 35) + lmat( 35) + mat( 36) = lmat( 36) + mat( 37) = lmat( 37) + mat( 38) = lmat( 38) + mat( 39) = lmat( 39) + mat( 40) = lmat( 40) + mat( 41) = lmat( 41) + mat( 42) = mat( 42) + lmat( 42) + mat( 43) = mat( 43) + lmat( 43) + mat( 44) = lmat( 44) + mat( 46) = mat( 46) + lmat( 46) + mat( 47) = lmat( 47) + mat( 48) = lmat( 48) + mat( 50) = mat( 50) + lmat( 50) + mat( 54) = mat( 54) + lmat( 54) + mat( 58) = mat( 58) + lmat( 58) + mat( 64) = mat( 64) + lmat( 64) + mat( 67) = lmat( 67) + mat( 68) = mat( 68) + lmat( 68) + mat( 69) = mat( 69) + lmat( 69) + mat( 70) = mat( 70) + lmat( 70) + mat( 71) = lmat( 71) + mat( 77) = mat( 77) + lmat( 77) + mat( 79) = mat( 79) + lmat( 79) + mat( 80) = mat( 80) + lmat( 80) + mat( 81) = lmat( 81) + mat( 83) = mat( 83) + lmat( 83) + mat( 89) = mat( 89) + lmat( 89) + mat( 95) = mat( 95) + lmat( 95) + mat( 97) = lmat( 97) + mat( 98) = mat( 98) + lmat( 98) + mat( 100) = lmat( 100) + mat( 101) = mat( 101) + lmat( 101) + mat( 102) = lmat( 102) + mat( 103) = mat( 103) + lmat( 103) + mat( 105) = mat( 105) + lmat( 105) + mat( 106) = lmat( 106) + mat( 108) = mat( 108) + lmat( 108) + mat( 109) = lmat( 109) + mat( 111) = lmat( 111) + mat( 115) = mat( 115) + lmat( 115) + mat( 117) = lmat( 117) + mat( 121) = mat( 121) + lmat( 121) + mat( 122) = mat( 122) + lmat( 122) + mat( 123) = lmat( 123) + mat( 124) = lmat( 124) + mat( 125) = mat( 125) + lmat( 125) + mat( 126) = lmat( 126) + mat( 127) = lmat( 127) + mat( 128) = mat( 128) + lmat( 128) + mat( 129) = lmat( 129) + mat( 130) = mat( 130) + lmat( 130) + mat( 132) = mat( 132) + lmat( 132) + mat( 134) = mat( 134) + lmat( 134) + mat( 138) = mat( 138) + lmat( 138) + mat( 139) = lmat( 139) + mat( 140) = lmat( 140) + mat( 141) = mat( 141) + lmat( 141) + mat( 142) = lmat( 142) + mat( 144) = lmat( 144) + mat( 145) = mat( 145) + lmat( 145) + mat( 146) = mat( 146) + lmat( 146) + mat( 148) = mat( 148) + lmat( 148) + mat( 153) = mat( 153) + lmat( 153) + mat( 162) = mat( 162) + lmat( 162) + mat( 163) = lmat( 163) + mat( 167) = mat( 167) + lmat( 167) + mat( 168) = mat( 168) + lmat( 168) + mat( 175) = mat( 175) + lmat( 175) + mat( 176) = mat( 176) + lmat( 176) + mat( 178) = lmat( 178) + mat( 181) = mat( 181) + lmat( 181) + mat( 189) = mat( 189) + lmat( 189) + mat( 194) = lmat( 194) + mat( 196) = mat( 196) + lmat( 196) + mat( 197) = mat( 197) + lmat( 197) + mat( 198) = mat( 198) + lmat( 198) + mat( 199) = lmat( 199) + mat( 207) = mat( 207) + lmat( 207) + mat( 208) = lmat( 208) + mat( 210) = mat( 210) + lmat( 210) + mat( 215) = mat( 215) + lmat( 215) + mat( 223) = mat( 223) + lmat( 223) + mat( 230) = mat( 230) + lmat( 230) + mat( 231) = mat( 231) + lmat( 231) + mat( 236) = mat( 236) + lmat( 236) + mat( 239) = mat( 239) + lmat( 239) + mat( 240) = mat( 240) + lmat( 240) + mat( 242) = mat( 242) + lmat( 242) + mat( 246) = mat( 246) + lmat( 246) + mat( 249) = mat( 249) + lmat( 249) + mat( 255) = mat( 255) + lmat( 255) + mat( 256) = lmat( 256) + mat( 259) = lmat( 259) + mat( 261) = lmat( 261) + mat( 264) = mat( 264) + lmat( 264) + mat( 265) = lmat( 265) + mat( 269) = lmat( 269) + mat( 273) = mat( 273) + lmat( 273) + mat( 276) = mat( 276) + lmat( 276) + mat( 277) = mat( 277) + lmat( 277) + mat( 279) = lmat( 279) + mat( 281) = mat( 281) + lmat( 281) + mat( 283) = mat( 283) + lmat( 283) + mat( 284) = mat( 284) + lmat( 284) + mat( 285) = mat( 285) + lmat( 285) + mat( 287) = mat( 287) + lmat( 287) + mat( 297) = mat( 297) + lmat( 297) + mat( 301) = lmat( 301) + mat( 302) = lmat( 302) + mat( 303) = lmat( 303) + mat( 305) = mat( 305) + lmat( 305) + mat( 307) = lmat( 307) + mat( 309) = lmat( 309) + mat( 311) = mat( 311) + lmat( 311) + mat( 315) = lmat( 315) + mat( 324) = mat( 324) + lmat( 324) + mat( 335) = mat( 335) + lmat( 335) + mat( 350) = mat( 350) + lmat( 350) + mat( 362) = mat( 362) + lmat( 362) + mat( 363) = lmat( 363) + mat( 375) = mat( 375) + lmat( 375) + mat( 377) = lmat( 377) + mat( 379) = mat( 379) + lmat( 379) + mat( 387) = mat( 387) + lmat( 387) + mat( 393) = mat( 393) + lmat( 393) + mat( 394) = lmat( 394) + mat( 402) = mat( 402) + lmat( 402) + mat( 409) = mat( 409) + lmat( 409) + mat( 410) = lmat( 410) + mat( 423) = mat( 423) + lmat( 423) + mat( 424) = mat( 424) + lmat( 424) + mat( 436) = lmat( 436) + mat( 437) = mat( 437) + lmat( 437) + mat( 438) = mat( 438) + lmat( 438) + mat( 440) = lmat( 440) + mat( 441) = mat( 441) + lmat( 441) + mat( 442) = mat( 442) + lmat( 442) + mat( 447) = mat( 447) + lmat( 447) + mat( 450) = lmat( 450) + mat( 452) = mat( 452) + lmat( 452) + mat( 470) = mat( 470) + lmat( 470) + mat( 484) = mat( 484) + lmat( 484) + mat( 503) = mat( 503) + lmat( 503) + mat( 504) = lmat( 504) + mat( 513) = mat( 513) + lmat( 513) + mat( 519) = mat( 519) + lmat( 519) + mat( 520) = lmat( 520) + mat( 536) = mat( 536) + lmat( 536) + mat( 539) = mat( 539) + lmat( 539) + mat( 542) = lmat( 542) + mat( 556) = mat( 556) + lmat( 556) + mat( 560) = mat( 560) + lmat( 560) + mat( 561) = lmat( 561) + mat( 576) = mat( 576) + lmat( 576) + mat( 583) = mat( 583) + lmat( 583) + mat( 584) = mat( 584) + lmat( 584) + mat( 592) = mat( 592) + lmat( 592) + mat( 601) = mat( 601) + lmat( 601) + mat( 604) = lmat( 604) + mat( 606) = mat( 606) + lmat( 606) + mat( 618) = mat( 618) + lmat( 618) + mat( 625) = mat( 625) + lmat( 625) + mat( 626) = mat( 626) + lmat( 626) + mat( 628) = mat( 628) + lmat( 628) + mat( 631) = lmat( 631) + mat( 633) = mat( 633) + lmat( 633) + mat( 634) = mat( 634) + lmat( 634) + mat( 636) = lmat( 636) + mat( 637) = mat( 637) + lmat( 637) + mat( 638) = lmat( 638) + mat( 639) = mat( 639) + lmat( 639) + mat( 642) = mat( 642) + lmat( 642) + mat( 644) = lmat( 644) + mat( 645) = mat( 645) + lmat( 645) + mat( 646) = mat( 646) + lmat( 646) + mat( 651) = mat( 651) + lmat( 651) + mat( 660) = mat( 660) + lmat( 660) + mat( 677) = lmat( 677) + mat( 690) = mat( 690) + lmat( 690) + mat( 713) = mat( 713) + lmat( 713) + mat( 714) = lmat( 714) + mat( 732) = mat( 732) + lmat( 732) + mat( 736) = mat( 736) + lmat( 736) + mat( 747) = mat( 747) + lmat( 747) + mat( 768) = lmat( 768) + mat( 769) = lmat( 769) + mat( 786) = mat( 786) + lmat( 786) + mat( 788) = mat( 788) + lmat( 788) + mat( 793) = mat( 793) + lmat( 793) + mat( 794) = mat( 794) + lmat( 794) + mat( 803) = mat( 803) + lmat( 803) + mat( 814) = mat( 814) + lmat( 814) + mat( 822) = mat( 822) + lmat( 822) + mat( 842) = lmat( 842) + mat( 866) = mat( 866) + lmat( 866) + mat( 889) = lmat( 889) + mat( 908) = mat( 908) + lmat( 908) + mat( 930) = mat( 930) + lmat( 930) + mat( 931) = lmat( 931) + mat( 932) = lmat( 932) + mat( 956) = mat( 956) + lmat( 956) + mat( 999) = mat( 999) + lmat( 999) + mat(1022) = lmat(1022) + mat(1023) = mat(1023) + lmat(1023) + mat(1030) = mat(1030) + lmat(1030) + mat(1038) = mat(1038) + lmat(1038) + mat(1045) = mat(1045) + lmat(1045) + mat(1049) = mat(1049) + lmat(1049) + mat(1053) = mat(1053) + lmat(1053) + mat(1057) = mat(1057) + lmat(1057) + mat(1089) = mat(1089) + lmat(1089) + mat(1096) = mat(1096) + lmat(1096) + mat(1098) = mat(1098) + lmat(1098) + mat(1099) = mat(1099) + lmat(1099) + mat(1108) = mat(1108) + lmat(1108) + mat(1138) = mat(1138) + lmat(1138) + mat(1158) = mat(1158) + lmat(1158) + mat(1173) = mat(1173) + lmat(1173) + mat(1175) = mat(1175) + lmat(1175) + mat(1180) = mat(1180) + lmat(1180) + mat(1181) = mat(1181) + lmat(1181) + mat(1200) = mat(1200) + lmat(1200) + mat(1201) = mat(1201) + lmat(1201) + mat(1214) = mat(1214) + lmat(1214) + mat(1232) = mat(1232) + lmat(1232) + mat(1240) = mat(1240) + lmat(1240) + mat(1257) = mat(1257) + lmat(1257) + mat(1262) = lmat(1262) + mat(1263) = lmat(1263) + mat(1271) = mat(1271) + lmat(1271) + mat(1283) = mat(1283) + lmat(1283) + mat(1284) = mat(1284) + lmat(1284) + mat(1327) = mat(1327) + lmat(1327) + mat(1328) = mat(1328) + lmat(1328) + mat(1332) = mat(1332) + lmat(1332) + mat(1347) = lmat(1347) + mat(1353) = mat(1353) + lmat(1353) + mat(1357) = mat(1357) + lmat(1357) + mat(1364) = mat(1364) + lmat(1364) + mat(1399) = mat(1399) + lmat(1399) + mat(1404) = mat(1404) + lmat(1404) + mat(1409) = mat(1409) + lmat(1409) + mat(1423) = mat(1423) + lmat(1423) + mat(1431) = mat(1431) + lmat(1431) + mat(1442) = mat(1442) + lmat(1442) + mat(1446) = mat(1446) + lmat(1446) + mat(1451) = mat(1451) + lmat(1451) + mat(1487) = mat(1487) + lmat(1487) + mat(1525) = mat(1525) + lmat(1525) + mat(1526) = mat(1526) + lmat(1526) + mat(1532) = mat(1532) + lmat(1532) + mat(1560) = lmat(1560) + mat(1575) = mat(1575) + lmat(1575) + mat(1582) = mat(1582) + lmat(1582) + mat(1596) = mat(1596) + lmat(1596) + mat(1603) = lmat(1603) + mat(1615) = mat(1615) + lmat(1615) + mat(1623) = lmat(1623) + mat(1628) = mat(1628) + lmat(1628) + mat(1630) = mat(1630) + lmat(1630) + mat(1648) = mat(1648) + lmat(1648) + mat(1664) = lmat(1664) + mat(1665) = mat(1665) + lmat(1665) + mat(1673) = mat(1673) + lmat(1673) + mat(1684) = mat(1684) + lmat(1684) + mat(1723) = lmat(1723) + mat(1727) = mat(1727) + lmat(1727) + mat(1730) = mat(1730) + lmat(1730) + mat(1736) = lmat(1736) + mat(1741) = mat(1741) + lmat(1741) + mat(1757) = mat(1757) + lmat(1757) + mat(1779) = mat(1779) + lmat(1779) + mat(1780) = mat(1780) + lmat(1780) + mat(1782) = mat(1782) + lmat(1782) + mat(1783) = mat(1783) + lmat(1783) + mat(1792) = mat(1792) + lmat(1792) + mat(1797) = mat(1797) + lmat(1797) + mat(1821) = lmat(1821) + mat(1827) = mat(1827) + lmat(1827) + mat(1831) = mat(1831) + lmat(1831) + mat(1841) = lmat(1841) + mat(1847) = lmat(1847) + mat(1856) = mat(1856) + lmat(1856) + mat( 183) = 0._r8 + mat( 187) = 0._r8 + mat( 192) = 0._r8 + mat( 195) = 0._r8 + mat( 212) = 0._r8 + mat( 260) = 0._r8 + mat( 266) = 0._r8 + mat( 267) = 0._r8 + mat( 268) = 0._r8 + mat( 271) = 0._r8 + mat( 274) = 0._r8 + mat( 286) = 0._r8 + mat( 310) = 0._r8 + mat( 312) = 0._r8 + mat( 313) = 0._r8 + mat( 327) = 0._r8 + mat( 332) = 0._r8 + mat( 334) = 0._r8 + mat( 351) = 0._r8 + mat( 353) = 0._r8 + mat( 356) = 0._r8 + mat( 359) = 0._r8 + mat( 360) = 0._r8 + mat( 382) = 0._r8 + mat( 392) = 0._r8 + mat( 473) = 0._r8 + mat( 475) = 0._r8 + mat( 477) = 0._r8 + mat( 479) = 0._r8 + mat( 480) = 0._r8 + mat( 483) = 0._r8 + mat( 485) = 0._r8 + mat( 487) = 0._r8 + mat( 490) = 0._r8 + mat( 491) = 0._r8 + mat( 492) = 0._r8 + mat( 497) = 0._r8 + mat( 498) = 0._r8 + mat( 501) = 0._r8 + mat( 521) = 0._r8 + mat( 526) = 0._r8 + mat( 529) = 0._r8 + mat( 566) = 0._r8 + mat( 569) = 0._r8 + mat( 585) = 0._r8 + mat( 586) = 0._r8 + mat( 594) = 0._r8 + mat( 595) = 0._r8 + mat( 596) = 0._r8 + mat( 598) = 0._r8 + mat( 599) = 0._r8 + mat( 600) = 0._r8 + mat( 605) = 0._r8 + mat( 607) = 0._r8 + mat( 610) = 0._r8 + mat( 611) = 0._r8 + mat( 612) = 0._r8 + mat( 613) = 0._r8 + mat( 617) = 0._r8 + mat( 619) = 0._r8 + mat( 621) = 0._r8 + mat( 622) = 0._r8 + mat( 630) = 0._r8 + mat( 632) = 0._r8 + mat( 640) = 0._r8 + mat( 641) = 0._r8 + mat( 643) = 0._r8 + mat( 648) = 0._r8 + mat( 649) = 0._r8 + mat( 653) = 0._r8 + mat( 654) = 0._r8 + mat( 655) = 0._r8 + mat( 656) = 0._r8 + mat( 662) = 0._r8 + mat( 666) = 0._r8 + mat( 671) = 0._r8 + mat( 683) = 0._r8 + mat( 684) = 0._r8 + mat( 686) = 0._r8 + mat( 719) = 0._r8 + mat( 723) = 0._r8 + mat( 727) = 0._r8 + mat( 745) = 0._r8 + mat( 746) = 0._r8 + mat( 749) = 0._r8 + mat( 750) = 0._r8 + mat( 758) = 0._r8 + mat( 759) = 0._r8 + mat( 763) = 0._r8 + mat( 764) = 0._r8 + mat( 765) = 0._r8 + mat( 780) = 0._r8 + mat( 792) = 0._r8 + mat( 795) = 0._r8 + mat( 796) = 0._r8 + mat( 797) = 0._r8 + mat( 805) = 0._r8 + mat( 806) = 0._r8 + mat( 811) = 0._r8 + mat( 812) = 0._r8 + mat( 818) = 0._r8 + mat( 823) = 0._r8 + mat( 833) = 0._r8 + mat( 836) = 0._r8 + mat( 845) = 0._r8 + mat( 855) = 0._r8 + mat( 859) = 0._r8 + mat( 864) = 0._r8 + mat( 871) = 0._r8 + mat( 875) = 0._r8 + mat( 876) = 0._r8 + mat( 881) = 0._r8 + mat( 883) = 0._r8 + mat( 884) = 0._r8 + mat( 887) = 0._r8 + mat( 890) = 0._r8 + mat( 904) = 0._r8 + mat( 909) = 0._r8 + mat( 910) = 0._r8 + mat( 913) = 0._r8 + mat( 914) = 0._r8 + mat( 919) = 0._r8 + mat( 920) = 0._r8 + mat( 922) = 0._r8 + mat( 925) = 0._r8 + mat( 926) = 0._r8 + mat( 927) = 0._r8 + mat( 934) = 0._r8 + mat( 935) = 0._r8 + mat( 947) = 0._r8 + mat( 951) = 0._r8 + mat( 955) = 0._r8 + mat( 957) = 0._r8 + mat( 966) = 0._r8 + mat( 967) = 0._r8 + mat( 968) = 0._r8 + mat( 969) = 0._r8 + mat( 970) = 0._r8 + mat( 972) = 0._r8 + mat( 973) = 0._r8 + mat( 974) = 0._r8 + mat( 979) = 0._r8 + mat( 993) = 0._r8 + mat( 997) = 0._r8 + mat( 998) = 0._r8 + mat(1002) = 0._r8 + mat(1008) = 0._r8 + mat(1009) = 0._r8 + mat(1010) = 0._r8 + mat(1011) = 0._r8 + mat(1012) = 0._r8 + mat(1014) = 0._r8 + mat(1015) = 0._r8 + mat(1016) = 0._r8 + mat(1035) = 0._r8 + mat(1036) = 0._r8 + mat(1037) = 0._r8 + mat(1039) = 0._r8 + mat(1040) = 0._r8 + mat(1041) = 0._r8 + mat(1043) = 0._r8 + mat(1046) = 0._r8 + mat(1048) = 0._r8 + mat(1050) = 0._r8 + mat(1051) = 0._r8 + mat(1054) = 0._r8 + mat(1055) = 0._r8 + mat(1060) = 0._r8 + mat(1061) = 0._r8 + mat(1062) = 0._r8 + mat(1063) = 0._r8 + mat(1065) = 0._r8 + mat(1066) = 0._r8 + mat(1067) = 0._r8 + mat(1068) = 0._r8 + mat(1071) = 0._r8 + mat(1078) = 0._r8 + mat(1079) = 0._r8 + mat(1080) = 0._r8 + mat(1084) = 0._r8 + mat(1085) = 0._r8 + mat(1091) = 0._r8 + mat(1092) = 0._r8 + mat(1093) = 0._r8 + mat(1094) = 0._r8 + mat(1097) = 0._r8 + mat(1101) = 0._r8 + mat(1103) = 0._r8 + mat(1105) = 0._r8 + mat(1107) = 0._r8 + mat(1111) = 0._r8 + mat(1133) = 0._r8 + mat(1134) = 0._r8 + mat(1144) = 0._r8 + mat(1145) = 0._r8 + mat(1147) = 0._r8 + mat(1148) = 0._r8 + mat(1150) = 0._r8 + mat(1151) = 0._r8 + mat(1152) = 0._r8 + mat(1164) = 0._r8 + mat(1167) = 0._r8 + mat(1174) = 0._r8 + mat(1176) = 0._r8 + mat(1179) = 0._r8 + mat(1183) = 0._r8 + mat(1184) = 0._r8 + mat(1187) = 0._r8 + mat(1189) = 0._r8 + mat(1190) = 0._r8 + mat(1191) = 0._r8 + mat(1193) = 0._r8 + mat(1206) = 0._r8 + mat(1213) = 0._r8 + mat(1225) = 0._r8 + mat(1233) = 0._r8 + mat(1235) = 0._r8 + mat(1238) = 0._r8 + mat(1248) = 0._r8 + mat(1249) = 0._r8 + mat(1252) = 0._r8 + mat(1255) = 0._r8 + mat(1265) = 0._r8 + mat(1267) = 0._r8 + mat(1270) = 0._r8 + mat(1274) = 0._r8 + mat(1275) = 0._r8 + mat(1276) = 0._r8 + mat(1277) = 0._r8 + mat(1280) = 0._r8 + mat(1281) = 0._r8 + mat(1286) = 0._r8 + mat(1290) = 0._r8 + mat(1291) = 0._r8 + mat(1294) = 0._r8 + mat(1297) = 0._r8 + mat(1307) = 0._r8 + mat(1308) = 0._r8 + mat(1309) = 0._r8 + mat(1310) = 0._r8 + mat(1317) = 0._r8 + mat(1318) = 0._r8 + mat(1319) = 0._r8 + mat(1320) = 0._r8 + mat(1321) = 0._r8 + mat(1322) = 0._r8 + mat(1323) = 0._r8 + mat(1324) = 0._r8 + mat(1325) = 0._r8 + mat(1330) = 0._r8 + mat(1331) = 0._r8 + mat(1334) = 0._r8 + mat(1338) = 0._r8 + mat(1340) = 0._r8 + mat(1345) = 0._r8 + mat(1351) = 0._r8 + mat(1352) = 0._r8 + mat(1371) = 0._r8 + mat(1375) = 0._r8 + mat(1394) = 0._r8 + mat(1398) = 0._r8 + mat(1400) = 0._r8 + mat(1403) = 0._r8 + mat(1410) = 0._r8 + mat(1411) = 0._r8 + mat(1412) = 0._r8 + mat(1413) = 0._r8 + mat(1415) = 0._r8 + mat(1416) = 0._r8 + mat(1417) = 0._r8 + mat(1425) = 0._r8 + mat(1430) = 0._r8 + mat(1433) = 0._r8 + mat(1437) = 0._r8 + mat(1439) = 0._r8 + mat(1440) = 0._r8 + mat(1441) = 0._r8 + mat(1444) = 0._r8 + mat(1448) = 0._r8 + mat(1450) = 0._r8 + mat(1454) = 0._r8 + mat(1455) = 0._r8 + mat(1458) = 0._r8 + mat(1461) = 0._r8 + mat(1465) = 0._r8 + mat(1466) = 0._r8 + mat(1469) = 0._r8 + mat(1474) = 0._r8 + mat(1475) = 0._r8 + mat(1476) = 0._r8 + mat(1478) = 0._r8 + mat(1482) = 0._r8 + mat(1485) = 0._r8 + mat(1488) = 0._r8 + mat(1489) = 0._r8 + mat(1490) = 0._r8 + mat(1492) = 0._r8 + mat(1493) = 0._r8 + mat(1495) = 0._r8 + mat(1510) = 0._r8 + mat(1513) = 0._r8 + mat(1517) = 0._r8 + mat(1518) = 0._r8 + mat(1519) = 0._r8 + mat(1520) = 0._r8 + mat(1523) = 0._r8 + mat(1529) = 0._r8 + mat(1530) = 0._r8 + mat(1531) = 0._r8 + mat(1533) = 0._r8 + mat(1534) = 0._r8 + mat(1537) = 0._r8 + mat(1540) = 0._r8 + mat(1556) = 0._r8 + mat(1561) = 0._r8 + mat(1562) = 0._r8 + mat(1565) = 0._r8 + mat(1566) = 0._r8 + mat(1571) = 0._r8 + mat(1572) = 0._r8 + mat(1574) = 0._r8 + mat(1577) = 0._r8 + mat(1578) = 0._r8 + mat(1586) = 0._r8 + mat(1588) = 0._r8 + mat(1591) = 0._r8 + mat(1592) = 0._r8 + mat(1598) = 0._r8 + mat(1599) = 0._r8 + mat(1600) = 0._r8 + mat(1601) = 0._r8 + mat(1602) = 0._r8 + mat(1604) = 0._r8 + mat(1605) = 0._r8 + mat(1606) = 0._r8 + mat(1607) = 0._r8 + mat(1610) = 0._r8 + mat(1611) = 0._r8 + mat(1612) = 0._r8 + mat(1613) = 0._r8 + mat(1614) = 0._r8 + mat(1616) = 0._r8 + mat(1618) = 0._r8 + mat(1626) = 0._r8 + mat(1629) = 0._r8 + mat(1631) = 0._r8 + mat(1632) = 0._r8 + mat(1633) = 0._r8 + mat(1634) = 0._r8 + mat(1636) = 0._r8 + mat(1637) = 0._r8 + mat(1641) = 0._r8 + mat(1642) = 0._r8 + mat(1646) = 0._r8 + mat(1647) = 0._r8 + mat(1649) = 0._r8 + mat(1650) = 0._r8 + mat(1652) = 0._r8 + mat(1655) = 0._r8 + mat(1658) = 0._r8 + mat(1659) = 0._r8 + mat(1662) = 0._r8 + mat(1666) = 0._r8 + mat(1667) = 0._r8 + mat(1668) = 0._r8 + mat(1671) = 0._r8 + mat(1676) = 0._r8 + mat(1677) = 0._r8 + mat(1681) = 0._r8 + mat(1685) = 0._r8 + mat(1687) = 0._r8 + mat(1704) = 0._r8 + mat(1708) = 0._r8 + mat(1709) = 0._r8 + mat(1710) = 0._r8 + mat(1713) = 0._r8 + mat(1714) = 0._r8 + mat(1719) = 0._r8 + mat(1720) = 0._r8 + mat(1722) = 0._r8 + mat(1725) = 0._r8 + mat(1726) = 0._r8 + mat(1735) = 0._r8 + mat(1744) = 0._r8 + mat(1747) = 0._r8 + mat(1755) = 0._r8 + mat(1764) = 0._r8 + mat(1765) = 0._r8 + mat(1766) = 0._r8 + mat(1767) = 0._r8 + mat(1768) = 0._r8 + mat(1769) = 0._r8 + mat(1771) = 0._r8 + mat(1772) = 0._r8 + mat(1775) = 0._r8 + mat(1776) = 0._r8 + mat(1777) = 0._r8 + mat(1778) = 0._r8 + mat(1781) = 0._r8 + mat(1784) = 0._r8 + mat(1785) = 0._r8 + mat(1786) = 0._r8 + mat(1787) = 0._r8 + mat(1788) = 0._r8 + mat(1789) = 0._r8 + mat(1790) = 0._r8 + mat(1791) = 0._r8 + mat(1793) = 0._r8 + mat(1794) = 0._r8 + mat(1795) = 0._r8 + mat(1796) = 0._r8 + mat(1798) = 0._r8 + mat(1813) = 0._r8 + mat(1814) = 0._r8 + mat(1817) = 0._r8 + mat(1820) = 0._r8 + mat(1825) = 0._r8 + mat(1826) = 0._r8 + mat(1830) = 0._r8 + mat(1833) = 0._r8 + mat(1838) = 0._r8 + mat(1840) = 0._r8 + mat(1842) = 0._r8 + mat(1843) = 0._r8 + mat(1844) = 0._r8 + mat(1846) = 0._r8 + mat(1848) = 0._r8 + mat(1855) = 0._r8 + mat( 1) = mat( 1) - dti + mat( 2) = mat( 2) - dti + mat( 3) = mat( 3) - dti + mat( 4) = mat( 4) - dti + mat( 5) = mat( 5) - dti + mat( 6) = mat( 6) - dti + mat( 7) = mat( 7) - dti + mat( 8) = mat( 8) - dti + mat( 9) = mat( 9) - dti + mat( 10) = mat( 10) - dti + mat( 11) = mat( 11) - dti + mat( 12) = mat( 12) - dti + mat( 13) = mat( 13) - dti + mat( 14) = mat( 14) - dti + mat( 15) = mat( 15) - dti + mat( 16) = mat( 16) - dti + mat( 17) = mat( 17) - dti + mat( 18) = mat( 18) - dti + mat( 19) = mat( 19) - dti + mat( 20) = mat( 20) - dti + mat( 21) = mat( 21) - dti + mat( 24) = mat( 24) - dti + mat( 27) = mat( 27) - dti + mat( 30) = mat( 30) - dti + mat( 32) = mat( 32) - dti + mat( 36) = mat( 36) - dti + mat( 39) = mat( 39) - dti + mat( 42) = mat( 42) - dti + mat( 46) = mat( 46) - dti + mat( 50) = mat( 50) - dti + mat( 54) = mat( 54) - dti + mat( 58) = mat( 58) - dti + mat( 64) = mat( 64) - dti + mat( 69) = mat( 69) - dti + mat( 77) = mat( 77) - dti + mat( 83) = mat( 83) - dti + mat( 89) = mat( 89) - dti + mat( 95) = mat( 95) - dti + mat( 101) = mat( 101) - dti + mat( 108) = mat( 108) - dti + mat( 115) = mat( 115) - dti + mat( 121) = mat( 121) - dti + mat( 128) = mat( 128) - dti + mat( 134) = mat( 134) - dti + mat( 138) = mat( 138) - dti + mat( 146) = mat( 146) - dti + mat( 153) = mat( 153) - dti + mat( 162) = mat( 162) - dti + mat( 168) = mat( 168) - dti + mat( 175) = mat( 175) - dti + mat( 181) = mat( 181) - dti + mat( 189) = mat( 189) - dti + mat( 198) = mat( 198) - dti + mat( 207) = mat( 207) - dti + mat( 215) = mat( 215) - dti + mat( 223) = mat( 223) - dti + mat( 230) = mat( 230) - dti + mat( 239) = mat( 239) - dti + mat( 246) = mat( 246) - dti + mat( 255) = mat( 255) - dti + mat( 264) = mat( 264) - dti + mat( 277) = mat( 277) - dti + mat( 287) = mat( 287) - dti + mat( 297) = mat( 297) - dti + mat( 311) = mat( 311) - dti + mat( 324) = mat( 324) - dti + mat( 335) = mat( 335) - dti + mat( 350) = mat( 350) - dti + mat( 362) = mat( 362) - dti + mat( 379) = mat( 379) - dti + mat( 393) = mat( 393) - dti + mat( 409) = mat( 409) - dti + mat( 424) = mat( 424) - dti + mat( 438) = mat( 438) - dti + mat( 452) = mat( 452) - dti + mat( 470) = mat( 470) - dti + mat( 484) = mat( 484) - dti + mat( 503) = mat( 503) - dti + mat( 519) = mat( 519) - dti + mat( 539) = mat( 539) - dti + mat( 560) = mat( 560) - dti + mat( 584) = mat( 584) - dti + mat( 606) = mat( 606) - dti + mat( 637) = mat( 637) - dti + mat( 660) = mat( 660) - dti + mat( 690) = mat( 690) - dti + mat( 713) = mat( 713) - dti + mat( 747) = mat( 747) - dti + mat( 794) = mat( 794) - dti + mat( 822) = mat( 822) - dti + mat( 866) = mat( 866) - dti + mat( 908) = mat( 908) - dti + mat( 956) = mat( 956) - dti + mat( 999) = mat( 999) - dti + mat(1049) = mat(1049) - dti + mat(1096) = mat(1096) - dti + mat(1138) = mat(1138) - dti + mat(1180) = mat(1180) - dti + mat(1240) = mat(1240) - dti + mat(1283) = mat(1283) - dti + mat(1328) = mat(1328) - dti + mat(1364) = mat(1364) - dti + mat(1409) = mat(1409) - dti + mat(1451) = mat(1451) - dti + mat(1487) = mat(1487) - dti + mat(1532) = mat(1532) - dti + mat(1575) = mat(1575) - dti + mat(1615) = mat(1615) - dti + mat(1648) = mat(1648) - dti + mat(1684) = mat(1684) - dti + mat(1727) = mat(1727) - dti + mat(1757) = mat(1757) - dti + mat(1797) = mat(1797) - dti + mat(1856) = mat(1856) - dti end subroutine nlnmat_finit - subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti ) + subroutine nlnmat( mat, y, rxt, lmat, dti ) use chem_mods, only : gas_pcnst, rxntot, nzcnt implicit none !---------------------------------------------- ! ... dummy arguments !---------------------------------------------- - integer, intent(in) :: avec_len - real(r8), intent(in) :: dti(veclen) - real(r8), intent(in) :: lmat(veclen,nzcnt) - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(inout) :: mat(veclen,nzcnt) - call nlnmat01( avec_len, mat, y, rxt ) - call nlnmat02( avec_len, mat, y, rxt ) - call nlnmat03( avec_len, mat, y, rxt ) - call nlnmat04( avec_len, mat, y, rxt ) - call nlnmat05( avec_len, mat, y, rxt ) - call nlnmat06( avec_len, mat, y, rxt ) - call nlnmat07( avec_len, mat, y, rxt ) - call nlnmat08( avec_len, mat, y, rxt ) - call nlnmat_finit( avec_len, mat, lmat, dti ) + real(r8), intent(in) :: dti + real(r8), intent(in) :: lmat(nzcnt) + real(r8), intent(in) :: y(gas_pcnst) + real(r8), intent(in) :: rxt(rxntot) + real(r8), intent(inout) :: mat(nzcnt) + call nlnmat01( mat, y, rxt ) + call nlnmat02( mat, y, rxt ) + call nlnmat03( mat, y, rxt ) + call nlnmat04( mat, y, rxt ) + call nlnmat05( mat, y, rxt ) + call nlnmat06( mat, y, rxt ) + call nlnmat07( mat, y, rxt ) + call nlnmat08( mat, y, rxt ) + call nlnmat_finit( mat, lmat, dti ) end subroutine nlnmat end module mo_nln_matrix diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_prod_loss.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_prod_loss.F90 index 0c07fd1e43..6165c66422 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_prod_loss.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_prod_loss.F90 @@ -1,1028 +1,882 @@ module mo_prod_loss use shr_kind_mod, only : r8 => shr_kind_r8 - use chem_mods, only : veclen private public :: exp_prod_loss public :: imp_prod_loss contains - subroutine exp_prod_loss( ofl, ofu, prod, loss, y, & - rxt, het_rates, chnkpnts ) - use chem_mods, only : gas_pcnst,rxntot,clscnt1 + subroutine exp_prod_loss( prod, loss, y, rxt, het_rates ) + use ppgrid, only : pver implicit none !-------------------------------------------------------------------- ! ... dummy args !-------------------------------------------------------------------- - integer, intent(in) :: ofl, ofu, chnkpnts - real(r8), dimension(chnkpnts,max(1,clscnt1)), intent(out) :: & + real(r8), dimension(:,:,:), intent(out) :: & prod, & loss - real(r8), intent(in) :: y(chnkpnts,gas_pcnst) - real(r8), intent(in) :: rxt(chnkpnts,rxntot) - real(r8), intent(in) :: het_rates(chnkpnts,gas_pcnst) -!-------------------------------------------------------------------- -! ... local variables -!-------------------------------------------------------------------- - integer :: k + real(r8), intent(in) :: y(:,:,:) + real(r8), intent(in) :: rxt(:,:,:) + real(r8), intent(in) :: het_rates(:,:,:) !-------------------------------------------------------------------- ! ... loss and production for Explicit method !-------------------------------------------------------------------- - do k = ofl,ofu - loss(k,1) = ( + het_rates(k,6))* y(k,6) - prod(k,1) = 0._r8 - loss(k,2) = (rxt(k,475)* y(k,122) + rxt(k,31) + het_rates(k,7))* y(k,7) - prod(k,2) = 0._r8 - loss(k,3) = (rxt(k,476)* y(k,122) + rxt(k,32) + het_rates(k,8))* y(k,8) - prod(k,3) = 0._r8 - loss(k,4) = (rxt(k,502)* y(k,122) + rxt(k,33) + het_rates(k,9))* y(k,9) - prod(k,4) = 0._r8 - loss(k,5) = (rxt(k,477)* y(k,122) + rxt(k,34) + het_rates(k,10))* y(k,10) - prod(k,5) = 0._r8 - loss(k,6) = (rxt(k,478)* y(k,122) + rxt(k,35) + het_rates(k,11))* y(k,11) - prod(k,6) = 0._r8 - loss(k,7) = (rxt(k,479)* y(k,122) + rxt(k,36) + het_rates(k,12))* y(k,12) - prod(k,7) = 0._r8 - loss(k,8) = (rxt(k,480)* y(k,122) + rxt(k,37) + het_rates(k,13))* y(k,13) - prod(k,8) = 0._r8 - loss(k,9) = (rxt(k,481)* y(k,122) + rxt(k,38) + het_rates(k,14))* y(k,14) - prod(k,9) = 0._r8 - loss(k,10) = (rxt(k,513)* y(k,86) +rxt(k,525)* y(k,122) +rxt(k,514)* y(k,131) & - + rxt(k,39) + het_rates(k,15))* y(k,15) - prod(k,10) = 0._r8 - loss(k,11) = (rxt(k,515)* y(k,86) +rxt(k,526)* y(k,122) +rxt(k,516)* y(k,131) & - + rxt(k,40) + het_rates(k,17))* y(k,17) - prod(k,11) = 0._r8 - loss(k,12) = (rxt(k,517)* y(k,131) + rxt(k,41) + het_rates(k,18))* y(k,18) - prod(k,12) = 0._r8 - loss(k,13) = (rxt(k,518)* y(k,86) +rxt(k,519)* y(k,131) + rxt(k,42) & - + het_rates(k,19))* y(k,19) - prod(k,13) = 0._r8 - loss(k,14) = (rxt(k,507)* y(k,37) +rxt(k,451)* y(k,86) + (rxt(k,538) + & - rxt(k,539) +rxt(k,540))* y(k,122) +rxt(k,536)* y(k,131) + rxt(k,24) & - + rxt(k,25) + het_rates(k,22))* y(k,22) - prod(k,14) = 0._r8 - loss(k,15) = (rxt(k,520)* y(k,86) +rxt(k,503)* y(k,122) +rxt(k,521)* y(k,131) & - + rxt(k,43) + het_rates(k,23))* y(k,23) - prod(k,15) = 0._r8 - loss(k,16) = ( + het_rates(k,28))* y(k,28) - prod(k,16) = 0._r8 - loss(k,17) = (rxt(k,368)* y(k,115) +rxt(k,312)* y(k,120) +rxt(k,316) & - * y(k,125) +rxt(k,330)* y(k,128) +rxt(k,335)* y(k,129) +rxt(k,343) & - * y(k,132) +rxt(k,352)* y(k,133) +rxt(k,595)* y(k,134) + rxt(k,26) & - + rxt(k,62) + het_rates(k,30))* y(k,30) - prod(k,17) =.440_r8*rxt(k,25)*y(k,22) - loss(k,18) = (rxt(k,504)* y(k,122) + rxt(k,51) + het_rates(k,40))* y(k,40) - prod(k,18) = 0._r8 - loss(k,19) = (rxt(k,527)* y(k,122) +rxt(k,522)* y(k,131) + rxt(k,53) & - + het_rates(k,44))* y(k,44) - prod(k,19) = 0._r8 - loss(k,20) = (rxt(k,528)* y(k,122) +rxt(k,523)* y(k,131) + rxt(k,54) & - + het_rates(k,45))* y(k,45) - prod(k,20) = 0._r8 - loss(k,21) = (rxt(k,529)* y(k,122) +rxt(k,524)* y(k,131) + rxt(k,55) & - + het_rates(k,46))* y(k,46) - prod(k,21) = 0._r8 - loss(k,22) = ((rxt(k,442) +rxt(k,443))* y(k,122) + rxt(k,13) & - + het_rates(k,55))* y(k,55) - prod(k,22) = 0._r8 - loss(k,23) = ( + rxt(k,61) + het_rates(k,75))* y(k,75) - prod(k,23) = 0._r8 - end do + loss(:,:,1) = ( + het_rates(:,:,7))* y(:,:,7) + prod(:,:,1) = 0._r8 + loss(:,:,2) = (rxt(:,:,475)* y(:,:,70) + rxt(:,:,31) + het_rates(:,:,8)) & + * y(:,:,8) + prod(:,:,2) = 0._r8 + loss(:,:,3) = (rxt(:,:,476)* y(:,:,70) + rxt(:,:,32) + het_rates(:,:,9)) & + * y(:,:,9) + prod(:,:,3) = 0._r8 + loss(:,:,4) = (rxt(:,:,502)* y(:,:,70) + rxt(:,:,33) + het_rates(:,:,10)) & + * y(:,:,10) + prod(:,:,4) = 0._r8 + loss(:,:,5) = (rxt(:,:,477)* y(:,:,70) + rxt(:,:,34) + het_rates(:,:,11)) & + * y(:,:,11) + prod(:,:,5) = 0._r8 + loss(:,:,6) = (rxt(:,:,478)* y(:,:,70) + rxt(:,:,35) + het_rates(:,:,12)) & + * y(:,:,12) + prod(:,:,6) = 0._r8 + loss(:,:,7) = (rxt(:,:,479)* y(:,:,70) + rxt(:,:,36) + het_rates(:,:,13)) & + * y(:,:,13) + prod(:,:,7) = 0._r8 + loss(:,:,8) = (rxt(:,:,480)* y(:,:,70) + rxt(:,:,37) + het_rates(:,:,14)) & + * y(:,:,14) + prod(:,:,8) = 0._r8 + loss(:,:,9) = (rxt(:,:,481)* y(:,:,70) + rxt(:,:,38) + het_rates(:,:,15)) & + * y(:,:,15) + prod(:,:,9) = 0._r8 + loss(:,:,10) = (rxt(:,:,513)* y(:,:,25) +rxt(:,:,525)* y(:,:,70) & + +rxt(:,:,514)* y(:,:,131) + rxt(:,:,39) + het_rates(:,:,16)) & + * y(:,:,16) + prod(:,:,10) = 0._r8 + loss(:,:,11) = (rxt(:,:,515)* y(:,:,25) +rxt(:,:,526)* y(:,:,70) & + +rxt(:,:,516)* y(:,:,131) + rxt(:,:,40) + het_rates(:,:,18)) & + * y(:,:,18) + prod(:,:,11) = 0._r8 + loss(:,:,12) = (rxt(:,:,517)* y(:,:,131) + rxt(:,:,41) + het_rates(:,:,19)) & + * y(:,:,19) + prod(:,:,12) = 0._r8 + loss(:,:,13) = (rxt(:,:,518)* y(:,:,25) +rxt(:,:,519)* y(:,:,131) & + + rxt(:,:,42) + het_rates(:,:,20))* y(:,:,20) + prod(:,:,13) = 0._r8 + loss(:,:,14) = (rxt(:,:,451)* y(:,:,25) +rxt(:,:,507)* y(:,:,39) & + + (rxt(:,:,538) +rxt(:,:,539) +rxt(:,:,540))* y(:,:,70) & + +rxt(:,:,536)* y(:,:,131) + rxt(:,:,24) + rxt(:,:,25) & + + het_rates(:,:,23))* y(:,:,23) + prod(:,:,14) = 0._r8 + loss(:,:,15) = (rxt(:,:,520)* y(:,:,25) +rxt(:,:,503)* y(:,:,70) & + +rxt(:,:,521)* y(:,:,131) + rxt(:,:,43) + het_rates(:,:,24)) & + * y(:,:,24) + prod(:,:,15) = 0._r8 + loss(:,:,16) = ( + het_rates(:,:,30))* y(:,:,30) + prod(:,:,16) = 0._r8 + loss(:,:,17) = (rxt(:,:,368)* y(:,:,116) +rxt(:,:,312)* y(:,:,121) & + +rxt(:,:,316)* y(:,:,125) +rxt(:,:,330)* y(:,:,128) +rxt(:,:,335) & + * y(:,:,129) +rxt(:,:,343)* y(:,:,132) +rxt(:,:,352)* y(:,:,133) & + +rxt(:,:,595)* y(:,:,134) + rxt(:,:,26) + rxt(:,:,62) & + + het_rates(:,:,32))* y(:,:,32) + prod(:,:,17) =.440_r8*rxt(:,:,25)*y(:,:,23) + loss(:,:,18) = (rxt(:,:,504)* y(:,:,70) + rxt(:,:,51) + het_rates(:,:,42)) & + * y(:,:,42) + prod(:,:,18) = 0._r8 + loss(:,:,19) = (rxt(:,:,527)* y(:,:,70) +rxt(:,:,522)* y(:,:,131) & + + rxt(:,:,53) + het_rates(:,:,46))* y(:,:,46) + prod(:,:,19) = 0._r8 + loss(:,:,20) = (rxt(:,:,528)* y(:,:,70) +rxt(:,:,523)* y(:,:,131) & + + rxt(:,:,54) + het_rates(:,:,47))* y(:,:,47) + prod(:,:,20) = 0._r8 + loss(:,:,21) = (rxt(:,:,529)* y(:,:,70) +rxt(:,:,524)* y(:,:,131) & + + rxt(:,:,55) + het_rates(:,:,48))* y(:,:,48) + prod(:,:,21) = 0._r8 + loss(:,:,22) = ((rxt(:,:,442) +rxt(:,:,443))* y(:,:,70) + rxt(:,:,13) & + + het_rates(:,:,57))* y(:,:,57) + prod(:,:,22) = 0._r8 + loss(:,:,23) = ( + rxt(:,:,61) + het_rates(:,:,78))* y(:,:,78) + prod(:,:,23) = 0._r8 end subroutine exp_prod_loss - subroutine imp_prod_loss( avec_len, prod, loss, y, & - rxt, het_rates ) - use chem_mods, only : gas_pcnst,rxntot,clscnt4 + subroutine imp_prod_loss( prod, loss, y, rxt, het_rates ) + use ppgrid, only : pver implicit none !-------------------------------------------------------------------- ! ... dummy args !-------------------------------------------------------------------- - integer, intent(in) :: avec_len - real(r8), dimension(veclen,clscnt4), intent(out) :: & + real(r8), dimension(:), intent(out) :: & prod, & loss - real(r8), intent(in) :: y(veclen,gas_pcnst) - real(r8), intent(in) :: rxt(veclen,rxntot) - real(r8), intent(in) :: het_rates(veclen,gas_pcnst) -!-------------------------------------------------------------------- -! ... local variables -!-------------------------------------------------------------------- - integer :: k + real(r8), intent(in) :: y(:) + real(r8), intent(in) :: rxt(:) + real(r8), intent(in) :: het_rates(:) !-------------------------------------------------------------------- ! ... loss and production for Implicit method !-------------------------------------------------------------------- - do k = 1,avec_len - loss(k,1) = ( + het_rates(k,1))* y(k,1) - prod(k,1) = 0._r8 - loss(k,2) = ( + het_rates(k,2))* y(k,2) - prod(k,2) = 0._r8 - loss(k,27) = ( + rxt(k,27) + het_rates(k,3))* y(k,3) - prod(k,27) = (rxt(k,571)*y(k,51) +rxt(k,576)*y(k,51))*y(k,47) & - +rxt(k,492)*y(k,26)*y(k,4) - loss(k,82) = (2._r8*rxt(k,489)* y(k,4) + (rxt(k,490) +rxt(k,491) +rxt(k,492)) & - * y(k,26) +rxt(k,494)* y(k,60) +rxt(k,495)* y(k,61) +rxt(k,497) & - * y(k,67) +rxt(k,546)* y(k,76) +rxt(k,493)* y(k,98) +rxt(k,498) & - * y(k,131) + rxt(k,28) + het_rates(k,4))* y(k,4) - prod(k,82) = (rxt(k,29) +rxt(k,496)*y(k,67))*y(k,5) +rxt(k,506)*y(k,122) & - *y(k,43) +rxt(k,501)*y(k,67)*y(k,51) +rxt(k,488)*y(k,85)*y(k,69) - loss(k,45) = (rxt(k,496)* y(k,67) + rxt(k,29) + rxt(k,30) + rxt(k,565) & - + rxt(k,568) + rxt(k,573) + het_rates(k,5))* y(k,5) - prod(k,45) =rxt(k,495)*y(k,61)*y(k,4) - loss(k,83) = (rxt(k,530)* y(k,62) +rxt(k,531)* y(k,67) +rxt(k,486)* y(k,85) & - +rxt(k,450)* y(k,86) +rxt(k,532)* y(k,131) + rxt(k,21) + rxt(k,22) & - + het_rates(k,16))* y(k,16) - prod(k,83) = (rxt(k,457)*y(k,26) +rxt(k,534)*y(k,60))*y(k,20) + (rxt(k,23) + & - .300_r8*rxt(k,535)*y(k,131))*y(k,21) + (rxt(k,539)*y(k,122) + & - rxt(k,540)*y(k,122))*y(k,22) - loss(k,66) = (rxt(k,457)* y(k,26) +rxt(k,534)* y(k,60) +rxt(k,533)* y(k,98) & - + het_rates(k,20))* y(k,20) - prod(k,66) = (rxt(k,451)*y(k,86) +rxt(k,507)*y(k,37) +rxt(k,536)*y(k,131) + & - rxt(k,538)*y(k,122))*y(k,22) +.700_r8*rxt(k,535)*y(k,131)*y(k,21) - loss(k,35) = (rxt(k,535)* y(k,131) + rxt(k,23) + het_rates(k,21))* y(k,21) - prod(k,35) =rxt(k,533)*y(k,98)*y(k,20) - loss(k,24) = ( + rxt(k,44) + het_rates(k,24))* y(k,24) - prod(k,24) = (rxt(k,564)*y(k,52) +rxt(k,569)*y(k,27) +rxt(k,570)*y(k,52) + & - rxt(k,574)*y(k,27) +rxt(k,575)*y(k,52) +rxt(k,579)*y(k,27))*y(k,47) & - +rxt(k,459)*y(k,26)*y(k,26) +rxt(k,463)*y(k,86)*y(k,27) - loss(k,21) = ( + rxt(k,45) + rxt(k,485) + het_rates(k,25))* y(k,25) - prod(k,21) =rxt(k,484)*y(k,26)*y(k,26) - loss(k,112) = ((rxt(k,490) +rxt(k,491) +rxt(k,492))* y(k,4) +rxt(k,457) & - * y(k,20) + 2._r8*(rxt(k,458) +rxt(k,459) +rxt(k,460) +rxt(k,484)) & - * y(k,26) +rxt(k,462)* y(k,60) +rxt(k,464)* y(k,61) +rxt(k,467) & - * y(k,67) +rxt(k,547)* y(k,76) +rxt(k,116)* y(k,91) +rxt(k,128) & - * y(k,94) +rxt(k,461)* y(k,98) +rxt(k,286)* y(k,108) +rxt(k,315) & - * y(k,125) + (rxt(k,468) +rxt(k,469))* y(k,131) +rxt(k,342)* y(k,132) & - +rxt(k,351)* y(k,133) + rxt(k,46) + het_rates(k,26))* y(k,26) - prod(k,112) = (rxt(k,472)*y(k,86) +rxt(k,473)*y(k,67) +rxt(k,474)*y(k,131)) & - *y(k,52) + (rxt(k,48) +rxt(k,465)*y(k,67))*y(k,27) + (rxt(k,60) + & - rxt(k,552)*y(k,76))*y(k,70) + (rxt(k,455)*y(k,98) + & - rxt(k,456)*y(k,69))*y(k,86) +2.000_r8*rxt(k,485)*y(k,25) & - +rxt(k,483)*y(k,122)*y(k,47) - loss(k,62) = ((rxt(k,569) +rxt(k,574) +rxt(k,579))* y(k,47) +rxt(k,465) & - * y(k,67) +rxt(k,463)* y(k,86) +rxt(k,466)* y(k,131) + rxt(k,47) & - + rxt(k,48) + rxt(k,567) + rxt(k,572) + rxt(k,578) & - + het_rates(k,27))* y(k,27) - prod(k,62) =rxt(k,464)*y(k,61)*y(k,26) - loss(k,44) = ((rxt(k,537) +rxt(k,541))* y(k,131) + het_rates(k,29))* y(k,29) - prod(k,44) = (rxt(k,21) +rxt(k,22) +rxt(k,450)*y(k,86) +rxt(k,486)*y(k,85) + & - rxt(k,530)*y(k,62) +rxt(k,531)*y(k,67) +rxt(k,532)*y(k,131))*y(k,16) & - + (rxt(k,101) +rxt(k,542)*y(k,67) +rxt(k,543)*y(k,131))*y(k,71) & - +rxt(k,518)*y(k,86)*y(k,19) +rxt(k,595)*y(k,134)*y(k,30) - loss(k,23) = (rxt(k,511)* y(k,122) + rxt(k,49) + het_rates(k,31))* y(k,31) - prod(k,23) = (rxt(k,476)*y(k,8) +rxt(k,478)*y(k,11) + & - 2.000_r8*rxt(k,479)*y(k,12) +2.000_r8*rxt(k,480)*y(k,13) + & - rxt(k,481)*y(k,14) +rxt(k,502)*y(k,9) +2.000_r8*rxt(k,504)*y(k,40) + & - rxt(k,528)*y(k,45) +rxt(k,529)*y(k,46))*y(k,122) & - + (rxt(k,523)*y(k,45) +rxt(k,524)*y(k,46))*y(k,131) - loss(k,25) = (rxt(k,512)* y(k,122) + rxt(k,50) + het_rates(k,32))* y(k,32) - prod(k,25) = (rxt(k,477)*y(k,10) +rxt(k,478)*y(k,11) +rxt(k,527)*y(k,44)) & - *y(k,122) +rxt(k,522)*y(k,131)*y(k,44) - loss(k,32) = (rxt(k,556)* y(k,62) + (rxt(k,557) +rxt(k,558))* y(k,131) & - + het_rates(k,33))* y(k,33) - prod(k,32) = 0._r8 - loss(k,3) = ( + het_rates(k,34))* y(k,34) - prod(k,3) = 0._r8 - loss(k,4) = ( + het_rates(k,35))* y(k,35) - prod(k,4) = 0._r8 - loss(k,5) = ( + het_rates(k,36))* y(k,36) - prod(k,5) = 0._r8 - loss(k,53) = (rxt(k,507)* y(k,22) +rxt(k,508)* y(k,39) +rxt(k,510)* y(k,49) & - +rxt(k,509)* y(k,137) + het_rates(k,37))* y(k,37) - prod(k,53) = (rxt(k,480)*y(k,13) +rxt(k,502)*y(k,9) + & - 2.000_r8*rxt(k,511)*y(k,31) +rxt(k,512)*y(k,32))*y(k,122) & - +2.000_r8*rxt(k,49)*y(k,31) +rxt(k,50)*y(k,32) +rxt(k,57)*y(k,48) - loss(k,113) = (rxt(k,411)* y(k,68) +rxt(k,414)* y(k,69) +rxt(k,105)* y(k,87) & - +rxt(k,117)* y(k,91) +rxt(k,129)* y(k,94) + (rxt(k,408) + & - rxt(k,409) +rxt(k,410))* y(k,98) +rxt(k,287)* y(k,108) +rxt(k,309) & - * y(k,119) +rxt(k,317)* y(k,125) +rxt(k,331)* y(k,128) +rxt(k,344) & - * y(k,132) + het_rates(k,38))* y(k,38) - prod(k,113) = (rxt(k,141)*y(k,95) +rxt(k,147)*y(k,87) +rxt(k,158)*y(k,93) + & - rxt(k,162)*y(k,109) +rxt(k,163)*y(k,113) +rxt(k,164)*y(k,88) + & - rxt(k,165)*y(k,111) +rxt(k,166)*y(k,108) +rxt(k,170)*y(k,91) + & - rxt(k,181)*y(k,89) +rxt(k,203)*y(k,97) +rxt(k,214)*y(k,125) + & - rxt(k,225)*y(k,94) +rxt(k,236)*y(k,112) +rxt(k,247)*y(k,92) + & - rxt(k,258)*y(k,91) +rxt(k,260)*y(k,93) +rxt(k,262)*y(k,112) + & - rxt(k,271)*y(k,92))*y(k,102) + (rxt(k,144)*y(k,95) + & - rxt(k,168)*y(k,91) +rxt(k,169)*y(k,89) +rxt(k,172)*y(k,97) + & - rxt(k,173)*y(k,125) +rxt(k,174)*y(k,94) +rxt(k,175)*y(k,112) + & - rxt(k,176)*y(k,92) +rxt(k,177)*y(k,87) +rxt(k,178)*y(k,93) + & - rxt(k,179)*y(k,109) +rxt(k,180)*y(k,113) +rxt(k,182)*y(k,88) + & - rxt(k,183)*y(k,111) +rxt(k,184)*y(k,108) +rxt(k,259)*y(k,92) + & - rxt(k,261)*y(k,93) +rxt(k,263)*y(k,112) +rxt(k,265)*y(k,91))*y(k,104) & - + (rxt(k,186)*y(k,91) +rxt(k,187)*y(k,89) +rxt(k,189)*y(k,97) + & - rxt(k,190)*y(k,125) +rxt(k,191)*y(k,94) +rxt(k,193)*y(k,112) + & - rxt(k,194)*y(k,92) +rxt(k,195)*y(k,87) +rxt(k,196)*y(k,93) + & - rxt(k,197)*y(k,109) +rxt(k,198)*y(k,113) +rxt(k,199)*y(k,88) + & - rxt(k,200)*y(k,111) +rxt(k,201)*y(k,108) +rxt(k,383)*y(k,95)) & - *y(k,100) + (rxt(k,415)*y(k,39) +rxt(k,418)*y(k,67) + & - rxt(k,438)*y(k,54) +rxt(k,532)*y(k,16) +rxt(k,541)*y(k,29) + & - rxt(k,543)*y(k,71) +rxt(k,548)*y(k,74) +rxt(k,553)*y(k,76))*y(k,131) & - + (rxt(k,354)*y(k,133) +rxt(k,389)*y(k,122) +rxt(k,406)*y(k,67) + & - rxt(k,452)*y(k,86) +rxt(k,508)*y(k,37))*y(k,39) & - + (rxt(k,138)*y(k,96) +rxt(k,381)*y(k,105) +rxt(k,382)*y(k,99)) & - *y(k,95) + (rxt(k,539)*y(k,22) +rxt(k,483)*y(k,47) + & - rxt(k,506)*y(k,43))*y(k,122) + (2.000_r8*rxt(k,2) +rxt(k,3))*y(k,137) & - +2.000_r8*rxt(k,21)*y(k,16) +rxt(k,23)*y(k,21) +rxt(k,52)*y(k,43) & - +rxt(k,56)*y(k,47) +rxt(k,57)*y(k,48) - loss(k,77) = (rxt(k,508)* y(k,37) +rxt(k,406)* y(k,67) +rxt(k,452)* y(k,86) & - +rxt(k,389)* y(k,122) +rxt(k,415)* y(k,131) + (rxt(k,353) + & - rxt(k,354))* y(k,133) + het_rates(k,39))* y(k,39) - prod(k,77) =rxt(k,22)*y(k,16) +rxt(k,540)*y(k,122)*y(k,22) & - +rxt(k,408)*y(k,98)*y(k,38) +rxt(k,1)*y(k,137) - loss(k,46) = (rxt(k,407)* y(k,67) +rxt(k,453)* y(k,86) +rxt(k,416)* y(k,131) & - + rxt(k,4) + het_rates(k,41))* y(k,41) - prod(k,46) = (.500_r8*rxt(k,559) +rxt(k,422)*y(k,98))*y(k,98) & - +rxt(k,421)*y(k,131)*y(k,131) - loss(k,22) = ( + rxt(k,100) + het_rates(k,42))* y(k,42) - prod(k,22) =rxt(k,555)*y(k,137)*y(k,78) - loss(k,58) = (rxt(k,499)* y(k,67) + (rxt(k,505) +rxt(k,506))* y(k,122) & - +rxt(k,500)* y(k,131) + rxt(k,52) + het_rates(k,43))* y(k,43) - prod(k,58) = (rxt(k,486)*y(k,16) +rxt(k,487)*y(k,98))*y(k,85) - loss(k,98) = ((rxt(k,569) +rxt(k,574) +rxt(k,579))* y(k,27) + (rxt(k,571) + & - rxt(k,576))* y(k,51) + (rxt(k,564) +rxt(k,570) +rxt(k,575))* y(k,52) & - +rxt(k,470)* y(k,67) +rxt(k,108)* y(k,87) +rxt(k,106)* y(k,88) & - +rxt(k,130)* y(k,94) +rxt(k,289)* y(k,108) + (rxt(k,276) + & - rxt(k,298))* y(k,110) + (rxt(k,482) +rxt(k,483))* y(k,122) & - +rxt(k,318)* y(k,125) +rxt(k,471)* y(k,131) +rxt(k,345)* y(k,132) & - +rxt(k,356)* y(k,133) + rxt(k,56) + het_rates(k,47))* y(k,47) - prod(k,98) = (rxt(k,451)*y(k,22) +rxt(k,513)*y(k,15) +rxt(k,515)*y(k,17) + & - 2.000_r8*rxt(k,518)*y(k,19) +rxt(k,520)*y(k,23) +rxt(k,450)*y(k,16) + & - rxt(k,452)*y(k,39) +rxt(k,453)*y(k,41) +rxt(k,454)*y(k,98) + & - rxt(k,472)*y(k,52))*y(k,86) + (rxt(k,386) +rxt(k,169)*y(k,104) + & - rxt(k,181)*y(k,102) +rxt(k,187)*y(k,100) +rxt(k,205)*y(k,119) + & - rxt(k,222)*y(k,116) +rxt(k,240)*y(k,115) +rxt(k,257)*y(k,126) + & - 2.000_r8*rxt(k,267)*y(k,102) +2.000_r8*rxt(k,268)*y(k,104))*y(k,89) & - + (rxt(k,157)*y(k,126) +rxt(k,163)*y(k,102) +rxt(k,180)*y(k,104) + & - rxt(k,198)*y(k,100) +rxt(k,216)*y(k,119) +rxt(k,233)*y(k,116) + & - rxt(k,251)*y(k,115) +rxt(k,299)*y(k,49))*y(k,113) & - + (rxt(k,105)*y(k,38) +rxt(k,109)*y(k,49))*y(k,87) & - +rxt(k,469)*y(k,131)*y(k,26) - loss(k,26) = ( + rxt(k,57) + het_rates(k,48))* y(k,48) - prod(k,26) = (rxt(k,507)*y(k,22) +rxt(k,508)*y(k,39) +rxt(k,509)*y(k,137) + & - rxt(k,510)*y(k,49))*y(k,37) - loss(k,101) = (rxt(k,510)* y(k,37) +rxt(k,109)* y(k,87) +rxt(k,124)* y(k,91) & - +rxt(k,290)* y(k,108) +rxt(k,300)* y(k,110) +rxt(k,295)* y(k,112) & - +rxt(k,299)* y(k,113) +rxt(k,319)* y(k,125) +rxt(k,447)* y(k,131) & - +rxt(k,357)* y(k,133) + rxt(k,9) + het_rates(k,49))* y(k,49) - prod(k,101) = (rxt(k,275) +2.000_r8*rxt(k,146)*y(k,102) + & - 2.000_r8*rxt(k,167)*y(k,104) +2.000_r8*rxt(k,185)*y(k,100) + & - rxt(k,202)*y(k,119) +rxt(k,220)*y(k,116) +rxt(k,238)*y(k,115) + & - rxt(k,255)*y(k,126) +2.000_r8*rxt(k,269)*y(k,102) + & - 2.000_r8*rxt(k,270)*y(k,104))*y(k,114) + (2.000_r8*rxt(k,560) + & - 2.000_r8*rxt(k,563) +2.000_r8*rxt(k,566) +2.000_r8*rxt(k,577) + & - rxt(k,142)*y(k,102) +rxt(k,145)*y(k,104) +rxt(k,293)*y(k,111) + & - rxt(k,297)*y(k,112))*y(k,56) + (rxt(k,567) +rxt(k,572) +rxt(k,578) + & - rxt(k,569)*y(k,47) +rxt(k,574)*y(k,47) +rxt(k,579)*y(k,47))*y(k,27) & - + (rxt(k,171)*y(k,104) +rxt(k,188)*y(k,100) +rxt(k,192)*y(k,102) + & - rxt(k,264)*y(k,102) +rxt(k,266)*y(k,104) +rxt(k,298)*y(k,47)) & - *y(k,110) + (rxt(k,565) +rxt(k,568) +rxt(k,573))*y(k,5) & - + (rxt(k,562) +rxt(k,530)*y(k,16) +rxt(k,556)*y(k,33))*y(k,62) & - + (.500_r8*rxt(k,561) +rxt(k,446)*y(k,131))*y(k,61) & - + (rxt(k,140)*y(k,101) +rxt(k,143)*y(k,103))*y(k,137) - loss(k,39) = (rxt(k,423)* y(k,131) + rxt(k,10) + rxt(k,11) + rxt(k,448) & - + het_rates(k,50))* y(k,50) - prod(k,39) =rxt(k,444)*y(k,98)*y(k,61) - loss(k,54) = ((rxt(k,571) +rxt(k,576))* y(k,47) +rxt(k,501)* y(k,67) & - + rxt(k,58) + het_rates(k,51))* y(k,51) - prod(k,54) = (rxt(k,565) +rxt(k,568) +rxt(k,573))*y(k,5) +rxt(k,493)*y(k,98) & - *y(k,4) - loss(k,57) = ((rxt(k,564) +rxt(k,570) +rxt(k,575))* y(k,47) +rxt(k,473) & - * y(k,67) +rxt(k,472)* y(k,86) +rxt(k,474)* y(k,131) + rxt(k,59) & - + het_rates(k,52))* y(k,52) - prod(k,57) = (rxt(k,567) +rxt(k,572) +rxt(k,578) +rxt(k,466)*y(k,131)) & - *y(k,27) +rxt(k,461)*y(k,98)*y(k,26) - loss(k,50) = (rxt(k,340)* y(k,131) + rxt(k,12) + het_rates(k,53))* y(k,53) - prod(k,50) = (rxt(k,289)*y(k,47) +rxt(k,290)*y(k,49))*y(k,108) & - +rxt(k,349)*y(k,131)*y(k,60) +rxt(k,305)*y(k,137)*y(k,117) - loss(k,65) = (rxt(k,426)* y(k,60) + (rxt(k,427) +rxt(k,428) +rxt(k,429)) & - * y(k,61) +rxt(k,430)* y(k,68) +rxt(k,592)* y(k,126) +rxt(k,438) & - * y(k,131) + rxt(k,66) + het_rates(k,54))* y(k,54) - prod(k,65) = (rxt(k,424)*y(k,106) +rxt(k,589)*y(k,121))*y(k,67) & - + (.200_r8*rxt(k,583)*y(k,115) +1.100_r8*rxt(k,585)*y(k,107)) & - *y(k,95) +rxt(k,17)*y(k,60) +rxt(k,590)*y(k,121)*y(k,68) +rxt(k,596) & - *y(k,134) - loss(k,64) = (rxt(k,142)* y(k,102) +rxt(k,145)* y(k,104) +rxt(k,293) & - * y(k,111) +rxt(k,297)* y(k,112) + rxt(k,14) + rxt(k,15) + rxt(k,449) & - + rxt(k,560) + rxt(k,563) + rxt(k,566) + rxt(k,577) & - + het_rates(k,56))* y(k,56) - prod(k,64) =rxt(k,445)*y(k,62)*y(k,61) - loss(k,6) = ( + het_rates(k,57))* y(k,57) - prod(k,6) = 0._r8 - loss(k,7) = ( + het_rates(k,58))* y(k,58) - prod(k,7) = 0._r8 - loss(k,8) = ( + het_rates(k,59))* y(k,59) - prod(k,8) = 0._r8 - loss(k,106) = (rxt(k,494)* y(k,4) +rxt(k,534)* y(k,20) +rxt(k,462)* y(k,26) & - +rxt(k,426)* y(k,54) +rxt(k,435)* y(k,62) +rxt(k,441)* y(k,67) & - +rxt(k,440)* y(k,69) + (rxt(k,111) +rxt(k,112))* y(k,90) +rxt(k,280) & - * y(k,91) + (rxt(k,122) +rxt(k,123))* y(k,93) +rxt(k,439)* y(k,98) & - +rxt(k,594)* y(k,126) + (rxt(k,272) +rxt(k,279))* y(k,128) & - +rxt(k,349)* y(k,131) +rxt(k,136)* y(k,133) + rxt(k,16) + rxt(k,17) & - + het_rates(k,60))* y(k,60) - prod(k,106) = (rxt(k,202)*y(k,114) +rxt(k,204)*y(k,91) +rxt(k,205)*y(k,89) + & - rxt(k,206)*y(k,110) +rxt(k,207)*y(k,97) +rxt(k,208)*y(k,125) + & - rxt(k,209)*y(k,94) +rxt(k,210)*y(k,112) +rxt(k,211)*y(k,92) + & - rxt(k,212)*y(k,87) +rxt(k,213)*y(k,93) +rxt(k,215)*y(k,109) + & - rxt(k,216)*y(k,113) +rxt(k,217)*y(k,88) +rxt(k,218)*y(k,111) + & - rxt(k,219)*y(k,108) +rxt(k,308)*y(k,95) +rxt(k,309)*y(k,38))*y(k,119) & - + (rxt(k,220)*y(k,114) +rxt(k,221)*y(k,91) +rxt(k,222)*y(k,89) + & - rxt(k,223)*y(k,110) +rxt(k,224)*y(k,97) +rxt(k,226)*y(k,125) + & - rxt(k,227)*y(k,94) +rxt(k,228)*y(k,112) +rxt(k,229)*y(k,92) + & - rxt(k,230)*y(k,87) +rxt(k,231)*y(k,93) +rxt(k,232)*y(k,109) + & - rxt(k,233)*y(k,113) +rxt(k,234)*y(k,88) +rxt(k,235)*y(k,111) + & - rxt(k,237)*y(k,108) +rxt(k,303)*y(k,95))*y(k,116) & - + (rxt(k,238)*y(k,114) +rxt(k,239)*y(k,91) +rxt(k,240)*y(k,89) + & - rxt(k,241)*y(k,110) +rxt(k,242)*y(k,97) +rxt(k,243)*y(k,125) + & - rxt(k,244)*y(k,94) +rxt(k,245)*y(k,112) +rxt(k,246)*y(k,92) + & - rxt(k,248)*y(k,87) +rxt(k,249)*y(k,93) +rxt(k,250)*y(k,109) + & - rxt(k,251)*y(k,113) +rxt(k,252)*y(k,88) +rxt(k,253)*y(k,111) + & - rxt(k,254)*y(k,108))*y(k,115) + (rxt(k,18) +.500_r8*rxt(k,561) + & - rxt(k,291)*y(k,108) +2.000_r8*rxt(k,428)*y(k,54) + & - rxt(k,431)*y(k,67) +rxt(k,549)*y(k,76))*y(k,61) & - + (rxt(k,304)*y(k,117) +rxt(k,306)*y(k,118) +rxt(k,384)*y(k,120)) & - *y(k,95) + (rxt(k,430)*y(k,68) +rxt(k,438)*y(k,131))*y(k,54) & - +rxt(k,287)*y(k,108)*y(k,38) +rxt(k,12)*y(k,53) & - +2.000_r8*rxt(k,442)*y(k,122)*y(k,55) +rxt(k,15)*y(k,56) +rxt(k,20) & - *y(k,62) +rxt(k,425)*y(k,106)*y(k,68) +rxt(k,593)*y(k,126) & - +rxt(k,606)*y(k,136) - loss(k,94) = (rxt(k,495)* y(k,4) +rxt(k,464)* y(k,26) + (rxt(k,427) + & - rxt(k,428) +rxt(k,429))* y(k,54) +rxt(k,445)* y(k,62) + (rxt(k,431) + & - rxt(k,433))* y(k,67) +rxt(k,432)* y(k,69) +rxt(k,549)* y(k,76) & - +rxt(k,110)* y(k,87) +rxt(k,281)* y(k,91) + (rxt(k,120) +rxt(k,121)) & - * y(k,93) +rxt(k,444)* y(k,98) +rxt(k,291)* y(k,108) +rxt(k,320) & - * y(k,125) + (rxt(k,277) +rxt(k,278))* y(k,128) +rxt(k,446)* y(k,131) & - +rxt(k,346)* y(k,132) +rxt(k,359)* y(k,133) + rxt(k,18) + rxt(k,561) & - + het_rates(k,61))* y(k,61) - prod(k,94) = (rxt(k,112)*y(k,90) +rxt(k,136)*y(k,133) + & - 2.000_r8*rxt(k,435)*y(k,62) +rxt(k,439)*y(k,98) +rxt(k,440)*y(k,69) + & - rxt(k,441)*y(k,67) +rxt(k,462)*y(k,26) +rxt(k,494)*y(k,4) + & - rxt(k,534)*y(k,20))*y(k,60) + (rxt(k,75) +rxt(k,161)*y(k,126) + & - rxt(k,166)*y(k,102) +rxt(k,184)*y(k,104) +rxt(k,201)*y(k,100) + & - rxt(k,219)*y(k,119) +rxt(k,237)*y(k,116) +rxt(k,254)*y(k,115) + & - rxt(k,285)*y(k,86))*y(k,108) + (rxt(k,156)*y(k,126) + & - rxt(k,162)*y(k,102) +rxt(k,179)*y(k,104) +rxt(k,197)*y(k,100) + & - rxt(k,215)*y(k,119) +rxt(k,232)*y(k,116) +rxt(k,250)*y(k,115)) & - *y(k,109) + (rxt(k,19) +rxt(k,434)*y(k,98) +rxt(k,436)*y(k,67) + & - rxt(k,437)*y(k,131))*y(k,62) + (rxt(k,11) +rxt(k,448) + & - rxt(k,423)*y(k,131))*y(k,50) + (rxt(k,14) +rxt(k,449))*y(k,56) & - + (rxt(k,311)*y(k,119) +rxt(k,340)*y(k,53))*y(k,131) +rxt(k,29) & - *y(k,5) +rxt(k,48)*y(k,27) +rxt(k,9)*y(k,49) - loss(k,97) = (rxt(k,530)* y(k,16) +rxt(k,556)* y(k,33) +rxt(k,435)* y(k,60) & - +rxt(k,445)* y(k,61) +rxt(k,436)* y(k,67) +rxt(k,434)* y(k,98) & - +rxt(k,437)* y(k,131) + rxt(k,19) + rxt(k,20) + rxt(k,562) & - + het_rates(k,62))* y(k,62) - prod(k,97) = (rxt(k,152)*y(k,126) +rxt(k,175)*y(k,104) +rxt(k,193)*y(k,100) + & - rxt(k,210)*y(k,119) +rxt(k,228)*y(k,116) +rxt(k,236)*y(k,102) + & - rxt(k,245)*y(k,115) +rxt(k,262)*y(k,102) +rxt(k,263)*y(k,104)) & - *y(k,112) + (rxt(k,160)*y(k,126) +rxt(k,165)*y(k,102) + & - rxt(k,183)*y(k,104) +rxt(k,200)*y(k,100) +rxt(k,218)*y(k,119) + & - rxt(k,235)*y(k,116) +rxt(k,253)*y(k,115))*y(k,111) & - + (rxt(k,157)*y(k,126) +rxt(k,163)*y(k,102) +rxt(k,180)*y(k,104) + & - rxt(k,198)*y(k,100) +rxt(k,216)*y(k,119) +rxt(k,233)*y(k,116) + & - rxt(k,251)*y(k,115))*y(k,113) + (rxt(k,76) +rxt(k,148)*y(k,126) + & - rxt(k,206)*y(k,119) +rxt(k,223)*y(k,116) +rxt(k,241)*y(k,115)) & - *y(k,110) + (rxt(k,47) +rxt(k,463)*y(k,86) +rxt(k,465)*y(k,67) + & - rxt(k,466)*y(k,131))*y(k,27) + (rxt(k,202)*y(k,119) + & - rxt(k,220)*y(k,116) +rxt(k,238)*y(k,115) +rxt(k,255)*y(k,126)) & - *y(k,114) + (rxt(k,14) +rxt(k,15) +rxt(k,449))*y(k,56) + (rxt(k,30) + & - rxt(k,496)*y(k,67))*y(k,5) + (rxt(k,447)*y(k,131) + & - rxt(k,510)*y(k,37))*y(k,49) + (rxt(k,432)*y(k,69) + & - rxt(k,433)*y(k,67))*y(k,61) +rxt(k,286)*y(k,108)*y(k,26) +rxt(k,10) & - *y(k,50) +rxt(k,310)*y(k,119)*y(k,98) - loss(k,9) = ( + het_rates(k,63))* y(k,63) - prod(k,9) = 0._r8 - loss(k,10) = ( + het_rates(k,64))* y(k,64) - prod(k,10) = 0._r8 - loss(k,11) = ( + het_rates(k,65))* y(k,65) - prod(k,11) = 0._r8 - loss(k,12) = ( + het_rates(k,66))* y(k,66) - prod(k,12) = 0._r8 - loss(k,104) = (rxt(k,497)* y(k,4) +rxt(k,496)* y(k,5) +rxt(k,531)* y(k,16) & - +rxt(k,467)* y(k,26) +rxt(k,465)* y(k,27) +rxt(k,406)* y(k,39) & - +rxt(k,407)* y(k,41) +rxt(k,499)* y(k,43) +rxt(k,470)* y(k,47) & - +rxt(k,501)* y(k,51) +rxt(k,473)* y(k,52) +rxt(k,441)* y(k,60) & - + (rxt(k,431) +rxt(k,433))* y(k,61) +rxt(k,436)* y(k,62) & - + 2._r8*rxt(k,404)* y(k,67) +rxt(k,405)* y(k,68) +rxt(k,403) & - * y(k,69) +rxt(k,542)* y(k,71) +rxt(k,113)* y(k,90) +rxt(k,125) & - * y(k,91) +rxt(k,131)* y(k,94) +rxt(k,412)* y(k,98) + (rxt(k,587) + & - rxt(k,588))* y(k,107) +rxt(k,301)* y(k,110) +rxt(k,589)* y(k,121) & - + (rxt(k,324) +rxt(k,325))* y(k,125) + (rxt(k,333) +rxt(k,334)) & - * y(k,128) +rxt(k,336)* y(k,129) +rxt(k,338)* y(k,130) +rxt(k,418) & - * y(k,131) +rxt(k,347)* y(k,132) +rxt(k,360)* y(k,133) + rxt(k,77) & - + rxt(k,78) + rxt(k,79) + rxt(k,80) + rxt(k,81) + rxt(k,82) & - + het_rates(k,67))* y(k,67) - prod(k,104) = (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,122) +rxt(k,393)*y(k,122) + & - rxt(k,430)*y(k,54) +rxt(k,544)*y(k,74) +rxt(k,550)*y(k,76) + & - rxt(k,591)*y(k,121) +rxt(k,598)*y(k,134) +rxt(k,602)*y(k,135)) & - *y(k,68) + (rxt(k,114)*y(k,86) +rxt(k,168)*y(k,104) + & - rxt(k,170)*y(k,102) +rxt(k,186)*y(k,100) +rxt(k,204)*y(k,119) + & - rxt(k,221)*y(k,116) +rxt(k,239)*y(k,115) +rxt(k,256)*y(k,126) + & - rxt(k,258)*y(k,102) +rxt(k,265)*y(k,104))*y(k,91) & - + (rxt(k,153)*y(k,126) +rxt(k,176)*y(k,104) +rxt(k,194)*y(k,100) + & - rxt(k,211)*y(k,119) +rxt(k,229)*y(k,116) +rxt(k,246)*y(k,115) + & - rxt(k,247)*y(k,102) +rxt(k,259)*y(k,104) +rxt(k,271)*y(k,102)) & - *y(k,92) + (rxt(k,155)*y(k,126) +rxt(k,158)*y(k,102) + & - rxt(k,178)*y(k,104) +rxt(k,196)*y(k,100) +rxt(k,213)*y(k,119) + & - rxt(k,231)*y(k,116) +rxt(k,249)*y(k,115) +rxt(k,260)*y(k,102) + & - rxt(k,261)*y(k,104))*y(k,93) + (rxt(k,99) +rxt(k,358) + & - rxt(k,350)*y(k,86) +rxt(k,359)*y(k,61) +rxt(k,363)*y(k,69))*y(k,133) & - + (rxt(k,426)*y(k,60) +rxt(k,427)*y(k,61) +rxt(k,592)*y(k,126)) & - *y(k,54) + (rxt(k,17) +rxt(k,272)*y(k,128))*y(k,60) & - + (rxt(k,583)*y(k,115) +1.150_r8*rxt(k,584)*y(k,126))*y(k,95) & - +rxt(k,28)*y(k,4) +rxt(k,46)*y(k,26) +rxt(k,410)*y(k,98)*y(k,38) & - +rxt(k,15)*y(k,56) +rxt(k,18)*y(k,61) +rxt(k,19)*y(k,62) +rxt(k,8) & - *y(k,69) +rxt(k,60)*y(k,70) +rxt(k,102)*y(k,76) +rxt(k,103)*y(k,77) & - +rxt(k,104)*y(k,78) +rxt(k,597)*y(k,134)*y(k,106) +rxt(k,391) & - *y(k,122) +rxt(k,420)*y(k,131)*y(k,131) +rxt(k,600)*y(k,135) & - +rxt(k,605)*y(k,136) +rxt(k,2)*y(k,137) - loss(k,100) = (rxt(k,411)* y(k,38) +rxt(k,430)* y(k,54) +rxt(k,405)* y(k,67) & - +rxt(k,544)* y(k,74) +rxt(k,550)* y(k,76) +rxt(k,126)* y(k,91) & - + (rxt(k,133) +rxt(k,135))* y(k,95) +rxt(k,425)* y(k,106) & - +rxt(k,586)* y(k,107) + (rxt(k,590) +rxt(k,591))* y(k,121) & - +rxt(k,392)* y(k,122) +rxt(k,397)* y(k,123) +rxt(k,322)* y(k,125) & - +rxt(k,364)* y(k,126) +rxt(k,362)* y(k,133) +rxt(k,598)* y(k,134) & - +rxt(k,602)* y(k,135) + 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,68))* y(k,68) - prod(k,100) = (rxt(k,8) +rxt(k,132)*y(k,94) +rxt(k,134)*y(k,95) + & - rxt(k,292)*y(k,108) +2.000_r8*rxt(k,302)*y(k,110) + & - rxt(k,323)*y(k,125) +3.000_r8*rxt(k,332)*y(k,128) + & - 2.000_r8*rxt(k,394)*y(k,122) +2.000_r8*rxt(k,403)*y(k,67) + & - 2.000_r8*rxt(k,413)*y(k,98) +rxt(k,414)*y(k,38) + & - rxt(k,419)*y(k,131) +rxt(k,432)*y(k,61) +rxt(k,440)*y(k,60) + & - rxt(k,456)*y(k,86) +rxt(k,488)*y(k,85) +rxt(k,545)*y(k,74) + & - rxt(k,551)*y(k,76))*y(k,69) + (rxt(k,113)*y(k,90) + & - rxt(k,131)*y(k,94) +rxt(k,301)*y(k,110) +rxt(k,325)*y(k,125) + & - 2.000_r8*rxt(k,333)*y(k,128) +rxt(k,334)*y(k,128) + & - rxt(k,336)*y(k,129) +rxt(k,360)*y(k,133) +rxt(k,396)*y(k,123) + & - rxt(k,404)*y(k,67) +rxt(k,412)*y(k,98) +rxt(k,418)*y(k,131) + & - rxt(k,431)*y(k,61) +rxt(k,436)*y(k,62) +rxt(k,467)*y(k,26) + & - rxt(k,497)*y(k,4))*y(k,67) + (rxt(k,148)*y(k,110) + & - rxt(k,149)*y(k,97) +2.000_r8*rxt(k,151)*y(k,94) + & - rxt(k,152)*y(k,112) +rxt(k,153)*y(k,92) +rxt(k,154)*y(k,87) + & - rxt(k,155)*y(k,93) +rxt(k,156)*y(k,109) +rxt(k,157)*y(k,113) + & - rxt(k,159)*y(k,88) +rxt(k,160)*y(k,111) +rxt(k,161)*y(k,108) + & - rxt(k,255)*y(k,114) +rxt(k,256)*y(k,91) +rxt(k,257)*y(k,89) + & - rxt(k,594)*y(k,60))*y(k,126) + (rxt(k,93) +rxt(k,137) + & - rxt(k,173)*y(k,104) +rxt(k,190)*y(k,100) +rxt(k,208)*y(k,119) + & - rxt(k,214)*y(k,102) +rxt(k,226)*y(k,116) +rxt(k,243)*y(k,115) + & - rxt(k,314)*y(k,86) +rxt(k,315)*y(k,26) +rxt(k,320)*y(k,61) + & - 2.000_r8*rxt(k,321)*y(k,123))*y(k,125) + (rxt(k,116)*y(k,91) + & - rxt(k,128)*y(k,94) +rxt(k,351)*y(k,133) +rxt(k,458)*y(k,26) + & - rxt(k,459)*y(k,26) +rxt(k,461)*y(k,98) +rxt(k,469)*y(k,131) + & - rxt(k,491)*y(k,4) +rxt(k,492)*y(k,4))*y(k,26) + (rxt(k,408)*y(k,38) + & - rxt(k,417)*y(k,131) +rxt(k,422)*y(k,98) +rxt(k,434)*y(k,62) + & - rxt(k,454)*y(k,86) +rxt(k,487)*y(k,85) +rxt(k,493)*y(k,4) + & - rxt(k,533)*y(k,20))*y(k,98) + (rxt(k,127)*y(k,86) + & - rxt(k,174)*y(k,104) +rxt(k,191)*y(k,100) +rxt(k,209)*y(k,119) + & - rxt(k,225)*y(k,102) +rxt(k,227)*y(k,116) +rxt(k,244)*y(k,115)) & - *y(k,94) + (rxt(k,95) +rxt(k,330)*y(k,30) +rxt(k,277)*y(k,61) + & - rxt(k,279)*y(k,60) +rxt(k,331)*y(k,38))*y(k,128) + (rxt(k,387) + & - rxt(k,395) +2.000_r8*rxt(k,339)*y(k,130) + & - 2.000_r8*rxt(k,397)*y(k,68))*y(k,123) + (rxt(k,326)*y(k,95) + & - rxt(k,327)*y(k,137) +rxt(k,328)*y(k,137))*y(k,127) + (rxt(k,97) + & - rxt(k,335)*y(k,30))*y(k,129) + (rxt(k,337)*y(k,137) + & - 2.000_r8*rxt(k,380)*y(k,95))*y(k,130) +rxt(k,489)*y(k,4)*y(k,4) & - +rxt(k,423)*y(k,131)*y(k,50) +rxt(k,429)*y(k,61)*y(k,54) & - +rxt(k,443)*y(k,122)*y(k,55) +rxt(k,20)*y(k,62) +rxt(k,388)*y(k,124) - loss(k,99) = (rxt(k,414)* y(k,38) +rxt(k,440)* y(k,60) +rxt(k,432)* y(k,61) & - +rxt(k,403)* y(k,67) +rxt(k,545)* y(k,74) +rxt(k,551)* y(k,76) & - +rxt(k,488)* y(k,85) +rxt(k,456)* y(k,86) +rxt(k,132)* y(k,94) & - +rxt(k,134)* y(k,95) +rxt(k,413)* y(k,98) +rxt(k,292)* y(k,108) & - +rxt(k,302)* y(k,110) +rxt(k,394)* y(k,122) +rxt(k,323)* y(k,125) & - +rxt(k,332)* y(k,128) +rxt(k,419)* y(k,131) +rxt(k,348)* y(k,132) & - +rxt(k,363)* y(k,133) + rxt(k,7) + rxt(k,8) + het_rates(k,69)) & - * y(k,69) - prod(k,99) = (rxt(k,324)*y(k,125) +rxt(k,338)*y(k,130) +rxt(k,405)*y(k,68)) & - *y(k,67) + (rxt(k,96) +rxt(k,278)*y(k,61))*y(k,128) & - +rxt(k,361)*y(k,133)*y(k,123) - loss(k,33) = (rxt(k,552)* y(k,76) + rxt(k,60) + het_rates(k,70))* y(k,70) - prod(k,33) = (rxt(k,460)*y(k,26) +rxt(k,490)*y(k,4))*y(k,26) - loss(k,34) = (rxt(k,542)* y(k,67) +rxt(k,543)* y(k,131) + rxt(k,101) & - + het_rates(k,71))* y(k,71) - prod(k,34) = 0._r8 - loss(k,13) = ( + het_rates(k,72))* y(k,72) - prod(k,13) = 0._r8 - loss(k,14) = ( + het_rates(k,73))* y(k,73) - prod(k,14) = 0._r8 - loss(k,49) = (rxt(k,544)* y(k,68) +rxt(k,545)* y(k,69) +rxt(k,548)* y(k,131) & - + het_rates(k,74))* y(k,74) - prod(k,49) =rxt(k,101)*y(k,71) +rxt(k,102)*y(k,76) - loss(k,70) = (rxt(k,546)* y(k,4) +rxt(k,547)* y(k,26) +rxt(k,549)* y(k,61) & - +rxt(k,550)* y(k,68) +rxt(k,551)* y(k,69) +rxt(k,552)* y(k,70) & - +rxt(k,553)* y(k,131) + rxt(k,102) + het_rates(k,76))* y(k,76) - prod(k,70) = (rxt(k,544)*y(k,68) +rxt(k,545)*y(k,69) +rxt(k,548)*y(k,131)) & - *y(k,74) +rxt(k,542)*y(k,71)*y(k,67) +rxt(k,103)*y(k,77) - loss(k,60) = (rxt(k,554)* y(k,131) + rxt(k,103) + het_rates(k,77))* y(k,77) - prod(k,60) = (rxt(k,546)*y(k,4) +rxt(k,547)*y(k,26) +rxt(k,549)*y(k,61) + & - rxt(k,550)*y(k,68) +rxt(k,551)*y(k,69) +rxt(k,552)*y(k,70) + & - rxt(k,553)*y(k,131))*y(k,76) + (rxt(k,556)*y(k,62) + & - rxt(k,557)*y(k,131) +.500_r8*rxt(k,558)*y(k,131))*y(k,33) & - +rxt(k,543)*y(k,131)*y(k,71) +rxt(k,104)*y(k,78) - loss(k,29) = (rxt(k,555)* y(k,137) + rxt(k,104) + het_rates(k,78))* y(k,78) - prod(k,29) =rxt(k,100)*y(k,42) +rxt(k,554)*y(k,131)*y(k,77) - loss(k,15) = ( + het_rates(k,79))* y(k,79) - prod(k,15) = 0._r8 - loss(k,16) = ( + het_rates(k,80))* y(k,80) - prod(k,16) = 0._r8 - loss(k,17) = ( + het_rates(k,81))* y(k,81) - prod(k,17) = 0._r8 - loss(k,18) = ( + het_rates(k,82))* y(k,82) - prod(k,18) = 0._r8 - 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) - prod(k,20) = 0._r8 - loss(k,75) = (rxt(k,486)* y(k,16) +rxt(k,488)* y(k,69) +rxt(k,487)* y(k,98) & - + het_rates(k,85))* y(k,85) - prod(k,75) = (rxt(k,28) +2.000_r8*rxt(k,489)*y(k,4) +rxt(k,490)*y(k,26) + & - rxt(k,491)*y(k,26) +rxt(k,494)*y(k,60) +rxt(k,497)*y(k,67) + & - rxt(k,498)*y(k,131) +rxt(k,546)*y(k,76))*y(k,4) & - + (rxt(k,476)*y(k,8) +rxt(k,502)*y(k,9) + & - 3.000_r8*rxt(k,503)*y(k,23) +2.000_r8*rxt(k,504)*y(k,40) + & - 2.000_r8*rxt(k,525)*y(k,15) +rxt(k,526)*y(k,17) +rxt(k,505)*y(k,43)) & - *y(k,122) + (2.000_r8*rxt(k,514)*y(k,15) +rxt(k,516)*y(k,17) + & - 3.000_r8*rxt(k,521)*y(k,23) +rxt(k,500)*y(k,43))*y(k,131) & - + (2.000_r8*rxt(k,513)*y(k,15) +rxt(k,515)*y(k,17) + & - 3.000_r8*rxt(k,520)*y(k,23))*y(k,86) + (rxt(k,52) + & - rxt(k,499)*y(k,67))*y(k,43) +rxt(k,27)*y(k,3) +rxt(k,30)*y(k,5) & - +rxt(k,58)*y(k,51) - loss(k,105) = (rxt(k,513)* y(k,15) +rxt(k,450)* y(k,16) +rxt(k,515)* y(k,17) & - +rxt(k,518)* y(k,19) +rxt(k,451)* y(k,22) +rxt(k,520)* y(k,23) & - +rxt(k,463)* y(k,27) +rxt(k,452)* y(k,39) +rxt(k,453)* y(k,41) & - +rxt(k,472)* y(k,52) +rxt(k,456)* y(k,69) + (rxt(k,114) +rxt(k,115)) & - * y(k,91) +rxt(k,127)* y(k,94) + (rxt(k,454) +rxt(k,455))* y(k,98) & - +rxt(k,285)* y(k,108) +rxt(k,314)* y(k,125) +rxt(k,341)* y(k,132) & - +rxt(k,350)* y(k,133) + het_rates(k,86))* y(k,86) - prod(k,105) = (4.000_r8*rxt(k,475)*y(k,7) +rxt(k,476)*y(k,8) + & - 2.000_r8*rxt(k,477)*y(k,10) +2.000_r8*rxt(k,478)*y(k,11) + & - 2.000_r8*rxt(k,479)*y(k,12) +rxt(k,480)*y(k,13) + & - 2.000_r8*rxt(k,481)*y(k,14) +rxt(k,527)*y(k,44) +rxt(k,528)*y(k,45) + & - rxt(k,529)*y(k,46) +rxt(k,482)*y(k,47) +rxt(k,512)*y(k,32))*y(k,122) & - + (rxt(k,46) +rxt(k,457)*y(k,20) +2.000_r8*rxt(k,458)*y(k,26) + & - rxt(k,460)*y(k,26) +rxt(k,462)*y(k,60) +rxt(k,467)*y(k,67) + & - rxt(k,468)*y(k,131) +rxt(k,491)*y(k,4) +rxt(k,547)*y(k,76))*y(k,26) & - + (rxt(k,110)*y(k,61) +rxt(k,147)*y(k,102) +rxt(k,154)*y(k,126) + & - rxt(k,177)*y(k,104) +rxt(k,195)*y(k,100) +rxt(k,212)*y(k,119) + & - rxt(k,230)*y(k,116) +rxt(k,248)*y(k,115))*y(k,87) & - + (rxt(k,159)*y(k,126) +rxt(k,164)*y(k,102) +rxt(k,182)*y(k,104) + & - rxt(k,199)*y(k,100) +rxt(k,217)*y(k,119) +rxt(k,234)*y(k,116) + & - rxt(k,252)*y(k,115))*y(k,88) + (rxt(k,169)*y(k,104) + & - rxt(k,181)*y(k,102) +rxt(k,187)*y(k,100) +rxt(k,205)*y(k,119) + & - rxt(k,222)*y(k,116) +rxt(k,240)*y(k,115) +rxt(k,257)*y(k,126)) & - *y(k,89) + (3.000_r8*rxt(k,517)*y(k,18) +rxt(k,519)*y(k,19) + & - rxt(k,522)*y(k,44) +rxt(k,523)*y(k,45) +rxt(k,524)*y(k,46) + & - rxt(k,471)*y(k,47))*y(k,131) + (rxt(k,56) +rxt(k,470)*y(k,67)) & - *y(k,47) +rxt(k,27)*y(k,3) +2.000_r8*rxt(k,44)*y(k,24) & - +2.000_r8*rxt(k,45)*y(k,25) +rxt(k,47)*y(k,27) +rxt(k,50)*y(k,32) & - +rxt(k,59)*y(k,52) +rxt(k,111)*y(k,90)*y(k,60) - loss(k,86) = (rxt(k,105)* y(k,38) +rxt(k,108)* y(k,47) +rxt(k,109)* y(k,49) & - +rxt(k,110)* y(k,61) +rxt(k,195)* y(k,100) +rxt(k,147)* y(k,102) & - +rxt(k,177)* y(k,104) +rxt(k,248)* y(k,115) +rxt(k,230)* y(k,116) & - +rxt(k,212)* y(k,119) +rxt(k,154)* y(k,126) +rxt(k,107)* y(k,137) & - + het_rates(k,87))* y(k,87) - prod(k,86) = (rxt(k,130)*y(k,94) +rxt(k,289)*y(k,108) +rxt(k,298)*y(k,110) + & - rxt(k,318)*y(k,125) +rxt(k,345)*y(k,132) +rxt(k,356)*y(k,133)) & - *y(k,47) + (rxt(k,114)*y(k,91) +rxt(k,127)*y(k,94) + & - rxt(k,285)*y(k,108) +rxt(k,314)*y(k,125) +rxt(k,341)*y(k,132) + & - rxt(k,350)*y(k,133))*y(k,86) + (rxt(k,116)*y(k,91) + & - rxt(k,286)*y(k,108) +rxt(k,351)*y(k,133))*y(k,26) & - + (rxt(k,112)*y(k,60) +rxt(k,113)*y(k,67))*y(k,90) +rxt(k,385) & - *y(k,88) +rxt(k,386)*y(k,89) - loss(k,72) = (rxt(k,106)* y(k,47) +rxt(k,199)* y(k,100) +rxt(k,164)* y(k,102) & - +rxt(k,182)* y(k,104) +rxt(k,252)* y(k,115) +rxt(k,234)* y(k,116) & - +rxt(k,217)* y(k,119) +rxt(k,159)* y(k,126) + rxt(k,385) & - + het_rates(k,88))* y(k,88) - prod(k,72) =rxt(k,107)*y(k,137)*y(k,87) - loss(k,71) = (rxt(k,187)* y(k,100) + (rxt(k,181) +rxt(k,267))* y(k,102) & - + (rxt(k,169) +rxt(k,268))* y(k,104) +rxt(k,240)* y(k,115) & - +rxt(k,222)* y(k,116) +rxt(k,205)* y(k,119) +rxt(k,257)* y(k,126) & - + rxt(k,386) + het_rates(k,89))* y(k,89) - prod(k,71) = (rxt(k,106)*y(k,88) +rxt(k,108)*y(k,87))*y(k,47) - loss(k,63) = ((rxt(k,111) +rxt(k,112))* y(k,60) +rxt(k,113)* y(k,67) & - + het_rates(k,90))* y(k,90) - prod(k,63) = (rxt(k,128)*y(k,94) +rxt(k,315)*y(k,125) +rxt(k,342)*y(k,132)) & - *y(k,26) +rxt(k,115)*y(k,91)*y(k,86) - loss(k,90) = (rxt(k,116)* y(k,26) +rxt(k,117)* y(k,38) +rxt(k,124)* y(k,49) & - +rxt(k,280)* y(k,60) +rxt(k,281)* y(k,61) +rxt(k,125)* y(k,67) & - +rxt(k,126)* y(k,68) + (rxt(k,114) +rxt(k,115))* y(k,86) +rxt(k,186) & - * y(k,100) + (rxt(k,170) +rxt(k,258))* y(k,102) + (rxt(k,168) + & - rxt(k,265))* y(k,104) +rxt(k,239)* y(k,115) +rxt(k,221)* y(k,116) & - +rxt(k,204)* y(k,119) +rxt(k,256)* y(k,126) +rxt(k,119)* y(k,137) & - + rxt(k,63) + het_rates(k,91))* y(k,91) - prod(k,90) = (rxt(k,330)*y(k,128) +rxt(k,352)*y(k,133))*y(k,30) & - + (rxt(k,64) +rxt(k,283))*y(k,93) + (rxt(k,129)*y(k,38) + & - rxt(k,131)*y(k,67))*y(k,94) - loss(k,69) = (rxt(k,194)* y(k,100) + (rxt(k,247) +rxt(k,271))* y(k,102) & - + (rxt(k,176) +rxt(k,259))* y(k,104) +rxt(k,246)* y(k,115) & - +rxt(k,229)* y(k,116) +rxt(k,211)* y(k,119) +rxt(k,153)* y(k,126) & - + rxt(k,284) + het_rates(k,92))* y(k,92) - prod(k,69) =rxt(k,118)*y(k,137)*y(k,93) - loss(k,80) = ((rxt(k,122) +rxt(k,123))* y(k,60) + (rxt(k,120) +rxt(k,121)) & - * y(k,61) +rxt(k,196)* y(k,100) + (rxt(k,158) +rxt(k,260))* y(k,102) & - + (rxt(k,178) +rxt(k,261))* y(k,104) +rxt(k,249)* y(k,115) & - +rxt(k,231)* y(k,116) +rxt(k,213)* y(k,119) +rxt(k,155)* y(k,126) & - +rxt(k,118)* y(k,137) + rxt(k,64) + rxt(k,283) + het_rates(k,93)) & - * y(k,93) - prod(k,80) =rxt(k,119)*y(k,137)*y(k,91) +rxt(k,284)*y(k,92) - loss(k,85) = (rxt(k,128)* y(k,26) +rxt(k,129)* y(k,38) +rxt(k,130)* y(k,47) & - +rxt(k,131)* y(k,67) +rxt(k,132)* y(k,69) +rxt(k,127)* y(k,86) & - +rxt(k,191)* y(k,100) +rxt(k,225)* y(k,102) +rxt(k,174)* y(k,104) & - +rxt(k,244)* y(k,115) +rxt(k,227)* y(k,116) +rxt(k,209)* y(k,119) & - +rxt(k,151)* y(k,126) + rxt(k,65) + het_rates(k,94))* y(k,94) - prod(k,85) = (rxt(k,316)*y(k,125) +rxt(k,335)*y(k,129))*y(k,30) - loss(k,107) = ((rxt(k,133) +rxt(k,135))* y(k,68) +rxt(k,134)* y(k,69) & - +rxt(k,138)* y(k,96) +rxt(k,382)* y(k,99) +rxt(k,383)* y(k,100) & - +rxt(k,141)* y(k,102) +rxt(k,144)* y(k,104) +rxt(k,381)* y(k,105) & - +rxt(k,585)* y(k,107) +rxt(k,583)* y(k,115) +rxt(k,303)* y(k,116) & - +rxt(k,304)* y(k,117) +rxt(k,306)* y(k,118) +rxt(k,308)* y(k,119) & - +rxt(k,384)* y(k,120) +rxt(k,584)* y(k,126) +rxt(k,326)* y(k,127) & - +rxt(k,380)* y(k,130) + het_rates(k,95))* y(k,95) - prod(k,107) = (rxt(k,77) +rxt(k,78) +rxt(k,79) +rxt(k,80) +rxt(k,81) + & - rxt(k,82) +rxt(k,324)*y(k,125) +rxt(k,333)*y(k,128) + & - rxt(k,347)*y(k,132) +rxt(k,360)*y(k,133))*y(k,67) + (rxt(k,83) + & - rxt(k,84) +rxt(k,85) +rxt(k,86) +rxt(k,87) +rxt(k,90) +rxt(k,91) + & - rxt(k,92))*y(k,68) + (rxt(k,99) +rxt(k,358) +rxt(k,136)*y(k,60) + & - rxt(k,353)*y(k,39) +rxt(k,361)*y(k,123))*y(k,133) + (rxt(k,93) + & - rxt(k,137) +rxt(k,317)*y(k,38) +rxt(k,321)*y(k,123))*y(k,125) & - + (rxt(k,105)*y(k,87) +rxt(k,344)*y(k,132))*y(k,38) + (rxt(k,96) + & - rxt(k,332)*y(k,69))*y(k,128) +rxt(k,66)*y(k,54) +rxt(k,16)*y(k,60) & - +rxt(k,75)*y(k,108) +rxt(k,76)*y(k,110) +rxt(k,98)*y(k,132) - loss(k,36) = (rxt(k,138)* y(k,95) +rxt(k,139)* y(k,137) + het_rates(k,96)) & - * y(k,96) - prod(k,36) =rxt(k,327)*y(k,137)*y(k,127) - loss(k,67) = (rxt(k,189)* y(k,100) +rxt(k,203)* y(k,102) +rxt(k,172) & - * y(k,104) +rxt(k,242)* y(k,115) +rxt(k,224)* y(k,116) +rxt(k,207) & - * y(k,119) +rxt(k,149)* y(k,126) + het_rates(k,97))* y(k,97) - prod(k,67) =rxt(k,343)*y(k,132)*y(k,30) - loss(k,88) = (rxt(k,493)* y(k,4) +rxt(k,533)* y(k,20) +rxt(k,461)* y(k,26) & - + (rxt(k,408) +rxt(k,409) +rxt(k,410))* y(k,38) +rxt(k,439)* y(k,60) & - +rxt(k,444)* y(k,61) +rxt(k,434)* y(k,62) +rxt(k,412)* y(k,67) & - +rxt(k,413)* y(k,69) +rxt(k,487)* y(k,85) + (rxt(k,454) +rxt(k,455)) & - * y(k,86) + 2._r8*rxt(k,422)* y(k,98) +rxt(k,310)* y(k,119) & - +rxt(k,417)* y(k,131) + rxt(k,559) + het_rates(k,98))* y(k,98) - prod(k,88) = (rxt(k,516)*y(k,17) +rxt(k,519)*y(k,19) +rxt(k,416)*y(k,41) + & - rxt(k,419)*y(k,69) +rxt(k,437)*y(k,62) +rxt(k,468)*y(k,26) + & - rxt(k,498)*y(k,4) +rxt(k,537)*y(k,29) +rxt(k,554)*y(k,77) + & - .500_r8*rxt(k,558)*y(k,33))*y(k,131) + (rxt(k,450)*y(k,86) + & - rxt(k,486)*y(k,85) +rxt(k,530)*y(k,62) +rxt(k,531)*y(k,67))*y(k,16) & - + (rxt(k,515)*y(k,17) +rxt(k,518)*y(k,19) +rxt(k,453)*y(k,41)) & - *y(k,86) + (rxt(k,317)*y(k,38) +rxt(k,318)*y(k,47) + & - rxt(k,319)*y(k,49))*y(k,125) + (rxt(k,457)*y(k,26) + & - rxt(k,534)*y(k,60))*y(k,20) + (rxt(k,11) +rxt(k,448))*y(k,50) & - + (rxt(k,347)*y(k,132) +rxt(k,407)*y(k,41))*y(k,67) & - +rxt(k,539)*y(k,122)*y(k,22) +rxt(k,411)*y(k,68)*y(k,38) & - +rxt(k,130)*y(k,94)*y(k,47) - loss(k,48) = (rxt(k,382)* y(k,95) +rxt(k,374)* y(k,137) + rxt(k,373) & - + het_rates(k,99))* y(k,99) - prod(k,48) = (rxt(k,139)*y(k,96) +rxt(k,372)*y(k,105))*y(k,137) +rxt(k,375) & - *y(k,100) - loss(k,95) = (rxt(k,195)* y(k,87) +rxt(k,199)* y(k,88) +rxt(k,187)* y(k,89) & - +rxt(k,186)* y(k,91) +rxt(k,194)* y(k,92) +rxt(k,196)* y(k,93) & - +rxt(k,191)* y(k,94) +rxt(k,383)* y(k,95) +rxt(k,189)* y(k,97) & - +rxt(k,201)* y(k,108) +rxt(k,197)* y(k,109) +rxt(k,188)* y(k,110) & - +rxt(k,200)* y(k,111) +rxt(k,193)* y(k,112) +rxt(k,198)* y(k,113) & - +rxt(k,185)* y(k,114) +rxt(k,190)* y(k,125) +rxt(k,376)* y(k,137) & - + rxt(k,375) + het_rates(k,100))* y(k,100) - prod(k,95) = (rxt(k,305)*y(k,117) +rxt(k,374)*y(k,99))*y(k,137) +rxt(k,377) & - *y(k,102) - loss(k,30) = (rxt(k,140)* y(k,137) + het_rates(k,101))* y(k,101) - prod(k,30) =rxt(k,142)*y(k,102)*y(k,56) - loss(k,111) = (rxt(k,142)* y(k,56) +rxt(k,147)* y(k,87) +rxt(k,164)* y(k,88) & - + (rxt(k,181) +rxt(k,267))* y(k,89) + (rxt(k,170) +rxt(k,258)) & - * y(k,91) + (rxt(k,247) +rxt(k,271))* y(k,92) + (rxt(k,158) + & - rxt(k,260))* y(k,93) +rxt(k,225)* y(k,94) +rxt(k,141)* y(k,95) & - +rxt(k,203)* y(k,97) +rxt(k,166)* y(k,108) +rxt(k,162)* y(k,109) & - + (rxt(k,192) +rxt(k,264))* y(k,110) +rxt(k,165)* y(k,111) & - + (rxt(k,236) +rxt(k,262))* y(k,112) +rxt(k,163)* y(k,113) & - + (rxt(k,146) +rxt(k,269))* y(k,114) +rxt(k,214)* y(k,125) & - +rxt(k,378)* y(k,137) + rxt(k,377) + het_rates(k,102))* y(k,102) - prod(k,111) = (rxt(k,140)*y(k,101) +rxt(k,376)*y(k,100))*y(k,137) +rxt(k,379) & - *y(k,104) - loss(k,31) = (rxt(k,143)* y(k,137) + het_rates(k,103))* y(k,103) - prod(k,31) =rxt(k,145)*y(k,104)*y(k,56) - loss(k,108) = (rxt(k,145)* y(k,56) +rxt(k,177)* y(k,87) +rxt(k,182)* y(k,88) & - + (rxt(k,169) +rxt(k,268))* y(k,89) + (rxt(k,168) +rxt(k,265)) & - * y(k,91) + (rxt(k,176) +rxt(k,259))* y(k,92) + (rxt(k,178) + & - rxt(k,261))* y(k,93) +rxt(k,174)* y(k,94) +rxt(k,144)* y(k,95) & - +rxt(k,172)* y(k,97) +rxt(k,184)* y(k,108) +rxt(k,179)* y(k,109) & - + (rxt(k,171) +rxt(k,266))* y(k,110) +rxt(k,183)* y(k,111) & - + (rxt(k,175) +rxt(k,263))* y(k,112) +rxt(k,180)* y(k,113) & - + (rxt(k,167) +rxt(k,270))* y(k,114) +rxt(k,173)* y(k,125) & - + rxt(k,379) + het_rates(k,104))* y(k,104) - prod(k,108) = (rxt(k,143)*y(k,103) +rxt(k,378)*y(k,102))*y(k,137) - loss(k,51) = (rxt(k,381)* y(k,95) +rxt(k,372)* y(k,137) + het_rates(k,105)) & - * y(k,105) - prod(k,51) = (rxt(k,309)*y(k,38) +rxt(k,310)*y(k,98) +rxt(k,311)*y(k,131)) & - *y(k,119) +rxt(k,373)*y(k,99) +rxt(k,328)*y(k,137)*y(k,127) - loss(k,55) = (rxt(k,424)* y(k,67) +rxt(k,425)* y(k,68) +rxt(k,597)* y(k,134) & - + het_rates(k,106))* y(k,106) - prod(k,55) = (.800_r8*rxt(k,583)*y(k,115) +.900_r8*rxt(k,585)*y(k,107)) & - *y(k,95) +rxt(k,587)*y(k,107)*y(k,67) - loss(k,47) = ((rxt(k,587) +rxt(k,588))* y(k,67) +rxt(k,586)* y(k,68) & - +rxt(k,585)* y(k,95) + het_rates(k,107))* y(k,107) - prod(k,47) =rxt(k,600)*y(k,135) +rxt(k,605)*y(k,136) - loss(k,91) = (rxt(k,286)* y(k,26) +rxt(k,287)* y(k,38) +rxt(k,289)* y(k,47) & - +rxt(k,290)* y(k,49) +rxt(k,291)* y(k,61) +rxt(k,292)* y(k,69) & - +rxt(k,285)* y(k,86) +rxt(k,201)* y(k,100) +rxt(k,166)* y(k,102) & - +rxt(k,184)* y(k,104) +rxt(k,254)* y(k,115) +rxt(k,237)* y(k,116) & - +rxt(k,219)* y(k,119) +rxt(k,161)* y(k,126) +rxt(k,288)* y(k,137) & - + rxt(k,75) + het_rates(k,108))* y(k,108) - prod(k,91) = (rxt(k,110)*y(k,87) +rxt(k,278)*y(k,128) +rxt(k,320)*y(k,125) + & - rxt(k,346)*y(k,132) +rxt(k,359)*y(k,133))*y(k,61) & - + (rxt(k,111)*y(k,90) +rxt(k,123)*y(k,93) +rxt(k,279)*y(k,128) + & - rxt(k,280)*y(k,91))*y(k,60) + (rxt(k,301)*y(k,67) + & - rxt(k,302)*y(k,69))*y(k,110) +rxt(k,273)*y(k,109) - loss(k,73) = (rxt(k,197)* y(k,100) +rxt(k,162)* y(k,102) +rxt(k,179) & - * y(k,104) +rxt(k,250)* y(k,115) +rxt(k,232)* y(k,116) +rxt(k,215) & - * y(k,119) +rxt(k,156)* y(k,126) + rxt(k,273) + het_rates(k,109)) & - * y(k,109) - prod(k,73) =rxt(k,122)*y(k,93)*y(k,60) +rxt(k,288)*y(k,137)*y(k,108) - loss(k,87) = ((rxt(k,276) +rxt(k,298))* y(k,47) +rxt(k,300)* y(k,49) & - +rxt(k,301)* y(k,67) +rxt(k,302)* y(k,69) +rxt(k,188)* y(k,100) & - + (rxt(k,192) +rxt(k,264))* y(k,102) + (rxt(k,171) +rxt(k,266)) & - * y(k,104) +rxt(k,241)* y(k,115) +rxt(k,223)* y(k,116) +rxt(k,206) & - * y(k,119) +rxt(k,148)* y(k,126) +rxt(k,296)* y(k,137) + rxt(k,76) & - + het_rates(k,110))* y(k,110) - prod(k,87) = (rxt(k,109)*y(k,87) +rxt(k,124)*y(k,91) +rxt(k,290)*y(k,108) + & - rxt(k,319)*y(k,125) +rxt(k,357)*y(k,133))*y(k,49) & - + (rxt(k,120)*y(k,93) +rxt(k,277)*y(k,128) +rxt(k,281)*y(k,91) + & - rxt(k,291)*y(k,108))*y(k,61) +rxt(k,272)*y(k,128)*y(k,60) & - +rxt(k,292)*y(k,108)*y(k,69) +rxt(k,282)*y(k,112) +rxt(k,275) & - *y(k,114) - loss(k,79) = (rxt(k,293)* y(k,56) +rxt(k,200)* y(k,100) +rxt(k,165)* y(k,102) & - +rxt(k,183)* y(k,104) +rxt(k,253)* y(k,115) +rxt(k,235)* y(k,116) & - +rxt(k,218)* y(k,119) +rxt(k,160)* y(k,126) + rxt(k,274) & - + het_rates(k,111))* y(k,111) - prod(k,79) =rxt(k,294)*y(k,137)*y(k,112) - loss(k,81) = (rxt(k,295)* y(k,49) +rxt(k,297)* y(k,56) +rxt(k,193)* y(k,100) & - + (rxt(k,236) +rxt(k,262))* y(k,102) + (rxt(k,175) +rxt(k,263)) & - * y(k,104) +rxt(k,245)* y(k,115) +rxt(k,228)* y(k,116) +rxt(k,210) & - * y(k,119) +rxt(k,152)* y(k,126) +rxt(k,294)* y(k,137) + rxt(k,282) & - + het_rates(k,112))* y(k,112) - prod(k,81) =rxt(k,121)*y(k,93)*y(k,61) +rxt(k,296)*y(k,137)*y(k,110) & - +rxt(k,274)*y(k,111) - loss(k,76) = (rxt(k,299)* y(k,49) +rxt(k,198)* y(k,100) +rxt(k,163)* y(k,102) & - +rxt(k,180)* y(k,104) +rxt(k,251)* y(k,115) +rxt(k,233)* y(k,116) & - +rxt(k,216)* y(k,119) +rxt(k,157)* y(k,126) + het_rates(k,113)) & - * y(k,113) - prod(k,76) =rxt(k,276)*y(k,110)*y(k,47) - loss(k,78) = (rxt(k,185)* y(k,100) + (rxt(k,146) +rxt(k,269))* y(k,102) & - + (rxt(k,167) +rxt(k,270))* y(k,104) +rxt(k,238)* y(k,115) & - +rxt(k,220)* y(k,116) +rxt(k,202)* y(k,119) +rxt(k,255)* y(k,126) & - + rxt(k,275) + het_rates(k,114))* y(k,114) - prod(k,78) = (rxt(k,295)*y(k,112) +rxt(k,299)*y(k,113) +rxt(k,300)*y(k,110)) & - *y(k,49) + (rxt(k,293)*y(k,111) +rxt(k,297)*y(k,112))*y(k,56) - loss(k,92) = (rxt(k,368)* y(k,30) +rxt(k,248)* y(k,87) +rxt(k,252)* y(k,88) & - +rxt(k,240)* y(k,89) +rxt(k,239)* y(k,91) +rxt(k,246)* y(k,92) & - +rxt(k,249)* y(k,93) +rxt(k,244)* y(k,94) +rxt(k,583)* y(k,95) & - +rxt(k,242)* y(k,97) +rxt(k,254)* y(k,108) +rxt(k,250)* y(k,109) & - +rxt(k,241)* y(k,110) +rxt(k,253)* y(k,111) +rxt(k,245)* y(k,112) & - +rxt(k,251)* y(k,113) +rxt(k,238)* y(k,114) +rxt(k,243)* y(k,125) & - +rxt(k,365)* y(k,137) + rxt(k,370) + het_rates(k,115))* y(k,115) - prod(k,92) = (rxt(k,593) +rxt(k,592)*y(k,54) +rxt(k,594)*y(k,60))*y(k,126) & - +rxt(k,16)*y(k,60) +rxt(k,587)*y(k,107)*y(k,67) +rxt(k,591)*y(k,121) & - *y(k,68) +rxt(k,369)*y(k,118) +rxt(k,371)*y(k,120) +rxt(k,596) & - *y(k,134) - loss(k,93) = (rxt(k,230)* y(k,87) +rxt(k,234)* y(k,88) +rxt(k,222)* y(k,89) & - +rxt(k,221)* y(k,91) +rxt(k,229)* y(k,92) +rxt(k,231)* y(k,93) & - +rxt(k,227)* y(k,94) +rxt(k,303)* y(k,95) +rxt(k,224)* y(k,97) & - +rxt(k,237)* y(k,108) +rxt(k,232)* y(k,109) +rxt(k,223)* y(k,110) & - +rxt(k,235)* y(k,111) +rxt(k,228)* y(k,112) +rxt(k,233)* y(k,113) & - +rxt(k,220)* y(k,114) +rxt(k,226)* y(k,125) +rxt(k,367)* y(k,137) & - + het_rates(k,116))* y(k,116) - prod(k,93) =rxt(k,366)*y(k,137)*y(k,119) - loss(k,37) = (rxt(k,304)* y(k,95) +rxt(k,305)* y(k,137) + het_rates(k,117)) & - * y(k,117) - prod(k,37) =rxt(k,367)*y(k,137)*y(k,116) - loss(k,41) = (rxt(k,306)* y(k,95) +rxt(k,307)* y(k,137) + rxt(k,369) & - + het_rates(k,118))* y(k,118) - prod(k,41) = (rxt(k,312)*y(k,120) +rxt(k,368)*y(k,115))*y(k,30) - loss(k,96) = (rxt(k,309)* y(k,38) +rxt(k,212)* y(k,87) +rxt(k,217)* y(k,88) & - +rxt(k,205)* y(k,89) +rxt(k,204)* y(k,91) +rxt(k,211)* y(k,92) & - +rxt(k,213)* y(k,93) +rxt(k,209)* y(k,94) +rxt(k,308)* y(k,95) & - +rxt(k,207)* y(k,97) +rxt(k,310)* y(k,98) +rxt(k,219)* y(k,108) & - +rxt(k,215)* y(k,109) +rxt(k,206)* y(k,110) +rxt(k,218)* y(k,111) & - +rxt(k,210)* y(k,112) +rxt(k,216)* y(k,113) +rxt(k,202)* y(k,114) & - +rxt(k,208)* y(k,125) +rxt(k,311)* y(k,131) +rxt(k,366)* y(k,137) & - + het_rates(k,119))* y(k,119) - prod(k,96) = (rxt(k,307)*y(k,118) +rxt(k,313)*y(k,120) +rxt(k,365)*y(k,115)) & - *y(k,137) - loss(k,40) = (rxt(k,312)* y(k,30) +rxt(k,384)* y(k,95) +rxt(k,313)* y(k,137) & - + rxt(k,371) + het_rates(k,120))* y(k,120) - prod(k,40) =rxt(k,370)*y(k,115) - loss(k,56) = (rxt(k,589)* y(k,67) + (rxt(k,590) +rxt(k,591))* y(k,68) & - + het_rates(k,121))* y(k,121) - prod(k,56) =rxt(k,66)*y(k,54) +rxt(k,597)*y(k,134)*y(k,106) +rxt(k,606) & - *y(k,136) - loss(k,84) = (rxt(k,475)* y(k,7) +rxt(k,476)* y(k,8) +rxt(k,502)* y(k,9) & - +rxt(k,477)* y(k,10) +rxt(k,478)* y(k,11) +rxt(k,479)* y(k,12) & - +rxt(k,480)* y(k,13) +rxt(k,481)* y(k,14) +rxt(k,525)* y(k,15) & - +rxt(k,526)* y(k,17) + (rxt(k,538) +rxt(k,539) +rxt(k,540))* y(k,22) & - +rxt(k,503)* y(k,23) +rxt(k,511)* y(k,31) +rxt(k,512)* y(k,32) & - +rxt(k,389)* y(k,39) +rxt(k,504)* y(k,40) + (rxt(k,505) +rxt(k,506)) & - * y(k,43) +rxt(k,527)* y(k,44) +rxt(k,528)* y(k,45) +rxt(k,529) & - * y(k,46) + (rxt(k,482) +rxt(k,483))* y(k,47) + (rxt(k,442) + & - rxt(k,443))* y(k,55) + (rxt(k,392) +rxt(k,393))* y(k,68) +rxt(k,394) & - * y(k,69) +rxt(k,390)* y(k,137) + rxt(k,391) + het_rates(k,122)) & - * y(k,122) - prod(k,84) = (rxt(k,6) +rxt(k,425)*y(k,106))*y(k,68) +rxt(k,7)*y(k,69) & - +.850_r8*rxt(k,584)*y(k,126)*y(k,95) +rxt(k,1)*y(k,137) - loss(k,59) = (rxt(k,396)* y(k,67) +rxt(k,397)* y(k,68) +rxt(k,321)* y(k,125) & - +rxt(k,339)* y(k,130) +rxt(k,361)* y(k,133) + rxt(k,387) & - + rxt(k,395) + het_rates(k,123))* y(k,123) - prod(k,59) = (rxt(k,399) +rxt(k,398)*y(k,30) +rxt(k,400)*y(k,67) + & - rxt(k,401)*y(k,68) +rxt(k,402)*y(k,69))*y(k,124) +rxt(k,7)*y(k,69) - loss(k,28) = (rxt(k,398)* y(k,30) +rxt(k,400)* y(k,67) +rxt(k,401)* y(k,68) & - +rxt(k,402)* y(k,69) + rxt(k,388) + rxt(k,399) + het_rates(k,124)) & - * y(k,124) - prod(k,28) =rxt(k,392)*y(k,122)*y(k,68) - loss(k,102) = (rxt(k,315)* y(k,26) +rxt(k,316)* y(k,30) +rxt(k,317)* y(k,38) & - +rxt(k,318)* y(k,47) +rxt(k,319)* y(k,49) +rxt(k,320)* y(k,61) & - + (rxt(k,324) +rxt(k,325))* y(k,67) +rxt(k,322)* y(k,68) +rxt(k,323) & - * y(k,69) +rxt(k,314)* y(k,86) +rxt(k,190)* y(k,100) +rxt(k,214) & - * y(k,102) +rxt(k,173)* y(k,104) +rxt(k,243)* y(k,115) +rxt(k,226) & - * y(k,116) +rxt(k,208)* y(k,119) +rxt(k,321)* y(k,123) +rxt(k,150) & - * y(k,126) + rxt(k,93) + rxt(k,137) + het_rates(k,125))* y(k,125) - prod(k,102) = (rxt(k,125)*y(k,91) +rxt(k,334)*y(k,128))*y(k,67) & - + (rxt(k,133)*y(k,95) +rxt(k,135)*y(k,95))*y(k,68) +rxt(k,65) & - *y(k,94) +rxt(k,97)*y(k,129) - loss(k,103) = (rxt(k,592)* y(k,54) +rxt(k,594)* y(k,60) +rxt(k,364)* y(k,68) & - +rxt(k,154)* y(k,87) +rxt(k,159)* y(k,88) +rxt(k,257)* y(k,89) & - +rxt(k,256)* y(k,91) +rxt(k,153)* y(k,92) +rxt(k,155)* y(k,93) & - +rxt(k,151)* y(k,94) +rxt(k,584)* y(k,95) +rxt(k,149)* y(k,97) & - +rxt(k,161)* y(k,108) +rxt(k,156)* y(k,109) +rxt(k,148)* y(k,110) & - +rxt(k,160)* y(k,111) +rxt(k,152)* y(k,112) +rxt(k,157)* y(k,113) & - +rxt(k,255)* y(k,114) +rxt(k,150)* y(k,125) +rxt(k,329)* y(k,137) & - + rxt(k,593) + het_rates(k,126))* y(k,126) - prod(k,103) = (rxt(k,84) +rxt(k,86) +rxt(k,586)*y(k,107) + & - rxt(k,590)*y(k,121) +rxt(k,598)*y(k,134) +rxt(k,602)*y(k,135)) & - *y(k,68) + (rxt(k,338)*y(k,67) +rxt(k,339)*y(k,123))*y(k,130) & - +rxt(k,595)*y(k,134)*y(k,30) +2.000_r8*rxt(k,150)*y(k,126)*y(k,125) & - +rxt(k,94)*y(k,127) - loss(k,52) = (rxt(k,326)* y(k,95) + (rxt(k,327) +rxt(k,328))* y(k,137) & - + rxt(k,94) + het_rates(k,127))* y(k,127) - prod(k,52) = (rxt(k,329)*y(k,126) +rxt(k,337)*y(k,130))*y(k,137) - loss(k,74) = (rxt(k,330)* y(k,30) +rxt(k,331)* y(k,38) + (rxt(k,272) + & - rxt(k,279))* y(k,60) + (rxt(k,277) +rxt(k,278))* y(k,61) & - + (rxt(k,333) +rxt(k,334))* y(k,67) +rxt(k,332)* y(k,69) + rxt(k,95) & - + rxt(k,96) + het_rates(k,128))* y(k,128) - prod(k,74) = (rxt(k,132)*y(k,94) +rxt(k,323)*y(k,125) +rxt(k,348)*y(k,132) + & - rxt(k,363)*y(k,133))*y(k,69) + (rxt(k,126)*y(k,91) + & - rxt(k,362)*y(k,133))*y(k,68) +rxt(k,336)*y(k,129)*y(k,67) - loss(k,38) = (rxt(k,335)* y(k,30) +rxt(k,336)* y(k,67) + rxt(k,97) & - + het_rates(k,129))* y(k,129) - prod(k,38) =rxt(k,322)*y(k,125)*y(k,68) - loss(k,68) = (rxt(k,338)* y(k,67) +rxt(k,380)* y(k,95) +rxt(k,339)* y(k,123) & - +rxt(k,337)* y(k,137) + het_rates(k,130))* y(k,130) - prod(k,68) =rxt(k,364)*y(k,126)*y(k,68) - loss(k,89) = (rxt(k,498)* y(k,4) +rxt(k,514)* y(k,15) +rxt(k,532)* y(k,16) & - +rxt(k,516)* y(k,17) +rxt(k,517)* y(k,18) +rxt(k,519)* y(k,19) & - +rxt(k,535)* y(k,21) +rxt(k,536)* y(k,22) +rxt(k,521)* y(k,23) & - + (rxt(k,468) +rxt(k,469))* y(k,26) +rxt(k,466)* y(k,27) & - + (rxt(k,537) +rxt(k,541))* y(k,29) + (rxt(k,557) +rxt(k,558)) & - * y(k,33) +rxt(k,415)* y(k,39) +rxt(k,416)* y(k,41) +rxt(k,500) & - * y(k,43) +rxt(k,522)* y(k,44) +rxt(k,523)* y(k,45) +rxt(k,524) & - * y(k,46) +rxt(k,471)* y(k,47) +rxt(k,447)* y(k,49) +rxt(k,423) & - * y(k,50) +rxt(k,474)* y(k,52) +rxt(k,340)* y(k,53) +rxt(k,438) & - * y(k,54) +rxt(k,349)* y(k,60) +rxt(k,446)* y(k,61) +rxt(k,437) & - * y(k,62) +rxt(k,418)* y(k,67) +rxt(k,419)* y(k,69) +rxt(k,543) & - * y(k,71) +rxt(k,548)* y(k,74) +rxt(k,553)* y(k,76) +rxt(k,554) & - * y(k,77) +rxt(k,417)* y(k,98) +rxt(k,311)* y(k,119) & - + 2._r8*(rxt(k,420) +rxt(k,421))* y(k,131) + het_rates(k,131)) & - * y(k,131) - prod(k,89) = (rxt(k,406)*y(k,39) +rxt(k,407)*y(k,41) +rxt(k,412)*y(k,98) + & - rxt(k,470)*y(k,47) +rxt(k,473)*y(k,52) +rxt(k,499)*y(k,43) + & - rxt(k,501)*y(k,51) +rxt(k,531)*y(k,16))*y(k,67) & - + (rxt(k,149)*y(k,126) +rxt(k,172)*y(k,104) +rxt(k,189)*y(k,100) + & - rxt(k,203)*y(k,102) +rxt(k,207)*y(k,119) +rxt(k,224)*y(k,116) + & - rxt(k,242)*y(k,115))*y(k,97) + (rxt(k,3) +rxt(k,139)*y(k,96) + & - rxt(k,328)*y(k,127) +rxt(k,355)*y(k,133) + & - 2.000_r8*rxt(k,390)*y(k,122) +rxt(k,509)*y(k,37))*y(k,137) & - + (2.000_r8*rxt(k,409)*y(k,38) +rxt(k,413)*y(k,69) + & - rxt(k,434)*y(k,62) +rxt(k,439)*y(k,60) +rxt(k,455)*y(k,86))*y(k,98) & - + (rxt(k,98) +rxt(k,341)*y(k,86) +rxt(k,342)*y(k,26) + & - rxt(k,346)*y(k,61) +rxt(k,348)*y(k,69))*y(k,132) & - + (rxt(k,538)*y(k,22) +rxt(k,389)*y(k,39) +rxt(k,482)*y(k,47) + & - rxt(k,505)*y(k,43))*y(k,122) + (rxt(k,9) +rxt(k,124)*y(k,91) + & - rxt(k,357)*y(k,133))*y(k,49) + (rxt(k,23) + & - .300_r8*rxt(k,535)*y(k,131))*y(k,21) + (rxt(k,129)*y(k,94) + & - rxt(k,414)*y(k,69))*y(k,38) +2.000_r8*rxt(k,4)*y(k,41) & - +rxt(k,356)*y(k,133)*y(k,47) +rxt(k,10)*y(k,50) +rxt(k,58)*y(k,51) & - +rxt(k,59)*y(k,52) +rxt(k,12)*y(k,53) +.500_r8*rxt(k,561)*y(k,61) & - +rxt(k,138)*y(k,96)*y(k,95) - loss(k,109) = (rxt(k,342)* y(k,26) +rxt(k,343)* y(k,30) +rxt(k,344)* y(k,38) & - +rxt(k,345)* y(k,47) +rxt(k,346)* y(k,61) +rxt(k,347)* y(k,67) & - +rxt(k,348)* y(k,69) +rxt(k,341)* y(k,86) + rxt(k,98) & - + het_rates(k,132))* y(k,132) - prod(k,109) = (rxt(k,117)*y(k,91) +rxt(k,287)*y(k,108) +rxt(k,331)*y(k,128)) & - *y(k,38) + (rxt(k,354)*y(k,39) +rxt(k,355)*y(k,137))*y(k,133) - loss(k,110) = (rxt(k,351)* y(k,26) +rxt(k,352)* y(k,30) + (rxt(k,353) + & - rxt(k,354))* y(k,39) +rxt(k,356)* y(k,47) +rxt(k,357)* y(k,49) & - +rxt(k,136)* y(k,60) +rxt(k,359)* y(k,61) +rxt(k,360)* y(k,67) & - +rxt(k,362)* y(k,68) +rxt(k,363)* y(k,69) +rxt(k,350)* y(k,86) & - +rxt(k,361)* y(k,123) +rxt(k,355)* y(k,137) + rxt(k,99) + rxt(k,358) & - + het_rates(k,133))* y(k,133) - prod(k,110) =rxt(k,325)*y(k,125)*y(k,67) +rxt(k,134)*y(k,95)*y(k,69) & - +rxt(k,63)*y(k,91) +rxt(k,95)*y(k,128) - loss(k,61) = (rxt(k,595)* y(k,30) +rxt(k,598)* y(k,68) +rxt(k,597)* y(k,106) & - + rxt(k,596) + het_rates(k,134))* y(k,134) - prod(k,61) = (rxt(k,77) +rxt(k,81) +rxt(k,588)*y(k,107) + & - rxt(k,589)*y(k,121) +rxt(k,601)*y(k,135) +rxt(k,607)*y(k,136)) & - *y(k,67) + (rxt(k,85) +rxt(k,87))*y(k,68) + (rxt(k,599)*y(k,135) + & - rxt(k,604)*y(k,136))*y(k,95) +rxt(k,581)*y(k,135) +rxt(k,580) & - *y(k,136) - loss(k,43) = (rxt(k,601)* y(k,67) +rxt(k,602)* y(k,68) +rxt(k,599)* y(k,95) & - + rxt(k,581) + rxt(k,600) + het_rates(k,135))* y(k,135) - prod(k,43) = (rxt(k,78) +rxt(k,82))*y(k,67) + (rxt(k,83) +rxt(k,92))*y(k,68) & - + (rxt(k,582) +rxt(k,603)*y(k,95))*y(k,136) - loss(k,42) = (rxt(k,607)* y(k,67) + (rxt(k,603) +rxt(k,604))* y(k,95) & - + rxt(k,580) + rxt(k,582) + rxt(k,605) + rxt(k,606) & - + het_rates(k,136))* y(k,136) - prod(k,42) = (rxt(k,79) +rxt(k,80))*y(k,67) + (rxt(k,90) +rxt(k,91))*y(k,68) - loss(k,114) = (rxt(k,509)* y(k,37) +rxt(k,555)* y(k,78) +rxt(k,107)* y(k,87) & - +rxt(k,119)* y(k,91) +rxt(k,118)* y(k,93) +rxt(k,139)* y(k,96) & - +rxt(k,374)* y(k,99) +rxt(k,376)* y(k,100) +rxt(k,140)* y(k,101) & - +rxt(k,378)* y(k,102) +rxt(k,143)* y(k,103) +rxt(k,372)* y(k,105) & - +rxt(k,288)* y(k,108) +rxt(k,296)* y(k,110) +rxt(k,294)* y(k,112) & - +rxt(k,365)* y(k,115) +rxt(k,367)* y(k,116) +rxt(k,305)* y(k,117) & - +rxt(k,307)* y(k,118) +rxt(k,366)* y(k,119) +rxt(k,313)* y(k,120) & - +rxt(k,390)* y(k,122) +rxt(k,329)* y(k,126) + (rxt(k,327) + & - rxt(k,328))* y(k,127) +rxt(k,337)* y(k,130) +rxt(k,355)* y(k,133) & - + rxt(k,1) + rxt(k,2) + rxt(k,3) + het_rates(k,137))* y(k,137) - prod(k,114) = (rxt(k,377) +4.000_r8*rxt(k,141)*y(k,95) + & - 4.000_r8*rxt(k,146)*y(k,114) +4.000_r8*rxt(k,147)*y(k,87) + & - 5.000_r8*rxt(k,158)*y(k,93) +5.000_r8*rxt(k,162)*y(k,109) + & - 4.000_r8*rxt(k,163)*y(k,113) +5.000_r8*rxt(k,164)*y(k,88) + & - 6.000_r8*rxt(k,165)*y(k,111) +4.000_r8*rxt(k,166)*y(k,108) + & - 4.000_r8*rxt(k,170)*y(k,91) +4.000_r8*rxt(k,181)*y(k,89) + & - 4.000_r8*rxt(k,192)*y(k,110) +4.000_r8*rxt(k,203)*y(k,97) + & - 4.000_r8*rxt(k,214)*y(k,125) +4.000_r8*rxt(k,225)*y(k,94) + & - 5.000_r8*rxt(k,236)*y(k,112) +6.000_r8*rxt(k,247)*y(k,92) + & - 4.000_r8*rxt(k,258)*y(k,91) +5.000_r8*rxt(k,260)*y(k,93) + & - 5.000_r8*rxt(k,262)*y(k,112) +4.000_r8*rxt(k,264)*y(k,110) + & - 4.000_r8*rxt(k,267)*y(k,89) +4.000_r8*rxt(k,269)*y(k,114) + & - 6.000_r8*rxt(k,271)*y(k,92))*y(k,102) + (rxt(k,379) + & - 5.000_r8*rxt(k,144)*y(k,95) +5.000_r8*rxt(k,167)*y(k,114) + & - 5.000_r8*rxt(k,168)*y(k,91) +5.000_r8*rxt(k,169)*y(k,89) + & - 5.000_r8*rxt(k,171)*y(k,110) +5.000_r8*rxt(k,172)*y(k,97) + & - 5.000_r8*rxt(k,173)*y(k,125) +5.000_r8*rxt(k,174)*y(k,94) + & - 6.000_r8*rxt(k,175)*y(k,112) +7.000_r8*rxt(k,176)*y(k,92) + & - 5.000_r8*rxt(k,177)*y(k,87) +6.000_r8*rxt(k,178)*y(k,93) + & - 6.000_r8*rxt(k,179)*y(k,109) +5.000_r8*rxt(k,180)*y(k,113) + & - 6.000_r8*rxt(k,182)*y(k,88) +7.000_r8*rxt(k,183)*y(k,111) + & - 5.000_r8*rxt(k,184)*y(k,108) +7.000_r8*rxt(k,259)*y(k,92) + & - 6.000_r8*rxt(k,261)*y(k,93) +6.000_r8*rxt(k,263)*y(k,112) + & - 5.000_r8*rxt(k,265)*y(k,91) +5.000_r8*rxt(k,266)*y(k,110) + & - 5.000_r8*rxt(k,268)*y(k,89) +5.000_r8*rxt(k,270)*y(k,114))*y(k,104) & - + (rxt(k,375) +3.000_r8*rxt(k,185)*y(k,114) + & - 3.000_r8*rxt(k,186)*y(k,91) +3.000_r8*rxt(k,187)*y(k,89) + & - 3.000_r8*rxt(k,188)*y(k,110) +3.000_r8*rxt(k,189)*y(k,97) + & - 3.000_r8*rxt(k,190)*y(k,125) +3.000_r8*rxt(k,191)*y(k,94) + & - 4.000_r8*rxt(k,193)*y(k,112) +5.000_r8*rxt(k,194)*y(k,92) + & - 3.000_r8*rxt(k,195)*y(k,87) +4.000_r8*rxt(k,196)*y(k,93) + & - 4.000_r8*rxt(k,197)*y(k,109) +3.000_r8*rxt(k,198)*y(k,113) + & - 4.000_r8*rxt(k,199)*y(k,88) +5.000_r8*rxt(k,200)*y(k,111) + & - 3.000_r8*rxt(k,201)*y(k,108) +3.000_r8*rxt(k,383)*y(k,95))*y(k,100) & - + (rxt(k,514)*y(k,15) +rxt(k,516)*y(k,17) +rxt(k,517)*y(k,18) + & - rxt(k,519)*y(k,19) +rxt(k,524)*y(k,46) +rxt(k,536)*y(k,22) + & - rxt(k,340)*y(k,53) +rxt(k,415)*y(k,39) +rxt(k,416)*y(k,41) + & - rxt(k,417)*y(k,98) +rxt(k,420)*y(k,131) +rxt(k,423)*y(k,50) + & - rxt(k,447)*y(k,49) +rxt(k,471)*y(k,47) +rxt(k,474)*y(k,52) + & - rxt(k,500)*y(k,43) +rxt(k,532)*y(k,16) +rxt(k,535)*y(k,21))*y(k,131) & - + (2.000_r8*rxt(k,220)*y(k,114) +2.000_r8*rxt(k,221)*y(k,91) + & - 2.000_r8*rxt(k,222)*y(k,89) +2.000_r8*rxt(k,223)*y(k,110) + & - 2.000_r8*rxt(k,224)*y(k,97) +2.000_r8*rxt(k,226)*y(k,125) + & - 2.000_r8*rxt(k,227)*y(k,94) +3.000_r8*rxt(k,228)*y(k,112) + & - 4.000_r8*rxt(k,229)*y(k,92) +2.000_r8*rxt(k,230)*y(k,87) + & - 3.000_r8*rxt(k,231)*y(k,93) +3.000_r8*rxt(k,232)*y(k,109) + & - 2.000_r8*rxt(k,233)*y(k,113) +3.000_r8*rxt(k,234)*y(k,88) + & - 4.000_r8*rxt(k,235)*y(k,111) +2.000_r8*rxt(k,237)*y(k,108) + & - 2.000_r8*rxt(k,303)*y(k,95))*y(k,116) + (rxt(k,202)*y(k,114) + & - rxt(k,204)*y(k,91) +rxt(k,205)*y(k,89) +rxt(k,206)*y(k,110) + & - rxt(k,207)*y(k,97) +rxt(k,208)*y(k,125) +rxt(k,209)*y(k,94) + & - 2.000_r8*rxt(k,210)*y(k,112) +3.000_r8*rxt(k,211)*y(k,92) + & - rxt(k,212)*y(k,87) +2.000_r8*rxt(k,213)*y(k,93) + & - 2.000_r8*rxt(k,215)*y(k,109) +rxt(k,216)*y(k,113) + & - 2.000_r8*rxt(k,217)*y(k,88) +3.000_r8*rxt(k,218)*y(k,111) + & - rxt(k,219)*y(k,108) +rxt(k,308)*y(k,95))*y(k,119) & - + (rxt(k,106)*y(k,88) +rxt(k,345)*y(k,132) +rxt(k,564)*y(k,52) + & - rxt(k,570)*y(k,52) +rxt(k,571)*y(k,51) +rxt(k,575)*y(k,52) + & - rxt(k,576)*y(k,51))*y(k,47) + (rxt(k,64) +rxt(k,283) + & - rxt(k,120)*y(k,61) +rxt(k,123)*y(k,60) +rxt(k,155)*y(k,126) + & - rxt(k,249)*y(k,115))*y(k,93) + (rxt(k,138)*y(k,96) + & - 3.000_r8*rxt(k,304)*y(k,117) +rxt(k,326)*y(k,127) + & - rxt(k,381)*y(k,105) +2.000_r8*rxt(k,382)*y(k,99))*y(k,95) & - + (rxt(k,245)*y(k,112) +2.000_r8*rxt(k,246)*y(k,92) + & - rxt(k,250)*y(k,109) +rxt(k,252)*y(k,88) + & - 2.000_r8*rxt(k,253)*y(k,111))*y(k,115) + (rxt(k,152)*y(k,112) + & - 2.000_r8*rxt(k,153)*y(k,92) +rxt(k,156)*y(k,109) + & - rxt(k,159)*y(k,88) +2.000_r8*rxt(k,160)*y(k,111))*y(k,126) & - + (rxt(k,344)*y(k,132) +rxt(k,410)*y(k,98))*y(k,38) + (rxt(k,274) + & - rxt(k,293)*y(k,56))*y(k,111) + (rxt(k,282) +rxt(k,295)*y(k,49)) & - *y(k,112) +rxt(k,353)*y(k,133)*y(k,39) +rxt(k,100)*y(k,42) & - +rxt(k,385)*y(k,88) +rxt(k,284)*y(k,92) +rxt(k,373)*y(k,99) & - +rxt(k,273)*y(k,109) +rxt(k,94)*y(k,127) - end do + loss(1) = ( + het_rates(1))* y(1) + prod(1) = 0._r8 + loss(2) = ( + het_rates(2))* y(2) + prod(2) = 0._r8 + loss(76) = (rxt(486)* y(17) +rxt(488)* y(72) +rxt(487)* y(99) + het_rates(3)) & + * y(3) + prod(76) = (rxt(28) +2.000_r8*rxt(489)*y(5) +rxt(490)*y(28) +rxt(491)*y(28) + & + rxt(494)*y(62) +rxt(497)*y(69) +rxt(498)*y(131) +rxt(548)*y(79))*y(5) & + + (rxt(476)*y(9) +rxt(502)*y(10) +3.000_r8*rxt(503)*y(24) + & + 2.000_r8*rxt(504)*y(42) +2.000_r8*rxt(525)*y(16) +rxt(526)*y(18) + & + rxt(505)*y(45))*y(70) + (2.000_r8*rxt(514)*y(16) +rxt(516)*y(18) + & + 3.000_r8*rxt(521)*y(24) +rxt(500)*y(45))*y(131) & + + (2.000_r8*rxt(513)*y(16) +rxt(515)*y(18) +3.000_r8*rxt(520)*y(24)) & + *y(25) + (rxt(52) +rxt(499)*y(69))*y(45) +rxt(27)*y(4) +rxt(30)*y(6) & + +rxt(58)*y(53) + loss(27) = ( + rxt(27) + het_rates(4))* y(4) + prod(27) = (rxt(571)*y(53) +rxt(576)*y(53))*y(49) +rxt(492)*y(28)*y(5) + loss(82) = (2._r8*rxt(489)* y(5) + (rxt(490) +rxt(491) +rxt(492))* y(28) & + +rxt(494)* y(62) +rxt(495)* y(63) +rxt(497)* y(69) +rxt(548)* y(79) & + +rxt(493)* y(99) +rxt(498)* y(131) + rxt(28) + het_rates(5))* y(5) + prod(82) = (rxt(29) +rxt(496)*y(69))*y(6) +rxt(488)*y(72)*y(3) & + +rxt(506)*y(70)*y(45) +rxt(501)*y(69)*y(53) + loss(45) = (rxt(496)* y(69) + rxt(29) + rxt(30) + rxt(565) + rxt(568) & + + rxt(573) + het_rates(6))* y(6) + prod(45) =rxt(495)*y(63)*y(5) + loss(83) = (rxt(486)* y(3) +rxt(450)* y(25) +rxt(530)* y(64) +rxt(531)* y(69) & + +rxt(532)* y(131) + rxt(21) + rxt(22) + het_rates(17))* y(17) + prod(83) = (rxt(457)*y(28) +rxt(534)*y(62))*y(21) + (rxt(23) + & + .300_r8*rxt(535)*y(131))*y(22) + (rxt(539)*y(70) +rxt(540)*y(70)) & + *y(23) + loss(66) = (rxt(457)* y(28) +rxt(534)* y(62) +rxt(533)* y(99) & + + het_rates(21))* y(21) + prod(66) = (rxt(451)*y(25) +rxt(507)*y(39) +rxt(536)*y(131) +rxt(538)*y(70)) & + *y(23) +.700_r8*rxt(535)*y(131)*y(22) + loss(35) = (rxt(535)* y(131) + rxt(23) + het_rates(22))* y(22) + prod(35) =rxt(533)*y(99)*y(21) + loss(100) = (rxt(513)* y(16) +rxt(450)* y(17) +rxt(515)* y(18) +rxt(518) & + * y(20) +rxt(451)* y(23) +rxt(520)* y(24) +rxt(463)* y(29) +rxt(452) & + * y(41) +rxt(453)* y(43) +rxt(472)* y(54) +rxt(456)* y(72) & + + (rxt(114) +rxt(115))* y(92) +rxt(127)* y(95) + (rxt(454) + & + rxt(455))* y(99) +rxt(285)* y(109) +rxt(314)* y(125) +rxt(341) & + * y(132) +rxt(350)* y(133) + het_rates(25))* y(25) + prod(100) = (4.000_r8*rxt(475)*y(8) +rxt(476)*y(9) +2.000_r8*rxt(477)*y(11) + & + 2.000_r8*rxt(478)*y(12) +2.000_r8*rxt(479)*y(13) +rxt(480)*y(14) + & + 2.000_r8*rxt(481)*y(15) +rxt(527)*y(46) +rxt(528)*y(47) + & + rxt(529)*y(48) +rxt(482)*y(49) +rxt(512)*y(34))*y(70) + (rxt(46) + & + rxt(457)*y(21) +2.000_r8*rxt(458)*y(28) +rxt(460)*y(28) + & + rxt(462)*y(62) +rxt(467)*y(69) +rxt(468)*y(131) +rxt(491)*y(5) + & + rxt(549)*y(79))*y(28) + (rxt(110)*y(63) +rxt(147)*y(103) + & + rxt(154)*y(126) +rxt(177)*y(105) +rxt(195)*y(101) +rxt(212)*y(120) + & + rxt(230)*y(117) +rxt(248)*y(116))*y(88) + (rxt(159)*y(126) + & + rxt(164)*y(103) +rxt(182)*y(105) +rxt(199)*y(101) +rxt(217)*y(120) + & + rxt(234)*y(117) +rxt(252)*y(116))*y(89) + (rxt(169)*y(105) + & + rxt(181)*y(103) +rxt(187)*y(101) +rxt(205)*y(120) +rxt(222)*y(117) + & + rxt(240)*y(116) +rxt(257)*y(126))*y(90) + (3.000_r8*rxt(517)*y(19) + & + rxt(519)*y(20) +rxt(522)*y(46) +rxt(523)*y(47) +rxt(524)*y(48) + & + rxt(471)*y(49))*y(131) + (rxt(56) +rxt(470)*y(69))*y(49) +rxt(27) & + *y(4) +2.000_r8*rxt(44)*y(26) +2.000_r8*rxt(45)*y(27) +rxt(47)*y(29) & + +rxt(50)*y(34) +rxt(59)*y(54) +rxt(111)*y(91)*y(62) + loss(24) = ( + rxt(44) + het_rates(26))* y(26) + prod(24) = (rxt(564)*y(54) +rxt(569)*y(29) +rxt(570)*y(54) +rxt(574)*y(29) + & + rxt(575)*y(54) +rxt(579)*y(29))*y(49) +rxt(463)*y(29)*y(25) & + +rxt(459)*y(28)*y(28) + loss(21) = ( + rxt(45) + rxt(485) + het_rates(27))* y(27) + prod(21) =rxt(484)*y(28)*y(28) + loss(106) = ((rxt(490) +rxt(491) +rxt(492))* y(5) +rxt(457)* y(21) & + + 2._r8*(rxt(458) +rxt(459) +rxt(460) +rxt(484))* y(28) +rxt(462) & + * y(62) +rxt(464)* y(63) +rxt(467)* y(69) +rxt(549)* y(79) +rxt(116) & + * y(92) +rxt(128)* y(95) +rxt(461)* y(99) +rxt(286)* y(109) +rxt(315) & + * y(125) + (rxt(468) +rxt(469))* y(131) +rxt(342)* y(132) +rxt(351) & + * y(133) + rxt(46) + het_rates(28))* y(28) + prod(106) = (rxt(455)*y(99) +rxt(456)*y(72) +rxt(472)*y(54))*y(25) & + + (rxt(48) +rxt(465)*y(69))*y(29) + (rxt(473)*y(69) + & + rxt(474)*y(131))*y(54) + (rxt(60) +rxt(554)*y(79))*y(73) & + +2.000_r8*rxt(485)*y(27) +rxt(483)*y(70)*y(49) + loss(62) = (rxt(463)* y(25) + (rxt(569) +rxt(574) +rxt(579))* y(49) +rxt(465) & + * y(69) +rxt(466)* y(131) + rxt(47) + rxt(48) + rxt(567) + rxt(572) & + + rxt(578) + het_rates(29))* y(29) + prod(62) =rxt(464)*y(63)*y(28) + loss(44) = ((rxt(537) +rxt(541))* y(131) + het_rates(31))* y(31) + prod(44) = (rxt(21) +rxt(22) +rxt(450)*y(25) +rxt(486)*y(3) +rxt(530)*y(64) + & + rxt(531)*y(69) +rxt(532)*y(131))*y(17) + (rxt(101) +rxt(544)*y(69) + & + rxt(545)*y(131))*y(74) +rxt(518)*y(25)*y(20) +rxt(595)*y(134)*y(32) + loss(23) = (rxt(511)* y(70) + rxt(49) + het_rates(33))* y(33) + prod(23) = (rxt(476)*y(9) +rxt(478)*y(12) +2.000_r8*rxt(479)*y(13) + & + 2.000_r8*rxt(480)*y(14) +rxt(481)*y(15) +rxt(502)*y(10) + & + 2.000_r8*rxt(504)*y(42) +rxt(528)*y(47) +rxt(529)*y(48))*y(70) & + + (rxt(523)*y(47) +rxt(524)*y(48))*y(131) + loss(25) = (rxt(512)* y(70) + rxt(50) + het_rates(34))* y(34) + prod(25) = (rxt(477)*y(11) +rxt(478)*y(12) +rxt(527)*y(46))*y(70) & + +rxt(522)*y(131)*y(46) + loss(32) = (rxt(542)* y(64) + (rxt(543) +rxt(556))* y(131) + het_rates(35)) & + * y(35) + prod(32) = 0._r8 + loss(3) = ( + het_rates(36))* y(36) + prod(3) = 0._r8 + loss(4) = ( + het_rates(37))* y(37) + prod(4) = 0._r8 + loss(5) = ( + het_rates(38))* y(38) + prod(5) = 0._r8 + loss(53) = (rxt(507)* y(23) +rxt(508)* y(41) +rxt(510)* y(51) +rxt(509) & + * y(137) + het_rates(39))* y(39) + prod(53) = (rxt(480)*y(14) +rxt(502)*y(10) +2.000_r8*rxt(511)*y(33) + & + rxt(512)*y(34))*y(70) +2.000_r8*rxt(49)*y(33) +rxt(50)*y(34) +rxt(57) & + *y(50) + loss(105) = (rxt(411)* y(71) +rxt(414)* y(72) +rxt(105)* y(88) +rxt(117) & + * y(92) +rxt(129)* y(95) + (rxt(408) +rxt(409) +rxt(410))* y(99) & + +rxt(287)* y(109) +rxt(309)* y(120) +rxt(317)* y(125) +rxt(331) & + * y(128) +rxt(344)* y(132) + het_rates(40))* y(40) + prod(105) = (rxt(141)*y(96) +rxt(147)*y(88) +rxt(158)*y(94) + & + rxt(162)*y(110) +rxt(163)*y(114) +rxt(164)*y(89) +rxt(165)*y(112) + & + rxt(166)*y(109) +rxt(170)*y(92) +rxt(181)*y(90) +rxt(203)*y(98) + & + rxt(214)*y(125) +rxt(225)*y(95) +rxt(236)*y(113) +rxt(247)*y(93) + & + rxt(258)*y(92) +rxt(260)*y(94) +rxt(262)*y(113) +rxt(271)*y(93)) & + *y(103) + (rxt(144)*y(96) +rxt(168)*y(92) +rxt(169)*y(90) + & + rxt(172)*y(98) +rxt(173)*y(125) +rxt(174)*y(95) +rxt(175)*y(113) + & + rxt(176)*y(93) +rxt(177)*y(88) +rxt(178)*y(94) +rxt(179)*y(110) + & + rxt(180)*y(114) +rxt(182)*y(89) +rxt(183)*y(112) +rxt(184)*y(109) + & + rxt(259)*y(93) +rxt(261)*y(94) +rxt(263)*y(113) +rxt(265)*y(92)) & + *y(105) + (rxt(186)*y(92) +rxt(187)*y(90) +rxt(189)*y(98) + & + rxt(190)*y(125) +rxt(191)*y(95) +rxt(193)*y(113) +rxt(194)*y(93) + & + rxt(195)*y(88) +rxt(196)*y(94) +rxt(197)*y(110) +rxt(198)*y(114) + & + rxt(199)*y(89) +rxt(200)*y(112) +rxt(201)*y(109) +rxt(383)*y(96)) & + *y(101) + (rxt(415)*y(41) +rxt(418)*y(69) +rxt(438)*y(56) + & + rxt(532)*y(17) +rxt(541)*y(31) +rxt(545)*y(74) +rxt(550)*y(77) + & + rxt(555)*y(79))*y(131) + (rxt(354)*y(133) +rxt(389)*y(70) + & + rxt(406)*y(69) +rxt(452)*y(25) +rxt(508)*y(39))*y(41) & + + (rxt(539)*y(23) +rxt(483)*y(49) +rxt(506)*y(45))*y(70) & + + (rxt(138)*y(97) +rxt(381)*y(106) +rxt(382)*y(100))*y(96) & + + (2.000_r8*rxt(2) +rxt(3))*y(137) +2.000_r8*rxt(21)*y(17) +rxt(23) & + *y(22) +rxt(52)*y(45) +rxt(56)*y(49) +rxt(57)*y(50) + loss(77) = (rxt(452)* y(25) +rxt(508)* y(39) +rxt(406)* y(69) +rxt(389) & + * y(70) +rxt(415)* y(131) + (rxt(353) +rxt(354))* y(133) & + + het_rates(41))* y(41) + prod(77) =rxt(22)*y(17) +rxt(540)*y(70)*y(23) +rxt(408)*y(99)*y(40) +rxt(1) & + *y(137) + loss(46) = (rxt(453)* y(25) +rxt(407)* y(69) +rxt(416)* y(131) + rxt(4) & + + het_rates(43))* y(43) + prod(46) = (.500_r8*rxt(559) +rxt(422)*y(99))*y(99) +rxt(421)*y(131)*y(131) + loss(22) = ( + rxt(100) + het_rates(44))* y(44) + prod(22) =rxt(558)*y(137)*y(81) + loss(57) = (rxt(499)* y(69) + (rxt(505) +rxt(506))* y(70) +rxt(500)* y(131) & + + rxt(52) + het_rates(45))* y(45) + prod(57) = (rxt(486)*y(17) +rxt(487)*y(99))*y(3) + loss(101) = ((rxt(569) +rxt(574) +rxt(579))* y(29) + (rxt(571) +rxt(576)) & + * y(53) + (rxt(564) +rxt(570) +rxt(575))* y(54) +rxt(470)* y(69) & + + (rxt(482) +rxt(483))* y(70) +rxt(108)* y(88) +rxt(106)* y(89) & + +rxt(130)* y(95) +rxt(289)* y(109) + (rxt(276) +rxt(298))* y(111) & + +rxt(318)* y(125) +rxt(471)* y(131) +rxt(345)* y(132) +rxt(356) & + * y(133) + rxt(56) + het_rates(49))* y(49) + prod(101) = (rxt(451)*y(23) +rxt(513)*y(16) +rxt(515)*y(18) + & + 2.000_r8*rxt(518)*y(20) +rxt(520)*y(24) +rxt(450)*y(17) + & + rxt(452)*y(41) +rxt(453)*y(43) +rxt(454)*y(99) +rxt(472)*y(54))*y(25) & + + (rxt(386) +rxt(169)*y(105) +rxt(181)*y(103) +rxt(187)*y(101) + & + rxt(205)*y(120) +rxt(222)*y(117) +rxt(240)*y(116) +rxt(257)*y(126) + & + 2.000_r8*rxt(267)*y(103) +2.000_r8*rxt(268)*y(105))*y(90) & + + (rxt(157)*y(126) +rxt(163)*y(103) +rxt(180)*y(105) + & + rxt(198)*y(101) +rxt(216)*y(120) +rxt(233)*y(117) +rxt(251)*y(116) + & + rxt(299)*y(51))*y(114) + (rxt(105)*y(40) +rxt(109)*y(51))*y(88) & + +rxt(469)*y(131)*y(28) + loss(26) = ( + rxt(57) + het_rates(50))* y(50) + prod(26) = (rxt(507)*y(23) +rxt(508)*y(41) +rxt(509)*y(137) +rxt(510)*y(51)) & + *y(39) + loss(108) = (rxt(510)* y(39) +rxt(109)* y(88) +rxt(124)* y(92) +rxt(290) & + * y(109) +rxt(300)* y(111) +rxt(295)* y(113) +rxt(299)* y(114) & + +rxt(319)* y(125) +rxt(447)* y(131) +rxt(357)* y(133) + rxt(9) & + + het_rates(51))* y(51) + prod(108) = (rxt(275) +2.000_r8*rxt(146)*y(103) +2.000_r8*rxt(167)*y(105) + & + 2.000_r8*rxt(185)*y(101) +rxt(202)*y(120) +rxt(220)*y(117) + & + rxt(238)*y(116) +rxt(255)*y(126) +2.000_r8*rxt(269)*y(103) + & + 2.000_r8*rxt(270)*y(105))*y(115) + (2.000_r8*rxt(560) + & + 2.000_r8*rxt(563) +2.000_r8*rxt(566) +2.000_r8*rxt(577) + & + rxt(142)*y(103) +rxt(145)*y(105) +rxt(293)*y(112) +rxt(297)*y(113)) & + *y(58) + (rxt(567) +rxt(572) +rxt(578) +rxt(569)*y(49) + & + rxt(574)*y(49) +rxt(579)*y(49))*y(29) + (rxt(171)*y(105) + & + rxt(188)*y(101) +rxt(192)*y(103) +rxt(264)*y(103) +rxt(266)*y(105) + & + rxt(298)*y(49))*y(111) + (rxt(565) +rxt(568) +rxt(573))*y(6) & + + (rxt(562) +rxt(530)*y(17) +rxt(542)*y(35))*y(64) & + + (.500_r8*rxt(561) +rxt(446)*y(131))*y(63) + (rxt(140)*y(102) + & + rxt(143)*y(104))*y(137) + loss(39) = (rxt(423)* y(131) + rxt(10) + rxt(11) + rxt(448) + het_rates(52)) & + * y(52) + prod(39) =rxt(444)*y(99)*y(63) + loss(54) = ((rxt(571) +rxt(576))* y(49) +rxt(501)* y(69) + rxt(58) & + + het_rates(53))* y(53) + prod(54) = (rxt(565) +rxt(568) +rxt(573))*y(6) +rxt(493)*y(99)*y(5) + loss(58) = (rxt(472)* y(25) + (rxt(564) +rxt(570) +rxt(575))* y(49) +rxt(473) & + * y(69) +rxt(474)* y(131) + rxt(59) + het_rates(54))* y(54) + prod(58) = (rxt(567) +rxt(572) +rxt(578) +rxt(466)*y(131))*y(29) & + +rxt(461)*y(99)*y(28) + loss(50) = (rxt(340)* y(131) + rxt(12) + het_rates(55))* y(55) + prod(50) = (rxt(289)*y(49) +rxt(290)*y(51))*y(109) +rxt(349)*y(131)*y(62) & + +rxt(305)*y(137)*y(118) + loss(65) = (rxt(426)* y(62) + (rxt(427) +rxt(428) +rxt(429))* y(63) +rxt(430) & + * y(71) +rxt(592)* y(126) +rxt(438)* y(131) + rxt(66) & + + het_rates(56))* y(56) + prod(65) = (rxt(424)*y(107) +rxt(589)*y(122))*y(69) & + + (.200_r8*rxt(583)*y(116) +1.100_r8*rxt(585)*y(108))*y(96) +rxt(17) & + *y(62) +rxt(590)*y(122)*y(71) +rxt(596)*y(134) + loss(64) = (rxt(142)* y(103) +rxt(145)* y(105) +rxt(293)* y(112) +rxt(297) & + * y(113) + rxt(14) + rxt(15) + rxt(449) + rxt(560) + rxt(563) & + + rxt(566) + rxt(577) + het_rates(58))* y(58) + prod(64) =rxt(445)*y(64)*y(63) + loss(6) = ( + het_rates(59))* y(59) + prod(6) = 0._r8 + loss(7) = ( + het_rates(60))* y(60) + prod(7) = 0._r8 + loss(8) = ( + het_rates(61))* y(61) + prod(8) = 0._r8 + loss(98) = (rxt(494)* y(5) +rxt(534)* y(21) +rxt(462)* y(28) +rxt(426)* y(56) & + +rxt(435)* y(64) +rxt(441)* y(69) +rxt(440)* y(72) + (rxt(111) + & + rxt(112))* y(91) +rxt(280)* y(92) + (rxt(122) +rxt(123))* y(94) & + +rxt(439)* y(99) +rxt(594)* y(126) + (rxt(272) +rxt(279))* y(128) & + +rxt(349)* y(131) +rxt(136)* y(133) + rxt(16) + rxt(17) & + + het_rates(62))* y(62) + prod(98) = (rxt(202)*y(115) +rxt(204)*y(92) +rxt(205)*y(90) + & + rxt(206)*y(111) +rxt(207)*y(98) +rxt(208)*y(125) +rxt(209)*y(95) + & + rxt(210)*y(113) +rxt(211)*y(93) +rxt(212)*y(88) +rxt(213)*y(94) + & + rxt(215)*y(110) +rxt(216)*y(114) +rxt(217)*y(89) +rxt(218)*y(112) + & + rxt(219)*y(109) +rxt(308)*y(96) +rxt(309)*y(40))*y(120) & + + (rxt(220)*y(115) +rxt(221)*y(92) +rxt(222)*y(90) + & + rxt(223)*y(111) +rxt(224)*y(98) +rxt(226)*y(125) +rxt(227)*y(95) + & + rxt(228)*y(113) +rxt(229)*y(93) +rxt(230)*y(88) +rxt(231)*y(94) + & + rxt(232)*y(110) +rxt(233)*y(114) +rxt(234)*y(89) +rxt(235)*y(112) + & + rxt(237)*y(109) +rxt(303)*y(96))*y(117) + (rxt(238)*y(115) + & + rxt(239)*y(92) +rxt(240)*y(90) +rxt(241)*y(111) +rxt(242)*y(98) + & + rxt(243)*y(125) +rxt(244)*y(95) +rxt(245)*y(113) +rxt(246)*y(93) + & + rxt(248)*y(88) +rxt(249)*y(94) +rxt(250)*y(110) +rxt(251)*y(114) + & + rxt(252)*y(89) +rxt(253)*y(112) +rxt(254)*y(109))*y(116) + (rxt(18) + & + .500_r8*rxt(561) +rxt(291)*y(109) +2.000_r8*rxt(428)*y(56) + & + rxt(431)*y(69) +rxt(551)*y(79))*y(63) + (rxt(304)*y(118) + & + rxt(306)*y(119) +rxt(384)*y(121))*y(96) + (rxt(430)*y(71) + & + rxt(438)*y(131))*y(56) +rxt(287)*y(109)*y(40) +rxt(12)*y(55) & + +2.000_r8*rxt(442)*y(70)*y(57) +rxt(15)*y(58) +rxt(20)*y(64) & + +rxt(425)*y(107)*y(71) +rxt(593)*y(126) +rxt(606)*y(136) + loss(96) = (rxt(495)* y(5) +rxt(464)* y(28) + (rxt(427) +rxt(428) +rxt(429)) & + * y(56) +rxt(445)* y(64) + (rxt(431) +rxt(433))* y(69) +rxt(432) & + * y(72) +rxt(551)* y(79) +rxt(110)* y(88) +rxt(281)* y(92) & + + (rxt(120) +rxt(121))* y(94) +rxt(444)* y(99) +rxt(291)* y(109) & + +rxt(320)* y(125) + (rxt(277) +rxt(278))* y(128) +rxt(446)* y(131) & + +rxt(346)* y(132) +rxt(359)* y(133) + rxt(18) + rxt(561) & + + het_rates(63))* y(63) + prod(96) = (rxt(112)*y(91) +rxt(136)*y(133) +2.000_r8*rxt(435)*y(64) + & + rxt(439)*y(99) +rxt(440)*y(72) +rxt(441)*y(69) +rxt(462)*y(28) + & + rxt(494)*y(5) +rxt(534)*y(21))*y(62) + (rxt(75) +rxt(161)*y(126) + & + rxt(166)*y(103) +rxt(184)*y(105) +rxt(201)*y(101) +rxt(219)*y(120) + & + rxt(237)*y(117) +rxt(254)*y(116) +rxt(285)*y(25))*y(109) & + + (rxt(156)*y(126) +rxt(162)*y(103) +rxt(179)*y(105) + & + rxt(197)*y(101) +rxt(215)*y(120) +rxt(232)*y(117) +rxt(250)*y(116)) & + *y(110) + (rxt(19) +rxt(434)*y(99) +rxt(436)*y(69) +rxt(437)*y(131)) & + *y(64) + (rxt(11) +rxt(448) +rxt(423)*y(131))*y(52) + (rxt(14) + & + rxt(449))*y(58) + (rxt(311)*y(120) +rxt(340)*y(55))*y(131) +rxt(29) & + *y(6) +rxt(48)*y(29) +rxt(9)*y(51) + loss(113) = (rxt(530)* y(17) +rxt(542)* y(35) +rxt(435)* y(62) +rxt(445) & + * y(63) +rxt(436)* y(69) +rxt(434)* y(99) +rxt(437)* y(131) + rxt(19) & + + rxt(20) + rxt(562) + het_rates(64))* y(64) + prod(113) = (rxt(152)*y(126) +rxt(175)*y(105) +rxt(193)*y(101) + & + rxt(210)*y(120) +rxt(228)*y(117) +rxt(236)*y(103) +rxt(245)*y(116) + & + rxt(262)*y(103) +rxt(263)*y(105))*y(113) + (rxt(160)*y(126) + & + rxt(165)*y(103) +rxt(183)*y(105) +rxt(200)*y(101) +rxt(218)*y(120) + & + rxt(235)*y(117) +rxt(253)*y(116))*y(112) + (rxt(157)*y(126) + & + rxt(163)*y(103) +rxt(180)*y(105) +rxt(198)*y(101) +rxt(216)*y(120) + & + rxt(233)*y(117) +rxt(251)*y(116))*y(114) + (rxt(76) + & + rxt(148)*y(126) +rxt(206)*y(120) +rxt(223)*y(117) +rxt(241)*y(116)) & + *y(111) + (rxt(47) +rxt(463)*y(25) +rxt(465)*y(69) +rxt(466)*y(131)) & + *y(29) + (rxt(202)*y(120) +rxt(220)*y(117) +rxt(238)*y(116) + & + rxt(255)*y(126))*y(115) + (rxt(14) +rxt(15) +rxt(449))*y(58) & + + (rxt(30) +rxt(496)*y(69))*y(6) + (rxt(447)*y(131) +rxt(510)*y(39)) & + *y(51) + (rxt(432)*y(72) +rxt(433)*y(69))*y(63) +rxt(286)*y(109) & + *y(28) +rxt(10)*y(52) +rxt(310)*y(120)*y(99) + loss(9) = ( + het_rates(65))* y(65) + prod(9) = 0._r8 + loss(10) = ( + het_rates(66))* y(66) + prod(10) = 0._r8 + loss(11) = ( + het_rates(67))* y(67) + prod(11) = 0._r8 + loss(12) = ( + het_rates(68))* y(68) + prod(12) = 0._r8 + loss(99) = (rxt(497)* y(5) +rxt(496)* y(6) +rxt(531)* y(17) +rxt(467)* y(28) & + +rxt(465)* y(29) +rxt(406)* y(41) +rxt(407)* y(43) +rxt(499)* y(45) & + +rxt(470)* y(49) +rxt(501)* y(53) +rxt(473)* y(54) +rxt(441)* y(62) & + + (rxt(431) +rxt(433))* y(63) +rxt(436)* y(64) + 2._r8*rxt(404) & + * y(69) +rxt(405)* y(71) +rxt(403)* y(72) +rxt(544)* y(74) +rxt(113) & + * y(91) +rxt(125)* y(92) +rxt(131)* y(95) +rxt(412)* y(99) & + + (rxt(587) +rxt(588))* y(108) +rxt(301)* y(111) +rxt(589)* y(122) & + + (rxt(324) +rxt(325))* y(125) + (rxt(333) +rxt(334))* y(128) & + +rxt(336)* y(129) +rxt(338)* y(130) +rxt(418)* y(131) +rxt(347) & + * y(132) +rxt(360)* y(133) + rxt(77) + rxt(78) + rxt(79) + rxt(80) & + + rxt(81) + rxt(82) + het_rates(69))* y(69) + prod(99) = (2.000_r8*rxt(5) +rxt(6) +rxt(83) +rxt(85) +rxt(87) + & + 2.000_r8*rxt(88) +2.000_r8*rxt(89) +rxt(90) +rxt(91) +rxt(92) + & + rxt(392)*y(70) +rxt(393)*y(70) +rxt(430)*y(56) +rxt(546)*y(77) + & + rxt(552)*y(79) +rxt(591)*y(122) +rxt(598)*y(134) +rxt(602)*y(135)) & + *y(71) + (rxt(114)*y(25) +rxt(168)*y(105) +rxt(170)*y(103) + & + rxt(186)*y(101) +rxt(204)*y(120) +rxt(221)*y(117) +rxt(239)*y(116) + & + rxt(256)*y(126) +rxt(258)*y(103) +rxt(265)*y(105))*y(92) & + + (rxt(153)*y(126) +rxt(176)*y(105) +rxt(194)*y(101) + & + rxt(211)*y(120) +rxt(229)*y(117) +rxt(246)*y(116) +rxt(247)*y(103) + & + rxt(259)*y(105) +rxt(271)*y(103))*y(93) + (rxt(155)*y(126) + & + rxt(158)*y(103) +rxt(178)*y(105) +rxt(196)*y(101) +rxt(213)*y(120) + & + rxt(231)*y(117) +rxt(249)*y(116) +rxt(260)*y(103) +rxt(261)*y(105)) & + *y(94) + (rxt(99) +rxt(358) +rxt(350)*y(25) +rxt(359)*y(63) + & + rxt(363)*y(72))*y(133) + (rxt(426)*y(62) +rxt(427)*y(63) + & + rxt(592)*y(126))*y(56) + (rxt(17) +rxt(272)*y(128))*y(62) & + + (rxt(583)*y(116) +1.150_r8*rxt(584)*y(126))*y(96) +rxt(28)*y(5) & + +rxt(46)*y(28) +rxt(410)*y(99)*y(40) +rxt(15)*y(58) +rxt(18)*y(63) & + +rxt(19)*y(64) +rxt(391)*y(70) +rxt(8)*y(72) +rxt(60)*y(73) & + +rxt(102)*y(79) +rxt(103)*y(80) +rxt(104)*y(81) +rxt(597)*y(134) & + *y(107) +rxt(420)*y(131)*y(131) +rxt(600)*y(135) +rxt(605)*y(136) & + +rxt(2)*y(137) + loss(84) = (rxt(475)* y(8) +rxt(476)* y(9) +rxt(502)* y(10) +rxt(477)* y(11) & + +rxt(478)* y(12) +rxt(479)* y(13) +rxt(480)* y(14) +rxt(481)* y(15) & + +rxt(525)* y(16) +rxt(526)* y(18) + (rxt(538) +rxt(539) +rxt(540)) & + * y(23) +rxt(503)* y(24) +rxt(511)* y(33) +rxt(512)* y(34) +rxt(389) & + * y(41) +rxt(504)* y(42) + (rxt(505) +rxt(506))* y(45) +rxt(527) & + * y(46) +rxt(528)* y(47) +rxt(529)* y(48) + (rxt(482) +rxt(483)) & + * y(49) + (rxt(442) +rxt(443))* y(57) + (rxt(392) +rxt(393))* y(71) & + +rxt(394)* y(72) +rxt(390)* y(137) + rxt(391) + het_rates(70)) & + * y(70) + prod(84) = (rxt(6) +rxt(425)*y(107))*y(71) +rxt(7)*y(72) & + +.850_r8*rxt(584)*y(126)*y(96) +rxt(1)*y(137) + loss(95) = (rxt(411)* y(40) +rxt(430)* y(56) +rxt(405)* y(69) +rxt(392) & + * y(70) +rxt(546)* y(77) +rxt(552)* y(79) +rxt(126)* y(92) & + + (rxt(133) +rxt(135))* y(96) +rxt(425)* y(107) +rxt(586)* y(108) & + + (rxt(590) +rxt(591))* y(122) +rxt(397)* y(123) +rxt(322)* y(125) & + +rxt(364)* y(126) +rxt(362)* y(133) +rxt(598)* y(134) +rxt(602) & + * y(135) + rxt(5) + rxt(6) + rxt(83) + rxt(84) + rxt(85) + rxt(86) & + + rxt(87) + rxt(88) + rxt(89) + rxt(90) + rxt(91) + rxt(92) & + + het_rates(71))* y(71) + prod(95) = (rxt(8) +rxt(132)*y(95) +rxt(134)*y(96) +rxt(292)*y(109) + & + 2.000_r8*rxt(302)*y(111) +rxt(323)*y(125) +3.000_r8*rxt(332)*y(128) + & + 2.000_r8*rxt(394)*y(70) +2.000_r8*rxt(403)*y(69) + & + 2.000_r8*rxt(413)*y(99) +rxt(414)*y(40) +rxt(419)*y(131) + & + rxt(432)*y(63) +rxt(440)*y(62) +rxt(456)*y(25) +rxt(488)*y(3) + & + rxt(547)*y(77) +rxt(553)*y(79))*y(72) + (rxt(113)*y(91) + & + rxt(131)*y(95) +rxt(301)*y(111) +rxt(325)*y(125) + & + 2.000_r8*rxt(333)*y(128) +rxt(334)*y(128) +rxt(336)*y(129) + & + rxt(360)*y(133) +rxt(396)*y(123) +rxt(404)*y(69) +rxt(412)*y(99) + & + rxt(418)*y(131) +rxt(431)*y(63) +rxt(436)*y(64) +rxt(467)*y(28) + & + rxt(497)*y(5))*y(69) + (rxt(148)*y(111) +rxt(149)*y(98) + & + 2.000_r8*rxt(151)*y(95) +rxt(152)*y(113) +rxt(153)*y(93) + & + rxt(154)*y(88) +rxt(155)*y(94) +rxt(156)*y(110) +rxt(157)*y(114) + & + rxt(159)*y(89) +rxt(160)*y(112) +rxt(161)*y(109) +rxt(255)*y(115) + & + rxt(256)*y(92) +rxt(257)*y(90) +rxt(594)*y(62))*y(126) + (rxt(93) + & + rxt(137) +rxt(173)*y(105) +rxt(190)*y(101) +rxt(208)*y(120) + & + rxt(214)*y(103) +rxt(226)*y(117) +rxt(243)*y(116) +rxt(314)*y(25) + & + rxt(315)*y(28) +rxt(320)*y(63) +2.000_r8*rxt(321)*y(123))*y(125) & + + (rxt(116)*y(92) +rxt(128)*y(95) +rxt(351)*y(133) +rxt(458)*y(28) + & + rxt(459)*y(28) +rxt(461)*y(99) +rxt(469)*y(131) +rxt(491)*y(5) + & + rxt(492)*y(5))*y(28) + (rxt(408)*y(40) +rxt(417)*y(131) + & + rxt(422)*y(99) +rxt(434)*y(64) +rxt(454)*y(25) +rxt(487)*y(3) + & + rxt(493)*y(5) +rxt(533)*y(21))*y(99) + (rxt(127)*y(25) + & + rxt(174)*y(105) +rxt(191)*y(101) +rxt(209)*y(120) +rxt(225)*y(103) + & + rxt(227)*y(117) +rxt(244)*y(116))*y(95) + (rxt(95) +rxt(330)*y(32) + & + rxt(277)*y(63) +rxt(279)*y(62) +rxt(331)*y(40))*y(128) + (rxt(387) + & + rxt(395) +2.000_r8*rxt(339)*y(130) +2.000_r8*rxt(397)*y(71))*y(123) & + + (rxt(326)*y(96) +rxt(327)*y(137) +rxt(328)*y(137))*y(127) & + + (rxt(97) +rxt(335)*y(32))*y(129) + (rxt(337)*y(137) + & + 2.000_r8*rxt(380)*y(96))*y(130) +rxt(489)*y(5)*y(5) +rxt(423)*y(131) & + *y(52) +rxt(429)*y(63)*y(56) +rxt(443)*y(70)*y(57) +rxt(20)*y(64) & + +rxt(388)*y(124) + loss(104) = (rxt(488)* y(3) +rxt(456)* y(25) +rxt(414)* y(40) +rxt(440) & + * y(62) +rxt(432)* y(63) +rxt(403)* y(69) +rxt(394)* y(70) +rxt(547) & + * y(77) +rxt(553)* y(79) +rxt(132)* y(95) +rxt(134)* y(96) +rxt(413) & + * y(99) +rxt(292)* y(109) +rxt(302)* y(111) +rxt(323)* y(125) & + +rxt(332)* y(128) +rxt(419)* y(131) +rxt(348)* y(132) +rxt(363) & + * y(133) + rxt(7) + rxt(8) + het_rates(72))* y(72) + prod(104) = (rxt(324)*y(125) +rxt(338)*y(130) +rxt(405)*y(71))*y(69) & + + (rxt(96) +rxt(278)*y(63))*y(128) +rxt(361)*y(133)*y(123) + loss(33) = (rxt(554)* y(79) + rxt(60) + het_rates(73))* y(73) + prod(33) = (rxt(460)*y(28) +rxt(490)*y(5))*y(28) + loss(34) = (rxt(544)* y(69) +rxt(545)* y(131) + rxt(101) + het_rates(74)) & + * y(74) + prod(34) = 0._r8 + loss(13) = ( + het_rates(75))* y(75) + prod(13) = 0._r8 + loss(14) = ( + het_rates(76))* y(76) + prod(14) = 0._r8 + loss(49) = (rxt(546)* y(71) +rxt(547)* y(72) +rxt(550)* y(131) & + + het_rates(77))* y(77) + prod(49) =rxt(101)*y(74) +rxt(102)*y(79) + loss(70) = (rxt(548)* y(5) +rxt(549)* y(28) +rxt(551)* y(63) +rxt(552)* y(71) & + +rxt(553)* y(72) +rxt(554)* y(73) +rxt(555)* y(131) + rxt(102) & + + het_rates(79))* y(79) + prod(70) = (rxt(546)*y(71) +rxt(547)*y(72) +rxt(550)*y(131))*y(77) & + +rxt(544)*y(74)*y(69) +rxt(103)*y(80) + loss(60) = (rxt(557)* y(131) + rxt(103) + het_rates(80))* y(80) + prod(60) = (rxt(548)*y(5) +rxt(549)*y(28) +rxt(551)*y(63) +rxt(552)*y(71) + & + rxt(553)*y(72) +rxt(554)*y(73) +rxt(555)*y(131))*y(79) & + + (rxt(542)*y(64) +rxt(543)*y(131) +.500_r8*rxt(556)*y(131))*y(35) & + +rxt(545)*y(131)*y(74) +rxt(104)*y(81) + loss(29) = (rxt(558)* y(137) + rxt(104) + het_rates(81))* y(81) + prod(29) =rxt(100)*y(44) +rxt(557)*y(131)*y(80) + loss(15) = ( + het_rates(82))* y(82) + prod(15) = 0._r8 + loss(16) = ( + het_rates(83))* y(83) + prod(16) = 0._r8 + loss(17) = ( + het_rates(84))* y(84) + prod(17) = 0._r8 + loss(18) = ( + het_rates(85))* y(85) + prod(18) = 0._r8 + loss(19) = ( + het_rates(86))* y(86) + prod(19) = 0._r8 + loss(20) = ( + het_rates(87))* y(87) + prod(20) = 0._r8 + loss(86) = (rxt(105)* y(40) +rxt(108)* y(49) +rxt(109)* y(51) +rxt(110) & + * y(63) +rxt(195)* y(101) +rxt(147)* y(103) +rxt(177)* y(105) & + +rxt(248)* y(116) +rxt(230)* y(117) +rxt(212)* y(120) +rxt(154) & + * y(126) +rxt(107)* y(137) + het_rates(88))* y(88) + prod(86) = (rxt(114)*y(92) +rxt(127)*y(95) +rxt(285)*y(109) + & + rxt(314)*y(125) +rxt(341)*y(132) +rxt(350)*y(133))*y(25) & + + (rxt(130)*y(95) +rxt(289)*y(109) +rxt(298)*y(111) + & + rxt(318)*y(125) +rxt(345)*y(132) +rxt(356)*y(133))*y(49) & + + (rxt(116)*y(92) +rxt(286)*y(109) +rxt(351)*y(133))*y(28) & + + (rxt(112)*y(62) +rxt(113)*y(69))*y(91) +rxt(385)*y(89) +rxt(386) & + *y(90) + loss(72) = (rxt(106)* y(49) +rxt(199)* y(101) +rxt(164)* y(103) +rxt(182) & + * y(105) +rxt(252)* y(116) +rxt(234)* y(117) +rxt(217)* y(120) & + +rxt(159)* y(126) + rxt(385) + het_rates(89))* y(89) + prod(72) =rxt(107)*y(137)*y(88) + loss(71) = (rxt(187)* y(101) + (rxt(181) +rxt(267))* y(103) + (rxt(169) + & + rxt(268))* y(105) +rxt(240)* y(116) +rxt(222)* y(117) +rxt(205) & + * y(120) +rxt(257)* y(126) + rxt(386) + het_rates(90))* y(90) + prod(71) = (rxt(106)*y(89) +rxt(108)*y(88))*y(49) + loss(63) = ((rxt(111) +rxt(112))* y(62) +rxt(113)* y(69) + het_rates(91)) & + * y(91) + prod(63) = (rxt(128)*y(95) +rxt(315)*y(125) +rxt(342)*y(132))*y(28) & + +rxt(115)*y(92)*y(25) + loss(90) = ((rxt(114) +rxt(115))* y(25) +rxt(116)* y(28) +rxt(117)* y(40) & + +rxt(124)* y(51) +rxt(280)* y(62) +rxt(281)* y(63) +rxt(125)* y(69) & + +rxt(126)* y(71) +rxt(186)* y(101) + (rxt(170) +rxt(258))* y(103) & + + (rxt(168) +rxt(265))* y(105) +rxt(239)* y(116) +rxt(221)* y(117) & + +rxt(204)* y(120) +rxt(256)* y(126) +rxt(119)* y(137) + rxt(63) & + + het_rates(92))* y(92) + prod(90) = (rxt(330)*y(128) +rxt(352)*y(133))*y(32) + (rxt(64) +rxt(283)) & + *y(94) + (rxt(129)*y(40) +rxt(131)*y(69))*y(95) + loss(69) = (rxt(194)* y(101) + (rxt(247) +rxt(271))* y(103) + (rxt(176) + & + rxt(259))* y(105) +rxt(246)* y(116) +rxt(229)* y(117) +rxt(211) & + * y(120) +rxt(153)* y(126) + rxt(284) + het_rates(93))* y(93) + prod(69) =rxt(118)*y(137)*y(94) + loss(80) = ((rxt(122) +rxt(123))* y(62) + (rxt(120) +rxt(121))* y(63) & + +rxt(196)* y(101) + (rxt(158) +rxt(260))* y(103) + (rxt(178) + & + rxt(261))* y(105) +rxt(249)* y(116) +rxt(231)* y(117) +rxt(213) & + * y(120) +rxt(155)* y(126) +rxt(118)* y(137) + rxt(64) + rxt(283) & + + het_rates(94))* y(94) + prod(80) =rxt(119)*y(137)*y(92) +rxt(284)*y(93) + loss(85) = (rxt(127)* y(25) +rxt(128)* y(28) +rxt(129)* y(40) +rxt(130) & + * y(49) +rxt(131)* y(69) +rxt(132)* y(72) +rxt(191)* y(101) +rxt(225) & + * y(103) +rxt(174)* y(105) +rxt(244)* y(116) +rxt(227)* y(117) & + +rxt(209)* y(120) +rxt(151)* y(126) + rxt(65) + het_rates(95)) & + * y(95) + prod(85) = (rxt(316)*y(125) +rxt(335)*y(129))*y(32) + loss(91) = ((rxt(133) +rxt(135))* y(71) +rxt(134)* y(72) +rxt(138)* y(97) & + +rxt(382)* y(100) +rxt(383)* y(101) +rxt(141)* y(103) +rxt(144) & + * y(105) +rxt(381)* y(106) +rxt(585)* y(108) +rxt(583)* y(116) & + +rxt(303)* y(117) +rxt(304)* y(118) +rxt(306)* y(119) +rxt(308) & + * y(120) +rxt(384)* y(121) +rxt(584)* y(126) +rxt(326)* y(127) & + +rxt(380)* y(130) + het_rates(96))* y(96) + prod(91) = (rxt(77) +rxt(78) +rxt(79) +rxt(80) +rxt(81) +rxt(82) + & + rxt(324)*y(125) +rxt(333)*y(128) +rxt(347)*y(132) +rxt(360)*y(133)) & + *y(69) + (rxt(83) +rxt(84) +rxt(85) +rxt(86) +rxt(87) +rxt(90) + & + rxt(91) +rxt(92))*y(71) + (rxt(99) +rxt(358) +rxt(136)*y(62) + & + rxt(353)*y(41) +rxt(361)*y(123))*y(133) + (rxt(93) +rxt(137) + & + rxt(317)*y(40) +rxt(321)*y(123))*y(125) + (rxt(105)*y(88) + & + rxt(344)*y(132))*y(40) + (rxt(96) +rxt(332)*y(72))*y(128) +rxt(66) & + *y(56) +rxt(16)*y(62) +rxt(75)*y(109) +rxt(76)*y(111) +rxt(98)*y(132) + loss(36) = (rxt(138)* y(96) +rxt(139)* y(137) + het_rates(97))* y(97) + prod(36) =rxt(327)*y(137)*y(127) + loss(67) = (rxt(189)* y(101) +rxt(203)* y(103) +rxt(172)* y(105) +rxt(242) & + * y(116) +rxt(224)* y(117) +rxt(207)* y(120) +rxt(149)* y(126) & + + het_rates(98))* y(98) + prod(67) =rxt(343)*y(132)*y(32) + loss(88) = (rxt(487)* y(3) +rxt(493)* y(5) +rxt(533)* y(21) + (rxt(454) + & + rxt(455))* y(25) +rxt(461)* y(28) + (rxt(408) +rxt(409) +rxt(410)) & + * y(40) +rxt(439)* y(62) +rxt(444)* y(63) +rxt(434)* y(64) +rxt(412) & + * y(69) +rxt(413)* y(72) + 2._r8*rxt(422)* y(99) +rxt(310)* y(120) & + +rxt(417)* y(131) + rxt(559) + het_rates(99))* y(99) + prod(88) = (rxt(516)*y(18) +rxt(519)*y(20) +rxt(416)*y(43) +rxt(419)*y(72) + & + rxt(437)*y(64) +rxt(468)*y(28) +rxt(498)*y(5) +rxt(537)*y(31) + & + .500_r8*rxt(556)*y(35) +rxt(557)*y(80))*y(131) + (rxt(450)*y(25) + & + rxt(486)*y(3) +rxt(530)*y(64) +rxt(531)*y(69))*y(17) & + + (rxt(515)*y(18) +rxt(518)*y(20) +rxt(453)*y(43))*y(25) & + + (rxt(317)*y(40) +rxt(318)*y(49) +rxt(319)*y(51))*y(125) & + + (rxt(457)*y(28) +rxt(534)*y(62))*y(21) + (rxt(11) +rxt(448))*y(52) & + + (rxt(347)*y(132) +rxt(407)*y(43))*y(69) +rxt(539)*y(70)*y(23) & + +rxt(411)*y(71)*y(40) +rxt(130)*y(95)*y(49) + loss(48) = (rxt(382)* y(96) +rxt(374)* y(137) + rxt(373) + het_rates(100)) & + * y(100) + prod(48) = (rxt(139)*y(97) +rxt(372)*y(106))*y(137) +rxt(375)*y(101) + loss(92) = (rxt(195)* y(88) +rxt(199)* y(89) +rxt(187)* y(90) +rxt(186) & + * y(92) +rxt(194)* y(93) +rxt(196)* y(94) +rxt(191)* y(95) +rxt(383) & + * y(96) +rxt(189)* y(98) +rxt(201)* y(109) +rxt(197)* y(110) & + +rxt(188)* y(111) +rxt(200)* y(112) +rxt(193)* y(113) +rxt(198) & + * y(114) +rxt(185)* y(115) +rxt(190)* y(125) +rxt(376)* y(137) & + + rxt(375) + het_rates(101))* y(101) + prod(92) = (rxt(305)*y(118) +rxt(374)*y(100))*y(137) +rxt(377)*y(103) + loss(30) = (rxt(140)* y(137) + het_rates(102))* y(102) + prod(30) =rxt(142)*y(103)*y(58) + loss(107) = (rxt(142)* y(58) +rxt(147)* y(88) +rxt(164)* y(89) + (rxt(181) + & + rxt(267))* y(90) + (rxt(170) +rxt(258))* y(92) + (rxt(247) +rxt(271)) & + * y(93) + (rxt(158) +rxt(260))* y(94) +rxt(225)* y(95) +rxt(141) & + * y(96) +rxt(203)* y(98) +rxt(166)* y(109) +rxt(162)* y(110) & + + (rxt(192) +rxt(264))* y(111) +rxt(165)* y(112) + (rxt(236) + & + rxt(262))* y(113) +rxt(163)* y(114) + (rxt(146) +rxt(269))* y(115) & + +rxt(214)* y(125) +rxt(378)* y(137) + rxt(377) + het_rates(103)) & + * y(103) + prod(107) = (rxt(140)*y(102) +rxt(376)*y(101))*y(137) +rxt(379)*y(105) + loss(31) = (rxt(143)* y(137) + het_rates(104))* y(104) + prod(31) =rxt(145)*y(105)*y(58) + loss(111) = (rxt(145)* y(58) +rxt(177)* y(88) +rxt(182)* y(89) + (rxt(169) + & + rxt(268))* y(90) + (rxt(168) +rxt(265))* y(92) + (rxt(176) +rxt(259)) & + * y(93) + (rxt(178) +rxt(261))* y(94) +rxt(174)* y(95) +rxt(144) & + * y(96) +rxt(172)* y(98) +rxt(184)* y(109) +rxt(179)* y(110) & + + (rxt(171) +rxt(266))* y(111) +rxt(183)* y(112) + (rxt(175) + & + rxt(263))* y(113) +rxt(180)* y(114) + (rxt(167) +rxt(270))* y(115) & + +rxt(173)* y(125) + rxt(379) + het_rates(105))* y(105) + prod(111) = (rxt(143)*y(104) +rxt(378)*y(103))*y(137) + loss(51) = (rxt(381)* y(96) +rxt(372)* y(137) + het_rates(106))* y(106) + prod(51) = (rxt(309)*y(40) +rxt(310)*y(99) +rxt(311)*y(131))*y(120) +rxt(373) & + *y(100) +rxt(328)*y(137)*y(127) + loss(55) = (rxt(424)* y(69) +rxt(425)* y(71) +rxt(597)* y(134) & + + het_rates(107))* y(107) + prod(55) = (.800_r8*rxt(583)*y(116) +.900_r8*rxt(585)*y(108))*y(96) & + +rxt(587)*y(108)*y(69) + loss(47) = ((rxt(587) +rxt(588))* y(69) +rxt(586)* y(71) +rxt(585)* y(96) & + + het_rates(108))* y(108) + prod(47) =rxt(600)*y(135) +rxt(605)*y(136) + loss(112) = (rxt(285)* y(25) +rxt(286)* y(28) +rxt(287)* y(40) +rxt(289) & + * y(49) +rxt(290)* y(51) +rxt(291)* y(63) +rxt(292)* y(72) +rxt(201) & + * y(101) +rxt(166)* y(103) +rxt(184)* y(105) +rxt(254)* y(116) & + +rxt(237)* y(117) +rxt(219)* y(120) +rxt(161)* y(126) +rxt(288) & + * y(137) + rxt(75) + het_rates(109))* y(109) + prod(112) = (rxt(110)*y(88) +rxt(278)*y(128) +rxt(320)*y(125) + & + rxt(346)*y(132) +rxt(359)*y(133))*y(63) + (rxt(111)*y(91) + & + rxt(123)*y(94) +rxt(279)*y(128) +rxt(280)*y(92))*y(62) & + + (rxt(301)*y(69) +rxt(302)*y(72))*y(111) +rxt(273)*y(110) + loss(73) = (rxt(197)* y(101) +rxt(162)* y(103) +rxt(179)* y(105) +rxt(250) & + * y(116) +rxt(232)* y(117) +rxt(215)* y(120) +rxt(156)* y(126) & + + rxt(273) + het_rates(110))* y(110) + prod(73) =rxt(122)*y(94)*y(62) +rxt(288)*y(137)*y(109) + loss(87) = ((rxt(276) +rxt(298))* y(49) +rxt(300)* y(51) +rxt(301)* y(69) & + +rxt(302)* y(72) +rxt(188)* y(101) + (rxt(192) +rxt(264))* y(103) & + + (rxt(171) +rxt(266))* y(105) +rxt(241)* y(116) +rxt(223)* y(117) & + +rxt(206)* y(120) +rxt(148)* y(126) +rxt(296)* y(137) + rxt(76) & + + het_rates(111))* y(111) + prod(87) = (rxt(109)*y(88) +rxt(124)*y(92) +rxt(290)*y(109) + & + rxt(319)*y(125) +rxt(357)*y(133))*y(51) + (rxt(120)*y(94) + & + rxt(277)*y(128) +rxt(281)*y(92) +rxt(291)*y(109))*y(63) & + +rxt(272)*y(128)*y(62) +rxt(292)*y(109)*y(72) +rxt(282)*y(113) & + +rxt(275)*y(115) + loss(79) = (rxt(293)* y(58) +rxt(200)* y(101) +rxt(165)* y(103) +rxt(183) & + * y(105) +rxt(253)* y(116) +rxt(235)* y(117) +rxt(218)* y(120) & + +rxt(160)* y(126) + rxt(274) + het_rates(112))* y(112) + prod(79) =rxt(294)*y(137)*y(113) + loss(81) = (rxt(295)* y(51) +rxt(297)* y(58) +rxt(193)* y(101) + (rxt(236) + & + rxt(262))* y(103) + (rxt(175) +rxt(263))* y(105) +rxt(245)* y(116) & + +rxt(228)* y(117) +rxt(210)* y(120) +rxt(152)* y(126) +rxt(294) & + * y(137) + rxt(282) + het_rates(113))* y(113) + prod(81) =rxt(121)*y(94)*y(63) +rxt(296)*y(137)*y(111) +rxt(274)*y(112) + loss(75) = (rxt(299)* y(51) +rxt(198)* y(101) +rxt(163)* y(103) +rxt(180) & + * y(105) +rxt(251)* y(116) +rxt(233)* y(117) +rxt(216)* y(120) & + +rxt(157)* y(126) + het_rates(114))* y(114) + prod(75) =rxt(276)*y(111)*y(49) + loss(78) = (rxt(185)* y(101) + (rxt(146) +rxt(269))* y(103) + (rxt(167) + & + rxt(270))* y(105) +rxt(238)* y(116) +rxt(220)* y(117) +rxt(202) & + * y(120) +rxt(255)* y(126) + rxt(275) + het_rates(115))* y(115) + prod(78) = (rxt(295)*y(113) +rxt(299)*y(114) +rxt(300)*y(111))*y(51) & + + (rxt(293)*y(112) +rxt(297)*y(113))*y(58) + loss(93) = (rxt(368)* y(32) +rxt(248)* y(88) +rxt(252)* y(89) +rxt(240) & + * y(90) +rxt(239)* y(92) +rxt(246)* y(93) +rxt(249)* y(94) +rxt(244) & + * y(95) +rxt(583)* y(96) +rxt(242)* y(98) +rxt(254)* y(109) +rxt(250) & + * y(110) +rxt(241)* y(111) +rxt(253)* y(112) +rxt(245)* y(113) & + +rxt(251)* y(114) +rxt(238)* y(115) +rxt(243)* y(125) +rxt(365) & + * y(137) + rxt(370) + het_rates(116))* y(116) + prod(93) = (rxt(593) +rxt(592)*y(56) +rxt(594)*y(62))*y(126) +rxt(16)*y(62) & + +rxt(587)*y(108)*y(69) +rxt(591)*y(122)*y(71) +rxt(369)*y(119) & + +rxt(371)*y(121) +rxt(596)*y(134) + loss(94) = (rxt(230)* y(88) +rxt(234)* y(89) +rxt(222)* y(90) +rxt(221) & + * y(92) +rxt(229)* y(93) +rxt(231)* y(94) +rxt(227)* y(95) +rxt(303) & + * y(96) +rxt(224)* y(98) +rxt(237)* y(109) +rxt(232)* y(110) & + +rxt(223)* y(111) +rxt(235)* y(112) +rxt(228)* y(113) +rxt(233) & + * y(114) +rxt(220)* y(115) +rxt(226)* y(125) +rxt(367)* y(137) & + + het_rates(117))* y(117) + prod(94) =rxt(366)*y(137)*y(120) + loss(37) = (rxt(304)* y(96) +rxt(305)* y(137) + het_rates(118))* y(118) + prod(37) =rxt(367)*y(137)*y(117) + loss(41) = (rxt(306)* y(96) +rxt(307)* y(137) + rxt(369) + het_rates(119)) & + * y(119) + prod(41) = (rxt(312)*y(121) +rxt(368)*y(116))*y(32) + loss(97) = (rxt(309)* y(40) +rxt(212)* y(88) +rxt(217)* y(89) +rxt(205) & + * y(90) +rxt(204)* y(92) +rxt(211)* y(93) +rxt(213)* y(94) +rxt(209) & + * y(95) +rxt(308)* y(96) +rxt(207)* y(98) +rxt(310)* y(99) +rxt(219) & + * y(109) +rxt(215)* y(110) +rxt(206)* y(111) +rxt(218)* y(112) & + +rxt(210)* y(113) +rxt(216)* y(114) +rxt(202)* y(115) +rxt(208) & + * y(125) +rxt(311)* y(131) +rxt(366)* y(137) + het_rates(120)) & + * y(120) + prod(97) = (rxt(307)*y(119) +rxt(313)*y(121) +rxt(365)*y(116))*y(137) + loss(40) = (rxt(312)* y(32) +rxt(384)* y(96) +rxt(313)* y(137) + rxt(371) & + + het_rates(121))* y(121) + prod(40) =rxt(370)*y(116) + loss(56) = (rxt(589)* y(69) + (rxt(590) +rxt(591))* y(71) + het_rates(122)) & + * y(122) + prod(56) =rxt(66)*y(56) +rxt(597)*y(134)*y(107) +rxt(606)*y(136) + loss(59) = (rxt(396)* y(69) +rxt(397)* y(71) +rxt(321)* y(125) +rxt(339) & + * y(130) +rxt(361)* y(133) + rxt(387) + rxt(395) + het_rates(123)) & + * y(123) + prod(59) = (rxt(399) +rxt(398)*y(32) +rxt(400)*y(69) +rxt(401)*y(71) + & + rxt(402)*y(72))*y(124) +rxt(7)*y(72) + loss(28) = (rxt(398)* y(32) +rxt(400)* y(69) +rxt(401)* y(71) +rxt(402) & + * y(72) + rxt(388) + rxt(399) + het_rates(124))* y(124) + prod(28) =rxt(392)*y(71)*y(70) + loss(102) = (rxt(314)* y(25) +rxt(315)* y(28) +rxt(316)* y(32) +rxt(317) & + * y(40) +rxt(318)* y(49) +rxt(319)* y(51) +rxt(320)* y(63) & + + (rxt(324) +rxt(325))* y(69) +rxt(322)* y(71) +rxt(323)* y(72) & + +rxt(190)* y(101) +rxt(214)* y(103) +rxt(173)* y(105) +rxt(243) & + * y(116) +rxt(226)* y(117) +rxt(208)* y(120) +rxt(321)* y(123) & + +rxt(150)* y(126) + rxt(93) + rxt(137) + het_rates(125))* y(125) + prod(102) = (rxt(125)*y(92) +rxt(334)*y(128))*y(69) + (rxt(133)*y(96) + & + rxt(135)*y(96))*y(71) +rxt(65)*y(95) +rxt(97)*y(129) + loss(103) = (rxt(592)* y(56) +rxt(594)* y(62) +rxt(364)* y(71) +rxt(154) & + * y(88) +rxt(159)* y(89) +rxt(257)* y(90) +rxt(256)* y(92) +rxt(153) & + * y(93) +rxt(155)* y(94) +rxt(151)* y(95) +rxt(584)* y(96) +rxt(149) & + * y(98) +rxt(161)* y(109) +rxt(156)* y(110) +rxt(148)* y(111) & + +rxt(160)* y(112) +rxt(152)* y(113) +rxt(157)* y(114) +rxt(255) & + * y(115) +rxt(150)* y(125) +rxt(329)* y(137) + rxt(593) & + + het_rates(126))* y(126) + prod(103) = (rxt(84) +rxt(86) +rxt(586)*y(108) +rxt(590)*y(122) + & + rxt(598)*y(134) +rxt(602)*y(135))*y(71) + (rxt(338)*y(69) + & + rxt(339)*y(123))*y(130) +rxt(595)*y(134)*y(32) & + +2.000_r8*rxt(150)*y(126)*y(125) +rxt(94)*y(127) + loss(52) = (rxt(326)* y(96) + (rxt(327) +rxt(328))* y(137) + rxt(94) & + + het_rates(127))* y(127) + prod(52) = (rxt(329)*y(126) +rxt(337)*y(130))*y(137) + loss(74) = (rxt(330)* y(32) +rxt(331)* y(40) + (rxt(272) +rxt(279))* y(62) & + + (rxt(277) +rxt(278))* y(63) + (rxt(333) +rxt(334))* y(69) & + +rxt(332)* y(72) + rxt(95) + rxt(96) + het_rates(128))* y(128) + prod(74) = (rxt(132)*y(95) +rxt(323)*y(125) +rxt(348)*y(132) + & + rxt(363)*y(133))*y(72) + (rxt(126)*y(92) +rxt(362)*y(133))*y(71) & + +rxt(336)*y(129)*y(69) + loss(38) = (rxt(335)* y(32) +rxt(336)* y(69) + rxt(97) + het_rates(129)) & + * y(129) + prod(38) =rxt(322)*y(125)*y(71) + loss(68) = (rxt(338)* y(69) +rxt(380)* y(96) +rxt(339)* y(123) +rxt(337) & + * y(137) + het_rates(130))* y(130) + prod(68) =rxt(364)*y(126)*y(71) + loss(89) = (rxt(498)* y(5) +rxt(514)* y(16) +rxt(532)* y(17) +rxt(516)* y(18) & + +rxt(517)* y(19) +rxt(519)* y(20) +rxt(535)* y(22) +rxt(536)* y(23) & + +rxt(521)* y(24) + (rxt(468) +rxt(469))* y(28) +rxt(466)* y(29) & + + (rxt(537) +rxt(541))* y(31) + (rxt(543) +rxt(556))* y(35) & + +rxt(415)* y(41) +rxt(416)* y(43) +rxt(500)* y(45) +rxt(522)* y(46) & + +rxt(523)* y(47) +rxt(524)* y(48) +rxt(471)* y(49) +rxt(447)* y(51) & + +rxt(423)* y(52) +rxt(474)* y(54) +rxt(340)* y(55) +rxt(438)* y(56) & + +rxt(349)* y(62) +rxt(446)* y(63) +rxt(437)* y(64) +rxt(418)* y(69) & + +rxt(419)* y(72) +rxt(545)* y(74) +rxt(550)* y(77) +rxt(555)* y(79) & + +rxt(557)* y(80) +rxt(417)* y(99) +rxt(311)* y(120) & + + 2._r8*(rxt(420) +rxt(421))* y(131) + het_rates(131))* y(131) + prod(89) = (rxt(406)*y(41) +rxt(407)*y(43) +rxt(412)*y(99) +rxt(470)*y(49) + & + rxt(473)*y(54) +rxt(499)*y(45) +rxt(501)*y(53) +rxt(531)*y(17))*y(69) & + + (rxt(149)*y(126) +rxt(172)*y(105) +rxt(189)*y(101) + & + rxt(203)*y(103) +rxt(207)*y(120) +rxt(224)*y(117) +rxt(242)*y(116)) & + *y(98) + (rxt(3) +rxt(139)*y(97) +rxt(328)*y(127) +rxt(355)*y(133) + & + 2.000_r8*rxt(390)*y(70) +rxt(509)*y(39))*y(137) & + + (2.000_r8*rxt(409)*y(40) +rxt(413)*y(72) +rxt(434)*y(64) + & + rxt(439)*y(62) +rxt(455)*y(25))*y(99) + (rxt(98) +rxt(341)*y(25) + & + rxt(342)*y(28) +rxt(346)*y(63) +rxt(348)*y(72))*y(132) & + + (rxt(538)*y(23) +rxt(389)*y(41) +rxt(482)*y(49) +rxt(505)*y(45)) & + *y(70) + (rxt(9) +rxt(124)*y(92) +rxt(357)*y(133))*y(51) + (rxt(23) + & + .300_r8*rxt(535)*y(131))*y(22) + (rxt(129)*y(95) +rxt(414)*y(72)) & + *y(40) +2.000_r8*rxt(4)*y(43) +rxt(356)*y(133)*y(49) +rxt(10)*y(52) & + +rxt(58)*y(53) +rxt(59)*y(54) +rxt(12)*y(55) +.500_r8*rxt(561)*y(63) & + +rxt(138)*y(97)*y(96) + loss(109) = (rxt(341)* y(25) +rxt(342)* y(28) +rxt(343)* y(32) +rxt(344) & + * y(40) +rxt(345)* y(49) +rxt(346)* y(63) +rxt(347)* y(69) +rxt(348) & + * y(72) + rxt(98) + het_rates(132))* y(132) + prod(109) = (rxt(117)*y(92) +rxt(287)*y(109) +rxt(331)*y(128))*y(40) & + + (rxt(354)*y(41) +rxt(355)*y(137))*y(133) + loss(110) = (rxt(350)* y(25) +rxt(351)* y(28) +rxt(352)* y(32) + (rxt(353) + & + rxt(354))* y(41) +rxt(356)* y(49) +rxt(357)* y(51) +rxt(136)* y(62) & + +rxt(359)* y(63) +rxt(360)* y(69) +rxt(362)* y(71) +rxt(363)* y(72) & + +rxt(361)* y(123) +rxt(355)* y(137) + rxt(99) + rxt(358) & + + het_rates(133))* y(133) + prod(110) =rxt(325)*y(125)*y(69) +rxt(134)*y(96)*y(72) +rxt(63)*y(92) & + +rxt(95)*y(128) + loss(61) = (rxt(595)* y(32) +rxt(598)* y(71) +rxt(597)* y(107) + rxt(596) & + + het_rates(134))* y(134) + prod(61) = (rxt(77) +rxt(81) +rxt(588)*y(108) +rxt(589)*y(122) + & + rxt(601)*y(135) +rxt(607)*y(136))*y(69) + (rxt(85) +rxt(87))*y(71) & + + (rxt(599)*y(135) +rxt(604)*y(136))*y(96) +rxt(581)*y(135) & + +rxt(580)*y(136) + loss(43) = (rxt(601)* y(69) +rxt(602)* y(71) +rxt(599)* y(96) + rxt(581) & + + rxt(600) + het_rates(135))* y(135) + prod(43) = (rxt(78) +rxt(82))*y(69) + (rxt(83) +rxt(92))*y(71) + (rxt(582) + & + rxt(603)*y(96))*y(136) + loss(42) = (rxt(607)* y(69) + (rxt(603) +rxt(604))* y(96) + rxt(580) & + + rxt(582) + rxt(605) + rxt(606) + het_rates(136))* y(136) + prod(42) = (rxt(79) +rxt(80))*y(69) + (rxt(90) +rxt(91))*y(71) + loss(114) = (rxt(509)* y(39) +rxt(390)* y(70) +rxt(558)* y(81) +rxt(107) & + * y(88) +rxt(119)* y(92) +rxt(118)* y(94) +rxt(139)* y(97) +rxt(374) & + * y(100) +rxt(376)* y(101) +rxt(140)* y(102) +rxt(378)* y(103) & + +rxt(143)* y(104) +rxt(372)* y(106) +rxt(288)* y(109) +rxt(296) & + * y(111) +rxt(294)* y(113) +rxt(365)* y(116) +rxt(367)* y(117) & + +rxt(305)* y(118) +rxt(307)* y(119) +rxt(366)* y(120) +rxt(313) & + * y(121) +rxt(329)* y(126) + (rxt(327) +rxt(328))* y(127) +rxt(337) & + * y(130) +rxt(355)* y(133) + rxt(1) + rxt(2) + rxt(3) & + + het_rates(137))* y(137) + prod(114) = (rxt(377) +4.000_r8*rxt(141)*y(96) +4.000_r8*rxt(146)*y(115) + & + 4.000_r8*rxt(147)*y(88) +5.000_r8*rxt(158)*y(94) + & + 5.000_r8*rxt(162)*y(110) +4.000_r8*rxt(163)*y(114) + & + 5.000_r8*rxt(164)*y(89) +6.000_r8*rxt(165)*y(112) + & + 4.000_r8*rxt(166)*y(109) +4.000_r8*rxt(170)*y(92) + & + 4.000_r8*rxt(181)*y(90) +4.000_r8*rxt(192)*y(111) + & + 4.000_r8*rxt(203)*y(98) +4.000_r8*rxt(214)*y(125) + & + 4.000_r8*rxt(225)*y(95) +5.000_r8*rxt(236)*y(113) + & + 6.000_r8*rxt(247)*y(93) +4.000_r8*rxt(258)*y(92) + & + 5.000_r8*rxt(260)*y(94) +5.000_r8*rxt(262)*y(113) + & + 4.000_r8*rxt(264)*y(111) +4.000_r8*rxt(267)*y(90) + & + 4.000_r8*rxt(269)*y(115) +6.000_r8*rxt(271)*y(93))*y(103) & + + (rxt(379) +5.000_r8*rxt(144)*y(96) +5.000_r8*rxt(167)*y(115) + & + 5.000_r8*rxt(168)*y(92) +5.000_r8*rxt(169)*y(90) + & + 5.000_r8*rxt(171)*y(111) +5.000_r8*rxt(172)*y(98) + & + 5.000_r8*rxt(173)*y(125) +5.000_r8*rxt(174)*y(95) + & + 6.000_r8*rxt(175)*y(113) +7.000_r8*rxt(176)*y(93) + & + 5.000_r8*rxt(177)*y(88) +6.000_r8*rxt(178)*y(94) + & + 6.000_r8*rxt(179)*y(110) +5.000_r8*rxt(180)*y(114) + & + 6.000_r8*rxt(182)*y(89) +7.000_r8*rxt(183)*y(112) + & + 5.000_r8*rxt(184)*y(109) +7.000_r8*rxt(259)*y(93) + & + 6.000_r8*rxt(261)*y(94) +6.000_r8*rxt(263)*y(113) + & + 5.000_r8*rxt(265)*y(92) +5.000_r8*rxt(266)*y(111) + & + 5.000_r8*rxt(268)*y(90) +5.000_r8*rxt(270)*y(115))*y(105) & + + (rxt(375) +3.000_r8*rxt(185)*y(115) +3.000_r8*rxt(186)*y(92) + & + 3.000_r8*rxt(187)*y(90) +3.000_r8*rxt(188)*y(111) + & + 3.000_r8*rxt(189)*y(98) +3.000_r8*rxt(190)*y(125) + & + 3.000_r8*rxt(191)*y(95) +4.000_r8*rxt(193)*y(113) + & + 5.000_r8*rxt(194)*y(93) +3.000_r8*rxt(195)*y(88) + & + 4.000_r8*rxt(196)*y(94) +4.000_r8*rxt(197)*y(110) + & + 3.000_r8*rxt(198)*y(114) +4.000_r8*rxt(199)*y(89) + & + 5.000_r8*rxt(200)*y(112) +3.000_r8*rxt(201)*y(109) + & + 3.000_r8*rxt(383)*y(96))*y(101) + (rxt(514)*y(16) +rxt(516)*y(18) + & + rxt(517)*y(19) +rxt(519)*y(20) +rxt(524)*y(48) +rxt(536)*y(23) + & + rxt(340)*y(55) +rxt(415)*y(41) +rxt(416)*y(43) +rxt(417)*y(99) + & + rxt(420)*y(131) +rxt(423)*y(52) +rxt(447)*y(51) +rxt(471)*y(49) + & + rxt(474)*y(54) +rxt(500)*y(45) +rxt(532)*y(17) +rxt(535)*y(22)) & + *y(131) + (2.000_r8*rxt(220)*y(115) +2.000_r8*rxt(221)*y(92) + & + 2.000_r8*rxt(222)*y(90) +2.000_r8*rxt(223)*y(111) + & + 2.000_r8*rxt(224)*y(98) +2.000_r8*rxt(226)*y(125) + & + 2.000_r8*rxt(227)*y(95) +3.000_r8*rxt(228)*y(113) + & + 4.000_r8*rxt(229)*y(93) +2.000_r8*rxt(230)*y(88) + & + 3.000_r8*rxt(231)*y(94) +3.000_r8*rxt(232)*y(110) + & + 2.000_r8*rxt(233)*y(114) +3.000_r8*rxt(234)*y(89) + & + 4.000_r8*rxt(235)*y(112) +2.000_r8*rxt(237)*y(109) + & + 2.000_r8*rxt(303)*y(96))*y(117) + (rxt(202)*y(115) +rxt(204)*y(92) + & + rxt(205)*y(90) +rxt(206)*y(111) +rxt(207)*y(98) +rxt(208)*y(125) + & + rxt(209)*y(95) +2.000_r8*rxt(210)*y(113) +3.000_r8*rxt(211)*y(93) + & + rxt(212)*y(88) +2.000_r8*rxt(213)*y(94) +2.000_r8*rxt(215)*y(110) + & + rxt(216)*y(114) +2.000_r8*rxt(217)*y(89) +3.000_r8*rxt(218)*y(112) + & + rxt(219)*y(109) +rxt(308)*y(96))*y(120) + (rxt(106)*y(89) + & + rxt(345)*y(132) +rxt(564)*y(54) +rxt(570)*y(54) +rxt(571)*y(53) + & + rxt(575)*y(54) +rxt(576)*y(53))*y(49) + (rxt(64) +rxt(283) + & + rxt(120)*y(63) +rxt(123)*y(62) +rxt(155)*y(126) +rxt(249)*y(116)) & + *y(94) + (rxt(138)*y(97) +3.000_r8*rxt(304)*y(118) +rxt(326)*y(127) + & + rxt(381)*y(106) +2.000_r8*rxt(382)*y(100))*y(96) + (rxt(245)*y(113) + & + 2.000_r8*rxt(246)*y(93) +rxt(250)*y(110) +rxt(252)*y(89) + & + 2.000_r8*rxt(253)*y(112))*y(116) + (rxt(152)*y(113) + & + 2.000_r8*rxt(153)*y(93) +rxt(156)*y(110) +rxt(159)*y(89) + & + 2.000_r8*rxt(160)*y(112))*y(126) + (rxt(344)*y(132) +rxt(410)*y(99)) & + *y(40) + (rxt(274) +rxt(293)*y(58))*y(112) + (rxt(282) + & + rxt(295)*y(51))*y(113) +rxt(353)*y(133)*y(41) +rxt(100)*y(44) & + +rxt(385)*y(89) +rxt(284)*y(93) +rxt(373)*y(100) +rxt(273)*y(110) & + +rxt(94)*y(127) end subroutine imp_prod_loss end module mo_prod_loss diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_rxt_rates_conv.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_rxt_rates_conv.F90 index 300eafe047..97ba51751e 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_rxt_rates_conv.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_rxt_rates_conv.F90 @@ -11,69 +11,69 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 1) = rxt_rates(:ncol,:, 1)*sol(:ncol,:, 137) ! rate_const*H2O rxt_rates(:ncol,:, 2) = rxt_rates(:ncol,:, 2)*sol(:ncol,:, 137) ! rate_const*H2O rxt_rates(:ncol,:, 3) = rxt_rates(:ncol,:, 3)*sol(:ncol,:, 137) ! rate_const*H2O - rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 41) ! rate_const*H2O2 - rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 69) ! rate_const*O3 - rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 69) ! rate_const*O3 - rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 49) ! rate_const*HNO3 - rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 50) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 50) ! rate_const*HO2NO2 - rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 53) ! rate_const*HONO - rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 55) ! rate_const*N2O - rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 60) ! rate_const*NO - rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 60) ! rate_const*NO - rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 61) ! rate_const*NO2 - rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 62) ! rate_const*NO3 - rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 62) ! rate_const*NO3 - rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 16) ! rate_const*CH2O - rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 16) ! rate_const*CH2O - rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 21) ! rate_const*CH3OOH - rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 22) ! rate_const*CH4 - rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 22) ! rate_const*CH4 - rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 30) ! rate_const*CO2 - rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 3) ! rate_const*BRCL - rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 4) ! rate_const*BRO - rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 7) ! rate_const*CCL4 - rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 8) ! rate_const*CF2CLBR - rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 9) ! rate_const*CF3BR - rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 10) ! rate_const*CFC11 - rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 11) ! rate_const*CFC113 - rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 12) ! rate_const*CFC114 - rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 13) ! rate_const*CFC115 - rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 14) ! rate_const*CFC12 - rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 15) ! rate_const*CH2BR2 - rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 17) ! rate_const*CH3BR - rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 18) ! rate_const*CH3CCL3 - rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 19) ! rate_const*CH3CL - rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 23) ! rate_const*CHBR3 - rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 24) ! rate_const*CL2 - rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 25) ! rate_const*CL2O2 - rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 26) ! rate_const*CLO - rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 31) ! rate_const*COF2 - rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 32) ! rate_const*COFCL - rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 40) ! rate_const*H2402 - rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 43) ! rate_const*HBR - rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 44) ! rate_const*HCFC141B - rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 45) ! rate_const*HCFC142B - rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 46) ! rate_const*HCFC22 - rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 47) ! rate_const*HCL - rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 48) ! rate_const*HF - rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 51) ! rate_const*HOBR - rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 52) ! rate_const*HOCL - rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 70) ! rate_const*OCLO - rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 75) ! rate_const*SF6 - rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 30) ! rate_const*CO2 - rxt_rates(:ncol,:, 63) = rxt_rates(:ncol,:, 63)*sol(:ncol,:, 91) ! rate_const*CO3m - rxt_rates(:ncol,:, 64) = rxt_rates(:ncol,:, 64)*sol(:ncol,:, 93) ! rate_const*CO3m_H2O - rxt_rates(:ncol,:, 65) = rxt_rates(:ncol,:, 65)*sol(:ncol,:, 94) ! rate_const*CO4m - rxt_rates(:ncol,:, 66) = rxt_rates(:ncol,:, 66)*sol(:ncol,:, 54) ! rate_const*N + rxt_rates(:ncol,:, 4) = rxt_rates(:ncol,:, 4)*sol(:ncol,:, 43) ! rate_const*H2O2 + rxt_rates(:ncol,:, 5) = rxt_rates(:ncol,:, 5)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 6) = rxt_rates(:ncol,:, 6)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 7) = rxt_rates(:ncol,:, 7)*sol(:ncol,:, 72) ! rate_const*O3 + rxt_rates(:ncol,:, 8) = rxt_rates(:ncol,:, 8)*sol(:ncol,:, 72) ! rate_const*O3 + rxt_rates(:ncol,:, 9) = rxt_rates(:ncol,:, 9)*sol(:ncol,:, 51) ! rate_const*HNO3 + rxt_rates(:ncol,:, 10) = rxt_rates(:ncol,:, 10)*sol(:ncol,:, 52) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 11) = rxt_rates(:ncol,:, 11)*sol(:ncol,:, 52) ! rate_const*HO2NO2 + rxt_rates(:ncol,:, 12) = rxt_rates(:ncol,:, 12)*sol(:ncol,:, 55) ! rate_const*HONO + rxt_rates(:ncol,:, 13) = rxt_rates(:ncol,:, 13)*sol(:ncol,:, 57) ! rate_const*N2O + rxt_rates(:ncol,:, 14) = rxt_rates(:ncol,:, 14)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 15) = rxt_rates(:ncol,:, 15)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 16) = rxt_rates(:ncol,:, 16)*sol(:ncol,:, 62) ! rate_const*NO + rxt_rates(:ncol,:, 17) = rxt_rates(:ncol,:, 17)*sol(:ncol,:, 62) ! rate_const*NO + rxt_rates(:ncol,:, 18) = rxt_rates(:ncol,:, 18)*sol(:ncol,:, 63) ! rate_const*NO2 + rxt_rates(:ncol,:, 19) = rxt_rates(:ncol,:, 19)*sol(:ncol,:, 64) ! rate_const*NO3 + rxt_rates(:ncol,:, 20) = rxt_rates(:ncol,:, 20)*sol(:ncol,:, 64) ! rate_const*NO3 + rxt_rates(:ncol,:, 21) = rxt_rates(:ncol,:, 21)*sol(:ncol,:, 17) ! rate_const*CH2O + rxt_rates(:ncol,:, 22) = rxt_rates(:ncol,:, 22)*sol(:ncol,:, 17) ! rate_const*CH2O + rxt_rates(:ncol,:, 23) = rxt_rates(:ncol,:, 23)*sol(:ncol,:, 22) ! rate_const*CH3OOH + rxt_rates(:ncol,:, 24) = rxt_rates(:ncol,:, 24)*sol(:ncol,:, 23) ! rate_const*CH4 + rxt_rates(:ncol,:, 25) = rxt_rates(:ncol,:, 25)*sol(:ncol,:, 23) ! rate_const*CH4 + rxt_rates(:ncol,:, 26) = rxt_rates(:ncol,:, 26)*sol(:ncol,:, 32) ! rate_const*CO2 + rxt_rates(:ncol,:, 27) = rxt_rates(:ncol,:, 27)*sol(:ncol,:, 4) ! rate_const*BRCL + rxt_rates(:ncol,:, 28) = rxt_rates(:ncol,:, 28)*sol(:ncol,:, 5) ! rate_const*BRO + rxt_rates(:ncol,:, 29) = rxt_rates(:ncol,:, 29)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 30) = rxt_rates(:ncol,:, 30)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 31) = rxt_rates(:ncol,:, 31)*sol(:ncol,:, 8) ! rate_const*CCL4 + rxt_rates(:ncol,:, 32) = rxt_rates(:ncol,:, 32)*sol(:ncol,:, 9) ! rate_const*CF2CLBR + rxt_rates(:ncol,:, 33) = rxt_rates(:ncol,:, 33)*sol(:ncol,:, 10) ! rate_const*CF3BR + rxt_rates(:ncol,:, 34) = rxt_rates(:ncol,:, 34)*sol(:ncol,:, 11) ! rate_const*CFC11 + rxt_rates(:ncol,:, 35) = rxt_rates(:ncol,:, 35)*sol(:ncol,:, 12) ! rate_const*CFC113 + rxt_rates(:ncol,:, 36) = rxt_rates(:ncol,:, 36)*sol(:ncol,:, 13) ! rate_const*CFC114 + rxt_rates(:ncol,:, 37) = rxt_rates(:ncol,:, 37)*sol(:ncol,:, 14) ! rate_const*CFC115 + rxt_rates(:ncol,:, 38) = rxt_rates(:ncol,:, 38)*sol(:ncol,:, 15) ! rate_const*CFC12 + rxt_rates(:ncol,:, 39) = rxt_rates(:ncol,:, 39)*sol(:ncol,:, 16) ! rate_const*CH2BR2 + rxt_rates(:ncol,:, 40) = rxt_rates(:ncol,:, 40)*sol(:ncol,:, 18) ! rate_const*CH3BR + rxt_rates(:ncol,:, 41) = rxt_rates(:ncol,:, 41)*sol(:ncol,:, 19) ! rate_const*CH3CCL3 + rxt_rates(:ncol,:, 42) = rxt_rates(:ncol,:, 42)*sol(:ncol,:, 20) ! rate_const*CH3CL + rxt_rates(:ncol,:, 43) = rxt_rates(:ncol,:, 43)*sol(:ncol,:, 24) ! rate_const*CHBR3 + rxt_rates(:ncol,:, 44) = rxt_rates(:ncol,:, 44)*sol(:ncol,:, 26) ! rate_const*CL2 + rxt_rates(:ncol,:, 45) = rxt_rates(:ncol,:, 45)*sol(:ncol,:, 27) ! rate_const*CL2O2 + rxt_rates(:ncol,:, 46) = rxt_rates(:ncol,:, 46)*sol(:ncol,:, 28) ! rate_const*CLO + rxt_rates(:ncol,:, 47) = rxt_rates(:ncol,:, 47)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 48) = rxt_rates(:ncol,:, 48)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 49) = rxt_rates(:ncol,:, 49)*sol(:ncol,:, 33) ! rate_const*COF2 + rxt_rates(:ncol,:, 50) = rxt_rates(:ncol,:, 50)*sol(:ncol,:, 34) ! rate_const*COFCL + rxt_rates(:ncol,:, 51) = rxt_rates(:ncol,:, 51)*sol(:ncol,:, 42) ! rate_const*H2402 + rxt_rates(:ncol,:, 52) = rxt_rates(:ncol,:, 52)*sol(:ncol,:, 45) ! rate_const*HBR + rxt_rates(:ncol,:, 53) = rxt_rates(:ncol,:, 53)*sol(:ncol,:, 46) ! rate_const*HCFC141B + rxt_rates(:ncol,:, 54) = rxt_rates(:ncol,:, 54)*sol(:ncol,:, 47) ! rate_const*HCFC142B + rxt_rates(:ncol,:, 55) = rxt_rates(:ncol,:, 55)*sol(:ncol,:, 48) ! rate_const*HCFC22 + rxt_rates(:ncol,:, 56) = rxt_rates(:ncol,:, 56)*sol(:ncol,:, 49) ! rate_const*HCL + rxt_rates(:ncol,:, 57) = rxt_rates(:ncol,:, 57)*sol(:ncol,:, 50) ! rate_const*HF + rxt_rates(:ncol,:, 58) = rxt_rates(:ncol,:, 58)*sol(:ncol,:, 53) ! rate_const*HOBR + rxt_rates(:ncol,:, 59) = rxt_rates(:ncol,:, 59)*sol(:ncol,:, 54) ! rate_const*HOCL + rxt_rates(:ncol,:, 60) = rxt_rates(:ncol,:, 60)*sol(:ncol,:, 73) ! rate_const*OCLO + rxt_rates(:ncol,:, 61) = rxt_rates(:ncol,:, 61)*sol(:ncol,:, 78) ! rate_const*SF6 + rxt_rates(:ncol,:, 62) = rxt_rates(:ncol,:, 62)*sol(:ncol,:, 32) ! rate_const*CO2 + rxt_rates(:ncol,:, 63) = rxt_rates(:ncol,:, 63)*sol(:ncol,:, 92) ! rate_const*CO3m + rxt_rates(:ncol,:, 64) = rxt_rates(:ncol,:, 64)*sol(:ncol,:, 94) ! rate_const*CO3m_H2O + rxt_rates(:ncol,:, 65) = rxt_rates(:ncol,:, 65)*sol(:ncol,:, 95) ! rate_const*CO4m + rxt_rates(:ncol,:, 66) = rxt_rates(:ncol,:, 66)*sol(:ncol,:, 56) ! rate_const*N ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 @@ -82,24 +82,24 @@ subroutine set_rates( rxt_rates, sol, ncol ) ! rate_const*N2 ! rate_const*N2 ! rate_const*N2 - rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 108) ! rate_const*NO2m - rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 110) ! rate_const*NO3m - rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 67) ! rate_const*O - rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 67) ! rate_const*O - rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 67) ! rate_const*O - rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 67) ! rate_const*O - rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 67) ! rate_const*O - rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 67) ! rate_const*O - rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 68) ! rate_const*O2 - rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 68) ! rate_const*O2 + rxt_rates(:ncol,:, 75) = rxt_rates(:ncol,:, 75)*sol(:ncol,:, 109) ! rate_const*NO2m + rxt_rates(:ncol,:, 76) = rxt_rates(:ncol,:, 76)*sol(:ncol,:, 111) ! rate_const*NO3m + rxt_rates(:ncol,:, 77) = rxt_rates(:ncol,:, 77)*sol(:ncol,:, 69) ! rate_const*O + rxt_rates(:ncol,:, 78) = rxt_rates(:ncol,:, 78)*sol(:ncol,:, 69) ! rate_const*O + rxt_rates(:ncol,:, 79) = rxt_rates(:ncol,:, 79)*sol(:ncol,:, 69) ! rate_const*O + rxt_rates(:ncol,:, 80) = rxt_rates(:ncol,:, 80)*sol(:ncol,:, 69) ! rate_const*O + rxt_rates(:ncol,:, 81) = rxt_rates(:ncol,:, 81)*sol(:ncol,:, 69) ! rate_const*O + rxt_rates(:ncol,:, 82) = rxt_rates(:ncol,:, 82)*sol(:ncol,:, 69) ! rate_const*O + rxt_rates(:ncol,:, 83) = rxt_rates(:ncol,:, 83)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 84) = rxt_rates(:ncol,:, 84)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 85) = rxt_rates(:ncol,:, 85)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 86) = rxt_rates(:ncol,:, 86)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 87) = rxt_rates(:ncol,:, 87)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 88) = rxt_rates(:ncol,:, 88)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 89) = rxt_rates(:ncol,:, 89)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 90) = rxt_rates(:ncol,:, 90)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 91) = rxt_rates(:ncol,:, 91)*sol(:ncol,:, 71) ! rate_const*O2 + rxt_rates(:ncol,:, 92) = rxt_rates(:ncol,:, 92)*sol(:ncol,:, 71) ! rate_const*O2 rxt_rates(:ncol,:, 93) = rxt_rates(:ncol,:, 93)*sol(:ncol,:, 125) ! rate_const*O2m rxt_rates(:ncol,:, 94) = rxt_rates(:ncol,:, 94)*sol(:ncol,:, 127) ! rate_const*O2p_H2O rxt_rates(:ncol,:, 95) = rxt_rates(:ncol,:, 95)*sol(:ncol,:, 128) ! rate_const*O3m @@ -107,513 +107,513 @@ subroutine set_rates( rxt_rates, sol, ncol ) rxt_rates(:ncol,:, 97) = rxt_rates(:ncol,:, 97)*sol(:ncol,:, 129) ! rate_const*O4m rxt_rates(:ncol,:, 98) = rxt_rates(:ncol,:, 98)*sol(:ncol,:, 132) ! rate_const*OHm rxt_rates(:ncol,:, 99) = rxt_rates(:ncol,:, 99)*sol(:ncol,:, 133) ! rate_const*Om - rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 42) ! rate_const*H2SO4 - rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 71) ! rate_const*OCS - rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 76) ! rate_const*SO - rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 77) ! rate_const*SO2 - rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 78) ! rate_const*SO3 - rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 87)*sol(:ncol,:, 38) ! rate_const*CLm*H - rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 88)*sol(:ncol,:, 47) ! rate_const*CLm_H2O*HCL - rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 87)*sol(:ncol,:, 137) ! rate_const*M*CLm*H2O - rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 47)*sol(:ncol,:, 87) ! rate_const*M*HCL*CLm - rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 87)*sol(:ncol,:, 49) ! rate_const*CLm*HNO3 - rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 87)*sol(:ncol,:, 61) ! rate_const*CLm*NO2 - rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 90)*sol(:ncol,:, 60) ! rate_const*CLOm*NO - rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 90)*sol(:ncol,:, 60) ! rate_const*CLOm*NO - rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 90)*sol(:ncol,:, 67) ! rate_const*CLOm*O - rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 86)*sol(:ncol,:, 91) ! rate_const*CL*CO3m - rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 86)*sol(:ncol,:, 91) ! rate_const*CL*CO3m - rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 26)*sol(:ncol,:, 91) ! rate_const*CLO*CO3m - rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 38)*sol(:ncol,:, 91) ! rate_const*H*CO3m - rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 93)*sol(:ncol,:, 137) ! rate_const*M*CO3m_H2O*H2O - rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 91)*sol(:ncol,:, 137) ! rate_const*M*CO3m*H2O - rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 93)*sol(:ncol,:, 61) ! rate_const*CO3m_H2O*NO2 - rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 93)*sol(:ncol,:, 61) ! rate_const*CO3m_H2O*NO2 - rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 93)*sol(:ncol,:, 60) ! rate_const*CO3m_H2O*NO - rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 93)*sol(:ncol,:, 60) ! rate_const*CO3m_H2O*NO - rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 91)*sol(:ncol,:, 49) ! rate_const*CO3m*HNO3 - rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 91)*sol(:ncol,:, 67) ! rate_const*CO3m*O - rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 68)*sol(:ncol,:, 91) ! rate_const*O2*CO3m - rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 86)*sol(:ncol,:, 94) ! rate_const*CL*CO4m - rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 26)*sol(:ncol,:, 94) ! rate_const*CLO*CO4m - rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 94)*sol(:ncol,:, 38) ! rate_const*CO4m*H - rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 94)*sol(:ncol,:, 47) ! rate_const*CO4m*HCL - rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 94)*sol(:ncol,:, 67) ! rate_const*CO4m*O - rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 94)*sol(:ncol,:, 69) ! rate_const*CO4m*O3 - rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 95)*sol(:ncol,:, 68) ! rate_const*N2*e*O2 - rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 69)*sol(:ncol,:, 95) ! rate_const*O3*e - rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 68)*sol(:ncol,:, 95) ! rate_const*M*O2*e - rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 60)*sol(:ncol,:, 133) ! rate_const*NO*Om + rxt_rates(:ncol,:, 100) = rxt_rates(:ncol,:, 100)*sol(:ncol,:, 44) ! rate_const*H2SO4 + rxt_rates(:ncol,:, 101) = rxt_rates(:ncol,:, 101)*sol(:ncol,:, 74) ! rate_const*OCS + rxt_rates(:ncol,:, 102) = rxt_rates(:ncol,:, 102)*sol(:ncol,:, 79) ! rate_const*SO + rxt_rates(:ncol,:, 103) = rxt_rates(:ncol,:, 103)*sol(:ncol,:, 80) ! rate_const*SO2 + rxt_rates(:ncol,:, 104) = rxt_rates(:ncol,:, 104)*sol(:ncol,:, 81) ! rate_const*SO3 + rxt_rates(:ncol,:, 105) = rxt_rates(:ncol,:, 105)*sol(:ncol,:, 88)*sol(:ncol,:, 40) ! rate_const*CLm*H + rxt_rates(:ncol,:, 106) = rxt_rates(:ncol,:, 106)*sol(:ncol,:, 89)*sol(:ncol,:, 49) ! rate_const*CLm_H2O*HCL + rxt_rates(:ncol,:, 107) = rxt_rates(:ncol,:, 107)*sol(:ncol,:, 88)*sol(:ncol,:, 137) ! rate_const*M*CLm*H2O + rxt_rates(:ncol,:, 108) = rxt_rates(:ncol,:, 108)*sol(:ncol,:, 49)*sol(:ncol,:, 88) ! rate_const*M*HCL*CLm + rxt_rates(:ncol,:, 109) = rxt_rates(:ncol,:, 109)*sol(:ncol,:, 88)*sol(:ncol,:, 51) ! rate_const*CLm*HNO3 + rxt_rates(:ncol,:, 110) = rxt_rates(:ncol,:, 110)*sol(:ncol,:, 88)*sol(:ncol,:, 63) ! rate_const*CLm*NO2 + rxt_rates(:ncol,:, 111) = rxt_rates(:ncol,:, 111)*sol(:ncol,:, 91)*sol(:ncol,:, 62) ! rate_const*CLOm*NO + rxt_rates(:ncol,:, 112) = rxt_rates(:ncol,:, 112)*sol(:ncol,:, 91)*sol(:ncol,:, 62) ! rate_const*CLOm*NO + rxt_rates(:ncol,:, 113) = rxt_rates(:ncol,:, 113)*sol(:ncol,:, 91)*sol(:ncol,:, 69) ! rate_const*CLOm*O + rxt_rates(:ncol,:, 114) = rxt_rates(:ncol,:, 114)*sol(:ncol,:, 25)*sol(:ncol,:, 92) ! rate_const*CL*CO3m + rxt_rates(:ncol,:, 115) = rxt_rates(:ncol,:, 115)*sol(:ncol,:, 25)*sol(:ncol,:, 92) ! rate_const*CL*CO3m + rxt_rates(:ncol,:, 116) = rxt_rates(:ncol,:, 116)*sol(:ncol,:, 28)*sol(:ncol,:, 92) ! rate_const*CLO*CO3m + rxt_rates(:ncol,:, 117) = rxt_rates(:ncol,:, 117)*sol(:ncol,:, 40)*sol(:ncol,:, 92) ! rate_const*H*CO3m + rxt_rates(:ncol,:, 118) = rxt_rates(:ncol,:, 118)*sol(:ncol,:, 94)*sol(:ncol,:, 137) ! rate_const*M*CO3m_H2O*H2O + rxt_rates(:ncol,:, 119) = rxt_rates(:ncol,:, 119)*sol(:ncol,:, 92)*sol(:ncol,:, 137) ! rate_const*M*CO3m*H2O + rxt_rates(:ncol,:, 120) = rxt_rates(:ncol,:, 120)*sol(:ncol,:, 94)*sol(:ncol,:, 63) ! rate_const*CO3m_H2O*NO2 + rxt_rates(:ncol,:, 121) = rxt_rates(:ncol,:, 121)*sol(:ncol,:, 94)*sol(:ncol,:, 63) ! rate_const*CO3m_H2O*NO2 + rxt_rates(:ncol,:, 122) = rxt_rates(:ncol,:, 122)*sol(:ncol,:, 94)*sol(:ncol,:, 62) ! rate_const*CO3m_H2O*NO + rxt_rates(:ncol,:, 123) = rxt_rates(:ncol,:, 123)*sol(:ncol,:, 94)*sol(:ncol,:, 62) ! rate_const*CO3m_H2O*NO + rxt_rates(:ncol,:, 124) = rxt_rates(:ncol,:, 124)*sol(:ncol,:, 92)*sol(:ncol,:, 51) ! rate_const*CO3m*HNO3 + rxt_rates(:ncol,:, 125) = rxt_rates(:ncol,:, 125)*sol(:ncol,:, 92)*sol(:ncol,:, 69) ! rate_const*CO3m*O + rxt_rates(:ncol,:, 126) = rxt_rates(:ncol,:, 126)*sol(:ncol,:, 71)*sol(:ncol,:, 92) ! rate_const*O2*CO3m + rxt_rates(:ncol,:, 127) = rxt_rates(:ncol,:, 127)*sol(:ncol,:, 25)*sol(:ncol,:, 95) ! rate_const*CL*CO4m + rxt_rates(:ncol,:, 128) = rxt_rates(:ncol,:, 128)*sol(:ncol,:, 28)*sol(:ncol,:, 95) ! rate_const*CLO*CO4m + rxt_rates(:ncol,:, 129) = rxt_rates(:ncol,:, 129)*sol(:ncol,:, 95)*sol(:ncol,:, 40) ! rate_const*CO4m*H + rxt_rates(:ncol,:, 130) = rxt_rates(:ncol,:, 130)*sol(:ncol,:, 95)*sol(:ncol,:, 49) ! rate_const*CO4m*HCL + rxt_rates(:ncol,:, 131) = rxt_rates(:ncol,:, 131)*sol(:ncol,:, 95)*sol(:ncol,:, 69) ! rate_const*CO4m*O + rxt_rates(:ncol,:, 132) = rxt_rates(:ncol,:, 132)*sol(:ncol,:, 95)*sol(:ncol,:, 72) ! rate_const*CO4m*O3 + rxt_rates(:ncol,:, 133) = rxt_rates(:ncol,:, 133)*sol(:ncol,:, 96)*sol(:ncol,:, 71) ! rate_const*N2*e*O2 + rxt_rates(:ncol,:, 134) = rxt_rates(:ncol,:, 134)*sol(:ncol,:, 72)*sol(:ncol,:, 96) ! rate_const*O3*e + rxt_rates(:ncol,:, 135) = rxt_rates(:ncol,:, 135)*sol(:ncol,:, 71)*sol(:ncol,:, 96) ! rate_const*M*O2*e + rxt_rates(:ncol,:, 136) = rxt_rates(:ncol,:, 136)*sol(:ncol,:, 62)*sol(:ncol,:, 133) ! rate_const*NO*Om rxt_rates(:ncol,:, 137) = rxt_rates(:ncol,:, 137)*sol(:ncol,:, 125) ! rate_const*N2*O2m - rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 96)*sol(:ncol,:, 95) ! rate_const*H3Op_OH*e - rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 137)*sol(:ncol,:, 96) ! rate_const*H2O*H3Op_OH - rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 137)*sol(:ncol,:, 101) ! rate_const*H2O*Hp_3N1 - rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 102)*sol(:ncol,:, 95) ! rate_const*Hp_4H2O*e - rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 102)*sol(:ncol,:, 56) ! rate_const*Hp_4H2O*N2O5 - rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 137)*sol(:ncol,:, 103) ! rate_const*H2O*Hp_4N1 - rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 104)*sol(:ncol,:, 95) ! rate_const*Hp_5H2O*e - rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 104)*sol(:ncol,:, 56) ! rate_const*Hp_5H2O*N2O5 - rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 102)*sol(:ncol,:, 114) ! rate_const*Hp_4H2O*NO3mHNO3 - rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 87)*sol(:ncol,:, 102) ! rate_const*CLm*Hp_4H2O - rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 110)*sol(:ncol,:, 126) ! rate_const*NO3m*O2p - rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 97)*sol(:ncol,:, 126) ! rate_const*HCO3m*O2p + rxt_rates(:ncol,:, 138) = rxt_rates(:ncol,:, 138)*sol(:ncol,:, 97)*sol(:ncol,:, 96) ! rate_const*H3Op_OH*e + rxt_rates(:ncol,:, 139) = rxt_rates(:ncol,:, 139)*sol(:ncol,:, 137)*sol(:ncol,:, 97) ! rate_const*H2O*H3Op_OH + rxt_rates(:ncol,:, 140) = rxt_rates(:ncol,:, 140)*sol(:ncol,:, 137)*sol(:ncol,:, 102) ! rate_const*H2O*Hp_3N1 + rxt_rates(:ncol,:, 141) = rxt_rates(:ncol,:, 141)*sol(:ncol,:, 103)*sol(:ncol,:, 96) ! rate_const*Hp_4H2O*e + rxt_rates(:ncol,:, 142) = rxt_rates(:ncol,:, 142)*sol(:ncol,:, 103)*sol(:ncol,:, 58) ! rate_const*Hp_4H2O*N2O5 + rxt_rates(:ncol,:, 143) = rxt_rates(:ncol,:, 143)*sol(:ncol,:, 137)*sol(:ncol,:, 104) ! rate_const*H2O*Hp_4N1 + rxt_rates(:ncol,:, 144) = rxt_rates(:ncol,:, 144)*sol(:ncol,:, 105)*sol(:ncol,:, 96) ! rate_const*Hp_5H2O*e + rxt_rates(:ncol,:, 145) = rxt_rates(:ncol,:, 145)*sol(:ncol,:, 105)*sol(:ncol,:, 58) ! rate_const*Hp_5H2O*N2O5 + rxt_rates(:ncol,:, 146) = rxt_rates(:ncol,:, 146)*sol(:ncol,:, 103)*sol(:ncol,:, 115) ! rate_const*Hp_4H2O*NO3mHNO3 + rxt_rates(:ncol,:, 147) = rxt_rates(:ncol,:, 147)*sol(:ncol,:, 88)*sol(:ncol,:, 103) ! rate_const*CLm*Hp_4H2O + rxt_rates(:ncol,:, 148) = rxt_rates(:ncol,:, 148)*sol(:ncol,:, 111)*sol(:ncol,:, 126) ! rate_const*NO3m*O2p + rxt_rates(:ncol,:, 149) = rxt_rates(:ncol,:, 149)*sol(:ncol,:, 98)*sol(:ncol,:, 126) ! rate_const*HCO3m*O2p rxt_rates(:ncol,:, 150) = rxt_rates(:ncol,:, 150)*sol(:ncol,:, 125)*sol(:ncol,:, 126) ! rate_const*O2m*O2p - rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 94)*sol(:ncol,:, 126) ! rate_const*CO4m*O2p - rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 112)*sol(:ncol,:, 126) ! rate_const*NO3m_H2O*O2p - rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 92)*sol(:ncol,:, 126) ! rate_const*CO3m2H2O*O2p - rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 87)*sol(:ncol,:, 126) ! rate_const*CLm*O2p - rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 93)*sol(:ncol,:, 126) ! rate_const*CO3m_H2O*O2p - rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 109)*sol(:ncol,:, 126) ! rate_const*NO2m_H2O*O2p - rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 113)*sol(:ncol,:, 126) ! rate_const*NO3m_HCL*O2p - rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 93)*sol(:ncol,:, 102) ! rate_const*CO3m_H2O*Hp_4H2O - rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 126)*sol(:ncol,:, 88) ! rate_const*O2p*CLm_H2O - rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 111)*sol(:ncol,:, 126) ! rate_const*NO3m2H2O*O2p - rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 108)*sol(:ncol,:, 126) ! rate_const*NO2m*O2p - rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 102)*sol(:ncol,:, 109) ! rate_const*Hp_4H2O*NO2m_H2O - rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 102)*sol(:ncol,:, 113) ! rate_const*Hp_4H2O*NO3m_HCL - rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 88)*sol(:ncol,:, 102) ! rate_const*CLm_H2O*Hp_4H2O - rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 111)*sol(:ncol,:, 102) ! rate_const*NO3m2H2O*Hp_4H2O - rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 102)*sol(:ncol,:, 108) ! rate_const*Hp_4H2O*NO2m - rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 104)*sol(:ncol,:, 114) ! rate_const*Hp_5H2O*NO3mHNO3 - rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 91)*sol(:ncol,:, 104) ! rate_const*CO3m*Hp_5H2O - rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 89)*sol(:ncol,:, 104) ! rate_const*CLm_HCL*Hp_5H2O - rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 91)*sol(:ncol,:, 102) ! rate_const*CO3m*Hp_4H2O - rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 110)*sol(:ncol,:, 104) ! rate_const*NO3m*Hp_5H2O - rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 97)*sol(:ncol,:, 104) ! rate_const*HCO3m*Hp_5H2O - rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 104)*sol(:ncol,:, 125) ! rate_const*Hp_5H2O*O2m - rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 94)*sol(:ncol,:, 104) ! rate_const*CO4m*Hp_5H2O - rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 104)*sol(:ncol,:, 112) ! rate_const*Hp_5H2O*NO3m_H2O - rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 92)*sol(:ncol,:, 104) ! rate_const*CO3m2H2O*Hp_5H2O - rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 87)*sol(:ncol,:, 104) ! rate_const*CLm*Hp_5H2O - rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 93)*sol(:ncol,:, 104) ! rate_const*CO3m_H2O*Hp_5H2O - rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 109)*sol(:ncol,:, 104) ! rate_const*NO2m_H2O*Hp_5H2O - rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 104)*sol(:ncol,:, 113) ! rate_const*Hp_5H2O*NO3m_HCL - rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 89)*sol(:ncol,:, 102) ! rate_const*CLm_HCL*Hp_4H2O - rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 88)*sol(:ncol,:, 104) ! rate_const*CLm_H2O*Hp_5H2O - rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 104)*sol(:ncol,:, 111) ! rate_const*Hp_5H2O*NO3m2H2O - rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 104)*sol(:ncol,:, 108) ! rate_const*Hp_5H2O*NO2m - rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 100)*sol(:ncol,:, 114) ! rate_const*Hp_3H2O*NO3mHNO3 - rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 100)*sol(:ncol,:, 91) ! rate_const*Hp_3H2O*CO3m - rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 89)*sol(:ncol,:, 100) ! rate_const*CLm_HCL*Hp_3H2O - rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 100)*sol(:ncol,:, 110) ! rate_const*Hp_3H2O*NO3m - rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 97)*sol(:ncol,:, 100) ! rate_const*HCO3m*Hp_3H2O - rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 100)*sol(:ncol,:, 125) ! rate_const*Hp_3H2O*O2m - rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 94)*sol(:ncol,:, 100) ! rate_const*CO4m*Hp_3H2O - rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 102)*sol(:ncol,:, 110) ! rate_const*Hp_4H2O*NO3m - rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 100)*sol(:ncol,:, 112) ! rate_const*Hp_3H2O*NO3m_H2O - rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 92)*sol(:ncol,:, 100) ! rate_const*CO3m2H2O*Hp_3H2O - rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 87)*sol(:ncol,:, 100) ! rate_const*CLm*Hp_3H2O - rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 93)*sol(:ncol,:, 100) ! rate_const*CO3m_H2O*Hp_3H2O - rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 100)*sol(:ncol,:, 109) ! rate_const*Hp_3H2O*NO2m_H2O - rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 100)*sol(:ncol,:, 113) ! rate_const*Hp_3H2O*NO3m_HCL - rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 88)*sol(:ncol,:, 100) ! rate_const*CLm_H2O*Hp_3H2O - rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 100)*sol(:ncol,:, 111) ! rate_const*Hp_3H2O*NO3m2H2O - rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 100)*sol(:ncol,:, 108) ! rate_const*Hp_3H2O*NO2m - rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 114)*sol(:ncol,:, 119) ! rate_const*NO3mHNO3*NOp_H2O - rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 97)*sol(:ncol,:, 102) ! rate_const*HCO3m*Hp_4H2O - rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 91)*sol(:ncol,:, 119) ! rate_const*CO3m*NOp_H2O - rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 89)*sol(:ncol,:, 119) ! rate_const*CLm_HCL*NOp_H2O - rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 110)*sol(:ncol,:, 119) ! rate_const*NO3m*NOp_H2O - rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 97)*sol(:ncol,:, 119) ! rate_const*HCO3m*NOp_H2O - rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 119)*sol(:ncol,:, 125) ! rate_const*NOp_H2O*O2m - rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 94)*sol(:ncol,:, 119) ! rate_const*CO4m*NOp_H2O - rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 112)*sol(:ncol,:, 119) ! rate_const*NO3m_H2O*NOp_H2O - rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 92)*sol(:ncol,:, 119) ! rate_const*CO3m2H2O*NOp_H2O - rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 87)*sol(:ncol,:, 119) ! rate_const*CLm*NOp_H2O - rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 93)*sol(:ncol,:, 119) ! rate_const*CO3m_H2O*NOp_H2O - rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 102)*sol(:ncol,:, 125) ! rate_const*Hp_4H2O*O2m - rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 109)*sol(:ncol,:, 119) ! rate_const*NO2m_H2O*NOp_H2O - rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 113)*sol(:ncol,:, 119) ! rate_const*NO3m_HCL*NOp_H2O - rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 88)*sol(:ncol,:, 119) ! rate_const*CLm_H2O*NOp_H2O - rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 111)*sol(:ncol,:, 119) ! rate_const*NO3m2H2O*NOp_H2O - rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 108)*sol(:ncol,:, 119) ! rate_const*NO2m*NOp_H2O - rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 114)*sol(:ncol,:, 116) ! rate_const*NO3mHNO3*NOp_2H2O - rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 91)*sol(:ncol,:, 116) ! rate_const*CO3m*NOp_2H2O - rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 89)*sol(:ncol,:, 116) ! rate_const*CLm_HCL*NOp_2H2O - rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 116)*sol(:ncol,:, 110) ! rate_const*NOp_2H2O*NO3m - rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 97)*sol(:ncol,:, 116) ! rate_const*HCO3m*NOp_2H2O - rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 94)*sol(:ncol,:, 102) ! rate_const*CO4m*Hp_4H2O - rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 116)*sol(:ncol,:, 125) ! rate_const*NOp_2H2O*O2m - rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 116)*sol(:ncol,:, 94) ! rate_const*NOp_2H2O*CO4m - rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 112)*sol(:ncol,:, 116) ! rate_const*NO3m_H2O*NOp_2H2O - rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 92)*sol(:ncol,:, 116) ! rate_const*CO3m2H2O*NOp_2H2O - rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 87)*sol(:ncol,:, 116) ! rate_const*CLm*NOp_2H2O - rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 93)*sol(:ncol,:, 116) ! rate_const*CO3m_H2O*NOp_2H2O - rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 116)*sol(:ncol,:, 109) ! rate_const*NOp_2H2O*NO2m_H2O - rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 113)*sol(:ncol,:, 116) ! rate_const*NO3m_HCL*NOp_2H2O - rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 116)*sol(:ncol,:, 88) ! rate_const*NOp_2H2O*CLm_H2O - rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 116)*sol(:ncol,:, 111) ! rate_const*NOp_2H2O*NO3m2H2O - rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 102)*sol(:ncol,:, 112) ! rate_const*Hp_4H2O*NO3m_H2O - rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 116)*sol(:ncol,:, 108) ! rate_const*NOp_2H2O*NO2m - rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 115)*sol(:ncol,:, 114) ! rate_const*NOp*NO3mHNO3 - rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 115)*sol(:ncol,:, 91) ! rate_const*NOp*CO3m - rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 115)*sol(:ncol,:, 89) ! rate_const*NOp*CLm_HCL - rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 110)*sol(:ncol,:, 115) ! rate_const*NO3m*NOp - rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 115)*sol(:ncol,:, 97) ! rate_const*NOp*HCO3m - rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 125)*sol(:ncol,:, 115) ! rate_const*O2m*NOp - rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 115)*sol(:ncol,:, 94) ! rate_const*NOp*CO4m - rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 115)*sol(:ncol,:, 112) ! rate_const*NOp*NO3m_H2O - rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 115)*sol(:ncol,:, 92) ! rate_const*NOp*CO3m2H2O - rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 92)*sol(:ncol,:, 102) ! rate_const*CO3m2H2O*Hp_4H2O - rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 87)*sol(:ncol,:, 115) ! rate_const*CLm*NOp - rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 93)*sol(:ncol,:, 115) ! rate_const*CO3m_H2O*NOp - rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 109)*sol(:ncol,:, 115) ! rate_const*NO2m_H2O*NOp - rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 113)*sol(:ncol,:, 115) ! rate_const*NO3m_HCL*NOp - rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 88)*sol(:ncol,:, 115) ! rate_const*CLm_H2O*NOp - rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 115)*sol(:ncol,:, 111) ! rate_const*NOp*NO3m2H2O - rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 115)*sol(:ncol,:, 108) ! rate_const*NOp*NO2m - rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 114)*sol(:ncol,:, 126) ! rate_const*NO3mHNO3*O2p - rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 126)*sol(:ncol,:, 91) ! rate_const*O2p*CO3m - rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 126)*sol(:ncol,:, 89) ! rate_const*O2p*CLm_HCL - rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 102)*sol(:ncol,:, 91) ! rate_const*M*Hp_4H2O*CO3m - rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 104)*sol(:ncol,:, 92) ! rate_const*M*Hp_5H2O*CO3m2H2O - rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 93)*sol(:ncol,:, 102) ! rate_const*M*CO3m_H2O*Hp_4H2O - rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 104)*sol(:ncol,:, 93) ! rate_const*M*Hp_5H2O*CO3m_H2O - rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 112)*sol(:ncol,:, 102) ! rate_const*M*NO3m_H2O*Hp_4H2O - rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 112)*sol(:ncol,:, 104) ! rate_const*M*NO3m_H2O*Hp_5H2O - rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 110)*sol(:ncol,:, 102) ! rate_const*M*NO3m*Hp_4H2O - rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 104)*sol(:ncol,:, 91) ! rate_const*M*Hp_5H2O*CO3m - rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 104)*sol(:ncol,:, 110) ! rate_const*M*Hp_5H2O*NO3m - rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 89)*sol(:ncol,:, 102) ! rate_const*M*CLm_HCL*Hp_4H2O - rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 104)*sol(:ncol,:, 89) ! rate_const*M*Hp_5H2O*CLm_HCL - rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 114)*sol(:ncol,:, 102) ! rate_const*M*NO3mHNO3*Hp_4H2O - rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 104)*sol(:ncol,:, 114) ! rate_const*M*Hp_5H2O*NO3mHNO3 - rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 92)*sol(:ncol,:, 102) ! rate_const*M*CO3m2H2O*Hp_4H2O - rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 60)*sol(:ncol,:, 128) ! rate_const*NO*O3m - rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 109) ! rate_const*M*NO2m_H2O - rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 111) ! rate_const*M*NO3m2H2O - rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 114) ! rate_const*M*NO3mHNO3 - rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 47)*sol(:ncol,:, 110) ! rate_const*M*HCL*NO3m - rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 61)*sol(:ncol,:, 128) ! rate_const*NO2*O3m - rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 61)*sol(:ncol,:, 128) ! rate_const*NO2*O3m - rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 60)*sol(:ncol,:, 128) ! rate_const*NO*O3m - rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 91)*sol(:ncol,:, 60) ! rate_const*CO3m*NO - rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 91)*sol(:ncol,:, 61) ! rate_const*CO3m*NO2 - rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 112) ! rate_const*M*NO3m_H2O - rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 93) ! rate_const*M*CO3m_H2O - rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 92) ! rate_const*M*CO3m2H2O - rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 86)*sol(:ncol,:, 108) ! rate_const*CL*NO2m - rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 26)*sol(:ncol,:, 108) ! rate_const*CLO*NO2m - rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 38)*sol(:ncol,:, 108) ! rate_const*H*NO2m - rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 108)*sol(:ncol,:, 137) ! rate_const*M*NO2m*H2O - rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 47)*sol(:ncol,:, 108) ! rate_const*HCL*NO2m - rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 49)*sol(:ncol,:, 108) ! rate_const*HNO3*NO2m - rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 61)*sol(:ncol,:, 108) ! rate_const*NO2*NO2m - rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 108)*sol(:ncol,:, 69) ! rate_const*NO2m*O3 - rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 111)*sol(:ncol,:, 56) ! rate_const*NO3m2H2O*N2O5 - rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 112)*sol(:ncol,:, 137) ! rate_const*M*NO3m_H2O*H2O - rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 49)*sol(:ncol,:, 112) ! rate_const*HNO3*NO3m_H2O - rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 137)*sol(:ncol,:, 110) ! rate_const*M*H2O*NO3m - rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 112)*sol(:ncol,:, 56) ! rate_const*NO3m_H2O*N2O5 - rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 47)*sol(:ncol,:, 110) ! rate_const*HCL*NO3m - rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 49)*sol(:ncol,:, 113) ! rate_const*HNO3*NO3m_HCL - rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 110)*sol(:ncol,:, 49) ! rate_const*M*NO3m*HNO3 - rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 110)*sol(:ncol,:, 67) ! rate_const*NO3m*O - rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 69)*sol(:ncol,:, 110) ! rate_const*O3*NO3m - rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 116)*sol(:ncol,:, 95) ! rate_const*NOp_2H2O*e - rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 117)*sol(:ncol,:, 95) ! rate_const*NOp_3H2O*e - rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 137)*sol(:ncol,:, 117) ! rate_const*H2O*NOp_3H2O - rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 118)*sol(:ncol,:, 95) ! rate_const*NOp_CO2*e - rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 118)*sol(:ncol,:, 137) ! rate_const*NOp_CO2*H2O - rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 119)*sol(:ncol,:, 95) ! rate_const*NOp_H2O*e - rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 38)*sol(:ncol,:, 119) ! rate_const*H*NOp_H2O - rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 119)*sol(:ncol,:, 98) ! rate_const*NOp_H2O*HO2 - rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 119)*sol(:ncol,:, 131) ! rate_const*NOp_H2O*OH - rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 30)*sol(:ncol,:, 120) ! rate_const*CO2*NOp_N2 - rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 120)*sol(:ncol,:, 137) ! rate_const*NOp_N2*H2O - rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 125)*sol(:ncol,:, 86) ! rate_const*O2m*CL - rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 26)*sol(:ncol,:, 125) ! rate_const*CLO*O2m - rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 30)*sol(:ncol,:, 125) ! rate_const*M*CO2*O2m - rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 38)*sol(:ncol,:, 125) ! rate_const*H*O2m - rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 125)*sol(:ncol,:, 47) ! rate_const*O2m*HCL - rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 125)*sol(:ncol,:, 49) ! rate_const*O2m*HNO3 - rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 61)*sol(:ncol,:, 125) ! rate_const*NO2*O2m + rxt_rates(:ncol,:, 151) = rxt_rates(:ncol,:, 151)*sol(:ncol,:, 95)*sol(:ncol,:, 126) ! rate_const*CO4m*O2p + rxt_rates(:ncol,:, 152) = rxt_rates(:ncol,:, 152)*sol(:ncol,:, 113)*sol(:ncol,:, 126) ! rate_const*NO3m_H2O*O2p + rxt_rates(:ncol,:, 153) = rxt_rates(:ncol,:, 153)*sol(:ncol,:, 93)*sol(:ncol,:, 126) ! rate_const*CO3m2H2O*O2p + rxt_rates(:ncol,:, 154) = rxt_rates(:ncol,:, 154)*sol(:ncol,:, 88)*sol(:ncol,:, 126) ! rate_const*CLm*O2p + rxt_rates(:ncol,:, 155) = rxt_rates(:ncol,:, 155)*sol(:ncol,:, 94)*sol(:ncol,:, 126) ! rate_const*CO3m_H2O*O2p + rxt_rates(:ncol,:, 156) = rxt_rates(:ncol,:, 156)*sol(:ncol,:, 110)*sol(:ncol,:, 126) ! rate_const*NO2m_H2O*O2p + rxt_rates(:ncol,:, 157) = rxt_rates(:ncol,:, 157)*sol(:ncol,:, 114)*sol(:ncol,:, 126) ! rate_const*NO3m_HCL*O2p + rxt_rates(:ncol,:, 158) = rxt_rates(:ncol,:, 158)*sol(:ncol,:, 94)*sol(:ncol,:, 103) ! rate_const*CO3m_H2O*Hp_4H2O + rxt_rates(:ncol,:, 159) = rxt_rates(:ncol,:, 159)*sol(:ncol,:, 126)*sol(:ncol,:, 89) ! rate_const*O2p*CLm_H2O + rxt_rates(:ncol,:, 160) = rxt_rates(:ncol,:, 160)*sol(:ncol,:, 112)*sol(:ncol,:, 126) ! rate_const*NO3m2H2O*O2p + rxt_rates(:ncol,:, 161) = rxt_rates(:ncol,:, 161)*sol(:ncol,:, 109)*sol(:ncol,:, 126) ! rate_const*NO2m*O2p + rxt_rates(:ncol,:, 162) = rxt_rates(:ncol,:, 162)*sol(:ncol,:, 103)*sol(:ncol,:, 110) ! rate_const*Hp_4H2O*NO2m_H2O + rxt_rates(:ncol,:, 163) = rxt_rates(:ncol,:, 163)*sol(:ncol,:, 103)*sol(:ncol,:, 114) ! rate_const*Hp_4H2O*NO3m_HCL + rxt_rates(:ncol,:, 164) = rxt_rates(:ncol,:, 164)*sol(:ncol,:, 89)*sol(:ncol,:, 103) ! rate_const*CLm_H2O*Hp_4H2O + rxt_rates(:ncol,:, 165) = rxt_rates(:ncol,:, 165)*sol(:ncol,:, 112)*sol(:ncol,:, 103) ! rate_const*NO3m2H2O*Hp_4H2O + rxt_rates(:ncol,:, 166) = rxt_rates(:ncol,:, 166)*sol(:ncol,:, 103)*sol(:ncol,:, 109) ! rate_const*Hp_4H2O*NO2m + rxt_rates(:ncol,:, 167) = rxt_rates(:ncol,:, 167)*sol(:ncol,:, 105)*sol(:ncol,:, 115) ! rate_const*Hp_5H2O*NO3mHNO3 + rxt_rates(:ncol,:, 168) = rxt_rates(:ncol,:, 168)*sol(:ncol,:, 92)*sol(:ncol,:, 105) ! rate_const*CO3m*Hp_5H2O + rxt_rates(:ncol,:, 169) = rxt_rates(:ncol,:, 169)*sol(:ncol,:, 90)*sol(:ncol,:, 105) ! rate_const*CLm_HCL*Hp_5H2O + rxt_rates(:ncol,:, 170) = rxt_rates(:ncol,:, 170)*sol(:ncol,:, 92)*sol(:ncol,:, 103) ! rate_const*CO3m*Hp_4H2O + rxt_rates(:ncol,:, 171) = rxt_rates(:ncol,:, 171)*sol(:ncol,:, 111)*sol(:ncol,:, 105) ! rate_const*NO3m*Hp_5H2O + rxt_rates(:ncol,:, 172) = rxt_rates(:ncol,:, 172)*sol(:ncol,:, 98)*sol(:ncol,:, 105) ! rate_const*HCO3m*Hp_5H2O + rxt_rates(:ncol,:, 173) = rxt_rates(:ncol,:, 173)*sol(:ncol,:, 105)*sol(:ncol,:, 125) ! rate_const*Hp_5H2O*O2m + rxt_rates(:ncol,:, 174) = rxt_rates(:ncol,:, 174)*sol(:ncol,:, 95)*sol(:ncol,:, 105) ! rate_const*CO4m*Hp_5H2O + rxt_rates(:ncol,:, 175) = rxt_rates(:ncol,:, 175)*sol(:ncol,:, 105)*sol(:ncol,:, 113) ! rate_const*Hp_5H2O*NO3m_H2O + rxt_rates(:ncol,:, 176) = rxt_rates(:ncol,:, 176)*sol(:ncol,:, 93)*sol(:ncol,:, 105) ! rate_const*CO3m2H2O*Hp_5H2O + rxt_rates(:ncol,:, 177) = rxt_rates(:ncol,:, 177)*sol(:ncol,:, 88)*sol(:ncol,:, 105) ! rate_const*CLm*Hp_5H2O + rxt_rates(:ncol,:, 178) = rxt_rates(:ncol,:, 178)*sol(:ncol,:, 94)*sol(:ncol,:, 105) ! rate_const*CO3m_H2O*Hp_5H2O + rxt_rates(:ncol,:, 179) = rxt_rates(:ncol,:, 179)*sol(:ncol,:, 110)*sol(:ncol,:, 105) ! rate_const*NO2m_H2O*Hp_5H2O + rxt_rates(:ncol,:, 180) = rxt_rates(:ncol,:, 180)*sol(:ncol,:, 105)*sol(:ncol,:, 114) ! rate_const*Hp_5H2O*NO3m_HCL + rxt_rates(:ncol,:, 181) = rxt_rates(:ncol,:, 181)*sol(:ncol,:, 90)*sol(:ncol,:, 103) ! rate_const*CLm_HCL*Hp_4H2O + rxt_rates(:ncol,:, 182) = rxt_rates(:ncol,:, 182)*sol(:ncol,:, 89)*sol(:ncol,:, 105) ! rate_const*CLm_H2O*Hp_5H2O + rxt_rates(:ncol,:, 183) = rxt_rates(:ncol,:, 183)*sol(:ncol,:, 105)*sol(:ncol,:, 112) ! rate_const*Hp_5H2O*NO3m2H2O + rxt_rates(:ncol,:, 184) = rxt_rates(:ncol,:, 184)*sol(:ncol,:, 105)*sol(:ncol,:, 109) ! rate_const*Hp_5H2O*NO2m + rxt_rates(:ncol,:, 185) = rxt_rates(:ncol,:, 185)*sol(:ncol,:, 101)*sol(:ncol,:, 115) ! rate_const*Hp_3H2O*NO3mHNO3 + rxt_rates(:ncol,:, 186) = rxt_rates(:ncol,:, 186)*sol(:ncol,:, 101)*sol(:ncol,:, 92) ! rate_const*Hp_3H2O*CO3m + rxt_rates(:ncol,:, 187) = rxt_rates(:ncol,:, 187)*sol(:ncol,:, 90)*sol(:ncol,:, 101) ! rate_const*CLm_HCL*Hp_3H2O + rxt_rates(:ncol,:, 188) = rxt_rates(:ncol,:, 188)*sol(:ncol,:, 101)*sol(:ncol,:, 111) ! rate_const*Hp_3H2O*NO3m + rxt_rates(:ncol,:, 189) = rxt_rates(:ncol,:, 189)*sol(:ncol,:, 98)*sol(:ncol,:, 101) ! rate_const*HCO3m*Hp_3H2O + rxt_rates(:ncol,:, 190) = rxt_rates(:ncol,:, 190)*sol(:ncol,:, 101)*sol(:ncol,:, 125) ! rate_const*Hp_3H2O*O2m + rxt_rates(:ncol,:, 191) = rxt_rates(:ncol,:, 191)*sol(:ncol,:, 95)*sol(:ncol,:, 101) ! rate_const*CO4m*Hp_3H2O + rxt_rates(:ncol,:, 192) = rxt_rates(:ncol,:, 192)*sol(:ncol,:, 103)*sol(:ncol,:, 111) ! rate_const*Hp_4H2O*NO3m + rxt_rates(:ncol,:, 193) = rxt_rates(:ncol,:, 193)*sol(:ncol,:, 101)*sol(:ncol,:, 113) ! rate_const*Hp_3H2O*NO3m_H2O + rxt_rates(:ncol,:, 194) = rxt_rates(:ncol,:, 194)*sol(:ncol,:, 93)*sol(:ncol,:, 101) ! rate_const*CO3m2H2O*Hp_3H2O + rxt_rates(:ncol,:, 195) = rxt_rates(:ncol,:, 195)*sol(:ncol,:, 88)*sol(:ncol,:, 101) ! rate_const*CLm*Hp_3H2O + rxt_rates(:ncol,:, 196) = rxt_rates(:ncol,:, 196)*sol(:ncol,:, 94)*sol(:ncol,:, 101) ! rate_const*CO3m_H2O*Hp_3H2O + rxt_rates(:ncol,:, 197) = rxt_rates(:ncol,:, 197)*sol(:ncol,:, 101)*sol(:ncol,:, 110) ! rate_const*Hp_3H2O*NO2m_H2O + rxt_rates(:ncol,:, 198) = rxt_rates(:ncol,:, 198)*sol(:ncol,:, 101)*sol(:ncol,:, 114) ! rate_const*Hp_3H2O*NO3m_HCL + rxt_rates(:ncol,:, 199) = rxt_rates(:ncol,:, 199)*sol(:ncol,:, 89)*sol(:ncol,:, 101) ! rate_const*CLm_H2O*Hp_3H2O + rxt_rates(:ncol,:, 200) = rxt_rates(:ncol,:, 200)*sol(:ncol,:, 101)*sol(:ncol,:, 112) ! rate_const*Hp_3H2O*NO3m2H2O + rxt_rates(:ncol,:, 201) = rxt_rates(:ncol,:, 201)*sol(:ncol,:, 101)*sol(:ncol,:, 109) ! rate_const*Hp_3H2O*NO2m + rxt_rates(:ncol,:, 202) = rxt_rates(:ncol,:, 202)*sol(:ncol,:, 115)*sol(:ncol,:, 120) ! rate_const*NO3mHNO3*NOp_H2O + rxt_rates(:ncol,:, 203) = rxt_rates(:ncol,:, 203)*sol(:ncol,:, 98)*sol(:ncol,:, 103) ! rate_const*HCO3m*Hp_4H2O + rxt_rates(:ncol,:, 204) = rxt_rates(:ncol,:, 204)*sol(:ncol,:, 92)*sol(:ncol,:, 120) ! rate_const*CO3m*NOp_H2O + rxt_rates(:ncol,:, 205) = rxt_rates(:ncol,:, 205)*sol(:ncol,:, 90)*sol(:ncol,:, 120) ! rate_const*CLm_HCL*NOp_H2O + rxt_rates(:ncol,:, 206) = rxt_rates(:ncol,:, 206)*sol(:ncol,:, 111)*sol(:ncol,:, 120) ! rate_const*NO3m*NOp_H2O + rxt_rates(:ncol,:, 207) = rxt_rates(:ncol,:, 207)*sol(:ncol,:, 98)*sol(:ncol,:, 120) ! rate_const*HCO3m*NOp_H2O + rxt_rates(:ncol,:, 208) = rxt_rates(:ncol,:, 208)*sol(:ncol,:, 120)*sol(:ncol,:, 125) ! rate_const*NOp_H2O*O2m + rxt_rates(:ncol,:, 209) = rxt_rates(:ncol,:, 209)*sol(:ncol,:, 95)*sol(:ncol,:, 120) ! rate_const*CO4m*NOp_H2O + rxt_rates(:ncol,:, 210) = rxt_rates(:ncol,:, 210)*sol(:ncol,:, 113)*sol(:ncol,:, 120) ! rate_const*NO3m_H2O*NOp_H2O + rxt_rates(:ncol,:, 211) = rxt_rates(:ncol,:, 211)*sol(:ncol,:, 93)*sol(:ncol,:, 120) ! rate_const*CO3m2H2O*NOp_H2O + rxt_rates(:ncol,:, 212) = rxt_rates(:ncol,:, 212)*sol(:ncol,:, 88)*sol(:ncol,:, 120) ! rate_const*CLm*NOp_H2O + rxt_rates(:ncol,:, 213) = rxt_rates(:ncol,:, 213)*sol(:ncol,:, 94)*sol(:ncol,:, 120) ! rate_const*CO3m_H2O*NOp_H2O + rxt_rates(:ncol,:, 214) = rxt_rates(:ncol,:, 214)*sol(:ncol,:, 103)*sol(:ncol,:, 125) ! rate_const*Hp_4H2O*O2m + rxt_rates(:ncol,:, 215) = rxt_rates(:ncol,:, 215)*sol(:ncol,:, 110)*sol(:ncol,:, 120) ! rate_const*NO2m_H2O*NOp_H2O + rxt_rates(:ncol,:, 216) = rxt_rates(:ncol,:, 216)*sol(:ncol,:, 114)*sol(:ncol,:, 120) ! rate_const*NO3m_HCL*NOp_H2O + rxt_rates(:ncol,:, 217) = rxt_rates(:ncol,:, 217)*sol(:ncol,:, 89)*sol(:ncol,:, 120) ! rate_const*CLm_H2O*NOp_H2O + rxt_rates(:ncol,:, 218) = rxt_rates(:ncol,:, 218)*sol(:ncol,:, 112)*sol(:ncol,:, 120) ! rate_const*NO3m2H2O*NOp_H2O + rxt_rates(:ncol,:, 219) = rxt_rates(:ncol,:, 219)*sol(:ncol,:, 109)*sol(:ncol,:, 120) ! rate_const*NO2m*NOp_H2O + rxt_rates(:ncol,:, 220) = rxt_rates(:ncol,:, 220)*sol(:ncol,:, 115)*sol(:ncol,:, 117) ! rate_const*NO3mHNO3*NOp_2H2O + rxt_rates(:ncol,:, 221) = rxt_rates(:ncol,:, 221)*sol(:ncol,:, 92)*sol(:ncol,:, 117) ! rate_const*CO3m*NOp_2H2O + rxt_rates(:ncol,:, 222) = rxt_rates(:ncol,:, 222)*sol(:ncol,:, 90)*sol(:ncol,:, 117) ! rate_const*CLm_HCL*NOp_2H2O + rxt_rates(:ncol,:, 223) = rxt_rates(:ncol,:, 223)*sol(:ncol,:, 117)*sol(:ncol,:, 111) ! rate_const*NOp_2H2O*NO3m + rxt_rates(:ncol,:, 224) = rxt_rates(:ncol,:, 224)*sol(:ncol,:, 98)*sol(:ncol,:, 117) ! rate_const*HCO3m*NOp_2H2O + rxt_rates(:ncol,:, 225) = rxt_rates(:ncol,:, 225)*sol(:ncol,:, 95)*sol(:ncol,:, 103) ! rate_const*CO4m*Hp_4H2O + rxt_rates(:ncol,:, 226) = rxt_rates(:ncol,:, 226)*sol(:ncol,:, 117)*sol(:ncol,:, 125) ! rate_const*NOp_2H2O*O2m + rxt_rates(:ncol,:, 227) = rxt_rates(:ncol,:, 227)*sol(:ncol,:, 117)*sol(:ncol,:, 95) ! rate_const*NOp_2H2O*CO4m + rxt_rates(:ncol,:, 228) = rxt_rates(:ncol,:, 228)*sol(:ncol,:, 113)*sol(:ncol,:, 117) ! rate_const*NO3m_H2O*NOp_2H2O + rxt_rates(:ncol,:, 229) = rxt_rates(:ncol,:, 229)*sol(:ncol,:, 93)*sol(:ncol,:, 117) ! rate_const*CO3m2H2O*NOp_2H2O + rxt_rates(:ncol,:, 230) = rxt_rates(:ncol,:, 230)*sol(:ncol,:, 88)*sol(:ncol,:, 117) ! rate_const*CLm*NOp_2H2O + rxt_rates(:ncol,:, 231) = rxt_rates(:ncol,:, 231)*sol(:ncol,:, 94)*sol(:ncol,:, 117) ! rate_const*CO3m_H2O*NOp_2H2O + rxt_rates(:ncol,:, 232) = rxt_rates(:ncol,:, 232)*sol(:ncol,:, 117)*sol(:ncol,:, 110) ! rate_const*NOp_2H2O*NO2m_H2O + rxt_rates(:ncol,:, 233) = rxt_rates(:ncol,:, 233)*sol(:ncol,:, 114)*sol(:ncol,:, 117) ! rate_const*NO3m_HCL*NOp_2H2O + rxt_rates(:ncol,:, 234) = rxt_rates(:ncol,:, 234)*sol(:ncol,:, 117)*sol(:ncol,:, 89) ! rate_const*NOp_2H2O*CLm_H2O + rxt_rates(:ncol,:, 235) = rxt_rates(:ncol,:, 235)*sol(:ncol,:, 117)*sol(:ncol,:, 112) ! rate_const*NOp_2H2O*NO3m2H2O + rxt_rates(:ncol,:, 236) = rxt_rates(:ncol,:, 236)*sol(:ncol,:, 103)*sol(:ncol,:, 113) ! rate_const*Hp_4H2O*NO3m_H2O + rxt_rates(:ncol,:, 237) = rxt_rates(:ncol,:, 237)*sol(:ncol,:, 117)*sol(:ncol,:, 109) ! rate_const*NOp_2H2O*NO2m + rxt_rates(:ncol,:, 238) = rxt_rates(:ncol,:, 238)*sol(:ncol,:, 116)*sol(:ncol,:, 115) ! rate_const*NOp*NO3mHNO3 + rxt_rates(:ncol,:, 239) = rxt_rates(:ncol,:, 239)*sol(:ncol,:, 116)*sol(:ncol,:, 92) ! rate_const*NOp*CO3m + rxt_rates(:ncol,:, 240) = rxt_rates(:ncol,:, 240)*sol(:ncol,:, 116)*sol(:ncol,:, 90) ! rate_const*NOp*CLm_HCL + rxt_rates(:ncol,:, 241) = rxt_rates(:ncol,:, 241)*sol(:ncol,:, 111)*sol(:ncol,:, 116) ! rate_const*NO3m*NOp + rxt_rates(:ncol,:, 242) = rxt_rates(:ncol,:, 242)*sol(:ncol,:, 116)*sol(:ncol,:, 98) ! rate_const*NOp*HCO3m + rxt_rates(:ncol,:, 243) = rxt_rates(:ncol,:, 243)*sol(:ncol,:, 125)*sol(:ncol,:, 116) ! rate_const*O2m*NOp + rxt_rates(:ncol,:, 244) = rxt_rates(:ncol,:, 244)*sol(:ncol,:, 116)*sol(:ncol,:, 95) ! rate_const*NOp*CO4m + rxt_rates(:ncol,:, 245) = rxt_rates(:ncol,:, 245)*sol(:ncol,:, 116)*sol(:ncol,:, 113) ! rate_const*NOp*NO3m_H2O + rxt_rates(:ncol,:, 246) = rxt_rates(:ncol,:, 246)*sol(:ncol,:, 116)*sol(:ncol,:, 93) ! rate_const*NOp*CO3m2H2O + rxt_rates(:ncol,:, 247) = rxt_rates(:ncol,:, 247)*sol(:ncol,:, 93)*sol(:ncol,:, 103) ! rate_const*CO3m2H2O*Hp_4H2O + rxt_rates(:ncol,:, 248) = rxt_rates(:ncol,:, 248)*sol(:ncol,:, 88)*sol(:ncol,:, 116) ! rate_const*CLm*NOp + rxt_rates(:ncol,:, 249) = rxt_rates(:ncol,:, 249)*sol(:ncol,:, 94)*sol(:ncol,:, 116) ! rate_const*CO3m_H2O*NOp + rxt_rates(:ncol,:, 250) = rxt_rates(:ncol,:, 250)*sol(:ncol,:, 110)*sol(:ncol,:, 116) ! rate_const*NO2m_H2O*NOp + rxt_rates(:ncol,:, 251) = rxt_rates(:ncol,:, 251)*sol(:ncol,:, 114)*sol(:ncol,:, 116) ! rate_const*NO3m_HCL*NOp + rxt_rates(:ncol,:, 252) = rxt_rates(:ncol,:, 252)*sol(:ncol,:, 89)*sol(:ncol,:, 116) ! rate_const*CLm_H2O*NOp + rxt_rates(:ncol,:, 253) = rxt_rates(:ncol,:, 253)*sol(:ncol,:, 116)*sol(:ncol,:, 112) ! rate_const*NOp*NO3m2H2O + rxt_rates(:ncol,:, 254) = rxt_rates(:ncol,:, 254)*sol(:ncol,:, 116)*sol(:ncol,:, 109) ! rate_const*NOp*NO2m + rxt_rates(:ncol,:, 255) = rxt_rates(:ncol,:, 255)*sol(:ncol,:, 115)*sol(:ncol,:, 126) ! rate_const*NO3mHNO3*O2p + rxt_rates(:ncol,:, 256) = rxt_rates(:ncol,:, 256)*sol(:ncol,:, 126)*sol(:ncol,:, 92) ! rate_const*O2p*CO3m + rxt_rates(:ncol,:, 257) = rxt_rates(:ncol,:, 257)*sol(:ncol,:, 126)*sol(:ncol,:, 90) ! rate_const*O2p*CLm_HCL + rxt_rates(:ncol,:, 258) = rxt_rates(:ncol,:, 258)*sol(:ncol,:, 103)*sol(:ncol,:, 92) ! rate_const*M*Hp_4H2O*CO3m + rxt_rates(:ncol,:, 259) = rxt_rates(:ncol,:, 259)*sol(:ncol,:, 105)*sol(:ncol,:, 93) ! rate_const*M*Hp_5H2O*CO3m2H2O + rxt_rates(:ncol,:, 260) = rxt_rates(:ncol,:, 260)*sol(:ncol,:, 94)*sol(:ncol,:, 103) ! rate_const*M*CO3m_H2O*Hp_4H2O + rxt_rates(:ncol,:, 261) = rxt_rates(:ncol,:, 261)*sol(:ncol,:, 105)*sol(:ncol,:, 94) ! rate_const*M*Hp_5H2O*CO3m_H2O + rxt_rates(:ncol,:, 262) = rxt_rates(:ncol,:, 262)*sol(:ncol,:, 113)*sol(:ncol,:, 103) ! rate_const*M*NO3m_H2O*Hp_4H2O + rxt_rates(:ncol,:, 263) = rxt_rates(:ncol,:, 263)*sol(:ncol,:, 113)*sol(:ncol,:, 105) ! rate_const*M*NO3m_H2O*Hp_5H2O + rxt_rates(:ncol,:, 264) = rxt_rates(:ncol,:, 264)*sol(:ncol,:, 111)*sol(:ncol,:, 103) ! rate_const*M*NO3m*Hp_4H2O + rxt_rates(:ncol,:, 265) = rxt_rates(:ncol,:, 265)*sol(:ncol,:, 105)*sol(:ncol,:, 92) ! rate_const*M*Hp_5H2O*CO3m + rxt_rates(:ncol,:, 266) = rxt_rates(:ncol,:, 266)*sol(:ncol,:, 105)*sol(:ncol,:, 111) ! rate_const*M*Hp_5H2O*NO3m + rxt_rates(:ncol,:, 267) = rxt_rates(:ncol,:, 267)*sol(:ncol,:, 90)*sol(:ncol,:, 103) ! rate_const*M*CLm_HCL*Hp_4H2O + rxt_rates(:ncol,:, 268) = rxt_rates(:ncol,:, 268)*sol(:ncol,:, 105)*sol(:ncol,:, 90) ! rate_const*M*Hp_5H2O*CLm_HCL + rxt_rates(:ncol,:, 269) = rxt_rates(:ncol,:, 269)*sol(:ncol,:, 115)*sol(:ncol,:, 103) ! rate_const*M*NO3mHNO3*Hp_4H2O + rxt_rates(:ncol,:, 270) = rxt_rates(:ncol,:, 270)*sol(:ncol,:, 105)*sol(:ncol,:, 115) ! rate_const*M*Hp_5H2O*NO3mHNO3 + rxt_rates(:ncol,:, 271) = rxt_rates(:ncol,:, 271)*sol(:ncol,:, 93)*sol(:ncol,:, 103) ! rate_const*M*CO3m2H2O*Hp_4H2O + rxt_rates(:ncol,:, 272) = rxt_rates(:ncol,:, 272)*sol(:ncol,:, 62)*sol(:ncol,:, 128) ! rate_const*NO*O3m + rxt_rates(:ncol,:, 273) = rxt_rates(:ncol,:, 273)*sol(:ncol,:, 110) ! rate_const*M*NO2m_H2O + rxt_rates(:ncol,:, 274) = rxt_rates(:ncol,:, 274)*sol(:ncol,:, 112) ! rate_const*M*NO3m2H2O + rxt_rates(:ncol,:, 275) = rxt_rates(:ncol,:, 275)*sol(:ncol,:, 115) ! rate_const*M*NO3mHNO3 + rxt_rates(:ncol,:, 276) = rxt_rates(:ncol,:, 276)*sol(:ncol,:, 49)*sol(:ncol,:, 111) ! rate_const*M*HCL*NO3m + rxt_rates(:ncol,:, 277) = rxt_rates(:ncol,:, 277)*sol(:ncol,:, 63)*sol(:ncol,:, 128) ! rate_const*NO2*O3m + rxt_rates(:ncol,:, 278) = rxt_rates(:ncol,:, 278)*sol(:ncol,:, 63)*sol(:ncol,:, 128) ! rate_const*NO2*O3m + rxt_rates(:ncol,:, 279) = rxt_rates(:ncol,:, 279)*sol(:ncol,:, 62)*sol(:ncol,:, 128) ! rate_const*NO*O3m + rxt_rates(:ncol,:, 280) = rxt_rates(:ncol,:, 280)*sol(:ncol,:, 92)*sol(:ncol,:, 62) ! rate_const*CO3m*NO + rxt_rates(:ncol,:, 281) = rxt_rates(:ncol,:, 281)*sol(:ncol,:, 92)*sol(:ncol,:, 63) ! rate_const*CO3m*NO2 + rxt_rates(:ncol,:, 282) = rxt_rates(:ncol,:, 282)*sol(:ncol,:, 113) ! rate_const*M*NO3m_H2O + rxt_rates(:ncol,:, 283) = rxt_rates(:ncol,:, 283)*sol(:ncol,:, 94) ! rate_const*M*CO3m_H2O + rxt_rates(:ncol,:, 284) = rxt_rates(:ncol,:, 284)*sol(:ncol,:, 93) ! rate_const*M*CO3m2H2O + rxt_rates(:ncol,:, 285) = rxt_rates(:ncol,:, 285)*sol(:ncol,:, 25)*sol(:ncol,:, 109) ! rate_const*CL*NO2m + rxt_rates(:ncol,:, 286) = rxt_rates(:ncol,:, 286)*sol(:ncol,:, 28)*sol(:ncol,:, 109) ! rate_const*CLO*NO2m + rxt_rates(:ncol,:, 287) = rxt_rates(:ncol,:, 287)*sol(:ncol,:, 40)*sol(:ncol,:, 109) ! rate_const*H*NO2m + rxt_rates(:ncol,:, 288) = rxt_rates(:ncol,:, 288)*sol(:ncol,:, 109)*sol(:ncol,:, 137) ! rate_const*M*NO2m*H2O + rxt_rates(:ncol,:, 289) = rxt_rates(:ncol,:, 289)*sol(:ncol,:, 49)*sol(:ncol,:, 109) ! rate_const*HCL*NO2m + rxt_rates(:ncol,:, 290) = rxt_rates(:ncol,:, 290)*sol(:ncol,:, 51)*sol(:ncol,:, 109) ! rate_const*HNO3*NO2m + rxt_rates(:ncol,:, 291) = rxt_rates(:ncol,:, 291)*sol(:ncol,:, 63)*sol(:ncol,:, 109) ! rate_const*NO2*NO2m + rxt_rates(:ncol,:, 292) = rxt_rates(:ncol,:, 292)*sol(:ncol,:, 109)*sol(:ncol,:, 72) ! rate_const*NO2m*O3 + rxt_rates(:ncol,:, 293) = rxt_rates(:ncol,:, 293)*sol(:ncol,:, 112)*sol(:ncol,:, 58) ! rate_const*NO3m2H2O*N2O5 + rxt_rates(:ncol,:, 294) = rxt_rates(:ncol,:, 294)*sol(:ncol,:, 113)*sol(:ncol,:, 137) ! rate_const*M*NO3m_H2O*H2O + rxt_rates(:ncol,:, 295) = rxt_rates(:ncol,:, 295)*sol(:ncol,:, 51)*sol(:ncol,:, 113) ! rate_const*HNO3*NO3m_H2O + rxt_rates(:ncol,:, 296) = rxt_rates(:ncol,:, 296)*sol(:ncol,:, 137)*sol(:ncol,:, 111) ! rate_const*M*H2O*NO3m + rxt_rates(:ncol,:, 297) = rxt_rates(:ncol,:, 297)*sol(:ncol,:, 113)*sol(:ncol,:, 58) ! rate_const*NO3m_H2O*N2O5 + rxt_rates(:ncol,:, 298) = rxt_rates(:ncol,:, 298)*sol(:ncol,:, 49)*sol(:ncol,:, 111) ! rate_const*HCL*NO3m + rxt_rates(:ncol,:, 299) = rxt_rates(:ncol,:, 299)*sol(:ncol,:, 51)*sol(:ncol,:, 114) ! rate_const*HNO3*NO3m_HCL + rxt_rates(:ncol,:, 300) = rxt_rates(:ncol,:, 300)*sol(:ncol,:, 111)*sol(:ncol,:, 51) ! rate_const*M*NO3m*HNO3 + rxt_rates(:ncol,:, 301) = rxt_rates(:ncol,:, 301)*sol(:ncol,:, 111)*sol(:ncol,:, 69) ! rate_const*NO3m*O + rxt_rates(:ncol,:, 302) = rxt_rates(:ncol,:, 302)*sol(:ncol,:, 72)*sol(:ncol,:, 111) ! rate_const*O3*NO3m + rxt_rates(:ncol,:, 303) = rxt_rates(:ncol,:, 303)*sol(:ncol,:, 117)*sol(:ncol,:, 96) ! rate_const*NOp_2H2O*e + rxt_rates(:ncol,:, 304) = rxt_rates(:ncol,:, 304)*sol(:ncol,:, 118)*sol(:ncol,:, 96) ! rate_const*NOp_3H2O*e + rxt_rates(:ncol,:, 305) = rxt_rates(:ncol,:, 305)*sol(:ncol,:, 137)*sol(:ncol,:, 118) ! rate_const*H2O*NOp_3H2O + rxt_rates(:ncol,:, 306) = rxt_rates(:ncol,:, 306)*sol(:ncol,:, 119)*sol(:ncol,:, 96) ! rate_const*NOp_CO2*e + rxt_rates(:ncol,:, 307) = rxt_rates(:ncol,:, 307)*sol(:ncol,:, 119)*sol(:ncol,:, 137) ! rate_const*NOp_CO2*H2O + rxt_rates(:ncol,:, 308) = rxt_rates(:ncol,:, 308)*sol(:ncol,:, 120)*sol(:ncol,:, 96) ! rate_const*NOp_H2O*e + rxt_rates(:ncol,:, 309) = rxt_rates(:ncol,:, 309)*sol(:ncol,:, 40)*sol(:ncol,:, 120) ! rate_const*H*NOp_H2O + rxt_rates(:ncol,:, 310) = rxt_rates(:ncol,:, 310)*sol(:ncol,:, 120)*sol(:ncol,:, 99) ! rate_const*NOp_H2O*HO2 + rxt_rates(:ncol,:, 311) = rxt_rates(:ncol,:, 311)*sol(:ncol,:, 120)*sol(:ncol,:, 131) ! rate_const*NOp_H2O*OH + rxt_rates(:ncol,:, 312) = rxt_rates(:ncol,:, 312)*sol(:ncol,:, 32)*sol(:ncol,:, 121) ! rate_const*CO2*NOp_N2 + rxt_rates(:ncol,:, 313) = rxt_rates(:ncol,:, 313)*sol(:ncol,:, 121)*sol(:ncol,:, 137) ! rate_const*NOp_N2*H2O + rxt_rates(:ncol,:, 314) = rxt_rates(:ncol,:, 314)*sol(:ncol,:, 125)*sol(:ncol,:, 25) ! rate_const*O2m*CL + rxt_rates(:ncol,:, 315) = rxt_rates(:ncol,:, 315)*sol(:ncol,:, 28)*sol(:ncol,:, 125) ! rate_const*CLO*O2m + rxt_rates(:ncol,:, 316) = rxt_rates(:ncol,:, 316)*sol(:ncol,:, 32)*sol(:ncol,:, 125) ! rate_const*M*CO2*O2m + rxt_rates(:ncol,:, 317) = rxt_rates(:ncol,:, 317)*sol(:ncol,:, 40)*sol(:ncol,:, 125) ! rate_const*H*O2m + rxt_rates(:ncol,:, 318) = rxt_rates(:ncol,:, 318)*sol(:ncol,:, 125)*sol(:ncol,:, 49) ! rate_const*O2m*HCL + rxt_rates(:ncol,:, 319) = rxt_rates(:ncol,:, 319)*sol(:ncol,:, 125)*sol(:ncol,:, 51) ! rate_const*O2m*HNO3 + rxt_rates(:ncol,:, 320) = rxt_rates(:ncol,:, 320)*sol(:ncol,:, 63)*sol(:ncol,:, 125) ! rate_const*NO2*O2m rxt_rates(:ncol,:, 321) = rxt_rates(:ncol,:, 321)*sol(:ncol,:, 123)*sol(:ncol,:, 125) ! rate_const*O2_1D*O2m - rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 68)*sol(:ncol,:, 125) ! rate_const*M*O2*O2m - rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 69)*sol(:ncol,:, 125) ! rate_const*O3*O2m - rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 67)*sol(:ncol,:, 125) ! rate_const*O*O2m - rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 125)*sol(:ncol,:, 67) ! rate_const*O2m*O - rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 127)*sol(:ncol,:, 95) ! rate_const*O2p_H2O*e + rxt_rates(:ncol,:, 322) = rxt_rates(:ncol,:, 322)*sol(:ncol,:, 71)*sol(:ncol,:, 125) ! rate_const*M*O2*O2m + rxt_rates(:ncol,:, 323) = rxt_rates(:ncol,:, 323)*sol(:ncol,:, 72)*sol(:ncol,:, 125) ! rate_const*O3*O2m + rxt_rates(:ncol,:, 324) = rxt_rates(:ncol,:, 324)*sol(:ncol,:, 69)*sol(:ncol,:, 125) ! rate_const*O*O2m + rxt_rates(:ncol,:, 325) = rxt_rates(:ncol,:, 325)*sol(:ncol,:, 125)*sol(:ncol,:, 69) ! rate_const*O2m*O + rxt_rates(:ncol,:, 326) = rxt_rates(:ncol,:, 326)*sol(:ncol,:, 127)*sol(:ncol,:, 96) ! rate_const*O2p_H2O*e rxt_rates(:ncol,:, 327) = rxt_rates(:ncol,:, 327)*sol(:ncol,:, 127)*sol(:ncol,:, 137) ! rate_const*O2p_H2O*H2O rxt_rates(:ncol,:, 328) = rxt_rates(:ncol,:, 328)*sol(:ncol,:, 127)*sol(:ncol,:, 137) ! rate_const*O2p_H2O*H2O rxt_rates(:ncol,:, 329) = rxt_rates(:ncol,:, 329)*sol(:ncol,:, 137)*sol(:ncol,:, 126) ! rate_const*M*H2O*O2p - rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 128)*sol(:ncol,:, 30) ! rate_const*O3m*CO2 - rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 128)*sol(:ncol,:, 38) ! rate_const*O3m*H - rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 69)*sol(:ncol,:, 128) ! rate_const*O3*O3m - rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 128)*sol(:ncol,:, 67) ! rate_const*O3m*O - rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 67)*sol(:ncol,:, 128) ! rate_const*O*O3m - rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 30)*sol(:ncol,:, 129) ! rate_const*CO2*O4m - rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 67)*sol(:ncol,:, 129) ! rate_const*O*O4m + rxt_rates(:ncol,:, 330) = rxt_rates(:ncol,:, 330)*sol(:ncol,:, 128)*sol(:ncol,:, 32) ! rate_const*O3m*CO2 + rxt_rates(:ncol,:, 331) = rxt_rates(:ncol,:, 331)*sol(:ncol,:, 128)*sol(:ncol,:, 40) ! rate_const*O3m*H + rxt_rates(:ncol,:, 332) = rxt_rates(:ncol,:, 332)*sol(:ncol,:, 72)*sol(:ncol,:, 128) ! rate_const*O3*O3m + rxt_rates(:ncol,:, 333) = rxt_rates(:ncol,:, 333)*sol(:ncol,:, 128)*sol(:ncol,:, 69) ! rate_const*O3m*O + rxt_rates(:ncol,:, 334) = rxt_rates(:ncol,:, 334)*sol(:ncol,:, 69)*sol(:ncol,:, 128) ! rate_const*O*O3m + rxt_rates(:ncol,:, 335) = rxt_rates(:ncol,:, 335)*sol(:ncol,:, 32)*sol(:ncol,:, 129) ! rate_const*CO2*O4m + rxt_rates(:ncol,:, 336) = rxt_rates(:ncol,:, 336)*sol(:ncol,:, 69)*sol(:ncol,:, 129) ! rate_const*O*O4m rxt_rates(:ncol,:, 337) = rxt_rates(:ncol,:, 337)*sol(:ncol,:, 137)*sol(:ncol,:, 130) ! rate_const*H2O*O4p - rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 130)*sol(:ncol,:, 67) ! rate_const*O4p*O + rxt_rates(:ncol,:, 338) = rxt_rates(:ncol,:, 338)*sol(:ncol,:, 130)*sol(:ncol,:, 69) ! rate_const*O4p*O rxt_rates(:ncol,:, 339) = rxt_rates(:ncol,:, 339)*sol(:ncol,:, 130)*sol(:ncol,:, 123) ! rate_const*O4p*O2_1D - rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 53)*sol(:ncol,:, 131) ! rate_const*HONO*OH - rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 86)*sol(:ncol,:, 132) ! rate_const*CL*OHm - rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 26)*sol(:ncol,:, 132) ! rate_const*CLO*OHm - rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 30)*sol(:ncol,:, 132) ! rate_const*M*CO2*OHm - rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 38)*sol(:ncol,:, 132) ! rate_const*H*OHm - rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 132)*sol(:ncol,:, 47) ! rate_const*OHm*HCL - rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 61)*sol(:ncol,:, 132) ! rate_const*NO2*OHm - rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 132)*sol(:ncol,:, 67) ! rate_const*OHm*O - rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 132)*sol(:ncol,:, 69) ! rate_const*OHm*O3 - rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 131)*sol(:ncol,:, 60) ! rate_const*M*OH*NO - rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 133)*sol(:ncol,:, 86) ! rate_const*Om*CL - rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 26)*sol(:ncol,:, 133) ! rate_const*CLO*Om - rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 133)*sol(:ncol,:, 30) ! rate_const*M*Om*CO2 - rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 39)*sol(:ncol,:, 133) ! rate_const*H2*Om - rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 133)*sol(:ncol,:, 39) ! rate_const*Om*H2 + rxt_rates(:ncol,:, 340) = rxt_rates(:ncol,:, 340)*sol(:ncol,:, 55)*sol(:ncol,:, 131) ! rate_const*HONO*OH + rxt_rates(:ncol,:, 341) = rxt_rates(:ncol,:, 341)*sol(:ncol,:, 25)*sol(:ncol,:, 132) ! rate_const*CL*OHm + rxt_rates(:ncol,:, 342) = rxt_rates(:ncol,:, 342)*sol(:ncol,:, 28)*sol(:ncol,:, 132) ! rate_const*CLO*OHm + rxt_rates(:ncol,:, 343) = rxt_rates(:ncol,:, 343)*sol(:ncol,:, 32)*sol(:ncol,:, 132) ! rate_const*M*CO2*OHm + rxt_rates(:ncol,:, 344) = rxt_rates(:ncol,:, 344)*sol(:ncol,:, 40)*sol(:ncol,:, 132) ! rate_const*H*OHm + rxt_rates(:ncol,:, 345) = rxt_rates(:ncol,:, 345)*sol(:ncol,:, 132)*sol(:ncol,:, 49) ! rate_const*OHm*HCL + rxt_rates(:ncol,:, 346) = rxt_rates(:ncol,:, 346)*sol(:ncol,:, 63)*sol(:ncol,:, 132) ! rate_const*NO2*OHm + rxt_rates(:ncol,:, 347) = rxt_rates(:ncol,:, 347)*sol(:ncol,:, 132)*sol(:ncol,:, 69) ! rate_const*OHm*O + rxt_rates(:ncol,:, 348) = rxt_rates(:ncol,:, 348)*sol(:ncol,:, 132)*sol(:ncol,:, 72) ! rate_const*OHm*O3 + rxt_rates(:ncol,:, 349) = rxt_rates(:ncol,:, 349)*sol(:ncol,:, 131)*sol(:ncol,:, 62) ! rate_const*M*OH*NO + rxt_rates(:ncol,:, 350) = rxt_rates(:ncol,:, 350)*sol(:ncol,:, 133)*sol(:ncol,:, 25) ! rate_const*Om*CL + rxt_rates(:ncol,:, 351) = rxt_rates(:ncol,:, 351)*sol(:ncol,:, 28)*sol(:ncol,:, 133) ! rate_const*CLO*Om + rxt_rates(:ncol,:, 352) = rxt_rates(:ncol,:, 352)*sol(:ncol,:, 133)*sol(:ncol,:, 32) ! rate_const*M*Om*CO2 + rxt_rates(:ncol,:, 353) = rxt_rates(:ncol,:, 353)*sol(:ncol,:, 41)*sol(:ncol,:, 133) ! rate_const*H2*Om + rxt_rates(:ncol,:, 354) = rxt_rates(:ncol,:, 354)*sol(:ncol,:, 133)*sol(:ncol,:, 41) ! rate_const*Om*H2 rxt_rates(:ncol,:, 355) = rxt_rates(:ncol,:, 355)*sol(:ncol,:, 133)*sol(:ncol,:, 137) ! rate_const*Om*H2O - rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 133)*sol(:ncol,:, 47) ! rate_const*Om*HCL - rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 133)*sol(:ncol,:, 49) ! rate_const*Om*HNO3 + rxt_rates(:ncol,:, 356) = rxt_rates(:ncol,:, 356)*sol(:ncol,:, 133)*sol(:ncol,:, 49) ! rate_const*Om*HCL + rxt_rates(:ncol,:, 357) = rxt_rates(:ncol,:, 357)*sol(:ncol,:, 133)*sol(:ncol,:, 51) ! rate_const*Om*HNO3 rxt_rates(:ncol,:, 358) = rxt_rates(:ncol,:, 358)*sol(:ncol,:, 133) ! rate_const*M*Om - rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 61)*sol(:ncol,:, 133) ! rate_const*NO2*Om - rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 133)*sol(:ncol,:, 67) ! rate_const*Om*O + rxt_rates(:ncol,:, 359) = rxt_rates(:ncol,:, 359)*sol(:ncol,:, 63)*sol(:ncol,:, 133) ! rate_const*NO2*Om + rxt_rates(:ncol,:, 360) = rxt_rates(:ncol,:, 360)*sol(:ncol,:, 133)*sol(:ncol,:, 69) ! rate_const*Om*O rxt_rates(:ncol,:, 361) = rxt_rates(:ncol,:, 361)*sol(:ncol,:, 133)*sol(:ncol,:, 123) ! rate_const*Om*O2_1D - rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 133)*sol(:ncol,:, 68) ! rate_const*M*Om*O2 - rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 69)*sol(:ncol,:, 133) ! rate_const*O3*Om - rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 126)*sol(:ncol,:, 68) ! rate_const*M*O2p*O2 - rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 137)*sol(:ncol,:, 115) ! rate_const*M*H2O*NOp - rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 137)*sol(:ncol,:, 119) ! rate_const*M*H2O*NOp_H2O - rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 137)*sol(:ncol,:, 116) ! rate_const*M*H2O*NOp_2H2O - rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 115)*sol(:ncol,:, 30) ! rate_const*M*NOp*CO2 - rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 118) ! rate_const*M*NOp_CO2 - rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 115) ! rate_const*N2*M*NOp - rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 120) ! rate_const*M*NOp_N2 - rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 105)*sol(:ncol,:, 137) ! rate_const*M*Hp_H2O*H2O - rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 99) ! rate_const*M*Hp_2H2O - rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 137)*sol(:ncol,:, 99) ! rate_const*M*H2O*Hp_2H2O - rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 100) ! rate_const*M*Hp_3H2O - rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 100)*sol(:ncol,:, 137) ! rate_const*M*Hp_3H2O*H2O - rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 102) ! rate_const*M*Hp_4H2O - rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 102)*sol(:ncol,:, 137) ! rate_const*M*Hp_4H2O*H2O - rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 104) ! rate_const*M*Hp_5H2O - rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 95)*sol(:ncol,:, 130) ! rate_const*e*O4p - rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 105)*sol(:ncol,:, 95) ! rate_const*Hp_H2O*e - rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 99)*sol(:ncol,:, 95) ! rate_const*Hp_2H2O*e - rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 100)*sol(:ncol,:, 95) ! rate_const*Hp_3H2O*e - rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 95)*sol(:ncol,:, 120) ! rate_const*e*NOp_N2 - rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 88) ! rate_const*M*CLm_H2O - rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 89) ! rate_const*M*CLm_HCL + rxt_rates(:ncol,:, 362) = rxt_rates(:ncol,:, 362)*sol(:ncol,:, 133)*sol(:ncol,:, 71) ! rate_const*M*Om*O2 + rxt_rates(:ncol,:, 363) = rxt_rates(:ncol,:, 363)*sol(:ncol,:, 72)*sol(:ncol,:, 133) ! rate_const*O3*Om + rxt_rates(:ncol,:, 364) = rxt_rates(:ncol,:, 364)*sol(:ncol,:, 126)*sol(:ncol,:, 71) ! rate_const*M*O2p*O2 + rxt_rates(:ncol,:, 365) = rxt_rates(:ncol,:, 365)*sol(:ncol,:, 137)*sol(:ncol,:, 116) ! rate_const*M*H2O*NOp + rxt_rates(:ncol,:, 366) = rxt_rates(:ncol,:, 366)*sol(:ncol,:, 137)*sol(:ncol,:, 120) ! rate_const*M*H2O*NOp_H2O + rxt_rates(:ncol,:, 367) = rxt_rates(:ncol,:, 367)*sol(:ncol,:, 137)*sol(:ncol,:, 117) ! rate_const*M*H2O*NOp_2H2O + rxt_rates(:ncol,:, 368) = rxt_rates(:ncol,:, 368)*sol(:ncol,:, 116)*sol(:ncol,:, 32) ! rate_const*M*NOp*CO2 + rxt_rates(:ncol,:, 369) = rxt_rates(:ncol,:, 369)*sol(:ncol,:, 119) ! rate_const*M*NOp_CO2 + rxt_rates(:ncol,:, 370) = rxt_rates(:ncol,:, 370)*sol(:ncol,:, 116) ! rate_const*N2*M*NOp + rxt_rates(:ncol,:, 371) = rxt_rates(:ncol,:, 371)*sol(:ncol,:, 121) ! rate_const*M*NOp_N2 + rxt_rates(:ncol,:, 372) = rxt_rates(:ncol,:, 372)*sol(:ncol,:, 106)*sol(:ncol,:, 137) ! rate_const*M*Hp_H2O*H2O + rxt_rates(:ncol,:, 373) = rxt_rates(:ncol,:, 373)*sol(:ncol,:, 100) ! rate_const*M*Hp_2H2O + rxt_rates(:ncol,:, 374) = rxt_rates(:ncol,:, 374)*sol(:ncol,:, 137)*sol(:ncol,:, 100) ! rate_const*M*H2O*Hp_2H2O + rxt_rates(:ncol,:, 375) = rxt_rates(:ncol,:, 375)*sol(:ncol,:, 101) ! rate_const*M*Hp_3H2O + rxt_rates(:ncol,:, 376) = rxt_rates(:ncol,:, 376)*sol(:ncol,:, 101)*sol(:ncol,:, 137) ! rate_const*M*Hp_3H2O*H2O + rxt_rates(:ncol,:, 377) = rxt_rates(:ncol,:, 377)*sol(:ncol,:, 103) ! rate_const*M*Hp_4H2O + rxt_rates(:ncol,:, 378) = rxt_rates(:ncol,:, 378)*sol(:ncol,:, 103)*sol(:ncol,:, 137) ! rate_const*M*Hp_4H2O*H2O + rxt_rates(:ncol,:, 379) = rxt_rates(:ncol,:, 379)*sol(:ncol,:, 105) ! rate_const*M*Hp_5H2O + rxt_rates(:ncol,:, 380) = rxt_rates(:ncol,:, 380)*sol(:ncol,:, 96)*sol(:ncol,:, 130) ! rate_const*e*O4p + rxt_rates(:ncol,:, 381) = rxt_rates(:ncol,:, 381)*sol(:ncol,:, 106)*sol(:ncol,:, 96) ! rate_const*Hp_H2O*e + rxt_rates(:ncol,:, 382) = rxt_rates(:ncol,:, 382)*sol(:ncol,:, 100)*sol(:ncol,:, 96) ! rate_const*Hp_2H2O*e + rxt_rates(:ncol,:, 383) = rxt_rates(:ncol,:, 383)*sol(:ncol,:, 101)*sol(:ncol,:, 96) ! rate_const*Hp_3H2O*e + rxt_rates(:ncol,:, 384) = rxt_rates(:ncol,:, 384)*sol(:ncol,:, 96)*sol(:ncol,:, 121) ! rate_const*e*NOp_N2 + rxt_rates(:ncol,:, 385) = rxt_rates(:ncol,:, 385)*sol(:ncol,:, 89) ! rate_const*M*CLm_H2O + rxt_rates(:ncol,:, 386) = rxt_rates(:ncol,:, 386)*sol(:ncol,:, 90) ! rate_const*M*CLm_HCL rxt_rates(:ncol,:, 387) = rxt_rates(:ncol,:, 387)*sol(:ncol,:, 123) ! rate_const*O2_1D rxt_rates(:ncol,:, 388) = rxt_rates(:ncol,:, 388)*sol(:ncol,:, 124) ! rate_const*O2_1S - rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 122)*sol(:ncol,:, 39) ! rate_const*O1D*H2 - rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 122)*sol(:ncol,:, 137) ! rate_const*O1D*H2O - rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 122) ! rate_const*N2*O1D - rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 122)*sol(:ncol,:, 68) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 122)*sol(:ncol,:, 68) ! rate_const*O1D*O2 - rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 122)*sol(:ncol,:, 69) ! rate_const*O1D*O3 + rxt_rates(:ncol,:, 389) = rxt_rates(:ncol,:, 389)*sol(:ncol,:, 70)*sol(:ncol,:, 41) ! rate_const*O1D*H2 + rxt_rates(:ncol,:, 390) = rxt_rates(:ncol,:, 390)*sol(:ncol,:, 70)*sol(:ncol,:, 137) ! rate_const*O1D*H2O + rxt_rates(:ncol,:, 391) = rxt_rates(:ncol,:, 391)*sol(:ncol,:, 70) ! rate_const*N2*O1D + rxt_rates(:ncol,:, 392) = rxt_rates(:ncol,:, 392)*sol(:ncol,:, 70)*sol(:ncol,:, 71) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 393) = rxt_rates(:ncol,:, 393)*sol(:ncol,:, 70)*sol(:ncol,:, 71) ! rate_const*O1D*O2 + rxt_rates(:ncol,:, 394) = rxt_rates(:ncol,:, 394)*sol(:ncol,:, 70)*sol(:ncol,:, 72) ! rate_const*O1D*O3 rxt_rates(:ncol,:, 395) = rxt_rates(:ncol,:, 395)*sol(:ncol,:, 123) ! rate_const*N2*O2_1D - rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 123)*sol(:ncol,:, 67) ! rate_const*O2_1D*O - rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 123)*sol(:ncol,:, 68) ! rate_const*O2_1D*O2 - rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 124)*sol(:ncol,:, 30) ! rate_const*O2_1S*CO2 + rxt_rates(:ncol,:, 396) = rxt_rates(:ncol,:, 396)*sol(:ncol,:, 123)*sol(:ncol,:, 69) ! rate_const*O2_1D*O + rxt_rates(:ncol,:, 397) = rxt_rates(:ncol,:, 397)*sol(:ncol,:, 123)*sol(:ncol,:, 71) ! rate_const*O2_1D*O2 + rxt_rates(:ncol,:, 398) = rxt_rates(:ncol,:, 398)*sol(:ncol,:, 124)*sol(:ncol,:, 32) ! rate_const*O2_1S*CO2 rxt_rates(:ncol,:, 399) = rxt_rates(:ncol,:, 399)*sol(:ncol,:, 124) ! rate_const*N2*O2_1S - rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 124)*sol(:ncol,:, 67) ! rate_const*O2_1S*O - rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 124)*sol(:ncol,:, 68) ! rate_const*O2_1S*O2 - rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 124)*sol(:ncol,:, 69) ! rate_const*O2_1S*O3 - rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 67)*sol(:ncol,:, 69) ! rate_const*O*O3 - rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 67)*sol(:ncol,:, 67) ! rate_const*M*O*O - rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 67)*sol(:ncol,:, 68) ! rate_const*M*O*O2 - rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 39)*sol(:ncol,:, 67) ! rate_const*H2*O - rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 41)*sol(:ncol,:, 67) ! rate_const*H2O2*O - rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 38)*sol(:ncol,:, 98) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 38)*sol(:ncol,:, 98) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 38)*sol(:ncol,:, 98) ! rate_const*H*HO2 - rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 38)*sol(:ncol,:, 68) ! rate_const*M*H*O2 - rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 98)*sol(:ncol,:, 67) ! rate_const*HO2*O - rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 98)*sol(:ncol,:, 69) ! rate_const*HO2*O3 - rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 38)*sol(:ncol,:, 69) ! rate_const*H*O3 - rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 131)*sol(:ncol,:, 39) ! rate_const*OH*H2 - rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 131)*sol(:ncol,:, 41) ! rate_const*OH*H2O2 - rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 131)*sol(:ncol,:, 98) ! rate_const*OH*HO2 - rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 131)*sol(:ncol,:, 67) ! rate_const*OH*O - rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 131)*sol(:ncol,:, 69) ! rate_const*OH*O3 + rxt_rates(:ncol,:, 400) = rxt_rates(:ncol,:, 400)*sol(:ncol,:, 124)*sol(:ncol,:, 69) ! rate_const*O2_1S*O + rxt_rates(:ncol,:, 401) = rxt_rates(:ncol,:, 401)*sol(:ncol,:, 124)*sol(:ncol,:, 71) ! rate_const*O2_1S*O2 + rxt_rates(:ncol,:, 402) = rxt_rates(:ncol,:, 402)*sol(:ncol,:, 124)*sol(:ncol,:, 72) ! rate_const*O2_1S*O3 + rxt_rates(:ncol,:, 403) = rxt_rates(:ncol,:, 403)*sol(:ncol,:, 69)*sol(:ncol,:, 72) ! rate_const*O*O3 + rxt_rates(:ncol,:, 404) = rxt_rates(:ncol,:, 404)*sol(:ncol,:, 69)*sol(:ncol,:, 69) ! rate_const*M*O*O + rxt_rates(:ncol,:, 405) = rxt_rates(:ncol,:, 405)*sol(:ncol,:, 69)*sol(:ncol,:, 71) ! rate_const*M*O*O2 + rxt_rates(:ncol,:, 406) = rxt_rates(:ncol,:, 406)*sol(:ncol,:, 41)*sol(:ncol,:, 69) ! rate_const*H2*O + rxt_rates(:ncol,:, 407) = rxt_rates(:ncol,:, 407)*sol(:ncol,:, 43)*sol(:ncol,:, 69) ! rate_const*H2O2*O + rxt_rates(:ncol,:, 408) = rxt_rates(:ncol,:, 408)*sol(:ncol,:, 40)*sol(:ncol,:, 99) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 409) = rxt_rates(:ncol,:, 409)*sol(:ncol,:, 40)*sol(:ncol,:, 99) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 410) = rxt_rates(:ncol,:, 410)*sol(:ncol,:, 40)*sol(:ncol,:, 99) ! rate_const*H*HO2 + rxt_rates(:ncol,:, 411) = rxt_rates(:ncol,:, 411)*sol(:ncol,:, 40)*sol(:ncol,:, 71) ! rate_const*M*H*O2 + rxt_rates(:ncol,:, 412) = rxt_rates(:ncol,:, 412)*sol(:ncol,:, 99)*sol(:ncol,:, 69) ! rate_const*HO2*O + rxt_rates(:ncol,:, 413) = rxt_rates(:ncol,:, 413)*sol(:ncol,:, 99)*sol(:ncol,:, 72) ! rate_const*HO2*O3 + rxt_rates(:ncol,:, 414) = rxt_rates(:ncol,:, 414)*sol(:ncol,:, 40)*sol(:ncol,:, 72) ! rate_const*H*O3 + rxt_rates(:ncol,:, 415) = rxt_rates(:ncol,:, 415)*sol(:ncol,:, 131)*sol(:ncol,:, 41) ! rate_const*OH*H2 + rxt_rates(:ncol,:, 416) = rxt_rates(:ncol,:, 416)*sol(:ncol,:, 131)*sol(:ncol,:, 43) ! rate_const*OH*H2O2 + rxt_rates(:ncol,:, 417) = rxt_rates(:ncol,:, 417)*sol(:ncol,:, 131)*sol(:ncol,:, 99) ! rate_const*OH*HO2 + rxt_rates(:ncol,:, 418) = rxt_rates(:ncol,:, 418)*sol(:ncol,:, 131)*sol(:ncol,:, 69) ! rate_const*OH*O + rxt_rates(:ncol,:, 419) = rxt_rates(:ncol,:, 419)*sol(:ncol,:, 131)*sol(:ncol,:, 72) ! rate_const*OH*O3 rxt_rates(:ncol,:, 420) = rxt_rates(:ncol,:, 420)*sol(:ncol,:, 131)*sol(:ncol,:, 131) ! rate_const*OH*OH rxt_rates(:ncol,:, 421) = rxt_rates(:ncol,:, 421)*sol(:ncol,:, 131)*sol(:ncol,:, 131) ! rate_const*M*OH*OH - rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 98)*sol(:ncol,:, 98) ! rate_const*HO2*HO2 - rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 50)*sol(:ncol,:, 131) ! rate_const*HO2NO2*OH - rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 106)*sol(:ncol,:, 67) ! rate_const*N2D*O - rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 106)*sol(:ncol,:, 68) ! rate_const*N2D*O2 - rxt_rates(:ncol,:, 426) = rxt_rates(:ncol,:, 426)*sol(:ncol,:, 54)*sol(:ncol,:, 60) ! rate_const*N*NO - rxt_rates(:ncol,:, 427) = rxt_rates(:ncol,:, 427)*sol(:ncol,:, 54)*sol(:ncol,:, 61) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 428) = rxt_rates(:ncol,:, 428)*sol(:ncol,:, 54)*sol(:ncol,:, 61) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 429) = rxt_rates(:ncol,:, 429)*sol(:ncol,:, 54)*sol(:ncol,:, 61) ! rate_const*N*NO2 - rxt_rates(:ncol,:, 430) = rxt_rates(:ncol,:, 430)*sol(:ncol,:, 54)*sol(:ncol,:, 68) ! rate_const*N*O2 - rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 61)*sol(:ncol,:, 67) ! rate_const*NO2*O - rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 61)*sol(:ncol,:, 69) ! rate_const*NO2*O3 - rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 61)*sol(:ncol,:, 67) ! rate_const*M*NO2*O - rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 62)*sol(:ncol,:, 98) ! rate_const*NO3*HO2 - rxt_rates(:ncol,:, 435) = rxt_rates(:ncol,:, 435)*sol(:ncol,:, 62)*sol(:ncol,:, 60) ! rate_const*NO3*NO - rxt_rates(:ncol,:, 436) = rxt_rates(:ncol,:, 436)*sol(:ncol,:, 62)*sol(:ncol,:, 67) ! rate_const*NO3*O - rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 62)*sol(:ncol,:, 131) ! rate_const*NO3*OH - rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 54)*sol(:ncol,:, 131) ! rate_const*N*OH - rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 60)*sol(:ncol,:, 98) ! rate_const*NO*HO2 - rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 60)*sol(:ncol,:, 69) ! rate_const*NO*O3 - rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 60)*sol(:ncol,:, 67) ! rate_const*M*NO*O - rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 122)*sol(:ncol,:, 55) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 122)*sol(:ncol,:, 55) ! rate_const*O1D*N2O - rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 61)*sol(:ncol,:, 98) ! rate_const*M*NO2*HO2 - rxt_rates(:ncol,:, 445) = rxt_rates(:ncol,:, 445)*sol(:ncol,:, 61)*sol(:ncol,:, 62) ! rate_const*M*NO2*NO3 - rxt_rates(:ncol,:, 446) = rxt_rates(:ncol,:, 446)*sol(:ncol,:, 61)*sol(:ncol,:, 131) ! rate_const*M*NO2*OH - rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 49)*sol(:ncol,:, 131) ! rate_const*HNO3*OH - rxt_rates(:ncol,:, 448) = rxt_rates(:ncol,:, 448)*sol(:ncol,:, 50) ! rate_const*M*HO2NO2 - rxt_rates(:ncol,:, 449) = rxt_rates(:ncol,:, 449)*sol(:ncol,:, 56) ! rate_const*M*N2O5 - rxt_rates(:ncol,:, 450) = rxt_rates(:ncol,:, 450)*sol(:ncol,:, 86)*sol(:ncol,:, 16) ! rate_const*CL*CH2O - rxt_rates(:ncol,:, 451) = rxt_rates(:ncol,:, 451)*sol(:ncol,:, 86)*sol(:ncol,:, 22) ! rate_const*CL*CH4 - rxt_rates(:ncol,:, 452) = rxt_rates(:ncol,:, 452)*sol(:ncol,:, 86)*sol(:ncol,:, 39) ! rate_const*CL*H2 - rxt_rates(:ncol,:, 453) = rxt_rates(:ncol,:, 453)*sol(:ncol,:, 86)*sol(:ncol,:, 41) ! rate_const*CL*H2O2 - rxt_rates(:ncol,:, 454) = rxt_rates(:ncol,:, 454)*sol(:ncol,:, 86)*sol(:ncol,:, 98) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 86)*sol(:ncol,:, 98) ! rate_const*CL*HO2 - rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 86)*sol(:ncol,:, 69) ! rate_const*CL*O3 - rxt_rates(:ncol,:, 457) = rxt_rates(:ncol,:, 457)*sol(:ncol,:, 26)*sol(:ncol,:, 20) ! rate_const*CLO*CH3O2 - rxt_rates(:ncol,:, 458) = rxt_rates(:ncol,:, 458)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 459) = rxt_rates(:ncol,:, 459)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 460) = rxt_rates(:ncol,:, 460)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*CLO*CLO - rxt_rates(:ncol,:, 461) = rxt_rates(:ncol,:, 461)*sol(:ncol,:, 26)*sol(:ncol,:, 98) ! rate_const*CLO*HO2 - rxt_rates(:ncol,:, 462) = rxt_rates(:ncol,:, 462)*sol(:ncol,:, 26)*sol(:ncol,:, 60) ! rate_const*CLO*NO - rxt_rates(:ncol,:, 463) = rxt_rates(:ncol,:, 463)*sol(:ncol,:, 27)*sol(:ncol,:, 86) ! rate_const*CLONO2*CL - rxt_rates(:ncol,:, 464) = rxt_rates(:ncol,:, 464)*sol(:ncol,:, 26)*sol(:ncol,:, 61) ! rate_const*M*CLO*NO2 - rxt_rates(:ncol,:, 465) = rxt_rates(:ncol,:, 465)*sol(:ncol,:, 27)*sol(:ncol,:, 67) ! rate_const*CLONO2*O - rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 27)*sol(:ncol,:, 131) ! rate_const*CLONO2*OH - rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 26)*sol(:ncol,:, 67) ! rate_const*CLO*O - rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 26)*sol(:ncol,:, 131) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 26)*sol(:ncol,:, 131) ! rate_const*CLO*OH - rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 47)*sol(:ncol,:, 67) ! rate_const*HCL*O - rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 47)*sol(:ncol,:, 131) ! rate_const*HCL*OH - rxt_rates(:ncol,:, 472) = rxt_rates(:ncol,:, 472)*sol(:ncol,:, 52)*sol(:ncol,:, 86) ! rate_const*HOCL*CL - rxt_rates(:ncol,:, 473) = rxt_rates(:ncol,:, 473)*sol(:ncol,:, 52)*sol(:ncol,:, 67) ! rate_const*HOCL*O - rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 52)*sol(:ncol,:, 131) ! rate_const*HOCL*OH - rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 122)*sol(:ncol,:, 7) ! rate_const*O1D*CCL4 - rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 122)*sol(:ncol,:, 8) ! rate_const*O1D*CF2CLBR - rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 122)*sol(:ncol,:, 10) ! rate_const*O1D*CFC11 - rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 122)*sol(:ncol,:, 11) ! rate_const*O1D*CFC113 - rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 122)*sol(:ncol,:, 12) ! rate_const*O1D*CFC114 - rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 122)*sol(:ncol,:, 13) ! rate_const*O1D*CFC115 - rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 122)*sol(:ncol,:, 14) ! rate_const*O1D*CFC12 - rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 122)*sol(:ncol,:, 47) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 122)*sol(:ncol,:, 47) ! rate_const*O1D*HCL - rxt_rates(:ncol,:, 484) = rxt_rates(:ncol,:, 484)*sol(:ncol,:, 26)*sol(:ncol,:, 26) ! rate_const*M*CLO*CLO - rxt_rates(:ncol,:, 485) = rxt_rates(:ncol,:, 485)*sol(:ncol,:, 25) ! rate_const*M*CL2O2 - rxt_rates(:ncol,:, 486) = rxt_rates(:ncol,:, 486)*sol(:ncol,:, 85)*sol(:ncol,:, 16) ! rate_const*BR*CH2O - rxt_rates(:ncol,:, 487) = rxt_rates(:ncol,:, 487)*sol(:ncol,:, 85)*sol(:ncol,:, 98) ! rate_const*BR*HO2 - rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 85)*sol(:ncol,:, 69) ! rate_const*BR*O3 - rxt_rates(:ncol,:, 489) = rxt_rates(:ncol,:, 489)*sol(:ncol,:, 4)*sol(:ncol,:, 4) ! rate_const*BRO*BRO - rxt_rates(:ncol,:, 490) = rxt_rates(:ncol,:, 490)*sol(:ncol,:, 4)*sol(:ncol,:, 26) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 491) = rxt_rates(:ncol,:, 491)*sol(:ncol,:, 4)*sol(:ncol,:, 26) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 492) = rxt_rates(:ncol,:, 492)*sol(:ncol,:, 4)*sol(:ncol,:, 26) ! rate_const*BRO*CLO - rxt_rates(:ncol,:, 493) = rxt_rates(:ncol,:, 493)*sol(:ncol,:, 4)*sol(:ncol,:, 98) ! rate_const*BRO*HO2 - rxt_rates(:ncol,:, 494) = rxt_rates(:ncol,:, 494)*sol(:ncol,:, 4)*sol(:ncol,:, 60) ! rate_const*BRO*NO - rxt_rates(:ncol,:, 495) = rxt_rates(:ncol,:, 495)*sol(:ncol,:, 4)*sol(:ncol,:, 61) ! rate_const*M*BRO*NO2 - rxt_rates(:ncol,:, 496) = rxt_rates(:ncol,:, 496)*sol(:ncol,:, 5)*sol(:ncol,:, 67) ! rate_const*BRONO2*O - rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 4)*sol(:ncol,:, 67) ! rate_const*BRO*O - rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 4)*sol(:ncol,:, 131) ! rate_const*BRO*OH - rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 43)*sol(:ncol,:, 67) ! rate_const*HBR*O - rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 43)*sol(:ncol,:, 131) ! rate_const*HBR*OH - rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 51)*sol(:ncol,:, 67) ! rate_const*HOBR*O - rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 122)*sol(:ncol,:, 9) ! rate_const*O1D*CF3BR - rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 122)*sol(:ncol,:, 23) ! rate_const*O1D*CHBR3 - rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 122)*sol(:ncol,:, 40) ! rate_const*O1D*H2402 - rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 122)*sol(:ncol,:, 43) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 122)*sol(:ncol,:, 43) ! rate_const*O1D*HBR - rxt_rates(:ncol,:, 507) = rxt_rates(:ncol,:, 507)*sol(:ncol,:, 37)*sol(:ncol,:, 22) ! rate_const*F*CH4 - rxt_rates(:ncol,:, 508) = rxt_rates(:ncol,:, 508)*sol(:ncol,:, 37)*sol(:ncol,:, 39) ! rate_const*F*H2 - rxt_rates(:ncol,:, 509) = rxt_rates(:ncol,:, 509)*sol(:ncol,:, 37)*sol(:ncol,:, 137) ! rate_const*F*H2O - rxt_rates(:ncol,:, 510) = rxt_rates(:ncol,:, 510)*sol(:ncol,:, 37)*sol(:ncol,:, 49) ! rate_const*F*HNO3 - rxt_rates(:ncol,:, 511) = rxt_rates(:ncol,:, 511)*sol(:ncol,:, 122)*sol(:ncol,:, 31) ! rate_const*O1D*COF2 - rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 122)*sol(:ncol,:, 32) ! rate_const*O1D*COFCL - rxt_rates(:ncol,:, 513) = rxt_rates(:ncol,:, 513)*sol(:ncol,:, 15)*sol(:ncol,:, 86) ! rate_const*CH2BR2*CL - rxt_rates(:ncol,:, 514) = rxt_rates(:ncol,:, 514)*sol(:ncol,:, 15)*sol(:ncol,:, 131) ! rate_const*CH2BR2*OH - rxt_rates(:ncol,:, 515) = rxt_rates(:ncol,:, 515)*sol(:ncol,:, 17)*sol(:ncol,:, 86) ! rate_const*CH3BR*CL - rxt_rates(:ncol,:, 516) = rxt_rates(:ncol,:, 516)*sol(:ncol,:, 17)*sol(:ncol,:, 131) ! rate_const*CH3BR*OH - rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 18)*sol(:ncol,:, 131) ! rate_const*CH3CCL3*OH - rxt_rates(:ncol,:, 518) = rxt_rates(:ncol,:, 518)*sol(:ncol,:, 19)*sol(:ncol,:, 86) ! rate_const*CH3CL*CL - rxt_rates(:ncol,:, 519) = rxt_rates(:ncol,:, 519)*sol(:ncol,:, 19)*sol(:ncol,:, 131) ! rate_const*CH3CL*OH - rxt_rates(:ncol,:, 520) = rxt_rates(:ncol,:, 520)*sol(:ncol,:, 23)*sol(:ncol,:, 86) ! rate_const*CHBR3*CL - rxt_rates(:ncol,:, 521) = rxt_rates(:ncol,:, 521)*sol(:ncol,:, 23)*sol(:ncol,:, 131) ! rate_const*CHBR3*OH - rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 44)*sol(:ncol,:, 131) ! rate_const*HCFC141B*OH - rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 45)*sol(:ncol,:, 131) ! rate_const*HCFC142B*OH - rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 46)*sol(:ncol,:, 131) ! rate_const*HCFC22*OH - rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 122)*sol(:ncol,:, 15) ! rate_const*O1D*CH2BR2 - rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 122)*sol(:ncol,:, 17) ! rate_const*O1D*CH3BR - rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 122)*sol(:ncol,:, 44) ! rate_const*O1D*HCFC141B - rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 122)*sol(:ncol,:, 45) ! rate_const*O1D*HCFC142B - rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 122)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC22 - rxt_rates(:ncol,:, 530) = rxt_rates(:ncol,:, 530)*sol(:ncol,:, 16)*sol(:ncol,:, 62) ! rate_const*CH2O*NO3 - rxt_rates(:ncol,:, 531) = rxt_rates(:ncol,:, 531)*sol(:ncol,:, 16)*sol(:ncol,:, 67) ! rate_const*CH2O*O - rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 16)*sol(:ncol,:, 131) ! rate_const*CH2O*OH - rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 20)*sol(:ncol,:, 98) ! rate_const*CH3O2*HO2 - rxt_rates(:ncol,:, 534) = rxt_rates(:ncol,:, 534)*sol(:ncol,:, 20)*sol(:ncol,:, 60) ! rate_const*CH3O2*NO - rxt_rates(:ncol,:, 535) = rxt_rates(:ncol,:, 535)*sol(:ncol,:, 21)*sol(:ncol,:, 131) ! rate_const*CH3OOH*OH - rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 22)*sol(:ncol,:, 131) ! rate_const*CH4*OH - rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 29)*sol(:ncol,:, 131) ! rate_const*M*CO*OH - rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 122)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 122)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 122)*sol(:ncol,:, 22) ! rate_const*O1D*CH4 - rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 29)*sol(:ncol,:, 131) ! rate_const*CO*OH - rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 71)*sol(:ncol,:, 67) ! rate_const*OCS*O - rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 71)*sol(:ncol,:, 131) ! rate_const*OCS*OH - rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 74)*sol(:ncol,:, 68) ! rate_const*S*O2 - rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 74)*sol(:ncol,:, 69) ! rate_const*S*O3 - rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 76)*sol(:ncol,:, 4) ! rate_const*SO*BRO - rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 76)*sol(:ncol,:, 26) ! rate_const*SO*CLO - rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 74)*sol(:ncol,:, 131) ! rate_const*S*OH - rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 76)*sol(:ncol,:, 61) ! rate_const*SO*NO2 - rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 76)*sol(:ncol,:, 68) ! rate_const*SO*O2 - rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 76)*sol(:ncol,:, 69) ! rate_const*SO*O3 - rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 76)*sol(:ncol,:, 70) ! rate_const*SO*OCLO - rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 76)*sol(:ncol,:, 131) ! rate_const*SO*OH - rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 77)*sol(:ncol,:, 131) ! rate_const*SO2*OH - rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 78)*sol(:ncol,:, 137) ! rate_const*SO3*H2O - rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 33)*sol(:ncol,:, 62) ! rate_const*DMS*NO3 - rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 33)*sol(:ncol,:, 131) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 33)*sol(:ncol,:, 131) ! rate_const*DMS*OH - rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 98) ! rate_const*HO2 - rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 61) ! rate_const*NO2 - rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 62) ! rate_const*NO3 - rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 51)*sol(:ncol,:, 47) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 5) ! rate_const*BRONO2 - rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL - rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 52)*sol(:ncol,:, 47) ! rate_const*HOCL*HCL - rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 51)*sol(:ncol,:, 47) ! rate_const*HOBR*HCL - rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 56) ! rate_const*N2O5 - rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 27) ! rate_const*CLONO2 - rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 27)*sol(:ncol,:, 47) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 422) = rxt_rates(:ncol,:, 422)*sol(:ncol,:, 99)*sol(:ncol,:, 99) ! rate_const*HO2*HO2 + rxt_rates(:ncol,:, 423) = rxt_rates(:ncol,:, 423)*sol(:ncol,:, 52)*sol(:ncol,:, 131) ! rate_const*HO2NO2*OH + rxt_rates(:ncol,:, 424) = rxt_rates(:ncol,:, 424)*sol(:ncol,:, 107)*sol(:ncol,:, 69) ! rate_const*N2D*O + rxt_rates(:ncol,:, 425) = rxt_rates(:ncol,:, 425)*sol(:ncol,:, 107)*sol(:ncol,:, 71) ! rate_const*N2D*O2 + 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,:, 71) ! rate_const*N*O2 + rxt_rates(:ncol,:, 431) = rxt_rates(:ncol,:, 431)*sol(:ncol,:, 63)*sol(:ncol,:, 69) ! rate_const*NO2*O + rxt_rates(:ncol,:, 432) = rxt_rates(:ncol,:, 432)*sol(:ncol,:, 63)*sol(:ncol,:, 72) ! rate_const*NO2*O3 + rxt_rates(:ncol,:, 433) = rxt_rates(:ncol,:, 433)*sol(:ncol,:, 63)*sol(:ncol,:, 69) ! rate_const*M*NO2*O + rxt_rates(:ncol,:, 434) = rxt_rates(:ncol,:, 434)*sol(:ncol,:, 64)*sol(:ncol,:, 99) ! 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,:, 69) ! rate_const*NO3*O + rxt_rates(:ncol,:, 437) = rxt_rates(:ncol,:, 437)*sol(:ncol,:, 64)*sol(:ncol,:, 131) ! rate_const*NO3*OH + rxt_rates(:ncol,:, 438) = rxt_rates(:ncol,:, 438)*sol(:ncol,:, 56)*sol(:ncol,:, 131) ! rate_const*N*OH + rxt_rates(:ncol,:, 439) = rxt_rates(:ncol,:, 439)*sol(:ncol,:, 62)*sol(:ncol,:, 99) ! rate_const*NO*HO2 + rxt_rates(:ncol,:, 440) = rxt_rates(:ncol,:, 440)*sol(:ncol,:, 62)*sol(:ncol,:, 72) ! rate_const*NO*O3 + rxt_rates(:ncol,:, 441) = rxt_rates(:ncol,:, 441)*sol(:ncol,:, 62)*sol(:ncol,:, 69) ! rate_const*M*NO*O + rxt_rates(:ncol,:, 442) = rxt_rates(:ncol,:, 442)*sol(:ncol,:, 70)*sol(:ncol,:, 57) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 443) = rxt_rates(:ncol,:, 443)*sol(:ncol,:, 70)*sol(:ncol,:, 57) ! rate_const*O1D*N2O + rxt_rates(:ncol,:, 444) = rxt_rates(:ncol,:, 444)*sol(:ncol,:, 63)*sol(:ncol,:, 99) ! 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,:, 131) ! rate_const*M*NO2*OH + rxt_rates(:ncol,:, 447) = rxt_rates(:ncol,:, 447)*sol(:ncol,:, 51)*sol(:ncol,:, 131) ! 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,:, 99) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 455) = rxt_rates(:ncol,:, 455)*sol(:ncol,:, 25)*sol(:ncol,:, 99) ! rate_const*CL*HO2 + rxt_rates(:ncol,:, 456) = rxt_rates(:ncol,:, 456)*sol(:ncol,:, 25)*sol(:ncol,:, 72) ! 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,:, 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,:, 99) ! 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,:, 69) ! rate_const*CLONO2*O + rxt_rates(:ncol,:, 466) = rxt_rates(:ncol,:, 466)*sol(:ncol,:, 29)*sol(:ncol,:, 131) ! rate_const*CLONO2*OH + rxt_rates(:ncol,:, 467) = rxt_rates(:ncol,:, 467)*sol(:ncol,:, 28)*sol(:ncol,:, 69) ! rate_const*CLO*O + rxt_rates(:ncol,:, 468) = rxt_rates(:ncol,:, 468)*sol(:ncol,:, 28)*sol(:ncol,:, 131) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 469) = rxt_rates(:ncol,:, 469)*sol(:ncol,:, 28)*sol(:ncol,:, 131) ! rate_const*CLO*OH + rxt_rates(:ncol,:, 470) = rxt_rates(:ncol,:, 470)*sol(:ncol,:, 49)*sol(:ncol,:, 69) ! rate_const*HCL*O + rxt_rates(:ncol,:, 471) = rxt_rates(:ncol,:, 471)*sol(:ncol,:, 49)*sol(:ncol,:, 131) ! 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,:, 69) ! rate_const*HOCL*O + rxt_rates(:ncol,:, 474) = rxt_rates(:ncol,:, 474)*sol(:ncol,:, 54)*sol(:ncol,:, 131) ! rate_const*HOCL*OH + rxt_rates(:ncol,:, 475) = rxt_rates(:ncol,:, 475)*sol(:ncol,:, 70)*sol(:ncol,:, 8) ! rate_const*O1D*CCL4 + rxt_rates(:ncol,:, 476) = rxt_rates(:ncol,:, 476)*sol(:ncol,:, 70)*sol(:ncol,:, 9) ! rate_const*O1D*CF2CLBR + rxt_rates(:ncol,:, 477) = rxt_rates(:ncol,:, 477)*sol(:ncol,:, 70)*sol(:ncol,:, 11) ! rate_const*O1D*CFC11 + rxt_rates(:ncol,:, 478) = rxt_rates(:ncol,:, 478)*sol(:ncol,:, 70)*sol(:ncol,:, 12) ! rate_const*O1D*CFC113 + rxt_rates(:ncol,:, 479) = rxt_rates(:ncol,:, 479)*sol(:ncol,:, 70)*sol(:ncol,:, 13) ! rate_const*O1D*CFC114 + rxt_rates(:ncol,:, 480) = rxt_rates(:ncol,:, 480)*sol(:ncol,:, 70)*sol(:ncol,:, 14) ! rate_const*O1D*CFC115 + rxt_rates(:ncol,:, 481) = rxt_rates(:ncol,:, 481)*sol(:ncol,:, 70)*sol(:ncol,:, 15) ! rate_const*O1D*CFC12 + rxt_rates(:ncol,:, 482) = rxt_rates(:ncol,:, 482)*sol(:ncol,:, 70)*sol(:ncol,:, 49) ! rate_const*O1D*HCL + rxt_rates(:ncol,:, 483) = rxt_rates(:ncol,:, 483)*sol(:ncol,:, 70)*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,:, 99) ! rate_const*BR*HO2 + rxt_rates(:ncol,:, 488) = rxt_rates(:ncol,:, 488)*sol(:ncol,:, 3)*sol(:ncol,:, 72) ! 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,:, 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,:, 99) ! 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,:, 69) ! rate_const*BRONO2*O + rxt_rates(:ncol,:, 497) = rxt_rates(:ncol,:, 497)*sol(:ncol,:, 5)*sol(:ncol,:, 69) ! rate_const*BRO*O + rxt_rates(:ncol,:, 498) = rxt_rates(:ncol,:, 498)*sol(:ncol,:, 5)*sol(:ncol,:, 131) ! rate_const*BRO*OH + rxt_rates(:ncol,:, 499) = rxt_rates(:ncol,:, 499)*sol(:ncol,:, 45)*sol(:ncol,:, 69) ! rate_const*HBR*O + rxt_rates(:ncol,:, 500) = rxt_rates(:ncol,:, 500)*sol(:ncol,:, 45)*sol(:ncol,:, 131) ! rate_const*HBR*OH + rxt_rates(:ncol,:, 501) = rxt_rates(:ncol,:, 501)*sol(:ncol,:, 53)*sol(:ncol,:, 69) ! rate_const*HOBR*O + rxt_rates(:ncol,:, 502) = rxt_rates(:ncol,:, 502)*sol(:ncol,:, 70)*sol(:ncol,:, 10) ! rate_const*O1D*CF3BR + rxt_rates(:ncol,:, 503) = rxt_rates(:ncol,:, 503)*sol(:ncol,:, 70)*sol(:ncol,:, 24) ! rate_const*O1D*CHBR3 + rxt_rates(:ncol,:, 504) = rxt_rates(:ncol,:, 504)*sol(:ncol,:, 70)*sol(:ncol,:, 42) ! rate_const*O1D*H2402 + rxt_rates(:ncol,:, 505) = rxt_rates(:ncol,:, 505)*sol(:ncol,:, 70)*sol(:ncol,:, 45) ! rate_const*O1D*HBR + rxt_rates(:ncol,:, 506) = rxt_rates(:ncol,:, 506)*sol(:ncol,:, 70)*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,:, 137) ! 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,:, 70)*sol(:ncol,:, 33) ! rate_const*O1D*COF2 + rxt_rates(:ncol,:, 512) = rxt_rates(:ncol,:, 512)*sol(:ncol,:, 70)*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,:, 131) ! 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,:, 131) ! rate_const*CH3BR*OH + rxt_rates(:ncol,:, 517) = rxt_rates(:ncol,:, 517)*sol(:ncol,:, 19)*sol(:ncol,:, 131) ! 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,:, 131) ! 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,:, 131) ! rate_const*CHBR3*OH + rxt_rates(:ncol,:, 522) = rxt_rates(:ncol,:, 522)*sol(:ncol,:, 46)*sol(:ncol,:, 131) ! rate_const*HCFC141B*OH + rxt_rates(:ncol,:, 523) = rxt_rates(:ncol,:, 523)*sol(:ncol,:, 47)*sol(:ncol,:, 131) ! rate_const*HCFC142B*OH + rxt_rates(:ncol,:, 524) = rxt_rates(:ncol,:, 524)*sol(:ncol,:, 48)*sol(:ncol,:, 131) ! rate_const*HCFC22*OH + rxt_rates(:ncol,:, 525) = rxt_rates(:ncol,:, 525)*sol(:ncol,:, 70)*sol(:ncol,:, 16) ! rate_const*O1D*CH2BR2 + rxt_rates(:ncol,:, 526) = rxt_rates(:ncol,:, 526)*sol(:ncol,:, 70)*sol(:ncol,:, 18) ! rate_const*O1D*CH3BR + rxt_rates(:ncol,:, 527) = rxt_rates(:ncol,:, 527)*sol(:ncol,:, 70)*sol(:ncol,:, 46) ! rate_const*O1D*HCFC141B + rxt_rates(:ncol,:, 528) = rxt_rates(:ncol,:, 528)*sol(:ncol,:, 70)*sol(:ncol,:, 47) ! rate_const*O1D*HCFC142B + rxt_rates(:ncol,:, 529) = rxt_rates(:ncol,:, 529)*sol(:ncol,:, 70)*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,:, 69) ! rate_const*CH2O*O + rxt_rates(:ncol,:, 532) = rxt_rates(:ncol,:, 532)*sol(:ncol,:, 17)*sol(:ncol,:, 131) ! rate_const*CH2O*OH + rxt_rates(:ncol,:, 533) = rxt_rates(:ncol,:, 533)*sol(:ncol,:, 21)*sol(:ncol,:, 99) ! 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,:, 131) ! rate_const*CH3OOH*OH + rxt_rates(:ncol,:, 536) = rxt_rates(:ncol,:, 536)*sol(:ncol,:, 23)*sol(:ncol,:, 131) ! rate_const*CH4*OH + rxt_rates(:ncol,:, 537) = rxt_rates(:ncol,:, 537)*sol(:ncol,:, 31)*sol(:ncol,:, 131) ! rate_const*M*CO*OH + rxt_rates(:ncol,:, 538) = rxt_rates(:ncol,:, 538)*sol(:ncol,:, 70)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 539) = rxt_rates(:ncol,:, 539)*sol(:ncol,:, 70)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 540) = rxt_rates(:ncol,:, 540)*sol(:ncol,:, 70)*sol(:ncol,:, 23) ! rate_const*O1D*CH4 + rxt_rates(:ncol,:, 541) = rxt_rates(:ncol,:, 541)*sol(:ncol,:, 31)*sol(:ncol,:, 131) ! rate_const*CO*OH + rxt_rates(:ncol,:, 542) = rxt_rates(:ncol,:, 542)*sol(:ncol,:, 35)*sol(:ncol,:, 64) ! rate_const*DMS*NO3 + rxt_rates(:ncol,:, 543) = rxt_rates(:ncol,:, 543)*sol(:ncol,:, 35)*sol(:ncol,:, 131) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 544) = rxt_rates(:ncol,:, 544)*sol(:ncol,:, 74)*sol(:ncol,:, 69) ! rate_const*OCS*O + rxt_rates(:ncol,:, 545) = rxt_rates(:ncol,:, 545)*sol(:ncol,:, 74)*sol(:ncol,:, 131) ! rate_const*OCS*OH + rxt_rates(:ncol,:, 546) = rxt_rates(:ncol,:, 546)*sol(:ncol,:, 77)*sol(:ncol,:, 71) ! rate_const*S*O2 + rxt_rates(:ncol,:, 547) = rxt_rates(:ncol,:, 547)*sol(:ncol,:, 77)*sol(:ncol,:, 72) ! rate_const*S*O3 + rxt_rates(:ncol,:, 548) = rxt_rates(:ncol,:, 548)*sol(:ncol,:, 79)*sol(:ncol,:, 5) ! rate_const*SO*BRO + rxt_rates(:ncol,:, 549) = rxt_rates(:ncol,:, 549)*sol(:ncol,:, 79)*sol(:ncol,:, 28) ! rate_const*SO*CLO + rxt_rates(:ncol,:, 550) = rxt_rates(:ncol,:, 550)*sol(:ncol,:, 77)*sol(:ncol,:, 131) ! rate_const*S*OH + rxt_rates(:ncol,:, 551) = rxt_rates(:ncol,:, 551)*sol(:ncol,:, 79)*sol(:ncol,:, 63) ! rate_const*SO*NO2 + rxt_rates(:ncol,:, 552) = rxt_rates(:ncol,:, 552)*sol(:ncol,:, 79)*sol(:ncol,:, 71) ! rate_const*SO*O2 + rxt_rates(:ncol,:, 553) = rxt_rates(:ncol,:, 553)*sol(:ncol,:, 79)*sol(:ncol,:, 72) ! rate_const*SO*O3 + rxt_rates(:ncol,:, 554) = rxt_rates(:ncol,:, 554)*sol(:ncol,:, 79)*sol(:ncol,:, 73) ! rate_const*SO*OCLO + rxt_rates(:ncol,:, 555) = rxt_rates(:ncol,:, 555)*sol(:ncol,:, 79)*sol(:ncol,:, 131) ! rate_const*SO*OH + rxt_rates(:ncol,:, 556) = rxt_rates(:ncol,:, 556)*sol(:ncol,:, 35)*sol(:ncol,:, 131) ! rate_const*DMS*OH + rxt_rates(:ncol,:, 557) = rxt_rates(:ncol,:, 557)*sol(:ncol,:, 80)*sol(:ncol,:, 131) ! rate_const*SO2*OH + rxt_rates(:ncol,:, 558) = rxt_rates(:ncol,:, 558)*sol(:ncol,:, 81)*sol(:ncol,:, 137) ! rate_const*SO3*H2O + rxt_rates(:ncol,:, 559) = rxt_rates(:ncol,:, 559)*sol(:ncol,:, 99) ! rate_const*HO2 + rxt_rates(:ncol,:, 560) = rxt_rates(:ncol,:, 560)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 561) = rxt_rates(:ncol,:, 561)*sol(:ncol,:, 63) ! rate_const*NO2 + rxt_rates(:ncol,:, 562) = rxt_rates(:ncol,:, 562)*sol(:ncol,:, 64) ! rate_const*NO3 + rxt_rates(:ncol,:, 563) = rxt_rates(:ncol,:, 563)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 564) = rxt_rates(:ncol,:, 564)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 565) = rxt_rates(:ncol,:, 565)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 566) = rxt_rates(:ncol,:, 566)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 567) = rxt_rates(:ncol,:, 567)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 568) = rxt_rates(:ncol,:, 568)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 569) = rxt_rates(:ncol,:, 569)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 570) = rxt_rates(:ncol,:, 570)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 571) = rxt_rates(:ncol,:, 571)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 572) = rxt_rates(:ncol,:, 572)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 573) = rxt_rates(:ncol,:, 573)*sol(:ncol,:, 6) ! rate_const*BRONO2 + rxt_rates(:ncol,:, 574) = rxt_rates(:ncol,:, 574)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL + rxt_rates(:ncol,:, 575) = rxt_rates(:ncol,:, 575)*sol(:ncol,:, 54)*sol(:ncol,:, 49) ! rate_const*HOCL*HCL + rxt_rates(:ncol,:, 576) = rxt_rates(:ncol,:, 576)*sol(:ncol,:, 53)*sol(:ncol,:, 49) ! rate_const*HOBR*HCL + rxt_rates(:ncol,:, 577) = rxt_rates(:ncol,:, 577)*sol(:ncol,:, 58) ! rate_const*N2O5 + rxt_rates(:ncol,:, 578) = rxt_rates(:ncol,:, 578)*sol(:ncol,:, 29) ! rate_const*CLONO2 + rxt_rates(:ncol,:, 579) = rxt_rates(:ncol,:, 579)*sol(:ncol,:, 29)*sol(:ncol,:, 49) ! rate_const*CLONO2*HCL rxt_rates(:ncol,:, 580) = rxt_rates(:ncol,:, 580)*sol(:ncol,:, 136) ! rate_const*Op2P rxt_rates(:ncol,:, 581) = rxt_rates(:ncol,:, 581)*sol(:ncol,:, 135) ! rate_const*Op2D rxt_rates(:ncol,:, 582) = rxt_rates(:ncol,:, 582)*sol(:ncol,:, 136) ! rate_const*Op2P - rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 115)*sol(:ncol,:, 95) ! rate_const*NOp*e - rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 126)*sol(:ncol,:, 95) ! rate_const*O2p*e - rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 107)*sol(:ncol,:, 95) ! rate_const*N2p*e - rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 107)*sol(:ncol,:, 68) ! rate_const*N2p*O2 - rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 107)*sol(:ncol,:, 67) ! rate_const*N2p*O - rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 107)*sol(:ncol,:, 67) ! rate_const*N2p*O - rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 121)*sol(:ncol,:, 67) ! rate_const*Np*O - rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 121)*sol(:ncol,:, 68) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 121)*sol(:ncol,:, 68) ! rate_const*Np*O2 - rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 126)*sol(:ncol,:, 54) ! rate_const*O2p*N + rxt_rates(:ncol,:, 583) = rxt_rates(:ncol,:, 583)*sol(:ncol,:, 116)*sol(:ncol,:, 96) ! rate_const*NOp*e + rxt_rates(:ncol,:, 584) = rxt_rates(:ncol,:, 584)*sol(:ncol,:, 126)*sol(:ncol,:, 96) ! rate_const*O2p*e + rxt_rates(:ncol,:, 585) = rxt_rates(:ncol,:, 585)*sol(:ncol,:, 108)*sol(:ncol,:, 96) ! rate_const*N2p*e + rxt_rates(:ncol,:, 586) = rxt_rates(:ncol,:, 586)*sol(:ncol,:, 108)*sol(:ncol,:, 71) ! rate_const*N2p*O2 + rxt_rates(:ncol,:, 587) = rxt_rates(:ncol,:, 587)*sol(:ncol,:, 108)*sol(:ncol,:, 69) ! rate_const*N2p*O + rxt_rates(:ncol,:, 588) = rxt_rates(:ncol,:, 588)*sol(:ncol,:, 108)*sol(:ncol,:, 69) ! rate_const*N2p*O + rxt_rates(:ncol,:, 589) = rxt_rates(:ncol,:, 589)*sol(:ncol,:, 122)*sol(:ncol,:, 69) ! rate_const*Np*O + rxt_rates(:ncol,:, 590) = rxt_rates(:ncol,:, 590)*sol(:ncol,:, 122)*sol(:ncol,:, 71) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 591) = rxt_rates(:ncol,:, 591)*sol(:ncol,:, 122)*sol(:ncol,:, 71) ! rate_const*Np*O2 + rxt_rates(:ncol,:, 592) = rxt_rates(:ncol,:, 592)*sol(:ncol,:, 126)*sol(:ncol,:, 56) ! rate_const*O2p*N rxt_rates(:ncol,:, 593) = rxt_rates(:ncol,:, 593)*sol(:ncol,:, 126) ! rate_const*N2*O2p - rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 126)*sol(:ncol,:, 60) ! rate_const*O2p*NO - rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 134)*sol(:ncol,:, 30) ! rate_const*Op*CO2 + rxt_rates(:ncol,:, 594) = rxt_rates(:ncol,:, 594)*sol(:ncol,:, 126)*sol(:ncol,:, 62) ! rate_const*O2p*NO + rxt_rates(:ncol,:, 595) = rxt_rates(:ncol,:, 595)*sol(:ncol,:, 134)*sol(:ncol,:, 32) ! rate_const*Op*CO2 rxt_rates(:ncol,:, 596) = rxt_rates(:ncol,:, 596)*sol(:ncol,:, 134) ! rate_const*N2*Op - rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 134)*sol(:ncol,:, 106) ! rate_const*Op*N2D - rxt_rates(:ncol,:, 598) = rxt_rates(:ncol,:, 598)*sol(:ncol,:, 134)*sol(:ncol,:, 68) ! rate_const*Op*O2 - rxt_rates(:ncol,:, 599) = rxt_rates(:ncol,:, 599)*sol(:ncol,:, 135)*sol(:ncol,:, 95) ! rate_const*Op2D*e + rxt_rates(:ncol,:, 597) = rxt_rates(:ncol,:, 597)*sol(:ncol,:, 134)*sol(:ncol,:, 107) ! rate_const*Op*N2D + rxt_rates(:ncol,:, 598) = rxt_rates(:ncol,:, 598)*sol(:ncol,:, 134)*sol(:ncol,:, 71) ! rate_const*Op*O2 + rxt_rates(:ncol,:, 599) = rxt_rates(:ncol,:, 599)*sol(:ncol,:, 135)*sol(:ncol,:, 96) ! rate_const*Op2D*e rxt_rates(:ncol,:, 600) = rxt_rates(:ncol,:, 600)*sol(:ncol,:, 135) ! rate_const*N2*Op2D - rxt_rates(:ncol,:, 601) = rxt_rates(:ncol,:, 601)*sol(:ncol,:, 135)*sol(:ncol,:, 67) ! rate_const*Op2D*O - rxt_rates(:ncol,:, 602) = rxt_rates(:ncol,:, 602)*sol(:ncol,:, 135)*sol(:ncol,:, 68) ! rate_const*Op2D*O2 - rxt_rates(:ncol,:, 603) = rxt_rates(:ncol,:, 603)*sol(:ncol,:, 136)*sol(:ncol,:, 95) ! rate_const*Op2P*e - rxt_rates(:ncol,:, 604) = rxt_rates(:ncol,:, 604)*sol(:ncol,:, 136)*sol(:ncol,:, 95) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 601) = rxt_rates(:ncol,:, 601)*sol(:ncol,:, 135)*sol(:ncol,:, 69) ! rate_const*Op2D*O + rxt_rates(:ncol,:, 602) = rxt_rates(:ncol,:, 602)*sol(:ncol,:, 135)*sol(:ncol,:, 71) ! rate_const*Op2D*O2 + rxt_rates(:ncol,:, 603) = rxt_rates(:ncol,:, 603)*sol(:ncol,:, 136)*sol(:ncol,:, 96) ! rate_const*Op2P*e + rxt_rates(:ncol,:, 604) = rxt_rates(:ncol,:, 604)*sol(:ncol,:, 136)*sol(:ncol,:, 96) ! rate_const*Op2P*e rxt_rates(:ncol,:, 605) = rxt_rates(:ncol,:, 605)*sol(:ncol,:, 136) ! rate_const*N2*Op2P rxt_rates(:ncol,:, 606) = rxt_rates(:ncol,:, 606)*sol(:ncol,:, 136) ! rate_const*N2*Op2P - rxt_rates(:ncol,:, 607) = rxt_rates(:ncol,:, 607)*sol(:ncol,:, 136)*sol(:ncol,:, 67) ! rate_const*Op2P*O + rxt_rates(:ncol,:, 607) = rxt_rates(:ncol,:, 607)*sol(:ncol,:, 136)*sol(:ncol,:, 69) ! rate_const*Op2P*O end subroutine set_rates end module mo_rxt_rates_conv diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_setrxt.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_setrxt.F90 index 4afca6d204..47dd0f6605 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_setrxt.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_setrxt.F90 @@ -10,10 +10,9 @@ module mo_setrxt contains subroutine setrxt( rate, temp, m, ncol ) - - use ppgrid, only : pcols, pver - + use ppgrid, only : pver, pcols + use shr_kind_mod, only : r8 => shr_kind_r8 use chem_mods, only : rxntot use mo_jpl, only : jpl @@ -24,420 +23,412 @@ subroutine setrxt( rate, temp, m, ncol ) !------------------------------------------------------- integer, intent(in) :: ncol real(r8), intent(in) :: temp(pcols,pver) - real(r8), intent(in) :: m(ncol*pver) - real(r8), intent(inout) :: rate(ncol*pver,max(1,rxntot)) + real(r8), intent(in) :: m(ncol,pver) + real(r8), intent(inout) :: rate(ncol,pver,rxntot) !------------------------------------------------------- ! ... local variables !------------------------------------------------------- integer :: n - integer :: offset - real(r8) :: itemp(ncol*pver) - real(r8) :: exp_fac(ncol*pver) - real(r8) :: ko(ncol*pver) - real(r8) :: kinf(ncol*pver) - - rate(:,105) = 9.6e-10_r8 - rate(:,106) = 1.3e-09_r8 - rate(:,107) = 2e-29_r8 - rate(:,108) = 1e-27_r8 - rate(:,109) = 1.6e-09_r8 - rate(:,110) = 6e-12_r8 - rate(:,111) = 2.9e-12_r8 - rate(:,112) = 2.9e-11_r8 - rate(:,113) = 2e-10_r8 - rate(:,114) = 1e-10_r8 - rate(:,115) = 1e-10_r8 - rate(:,116) = 1e-11_r8 - rate(:,117) = 1.7e-10_r8 - rate(:,118) = 1e-28_r8 - rate(:,119) = 1e-28_r8 - rate(:,120) = 4e-11_r8 - rate(:,121) = 4e-11_r8 - rate(:,122) = 3.5e-12_r8 - rate(:,123) = 3.5e-12_r8 - rate(:,124) = 3.51e-10_r8 - rate(:,125) = 1.1e-10_r8 - rate(:,126) = 6e-15_r8 - rate(:,127) = 1e-10_r8 - rate(:,128) = 1e-10_r8 - rate(:,129) = 2.2e-10_r8 - rate(:,130) = 1.2e-09_r8 - rate(:,131) = 1.4e-10_r8 - rate(:,132) = 1.3e-10_r8 - rate(:,138) = 1.5e-06_r8 - rate(:,139) = 2e-09_r8 - rate(:,140) = 1e-09_r8 - rate(:,141) = 3.6e-06_r8 - rate(:,142) = 4e-12_r8 - rate(:,143) = 1e-09_r8 - rate(:,144) = 5e-06_r8 - rate(:,145) = 7e-12_r8 - rate(:,285) = 1e-10_r8 - rate(:,286) = 1e-10_r8 - rate(:,287) = 3e-10_r8 - rate(:,288) = 1.6e-28_r8 - rate(:,289) = 1.4e-09_r8 - rate(:,290) = 1.6e-09_r8 - rate(:,291) = 2e-13_r8 - rate(:,292) = 1.2e-10_r8 - rate(:,293) = 7e-10_r8 - rate(:,294) = 1.6e-28_r8 - rate(:,295) = 1.6e-09_r8 - rate(:,296) = 1.6e-28_r8 - rate(:,297) = 7e-10_r8 - rate(:,298) = 1e-12_r8 - rate(:,299) = 7.6e-10_r8 - rate(:,300) = 1.45e-26_r8 - rate(:,301) = 5e-12_r8 - rate(:,302) = 1e-13_r8 - rate(:,303) = 2e-06_r8 - rate(:,304) = 2e-06_r8 - rate(:,305) = 7e-11_r8 - rate(:,306) = 1.5e-06_r8 - rate(:,307) = 1e-09_r8 - rate(:,308) = 1.5e-06_r8 - rate(:,309) = 7e-12_r8 - rate(:,310) = 5e-10_r8 - rate(:,311) = 1e-10_r8 - rate(:,312) = 1e-09_r8 - rate(:,313) = 1e-09_r8 - rate(:,314) = 1e-10_r8 - rate(:,315) = 1e-10_r8 - rate(:,316) = 9.9e-30_r8 - rate(:,317) = 1.4e-09_r8 - rate(:,318) = 1.6e-09_r8 - rate(:,319) = 2.9e-09_r8 - rate(:,320) = 7e-10_r8 - rate(:,321) = 2e-10_r8 - rate(:,322) = 3.4e-31_r8 - rate(:,323) = 7.8e-10_r8 - rate(:,324) = 1.5e-10_r8 - rate(:,325) = 1.5e-10_r8 - rate(:,326) = 2e-06_r8 - rate(:,327) = 9e-10_r8 - rate(:,328) = 2.4e-10_r8 - rate(:,329) = 2.8e-28_r8 - rate(:,330) = 5.5e-10_r8 - rate(:,331) = 8.4e-10_r8 - rate(:,332) = 1e-10_r8 - rate(:,333) = 1e-10_r8 - rate(:,334) = 2.5e-10_r8 - rate(:,335) = 4.3e-10_r8 - rate(:,336) = 4e-10_r8 - rate(:,337) = 1.7e-09_r8 - rate(:,338) = 3e-10_r8 - rate(:,339) = 1.5e-10_r8 - rate(:,341) = 1e-10_r8 - rate(:,342) = 1e-10_r8 - rate(:,343) = 7.6e-28_r8 - rate(:,344) = 1.4e-09_r8 - rate(:,345) = 1e-09_r8 - rate(:,346) = 1.1e-09_r8 - rate(:,347) = 2e-10_r8 - rate(:,348) = 9e-10_r8 - rate(:,350) = 1e-10_r8 - rate(:,351) = 1e-10_r8 - rate(:,352) = 2e-28_r8 - rate(:,353) = 5.8e-10_r8 - rate(:,354) = 3.2e-11_r8 - rate(:,355) = 6e-13_r8 - rate(:,356) = 2e-09_r8 - rate(:,357) = 3.6e-09_r8 - rate(:,358) = 5e-13_r8 - rate(:,359) = 1e-09_r8 - rate(:,360) = 1.9e-10_r8 - rate(:,361) = 3e-10_r8 - rate(:,362) = 2.9e-31_r8 - rate(:,363) = 8e-10_r8 - rate(:,387) = 0.000258_r8 - rate(:,388) = 0.085_r8 - rate(:,389) = 1.2e-10_r8 - rate(:,394) = 1.2e-10_r8 - rate(:,395) = 1e-20_r8 - rate(:,396) = 1.3e-16_r8 - rate(:,398) = 4.2e-13_r8 - rate(:,400) = 8e-14_r8 - rate(:,401) = 3.9e-17_r8 - rate(:,408) = 6.9e-12_r8 - rate(:,409) = 7.2e-11_r8 - 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) = 1e-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(:,538) = 1.31e-10_r8 - rate(:,539) = 3.5e-11_r8 - rate(:,540) = 9e-12_r8 - rate(:,544) = 2.3e-12_r8 - rate(:,545) = 1.2e-11_r8 - rate(:,546) = 5.7e-11_r8 - rate(:,547) = 2.8e-11_r8 - rate(:,548) = 6.6e-11_r8 - rate(:,549) = 1.4e-11_r8 - rate(:,552) = 1.9e-12_r8 - rate(:,580) = 0.047_r8 - rate(:,581) = 7.7e-05_r8 - rate(:,582) = 0.171_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(:,597) = 1.3e-10_r8 - rate(:,600) = 8e-10_r8 - rate(:,601) = 5e-12_r8 - rate(:,602) = 7e-10_r8 - rate(:,605) = 4.8e-10_r8 - rate(:,606) = 1e-10_r8 - rate(:,607) = 4e-10_r8 - - do n = 1,pver - offset = (n-1)*ncol - itemp(offset+1:offset+ncol) = 1._r8 / temp(:ncol,n) - end do - - rate(:,340) = 1.8e-11_r8 * exp( 390._r8 * itemp(:) ) - 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(:) ) - rate(:,392) = 2.64e-11_r8 * exp_fac(:) - rate(:,393) = 6.6e-12_r8 * exp_fac(:) - rate(:,397) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:,399) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:,402) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:,403) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:,406) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:) ) - 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(:,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(:) ) - exp_fac(:) = exp( 250._r8 * itemp(:) ) - rate(:,417) = 4.8e-11_r8 * exp_fac(:) - rate(:,498) = 1.7e-11_r8 * exp_fac(:) - rate(:,418) = 1.8e-11_r8 * exp( 180._r8 * itemp(:) ) - rate(:,419) = 1.7e-12_r8 * exp( -940._r8 * itemp(:) ) - rate(:,423) = 1.3e-12_r8 * exp( 380._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) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) - rate(:,431) = 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(:,435) = 1.5e-11_r8 * exp( 170._r8 * itemp(:) ) - exp_fac(:) = exp( 270._r8 * itemp(:) ) - rate(:,439) = 3.3e-12_r8 * exp_fac(:) - rate(:,454) = 1.4e-11_r8 * exp_fac(:) - rate(:,468) = 7.4e-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(:) - 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(:,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(:) ) - 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(:) ) - 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(:) ) - 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(:) ) - exp_fac(:) = exp( -500._r8 * itemp(:) ) - rate(:,474) = 3e-12_r8 * exp_fac(:) - rate(:,508) = 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(:) ) - exp_fac(:) = exp( 260._r8 * itemp(:) ) - rate(:,491) = 2.3e-12_r8 * exp_fac(:) - rate(:,494) = 8.8e-12_r8 * exp_fac(:) - 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(:) ) - 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(:,538) = 1.31e-10_r8 * exp_fac(:) - rate(:,539) = 3.5e-11_r8 * exp_fac(:) - rate(:,540) = 9e-12_r8 * exp_fac(:) - rate(:,544) = 2.3e-12_r8 * exp_fac(:) - rate(:,545) = 1.2e-11_r8 * exp_fac(:) - rate(:,546) = 5.7e-11_r8 * exp_fac(:) - rate(:,547) = 2.8e-11_r8 * exp_fac(:) - rate(:,548) = 6.6e-11_r8 * exp_fac(:) - rate(:,549) = 1.4e-11_r8 * exp_fac(:) - rate(:,552) = 1.9e-12_r8 * exp_fac(:) - rate(:,580) = 0.047_r8 * exp_fac(:) - rate(:,581) = 7.7e-05_r8 * exp_fac(:) - rate(:,582) = 0.171_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(:,597) = 1.3e-10_r8 * exp_fac(:) - rate(:,600) = 8e-10_r8 * exp_fac(:) - rate(:,601) = 5e-12_r8 * exp_fac(:) - rate(:,602) = 7e-10_r8 * exp_fac(:) - rate(:,605) = 4.8e-10_r8 * exp_fac(:) - rate(:,606) = 1e-10_r8 * exp_fac(:) - rate(:,607) = 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(:) ) - exp_fac(:) = exp( -1100._r8 * itemp(:) ) - rate(:,518) = 2.03e-11_r8 * exp_fac(:) - rate(:,551) = 3.4e-12_r8 * exp_fac(:) - 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(:) ) - 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(:,532) = 5.5e-12_r8 * exp( 125._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(:,542) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:) ) - rate(:,543) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:) ) - rate(:,550) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:) ) - rate(:,553) = 2.7e-11_r8 * exp( 335._r8 * itemp(:) ) - rate(:,556) = 1.9e-13_r8 * exp( 520._r8 * itemp(:) ) - rate(:,557) = 9.6e-12_r8 * exp( -234._r8 * itemp(:) ) - - itemp(:) = 300._r8 * itemp(:) - + real(r8) :: itemp(ncol,pver) + real(r8) :: exp_fac(ncol,pver) + real(r8) :: ko(ncol,pver) + real(r8) :: kinf(ncol,pver) + + rate(:,:,105) = 9.6e-10_r8 + rate(:,:,106) = 1.3e-09_r8 + rate(:,:,107) = 2e-29_r8 + rate(:,:,108) = 1e-27_r8 + rate(:,:,109) = 1.6e-09_r8 + rate(:,:,110) = 6e-12_r8 + rate(:,:,111) = 2.9e-12_r8 + rate(:,:,112) = 2.9e-11_r8 + rate(:,:,113) = 2e-10_r8 + rate(:,:,114) = 1e-10_r8 + rate(:,:,115) = 1e-10_r8 + rate(:,:,116) = 1e-11_r8 + rate(:,:,117) = 1.7e-10_r8 + rate(:,:,118) = 1e-28_r8 + rate(:,:,119) = 1e-28_r8 + rate(:,:,120) = 4e-11_r8 + rate(:,:,121) = 4e-11_r8 + rate(:,:,122) = 3.5e-12_r8 + rate(:,:,123) = 3.5e-12_r8 + rate(:,:,124) = 3.51e-10_r8 + rate(:,:,125) = 1.1e-10_r8 + rate(:,:,126) = 6e-15_r8 + rate(:,:,127) = 1e-10_r8 + rate(:,:,128) = 1e-10_r8 + rate(:,:,129) = 2.2e-10_r8 + rate(:,:,130) = 1.2e-09_r8 + rate(:,:,131) = 1.4e-10_r8 + rate(:,:,132) = 1.3e-10_r8 + rate(:,:,138) = 1.5e-06_r8 + rate(:,:,139) = 2e-09_r8 + rate(:,:,140) = 1e-09_r8 + rate(:,:,141) = 3.6e-06_r8 + rate(:,:,142) = 4e-12_r8 + rate(:,:,143) = 1e-09_r8 + rate(:,:,144) = 5e-06_r8 + rate(:,:,145) = 7e-12_r8 + rate(:,:,285) = 1e-10_r8 + rate(:,:,286) = 1e-10_r8 + rate(:,:,287) = 3e-10_r8 + rate(:,:,288) = 1.6e-28_r8 + rate(:,:,289) = 1.4e-09_r8 + rate(:,:,290) = 1.6e-09_r8 + rate(:,:,291) = 2e-13_r8 + rate(:,:,292) = 1.2e-10_r8 + rate(:,:,293) = 7e-10_r8 + rate(:,:,294) = 1.6e-28_r8 + rate(:,:,295) = 1.6e-09_r8 + rate(:,:,296) = 1.6e-28_r8 + rate(:,:,297) = 7e-10_r8 + rate(:,:,298) = 1e-12_r8 + rate(:,:,299) = 7.6e-10_r8 + rate(:,:,300) = 1.45e-26_r8 + rate(:,:,301) = 5e-12_r8 + rate(:,:,302) = 1e-13_r8 + rate(:,:,303) = 2e-06_r8 + rate(:,:,304) = 2e-06_r8 + rate(:,:,305) = 7e-11_r8 + rate(:,:,306) = 1.5e-06_r8 + rate(:,:,307) = 1e-09_r8 + rate(:,:,308) = 1.5e-06_r8 + rate(:,:,309) = 7e-12_r8 + rate(:,:,310) = 5e-10_r8 + rate(:,:,311) = 1e-10_r8 + rate(:,:,312) = 1e-09_r8 + rate(:,:,313) = 1e-09_r8 + rate(:,:,314) = 1e-10_r8 + rate(:,:,315) = 1e-10_r8 + rate(:,:,316) = 9.9e-30_r8 + rate(:,:,317) = 1.4e-09_r8 + rate(:,:,318) = 1.6e-09_r8 + rate(:,:,319) = 2.9e-09_r8 + rate(:,:,320) = 7e-10_r8 + rate(:,:,321) = 2e-10_r8 + rate(:,:,322) = 3.4e-31_r8 + rate(:,:,323) = 7.8e-10_r8 + rate(:,:,324) = 1.5e-10_r8 + rate(:,:,325) = 1.5e-10_r8 + rate(:,:,326) = 2e-06_r8 + rate(:,:,327) = 9e-10_r8 + rate(:,:,328) = 2.4e-10_r8 + rate(:,:,329) = 2.8e-28_r8 + rate(:,:,330) = 5.5e-10_r8 + rate(:,:,331) = 8.4e-10_r8 + rate(:,:,332) = 1e-10_r8 + rate(:,:,333) = 1e-10_r8 + rate(:,:,334) = 2.5e-10_r8 + rate(:,:,335) = 4.3e-10_r8 + rate(:,:,336) = 4e-10_r8 + rate(:,:,337) = 1.7e-09_r8 + rate(:,:,338) = 3e-10_r8 + rate(:,:,339) = 1.5e-10_r8 + rate(:,:,341) = 1e-10_r8 + rate(:,:,342) = 1e-10_r8 + rate(:,:,343) = 7.6e-28_r8 + rate(:,:,344) = 1.4e-09_r8 + rate(:,:,345) = 1e-09_r8 + rate(:,:,346) = 1.1e-09_r8 + rate(:,:,347) = 2e-10_r8 + rate(:,:,348) = 9e-10_r8 + rate(:,:,350) = 1e-10_r8 + rate(:,:,351) = 1e-10_r8 + rate(:,:,352) = 2e-28_r8 + rate(:,:,353) = 5.8e-10_r8 + rate(:,:,354) = 3.2e-11_r8 + rate(:,:,355) = 6e-13_r8 + rate(:,:,356) = 2e-09_r8 + rate(:,:,357) = 3.6e-09_r8 + rate(:,:,358) = 5e-13_r8 + rate(:,:,359) = 1e-09_r8 + rate(:,:,360) = 1.9e-10_r8 + rate(:,:,361) = 3e-10_r8 + rate(:,:,362) = 2.9e-31_r8 + rate(:,:,363) = 8e-10_r8 + rate(:,:,387) = 0.000258_r8 + rate(:,:,388) = 0.085_r8 + rate(:,:,389) = 1.2e-10_r8 + rate(:,:,394) = 1.2e-10_r8 + rate(:,:,395) = 1e-20_r8 + rate(:,:,396) = 1.3e-16_r8 + rate(:,:,398) = 4.2e-13_r8 + rate(:,:,400) = 8e-14_r8 + rate(:,:,401) = 3.9e-17_r8 + rate(:,:,408) = 6.9e-12_r8 + rate(:,:,409) = 7.2e-11_r8 + 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) = 1e-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(:,:,538) = 1.31e-10_r8 + rate(:,:,539) = 3.5e-11_r8 + rate(:,:,540) = 9e-12_r8 + rate(:,:,546) = 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(:,:,580) = 0.047_r8 + rate(:,:,581) = 7.7e-05_r8 + rate(:,:,582) = 0.171_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(:,:,597) = 1.3e-10_r8 + rate(:,:,600) = 8e-10_r8 + rate(:,:,601) = 5e-12_r8 + rate(:,:,602) = 7e-10_r8 + rate(:,:,605) = 4.8e-10_r8 + rate(:,:,606) = 1e-10_r8 + rate(:,:,607) = 4e-10_r8 + itemp(:ncol,:) = 1._r8 / temp(:ncol,:) n = ncol*pver - - ko(:) = 7e-31_r8 * itemp(:)**2.6_r8 - kinf(:) = 3.6e-11_r8 * itemp(:)**0.1_r8 - call jpl( rate(:,349), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 4.4e-32_r8 * itemp(:)**1.3_r8 - kinf(:) = 7.5e-11_r8 * itemp(:)**(-0.2_r8) - call jpl( rate(:,411), m, 0.6_r8, ko, kinf, n ) - - ko(:) = 6.9e-31_r8 * itemp(:)**1._r8 - kinf(:) = 2.6e-11_r8 - call jpl( rate(:,421), 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(:,433), 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 ) - - 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 ) - - 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 ) - - ko(:) = 1.8e-30_r8 * itemp(:)**3._r8 - kinf(:) = 2.8e-11_r8 - call jpl( rate(:,446), 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 ) - - 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 ) - - 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 ) - - ko(:) = 5.9e-33_r8 * itemp(:)**1._r8 - kinf(:) = 1.1e-12_r8 * itemp(:)**(-1.3_r8) - call jpl( rate(:,537), m, 0.6_r8, ko, kinf, n ) + rate(:,:,340) = 1.8e-11_r8 * exp( 390._r8 * itemp(:,:) ) + 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(:,:) ) + rate(:,:,392) = 2.64e-11_r8 * exp_fac(:,:) + rate(:,:,393) = 6.6e-12_r8 * exp_fac(:,:) + rate(:,:,397) = 3.6e-18_r8 * exp( -220._r8 * itemp(:,:) ) + rate(:,:,399) = 1.8e-15_r8 * exp( 45._r8 * itemp(:,:) ) + rate(:,:,402) = 3.5e-11_r8 * exp( -135._r8 * itemp(:,:) ) + rate(:,:,403) = 8e-12_r8 * exp( -2060._r8 * itemp(:,:) ) + rate(:,:,406) = 1.6e-11_r8 * exp( -4570._r8 * itemp(:,:) ) + 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(:,:,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(:,:) ) + exp_fac(:,:) = exp( 250._r8 * itemp(:,:) ) + rate(:,:,417) = 4.8e-11_r8 * exp_fac(:,:) + rate(:,:,498) = 1.7e-11_r8 * exp_fac(:,:) + rate(:,:,418) = 1.8e-11_r8 * exp( 180._r8 * itemp(:,:) ) + rate(:,:,419) = 1.7e-12_r8 * exp( -940._r8 * itemp(:,:) ) + rate(:,:,423) = 1.3e-12_r8 * exp( 380._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) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:,:) ) + rate(:,:,431) = 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(:,:,435) = 1.5e-11_r8 * exp( 170._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 270._r8 * itemp(:,:) ) + rate(:,:,439) = 3.3e-12_r8 * exp_fac(:,:) + rate(:,:,454) = 1.4e-11_r8 * exp_fac(:,:) + rate(:,:,468) = 7.4e-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(:,:) + 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(:,:,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(:,:) ) + 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(:,:) ) + 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(:,:) ) + 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(:,:) ) + exp_fac(:,:) = exp( -500._r8 * itemp(:,:) ) + rate(:,:,474) = 3e-12_r8 * exp_fac(:,:) + rate(:,:,508) = 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(:,:) ) + exp_fac(:,:) = exp( 260._r8 * itemp(:,:) ) + rate(:,:,491) = 2.3e-12_r8 * exp_fac(:,:) + rate(:,:,494) = 8.8e-12_r8 * exp_fac(:,:) + 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(:,:) ) + 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(:,:,538) = 1.31e-10_r8 * exp_fac(:,:) + rate(:,:,539) = 3.5e-11_r8 * exp_fac(:,:) + rate(:,:,540) = 9e-12_r8 * exp_fac(:,:) + rate(:,:,546) = 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(:,:,580) = 0.047_r8 * exp_fac(:,:) + rate(:,:,581) = 7.7e-05_r8 * exp_fac(:,:) + rate(:,:,582) = 0.171_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(:,:,597) = 1.3e-10_r8 * exp_fac(:,:) + rate(:,:,600) = 8e-10_r8 * exp_fac(:,:) + rate(:,:,601) = 5e-12_r8 * exp_fac(:,:) + rate(:,:,602) = 7e-10_r8 * exp_fac(:,:) + rate(:,:,605) = 4.8e-10_r8 * exp_fac(:,:) + rate(:,:,606) = 1e-10_r8 * exp_fac(:,:) + rate(:,:,607) = 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(:,:) ) + exp_fac(:,:) = exp( -1100._r8 * itemp(:,:) ) + rate(:,:,518) = 2.03e-11_r8 * exp_fac(:,:) + rate(:,:,553) = 3.4e-12_r8 * exp_fac(:,:) + 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(:,:) ) + 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(:,:,532) = 5.5e-12_r8 * exp( 125._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(:,:,542) = 1.9e-13_r8 * exp( 520._r8 * itemp(:,:) ) + rate(:,:,543) = 9.6e-12_r8 * exp( -234._r8 * itemp(:,:) ) + rate(:,:,544) = 2.1e-11_r8 * exp( -2200._r8 * itemp(:,:) ) + rate(:,:,545) = 7.2e-14_r8 * exp( -1070._r8 * itemp(:,:) ) + rate(:,:,552) = 1.6e-13_r8 * exp( -2280._r8 * itemp(:,:) ) + rate(:,:,555) = 2.7e-11_r8 * exp( 335._r8 * itemp(:,:) ) + + itemp(:,:) = 300._r8 * itemp(:,:) + + ko(:,:) = 7e-31_r8 * itemp(:,:)**2.6_r8 + kinf(:,:) = 3.6e-11_r8 * itemp(:,:)**0.1_r8 + call jpl( rate(1,1,349), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 4.4e-32_r8 * itemp(:,:)**1.3_r8 + kinf(:,:) = 7.5e-11_r8 * itemp(:,:)**(-0.2_r8) + call jpl( rate(1,1,411), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 6.9e-31_r8 * itemp(:,:)**1._r8 + kinf(:,:) = 2.6e-11_r8 + call jpl( rate(1,1,421), 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(1,1,433), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 9e-32_r8 * itemp(:,:)**1.5_r8 + kinf(:,:) = 3e-11_r8 + call jpl( rate(1,1,441), 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(1,1,444), 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(1,1,445), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 1.8e-30_r8 * itemp(:,:)**3._r8 + kinf(:,:) = 2.8e-11_r8 + call jpl( rate(1,1,446), 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(1,1,464), 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(1,1,484), 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(1,1,495), m, 0.6_r8, ko, kinf, n ) + + ko(:,:) = 5.9e-33_r8 * itemp(:,:)**1._r8 + kinf(:,:) = 1.1e-12_r8 * itemp(:,:)**(-1.3_r8) + call jpl( rate(1,1,537), m, 0.6_r8, ko, kinf, n ) end subroutine setrxt subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) - - use ppgrid, only : pcols, pver - + use ppgrid, only : pver, pcols + use shr_kind_mod, only : r8 => shr_kind_r8 use chem_mods, only : rxntot use mo_jpl, only : jpl @@ -449,79 +440,71 @@ subroutine setrxt_hrates( rate, temp, m, ncol, kbot ) integer, intent(in) :: ncol integer, intent(in) :: kbot real(r8), intent(in) :: temp(pcols,pver) - real(r8), intent(in) :: m(ncol*pver) - real(r8), intent(inout) :: rate(ncol*pver,max(1,rxntot)) + real(r8), intent(in) :: m(ncol,pver) + real(r8), intent(inout) :: rate(ncol,pver,rxntot) !------------------------------------------------------- ! ... local variables !------------------------------------------------------- integer :: n - integer :: offset - integer :: k - real(r8) :: itemp(ncol*kbot) - real(r8) :: exp_fac(ncol*kbot) - real(r8) :: ko(ncol*kbot) - real(r8) :: kinf(ncol*kbot) - real(r8) :: wrk(ncol*kbot) - + real(r8) :: itemp(ncol,kbot) + real(r8) :: exp_fac(ncol,kbot) + real(r8) :: ko(ncol,kbot) + real(r8) :: kinf(ncol,kbot) + real(r8) :: wrk(ncol,kbot) + + rate(:,:kbot,395) = 1e-20_r8 + rate(:,:kbot,396) = 1.3e-16_r8 + rate(:,:kbot,400) = 8e-14_r8 + rate(:,:kbot,401) = 3.9e-17_r8 + rate(:,:kbot,408) = 6.9e-12_r8 + rate(:,:kbot,424) = 7e-13_r8 + rate(:,:kbot,425) = 5e-12_r8 + rate(:,:kbot,580) = 0.047_r8 + rate(:,:kbot,581) = 7.7e-05_r8 + rate(:,:kbot,582) = 0.171_r8 + rate(:,:kbot,586) = 6e-11_r8 + rate(:,:kbot,589) = 1e-12_r8 + rate(:,:kbot,590) = 4e-10_r8 + rate(:,:kbot,591) = 2e-10_r8 + rate(:,:kbot,592) = 1e-10_r8 + rate(:,:kbot,594) = 4.4e-10_r8 + rate(:,:kbot,597) = 1.3e-10_r8 + rate(:,:kbot,600) = 8e-10_r8 + rate(:,:kbot,601) = 5e-12_r8 + rate(:,:kbot,602) = 7e-10_r8 + rate(:,:kbot,605) = 4.8e-10_r8 + rate(:,:kbot,606) = 1e-10_r8 + rate(:,:kbot,607) = 4e-10_r8 + itemp(:ncol,:kbot) = 1._r8 / temp(:ncol,:kbot) n = ncol*kbot - - rate(:n,395) = 1e-20_r8 - rate(:n,396) = 1.3e-16_r8 - 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,580) = 0.047_r8 - rate(:n,581) = 7.7e-05_r8 - rate(:n,582) = 0.171_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 - rate(:n,597) = 1.3e-10_r8 - rate(:n,600) = 8e-10_r8 - rate(:n,601) = 5e-12_r8 - rate(:n,602) = 7e-10_r8 - rate(:n,605) = 4.8e-10_r8 - rate(:n,606) = 1e-10_r8 - rate(:n,607) = 4e-10_r8 - - do k = 1,kbot - offset = (k-1)*ncol - itemp(offset+1:offset+ncol) = 1._r8 / temp(:ncol,k) - end do - - rate(:n,391) = 2.15e-11_r8 * exp( 110._r8 * itemp(:) ) - exp_fac(:) = exp( 55._r8 * itemp(:) ) - rate(:n,392) = 2.64e-11_r8 * exp_fac(:) - rate(:n,393) = 6.6e-12_r8 * exp_fac(:) - rate(:n,397) = 3.6e-18_r8 * exp( -220._r8 * itemp(:) ) - rate(:n,399) = 1.8e-15_r8 * exp( 45._r8 * itemp(:) ) - rate(:n,402) = 3.5e-11_r8 * exp( -135._r8 * itemp(:) ) - rate(:n,403) = 8e-12_r8 * exp( -2060._r8 * itemp(:) ) - rate(:n,412) = 3e-11_r8 * exp( 200._r8 * itemp(:) ) - rate(:n,413) = 1e-14_r8 * exp( -490._r8 * itemp(:) ) - rate(:n,414) = 1.4e-10_r8 * exp( -470._r8 * itemp(:) ) - rate(:n,417) = 4.8e-11_r8 * exp( 250._r8 * itemp(:) ) - 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) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:) ) - rate(:n,431) = 5.1e-12_r8 * exp( 210._r8 * itemp(:) ) - rate(:n,439) = 3.3e-12_r8 * exp( 270._r8 * itemp(:) ) - rate(:n,440) = 3e-12_r8 * exp( -1500._r8 * itemp(:) ) - - itemp(:) = 300._r8 * itemp(:) - - - ko(:) = 4.4e-32_r8 * itemp(:)**1.3_r8 - kinf(:) = 7.5e-11_r8 * itemp(:)**(-0.2_r8) + rate(:,:kbot,391) = 2.15e-11_r8 * exp( 110._r8 * itemp(:,:) ) + exp_fac(:,:) = exp( 55._r8 * itemp(:,:) ) + rate(:,:kbot,392) = 2.64e-11_r8 * exp_fac(:,:) + rate(:,:kbot,393) = 6.6e-12_r8 * exp_fac(:,:) + rate(:,:kbot,397) = 3.6e-18_r8 * exp( -220._r8 * itemp(:,:) ) + rate(:,:kbot,399) = 1.8e-15_r8 * exp( 45._r8 * itemp(:,:) ) + rate(:,:kbot,402) = 3.5e-11_r8 * exp( -135._r8 * itemp(:,:) ) + rate(:,:kbot,403) = 8e-12_r8 * exp( -2060._r8 * itemp(:,:) ) + rate(:,:kbot,412) = 3e-11_r8 * exp( 200._r8 * itemp(:,:) ) + rate(:,:kbot,413) = 1e-14_r8 * exp( -490._r8 * itemp(:,:) ) + rate(:,:kbot,414) = 1.4e-10_r8 * exp( -470._r8 * itemp(:,:) ) + rate(:,:kbot,417) = 4.8e-11_r8 * exp( 250._r8 * itemp(:,:) ) + rate(:,:kbot,418) = 1.8e-11_r8 * exp( 180._r8 * itemp(:,:) ) + rate(:,:kbot,419) = 1.7e-12_r8 * exp( -940._r8 * itemp(:,:) ) + rate(:,:kbot,426) = 2.1e-11_r8 * exp( 100._r8 * itemp(:,:) ) + rate(:,:kbot,430) = 1.5e-11_r8 * exp( -3600._r8 * itemp(:,:) ) + rate(:,:kbot,431) = 5.1e-12_r8 * exp( 210._r8 * itemp(:,:) ) + rate(:,:kbot,439) = 3.3e-12_r8 * exp( 270._r8 * itemp(:,:) ) + rate(:,:kbot,440) = 3e-12_r8 * exp( -1500._r8 * itemp(:,:) ) + + itemp(:,:) = 300._r8 * itemp(:,:) + + + ko(:,:) = 4.4e-32_r8 * itemp(:,:)**1.3_r8 + kinf(:,:) = 7.5e-11_r8 * itemp(:,:)**(-0.2_r8) call jpl( wrk, m, 0.6_r8, ko, kinf, n ) - rate(:n,411) = wrk(:) + rate(:,:kbot,411) = wrk(:,:) diff --git a/src/chemistry/pp_waccm_mad_mam4/mo_sim_dat.F90 b/src/chemistry/pp_waccm_mad_mam4/mo_sim_dat.F90 index 67551cd7b7..8fe140b00a 100644 --- a/src/chemistry/pp_waccm_mad_mam4/mo_sim_dat.F90 +++ b/src/chemistry/pp_waccm_mad_mam4/mo_sim_dat.F90 @@ -28,96 +28,96 @@ subroutine set_sim_dat !-------------------------------------------------------------- integer :: ios - is_scalar = .false. - is_vector = .true. + is_scalar = .true. + is_vector = .false. clscnt(:) = (/ 23, 0, 0, 114, 0 /) cls_rxt_cnt(:,1) = (/ 66, 66, 0, 23 /) cls_rxt_cnt(:,4) = (/ 30, 163, 413, 114 /) - solsym(:137) = (/ 'bc_a1 ','bc_a4 ','BRCL ','BRO ','BRONO2 ', & - 'BRY ','CCL4 ','CF2CLBR ','CF3BR ','CFC11 ', & - 'CFC113 ','CFC114 ','CFC115 ','CFC12 ','CH2BR2 ', & - 'CH2O ','CH3BR ','CH3CCL3 ','CH3CL ','CH3O2 ', & - 'CH3OOH ','CH4 ','CHBR3 ','CL2 ','CL2O2 ', & - 'CLO ','CLONO2 ','CLY ','CO ','CO2 ', & - 'COF2 ','COFCL ','DMS ','dst_a1 ','dst_a2 ', & - 'dst_a3 ','F ','H ','H2 ','H2402 ', & - 'H2O2 ','H2SO4 ','HBR ','HCFC141B ','HCFC142B ', & - 'HCFC22 ','HCL ','HF ','HNO3 ','HO2NO2 ', & - 'HOBR ','HOCL ','HONO ','N ','N2O ', & - 'N2O5 ','ncl_a1 ','ncl_a2 ','ncl_a3 ','NO ', & - 'NO2 ','NO3 ','num_a1 ','num_a2 ','num_a3 ', & - 'num_a4 ','O ','O2 ','O3 ','OCLO ', & - 'OCS ','pom_a1 ','pom_a4 ','S ','SF6 ', & - 'SO ','SO2 ','SO3 ','so4_a1 ','so4_a2 ', & - 'so4_a3 ','soa_a1 ','soa_a2 ','SOAG ','BR ', & - 'CL ','CLm ','CLm_H2O ','CLm_HCL ','CLOm ', & - 'CO3m ','CO3m2H2O ','CO3m_H2O ','CO4m ','e ', & - 'H3Op_OH ','HCO3m ','HO2 ','Hp_2H2O ','Hp_3H2O ', & - 'Hp_3N1 ','Hp_4H2O ','Hp_4N1 ','Hp_5H2O ','Hp_H2O ', & - 'N2D ','N2p ','NO2m ','NO2m_H2O ','NO3m ', & - 'NO3m2H2O ','NO3m_H2O ','NO3m_HCL ','NO3mHNO3 ','NOp ', & - 'NOp_2H2O ','NOp_3H2O ','NOp_CO2 ','NOp_H2O ','NOp_N2 ', & - 'Np ','O1D ','O2_1D ','O2_1S ','O2m ', & + solsym(:137) = (/ 'bc_a1 ','bc_a4 ','BR ','BRCL ','BRO ', & + 'BRONO2 ','BRY ','CCL4 ','CF2CLBR ','CF3BR ', & + 'CFC11 ','CFC113 ','CFC114 ','CFC115 ','CFC12 ', & + 'CH2BR2 ','CH2O ','CH3BR ','CH3CCL3 ','CH3CL ', & + 'CH3O2 ','CH3OOH ','CH4 ','CHBR3 ','CL ', & + 'CL2 ','CL2O2 ','CLO ','CLONO2 ','CLY ', & + 'CO ','CO2 ','COF2 ','COFCL ','DMS ', & + 'dst_a1 ','dst_a2 ','dst_a3 ','F ','H ', & + 'H2 ','H2402 ','H2O2 ','H2SO4 ','HBR ', & + 'HCFC141B ','HCFC142B ','HCFC22 ','HCL ','HF ', & + 'HNO3 ','HO2NO2 ','HOBR ','HOCL ','HONO ', & + 'N ','N2O ','N2O5 ','ncl_a1 ','ncl_a2 ', & + 'ncl_a3 ','NO ','NO2 ','NO3 ','num_a1 ', & + 'num_a2 ','num_a3 ','num_a4 ','O ','O1D ', & + 'O2 ','O3 ','OCLO ','OCS ','pom_a1 ', & + 'pom_a4 ','S ','SF6 ','SO ','SO2 ', & + 'SO3 ','so4_a1 ','so4_a2 ','so4_a3 ','soa_a1 ', & + 'soa_a2 ','SOAG ','CLm ','CLm_H2O ','CLm_HCL ', & + 'CLOm ','CO3m ','CO3m2H2O ','CO3m_H2O ','CO4m ', & + 'e ','H3Op_OH ','HCO3m ','HO2 ','Hp_2H2O ', & + 'Hp_3H2O ','Hp_3N1 ','Hp_4H2O ','Hp_4N1 ','Hp_5H2O ', & + 'Hp_H2O ','N2D ','N2p ','NO2m ','NO2m_H2O ', & + 'NO3m ','NO3m2H2O ','NO3m_H2O ','NO3m_HCL ','NO3mHNO3 ', & + 'NOp ','NOp_2H2O ','NOp_3H2O ','NOp_CO2 ','NOp_H2O ', & + 'NOp_N2 ','Np ','O2_1D ','O2_1S ','O2m ', & 'O2p ','O2p_H2O ','O3m ','O4m ','O4p ', & 'OH ','OHm ','Om ','Op ','Op2D ', & 'Op2P ','H2O ' /) - adv_mass(:137) = (/ 12.011000_r8, 12.011000_r8, 115.356700_r8, 95.903400_r8, 141.908940_r8, & - 99.716850_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, 50.485900_r8, 47.032000_r8, & - 48.039400_r8, 16.040600_r8, 252.730400_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, 62.132400_r8, 135.064039_r8, 135.064039_r8, & - 135.064039_r8, 18.998403_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, 20.005803_r8, 63.012340_r8, 79.011740_r8, & - 96.910800_r8, 52.459500_r8, 47.012940_r8, 14.006740_r8, 44.012880_r8, & - 108.010480_r8, 58.442468_r8, 58.442468_r8, 58.442468_r8, 30.006140_r8, & - 46.005540_r8, 62.004940_r8, 1.007400_r8, 1.007400_r8, 1.007400_r8, & - 1.007400_r8, 15.999400_r8, 31.998800_r8, 47.998200_r8, 67.451500_r8, & - 60.076400_r8, 12.011000_r8, 12.011000_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, 12.011000_r8, 12.011000_r8, 12.011000_r8, 79.904000_r8, & - 35.452700_r8, 35.452700_r8, 53.466900_r8, 71.912800_r8, 51.452100_r8, & - 60.009200_r8, 96.037600_r8, 78.023400_r8, 76.008600_r8, 0.548567E-03_r8, & - 36.028400_r8, 61.016600_r8, 33.006200_r8, 37.035800_r8, 55.050000_r8, & - 118.062340_r8, 73.064200_r8, 136.076540_r8, 91.078400_r8, 19.021600_r8, & - 14.006740_r8, 28.013480_r8, 46.005540_r8, 64.019740_r8, 62.004940_r8, & - 98.033340_r8, 80.019140_r8, 98.465040_r8, 125.017280_r8, 30.006140_r8, & - 66.034540_r8, 68.049340_r8, 74.015940_r8, 48.020340_r8, 58.019620_r8, & - 14.006740_r8, 15.999400_r8, 31.998800_r8, 31.998800_r8, 31.998800_r8, & + adv_mass(:137) = (/ 12.011000_r8, 12.011000_r8, 79.904000_r8, 115.356700_r8, 95.903400_r8, & + 141.908940_r8, 99.716850_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, 50.485900_r8, & + 47.032000_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, 62.132400_r8, & + 135.064039_r8, 135.064039_r8, 135.064039_r8, 18.998403_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, 20.005803_r8, & + 63.012340_r8, 79.011740_r8, 96.910800_r8, 52.459500_r8, 47.012940_r8, & + 14.006740_r8, 44.012880_r8, 108.010480_r8, 58.442468_r8, 58.442468_r8, & + 58.442468_r8, 30.006140_r8, 46.005540_r8, 62.004940_r8, 1.007400_r8, & + 1.007400_r8, 1.007400_r8, 1.007400_r8, 15.999400_r8, 15.999400_r8, & + 31.998800_r8, 47.998200_r8, 67.451500_r8, 60.076400_r8, 12.011000_r8, & + 12.011000_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, 12.011000_r8, & + 12.011000_r8, 12.011000_r8, 35.452700_r8, 53.466900_r8, 71.912800_r8, & + 51.452100_r8, 60.009200_r8, 96.037600_r8, 78.023400_r8, 76.008600_r8, & + 0.548567E-03_r8, 36.028400_r8, 61.016600_r8, 33.006200_r8, 37.035800_r8, & + 55.050000_r8, 118.062340_r8, 73.064200_r8, 136.076540_r8, 91.078400_r8, & + 19.021600_r8, 14.006740_r8, 28.013480_r8, 46.005540_r8, 64.019740_r8, & + 62.004940_r8, 98.033340_r8, 80.019140_r8, 98.465040_r8, 125.017280_r8, & + 30.006140_r8, 66.034540_r8, 68.049340_r8, 74.015940_r8, 48.020340_r8, & + 58.019620_r8, 14.006740_r8, 31.998800_r8, 31.998800_r8, 31.998800_r8, & 31.998800_r8, 50.013000_r8, 47.998200_r8, 63.997600_r8, 63.997600_r8, & 17.006800_r8, 17.006800_r8, 15.999400_r8, 15.999400_r8, 15.999400_r8, & 15.999400_r8, 18.014200_r8 /) crb_mass(:137) = (/ 12.011000_r8, 12.011000_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, & - 24.022000_r8, 24.022000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, & - 12.011000_r8, 12.011000_r8, 24.022000_r8, 12.011000_r8, 12.011000_r8, & - 12.011000_r8, 12.011000_r8, 12.011000_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, 24.022000_r8, 0.000000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_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, 0.000000_r8, 0.000000_r8, 0.000000_r8, & - 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_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, 12.011000_r8, & + 12.011000_r8, 12.011000_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, 24.022000_r8, & 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_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, 0.000000_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, 0.000000_r8, 0.000000_r8, & - 12.011000_r8, 12.011000_r8, 12.011000_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, 12.011000_r8, 12.011000_r8, 12.011000_r8, 0.000000_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, 0.000000_r8, & - 0.000000_r8, 12.011000_r8, 0.000000_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, 0.000000_r8, 0.000000_r8, 0.000000_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, 0.000000_r8, 0.000000_r8, 0.000000_r8, & + 0.000000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, 12.011000_r8, & + 0.000000_r8, 0.000000_r8, 12.011000_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, 0.000000_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, & - 0.000000_r8, 0.000000_r8, 12.011000_r8, 0.000000_r8, 0.000000_r8, & + 0.000000_r8, 0.000000_r8, 0.000000_r8, 12.011000_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, 0.000000_r8, 0.000000_r8, 0.000000_r8, & 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, 0.000000_r8, & @@ -125,15 +125,15 @@ subroutine set_sim_dat fix_mass(: 2) = (/ 0.00000000_r8, 28.0134800_r8 /) - clsmap(: 23,1) = (/ 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, & - 17, 18, 19, 22, 23, 28, 30, 40, 44, 45, & - 46, 55, 75 /) - clsmap(:114,4) = (/ 1, 2, 3, 4, 5, 16, 20, 21, 24, 25, & - 26, 27, 29, 31, 32, 33, 34, 35, 36, 37, & - 38, 39, 41, 42, 43, 47, 48, 49, 50, 51, & - 52, 53, 54, 56, 57, 58, 59, 60, 61, 62, & + clsmap(: 23,1) = (/ 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, & + 18, 19, 20, 23, 24, 30, 32, 42, 46, 47, & + 48, 57, 78 /) + clsmap(:114,4) = (/ 1, 2, 3, 4, 5, 6, 17, 21, 22, 25, & + 26, 27, 28, 29, 31, 33, 34, 35, 36, 37, & + 38, 39, 40, 41, 43, 44, 45, 49, 50, 51, & + 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, & 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, & - 73, 74, 76, 77, 78, 79, 80, 81, 82, 83, & + 73, 74, 75, 76, 77, 79, 80, 81, 82, 83, & 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, & 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, & 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, & @@ -141,16 +141,16 @@ subroutine set_sim_dat 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, & 134, 135, 136, 137 /) - permute(:114,4) = (/ 1, 2, 27, 82, 45, 83, 66, 35, 24, 21, & - 112, 62, 44, 23, 25, 32, 3, 4, 5, 53, & - 113, 77, 46, 22, 58, 98, 26, 101, 39, 54, & - 57, 50, 65, 64, 6, 7, 8, 106, 94, 97, & - 9, 10, 11, 12, 104, 100, 99, 33, 34, 13, & - 14, 49, 70, 60, 29, 15, 16, 17, 18, 19, & - 20, 75, 105, 86, 72, 71, 63, 90, 69, 80, & - 85, 107, 36, 67, 88, 48, 95, 30, 111, 31, & - 108, 51, 55, 47, 91, 73, 87, 79, 81, 76, & - 78, 92, 93, 37, 41, 96, 40, 56, 84, 59, & + permute(:114,4) = (/ 1, 2, 76, 27, 82, 45, 83, 66, 35, 100, & + 24, 21, 106, 62, 44, 23, 25, 32, 3, 4, & + 5, 53, 105, 77, 46, 22, 57, 101, 26, 108, & + 39, 54, 58, 50, 65, 64, 6, 7, 8, 98, & + 96, 113, 9, 10, 11, 12, 99, 84, 95, 104, & + 33, 34, 13, 14, 49, 70, 60, 29, 15, 16, & + 17, 18, 19, 20, 86, 72, 71, 63, 90, 69, & + 80, 85, 91, 36, 67, 88, 48, 92, 30, 107, & + 31, 111, 51, 55, 47, 112, 73, 87, 79, 81, & + 75, 78, 93, 94, 37, 41, 97, 40, 56, 59, & 28, 102, 103, 52, 74, 38, 68, 89, 109, 110, & 61, 43, 42, 114 /) @@ -159,13 +159,13 @@ subroutine set_sim_dat 21, 24, 27, 30, 32, 36, 39, 42, 46, 50, & 54, 58, 64, 69, 77, 83, 89, 95, 101, 108, & 115, 121, 128, 134, 138, 146, 153, 162, 168, 175, & - 181, 189, 198, 207, 215, 223, 231, 238, 246, 255, & + 181, 189, 198, 207, 215, 223, 230, 239, 246, 255, & 264, 277, 287, 297, 311, 324, 335, 350, 362, 379, & - 393, 409, 424, 438, 454, 465, 484, 503, 519, 539, & + 393, 409, 424, 438, 452, 470, 484, 503, 519, 539, & 560, 584, 606, 637, 660, 690, 713, 747, 794, 822, & - 852, 900, 943, 990,1033,1075,1115,1160,1202,1252, & - 1292,1328,1373,1433,1476,1518,1561,1604,1637,1673, & - 1716,1761,1797,1856 /) + 866, 908, 956, 999,1049,1096,1138,1180,1240,1283, & + 1328,1364,1409,1451,1487,1532,1575,1615,1648,1684, & + 1727,1757,1797,1856 /) extfrc_lst(: 23) = (/ 'so4_a2 ','DMS ','NO2 ','SO2 ','bc_a1 ', & 'bc_a4 ','num_a1 ','num_a2 ','num_a4 ','pom_a1 ', & @@ -181,17 +181,16 @@ subroutine set_sim_dat inv_lst(: 2) = (/ 'M ', 'N2 ' /) - slvd_lst(: 52) = (/ 'BR ', 'CL ', 'CLm ', 'CLm_H2O ', 'CLm_HCL ', & - 'CLOm ', 'CO3m ', 'CO3m2H2O ', 'CO3m_H2O ', 'CO4m ', & - 'e ', 'H3Op_OH ', 'HCO3m ', 'HO2 ', 'Hp_2H2O ', & - 'Hp_3H2O ', 'Hp_3N1 ', 'Hp_4H2O ', 'Hp_4N1 ', 'Hp_5H2O ', & - 'Hp_H2O ', 'N2D ', 'N2p ', 'NO2m ', 'NO2m_H2O ', & - 'NO3m ', 'NO3m2H2O ', 'NO3m_H2O ', 'NO3m_HCL ', 'NO3mHNO3 ', & - 'NOp ', 'NOp_2H2O ', 'NOp_3H2O ', 'NOp_CO2 ', 'NOp_H2O ', & - 'NOp_N2 ', 'Np ', 'O1D ', 'O2_1D ', 'O2_1S ', & - 'O2m ', 'O2p ', 'O2p_H2O ', 'O3m ', 'O4m ', & - 'O4p ', 'OH ', 'OHm ', 'Om ', 'Op ', & - 'Op2D ', 'Op2P ' /) + slvd_lst(: 50) = (/ 'CLm ', 'CLm_H2O ', 'CLm_HCL ', 'CLOm ', 'CO3m ', & + 'CO3m2H2O ', 'CO3m_H2O ', 'CO4m ', 'e ', 'H3Op_OH ', & + 'HCO3m ', 'HO2 ', 'Hp_2H2O ', 'Hp_3H2O ', 'Hp_3N1 ', & + 'Hp_4H2O ', 'Hp_4N1 ', 'Hp_5H2O ', 'Hp_H2O ', 'N2D ', & + 'N2p ', 'NO2m ', 'NO2m_H2O ', 'NO3m ', 'NO3m2H2O ', & + 'NO3m_H2O ', 'NO3m_HCL ', 'NO3mHNO3 ', 'NOp ', 'NOp_2H2O ', & + 'NOp_3H2O ', 'NOp_CO2 ', 'NOp_H2O ', 'NOp_N2 ', 'Np ', & + 'O1D ', 'O2_1D ', 'O2_1S ', 'O2m ', 'O2p ', & + 'O2p_H2O ', 'O3m ', 'O4m ', 'O4p ', 'OH ', & + 'OHm ', 'Om ', 'Op ', 'Op2D ', 'Op2P ' /) if( allocated( rxt_tag_lst ) ) then deallocate( rxt_tag_lst ) @@ -479,15 +478,15 @@ subroutine set_sim_dat 'CH3OOH_OH ', 'CH4_OH ', & 'CO_OH_M ', 'O1D_CH4a ', & 'O1D_CH4b ', 'O1D_CH4c ', & - 'usr_CO_OH_b ', 'OCS_O ', & + 'usr_CO_OH_b ', 'DMS_NO3 ', & + 'DMS_OHa ', 'OCS_O ', & 'OCS_OH ', 'S_O2 ', & 'S_O3 ', 'SO_BRO ', & 'SO_CLO ', 'S_OH ', & 'SO_NO2 ', 'SO_O2 ', & 'SO_O3 ', 'SO_OCLO ', & - 'SO_OH ', 'usr_SO2_OH ', & - 'usr_SO3_H2O ', 'DMS_NO3 ', & - 'DMS_OHa ', 'usr_DMS_OH ', & + 'SO_OH ', 'usr_DMS_OH ', & + 'usr_SO2_OH ', 'usr_SO3_H2O ', & 'usr_HO2_aer ', 'usr_N2O5_aer ', & 'usr_NO2_aer ', 'usr_NO3_aer ', & 'het1 ', 'het10 ', &